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))