12 files changed, 115 insertions, 0 deletions
diff --git a/1427/CH15/EX15.1/15_1.sce b/1427/CH15/EX15.1/15_1.sce
new file mode 100644
index 000000000..efe458799
--- /dev/null
+++ b/1427/CH15/EX15.1/15_1.sce
@@ -0,0 +1,9 @@
+//ques-15.1
+//Calculating equilibrium constant for a reaction
+clc
+a=15;//moles of H2
+b=5.2;//moles of I2
+c=10;//moles of HI
+x=c/2;
+Kc=(4*x^2)/((a-x)*(b-x));//equilibrium constant
+printf("Equilibrium constant required is %.0f.",Kc);
diff --git a/1427/CH15/EX15.10/15_10.sce b/1427/CH15/EX15.10/15_10.sce
new file mode 100644
index 000000000..5f3607a13
--- /dev/null
+++ b/1427/CH15/EX15.10/15_10.sce
@@ -0,0 +1,12 @@
+//ques-15.10
+//Calculating equilibrium constant for a reaction
+clc
+P=1000;//pressure (in atm)
+//a/b=1/3 (Volume ratio)
+a=1;//volume of N2
+b=3;//volume of H2
+c=0.2491;//mole fraction of ammonia
+//c=(2*x)/(4-2*x)
+x=0.9964/2.4982;//degree of dissociation
+Kp=(16*x^2*(2-x)^2)/(27*P^2*(1-x)^4);//equilibrium constant
+printf("Equilibrium constant required is %.9f atm^-2.",Kp);
diff --git a/1427/CH15/EX15.11/15_11.sce b/1427/CH15/EX15.11/15_11.sce
new file mode 100644
index 000000000..6e11bab9a
--- /dev/null
+++ b/1427/CH15/EX15.11/15_11.sce
@@ -0,0 +1,13 @@
+//ques-15.11
+//Calculating total pressure to be applied
+clc
+//N2/H2 = 1/3
+a=1;//moles of N2
+b=3;//moles of H2
+Kp=1.64*10^-4;//equilibrium constant (in atm^-2)
+c=10/100;//content of ammonia
+//c = (2*x)/(4-2*x)
+x=0.4/2.2;
+Z=(16*x^2*(2-x)^2)/(27*Kp*(1-x)^4);
+P=sqrt(Z);//pressure
+printf("Pressure to be applied is %.2f atm.",P);
diff --git a/1427/CH15/EX15.12/15_12.sce b/1427/CH15/EX15.12/15_12.sce
new file mode 100644
index 000000000..f5792cdd6
--- /dev/null
+++ b/1427/CH15/EX15.12/15_12.sce
@@ -0,0 +1,10 @@
+//ques-15.12
+//Calculating both equilibrium constants
+clc
+P=1;//pressure (in atm)
+x=80/100;//degree of dissociation
+T=523;//temperture (in K)
+R=0.0831;//L-atm/K/mole
+Kp=(P*x^2)/(1-x^2);
+Kc=Kp/(R*T);
+printf("The value of Kp and Kc are %.4f atm and %.4f mole/L respectively.",Kp,Kc);
diff --git a/1427/CH15/EX15.2/15_2.sce b/1427/CH15/EX15.2/15_2.sce
new file mode 100644
index 000000000..b0d6e48d5
--- /dev/null
+++ b/1427/CH15/EX15.2/15_2.sce
@@ -0,0 +1,10 @@
+//ques-15.2
+//Calculating equilibrium constant for a dissociation reaction
+clc
+x=22;//percentage of dissociation
+a=2;//moles of HI
+c1=(x/100)/2;//content of H2
+c2=(x/100)/2;//content of I2
+c3=(2-(2*x/100))/2;//content of HI
+Kc=(c1*c2)/c3^2//equilibrium constant
+printf("Equilibrium constant required is %.4f.",Kc);
diff --git a/1427/CH15/EX15.3/15_3.sce b/1427/CH15/EX15.3/15_3.sce
new file mode 100644
index 000000000..4e5e5a99c
--- /dev/null
+++ b/1427/CH15/EX15.3/15_3.sce
@@ -0,0 +1,10 @@
+//ques-15.3
+//Determining composition of equilibrium mixture
+clc
+a=1;//moles of acid
+b=8;//moles of alcohol
+Kc=4;//equilibrium constant
+//Solving, 3*x^2-36*x+32 = 0
+D=36^2-4*3*32;//discriminant
+x=(36-sqrt(D))/(2*3);
+printf("Final content of acid, alcohol, salt and water are %.3f, %.3f, %.3f and %.3f moles respectively.",a-x,b-x,x,x);
diff --git a/1427/CH15/EX15.4/15_4.sce b/1427/CH15/EX15.4/15_4.sce
new file mode 100644
index 000000000..5a41fc194
--- /dev/null
+++ b/1427/CH15/EX15.4/15_4.sce
@@ -0,0 +1,13 @@
+//ques-15.4
+//Calculating equilibrium concentration of hydrogen and iodine and hydrogen iodide
+clc
+m1=12;//mass of hydrogen (in g)
+m2=762;//mass of iodine (in g)
+Kc=64;//equilibrium constant
+a=m1/2;//moles of H2
+b=m2/254;//moles of I2
+//Kc=(4*x^2)/((a-x)*(b-x))
+//Solving, 60*x^2-576*x+1152 = 0
+D=576^2-4*60*1152;
+x=(576-sqrt(D))/(2*60);
+printf("Equilibrium concentrations of hydrogen, iodine and hydrogen iodide are %.2f, %.2f and %.0f g respectively.",(a-x)*2,(b-x)*254,(2*x)*128);
diff --git a/1427/CH15/EX15.5/15_5.sce b/1427/CH15/EX15.5/15_5.sce
new file mode 100644
index 000000000..b3363e025
--- /dev/null
+++ b/1427/CH15/EX15.5/15_5.sce
@@ -0,0 +1,8 @@
+//ques-15.5
+//Calculating equilibrium constant
+clc
+P=1;//pressure (in atm)
+x=25;//percentage of dissociation
+x=x/100;
+Kp=((x^2)*P)/(1-x^2);//equilibrium constant
+printf("Equilibrium constant required is %.4f atm.",Kp);
diff --git a/1427/CH15/EX15.6/15_6.sce b/1427/CH15/EX15.6/15_6.sce
new file mode 100644
index 000000000..cb6934be7
--- /dev/null
+++ b/1427/CH15/EX15.6/15_6.sce
@@ -0,0 +1,7 @@
+//ques-15.6
+//Calculating pressure
+clc
+Kp=1.06*10^-2;//equilibrium constant (in atm)
+x=1/100;//degree of dissociation
+P=(Kp*(1-x^2))/(4*x^2);//pressure
+printf("Pressure required is %.2f atm.",P);
diff --git a/1427/CH15/EX15.7/15_7.sce b/1427/CH15/EX15.7/15_7.sce
new file mode 100644
index 000000000..ef1ea5bd1
--- /dev/null
+++ b/1427/CH15/EX15.7/15_7.sce
@@ -0,0 +1,9 @@
+//ques-15.7
+//Calculating degree of dissociation
+clc
+Kp=3*10^-2;//equilibrium constant (in atm)
+P=1;//pressure (in atm)
+//Kp=(P*x^2)/(1-x^2)
+//Solving, x^2 + Kp*x - Kp = 0
+x=(-Kp+sqrt(Kp^2+4*Kp))/2;//degree of dissociation
+printf("Degree of dissociation required is %.4f.",x);
diff --git a/1427/CH15/EX15.8/15_8.sce b/1427/CH15/EX15.8/15_8.sce
new file mode 100644
index 000000000..d034d030a
--- /dev/null
+++ b/1427/CH15/EX15.8/15_8.sce
@@ -0,0 +1,7 @@
+//ques-15.8
+//Calculating equilibrium constant for a reaction
+clc
+P=1;//pressure (in atm)
+x=20/100;//degree of dissociation
+Kp=(4*P*x^2)/(1-x^2);//equilibrium constant
+printf("Equilibrium constant required is %.4f atm.",Kp);
diff --git a/1427/CH15/EX15.9/15_9.sce b/1427/CH15/EX15.9/15_9.sce
new file mode 100644
index 000000000..ac105da91
--- /dev/null
+++ b/1427/CH15/EX15.9/15_9.sce
@@ -0,0 +1,7 @@
+//ques-15.9
+//Calculating equilibrium constant for a reaction
+clc
+P=10;//pressure (in atm)
+x=0.96;//degree of dissociation
+Kp=(27*P^2*x^4)/(16*((1-x)^2)*(1+x)^2);//equilibrium constant
+printf("Equilibrium constant  required is %.2f atm^2.",Kp);