2 files changed, 25 insertions, 0 deletions
diff --git a/3250/CH3/EX3.1/Ex3_1.sce b/3250/CH3/EX3.1/Ex3_1.sce
new file mode 100755
index 000000000..eadcb5ec9
--- /dev/null
+++ b/3250/CH3/EX3.1/Ex3_1.sce
@@ -0,0 +1,19 @@
+clc 
+// Given that
+A = 150*6 // Cross-section of strips in mm^2
+ti = 6 // Thickness in mm
+pA = 0.20 // Reduction in area
+d = 400 // Diameter of steel rolls in mm
+Ys = 0.35// Shear Yield stress of the material before rolling in KN/mm^2
+Ys_ = 0.4// Shear Yield stress of the material after rolling in KN/mm^2
+mu = 0.1 // Cofficient of friction
+// Sample Problem 1 on page no. 112
+printf("\n # PROBLEM 3.1 # \n")
+tf =0.8*ti
+Ys_a = (Ys + Ys_)/2
+r=d/2
+thetaI = sqrt((ti-tf)/r)
+lambdaI=2*sqrt(r/tf)*atan(thetaI *sqrt(r/tf))
+lambdaN = (1/2)*((1/mu)*(log(tf/ti)) + lambdaI)
+thetaN  =(sqrt(tf/r))*(tan((lambdaN/2)*(sqrt(tf/r))))
+printf("\n The final srip thickness is %f mm, \n The avg shear yield stress during the process is %f KN/mm^2, \n The angle subtended by the deformation zone at the roll centre is %f rad, \n The location of neutral point is %f rad.",tf,Ys_a,thetaI,thetaN)
diff --git a/3250/CH3/EX3.1/Ex3_1.txt b/3250/CH3/EX3.1/Ex3_1.txt
new file mode 100755
index 000000000..ac4331849
--- /dev/null
+++ b/3250/CH3/EX3.1/Ex3_1.txt
@@ -0,0 +1,6 @@
+ # PROBLEM 3.1 # 
+
+ The final srip thickness is 4.800000 mm, 
+ The avg shear yield stress during the process is 0.375000 KN/mm^2, 
+ The angle subtended by the deformation zone at the roll centre is 0.077460 rad, 
+ The location of neutral point is 0.022685 rad. 
+\ No newline at end of file