2 replies to this topic

[scientifix]

Can someone tell me if this program could work ??


---------EQDIFF1 to solve y'=Y1(X)---------

ClrText
"EQ DIF Y'=Y1(X)"
"XDEP "?->C
"YDEP "?->D
"N "?->N
"H "?->H
ClrList
N->Dim List 1
N->Dim List 2
C->List 1[1]
D->List 2[1]
For 2->I To N
List 1[I-1]+H->List 1[I]
List 1[I-1]->X
List 2[I-1]+H*Y1->List 2[I]
Next

Min(List 1)->Xmin
Max(List 1)->Xmax
(Xmax-Xmin)/10->Xscl
Min(List 2)->Ymin
Max(List 2)->Ymax
(Ymax-Ymin)/10->Yscl
S-Gph1 DrawOn,Scatter,List 1,List 2
DrawStat
Return

---------EQDIFF2 to solve y'=ay+b----------

ClrText
"EQ DIF Y'=A*Y+B"
"A "?->A
"B "?->B
"XDEP "?->C
"YDEP "?->D
"N "?->N
"H "?->H
ClrList
N->Dim List 1
N->Dim List 2
C->List 1[1]
D->List 2[1]
For 2->I To N
List 1[I-1]+H->List 1[I]
(1+A*H)*List 2[I-1]+H*B->List 2[I]
Next

Min(List 1)->Xmin
Max(List 1)->Xmax
(Xmax-Xmin)/10->Xscl
Min(List 2)->Ymin
Max(List 2)->Ymax
(Ymax-Ymin)/10->Yscl
S-Gph1 DrawOn,Scatter,List 1,List 2
DrawStat
Return

[scientifix]

Can someone tell me if it is working ??

[flyingfisch]

Could you post the g1r's?