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

Приложение 1 Program FalsCorr; {исследование открытых и закрытых числовых систем методами компьютерного моделирования} const alfa=0.0;{коэффициент расширения отрезка отображения} nk=20;{число интервалов гистограмм} m=3;{число компонентов (химических элементов,литотипов)} minx1=3;{минимальная граница значений компонента 1 при моделировании} maxx1=6;{максимальная граница значений компонента 1 при моделировании} minx2=5;{минимальная граница значений компонента 2 при моделировании} maxx2=10;{максимальная граница значений компонента 2 при моделировании} minx3=12;{минимальная граница значений компонента 3 при моделировании} maxx3=20;{максимальная граница значений компонента 3 при моделировании} nf=20;{фактическое число проб} type TComp=array[1..nf] of real;{массивы компонентов, их квадратов парных произведений в ОС} TCompI=array[1..nf] of integer; TK=array[0..nk+3] of real; {массив границ интерв. гистограммы} TH=array[0..nk+3] of integer; {массив частот гистограммы} Trang=array[1..nf] of integer;{массивы рангов компонентов} var f:text;{файл результатов по ОС и ЗС} i,j,q:integer;{служебные переменные} sl:real; P01,P02,P03:real; shag,shagx,shagy,shagp,shagz:real; {переменные открытой системы}