Курсовая работа: Вероятностные процессы и математическая статистика в автоматизированных системах

sgcod.Cells[3,5]:=' x3';

sgplan.Cells[1,0]:=' x0'; sgplan.Cells[2,0]:=' x1';

sgplan.Cells[3,0]:=' x2'; sgplan.Cells[4,0]:=' x3';

sgplan.Cells[5,0]:='x1^2-'+floattostrf(xc2,fffixed,3,2);

sgplan.Cells[6,0]:='x2^2-'+floattostrf(xc2,fffixed,3,2);

sgplan.Cells[7,0]:='x3^2-'+floattostrf(xc2,fffixed,3,2);

sgplan.Cells[8,0]:='x1x2'; sgplan.Cells[9,0]:='x1x3';

sgplan.Cells[10,0]:='x2x3'; sgplan.Cells[11,0]:=' y1';

sgplan.Cells[12,0]:=' y2'; sgplan.Cells[13,0]:=' yc';

for i:=1 to 15 do begin

if i<=8 then begin

if i mod 2 = 0 then x[1,i]:=1 else x[1,i]:=-1;

if ((i+1) div 2) mod 2 = 0 then x[2,i]:=1 else x[2,i]:=-1;

if ((i+3) div 4) mod 2 = 0 then x[3,i]:=1 else x[3,i]:=-1;

end

else begin

for j:=1 to 3 do

if i=7+2*j then x[j,i]:=-d

else if i=8+2*j then x[j,i]:=d

else x[j,i]:=0;

end;

x12[i]:=x[1,i]*x[2,i];

x23[i]:=x[2,i]*x[3,i];

x13[i]:=x[1,i]*x[3,i];

x[4,i]:=x12[i]; x[5,i]:=x13[i];

x[6,i]:=x23[i];

x[0,i]:=1;

for j:=1 to 3 do

x2[j,i]:=sqr(x[j,i])-xc2;