Directory of image this file is from
This file as a plain text file
()0Q\M0C-PS/8 FOCAL, 1971?MP(B(I (FABS(TY-0SAS)) ,3.1;I (FABS(TY-0SSS)) ,4.1?MQED^S S3=S2/FCOS(A1);S S1=FSQT(S3*S3-S2*S2)?MF>EAT !!"S1:",S1?MC3LJA "ARE YOUR ANGLES IN DEGREES ",ANSWER?ML(T "YES OR NO.",!;G 6.1?MDHLTI (-FABS(AN-0YES)) 6.3;S DSWITCH=1;R?MC%L^I (-FABS(AN-0NO)) 6.4;S DSWITCH=0;R?MB.DTI (FABS(DS)) ,2.3;S A1=A1*3.14159/180;S A2=3.14159/2-A1?MBTB^A "TYPE: ",TY;S A3=3.14159/2;I (FABS(TY-0ASA)) ,2.1?MG-F^S A2=A3-A1;G .4?MEYFTS S3=FSQT(S1*S1+S2*S2);S A1=FATN(S1/S2)?ME$FJA "S1: ",S1,!"S2: ",S2?MD]DJD 6;A "A1: ",A1,!"S2: ",S2,?MGGD2T !,"A1:",:7,A1,:24,A1*57.2958?MCED<T !,"A3:",:7,A3,:24,A3*57.2958?MNQEFT !"S2:",S2?MF,D7T !,"A2:",:7,A2,:24,A2*57.2958?MCNHTS A1=FATN(S1/S2) S A2=A3-A1;G 2.4?MGYHJA !"S1: ",S1,!"S2: ",S2,!"S3: ",S3,!?MO9BCC OMSI SOFTWARE DEVELOPMENT GROUP?ML/BE?MOMBOC ** THIS MUST BE A RIGHT TRIANGLE.?MH[BNC "SSS" IF YOU KNOW THE SIDE LENGTHS. S2?MH0BMC OR "SAS" FOR SIDE-ANGLE-SIDE INPUT OR A1 /-------I A3?MNZBJC THE INPUT IN THE RIGHT ORDER. THERE- / I S1?MI-BIC THREE PIECES. HOWEVER, YOU MUST HAVE S3 / I?MJMBHC THIS PROGRAM WILL DETERMINE THE OTHER / I?MJ+BGC ABOUT THE TRIANGLE SHOWN AT THE RIGHT / I MIMBLC "ASA" TO INPUT ANGLE-SIDE-ANGLE DATA, / I?MLYBZI (FITR(/6)-(/6)) 1.27,1.3,1.27?MO$B[T "YOU DO NOT HAVE ENOUGH FEATURES. "?MKIBFC GIVEN THREE PIECES OF INFORMATION /I A2?MHBBBC BY DIGITAL EQUIPMENT CORP. REWRITTEN BY JOHN HUISMAN?MMOBAC FROM TRIANG IN PROGRAMMING LANGUAGES COPYRIGHT 1970?MN8EPT !"S3:",S3?MK BKC FORE, WHEN ASKED "TYPE", RESPOND WITH /AREA I?ME;EZT !!"AREA =",%4.02,S1*S2/2,!!;G 1.29?MPIBPC ** BECAUSE OF THE ARCTANGENT FUNCTION,?MP>B\T "REST RT FOCAL WITH FEATURE 2.";Q?MHXBDC LAST CHANGE: 9/9/71?MQABQC LENGTHS MUST BE LESS THAN ONE MILLION UNITS.?MFIB<?MP%B2T "LIST GROUP 1 FOR INSTRUCTIONS",!!;Q?MD<B]?MLEBRE?MFZD(T !!,%5.05,:10,"RADIANS",:26,"DEGREES",!?MML S TRIANG?M?M,"RADIANS",:26," EGREES",!?MMNGB(?MN(BAC BARON BY D Note: Lines longer than 256 characters were wrapped