diff options
Diffstat (limited to '1586/CH12/EX12.7')
| -rw-r--r-- | 1586/CH12/EX12.7/EXP12_7.jpg | bin | 0 -> 175153 bytes | |||
| -rw-r--r-- | 1586/CH12/EX12.7/EXP12_7.sce | 15 |
2 files changed, 15 insertions, 0 deletions
diff --git a/1586/CH12/EX12.7/EXP12_7.jpg b/1586/CH12/EX12.7/EXP12_7.jpg Binary files differnew file mode 100644 index 000000000..f88fc2bf3 --- /dev/null +++ b/1586/CH12/EX12.7/EXP12_7.jpg diff --git a/1586/CH12/EX12.7/EXP12_7.sce b/1586/CH12/EX12.7/EXP12_7.sce new file mode 100644 index 000000000..50fdd4e18 --- /dev/null +++ b/1586/CH12/EX12.7/EXP12_7.sce @@ -0,0 +1,15 @@ +clc;funcprot(0);//EXAMPLE 12.7
+// 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:")
|
