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