summaryrefslogtreecommitdiff
path: root/3689/CH2/EX2.7/2_7.sce
blob: 7fe090746548fbbb1431a5e02f28b0e1b9104e40 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
////
//Variable Declaration  Part d
h1 = 1000.0          //initial Altitude of cloud, m 
hf = 3500.0          //Final Altitude of cloud, m 
p1 = 0.802           //Pressure at h1, atm 
pf = 0.602           //Pressure at hf, atm
T1 = 288.0           //Initial temperature of cloud, K
cp = 28.86           //Specific heat of air, J/mol.K
R = 8.314            //Gas constant, J/mol.K

//Calculations
Tf = exp(-(cp/(cp-R)-1)/(cp/(cp-R))*log(p1/pf))*T1
//Results
printf("\n Final temperature of cloud %4.1f K",Tf)