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