39 lines
438 B
Plaintext
39 lines
438 B
Plaintext
'ProgramMode:RUN
|
|
Deg
|
|
G-Connect
|
|
G-Plot
|
|
CoordOff
|
|
GridOff
|
|
AxesOff
|
|
LabelOff
|
|
ClrGraph
|
|
ViewWindow (-)2,2,0,-1,1,0
|
|
Cls
|
|
2->A
|
|
1->B
|
|
-10->C
|
|
5->D
|
|
|
|
Do
|
|
Getkey->K
|
|
If K<>L:Then
|
|
K=39=>D+(D<10)->D
|
|
K=29=>D-(D>(-)10)->D
|
|
K=28=>B+(B<10)->B
|
|
K=37=>B-(B>(-)10)->B
|
|
K=27=>A+(A<10)->A
|
|
K=38=>A-(A>(-)10)->A
|
|
K->L
|
|
IfEnd
|
|
|
|
C+D->C
|
|
|
|
Cls
|
|
Text 1,1,"A(_#E690__#E691_)=":
|
|
Text 1,23,A:
|
|
|
|
Text 7,1,"B(_#E692__#E693_)=":
|
|
Text 7,23,B:
|
|
|
|
Graph(X,Y)=(sin ((A*T)+C),cos (B*T)
|
|
LpWhile 1 |