blob: 8b0234adee6545c0c9c03112e9c507f42d30896a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
clc
clear
//INPUT DATA
Tl=150;//engine temprature in Degree C
Th=1100;//engine temprature in Degree C
Qs=4000;//Heat is added in kJ/min
//CALCULATIONS
nc=((Th-Tl)/(Th+273))*100;//Efficiency of carnot cycle in percentage
wd=nc*Qs/100;//workdone in kJ/min
P=wd/(60);//power developed in kJ/s
Qr=Qs-wd;//Quality of heat rejected in kJ/min
ds=(Qs-wd)/(Tl+273);//Change in entropy during heat rejection in kJ/min
//OUTPUT
printf('(a)power developed in the engine is %3.2f kJ/s \n (b)Quality of heat rejected is %3.2f kJ/min \n (c)Change in entropy during heat rejection is %3.2f kJ/min',P,Qr,ds)
|
