1 files changed, 29 insertions, 0 deletions
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