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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
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)
|
