blob: f96a1ad5edc29e6608944d691da04da4d4ebb426 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
clc;
clear all;
disp("heat loss from gases")
U=70;//m/s
L=1.2;//m
B=0.8;//m
ts=950;//degree C
ta=280;//degree C
ReL=5*10^5;
Pr=0.625;
k=0.075;//W/m.C
v=95*10^(-6);// m^2/s
ReL=U*L/v;
Nu=(0.036*(ReL^0.8)-836)*Pr^(1/3)
h=Nu*k/L;
Q=h*L*B*(ts-ta);//W
disp("kW",Q/1000,"Heat loss from crank is Q=")
|
