; ************************************************************
; Universal Rate of Return
; ************************************************************
; Source: PPX-59 Securities Packette pages 5-13
;  

#EMULATOR c:\ti-59\prg2\cashflo\cashflo.t59
#LISTING c:\ti-59\prg2\cashflo\cashflo.lst
#POCKETPC c:\ti-59\prg2\cashflo\cashflo.ti

lbl d'
1 ee 6 +/- inv ee rtn

lbl b'
( rcl 0 +

lbl e'
( rc* 0 inv dsz 0 e' * ( 1 - ( rcl 22
y^x rc* 0 ) 1/x prd 19 ) / ( rcl 22 -
1 ) ) sum 19 dsz 0 e' 0 ) sto 0 ( 0
exc 19 - rcl 21 ) rtn

lbl a
sto 21 inv eng clr inv fix 2 op 17 cms
7 op 17 rcl 64 op 4 rcl 21 fix 2 op 6 
adv + d' inv lnx sto 22 

lbl a'
0 = inv stf 0 r/s

lbl c'
* 1 sum 0 inv fix iff 0 sum op 6 st* 0
sum 0 

lbl sum
= iff 1 143 inv iff 2 138 nop fix 2 op 6
gto 155 x%t inv fix rcl 61 op 4 x%t fix 2
op 6 st* 0 inv stf 1 inv stf 2 rtn 

lbl b
sto 20 stf 0 - int = cp eq 182 cp x%t lnx
x%t r/s

inv fix rcl 60 op 4 rcl 20 c' r/s 

lbl c
inv fix x%t iff 0 210 rcl 60 op 4 stf 1 gto 214

rcl 61 op 4 x%t stf 2 c' adv + ( 1 7 - rcl 0
) cp ge a' clr 

lbl d
b' / ( ce - d' sum 22 b' ) * d' inv sum 22 =
sum 22 fix 8 ee inv ee fix 2 cp inv eq d rcl 22 
- 1 = * 1 0 0 + x%t inv fix rcl 62 op 4 x%t ce
op 6 gto a' 

lbl e
/ 1 0 0 + 1 = exc 22 + b' exc 22 0 = exc 22 + 
rcl 21 = x%t inv fix rcl 63 op 4 x%t fix 2 op 6
+ gto a'
 
#end
 