1 files changed, 33 insertions, 0 deletions
diff --git a/1844/CH5/EX5.4/4.sce b/1844/CH5/EX5.4/4.sce
new file mode 100644
index 000000000..0b601a278
--- /dev/null
+++ b/1844/CH5/EX5.4/4.sce
@@ -0,0 +1,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)