$ Ї******************************* $Ї** ** $Ї** TRIG HELPER ** $ Ї** by David Harvey ** $Ї** April 1986 ** $Ї** ** $Ї******************************* Ї************************** ю Е х НDpW #√ 6 $√ 128 %█ (ёК15,10),"TRIG HELPER" )2ёК2,12),"RIGHT ANGLE TRIANGLE (Y/N)"; <G$=╛ Fч G$="Y"М НdHO Pч G$="N"М НDJP ZхНT|@ dЇ************************** n▌ ЄSETSQR x█ Вц15,6 Мь100,300 Ц▀600,700 а▀600,300 к▀ 100,300 ┤ь 600,320 ╛▀ 580,320 ╚▀ 580,300 ╥√ 4 ▄ёК13,6),"HYP" цёК13,15),"ADJ" ЁёК26,9),"OPP" ·ёК8,13),"A1" ёК21,5),"A2" BёК3,20),"ENTER THE INFORMATION IF YOU HAVE IT ELSE ENTER 0" с #"Ї****************************** ,▌ ЄSETOBT 6█ @ц15,6 Jь 100,300 T▀ 600,700 ^▀ 800,300 h▀ 100,300 rь 900,700 |ц 15,3 Ж▀ 900,300 РЁ21,800,300 Ъь 900,700 дЁ 21,600,700 оь 600,700 ╕Ё 21,600,200 ┬ь 800,300 ╠Ё 21,800,200 ╓ь 100,300 рЁ21,100,200 ъ▀ 800,200 Ї▀ 780,180 ■ь 800,200 ▀ 780,220 ь 100,200 ▀ 120,220 &ь 100,200 0▀ 120,180 :ь 580,180 D▀ 620,220 Nь 620,180 X▀ 580,220 bь900,700 l▀ 880,680 vь 900,700 А▀ 920,680 Кь 900,300 Ф▀ 880,320 Юь 900,300 и▀ 920,320 ▓ь 450,750 ╝▀ 580,640 ╞Ё37,5,5 ╨ь 615,640 ┌Ё 37,5,5 ф▀ 700,750 ю√ 4 °ёК13,6),"S1" ёК18,15),"S2" ёК31,9),"S3" ёК8,13),"A1" ёК24,5),"A2" *ёК29,13),"A3" 4ёК37,7),"H" >ёК15,17),"P1" HёК29,17),"P2" RёК17,0),"PA1" \ёК28,0),"PA2" BfёК3,20),"ENTER THE INFORMATION IF YOU HAVE IT ELSE ENTER 0" pс $zЇ******************************* Д▌ ЄNUMERIC(PROMPT$) ОёК2,22),""; %Шё" " вёК2,22),""; мё PROMPT$; ╢ш;INVAL$ (└ч й(INVAL$)> 10 М INVAL$=└INVAL$,10) ╩FLAG1=0 ╘у LOOP = 1╕ й(INVAL$) P▐ч ┴INVAL$,LOOP,1)<>"." А ┴INVAL$,LOOP,1)<"0" Д ┴INVAL$,LOOP,1)>"9" М FLAG1=1 шэ LOOP Єч FLAG1=1 М НtNC №INVAL=а(INVAL$) Ї с !Ї**************************** $▌ ЄANGULAR(PROMPT$) .ёК2,22)""; '8ё" " BёК2,22)""; LёPROMPT$;" DEGREES"; Vш;INDEG$; `FLAG1=0 jу LOOP=1╕й(INDEG$) 8tч ┴INDEG$,LOOP,1)<"0" Д ┴INDEG$,LOOP,1)>"9" М FLAG=1 ~э LOOP Ич FLAG1=1 М НTnD Тч ╗(INDEG$)<0 М НTnD ЬINDEG=а(INDEG$) жЇ ░ёК22,22);" MINUTES"; ║ш;INMIN$; ─FLAG1=0 ╬у LOOP=1╕й(INMIN$) 9╪ч ┴INMIN$,LOOP,1)<"0" Д ┴INMIN$,LOOP,1)>"9" М FLAG1=1 тэ LOOP ьч FLAG1=1 М НTnD Ўч ╗(INMIN$)<0 М НTnD INMIN=а(INMIN$) ч INMIN<0 Д INMIN>59 М НTnD INMIN=INMIN/60 INDEG=INDEG+INMIN (INANG=▓(INDEG) 2с <Ї*************************** #FЇ****************************** P▌ ЄGETSQR ZOPP=0:ADJ=0:HYP=0:A1=0:A2=0 dЄNUMERIC("SIDE OPP'") nOPP=INVAL:ч OPP>0 М CO=CO+1 xЄNUMERIC("SIDE ADJ'") -ВADJ=INVAL:ч ADJ>0 М CO=CO+1:ч CO=2 М Нt`E МЄNUMERIC("SIDE HYP'") ЦHYP=INVAL:ч HYP>0 М CO=CO+1 9ач CO=0 М ёК1,1)"AT LEAST ONE SIDE IS REQUIRED":х НD@F =кч HYP>0 А ADJ>0 А HYP0 А OPP>0 А HYP0 А OPP>0 А ADJ0 А ADJ>0 А HYP=ADJ М ёК1,1)"HYP AND ADJ CANNOT BE EQUAL":хНD@F H╥ч HYP>0 А OPP>0 А OPP=HYP МёК1,1)"HYP AND OPP CANNOT BE EQUAL":хНD@F ▄ч CO=2 М НTlF цЄANGULAR("ACUTE ANGLE A1") ЁA1=INANG:ч A1>0 М CO=CO+1 7·ч Э(A1)>45 Д Э(A1)<0М ёК1,1)"BAD PROPORTION":х НD@F ч CO=2 М НTlF ЄANGULAR("OBTUSE ANGLE A2") A2=INANG:ч A2>0 М CO=CO+1 @"ч A2<>0 А Э(A2)>90 Д Э(A2)<45 М ёК1,1)"BAD PROPORTION":хНD@F ,EROR=0 6с %@EROR=1:ЄSOUND: у DELAY=1╕2500:э:с JЇ******** GET OBT ********** T▌ ЄGETOBT B^S1=0:S2=0:S3=0:A1=0:A2=0:A3=0:PA1=0:PA2=0:P1=0:P2=0:H=0:AREA=0 hЄNUMERIC("BASE S2") rS2=INVAL:ч S2>0 М CO=CO+1 |ЄNUMERIC("LONG SIDE S1") ЖS1=INVAL:ч S1>0 М CO=CO+1 РЄNUMERIC("SHORT SIDE S3") ЪS3=INVAL:ч S3>0 М CO=CO+1 9дч S1>0 А S3>0 А S3>S1 М ёК9,9)"BAD PROPORTION":х НDpH 9оч S1>0 А S2>0 А S1>S2 М ёК9,9)"BAD PROPORTION":х НDpH 9╕ч S2>0 А S3>0 А S3>S2 М ёК9,9)"BAD PROPORTION":х НDpH C╜ч S1>0 А S2>0 А S3>0 А S1+S3=0 М CO=CO+1 :рч P2>0 А S2>0 А P2=>S2 М ёК9,9)"BAD PROPORTION":х НDpH хЄBALANCE ъч CO=3 М НDzH ЇЄNUMERIC("BASE PORTION P1") ■P1=INVAL:ч P1>0 МCO=CO+1 9ч P2>0 А P1>0 А P2>P1 М ёК9,9)"BAD PROPORTION":х НDpH 8ч S2>0 А P1>0 А P1=>S2 МёК9,9)"BAD PROPORTION":хНDpH Aч S2>0 А P1>0 А P2>0 А P1+P2<>S2 М ёК9,9)"BAD ADDITION":хНDpH )&ч CO=3 А S2>0 А P1>0 А P2>0 М CO=CO-1 +ЄBALANCE 0ч CO=3 М НDzH :ЄNUMERIC("HIEGHT H") DH=INVAL:ч H>0 М CO=CO+1 7Nч H>0 А S1>0 А H=>S1 М ёК9,9)"BAD PROPORTION":хНDpH 7Xч H>0 А S3>0 А H=>S3 М ёК9,9)"BAD PROPORTION":хНDpH 7bч H>0 А S2>0 А H>S2 М ёК9,9)"BAD PROPORTION":х НDpH gЄBALANCE lч CO=3 М НDzH vЄANGULAR("ANGLE A1") АA1=INANG:ч A1>0 МCO=CO+1 4Кч A1>0 А Э(A1)>60 М ёК9,9)"BAD PROPORTION":хНDpH 6Оч CO=3 А A1>0 А S1=0 А H=0 А P1=0 А P2=0 М CO=CO-1 ПЄBALANCE Фч CO=3 М НDzH ЮЄANGULAR("ANGLE A3") иA3=INANG:ч A3>0 М CO=CO+1 5▓ч A3>0 А Э(A3)>90 М ёК9,9)"BAD PROPORTION":х НDpH 9╝ч A1>0 А A3>0 А A1>A3 М ёК9,9)"BAD PROPORTION":х НDpH =└ч CO=3 А A3>0 А A1=0 А S3=0 А H=0 А P1=0 А P2=0 М CO=CO-1 ┴ЄBALANCE ╞ч CO=3 МНDzH ╨ЄANGULAR("TOTAL ANGLE A2") ┌A2=INANG:ч A2>0 МCO=CO+1 5фч A2>0 А Э(A2)>180 М ёК9,9)"BAD PROPORTION":хНDpH 7юч A3>0 А A2>0 А A3>A2 МёК9,9)"BAD PROPORTION":хНDpH 7°ч A2>0 А A1>0 А A1>A2 МёК9,9)"BAD PROPORTION":хНDpH ¤ЄBALANCE ч CO=3 М НDzH ЄANGULAR("PART ANGLE PA1") PA1=INANG:ч PA1>0 М CO=CO+1 > ч PA1>0 А A2>0 А PA1>A2 М ёК9,9)"PA1 CANNOT BE >A2":х НDpH E$ч CO=3 А PA1>0 А P1=0 А P2=0 А S1=0 А H=0 А A3=0 А A2=0 М CO=CO-1 %ЄBALANCE *ч CO=3 МНDzH 4ЄANGULAR("PART ANGLE PA2") >PA2=INANG:ч PA2>0 М CO=CO+1 =Hч PA2>0 А A2>0 А PA2>A2 МёК9,9)"PA2 CANNOT BE >A2":х НDpH ;Rч PA2>0 А PA1>0 А PA10 А PA2>0 А A2>0 А PA1+PA2<>A2 М ёК9,9)"BAD ADDITION":хНDpH fх НDzH !pEROR=1:ЄSOUND: у J=1╕2500:э:с zEROR=0:с ДЇ*************************** О▌ ЄCALSQR ШЇ###### A1 ############# вч A1>0 М НTFI мч OPP=0 Д HYP=0 М Нd@H ╢A1=Ш(OPP/HYP):хНTFI └ч ADJ=0 Д HYP=0 М НdTH ╩A1=Х(ADJ/HYP):х НTFI ╘ч OPP=0 Д ADJ=0 М НdhH ▐A1=Щ(OPP/ADJ):х НTFI шч A2=0 М НTFI ЄA1 = ▓(90)-A2 №Ї###### A2 ############# ч A2>0 М НDjI ч HYP=0 Д ADJ=0 М НTdI A2=Ш(ADJ/HYP):хНDjI $ ч OPP=0 Д HYP=0 М НTxI . A2=Х(OPP/HYP):х НDjI 8 ч ADJ=0 Д OPP=0 М НDLI B A2=Щ(ADJ/OPP):хНDjI L ч A1=0 М НDjI V A2=▓(90)-A1:хНDjI ` Ї####### HYP ############# j ч HYP>0 М НdXI t ч OPP = 0 Д ADJ=0 М НtHI ~ HYP = ╢(OPP^2+ADJ^2):хНdXI И ч A1=0 Д OPP=0 М Нt\I Т HYP=OPP/╡(A1):хНdXI Ь ч A1=0 Д ADJ =0 М НtpI ж HYP=ADJ/Ы(A1):хНdXI ░ ч A2=0 Д OPP=0 М НdDI ║ HYP=ADJ/╡(A2):хНdXI ─ ч A2=0 Д A2=0 М НdXI ╬ HYP=OPP/Ы(A2):хНdXI ╪ Ї######## OPP ############ т ч OPP>0 М НDPJ ь ч HYP=0 Д ADJ=0 М НT@J Ў OPP=╢(HYP^2-ADJ^2):х НDPJ ч A1=0 Д HYP=0 М НTTJ OPP=HYP*╡(A1):х НDPJ ч A1=0 Д ADJ=0М НThJ OPP=ADJ*╖(A1):х НDPJ ( ч A2=0 Д ADJ=0 М НT|J 2 OPP=ADJ/╖(A2):х НDPJ < ч A2=0 Д HYP=0 М НDPJ F OPP=HYP*Ы(A2):х НDPJ P Ї####### ADJ ############ Z ч ADJ>0 М НdHJ d ч HYP=0 Д OPP=0 М НDxJ n ADJ=╢(HYP^2-OPP^2):х НdHJ x ч A1=0 Д HYP=0 М НtLJ В ADJ=HYP*Ы(A1):х НdHJ М ч A2=0 Д HYP=0 М Нt`J Ц ADJ=HYP*╡(A2):х НdHJ а ч OPP=0 Д A2=0 М НttJ к ADJ=OPP*╖(A2):х НdHJ ┤ ч OPP=0 Д A1=0 М НdHJ ╛ ADJ=OPP*(1/╖(A1)):хНdHJ ╚ Ї####################### 1╥ ч A1=0 Д A2 =0 Д ADJ=0 Д OPP=0 Д HYP=0 М НtXH ▄ AREA=(OPP*ADJ)/2 ц с !Ё Ї####### CALC OBLIQUE ####### · ▌ ЄCALOBT ї чA1>0ДA3=0 Д A2=0 М НTbK A1=▓(180)-(A2+A3) "чA2>0 Д A1=0 Д A3 =0 М НTvK ,A2=▓(180)-(A1+A3) 6ч A3>0 Д A2=0 Д A1=0 М НDJK @A3=▓(180)-(A1+A2) 'Jч S3>0 Д S2=0 Д A1=0 Д A2 =0 М НD^K TS3=(S2*╡(A1))/╡(A2) &^ч A1>0 Д S1=0 Д S3=0 Д A2=0 М НDrK $hA1=Щ((S3*╡(A2))/(S1-(S3*Ы(A2)))) &rч S1>0 Д S2=0 Д A2=0 Д A3=0 М НtFK |S1=(S2*╡(A3))/╡(A2) &Жч A2>0 Д S1=0 Д A3=0 Д S3=0 М НtZK $РA2=Щ((S1*╡(A3))/(S3-(S1*Ы(A3)))) &Ъч A1>0 Д S3=0 Д A2=0 Д S2=0 М НtnK дA1=Ш((S3*╡(A2))/S2) &оч A3>0 Д S2=0 Д A2=0 Д S1=0 М НdBK ╕A3=Ш((S1*╡(A2))/S2) ┬ч S2>0 Д P1=0 Д P2=0 М НdVK ╠S2=P1+P2 ╓ч PA1>0 Д A1=0 М НdjK рPA1=▓(90)-A1 ъч PA2>0 Д A3=0 М Нd~K ЇPA2=▓(90)-A3 !■ч A2>0 Д PA1=0 Д PA2=0 М НTRL A2=PA1+PA2 ч H>0 Д A3=0 Д S3=0 М НTfL H=S3*╡(A3) &ч H>0 Д A1=0 Д S1=0 М НTzL 0H=S1*╡(A1) :ч H>0 Д S1=0 Д P1=0 М НDNL DH=╢(S1^2-P1^2) Nч H>0 Д S3=0 Д P2=0 М НDbL XH=╢(S3^2-P2^2) bч A1>0 Д PA1=0 М НDvL lA1=▓(90)-PA1 vч A3>0 Д PA2=0 М НtJL АA3=▓(90)-PA2 Кч P1>0 Д PA1=0 Д S1=0 М Нt^L ФP1=S1*╡(PA1) Юч P2>0 Д PA2=0 Д S3=0 М НtrL иP2=S3*╡(PA2) !▓ч PA1>0 Д A2=0 Д PA2=0 М НdFL ╝PA1=A2-PA2 !╞ч PA2>0 Д A2=0 Д PA1=0 М НdZL ╨PA2=A2-PA1 ┌ч A1>0 Д S1=0 Д H=0 М НdnL фA1=Ш(H/S1) юч A3>0 Д H=0 Д S3=0 М НTBM °A3=Ш(H/S3) ч S3>0 Д H=0 Д P2=0 М НTVM S3=╢(H^2+P2^2) ч S1>0 Д H=0 Д P1=0 М НTjM S1=╢(H^2+P1^2) * ч S1>0 Д A1=0 Д H=0 М НT~M 4 S1=H/╡(A1) > ч S1>0 Д A1=0 Д P1=0 М НDRM H S1=P1/Ы(A1) R ч S3>0 Д A3=0 Д H=0 М НDfM \ S3=H/╡(A3) f ч S3>0 Д A3=0 Д P2=0 М НDzM p S3=P2/Ы(A3) z Ї Д ч A1>0 Д P1=0 Д H=0 М НtXM О A1=Щ(H/P1) Ш ч A3>0 Д P2=0 Д H=0 М НtlM в A3=Щ(H/P2) &м ч A2>0 Д S3=0 Д S1=0 Д S2=0 М Нd@M (╢ A2=Х(((S1^2+S3^2)-S2^2)/(2*(S1*S3))) └ ч P1>0 Д P2=0 Д S2=0 М НdTM ╩ P1=S2-P2 ╘ ч P2>0 Д P1=0 Д S2=0 М НdhM ▐ P2=S2-P1 ш ч P1>0 Д H=0 Д S1=0 М Нd|M Є P1=╢(S1^2-H^2) № ч P2>0 Д S3=0 Д H=0 М НTPN P2=╢(S3^2-H^2) ч H>0 Д S1=0 Д PA1=0 М НTdN H=S1/Ы(PA1) $ч H>0 Д S3=0 Д PA2=0 М НTxN .H=S3/Ы(PA2) 8ч H>0 Д PA1=0 Д P1=0 М НDLN BH=P1/╖(PA1) Lч H>0 Д P2=0 Д PA2=0 М НD`N VH=P2/╖(PA2) `ч H>0 Д A1=0 Д P1=0 М НDtN jH=P1*╖(A1) tч H>0 Д A3=0 Д P2=0 М НtHN ~H=P2*╖(A3) Ич P1>0 Д PA1=0 Д H=0 М Нt\N ТP1=H*╖(PA1) Ьч P2>0 Д PA2=0 Д H=0 М НtpN жP2=H*╖(PA2) ░ч P1>0 Д A1=0 Д S1=0 М НdDN ║P1=S1*Ы(A1) ─ч P2>0 Д A3=0 Д S3=0 М НdXN ╬P2=S3*Ы(A3) ╪ч S1>0 Д P1=0 Д PA1=0 М НdlN тS1=P1/╡(PA1) ьч S3>0 Д P2=0 Д PA2=0 М НT@O ЎS3=P2/╡(PA2) ч S1>0 Д H=0 Д PA1=0 М НTTO S1=H/Ы(PA1) ч S3>0 Д H=0 Д PA2=0 М НThO S3=H/Ы(PA2) (ч PA1>0 Д S1=0 Д P1=0 М НT|O 2PA1=Ш(P1/S1) <ч PA2>0 Д S3=0 Д P2=0 М НDPO FPA2=Ш(P2/S3) Pч PA1>0 Д H=0 Д P1=0 М НDdO ZPA1=Щ(P1/H) dч PA2>0 Д H=0 Д P2=0 М НDxO nPA2=Щ(P2/H) )xч AREA>0 Д S2=0 Д S1=0 Д A1=0 М НDzO yAREA=(S2*S1*╡(A1))/2 zЇ ВЇ МЇ #ЦЇ****************************** аCO=CO+1 к¤ CO=4 ┤с ╛Ї######## TEST ########## ╚ЄSETSQR ╥EROR=0:CO=0 ▄ЄGETSQR цч EROR =1 М Нt~O ЁЄCALSQR ·ёК0,20)─120," ") ёК0,19)" HYP=";HYP ёК14,19)" ADJ=";ADJ ёК27,19)" OPP=";OPP A1=Э(A1):ЄROUND(A1):A1=AX 4"ёК0,20)" A1=";и(A1);" D ";и(60*(A1-и(A1)));" M " 'A2=Э(A2):ЄROUND(A2):A2=AX 5,ёК14,20)" A2=";и(A2);" D ";и(60*(A2-и(A2)));" M " 6ёК27,20)" AREA=";AREA; @х НtHS JЇ*********************** TЄSETOBT ^EROR=0:CO=0 hЄGETOBT rч EROR=1 М НDJP |CO=0 ЖЄCALOBT РёК1,18)─120," ") ЪёК0,21)─80," "),; дёК0,18)" S1=";S1 оёК14,18)" S2=";S2 ╕ёК27,18)" S3=";S3 ┬ёК0,19)" P1=";P1 ╠ёК14,19)" P2=";P2 ╓ёК27,19)" H=";H █A1=Э(A1):ЄROUND(A1):A1=AX 4рёК0,20)" A1=";и(A1);" D ";и(60*(A1-и(A1)));" M " хA2=Э(A2):ЄROUND(A2):A2=AX 5ъёК14,20)" A2=";и(A2);" D ";и(60*(A2-и(A2)));" M " яA3=Э(A3):ЄROUND(A3):A3=AX 5ЇёК27,20)" A3=";и(A3);" D ";и(60*(A3-и(A3)));" M " !∙PA1=Э(PA1):ЄROUND(PA1):PA1=AX 8■ёК0,21)" PA1=";и(PA1);" D ";и(60*(PA1-и(PA1)));" M " !PA2=Э(PA2):ЄROUND(PA2):PA2=AX 9ёК14,21)" PA2=";и(PA2);" D ";и(60*(PA2-и(PA2)));" M " ёК27,21)" AREA=";AREA,; х НtHS Ї &▌ ЄBALANCE #0Ї### TEST FOR ONE SIDED INPUTS# 8:ч CO=3 А A3=0 А PA2=0 А S3=0 А P2=0 А A2=0 М CO=CO-1 8Dч CO=3 А A1=0 А PA1=0 А S1=0 А P1=0 А A2=0 М CO=CO-1 Nс X▌ ЄSOUND YX=1 Zу LOOP=150 ╕ 0 И-20 b╘ 1,-9,LOOP,X lу DELAY=1╕20:э v╘ 2,-9,LOOP+10,X Ау DELAY=1╕20:э К╘ 3,-9,LOOP+20,X Фу DELAY=1╕20:э Юэ LOOP и╘ 1,0,0,0 ▓╘ 2,0,0,0 ╝╘ 3,0,0,0 ╞с ИЇ#### WAIT FOR KEY####### Н√ 12 ,ТёК0,9)"PRESS THE SPACE BAR FOR MENU",; Ь╘ 1,-9,100,1 жу DELAY=1╕100:э ░╘1,0,0,0 $║G$=┐(500):ч G$<>" "М НtS Л НdDS )┐ёК0,9)" ",; └хНtRS ─∙ pЇ###### ERROR HANDLING##### zч Я=17 М ∙ Д█ ёОё"AN ERROR HAS BEEN DETECTED, THIS MAY BE DUE TO AN INCORRECT INPUT OR A PROGRAM FAULT. AFTER MAKING SURE THE DISC IS IN PRESS THE SPACE BAR AND THE PROGRAMM WILL BE RE-LOADED. WHEN RE-ENTERING YOUR INFORMATION ENSURE THAT IT IS" "Шё"PROPORTIONAL TO THE DIAGRAM" вG$=╛ мч G$=" " М ╫"TRIG" XЇ**** ANGLE ROUNDING ****** b▌ ЄROUND(AN) *lч AN+.008=>и(AN)+1 М AX=и(AN)+1Л AX=AN vс (AN)+1Л AX=AN vс =и(AN)+1Л AX=AN