diff options
Diffstat (limited to '3526/CH8/EX8.7/EX8_7.sce')
| -rw-r--r-- | 3526/CH8/EX8.7/EX8_7.sce | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/3526/CH8/EX8.7/EX8_7.sce b/3526/CH8/EX8.7/EX8_7.sce new file mode 100644 index 000000000..01c59ad7c --- /dev/null +++ b/3526/CH8/EX8.7/EX8_7.sce @@ -0,0 +1,11 @@ +clc;funcprot(0);//EXAMPLE 8.7
+//page 237
+// 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")
|