17 files changed, 408 insertions, 0 deletions
diff --git a/3782/CH5/EX5.1/Ex5_1.sce b/3782/CH5/EX5.1/Ex5_1.sce
new file mode 100644
index 000000000..d7a26bfef
--- /dev/null
+++ b/3782/CH5/EX5.1/Ex5_1.sce
@@ -0,0 +1,29 @@
+
+//
+
+//
+
+a=150
+b=100
+ar=2.525
+br=1.755
+
+sc=1000
+d=(a*a)/(sc*sc)
+
+A=0.0673*d*d
+
+fa=ar-A
+
+printf("\n correct reading on A = %0.3f meters',fa)
+
+
+d=(b*b)/(sc*sc)
+
+B=0.0673*d*d
+fb=br-B
+
+printf("\n correct reading of B = %0.3f meters',fb)
+
+AB=fa-fb
+printf("\n true difference is %0.3f meters',AB)
diff --git a/3782/CH5/EX5.10/Ex5_10.sce b/3782/CH5/EX5.10/Ex5_10.sce
new file mode 100644
index 000000000..09a905a19
--- /dev/null
+++ b/3782/CH5/EX5.10/Ex5_10.sce
@@ -0,0 +1,28 @@
+
+//
+
+//
+
+aa=1.155
+ab=2.595
+ba=0.985
+bb=2.415
+
+td=((ab-aa)+(bb-ba))/2
+
+rla=525.5
+rlb=rla-td
+dab=500
+printf("\n true RL of B %0.3f meters',rlb)
+
+dab1=dab/1000
+
+correct=0.0673*dab1*dab1
+printf("\n combined corrction for 500m= %0.3f meters',correct)
+
+sc=100
+a=1.155
+e=-(0.0118*sc)/(dab)
+
+
+printf("\n collimation error per 100m= %0.3f meters',e)
diff --git a/3782/CH5/EX5.11/Ex5_11.sce b/3782/CH5/EX5.11/Ex5_11.sce
new file mode 100644
index 000000000..79cf31460
--- /dev/null
+++ b/3782/CH5/EX5.11/Ex5_11.sce
@@ -0,0 +1,24 @@
+
+//
+
+//
+
+aa=1.725
+ab=1.370
+ba=1.560
+bb=1.235
+
+A=aa-ab
+B=ba-bb
+
+AB=(A+B)/2
+
+printf("\n true difference between A and B is  %0.3f meters',AB)
+
+CB=bb
+CA=CB+AB
+
+OCA=1.560
+e=OCA-CA
+
+printf("\n amount of collimation error = %0.3f meters',e)
diff --git a/3782/CH5/EX5.12/Ex5_12.sce b/3782/CH5/EX5.12/Ex5_12.sce
new file mode 100644
index 000000000..f237aac99
--- /dev/null
+++ b/3782/CH5/EX5.12/Ex5_12.sce
@@ -0,0 +1,37 @@
+
+//
+
+//
+
+aa=1.725
+ab=2.245
+ba=2.145
+bb=3.045
+
+AB=200
+rla=450
+
+
+aAB=ab-aa
+
+printf("\n apparent difference of level between A and B is %0.3f meters',aAB)
+
+dB=bb-ba
+
+printf("\n apparent difference of level at B %0.3f meters',dB)
+
+td=(aAB+dB)/2
+
+printf("\n true differece of level= %0.3f ",td)
+
+CB=bb
+
+CA=CB-td
+
+e=ba-CA
+
+printf("\n correction to be applied at A is = %0.3f ",e)
+
+rlb=rla-td
+
+printf("\n RL of B= %0.3f meters',rlb)
diff --git a/3782/CH5/EX5.13/Ex5_13.sce b/3782/CH5/EX5.13/Ex5_13.sce
new file mode 100644
index 000000000..c616785de
--- /dev/null
+++ b/3782/CH5/EX5.13/Ex5_13.sce
@@ -0,0 +1,37 @@
+
+//
+
+//
+
+aa=1.725
+ab=2.245
+ba=2.145
+bb=3.045
+dAB=200
+rla=450.0
+AB=ab-aa
+printf("\n AB")
+adif=bb-ba
+
+printf("\n apparent difference of level = %0.3f meters',adif)
+
+//a
+td=(AB+adif)/2
+printf("\n true difference of level= %0.3f meters',td)
+//b
+
+tb=bb
+ta=bb-td
+
+printf("\n true reading on A= %0.3f meters',ta)
+
+//c
+
+e=ba-ta
+
+printf("\n collimation error = %0.3f meters',e)
+
+//d
+
+rlb=rla-td
+printf("\n RL of B= %0.3f meters',rlb)
diff --git a/3782/CH5/EX5.14/Ex5_14.sce b/3782/CH5/EX5.14/Ex5_14.sce
new file mode 100644
index 000000000..ef80ead15
--- /dev/null
+++ b/3782/CH5/EX5.14/Ex5_14.sce
@@ -0,0 +1,22 @@
+
+//
+//
+
+ma=1.585
+mb=1.225
+aa=1.425
+ab=1.150
+
+dAB=100
+
+//a
+td=ma-mb
+B=aa-td
+
+printf("\n correct staff reading on B should be = %0.3f meters',B)
+
+//c
+
+
+e=ab-B
+printf("\n collimation error is  %0.3f meters',e)
diff --git a/3782/CH5/EX5.15/Ex5_15.sce b/3782/CH5/EX5.15/Ex5_15.sce
new file mode 100644
index 000000000..a99cbab30
--- /dev/null
+++ b/3782/CH5/EX5.15/Ex5_15.sce
@@ -0,0 +1,35 @@
+
+//ch-5 page 187  pb-3
+
+//
+//
+
+dAB=100
+
+aa=1.875
+ab=1.790
+
+le=10
+
+ba=1.630
+bb=1.560
+
+
+td=aa-ab
+
+apd=ba-bb
+printf("\n first setting')
+printf("\n true difference is %0.3f meters',td)
+printf("\n apparent difference of level = %0.3f meters',apd)
+
+printf("\n second setting')
+
+A=ba-td
+
+e1=bb-A
+
+cA=(le/dAB)*e1
+cB=((le+dAB)/dAB)*e1
+printf("\n collimation error is %0.3f meters',e1)
+printf("\n correction at A= %0.3f meters',cA)
+printf("\n correction at B= %0.3f meters',cB)
diff --git a/3782/CH5/EX5.16/Ex5_16.sce b/3782/CH5/EX5.16/Ex5_16.sce
new file mode 100644
index 000000000..c2c243232
--- /dev/null
+++ b/3782/CH5/EX5.16/Ex5_16.sce
@@ -0,0 +1,36 @@
+
+//
+//
+
+bs1=2.375,bs2=2.835,bs3=0.435,
+
+is1=1.730,is2=0.615,is3=2.070,is4=1.835,is5=1.630,
+
+is6=2.255
+fs1=3.450,fs2=0.985,fs3=3.630,
+
+
+sbs=bs1+bs2+bs3
+sis=is1+is2+is3+is4+is5+is6
+sfs=fs1+fs2+fs3
+
+r1=bs1-is1
+r2=is1-is2
+r3=bs2-is3
+r4=is3-is4
+r5=is4-fs2
+sr=r1+r2+r3+r4+r5
+printf("\n r1,r2,r3,r4,r5,sr")
+
+
+f1=bs2
+f2=is5-bs3
+f3=fs3-is6
+f4=is6-is5
+sf=f1+f2+f3+f4
+printf("\n f1,f2,f4,f3,sf")
+
+k=sbs-sfs
+printf("\n k= %0.3f ",k)
+k1=sr-sf
+printf("\n k1= %0.3f ",k1)
diff --git a/3782/CH5/EX5.17/Ex5_17.sce b/3782/CH5/EX5.17/Ex5_17.sce
new file mode 100644
index 000000000..c9442d492
--- /dev/null
+++ b/3782/CH5/EX5.17/Ex5_17.sce
@@ -0,0 +1,35 @@
+
+//
+//
+
+bs1=3.150,bs2=3.860,bs3=0.470,
+
+is1=2.245,is2=2.125,is3=0.760,is4=1.935,is5=3.225,
+
+fs1=1.125,fs2=2.235,fs3=3.890,
+
+
+sbs=bs1+bs2+bs3
+sis=is1+is2+is3+is4+is5
+sfs=fs1+fs2+fs3
+
+r1=bs1-is1
+r2=is1-fs1
+r3=bs2-is2
+r4=is2-is3
+
+sr=r1+r2+r3+r4
+printf("\n r1,r2,r3,r4,sr")
+
+
+f1=fs2-is3
+f2=is4-bs3
+f3=is5-is4
+f4=fs3-is5
+sf=f1+f2+f3+f4
+printf("\n f1,f2,f4,f3,sf")
+
+k=sbs-sfs
+printf("\n k= %0.3f ",k)
+k1=sr-sf
+printf("\n k1= %0.3f ",k1)
diff --git a/3782/CH5/EX5.2/Ex5_2.sce b/3782/CH5/EX5.2/Ex5_2.sce
new file mode 100644
index 000000000..ac4eeec36
--- /dev/null
+++ b/3782/CH5/EX5.2/Ex5_2.sce
@@ -0,0 +1,12 @@
+
+//
+
+//
+
+
+d=30
+sc=1000
+
+h=0.0673*d*d
+
+printf("\n heigght of lighthouse is %0.3f meters',h)
diff --git a/3782/CH5/EX5.3/Ex5_3.sce b/3782/CH5/EX5.3/Ex5_3.sce
new file mode 100644
index 000000000..81dba7177
--- /dev/null
+++ b/3782/CH5/EX5.3/Ex5_3.sce
@@ -0,0 +1,16 @@
+
+//
+
+//
+
+h=50
+
+d=sqrt(h/0.0673)
+printf("\n D= %0.3f ",d)
+
+r=6370
+dip=d/r
+printf("\n dimp  of horizon %0.3f degrees',dip)
+
+dip1=dip*((180*60)/%pi)
+printf("\n dimp  of horizon %0.3f minutes',dip1)
diff --git a/3782/CH5/EX5.4/Ex5_4.sce b/3782/CH5/EX5.4/Ex5_4.sce
new file mode 100644
index 000000000..6cb9e0b37
--- /dev/null
+++ b/3782/CH5/EX5.4/Ex5_4.sce
@@ -0,0 +1,16 @@
+
+//
+
+//
+
+h1=50
+h2=10
+c=0.0673
+
+d1=sqrt(h1/c)
+
+d2=sqrt(h2/c)
+
+dis=d1+d2
+
+printf("\n distance between man and object is %0.3f meters',dis)
diff --git a/3782/CH5/EX5.5/Ex5_5.sce b/3782/CH5/EX5.5/Ex5_5.sce
new file mode 100644
index 000000000..74cbd8e8e
--- /dev/null
+++ b/3782/CH5/EX5.5/Ex5_5.sce
@@ -0,0 +1,13 @@
+
+//
+
+//
+
+h1=10
+c=0.0673
+d1=sqrt(h1/c)
+
+d2=d1-80               //since d1+d2=80
+h2=c*d2*d2
+
+printf("\n height of the hill is  %0.3f meters',h2)
diff --git a/3782/CH5/EX5.6/Ex5_6.sce b/3782/CH5/EX5.6/Ex5_6.sce
new file mode 100644
index 000000000..ae66e3f5b
--- /dev/null
+++ b/3782/CH5/EX5.6/Ex5_6.sce
@@ -0,0 +1,15 @@
+
+//
+
+//
+
+h1=100
+h2=150
+
+r2=12880
+c=(6/7)*(1000/r2)
+d1=sqrt(h1/c)
+d2=sqrt(h2/c)
+
+d=d1+d2
+printf("\n distance AB = %0.3f meters',d)
diff --git a/3782/CH5/EX5.7/Ex5_7.sce b/3782/CH5/EX5.7/Ex5_7.sce
new file mode 100644
index 000000000..e652ca10d
--- /dev/null
+++ b/3782/CH5/EX5.7/Ex5_7.sce
@@ -0,0 +1,19 @@
+
+//
+
+//
+
+r1=2.550
+r2=2.500
+
+s=r1-r2
+d=0.002
+D=100
+n=5
+r=(n*d*D/s)
+
+printf("\n R= %0.3f ",r)
+
+alp=(s/(n*D))*206265
+
+printf("\n sensitiveness of bubble is  %0.3f seconds',alp)
diff --git a/3782/CH5/EX5.8/Ex5_8.sce b/3782/CH5/EX5.8/Ex5_8.sce
new file mode 100644
index 000000000..b5f505163
--- /dev/null
+++ b/3782/CH5/EX5.8/Ex5_8.sce
@@ -0,0 +1,13 @@
+
+//
+
+//
+
+n=2
+D=100
+alp=20
+
+
+s=(alp*n*D)/206265
+
+printf("\n error is  %0.3f meters',s)
diff --git a/3782/CH5/EX5.9/Ex5_9.sce b/3782/CH5/EX5.9/Ex5_9.sce
new file mode 100644
index 000000000..f7424197b
--- /dev/null
+++ b/3782/CH5/EX5.9/Ex5_9.sce
@@ -0,0 +1,21 @@
+clear
+//
+
+//
+
+a=2.245
+b=3.375
+AB=b-a
+
+ap=1.955
+bp=3.055
+
+dAB=bp-ap
+
+tl=(AB+dAB)/2
+printf("\n true level of difference is %0.3f meters',tl)
+rla=125.55
+rlb=rla-tl
+
+
+printf("\n RL of B = %0.3f meters',rlb)