Trailing-Edge
-
PDP-10 Archives
-
decus_20tap1_198111
-
decus/20-0025/plotto.bas
There are 2 other files named plotto.bas in the archive. Click here to see a list.
00100 GOTO 376
00102 READA1,H,I,J,E1,F1
00104 LETG=(F1-E1)/40
00106 LETG1=G/2
00108 PRINT
00110 PRINT" ","MULTIPLE PLOT OF THE FUNCTIONS ";
00112 FORK=1TOA1
00114 GOSUB 424
00116 IFK=A1THEN 122
00118 PRINT", ";
00120 NEXTK
00122 PRINT
00124 PRINT
00126 PRINT
00128 PRINT" "," HORIZ INCREMENT =";G
00130 GOSUB 350
00132 GOSUB 354
00134 PRINT"X-VALUE"
00136 LETX=H-J
00138 PRINT
00140 LETL1=0
00142 LETX=X+J
00144 IFX>ITHEN 340
00146 PRINTX,
00200 LETA=X
00210 LETB=X+A
00220 LETC=X+A+B
00230 LETD=X+A+B+C
00240 LETE=X+A+B+C+D
00250 LETF=X+A+B+C+D+E
00260 LETY=E1-G
00262 PRINT" ";
00264 LETY=Y+G
00266 IFY>F1THEN 138
00268 IFABS(A-Y)<G1THEN 292
00270 IFA1<2THEN 262
00272 IFABS(B-Y)<G1THEN 300
00274 IFA1<3THEN 262
00276 IFABS(C-Y)<G1THEN 308
00278 IFA1<4THEN 262
00280 IFABS(D-Y)<G1THEN 316
00282 IFA1<5THEN 262
00284 IFABS(E-Y)<G1THEN 324
00286 IFA1<6THEN 262
00288 IFABS(F-Y)<G1THEN 332
00290 GOTO 262
00292 PRINT"A";
00294 LETL1=L1+1
00296 IFL1=A1THEN 138
00298 GOTO 264
00300 PRINT"B";
00302 LETL1=L1+1
00304 IFL1=A1THEN 138
00306 GOTO 264
00308 PRINT"C";
00310 LETL1=L1+1
00312 IFL1=A1THEN 138
00314 GOTO 264
00316 PRINT"D";
00318 LETL1=L1+1
00320 IFL1=A1THEN 138
00322 GOTO 264
00324 PRINT"E";
00326 LETL1=L1+1
00328 IFL1=A1THEN 138
00330 GOTO 264
00332 PRINT"F";
00334 LETL1=L1+1
00336 IFL1=A1THEN 138
00338 GOTO 264
00340 PRINT
00342 GOSUB 354
00344 GOSUB 350
00346 PRINT
00348 GOTO 358
00350 PRINT" ",E1," "," ";F1
00352 RETURN
00354 PRINT" "," :....:....:....:....:....:....:....:....:"
00356 RETURN
00358 PRINT
00360 PRINT
00362 PRINT"TYPE 'S' TO STOP, OR GIVE NEW VALUES OF"
00364 PRINT"NUM,XMIN,XMAX,DELX,HMIN,HMAX";
00366 INPUTA1,H,I,J,E1,F1
00368 PRINT
00370 PRINT
00372 GOTO 104
00374 DATA0
00376 PRINT
00378 PRINT"THIS PROGRAM PLOTS ONE TO SIX FUNCTIONS OF X SIMULTANEOUSLY."
00380 PRINT"ALL FUNCTIONS HAVE THE SAME UPPER AND LOWER LIMITS FOR THE"
00382 PRINT"PLOT. THE FUNCTIONS ARE CALLED A,B,C,D,E,F AND ARE PLOTTED"
00384 PRINT"IN THAT ORDER OF PRIORITY. WHERE PLOTS WOULD OVERLAP, THE"
00386 PRINT"LOWER PRIORITY FUNCTIONS ARE SUPPRESSED. VALUES EXCEEDING"
00388 PRINT"THE SELECTED BOUNDS ARE DISREGARDED. ENTER INFORMATION FOR"
00390 PRINT"A RUN IN THE FOLLOWING FORMAT:"
00392 PRINT
00394 PRINT" 100 DATA NUM,XMIN,XMAX,DELX,HMIN,HMAX"
00396 PRINT" 200 LET A= ANY 'BASIC' FUNCTION OF X"
00398 PRINT" 210 LET B= ANY 'BASIC' FUNCTION OF X AND/OR A"
00400 PRINT" 220 LET C= DITTO FOR X AND/OR A AND/OR B"
00402 PRINT" 230 (SIMILARLY FOR D)"
00404 PRINT" 240 (SIMILARLY FOR E)"
00406 PRINT" 250 (SIMILARLY FOR F)"
00408 PRINT" RUN"
00410 PRINT
00412 PRINT"WHERE NUM IS THE NUMBER OF FUNCTIONS GIVEN (1-6), XMIN AND"
00414 PRINT"XMAX ARE THE LOWER AND UPPER LIMITS FOR X, DELX IS THE IN-"
00416 PRINT"CREMENT FOR X, AND HMIN AND HMAX ARE THE LOWER AND UPPER"
00418 PRINT"LIMITS FOR THE VALUES OF THE FUNCTION. NOTE THAT THE HOR-"
00420 PRINT"IZONTAL INCREMENT IS ALWAYS (HMAX-HMIN)/40."
00422 STOP
00424 IFK=1THEN 438
00426 IFK=2THEN 442
00428 IFK=3THEN 446
00430 IFK=4THEN 450
00432 IFK=5THEN 454
00434 IFK=6THEN 458
00436 PRINT"MORE THAN SIX FUNCTIONS SPECIFIED. STOP."
00438 PRINT"A";
00440 RETURN
00442 PRINT"B";
00444 RETURN
00446 PRINT"C";
00448 RETURN
00450 PRINT"D";
00452 RETURN
00454 PRINT"E";
00456 RETURN
00458 PRINT"F";
00460 RETURN
00462 END