From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001 From: prashantsinalkar Date: Tue, 10 Oct 2017 12:27:19 +0530 Subject: initial commit / add all books --- 3782/CH9/EX9.5/Ex9_5.sce | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 3782/CH9/EX9.5/Ex9_5.sce (limited to '3782/CH9/EX9.5/Ex9_5.sce') 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) -- cgit