(35S) Fibonacci Fun for the HP35s and the number phi

01222015, 08:07 AM
(This post was last modified: 06152017 01:35 PM by Gene.)
Post: #1




(35S) Fibonacci Fun for the HP35s and the number phi
Greetings,
While playing with my new FX115es Plus from Casio I ran into the infamous Fibonacci sequence, once again, Fn = Fn1 + Fn2 using the classic 1 1 startup: 1 1 2 3 5 8 13 21 34 ... The authors of the fx115 user guide were demonstrating the [Ans] + [PreAns] [=] iterative key sequence and were pleased that with the correct startup [1] [=], [+] [1] followed by repeating [Ans] + [PreAns] iteratively would generate the Fibonacci numbers line at a time 'till ad infinitum or 'till boredom; which ever came first prior to overflow. That's the backstory; the fx115 in not programable and although the [PreAns] feature is relatively useful, the example was not terribly enlightening. The little small exercise did give me pause to think about my new HP35s programable with classic four level stack, LASTx, RPN; ... and the iterative steps that would be necessary to conduct the same relatively painless example on the 35s bumping the Fibonacci sequence of numbers up the stack and out the TOP. The rules? Glad you asked: only stack manipulations allowed (no exchanges except for [x<>y]), only [+] operation, no direct nor indirect memory registers, and no loss of Fibonacci numbers until they leave the T level of the stack out the TOP. Also, we are assuming the classic startup of 1 1, NOT 0 1. Stop reading here and play with your HP a bit to see what you think the minimum steps are that produce the results manually, and then continue reading (you can use any classic HP to do this step). Welcome back. The setup is: Code:
Code:
So what? What if we automate the silly thing so that we can have the machine stop on whatever nth Fibonacci number we want (from a parmameter) and then allow us to step through the rest with [R/S] or watch it run 'slowly' with an embedded [PSE]? Here is the program key sequence: Code:
The machine will stop with 4 in x, waiting for the operator to accept the default, or change it to a higher integer. The largest integer which may be entered (without overflow) is 59. Clear the 4, and place 59 in the x stack position, then press [R/S]. Four and a half seconds later the stack will contain the last four Fibs from the nth and x will hold 956,722,026,041. Run the program again, this time leaving the default of 4. The stack will hold t 1 z 1 y 2 x 3 Now, press [R/S] and watch the Fibonacci numbers bump up the stack ad infinitum or boredom... whichever comes first prior to overflow. Do THAT on your FX115es Plus, I double dare you. PS It is well known that the ratio of any two consecutive Fibonacci numbers produces a more and more accurate convergence on the number phi: (SQ(5)+1)/2. This happens accurately (more or less) for the HP35s at about the 29th iteration of the above program. Stop the sequence at the 29th iteration and then press [x<>y] [/] and you should see: 1.61803398875 ~phi more or less! PSS The program may be interrupted with [R/S] but remember that since the main program never hits a RTN the program counter is stuck in the F program. Inadvertently hitting [R/S] again will restart the program (which you may not want). To avoid this, when you're done playing, either delete F or press [GTO] [.] [.] to set the program counter to the TOP. [/php] Cheers marcus Kind regards, marcus 

01222015, 09:07 AM
Post: #2




RE: Fibonacci Fun for the HP35s and the number phi
Just a question: Why the poor Fibonacci sequence should be infamous?
Greetings, Massimo +×÷ ↔ left is right and right is wrong 

01222015, 09:39 AM
Post: #3




RE: Fibonacci Fun for the HP35s and the number phi
(01222015 09:07 AM)Massimo Gnerucci Wrote: Just a question: Why the poor Fibonacci sequence should be infamous? In two words, perceived infamy. Because (as in the case of the FX115es example) the series is demonstrated with an almost trivial cast as a simple iterative summation without meaning; begging the 'perceived' infamous question, "So what?" The Fibonacci sequence is wrapped up in phi and phi, well, phi is wrapped up in virtually everything from corn rows to flower petals, from sea shells to rabbit expansion, from Greek architecture to renaissance painting. I am fascinated with phi, and with the Fibonacci sequence (as you might have guessed); yet, I often get sort of a trivial (meh) response to the passion that's why infamous. Good to meet you Massimo. Good night (at least here its night, and good). Kind regards, marcus 

01222015, 10:56 AM
Post: #4




RE: Fibonacci Fun for the HP35s and the number phi
Keeping your program structure but optimizing it for the 35s feature set, you can do:
Code: F001 LBL F


01222015, 11:13 AM
Post: #5




RE: Fibonacci Fun for the HP35s and the number phi
(01222015 10:56 AM)Didier Lachieze Wrote: Keeping your program structure but optimizing it for the 35s feature set, you can Very nice! Thanks for your comments; nice to meet you Didier! I'll play with it tomorrow... going to bed now! Kind regards, marcus 

01232015, 07:08 AM
(This post was last modified: 01232015 07:13 AM by MarkHaysHarris777.)
Post: #6




RE: Fibonacci Fun for the HP35s and the number phi
(01222015 10:56 AM)Didier Lachieze Wrote: [*]Step F010 is to duplicate register X : REGX is accessed by [YellowShift][Mem][RDN] then select X with the left Arrow and [ENTER] Well, I finally did get to play with this late today... what an education! I am surprised at this undocumented REGX command. I finally realized that RDN means rolldown! [R] duh. As it turns out, on the HP35s, the REGX REGY REGZ REGT commands can be accessed from *any* menu followed by a rolldown [R]. This is huge under some circumstances, because it reduces the amount of storage required on many of my subroutines. As is usually the case, there is a tradeoff. I am not yet sure if its the inclusion of an equation EQN (REGX+REGY) in the loop, or the hidden stack commands themselves, but the new Fibonacci routine (although taking less storage steps) has a significantly longer runtime. The original stored program runs in just over 4 seconds (59th Fib #) while the new stored program with equation embedded runs in just under 7 seconds... a +75% increase in runtime! That surprised me until I thought about it a bit... there is apparently a significant overhead in the calling mechanism to run an equation rather than using the native stack rolling manipulation; although, with the positive tradeoff of having a simplified stored program with less steps in storage; 76 vs 84 bytes (17 vs 25 steps) as in this case study. Anyway, thanks again for the fun, and the education. Every day I learn something new about HP35s, and every day I love it more than the day before! Cheers Kind regards, marcus 

01232015, 07:34 AM
Post: #7




RE: Fibonacci Fun for the HP35s and the number phi
(01232015 07:08 AM)MarkHaysHarris777 Wrote: I am surprised at this undocumented REGX command. See "Accessing Stack Register Contents" in the 35s User's Guide Appendix B (B7), it describes how to access the stack registers in EQN mode but doesn't describe that you can do it out of EQN mode. (01232015 07:08 AM)MarkHaysHarris777 Wrote: I finally realized that RDN means rolldown! [R] duh. As it turns out, on the HP35s, the REGX REGY REGZ REGT commands can be accessed from *any* menu followed by a rolldown [R]. This is huge under some circumstances, because it reduces the amount of storage required on many of my subroutines. I like to use the Mem menu as it makes sense for accessing registers. (01232015 07:08 AM)MarkHaysHarris777 Wrote: As is usually the case, there is a tradeoff. I am not yet sure if its the inclusion of an equation EQN (REGX+REGY) in the loop, or the hidden stack commands themselves, but the new Fibonacci routine (although taking less storage steps) has a significantly longer runtime. The original stored program runs in just over 4 seconds (59th Fib #) while the new stored program with equation embedded runs in just under 7 seconds... a +75% increase in runtime! This is the tradeoff for using equations. For step F010 you can enter it in two different ways: starting with a menu (such as Mem) and then pressing Roll down, or starting with EQN and then pressing Roll down as documented in the user's guide. You will endup in both cases with "F010 REGX" but if you entered starting with EQN, the EQN indicator will be on and if you look at the program you'll see that entering REGX as an EQN adds 4 bytes (7 bytes for EQN vs. 3 bytes for direct entry from Mem). 

01242015, 01:51 AM
Post: #8




RE: Fibonacci Fun for the HP35s and the number phi
(01222015 08:07 AM)MarkHaysHarris777 Wrote: Stop reading here and play with your HP a bit to see what you think the minimum steps are that produce the results manually, and then continue reading (you can use any classic HP to do this step). This is what I came up with: Code: + I assume this works on most classic HP calculators. Cheers Thomas 

01242015, 09:53 AM
(This post was last modified: 01242015 09:54 AM by MarkHaysHarris777.)
Post: #9




RE: Fibonacci Fun for the HP35s and the number phi
(01242015 01:51 AM)Thomas Klemm Wrote: This is what I came up with: It does work to produce the Fibonacci sequence, but it does not meet my programming challenge because the numbers do not lift up the stack and out the TOP! In other words at each iteration you will only have Fib numbers in X and y; z and t will contain zero. Without the REGX and REGY (hidden) instructions it takes at least five steps to generate the sequence in such a way that the numbers lift up the stack (bump up the stack and out the top) so that at any iteration past 4 the x,y,z,t stack regs will contain the last four Fib numbers in descending order as you move up the stack. So, at iteration 5 the stack will look like this: t 1 z 2 y 3 x 5 Your algorithm will leave the stack looking like this after 5 iterations: t 0 z 0 y 3 x 5 So just the equation REGX+REGY does the trick. Didier is correct to point out that the hidden REGx instructions are documented 'loosely' in Appendix B7. And even so, the instructions are not very intuitive in their use, and secondarily they are painfully slow. Without the REGx instructions the minimum steps to bump the Fib numbers up the stack are five(5) LASTx X<>Y + LASTx X<>Y If not the intermediate results simply collapse back into the X and Y and the Z and T never get the replicated values. Cheers PS ... smile and wave boys, just smile and wave. Kind regards, marcus 

01242015, 10:03 AM
Post: #10




RE: Fibonacci Fun for the HP35s and the number phi
The 34S can do this in well under five steps:
Code: RCL L You need to set the first value in L, but only the first (i.e. you don't need to begin with two values). Of course having a Fibonacci function helps a bit  Pauli 

01242015, 12:19 PM
(This post was last modified: 01242015 12:47 PM by Thomas Klemm.)
Post: #11




RE: Fibonacci Fun for the HP35s and the number phi  
01242015, 12:58 PM
Post: #12




RE: Fibonacci Fun for the HP35s and the number phi
(01242015 09:53 AM)MarkHaysHarris777 Wrote: It does work to produce the Fibonacci sequence, but it does not meet my programming challenge because the numbers do not lift up the stack and out the TOP! Oh, my bad that I missed that part. I was just wondering why you would do that calculation in an overly complicated way. Now it's clear. Best regards Thomas 

01242015, 10:41 PM
Post: #13




RE: Fibonacci Fun for the HP35s and the number phi
(01242015 12:19 PM)Thomas Klemm Wrote: Only two steps for the HP42S: Yeah, I thought of this solution lying in bed last night but couldn't be bothered getting up to post it. The 34S doesn't save a byte in the second instance.  Pauli 

01252015, 07:03 AM
Post: #14




RE: Fibonacci Fun for the HP35s and the number phi
(01242015 10:03 AM)Paul Dale Wrote: The 34S can do this in well under five steps: Yes, thanks Pauli, I'm so looking forward to having one to play with soon! Everything is either ordered or accounted for, and the cable box is under construction. The 30b's are waiting expectantly and the pogo connector is coming along nicely. I got some great pogo pins from Sparkfun (they got them shipped to me in 24 hours no extra charge) through the mails. Thanks for all you do, buddy. I am genuinely so impressed with this project/ I think one of the best, if not the best, to come along in 15 years. Thanks again! Kind regards, marcus 

07212018, 01:58 AM
Post: #15




RE: (35S) Fibonacci Fun for the HP35s and the number phi
This is my favorite Fibonacci Sequence routine.
ENTER ENTER Rv // Roll Down Rv // Roll Down + To run simply fill the stack with 1 [ENTER] 1 then keep continue with [R/S] Gamo 

07222018, 01:37 AM
Post: #16




RE: (35S) Fibonacci Fun for the HP35s and the number phi
(07212018 01:58 AM)Gamo Wrote: This is my favorite Fibonacci Sequence routine. I'm afraid you neither meet MarkHaysHarris777's requirement: (01242015 09:53 AM)MarkHaysHarris777 Wrote:(01242015 01:51 AM)Thomas Klemm Wrote: This is what I came up with: But then I guess he doesn't care anymore. Cheers Thomas 

« Next Oldest  Next Newest »

User(s) browsing this thread: 1 Guest(s)