Небольшой проект по астрономии:
http://sourceforge.net/projects/galaxyaberrationhttp://kladov.org/Astronomy/GalaxyAberration.zipПусть галактика представляет собой диск из звёзд, в основном двойных. Для каждой звезды имеется аберрационное искажение -v/c, которое визуально сдвигает звезду в иное положение, так что в результате мы видим галактический диск оптически искаженным. Данное моделирование показывает, какие формы галактик мы можем видеть с различных дистанций для дисков, повернутых по отношению к лучу зрения на тот или иной угол.
Показано, что галактическая аберрация достаточна для объяснения формы практически всех наблюдаемых галактик, и для решения многих нерешённых вопросов астрономии и астрофизики (отсутствие сильно сплюснутых эллиптических галактик, отсутствие спиралей в Большом и Малом Магеллановых Облаках, проблема кривой вращения, проблема нелинейной зависимости углового размера галактик от красного смещения и др.)
Архив содержит Delphi проект (VCL) и статью на русском языке.
ПС: Извиняюсь, что немного не по теме. Изначально проектик был как раз на KOL, но я специально переделал на VCL, чтобы проще было запускать тем, кто не знает, с какой стороны к KOL подойти, и нет охоты разбираться.