summaryrefslogtreecommitdiff
path: root/2135/CH1/EX1.29/Exa_1_29.sce
blob: 15acc1f43efa420607d0e6f3b19c809c6a0e9c95 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Exa 1.29
clc;
clear;
close;
format('v',7);

//Given Data :
p1=3;//bar
V1=0.18;//m^3/Kg
p2=0.6;//bar
C=p1*10^5*V1^2;//Nm
V2=sqrt((p1/p2)*V1^2);//m^3Kg
W=integrate('C/V^2','V',V1,V2);//Nm/Kg
W=W/1000;//KJ/Kg
disp(W,"Work done in KJ/Kg : ");