7 files changed, 267 insertions, 0 deletions
diff --git a/3782/CH9/EX9.1/Ex9_1.sce b/3782/CH9/EX9.1/Ex9_1.sce
new file mode 100644
index 000000000..078b35314
--- /dev/null
+++ b/3782/CH9/EX9.1/Ex9_1.sce
@@ -0,0 +1,36 @@
+
+//
+
+//
+
+l1=75.5
+l2=180.5
+l3=60.25
+
+t1=30.4,t2=69.4,t3=30.5,
+
+t2=180-t2
+t3=180-t3
+
+Lc1=l1*cos(t1*(%pi/180))
+Lc2=l2*cos(t2*(%pi/180))
+Lc3=l3*cos(t3*(%pi/180))
+
+Ls1=l1*sin(t1*(%pi/180))
+Ls2=l2*sin(t2*(%pi/180))
+Ls3=-l3*sin(t3*(%pi/180))
+
+printf("\n Lc1,Lc2,Lc3")
+printf("\n Ls1,Ls2,Ls3")
+Lc4=-Lc1-Lc2-Lc3
+Ls4=-Ls1-Ls2-Ls3
+
+printf("\n Lc4,Ls4")
+
+t4=-atan(Ls4/Lc4)
+t4=t4*(180/%pi)
+
+l4=sqrt(Lc4*Lc4+Ls4*Ls4)
+
+printf("\n distance DA= %0.3f ",l4)
+printf("\n bearing of DA= %0.3f ",t4)
diff --git a/3782/CH9/EX9.2/Ex9_2.sce b/3782/CH9/EX9.2/Ex9_2.sce
new file mode 100644
index 000000000..26e39976b
--- /dev/null
+++ b/3782/CH9/EX9.2/Ex9_2.sce
@@ -0,0 +1,41 @@
+
+//
+
+//
+
+l1=100
+l2=80
+l3=60
+
+t2=39.5,t3=40.5,t4=49.75,
+
+
+L2=l2*cos(t2*(%pi/180))
+L3=l3*cos(t3*(%pi/180))
+
+D2=l2*sin(t2*(%pi/180))
+D3=l3*sin(t3*(%pi/180))
+
+l41=(157.86+sqrt(157.86*157.86-4*1757.5))/2
+l42=(157.86-sqrt(157.86*157.86-4*1757.5))/2
+
+printf("\n length of DA is %0.3f or %0.3f ",l41,l42)
+
+printf("\n when length of DA ,L=145.8')
+
+k=cos(t4*(%pi/180))
+k1=(L2+L3-(k*l41))/100
+t1=acos(k1)
+t1=t1*(180/(%pi))
+printf("\n bearing at AB is=N %0.3f ",t1)
+
+
+printf("\n when length of DA ,L=12.04')
+
+k=cos(t4*(%pi/180))
+k1=(L2+L3-(k*l42))/100
+k1=k1+0.004
+t11=acos(k1)
+t11=t11*(180/(%pi))
+printf("\n k1")
+printf("\n bearing at AB is=N %0.3f ",t11)
diff --git a/3782/CH9/EX9.3/Ex9_3.sce b/3782/CH9/EX9.3/Ex9_3.sce
new file mode 100644
index 000000000..3c714e0b3
--- /dev/null
+++ b/3782/CH9/EX9.3/Ex9_3.sce
@@ -0,0 +1,36 @@
+
+//ch-9 page 305   pb-3
+//
+
+//
+
+l1=100.5,l3=75,l4=50.5,
+
+t1=30.5,t2=45,t3=40.5,t4=60,t5=40.25,
+
+
+
+L1=l1*cos(t1*(%pi/180))
+L3=-l3*cos(t3*(%pi/180))
+L4=-l4*cos(t4*(%pi/180))
+
+printf("\n latitude of AB,CD,DE are %0.3f %0.3f %0.3f",L1,L3,L4)
+D1=l1*sin(t1*(%pi/180))
+D3=-l3*sin(t3*(%pi/180))
+D4=-l4*sin(t4*(%pi/180))
+printf("\n Depature of AB,CD,DE are %0.3f %0.3f %0.3f",D1,D3,D4)
+
+L2_L5=-(L1+L3+L4)
+D2_D5=-(D1+D3+D4)
+printf("\n L2_L5,D2_D5")
+
+k=0.117
+l5=(L2_L5+D2_D5)/(k)
+
+k1=0.763
+
+l2=(k1*l5)-L2_L5
+l2=l2/0.707
+
+printf("\n length of BC= %0.3f ",l2)
+printf("\n length of EA= %0.3f ",l5)
diff --git a/3782/CH9/EX9.4/Ex9_4.sce b/3782/CH9/EX9.4/Ex9_4.sce
new file mode 100644
index 000000000..f6a49af30
--- /dev/null
+++ b/3782/CH9/EX9.4/Ex9_4.sce
@@ -0,0 +1,29 @@
+
+//ch-9 page 307   pb-4
+//
+
+//
+
+l1=75.5,l2=80.25,l3=75,
+
+t1=30.25,t2=40.5,t3=60.5,
+
+
+
+L1=l1*cos(t1*(%pi/180))
+L2=-l2*cos(t2*(%pi/180))
+L3=-l3*cos(t3*(%pi/180))
+printf("\n latitudes of AQ,QR,RB are %0.3f %0.3f %0.3f",L1,L2,L3)
+
+
+D1=l1*sin(t1*(%pi/180))
+D2=l2*sin(t2*(%pi/180))
+D3=-l3*sin(t3*(%pi/180))
+printf("\n Depature of AQ,QR,RB are %0.3f %0.3f %0.3f",D1,D2,D3)
+
+L4=-(L1+L2+L3)
+D4=-(D1+D2+D3)
+
+l4=sqrt(L4*L4+(D4*D4))
+
+printf("\n length of AB= %0.3f meters',l4)
diff --git a/3782/CH9/EX9.5/Ex9_5.sce b/3782/CH9/EX9.5/Ex9_5.sce
new file mode 100644
index 000000000..d50fd881e
--- /dev/null
+++ b/3782/CH9/EX9.5/Ex9_5.sce
@@ -0,0 +1,38 @@
+
+//ch-9 page 308   pb-5
+//
+
+//
+
+l1=150.5,l2=200,l3=125,
+
+t1=50.25,t2=30.5,t3=60.5,
+
+
+
+L1=-l1*cos(t1*(%pi/180))
+L2=-l2*cos(t2*(%pi/180))
+L3=-l3*cos(t3*(%pi/180))
+printf("\n latitudes of BQ,QP,PA are %0.3f %0.3f %0.3f",L1,L2,L3)
+
+
+D1=l1*sin(t1*(%pi/180))
+D2=-l2*sin(t2*(%pi/180))
+D3=-l3*sin(t3*(%pi/180))
+printf("\n Depature of BQ,QP,PA are %0.3f %0.3f %0.3f",D1,D2,D3)
+
+L4=-(L1+L2+L3)
+D4=-(D1+D2+D3)
+
+l4=sqrt(L4*L4+(D4*D4))
+
+printf("\n length of AB= %0.3f meters',l4)
+
+t4=atan(D4/L4)
+t4=t4*(180/%pi)
+printf("\n bearing of AB= %0.3f ",t4)
+
+PAB=t3-t4
+QBA=t1+t4
+
+printf("\n PAB= %0.3f QBA= %0.3f ",PAB,QBA)
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)
diff --git a/3782/CH9/EX9.7/Ex9_7.sce b/3782/CH9/EX9.7/Ex9_7.sce
new file mode 100644
index 000000000..64d402d75
--- /dev/null
+++ b/3782/CH9/EX9.7/Ex9_7.sce
@@ -0,0 +1,35 @@
+
+//ch-9 page 308   pb-7
+//
+
+//
+
+l1=725,l2=1050,l3=1250,l4=950,l5=575,
+
+t1=60,t4=55.5,t5=2.75,
+
+
+
+L1=l1*cos(t1*(%pi/180))
+L4=-l4*cos(t4*(%pi/180))
+L5=-l5*cos(t5*(%pi/180))
+printf("\n latitudes of AB,DE,EA are %0.3f %0.3f %0.3f",L1,L4,L5)
+
+
+D1=l1*sin(t1*(%pi/180))
+D4=-l4*sin(t4*(%pi/180))
+D5=-l5*sin(t5*(%pi/180))
+printf("\n Depature of AB,DE,EA are %0.3f %0.3f %0.3f",D1,D4,D5)
+
+t2_t3=acos(0.1750)
+t2_t3=180-(t2_t3*(180/%pi))
+
+printf("\n t2-t3= %0.3f ",t2_t3)
+
+t3=asin(0.6035)
+t3=t3*(180/%pi)
+t2=t2_t3-t3
+t2=ceil(t2)
+
+printf("\n Bearing of BC is %0.3f ",t2)
+printf("\n Bearing of CD is %0.3f ",t3)