Загадочные круги на озерах

[Кузьма]

"Известнейший американский исследователь аномальных явлений и одновременно популярнейший публицист Айвен Сандерсон, посвятивший немало лет изучению тайн океанических глубин, так описывал случай, который он наблюдал однажды с борта ледокола: "Внезапно что-то появилось изводы, пробив трехметровую толщу льда; огромное серебристое тело исчезло в небе. Ледокол находился в северной части Атлантики. Вахтенный офицер и рулевой заметили только конец этой странной картины: огромные ледяные глыбы, подброшенные высоко в воздух, с грохотом обрушились на торосы, вода в полынье бурлила и, очевидно, кипела, так как кругом вздымались клубы пара".

Сечете связь?

[Wetlan]

Сообщение от Кузьма

(...) Сечете связь?

Пока не очень

[Suny]

Вчера нашел интересную мат.функцию
Рисуется так (картину назвал "Затмение")
При прорисовке точки бегут от краев к центру

;Blitz3D

Graphics 1024,768

Global x0=512
Global y0=384
Global x=0
Global y=0

While Not KeyDown(1)
For n= 1 To 1000000
t = Tan(n)
t0 = zero(Tan(n))
t01 = 1/zero(Tan(n))
x = x0+(50*Sin(t))-(t/300*Cos(t/2))
y = y0+(50*Cos(t))+(t/300*Sin(t/2))
Plot x,y
Next
Wend

Function zero(i)
If i = 0 Then
Return 1
Else
Return i
EndIf
End Function

Удивительное совпадение

[Suny]

Но что еще более интересно - практически таже самая функция (см.ниже) дает вот такую картину (назвал "Магнит").
Точки опять же начинают группироваться при прорисовке - от перефири к оси круга.

;Blitz3D

Graphics 1024,768

Global x0=512
Global y0=384
Global x=0
Global y=0

While Not KeyDown(1)
For n= 1 To 1000000
t = Tan(n)
t0 = zero(Tan(n))
t01 = 1/zero(Tan(n))
x = x0+(100*Sin(n))+(t/300*Cos(t))
y = y0+(100*Cos(n))+(t/300*Sin(t))
Plot x,y
Next
Wend

Function zero(i)
If i = 0 Then
Return 1
Else
Return i
EndIf
End Function

Не знаю как это связанно, но уж слишком большое совпадение.

Еще совпадение - что я построил именно эти функции и сопоставил с рисунком.

P.S. Когда строил (рисовал) мат.функции о кругах ни чего не знал.

[Suny]

функция
x = x0+(50*Sin(n))+(t/300*Cos(t/2))
y = y0+(50*Cos(n))+(t/300*Sin(t/2))
дает туже картину

[Wetlan]

А в чем Вы рисуете фцеуции? Это программа в которой можно задавать фунуции и строить их изображения?

[Suny]

Сообщение от aYa

А в чем Вы рисуете фцеуции? Это программа в которой можно задавать фунуции и строить их изображения?

Да - это любая программа, язык, среда в которых есть возможность работы с графикой и доступные основные математические функции (sin,cos,tan...):
Blitz3D, Delphi, С++Builder, Matlab, Мatcad, Maple...