summaryrefslogtreecommitdiff
path: root/2870/CH6/EX6.5/Ex6_5.sce
blob: 581d01e60685b4ba62ee300c38d47644fa17e09c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
clc;clear;
//Example 6.5

//given data
QH=500;
TL=30+273;//in C
TH=652+273;//in C

//calculations
nth=1-TL/TH;
disp(nth,'the thermal efficiency of carnot engine');
QL=TL*QH/TH;
QL=round(QL);
disp(QL,'the amount of heat rejected to the sink per cycle in kJ')