Курсовая работа: Расчетная методика проектирования программного комплекса

var

sum: Real;

i : integer;

a, Centr : Real;

begin

CountInterv:= StrToInt(Form1.ComboBox1.Items[Form1.ComboBox1.ItemIndex]);

SredInt := (CountInterv div 2) + 1;

dX := fdX(arrReal, N, Xc, CountInterv);

ChastotaGist;

Chart1.Series[0].Clear;

Chart1.Series[1].Clear;

Chart1.Series[2].Clear;

//исходные

for i := 1 to CountInterv do

Chart1.Series[0].AddXY(i,MasInt[kolvo, i]);

//симмметрированные

for i := SredInt+1 to CountInterv do

begin

sum := MasInt[kolvo, i] + MasInt[kolvo, CountInterv+1-i];

MasInt[kolvo, i] := sum /2;

MasInt[kolvo, CountInterv+1-i] := sum /2;

end;

for i := 1 to CountInterv do

Chart1.Series[1].AddXY(i,MasInt[kolvo, i]);

//полигон

a := abs(MasInt[kolvo, SredInt] - MasInt[kolvo, SredInt - 1]);

a := a / 3 * 4;

Centr := MasInt[kolvo, SredInt - 1] + a;

Chart1.Series[2].Clear;