function [ ] = mjjs( )
%用于计算蒸发器的程序
Q0=6.24; % 制冷量 kw
t0=-28; %蒸发温度 ℃
mm=148.0; %循环制冷量 kg/h
t1=-21; %空气送风温度 ℃ % 送风相对湿度 95%
t2=-18; %空气回风温度 ℃ % 回风相对湿度 90%
% 含湿量及h值由hd函数计算得到
d1=0.53 %送风空气含湿量
d2=0.67 %回风空气含湿量
h1=-19.82 %送风焓值
h2=-16.46 %回风焓值
va=0.7202 % 空气的比体积,按 送、回风平均温度确定
% 风量的计算 m^3/h
qva=(Q0*va*3600)/(h2-h1)
sprintf('计算得到的风量为%f m^3/h,请选择风机后输入标准风量。',qva)
qva=input('请输入标准风量(m^3.h):');
% 送风时空气通过蒸发器的比焓差 kj/kg
drh=(Q0*3600)/(qva/va)
% 更新风量单位 为m^3/s
qva=qva/3600;
% 送风空气的比焓值
h1=h2-drh
sprintf('请根据求得h1值,查送风温度,并进行校正 原始温度为%f℃',t1)
t1=input('最新的送风温度(℃):');
% 蒸发器的结构的初步规划
% 取Φ10×1的铜管,外套铝片。铝片间距b