Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0025/xyplot.bas
There are 2 other files named xyplot.bas in the archive. Click here to see a list.
00009 LET J = 0
00010 LET J=1
00100 IF J=1 THEN 151
00101 IF J=0 THEN 103
00102 RETURN
00103 PRINT
00104 PRINT "WHAT ARE YMIN,YMAX,XMIN,XMAX,DELX";
00105 INPUT Q0,Q1,Q2,Q3,Q4
00106 LET Q5=(Q1-Q0)/60
00107 LET Q6=0
00108 LET J=2
00109 FOR X = Q2 TO Q3 STEP Q4
00110 GOSUB 10
00111 IF Q6 = 0 THEN 137
00112 IF Q6 = 20 THEN 115
00113 PRINT " . ";
00114 GOTO 117
00115 PRINT " - ";
00116 LET Q6 = 10
00117 IF Y > Q1 THEN 134
00118 IF Y < Q0 THEN 134
00119 LET Q7 = Q0 + 2*Q5
00120 LET Z=Q7+0.5*Q5
00121 IF Z<Y THEN 131
00122 LET Q6 = Q6 + 1
00123 IF Z-Y>=2*Q5 THEN 129
00124 IF Z-Y>=Q5 THEN 127
00125 PRINT " +"
00126 GOTO 143
00127 PRINT " +"
00128 GO TO 143
00129 PRINT "+"
00130 GO TO 143
00131 LET Q7 = Q7 + 3*Q5
00132 PRINT " ";
00133 GOTO 120
00134 PRINT "OFF SCALE: (X,Y) = ";X;", ";Y
00135 LET Q6 = Q6 + 1
00136 GOTO 143
00137 PRINT
00138 PRINT "FOR X: TOP = ";Q2;" BOTTOM = ";Q3;" INCREMENT = ";Q4
00139 PRINT "FOR Y: LEFT = ";Q0;" RIGHT = ";Q1;" INCREMENT = ";Q5
00140 PRINT
00141 PRINT " I.........I.........I.........I.........I.........I.........I"
00142 GOTO 115
00143 NEXT X
00144 PRINT
00145 PRINT "TYPE '0' TO STOP OR '1' TO CHANGE LIMITS. WHICH";
00146 INPUT Q8
00147 IF Q8 = 0 THEN 164
00148 IF Q8 = 1 THEN 103
00149 PRINT
00150 GOTO 144
00151 PRINT
00152 PRINT "THIS PROGRAM WILL PLOT SINGLE-VALUED FUNCTIONS OF X,"
00153 PRINT "WITH X ON THE VERTICAL AXIS. TO USE, TYPE:"
00154 PRINT
00155 PRINT " 10 LET Y= (THE FUNCTION TO BE PLOTTED)"
00156 PRINT " RUN"
00157 PRINT
00158 PRINT "DURING RUNNING, THE PROGRAM WILL ASK FOR YMIN AND"
00159 PRINT "YMAX (THE LIMITS ON THE HORIZONTAL Y-AXIS), FOR"
00160 PRINT "XMIN AND XMAX (THE LIMITS ON THE VERTICAL X-AXIS),"
00161 PRINT "AND FOR DELX, THE INCREMENT TO BE USED ALONG THE"
00162 PRINT "X-AXIS. NOTE: LINES 11-99 OF THE PROGRAM MAY BE"
00163 PRINT "USED AS DESIRED TO EXPRESS COMPLICATED FUNCTIONS."
00164 END