File 3DIM.TMP

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



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search