1 files changed, 20 insertions, 0 deletions
diff --git a/3557/CH13/EX13.6/Ex13_6.sce b/3557/CH13/EX13.6/Ex13_6.sce
new file mode 100644
index 000000000..7dad32b69
--- /dev/null
+++ b/3557/CH13/EX13.6/Ex13_6.sce
@@ -0,0 +1,20 @@
+//Example 13.6//
+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=6;//Number of atoms
+b=2;//Number of atom
+mw=((a*C)+(a*H)+O)+1.5*(C+(b*H)+O)-1.5*((b*H)+O)
+mprintf("mw = %f g  (Answer is not mentioned in the texbook)",mw)
+//the mass of the polymer i question is
+p=1.4;//g/cm^3
+V=10;//cm^3
+m=p*V
+mprintf("\nm = %i g",m)
+//Therefore the numbers of mers in the cylinder is
+c=0.6023*10^24;//mers //Avogardo's Number
+n1=m/(mw/c)
+mprintf("\nn1 = %e mers",n1)
+//which gives the molecular weight
+wt=n1*mw
+mprintf("\nwt = %e amu",wt)