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

73 {расчёт коэфф. корреляции между комп. суммой компонентов} for i:=1 to nf do SumCompx[i]:=X1S[i]+ X2S[i]+X3S[i]; Correl(nf,mx1S,mxS,sigmax1S,sigmaxS, X1S,SumCompx,rx1S); Correl(nf,mx2S,mxS,sigmax2S,sigmaxS, X2S,SumCompx,rx2S); Correl(nf,mx3S,mxS,sigmax3S,sigmaxS, X3S,SumCompx,rx3S); {печать коэфф. коррел. между комп. X1,X2,X3 и суммой компон.} Writeln(f); Writeln(f,’ статистики сумм компонентов ’); Writeln(f,’Сред.сум диспер. X1 X2 X3 Rx1-C Rx2-C Rx3-C’); Writeln(f, mxS:10:3,sigmaxS:10:3,mx1S:10:3, mx2S:10:3,mx3S:10:3, Rx1S:10:3,Rx2S:10:3, Rx3S:10:3); {закрытие файлов} Flush(f); Close(f); end.