No BSD License  

Highlights from
Solar Software (nimajamshidi)

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

popupcall
function popupcall
load a:\data  %props
h1=findobj(0,'tag','EditText1');
h2=findobj(0,'tag','EditText2');
h3=findobj(0,'tag','EditText3');
pop=findobj(0,'tag','pop');
s=get(pop,'value');
shahrha=fieldnames(props);
shahr=shahrha(s);
if strcmp(shahr,'isfahan')
   set(h1,'string',num2str(props.isfahan.tool))
   set(h2,'string',num2str(props.isfahan.arz))
   set(h3,'string',num2str(props.isfahan.ertefa))	
elseif strcmp(shahr,'rasht')
   set(h1,'string',num2str(props.rasht.tool))
   set(h2,'string',num2str(props.rasht.arz))
   set(h3,'string',num2str(props.rasht.ertefa))	
elseif strcmp(shahr,'tehran')
   set(h1,'string',num2str(props.tehran.tool))
   set(h2,'string',num2str(props.tehran.arz))
   set(h3,'string',num2str(props.tehran.ertefa))	
elseif strcmp(shahr,'arak')
   set(h1,'string',num2str(props.arak.tool))
   set(h2,'string',num2str(props.arak.arz))
   set(h3,'string',num2str(props.arak.ertefa))	
   elseif strcmp(shahr,'tabriz')
   set(h1,'string',num2str(props.tabriz.tool))
   set(h2,'string',num2str(props.tabriz.arz))
   set(h3,'string',num2str(props.tabriz.ertefa))	
elseif strcmp(shahr,'urumie')
   set(h1,'string',num2str(props.urumie.tool))
   set(h2,'string',num2str(props.urumie.arz))
   set(h3,'string',num2str(props.urumie.ertefa))	
elseif strcmp(shahr,'kermanshah')
   set(h1,'string',num2str(props.kermanshah.tool))
   set(h2,'string',num2str(props.kermanshah.arz))
   set(h3,'string',num2str(props.kermanshah.ertefa))	
elseif strcmp(shahr,'shiraz')
   set(h1,'string',num2str(props.shiraz.tool))
   set(h2,'string',num2str(props.shiraz.arz))
   set(h3,'string',num2str(props.shiraz.ertefa))	
elseif strcmp(shahr,'kerman')
   set(h1,'string',num2str(props.kerman.tool))
   set(h2,'string',num2str(props.kerman.arz))
   set(h3,'string',num2str(props.kerman.ertefa))	
elseif strcmp(shahr,'mashhad')
   set(h1,'string',num2str(props.mashhad.tool))
   set(h2,'string',num2str(props.mashhad.arz))
   set(h3,'string',num2str(props.mashhad.ertefa))	
   elseif strcmp(shahr,'zahedan')
   set(h1,'string',num2str(props.zahedan.tool))
   set(h2,'string',num2str(props.zahedan.arz))
   set(h3,'string',num2str(props.zahedan.ertefa))	
elseif strcmp(shahr,'sannandaj')
   set(h1,'string',num2str(props.sannandaj.tool))
   set(h2,'string',num2str(props.sannandaj.arz))
   set(h3,'string',num2str(props.sannandaj.ertefa))	
elseif strcmp(shahr,'hamadan')
   set(h1,'string',num2str(props.hamadan.tool))
   set(h2,'string',num2str(props.hamadan.arz))
   set(h3,'string',num2str(props.hamadan.ertefa))	
elseif strcmp(shahr,'shahrekord')
   set(h1,'string',num2str(props.shahrekord.tool))
   set(h2,'string',num2str(props.shahrekord.arz))
   set(h3,'string',num2str(props.shahrekord.ertefa))	
elseif strcmp(shahr,'khormabad')
   set(h1,'string',num2str(props.khormabad.tool))
   set(h2,'string',num2str(props.khormabad.arz))
   set(h3,'string',num2str(props.khormabad.ertefa))	
   elseif strcmp(shahr,'boshehr')
   set(h1,'string',num2str(props.boshehr.tool))
   set(h2,'string',num2str(props.boshehr.arz))
   set(h3,'string',num2str(props.boshehr.ertefa))	
elseif strcmp(shahr,'zanjan')
   set(h1,'string',num2str(props.zanjan.tool))
   set(h2,'string',num2str(props.zanjan.arz))
   set(h3,'string',num2str(props.zanjan.ertefa))	
elseif strcmp(shahr,'semnan')
   set(h1,'string',num2str(props.semnan.tool))
   set(h2,'string',num2str(props.semnan.arz))
   set(h3,'string',num2str(props.semnan.ertefa))	
elseif strcmp(shahr,'yazd')
   set(h1,'string',num2str(props.yazd.tool))
   set(h2,'string',num2str(props.yazd.arz))
   set(h3,'string',num2str(props.yazd.ertefa))	
elseif strcmp(shahr,'bandarabbas')
   set(h1,'string',num2str(props.bandarabbas.tool))
   set(h2,'string',num2str(props.bandarabbas.arz))
   set(h3,'string',num2str(props.bandarabbas.ertefa))	
end
g=get(h1,'string');
g=str2num(g);
l=get(h2,'string');
l=str2num(l);
h=get(h3,'string');
h=str2num(h);
callc(g,l,h)

Contact us at files@mathworks.com