summaryrefslogtreecommitdiff
path: root/2354/CH7/EX7.8/7_8.sce
blob: e1c98f0fb1f9094aacec7a6105fb2aa87ba91d5b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//example 7.8
clc; funcprot(0);
// Initialization of Variable
p1=1;//pressure
pr2=21.18;
pr1=1.3860;
k=1.39;
T2=1160;//temperature
T1=540;//temperature
p=p1*pr2/pr1;
disp(p,"pressure in atm");
p2=p1*(T2/T1)^(k/(k-1));
disp(p2,"Pressure final in atm");
clear()