Visibility of Luna and Lunar Crescent

l
i((dnon8<90.0)&&(slon8>100.0))
ddone-nlon8+360.0_slon8;
dclong=mlong'5lon8;
Bky lal'tan(phitehda'PVl 80 o)+delonsi
doubl€ modtunc(double xY)
I
xFxy/l6o:
\y=(xy{double 0on8(xY rr)f 160:
iltxy<0)
loid paBlx(double hhdoublc dd)
t ol,llliililt;lli*"""pr/r80.0!emai)rr80.0/pri
ll,l"'lili-""t.r',t, t "o',r'PVr80
0)-r'Ih'sinr'r 0'|prar'Pr/I80 0rvl600 o:
;-eniin'vntuu'pt rro or inor' hre'{nrplar'Pl 180 0) on':
yy ro\tuu'Pl/l80 o)'hit'.os(plar'Pl/180 o)/con:
rho=po*(xx's+ty'y) 0 5)'.mtji
i.rJom=aurt'pr'co"rphrPVl 80 0f sidhh'PI/l 80 0)v
"' *' - --i""ltaa'priitooFpG'cos{PlatprPtl80olrcosthh'Pl/1800)))
delrMlPhal=(l 80 0/Pl):
hp=hh_deltaalphal
i;i;i|$,ili;t4r", to'r'{sin(dd+ur
" "' _* aoirOa'er'lad Of @s'hb'Pl lso otspie'cos'pldp'Pvl80 0)l\'
dehapr=(180o/PI)i
hp/-15.0:
loid dr-new-roo.(doublcdoubledoublc)
yy=y€a.+(monLh_l O+dak/lo Oir'l2 0i
traY-tYY_20000f 12 3685,
ir(kar'0ni)aoou61.
80 or-Pie'sinuratp'Pvr 80 o))'/
06ng ltar)))- t.o;
e|s raF(dotblc oons (ksY)));
L€--l,ay/1216 85i
;;=1"' ;';93;ggiijliil['31ffi 3"'ff.i::.i:.i:::*,
-.""-."ar.""ii lSu-zq toSl5o7'kav 0 0o000l4't4'r*'
*""":l'j'#:,!';i"*::'r;;:.8 r 6ei528' kav'o o I 07582' ree' reF. ooo0 I 2r8
'_ ' .@.Le.r;co 0ooo00058r r€.re'leerrec)i
218