diff options
Diffstat (limited to '3526/CH16/EX16.7/EX16_7.sce')
| -rw-r--r-- | 3526/CH16/EX16.7/EX16_7.sce | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/3526/CH16/EX16.7/EX16_7.sce b/3526/CH16/EX16.7/EX16_7.sce new file mode 100644 index 000000000..cd5c44336 --- /dev/null +++ b/3526/CH16/EX16.7/EX16_7.sce @@ -0,0 +1,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:")
|