function callsunset
%we nedd phe and n
h1=findobj(0,'tag','now');
m=findobj(h1,'tag','EditText2');
phe=get(m,'string');
phe=str2num(phe)
h2=findobj(0,'tag','sunsetf');
t=findobj(h2,'tag','EditText1sunset');
nk=get(t,'string')
n=str2num(nk)
dece=23.45*sin((360*(n+284)*pi)/(180*365))
%msgbox(num2str(dece),'declination angle')
%msgbox(num2str(phe))
sunset=(180/(3.14*15))*acos(-(tan(phe*3.14/180))*tan(dece*3.14/180))
msgbox(num2str(sunset),'sunset')
