summaryrefslogtreecommitdiff
path: root/3526/CH12/EX12.10/EX12_10.sce
blob: 7c071c0138db763b72c6e2001a899813d443c88e (plain)
1
2
3
4
5
6
7
8
clc;funcprot(0);//EXAMPLE 12.10
//page 366
// 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:")