ht()

function fig = ht()
load ht
h0 = figure('Units','points', ...
	'Color',[1 1 0], ...
	'Colormap',mat0, ...
	'FileName','A:\ht.m', ...
	'MenuBar','none', ...
	'Name','total day radiation', ...
	'NumberTitle','off', ...
	'PaperPosition',[18 180 576 432], ...
	'PaperUnits','points', ...
	'Position',[368.25 95.25 140.25 150], ...
	'Tag','ht', ...
   'ToolBar','none');
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',[75 99.75 57 27], ...
   'string',nk,...
   'Style','edit', ...
   'callback','htcal',...
	'Tag','EditText1day');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 1], ...
	'ListboxTop',0, ...
	'Position',[75 33.75 57 27], ...
   'Style','edit', ...
    'callback','htcal',...
	'Tag','EditText2slop');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'ListboxTop',0, ...
   'Position',[6.75 98 58.5 35], ...
   'string','day number',...
   'fontsize',15,...
   'BackgroundColor',[1 1 0], ...
   'foregroundcolor',[1 0 0.5020],...
	'Style','text', ...
	'Tag','StaticText1');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'ListboxTop',0, ...
   'Position',[10.5 33 57 35], ...
   'string','plate slope',...
   'fontsize',15,...
   'BackgroundColor',[1 1 0], ...
   'foregroundcolor',[1 0 0.5020],...
	'Style','text', ...
	'Tag','StaticText2');
if nargout > 0, fig = h0; end