diff options
Diffstat (limited to '1586/CH8/EX8.7/EXP8_7.sce')
| -rw-r--r-- | 1586/CH8/EX8.7/EXP8_7.sce | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/1586/CH8/EX8.7/EXP8_7.sce b/1586/CH8/EX8.7/EXP8_7.sce new file mode 100644 index 000000000..cce33ee7a --- /dev/null +++ b/1586/CH8/EX8.7/EXP8_7.sce @@ -0,0 +1,10 @@ +clc;funcprot(0);//EXAMPLE 8.7
+// Initialisation of Variables
+t0=5;.........//We are able to purchase strip of 5cm thickness in cm
+tf=0.182;.....//Thickness to be produced in cm
+tf2=0.167;.......//Thickness to procedure in cm
+//CALCULATIONS
+%HW=((t0-tf)/t0)*100;.....//Hot work for a strip from 5cm to 0.182 cm in percent
+%HW2=((t0-tf2)/t0)*100;......//Hot work for a strip from 5cm to 0.167 cm in percent
+disp(%HW,"Hot work for a strip from 5cm to 0.182 cm in percent:")
+disp(%HW2,"Hot work for a strip from 5cm to 0.167 cm in percent")
|