Аттрактор Лоренца

[Andrey770]

доброго времени суток
помогите пожалуйста

Const
 x: Real = 3.051522;
  y: Real = 1.582542;
  z: Real = 15.62388;
  dt = 0.0001;
  a = 5;
  b = 15;
  c = 1;
Var
  gd, gm: Integer;
  x1, y1, z1: Real;  
Begin

      x1 := x + a*(-x+y)*dt;
      y1 := y + (b*x-y-z*x)*dt;
      z1 := z + (-c*z+x*y)*dt;
    
      x := x1;
      y := y1;
      z := z1;
iMAGE1.Canvas.Pixels[(Round(19.3*(y - x*0.292893) + 320)),
               Round(-11*(z + x*0.292893) + 392)];

только ничего не выводит:
только выдает ошибку

     x := x1;
               y := y1;
                z := z1;

[Hacker19_90]

только выдает ошибку

какую ошибку?

[Hacker19_90]

блин
Вы же константам новые значения присваиваете!

  x := x1;
      y := y1;
      z := z1;

Так делать нельзя!

[Andrey770]

left side cannot be ssigned to

[Andrey770]

В паскале все работает

[Andrey770]

Program Lorenz;
Uses CRT, Graph;
Const
  x: Real = 3.051522;
  y: Real = 1.582542;
  z: Real = 15.62388;
  dt = 0.0001;
  a = 5;
  b = 15;
  c = 1;
Var
  gd, gm: Integer;
  x1, y1, z1: Real;
Begin
  gd:=Detect;
  InitGraph(gd, gm, 'c:\bp\bgi');
  While not KeyPressed Do Begin
      x1 := x + a*(-x+y)*dt;
      y1 := y + (b*x-y-z*x)*dt;
      z1 := z + (-c*z+x*y)*dt;
      x := x1;
      y := y1;
      z := z1;
      PutPixel(Round(19.3*(y - x*0.292893) + 320),
               Round(-11*(z + x*0.292893) + 392), 9);
    End;
    CloseGraph;
    ReadKey;
End.

это в Паскале, я пробую сделать это в Делфи

[Hacker19_90]

В паскале все работает

Попробуйте так

Const
 x: Real = 3.051522;
  y: Real = 1.582542;
  z: Real = 15.62388;
  dt = 0.0001;
  a = 5;
  b = 15;
  c = 1;
Var
  gd, gm: Integer;
  x1, y1, z1: Real;  
Begin

      x1 := x + a*(-x+y)*dt;
      y1 := y + (b*x-y-z*x)*dt;
      z1 := z + (-c*z+x*y)*dt;
iMAGE1.Canvas.Pixels[(Round(19.3*(y1 - x1*0.292893) + 320)),
               Round(-11*(z1 + x1*0.292893) + 392)];

[Hacker19_90]

А всё понял вы цвет пикселя не меняли
Вот допустим так работает в делфи

While true do
      begin
      x1 := x + a*(-x+y)*dt;
      y1 := y + (b*x-y-z*x)*dt;
      z1 := z + (-c*z+x*y)*dt;

      x := x1;
      y := y1;
      z := z1;
Form1.Canvas.Pixels[(Round(19.3*(y - x*0.292893) + 320)),
               Round(-11*(z + x*0.292893) + 392)] := clRed;
      end;

[Andrey770]

ошибки не выдает, но ничего не рисует
просто с канвой первый раз

[Hacker19_90]

Учтите что у меня он на форме рисует!
А так как у вас Image
то измените

Form1.Canvas.Pixels[(Round(19.3*(y - x*0.292893) + 320)),
               Round(-11*(z + x*0.292893) + 392)] := clRed;

на вот ттакое

Image1.Canvas.Pixels[(Round(19.3*(y - x*0.292893) + 320)),
               Round(-11*(z + x*0.292893) + 392)] := clRed;