Ткачев Ю.А. Открытые и закрытые числовые системы

65 asim:=asim/nf; {расчёт дисперсии и скво компонентов} sigma:=m2-mx*mx;skvo:=sqrt(sigma); {расчёт коэфф. асимметрии} asim:=asim/(skvo*skvo*skvo); end; Procedure Correl(nf:integer;mx,my,sigmax,sigmay:real; var X,Y:TComp;var rxy:real); {расчёт коэффициентов корреляции между компонентами системы; nf - чмсло образцов; m - число компонентов; X,Y - массивы коррелирующиж величин; mx,my - средние коррелирующих величин; sigmax,sigmay - дисперсии корр. величин; rxy - коэфф. корреляции между компонентами} var i,j:integer; sumxy:real;{сумма парных произведений} mxy:real;{среднее парных произведений} covxy:real;{ковариация} begin sumxy:=0; for i:=1 to nf do sumxy:=sumxy+X[i]*Y[i]; mxy:=sumxy/nf; covxy:=mxy-mx*my; rxy:=covxy/(sqrt(sigmax)*sqrt(sigmay)); end; {начало основного блока программы} begin Randomize; Assign(f,’FalsCorr.rez’); Rewrite(f); Writeln(f,’Результаты по программе FalsCorr’); Writeln(f); {формирование исходных массивов компонентов} for i:=1 to nf do begin sl:=random; P01:=sl; X1[i]:=sl*(maxx1-minx1)+minx1; end; for i:=1 to nf do begin sl:=random;