()0QIBTC-PS/8 FOCAL, 1971?MB%BAC POLAR BY STEVE POULSEN?MP[BBC OMSI SOFTWARE DEVELOPMENT GROUP?MH3BE?MCMB^I (AN-0YES) 1.4,2.1,1.4?MC-B(T !"ENTER EQUATION OF R IN TERMS OF THE ANGLE T"!!;M 10.1?MDPDJA !"INITIAL ANGLE ",A1,!"FINAL ANGLE ",A2,!"ANGLE INCREMENT ",A3?MD-DTA !"RADIUS OF AXES ",R1;S C=3.1415926/180;S S=380/R1?MEAD^S A1=A1*C;S A2=A2*C;S A3=A3*C;D 12?ME%FJS Q=FDIS(0,132,380)+FDIS(1,892,380)+FDIS(0,512,10)+FDIS(1,512,750)?ME.FTS Q7=FOUT(1)?MP+HJF T=A1,A3,A2;D 10;D 5?MF JJS X=512+R*S*FCOS(T);S Y=380+R*S*FSIN(T);I (FABS(R*S)-380)5. ;S I=0?MF6JTS Q=FDIS(I,X,Y);I (FABS(R*S)-380)5.3;R?MGXJ^S I=1;R?MGJXJF Q7=1,.2,FOUT(24);?MGTXTS Q7=FOUT(1);R?M(JQ?MF=TJS R=T?MHCBQC ** RADIUS OF AXES IS THE SCALING FEATURE WHICH SETS THE LENGTH OF?MOXBRC THE X AND Y AXES.?MB;BDC ***** TEKTRONIX T- 002 GRAPHICS TERMINAL REQUIRED *****?MIUBFC THIS PROGRAM WILL GRAPH ANY TWO-DIMENSIONAL EQUATION ON?MI9BGC A POLAR COORDINATE SYSTEM. TYPE ANYTHING BUT YES IF YOU WANT TO?MJZBHC TO INPUT AN EQUATION WHEN ASKED IF THE EQUATION IS IN, AND?MJ:BIC THE CO PUTER WILL INTERRUPT THE PROGRAM AND ALLOW YOU TO?MK\BJC MODIFY ITS INPUT EQUATION. TYPE AN = AND YOU WILL GET THE?MK=BKC FIRST PART OF THE EQUATION SINCE IT IS IN MODIFY MODE. IF?ML BLC YOU CHOOSE NOT TO MODIFY THE EQUATION, THE PROGRAM WILL ASSUME?M /BMC R=T. EQUATION FORMAT IS R(RADIUS) IN TERMS OF T(THETA).?MMUBYT "YOU DO NOT HAVE ENOUGH FEATURES."?MM+BZT " RESTART FOCAL WITH FEATURE 2.";Q?MPBB\E?MNRBNC ** INITIAL ANGLE IS THE POSITION FROM WHICH R WILL BE ROTATED.?MN6BOC ** FINAL ANGLE IS THE PO ITION THROUGH WHICH R WILL BE ROTATED.?MG^BPC ** ANGLE INCREMENT IS THE STEP WITH WHICH R WILL BE ROTATED.?MO+BSC ** ALL ANGLES ARE IN DEGREES.?MO.BT?MMBXI ((/3)-FITR(/3))1.25,1.28,1.25?MB>B]D 12;A "HAVE YOU ENTERED THE EQUATION ",AN?MHQBCC LAST CHANGE: 8/31/71?ME