summaryrefslogtreecommitdiff
path: root/3782/CH10/EX10.11/Ex10_11.sce
diff options
context:
space:
mode:
Diffstat (limited to '3782/CH10/EX10.11/Ex10_11.sce')
-rw-r--r--3782/CH10/EX10.11/Ex10_11.sce70
1 files changed, 70 insertions, 0 deletions
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)