; ************************* 
; Math/Utilities Library 18
; *************************
; Differential Equations 
; (Original TI-59)


#EMULATOR c:\ti-59\mu\18\MU-18.t59

#LISTING c:\ti-59\mu\18\MU-18.LST

#AZEMULATOR c:\ti-59\mu\18\MU-18.TI


lbl a                                         ;000
sto 10 rtn

lbl b                                         ;005
sto 11 sto 13 rtn

lbl c                                         ;012
sto 12 sto 14 rtn

lbl d                                         ;019
sto 19 rtn

lbl e'                                        ;024
inv

lbl e                                         ;027
stf 0 ( ( ce - rcl 10 ) / rcl 19 sto 9
) STO 15 SBR 275 STO 16 SBR 284 ( RCL 16
/ 2 ) IFF 0 94 ( ce + rcl 14 ) sto 12 ( (
rcl 14 + rcl 16 / 4 ) * rcl 15 / 2 + 
rcl 13 ) gto 100

( ce + rcl 13 ) sto 11 sbr 275 ( sto 17       ;094
/ 2 ) iff 0 126 ( ce + rcl 14 ) sto 12 
gto 134

( ce + rcl 13 ) sto 11 sbr 275 sto 18         ;126
sbr 284 rcl 18 iff 0 176 ( ce + rcl 14
) sto 12 ( ( rcl 14 + rcl 18 / 2 ) *
rcl 15 + rcl 13 ) gto 182

( ce + rcl 13 ) sto 11 sbr 275 ( ( ce         ;176
+ ( rcl 17 + rcl 18 ) * 2 + rcl 16 )
/ 6 ) iff 0 257 ( ce + rcl 14 ) sto 12
( ( ( rcl 16 + rcl 17 + rcl 18 ) / 6
+ rcl 14 ) * rcl 15 + rcl 13 ) sto 11
sto 13 x%t rcl 12 sto 14 x%t gto 267

( ce + rcl 13 ) sto 11 sto 13 dsz 9 46        ;257
inv stf 0 rtn

( pgm 0 a' * rcl 15 ) rtn                     ;275

( rcl 15 / 2 ) sum 10 rtn                     ;284


#end