reflectionfactor()

function fig = reflectionfactor()

load reflectionfactor
h0 = figure('Units','points', ...
	'Color',[1 1 0], ...
	'Colormap',mat0, ...
	'FileName','A:\reflectionfactor.m', ...
	'MenuBar','none', ...
	'Name','reflection factor', ...
	'NumberTitle','off', ...
	'PaperPosition',[18 180 576 432], ...
	'PaperUnits','points', ...
	'Position',[92.25 273.75 230.25 108], ...
	'Tag','reflectionfactor', ...
	'ToolBar','none');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 0], ...
	'FontSize',10, ...
	'FontWeight','bold', ...
	'ForegroundColor',[1 0 1], ...
	'ListboxTop',0, ...
	'Position',[18 54 120.75 36.75], ...
	'String','effective incidence angle(degree)', ...
	'Style','text', ...
	'Tag','StaticText1');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 0], ...
	'FontSize',11, ...
	'FontWeight','bold', ...
	'ForegroundColor',[1 0 1], ...
	'ListboxTop',0, ...
	'Position',[13.5 2.25 132.75 42], ...
	'String','now you should select material cover', ...
	'Style','text', ...
	'Tag','StaticText2');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 1], ...
	'Callback','reflectcal', ...
	'ListboxTop',0, ...
	'Position',[151.5 59.25 68.25 32.25], ...
	'String','12', ...
	'Style','edit', ...
	'Tag','EditText1');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'Callback','reflectcal', ...
	'ListboxTop',0, ...
	'Position',[157.5 19.5 65.25 24], ...
	'String',mat1, ...
	'Style','popupmenu', ...
	'Tag','PopupMenu1ref', ...
	'Value',1);
if nargout > 0, fig = h0; end