initial commit / add all books

10 files changed, 288 insertions, 0 deletions

diff --git a/3782/CH11/EX11.1/Ex11_1.sce b/3782/CH11/EX11.1/Ex11_1.sce
new file mode 100644
index 000000000..3ac65fe8a
--- /dev/null
+++ b/3782/CH11/EX11.1/Ex11_1.sce
@@ -0,0 +1,18 @@
+
+//
+//
+
+retiftoi=100
+fplusd=0.15
+s1=2.450-1.150
+thetha1=5+(20/60)
+v1=(100*1300*sin(10+(40/60))/2)+(0.15*sin(5+(20/60)))
+s2=1.5
+thetha2=8+(12/60)
+V2=21.197
+d2=147.097
+RL=750.500+1.8+12.045                                
+RLD=RL+V2-1.5
+printf("\n RL of instrument axis= %0.3f m",RL)
+printf("\n RL of D= %0.3f m", RLD)
+printf("\n Distance of CD=147.097m")
diff --git a/3782/CH11/EX11.10/Ex11_10.sce b/3782/CH11/EX11.10/Ex11_10.sce
new file mode 100644
index 000000000..1a440c1fa
--- /dev/null
+++ b/3782/CH11/EX11.10/Ex11_10.sce
@@ -0,0 +1,16 @@
+
+//
+
+//
+
+s1=2
+h1=0.655
+v1=6.578
+RL=v1+h1+510.5
+v2=1.085
+d2=12.396
+h2=1.25
+RLofB=RL-v2-h2
+d=37.31+12.396
+printf("\n distance between B and BM= %0.3f ",d)
+printf("\n RL of B= %0.3f ", RLofB)
diff --git a/3782/CH11/EX11.11/Ex11_11.sce b/3782/CH11/EX11.11/Ex11_11.sce
new file mode 100644
index 000000000..17b0243e6
--- /dev/null
+++ b/3782/CH11/EX11.11/Ex11_11.sce
@@ -0,0 +1,12 @@
+
+//
+
+//
+
+d=124.45
+c=1000
+s=2
+fplusd=0.3
+thetha=(5+(6/30))
+n=1980/d
+printf("\n n= %0.3f ",n)
diff --git a/3782/CH11/EX11.2/Ex11_2.sce b/3782/CH11/EX11.2/Ex11_2.sce
new file mode 100644
index 000000000..9e5161933
--- /dev/null
+++ b/3782/CH11/EX11.2/Ex11_2.sce
@@ -0,0 +1,17 @@
+
+//
+//
+
+v1=7.534
+v2=16.871
+v3=15.326
+RLatp=255.750+v1+1.825
+RLofA=265.109+v2-1.6
+RLatB=280.380+v3+2.315
+RLofB=298.021-1.450
+D3=118.009
+printf("\n RL of axis when isnt. at P= %0.3f ", RLatp)
+printf("\n RL of A= %0.3f ", RLofA)
+printf("\n RL at B= %0.3f ", RLatB)
+printf("\n RL of B= %0.3f ", RLofB)
+printf("\n Distance between A and B= %0.3f ", D3)
diff --git a/3782/CH11/EX11.3/Ex11_3.sce b/3782/CH11/EX11.3/Ex11_3.sce
new file mode 100644
index 000000000..169dfb117
--- /dev/null
+++ b/3782/CH11/EX11.3/Ex11_3.sce
@@ -0,0 +1,22 @@
+
+//
+//
+
+
+v1=10.494
+d1=108.989
+V2=24.807
+d2=176.514
+v3=25.652
+d3=145.477
+RL=450.500+1.455+v1                               
+RLofA=462.449-1.345
+RLofB=462.449+24.807-1.655
+RLatB=487.151
+RLofC=RLofB+v3-2.250+1.53
+printf("\n v1")
+printf("\n RL of axis when isnt. at A= %0.3f ", RL)
+printf("\n RL of A= %0.3f ", RLofA)
+printf("\n RL at B= %0.3f ", RLatB)
+printf("\n RL of B= %0.3f ", RLofB)
+printf("\n RL of C %0.3f ", RLofC)
diff --git a/3782/CH11/EX11.4/Ex11_4.sce b/3782/CH11/EX11.4/Ex11_4.sce
new file mode 100644
index 000000000..a91061f69
--- /dev/null
+++ b/3782/CH11/EX11.4/Ex11_4.sce
@@ -0,0 +1,44 @@
+
+//
+
+//
+
+c=100
+h=1.55
+rlo=150
+ra1=1.155,ra2=1.755,ra3=2.355,
+
+rb1=1.250,rb2=2,rb3=2.750,
+
+t1=30.5,t2=75.5,
+
+a1=4.5,a2=10.25,
+
+
+printf("\n in 1st observation')
+v1=c*(ra3-ra1)*(sin(9*(%pi/180)))
+v1=v1/2
+d1=c*(ra3-ra1)*(cos(a1*(%pi/180)))*(cos(a1*(%pi/180)))
+printf("\n v1,d1= %0.3f %0.3f",v1,d1)
+
+printf("\n in 2nd observation')
+
+v2=c*(rb3-rb1)*(sin(20.5*(%pi/180)))
+v2=v2/2
+d2=c*(rb3-rb1)*(cos(a2*(%pi/180)))*(cos(a2*(%pi/180)))
+printf("\n v2,d2= %0.3f %0.3f",v2,d2)
+
+rl=rlo+h
+rla=rl+v1-ra2
+rlb=rl+v2-rb2
+
+printf("\n RL of A= %0.3f ",rla)
+printf("\n RL of B= %0.3f ",rlb)
+
+t=t2-t1
+AB=sqrt((d1*d1+d2*d2)-2*(d1*d2*(cos(t*(%pi/180)))))
+printf("\n difference of level AB= %0.3f meters',AB)
+
+dab=rlb-rla
+gab=AB/dab
+printf("\n gradient of AB is 1 in %0.3f ",gab)
diff --git a/3782/CH11/EX11.5/Ex11_5.sce b/3782/CH11/EX11.5/Ex11_5.sce
new file mode 100644
index 000000000..85621222d
--- /dev/null
+++ b/3782/CH11/EX11.5/Ex11_5.sce
@@ -0,0 +1,45 @@
+
+//
+
+//
+
+h=1.5
+a1=10,a2=12,
+
+c=100
+ra1=1.150,ra2=2.050,ra3=2.950,
+
+rb1=0.855,rb2=1.605,rb3=2.355,
+
+rlp=450.5
+
+
+
+v1=c*(ra3-ra1)*(sin(a1*(%pi/180)))
+
+v2=c*(rb3-rb1)*(sin(a2*(%pi/180)))
+
+h1=ra2*(cos(a1*(%pi/180)))
+h2=rb2*(cos(a2*(%pi/180)))
+
+printf("\n v1,v2= %0.3f %0.3f",v1,v2)
+printf("\n h1,h2= %0.3f %0.3f",h1,h2)
+
+rlai=rlp+h
+
+rla=rlai-v1-h1
+rlb=rlai-v2-h2
+
+printf("\n RL of A= %0.3f ",rla)
+printf("\n RL of B= %0.3f ",rlb)
+
+d1=c*(ra3-ra1)*(cos(a1*(%pi/180)))-ra2*(sin(a1*(%pi/180)))
+d2=c*(rb3-rb1)*(cos(a2*(%pi/180)))-rb2*(sin(a2*(%pi/180)))
+
+dab=d1+d2
+printf("\n distance between A an B is %0.3f ",dab)
+gpa=d1/(rlp-rla)
+gpb=d2/(rlp-rlb)
+
+printf("\n gradient of PA is 1 in  %0.3f ",gpa)
+printf("\n gradient of PB is 1 in  %0.3f ",gpb)
diff --git a/3782/CH11/EX11.6/Ex11_6.sce b/3782/CH11/EX11.6/Ex11_6.sce
new file mode 100644
index 000000000..102268300
--- /dev/null
+++ b/3782/CH11/EX11.6/Ex11_6.sce
@@ -0,0 +1,42 @@
+
+//
+
+//
+
+c=100
+ra1=1.25,ra2=1.75,ra3=2.25,
+
+rb1=0.95,rb2=1.75,rb3=2.55,
+
+rc1=1.55,rc2=2.15,rc3=2.75,
+
+a1=10,a2=5,a3=8,
+
+
+ab=c*(ra3-ra1)*(cos(a1*(%pi/180)))*(cos(a1*(%pi/180)))
+bc=c*(rb3-rb1)*(cos(a2*(%pi/180)))*(cos(a2*(%pi/180)))
+cd=c*(rc3-rc1)*(cos(a3*(%pi/180)))*(cos(a3*(%pi/180)))
+
+printf("\n ab,bc,cd")
+
+lab=ab*(cos(30.5*(%pi/180)))
+lbc=-bc*(cos(40*(%pi/180)))
+lcd=-cd*(cos(45*(%pi/180)))
+printf("\n latitudes of AB,BC,CD= %0.3f %0.3f %0.3f",lab,lbc,lcd)
+
+dab=ab*(sin(30.5*(%pi/180)))
+dbc=bc*(sin(40*(%pi/180)))
+dcd=-cd*(sin(45*(%pi/180)))
+printf("\n depatures of AB,BC,CD  %0.3f %0.3f %0.3f",dab,dbc,dcd)
+
+lc=-(lab+lbc+lcd)
+ls=-(dab+dbc+dcd)
+
+printf("\n lc,ls")
+k=-ls/lc
+t=atan(k)
+t=t*(180/(%pi))
+
+printf("\n Bearing of DA= %0.3f ",t)
+DA=sqrt(lc*lc+ls*ls)
+printf("\n length DA= %0.3f ",DA)
diff --git a/3782/CH11/EX11.7/Ex11_7.sce b/3782/CH11/EX11.7/Ex11_7.sce
new file mode 100644
index 000000000..7109ea717
--- /dev/null
+++ b/3782/CH11/EX11.7/Ex11_7.sce
@@ -0,0 +1,46 @@
+
+//
+
+//
+
+h1=1.48,h2=1.42,c=100,
+
+ra1=0.77,ra2=1.60,ra3=2.43,
+
+rb1=0.86,rb2=1.84,rb3=2.82,
+
+a1=12.166,a2=10.5,
+
+la=112.82,da=106.4,
+
+lb=198.5,db=292.6,
+
+ac=c*(ra3-ra1)*(cos(a1*(%pi/180)))*(cos(a1*(%pi/180)))
+bd=c*(rb3-rb1)*(cos(a2*(%pi/180)))*(cos(a2*(%pi/180)))
+
+printf("\n Distance AC= %0.3f ",ac)
+printf("\n Distance BD= %0.3f ",bd)
+lac=-ac*(cos(53.5*(%pi/180)))
+tlc=la+lac
+printf("\n total latitude of C= %0.3f ",tlc)
+
+dac=ac*(sin(53.5*(%pi/180)))
+da=-da
+tdc=da+dac
+printf("\n total depature of C= %0.3f ",tdc)
+
+lbd=-bd*(cos(4.75*(%pi/180)))
+tld=lb+lbd
+printf("\n total latitude of D= %0.3f ",tld)
+
+db=-db
+ddb=-bd*(sin(4.75*(%pi/180)))
+tdd=-(db+ddb)
+printf("\n ddb")
+printf("\n total depature of D= %0.3f ",tdd)
+
+dx=tdc+tdd
+cx=tlc-tld
+
+CD=sqrt(dx*dx+cx*cx)
+printf("\n length CD= %0.3f meters',CD)
diff --git a/3782/CH11/EX11.8/Ex11_8.sce b/3782/CH11/EX11.8/Ex11_8.sce
new file mode 100644
index 000000000..df29eacfd
--- /dev/null
+++ b/3782/CH11/EX11.8/Ex11_8.sce
@@ -0,0 +1,26 @@
+
+//
+
+//
+
+c=600
+fplusd=0.5
+s=3
+n=6.860
+distance= (c*s/n)+ fplusd
+printf("\n distance = %0.3f ",distance)
+
+distance = 262.890670554
+
+clear
+//
+
+//
+
+d=65.340
+x=4.5
+y= tan(x)
+v=5.142
+RLofA=255.500+v-0.950
+printf("\n v")
+printf("\n RL of A= %0.3f ", RLofA)