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