blob: ce3e211e8bb246172dc8b319cb24adad01ca5183 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
clc;funcprot(0);//EXAMPLE 11.2
//page 319
// Initialisation of Variables
%Sn=2;......//Amount of Tin Dissolved in alpha solid solution
%Sn2=10;.....//Amount of Tin Dissolved in alpha+beeta solid solution at 0 degree celsius
m=100;........//Total mass of the Pb-Sn alloy in gm
Pbm=90;.......//Total mass of the Pb in Pb-Sn alloy in gm
//CALCULATIONS
B=((%Sn2-%Sn)/(m-%Sn))*100;.......//The amount of beeta Sn that forms if a Pb-10% Sn alloy is cooled to 0 Degree celsius
B2=100-B;......//The amount of alpha Sn that forms if a Pb-10% Sn alloy is cooled to 0 Degree celsius
Sn1=(%Sn/100)*(B2);......//The mass of Sn in the alpha phase in g
Sn2=%Sn2-Sn1;.....//The mass of Sn in beeta phase in g
Pb1=B2-Sn1;....//The mass of Pb in the alpha phase in g
Pb2=Pbm-Pb1;.........//The mass of Pb in the beeta phase in g
disp(B,"c.Amount of beeta forms of Pb-Sn in gm:")
disp(Sn1,"d.The mass of Sn in the alpha phase in g:")
disp(Sn2,"d.The mass of Sn in beeta phase in g:")
disp(Pb1,"e.The mass of Pb in the alpha phase in g:")
disp(Pb2,"e.The mass of Pb in the beeta phase in g:")
|
