airmass()

function fig = airmass()
load airmass
h0 = figure('Units','points', ...
	'Color',[1 1 0], ...
	'Colormap',mat0, ...
	'FileName','A:\airmass.m', ...
	'PaperUnits','points', ...
	'MenuBar','none', ...
	'Name','air mass(m)', ...
	'NumberTitle','off', ...
	'PaperPosition',[18 180 150 150], ...
	'PaperUnits','points', ...
	'Position',[412.5 103.5 150 150], ...
	'Tag','airmassf', ...
   'ToolBar','none');
h1=findobj(0,'tag','now');
m=findobj(h1,'tag','EditText4');
nk=get(m,'string');
h1=findobj(0,'tag','now');
m=findobj(h1,'tag','EditText5');
hour=get(m,'string');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 1], ...
	'ListboxTop',0, ...
   'Position',[78.75 96 51.75 28.5], ...
   'callback','airmasscal',...
   'string',hour,...
   'Style','edit', ...
	'Tag','EditText1houre');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 1], ...
	'ListboxTop',0, ...
	'Position',[76.5 32.25 58.5 30], ...
   'Style','edit', ...
   'string',nk,...
   'callback','airmasscal',...
	'Tag','EditText2day');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 0], ...
	'ListboxTop',0, ...
   'Position',[10 95 50 30], ...
   'string','houre',...
   'fontsize',15,...
   'BackgroundColor',[1 1 0], ...
   'foregroundcolor',[1 0 0.5020],...
	'Style','text', ...
	'Tag','houre');
h1 = uicontrol('Parent',h0, ...
   'Units','points', ...
   'BackgroundColor',[1 1 0], ...
	'ListboxTop',0, ...
   'Position',[10 25 50 35], ...
   'string','day number',...
   'fontsize',13,...
   'BackgroundColor',[1 1 0], ...
   'foregroundcolor',[1 0 0.5020],...
	'Style','text', ...
	'Tag','daynumber');

if nargout > 0, fig = h0; end