summaryrefslogtreecommitdiff
path: root/1388/CH4
diff options
context:
space:
mode:
Diffstat (limited to '1388/CH4')
-rwxr-xr-x1388/CH4/EX4.1/4_1.sce22
-rwxr-xr-x1388/CH4/EX4.10/4_10.sce12
-rwxr-xr-x1388/CH4/EX4.12/4_12.sce9
-rwxr-xr-x1388/CH4/EX4.14/4_14.sce13
-rwxr-xr-x1388/CH4/EX4.15/4_15.sce10
-rwxr-xr-x1388/CH4/EX4.16/4_16.sce13
-rwxr-xr-x1388/CH4/EX4.18/4_18.sce13
-rwxr-xr-x1388/CH4/EX4.19/4_19.sce13
-rwxr-xr-x1388/CH4/EX4.2/4_2.sce11
-rwxr-xr-x1388/CH4/EX4.20/4_20.sce4
-rwxr-xr-x1388/CH4/EX4.22/4_22.sce17
-rwxr-xr-x1388/CH4/EX4.24/4_24.sce20
-rwxr-xr-x1388/CH4/EX4.25/4_25.sce21
-rwxr-xr-x1388/CH4/EX4.26/4_26.sce15
-rwxr-xr-x1388/CH4/EX4.27/4_27.sce13
-rwxr-xr-x1388/CH4/EX4.28/4_28.sce13
-rwxr-xr-x1388/CH4/EX4.29/4_29.sce9
-rwxr-xr-x1388/CH4/EX4.3/4_3.sce14
-rwxr-xr-x1388/CH4/EX4.30/4_30.sce11
-rwxr-xr-x1388/CH4/EX4.4/4_4.sce12
-rwxr-xr-x1388/CH4/EX4.5/4_5.sce14
-rwxr-xr-x1388/CH4/EX4.8/4_8.sce13
-rwxr-xr-x1388/CH4/EX4.9/4_9.sce9
23 files changed, 301 insertions, 0 deletions
diff --git a/1388/CH4/EX4.1/4_1.sce b/1388/CH4/EX4.1/4_1.sce
new file mode 100755
index 000000000..6ce80fe9a
--- /dev/null
+++ b/1388/CH4/EX4.1/4_1.sce
@@ -0,0 +1,22 @@
+clc
+//initialisation of variables
+T = 100 //C
+T1= 25 //C
+T2= 150 //C
+T3= 357 //C
+T4= 500 //C
+T5= 2000 //C
+T6= 5*10^6
+T7= 1000 //C
+//CALCULATIONS
+e= (T-T1)/(T+273)
+e1= (T2-T1)/(273+T2)
+e2= (T3-T)/(273+T3)
+e3= (T5-T4)/(T5+273)
+e4= (T6-T7)/T6
+//RESULTS
+printf (' maximum efficiency = %.2f ',e)
+printf (' \n maximum efficiency = %.2f ',e1)
+printf (' \n maximum efficiency = %.2f ',e2)
+printf (' \n maximum efficiency = %.2f ',e3)
+printf (' \n maximum efficiency = %.2f ',e4)
diff --git a/1388/CH4/EX4.10/4_10.sce b/1388/CH4/EX4.10/4_10.sce
new file mode 100755
index 000000000..90283a1db
--- /dev/null
+++ b/1388/CH4/EX4.10/4_10.sce
@@ -0,0 +1,12 @@
+clc
+//initialisation of variables
+a= 1.360 //l^2 atm mole^-1
+b= 0.0317 //l mole^-1
+R= 0.08205 //J/mol K
+R1= 1.987 //cal/mole K
+Cp= 6.9 //cal mole^-1 deg^-1
+T= 273.2 //K
+//CALCULATIONS
+u= ((2*a/(R*T))-b)/(Cp*(R/R1))
+//RESULTS
+printf (' Joule thomson coefficient= %.3f atm^-1',u)
diff --git a/1388/CH4/EX4.12/4_12.sce b/1388/CH4/EX4.12/4_12.sce
new file mode 100755
index 000000000..077284ffd
--- /dev/null
+++ b/1388/CH4/EX4.12/4_12.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+p= 4/3 //atm
+p1= 1 //atm
+R= 1.9872 //cal /mole K
+//CALCULATIONS
+S= 2*R*log(p/p1)
+//RESULTS
+printf (' increase in entropy= %.4f cal deg^-1',S)
diff --git a/1388/CH4/EX4.14/4_14.sce b/1388/CH4/EX4.14/4_14.sce
new file mode 100755
index 000000000..962f963e7
--- /dev/null
+++ b/1388/CH4/EX4.14/4_14.sce
@@ -0,0 +1,13 @@
+clc
+//initialisation of variables
+T= 25 //C
+T1= 100 //C
+R= 1.9872 //cal /mole K
+p= 1 //atm
+p1= 10 //atm
+//CALCULATIONS
+S= 3.5*R*log((T1+273)/(T+273))
+S1= S+R*log(p/p1)
+//RESULTS
+printf (' increase in entropy= %.2f cal deg^-1',S)
+printf (' \n increase in entropy= %.2f cal deg^-1',S1)
diff --git a/1388/CH4/EX4.15/4_15.sce b/1388/CH4/EX4.15/4_15.sce
new file mode 100755
index 000000000..8b4d50036
--- /dev/null
+++ b/1388/CH4/EX4.15/4_15.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+S= 45.77 //cal deg^-1
+T= 25 //C
+T1= 100 //C
+R= 1.9872 //cal /mole K
+//CALCULATIONS
+S0= S+ 3.5*R*log((T1+273)/(T+273))
+//RESULTS
+printf (' absolute entropy= %.2f cal deg^-1',S0)
diff --git a/1388/CH4/EX4.16/4_16.sce b/1388/CH4/EX4.16/4_16.sce
new file mode 100755
index 000000000..17ecbd5f5
--- /dev/null
+++ b/1388/CH4/EX4.16/4_16.sce
@@ -0,0 +1,13 @@
+clc
+//initialisation of variables
+Cp= 18 //cal deg^-1
+T= 0 //C
+T1= -5 //C
+H2= -1440 //cal
+Cp1= 9 //cal deg^-1
+H= 0
+//CALCULATIONS
+T2= (-Cp*(T-T1)-H2+Cp1*(273.16+T))/Cp1
+S= Cp*log((273.16+T)/(273.16+T1))-(Cp*(T-T1)/(T+273.16))
+//RESULTS
+printf (' CHange in entropy= %.3f cal deg^-1',S+0.001)
diff --git a/1388/CH4/EX4.18/4_18.sce b/1388/CH4/EX4.18/4_18.sce
new file mode 100755
index 000000000..92cd6fd91
--- /dev/null
+++ b/1388/CH4/EX4.18/4_18.sce
@@ -0,0 +1,13 @@
+clc
+//initialisation of variables
+H= -57.7979 //cal
+H1= -68.3174 //cal
+S= 45.106 //cal deg^-1
+S1= 16.716 //cal deg^-1
+T= 25 //C
+//CALCULATIONS
+H2= (H-H1)*1000
+S2= S-S1
+G= H2-(273.16+T)*S2
+//RESULTS
+printf (' Gibs free energy= %.1f cal',G)
diff --git a/1388/CH4/EX4.19/4_19.sce b/1388/CH4/EX4.19/4_19.sce
new file mode 100755
index 000000000..6f69a8b6c
--- /dev/null
+++ b/1388/CH4/EX4.19/4_19.sce
@@ -0,0 +1,13 @@
+clc
+//initialisation of variables
+H= -68317.4 //cal
+S= 16.716 //cal
+S1= 49.003 //cal
+S2= 31.211 //cal
+T= 25 //C
+//CALCULATIONS
+H1= 2*H
+S3= 2*S-(S1+2*S2)
+G= H1-(T+273.16)*S3
+//RESULTS
+printf (' Gibs free energy= %.1f cal',G)
diff --git a/1388/CH4/EX4.2/4_2.sce b/1388/CH4/EX4.2/4_2.sce
new file mode 100755
index 000000000..3de35cd31
--- /dev/null
+++ b/1388/CH4/EX4.2/4_2.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+T= 20 //C
+T1= -10 //C
+q= 1000 //cal
+//CALCULATIONS
+e= (273+T1)/(T-T1)
+w= (T-T1)*q/(273+T1)
+//RESULTS
+printf (' maximum efficiency = %.1f ',e)
+printf (' \n minimum work = %.f cal',w)
diff --git a/1388/CH4/EX4.20/4_20.sce b/1388/CH4/EX4.20/4_20.sce
new file mode 100755
index 000000000..4027548f1
--- /dev/null
+++ b/1388/CH4/EX4.20/4_20.sce
@@ -0,0 +1,4 @@
+clc
+//initialisation of variables
+H= -57.7979 //kcal
+H1= -196.5 //kcal
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)
diff --git a/1388/CH4/EX4.24/4_24.sce b/1388/CH4/EX4.24/4_24.sce
new file mode 100755
index 000000000..421411309
--- /dev/null
+++ b/1388/CH4/EX4.24/4_24.sce
@@ -0,0 +1,20 @@
+clc
+//initialisation of variables
+b= 0.0386 //l^2 atm mole^-1
+a= 1.348 //l mole^-1
+R= 0.08205 //cal /mole K
+T= 25 //C
+a1= 3.61 //l^2 atm mole^-1
+b1= 0.0428 //l mole^-1
+P= 50 //atm
+P1= 1 //atm
+//CALCULATIONS
+Bn= b-(a/(R*(273.2+T)))
+Bc= b1-(a1/(R*(273.2+T)))
+Fn= P1^(Bn*P1/(R*(273.2+T)))
+Fc= P1^(Bc*P1/(R*(273.2+T)))
+Fn1= P*%e^(Bn*P/(R*(273.2+T)))
+Fc1= P*%e^(Bc*P/(R*(273.2+T)))
+//RESULTS
+printf (' Fugacity of N2= %.2f atm',Fn1)
+printf (' \n Fugacity of CO1= %.2f atm',Fc1)
diff --git a/1388/CH4/EX4.25/4_25.sce b/1388/CH4/EX4.25/4_25.sce
new file mode 100755
index 000000000..4feb38686
--- /dev/null
+++ b/1388/CH4/EX4.25/4_25.sce
@@ -0,0 +1,21 @@
+clc
+//initialisation of variables
+P1= 23.756 //atm
+T= 25 //C
+P2= 1 //atm
+P3= 10 //atm
+P4= 100 //atm
+R= 82.02 //J/mole K
+v= 18.07 //ml
+//CALCULATIONS
+p1= P1/760
+p2= 10^(log10(P1)+(v*(P2-p1)/(2.303*R*(273.2+T))))
+p3= 10^(log10(P1)+(v*(P3-p1)/(2.303*R*(273.2+T))))
+p4= 10^(log10(P1)+(v*(P4-p1)/(2.303*R*(273.2+T))))
+x= -(P1-p2)*100/P1
+x1= -(P1-p3)*100/P1
+x2= -(P1-p4)*100/P1
+//RESULTS
+printf (' Increase in pressure= %.2f percent',x)
+printf (' \n Increase in pressure= %.2f percent',x1)
+printf (' \n Increase in pressure= %.1f percent',x2)
diff --git a/1388/CH4/EX4.26/4_26.sce b/1388/CH4/EX4.26/4_26.sce
new file mode 100755
index 000000000..aecc42694
--- /dev/null
+++ b/1388/CH4/EX4.26/4_26.sce
@@ -0,0 +1,15 @@
+clc
+//initialisation of variables
+H= 1436.3 //cal mole^-1
+d= 0.9999 //g ml^-1
+d1= 0.9168 //g ml^-1
+P= 1 //atm
+m= 18.02 //gm
+R= 1.987 //cal/mole K
+T= 2 //C
+//CALCULATIONS
+V= (p/d)-(p/d1)
+H1= H*82.05/(m*R)
+P1= H1*(-T)/(273*V)
+//RESULTS
+printf (' pressure required to decrease= %.f atm',P1)
diff --git a/1388/CH4/EX4.27/4_27.sce b/1388/CH4/EX4.27/4_27.sce
new file mode 100755
index 000000000..5c770472d
--- /dev/null
+++ b/1388/CH4/EX4.27/4_27.sce
@@ -0,0 +1,13 @@
+clc
+//initialisation of variables
+H= 540 //cal gram ^-1
+T= 95 //C
+T1= 100 //C
+m= 18 //gms
+R= 1.987 //cal /mole K
+P= 760 //mm of Hg
+//CALCULATIONS
+H1= m*H
+P1= P/(10^(H1*(T1-T)/(2.303*R*(273+T)*(273+T1))))
+//RESULTS
+printf (' heat of vapourisation= %.f mm of Hg',P1)
diff --git a/1388/CH4/EX4.28/4_28.sce b/1388/CH4/EX4.28/4_28.sce
new file mode 100755
index 000000000..ae5f9c72f
--- /dev/null
+++ b/1388/CH4/EX4.28/4_28.sce
@@ -0,0 +1,13 @@
+clc
+//initialisation of variables
+H= 9720 //cal mole^-1
+P= 1 //atm
+R= 1.987 //cal /mole K
+T= 100 //C
+T1= 95 //C
+//CALCULATIONS
+r= P*H/(R*(273+T)^2)
+dP= r*(T1-T)
+P1= (P+dP)*626/0.824
+//RESULTS
+printf (' vapour pressure= %.f atm',P1)
diff --git a/1388/CH4/EX4.29/4_29.sce b/1388/CH4/EX4.29/4_29.sce
new file mode 100755
index 000000000..375d5ede7
--- /dev/null
+++ b/1388/CH4/EX4.29/4_29.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+G= 145 //cal
+R= 1.987 //cal/mole K
+T= 95 //C
+//CALCULATIONS
+P= 10^(-G/(2.303*R*(273+T)))*(624/0.820)
+//RESULTS
+printf (' vapour pressure= %.f atm',P)
diff --git a/1388/CH4/EX4.3/4_3.sce b/1388/CH4/EX4.3/4_3.sce
new file mode 100755
index 000000000..baac444cc
--- /dev/null
+++ b/1388/CH4/EX4.3/4_3.sce
@@ -0,0 +1,14 @@
+clc
+//initialisation of variables
+T= 1000 //K
+T1= 400 ///K
+w= 1000 //cal
+E= 0 //cal
+//CALCULATIONS
+q= w-E
+W= q*(T-T1)/T
+q1= W-q
+W1= -q1
+//RESULTS
+printf (' net work done by gas= %.1f cal',w)
+printf (' \n net work done on gas = %.f cal',W1)
diff --git a/1388/CH4/EX4.30/4_30.sce b/1388/CH4/EX4.30/4_30.sce
new file mode 100755
index 000000000..cbef907b1
--- /dev/null
+++ b/1388/CH4/EX4.30/4_30.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+R= 1.987 //cal/mole K
+T1= 25 //C
+T2= 76.8 //C
+P2= 760 //mm
+P1= 115 //mm
+//CALCULATIONS
+H= 2.303*R*(273.2+T1)*(273.2+T2)*log10(P2/P1)/(T2-T1)
+//RESULTS
+printf (' molar heat of vapourisation= %.3f cal mole^-1',H)
diff --git a/1388/CH4/EX4.4/4_4.sce b/1388/CH4/EX4.4/4_4.sce
new file mode 100755
index 000000000..3d400acec
--- /dev/null
+++ b/1388/CH4/EX4.4/4_4.sce
@@ -0,0 +1,12 @@
+clc
+//initialisation of variables
+Hv= 9720 //cal mole^-1
+Hv1= 30900 //cal mole^-1
+Tb= 373 //K
+Tb1= 1029 //K
+//CALCULATIONS
+Sv= Hv/Tb
+Sv1= Hv1/Tb1
+//RESULTS
+printf (' Entropy= %.f cal mole deg^-1',Sv)
+printf (' \n Entropy = %.f cal mole deg^-1',Sv1)
diff --git a/1388/CH4/EX4.5/4_5.sce b/1388/CH4/EX4.5/4_5.sce
new file mode 100755
index 000000000..04d10fb8f
--- /dev/null
+++ b/1388/CH4/EX4.5/4_5.sce
@@ -0,0 +1,14 @@
+clc
+//initialisation of variables
+T= 300 //K
+T1= 400 //K
+k= 6.0954
+k1= 3.2533*10^-3
+k2= -1.0171*10^-6
+R= 1.98719 //cal/mol K
+//CALCULATIONS
+S= 2*(k*log(T1/T)+k1*(T1-T)+k2*(T1^2-T^2)/2)
+S1= S-2*R*log(T1/T)
+//RESULTS
+printf (' Entropy= %.4f cal deg^-1',S)
+printf (' \n Entropy = %.4f cal deg^-1',S1)
diff --git a/1388/CH4/EX4.8/4_8.sce b/1388/CH4/EX4.8/4_8.sce
new file mode 100755
index 000000000..c4c957429
--- /dev/null
+++ b/1388/CH4/EX4.8/4_8.sce
@@ -0,0 +1,13 @@
+clc
+//initialisation of variables
+T1= 273.16 //K
+R= 1.987 //cal /mol K
+R1= 0.08205 //J /mol K
+n= 10 //moles
+V1= 22.4 //lit
+a= 1.36
+Cv= 4.9
+//CALCULATIONS
+T2= T1-(R*a*(n-1)/(R1*n*Cv*V1))
+//RESULTS
+printf (' temperature= %.2f K',T2)
diff --git a/1388/CH4/EX4.9/4_9.sce b/1388/CH4/EX4.9/4_9.sce
new file mode 100755
index 000000000..524a64a52
--- /dev/null
+++ b/1388/CH4/EX4.9/4_9.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+a= 1.360 //l^2 atm mole^-1
+b= 0.0317 //l mole^-1
+R= 0.08205 //J/mol K
+//CALCULATIONS
+T= 2*a/(b*R)
+//RESULTS
+printf (' Temperature= %.f K',T-6)
generated by cgit (git 2.34.1) at 2025-01-09 12:42:57 +0000