
 
╥"======================="
 ╥"GEOSTATIONARY SATELLITE"
 ╥"======================="
 (╥
 2$╥"This programme calculates the"
 </╥"azimuth (angle clockwise from north) and"
 F/╥"elevation (angle from the horizontal) of"
 P/╥"any geostationary satellite as seen from"
 Z╥"any point on the earth."
 d╥
 n-╥"Please enter all positions in degrees."
 x╥
 ╟-╥"Positions north of the equator or west"
 х.╥"of the meridian are entered as positive"
 ё╥"values."
 ▌╥
 Б-╥"Positions south of the equator or east"
 е.╥"of the meridian should be prefaced by a"
 ц╥"minus sign (-)."
 ╗╥
 │!╦"Site latitude (deg N) ";Lat
 ╨#╦"Site longitude (deg W) ";Long
 ╩Ю
 Х╥
 Щ(╦"Longitude of satellite (deg W) ";C
Lat=Lat*╪/180
Long=Long*╪/180

C=C*╪/180
"Z=ю(C-Long)
,┴ Z>╪ Z=ю(2*╪-Z)
6D=ї(Lat)*ї(Z)
@D=-Ї(D/П(-D*D+1))+╪/2
J"J=(-╡(Lat)*ї(D))/(ї(Lat)*╡(D))
T┴ ю J>.99999 J=(е J)*.99999
^!Az=(-Ї(J/П(-J*J+1))+╪/2)*57.3
h2┴ C>Long ─ C<(╪+Long) ╤ C>(2*╪+Long) Az=360-Az
r6╚ El=(╪/2 -(Ї(42171*╡(D)/(42171*ї(D)-6371))))*57.3
|(┴ D < 1.41895 ╥"Azimuth = ";о(Az+.5)
▄*┴ D < 1.41895 ╥"Elevation = ";о(El+.5)
ъ,┴ D > 1.41895 ╥"Satellite below horizon"
ЎЫг
Э