blob: 55cf4b6787e7ea5e1e16d4d20832cf1410d176b4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
clear;
clc;
//To find Approx Value
function[A]=approx(V,n)
A=round(V*10^n)/10^n;//V-Value n-To what place
funcprot(0)
endfunction
//Example 5.1
//Caption : Program To Find the Heat discarded to the River
//Given Values
Tc=295;//K
Th=585;//K
W=800000;//KW
n_max=1-(Tc/Th);
n=approx(0.7*n_max,3)
Qc=approx(((1-n)/n)*W,-2);
disp('KW',Qc,'Heat required');
//End
|
