summaryrefslogtreecommitdiff
path: root/3526/CH16/EX16.7/EX16_7.sce
blob: cd5c4433686bc63c862a676ba5faa84e9412d925 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
clc;funcprot(0);//EXAMPLE 16.7
//page 499
// 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:")