No BSD License  

Highlights from
Solar Software (nimajamshidi)

from Solar Software (nimajamshidi) by nima jamshidi
solar software for estimating solar and collector parameter

collectoreficncyfactor()
function fig = collectoreficncyfactor()
load collectoreficncyfactor
h0 = figure('Units','points', ...
	'Color',[1 1 0], ...
	'Colormap',mat0, ...
	'FileName','A:\collectoreficncyfactor.m', ...
	'MenuBar','none', ...
	'Name','collector efficency factor', ...
	'NumberTitle','off', ...
	'PaperPosition',[18 180 576 432], ...
	'PaperUnits','points', ...
	'Position',[333.75 28.5 218.25 381], ...
	'Tag','cef', ...
	'ToolBar','none');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 0], ...
	'FontSize',15, ...
	'FontWeight','bold', ...
	'ForegroundColor',[1 0 1], ...
	'ListboxTop',0, ...
	'Position',[6 336.75 119.25 35.25], ...
	'String','total loss coefficient(UL)', ...
	'Style','text', ...
	'Tag','StaticText1');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 0], ...
	'FontSize',15, ...
	'FontWeight','bold', ...
	'ForegroundColor',[1 0 1], ...
	'ListboxTop',0, ...
	'Position',[13.5 285.75 102 41.25], ...
	'String','bond conductance', ...
	'Style','text', ...
	'Tag','StaticText2');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 0], ...
	'FontSize',10, ...
	'FontWeight','bold', ...
	'ForegroundColor',[1 0 1], ...
	'ListboxTop',0, ...
	'Position',[11.25 224.25 109.5 41.25], ...
	'String','distance between the tube(m)', ...
	'Style','text', ...
	'Tag','StaticText3');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 0], ...
	'FontSize',15, ...
	'FontWeight','bold', ...
	'ForegroundColor',[1 0 1], ...
	'ListboxTop',0, ...
	'Position',[18 183.75 106.5 33.75], ...
	'String','tube diameter(m)', ...
	'Style','text', ...
	'Tag','StaticText4');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 0], ...
	'FontSize',15, ...
	'FontWeight','bold', ...
	'ForegroundColor',[1 0 1], ...
	'ListboxTop',0, ...
	'Position',[10.5 126.75 128.25 35.25], ...
	'String','inside tube diameter(m)', ...
	'Style','text', ...
	'Tag','StaticText5');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 0], ...
	'FontSize',15, ...
	'FontWeight','bold', ...
	'ForegroundColor',[1 0 1], ...
	'ListboxTop',0, ...
	'Position',[1.5 75.75 135.75 36], ...
	'String','fluid heat convection factor', ...
	'Style','text', ...
   'Tag','StaticText6');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'ListboxTop',0, ...
	'Position',[23.25 27 102.75 35], ...
   'Style','text', ...
   'BackgroundColor',[1 1 0], ...
	'FontSize',15, ...
	'FontWeight','bold', ...
   'ForegroundColor',[1 0 1], ...
   'string','standard fin efficiency',...
   'Tag','StaticText7');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 1], ...
	'Callback','collectoreficncyfactorcal', ...
	'ListboxTop',0, ...
	'Position',[141 344.25 65 25], ...
	'Style','edit', ...
	'Tag','EditText1');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 1], ...
	'Callback','collectoreficncyfactorcal', ...
	'ListboxTop',0, ...
	'Position',[141 291 65 25], ...
   'Style','edit', ...
   'Tag','EditText2');
 hk1=findobj(0,'tag','collectorf');
mm=findobj(hk1,'tag','EditText2');
wk=get(mm,'string');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 1], ...
	'Callback','collectoreficncyfactorcal', ...
	'ListboxTop',0, ...
	'Position',[141 237 65 25], ...
	'String',wk, ...
	'Style','edit', ...
   'Tag','EditText3');
hk1=findobj(0,'tag','collectorf');
mmm=findobj(hk1,'tag','EditText3');
dk=get(mmm,'string');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 1], ...
	'Callback','collectoreficncyfactorcal', ...
	'ListboxTop',0, ...
	'Position',[141 191.25 65 25], ...
	'String',dk, ...
	'Style','edit', ...
	'Tag','EditText4');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 1], ...
	'Callback','collectoreficncyfactorcal', ...
	'ListboxTop',0, ...
	'Position',[141 135 65 25], ...
	'Style','edit', ...
	'Tag','EditText5');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 1], ...
	'Callback','collectoreficncyfactorcal', ...
	'ListboxTop',0, ...
	'Position',[141 85.5 65 25], ...
	'Style','edit', ...
	'Tag','EditText6');
h1 = uicontrol('Parent',h0, ...
	'Units','points', ...
	'BackgroundColor',[1 1 1], ...
	'ListboxTop',0, ...
   'Position',[141 26.25 65 25], ...
   'Callback','collectoreficncyfactorcal', ...
	'Style','edit', ...
	'Tag','EditText7');
if nargout > 0, fig = h0; end

Contact us at files@mathworks.com