summaryrefslogtreecommitdiff
path: root/2354/CH4/EX4.11/4_11.sce
blob: 0ded27bd2d27aefe988e6b65c436a5dc6fcdbf43 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//example 4.11
clc; funcprot(0);
// Initialization of Variable
P2=5.0;
P1=1.0;
n=1.3;
T1=530;
R=1.986;
u2=131.88;
u1=90.33;
T2=T1*(P2/P1)^(.3/n);
k1=R*(T2-T1)/(1-n)/28.97;//k1=W/m
disp(k1,"W/m in Btu/lb");
k2=k1+u2-u1;//k2=Q/m
disp(k2,"Q/m in Btu/lb");
clear()