Directory of image this file is from
This file as a plain text file
2PRINT"TO USE THIS PROGRAM, TYPE THESE TWO LINES:" 3PRINT" 1 GO TO 5"\PRINT" 5 DEF FNA(Z)= (FUNCTION TO BE PLOTTED)" 4PRINT" RUN"\STOP 5 DEF FNA(Z)=30*EXP(-Z*Z/100) 40 PRINT 45 LET I1=1 50 FOR X=-30 TO 30 STEP 1.5 60 LET L1=-1 70 LET Y1=5*INT(SQR(900.01-X*X)/5) 80 FOR Y=Y1 TO -Y1 STEP -5 90 LET Z=INT(25+FNA(SQR(X*X+Y*Y))-.7*Y) 100 IF L1=-1 THEN 140 110 IF Z>L1 THEN 180 120 IF Z<L2 THEN 150 130 GOTO 200 140 LET L1=Z 150 LET L2=Z 160 IF Z=I1-1 THEN 166 161 FOR I=I1 TOZ 162 PRINT " "; 164 NEXT I 166 PRINT "*"; 167 LET I1=Z+2 170 GOTO 200 180 LET L1=Z 190 GOTO 160 200 NEXT Y 210 PRINT 215 LET I1=1 220 NEXT X 230 PRITNT 240 END