irradiancecal

function irradiancecal
%input n b w phe
h1=findobj(0,'tag','now');
m=findobj(h1,'tag','EditText2');
phe=get(m,'string');
phe=str2num(phe)
h2=findobj(0,'tag','go');
t=findobj(h2,'tag','EditText1hour');
wk=get(t,'string');
w=str2num(wk)
tl=findobj(h2,'tag','EditText2day');
nk=get(tl,'string');
n=str2num(nk)
tll=findobj(h2,'tag','EditText3slop');
bk=get(tll,'string');
b=str2num(bk)
if strcmp(wk,'')|strcmp(nk,'')|strcmp(bk,'')
 msgbox('you should enter both houre and day')
else
w=(w-12)*15;
wrad=w*pi/180;
phe=phe*pi/180;
brad=b*pi/180;
del=23.45*sin((360*(n+284)/365)*pi/180);
delrad=del*pi/180;
got=1367*(1+0.033*cos(360*pi*n/(365*180)))*(cos(phe-brad)*cos(delrad)*cos(wrad)+sin(phe-brad)*sin(delrad))
msgbox(num2str(got),'irradiance')
end