zenith()

function fig = zenith()
load zenith
h0 = figure('Units','points', ...
	'Color',[1 1 0], ...
	'Colormap',mat0, ...
	'FileName','A:\zenith.m', ...
	'MenuBar','none', ...
	'Name','zenith angle', ...
	'NumberTitle','off', ...
	'PaperPosition',[18 180 150 150], ...
	'PaperUnits','points', ...
	'Position',[412.5 103.5 150 150], ...
	'Tag','zenith', ...
   'ToolBar','none');
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','zenithcal',...
   'Style','edit', ...
   'string',hour,...
   'Tag','EditText1houre');
h1=findobj(0,'tag','now');
m=findobj(h1,'tag','EditText4');
nk=get(m,'string');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 1], ...
	'ListboxTop',0, ...
   'Position',[76.5 32.25 58.5 30], ...
   'string',nk,...
   'Style','edit', ...
   'callback','zenithcal',...
	'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