blob: 03a985f99c6b3e89013bff2cf7b4e5085edf2571 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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
|
