Побудова кривих регресій методом парабол

initgraph(gd,gm,'');

initgrah(m);

highvideo;

setcolor(green);

for i:=1 to n do

begin

line (round(ch+abs(xn[i]*m))-3, round(cv-yn[i]*m)+3,round(ch+abs(xn[i]*m))+3, round(cv-yn[i]*m)-3);

line (round(ch+abs(xn[i]*m))+3, round(cv-yn[i]*m)+3,round(ch+abs(xn[i]*m))-3, round(cv-yn[i]*m)-3);

end;

setcolor(magenta);

{лўва частина графўка}

for i:=(-v) to 0 do

begin

x:=i/20;

y:=a[1] + a[2]*x + a[3]*x*x + a[4]*x*x*x +a[5]*x*x*x*x;

if abs(ch-abs(x)*m) <32500 then

if abs(cv-y*m)<32500 then

lineto(round(ch-abs(x)*m),round(cv-y*m));

end;

{права частина графўка}

for i:=0 to v do

begin

x:=i/20;

y:=a[1] + a[2]*x + a[3]*x*x + a[4]*x*x*x +a[5]*x*x*x*x;

if abs(ch+abs(x)*m) <32500then