diff options
Diffstat (limited to '3526/CH15')
| -rw-r--r-- | 3526/CH15/EX15.1/EX15_1.sce | 17 | ||||
| -rw-r--r-- | 3526/CH15/EX15.2/EX15_2.sce | 12 |
2 files changed, 29 insertions, 0 deletions
diff --git a/3526/CH15/EX15.1/EX15_1.sce b/3526/CH15/EX15.1/EX15_1.sce new file mode 100644 index 000000000..c872f7f64 --- /dev/null +++ b/3526/CH15/EX15.1/EX15_1.sce @@ -0,0 +1,17 @@ +clc;funcprot(0);//EXAMPLE 15.1
+//page 459
+// Initialisation of Variables
+rho=3.2;.............//Specific Gravity of SiC in g/cm^2
+Ww=385;.............//Weight of Ceramic when dry in g
+Wd=360;.............//Weight of Ceramic after Soaking in water in g
+Ws=224;.............//Weight of Ceramic Suspended in water in g
+//CALCULATIONS
+A=((Ww-Wd)/(Ww-Ws))*100;..........//Apparent Porosity in percent
+B=(Wd)/(Ww-Ws);..........//Bulk Density of Ceramic
+T=((rho-B)/rho)*100;.......//True Porosity of Ceramic in Percent
+C=T-A;..............//Closed pore percent of ceramic
+F=C/T;..............//Fraction Closed Pores of Ceramic
+disp(A,"Apparent Porosity in percent:")
+disp(B,"Bulk Density of Ceramic:")
+disp(T,"True Porosity of Ceramic in Percent:")
+disp(F,"Fraction Closed Pores of Ceramic:")
diff --git a/3526/CH15/EX15.2/EX15_2.sce b/3526/CH15/EX15.2/EX15_2.sce new file mode 100644 index 000000000..af83d3f86 --- /dev/null +++ b/3526/CH15/EX15.2/EX15_2.sce @@ -0,0 +1,12 @@ +clc;funcprot(0);//EXAMPLE 15.2
+//page 462
+// Initialisation of Variables
+R=2.5;..........//Ratio of O to Si in SiO2
+W1=69.62;........//Weight of B2O3 in g/ml
+W2=60.08;........//Weight of SiO2 in g/ml
+//CALCULATIONS
+Fb1=(R-2)/3.5;...........//Mole Fraction of B2O3
+Fb2=1-Fb1;.........//Mole fraction of SiO2
+Wp=((Fb1*W1)/((Fb1*W1)+(Fb2*W2)))*100;.......//Weight Percent of B2O3
+disp(Fb1,"Mole Fraction of B2O3:")
+disp(Wp,"Weight Percent of B2O3:")
|