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

{AstroScript program to calculate the equation of time = MST - RST}

{Set the default values for the various quantities}
set_time_zone(0)
set_daylight_saving(0)
set_longitude(0,0,0)
set_latitude(0,0,0)
set_height(0)
set_decimal_places(0)
set_local_civil_time(12,0,0)

{Clear the screen and display the title in light grey on black}
set_normal_text(7)
display_title(The equation of time)

{Find the moment when the Sun crosses the meridian}
find_when(sun,hour angle,0)

{Display the result in red}
new_line
set_normal_text(4)
write_string(The equation of time [h,m,s] is .............. )
display_time_difference(12.0,local civil time)
set_normal_text(7)
new_line
new_line

clear_flags(date)
ask_for_repeat