1 files changed, 18 insertions, 0 deletions
diff --git a/3392/CH15/EX15.3/Ex15_3.sce b/3392/CH15/EX15.3/Ex15_3.sce
new file mode 100755
index 000000000..448498624
--- /dev/null
+++ b/3392/CH15/EX15.3/Ex15_3.sce
@@ -0,0 +1,18 @@
+clc
+// initialization of variables
+clear
+a=100/2 //mm
+Y=1500 //MPa
+t=6 //mm
+w=800 //mmm
+c=200 //mm
+a_c=a/c
+fl=1.045
+w=w*10^-3
+t=t*10^-3
+a=a*10^-3
+A=w*t
+Sigma=1/A
+K_I=Sigma*sqrt(%pi*a)*fl
+printf('part (a)')
+printf('\n K_I = %.2f MPa sqrt(m)',K_I)