1 files changed, 20 insertions, 0 deletions
diff --git a/2732/CH6/EX6.7/Ex6_7.sce b/2732/CH6/EX6.7/Ex6_7.sce
new file mode 100755
index 000000000..66ba48264
--- /dev/null
+++ b/2732/CH6/EX6.7/Ex6_7.sce
@@ -0,0 +1,20 @@
+clc
+// initialization of variables
+clear
+F=500 //kg
+k=25 //kg/cm
+dd=15 //cm
+ss=3500 //kg/cm^2
+L=2 //m
+G=8*10^5 //kg/cm^2
+// calculations
+x=sqrt(%pi*G/(25*L*32*100))
+d=x*16*(F+dd*k)/(ss*%pi)
+x2=x*d^2
+// results
+printf('d=%.2f cm',d)
+printf('\n x=%.2f cm',x2)
+
+// Text: not exact
+
+