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

70 for i:=1 to nf do begin P1rang[i]:=i;P2rang[i]:=i;P3rang[i]:=i; end; BubblePar(nf,P1,P1rang); BubblePar(nf,P2,P2rang); BubblePar(nf,P3,P3rang); minp:=P1[1];maxp:=P3[nf]; {построение шкалы долевых данных} Shcala(nf,minp,maxp,nk,Kp,shagp); {построение гистограмм долевых данных} Histo(nf,nk,Hp1,P1,Kp); Histo(nf,nk,Hp2,P2,Kp); Histo(nf,nk,Hp3,P3,Kp); if nf>50 then i:=i else begin {печать ранжированных массивов долей компонентов} Writeln(f); Writeln(f,’ранжированные массивы долей компонентов’); Writeln(f); Writeln(f,’ P1 P1rang P2 P2rang P3 P3rang ’); for i:=1 to nf do Writeln(f,P1[i]:10:3,P1rang[i]:5,P2[i]:10:3, P2rang[i]:5, P3[i]:10:3,P3rang[i]:5); Writeln(f); end; {оработка ранжированных данных ЗС} Statisk(nf,m,P1,mp1,sigmap1,asimp1); Statisk(nf,m,P2,mp2,sigmap2,asimp2); Statisk(nf,m,P3,mp3,sigmap3,asimp3); Correl(nf,mp1,mp2,sigmap1,sigmap2,P1,P2,rp12); Correl(nf,mp1,mp3,sigmap1,sigmap3,P1,P3,rp13); Correl(nf,mp2,mp3,sigmap2,sigmap3,P1,P3,rp23); skvop1:=sqrt(sigmap1);skvop2:=sqrt(sigmap2); skvop3:=sqrt(sigmap3); {ранжирование массивов p} for i:=1 to nf do begin P1rang[i]:=i;P2rang[i]:=i;P3rang[i]:=i; end; BubblePar(nf,P1,P1rang); BubblePar(nf,P2,P2rang); BubblePar(nf,P3,P3rang); minp:=P1[1];maxp:=P3[nf]; {построение шкалы для гистограммы долевых данных} Shcala(nf,minp,maxp,nk,Kp,shagp); {построение гистограмм долевых данных} Histo(nf,nk,Hp1,P1,Kp);