2135/CH2/EX2.48/Exa_2_48.sce


1
2
3
4
5
6
7
8
9
10
11
12

//Exa 2.48
clc;
clear;
close;
format('v',7);

//Given Data : 
V1=1.5;//m^3
V2=0;//m^3
p=1.02;//bar
W=p*10^5*integrate('1','V',V1,V2);//J
disp(W/1000,"Work done by the air in KJ : ");