diff options
Diffstat (limited to '3526/CH12/EX12.3/EX12_5.sce')
| -rw-r--r-- | 3526/CH12/EX12.3/EX12_5.sce | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/3526/CH12/EX12.3/EX12_5.sce b/3526/CH12/EX12.3/EX12_5.sce new file mode 100644 index 000000000..1b2ec14a0 --- /dev/null +++ b/3526/CH12/EX12.3/EX12_5.sce @@ -0,0 +1,11 @@ +clc;funcprot(0);//EXAMPLE 12.5
+//page 357
+// Initialisation of Variables
+%Fe=6.67;......//Carbon percentage in Cementite
+%G=0.77;.......//Carbon percentage in peralite in composition
+%A=0.0218;......//Carbon percentage in Ferrite
+//CALCULATIONS
+%ferrite=((%Fe-%G)/(%Fe-%A))*100;........//Amount of ferrite present in peralite
+%C=((%G-%A)/(%Fe-%A))*100;.......//Amount of Cementite present in peralite
+disp(%ferrite,"Amount of ferrite present in peralite:")
+disp(%C,"Amount of Cementite present in peralite:")
|