diff options
Diffstat (limited to '3526/CH8/EX8.2/EX8_2.sce')
| -rw-r--r-- | 3526/CH8/EX8.2/EX8_2.sce | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/3526/CH8/EX8.2/EX8_2.sce b/3526/CH8/EX8.2/EX8_2.sce new file mode 100644 index 000000000..c51c3f09a --- /dev/null +++ b/3526/CH8/EX8.2/EX8_2.sce @@ -0,0 +1,11 @@ +clc;funcprot(0);//EXAMPLE 8.2
+//page 222
+// Initialisation of Variables
+tf=0.1;.......//Thickness of cooper to produce in cm
+%CW1=40;.......//cold work to produce a tensile strengthof 65,000 psi
+%CW2=45;.......//cold work to produce a tensile strengthof 60,000 psi
+//CALCULATIONS
+Tmax=(tf/(1-(%CW1/100)));.........//Maximum thicknessproduced in step1 in cm
+Tmin=(tf/(1-(%CW2/100)));.........//Minimum thicknessproduced in step2 in cm
+disp(Tmax,"Maximum thicknessproduced in cm:")
+disp(Tmin,"Minimum thicknessproduced in cm:")
|