2 files changed, 20 insertions, 0 deletions
diff --git a/3308/CH16/EX16.1/Ex16_1.sce b/3308/CH16/EX16.1/Ex16_1.sce
new file mode 100755
index 000000000..a9e511c5b
--- /dev/null
+++ b/3308/CH16/EX16.1/Ex16_1.sce
@@ -0,0 +1,16 @@
+clc 
+// Given that
+d=1//in inch Diameter of the hole
+T=(1/8)//in inch thickness of the sheet
+
+// Sample Problem on page no. 396
+
+printf("\n # Calculation of Punch Force# \n")
+
+UTS=140000//in psi Ultimate Tensile Strength of the titanium alloy Ti-6Al-4V
+L=3.14*d//total length sheared which is the perimeter of the hole
+F=0.7*T*L*UTS
+F1=F*4.448/(10^6)
+printf("\n\n Extrusion force=%f MN",F1)
+
+//Answer in the book is approximated to 0.17MN
diff --git a/3308/CH16/EX16.1/Ex16_1.txt b/3308/CH16/EX16.1/Ex16_1.txt
new file mode 100755
index 000000000..73978664a
--- /dev/null
+++ b/3308/CH16/EX16.1/Ex16_1.txt
@@ -0,0 +1,4 @@
+ # Calculation of Punch Force# 
+
+
+ Extrusion force=0.171092 MN 
+\ No newline at end of file