diff options
Diffstat (limited to '1586/CH15/EX15.1/EXP15_1.sce')
| -rw-r--r-- | 1586/CH15/EX15.1/EXP15_1.sce | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/1586/CH15/EX15.1/EXP15_1.sce b/1586/CH15/EX15.1/EXP15_1.sce new file mode 100644 index 000000000..1038e44ca --- /dev/null +++ b/1586/CH15/EX15.1/EXP15_1.sce @@ -0,0 +1,16 @@ +clc;funcprot(0);//EXAMPLE 15.1
+// 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:")
|