blob: 0b601a278c051cc73ae7a2892b177d73285bac77 (
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
|
clc
B=180+60
I=140+1/6
B1=B+I-180
if B1>180 then B2= B1-180;
else B2=B1+180;
end
printf('Bearing of AD = %f\n',B1)
printf(' Bearing of DA = %f\n',B2)
B=B1
I=69+2/6
B1=B+I-180
if B1>180 then B2= B1-180;
else B2=B1+180;
end
printf(' Bearing of DC = %f\n',B1)
printf(' Bearing of CD = %f\n',B2)
B=B1
I=60+22/60
B1=B+I+180
if B1>180 then B2= B1-180;
else B2=B1+180;
end
printf(' Bearing of CB = %f\n',B1)
printf(' Bearing of BC = %f\n',B2)
B=B1
I=90+8/60
B1=B+I-180
if B1>180 then B2= B1-180;
else B2=B1+180;
end
printf(' Bearing of BA = %f\n',B1)
printf(' Bearing of AB = %f\n',B2)
|
