blob: 1691d47380d543ffbc3104d42246b9d0ff854380 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
clc
//initialisation of variables
x= 0.79
P0= 101 //kPa
P= 20 //Mpa
V= 0.032 //m^3
//CALCULATIONS
p= x*P0
Wrev= P*10^3*V*(log(P/(p*10^-3))+((p*10^-3)/P)-1)
//RESULTS
printf (' maximum useful work= %.1f kJ',Wrev)
|