diff options
Diffstat (limited to '3526/CH12/EX12.7')
| -rw-r--r-- | 3526/CH12/EX12.7/EX12_7.sce | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/3526/CH12/EX12.7/EX12_7.sce b/3526/CH12/EX12.7/EX12_7.sce new file mode 100644 index 000000000..5c7f3c633 --- /dev/null +++ b/3526/CH12/EX12.7/EX12_7.sce @@ -0,0 +1,16 @@ +clc;funcprot(0);//EXAMPLE 12.7
+//page 359
+// Initialisation of Variables
+%A=0.0218;......//Carbon percentage in primary alpha in percent
+%Fe=6.67;......//Carbon percentage in Cementite in percent
+%G=0.77;.......//Carbon percentage in eutectoid composition at 727 degree celsius
+%C=0.60;...//Carbon percentage in Pearlite in percent
+//CALCULATIONS
+%alpha=((%Fe-%C)/(%Fe-%A))*100;.......// Composition of Phase Ferrite in alloy
+%Ce=((%C-%A)/(%Fe-%A))*100;.......//Composition of Cementite in percent in alloy
+%PF=((%G-%C)/(%G-%A))*100;......//Percentage of microconstituents Primary Ferrite in alloy
+%P=((%C-%A)/(%G-%A))*100;.......//Percentage of microconstituents Pearlite in alloy
+disp(%alpha,"Composition of Phase Ferrite in alloy :")
+disp(%Ce,"Composition of Cementite in percent in alloy:")
+disp(%PF,"Percentage of microconstituents Primary Ferrite in alloy:")
+disp(%P,"Percentage of microconstituents Pearlite in alloy:")
|