Из-за Вашей нетерпёжки посылаю на скорую руку наколоченный код, не проверенный, неоптимизированный (с фиксированным и ничем не обоснованным шагом интергирования).
Прожектор не бегает по кругу, а крутится в фиксированной точке-центре (это, насколько я успел понять, не влияет на вид кривой; а влияет это всего лишь на выбор начального значения

и на поворот кривой).
Данный код следут скопировать в файл Seiling.ps и любоваться кривыми (надеюсь, они правильные, но почти не проверял). Надеюсь PostScript Вы viewчить умеете. Там 3 кривульки для разных ускорений
Код:
%!
% (dr/dp)^2=(v0+a*p)^2-r^2
/c0 100 def
/r0 0 def
/toXY {% r phi
57.2957795 mul dup cos 2 index mul 3 1 roll sin mul
} bind def
/drdpsq {% r phi --> r phi (dr/dp)^2
dup c1 mul //c0 add 2 index 2 copy add 3 1 roll sub mul
} bind def
/ddp 0.01 def
300 350 translate
0 setlinewidth -200 0 moveto 400 0 rlineto 0 -200 moveto 0 400 rlineto stroke
1 setlinewidth
1 0 0 setrgbcolor
[ 1 4 10]
{%
/c1 exch def
r0 0 2 copy toXY moveto % r phi
{ drdpsq % r phi (dr/dp)^2
dup 0 lt {pop pop pop exit} if
sqrt ddp mul 3 -1 roll add exch ddp add % rnew pnew
1 index 300 gt {pop pop exit} if
2 copy toXY lineto
} loop
stroke
currentrgbcolor 3 1 roll setrgbcolor
} forall
showpage
Никаких других комментариев (какой диффур, какие константы) пока не даю. Потому что
Я уже писал(а):
Через недельку возможность точно будет, может и раньше не поленюсь запостскриптить.
Имаджь, чтобы люди не возились с PS, постараюсь запендюрить сегодня. Постараюсь также, чтобы мне это не стоило ужина.
ЗЫ: В строке
Код:
[ 1 4 10]
перечислены 3 разных ускорения. Заменив её на [1] или [10] (непременно в квадратных скобках!), получите одну кривульку. Заменив на
Код:
[ .5 1 2 3 4 5 6 7 8 9 10 11]
, получите 12 кривулек. Если программка не сломается. Если шаг интегрирования не подведёт. Если вообще написано правильно. Ибо, как уже объявлено --- всё сговнякано на скорую руку. Посему и код прошу не цитировать.
Добавлено спустя 33 минуты 33 секунды:
В принципе, я и не сильно проголодался...
(добавлено на след. день)Да, они не раскручиваются до бесконечности потому что шаг интегрирования (ddp=0.01) не адаптируется.