Фрактал в обычном ABC(либо градиент по-нашему)

@NecroICE · Регистрация: 04.08.2009

Студворк — интернет-сервис помощи студентам

Необходимо сделать фон для открытки... Реализацию в обычном Паскале ABC я не нашел, зато пришел к фракталам... Мало про фракталы нарыл... но может и руки виноваты...а на реализацию фракталов в ABC очень мало информации. Взяв из примеров один "отпечаток пальца" и поэкспериментировав с переменными, получил неплохой "природный" фон, если можно так сказать

Суть в чем, есть фрактал... вот его код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
uses GraphABC;
 
const
  n=255;
  max=10;
 
var
  x,y,x1,y1,cx,cy: real;
  i,ix,iy: integer;
// z=z^2+c
begin
  SetWindowCaption('Открытка');
  SetWindowSize(600,600);
  cx:=0.14;
  cy:=+0.17;
  for ix:=0 to WindowWidth-1 do
  for iy:=0 to WindowHeight-1 do
  begin
    x:=0.005*(ix-200);
    y:=0.005*(iy-150);
    for i:=1 to n do
    begin
      x1:=x*x-y*y+cx;
      y1:=x*y+1.4*y+cy;
      if (x1>max) or (y1>max) then break;
      x:=x1;
      y:=y1;
    end;
    if i>=n then SetPixel(ix,iy,clRed)
      else SetPixel(ix,iy,RGB(255,255-i,255-i));
  end;
end.

Внимание вопрос...Как сделать зеркальное отражение фрактала слева? То есть этот фрактал сместить на середину по оси X и отразить слева. Как себе я представляю, получиться как бабочка. надо еще с переменными "пошутить". Мучаюсь...не получается

... Вспомнил, можно ли реализовать, что бы они прорисовывались одновременно, а не по очереди? Народ, HELP! О_о Мучаюсь второй день... а еще сдать нужно в понедельник.

@taras atavin · 03.02.2011, 07:12

Фрактал и градиент - разные понятия:

фракталом называется самоподобный объеккт, то есть объект, части которого подобны целому

,

градиентом называется вектор, составленный из частных производных по всем геометрическим осям, такой вектор имеет направление максимальной крутизны склона поверхности отклика, а его модуль пропорционален крутизне этого склона в этом направлении

.

Добавлено через 2 минуты
Градиентом иногда также сокращённо называют градиентную заливку, то есть графический объект с плавным переходом цвета в заданном направлении. Так что определись, что тебе нужно.

Добавлено через 20 минут

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

Как сделать зеркальное отражение фрактала слева

Ну это не имеет ни к фракталу, ни к градиенту никакого отношения. На вход зеркала подаётся уже готовое изображение, зеркало читает цвета его пикслей и рисует теми же цветами, но по преобразованным координатам. При горизонтальном отражении преобразование такое:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{cases} {x}_{2}={x}_{0}-\left({x}_{1}-{x}_{0} \right) \\ {y}_{2}={y}_{1} \end{cases} \rightarrow$
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{cases} {x}_{2}=2*{x}_{0}-{x}_{1} \\ {y}_{2}={y}_{1} \end{cases}$ ,
где $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}_{2}$ - абсцисса точки отражения, $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}_{1}$ - абсцисса точки оригинала, $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}_{2}$ - абсцисса самого зеркала, $https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}_{2}$ - ордината точки отражения, $https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}_{1}$ - ордината точки оригинала.

@NecroICE · 03.02.2011, 13:50 **[ТС]**

Я говорил то, что хотел видеть

Определился - градиентная заливка. Тогда встречный вопрос: как реализовать градиентную заливку в Pascal ABC? Желательно код... А с фракталом я так понимаю, что мы читаем каждый пиксел и закрашиваем его с другой стороны? Сейчас попробую

@Puporev · 03.02.2011, 14:06

В папке Samples->GraphABC есть пример - файл gradient

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@NecroICE 0 / 0 / 0 Регистрация: 04.08.2009 Сообщений: 16
	03.02.2011, 13:50 [ТС]
	Я говорил то, что хотел видеть Определился - градиентная заливка. Тогда встречный вопрос: как реализовать градиентную заливку в Pascal ABC? Желательно код... А с фракталом я так понимаю, что мы читаем каждый пиксел и закрашиваем его с другой стороны? Сейчас попробую 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	03.02.2011, 14:06
	В папке Samples->GraphABC есть пример - файл gradient 1