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

66 P02:=sl; X2[i]:=sl*(maxx2-minx2)+minx2; end; for i:=1 to nf do begin sl:=random; P03:=sl; X3[i]:=sl*(maxx3-minx3)+minx3; end; for i:=1 to nf do SumCompx[i]:=X1[i]+X2[i]+X3[i]; Statisk(nf,m,SumCompx,mx1,sigmax1,asimx1); for i:=1 to nf do SumCompxrang[i]:=i; BubblePar(nf,SumCompx,SumCompxrang); minx:=SumCompx[1];maxx:=SumCompx[nf]; Shcala(nf,minx,maxx,nk,Kx,shagx); Histo(nf,nk,HX1,SumCompx,Kx); skvox1:=sqrt(sigmax1); mxS:=mx1;{сохраним для сумм} {печать данных по сумме компонентов} Writeln(f, ’статистики данных по сумме компонентов’); Writeln(f); Writeln(f,’ Комп. Средние Дисперсия Скво Asim’); Writeln(f,’Сумма’,mx1:10:3, sigmax1:10:3,skvox1:10:3, asimx1:10:3); Writeln(f); Writeln(f, ’Гистограммы совокупностей величин X1,X2,...’); Writeln(f, ’ № Интр Част.1 ’); for i:=0 to nk+3 do begin Writeln(f, i:3 ,Kx[i]:10:3,Hx1[i]:10); end; sigmaxS:=sigmax1;{сохраним для сумм} { печать исходных данных} if nf>50 then i:=i else begin {печать исходных данных} Writeln(f); Writeln(f,’исходные натуральные данные’); Writeln(f,’ X1 X2 X3 ’); for i:=1 to nf do Writeln(f,X1[i]:10:3,X2[i]:10:3,X3[i]:10:3); Writeln(f); end; for i:=1 to nf do begin X1S[i]:=X1[i];X2S[i]:=X2[i];X3S[i]:=X3[i]; {сохр для сумм}