Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.mrao.cam.ac.uk/~pjds/ascript/users/precess.txt Дата изменения: Sat Oct 12 20:06:14 1996 Дата индексирования: Tue Oct 2 10:11:00 2012 Кодировка: Поисковые слова: http astrokuban.info astrokuban

{Clear the screen, and display a title}
display_title(*** General Precession ***)

{We want to use commas in the prompt string, so change the delimiter to %}
set_delimiter(%)

{What sort of coordinates do want to precess?}
write_string(Precess ra/dec, ha/dec, az/alt, ecl or gal coordinates:)
new_line
ask_for_character(Which sort of coordinates [r,h,a,e,g]%rhaeg%c1)

{Get the coordinates...}
new_line
write_string(Please give the coordinates to be precessed:)
new_line
ask_for_coordinates(c1)

{..convert them to ra/dec if not already ra/dec...}
if (c1!r)
new_line
write_string(Converting to ra/dec...)
new_line
convert_coordinates(c1%r)
end_if

{..correct for precession..}
new_line
write_string(Correcting ra/dec for precession...)
new_line
correct_for_precession

{..convert the corrected coordinates back again..}
if (c1!r)
new_line
write_string(Converting from precessed ra/dec...)
new_line
if (c1!g)
clear_flags(date)
end_if
convert_coordinates(r%c1)
end_if

{..and display the result in red}
new_line
write_string(Precessed values:)
new_line
set_normal_text(4)
display_coordinates(c1)
set_normal_text(7)

{Another conversion?}
new_line
ask_for_repeat