No BSD License
function aacal h1=findobj(0,'tag','aa'); m=findobj(h1,'tag','EditText1'); bk=get(m,'string'); b=str2num(bk) a=1-b msgbox(num2str(a),'solar absorption factor')
Contact us at files@mathworks.com