12 files changed, 71 insertions, 0 deletions
diff --git a/1586/CH16/EX16.11/EXP16_11.png b/1586/CH16/EX16.11/EXP16_11.png
new file mode 100644
index 000000000..af0bdc53e
--- /dev/null
+++ b/1586/CH16/EX16.11/EXP16_11.png
diff --git a/1586/CH16/EX16.11/EXP16_11.sce b/1586/CH16/EX16.11/EXP16_11.sce
new file mode 100644
index 000000000..606ad7cb5
--- /dev/null
+++ b/1586/CH16/EX16.11/EXP16_11.sce
@@ -0,0 +1,9 @@
+clc;funcprot(0);//EXAMPLE 16.11
+//INITIALISATION OF VAREIABLES
+a1=200;.............//Total Projected Area for the Cavity in   cm^2
+Pa=25*10^6;.........//Pressure applied on the Cavity in Pa
+de=4;................//Depth of the part in cm
+rho=2*10^6;.........//Pressure Factro in Pa/cm
+F=(a1)*((Pa)+(rho*de));.......//Force needed to form a Thermoset in Pa
+disp(F*10^-4,"Force needed to form a Thermoset in N:")
+ 
diff --git a/1586/CH16/EX16.2/EXP16_2.jpg b/1586/CH16/EX16.2/EXP16_2.jpg
new file mode 100644
index 000000000..543fdb5d2
--- /dev/null
+++ b/1586/CH16/EX16.2/EXP16_2.jpg
diff --git a/1586/CH16/EX16.2/EXP16_2.sce b/1586/CH16/EX16.2/EXP16_2.sce
new file mode 100644
index 000000000..b7dfbdb04
--- /dev/null
+++ b/1586/CH16/EX16.2/EXP16_2.sce
@@ -0,0 +1,15 @@
+clc;funcprot(0);//EXAMPLE 16.2
+// Initialisation of Variables
+W=28;...............//Molecular weight of Ethylene in g/mol
+W1=200000;............//Molecular weight of Benzoyl Peroxide in g/mol
+W2=1000;............//Weight of Polyethylene in gm
+W3=242;.............//Molecular Weight of Benzoyl Peroxide in g/mol
+//Calculations
+DP=W1/W;..............// Degree of Polymerization 
+n=(W2*6.02*10^23)/W;..............//No. of Monomers present 
+M=n/DP;......................//NO. of Benzoyl Peroxide Molecules to be present
+Ai=(M*W3)/6.02*10^23;............//Amount of Initiator needed in gm
+disp(DP,"Degree of Polymerization :")
+disp(n,"No. of Monomers present :")
+disp(M,"NO. of Benzoyl Peroxide Molecules to be present:")
+disp(Ai,"Amount of Initiator needed in gm:")
diff --git a/1586/CH16/EX16.3/EXP16_3.jpg b/1586/CH16/EX16.3/EXP16_3.jpg
new file mode 100644
index 000000000..bbc34b1f3
--- /dev/null
+++ b/1586/CH16/EX16.3/EXP16_3.jpg
diff --git a/1586/CH16/EX16.3/EXP16_3.sce b/1586/CH16/EX16.3/EXP16_3.sce
new file mode 100644
index 000000000..8ade41b81
--- /dev/null
+++ b/1586/CH16/EX16.3/EXP16_3.sce
@@ -0,0 +1,12 @@
+clc;funcprot(0);//EXAMPLE 16.3
+// Initialisation of Variables
+W1=116;................//Molecular Weight of Hexamethylene Diamine in g/mol
+W2=146;................//Molecular Weight of Adipic Acid in g/mol
+W3=18;.................//Molecular Weight of Water in g/mol
+W=1000;................//Weight of Hexamethylene Diamine in gm
+//Calculations
+N=W/W1;................//No. of Moles of Hexamethylene Diamine 
+X=N*W2;................//Weight of Adipic Acid required
+Y=N*W3;................//Weight of Water in gm
+N2=W+X-2*Y;.............//Amount of Nylon Produced
+disp(N2,"Amount of Nylon Produced:")
diff --git a/1586/CH16/EX16.4/EXP16_4.jpg b/1586/CH16/EX16.4/EXP16_4.jpg
new file mode 100644
index 000000000..eb94a3612
--- /dev/null
+++ b/1586/CH16/EX16.4/EXP16_4.jpg
diff --git a/1586/CH16/EX16.4/EXP16_4.sce b/1586/CH16/EX16.4/EXP16_4.sce
new file mode 100644
index 000000000..0412dfc08
--- /dev/null
+++ b/1586/CH16/EX16.4/EXP16_4.sce
@@ -0,0 +1,10 @@
+clc;funcprot(0);//EXAMPLE 16.4
+// Initialisation of Variables
+W1=116;................//Molecular Weight of Hexamethylene Diamine in g/mol
+W2=146;................//Molecular Weight of Adipic Acid in g/mol
+W3=18;.................//Molecular Weight of Water in g/mol
+W4=120000;.............//Molecular Weight of 6,6-nylon in g/mol
+//alculations
+M=W1+W2-2*W3;..........//Molecular Weight of the repeated unit
+DOP=W4/M;...............//Degree of Polymerization of 6,6-nylon
+disp(DOP,"Degree of Polymerization of 6,6-nylon:")
diff --git a/1586/CH16/EX16.7/EXP16_7.jpg b/1586/CH16/EX16.7/EXP16_7.jpg
new file mode 100644
index 000000000..7d27e3eb2
--- /dev/null
+++ b/1586/CH16/EX16.7/EXP16_7.jpg
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:")
diff --git a/1586/CH16/EX16.9/EXP16_9.jpg b/1586/CH16/EX16.9/EXP16_9.jpg
new file mode 100644
index 000000000..1dfe182c4
--- /dev/null
+++ b/1586/CH16/EX16.9/EXP16_9.jpg
diff --git a/1586/CH16/EX16.9/EXP16_9.sce b/1586/CH16/EX16.9/EXP16_9.sce
new file mode 100644
index 000000000..c843893af
--- /dev/null
+++ b/1586/CH16/EX16.9/EXP16_9.sce
@@ -0,0 +1,12 @@
+clc;funcprot(0);//EXAMPLE 16.7
+//INITIALISATION OF VAREIABLES
+sig1=980;...............//Initial Stress of POlyisoprene in psi
+sig2=1000;.............//Fnal Stress of POlyisoprene in psi
+sig3=1500;.............// Stress of POlyisoprene after one year in psi
+t1=6;................//time in weeks
+t2=52;.............//time in weeks
+//CALCULATIONS
+Rt=-t1/(log(sig1/sig2));.....//Relaxation time in weeks
+sig=sig3/(%e^(-t2/Rt));........//Initial Stress to be placed in psi
+disp(round(Rt),"Relaxation time in weeks:")
+disp(round (sig),"Initial Stress to be placed in psi:")