
C FOCAL15 V6A
01.05 S N=100
01.10 F J=1,N; S Y(J)=FABS[FSIN(J/5)*FSIN(J/15)]; S X(J)=J
01.15 GOTO 20.1
02.10 S N=100
02.20 F J=1,N; S X=50*J/100-25; S X(J)=X; S Y(J)=5*X^3+10X^4
02.30 GOTO 20.1
03.10 A "N= ",K,!
03.20 S N=120
03.22 S P=.03
03.30 F J=1,N; S R=FCOS(J*P*K);S X(J)=R*FCOS(J*P+J);S Y(J)=R*FSIN(J*P)
03.40 GOTO 20.1
04.10 S N=150
04.20 F J=1,N; S X=[J*6.28]/942-6.28; S X(J)=X; S Y(J)=FEXP(FSIN(X)*X)
20.10 S MXX=X(1); S MNX=X(1)
20.12 S MXY=Y(1); S MNY=Y(1)
20.14 S J=1
20.20 S J=J+1
20.24 IF (MXX-X(J)) 20.3,20.28,20.28
20.28 IF (MNX-X(J)) 20.36,20.36,20.34
20.30 S MXX=X(J); GOTO 20.36
20.34 S MNX=X(J)
20.36 IF (MXY-Y(J)) 20.4,20.38,20.38
20.38 IF (MNY-Y(J)) 20.46,20.46,20.42
20.40 S MXY=Y(J); GOTO 20.46
20.42 S MNY=Y(J)
20.46 IF (J-N) 20.2,20.5,20.5
20.50 S XSC=51200/[MXX-MNX]
20.52 S YSC=51200/[MXY-MNY]
20.53 F J=1,N; S X(J)=X(J)*XSC; S Y(J)=Y(J)*YSC
20.55 T "PLOT READY",!!
20.60 D 21
20.70 GOTO 20.6
21.10 F J=1,N; S X=FDPY(X(J),Y(J))

