1 files changed, 26 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)