1 files changed, 17 insertions, 0 deletions
diff --git a/1388/CH4/EX4.22/4_22.sce b/1388/CH4/EX4.22/4_22.sce
new file mode 100755
index 000000000..2e6731ee3
--- /dev/null
+++ b/1388/CH4/EX4.22/4_22.sce
@@ -0,0 +1,17 @@
+clc
+//initialisation of variables
+p= 1 //atm
+p1= 3 //atm
+R= 1.987 //cal/mole K
+T= 27 //C
+b= 0.0428 //l mole^-1
+a= 3.61 //l^2 atm mole^-1
+//CALCULATIONS
+G= R*(273+T)*log(p/p1)
+A= R*(273+T)*log(p/p1)
+G1= R*(273+T)*log(p/p1)+(b-(a/(0.08205*(T+273))))*(p-p1)*(R/0.08205)
+//RESULTS
+printf (' Gibs free energy= %.f cal',G)
+printf (' \n Value of A= %.f cal',A)
+printf (' \n Gibs free energy= %.f cal',G1)
+printf (' \n Value of A= %.f cal',A)