incidence()

function fig = incidence()
load incidence
h0 = figure('Units','points', ...
	'Color',[1 1 0], ...
	'Colormap',mat0, ...
	'FileName','A:\incidence.m', ...
	'MenuBar','none', ...
	'Name','incidence', ...
	'NumberTitle','off', ...
	'PaperPosition',[18 180 576 432], ...
	'PaperUnits','points', ...
	'Position',[10.5 86.25 200.25 249.75], ...
	'Tag','incidencef', ...
   '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',[110 200 70 25], ...
   'string',hour,...
   'callback','incidencecal',...
	'Style','edit', ...
   'Tag','EditText1hour');
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',[110 145 70 25], ...
   'string',nk,...
   'Style','edit', ...
   'callback','incidencecal',...
   'Tag','EditText2day');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 1], ...
	'ListboxTop',0, ...
	'Position',[110 80 70 25], ...
	'Style','edit', ...
   'callback','incidencecal',...
   'Tag','EditText3azimuth');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 1], ...
	'ListboxTop',0, ...
	'Position',[110 20 70 25], ...
   'Style','edit', ...
   'callback','incidencecal',...
  'Tag','EditText4slop');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'ListboxTop',0, ...
   'Position',[2.25 203.25 68.25 26.25], ...
   'string','houre',...
   'fontsize',15,...
   'BackgroundColor',[1 1 0], ...
   'foregroundcolor',[1 0 0.5020],...
   'Style','text', ...
	'Tag','StaticText1');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'ListboxTop',0, ...
   'Position',[3 144.75 69.75 32.25], ...
   'string','day number',...
   'fontsize',15,...
   'BackgroundColor',[1 1 0], ...
   'foregroundcolor',[1 0 0.5020],...
	'Style','text', ...
	'Tag','StaticText2');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'ListboxTop',0, ...
   'Position',[2.25 76.5 89.25 38], ...
   'string','surface azimuth angle',...
   'fontsize',15,...
   'BackgroundColor',[1 1 0], ...
   'foregroundcolor',[1 0 0.5020],...
	'Style','text', ...
	'Tag','StaticText3');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'ListboxTop',0, ...
	'Position',[1.5 1 102.75 45], ...
   'Style','text', ...
    'string','slop of plate',...
   'fontsize',15,...
   'BackgroundColor',[1 1 0], ...
   'foregroundcolor',[1 0 0.5020],...
	'Tag','StaticText4');
if nargout > 0, fig = h0; end