diff options
Diffstat (limited to '3526/CH10/EX10.9/EX10_9.sce')
| -rw-r--r-- | 3526/CH10/EX10.9/EX10_9.sce | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/3526/CH10/EX10.9/EX10_9.sce b/3526/CH10/EX10.9/EX10_9.sce new file mode 100644 index 000000000..f1eb704f1 --- /dev/null +++ b/3526/CH10/EX10.9/EX10_9.sce @@ -0,0 +1,20 @@ +clc;funcprot(0);//EXAMPLE 10.9
+//page 296
+// Initialisation of Variables
+%NiL=37;......// percentage of NI the Liquid contains at 1270 degree celsius
+%NiS=50;........//percentage of NI the Solid contains at 1270 degree celsius
+%NiL2=32;........//percentage of NI the Liquidcontains at 1250 degree celsius
+%NiS2=45;........//percentage of NI the Solid contains at 1250 degree celsius
+%NiS3=40;........//percentage of NI the Solid contains at 1200 degree celsius
+%NiL3=40;.......//percentage of NI the Liquid contains at 1300 degree celsius
+//CALCULATIONS
+%L=((%NiS-%NiL3)/(%NiS-%NiL))*100;......//Percentage of Liquid at 1270 degree celsius
+%S=((%NiS3-%NiL)/(%NiS-%NiL))*100;.......//Percentage of Solid qt 1270 degree celsius
+%L2=((%NiS2-%NiL3)/(%NiS2-%NiL2))*100;....//Percentage of Liquid at 1250 degree celsius
+%S2=((%NiS3-%NiL2)/(%NiS2-%NiL2))*100;....//Percentage of Solid qt 1250 degree celsius
+printf("At 1300 degree celsius only one phase so 100 percent Liquid")
+disp(round(%L),"Percentage of Liquid at 1270 degree celsius :")
+disp(round(%S),"Percentage of Solid qt 1270 degree celsius:")
+disp(round(%L2),"Percentage of Liquid at 1250 degree celsius :")
+disp(round(%S2),"Percentage of Solid at 1250 degree celsius:")
+printf("At 1200 degree celsius only one phase so 100 percent Solid ")
|