summaryrefslogtreecommitdiff
path: root/551/CH4/EX4.25/25.sce
blob: 278dce86ce025c64226ced5e98fe534a05f59dd5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
clc
d=0.15; //m
T=303; //K
p=3*10^5; //N/m^2
l=0.085; //m
Q=-4000; //J

disp("(i) Workdone by the system")
dv=%pi/4*d^2*l;
W=p*dv;
disp("W=")
disp(W/10^3)
disp("kJ")


disp("(ii) Decrease in internal energy of the system")
dU=(Q-W)/10^3;
disp("Decrease in internal energy = ")
disp(-dU)
disp("kJ")