1 files changed, 52 insertions, 0 deletions
diff --git a/3782/CH9/EX9.6/Ex9_6.sce b/3782/CH9/EX9.6/Ex9_6.sce
new file mode 100644
index 000000000..fdbe3d6f4
--- /dev/null
+++ b/3782/CH9/EX9.6/Ex9_6.sce
@@ -0,0 +1,52 @@
+
+//ch-9 page 308   pb-6
+//
+
+//
+
+l1=130,l2=215,l3=155.5,l4=120,
+
+t1=20.5,t2=60.25,t3=30.5,t4=80.5,
+
+
+
+L1=l1*cos(t1*(%pi/180))
+L2=l2*cos(t2*(%pi/180))
+L3=-l3*cos(t3*(%pi/180))
+L4=l4*cos(t4*(%pi/180))
+printf("\n latitudes of AB,BC,CD,DE are %0.3f %0.3f %0.3f %0.3f",L1,L2,L3,L4)
+
+
+D1=l1*sin(t1*(%pi/180))
+D2=l2*sin(t2*(%pi/180))
+D3=l3*sin(t3*(%pi/180))
+D4=l4*sin(t4*(%pi/180))
+printf("\n Depature of AB,BC,CD,DE are %0.3f %0.3f %0.3f %0.3f",D1,D2,D3,D4)
+
+L5=-(L1+L2+L3+L4)
+D5=-(D1+D2+D3+D4)
+
+l5=sqrt(L5*L5+(D5*D5))
+
+printf("\n length of EA= %0.3f meters',l5)
+
+t5=atan(D5/L5)
+t5=t5*(180/%pi)
+printf("\n bearing of EA= %0.3f ",t5)
+
+FA=l5/2
+l6=FA
+t6=t5
+L6=-l6*cos(t6*(%pi/180))
+D6=-l6*sin(t6*(%pi/180))
+
+L7=-(L1+L2+L6)
+D7=-(D1+D2+D6)
+
+t7=atan(D7/L7)
+t7=t7*(180/%pi)
+printf("\n bearing from F to C is = %0.3f ",t7)
+
+l7=sqrt(L7*L7+(D7*D7))
+
+printf("\n distance from F to C is = %0.3f ",l7)