summaryrefslogtreecommitdiff
path: root/1586/CH11/EX11.3/EXP11_3.sce
blob: 112f11e7f2c894915fd616d2d652a23fee2668f6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
clc;funcprot(0);//EXAMPLE 11.3
// Initialisation of Variables
M=200;........//Mass of alpha phase of alloy in gm
%Sn=61.9;......//Percentage of the Sn in the eutectic alloy in percent
%Pb=19;.......//Percentage of the Pb in the alpha phase in percent
%Pb2=97.5;.....//Percentage of the Sn in the beeta phase in percent
//CALCULLATIONS
W1=(%Pb2-%Sn)/(%Pb2-%Pb);.....//Weight fraction of alpha phase
W2=(%Sn-%Pb)/(%Pb2-%Pb);.......//Weight fraction of beeta phase
Ma=M*W1;......//The mass of the alpha phase in 200g in g
Mb=M-Ma;......//The amount of the beeta phase in g at  182 degree celsius
MPb1=Ma*(1-(%Pb/100));.......//Mass of Pb in the alpha phase in g
MSn1=Ma-MPb1;......//Mass of Sn in alpha phase 
MPb2=Mb*(1-(%Pb2/100));.....//Mass of Pb in beeta phase
MSn2=123.8-MSn1;.....//mass of Sn in beeta Phase
disp(W1,"Weight fraction of alpha phase")
disp(W2,"Weight fraction of beeta phase")
disp(Ma,"The mass of the alpha phase in 200g in g:")
disp(Mb,"The amount of the beeta phase in g at  182 degree celsius:")
disp(MPb1,"Mass of Pb in the alpha phase in g:")
disp(MSn1,"Mass of Sn in alpha phase")
disp(MPb2,"Mass of Pb in beeta phase:")
disp(MSn2,"mass of Sn in beeta Phase:")