summaryrefslogtreecommitdiff
path: root/3876/CH13/EX13.10/Ex13_10.sce
blob: dd9d949789bc2e0c6df0d4dd1b11f625125b439d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
//Chapter 13 Thermodynamics Entropy and Free Energy

clc;
clear;

//Initialisation of Variables
F= 18430 //cal
F1= -31350 //cal
F2= 26224 //cal
R= 1.99 //cal/mole K
T= 25 //C

//CALCULATIONS
F3= F+F1+F2
Ksp= 10**(-F3/(R*(273+T)*2.303))

//RESULTS
mprintf("Solubility product = %.2e",Ksp)