summaryrefslogtreecommitdiff
path: root/3557/CH13/EX13.8/Ex13_8.sce
blob: 47a8ca4c21bdf63885176fbdfe8615b7902a29b5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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)