initial commit / add all books

8 files changed, 116 insertions, 0 deletions

diff --git a/1844/CH5/EX5.1/1.sce b/1844/CH5/EX5.1/1.sce
new file mode 100644
index 000000000..0478ddd81
--- /dev/null
+++ b/1844/CH5/EX5.1/1.sce
@@ -0,0 +1,7 @@
+clc

+// doing only one of the given 

+// WCB to RB

+a= 22.5

+printf('a)R.B = N 22.5 E\n')

+//RB to WCB

+printf(' b)W.C.B = 12 degrees 24 min')

diff --git a/1844/CH5/EX5.2/2.sce b/1844/CH5/EX5.2/2.sce
new file mode 100644
index 000000000..172cfd3f1
--- /dev/null
+++ b/1844/CH5/EX5.2/2.sce
@@ -0,0 +1,23 @@
+clc

+// done for WCB only

+FB=12.4

+if FB < 180 then BB= FB+180;

+else BB= FB-180;

+end

+printf('B.B of AB = %f\n',BB)

+FB=119.8

+if FB < 180 then BB= FB+180;

+else BB= FB-180;

+end

+printf(' B.B of BC = %f\n',BB)

+FB=266.5

+if FB < 180 then BB= FB+180;

+else BB= FB-180;

+end

+printf(' B.B of CD = %f\n',BB)

+FB=354.3

+if FB < 180 then BB= FB+180;

+else BB= FB-180;

+end

+printf(' B.B of DE = %f\n',BB)

+// for the RB values given just change the direction if north put south and if east put west

diff --git a/1844/CH5/EX5.3/3.sce b/1844/CH5/EX5.3/3.sce
new file mode 100644
index 000000000..1bc59afe5
--- /dev/null
+++ b/1844/CH5/EX5.3/3.sce
@@ -0,0 +1,26 @@
+clc

+// for A

+Bp=300-180

+Bn=60.5

+IA=Bp-Bn

+printf('Interior angle A = %f\n',IA)

+//for B

+Bp=60.5+180

+Bn=122

+IA=Bp-Bn

+printf(' Interior angle B = %f\n',IA)

+// for C

+Bp=122+180

+Bn=46

+IA=Bp-Bn

+printf(' Interior angle C = %f\n',IA)

+//for D

+Bp=46+180

+Bn=205.5

+IA=Bp-Bn

+printf(' Interior angle D = %f\n',IA)

+//for E

+Bp=205.5-180

+Bn=300-360

+IA=Bp-Bn

+printf(' Interior angle E = %f\n',IA)

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)

diff --git a/1844/CH5/EX5.5/5.sce b/1844/CH5/EX5.5/5.sce
new file mode 100644
index 000000000..b98892ae9
--- /dev/null
+++ b/1844/CH5/EX5.5/5.sce
@@ -0,0 +1,5 @@
+clc

+MB=48+24/60

+MD=5+38/60

+TB=MB+MD

+printf('True Bearing = %f',TB)

diff --git a/1844/CH5/EX5.6/6.sce b/1844/CH5/EX5.6/6.sce
new file mode 100644
index 000000000..a9f2841c8
--- /dev/null
+++ b/1844/CH5/EX5.6/6.sce
@@ -0,0 +1,5 @@
+clc

+MB= 28.5

+MD=7.5

+TB=MB+MD

+printf('True bearing = S %f N',TB)

diff --git a/1844/CH5/EX5.7/7.sce b/1844/CH5/EX5.7/7.sce
new file mode 100644
index 000000000..db40c75de
--- /dev/null
+++ b/1844/CH5/EX5.7/7.sce
@@ -0,0 +1,8 @@
+clc

+MB=5.5

+MD=1

+PD=8.5

+TB=MB+MD

+MB=TB-PD

+k=360+MB

+printf('Magnetic Bearing = %f degrees',k)

diff --git a/1844/CH5/EX5.8/8.sce b/1844/CH5/EX5.8/8.sce
new file mode 100644
index 000000000..066e6c3fc
--- /dev/null
+++ b/1844/CH5/EX5.8/8.sce
@@ -0,0 +1,9 @@
+clc

+TB=180

+MB=184

+MD=TB-MB

+printf('Declination = %f E\n',MD)

+TB=360

+MB=350+2/6

+MD=TB-MB

+printf(' Declination = %f E',MD)