0 REM Original author: Mark Bramhall of DEC
1 CLS:PRINT TAB(17);"3D PLOT"
2 PRINT TAB(11);"CREATIVE COMPUTING"
3 PRINT TAB(9);"MORRISTOWN, NEW JERSEY"
4 FORX=1TO1000:NEXTX
5 CLS
9 PRINT "Which function do you want to plot?"
10 PRINT "1) A=28*SIN(B/10)"
20 PRINT "2) A=30-30*SIN(B/18)"
30 PRINT "3) A=30*EXP(-B*B/100)"
40 PRINT "4) A=SQR(900.01-B*B)*.9-2"
50 PRINT "5) A=30*EXP(-COS(B/16))-30"
60 D=VAL(INPUT$(1))
70 CLS
110 FOR X=-30 TO 30 STEP 1.5
120 L=0
130 Y1=5*INT(SQR(900-X*X)/5)
140 FOR Y=Y1 TO -Y1 STEP -5
150 B=SQR(X*X+Y*Y):ON D GOSUB 1000,2000,3000,4000,5000:Z=INT(25+A-.7*Y)
160 IF Z<=L THEN 190
170 L=Z
180 PSET(80+(X+30)/1.5,64-Z)
190 NEXT Y
210 NEXT X
300 BEEP
310 PRINT@220,"";
320 END
1000 A=28*SIN(B/10)
1010 RETURN
2000 A=30-30*SIN(B/18)
2010 RETURN
3000 A=30*EXP(-B*B/100)
3010 RETURN
4000 A=SQR(900.01-B*B)*.9-2
4010 RETURN
5000 A=30*EXP(-COS(B/16))-30
5010 RETURN