diff options
Diffstat (limited to '1586/CH11/EX11.5/EXP11_5.sce')
| -rw-r--r-- | 1586/CH11/EX11.5/EXP11_5.sce | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/1586/CH11/EX11.5/EXP11_5.sce b/1586/CH11/EX11.5/EXP11_5.sce new file mode 100644 index 000000000..e0acb37d0 --- /dev/null +++ b/1586/CH11/EX11.5/EXP11_5.sce @@ -0,0 +1,10 @@ +clc;funcprot(0);//EXAMPLE 11.3
+// Initialisation of Variables
+%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
+%Sn2=30;....//Percentage of the Sn in the eutectic alloy in percent
+//CALCULATIONS
+%Pa=(%Sn-%Sn2)/(%Sn-%Pb);......//The amount of compositions of primary alpha in Pb-Sn
+%L=(%Sn2-%Pb)/(%Sn-%Pb);......//The amount of composition of eutectic in Pb-Sn
+disp(round(%Pa*100),"The amount of compositions of primary alpha in Pb-Sn:")
+disp(round(%L*100),"The amount of composition of eutectic in Pb-Sn:")
|