Так...
Все время одно и то же - коды всем нужны. Некоторое время назад и мне то же самое понадобилось. Вот что я нарыл.
Во-первых. Если Вы - любитель, и нужна точность на уровне вычислений на калькуляторе, безо всяких там наворотов в надцатых знаках после запятой, то, помимо названного выше
Cartes du Ciel Sky Charts (_полное_ название программы, причем чаще она скорее даже известна и упоминается под именем Sky Charts ) - написана на дельфях, так что ... -
http://www.stargazing.net/astropc/index.html ; так вот, помимо этого, рекомендую блок Паскалевских программ, лежащих на -
http://www.springer.de/phys/books/astropc/pascal.htmlЭто приложение-дополнение к книге Astronomy on the Personal Computer .
Если вам нужна профессиональная точность, то Вам - сюда , проект SOFA (Standards Of Fundamental Astronomy ) -
http://www.iau-sofa.rl.ac.uk/- увы, все алгоритмы на Фортране
Если не боитесь ковыряться во внутренностях других программ, можно порекомендовать прежде всего программу
XEphem - высокая точность алгоритмов,
http://www.clearskyinstitute.com/xephem/xephem.htmlА наиболее полный список линков на программы с кодами (все для астрономов-профи, но дерзать никому не вредно...) -
http://ascl.net/ (Astrophysics Source Code Library)
Просто хорошая подборка ссылок -
http://didaktik.physik.uni-wuerzburg.de/~pkrahmer/home/prog2.htmlВпрочем, этого добра (сборников линков) навалом...