summaryrefslogtreecommitdiff
path: root/1226/CH3/EX3.4/EX3_4.sce
blob: 121ef04b88e07bf844d35ee0e6724505989651e1 (plain)
1
2
3
4
5
6
7
8
9
10
clc;funcprot(0);//EXAMPLE 3.4
// Initialisation of Variables
eta=1/6;...................//Efficiency of the engine
rts=70;.................//The amount of temp which is reduced in the sink in C
//Calculation
t1byt2=1/(1-eta);
t2=(rts+273)/((2*eta*t1byt2)-t1byt2+1);............//Temperature of the sink in K
disp(t2-273,"Temperature of the sink in Celsius:")
t1=t1byt2*t2;...............//Temperature of source in K
disp(t1-273,"temperature of source in Celsius:")