Курсовая работа: Полный факторный эксперимент

var

FMain: TFMain;

implementation

uses ffe_typeconst;

{$R *.DFM}

function RandomNorm( mF, dF: real ): real;

begin

RandomNorm:= mF + dF * random;

end;

function CalculateX( level: byte ): real;

var

xResult: real;

xU: real;

i: byte;

begin

xResult:= 0;

i:= 0;

if planingMatrix[ i, level ] = 1 then

xU:= u[ i, 2 ]

else

xU:= u[ i, 1 ];

xResult:= xResult + p[ i ] * xU;

for i:= 1 to 3 do

begin

if planingMatrix[ i, level ] = 1 then

xU:= u[ i, 2 ]

else

xU:= u[ i, 1 ];

xResult:= xResult + p[ i ] * xU;