Google
 

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