1 files changed, 16 insertions, 0 deletions
diff --git a/3557/CH13/EX13.8/Ex13_8.sce b/3557/CH13/EX13.8/Ex13_8.sce
new file mode 100644
index 000000000..47a8ca4c2
--- /dev/null
+++ b/3557/CH13/EX13.8/Ex13_8.sce
@@ -0,0 +1,16 @@
+//Example 13.8//
+
+//There is one H2O2 molecule (=two OH groups) per polyethylene molecule For 0.15 wt%H2O2
+C=12.01;//amu //atomic mass of carbon //(From Appendix 1)
+H=1.008;//amu //atomic mass of hydrogen //(From Appendix 1)
+O=16.00;//amu //atomic mass of oxygen //(From Appendix 1)
+a=2;//Number of atoms
+b=4;//Number of atoms
+c=0.15;//wt % H2O2
+d=0.16; //wt % H2O2
+n1=(((a*H)+(a*O))/(((a*C)+(b*H))*c))*100
+mprintf("n1 = %i ",n1)
+n2=(((a*H)+(a*O))/(((a*C)+(b*H))*d))*100
+mprintf("\nn2 = %i ",n2)
+d=((n2-n1)/n1)*100
+mprintf("\nd = %f percent",d)