declination()

function fig = declination()
load declination
h0 = figure('Units','points', ...
	'Color',[1 1 0], ...
	'Colormap',mat0, ...
	'FileName','A:\declination.m', ...
  'MenuBar','none', ...
	'Name','declination angle', ...
	'NumberTitle','off', ...
	'PaperPosition',[18 180 576 432], ...
	'PaperUnits','points', ...
	'Position',[120 152 150 150], ...
	'Tag','declinationf', ...
   'ToolBar','none');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 0], ...
	'FontSize',12, ...
	'FontWeight','bold', ...
	'ForegroundColor',[1 0 0.502], ...
	'ListboxTop',0, ...
	'Position',[3 30 137 27], ...
	'String','now you should enter the day number of year', ...
	'Style','text', ...
   'Tag','StaticText1');
 h1=findobj(0,'tag','now');
 m=findobj(h1,'tag','EditText4');
 nk=get(m,'string');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 1], ...
	'Callback','declinationcal', ...
	'ListboxTop',0, ...
	'Position',[44.25 86.25 54 22.5], ...
	'String',nk, ...
	'Style','edit', ...
	'Tag','EditText1dec');
if nargout > 0, fig = h0; end