2 files changed, 21 insertions, 0 deletions
diff --git a/3308/CH15/EX15.1/Ex15_1.sce b/3308/CH15/EX15.1/Ex15_1.sce
new file mode 100755
index 000000000..13264633e
--- /dev/null
+++ b/3308/CH15/EX15.1/Ex15_1.sce
@@ -0,0 +1,16 @@
+clc 
+// Given that
+di=5//in inch Diameter of the round billet
+df=2//in inch Diameter of the round billet after extrusion
+
+// Sample Problem on page no. 372
+
+printf("\n # Calculation of force in Hot Extrusion# \n")
+
+//As 70-30 Brass is given, so the value of the extrusion constant is 35000psi from the diagram given in the book
+k=35000//in psi
+F=3.14*(di/2)^2*k*log((3.14*(di^2))/(3.14*(df^2)))
+F1=F*4.448/(10^6)
+printf("\n\n Extrusion force=%f MN",F1)
+
+//Answer in the book is approximated to 5.5MN
diff --git a/3308/CH15/EX15.1/Ex15_1.txt b/3308/CH15/EX15.1/Ex15_1.txt
new file mode 100755
index 000000000..4fda21cac
--- /dev/null
+++ b/3308/CH15/EX15.1/Ex15_1.txt
@@ -0,0 +1,5 @@
+ 
+ # Calculation of force in Hot Extrusion# 
+
+
+ Extrusion force=5.598940 MN 
+\ No newline at end of file