IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Множества Мандельброта и Жюлиа, собственно программа постороения
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской
Реальное имя: Игорь

Репутация: -  0  +


Здравия желаю, Товарищи!
Очевидно, эта тема уже обсуждалась, и я прочитал все касательно этих фракталов... НО. Результирующую программу мне так никто не предложил, а сам я еще не дорос, чтобы всю математику фрактала прописать самостоятельно в Паскале.

С множеством Мандельброта все понятно - я, наконец-то, достал информатика, и он дал мне готовую, полностью рабочую программу.
Как я понял, в множестве Мандельброта граница убегания постоянна, а затравочное число изменятся. Тогда в множестве Жюлиа наоборот: затравочное число постоянно, а граница убегания меняется. Верно? (Гсподи! Неужли я такое говорю? wacko.gif )

Тогда достаточно в процедуре рисования множества Мандельброта изменить итерационный процесс и получим множество Жюлиа? Вопрос только в том, как это сделать?
Вот текст процедуры рисования множества Мандельброта:

procedure Mandelbrot_Draw;
{ постpоение множества Мандельбpота }
var
i, j : Integer;
X_New, Y_New,
X_Old, Y_Old : Extended;
r, P, Q : Extended;
Color : Word;
Begin
for i:= 0 to GetMaxX do
for j:= 0 to GetMaxY do
begin
P:= P_min+i*d_p;
Q:= Q_min+j*d_q;
Color:= 0;
X_Old:= 0;
Y_Old:= 0;
repeat
X_New:= X_Old*X_Old - Y_Old*Y_Old + p;
Y_New:= 2*X_Old*Y_Old + q;
Inc (Color);
r:=Sqr(X_New) + Sqr(Y_New);
X_Old:= X_New;
Y_Old:= Y_New;
until (r >= M) or (Color >= GetMaxColor);
if r > M then PutPixel (i,j, Color) else PutPixel (i,j, 0);
if KeyPressed then
case ReadKey of
#27 : Exit;
#32 : PaletteCreate;
end;
end;
{ чистим буфеp клавиатуpы }
while KeyPressed do ReadKey;
End; { Mandelbrot_Draw }


(кстати, у меня работает почему-то быстрее, чем та, которую на нашел на этом форуме в теории)

Как я понял, итерационный процесс, это вот эта штука:

X_New:= X_Old*X_Old - Y_Old*Y_Old + p;
Y_New:= 2*X_Old*Y_Old + q;
Inc (Color);
r:=Sqr(X_New) + Sqr(Y_New);
X_Old:= X_New;
Y_Old:= Y_New;

Которую надо изменить.
Понятно дело придется так же поменять некоторые константы и переменные.
Помогите мне, пожалуйста, преобразовать ЭТУ программу, чтобы она рисовала множества и Мандельброта и Жюлиа. Пропишите за меня процедуру для Жюлиа и объясните, что еще где нужно поменять и как, чтобы все без глюков запускалось.
Мне надо завтра сдать эту задачу, иначе я себе аттестат испорчу.
Помогите, пожалуйста поскорее кто может! Плиз! Я очень надеюсь на вас!
А уж с интерфайсом выбора одного или другого множетсва я сам разберусь.

И еще одна мааленькая просьба.
Если кто-нибудь меня услышит и поможет, киньте пожалуйста мне СМСку <...> (Здесь не доска сообщений. Читай правила!)

Всем заранее спасибо!!

Вот код всей программы (Показать/Скрыть)



Спасибо за внимание! =)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Цитата
Результирующую программу мне так никто не предложил, а сам я еще не дорос, чтобы всю математику фрактала прописать самостоятельно в Паскале.
До использования поиска тоже не дорос?
Создание фрактальных рисунков

Вот и подумай, если ты не соизволил хотя бы немного поискать (даже на этом форуме), чтобы приблизиться к нужному тебе результату, то как можно относиться к твоему заявлению:
Цитата
я прочитал все касательно этих фракталов
?

Не верю! (С) К.С.Станиславский


Цитата
(кстати, у меня работает почему-то быстрее, чем та, которую на нашел на этом форуме в теории)
Почему-то такие заявления принято подкреплять фактами, знаешь ли... Вот и приведи время отрисовки обоими методами, если уж начал о скорости...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Автооответчик
*****

Группа: Пользователи
Сообщений: 1 188
Пол: Мужской
Реальное имя: Александр

Репутация: -  16  +


Цитата
Пропишите за меня процедуру для Жюлиа и объясните, что еще где нужно поменять и как, чтобы все без глюков запускалось.

lol.gif lol.gif lol.gif
никто вместо тебя делать не станет...

Цитата
Мне надо завтра сдать эту задачу, иначе я себе аттестат испорчу.
Помогите, пожалуйста поскорее кто может! Плиз! Я очень надеюсь на вас!

а о чем до этого думал ?


--------------------
Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской
Реальное имя: Игорь

Репутация: -  0  +


Цитата
До использования поиска тоже не дорос?

Дорос! Не помогло! Откуда мне было знать, что при поиске Жюлиа надо искать фракталы? Может надо было начать с основ графики? Все, что я нашел по слову "Жюлиа" я ПРОЧИТАЛ! А если в тебе даже это слово не встречается, то зачем мне туда лезть?
(и теме "Создание фрактальных рисунков" нет ни слова о множестве Жюлиа (не говоря уже о самой программе))
...
Цитата
Почему-то такие заявления принято подкреплять фактами, знаешь ли... Вот и приведи время отрисовки обоими методами, если уж начал о скорости

Ну, блин! Я же не гений! Я в этом вообще не разбираюсь! Я думал этот огромный форум помогает людям познать азы программирования. А на меня тут пока что только наорали! Вот это приняли, млин!


Цитата
никто вместо тебя делать не станет...

Тогда какого четра в комментарее к категории написано "делаем вместе"??
Какие вы тут все злые! mad.gif

Цитата
а о чем до этого думал ?

Думал о том, как бы меня окончательно не забанили!

Сообщение отредактировано: Гersh -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Автооответчик
*****

Группа: Пользователи
Сообщений: 1 188
Пол: Мужской
Реальное имя: Александр

Репутация: -  16  +


Цитата
Тогда какого четра в комментарее к категории написано "делаем вместе"??
Какие вы тут все злые! mad.gif

вместе - это не значит, что за тебя делают самое сложное, а всякие мелочи (вроде интерфейса) ты делаешь (так и быть...) сам.
mad.gif


--------------------
Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Цитата
Откуда мне было знать, что при поиске Жюлиа надо искать фракталы?
Только одним постом выше ты утверждал, что прочел ВСЕ что было по теме. Неужели же ВЕЗДЕ где ты был, при упоминании множества Julia не упоминаются фракталы? Я тебя умоляю, сказки будешь внукам рассказывать...

Цитата
Тогда какого четра в комментарее к категории написано "делаем вместе"??
Во-первых, тебя не спросили, что там написать... dry.gif

А во-вторых, "решаем вместе". Начинай. Где ТВОЕ решение?
Цитата
я, наконец-то, достал информатика, и он дал мне готовую, полностью рабочую программу.
Ты что, это сам решил? Или хотя бы разобрался с тем, КАК это работает? НЕТ! Ты достал готовую программу, и теперь хочешь, чтобы ее переделали под твои нужды, да еще и прикрываешься подзаголовком форума???
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской
Реальное имя: Игорь

Репутация: -  0  +


Цитата
вместе - это не значит, что за тебя делают самое сложное,

а то что я готовую программу дал - это не считается? В которой надо всего лишь пять срок перетисать...
И вообще сколько можно флудить? Я тему создал в поисках помощи, а не врагов. Если в падлу формулу написать, то че вообще докапываться?


Цитата
Я тебя умоляю, сказки будешь внукам рассказывать...

С такими темпами нет гарантии, что я детей увижу!

Цитата
А во-вторых, "решаем вместе". Начинай. Где ТВОЕ решение?

Я уже предостваил рабоучу программу, в которой надо всего 5 строк переписать...

Цитата
Ты что, это сам решил? Или хотя бы разобрался с тем, КАК это работает?

повторяю
Цитата
сам я еще не дорос, чтобы всю математику фрактала прописать самостоятельно в Паскале.

Аналогично и разобраться с ней не могу. Тем более
[quote]Мне надо завтра сдать эту задачу, иначе я себе аттестат испорчу.
[quote]
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской
Реальное имя: Игорь

Репутация: -  0  +


Кажется я понял в чем дело!!
По-моему все траблы из-за константы GetMaxColor!! Только как от них избавиться? Вот блин! sad.gif(
Про такую переменную вообще ни слова ни где не сказано!!! sad.gif(((
Чёрт!! >_<


Кстати! Я еще не разобрался с процессом пересчета границ рисунка... Мне кажется, что для Жюлиа он не такой должен быть. Потому что там что-то меняется не так и, после возврата к исходному рисунку, он получается не такой как был...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской
Реальное имя: Игорь

Репутация: -  0  +


Я сдал множество Жюлиа!! smile.gif
Спасибо, всем, кто мне помогал! mad.gif

Если интересно, могу выложить показать. (Или это уже не тут обсуждается? А где?)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 24.06.2017 22:40
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"