function ifigcal
%input w1 w2 n b phe
h1=findobj(0,'tag','now');
m=findobj(h1,'tag','EditText2');
phe=get(m,'string');
phe=str2num(phe)
h2=findobj(0,'tag','ifig1');
t=findobj(h2,'tag','EditText1w1');
wko=get(t,'string');
w1=str2num(wko)
tj=findobj(h2,'tag','EditText2w2');
wkt=get(tj,'string');
w2=str2num(wkt)
tl=findobj(h2,'tag','EditText3day');
nk=get(tl,'string');
n=str2num(nk)
tll=findobj(h2,'tag','EditText4slop');
bk=get(tll,'string');
b=str2num(bk)
if strcmp(wko,'')|strcmp(nk,'')|strcmp(bk,'')|strcmp(wkt,'')
msgbox('you should enter all required data')
else
phe=phe*pi/180;
del=23.45*sin((360*(n+284)/365)*pi/180)
delrad=del*pi/180;
w1=(w1-12)*15;
wrad1=w1*pi/180;
w2=(w2-12)*15;
wrad2=w2*pi/180;
brad=b*pi/180;
DELP=phe-brad;
JJ=(360*pi*n);
A=1+0.033*cos(JJ/(365*180));
B=cos(DELP)*cos(delrad)*((sin(wrad1))-(sin(wrad2)));
C=(2*pi*(w2-w1)/360)*sin(delrad)*(sin(DELP));
IO=(12*3600*1367/pi)*A*(B+C)*(-1)
msgbox(num2str(IO),'irraddiation')
end