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

71 Histo(nf,nk,Hp2,P2,Kp); Histo(nf,nk,Hp3,P3,Kp); {расчёт сумм компонентов по образцам} for i:=1 to nf do SumCompp[i]:=P1[i]+P2[i]+P3[i]; {печать статистик ранжированных долей} Writeln(f); Writeln(f,’ статистики ранжированных долей’); Writeln(f); Writeln(f,’ Комп. Средние Дисперсия Скво Asimp’); Writeln(f,’ P1 ’,mp1:10:3, sigmap1:10:5, skvop1:10:5,asimp1:10:3); Writeln(f,’ P2 ’,mp2:10:3, sigmap2:10:5, skvop2:10:5,asimp2:10:3); Writeln(f,’ P3 ’,mp3:10:3, sigmap3:10:5, skvop3:10:5,asimp3:10:3); Writeln(f); Writeln(f, ’Гистограммы совокупностей величин P1,P2,...’); Writeln(f, ’ № Интр Част.1 Част.2 Чост.3 ’); for i:=0 to nk+3 do begin Writeln(f, i:3 ,Kp[i]:10:3,Hp1[i]:10, Hp2[i]:10,Hp3[i]:10); end; {расчёт и обработка компонентов z открытой системы, пересчитанных из долей закрытой системы P1[i],P2[i],P3[i] с соблюдением пропорциональности компонентов долям компонентов закрытой системы, т.е. с сохранением распределения долей} for i:=1 to nf do begin Z1[i]:=Y1[i]*(mx1/mp1); Z2[i]:=Y2[i]*(mx2/mp2); Z3[i]:=Y3[i]*(mx3/mp3); end; {печать массивов условных компонентов Z1,Z2 и Z3} if nf>50 then i:=i else begin {печать массивов условных компонентов} Writeln(f); Writeln(f,’ Z1 Z2 Z3 ’); for i:=1 to nf do Writeln(f,Z1[i]:10:3,Z2[i]:10:3,Z3[i]:10:3); Writeln(f); end;