summaryrefslogtreecommitdiff
path: root/1268/CH10/EX10.4/10_4.sce
blob: 7a037d1179263444057d2ba8e80b69d88d341bbd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
clear;
disp("Example 10.4")
T=298 // temperature in K
R=8314 // gas constant
M=29 // molecular weight
ratio=6 // of pressures
gama = 1.4;
y=(ratio^((gama-1)/gama))-1
w=r*T*gama*y/(M*(gama-1))
massrate=300/360
power=massrate*w
disp(power,"The power drawn is ")