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

---
 3250/CH3/EX3.8/Ex3_8.sce | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100755 3250/CH3/EX3.8/Ex3_8.sce

(limited to '3250/CH3/EX3.8/Ex3_8.sce')

diff --git a/3250/CH3/EX3.8/Ex3_8.sce b/3250/CH3/EX3.8/Ex3_8.sce
new file mode 100755
index 000000000..16904a775
--- /dev/null
+++ b/3250/CH3/EX3.8/Ex3_8.sce
@@ -0,0 +1,20 @@
+clc 
+// Given that
+Ri = 30 // Inside radius of cup in mm
+t = 3 // Thickness in mm
+Rb = 40 // Radius of the blank in mm
+K = 210 // Shear yield stress of the material in N/mm^2
+Y = 600 // Maximum allowable stress in N/mm^2
+Beta = 0.05
+mu = 0.1// Cofficient of friction between the job and the dies 
+// Sample Problem 8 on page no. 130
+printf("\n # PROBLEM 3.8 # \n")
+Fh = Beta*%pi*(Rb^2)*K
+Y_r = (mu*Fh/(%pi*Rb*t))+(2*K*log(Rb/Ri))
+Y_z = Y_r*exp(mu*%pi/2)
+F = 2*%pi*Ri*t*Y_z
+Y_r_ = Y/exp(mu*%pi/2)
+Rp = (Rb/exp((Y_r_/(2*K)) - ((mu*Fh)/(2*%pi*K*Rb*t))))-t
+printf("\n Drawing force = %d N, \n Minimum passible radius of the cup which can drawn from the given blank without causing a fracture = %f mm",F,Rp)
+// Answer in the book given as 62680 N
+
-- 
cgit