solartransmitance()

function fig = solartransmitance()
load solartransmitance

h0 = figure('Units','points', ...
	'Color',[1 1 0], ...
	'Colormap',mat0, ...
	'FileName','A:\solartransmitance.m', ...
	'MenuBar','none', ...
	'Name','solar transmittance', ...
	'NumberTitle','off', ...
	'PaperPosition',[18 180 576 432], ...
	'PaperUnits','points', ...
	'Position',[267.75 107.25 239.25 284.25], ...
	'Tag','solartransmitance', ...
	'ToolBar','none');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 0 1], ...
	'Callback','trn', ...
	'ListboxTop',0, ...
	'Position',[23.25 211.5 185.25 45], ...
	'String','solar transmittance(due to reflection)(Trn)', ...
	'Tag','Pushbutton1');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 0 1], ...
	'Callback','ta', ...
	'ListboxTop',0, ...
	'Position',[23.25 147 185.25 45], ...
	'String','solar transmittance(due to absorption)(Ta)', ...
	'Tag','Pushbutton2');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 0 1], ...
	'Callback','ttt', ...
	'ListboxTop',0, ...
	'Position',[23.25 78 185.25 45], ...
	'String','solar transmittance(due to absorption and reflection)', ...
	'Tag','Pushbutton3');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 0 1], ...
	'Callback','aa', ...
	'ListboxTop',0, ...
	'Position',[23.25 17.25 185.25 45], ...
	'String','absorption factor', ...
	'Tag','Pushbutton4');
if nargout > 0, fig = h0; end