Directory of image this file is from
This file as a plain text file
()0QABTC-PS/8 FOCAL, 1971?MB%BAC POLAR BY STEVE POULSEN?MMLBBC OMSI SOFTWARE DEVELOPMENT GROUP?MB>BE?MOTBFC THIS PROGRAM WILL GRAPH ANY TWO-DIMENSIONAL EQUATION ON A POLAR?MDMBHC EQUATION WHEN ASKED IF THE EQUATION IS IN, AND THE COMPUTER WILL INTERRUPT?MD3BIC THE PROGRAM AND ALLOW YOU TO MODIFY ITS INPUT EQUATION. TYPE AN = ?MEVBJC AND YOU WILL GET THE FIRST PART OF THE EQUATION SINCE IT IS IN?ME>BKC MODIFY MODE. IF YOU CHOOSE NOT TO MODIFY THE EQUATION, THE PROGRAM WILL?MFBLC ASSUME R=T. EMEMBER, THE EQUATION MUST BE R (RADIUS) IN TERMS OF?MM\BMC T (THETA).?MGDB]D 12;A "HAVE YOU ENTERED THE EQUATION ",AN?MGSB^I (AN-0YES) 1.4,2.1,1.4?MG3B(T !"ENTER EQUATION OF R IN TERMS OF THE ANGLE T"!!;M 10.1?MHVDJA !"INITIAL ANGLE ",A1,!"FINAL ANGLE ",A2,!"ANGLE INCREMENT ",A3?MH3DTA !"RADIUS OF AXES ",R1;S C=3.1415926/180;S S=380/R1?MIGD^S A1=A1*C;S A2=A2*C;S A3=A3*C;D 12?MI+FJS Q=FDIS(0,132,380)+FDIS(1,892,380)+FDIS(0,512,10)+FDIS(1,512,750)?MI4FTS Q7=FOUT(1)?MJBHJF T=A1,A3,A2;D 10;D 5?MJ HTS Q=FOUT(1);A !"AGAIN ",AG;I (AG-0YES) 20.1,1.2,20.1?MKCJJS X=512+R*S*FCOS(T);S Y=380+R*S*FSIN(T);I (FABS(R*S)-380)5.2;S I=0?MKYJTS Q=FDIS(I,X,Y);I (FABS(R*S)-380)5.3;R?MK;J^S I=1;R?MK-XJF Q7=1,.2,FOUT(24);?MK7XTS Q7=FOUT(1);R?M(JQ?MK TJS R=T?ML;BQC ** RADIUS OF AXES IS THE SC LING FEATURE WHICH SETS THE LENGTH OF?ML)BS?MP[BTU ((/3)-FITR(/3)) 1.21,1.21?ML&BRC THE X AND Y AXES.?MF,BV?MO9BCC LAST CHANGE: 8/19/71?MNDBNC ** INITIAL ANGLE IS THE POSITION FROM WHICH R WILL BE ROTATED. (DEGREES)?MN-BOC ** FINAL ANGLE IS THE POS TION THROUGH WHICH R WILL BE ROTATED. (DEGREES)?MLABPC ** ANGLE INCREMENT IS THE STEP WITH WHICH R WILL BE ROTATED. (DEGREES)?MC$BGC COORDINATE SYSTEM. TYPE ANYTHING BUT YES IF YOU WANT TO INPUT AN ?MB;BDC ***** TEKTRONIX T-4002 GRAPHICS TERMINAL REQ IRED *****?MMIBUT "YOU DO NOT HAVE ENOUGH FEATURES. RESTART FOCAL WITH FEATURE 2.";Q?MML S POLAR?M?O NOT HAVE ENOUGH FEATURES. RESTART FOCAL WITH FEATURE 2.";Q??ME?****?M*?M?IN POWERS-OF-TEN NOTATION"!?MROKZT Note: Lines longer than 256 characters were wrapped