summaryrefslogtreecommitdiff
path: root/1586/CH12/EX12.10/EXP12_10.sce
blob: 0cfa7c7a96f03e9866c89049aadc967ca8fa5cc8 (plain)
1
2
3
4
5
6
7
clc;funcprot(0);//EXAMPLE 12.10
// Initialisation of Variables
%M=0.60;.......//Percentage of Carbon in Martensite at  750 degree celsius
%a=50;......//Percentage of Carbon in Austenite at 750 degree celsius
%c=0.02;......//Percentage of Carbon atoms in Steel 
X=(%a/100)*(%M-%c)+%c;......//The carbon content of Steel in percentage
disp(X,"The carbon content of hypoeutectoid  Steel in percentage:")