множество Мандельброта, что это такое |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
множество Мандельброта, что это такое |
suriv |
2.11.2004 14:57
Сообщение
#1
|
Бывалый Группа: Пользователи Сообщений: 234 Пол: Мужской Реальное имя: AHTOH Репутация: 1 |
что такое множество Мандельброта?ответьте кому не сложно.
-------------------- Хочу в репу !
Cмотри,а то ведь получишь! Админ. Не получит - его фиг догонишь! Админ №2. P.S Вы еще третьего админа притащите сюда :D ваш аффтар :D Звали? :D (админ № не помню какой) ха больше нифига не напишете афтар Уверен? (Moderator) А еще можно ? (супмодер) Хватит его мучать ! Избили уж... (админ) Не хватит. я тоже напишу (тоже Админ) |
volvo |
2.11.2004 15:16
Сообщение
#2
|
Гость |
Про множество Мандельброта можно почитать, например, здесь...
|
UtaH |
2.11.2004 15:20
Сообщение
#3
|
человек-нерпа Группа: Пользователи Сообщений: 285 Пол: Женский Репутация: 13 |
Пусть у нас есть точка на комплексной плоскости. Если точка находится в каком-то пункте z=x+i*y, то следующий пункт будет выбираться по правилу
z'=z^2+c, где с=с1+i*с2 - некоторое фиксированное комплексное число. Значит, новые координаты точки вычисляются по формулам: x'=x^2-y^2+c1 y'=2xy+c2 Существует область значений параметра с, при которых точки, выходящие из начала координат, будут постоянно вертеться около места "старта". Граница этой области и получила название множества Мандельброта. Эскизы прикрепленных изображений -------------------- I am riding a Thesaurus!
|
Флогримм |
7.11.2004 7:06
Сообщение
#4
|
Бывалый Группа: Пользователи Сообщений: 253 Пол: Мужской Репутация: 4 |
Цитата что такое множество Мандельброта?ответьте кому не сложно - http://www.yandex.ru/yandsearch?text=%EC%E...F2%E0&stype=www :yes: :D :D -------------------- Я не буду жить с этой злобой внутри / Я не буду частью смертельной цепи / Я не буду потребителем твоих идей / Я не буду никогда убивать зверей (Unconform)
|
Altair |
7.11.2004 9:03
Сообщение
#5
|
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Флогримм, пожалуйста никогда больше не предлагай в качестве ответа поисковик.... он в 5% случаев только дает нужный ответ...
ЗЫ: у меня где-то есть исходник программы рисующий сие прекрасное меножество Если надо, поищу... -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
UtaH |
9.11.2004 4:02
Сообщение
#6
|
человек-нерпа Группа: Пользователи Сообщений: 285 Пол: Женский Репутация: 13 |
Код program mandel; uses CRT, Graph; const maxcol = 640; maxrow = 200; max_colors = 16; max_iterations = 512; max_size = 4; var Q : array[0..349] of real; XMax,YMax,XMin,YMin : real; P,deltaP,deltaQ,X,Y,Xsquare,Ysquare : real; i,color,row,col,GraphDriver,GraphMode : integer; ch : char; begin XMax := 1.2; XMin := -2.0; YMax := 1.2; YMin :=-1.2; GraphDriver := EGA; GraphMode := EGALo; InitGraph(GraphDriver,GraphMode,''); deltaP := (XMax - XMin)/(maxcol); deltaQ := (YMax - Ymin)/(maxrow); Q[0] := YMax; for row := 1 to maxrow do Q[row] := Q[row-1] - deltaQ; P := XMin; for col := 0 to maxcol do begin if Keypressed then exit; for row := 0 to maxrow do begin X := 0.0; Y := 0.0; Xsquare := 0.0; Ysquare := 0.0; color := 1; repeat Xsquare := X*X; Ysquare := Y*Y; Y := 2*X*Y + Q[row]; X := Xsquare - Ysquare + P; inc(color); until (color>=max_iterations) OR (Xsquare + Ysquare >= max_size); PutPixel(col,row,(color MOD max_colors)); end; P := P + deltaP; end; ch := ReadKey; end. Сообщение отредактировано: UtaHSh - 9.11.2004 4:04 -------------------- I am riding a Thesaurus!
|
Romtek |
9.11.2004 11:35
Сообщение
#7
|
Знаток Группа: Пользователи Сообщений: 303 Пол: Мужской Реальное имя: Роман Репутация: 2 |
-------------------- Romiras HomeLab- материалы и статьи по разработке ПО, моделирование алгоритмов, обработка и анализ информации, нейронные сети, машинное зрение и прочее.
|
Флогримм |
15.11.2004 7:00
Сообщение
#8
|
Бывалый Группа: Пользователи Сообщений: 253 Пол: Мужской Репутация: 4 |
Достаточно полная информация:
http://algolist.manual.ru/graphics/fracart.php http://algolist.manual.ru/graphics/mandelbrot.php Цитата Флогримм, пожалуйста никогда больше не предлагай в качестве ответа поисковик.... он в 5% случаев только дает нужный ответ... понял, не дурак, дурак бы не понял :yes: Сообщение отредактировано: Флогримм - 15.11.2004 7:02 -------------------- Я не буду жить с этой злобой внутри / Я не буду частью смертельной цепи / Я не буду потребителем твоих идей / Я не буду никогда убивать зверей (Unconform)
|
Гость |
17.02.2006 11:59
Сообщение
#9
|
Гость |
Здрасти! Скачал программу рисовнания множества - работет прикрасно! Спасибо!!
Но может кто-нибудь разжует каждую строчку, как эта программа работет?? А еще мне нужно множество Жулиа. (Оно обратно монжеству Мандельброта.) С этим вопросом тоже сюда? |
volvo |
17.02.2006 12:06
Сообщение
#10
|
Гость |
Сюда загляни:
Фракталы. Теория Цитата А еще мне нужно множество Жулиа. (Оно обратно монжеству Мандельброта.) Вообще-то множество Мандельброта - это частный случай множества Жюлиа... |
Гость |
2.04.2006 10:07
Сообщение
#11
|
Гость |
Ладно, Спасибо! Пойду почитаю.
|
Гersh |
14.04.2006 12:22
Сообщение
#12
|
Новичок Группа: Пользователи Сообщений: 31 Пол: Мужской Реальное имя: Игорь Репутация: 0 |
А вообще-то, я так понял, что разные люди (в том числе разные программисты) навывают одни и те же вещи по-разному!
|
Altair |
14.04.2006 22:41
Сообщение
#13
|
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Может ты не так слышишь ? Что именно ты считаешь произносяться по разному ?
-------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Гersh |
28.04.2006 8:27
Сообщение
#14
|
Новичок Группа: Пользователи Сообщений: 31 Пол: Мужской Реальное имя: Игорь Репутация: 0 |
Например: Алгоритм Сезерленда-Коха, -Кохана, -Коэна и тд.
Я так сразу и не вспомню... Но я очень много примеров встречал разного произношения (перевода) одних и тех же названий (понятий, имен)... |
volvo |
28.04.2006 8:32
Сообщение
#15
|
Гость |
Это, конечно, напрямую связано с Множеством Мандельброта, правда, Гersh? Хочешь пообсуждать особенности слуха программистов - иди в "Свободное". Здесь - Тематика.
Кстати, чтобы не было разночтений, пиши фамилии так, как они были написаны в оригинале, т.е. по-английски (или по-немецки, фрунцузски, и т.д.)! Вот тогда не будет таких фокусов с транскрипцией... |
Гersh |
28.04.2006 9:46
Сообщение
#16
|
Новичок Группа: Пользователи Сообщений: 31 Пол: Мужской Реальное имя: Игорь Репутация: 0 |
А я тут при чем?
Меня спросили - я ответил. Или мне игнорировать Админа прикажите? Разумеется это не связано с Мандельбротом! И потому про транскрипции я уже промолчу... |
Bear |
25.12.2011 10:31
Сообщение
#17
|
Гость |
Код program mandel; uses CRT, Graph; const maxcol = 640; maxrow = 200; max_colors = 16; max_iterations = 512; max_size = 4; var Q : array[0..349] of real; XMax,YMax,XMin,YMin : real; P,deltaP,deltaQ,X,Y,Xsquare,Ysquare : real; i,color,row,col,GraphDriver,GraphMode : integer; ch : char; begin XMax := 1.2; XMin := -2.0; YMax := 1.2; YMin :=-1.2; GraphDriver := EGA; GraphMode := EGALo; InitGraph(GraphDriver,GraphMode,''); deltaP := (XMax - XMin)/(maxcol); deltaQ := (YMax - Ymin)/(maxrow); Q[0] := YMax; for row := 1 to maxrow do Q[row] := Q[row-1] - deltaQ; P := XMin; for col := 0 to maxcol do begin if Keypressed then exit; for row := 0 to maxrow do begin X := 0.0; Y := 0.0; Xsquare := 0.0; Ysquare := 0.0; color := 1; repeat Xsquare := X*X; Ysquare := Y*Y; Y := 2*X*Y + Q[row]; X := Xsquare - Ysquare + P; inc(color); until (color>=max_iterations) OR (Xsquare + Ysquare >= max_size); PutPixel(col,row,(color MOD max_colors)); end; P := P + deltaP; end; ch := ReadKey; end. Можешь коменты добавить где че делается? |
Текстовая версия | 23.09.2024 20:16 |