summaryrefslogtreecommitdiff
path: root/632/CH11/EX11.3/example11_3.sce
blob: 76fcb6dbb011c34dd7e1e0a4d7581ad822d86a54 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//clc()
d = 100 /1000;//m
m = 50;//kg
P = 1.01325*10^5;//Pa
A = %pi * (d^2)/4;
Fatm = P * A;
Fwt = m * g;
Ftotal = Fatm + Fwt;
P = Ftotal / A;
disp("bar",P/10^5,"(a)Pressure of the gas = ")
z = 500/1000;//m
w = Ftotal * z;
disp("J",w,"(b)Work done by the gas = ")