summaryrefslogtreecommitdiff
path: root/3526/CH8/EX8.5/EX8_5.sce
diff options
context:
space:
mode:
Diffstat (limited to '3526/CH8/EX8.5/EX8_5.sce')
-rw-r--r--3526/CH8/EX8.5/EX8_5.sce16
1 files changed, 16 insertions, 0 deletions
diff --git a/3526/CH8/EX8.5/EX8_5.sce b/3526/CH8/EX8.5/EX8_5.sce
new file mode 100644
index 000000000..caaabb227
--- /dev/null
+++ b/3526/CH8/EX8.5/EX8_5.sce
@@ -0,0 +1,16 @@
+//EXAMPLE 8.5
+//page 228
+clc;
+// Initialisation of Variables
+D0=0.40;........//Let’s assume that the starting diameter of the copper wire in in.
+Df=0.20;........// Diameter of the copper wire to be produced in in.
+sigma1=22000;..........//Yeidl strength at 0% cold work
+//CALCULATIONS
+CW=((D0^2-Df^2)/D0^2)*100;.........//The fianal Cold Work in percent
+F=sigma1*(%pi/4)*D0^2;........//The draw force required to deform the initial wire in lb
+sigma2=F/((%pi/4)*Df^2);.....// The stress acting on the wire after passing through the die in psi
+disp(CW,"The fianal Cold Work in percent:")
+disp(F,"The draw force required to deform the initial wire in lb:")
+disp(sigma2,"The stress acting on the wire after passing through the die in psi:")
+
+