initial commit / add all books

13 files changed, 558 insertions, 0 deletions

diff --git a/3782/CH10/EX10.1/Ex10_1.sce b/3782/CH10/EX10.1/Ex10_1.sce
new file mode 100644
index 000000000..7a9a7b930
--- /dev/null
+++ b/3782/CH10/EX10.1/Ex10_1.sce
@@ -0,0 +1,26 @@
+
+//ch-10 page 379   pb-1
+//
+
+//
+
+r=275
+t=24
+l=1320.5
+
+tl=r*tan((t/2)*(%pi/180))
+printf("\n Tangent length = %0.3f ",tl)
+llc=2*r*sin((t/2)*(%pi/180))
+printf("\n Length long of cord= %0.3f ",llc)
+loc=(%pi*r*t/180)
+printf("\n Length of curve = %0.3f ",loc)
+coc=l-tl
+ct=coc+loc
+printf("\n chainage of commencement = %0.3f ",coc)
+printf("\n chainage of tangency = %0.3f ",ct)
+k=cos((t/2)*%pi/180)
+ad=r*((1/k)-1)
+printf("\n apex distance = %0.3f ",ad)
+k1=cos((t/2)*(%pi/180))
+vsc=r*(1-k1)
+printf("\n versed sine of curve is %0.3f ",vsc)
diff --git a/3782/CH10/EX10.10/Ex10_10.sce b/3782/CH10/EX10.10/Ex10_10.sce
new file mode 100644
index 000000000..8f0b4b87e
--- /dev/null
+++ b/3782/CH10/EX10.10/Ex10_10.sce
@@ -0,0 +1,47 @@
+
+//
+
+//
+
+sp=80
+v=(sp*1000)/(60*60)
+cr=(1/8)
+g=9.81
+a=60
+
+//a
+
+r=(v*v)/(g*cr)
+printf("\n radius of circular curvature= %0.3f ",r)
+
+//b
+k=0.3
+l=(v*v*v)/(k*r)
+printf("\n length of transistion curve = %0.3f ",l)
+
+sa=l/(2*r)
+sa=sa*(180/(%pi))
+printf("\n spiral angle= %0.3f ",sa)
+ca=a-(2*sa)
+printf("\n central angle= %0.3f ",ca)
+
+lcc=(%pi*r*ca)/180
+printf("\n length of circular curve = %0.3f ",lcc)
+
+s=(l*l)/(24*r)
+printf("\n shift of curve = %0.3f ",s)
+ag=a/2
+t=(r+s)*(tan(ag*(%pi/180)))+(l/2)
+printf("\n tangent length = %0.3f ",t)
+//c
+cip=1150
+c1t=cip-t
+c1j=c1t+l
+c2j=c1j+lcc
+c2t=c2j+l
+
+printf("\n chainage of 1st tangent point = %0.3f ",c1t)
+printf("\n chainage of 2nd tangent point = %0.3f ",c2t)
+
+printf("\n chainage of 1st junction point = %0.3f ",c1j)
+printf("\n chainage of 2nd junction point = %0.3f ",c2j)
diff --git a/3782/CH10/EX10.11/Ex10_11.sce b/3782/CH10/EX10.11/Ex10_11.sce
new file mode 100644
index 000000000..ef1255727
--- /dev/null
+++ b/3782/CH10/EX10.11/Ex10_11.sce
@@ -0,0 +1,70 @@
+
+//
+
+//
+
+a=145
+cpi=1580
+de=5
+pi=30
+lct=0.00555
+
+da=180-a
+
+r=(1719)/5
+
+printf("\n radius = %0.3f ",r)
+
+//a
+
+tl=r*(tan((da/2)*(%pi/180)))
+printf("\n tangent length = %0.3f ",tl)
+
+//b
+
+cl=(%pi*r*da)/180
+printf("\n curve length = %0.3f ",cl)
+
+//c
+
+c1t=cpi-tl
+printf("\n chainage of 1st point = %0.3f ",c1t)
+
+//d
+c2t=c1t+cl
+printf("\n chainage of 2nd point = %0.3f ",c2t)
+
+//e
+lisc=1480-c1t
+printf("\n length of final sub chord = %0.3f ",lisc)
+//f
+n=6
+ini=30
+cc=1480+(n*30)
+printf("\n chainage covered= %0.3f ",cc)
+//g
+lfsc=c2t-cc
+printf("\n length of final sub chord %0.3f ",lfsc)
+//h
+dasc=((c2t+100)*lisc)/(r)
+printf("\n deflection angle for initial sub chord = %0.3f min',dasc)
+//i
+dafc=((c2t+100)*%pi)/r
+printf("\n deflection angle for full chord %0.3f min',dafc/60)
+//j
+dafsc=((c2t+100)*lfsc)/r
+printf("\n deflection angle for final sub chord %0.3f min',dafsc/60)
+
+//k
+
+tda=da/2
+printf("\n total deflection angle= %0.3f ",tda)
+
+
+//l
+k=1/(cos(tda*(%pi/180)))
+ad=r*(k-1)
+printf("\n apex distance = %0.3f ",ad)
+
+vs=r*(1-(cos(tda*(%pi/180))))
+printf("\n versed sine of curve = %0.3f ",vs)
diff --git a/3782/CH10/EX10.12/Ex10_12.sce b/3782/CH10/EX10.12/Ex10_12.sce
new file mode 100644
index 000000000..8ca8046a9
--- /dev/null
+++ b/3782/CH10/EX10.12/Ex10_12.sce
@@ -0,0 +1,80 @@
+
+//
+
+//
+pi=20
+cb=550
+rlb=375.5
+g1=0.5
+g2=-0.7
+//a
+vc=((g1-g2)*20)/0.1
+
+printf("\n length of vertical curve = %0.3f ",vc)
+
+//b,c
+
+ca=cb-(vc/2)
+cc=ca+vc
+printf("\n chainage of A %0.3f ",ca)
+printf("\n chainage of C %0.3f ",cc)
+
+//d,e,f,g
+
+rla=rlb-((g1*0.5*vc)/100)
+rlc=rlb-((-g2*0.5*vc)/100)
+rle=0.5*(rla+rlc)
+rlf=0.5*(rlb+rle)
+
+printf("\n Rl of A %0.3f ",rla)
+printf("\n Rl of C %0.3f ",rlc)
+printf("\n Rl of E %0.3f ",rle)
+printf("\n Rl of F %0.3f ",rlf)
+//h
+tc=rlb-rlf
+printf("\n tangent correction at the apex = %0.3f ",tc)
+
+//i
+tc1=((g1-g2)*(%pi*%pi))/(400*0.5*vc)
+tc2=((g1-g2)*(2*%pi*2*%pi))/(400*0.5*vc)
+tc3=((g1-g2)*(3*%pi*3*%pi))/(400*0.5*vc)
+tc4=((g1-g2)*(4*%pi*4*%pi))/(400*0.5*vc)
+tc5=((g1-g2)*(5*%pi*5*%pi))/(400*0.5*vc)
+tc6=((g1-g2)*(6*%pi*6*%pi))/(400*0.5*vc)
+printf("\n tangent correction at 1st,2nd,3rd,4th,5th,6th, points %0.3f %0.3f %0.3f %0.3f %0.3f %0.3f",tc1,tc2,tc3,tc4,tc5,tc6)
+
+//j
+rp=(g1*%pi)/100
+
+rl1=rla+rp
+rl2=rl1+rp
+rl3=rl2+rp
+rl4=rl3+rp
+rl5=rl4+rp
+rl6=rl5+rp
+printf("\n RL of the points on grade')
+printf("\n rl1,rl2,rl3,rl4,rl5,rl6")
+
+//k
+rlc1=rl1-tc1
+rlc2=rl2-(tc2)
+rlc3=rl3-(tc3)
+rlc4=rl4-(tc4)
+rlc5=rl5-(tc5)
+rlc6=rl6-(tc6)
+
+printf("\n RL of the points on curve')
+printf("\n rlc1,rlc2,rlc3,rlc4,rlc5,rlc6")
+
+//l
+
+fp=0.14
+
+rlg5=rlb-fp
+rlg4=rlg5-fp
+rlg3=rlg4-fp
+rlg2=rlg3-fp
+rlg1=rlg2-fp
+
+printf("\n Rls of points on the grade right side')
+printf("\n rlg5,rlg4,rlg3,rlg2,rlg1")
diff --git a/3782/CH10/EX10.13/Ex10_13.sce b/3782/CH10/EX10.13/Ex10_13.sce
new file mode 100644
index 000000000..2a7839513
--- /dev/null
+++ b/3782/CH10/EX10.13/Ex10_13.sce
@@ -0,0 +1,67 @@
+
+//
+
+//
+
+cb=400
+rlb=250.5
+pi=30
+g1=-1.0
+g2=0.5
+g=0.1
+ga=20
+//a
+vc=(g1-g2)/g
+vc=-vc*ga
+printf("\n length of vertical curve %0.3f ",vc)
+
+//b,c
+ca=cb-(0.5*vc)
+cc=ca+vc
+
+//d,e,f,g
+
+rla=rlb+((0.5*vc)/100)
+
+rlc=rlb+((0.5*0.5*vc)/100)
+
+rle=0.5*(rla+rlc)
+
+rlf=0.5*(rle+rlb)
+
+printf("\n RL of A= %0.3f ",rla)
+printf("\n RL of C= %0.3f ",rlc)
+printf("\n RL of E= %0.3f ",rle)
+printf("\n RL of F= %0.3f ",rlf)
+
+//h
+fp=%pi/100
+
+rl1=rla-fp
+rl2=rl1-fp
+rl3=rl2-fp
+rl4=rl3-fp
+printf("\n RL on the grade on the side AB ')
+printf("\n rl1,rl2,rl3,rl4")
+
+//i
+
+rp=(0.5*%pi)/100
+
+rls4=rlb+rp
+rls3=rls4+rp
+rls2=rls3+rp
+rls1=rls2+rp
+
+printf("\n RL on grade on side BC')
+printf("\n rls4,rls3,rls2,rls1")
+
+//j
+
+y1=((g1-g2)*(%pi*%pi))/(cb*0.5*vc)
+y2=((g1-g2)*(2*%pi*2*%pi))/(cb*0.5*vc)
+y3=((g1-g2)*(3*%pi*3*%pi))/(cb*0.5*vc)
+y4=((g1-g2)*(4*%pi*4*%pi))/(cb*0.5*vc)
+
+printf("\n tangent correction from expression ')
+printf("\n y1,y2,y3,y4")
diff --git a/3782/CH10/EX10.2/Ex10_2.sce b/3782/CH10/EX10.2/Ex10_2.sce
new file mode 100644
index 000000000..acf6012ef
--- /dev/null
+++ b/3782/CH10/EX10.2/Ex10_2.sce
@@ -0,0 +1,51 @@
+
+//ch-10 page 379,380   pb-2
+//
+
+//
+ac=45.5,cb=75.5,
+
+//a
+
+t=cb-ac
+l1=1719
+l=2760
+
+//b
+r=l1/3
+printf("\n radius of curve  %0.3f ",r)
+
+//c
+tl=r*tan((t/2)*(%pi/180))
+printf("\n Tangent length = %0.3f ",tl)
+//d
+loc=(%pi*r*t/180)
+printf("\n Length of curve = %0.3f ",loc)
+//e
+llc=2*r*sin((t/2)*(%pi/180))
+printf("\n Length long of cord= %0.3f ",llc)
+
+//f,g
+coc=l-tl
+ct=coc+loc
+printf("\n chainage of commencement = %0.3f ",coc)
+printf("\n chainage of tangency = %0.3f ",ct)
+
+//h
+
+half=0.5*llc
+printf("\n length of each half = %0.3f ",half)
+
+ini=30
+
+k=sqrt(r*r-(half*half))
+o=r-k
+k1=r-o
+O30=(sqrt(r*r-(ini*ini)))-k1
+O60=(sqrt(r*r-(2*ini*2*ini)))-k1
+     
+O90=(sqrt(r*r-(3*ini*3*ini)))-k1
+O120=(sqrt(r*r-(4*ini*4*ini)))-k1
+Oh=(sqrt(r*r-(half*half)))-k1
+
+printf("\n O30= %0.3f O60= %0.3f O90= %0.3f O120= %0.3f O148.3= %0.3f ",O30,O60,O90,O120,Oh)
diff --git a/3782/CH10/EX10.3/Ex10_3.sce b/3782/CH10/EX10.3/Ex10_3.sce
new file mode 100644
index 000000000..38d4c9537
--- /dev/null
+++ b/3782/CH10/EX10.3/Ex10_3.sce
@@ -0,0 +1,40 @@
+
+//
+
+//
+
+a=126.8
+t=180-a
+r=300
+//b
+tl=r*tan((t/2)*(%pi/180))
+printf("\n Tangent length = %0.3f ",tl)
+
+//c
+loc=(%pi*r*t/180)
+printf("\n Length of curve = %0.3f ",loc)
+
+//d
+l=510.23
+ct1=l-tl
+ct2=ct1+loc
+
+printf("\n chainage of T1= %0.3f ",ct1)
+printf("\n chainage of T2= %0.3f ",ct2)
+
+//f
+n=9
+b=30
+cc=ct1+270
+lfsc=ct2-cc
+printf("\n chainage covered= %0.3f ",cc)
+printf("\n Length of final sub cord= %0.3f ",lfsc)
+
+O1=(b*b)/(2*r)
+O2=(b*b)/r
+
+O10=(lfsc*(b+lfsc))/(2*r)
+
+printf("\n first ofset= %0.3f ",O1)
+printf("\n second ofset= %0.3f ",O2)
+printf("\n tenth ofset= %0.3f ",O10)
diff --git a/3782/CH10/EX10.4/Ex10_4.sce b/3782/CH10/EX10.4/Ex10_4.sce
new file mode 100644
index 000000000..57b6898b7
--- /dev/null
+++ b/3782/CH10/EX10.4/Ex10_4.sce
@@ -0,0 +1,30 @@
+
+//
+
+//
+
+ab=30,bc=90,cd=140,
+
+l1=250,l2=150,l3=325,
+
+
+abc=210-bc
+t1=0.5*abc
+bcd=270-cd
+t2=0.5*bcd
+t3=180-(t1+t2)
+
+
+k=(sin(t2*(%pi/180)))/(sin(t3*(%pi/180)))
+OB=l2*k
+k1=(sin(t1*(%pi/180)))/(sin(t3*(%pi/180)))
+OC=l2*k1
+printf("\n OB,OC")
+R=OB*(sin(t1*(%pi/180)))
+printf("\n Radius R= %0.3f ",R)
+
+BT1=OB*(cos(t1*(%pi/180)))
+CT1=OC*(cos(t2*(%pi/180)))
+
+printf("\n Tangent length BT1= %0.3f ",BT1)
+printf("\n Tangent length CT1= %0.3f ",CT1)
diff --git a/3782/CH10/EX10.5/Ex10_5.sce b/3782/CH10/EX10.5/Ex10_5.sce
new file mode 100644
index 000000000..801d43c14
--- /dev/null
+++ b/3782/CH10/EX10.5/Ex10_5.sce
@@ -0,0 +1,29 @@
+
+//
+
+//
+
+r=400
+t1=15,t2=30,t3=60,
+
+ct=900
+l=320
+BT2=r*(tan((t1)*%pi/180))
+CT2=l-BT2
+
+r1=(CT2)/(tan((t2)*%pi/180))
+
+printf("\n R1= %0.3f ",r1)
+t1t2=(%pi*r*t2)/(180)
+
+t2t3=(%pi*r1*t3)/(180)
+
+printf("\n length of arc T1T2= %0.3f ",t1t2)
+printf("\n length of arc T2T3= %0.3f ",t2t3)
+
+
+ct1=ct-BT2
+ct3=ct1+t1t2+t2t3
+
+printf("\n chainage of T1= %0.3f ",ct1)
+printf("\n chainage of T3= %0.3f ",ct3)
diff --git a/3782/CH10/EX10.6/Ex10_6.sce b/3782/CH10/EX10.6/Ex10_6.sce
new file mode 100644
index 000000000..2674fec83
--- /dev/null
+++ b/3782/CH10/EX10.6/Ex10_6.sce
@@ -0,0 +1,25 @@
+
+//
+
+//
+
+r1=400
+t1=30,d=200,
+
+ct1=1500
+k=1-(cos(t1*(%pi/180)))
+T1G=r1*(k)
+
+r2=(d-T1G)/k
+printf("\n R2= %0.3f ",r2)
+
+t1t2=(%pi*r1*t1)/180
+t2t3=(%pi*r2*t1)/180
+printf("\n length of arc T1T2= %0.3f ",t1t2)
+printf("\n length of arc T2T3= %0.3f ",t2t3)
+
+ct2=ct1+t1t2
+ct3=ct2+t2t3
+
+printf("\n chainage of point of reverse curvature = %0.3f ",ct2)
+printf("\n chainage of finishing point T3= %0.3f ",ct3)
diff --git a/3782/CH10/EX10.7/Ex10_7.sce b/3782/CH10/EX10.7/Ex10_7.sce
new file mode 100644
index 000000000..732064af0
--- /dev/null
+++ b/3782/CH10/EX10.7/Ex10_7.sce
@@ -0,0 +1,36 @@
+
+//
+
+//
+
+a1=135,a2=145,
+
+t1=180-a1
+t2=180-a2
+t3=180-(t1+t2)
+r1=400,r2=200,
+
+ct=1000
+
+ED=r1*(tan((t1/2)*(%pi/180)))
+
+FD=r2*(tan((t2/2)*(%pi/180)))
+
+EF=ED+FD
+
+printf("\n EF= %0.3f ",EF)
+
+BE=EF*(sin(t2*(%pi/180)))/(sin(t3*(%pi/180)))
+
+BF=EF*(sin(t1*(%pi/180)))/(sin(t3*(%pi/180)))
+
+
+ct1=ct-(BE+ED)
+
+cd=ct1+((%pi*r1*t1)/(180))
+
+ct2=cd+((%pi*r2*t2)/(180))
+
+printf("\n chainage of T1= %0.3f ",ct1)
+printf("\n chainage of D= %0.3f ",cd)
+printf("\n chainage of T2 %0.3f ",ct2)
diff --git a/3782/CH10/EX10.8/Ex10_8.sce b/3782/CH10/EX10.8/Ex10_8.sce
new file mode 100644
index 000000000..d42042a6f
--- /dev/null
+++ b/3782/CH10/EX10.8/Ex10_8.sce
@@ -0,0 +1,38 @@
+
+//
+
+//
+
+t1=30.5
+t2=40.5
+EF=175
+cb=1500
+
+k1=tan((t1/2)*(%pi/180))
+k2=tan((t2/2)*(%pi/180))
+
+r=EF/(k1+k2)
+printf("\n Radius R= %0.3f ",r)
+
+et1=r*k1
+ft2=r*k2
+
+t3=180-(t1+t2)
+printf("\n angle Theta= %0.3f ",t3)
+k3=(sin(t2*(%pi/180)))/(sin(t3*(%pi/180)))
+k4=(sin(t1*(%pi/180)))/(sin(t3*(%pi/180)))
+
+be=EF*k3
+bf=EF*k4
+
+t1d=(%pi*r*t1)/180
+dt2=(%pi*r*t2)/180
+
+printf("\n curve length T1D= %0.3f ",t1d)
+printf("\n curve length DT2= %0.3f ",dt2)
+
+ct1=cb-(be+et1)
+
+ct2=ct1+t1d+dt2
+printf("\n chainage of T1= %0.3f ",ct1)
+printf("\n chainage of T2= %0.3f ",ct2)
diff --git a/3782/CH10/EX10.9/Ex10_9.sce b/3782/CH10/EX10.9/Ex10_9.sce
new file mode 100644
index 000000000..a7a4c2060
--- /dev/null
+++ b/3782/CH10/EX10.9/Ex10_9.sce
@@ -0,0 +1,19 @@
+
+//
+
+//
+
+t1=80-70
+l=50
+k=1/(cos(20*(%pi/180)))
+
+k1=k*(sin(t1*(%pi/180)))
+t3=asin(k1)
+t3=t3*(180/(%pi))
+printf("\n theta 3= %0.3f ",t3)
+
+t3=180-t3
+t2=180-(t3+t1)
+
+r=l*(sin(t1*(%pi/180)))/(sin(0.6*(%pi/180)))
+printf("\n Radius R= %0.3f ",r)