25 lines
382 B
Text
25 lines
382 B
Text
1.1 S I1=-1.2; S I2=1.2; S R1=-2; S R2=.5
|
|
1.2 S MIT=30
|
|
1.3 F Y=1,24; D 2
|
|
1.4 Q
|
|
|
|
2.1 T !
|
|
2.2 F X=1,70; D 3
|
|
|
|
3.1 S R=X*(R2-R1)/70+R1
|
|
3.2 S I=Y*(I2-I1)/24+I1
|
|
3.3 S C1=R; S C2=I
|
|
3.4 F T=1,MIT; D 4
|
|
|
|
4.1 S C3=C1
|
|
4.2 S C1=C1*C1 - C2*C2
|
|
4.3 S C2=C3*C2 + C2*C3
|
|
4.4 S C1=C1+R
|
|
4.5 S C2=C2+I
|
|
4.6 I (-FABS(C1)+2)5.1
|
|
4.7 I (-FABS(C2)+2)5.1
|
|
4.8 I (MIT-T-1)6.1
|
|
|
|
5.1 S T=MIT; T "*"; R
|
|
|
|
6.1 T " "; R
|