summaryrefslogtreecommitdiff
path: root/2837/CH19/EX19.10/Ex19_10.sce
blob: 8e0abbba35995129e7095c61ed09c0ab5610d49c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
clc
clear
//Initalization of variables
cp=0.24
h=138.8
t3=1960 //R
//calculations
t4d=t3-h/cp
Qs=cp*(t3-t4d)
work=43.9 //Btu/lb
etat=work/Qs *100
//results
printf("Thermal efficiency of the unit = %.1f percent",etat)