wp34s - FIB problem (DBLON)

[Gerson W. Barbosa]

Just a size-optimized version, without forcing integer results for FIB in double precision mode. As a result this will never get the last two or three digits right.

Code:


001:LBL A
002:RCL X
003:DEC X
004:(-1)ᵡ
005:RCL L
006:FIB
007:RCL Z
008:FIB
009:STOS 01
010:# 000
011:RCL 04
012:STO+ X
013:©STO 05
014:INC 05
015:FIB
016:RCL- 03
017:RCL 05
018:FIB
019:STO 05
020:RCL+ 06
021:RCL× 03
022:RCL 01
023:1/x
024:STO+ T
025:x⇆ L
026:x²
027:RCL/ Y
028:STO 06
029:©x⇆ 01
030:RCL- Y
031:x⇆ Y
032:©STO 01
033:⇆ ZZTX
034:y⇆ 05
035:STO- Y
036:DSE 04
037:BACK 018
038:RCL+ 06
039:1/x
040:RCL+ Z
041:END