aa()

function fig = aa()
load aa
h0 = figure('Units','points', ...
	'Color',[1 1 0], ...
	'Colormap',mat0, ...
	'FileName','A:\aa.m', ...
	'PaperPosition',[18 180 576 432], ...
	'PaperUnits','points', ...
   'Position',[89.25 308.25 284.25 73.5], ...
   'MenuBar','none', ...
	'Name','solar transmittance(due reflection and absorption', ...
	'NumberTitle','off', ...
	'Tag','aa', ...
	'ToolBar','none');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'ListboxTop',0, ...
	'Position',[14.25 21.75 192 37.5], ...
   'Style','text', ...
   'string','solar transmittance(due to absorption',...
   'fontsize',13,...
   'BackgroundColor',[1 1 0], ...
   'foregroundcolor',[1 0 0.5020],...
	'Tag','StaticText1');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 1], ...
	'ListboxTop',0, ...
	'Position',[214.5 23.25 62.25 35.25], ...
   'Style','edit', ...
   'callback','aacal',...
   'string','.6',...
	'Tag','EditText1');
if nargout > 0, fig = h0; end