Visibility of Luna and Lunar Crescent

)
gobxy(2,21);cout<<"Azimut ;
gotory(2,24);cout<< Semi-Dia: ;
i{(.Y.400)l=0)
{ if(n%100)==0) k=0;
€le i((n%4F0) k=1;
)
)
double julimdate(doubl€ yrdouble mndouble dcdouble ft)
{
)
i(mn<X yr=yFlrm.=ni+12: )
a=(doubl. (long (yrl100.0)));
b=2-a+(double (ron8 (./4.0)));
jd=(doublc (lon8 ( 165.25'('r+47 I 6.0))))+(double (lo.s
{10.6001'(mn+1.0))))+d.tb-1524.5+fi i
{
l=(jde-245 I 545.0)/36525.0;
epsilon=21.0+(26.0+2 l-a48/60.0/60.0-(46.815/1600.0)'t'
(0.00059/3600.0rf 1'+(0.00t813R600-0)1.r1;
elons=29?.85016+445267.1 I 1481-0.0019142*l'l+t*t'l/I89474.0'
smon=35?.52?72+15999.05014.r-0.0001601'lir-t.r.r/300000.0
mmob=134,96298+477198.867398't+0.00869721'l+t't'VJ6250 0i
mng=91.27 I 9l +483202.01t538rr,0.0016825{1.t+l*1*r/32?2?0.0
lnod€=125.04452-l9l4.t l626l1l+0.0020708.11r+rrr*t450000 0
fo(i{;i<61;i++)
{
derbsi=delhsi+(nur obrlil[5]+nur_oblti]t6l1r).sin((nur_obltill0l.€loig+
nur,obltiltlheom+nur_obllill2l.ndom+nu obltiltll'nale+
nut_obllil[4]'lnode)1Pvl 80.0):
delra€psi+=((nur_obltill?l+nul_obrlilt8lh0{co(nui obltiltoiielone+
nul_obltiltll*smom+nulobllill2li@oE+nut_obltjl13l'nar8+
nur obllill4rhode)'PYl80-0));
)
delrasi'=(1.0(t0000.0.t600.0));
<leftaepsi'1 1.041 0000.0'3600.0));
elsilon=epsilor+dellaepsii
2l!