1 files changed, 51 insertions, 0 deletions
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)