%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:312
File Name:EULERN
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"EULER'S METHOD SOLN  OF DIFFEQ (NUMERICAL)"
"STORE \d/dx(Y)=\f6(X,Y)FIRST"
"KNOWN POINT IS AT"
"(A,F(A))"
"A="?\->A
"F(A)="?\->F
"COMPUTE F(B) FOR B="?\->B
"CHOOSE"
"(1)STEP SIZE OR"
"(2)NUMBER OF STEPS"?\->C
\If C=1
\Then "STEP SIZE="?\->H
(B-A)/H\->N
\Else "NUMBER OF STEPS="?\->N
(B-A)/N\->H
\IfEnd
A\->X
F\->Y
\For 1\->I \To N
Y+\f6H\->Y
X+H\->X
\Next 
"F(B)~"
Y
%End