//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