octave:4> FG=.8964; octave:5> EF=.89656; octave:6> EG=1.732; octave:7> EGperp = FG*sind(15) EGperp = 0.232005392029900 octave:8> EGleft = EG-FG*cosd(15) EGleft = 0.866144089314479 octave:9> EGright = EG-FG*cosd(15) EGright = 0.866144089314479 octave:10> EGleft = FG*cosd(15) EGleft = 0.865855910685521 octave:11> Eang = asind(EGperp/EF) Eang = 14.9972602374402 octave:12> Fang=180-30 Fang = 150 octave:13> EF*cosd(30)+FG ans = 1.67284373601698 octave:14> EG*cosd(15) ans = 1.67298353113267 octave:15> CH=.59;CF=1.1051;FH=.52205; octave:16> CF1=(CH*CH-FH*FH+CF*CF)/(2*CF) CF1 = 0.586738669577414 octave:17> CF2=CF-CF1 CF2 = 0.518361330422586 octave:18> CFperp = sqrt(CH*CH-CF1*CF1) CFperp = 0.0619494440856937 octave:19> CFperp = sqrt(CH*H-CF1*CF1) error: `H' undefined near line 19 column 18 error: evaluating argument list element number 1 error: evaluating argument list element number 1 octave:19> CFperp = sqrt(FH*FH-CF2*CF2) CFperp = 0.0619494440856928 octave:20> Cang = atand(CFperp/CF1) Cang = 6.02711227438717 octave:21> angF = atand(CFperp/CF2) angF = 6.81510429862157 octave:22> Hang = 180-Cang-angF Hang = 167.157783426991 octave:23> CH+FH*cosd(180-Hang) ans = 1.09899136228814 octave:24> sind(180-Hang)*FH ans = 0.116034458744236 octave:25> 0.116034458744236^2 + 1.09899136228814^2 ans = 1.22124601000001 octave:26> CF CF = 1.10510000000000 octave:27> FH FH = 0.522050000000000 octave:28> CH CH = 0.590000000000000 octave:29> CF CF = 1.10510000000000 octave:30> octave:30> octave:30> CH+FH*cosd(180-Hang) ans = 1.09899136228814 octave:31> 0.116034458744236^2 + 1.09899136228814^2 ans = 1.22124601000001 octave:32> CF*CF ans = 1.22124601000000 octave:33> B=[1 .574];A=[1.599,.75];D=[1.366 1.366]; octave:34> A-B ans = 0.599000000000000 0.176000000000000 octave:35> D-B ans = 0.366000000000000 0.792000000000000 octave:36> exit