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

68 end; {оработка данных ЗС} Statisk(nf,m,Y1,my1,sigmay1,asimy1); Statisk(nf,m,Y2,my2,sigmay2,asimy2); Statisk(nf,m,Y3,my3,sigmay3,asimy3); Correl(nf,my1,my2,sigmay1,sigmay2,Y1,Y2,ry12); Correl(nf,my1,my3,sigmay1,sigmay3,Y1,Y3,ry13); Correl(nf,my2,my3,sigmay2,sigmay3,Y2,Y3,ry23); skvoy1:=sqrt(sigmay1);skvoy2:=sqrt(sigmay2); skvoy3:=sqrt(sigmay3); {расчёт сумм компонентов по образцам} for i:=1 to nf do SumCompy[i]:=Y1[i]+Y2[i]+Y3[i]; {печать статистик долевых данных} Writeln(f); Writeln(f, ’статистики долей ’); Writeln(f); Writeln(f,’ Комп. Средние Дисперсия Скво Asim’); Writeln(f,’ Y1 ’,my1:10:3, sigmay1:10:5, skvoy1:10:5,asimy1:10:3); Writeln(f,’ Y2 ’,my2:10:3, sigmay2:10:5, skvoy2:10:5,asimy2:10:3); Writeln(f,’ Y3 ’,my3:10:3, sigmay3:10:5, skvoy3:10:5,asimy3:10:3); Writeln(f,’ ry ry12 ry13 ry23 ’); Writeln(f,’ ’,ry12:10:3,ry13:10:3, ry23:10:3); {ранжирование массивов Х} for i:=1 to nf do begin X1rang[i]:=i;X2rang[i]:=i;X3rang[i]:=i; end; BubblePar(nf,X1,X1rang); BubblePar(nf,X2,X2rang); BubblePar(nf,X3,X3rang); minx:=X1[1];maxx:=X3[nf]; Shcala(nf,minx,maxx,nk,Kx,shagx); Histo(nf,nk,Hx1,X1,Kx); Histo(nf,nk,Hx2,X2,Kx); Histo(nf,nk,Hx3,X3,Kx); if nf>50 then i:=i else begin {печать исходных ранжированных данных X1,X2 X3} Writeln(f); Writeln(f,’ исходные ранжированные данные’); Writeln(f,’ X1 X1rang X2 X2rang X3 X3rang ’); for i:=1 to nf do Writeln(f,X1[i]:10:3,X1rang[i]:5,X2[i]:10:3,