7 files changed, 82 insertions, 0 deletions
diff --git a/3428/CH1/EX1.1/Ex1_1.sce b/3428/CH1/EX1.1/Ex1_1.sce
new file mode 100644
index 000000000..1e506a90c
--- /dev/null
+++ b/3428/CH1/EX1.1/Ex1_1.sce
@@ -0,0 +1,14 @@
+//Section-1,Example-1,Page no.-AC.33
+// To caculate number average molecular mass(Mn_bar) and weight average molecular mass(Mw_bar) 
+clc;
+W_1=10
+W_2=90
+M_1=10000
+M_2=100000
+W=W1+W2            //weight of 2 constituents 
+N_1=10/10000       //no.of moles of N1
+N_2=90/100000      //no.of moles of N2
+Mn_bar=(W_1+W_2)/(N_1+N_2)
+disp(Mn_bar,'number average molecular mass')
+Mw_bar=((N_1*M_1^2)+(N_2*M_2^2))/((N_1*M_1)+(N_2*M_2))
+disp(Mw_bar,'weight average molecular mass')
diff --git a/3428/CH1/EX1.2/Ex1_2.sce b/3428/CH1/EX1.2/Ex1_2.sce
new file mode 100644
index 000000000..b49461f92
--- /dev/null
+++ b/3428/CH1/EX1.2/Ex1_2.sce
@@ -0,0 +1,13 @@
+//Section-1,Example-2,Page no.-AC.34
+// To find number average molecular masses(Mn_bar) and weight averge molecular masses(Mw_bar)
+clc;
+WA=200
+WB=200
+WC=100
+MA_bar=1.2*10^5
+MB_bar=5.6*10^5
+MC_bar=10*10^5
+Mn_bar_mixture=(WA+WB+WC)/(WA/MA_bar+WB/MB_bar+WC/MC_bar)
+disp (Mn_bar_mixture,'number average molecular mass')
+Mw_bar_mixture=((4.5*10^5*200)+(8.9*10^5*200)+(10*10^5*100))/(200+200+100)
+disp (Mw_bar_mixture,'weight averge molecular mass')
diff --git a/3428/CH1/EX1.3/Ex1_3.sce b/3428/CH1/EX1.3/Ex1_3.sce
new file mode 100644
index 000000000..2712452c5
--- /dev/null
+++ b/3428/CH1/EX1.3/Ex1_3.sce
@@ -0,0 +1,15 @@
+//Section-1,Example-3,Page no.-AC.35
+// To find the number average molecular mass(M_nbar),weight averge molecular mass(M_wbar) and PDI
+clc;
+N1=100
+N2=200
+N3=300
+M1=100
+M2=1000
+M3=10000
+M_nbar=(N1*M1+N2*M2+N3*M3)/(N1+N2+N3)
+disp(M_nbar,'number average molecular mass.')
+M_wbar=(N1*M1^2+N2*M2^2+N3*M3^2)/(N1*M1+N2*M2+N3*M3)
+disp(M_wbar,'weight average molecular mass.')
+PDI=M_wbar/M_nbar
+disp(PDI,'Polydispersity index.')
diff --git a/3428/CH1/EX1.4/Ex1_4.sce b/3428/CH1/EX1.4/Ex1_4.sce
new file mode 100644
index 000000000..ae430eaa7
--- /dev/null
+++ b/3428/CH1/EX1.4/Ex1_4.sce
@@ -0,0 +1,7 @@
+//Section-1,Example-4,Page no.-AC.35
+// To calculate the number of molecules of PP produced.
+clc;
+n=42*((6.023*10^23)/42)              //average degree of polymerisation(DP bar)
+N= n/1000
+disp(N,'number of PP molecules formed')
+
diff --git a/3428/CH1/EX1.5/Ex1_5.sce b/3428/CH1/EX1.5/Ex1_5.sce
new file mode 100644
index 000000000..6bacba006
--- /dev/null
+++ b/3428/CH1/EX1.5/Ex1_5.sce
@@ -0,0 +1,7 @@
+//Section-1,Example-5,Page no.-AC.35
+//To calculate the number average degree of polymerisation(DP_n bar)of polystrene.
+clc;
+M_nbar= 10^5                   //(g/mol)
+M_o = (12*8)+(1*8)
+DP_nbar=(M_nbar/M_o)
+disp(DP_nbar,'Number average degree of polymerisation of polystrene')
diff --git a/3428/CH1/EX1.6/Ex1_6.sce b/3428/CH1/EX1.6/Ex1_6.sce
new file mode 100644
index 000000000..f4f55a049
--- /dev/null
+++ b/3428/CH1/EX1.6/Ex1_6.sce
@@ -0,0 +1,7 @@
+//Section-1,Example-6,Page no.-AC.36
+//To find M_wbar for PP given its degree of polymerisation as 10,000.
+clc;
+DP_wbar= 10000                    //Degree of polymerisation(given)
+M_o=(12*3)+(6*1)                 //Molecular weight of repeat unit of PP
+M_wbar= (10000*42)
+disp (M_wbar,'weight averge molecular mass(gm/mol)')
diff --git a/3428/CH1/EX1.7/Ex1_7.sce b/3428/CH1/EX1.7/Ex1_7.sce
new file mode 100644
index 000000000..f481e0474
--- /dev/null
+++ b/3428/CH1/EX1.7/Ex1_7.sce
@@ -0,0 +1,19 @@
+//Section-1,Example-7,Page no.-AC.36
+//To calculate number average(Mn_bar) and weight average molecular mass(Mw_bar)of polypropylene polymer 
+clc;
+M1=[(12*3)+(6*1)]*400 //molecular mass of (a)
+M2=[(12*3)+(6*1)]*800 //molecular mass of (b)
+M3=[(12*3)+(6*1)]*600 //molecular mass of (c)
+n1=25
+n2=35
+n3=40
+Mn_bar=((n1*M1)+(n2*M2)+(n3*M3))/(n1+n2+n3)
+disp(Mn_bar,'number average molecular mass')
+Mw_bar=((n1*M1^2)+(n2*M2^2)+(n3*M3^2))/((n1*M1)+(n2*M2)+(n3*M3))
+disp(Mw_bar,'weight average molecular mass')
+
+
+
+
+
+