summaryrefslogtreecommitdiff
path: root/3782/CH9/EX9.7/Ex9_7.sce
blob: 64d402d75954d8dc17d2d02ba7df465c3ff04bbb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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)