2024年2月21日发(作者：)
function []=roud_wind_way_resistance();
set(gcf,'unit','normalized','position',[0.02,0.5,0.5,0.35],'menubar','none');
tt=uicontrol(gcf,'style','text','unit','normalized','position',[0.05,0.8,0.9,0.12],'string',...
'圆 形 风 道 比 摩 阻 计 算','fontsize',20,'horizontalalignment','center',...
'foregroundcolor',[0.01,0,1],'backgroundcolor',[0.6,0.8,0]);
(1)=uicontrol(gcf,'style','text','unit','normalized','position',[0.05,0.7,0.15,0.08],'string',... %风速静态文本框
'风速','fontsize',15,'horizontalalignment','center',...
'foregroundcolor',[0.5,0.2,0.3],'backgroundcolor',[0.9,0.8,0]);
(1)=uicontrol(gcf,'style','edit','unit','normalized','position',[0.2,0.7,0.1,0.08],'string',...
风速编辑文本框
'','fontsize',15,'horizontalalignment','center',...
'foregroundcolor',[0.5,0.2,0.3],'backgroundcolor',[0.9,0.8,0]);
(2)=uicontrol(gcf,'style','text','unit','normalized','position',[0.3,0.7,0.15,0.08],'string',...
%风速单位静态文本框
'm/s','fontsize',15,'horizontalalignment','center',...
'foregroundcolor',[0.5,0.2,0.3],'backgroundcolor',[0.9,0.8,0]);
(3)=uicontrol(gcf,'style','text','unit','normalized','position',[0.48,0.7,0.2,0.08],'string',...
段直径静态文本框
'管段直径','fontsize',15,'horizontalalignment','center',...
'foregroundcolor',[0.5,0.2,0.3],'backgroundcolor',[0.9,0.8,0]);
(2)=uicontrol(gcf,'style','edit','unit','normalized','position',[0.68,0.7,0.1,0.08],'string',...
%管段直径编辑文本框
'','fontsize',15,'horizontalalignment','center',...
'foregroundcolor',[0.5,0.2,0.3],'backgroundcolor',[0.9,0.8,0]);
(4)=uicontrol(gcf,'style','text','unit','normalized','position',[0.78,0.7,0.15,0.08],'string',...管段直径单位静态文本框
'm','fontsize',15,'horizontalalignment','center',...
'foregroundcolor',[0.5,0.2,0.3],'backgroundcolor',[0.9,0.8,0]);
(5)=uicontrol(gcf,'style','text','unit','normalized','position',[0.1,0.5,0.4,0.08],'string',...
摩阻计算静态文本框
'所计算的比摩阻是','fontsize',15,'horizontalalignment','center',...
'foregroundcolor',[1,0.2,0.3],'backgroundcolor',[0.1,0.1,1]);
(6)=uicontrol(gcf,'style','text','unit','normalized','position',[0.5,0.5,0.1,0.08],'string',...
比摩阻结果静态文本框
'','fontsize',15,'horizontalalignment','center',...
'foregroundcolor',[1,0.4,0.3],'backgroundcolor',[0.1,0.6,1]);
(7)=uicontrol(gcf,'style','text','unit','normalized','position',[0.6,0.5,0.15,0.08],'string',...
%风速单位静态文本框
'pa/m','fontsize',15,'horizontalalignment','center',...
'foregroundcolor',[1,0.2,0.3],'backgroundcolor',[0.1,0.1,1]);
(8)=uicontrol(gcf,'style','text','unit','normalized','position',[0.05,0.6,0.4,0.08],'string',...
计算动作按钮
%
%管
%%比 %
%
'当量绝对粗糙度K','fontsize',15,'horizontalalignment','center',...
'foregroundcolor',[0.5,0.2,0.3],'backgroundcolor',[0.5,0.5,0.75]);
=uicontrol(gcf,'style','pop','unit','normalized','position',[0.48,0.644,0.2,0.04],'string',... %计算动作按钮
{'1.5','3'},'fontsize',10,'horizontalalignment','center',...
'foregroundcolor',[0.5,0.2,0.3],'backgroundcolor',[0.5,0.5,0.75]);
%输入量结束
=uicontrol(gcf,'style','pushbutton','unit','normalized','position',[0.7,0.6,0.27,0.08],'string',...
%计算动作按钮
'计 算','fontsize',15,'horizontalalignment','center',...
'foregroundcolor',[0.5,0.2,0.3],'backgroundcolor',[0.5,0.5,0.75],...
'callback',{@push_call,H});
function []=push_call(varargin)
H=varargin{3};
flag_1=get(,'value');
b=get((2),'string');
a=get((1),'string');
V=str2double(a);
D=str2double(b);
if flag_1==1;
R_K1=0.01163*V^1.895/D^1.217; %当量绝对粗糙度K1=0.15mm时
end
if flag_1==2
R_K1='待定';
end
set((6),'string',num2str(R_K1));
%计算动作按钮程序段结束
发布评论