path: root/1286/CH8/EX8.21/8_21.sce

clc
//initialisation of variables
T1=1100//k
T3=200//k
r=0.5
//CALCULATIONS
T=(T1-(T3*r))/(1+r)
//results
printf(' \n value of T= % 1f k',T)