Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.12.2012, 02:11   #1
MIKE11IPME
Форумчанин
 
Регистрация: 03.05.2010
Сообщений: 159
По умолчанию Визуализация множества Жюлия

в общем вот код
Код:
function vizjul(xm1,ym1:Real;color:Integer):TColor;
const a=-0.26;
      b=0.67;
var xm2,ym2:real;
begin
  xm2:=xm1*xm1-ym1*ym1+a;
  ym2:=2*xm1*ym1+b;
  if (Abs(xm2) > 2) or (Abs(ym2) > 2) then
  begin
    Result:=RGB(color,255,255)
  end
    else
      begin
        Inc(color);
        vizjul(xm2,ym2,color);
      end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var ih,iw,xo1,xo2,yo1,yo2,xp,yp:Real;
    i,u:Integer;
begin
  ih:=Image1.Height;
  iw:=Image1.Width;
  ShowMessage(FloatToStr(iw)+'  '+FloatToStr(ih));
  xo1:=strtofloat(Edit1.Text);
  xo2:=strtofloat(Edit2.Text);
  yo1:=strtofloat(Edit3.Text);
  yo2:=strtofloat(Edit4.Text);
  xp:=((Abs(xo2-xo1))/iw);
  yp:=((Abs(yo2-yo1))/ih);
  for i := 0 to Round(iw) do
    begin
      for u := 0 to Round(ih) do
        begin
          Image1.Canvas.Pixels[i,u]:=vizjul(xo1,yo1,0);
          yo1:=yo1+yp;
        end;
      xo1:=xo1+xp;
    end;

end;
Проблема: весь Image заливается одним цветом(оттенком) , что-то тут не то
MIKE11IPME вне форума Ответить с цитированием
Старый 22.12.2012, 10:21   #2
phomm
personality
Старожил
 
Аватар для phomm
 
Регистрация: 28.04.2009
Сообщений: 2,899
По умолчанию

лучше весь проект прикрепить, чтобы можно было сразу проверить.
Что говорит трассировка/отладка ?
phomm вне форума Ответить с цитированием
Старый 22.12.2012, 16:37   #3
MIKE11IPME
Форумчанин
 
Регистрация: 03.05.2010
Сообщений: 159
По умолчанию

Цитата:
Сообщение от phomm Посмотреть сообщение
лучше весь проект прикрепить, чтобы можно было сразу проверить.
Что говорит трассировка/отладка ?
Да в общем все как и задумано работает...
Вложения
Тип файла: zip 2(vcl).zip (5.37 Мб, 10 просмотров)
MIKE11IPME вне форума Ответить с цитированием
Старый 22.12.2012, 17:00   #4
MIKE11IPME
Форумчанин
 
Регистрация: 03.05.2010
Сообщений: 159
По умолчанию

Если выставить 0 0,02 0 0,02 то закрашивается одним цветом часть области
MIKE11IPME вне форума Ответить с цитированием
Старый 23.12.2012, 18:29   #5
phomm
personality
Старожил
 
Аватар для phomm
 
Регистрация: 28.04.2009
Сообщений: 2,899
По умолчанию

Сходу не решил, подзапутался...
Вот чего нагуглил, но тоже как-то не запилил, тупо копипастить не хотел, но может Вы чего проработаете.
http://www.visualtech.ru/course5.html
http://www.cyberforum.ru/pascal/thread626565.html
http://fractalworld.xaoc.ru/Julia_set
phomm вне форума Ответить с цитированием
Старый 27.12.2012, 00:46   #6
MIKE11IPME
Форумчанин
 
Регистрация: 03.05.2010
Сообщений: 159
По умолчанию

Цитата:
Сообщение от phomm Посмотреть сообщение
Сходу не решил, подзапутался...
Вот чего нагуглил, но тоже как-то не запилил, тупо копипастить не хотел, но может Вы чего проработаете.
http://www.visualtech.ru/course5.html
http://www.cyberforum.ru/pascal/thread626565.html
http://fractalworld.xaoc.ru/Julia_set
Вот последняя ссылка по мойму то что нужно , спасибо буду дорабатывать
MIKE11IPME вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal ABC. Множества. Сформировать два множества из M и N элементов случайным образом. powersej Паскаль, Turbo Pascal, PascalABC.NET 0 13.12.2012 21:08
Pascal ABC. Множества. Сформировать два множества из M и N элементов случайным образом. powersej Помощь студентам 0 13.12.2012 20:58
Сравнить мощность множества, состоящего из чисел от 1 до N с мощностью множества, состоящего из отрицательных элементов вектора В MaSS93 Паскаль, Turbo Pascal, PascalABC.NET 5 24.05.2012 20:04
Через множества заданы сорта роз,выращиваемых цветоводами. Ввод множества с клавиатуры,сравнение множеств BAMbarBIO Паскаль, Turbo Pascal, PascalABC.NET 5 31.05.2011 13:17
Визуализация ekzobyte Мультимедиа в Delphi 1 18.03.2009 18:11