From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 3392/CH15/EX15.2/Ex15_2.sce | 30 ++++++++++++++++++++++++++++++
 3392/CH15/EX15.3/Ex15_3.sce | 18 ++++++++++++++++++
 3392/CH15/EX15.4/Ex15_4.sce | 10 ++++++++++
 3392/CH15/EX15.5/Ex15_5.sce | 14 ++++++++++++++
 4 files changed, 72 insertions(+)
 create mode 100755 3392/CH15/EX15.2/Ex15_2.sce
 create mode 100755 3392/CH15/EX15.3/Ex15_3.sce
 create mode 100755 3392/CH15/EX15.4/Ex15_4.sce
 create mode 100755 3392/CH15/EX15.5/Ex15_5.sce

(limited to '3392/CH15')

diff --git a/3392/CH15/EX15.2/Ex15_2.sce b/3392/CH15/EX15.2/Ex15_2.sce
new file mode 100755
index 000000000..da2f42dbd
--- /dev/null
+++ b/3392/CH15/EX15.2/Ex15_2.sce
@@ -0,0 +1,30 @@
+clc
+// initialization of variables
+clear
+d=250 //mm
+c=30 //mm
+t=25 //mm
+// part (a)
+a=5 //mm
+lambda=a/(2*c)
+f1l=1.22 //from the tble
+f2l=1.02
+//We don't know P yet so say P=1 
+P=1
+Sfl=P/(t*2*c)*f1l+3*280*P*f2l/(2*t*c^2)
+K_IC=59*sqrt(1000)
+P=K_IC/(Sfl*sqrt(a*%pi))
+printf('part (a)')
+printf('\n P = %.1f kN',P/10^3)
+// part (b)
+a=10 //mm
+lambda=a/(2*c)
+f1l=1.33 //from the tble
+f2l=1.05
+// We don't know P yet so say P=1 
+P=1
+Sfl=P/(t*2*c)*f1l+3*280*P*f2l/(2*t*c^2)
+K_IC=59*sqrt(1000)
+P=K_IC/(Sfl*sqrt(a*%pi))
+printf('\n part (b)')
+printf('\n P = %.1f kN',P/10^3)
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)
diff --git a/3392/CH15/EX15.4/Ex15_4.sce b/3392/CH15/EX15.4/Ex15_4.sce
new file mode 100755
index 000000000..e13b27422
--- /dev/null
+++ b/3392/CH15/EX15.4/Ex15_4.sce
@@ -0,0 +1,10 @@
+clc
+// initialization of variables
+clear
+S_u=1300 //MPa
+K_C=69 // MPa sqrt(m)
+SF=2.2
+//calculations
+S_c=S_u/2.2
+a=1/%pi*(K_C/S_c)^2
+printf('a = %.2f mm',a*10^3)
diff --git a/3392/CH15/EX15.5/Ex15_5.sce b/3392/CH15/EX15.5/Ex15_5.sce
new file mode 100755
index 000000000..24b999e04
--- /dev/null
+++ b/3392/CH15/EX15.5/Ex15_5.sce
@@ -0,0 +1,14 @@
+clc
+// initialization of variables
+clear
+// For 30 mm crack
+a=30/2 // mm  crack
+S_30 =600 //MPa
+a=a*10^-3
+C=S_30*sqrt(a)
+// For 120 mm crack
+a=120/2
+a=a*10^-3
+S_120=C/sqrt(a)
+printf('Sigma_120 = %d MPa',S_120)
+
-- 
cgit