blob: dea73eede3ca1abf22f740b26ce7d349e24d92f6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
////Chapter No 14 Air Standard Cycles
////Example 2 Page No:302
///Find Engin work on carnot cycle
//Input data
clc;
clear;
QR=1.5; //tau=QS-QR
//T=Tmax-Tmin
T=300; //temperature limit of the cycle in degree celsius
//Calculation
//QR=1.5*(QS-QR)
QR=(1.5/2.5); //Engin work on carnot cycle
eta=(1-QR); //Thermal effeciency
Tmax=round((T/eta)-273.15); //Maximum temperataure
Tmin=(Tmax-T); //Minimum temperataure
//Output
printf('Engin work on carnot cycle= %f QS \n',QR);
printf('Thermal effeciency= %f percent \n',100*eta);
printf('Maximum temperataure= %f degree celsius \n ',Tmax);
printf('Minimum temperataure= %f degree celsius \n ',Tmin);
|
