diff options
Diffstat (limited to '1586/CH8/EX8.1/EXP8_1.sce')
| -rw-r--r-- | 1586/CH8/EX8.1/EXP8_1.sce | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/1586/CH8/EX8.1/EXP8_1.sce b/1586/CH8/EX8.1/EXP8_1.sce new file mode 100644 index 000000000..e97366a85 --- /dev/null +++ b/1586/CH8/EX8.1/EXP8_1.sce @@ -0,0 +1,12 @@ +clc;funcprot(0);//EXAMPLE 8.1
+// Initialisation of Variables
+t0=1;.......//Thickness of Copper plate in cm
+tf=0.50;.....//Cold reducetion of coopper in cm in step1
+tf2=0.16;.....// Further Cold reduction of cooper in cm in step2
+//CALCULATIONS
+%CW1=((t0-tf)/t0)*100;......//Amount of Cold work accomplished in step1
+%CW2=((tf-tf2)/tf)*100;.....//Amount of Cold work accomplished in step2
+%CW=((t0-tf2)/t0)*100;.......//Actual Total Cold work in percent
+disp(%CW1,"Amount of Cold work accomplished in step1:")
+disp(%CW2,"Amount of Cold work accomplished in step2:")
+disp(%CW,"Actual Total Cold work in percent:")
|