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

62 asimp1,asimp2,asimp3:real;{асимметрии} rp12,rp13,rp23:real;{коэффициенты корреляции пар компон. в ЗС} sump1,sump2,sump3:real; {сум.комп.их квад.в ЗС} SumCompp:TComp;{массив сумм копонентов по пробам в ЗС} Hp1,Hp2,Hp3:TH;{массивы частот гистограммы кмпонен. P1,P2,P3 } Kp:TK; {переменные компонентов z} minz,maxz:real; minz1,maxz1,minz2,maxz2,minz3,maxz3:real; {минимумы и максимумы компонентов z} Z1,Z2,Z3:TComp;{массивы компонентов, их квадратов, кубов и парных произв., перерасчитан. из соответствующих массивов ЗС без изменения распределений} Z1rang,Z2rang,Z3rang:Trang;{массивы рангов компонентов Z1,Z2,Z3} mz1,mz2,mz3:real;{средние значения компонентов ЗС, пересчитанных из данных в ЗС, преобр. из данных p} sigmaz1,sigmaz2,sigmaz3:real;{дисперсии компонентов в ЗС, преобразованных из данных в ЗС p1-p2p3 без изменения распределений} skvoz1,skvoz2,skvoz3:real;{средние квадратические отклонения компонентов, преобразованных из p1-p2p3 в ЗС} asimz1,asimz2,asimz3:real;{асимметрия распределений компонен. z} rz12,rz13,rz23:real;{коэффициенты корреляции компонентов z} SumCompz:TComp;{массив сумм компонентов z в ЗС} Hz1,Hz2,Hz3:TH;{массивы частот гистограмм компонентов Z1,Z2,Z3} Kz:TK; Procedure Shcala(nf:integer;min,max:real; nk:integer;var K:TK;var shag:real); {разбивка шкалы для гистограмм: nf - число проб; min - минимальное значение компонента X1; max - максимальное значение компонента X3; K - массив значений интервалов гистограмы shag -шаг интервала гистограммы} var i:integer; begin shag:=(max-min)/nk; K[1]:=min; K[0]:=min-shag; for i:=1 to nk+3 do K[i]:=K[i-1]+shag; end;