blob: bc3954ca627a62b466787e8238f6578e9068931a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
clc
clear all;
disp("average heat transfer coefficient")
ts=120;// degree C
d=2/100;//m
L=0.2;//m
ta=119;// degree C
psat=1.985;// bar
rhow=943;//kg/m^3
hfg=2202.2*1000;//J/kg
kw=0.686;// W/m.K
mu=273.3*10^(-6);// Ns/m^2
g=9.81;//m/s^2
del=(4*kw*mu*(ts-ta)*L/(rhol^2*g*hfg))^0.25;//
hL=k/del;
disp("mm",del*1000,"Thickness of condensate film =")
h=4*hL/3;
disp("W/m^2.C",h,"Average heat transfer coefficient =")
|
