4 files changed, 27 insertions, 0 deletions
diff --git a/1586/CH15/EX15.1/EXP15_1.jpg b/1586/CH15/EX15.1/EXP15_1.jpg
new file mode 100644
index 000000000..b448e5478
--- /dev/null
+++ b/1586/CH15/EX15.1/EXP15_1.jpg
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:")
diff --git a/1586/CH15/EX15.2/EXP15_2.jpg b/1586/CH15/EX15.2/EXP15_2.jpg
new file mode 100644
index 000000000..af4c213a7
--- /dev/null
+++ b/1586/CH15/EX15.2/EXP15_2.jpg
diff --git a/1586/CH15/EX15.2/EXP15_2.sce b/1586/CH15/EX15.2/EXP15_2.sce
new file mode 100644
index 000000000..f8d97a0e5
--- /dev/null
+++ b/1586/CH15/EX15.2/EXP15_2.sce
@@ -0,0 +1,11 @@
+clc;funcprot(0);//EXAMPLE 15.2
+// 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:")