summaryrefslogtreecommitdiff
path: root/1268/CH10/EX10.3/10_3.sce
blob: b56f298ad71f77afa577d5b0eec6d8249d68c947 (plain)
1
2
3
4
5
6
7
8
9
10
clc;
disp("Example 10.3")
ratio=5 // of the two pressures
T=293 // inn K
gama=1.4
M=29 // molecular weight
r=8314 // gas constant
y=(ratio^((gama-1)/gama))-1
w=r*T*gama*y/(M*(gama-1))
disp(w,"Work done is ")