stfinefficiency()

function fig = stfinefficiency()
load stfinefficiency
h0 = figure('Units','points', ...
	'Color',[1 1 0], ...
   'Colormap',mat0, ...
   'MenuBar','none', ...
	'Name','standard fin efficiency', ...
	'NumberTitle','off', ...
	'FileName','A:\stfinefficiency.m', ...
	'PaperPosition',[18 180 576 432], ...
	'PaperUnits','points', ...
	'Position',[293.25 113.25 219.75 252.75], ...
	'Tag','stfinef', ...
	'ToolBar','none');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'ListboxTop',0, ...
   'Position',[6 200.25 131.25 39.75], ...
   'BackgroundColor',[1 1 0], ...
	'FontSize',15, ...
	'FontWeight','bold', ...
   'ForegroundColor',[1 0 1], ...
   'string','total loss coefficient(UL)',...
	'Style','text', ...
	'Tag','StaticText1');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'ListboxTop',0, ...
	'Position',[6 153.75 129.75 39], ...
   'Style','text', ...
   'BackgroundColor',[1 1 0], ...
	'FontSize',15, ...
	'FontWeight','bold', ...
   'ForegroundColor',[1 0 1], ...
   'string','distance between the tube(m)',...
	'Tag','StaticText2');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'ListboxTop',0, ...
	'Position',[12 83.25 125.25 49.5], ...
   'Style','text', ...
   'BackgroundColor',[1 1 0], ...
	'FontSize',15, ...
	'FontWeight','bold', ...
   'ForegroundColor',[1 0 1], ...
   'string','tube diameter',...
	'Tag','StaticText3');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'ListboxTop',0, ...
	'Position',[11.25 55.5 121.5 38.25], ...
   'Style','text', ...
   'BackgroundColor',[1 1 0], ...
	'FontSize',15, ...
	'FontWeight','bold', ...
   'ForegroundColor',[1 0 1], ...
   'string','thickness of collector sheet(m)',...
	'Tag','StaticText4');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'ListboxTop',0, ...
	'Position',[12 3.75 112.5 44.25], ...
   'Style','text', ...
   'BackgroundColor',[1 1 0], ...
	'FontSize',12, ...
	'FontWeight','bold', ...
   'ForegroundColor',[1 0 1], ...
   'string','thermal conductivity of collector plate',...
	'Tag','StaticText5');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 1], ...
	'ListboxTop',0, ...
   'Position',[140 205.5 70 35], ...
   'callback','stfinefficiencycal',...
	'Style','edit', ...
   'Tag','EditText1');
hp=findobj(0,'tag','collectorf');
m=findobj(hp,'tag','EditText2');
wk=get(m,'string');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 1], ...
	'ListboxTop',0, ...
	'Position',[140 159 70 35], ...
   'Style','edit', ...
   'string',wk,...
   'callback','stfinefficiencycal',...
   'Tag','EditText2');
m=findobj(hp,'tag','EditText3');
Dk=get(m,'string');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 1], ...
	'ListboxTop',0, ...
	'Position',[140 107.25 70 35], ...
   'Style','edit', ...
   'string',Dk,...
   'callback','stfinefficiencycal',...
	'Tag','EditText3');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 1], ...
	'ListboxTop',0, ...
   'Position',[140 54.75 70 35], ...
  'callback','stfinefficiencycal',...
	'Style','edit', ...
	'Tag','EditText4');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 1], ...
	'ListboxTop',0, ...
   'Position',[140 6.75 70 35], ...
   'callback','stfinefficiencycal',...
	'Style','edit', ...
	'Tag','EditText5');
if nargout > 0, fig = h0; end