ue gt; 1 then.Canvas.Brush.Color:=clWhite; .Canvas.rectangle (0,0, image1.Width, image1. Height);
x1:=10;:=10;:=320;:=470;:=630;:=10; .Canvas.CleanupInstance;
image1.Canvas.rectangle (0,0,654,472);:=Spinedit1.Value - 1; .Value:=FinalUroven;
Treugolnik_serpinskogo (0, x1, y1, x2, y2, x3, y3);
end;
end;
//Процедура побудови драконовою ламаною.
Procedure Drakonova_lomanaya(uroven:integer;x1,y1,x2,y2:real;n:real);,dy,AC,CD,AD,cx,cy:real;(uroven);Uroven=FinalUroven then (x1, y1, x2, y2, form1.image3.canvas); begin:=(x2 + x1)/2;
cy:=(y2 + y1)/2;:=sqrt (sqr (cx-x1) + sqr (cy-y1));
dx:=cx + AC * (cos (n + pi/2));:=cy + AC * (sin (n + pi/2));
Drakonova_lomanaya(uroven,x1,y1,dx,dy,n+45*cc);_lomanaya(uroven,x2,y2,dx,dy,n+90*cc+45*cc);
end;
end;
//Виклик процедури побудови драконовою ламаної допомогою натиснення на кнопку «Намалювати»
procedure TForm1.btn1Click (Sender: TObject);
begin:=145;:=160;:=560;:=160;:=(pi/180);
FinalUroven:=spinedit6.Value; FinalUroven gt; 0 then begin.Canvas.Brush.Color:=clWhite; .Canvas.rectangle (0,0, image3.Width, image3.Height);
Drakonova_lomanaya (0, x1, y1, x2, y2,0);
if FinalUroven gt; 1 then begin.Canvas.Pen.Color:=clRed;
FinalUroven:=FinalUroven - 1; _lomanaya (0, x1, y1, x2, y2,0);
Image3.Canvas.Pen.Color:=clBlack ;;
end;
end;
//Виклик процедури побудови драконовою ламаної вищого рівня за допомогою натиснення на кнопку «Наступний»
procedure TForm1.Button5Click (Sender: TObject);
begin:=145;:=160;:=560;:=160;:=(pi/180);
if FinalUroven gt; 0 then begin:=spinedit6.Value+1;.Value:=FinalUroven;.Canvas.Brush.Color:=clWhite;.Canvas.rectangle(0,0,image3.Width,image3.Height);
Drakonova_lomanaya (0, x1, y1, x2, y2,0);
if FinalUroven gt; 1 then begin.Canvas.Pen.Color:=clRed;
FinalUroven:=FinalUroven - 1; _lomanaya (0, x1, y1, x2, y2,0);
Image3.Canvas.Pen.Color:=clBlack ;;
end;
end;
//Виклик процедури побудови драконовою ламаної нижчого допомогою натиснення на кнопку «Попередній»
procedure TForm1.Button6Click (Sender: TObject);
begin:=145;:=160;:=560;:=160;:=(pi/180);
if FinalUroven gt; 1 then begin:=spinedit6.Value - 1;.Value:=FinalUroven;.Canvas.Brush.Color:=clWhite;.Canvas.rectangle(0,0,image3.Width,image3.Height);
Drakonova_lomanaya (0, x1, y1, x2, y2,0);
if FinalUroven gt; 2 then begin.Canvas.Pen.Color:=clRed;
FinalUroven:=FinalUroven - 1; _lomanaya (0, x1, y1, x2, y2,0);
Image3.Canvas.Pen.Color:=clBlack ;;
end;
end;
//Процедура побудови «басейнів» Ньютона.
procedure newton (coeff: Real);=Record: Real ;: Real ;;
Const=500;=1e + 10;=1e - 10;
Var, t, d: TComplex;
p: Real ;, y, n: Integer ;, gm: Integer ;, my: Integer ;;:=656 div 2;:=472 div 2; y:=-my to my dox :=-mx to mx do Begin:=0;
z.x:=X * coeff;// Масштабування фрактала
zy:=Y * coeff;:=z; (sqr (zx) + sqr (zy) lt; max) and (sqr (dx) + sqr (dy) gt; min)
and (n lt; iter) do Begin:=z;:=sqr (sqr (tx) + sqr (ty)) ;. x:=2/3 * tx + (sqr (tx) -sqr (ty ))/(3 * p) ;. y:=2/3 * ty * (1-tx/p) ;. x:=abs (tx - zx) ;. y:=abs (ty - zy); ( n) ;;. Image4.Canvas.Pixels [mx + x, my + y]:=(16 - (n mod 16)) * 16 ;;
end;
//Виклик процедури побудови басейну ньютона допомогою натиснення на кнопку «Намалювати»
procedure TForm1.Button1Click (Sender: TObject);coeff:Real;.Canvas.Brush.Color:=clWhite;.Canvas.rectangle(0,0,image4.Width,image4.Height);:=spinedit8.value*0.0001 + 0.0007; (coeff) ;;
//Процедура побудови біоморфа.biomorf (var coeff2, coeff3, coeff4: real);
var re, im, re1, im1: Real;
V, X, Y, gd, gm: Integer;
C: string;
label m1;
//Допоміжна процедура зведення в куб комплексного числа
procedure KUB; begin:=re * (re * re - 3 * im * im);:=im * (3 * re * re-im * im); re:=re1; im:=im1;
end;:=- 328...
