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

72 {оработка данных по компоненту z ОС} Statisk(nf,m,Z1,mz1,sigmaz1,asimz1); Statisk(nf,m,Z2,mz2,sigmaz2,asimz2); Statisk(nf,m,Z3,mz3,sigmaz3,asimz3); Correl(nf,mz1,mz2,sigmaz1,sigmaz2,Z1,Z2,rz12); Correl(nf,mz1,mz3,sigmaz1,sigmaz3,Z1,Z3,rz13); Correl(nf,mz2,mz3,sigmaz2,sigmaz3,Z2,Z3,rz23); skvoz1:=sqrt(sigmaz1);skvoz2:=sqrt(sigmaz2); skvoz3:=sqrt(sigmaz3); BubblePar(nf,Z1,Z1rang); BubblePar(nf,Z2,Z2rang); BubblePar(nf,Z3,Z3rang); minz:=Z1[1];maxz:=Z3[nf]; {построение шкалы для гистограммы условных данных} Shcala(nf,minz,maxz,nk,Kz,shagz); {построение гистограмм условных данных} Histo(nf,nk,Hz1,Z1,Kz); Histo(nf,nk,Hz2,Z2,Kz); Histo(nf,nk,Hz3,Z3,Kz); {печать статистик ранжированных условных компонентов} Writeln(f); Writeln(f,’ статистики ранжированных условных компонентов’); Writeln(f); Writeln(f,’ Комп. Средние Дисперсия Скво Asimp’); Writeln(f,’ Z1 ’,mz1:10:3, sigmaz1:10:5, skvoz1:10:5,asimz1:10:3); Writeln(f,’ Z2 ’,mz2:10:3, sigmaz2:10:5, skvoz2:10:5,asimz2:10:3); Writeln(f,’ Z3 ’,mz3:10:3, sigmaz3:10:5, skvoz3:10:5,asimz3:10:3); Writeln(f); Writeln(f, ’Гистограммы совокупностей величин Z1,Z2,...’); Writeln(f, ’ № Интр Част.1 Част.2 Чост.3’); for i:=0 to nk+3 do begin Writeln(f, i:3 ,Kz[i]:10:3,Hz1[i]:10, Hz2[i]:10,Hz3[i]:10); end; {расчёт сумм компонентов по образцам} for i:=1 to nf do SumCompz[i]:=Z1[i]+ Z2[i]+Z3[i];