diff options
Diffstat (limited to '3526/CH11/EX11.3/EX11_3.sce')
| -rw-r--r-- | 3526/CH11/EX11.3/EX11_3.sce | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/3526/CH11/EX11.3/EX11_3.sce b/3526/CH11/EX11.3/EX11_3.sce new file mode 100644 index 000000000..b07ea38a2 --- /dev/null +++ b/3526/CH11/EX11.3/EX11_3.sce @@ -0,0 +1,24 @@ +clc;funcprot(0);//EXAMPLE 11.3
+//page 321
+// 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:")
|