diff options
Diffstat (limited to '1019/CH8/EX8.5/Example_8_5.sce')
-rw-r--r-- | 1019/CH8/EX8.5/Example_8_5.sce | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/1019/CH8/EX8.5/Example_8_5.sce b/1019/CH8/EX8.5/Example_8_5.sce new file mode 100644 index 000000000..93d3f4adc --- /dev/null +++ b/1019/CH8/EX8.5/Example_8_5.sce @@ -0,0 +1,23 @@ +//Example 8.5
+clear;
+clc;
+
+//Given
+delHfoC=0;//enthalpy of formation of graphite in kJ mol^-1
+delHfoH2=0;//enthalpy of formation of Hydrogen molecule in kJ mol^-1
+delHfoCH4=-74.83;//enthalpy of formation of methane in kJ mol^-1
+delSoC=5.68//standard entropy of graphite in J K^-1 mol^-1
+delSoH2=130.59//standard entropy of Hydrogen in J K^-1 mol^-1
+delSoCH4=186.19//standard entropy of methane in J K^-1 mol^-1
+T=298;//temperature in K
+R=8.314;//gas constant in J K^-1 mol^-1
+
+//To determine the change in free energy delGo and Kp,the equillibrium constant
+delHo=1000*(delHfoCH4-(delHfoC+(2*delHfoH2)));//Net change in enthalpy in J mol^-1
+delSo=delSoCH4-(delSoC+(2*delSoH2));//Net change in entropy in J K^-1 mol^-1
+delGo=delHo-(T*delSo);//delGo in J mol^-1
+k=-1*delGo/(R*T);//k=log(Kp)
+Kp=exp(k);//equillibrium constant Kp
+mprintf('Change in free energy,delGo=%f J mol^-1',delGo);
+mprintf('\n Equillibrium constant,Kp=%f',Kp);
+//end
\ No newline at end of file |