4 files changed, 106 insertions, 0 deletions
diff --git a/539/CH14/EX14.2.a/Example_14_2a.sce b/539/CH14/EX14.2.a/Example_14_2a.sce
new file mode 100755
index 000000000..d214aea7a
--- /dev/null
+++ b/539/CH14/EX14.2.a/Example_14_2a.sce
@@ -0,0 +1,24 @@
+//Computations of the Density
+
+clear;
+clc;
+
+printf("\tExample 14.2\n");
+
+printf("\n\tPart A");
+Ac=12.01;  //in g/mol  Molecular weight of Carbon
+Ah=1.008;  //in g/mol  molecular weight of hydrogen
+a=7.41*10^-8;  //in cm
+b=4.94*10^-8;  //in cm
+c=2.55*10^-8;  //in cm
+Na=6.023*10^23;
+
+Vc=a*b*c;
+n=2;
+A=(2*Ac)+(4*Ah);
+
+density_c=n*A/(Vc*Na);
+
+printf("\nDensity is : %f g/cm^3\n",density_c);
+
+//End
+\ No newline at end of file
diff --git a/539/CH14/EX14.2.b/Example_14_2b.sce b/539/CH14/EX14.2.b/Example_14_2b.sce
new file mode 100755
index 000000000..03a985f99
--- /dev/null
+++ b/539/CH14/EX14.2.b/Example_14_2b.sce
@@ -0,0 +1,29 @@
+//Percent Crystallinity of Polyethylene
+
+clear;
+clc;
+
+printf("\tExample 14.2\n");
+
+printf("\n\tPart B");
+density_a=0.870;  // in g/cm^3
+density_s=0.925;  // in g/cm^3
+
+Ac=12.01;  //in g/mol  Molecular weight of Carbon
+Ah=1.008;  //in g/mol  molecular weight of hydrogen
+a=7.41*10^-8;  //in cm
+b=4.94*10^-8;  //in cm
+c=2.55*10^-8;  //in cm
+Na=6.023*10^23;
+
+Vc=a*b*c;
+n=2;
+A=(2*Ac)+(4*Ah);
+
+density_c=n*A/(Vc*Na);
+
+pc=density_c*(density_s-density_a)*100/(density_s*(density_c-density_a));
+
+printf("\npercentage crystallinity is : %.1f %%\n",pc);
+
+//End
+\ No newline at end of file
diff --git a/539/CH14/EX14.3.a/Example_14_3a.sce b/539/CH14/EX14.3.a/Example_14_3a.sce
new file mode 100755
index 000000000..add1a5de5
--- /dev/null
+++ b/539/CH14/EX14.3.a/Example_14_3a.sce
@@ -0,0 +1,23 @@
+//Computations of Diffusion Flux of Carbon dioxide through Plasic Beverage Container
+
+clear;
+clc;
+
+function[A]= approx(V,n)
+    A= round(V*10^n)/10^n;
+    funcprot(0)
+endfunction
+
+printf("\tExample 14.3\n");
+
+printf("\n\tPart A");
+P1=400000; // in Pa  Pressure inside the bottle
+P2=400;  // in Pa  Pressure outside the bottle
+Pm=0.23*10^-13;  //Solubility Coefficient
+dx=0.05;  // in cm Thickness of wall
+
+J=approx(-Pm*(P2-P1)/dx,8);
+printf("\nDiffusion flux is : %.2f * 10 ^ -6 ",J/10^-6);
+printf("cm^3 STP/cm^2-s\n");
+
+//End
+\ No newline at end of file
diff --git a/539/CH14/EX14.3.b/Example_14_3b.sce b/539/CH14/EX14.3.b/Example_14_3b.sce
new file mode 100755
index 000000000..3ff38ddcf
--- /dev/null
+++ b/539/CH14/EX14.3.b/Example_14_3b.sce
@@ -0,0 +1,30 @@
+//Beverage Shell Life
+
+clear;
+clc;
+
+function[A]= approx(V,n)
+    A= round(V*10^n)/10^n;
+    funcprot(0)
+endfunction
+
+printf("\tExample 14.3\n");
+
+P1=400000; // in Pa  Pressure inside the bottle
+P2=400;  // in Pa  Pressure outside the bottle
+Pm=0.23*10^-13;  //Solubility Coefficient
+dx=0.05;  // in cm Thickness of wall
+
+J=approx(-Pm*(P2-P1)/dx,8);
+
+printf("\n\tPart B");
+A=500;  //surface area of bottle in cm^2
+V_lose=750;  //cm^3 STP
+
+V=J*A;
+t=V_lose/V;
+time=t/(3600*24);
+
+printf("\nTime to escape is : %.2e sec or %d days\n",t,time);
+
+//End
+\ No newline at end of file