blob: 8e8f90c945f90bcf7692d9947005d2ff0e4c5767 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
clc;funcprot(0);//EXAMPLE 16.7
// Initialisation of Variables
M=56;.........//Molecular Weight of Polyethylene
P=0.88;........//Measured density of PolyethyleneInitial
P1=0.915;........//Measured density of Polyethylene Final
Pa=0.87;........//Density of Amorphous Polyethylene
//Caluculations
Pc=M/(7.42*4.95*(2.55*10^-24)*6.02*10^23);...........//Density of complete Crystalline polymer
Cp1= ((Pc/P)*((P-Pa)/(Pc-Pa)))*100;..................//Crystallinity of Polyethylene initial
Cp2= ((Pc/P1)*((P1-Pa)/(Pc-Pa)))*100;................//Crystallinity of Polyethylene final
disp(Pc,"Density of Crystalline polymer:")
disp(Cp1,"Crystall. of Polyethylene initial:")
disp(Cp2,"Crystall. of Polyethylene final:")
|
