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

69 X2rang[i]:5, X3[i]:10:3,X3rang[i]:5); Writeln(f); end; {оработка исходных ранжированных данных ОС} Statisk(nf,m,X1,mx1,sigmax1,asimx1); Statisk(nf,m,X2,mx2,sigmax2,asimx2); Statisk(nf,m,X3,mx3,sigmax3,asimx3); Correl(nf,mx1,mx2,sigmax1,sigmax2,X1,X2,rx12); Correl(nf,mx1,mx3,sigmax1,sigmax3,X1,X3,rx13); Correl(nf,mx2,mx3,sigmax2,sigmax3,X2,X3,rx23); {расчёт сумм компонентов по образцам} for i:=1 to nf do SumCompx[i]:=X1[i]+X2[i]+X3[i]; skvox1:=sqrt(sigmax1);skvox2:=sqrt(sigmax2); skvox3:=sqrt(sigmax3); Writeln(f); {печать статистик исходных ранжированных данных} Writeln(f, ’ статистики исходных ранжированных данных’); Writeln(f); Writeln(f,’ Комп. Средние Дисперсия Скво Asim’); Writeln(f,’ X1 ’,mx1:10:3, sigmax1:10:3, skvox1:10:3,asimx1:10:3); Writeln(f,’ X2 ’,mx2:10:3, sigmax2:10:3, skvox2:10:3,asimx2:10:3); Writeln(f,’ X3 ’,mx3:10:3, sigmax3:10:3, skvox3:10:3,asimx3:10:3); Writeln(f); Writeln(f, ’Гистограммы совокупностей величин X1,X2,...’); Writeln(f, ’ № Интр Част.1 Част.2 Чост.3 ’); for i:=0 to nk+3 do begin Writeln(f, i:3 ,Kx[i]:10:3,Hx1[i]:10, Hx2[i]:10,Hx3[i]:10); end; mx1S:=mx1;mx2S:=mx2;mx3S:=mx3;{сохраним для сумм} {переписывание массива Y в массив P} for i:=1 to nf do begin P1[i]:=Y1[i]; P2[i]:=Y2[i]; P3[i]:=Y3[i]; end; {ранжирование массивов P}