summaryrefslogtreecommitdiff
path: root/1967/CH19/EX19.5/19_5.sce
blob: dd2c795f3402b3c331cea57c6bf9854bf825716c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
clc
//initialisation of variables
clear
n= 2
T= 25 //C
R= 4.576 
is= 9.57*10^-6
n1= 4
f= 0.509 //volts
dH= 5970 //cal
SBa= 2.3 //E.U. gm ion^-1
Sba= 31.5 //E.U. gm ion6-1
//CALCULATIONS
r= 10^(-n1*f*sqrt(n1*is))
dF= -n*R*(273.2+T)*log10(is*r)
dS= (dH-dF)/(273.2+T)
Sso= Sba-SBa+dS
//RESULTS
printf ('Stanadard entropy of sulfate ion  = %.1f E.U.g ion^-1',Sso)