1 files changed, 46 insertions, 0 deletions
diff --git a/3782/CH8/EX8.7/Ex8_7.sce b/3782/CH8/EX8.7/Ex8_7.sce
new file mode 100644
index 000000000..b0a7d9e25
--- /dev/null
+++ b/3782/CH8/EX8.7/Ex8_7.sce
@@ -0,0 +1,46 @@
+
+
+
+//
+
+//
+
+b=10
+h=1//m
+n=10
+s=1
+
+printf("\n first section')
+b1=(b/2)+((n*s)/(n-s))*(h+(b/(2*n)))
+b2=(b/2)+((n*s)/(n+s))*(h-(b/(2*n)))
+
+a1=0.5*((((b/(2*s))+h))*(b1+b2)-((b*b)/(2*s)))
+printf("\n b1=%0.3f,b2=%0.3f",b1,b2)
+
+printf("\n area A1= %0.3f ",a1)
+
+printf("\n second section')
+b=10,h=2,n=5,s=1,
+
+
+
+b1=(b/2)+((n*s)/(n-s))*(h+(b/(2*n)))
+b2=(b/2)+((n*s)/(n+s))*(h-(b/(2*n)))
+
+a2=0.5*((((b/(2*s))+h))*(b1+b2)-((b*b)/(2*s)))
+printf("\n b1=%0.3f,b2=%0.3f",b1,b2)
+
+printf("\n area A2= %0.3f sq. meters ",a2)
+
+printf("\n third section')
+b=10,h=1.5,n=8,s=1,
+
+
+
+b1=(b/2)+((n*s)/(n-s))*(h+(b/(2*n)))
+b2=(b/2)+((n*s)/(n+s))*(h-(b/(2*n)))
+
+a3=0.5*((((b/(2*s))+h))*(b1+b2)-((b*b)/(2*s)))
+printf("\n b1=%0.3f,b2=%0.3f",b1,b2)
+
+printf("\n area A3= %0.3f sq. meters",a3)