Directory of image this file is from
This file as a plain text file
X4()0T;IC-PS/8 FOCAL, 1971?MB&B2S XS=1000/(X2-X1);S XC=-X1*XS?MB.B<S YS=Y1*XS?MB8CFS YC=380+X4*YS?ME?CPF Q7=0,.2,FOUT(24);?ME^D^F U1=FITR(-YC/(YS*DV))*DV,DV,FITR((760-YC)/(YS*DV))*DV;D 5.1?MDHEFF U1=FITR(-XC/(XS*DV))*DV,DV,FITR((1020-XC)/(XS*DV))*DV;D 5.2 MDNFJS I=0?MGIFTF X=X1,X3,X2;D 30.1;D 4?MD-HJS XP=XC+X*XS;S YP=YC+Y*YS?MEJH(S R=FSQT((510-XP)^2+(510-YP)^2);I (R-510) 4.5;S I=0?MF H2S Q9=FDIS(I,XP,YP);I (R-510) 4.6;R?MG4D2I (YC) 3.1;I (780-YC) 3.1;S Q8=FDIS(0,0,YC)+FDIS(1,1020,YC)?MGVDJI (XC) 2.5;I (102 -XC) 2.5;S Q8=FDIS(0,XC,0)+FDIS(1,XC,780)?MHRH<S I=1?MCEDYS Q8=FOUT(1);T "Y UNITS:",DV?MC&EAS Q8=FOUT(1);T !"X UNITS:",DV?MD]F^S Q8=FOUT(1);T !!!;Q?MF&DTS D1=FITR(FLOG(50/YS)/FLOG(10));S DV=FEXP(D1*FLOG(10))?MF7D<S D1=FITR(FLOG(50/XS)/FLOG(10));S DV=FEXP( 1*FLOG(10))?MH-JJS Q8=FDIS(0,XC-5,YC+YS*U1)+FDIS(1,XC+5,YC+YS*U1)?MT2JTS Q8=FDIS(0,XC+XS*U1,YC-5)+FDIS(1,XC+XS*U1,YC+5)?MROB]T !"ENTER EQUATION OF Y IN TERMS OF X"!!;M 30.1?MI4BAC GRAPH BY STEVE POULSEN?MLIBBC OMSI SOFTWARE DEVELOPEMENT GROUP?MK B ?MQ3BUI ((/3)-FITR(/3)) 1.22,1.28,1.22?MS,BPC ** Y SCALING FACTOR SETS THE VERTICAL PLOT LIMIT OF THE SCREEN.?MJJBDC ***** TEKTRONIX T-4002 GRAPHICS TERMINAL REQUIRED *****?MLYBFC THIS PROGRAM WILL GRAPH ANY TWO DIMENSIONAL EQUATION ON?MKEBCC AST CHANGE: 8/31/71?ML:BGC AN EUCLIDEAN GRAPH. TYPE ANYTHING BUT YES IF YOU WANT TO?MM\BHC INPUT AN EQUATION WHEN ASKED IF THE EQUATION IS IN, AND THE?MNBIC COMPUTER WILL INTERRUPT THE PROGRAM AND ALLOW YOU TO MODIFY ITS?MN!BJC INPUT EQUATION. IF YOU CH OSE NOT TO MODIFY THE EQUATION,?MOBBKC THE PROGRAM WILL ASSUME Y=FSIN(X). TYPE AN = AFTER THE?MO&BLC CARRIAGE RETURN AND YOU WILL GET THE FIRST PART OF THE EQUATION?MPIBMC SINCE IT IS IN MODIFY MODE. REMEMBER, THE EQUATION MUST BE Y?MSLBNC IN TERMS OF X.?MRKBSC IN FOCAL SO SINE AND COSINE (AND ALL OTHERS) MUST BEGIN WITH F.?MPTBRC WHEN INPUTTING YOUR EQUATION, REMEMBER THAT YOU ARE USING MODIFY?MRHBWT " RESTART FOCAL WITH FEATURE 2.",!;Q?MQ\BVT "YOU DO NOT HAVE ENOUGH FEATURES."?MTMBX?MJMBTE?MR4B^A !" OWER LIMIT OF X ",X1,"UPPER LIMIT OF X ",X2,"X INCREMENT",X3?MBTB(A !"X OFFSET ",X4,"Y SCALING FACTOR ",Y1?MJ!BOC ** X OFFSET IS THE VERTICAL DISPLACEMENT OF THE X AXIS.?MP8BQC ** X INCREMENT IS THE STEP. (EX: .001,.1,1,2,10,100,ETC.)?MIHB\A !%6.03,"HAVE YOU ENTERED THE EQUATION ",A1;I (A1-0YES) 1.29,1.3;?M<JS Y=FSIN(X)?MB\L D DTA3:GRAPH;L S DTA3:GRAPH;L E?M?ION ",A1;I (A1-0YES) 1.29,1.3;?,X3?!;Q??M*?ERTICAL PLOT LIMIT OF THE SCREEN.?PE ?;S7&P"2%\%]%J5N-N Note: Lines longer than 256 characters were wrapped