Visibility of Luna and Lunar Crescent

{ cl6c{): maime.u0; cltsqo; Daiuourineo;
fclose(fptr4)t
{ gotory(]0,4hout<<"welcone io the New Moon cslculator";
goro\y(25,20):.oul<< Prs Eni.r !o $an :
void eaituoud.4void)
{ f!l.{=fop.n(schmse.hf',"a');
{ inputdalerime0i cl6cd); nonlh_chee.0i
I
ll6t_cahulatioo0;
jd=juliadare(lred,lmo trtdab,tsac);
jde=jd+denat[inl(lyeaFl620.o)]/(3600.0+24.0)i
stjd=juliedakoted,lmonrh,ldare,o.0);
$=Grjd-:15 r 545.0n6525 0j
i=(jde-2451545.0y36s2s0.0;
elonep=sin(ndeltap.Pvl 80.0f sin(sdethp+Pvl 80.0)l
elonep=eloDgp+co(mdetaprPyl80.0)rcos{sdelbp*PI/180.0)
'co((slphap-rolphap).1 5.01P1.7180.0);
elongp=ncos(€longp)r180.o/PIr
eotor)(s2,?)j pdnl('T. Elon =');eoloxy(65,7):pinr(,,%?.llr
phasep-(1,o-co(€lonSplPVl 80.0))/2.0i
solox)(5:.8);pdnt( T. Ph6e =,,);Boroxr(65,8)iprinl(,,%7.If
%'.Pbasco' 100,0);
elone=sn(nrlarrPI/l 80.0)isinGhr'Pvl 8o.o)i
c ons-elong F(on m14.Pl./ t 80 ol.@dslat ,Pt I 80.o).coq GtonSmlong.Pt/180
0li
elong=acos(€londi 180.o/Pl:
phaF=(1,oa{doie'PUl80,0)!2.0;
mseni{jia=(nBdhdsor I 80.0/Pr;
Sotor)r52.0)pn fi"Widrh -'.gotoxrr65,o'.pnntt( !i?.lltm.$rd):
Sobr)15-2.10':prinrli DAZ - ):Sotory(65.r0ripnnrt(5.7 ltl
goro\tr52.ll):prinrf( ARCV'igolorJr65.llr.prinrn o.7.1tr
qvall(oah-sall)-( I 1.837 | {,1226*wid+o,73 t 9.wid.wid-
0. l0l8'pow(qid,3)))/lo O;
ov.l=(h.lr-slrx7.r65l-6.32261wid+o.71 19.*id.wid_
0.l0l8.pov{wid,3));
,06