Диссертация (1104014), страница 19

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 19)

–v. 4. –P. 3238-3244.70. Bernal J.D., Fowler R.H. // J. Chem. Phys. –1933. –v. 1. –P. 515-548. Русскийперевод: Бернал Дж., Фаулер Р. // Успехи физ. наук. –1934. –т. 14. –С. 586-644.71. Маленков Г.Г. // Ж. структ. хим. –2006. –т. 47. –Приложение.

–С. S5-S35.72. Röntgen W.C. // Ann. Phys. Chem. N.F. –1891. –v. XLV. –P. 91-97.73. Némethy G., Scheraga H.A. // J. Chem. Phys. –1962. – v. 36. –P. 3382, 3401.74. Robinson G.W., Lee J., Bassez M.-P. // J. Chem. Soc., Faraday Trans. 2. –1986.– v. 82. –P. 2351.75.

Bassez M.-P., Lee J., Robinson G.W. // J. Phys. Chem. –1987. –v. 91. –P. 5818.76. Langford V.S., McKinley A.J. and Quickenden T.I. // J. Phys. Chem. A. –2001.–v. 105. –P. 8916-8921.77. Robinson G.W., Cho C.H., Urquidi J. // J. Chem. Phys. –1999. –v. 111.

–P. 698.78. Urquidi J., Robinson G.W., Cho C.H., Xiao B., Singh S. // ECCC-5 (FifthElectronic Computational Chemistry Conference) http://www.phys.ttu.edu/~dujcb79. Symons M.C.R. // Chem. Br. –1989. –v. 25. –P. 491.80. Jenkins S., Morrison I. // Chem. Phys. Lett. –2000. –v. 317. –P. 97.81. Vedamuthu M., Singh S., Robinson G.W. // J. Phys. Chem. –1994.

–v. 98.–P. 2222.82. Falk M., Ford T.A. // Canad. J. Chem. –1966. –v. 44. –P. 1699-1707.83. Yu. Ya. Efimov, Yu. I. Naberukhin // Mol. Phys. –2004. –v. 102. –N 13.–P. 1407-1414.84. Yu. Ya. Efimov, Yu. I. Naberukhin // Mol. Phys. –2003. –v. 101. –N 3. –P. 459468.85.

Теленкова О.Г. Гигиеническое обоснование условий, обеспечивающихстабильность структурного состояния воды: Дисс. … канд. биол. наук. –М.–2011.86. Беловолова Л.В., Глушков М.В. // Электронный научный журнал«ИССЛЕДОВАНОВРОССИИ».–2006.http://zhurnal.ape.relarn.ru/articles/2006/215.pdf143–т.9.–С.2040-2057.87.

Брусков В.И., Масалимов Ж.К., Черников А.В. // ДАН. –2002. –т. 384. –№ 6.–С. 821-824.88. Colic, Morse D. // Colloids and Surfaces A: Physicochem and Engineer Aspects.–1999. –v. 154. –N 1-2. –P. 167-174.89. Frenkel J. Kinetic theory of liquids. –Oxford: «Clarendon Press». –1946. –P. 382.90. Mallamace F., Corsaro C. and Stanley H.E. // Sci. Rep. (Nature).

–2012. –v. 2.–P. 993.91. Ефимов Ю.Я. // Электронный журнал РФФИ «ИССЛЕДОВАНО ВРОССИИ». –2001. –т. 123. –С. 1388-1398.http://zhurnal.ape.relarn.ru/articles/2001/123.pdf92. Harvey A.H., Gallagher J.S. and Levelt Sengers J.M.H. // J. Phys. Chem. Ref.Data. –1998. –v. 27. –P. 761-774.93. Cho C.H., Urquidi J., Gellene G.I. and Robinson G.W. // J. Chem. Phys. –2001.–v. 114.

–P. 3157-3162.94. Harvey A.V. // J. Chem. Phys. –2001. –v. 115. –P. 7795.95. Cho C.H., Urquidi J., Gellene G.I. // J. Chem. Phys. –2001. –v. 115. –P. 77967797.96. Kell G.S., Ed. Franks F. Thermodynamic and transport properties of fluid water.// Water A comprehensive treatise. –New York. –Plenum Press. –1972. –v. 1.–P. 363-412.97. Abramson E.H., Brown J.M. and Slutsky L.J. // J. Chem. Phys. –2001. –v. 115.–P. 10461-10463.98. Юхневич Г.В.

Инфракрасная спектроскопия воды. –М.: «Наука». –1973.–С. 136, 141, 144.99. Wyss H.R., Falk M. // Canad. J. Chem. –1970. –v. 48. –P. 607.100. Карговский А.В. Структуры и оптические спектры водных кластеров:Дисс. … канд. физ.–мат. наук. –М. –2006.101. Юхневич Г.В., Ветров А.А. // Докл. АН СССР. –1970. –т. 194. –C. 557.102. Зацепина Г.Н. Свойства и структура воды.

–М.: Изд. Моск. Университета.–1974. –С. 157-158.144103. Bertie I.E., Labbe H.I., Whalley E. // Chem. Phys. –1969. –v. 50. –P. 4501.104. Bertie I.E., Whalley E. // Chem. Phys. –1964. –v. 40. –P. 1637, 1646.105. Bertie I.E., Whalley E. // Chem. Phys. –1967. –v.

46. –P. 1271.106. Irvine W.M., Pollack I.B. // Icarus. –1968. –v. 8. –P. 324.107. Инербаев Т.М., Субботин О.С., Белослудов В.Р., Белослудов Р.В.,Кавазое Е., Кудо Д.-И. // Рос. хим. ж. –2003. –т. 57. –№3. –С. 19-27.108. Li J-C., Ross D.C. In: Physics and chemistry of ice. Sapporo. –1992. –P. 27-34.109. Scherer J.R., Snyder R.G. // J. Chem. Phys. –1977. –v.

67. –P. 4794-4811.110. Imoto S., Xantheas S.S., Saito S. // J. Chem. Phys. –2013. –v. 138.–P. 054506.111. Петрянов И.В. // Химия и жизнь. –1965. –№ 3. –С. 2-14.112. Белан Л.Г. Тяжелая вода и синтезированные меченые соединения. –М.–1969.113. Куликов Б.С. Изотопы и свойства элементов. –М. –1990.114. Лобышев В.И. // Рос. хим. ж. (Ж.

Рос. хим. об-ва им. Д.И. Менделеева)–2007. –т. LI. –№ 1. –С. 107-114.115. Лобышев В.И. // Биофизика. –1983. –т. 4. –С. 666-668.116. Лобышев В.И., Твердислов В.А., Яковенко Л.В., Фогель Ю. // Биофизика.–1978. –№ 2. –С. 390.117. Золотарев В.М. // Оптика и спектроскопия. –1967. –т. 23. –С. 816.118. Draegert D.A., Stone N.W., Curnutte B., Williams D.

// J. Opt. Soc. America.–1966. –v. 56. –P. 64.119. Самойлов О.Я. Структура водных растворов электролитов и гидратацияионов. –М.: Изд-во Акад. Наук СССР. –1957.120. Wiggins P.M. // Cell. Mol. Biol. –2001. –v. 47. –P. 735-744.121. De Xammar Oro J.R. // J. Biol. Phys. –2001. –27. –P. 73-79.122. Oparin R.D., Fedotova M.V. and Trostin V.N. // J. Structural Chem. –2002.–43. –P. 467-472.123. Li R., Jiang Z., Chen F., Yang H. and Guan Y. // J. Mol. Struct. –2004.–v. 707.

–P. 83-88.145124. Lobyshev V.I., Tomkevitch M.S. In: «Optical Diagnostics and Sensing ofBiological Fluids and Glucose and Cholesterol Monitoring». Eds. A.V. Priezzev,G.L. Cote. Proc. of SPIE. –2001. –v. 4263. –P. 59.125. Лобышев В.И., Томкевич М.С., Петрушанко И.Ю. // Биофизика. –2005.–т. 50.

–вып. 3. –С. 464.126. Ефимова А.И., Зайцев В.Б., Болдырев Н.Ю., Кашкаров П.К. ИнфракраснаяФурье-спектрометрия. –М.: Физический факультет МГУ. –2008. –С. 42-58.127. Fishman E., Saumagne P. // J. Phys. Chem. –1965. –v. 69. –P. 3671.128. Pinkley L.W., Sethna P.P., Williams D. // J. Opt. Soc. America. –1977. –v. 67.–P.

494.129. Freda M., Piluso A., Santucci A. and Sassi P. // Appl. Spectr. –2005. –v. 59.–N 9. –P. 1155-1159.130. McCabe W.C., Subramanian S. and Fisher H.F. // J. Phys. Chem. –1970.–v. 74. –N 25. –P. 4360-4369.131. Schmidt D.A., Miki K. // J. Phys. Chem. A. –2007.

–v. 111. –P. 10119-10122.132. Buijs K., Choppin G.R. // J. Chem. Phys. –1963. –v. 39. –P. 2035.133. Luck W.A.P., Ed. Franks F. // Water: A comprehensive treatise. –New York.–Plenum Press. –1973. –v. 2. –P. 235.134. Tso T.-L., Lee E.K.C. // J. Phys. Chem. –1985. –v.

89. –P. 1612.135. Brubach J.-B., Mermet A., Filabozzi A., Gerschel A., Lairez D., Krafft M.P. andRoy P. // J. Phys. Chem. B. –2001. –v. 105. –P. 430.136. Branca C., Magazù S., Maisano G., Bennington S.M. and Fåk B. // J. Phys.Chem. B. –2003. –v. 107. –P. 1444.137. Branca C., Magazù S., Migliardo F., Romeo G. // J. Mol. Liq. –2003. –v. 103104. –P. 173.138. MacDonald H., Bedwell B. and Gulari E. // Langmuir. –1986. –v. 2.

–P. 704.139. Jain T.K., Varshney M. and Maitra A. // J. Phys. Chem. –1989. –v. 93. –P. 7409.140. Luck W.A.P. // Angew. Chem. Int. Ed. Engl. –1980. –v. 79. –P. 28.141. Hallam H.E., Ed. Luck W.A.P. Structure of Water and Aqueous Solutions.–Berlin. –Verlag. –1974. –P. 285.146142. Bradley M. // Application note: 50733, Thermo Fisher Scientific. –Madison, WI,USA. –2007.143. McCabe W.C., Subramanian S. and Fisher H.F. // J. Phys. Chem. –1970. –v. 74.–N 25.

–P. 4360-4369.144. Косолапов Ю.В. Разработка метода получения дифференцированныхспектральных данных в инфракрасной области для идентификации пищевыхжиров: Дисс. … канд. хим. наук. –М. –2007.145. Митропольский А.К. Техника статистических вычислений. –М.: «Наука».–1971.

–С. 61.147ПРИЛОЖЕНИЕПрограмма на языке Visual Basic, реализующая метод различения ИК-спектровна основе расчета начальных моментов:VERSION 1.0 CLASSBEGINMultiUse = -1 'TrueENDAttribute VB_Name = "Лист1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = TruePrivate Sub CommandButton1_Click()' Задание переменных для записи отчетной информации в файлыConst ForReading = 1, ForWriting = 2, ForAppending = 3Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0Dim fs, f, tsWorksheets("RunList").Columns("C:O").Delete Shift:=xlToLeftWorksheets("RunList").Range("C1").Value = "Совпадения"Worksheets("RunList").Range("C1").Font.Bold = TrueWorksheets("RunList").Columns("C:C").ColumnWidth = 11.86Worksheets("RunList").Range("D1").Value = "Кол-во групп"Worksheets("RunList").Columns("D:D").ColumnWidth = 11.29Worksheets("RunList").Range("E1").Value = "Кол-во совп-ий"Worksheets("RunList").Columns("E:E").ColumnWidth = 13.29Worksheets("RunList").Range("F1").Value = "Различия"Worksheets("RunList").Range("F1").Font.Bold = TrueWorksheets("RunList").Columns("F:F").ColumnWidth = 9.43Worksheets("RunList").Range("G1").Value = "Кол-во групп"Worksheets("RunList").Columns("G:G").ColumnWidth = 11.29Worksheets("RunList").Range("H1").Value = "Кол-во разл-ий"Worksheets("RunList").Columns("H:H").ColumnWidth = 13.29Dim counter1 As IntegerDim counter2 As IntegerDim counter3 As Integer148Dim counter4 As IntegerDim counter5 As DoubleDim counter6 As IntegerDim counter7 As IntegerDim counter8 As IntegerDim counter9 As IntegerDim counter10 As IntegerDim tempVariable As DoubleDim numberOfFiles As IntegernumberOfFiles = 0Dim numberOfDatesInFile As DoubleDim initialFrequency() As DoubleDim initialIntensity() As DoubleDim startPositionOfRange As DoubleDim endPositionOfRange As Double' Parameters for determing differenses in linesDim initialMiddleIntensity() As DoubleDim initialDispertionMiddleIntensity() As DoubleDim doveritIntervalOfIntensity() As DoubleDim resErrorsOfIntensity() As DoubleDim numberDifferencesInLines As DoubleDim differencesLinesIndexes() As DoubleDim Xj_Values() As DoubleDim nj_Values() As DoubleDim summ_nj_Values As DoubleDim numberOfFiltredDates As DoubleDim minimalIntensity() As DoubleDim maximalIntensity() As DoubleDim numberOfBoxes As IntegerDim parameter_C() As DoubleDim Xa_Value As DoubleDim mn_Values() As DoubleDim summ_Xj_Xa_nj_c() As DoubleDim resMoments_FirstSelection() As DoubleDim resErrorsOfMoments_FirstSelection() As DoubleDim resMoments_SecondSelection() As DoubleDim resErrorsOfMoments_SecondSelection() As Double149Dim kolichSovpavsh() As DoubleDim kolichRazlichn() As DoubleDim maximalKolichSovpavsh As DoubleDim maximalKolichRazlichn As DoubleDim numberMaximalKolichSovpavsh() As DoubleDim numberMaximalKolichRazlichn() As DoubleDim sovpavshieMomentu() As StringDim razlichnueMomentu() As StringDim numberOfInitialDatesInInterval As DoubleDim maximalNumberOfGroups As DoubleDim startNumberOfGroups As DoubleDim middleOfDates() As DoubleDim dispersionOfDates() As DoubleDim koeffStudient(30, 11) As DoubleDim doveritInterval() As DoublekoeffStudient(2, 1) = 0.33koeffStudient(3, 1) = 0.29koeffStudient(4, 1) = 0.28koeffStudient(5, 1) = 0.27koeffStudient(6, 1) = 0.27koeffStudient(7, 1) = 0.27koeffStudient(8, 1) = 0.26koeffStudient(9, 1) = 0.26koeffStudient(10, 1) = 0.26koeffStudient(11, 1) = 0.26koeffStudient(12, 1) = 0.26koeffStudient(13, 1) = 0.26koeffStudient(14, 1) = 0.26koeffStudient(15, 1) = 0.26koeffStudient(16, 1) = 0.26koeffStudient(17, 1) = 0.26koeffStudient(18, 1) = 0.26koeffStudient(19, 1) = 0.26koeffStudient(20, 1) = 0.26koeffStudient(21, 1) = 0.26koeffStudient(22, 1) = 0.26koeffStudient(23, 1) = 0.26koeffStudient(24, 1) = 0.26150koeffStudient(25, 1) = 0.26koeffStudient(26, 1) = 0.26koeffStudient(27, 1) = 0.26koeffStudient(28, 1) = 0.26koeffStudient(29, 1) = 0.26koeffStudient(30, 1) = 0.26koeffStudient(2, 2) = 0.73koeffStudient(3, 2) = 0.62koeffStudient(4, 2) = 0.58koeffStudient(5, 2) = 0.57koeffStudient(6, 2) = 0.56koeffStudient(7, 2) = 0.55koeffStudient(8, 2) = 0.55koeffStudient(9, 2) = 0.54koeffStudient(10, 2) = 0.54koeffStudient(11, 2) = 0.54koeffStudient(12, 2) = 0.54koeffStudient(13, 2) = 0.54koeffStudient(14, 2) = 0.54koeffStudient(15, 2) = 0.54koeffStudient(16, 2) = 0.54koeffStudient(17, 2) = 0.54koeffStudient(18, 2) = 0.535koeffStudient(19, 2) = 0.535koeffStudient(20, 2) = 0.53koeffStudient(21, 2) = 0.53koeffStudient(22, 2) = 0.53koeffStudient(23, 2) = 0.53koeffStudient(24, 2) = 0.53koeffStudient(25, 2) = 0.53koeffStudient(26, 2) = 0.53koeffStudient(27, 2) = 0.53koeffStudient(28, 2) = 0.53koeffStudient(29, 2) = 0.53koeffStudient(30, 2) = 0.53koeffStudient(2, 3) = 1#koeffStudient(3, 3) = 0.82koeffStudient(4, 3) = 0.77151koeffStudient(5, 3) = 0.74koeffStudient(6, 3) = 0.73koeffStudient(7, 3) = 0.72koeffStudient(8, 3) = 0.71koeffStudient(9, 3) = 0.71koeffStudient(10, 3) = 0.7koeffStudient(11, 3) = 0.7koeffStudient(12, 3) = 0.7koeffStudient(13, 3) = 0.695koeffStudient(14, 3) = 0.695koeffStudient(15, 3) = 0.69koeffStudient(16, 3) = 0.69koeffStudient(17, 3) = 0.69koeffStudient(18, 3) = 0.69koeffStudient(19, 3) = 0.69koeffStudient(20, 3) = 0.69koeffStudient(21, 3) = 0.69koeffStudient(22, 3) = 0.69koeffStudient(23, 3) = 0.69koeffStudient(24, 3) = 0.69koeffStudient(25, 3) = 0.69koeffStudient(26, 3) = 0.69koeffStudient(27, 3) = 0.69koeffStudient(28, 3) = 0.685koeffStudient(29, 3) = 0.685koeffStudient(30, 3) = 0.68koeffStudient(2, 4) = 1.38koeffStudient(3, 4) = 1.06koeffStudient(4, 4) = 0.98koeffStudient(5, 4) = 0.94koeffStudient(6, 4) = 0.92koeffStudient(7, 4) = 0.9koeffStudient(8, 4) = 0.9koeffStudient(9, 4) = 0.9koeffStudient(10, 4) = 0.88koeffStudient(11, 4) = 0.88koeffStudient(12, 4) = 0.88koeffStudient(13, 4) = 0.875152koeffStudient(14, 4) = 0.875koeffStudient(15, 4) = 0.87koeffStudient(16, 4) = 0.87koeffStudient(17, 4) = 0.87koeffStudient(18, 4) = 0.865koeffStudient(19, 4) = 0.865koeffStudient(20, 4) = 0.86koeffStudient(21, 4) = 0.86koeffStudient(22, 4) = 0.86koeffStudient(23, 4) = 0.86koeffStudient(24, 4) = 0.86koeffStudient(25, 4) = 0.86koeffStudient(26, 4) = 0.86koeffStudient(27, 4) = 0.86koeffStudient(28, 4) = 0.855koeffStudient(29, 4) = 0.855koeffStudient(30, 4) = 0.85koeffStudient(2, 5) = 2#koeffStudient(3, 5) = 1.3koeffStudient(4, 5) = 1.3koeffStudient(5, 5) = 1.2koeffStudient(6, 5) = 1.2koeffStudient(7, 5) = 1.1koeffStudient(8, 5) = 1.1koeffStudient(9, 5) = 1.1koeffStudient(10, 5) = 1.1koeffStudient(11, 5) = 1.1koeffStudient(12, 5) = 1.1koeffStudient(13, 5) = 1.1koeffStudient(14, 5) = 1.1koeffStudient(15, 5) = 1.1koeffStudient(16, 5) = 1.1koeffStudient(17, 5) = 1.1koeffStudient(18, 5) = 1.1koeffStudient(19, 5) = 1.1koeffStudient(20, 5) = 1.1koeffStudient(21, 5) = 1.1koeffStudient(22, 5) = 1.1153koeffStudient(23, 5) = 1.1koeffStudient(24, 5) = 1.1koeffStudient(25, 5) = 1.1koeffStudient(26, 5) = 1.1koeffStudient(27, 5) = 1.1koeffStudient(28, 5) = 1.1koeffStudient(29, 5) = 1.1koeffStudient(30, 5) = 1.1koeffStudient(2, 6) = 3.1koeffStudient(3, 6) = 1.9koeffStudient(4, 6) = 1.6koeffStudient(5, 6) = 1.5koeffStudient(6, 6) = 1.5koeffStudient(7, 6) = 1.4koeffStudient(8, 6) = 1.4koeffStudient(9, 6) = 1.4koeffStudient(10, 6) = 1.4koeffStudient(11, 6) = 1.4koeffStudient(12, 6) = 1.4koeffStudient(13, 6) = 1.35koeffStudient(14, 6) = 1.35koeffStudient(15, 6) = 1.3koeffStudient(16, 6) = 1.3koeffStudient(17, 6) = 1.3koeffStudient(18, 6) = 1.3koeffStudient(19, 6) = 1.3koeffStudient(20, 6) = 1.3koeffStudient(21, 6) = 1.3koeffStudient(22, 6) = 1.3koeffStudient(23, 6) = 1.3koeffStudient(24, 6) = 1.3koeffStudient(25, 6) = 1.3koeffStudient(26, 6) = 1.3koeffStudient(27, 6) = 1.3koeffStudient(28, 6) = 1.3koeffStudient(29, 6) = 1.3koeffStudient(30, 6) = 1.3koeffStudient(2, 7) = 6.3154koeffStudient(3, 7) = 2.9koeffStudient(4, 7) = 2.4koeffStudient(5, 7) = 2.1koeffStudient(6, 7) = 2#koeffStudient(7, 7) = 1.9koeffStudient(8, 7) = 1.9koeffStudient(9, 7) = 1.9koeffStudient(10, 7) = 1.8koeffStudient(11, 7) = 1.8koeffStudient(12, 7) = 1.8koeffStudient(13, 7) = 1.8koeffStudient(14, 7) = 1.8koeffStudient(15, 7) = 1.8koeffStudient(16, 7) = 1.8koeffStudient(17, 7) = 1.75koeffStudient(18, 7) = 1.75koeffStudient(19, 7) = 1.75koeffStudient(20, 7) = 1.7koeffStudient(21, 7) = 1.7koeffStudient(22, 7) = 1.7koeffStudient(23, 7) = 1.7koeffStudient(24, 7) = 1.7koeffStudient(25, 7) = 1.7koeffStudient(26, 7) = 1.7koeffStudient(27, 7) = 1.7koeffStudient(28, 7) = 1.7koeffStudient(29, 7) = 1.7koeffStudient(30, 7) = 1.7koeffStudient(2, 8) = 12.7koeffStudient(3, 8) = 4.3koeffStudient(4, 8) = 3.2koeffStudient(5, 8) = 2.8koeffStudient(6, 8) = 2.6koeffStudient(7, 8) = 2.4koeffStudient(8, 8) = 2.4koeffStudient(9, 8) = 2.3koeffStudient(10, 8) = 2.3koeffStudient(11, 8) = 2.3155koeffStudient(12, 8) = 2.3koeffStudient(13, 8) = 2.2koeffStudient(14, 8) = 2.2koeffStudient(15, 8) = 2.1koeffStudient(16, 8) = 2.1koeffStudient(17, 8) = 2.1koeffStudient(18, 8) = 2.1koeffStudient(19, 8) = 2.1koeffStudient(20, 8) = 2.1koeffStudient(21, 8) = 2.1koeffStudient(22, 8) = 2.1koeffStudient(23, 8) = 2.1koeffStudient(24, 8) = 2.1koeffStudient(25, 8) = 2.1koeffStudient(26, 8) = 2.08koeffStudient(27, 8) = 2.06koeffStudient(28, 8) = 2.04koeffStudient(29, 8) = 2.02koeffStudient(30, 8) = 2#koeffStudient(2, 9) = 31.8koeffStudient(3, 9) = 7#koeffStudient(4, 9) = 4.5koeffStudient(5, 9) = 3.7koeffStudient(6, 9) = 3.4koeffStudient(7, 9) = 3.1koeffStudient(8, 9) = 3#koeffStudient(9, 9) = 2.9koeffStudient(10, 9) = 2.8koeffStudient(11, 9) = 2.8koeffStudient(12, 9) = 2.75koeffStudient(13, 9) = 2.7koeffStudient(14, 9) = 2.7koeffStudient(15, 9) = 2.6koeffStudient(16, 9) = 2.6koeffStudient(17, 9) = 2.6koeffStudient(18, 9) = 2.55koeffStudient(19, 9) = 2.55koeffStudient(20, 9) = 2.5156koeffStudient(21, 9) = 2.5koeffStudient(22, 9) = 2.5koeffStudient(23, 9) = 2.5koeffStudient(24, 9) = 2.5koeffStudient(25, 9) = 2.5koeffStudient(26, 9) = 2.5koeffStudient(27, 9) = 2.5koeffStudient(28, 9) = 2.5koeffStudient(29, 9) = 2.5koeffStudient(30, 9) = 2.5koeffStudient(2, 10) = 63.7koeffStudient(3, 10) = 9.9koeffStudient(4, 10) = 5.8koeffStudient(5, 10) = 4.6koeffStudient(6, 10) = 4#koeffStudient(7, 10) = 3.7koeffStudient(8, 10) = 3.5koeffStudient(9, 10) = 3.4koeffStudient(10, 10) = 3.3koeffStudient(11, 10) = 2.3koeffStudient(12, 10) = 2.2koeffStudient(13, 10) = 2.2koeffStudient(14, 10) = 2.1koeffStudient(15, 10) = 3#koeffStudient(16, 10) = 3#koeffStudient(17, 10) = 3#koeffStudient(18, 10) = 2.95koeffStudient(19, 10) = 2.95koeffStudient(20, 10) = 2.9koeffStudient(21, 10) = 2.9koeffStudient(22, 10) = 2.9koeffStudient(23, 10) = 2.85koeffStudient(24, 10) = 2.85koeffStudient(25, 10) = 2.8koeffStudient(26, 10) = 2.8koeffStudient(27, 10) = 2.8koeffStudient(28, 10) = 2.8koeffStudient(29, 10) = 2.8157koeffStudient(30, 10) = 2.8koeffStudient(2, 11) = 636.6koeffStudient(3, 11) = 31.6koeffStudient(4, 11) = 12.9koeffStudient(5, 11) = 8.6koeffStudient(6, 11) = 6.9koeffStudient(7, 11) = 6#koeffStudient(8, 11) = 5.4koeffStudient(9, 11) = 5#koeffStudient(10, 11) = 4.8koeffStudient(11, 11) = 4.7koeffStudient(12, 11) = 4.5koeffStudient(13, 11) = 4.4koeffStudient(14, 11) = 4.2koeffStudient(15, 11) = 4.1koeffStudient(16, 11) = 4.1koeffStudient(17, 11) = 4#koeffStudient(18, 11) = 4#koeffStudient(19, 11) = 3.95koeffStudient(20, 11) = 3.9koeffStudient(21, 11) = 3.9koeffStudient(22, 11) = 3.8koeffStudient(23, 11) = 3.8koeffStudient(24, 11) = 3.75koeffStudient(25, 11) = 3.7koeffStudient(26, 11) = 3.7koeffStudient(27, 11) = 3.7koeffStudient(28, 11) = 3.7koeffStudient(29, 11) = 3.7koeffStudient(30, 11) = 3.7Dim codeOfErrors As IntegercodeOfErrors = 0' 0 - ошибок нет' 1 - величина начальной границы диапазона для расчета момента больше, чем величина конечнойграницы диапазона' 2 - количество исходных файлов равно нулю' 3 - количество исходных данных в выбранном диапазоне равно нулю158' 4 - количество групп меньше, чем 2If Worksheets("RunList").Range("B2").Value > Worksheets("RunList").Range("B3").Value ThencodeOfErrors = 1If (Worksheets("RunList").Range("B4").Value < 2) And(Len(Worksheets("RunList").Range("B4").Value) > 0) Then codeOfErrors = 4Dim inputDates1 As StringReDim middleOfDates(2, Worksheets("RunList").Range("B1").Value)ReDim doveritInterval(2, Worksheets("RunList").Range("B1").Value)If codeOfErrors = 0 ThenFor counter1 = 1 To 2Set fs = Application.FileSearchWith fsIf counter1 = 1 Then.LookIn = ActiveWorkbook.Path & "\InitialDates\Sample_1"Else.LookIn = ActiveWorkbook.Path & "\InitialDates\Sample_2"End If.Filename = "*.*"If .Execute > 0 ThennumberOfFiles = .FoundFiles.CountIf numberOfFiles > 0 Then' Determ maximal initial files, dates, start and end positons of range in filesmaximalNumberOfDates = 0startPositionOfRange = 0endPositionOfRange = 0Open .FoundFiles(1) For Input As #1counter5 = 0#Do While Not EOF(1)Line Input #1, inputDates1counter5 = counter5 + 1counter4 = InStrRev(inputDates1, Chr(9), , 1)If InStrRev(inputDates1, Chr(9), , 1) <> 0 ThenIf (Val(Left(inputDates1, counter4 - 1)) >= Worksheets("RunList").Range("B2").Value)And (Val(Left(inputDates1, counter4 - 1)) <= Worksheets("RunList").Range("B3").Value) And(startPositionOfRange = 0) ThenstartPositionOfRange = counter5End If159If (Val(Left(inputDates1, counter4 - 1)) = Worksheets("RunList").Range("B3").Value)And (endPositionOfRange = 0) And (startPositionOfRange <> 0) ThenendPositionOfRange = counter5End IfIf (Val(Left(inputDates1, counter4 - 1)) > Worksheets("RunList").Range("B3").Value)And (endPositionOfRange = 0) And (startPositionOfRange <> 0) ThenendPositionOfRange = counter5 - 1End IfEnd IfLoopResetIf (startPositionOfRange <> 0) And (endPositionOfRange = 0) ThenendPositionOfRange = counter5End IfnumberOfDatesInFile = endPositionOfRange - startPositionOfRange + 1If counter1 = 1 ThenReDim initialFrequency(numberOfFiles, numberOfDatesInFile)ReDim initialIntensity(numberOfFiles, numberOfDatesInFile)ReDim initialMiddleIntensity(2, numberOfDatesInFile)ReDim initialDispertionMiddleIntensity(2, numberOfDatesInFile)ReDim doveritIntervalOfIntensity(2, numberOfDatesInFile)ReDim resErrorsOfIntensity(2, numberOfDatesInFile)ReDim differencesLinesIndexes(numberOfDatesInFile)ReDim minimalIntensity(numberOfFiles)ReDim maximalIntensity(numberOfFiles)' Zerro initiationFor counter6 = 1 To numberOfFilesminimalIntensity(counter6) = 0#maximalIntensity(counter6) = 0#For counter7 = 1 To numberOfDatesInFileinitialFrequency(counter6, counter7) = 0#initialIntensity(counter6, counter7) = 0#If counter6 = 1 ThenFor counter8 = 1 To 2initialMiddleIntensity(counter8, counter7) = 0#initialDispertionMiddleIntensity(counter8, counter7) = 0#Next counter8End If160Next counter7Next counter6End If' Reading datesFor counter6 = 1 To numberOfFilesminimalIntensity(counter6) = 10000000#maximalIntensity(counter6) = 0Open .FoundFiles(counter6) For Input As #1counter5 = 0#Do While Not EOF(1)Line Input #1, inputDates1inputDates1 = Replace(inputDates1, ",", ".")counter5 = counter5 + 1counter4 = InStrRev(inputDates1, Chr(9), , 1)If (InStrRev(inputDates1, Chr(9), , 1) <> 0) And (counter5 >= startPositionOfRange)And (counter5 <= endPositionOfRange) TheninitialFrequency(counter6, counter5 - startPositionOfRange + 1) =Val(Left(inputDates1,counter4 - 1))initialIntensity(counter6, counter5 - startPositionOfRange + 1) =Val(Right(inputDates1, Len(inputDates1) - counter4))initialMiddleIntensity(counter1, counter5 - startPositionOfRange + 1) =initialMiddleIntensity(counter1, counter5 - startPositionOfRange + 1) + initialIntensity(counter6, counter5 startPositionOfRange + 1) / CDbl(numberOfFiles)If initialIntensity(counter6, counter5 - startPositionOfRange + 1) >maximalIntensity(counter6) ThenmaximalIntensity(counter6) = initialIntensity(counter6, counter5 startPositionOfRange + 1)End IfIf initialIntensity(counter6, counter5 - startPositionOfRange + 1) <minimalIntensity(counter6) ThenminimalIntensity(counter6) = initialIntensity(counter6, counter5 startPositionOfRange + 1)End IfIf initialIntensity(counter6, counter5 - startPositionOfRange + 1) >maximalIntensity(counter6) ThenmaximalIntensity(counter6) = initialIntensity(counter6, counter5 startPositionOfRange + 1)End If161End IfLoopResetNext counter6numberOfInitialDatesInInterval = endPositionOfRange - startPositionOfRange + 1If startPositionOfRange = 0# ThencodeOfErrors = 3End IfEnd IfElsecodeOfErrors = 2End IfEnd WithIf numberOfFiles > 1 Then' Analise of differenses in intensitiesFor counter2 = 1 To numberOfDatesInFileFor counter3 = 1 To numberOfFilesinitialDispertionMiddleIntensity(counter1, counter2) =initialDispertionMiddleIntensity(counter1, counter2) + ((initialIntensity(counter3, counter2) initialMiddleIntensity(counter1, counter2)) ^ 2)Next counter3initialDispertionMiddleIntensity(counter1, counter2) =Sqr(initialDispertionMiddleIntensity(counter1, counter2)) / Sqr(CDbl((numberOfFiles - 1) *numberOfFiles))' Calculation of mistakes for intensiesIf Worksheets("RunList").Range("B5").Value = 0.2 ThenIf numberOfFiles < 31 ThendoveritIntervalOfIntensity(counter1, counter2) = koeffStudient(numberOfFiles, 1) *initialDispertionMiddleIntensity(counter1, counter2)resErrorsOfIntensity(counter1, counter2) = doveritIntervalOfIntensity(counter1, counter2)ElsedoveritIntervalOfIntensity(counter1, counter2) = 0.26 *initialDispertionMiddleIntensity(counter1, counter2)resErrorsOfIntensity(counter1, counter2) = doveritIntervalOfIntensity(counter1, counter2)End IfEnd IfIf Worksheets("RunList").Range("B5").Value = 0.4 Then162If numberOfFiles < 31 ThendoveritIntervalOfIntensity(counter1, counter2) = koeffStudient(numberOfFiles, 2) *initialDispertionMiddleIntensity(counter1, counter2)resErrorsOfIntensity(counter1, counter2) = doveritIntervalOfIntensity(counter1, counter2)ElsedoveritIntervalOfIntensity(counter1, counter2) = 0.53 *initialDispertionMiddleIntensity(counter1, counter2)resErrorsOfIntensity(counter1, counter2) = doveritIntervalOfIntensity(counter1, counter2)End IfEnd IfIf Worksheets("RunList").Range("B5").Value = 0.5 ThenIf numberOfFiles < 31 ThendoveritIntervalOfIntensity(counter1, counter2) = koeffStudient(numberOfFiles, 3) *initialDispertionMiddleIntensity(counter1, counter2)resErrorsOfIntensity(counter1, counter2) = doveritIntervalOfIntensity(counter1, counter2)ElsedoveritIntervalOfIntensity(counter1, counter2) = 0.68 *initialDispertionMiddleIntensity(counter1, counter2)resErrorsOfIntensity(counter1, counter2) = doveritIntervalOfIntensity(counter1, counter2)End IfEnd IfIf Worksheets("RunList").Range("B5").Value = 0.6 ThenIf numberOfFiles < 31 ThendoveritIntervalOfIntensity(counter1, counter2) = koeffStudient(numberOfFiles, 4) *initialDispertionMiddleIntensity(counter1, counter2)resErrorsOfIntensity(counter1, counter2) = doveritIntervalOfIntensity(counter1, counter2)ElsedoveritIntervalOfIntensity(counter1, counter2) = 0.85 *initialDispertionMiddleIntensity(counter1, counter2)resErrorsOfIntensity(counter1, counter2) = doveritIntervalOfIntensity(counter1, counter2)End IfEnd IfIf Worksheets("RunList").Range("B5").Value = 0.7 ThenIf numberOfFiles < 31 ThendoveritIntervalOfIntensity(counter1, counter2) = koeffStudient(numberOfFiles, 5) *initialDispertionMiddleIntensity(counter1, counter2)resErrorsOfIntensity(counter1, counter2) = doveritIntervalOfIntensity(counter1, counter2)Else163doveritIntervalOfIntensity(counter1, counter2) = 1.1 *initialDispertionMiddleIntensity(counter1, counter2)resErrorsOfIntensity(counter1, counter2) = doveritIntervalOfIntensity(counter1, counter2)End IfEnd IfIf Worksheets("RunList").Range("B5").Value = 0.8 ThenIf numberOfFiles < 31 ThendoveritIntervalOfIntensity(counter1, counter2) = koeffStudient(numberOfFiles, 6) *initialDispertionMiddleIntensity(counter1, counter2)resErrorsOfIntensity(counter1, counter2) = doveritIntervalOfIntensity(counter1, counter2)ElsedoveritIntervalOfIntensity(counter1, counter2) = 1.3 *initialDispertionMiddleIntensity(counter1, counter2)resErrorsOfIntensity(counter1, counter2) = doveritIntervalOfIntensity(counter1, counter2)End IfEnd IfIf Worksheets("RunList").Range("B5").Value = 0.9 ThenIf numberOfFiles < 31 ThendoveritIntervalOfIntensity(counter1, counter2) = koeffStudient(numberOfFiles, 7) *initialDispertionMiddleIntensity(counter1, counter2)resErrorsOfIntensity(counter1, counter2) = doveritIntervalOfIntensity(counter1, counter2)ElsedoveritIntervalOfIntensity(counter1, counter2) = 1.7 *initialDispertionMiddleIntensity(counter1, counter2)resErrorsOfIntensity(counter1, counter2) = doveritIntervalOfIntensity(counter1, counter2)End IfEnd IfIf Worksheets("RunList").Range("B5").Value = 0.95 ThendoveritIntervalOfIntensity(counter1, counter2) = koeffStudient(numberOfFiles, 8) *initialDispertionMiddleIntensity(counter1, counter2)If numberOfFiles < 31 ThenresErrorsOfIntensity(counter1, counter2) = doveritIntervalOfIntensity(counter1, counter2)ElsedoveritIntervalOfIntensity(counter1, counter2) = 2# *initialDispertionMiddleIntensity(counter1, counter2)resErrorsOfIntensity(counter1, counter2) = doveritIntervalOfIntensity(counter1, counter2)End IfEnd If164If Worksheets("RunList").Range("B5").Value = 0.98 ThenIf numberOfFiles < 31 ThendoveritIntervalOfIntensity(counter1, counter2) = koeffStudient(numberOfFiles, 9) *initialDispertionMiddleIntensity(counter1, counter2)resErrorsOfIntensity(counter1, counter2) = doveritIntervalOfIntensity(counter1, counter2)ElsedoveritIntervalOfIntensity(counter1, counter2) = 2.5 *initialDispertionMiddleIntensity(counter1, counter2)resErrorsOfIntensity(counter1, counter2) = doveritIntervalOfIntensity(counter1, counter2)End IfEnd IfIf Worksheets("RunList").Range("B5").Value = 0.99 ThenIf numberOfFiles < 31 ThendoveritIntervalOfIntensity(counter1, counter2) = koeffStudient(numberOfFiles, 10) *initialDispertionMiddleIntensity(counter1, counter2)resErrorsOfIntensity(counter1, counter2) = doveritIntervalOfIntensity(counter1, counter2)ElsedoveritIntervalOfIntensity(counter1, counter2) = 2.7 *initialDispertionMiddleIntensity(counter1, counter2)resErrorsOfIntensity(counter1, counter2) = doveritIntervalOfIntensity(counter1, counter2)End IfEnd IfIf Worksheets("RunList").Range("B5").Value = 0.999 ThenIf numberOfFiles < 31 ThendoveritIntervalOfIntensity(counter1, counter2) = koeffStudient(numberOfFiles, 11) *initialDispertionMiddleIntensity(counter1, counter2)resErrorsOfIntensity(counter1, counter2) = doveritIntervalOfIntensity(counter1, counter2)ElsedoveritIntervalOfIntensity(counter1, counter2) = 3.6 *initialDispertionMiddleIntensity(counter1, counter2)resErrorsOfIntensity(counter1, counter2) = doveritIntervalOfIntensity(counter1, counter2)End IfEnd IfNext counter2End IfIf codeOfErrors = 0 Then' Normalize initial datesIf Worksheets("RunList").Range("B6").Value = 1 Then165For counter4 = 1 To numberOfFilesFor counter5 = 1 To numberOfInitialDatesInIntervalinitialIntensity(counter4, counter5) = (initialIntensity(counter4, counter5) minimalIntensity(counter4)) / (maximalIntensity(counter4) - minimalIntensity(counter4))Next counter5Next counter4End If' Main calculation of moments for each fileReDim parameter_C(numberOfFiles)If Worksheets("RunList").Range("B4").Value = "" ThenmaximalNumberOfGroups = numberOfInitialDatesInIntervalstartNumberOfGroups = 2#ElsemaximalNumberOfGroups = Worksheets("RunList").Range("B4").ValuestartNumberOfGroups = maximalNumberOfGroupsEnd IfReDim Xj_Values(maximalNumberOfGroups)ReDim nj_Values(maximalNumberOfGroups)ReDim mn_Values(numberOfFiles, Worksheets("RunList").Range("B1").Value)ReDim summ_Xj_Xa_nj_c(numberOfFiles, Worksheets("RunList").Range("B1").Value)If counter1 = 1 ThenReDim kolichRazlichn(maximalNumberOfGroups)ReDim kolichSovpavsh(maximalNumberOfGroups)ReDim sovpavshieMomentu(maximalNumberOfGroups)ReDim razlichnueMomentu(maximalNumberOfGroups)ReDim resMoments_FirstSelection(maximalNumberOfGroups,Worksheets("RunList").Range("B1").Value)ReDim resErrorsOfMoments_FirstSelection(maximalNumberOfGroups,Worksheets("RunList").Range("B1").Value)ReDim resMoments_SecondSelection(maximalNumberOfGroups,Worksheets("RunList").Range("B1").Value)ReDim resErrorsOfMoments_SecondSelection(maximalNumberOfGroups,Worksheets("RunList").Range("B1").Value)ReDim numberMaximalKolichSovpavsh(maximalNumberOfGroups)ReDim numberMaximalKolichRazlichn(maximalNumberOfGroups)For counter2 = 1 To maximalNumberOfGroupskolichRazlichn(counter2) = 0kolichSovpavsh(counter2) = 0166sovpavshieMomentu(counter2) = ""razlichnueMomentu(counter2) = ""numberMaximalKolichSovpavsh(counter2) = counter2numberMaximalKolichRazlichn(counter2) = counter2For counter3 = 1 To Worksheets("RunList").Range("B1").ValueresMoments_FirstSelection(counter2, counter3) = 0#resErrorsOfMoments_FirstSelection(counter2, counter3) = 0#resMoments_SecondSelection(counter2, counter3) = 0#resErrorsOfMoments_SecondSelection(counter2, counter3) = 0#Next counter3Next counter2End IfFor counter2 = startNumberOfGroups To maximalNumberOfGroupsnumberOfBoxes = counter2For counter3 = 1 To numberOfFiles' Initialization of parameters for calculation of momentssumm_nj_Values = 0#parameter_C(counter3) = (maximalIntensity(counter3) - minimalIntensity(counter3)) /numberOfBoxesFor counter4 = 1 To numberOfBoxesXj_Values(counter4) = minimalIntensity(counter3) + parameter_C(counter3) * (counter4 1)Next counter4For counter4 = 1 To numberOfBoxesnj_Values(counter4) = 0#Next counter4' Determination of frequencies of boxesFor counter6 = 1 To numberOfDatesInFileFor counter7 = 1 To numberOfBoxesIf (initialIntensity(counter3, counter6) >= Xj_Values(counter7)) And(initialIntensity(counter3, counter6) < Xj_Values(counter7) + parameter_C(counter3)) Thennj_Values(counter7) = nj_Values(counter7) + 1summ_nj_Values = summ_nj_Values + 1ElseIf (initialIntensity(counter3, counter6) = maximalIntensity(counter3)) And (counter7 =numberOfBoxes) Thennj_Values(counter7) = nj_Values(counter7) + 1summ_nj_Values = summ_nj_Values + 1167End IfEnd IfNext counter7Next counter6' Xa determinationXa_Value = 0#For counter4 = 1 To numberOfBoxesXa_Value = Xa_Value + Xj_Values(counter4) * nj_Values(counter4)Next counter4Xa_Value = Xa_Value / summ_nj_Valuescounter5 = maximalIntensity(counter3)counter6 = 0For counter4 = 1 To numberOfBoxesIf Abs(Xa_Value - Xj_Values(counter4)) < Abs(counter5) Thencounter5 = Xa_Value - Xj_Values(counter4)counter6 = counter4End IfNext counter4Xa_Value = Xj_Values(counter6)' Calculation of MomentsFor counter4 = 1 To Worksheets("RunList").Range("B1").Valuemn_Values(counter3, counter4) = 0#summ_Xj_Xa_nj_c(counter3, counter4) = 0#Next counter4For counter4 = 1 To Worksheets("RunList").Range("B1").ValueFor counter6 = 1 To numberOfBoxessumm_Xj_Xa_nj_c(counter3, counter4) = (((Xj_Values(counter6) - Xa_Value) /parameter_C(counter3)) ^ counter4) * nj_Values(counter6) + summ_Xj_Xa_nj_c(counter3, counter4)Next counter6mn_Values(counter3, counter4) = summ_Xj_Xa_nj_c(counter3, counter4) /summ_nj_ValuesNext counter4Next counter3' Calculation of mistakesIf numberOfFiles > 1 ThenReDim dispersionOfDates(Worksheets("RunList").Range("B1").Value)For counter9 = 1 To Worksheets("RunList").Range("B1").ValuemiddleOfDates(counter1, counter9) = 0#168dispersionOfDates(counter9) = 0#For counter10 = 1 To numberOfFilesmiddleOfDates(counter1, counter9) = middleOfDates(counter1, counter9) +mn_Values(counter10, counter9)Next counter10middleOfDates(counter1, counter9) = middleOfDates(counter1, counter9) /CDbl(numberOfFiles)For counter10 = 1 To numberOfFilesdispersionOfDates(counter9) = dispersionOfDates(counter9) + ((mn_Values(counter10,counter9) - middleOfDates(counter1, counter9)) ^ 2)Next counter10dispersionOfDates(counter9) = Sqr(dispersionOfDates(counter9)) /Sqr(CDbl((numberOfFiles - 1) * numberOfFiles))If counter1 = 1 ThenresMoments_FirstSelection(counter2, counter9) = middleOfDates(counter1, counter9)ElseresMoments_SecondSelection(counter2, counter9) = middleOfDates(counter1, counter9)End IfIf Worksheets("RunList").Range("B5").Value = 0.2 ThenIf numberOfFiles < 31 ThendoveritInterval(counter1, counter9) = koeffStudient(numberOfFiles, 1) *dispersionOfDates(counter9)If counter1 = 1 ThenresErrorsOfMoments_FirstSelection(counter2, counter9) = doveritInterval(counter1,counter9)ElseresErrorsOfMoments_SecondSelection(counter2, counter9) =doveritInterval(counter1, counter9)End IfElsedoveritInterval(counter1, counter9) = 0.26 * dispersionOfDates(counter9)If counter1 = 1 ThenresErrorsOfMoments_FirstSelection(counter2, counter9) = doveritInterval(counter1,counter9)ElseresErrorsOfMoments_SecondSelection(counter2, counter9) =doveritInterval(counter1, counter9)End If169End IfEnd IfIf Worksheets("RunList").Range("B5").Value = 0.4 ThenIf numberOfFiles < 31 ThendoveritInterval(counter1, counter9) = koeffStudient(numberOfFiles, 2) *dispersionOfDates(counter9)If counter1 = 1 ThenresErrorsOfMoments_FirstSelection(counter2, counter9) = doveritInterval(counter1,counter9)ElseresErrorsOfMoments_SecondSelection(counter2, counter9) =doveritInterval(counter1, counter9)End IfElsedoveritInterval(counter1, counter9) = 0.53 * dispersionOfDates(counter9)If counter1 = 1 ThenresErrorsOfMoments_FirstSelection(counter2, counter9) = doveritInterval(counter1,counter9)ElseresErrorsOfMoments_SecondSelection(counter2, counter9) =doveritInterval(counter1, counter9)End IfEnd IfEnd IfIf Worksheets("RunList").Range("B5").Value = 0.5 ThenIf numberOfFiles < 31 ThendoveritInterval(counter1, counter9) = koeffStudient(numberOfFiles, 3) *dispersionOfDates(counter9)If counter1 = 1 ThenresErrorsOfMoments_FirstSelection(counter2, counter9) = doveritInterval(counter1,counter9)ElseresErrorsOfMoments_SecondSelection(counter2, counter9) =doveritInterval(counter1, counter9)End IfElsedoveritInterval(counter1, counter9) = 0.68 * dispersionOfDates(counter9)If counter1 = 1 Then170resErrorsOfMoments_FirstSelection(counter2, counter9) = doveritInterval(counter1,counter9)ElseresErrorsOfMoments_SecondSelection(counter2, counter9) =doveritInterval(counter1, counter9)End IfEnd IfEnd IfIf Worksheets("RunList").Range("B5").Value = 0.6 ThenIf numberOfFiles < 31 ThendoveritInterval(counter1, counter9) = koeffStudient(numberOfFiles, 4) *dispersionOfDates(counter9)If counter1 = 1 ThenresErrorsOfMoments_FirstSelection(counter2, counter9) = doveritInterval(counter1,counter9)ElseresErrorsOfMoments_SecondSelection(counter2, counter9) =doveritInterval(counter1, counter9)End IfElsedoveritInterval(counter1, counter9) = 0.85 * dispersionOfDates(counter9)If counter1 = 1 ThenresErrorsOfMoments_FirstSelection(counter2, counter9) = doveritInterval(counter1,counter9)ElseresErrorsOfMoments_SecondSelection(counter2, counter9) =doveritInterval(counter1, counter9)End IfEnd IfEnd IfIf Worksheets("RunList").Range("B5").Value = 0.7 ThenIf numberOfFiles < 31 ThendoveritInterval(counter1, counter9) = koeffStudient(numberOfFiles, 5) *dispersionOfDates(counter9)If counter1 = 1 ThenresErrorsOfMoments_FirstSelection(counter2, counter9) = doveritInterval(counter1,counter9)Else171resErrorsOfMoments_SecondSelection(counter2, counter9) =doveritInterval(counter1, counter9)End IfElsedoveritInterval(counter1, counter9) = 1.1 * dispersionOfDates(counter9)If counter1 = 1 ThenresErrorsOfMoments_FirstSelection(counter2, counter9) = doveritInterval(counter1,counter9)ElseresErrorsOfMoments_SecondSelection(counter2, counter9) =doveritInterval(counter1, counter9)End IfEnd IfEnd IfIf Worksheets("RunList").Range("B5").Value = 0.8 ThenIf numberOfFiles < 31 ThendoveritInterval(counter1, counter9) = koeffStudient(numberOfFiles, 6) *dispersionOfDates(counter9)If counter1 = 1 ThenresErrorsOfMoments_FirstSelection(counter2, counter9) = doveritInterval(counter1,counter9)ElseresErrorsOfMoments_SecondSelection(counter2, counter9) =doveritInterval(counter1, counter9)End IfElsedoveritInterval(counter1, counter9) = 1.3 * dispersionOfDates(counter9)If counter1 = 1 ThenresErrorsOfMoments_FirstSelection(counter2, counter9) = doveritInterval(counter1,counter9)ElseresErrorsOfMoments_SecondSelection(counter2, counter9) =doveritInterval(counter1, counter9)End IfEnd IfEnd IfIf Worksheets("RunList").Range("B5").Value = 0.9 ThenIf numberOfFiles < 31 Then172doveritInterval(counter1, counter9) = koeffStudient(numberOfFiles, 7) *dispersionOfDates(counter9)If counter1 = 1 ThenresErrorsOfMoments_FirstSelection(counter2, counter9) = doveritInterval(counter1,counter9)ElseresErrorsOfMoments_SecondSelection(counter2, counter9) =doveritInterval(counter1, counter9)End IfElsedoveritInterval(counter1, counter9) = 1.7 * dispersionOfDates(counter9)If counter1 = 1 ThenresErrorsOfMoments_FirstSelection(counter2, counter9) = doveritInterval(counter1,counter9)ElseresErrorsOfMoments_SecondSelection(counter2, counter9) =doveritInterval(counter1, counter9)End IfEnd IfEnd IfIf Worksheets("RunList").Range("B5").Value = 0.95 ThendoveritInterval(counter1, counter9) = koeffStudient(numberOfFiles, 8) *dispersionOfDates(counter9)If numberOfFiles < 31 ThenIf counter1 = 1 ThenresErrorsOfMoments_FirstSelection(counter2, counter9) = doveritInterval(counter1,counter9)ElseresErrorsOfMoments_SecondSelection(counter2, counter9) =doveritInterval(counter1, counter9)End IfElsedoveritInterval(counter1, counter9) = 2# * dispersionOfDates(counter9)If counter1 = 1 ThenresErrorsOfMoments_FirstSelection(counter2, counter9) = doveritInterval(counter1,counter9)Else173resErrorsOfMoments_SecondSelection(counter2, counter9) =doveritInterval(counter1, counter9)End IfEnd IfEnd IfIf Worksheets("RunList").Range("B5").Value = 0.98 ThenIf numberOfFiles < 31 ThendoveritInterval(counter1, counter9) = koeffStudient(numberOfFiles, 9) *dispersionOfDates(counter9)If counter1 = 1 ThenresErrorsOfMoments_FirstSelection(counter2, counter9) = doveritInterval(counter1,counter9)ElseresErrorsOfMoments_SecondSelection(counter2, counter9) =doveritInterval(counter1, counter9)End IfElsedoveritInterval(counter1, counter9) = 2.5 * dispersionOfDates(counter9)If counter1 = 1 ThenresErrorsOfMoments_FirstSelection(counter2, counter9) = doveritInterval(counter1,counter9)ElseresErrorsOfMoments_SecondSelection(counter2, counter9) =doveritInterval(counter1, counter9)End IfEnd IfEnd IfIf Worksheets("RunList").Range("B5").Value = 0.99 ThenIf numberOfFiles < 31 ThendoveritInterval(counter1, counter9) = koeffStudient(numberOfFiles, 10) *dispersionOfDates(counter9)If counter1 = 1 ThenresErrorsOfMoments_FirstSelection(counter2, counter9) = doveritInterval(counter1,counter9)ElseresErrorsOfMoments_SecondSelection(counter2, counter9) =doveritInterval(counter1, counter9)End If174ElsedoveritInterval(counter1, counter9) = 2.7 * dispersionOfDates(counter9)If counter1 = 1 ThenresErrorsOfMoments_FirstSelection(counter2, counter9) = doveritInterval(counter1,counter9)ElseresErrorsOfMoments_SecondSelection(counter2, counter9) =doveritInterval(counter1, counter9)End IfEnd IfEnd IfIf Worksheets("RunList").Range("B5").Value = 0.999 ThenIf numberOfFiles < 31 ThendoveritInterval(counter1, counter9) = koeffStudient(numberOfFiles, 11) *dispersionOfDates(counter9)If counter1 = 1 ThenresErrorsOfMoments_FirstSelection(counter2, counter9) = doveritInterval(counter1,counter9)ElseresErrorsOfMoments_SecondSelection(counter2, counter9) =doveritInterval(counter1, counter9)End IfElsedoveritInterval(counter1, counter9) = 3.6 * dispersionOfDates(counter9)If counter1 = 1 ThenresErrorsOfMoments_FirstSelection(counter2, counter9) = doveritInterval(counter1,counter9)ElseresErrorsOfMoments_SecondSelection(counter2, counter9) =doveritInterval(counter1, counter9)End IfEnd IfEnd IfNext counter9ElseFor counter9 = 1 To Worksheets("RunList").Range("B1").ValueIf counter1 = 1 Then175resMoments_FirstSelection(counter2, counter9) = mn_Values(1, counter9)ElseresMoments_SecondSelection(counter2, counter9) = mn_Values(1, counter9)End IfNext counter9End IfNext counter2End If' Вывод информации о производной средней интенсивности спектра первой и второйSet fs = CreateObject("Scripting.FileSystemObject")If counter1 = 1 Thenfs.CreateTextFile ActiveWorkbook.Path & "\Derivative_FirstSet.txt"Set f = fs.GetFile(ActiveWorkbook.Path & "\Derivative_FirstSet.txt")Elsefs.CreateTextFile ActiveWorkbook.Path & "\Derivative_SecondSet.txt"Set f = fs.GetFile(ActiveWorkbook.Path & "\Derivative_SecondSet.txt")End IfSet ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)If numberOfFiles > 1 Thents.Write "СреднЧастота,см-1 СреднИнтенсивностьПроизводн,отн.ед." & vbCrLfElsets.Write "СреднЧастота,см-1 ИнтенсивностьПроизводн(из1файла),отн.ед." & vbCrLfEnd IfFor counter2 = 2 To numberOfDatesInFilets.Write (initialFrequency(1, counter2) + initialFrequency(1, counter2 - 1)) / 2 & " " &(initialMiddleIntensity(counter1, counter2) - initialMiddleIntensity(counter1, counter2 - 1)) /(initialFrequency(1, counter2) - initialFrequency(1, counter2 - 1)) & vbCrLfNext counter2' Вывод информации о производных интенсивностей спектров первой выборкиFor counter2 = 1 To numberOfFilests.Write vbCrLfts.Write "Частота№" & counter2 & ",см-1 ИнтенсивностьПроизводн,отн.ед." & vbCrLfFor counter3 = 2 To numberOfDatesInFilets.Write (initialFrequency(1, counter3) + initialFrequency(1, counter3 - 1)) / 2 & " " &(initialIntensity(counter2, counter3) - initialIntensity(counter2, counter3 - 1)) / (initialFrequency(1, counter3)- initialFrequency(1, counter3 - 1)) & vbCrLfNext counter3Next counter2176ts.CloseNext counter1If codeOfErrors = 0 Then' Сравнение интенсивностейnumberDifferencesInLines = 0#For counter1 = 1 To numberOfDatesInFileIf (initialMiddleIntensity(1, counter1) + resErrorsOfIntensity(1, counter1) <initialMiddleIntensity(2, counter1) - resErrorsOfIntensity(2, counter1)) Or (initialMiddleIntensity(1,counter1) - resErrorsOfIntensity(1, counter1) > initialMiddleIntensity(2, counter1) + resErrorsOfIntensity(2,counter1)) ThennumberDifferencesInLines = numberDifferencesInLines + 1differencesLinesIndexes(numberDifferencesInLines) = counter1End IfNext counter1' Сравнение моментов из двух выборокFor counter1 = startNumberOfGroups To maximalNumberOfGroupsFor counter2 = 1 To Worksheets("RunList").Range("B1").ValueIf (resMoments_FirstSelection(counter1, counter2) +resErrorsOfMoments_FirstSelection(counter1, counter2) < resMoments_SecondSelection(counter1,counter2) - resErrorsOfMoments_SecondSelection(counter1, counter2)) Or(resMoments_FirstSelection(counter1, counter2) - resErrorsOfMoments_FirstSelection(counter1, counter2)> resMoments_SecondSelection(counter1, counter2) + resErrorsOfMoments_SecondSelection(counter1,counter2)) ThenkolichRazlichn(counter1) = kolichRazlichn(counter1) + 1If razlichnueMomentu(counter1) = "" ThenrazlichnueMomentu(counter1) = counter2ElserazlichnueMomentu(counter1) = razlichnueMomentu(counter1) & ", " & counter2End IfElsekolichSovpavsh(counter1) = kolichSovpavsh(counter1) + 1If sovpavshieMomentu(counter1) = "" ThensovpavshieMomentu(counter1) = counter2ElsesovpavshieMomentu(counter1) = sovpavshieMomentu(counter1) & ", " & counter2End IfEnd IfNext counter2177Next counter1' Анализ результатов сравненияFor counter1 = startNumberOfGroups To maximalNumberOfGroupsmaximalKolichSovpavsh = 0#maximalKolichRazlichn = 0#For counter2 = counter1 To maximalNumberOfGroupsIf maximalKolichRazlichn < kolichRazlichn(numberMaximalKolichRazlichn(counter2)) ThenmaximalKolichRazlichn = kolichRazlichn(numberMaximalKolichRazlichn(counter2))tempVariable = numberMaximalKolichRazlichn(counter1)numberMaximalKolichRazlichn(counter1) = numberMaximalKolichRazlichn(counter2)numberMaximalKolichRazlichn(counter2) = tempVariableEnd IfIf maximalKolichSovpavsh < kolichSovpavsh(numberMaximalKolichSovpavsh(counter2))ThenmaximalKolichSovpavsh = kolichSovpavsh(numberMaximalKolichSovpavsh(counter2))tempVariable = numberMaximalKolichSovpavsh(counter1)numberMaximalKolichSovpavsh(counter1) = numberMaximalKolichSovpavsh(counter2)numberMaximalKolichSovpavsh(counter2) = tempVariableEnd IfNext counter2Next counter1For counter1 = startNumberOfGroups To maximalNumberOfGroupsWorksheets("RunList").Range("D" & counter1).Value =numberMaximalKolichSovpavsh(counter1)Worksheets("RunList").Range("E" & counter1).Value =kolichSovpavsh(numberMaximalKolichSovpavsh(counter1))Worksheets("RunList").Range("G" & counter1).Value =numberMaximalKolichRazlichn(counter1)Worksheets("RunList").Range("H" & counter1).Value =kolichRazlichn(numberMaximalKolichRazlichn(counter1))Next counter1' Вывод информации о совпадениях и различиях в файлfs.CreateTextFile ActiveWorkbook.Path & "\Razlichie.txt"Set f = fs.GetFile(ActiveWorkbook.Path & "\Razlichie.txt")Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)ts.Write "Результаты представлены с доверительным интервалом " &Worksheets("RunList").Range("B5").Value & vbCrLf178For counter1 = startNumberOfGroups To maximalNumberOfGroupsts.Write "-----------------------" & vbCrLfts.Write "Результаты для количества ГРУПП = " & counter1 & ":" & vbCrLfts.Write "Количество различных моментов в выборках = " & kolichRazlichn(counter1) &vbCrLfIf razlichnueMomentu(counter1) = "" Thents.Write "Перечень различных моментов в выборках: НЕТ РАЗЛИЧНЫХ МОМЕНТОВ" &vbCrLfElsets.Write "Перечень различных моментов: " & razlichnueMomentu(counter1) & vbCrLfEnd Ifts.Write "МОМЕНТЫ ПЕРВОЙ ВЫБОРКИ (Sample_1): " & vbCrLfFor counter2 = 1 To Worksheets("RunList").Range("B1").Valuets.Write "m" & counter2 & "= " & Round(resMoments_FirstSelection(counter1, counter2), 3) &"Ошибка= " & Round(resErrorsOfMoments_FirstSelection(counter1, counter2), 3) & vbCrLfNext counter2ts.Write "МОМЕНТЫ ВТОРОЙ ВЫБОРКИ (Sample_2): " & vbCrLfFor counter2 = 1 To Worksheets("RunList").Range("B1").Valuets.Write "m" & counter2 & "= " & Round(resMoments_SecondSelection(counter1, counter2), 3)&"Ошибка= " & Round(resErrorsOfMoments_SecondSelection(counter1, counter2), 3) & vbCrLfNext counter2ts.Write vbCrLfNext counter1ts.Closefs.CreateTextFile ActiveWorkbook.Path & "\Sovpadenii.txt"Set f = fs.GetFile(ActiveWorkbook.Path & "\Sovpadenii.txt")Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)ts.Write "Результаты представлены с доверительным интервалом " &Worksheets("RunList").Range("B5").Value & vbCrLfFor counter1 = startNumberOfGroups To maximalNumberOfGroupsts.Write "-----------------------" & vbCrLfts.Write "Результаты для количества ГРУПП = " & counter1 & ":" & vbCrLfts.Write "Количество совпавших моментов в выборках = " & kolichSovpavsh(counter1) &vbCrLfIf sovpavshieMomentu(counter1) = "" Thents.Write "Перечень совпавших моментов в выборках: НЕТ СОВПАВШИХ МОМЕНТОВ"& vbCrLfElse179ts.Write "Перечень совпавших моментов: " & sovpavshieMomentu(counter1) & vbCrLfEnd Ifts.Write "МОМЕНТЫ ПЕРВОЙ ВЫБОРКИ (Sample_1): " & vbCrLfFor counter2 = 1 To Worksheets("RunList").Range("B1").Valuets.Write "m" & counter2 & "= " & Round(resMoments_FirstSelection(counter1, counter2), 3) &"Ошибка= " & Round(resErrorsOfMoments_FirstSelection(counter1, counter2), 3) & vbCrLfNext counter2ts.Write "МОМЕНТЫ ВТОРОЙ ВЫБОРКИ (Sample_2): " & vbCrLfFor counter2 = 1 To Worksheets("RunList").Range("B1").Valuets.Write "m" & counter2 & "= " & Round(resMoments_SecondSelection(counter1, counter2), 3)&"Ошибка= " & Round(resErrorsOfMoments_SecondSelection(counter1, counter2), 3) & vbCrLfNext counter2ts.Write vbCrLfNext counter1ts.Close' Вывод информации о совпадениях и различиях в файлfs.CreateTextFile ActiveWorkbook.Path & "\3D_dates_GroupsMomentsErrors.txt"Set f = fs.GetFile(ActiveWorkbook.Path & "\3D_dates_GroupsMomentsErrors.txt")Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)For counter1 = startNumberOfGroups To maximalNumberOfGroupsts.Write "Группа_" & counter1 & ":_Номер.момента Вел.ошибки(в%к_вел.мом.)" & vbCrLfFor counter2 = 1 To Worksheets("RunList").Range("B1").ValueIf (resErrorsOfMoments_SecondSelection(counter1, counter2) <> 0) And(resMoments_SecondSelection(counter1, counter2) <> 0) Thents.Write counter2 & " " & Round(resErrorsOfMoments_SecondSelection(counter1, counter2)* 100 / resMoments_SecondSelection(counter1, counter2), 3) & vbCrLfElsets.Write counter2 & " " & Round(0, 3) & vbCrLfEnd IfNext counter2ts.Write vbCrLfNext counter1ts.Close' Вывод информации о количестве групп и количестве различных моментовfs.CreateTextFile ActiveWorkbook.Path & "\3D_dates_GroupsKolrazlmom.txt"Set f = fs.GetFile(ActiveWorkbook.Path & "\3D_dates_GroupsKolrazlmom.txt")Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)ts.Write "Группа Кол.разл.мом." & vbCrLf180For counter1 = startNumberOfGroups To maximalNumberOfGroupsts.Write counter1 & " " & kolichRazlichn(counter1) & vbCrLfNext counter1ts.Close' Вывод информации о проценте ошибки по отношению к моменту для всех групп, моментовпервой выборкиIf numberOfFiles > 1 Thenfs.CreateTextFile ActiveWorkbook.Path & "\3D_dates_FirstSel_GroupsMomentsErrors.txt"Set f = fs.GetFile(ActiveWorkbook.Path & "\3D_dates_FirstSel_GroupsMomentsErrors.txt")Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)For counter2 = 0 To Worksheets("RunList").Range("B1").Value ' 0 - первая строка с перечнемномеров всех группIf counter2 = 0 Thents.Write " "For counter1 = startNumberOfGroups To maximalNumberOfGroupsts.Write " " & counter1Next counter1ts.Write vbCrLfElsets.Write counter2For counter1 = startNumberOfGroups To maximalNumberOfGroupsIf (resErrorsOfMoments_FirstSelection(counter1, counter2) <> 0) And(resMoments_FirstSelection(counter1, counter2) <> 0) Thents.Write " " & Round(resErrorsOfMoments_FirstSelection(counter1, counter2) * 100 /resMoments_FirstSelection(counter1, counter2), 3)Elsets.Write " " & Round(0, 3) & vbCrLfEnd IfNext counter1ts.Write vbCrLfEnd IfNext counter2ts.CloseEnd If' Вывод информации о проценте ошибки по отношению к моменту для всех групп, моментоввторой выборкиIf numberOfFiles > 1 Thenfs.CreateTextFile ActiveWorkbook.Path & "\3D_dates_SecondSel_GroupsMomentsErrors.txt"181Set f = fs.GetFile(ActiveWorkbook.Path & "\3D_dates_SecondSel_GroupsMomentsErrors.txt")Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)For counter2 = 0 To Worksheets("RunList").Range("B1").Value ' 0 - первая строка с перечнемномеров всех группIf counter2 = 0 Thents.Write " "For counter1 = startNumberOfGroups To maximalNumberOfGroupsts.Write " " & counter1Next counter1ts.Write vbCrLfElsets.Write counter2For counter1 = startNumberOfGroups To maximalNumberOfGroupsIf (resErrorsOfMoments_SecondSelection(counter1, counter2) <> 0) And(resMoments_SecondSelection(counter1, counter2) <> 0) Thents.Write " " & Round(resErrorsOfMoments_SecondSelection(counter1, counter2) * 100 /resMoments_SecondSelection(counter1, counter2), 3)Elsets.Write " " & Round(0, 3) & vbCrLfEnd IfNext counter1ts.Write vbCrLfEnd IfNext counter2ts.CloseEnd If' Вывод информации о проценте суммы ошибок значений в двух выборках по отношению кзначению модуля разницы моментов двух выборок для всех групп и моментовfs.CreateTextFile ActiveWorkbook.Path & "\3D_dates_ModFirst-SecSel_GroupsMomentsErrors.txt"Set f = fs.GetFile(ActiveWorkbook.Path & "\3D_dates_ModFirstSecSel_GroupsMomentsErrors.txt")Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)For counter2 = 0 To Worksheets("RunList").Range("B1").Value ' 0 - первая строка с перечнемномеров всех группIf counter2 = 0 Thents.Write " "For counter1 = startNumberOfGroups To maximalNumberOfGroupsts.Write " " & counter1182Next counter1ts.Write vbCrLfElsets.Write counter2For counter1 = startNumberOfGroups To maximalNumberOfGroupsIf resMoments_FirstSelection(counter1, counter2) - resMoments_SecondSelection(counter1,counter2) = 0 Thents.Write " " & Round(0, 3)Elsets.Write " " & Round((resErrorsOfMoments_FirstSelection(counter1, counter2) +resErrorsOfMoments_SecondSelection(counter1, counter2)) * 100 /Abs(resMoments_FirstSelection(counter1, counter2) - resMoments_SecondSelection(counter1, counter2)),3)End IfNext counter1ts.Write vbCrLfEnd IfNext counter2ts.Close' Вывод информации о количестве различных линий в первой выборкеfs.CreateTextFile ActiveWorkbook.Path & "\DifferencesInLines_FirstSet.txt"Set f = fs.GetFile(ActiveWorkbook.Path & "\DifferencesInLines_FirstSet.txt")Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)ts.Write "Общее кол-во различных линий в 1 выборке = " & numberDifferencesInLines & vbCrLfts.Write "Набор различных линий в 1 выборке (см-1) = "For counter1 = 1 To numberDifferencesInLinesIf counter1 < numberDifferencesInLines Thents.Write initialFrequency(1, differencesLinesIndexes(counter1)) & "; "Elsets.Write initialFrequency(1, differencesLinesIndexes(counter1))End IfNext counter1ts.Write vbCrLfIf numberOfFiles > 1 Thents.Write "Частота,см-1 СреднИнтенсивность,отн.ед.

Характеристики

Список файлов диссертации