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

sxy: array [1..3] of real;

matr: array [1..5, 1..5] of real;

b: array [1..5] of real;

s: real;

d:real;

m,v:word;

gd,gm,ch,cv:integer;

x,y:real;

chr:char;

ex:boolean;

{процедура ўнўцўалўзацў• системи кординат}

procedure initgrah(m:word);

var i:integer;

begin

setbkcolor(white);

setcolor(magenta);

ch:=getmaxx div 2 ;

cv:=getmaxy div 2 ;

line(1,cv,getmaxx,cv);

line(getmaxx,cv,getmaxx-6,cv-3);

line(getmaxx,cv,getmaxx-6,cv+3);

line(ch,1,ch,getmaxy);

line(ch,1,ch-3,6);

line(ch,1,ch+3,6);

i:=0;