Реферат: Программная система обработки и анализа изображений

procedure TMainForm.Paporotnik;

const

A: array[0..3, 0..2, 0..3] of integer =

(((0,0,0,0),(0,20,0,0),(0,0,0,0)),

((85,0,0,0),(0,85,11,70),(0,-10,85,0)),

((31,-41,0,0),(10,21,0,21),(0,0,30,0)),

((-29,40,0,0),(10,19,0,56),(0,0,30,0)));

var

b: array[1..15000] of word;

k, n, i: word;

newX, newY, z, x, y: real;

Color: longint;

begin

x := 0; y := 0; z := 0;

Randomize;

for k := 1 to 15000 do begin

b[k] := Random(10);

if b[k] > 3 then b[k] := 1;

end; { for k }

i := 1;

{ b[i] := 1;}

for i := 1 to 10000 do begin

newX := (a[b[i],0,0]*x + a[b[i],0,1]*y + a[b[i],0,2]*z) / 100+

a[b[i],0,3];

newY := (a[b[i],1,0]*x + a[b[i],1,1]*y + a[b[i],1,2]*z) / 100+

a[b[i],1,3];

z := (a[b[i],2,0]*x + a[b[i],2,1]*y + a[b[i],2,2]*z) / 100+

a[b[i],2,3];

x := newX; y := newY;