Диссертация (1144443), страница 31

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

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

реЛаборотория резнаний, ре2012. ре– ре381 рес.64. Муха ре В. ре С. ре Вычислительные ре методы ре и ре компьютерная ре алгебра: реучеб.-метод. ре пособие. ре – ре 2-е ре изд., ре испр. ре и ре доп. ре – ре Минск: ре БГУИР, ре2010. ре– ре148 рес.65. Нитецкий реВ.В., реКудрявцев реН.Н. реСправочник реаудитора.

ре– реМ.: реДело, ре1996. ре– ре192 рес.66. Пащенко реИ. реГ. реExcel ре2007. ре– реМ.: реЭксмо, ре2009. ре– ре496 рес.67. Подольский реВ.И. реАудит: ре4-е реизд. ре– реМ.: реЮнити-Дана, ре2008. ре– ре744 рес.68. Подольский ре В.И., ре Щербакова ре Н.С., ре Комиссаров ре В.Л. реКомпьютерный реаудит. ре– реМ.: реЮнити, ре2004. ре– ре128 рес.16769. Подольский ре В.И., ре Поляк ре Г.Б., ре Савин ре А.А. ре и ре др.; ре Под ре ред.

ре проф. реВ.И. ре Подольского. ре Аудит: ре Учебник ре для ре вузов. ре – ре М.: ре ЮНИТИ ре – реДАНА, ре2001. ре– ре655 рес.70. Прохоров ре Ю.В. ре и ре др. ре Лекции ре по ре теории ре вероятностей ре и рематематической рестатистике: реУчебное репособие. ре– реМ.: реМГУ, ре2012. ре– ре256 рес.71. Робертсон реДж. реАудит. ре– реМ.: реКонтакт, ре1993. ре– ре496 рес.72. Романов ре А.Н., ре Одинцов ре Б.Е. ре Компьютеризация ре аудиторской редеятельности. ре– реМ.: реЮнити, ре1996. ре– ре208 рес.73. Романов ре А.Н., ре Одинцов ре Б.Е.

ре Автоматизация ре аудита. ре – ре М.: реЮНИТИ, ре1999. ре– ре336 рес.74. Самыловский реА.И. реМатематическая рестатистика. реКн.2. ре– реМ.: реКДУ, ре2009. ре– ре154 рес.75. Сдвижков О.А. ре Excel-VBA. ре Словарь-справочник ре пользователя. ре – реМ.: реЭксмо, ре2008. ре– ре224 рес.76. Сдвижков реО.А. реНепараметрическая рестатистика рев реMS Excel реи реVBA.ре– реМ.: реДМК реПресс, ре2014.

ре– ре172 рес.77. Семенов реВ.А. реТеория ревероятностей реи рематематическая рестатистика: реУчебное репособие. ре– реСПб.: реПитер, ре2013. ре– ре192 рес.78. Сергеева реИ.И. реи редр. реСтатистика. ре– реМ.: реФОРУМ, ре2011. ре– ре304 рес.79. Скобара ре В.В. ре Аудит: ре методология ре и ре организация. ре – ре М.: ре Дело ре и реСервис, ре1998.

ре– ре576 рес.80. Слепцова реЛ.Д. реПрограммирование ренаVBA рев реMicrosoft Office ре2007.реСамоучитель. ре– реМ.: реООО ре«И. реД. реВильямс», ре2007. ре– ре432 рес.81. Соколов реГ.А. реОсновы рематематической рестатистики: реУчебник. ре– реМ.: реИнфра-М, ре2014. ре– ре368 рес.82. Строгалев ре В.П., ре Толкачева ре И.О. ре Имитационное ре моделирование: реУчеб. репособие. ре– реМ.: реИзд-во реМГТУ реим. реН.Э. реБаумана, ре2008.

ре– ре280 рес.16883. Суворова ре С.П., ре Парушина ре Н.В, ре Галкина ре Е.В. ре Международные рестандарты реаудита: реучебное репособие. ре– реМ.: реФорум, ре2007. ре– ре320 рес.84. Суглобов реА.Е. реМеждународные рестандарты реаудита рев ререгулированииреаудиторской редеятельности.

ре– реМ.: реЭкономистъ, ре2007. ре– ре256 рес.85. Сухорученков ре Б.И. ре Анализ ре малой ре выборки. ре Прикладные рестатистические реметоды. ре– реМ.: реВузовская рекнига, ре2010. ре– ре384 рес.86. Терехов реА.А. реАудит. ре– реМ.: реФинансы реи рестатистика, ре1998. ре– ре512 рес.87. Терехов ре А.А., ре Терехов реН.А. ре Контроль ре и реаудит. ре– ре М.: реФинансы реи рестатистика, ре1998. ре– ре208 рес.88. Туганбаев ре А.А.

ре и ре др. ре Теория ре вероятностей ре и ре математическая рестатистика: реУчебное репособие. ре– реСПб.: реЛань, ре2011. ре– ре224 рес.89. Уокенбах, реДжон. реExcel ре2007: реБиблия репользователя. ре– реМ.: реООО ре«И. реД. реВильямс», ре2008. ре– ре816 рес.90.

Уокенбах, ре Джон. ре MicrosoftOfficeExcel ре 2007: ре профессиональное репрограммирование ре наVBA.: ре Пер. ре с ре англ. ре – ре М.: ре ООО ре «И. ре Д. реВильямс», ре2008. ре– ре928 рес.91. Феллер реВ. реВведение рев ретеорию ревероятностей реи реее реприложение. реМ.: реМир, ре1964. ре– ре1276 реc.92. Хемди реА. реТаха. реВведение рев реисследование реопераций. ре7-е реиздание.: реПер. рес реангл. ре– реМ.: ре«И. реД. реВильяме», ре2005. ре– ре912 рес.93. Холи реД., реХоли реР. реExcel ре2007.

реТрюки. ре– реСПб.: реПитер, ре2008. ре– ре368 рес.94. Хрущева реИ.В. реи редр. реОсновы рематематической рестатистики реи ретеории реслучайных репроцессов. ре– реСПб.: реЛань, ре2009. ре– ре336 рес.95. Чашкин ре Ю.Р. ре Математическая ре статистика. ре Анализ ре и ре обработка реданных. ре– реРостов-на-Дону: реФеникс, ре2010. ре– ре236 рес.96. Шеремет реА.Д., реСуйц реВ.П. реАудит. ре– реМ.: реИнфра-М, ре2006. ре– ре448 рес.97. Шеремет реА.Д., реСуйц реВ.П.

реАудит: реУчеб. репособие. ре– реМ.: реИнфра-М., ре1995. ре– ре240 рес.16998. Шмойлова ре Р.А. ре и ре др. ре Практикум ре по ре теории ре статистики: ре учебное репособие. ре– реМ.: реФинансы реи рестатистика, ре2011. ре– ре416 рес.99. Шторм ре Р. ре Теория ре вероятностей. ре Математическая ре статистика. реСтатистический реконтроль рекачества. реМ.: реМир, ре1970. ре– ре380 рес.100. Эверитт ре Б.С. ре Большой ре словарь ре по ре статистике.– ре М.: ре Проспект, ре2013. ре– ре736 рес.101.

Авдеев ре В.Ю., ре Audit-it.ru ре / ре Аудиторская ре фирма ре «Авдеев ре и ре К». реПрименение ре выборочных ре методов ре в ре аудите. ре – ре Режим ре доступа: реhttp://www.audit-it.ru/articles/audit/a104/40724.html102. Кочинев реЮ.Ю., реЛогиненков реА.В. реНовый реметод реоценки реожидаемой реошибки ре и ре риска ре выборки ре при ре статистической ре выборочной репроверке ре / ре Ю.Ю. ре Кочинев, ре А.В. ре Логиненков ре // ре Аудит ре и рефинансовый реанализ.

ре– ре2013. ре– ре№1. ре– реС. ре116-119.103. Кочинев реЮ.Ю., реЛогиненков реА.В.,sworld.com.ua ре/ реМеждународная ренаучно-практическая ре Интернет-конференция: ре «Современные ренаправления ре теоретических ре и ре прикладных ре исследований ре ‘2013», репроект реSWorld. реStatistical реtest реof реdetails: реsampling реrisk реmeasurement реconsidering ре the ре variance ре of ре projected ре misstatements ре in ре audits. ре – реРежимдоступа:ре http://www.sworld.com.ua/index.php/ru/economy-113/accounting-and-auditing-113/17265-113-0665104. Логиненков реА.В.

реИмитационное ремоделирование реи ресравнительный реанализ рестатистических ревыборочных реметодов рев реаудите. реЧасть ре1 ре/ реА.В. реЛогиненков ре// реАудит реи рефинансовый реанализ. ре– ре2014. ре– ре№6. ре– реС. ре164-175.105. Логиненков реА.В.

реИмитационное ремоделирование реи ресравнительный реанализ ре статистических ре выборочных ре методов ре в ре аудите. ре Часть ре 2 ре / реА.В. реЛогиненков ре// реАудит реи рефинансовый реанализ. ре– ре2015. ре– ре№1. ре– реС.ре154-178.170106. Логиненковре А.В.ре Классификацияре ире систематизациярестатистических ревыборочных реметодов рев реаудите ре/ реА.В. реЛогиненков ре//реАудит реи рефинансовый реанализ. ре– ре2014.

ре– ре№1. ре– реС. ре173-205.107. Логиненков ре А.В., ре sworld.com.ua ре / ре Международная ре научнопрактическая реИнтернет-конференция: ре«Современные репроблемы реи репути реих ререшения рев ренауке, ретранспорте, репроизводстве реи реобразованиире ‘2014», ре проект ре SWorld. ре Обзор ре статистических ре выборочных реметодов ре аудите, ре основанных ре на ре дискретных ре распределениях. ре – реРежим ре доступа: ре http://www.sworld.com.ua/index.php/ru/economy214/accounting-and-auditing-214/22367-214-353108. Arens ре A.A., ре Loebbecke ре J.k. ре Application ре of ре Statistical ре Sampling ре to реAuditing. реPrentice реHall. ре– реN.J., ре1981.109. DRT ре International.

ре"The реDRT реAudit реSampling. реA реGuide реto реApplying реThe реDRT реInternational реAudit реApproach". ре– реN.Y., ре1991, реP. ре42-73.110. Giliberti ре A. ре Bank ре Internal ре Audit ре Manual. ре – ре N.Y. ре Warren, ре Gorham ре&Lamont реVol. ре2. ре1997, реP. ре65-13.111. Loginenkov реA.A реNew реMethod реof реAccounting реMisstatement реand реAudit реRisk ре Measurement ре in ре Statistical ре Audit ре Sampling ре / ре A.

ре Loginenkov ре // реInternational ре Conference ре «Global ре Science ре and ре Innovation», ре LLC ре«Strategic реStudies реInstitute». ре– ре2014. ре– реVolI. ре– реP. ре129-135.112. Touche реRoss реInternational. реThe реTouch реRoss реAudit реSampling реManual. реU.K. реEdition. ре1982, реP. ре18.171Приложение ре1Список реметодов, реподлежащих ресравнительному реанализу, реи реих реобозначения№ реп/пАббревиатураНазвание ревариантаВарианты для процедур по существу1НСБнестратифицированный ре(Н), рес репоправкой рена ребесповторный реотбор ре(С), ребиномиальное рераспределение ре(Б)2НСПнестратифицированный ре(Н), рес репоправкой рена ребесповторный реотбор ре(С), рераспределение реПуассона ре(П)3НББнестратифицированный ре(Н), ребез репоправки рена ребесповторный реотбор ре(Б), ребиномиальное рераспределение ре(Б)4НБПнестратифицированный ре(Н), ребез репоправки рена ребесповторный реотбор ре(Б), рераспределение реПуассона ре(П)5НГ6НСНАнестратифицированный ре(Н), рес репоправкой рена ребесповторный реотбор ре(С), ренормальное рераспределение ре(Н), реоценивание реабсолютной реошибки ре(А)7ССНАстратифицированный ре(С), рес репоправкой рена ребесповторный реотбор ре(С), ренормальное рераспределение ре(Н), реоценивание реабсолютной реошибки ре(А)8НСНОнестратифицированный ре(Н), рес репоправкой ренабесповторный реотбор ре(С), ренормальное рераспределение ре(Н),реоценивание реотносительной реошибки ре(О)9НСНМнестратифицированный ре(Н), рес репоправкой рена ребесповторный реотбор ре(С), ренормальное рераспределение ре(Н), ремонетарный реметод ре(М)10ССНМстратифицированный ре(С), рес репоправкой рена ребесповторный реотбор ре(С), ренормальное рераспределение ре(Н), ремонетарный реметод ре(М)11НСНДнестратифицированный ре(Н), рес репоправкой рена ребесповторный реотбор ре(С), ренормальное рераспределение ре(Н), реоценивание ресуммы реошибок речерез редолю реотклонения ре(Д)12НСНУнестратифицированный ре(Н), рес репоправкой рена ребесповторный реотбор ре(С), ренормальное рераспределение ре(Н), реоценивание ресуммы реошибок речерез редолю реотклонения рес реучетом редисперсии ре(У)13НБНАнестратифицированный ре(Н), ребез репоправки ренабесповторный реотбор ре(Б), ренормальное рераспределение ре(Н), реоценивание реабсолютной реошибки ре(А)14СБНАстратифицированный ре(С), ребез репоправки рена ребесповторный реотбор ре(Б), ренормальное рераспределение ре(Н), реоценивание реабсолютной реошибки ре(А)15НБНОнестратифицированный ре(Н), ребез репоправки рена ребесповторный реотбор ре(Б), ренормальное рераспределение ре(Н), реоценивание реотносительной реошибки ре(О)16НБНМнестратифицированный ре(Н), ребез репоправки ренабесповторный реотбор ре(Б), ренормальное рераспределение ре(Н), ремонетарный реметод ре(М)17СБНМстратифицированный ре(С), ребез репоправки ренабесповторный реотбор ре(Б), ренормальное рераспределение ре(Н), ремонетарный реметод ре(М)18НБНДнестратифицированный ре(Н), ребез репоправки ренабесповторный реотбор ре(Б), ренормальное рераспределение ре(Н), реоценивание ресуммы реошибок речерез редолю реотклонения ре(Д)19НБНУнестратифицированный ре(Н), ребез репоправки рена ребесповторный реотбор ре(Б), ренормальное рераспределение ре(Н), реоценивание ресуммы реошибок речерез редолю реотклонения рес реучетом редисперсии ре(У)20НССАнестратифицированный ре(Н), рес репоправкой рена ребесповторный реотбор ре(С), рераспределение реСтьюдента ре(С), реоценивание реабсолютной реошибки ре(А)21СССАстратифицированный ре(С), рес репоправкой ренабесповторный реотбор ре(С), рераспределение реСтьюдента ре(С), реоценивание реабсолютной реошибки ре(А)нестратифицированный ре(Н), регипергеометрическое рераспределение ре(Г)№ реп/пАббревиатура22НССОнестратифицированный ре(Н), рес репоправкой ренабесповторный реотбор ре(С), рераспределение реСтьюдента ре(С), реоценивание реотносительной реошибки ре(О)23НССМнестратифицированный ре(Н), рес репоправкой рена ребесповторный реотбор ре(С), рераспределение реСтьюдента ре(С), ремонетарный реметод ре(М)24СССМстратифицированный ре(С), рес репоправкой рена ребесповторный реотбор ре(С), рераспределение реСтьюдента ре(С), ремонетарный реметод ре(М)25НССДнестратифицированный ре(Н), рес репоправкой рена ребесповторный реотбор ре(С), рераспределение реСтьюдента ре(С), реоценивание ресуммы реошибок речерез редолю реотклонения ре(Д)26НССУнестратифицированный ре(Н), рес репоправкой рена ребесповторный реотбор ре(С), рераспределение реСтьюдента ре(С), реоценивание ресуммы реошибок речерез редолю реотклонения рес реучетом редисперсии ре(У)27НБСАнестратифицированный ре(Н), ребез репоправки ренабесповторный реотбор ре(Б), рераспределение реСтьюдента ре(С), реоценивание реабсолютной реошибки ре(А)28СБСАстратифицированный ре(С), ребез репоправки рена ребесповторный реотбор ре(Б), рераспределение реСтьюдента ре(С), реоценивание реабсолютной реошибки ре(А)29НБСОнестратифицированный ре(Н), ребез репоправки рена ребесповторный реотбор ре(Б), рераспределение реСтьюдента ре(С),реоценивание реотносительной реошибки ре(О)30НБСМнестратифицированный ре(Н), ребез репоправки ренабесповторный реотбор ре(Б), рераспределение реСтьюдента ре(С), ремонетарный реметод ре(М)31СБСМстратифицированный ре(С), ребез репоправки ренабесповторный реотбор ре(Б), рераспределение реСтьюдента ре(С), ремонетарный реметод ре(М)32НБСДнестратифицированный ре(Н), ребез репоправки ренабесповторный реотбор ре(Б), рераспределение реСтьюдента ре(С), реоценивание ресуммы реошибок речерез редолю реотклонения ре(Д)33НБСУнестратифицированный ре(Н), ребез репоправки рена ребесповторный реотбор ре(Б), рераспределение реСтьюдента ре(С),реоценивание ресуммы реошибок речерез редолю реотклонения рес реучетом редисперсии ре(У)Название ревариантаВарианты для процедур на соответствие1СБс репоправкой рена ребесповторный реотбор ре(С), ребиномиальное рераспределение ре(Б)2СПс репоправкой ренабесповторный реотбор ре(С), рераспределение реПуассона ре(П)3СНс репоправкой рена ребесповторный реотбор ре(С), ренормальное рераспределение ре(Н)4ССс репоправкой рена ребесповторный реотбор ре(С), рераспределение реСтьюдента ре(С)5ББбез репоправки ренабесповторный реотбор ре(Б), ребиномиальное рераспределение ре(Б)6БПбез репоправки рена ребесповторный реотбор ре(Б), рераспределение реПуассона ре(П)7БНбез репоправки рена ребесповторный реотбор ре(Б), ренормальное рераспределение ре(Н)8БСбез репоправки ренабесповторный реотбор ре(Б), рераспределение реСтьюдента ре(С)9Ггипергеометрическое рераспределение ре(Г)Приложение ре2Список реисходных реусловий реаудита, реподлежащих ресравнительному реанализу, реи реих реобозначения№ реп/пАббревиатураНазвание реисходного реусловия реаудитаИсходные реусловия реаудита редля репроцедур репо ресуществу1МННМФмалый реобъем ревыборки ре(М), ренизкий реуровень редоверительной ревероятности ре(Н), ренизкая речастота реошибок ре(Н), ремалый реразброс реошибок ре(М), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)2УННМФумеренный реобъем ревыборки ре(У), ренизкий реуровень редоверительной ревероятности ре(Н), ренизкая речастота реошибок ре(Н), ремалый реразброс реошибок ре(М), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)3БННМФбольшой реобъем ревыборки ре(Б), ренизкий реуровень редоверительной ревероятности ре(Н), ренизкая речастота реошибок ре(Н),ремалый реразброс реошибок ре(М), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)4МВНМФмалый реобъем ревыборки ре(М), ревысокий реуровень редоверительной ревероятности ре(В), ренизкая речастота реошибок ре(Н), ремалый реразброс реошибок ре(М), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)5УВНМФумеренный реобъем ревыборки ре(У), ревысокий реуровень редоверительной ревероятности ре(В), ренизкая речастота реошибок ре(Н), ремалый реразброс реошибок ре(М), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)6БВНМФбольшой реобъем ревыборки ре(Б), ревысокий реуровень редоверительной ревероятности ре(В), ренизкая речастота реошибок ре(Н), ремалый реразброс реошибок ре(М), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)7МНВМФмалый реобъем ревыборки ре(М), ренизкий реуровень редоверительной ревероятности ре(Н), ревысокая речастота реошибок ре(В), ремалый реразброс реошибок ре(М), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)8УНВМФумеренный реобъем ревыборки ре(У), ренизкий реуровень редоверительной ревероятности ре(Н), ревысокая речастота реошибок ре(В), ремалый реразброс реошибок ре(М), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)9БНВМФбольшой реобъем ревыборки ре(Б), ренизкий реуровень редоверительной ревероятности ре(Н), ревысокая речастота реошибок ре(В), ремалый реразброс реошибок ре(М), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)10МВВМФмалый реобъем ревыборки ре(М), ревысокий реуровень редоверительной ревероятности ре(В), ревысокая речастота реошибок ре(В), ремалый реразброс реошибок ре(М), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)11УВВМФумеренный реобъем ревыборки ре(У), ревысокий реуровень редоверительной ревероятности ре(В), ревысокая речастота реошибок ре(В), ремалый реразброс реошибок ре(М), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)12БВВМФбольшой реобъем ревыборки ре(Б), ревысокий реуровень редоверительной ревероятности ре(В), ревысокая речастота реошибок ре(В), ремалый реразброс реошибок ре(М), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)13МННБФмалый реобъем ревыборки ре(М), ренизкий реуровень редоверительной ревероятности ре(Н), ренизкая речастота реошибок ре(Н), ребольшой реразброс реошибок ре(Б), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)14УННБФумеренный реобъем ревыборки ре(У), ренизкий реуровень редоверительной ревероятности ре(Н), ренизкая речастота реошибок ре(Н), ребольшой реразброс реошибок ре(Б), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)15БННБФбольшой реобъем ревыборки ре(Б), ренизкий реуровень редоверительной ревероятности ре(Н), ренизкая речастота реошибок ре(Н),ребольшой реразброс реошибок ре(Б), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)16МВНБФмалый реобъем ревыборки ре(М), ревысокий реуровень редоверительной ревероятности ре(В), ренизкая речастота реошибок ре(Н), ребольшой реразброс реошибок ре(Б), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)17УВНБФумеренный реобъем ревыборки ре(У), ревысокий реуровень редоверительной ревероятности ре(В), ренизкая речастота реошибок ре(Н), ребольшой реразброс реошибок ре(Б), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)18БВНБФбольшой реобъем ревыборки ре(Б), ревысокий реуровень редоверительной ревероятности ре(В), ренизкая речастота реошибок ре(Н), ребольшой реразброс реошибок ре(Б), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)№ реп/пАббревиатура19МНВБФмалый реобъем ревыборки ре(М), ренизкий реуровень редоверительной ревероятности ре(Н), ревысокая речастота реошибок ре(В), ребольшой реразброс реошибок ре(Б), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)20УНВБФумеренный реобъем ревыборки ре(У), ренизкий реуровень редоверительной ревероятности ре(Н), ревысокая речастота реошибок ре(В), ребольшой реразброс реошибок ре(Б), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)21БНВБФбольшой реобъем ревыборки ре(Б), ренизкий реуровень редоверительной ревероятности ре(Н), ревысокая речастота реошибок ре(В), ребольшой реразброс реошибок ре(Б), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)22МВВБФмалый реобъем ревыборки ре(М), ревысокий реуровень редоверительной ревероятности ре(В), ревысокая речастота реошибок ре(В), ребольшой реразброс реошибок ре(Б), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)23УВВБФумеренный реобъем ревыборки ре(У), ревысокий реуровень редоверительной ревероятности ре(В), ревысокая речастота реошибок ре(В), ребольшой реразброс реошибок ре(Б), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)24БВВБФбольшой реобъем ревыборки ре(Б), ревысокий реуровень редоверительной ревероятности ре(В), ревысокая речастота реошибок ре(В), ребольшой реразброс реошибок ре(Б), рефиксированное ресоотношение ревеличины реошибки рес ресуммой редокумента ре(Ф)25МННМПмалый реобъем ревыборки ре(М), ренизкий реуровень редоверительной ревероятности ре(Н), ренизкая речастота реошибок ре(Н), ремалый реразброс реошибок ре(М), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокумента ре(П)26УННМПумеренный реобъем ревыборки ре(У), ренизкий реуровень редоверительной ревероятности ре(Н), ренизкая речастота реошибок ре(Н), ремалый реразброс реошибок ре(М), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокумента ре(П)27БННМПбольшой реобъем ревыборки ре(Б), ренизкий реуровень редоверительной ревероятности ре(Н), ренизкая речастота реошибок ре(Н),ремалый реразброс реошибок ре(М), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокумента ре(П)28МВНМПмалый реобъем ревыборки ре(М), ревысокий реуровень редоверительной ревероятности ре(В), ренизкая речастота реошибок ре(Н), ремалый реразброс реошибок ре(М), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокумента ре(П)29УВНМПумеренный реобъем ревыборки ре(У), ревысокий реуровень редоверительной ревероятности ре(В), ренизкая речастота реошибок ре(Н), ремалый реразброс реошибок ре(М), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокумента ре(П)30БВНМПбольшой реобъем ревыборки ре(Б), ревысокий реуровень редоверительной ревероятности ре(В), ренизкая речастота реошибок ре(Н), ремалый реразброс реошибок ре(М), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокумента ре(П)31МНВМПмалый реобъем ревыборки ре(М), ренизкий реуровень редоверительной ревероятности ре(Н), ревысокая речастота реошибок ре(В), ремалый реразброс реошибок ре(М), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокумента ре(П)32УНВМПумеренный реобъем ревыборки ре(У), ренизкий реуровень редоверительной ревероятности ре(Н), ревысокая речастота реошибок ре(В), ремалый реразброс реошибок ре(М), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокумента ре(П)33БНВМПбольшой реобъем ревыборки ре(Б), ренизкий реуровень редоверительной ревероятности ре(Н), ревысокая речастота реошибок ре(В), ремалый реразброс реошибок ре(М), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокумента ре(П)34МВВМПмалый реобъем ревыборки ре(М), ревысокий реуровень редоверительной ревероятности ре(В), ревысокая речастота реошибок ре(В), ремалый реразброс реошибок ре(М), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокумента ре(П)35УВВМПумеренный реобъем ревыборки ре(У), ревысокий реуровень редоверительной ревероятности ре(В), ревысокая речастота реошибок ре(В), ремалый реразброс реошибок ре(М), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокументаре(П)36БВВМПбольшой реобъем ревыборки ре(Б), ревысокий реуровень редоверительной ревероятности ре(В), ревысокая речастота реошибок ре(В), ремалый реразброс реошибок ре(М), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокумента ре(П)37МННБПмалый реобъем ревыборки ре(М), ренизкий реуровень редоверительной ревероятности ре(Н), ренизкая речастота реошибок ре(Н), ребольшой реразброс реошибок ре(Б), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокумента ре(П)38УННБПумеренный реобъем ревыборки ре(У), ренизкий реуровень редоверительной ревероятности ре(Н), ренизкая речастота реошибок ре(Н), ребольшой реразброс реошибок ре(Б), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокумента ре(П)Название реисходного реусловия реаудита№ реп/пАббревиатура39БННБПбольшой реобъем ревыборки ре(Б), ренизкий реуровень редоверительной ревероятности ре(Н), ренизкая речастота реошибок ре(Н),ребольшой реразброс реошибок ре(Б), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокумента ре(П)40МВНБПмалый реобъем ревыборки ре(М), ревысокий реуровень редоверительной ревероятности ре(В), ренизкая речастота реошибок ре(Н), ребольшой реразброс реошибок ре(Б), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокумента ре(П)41УВНБПумеренный реобъем ревыборки ре(У), ревысокий реуровень редоверительной ревероятности ре(В), ренизкая речастота реошибок ре(Н), ребольшой реразброс реошибок ре(Б), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокумента ре(П)42БВНБПбольшой реобъем ревыборки ре(Б), ревысокий реуровень редоверительной ревероятности ре(В), ренизкая речастота реошибок ре(Н), ребольшой реразброс реошибок ре(Б), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокумента ре(П)43МНВБПмалый реобъем ревыборки ре(М), ренизкий реуровень редоверительной ревероятности ре(Н), ревысокая речастота реошибок ре(В), ребольшой реразброс реошибок ре(Б), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокумента ре(П)44УНВБПумеренный реобъем ревыборки ре(У), ренизкий реуровень редоверительной ревероятности ре(Н), ревысокая речастота реошибок ре(В), ребольшой реразброс реошибок ре(Б), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокумента ре(П)45БНВБПбольшой реобъем ревыборки ре(Б), ренизкий реуровень редоверительной ревероятности ре(Н), ревысокая речастота реошибок ре(В), ребольшой реразброс реошибок ре(Б), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокумента ре(П)46МВВБПмалый реобъем ревыборки ре(М), ревысокий реуровень редоверительной ревероятности ре(В), ревысокая речастота реошибок ре(В), ребольшой реразброс реошибок ре(Б), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокумента ре(П)47УВВБПумеренный реобъем ревыборки ре(У), ревысокий реуровень редоверительной ревероятности ре(В), ревысокая речастота реошибок ре(В), ребольшой реразброс реошибок ре(Б), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокумента ре(П)48БВВБПбольшой реобъем ревыборки ре(Б), ревысокий реуровень редоверительной ревероятности ре(В), ревысокая речастота реошибок ре(В), ребольшой реразброс реошибок ре(Б), реплавающее ресоотношение ревеличины реошибки рес ресуммой редокумента ре(П)1МННмалый реобъем ревыборки ре(М), ренизкий реуровень редоверительной ревероятности ре(Н), ренизкая речастота реошибок ре(Н)2УННумеренный реобъем ревыборки ре(У), ренизкий реуровень редоверительной ревероятности ре(Н), ренизкая речастота реошибок ре(Н)3БННбольшой реобъем ревыборки ре(Б), ренизкий реуровень редоверительной ревероятности ре(Н), ренизкая речастота реошибок ре(Н)4МВНмалый реобъем ревыборки ре(М), ревысокий реуровень редоверительной ревероятности ре(В), ренизкая речастота реошибок ре(Н)5УВНумеренный реобъем ревыборки ре(У), ревысокий реуровень редоверительной ревероятности ре(В), ренизкая речастота реошибок ре(Н)6БВНбольшой реобъем ревыборки ре(Б), ревысокий реуровень редоверительной ревероятности ре(В), ренизкая речастота реошибок ре(Н)7МНВмалый реобъем ревыборки ре(М), ренизкий реуровень редоверительной ревероятности ре(Н), ревысокая речастота реошибок ре(В)8УНВумеренный реобъем ревыборки ре(У), ренизкий реуровень редоверительной ревероятности ре(Н), ревысокая речастота реошибок ре(В)9БНВбольшой реобъем ревыборки ре(Б), ренизкий реуровень редоверительной ревероятности ре(Н), ревысокая речастота реошибок ре(В)10МВВмалый реобъем ревыборки ре(М), ревысокий реуровень редоверительной ревероятности ре(В), ревысокая речастота реошибок ре(В)11УВВумеренный реобъем ревыборки ре(У), ревысокий реуровень редоверительной ревероятности ре(В), ревысокая речастота реошибок ре(В)12БВВбольшой реобъем ревыборки ре(Б), ревысокий реуровень редоверительной ревероятности ре(В), ревысокая речастота реошибок ре(В)Название реисходного реусловия реаудитаИсходные реусловия реаудита редля репроцедур рена ресоответствиеПриложение 3Листинг репрограммного рекода реимитационной ремоделиМодуль ре«MainMod»:Option реExplicitOption реBase ре1Sub реImitationSP()ре ре ре Dimреiре Asре LongреDim реj реAs реLongре ре ре Dimреyре Asре Longрере ре ре Dimреxре Asре IntegerреDim реp реAs реDoubleре ре ре Dimрере Asp1ре Doubleрере ре ре Dimрере Asp2ре DoubleреDim реq реAs реDoubleре ре ре Dimрере Asq1ре Doubleрере ре ре Dimрере Asq2ре DoubleреDim реm реAs реDoubleре ре ре Dimрере Ashре Doubleрере ре ре Dimрере Asnре IntegerреDim реN1 реAs реIntegerре ре ре Dimрере AsN2ре Integerрере ре ре DimререVarGenrlре DoubleAsреDim MonPointрере DoubleAsрере ре ре DimререSum1ре DoubleAsрере ре ре DimререSum2ре DoubleAsреDim MonCumрере DoubleAsрере ре ре DimререRndValArray(3000,ре3000)ре IntegerAsрере ре ре DimререRndTablре RangeAsреDim TargetRngрере RangeAsрере ре ре DimререBinomDistреAs Rangeрере ре ре DimререPoissonDistре RangeAsреDim HypGeomDistрере RangeAsрере ре ре DimререDistреAs Rangeрере ре ре DimререSourceRngре RangeAsреDim ParamsDefрере StringAsрере ре ре DimререMethdреAs Stringрере ре ре DimререAPFре BooleanAsреDim IsMonрере BooleanAsрере ре ре DimререIsVarре BooleanAsрере ре ре DimререSamplSzре IntegerAsреDim SamplSz1рере IntegerAsрере ре ре DimререSamplSz2ре IntegerAsрере ре ре DimререConfProbре DoubleAsреDim PosNumрере IntegerAsрере ре ре DimререDiffреAs Doubleрере ре ре DimререCalcStateре IntegerAsреDim MisStmSumрере DoubleAsрере ре ре DimререTrnverре DoubleAsрере ре ре DimререExceedре LongAsреDim Trialрере LongAsрере ре ре DimререRndColре IntegerAsрере ре ре DimререRndRowре IntegerAsреDim MeanGenrlрере реDoubleAsре ре ре DimререGenArray(3000)ре DoubleAsрере ре ре DimререGenArrayMultpl(3000,ре As4)ре DoubleреDim NormDistрере DoubleAsрере ре ре DimререStudDistреAs Doubleрере ре ре DimререConDistре DoubleAsреDim Expрере IntegerAsрере ре ре Application.ScreenUpdatingре=ре реFalseре ре ре CalcStateре=ре Application.Calculationрере ре ре Application.Calculationрере= реxlCalculationManualре ре ре реSet реTargetRng ре= реWorksheets("Модель ре(посуществу)").Range("A2:AW35")Set реBinomDist ре= реWorksheets("Таблицабином.распр.").Range("A3:G1003")ре ре ре реSet реHypGeomDist ре= реWorksheets("Таблицагипергеом.распр.").Range("A3:G1003")ре ре ре реSet реPoissonDist ре= реWorksheets("Таблицараспр.Пуас.").Range("A3:G1003")Set реRndTabl ре= реWorksheets("Таблицаслучайныхчислел").Range("A1:DKJ3000")For реj ре= ре1 реTo ре3000ре ре ре ре ре ре ре реFor реi ре= ре1 реTo ре3000ре ре ре ре ре ре ре ре ре ре ре реRndValArray(i, реj) ре= реRndTabl.Cells(i, реj)Next реiре ре ре ре ре ре ре Ifре jре реMod 30ре =ре 0ре Thenрере ре ре ре ре ре ре ре ре ре ре Application.StatusBarрере= ре"Создание ремассива реслучайных речисел: ре" ре& реj ре/ ре30 ре& ре"%"DoEventsре ре ре ре ре ре ре реEnd реIfNext реjре ре ре реFor реExp ре= ре1 реTo ре100ре ре ре ре ре ре ре реFor реj ре= ре2 реTo ре49 ре'49ре ре ре ре ре ре ре ре ре ре ре реParamsDef ре= реTargetRng.Cells(1, реj)Select реCase реMid(ParamsDef, ре1, ре1)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре"М": реSamplSz ре= ре10ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре"У": реSamplSz ре= ре50ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре"Б": реSamplSz ре= ре200ре ре ре ре ре ре ре ре ре ре ре реEnd реSelectSelect реCase реMid(ParamsDef, ре2, ре1)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре"Н": реConfProb ре= ре0.9ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре"В": реConfProb ре= ре0.99ре ре ре ре ре ре ре ре ре ре ре реEnd реSelectWith реWorksheets(Right(ParamsDef, ре3))ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реSet реSourceRng ре= ре.Range("C4:E3003")Trnver ре= ре.Range("C3006")MisStmSum ре= ре.Range("E3006")MeanGenrl ре= ре.Range("U17")VarGenrl ре= ре.Range("U15")End реWithNormDist =ре реWorksheetFunction.NormSInv(ConfProb)StudDist ре= реWorksheetFunction.TInv(2 ре* ре(1 ре- реConfProb), реSamplSz ре- ре1)If реSamplSz ре= ре10 реAnd реConfProb ре= ре0.9 реThen реPosNum ре= ре2If реSamplSz ре= ре10 реAnd реConfProb ре= ре0.99 реThen реPosNum ре= ре3If реSamplSz ре= ре50 реAnd реConfProb ре= ре0.9 реThen реPosNum ре= ре4If реSamplSz ре= ре50 реAnd реConfProb ре= ре0.99 реThen реPosNum ре= ре5If реSamplSz ре= ре200 реAnd реConfProb ре= ре0.9 реThen реPosNum ре= ре6If реSamplSz ре= ре200 реAnd реConfProb ре= ре0.99 реThen реPosNum ре= ре7For реi ре= ре2 реTo ре34 ре'34Select реCase TargetRng.Cells(i,рере1)Case "НСБ",рере"НСП",ре"НББ",ре"НБП",ре"НГ"Methd =ре TargetRng.Cells(i,рере1)If реMid(Methd, ре2, ре1) ре= ре"С" реThen реAPF ре= реTrue реElse реAPF ре= реFalseSelect CaseререRight(Methd,ре1)Case ре"Б": реSet реDist ре= реBinomDistCase ре"П": реSet реDist ре= реPoissonDistCase ре"Г": реSet реDist ре= реHypGeomDistEnd реSelectFor реy ре= ре1 реTo ре3000GenArray(y) ре= реSourceRng.Cells(y, ре2)Next реyFor Trialре=ре 1ре реTo 10000реRandomizep ре= ре0RndCol =ре Int(3000ре*ре Rndре+ре 1)реRndRow =ре Int((3000ре-ре SamplSzре+ре 1)ре *ре реRnd +ре 1)реFor yре =ре 1ре реTo SamplSzрере =ре ppре +ре GenArray(RndValArray(RndRowре+ре yре -ре 1,ре RndCol))реNext реyp =ре Round(pре/ре SamplSz,рере3)m ре= реWorksheetFunction.VLookup(p, реDist, реPosNum, ре0)m =ре mре *ре 3000ре*ре MeanGenrlре/ре SamplSzреIf реAPF реThen реm ре= реp ре* ре3000 ре* реMeanGenrl ре+ ре(m ре- реp ре* ре3000 ре* реMeanGenrl) ре* ре(1 ре- реSamplSz ре/ ре3000) ре^ ре0.5If реMisStmSum<= реm реThen реExceed ре= реExceed ре+ ре1Next реTrialре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре"НСНА", ре"НБНА", ре"НССА", ре"НБСА"Methd =ре TargetRng.Cells(i,рере1)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реIf реMid(Methd, ре2, ре1) ре= ре"С" реThen реAPF ре= реTrue реElse реAPF ре= реFalseSelect реCase Mid(Methd,рере 1)3,реCase ре"Н": реConDist ре= реNormDistре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре"С": реConDist ре= реStudDistре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реEnd реSelectре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реFor реy ре= ре1 реTo ре3000ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реGenArray(y) ре= реSourceRng.Cells(y, ре3)Next реyре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ForререTrial =ре 1ре Toре 10000рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре Randomizeреp ре= ре0ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реq ре= ре0ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реRndCol ре= реInt(3000 ре* реRnd ре+ ре1)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реRndRow ре= реInt((3000 ре- реSamplSz ре+ ре1) ре* реRnd ре+ ре1)For реy ре= ре1 реTo реSamplSzре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реp ре= реp ре+ реGenArray(RndValArray(RndRow ре+ реy ре- ре1, реRndCol))ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реq ре= реq ре+ реGenArray(RndValArray(RndRow ре+ реy ре- ре1, реRndCol)) ре^ ре2Next реyре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре pре =ре реp /ре SamplSzрере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре qре =ре реq -ре SamplSzре*ре pре ^ре 2реm ре= ре3000 ре* ре(p ре+ реConDist ре* ре(q ре* реIIf(APF, ре1 ре- реSamplSz ре/ ре3000, ре1) ре/ ре(SamplSz ре^ ре2 ре- реSamplSz)) ре^ ре0.5)If реMisStmSum ре<= реm реThen реExceed ре= реExceed ре+ ре1Next реTrialре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре"ССНА", ре"СБНА", ре"СССА", ре"СБСА", ре"ССНМ", ре"СБНМ", ре"СССМ", ре"СБСМ"Methd =ре реTargetRng.Cells(i, 1)реIf реMid(Methd, ре2, ре1) ре= ре"С" реThen реAPF ре= реTrue реElse реAPF ре= реFalseSelect CaseререMid(Methd, 3,ре 1)рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре Caseрере"Н":реConDist=ре NormDistреCase ре"С": реConDist ре= реStudDistре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реEnd реSelectIf реMid(Methd, ре4, ре1) ре= ре"М" реThen реIsMon ре= реTrue реElse реIsMon ре= реFalseN1 ре= ре0ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реN2 ре= ре0Sum2 ре= ре0ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реFor реy ре= ре1 реTo ре3000ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реIf реSourceRng.Cells(y, ре1) ре> ре2 ре* реMeanGenrl реThenN2 ре= реN2 ре+ ре1GenArrayMultpl(N2, ре2) ре= реSourceRng.Cells(y, ре3)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реIf реIsMon реThen реGenArrayMultpl(N2, ре4) ре= реSourceRng.Cells(y, ре1)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реSum2 ре= реSum2 ре+ реSourceRng.Cells(y, ре1)Elseре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре N1ре =ре N1ре +ре 1реGenArrayMultpl(N1, ре1) ре= реSourceRng.Cells(y, ре3)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реIf реIsMon реThen реGenArrayMultpl(N1, ре3) ре= реSourceRng.Cells(y, ре1)End реIfNext реyре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре Sum1ре=ре Trnverре-ре Sum2реSamplSz2 ре= реRound(SamplSz ре* реN2 ре/ ре3000, ре0)If реSamplSz2 ре< ре2 реThen реSamplSz2 ре= ре2SamplSz1 =ре SamplSzре-ре SamplSz2рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ForререTrial=ре 1ре реTo 10000рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре Randomizeрере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реp1 ре= ре0q1 ре= ре0ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реy ре= ре0ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реn ре= ре0If реIsMon реThenMonCum ре= ре0ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре hре ре= Sum1ре/ре SamplSz1рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реMonPoint ре= реInt(Int(h) ре* реRnd ре+ ре1)Doре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре yре =ре yре ре+ 1реMonCum =ре MonCumре+ре GenArrayMultpl(y,рере3)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре Ifре MonPointрере<= реMonCum Thenрере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реp1 ре= реp1 ре+ реGenArrayMultpl(y, ре1) ре/ реGenArrayMultpl(y, ре3)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реq1 ре= реq1 ре+ ре(GenArrayMultpl(y, ре1) ре/ реGenArrayMultpl(y, ре3)) ре^ ре2MonPoint =ре реMonPoint +ре hрере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре nре =ре реn +ре 1рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре EndререIfLoop Untilрере =ре реSamplSz1nре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реElseре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реRndCol ре= реInt(3000 ре* реRnd ре+ ре1)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реRndRow ре= реInt(3000 ре* реRnd ре+ ре1)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реDoy ре= реy ре+ ре1ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реx ре= реRndValArray(RndRow ре+ реy ре- ре1, реRndCol)If реx ре<= реN1 реThenре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре p1ре =ре реp1 +ре GenArrayMultpl(x,рере1)q1 =ре q1ре +ре GenArrayMultpl(x,рере ^ре 21)рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре nре =ре nре ре+ 1реEnd реIfре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре Ifре реRndRow +ре yре -ре 1ре =ре 3000ререThenRndRow ре= ре1ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре yре =ре 0рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре EndререIfре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре LoopререUntilреn =ре SamplSz1рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реEnd реIfре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реp1 ре= реp1 ре/ реSamplSz1ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реq1 ре= реq1 ре- реSamplSz1 ре* реp1 ре^ ре2ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реRandomizep2 ре= ре0ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реq2 ре= ре0ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реy ре= ре0n ре= ре0ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре Ifре IsMonререThenре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре MonCumре=ре 0рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре hре ре= реSum2 /ре SamplSz2рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реMonPoint ре= реInt(Int(h) ре* реRnd ре+ ре1)Doре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре yре =ре реy +ре 1рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре MonCumре=ре MonCumре+ре реGenArrayMultpl(y, 4)рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре Ifре реMonPoint<= MonCumререThenp2 ре= реp2 ре+ реGenArrayMultpl(y, ре2) ре/ реGenArrayMultpl(y, ре4)q2 ре= реq2 ре+ ре(GenArrayMultpl(y, ре2) ре/ реGenArrayMultpl(y, ре4)) ре^ ре2MonPoint =ре MonPointре+ре hреn ре= реn ре+ ре1ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре EndререIfре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре LoopререUntilреn =ре SamplSz2рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реElseRndCol ре= реInt(3000 ре* Rndрере+ ре1)RndRow ре= реInt(3000 ре* реRnd ре+ ре1)Doре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре yре =ре yре ре+ 1реx ре= реRndValArray(RndRow ре+ реy ре- ре1, реRndCol)If x<=рере ThenN2реp2 =ре p2ре +ре GenArrayMultpl(x,рере2)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре q2ре =ре q2ре +ре реGenArrayMultpl(x, 2)ре ^ре 2рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре nре =ре реn +ре 1рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре EndререIfIf RndRowре+ре yре -ре 1ре =ре 3000ререThenре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре RndRowре=ре 1рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре yре =ре 0реEnd реIfре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре LoopререUntil nре =ре SamplSz2реEnd реIfре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре p2ре =ре реp2 /ре SamplSz2рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре q2ре =ре реq2 -ре SamplSz2ре*ре p2ре ^ре 2реp ре= ре(p1 ре* реN1 ре+ реp2 ре* реN2) ре/ ре3000ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реm ре= реIIf(IsMon, реTrnver, ре3000) ре* ре(p ре+ реConDist ре* ре(q1 ре* реN1 ре^ ре2 ре/ ре(SamplSz1 ре^ ре2 ре- реSamplSz1) ре* реIIf(APF, ре1 ре- реSamplSz1 ре/ реN1, ре1) ре+ ре_ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реq2 ре* реN2 ре^ ре2 ре/ ре(SamplSz2 ре^ ре2 ре- реSamplSz2) ре* реIIf(APF, ре1 ре- реSamplSz2 ре/ реN2, ре1)) ре^ ре0.5 ре/ ре3000)If реMisStmSum ре<= реm реThen реExceed ре= реExceed ре+ ре1Next реTrialре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре"НСНО", ре"НБНО", ре"НССО", ре"НБСО"Methd =ре TargetRng.Cells(i,рере1)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реIf реMid(Methd, ре2, ре1) ре= ре"С" реThen реAPF ре= реTrue реElse реAPF ре= реFalseSelect CaseререMid(Methd,ре 1)3,рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре Caseрере"Н":реConDist=ре NormDistрере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре Caseрере"С":реConDist=ре StudDistреEnd реSelectре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре Forререy =ре 1ре Toре 3000рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реGenArrayMultpl(y, ре1) ре= реSourceRng.Cells(y, ре1)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реGenArrayMultpl(y, ре2) ре= реSourceRng.Cells(y, ре3)Next реyре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ForререTrial =ре 1ре Toре 10000рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре Randomizeреp ре= ре0ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реq ре= ре0ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реp1 ре= ре0q1 ре= ре0ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реp2 ре= ре0ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реq2 ре= ре0RndCol ре= реInt(3000 ре* Rndрере+ ре1)RndRow ре= реInt((3000 ре- реSamplSz ре+ ре1) ре* реRnd ре+ ре1)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реFor реy ре= ре1 реTo реSamplSzре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реp1 ре= реp1 ре+ реGenArrayMultpl(RndValArray(RndRow ре+ реy ре- ре1, реRndCol), ре1)p2 ре= реp2 ре+ реGenArrayMultpl(RndValArray(RndRow ре+ реy ре- ре1, реRndCol), ре1) ре^ ре2ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реq1 ре= реq1 ре+ реGenArrayMultpl(RndValArray(RndRow ре+ реy ре- ре1, реRndCol), ре2)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реq2 ре= реq2 ре+ реGenArrayMultpl(RndValArray(RndRow ре+ реy ре- ре1, реRndCol), ре2) ре^ ре2q ре= реq ре+ реGenArrayMultpl(RndValArray(RndRow ре+ реy ре- ре1, реRndCol), ре1) ре* реGenArrayMultpl(RndValArray(RndRow ре+ реy ре- ре1, реRndCol), ре2)Next реyре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реp ре= реq1 ре/ реp1ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реm ре= реTrnver ре* ре(p ре+ реConDist ре* ре((q2 ре- ре2 ре* реp ре* реq ре+ реp ре^ ре2 ре* реp2) ре/ ре(SamplSz ре^ ре2 ре- реSamplSz) ре* реIIf(APF, ре1 ре- реSamplSz ре/ ре3000, ре1)) ре^ ре0.5 ре/ реMeanGenrl)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реIf реMisStmSum<= реm реThen реExceed ре= реExceed ре+ ре1Next реTrialре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре"НСНМ", ре"НБНМ", ре"НССМ", ре"НБСМ"Methd =ре TargetRng.Cells(i,рере1)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реIf реMid(Methd, ре2, ре1) ре= ре"С" реThen реAPF ре= реTrue реElse реAPF ре= реFalseSelect реCase Mid(Methd,рере 1)3,реCase ре"Н": реConDist ре= реNormDistре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре"С": реConDist ре= реStudDistре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реEnd реSelectре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реFor реy ре= ре1 реTo ре3000ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реGenArrayMultpl(y, ре1) ре= реSourceRng.Cells(y, ре1)GenArrayMultpl(y, ре2) ре= реSourceRng.Cells(y, ре3)Next реyре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ForререTrial=ре 1ре реTo 10000рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре Randomizeрере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реp ре= ре0q ре= ре0ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реy ре= ре0ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реn ре= ре0MonCum ре= ре0ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре hре =ре Trnverре/ре реSamplSzре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реMonPoint ре= реInt(Int(h) ре* реRnd ре+ ре1)Doре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реy =ре yре +ре 1реMonCum =ре MonCumре+ре GenArrayMultpl(y,рере1)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре Ifре MonPointрере реMonCum Then<=рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реp ре= реp ре+ реGenArrayMultpl(y, ре2) ре/ реGenArrayMultpl(y, ре1)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реq ре= реq ре+ ре(GenArrayMultpl(y, ре2) ре/ реGenArrayMultpl(y, ре1)) ре^ ре2MonPoint =ре реMonPoint +ре hрере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре nре =ре реn +ре 1рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре EndререIfLoop Untilрере =ре реSamplSznре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реp ре= реp ре/ реSamplSzре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реq ре= реq ре- реSamplSz ре* реp ре^ ре2ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реm ре= реTrnver ре* ре(p ре+ реConDist ре* ре(q ре* реIIf(APF, ре1 ре- реSamplSz ре/ ре3000, ре1) ре/ ре(SamplSz ре^ ре2 ре- реSamplSz)) ре^ ре0.5)If реMisStmSum ре<= реm реThen реExceed ре= реExceed ре+ ре1Next реTrialре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре"НСНД", ре"НБНД", ре"НССД", ре"НБСД", ре"НСНУ", ре"НБНУ", ре"НССУ", ре"НБСУ"Methd =ре реTargetRng.Cells(i, 1)реIf реMid(Methd, ре2, ре1) ре= ре"С" реThen реAPF ре= реTrue реElse реAPF ре= реFalseSelect CaseререMid(Methd, 3,ре 1)рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре Caseрере"Н":реConDist=ре NormDistреCase ре"С": реConDist ре= реStudDistре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реEnd реSelectIf реMid(Methd, ре4, ре1) ре= ре"У" реThen реIsVar ре= реTrue реElse реIsVar ре= реFalseFor реy ре= ре1 реTo ре3000ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реGenArray(y) ре= реSourceRng.Cells(y, ре2)Next реyре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ForререTrial =ре 1ре Toре 10000рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре Randomizeреp ре= ре0ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре RndColрере= Int(3000ре*ре реRnd +ре 1)рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре RndRowре=ре Int((3000ре-ре SamplSzре+ре 1)ре *ре Rndре+ре 1)рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре Forререy =ре 1ре Toре SamplSzреp ре= реp ре+ реGenArray(RndValArray(RndRow ре+ реy ре- ре1, реRndCol))Next реyp =ре pре /ре SamplSzреIf реIsVar реThenIf реp ре= ре0 реThenm ре= ре0ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реElseре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реm ре= реp ре* ре3000 ре* реMeanGenrl ре+ реConDist ре* ре(3000 ре^ ре2 ре* ре(p ре- реp ре^ ре2) ре/ реSamplSz ре* реVarGenrl ре/ ре(p ре* ре3000) ре+ ре_ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре3000 ре^ ре2 ре* ре(p ре- реp ре^ ре2) ре/ реSamplSz ре* реMeanGenrl ре^ ре2 ре+ реVarGenrl ре* реp ре* ре3000) ре^ ре0.5 ре* реIIf(APF, ре(1 ре- реSamplSz ре/ ре3000) ре^ ре0.5, ре1)End реIfре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реElseре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реm ре= ре3000 ре* реMeanGenrl ре* ре(p ре+ реConDist ре* ре((p ре- реp ре^ ре2) ре/ реSamplSz ре* реIIf(APF, ре1 ре- реSamplSz ре/ ре3000, ре1)) ре^ ре0.5)End реIfре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реIf реMisStmSum<= реm реThen реExceed ре= реExceed ре+ ре1Next реTrialре ре ре ре ре ре ре ре ре ре ре ре ре ре ре EndререSelectDiff =ре Abs(Exceedре/ре 10000ре-ре ConfProb)рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре реTargetRng.Cells(i, реj) ре= реDiffExceed ре= ре0ре ре ре ре ре ре ре ре ре ре ре реNext реiApplication.StatusBar ре= ре"Идет ремоделирование ре(экспернимент ре" ре& реExp ре& ре"): ре" ре&j ре* ре2 ре+ ре2 ре& ре"%"ре ре ре ре ре ре ре ре ре ре ре реDoEventsре ре ре ре ре ре ре реNext реjре ре ре ре ре ре ре реWorksheets("Модель ре(по ресуществу)").Range("A1:AW35").CopyWith реWorksheets("Данные реэкспериментов ре(сущ)")ре ре ре ре ре ре ре ре ре ре ре ре.Activateре ре ре ре ре ре ре ре ре ре ре ре.Cells((Exp ре- ре1) ре* ре36 ре+ ре1, ре1).Selectре ре ре ре ре ре ре ре ре ре ре ре.Pasteре ре ре ре ре ре ре реEnd реWithNext реExpре ре ре Application.StatusBarрере= реFalseре ре ре Application.Calculationрере= реCalcStateEnd реSubSub реImitationTOC()Dim реi реAs реLongре ре ре Dimреjре Asре Longрере ре ре Dimреyре Asре LongреDim реp реAs реDoubleре ре ре Dimрере Asmре Doubleрере ре ре DimререRndValArray(3000,ре3000)ре IntegerAsреDim RndTablрере RangeAsрере ре ре DimререTargetRngре RangeAsрере ре ре DimререBinomDistре RangeAsреDim PoissonDistрере реRangeAsре ре ре DimререHypGeomDistре RangeAsрере ре ре DimререDistре RangeAsреDim SourceRngрере RangeAsрере ре ре DimререParamsDefре StringAsрере ре ре DimререMethdре StringAsреDim APFрере BooleanAsрере ре ре DimререSamplSzре IntegerAsрере ре ре DimререConfProbре DoubleAsреDim PosNumрере IntegerAsрере ре ре DimререDiffреAs Doubleрере ре ре DimререCalcStateре IntegerAsреDim MisStmQntрере LongAsрере ре ре DimререExceedре LongAsрере ре ре DimререTrialре LongAsреDim RndColрере IntegerAsрере ре ре DimререRndRowре IntegerAsрере ре ре DimререGenArray(3000)ре DoubleAsреDim NormDistрере DoubleAsрере ре ре DimререStudDistреAs Doubleрере ре ре DimререConDistре DoubleAsреDim Expрере IntegerAsрере ре ре DimререIsDiscrреAs Booleanрере ре ре Application.ScreenUpdatingрере= реFalseре ре ре CalcStateре=ре реApplication.Calculationре ре ре Application.Calculationрере= реxlCalculationManualре ре ре реSet реTargetRng ре= реWorksheets("Модель ре(на ресоответствие)").Range("A2:M11")Set реBinomDist ре= реWorksheets("Таблицабином.распр.").Range("A3:G1003")ре ре ре реSet реHypGeomDist ре= реWorksheets("Таблицагипергеом.распр.").Range("A3:G1003")Set реPoissonDist ре= реWorksheets("Таблицараспр.Пуас.").Range("A3:G1003")ре ре ре реSet реRndTabl ре= реWorksheets("Таблицаслучайныхчислел").Range("A1:DKJ3000")For реj ре= ре1 реTo ре3000For реi ре= ре1 реTo ре3000RndValArray(i, реj) ре= реRndTabl.Cells(i, реj)Next реiIf реj реMod ре30 ре= ре0 реThenре ре ре ре ре ре ре ре ре ре ре реApplication.StatusBar ре= ре"Создание ремассива реслучайных речисел: ре" ре& реj ре/ ре30 ре& ре"%"ре ре ре ре ре ре ре ре ре ре ре реDoEventsEnd реIfре ре ре реNext реjре ре ре реFor реExp ре= ре6 реTo ре100ре ре ре ре ре ре ре реFor реj ре= ре2 реTo ре13 ре'13ре ре ре ре ре ре ре ре ре ре ре реParamsDef ре= реTargetRng.Cells(1, реj)ре ре ре ре ре ре ре ре ре ре ре SelectререCase Mid(ParamsDef,рере 1)1,реCase "М":ререSamplSz=ре 10реCase ре"У": реSamplSz ре= ре50Case ре"Б": реSamplSz ре= ре200End реSelectре ре ре ре ре ре ре ре ре ре ре SelectререCase Mid(ParamsDef,рере 1)2,реCase ре"Н": реConfProb ре= ре0.9Case ре"В": реConfProb ре= ре0.99End реSelectре ре ре ре ре ре ре ре ре ре ре WithререWorksheets(Right(ParamsDef, 1))реSet реSourceRng ре= ре.Range("B2:B3001")MisStmQnt ре= ре.Range("E5")ре ре ре ре ре ре ре ре ре ре ре реEnd реWithре ре ре ре ре ре ре ре ре ре ре реNormDist ре= реWorksheetFunction.NormSInv(ConfProb)ре ре ре ре ре ре ре ре ре ре ре реStudDist ре= реWorksheetFunction.TInv(2 ре* ре(1 ре- реConfProb), реSamplSz ре- ре1)ре ре ре ре ре ре ре ре ре ре ре реIf реSamplSz ре= ре10 реAnd реConfProb ре= ре0.9 реThen реPosNum ре= ре2ре ре ре ре ре ре ре ре ре ре ре реIf реSamplSz ре= ре10 реAnd реConfProb ре= ре0.99 реThen реPosNum ре= ре3ре ре ре ре ре ре ре ре ре ре ре реIf реSamplSz ре= ре50 реAnd реConfProb ре= ре0.9 реThen реPosNum ре= ре4ре ре ре ре ре ре ре ре ре ре ре реIf реSamplSz ре= ре50 реAnd реConfProb ре= ре0.99 реThen реPosNum ре= ре5ре ре ре ре ре ре ре ре ре ре ре реIf реSamplSz ре= ре200 реAnd реConfProb ре= ре0.9 реThen реPosNum ре= ре6ре ре ре ре ре ре ре ре ре ре ре реIf реSamplSz ре= ре200 реAnd реConfProb ре= ре0.99 реThen реPosNum ре= ре7For реi ре= ре2 реTo ре10 ре'10ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реMethd ре= реTargetRng.Cells(i, ре1)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реIf реLeft(Methd, ре1) ре= ре"С" реThen реAPF ре= реTrue реElse реAPF ре= реFalseSelect CaseререRight(Methd,ре1)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре"Б"Set Distре=ре BinomDistреIsDiscr ре= реTrueре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре"П"ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реSet реDist ре= реPoissonDistре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реIsDiscr ре= реTrueCase ре"Г"ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре Setре реDist =ре HypGeomDistрере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре IsDiscrре=ре реTrueре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре"Н"ConDist ре= реNormDistре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре IsDiscrре=ре реFalseре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре"С"ConDist ре= реStudDistре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре IsDiscrре=ре реFalseре ре ре ре ре ре ре ре ре ре ре ре ре ре ре EndререSelectFor реy ре= ре1 реTo ре3000GenArray(y) ре= реSourceRng.Cells(y)Next реyре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ForререTrial=ре 1ре реTo 10000рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реRandomizeре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реp ре= ре0RndCol ре= реInt(3000 ре* Rndрере+ ре1)RndRow ре= реInt((3000 ре- реSamplSz ре+ ре1) ре* реRnd ре+ ре1)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реFor реy ре= ре1 реTo реSamplSzре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реp ре= реp ре+ реGenArray(RndValArray(RndRow ре+ реy ре- ре1, реRndCol))Next реyре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре pре =ре реRound(p /ре SamplSz,рере3)If реIsDiscr реThenm ре= реWorksheetFunction.VLookup(p, реDist, реPosNum, ре0)m ре= реm ре* ре3000 ре/ реSamplSzIf реAPF реThen реm ре= реp ре* ре3000 ре+ ре(m ре- реp ре* ре3000) ре* ре(1 ре- реSamplSz ре/ ре3000) ре^ ре0.5Elsem ре= ре3000 ре* ре(p ре+ реConDist ре* ре((p ре- реp ре^ ре2) ре/ реSamplSz ре* реIIf(APF, ре1 ре- реSamplSz ре/ ре3000, ре1)) ре^ ре0.5)End реIfре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реIf реMisStmQnt<= реm реThen реExceed ре= реExceed ре+ ре1Next реTrialре ре ре ре ре ре ре ре ре ре ре ре ре ре ре Diffре=ре Abs(Exceedре/ре 10000ре-ре ConfProb)рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре реTargetRng.Cells(i, реj) ре= реDiffExceed ре= ре0ре ре ре ре ре ре ре ре ре ре ре реNext реiре ре ре ре ре ре ре ре ре ре ре реApplication.StatusBar ре= ре"Идет ремоделирование ре(экспернимент ре" ре&Exp& ре"): ре" ре& реj ре* ре7 ре+ ре9 ре& ре"%"ре ре ре ре ре ре ре ре ре ре ре реDoEventsNext реjре ре ре ре ре ре ре реWorksheets("Модель ре(на ресоответствие)").Range("A1:M11").Copyре ре ре ре ре ре ре реWith реWorksheets("Данные реэкспериментов ре(соотв)")ре ре ре ре ре ре ре ре ре ре ре ре.Activateре ре ре ре ре ре ре ре ре ре ре ре.Cells((Exp ре- ре1) ре* ре12 ре+ ре1, ре1).Selectре ре ре ре ре ре ре ре ре ре ре ре.Pasteре ре ре ре ре ре ре реEnd реWithре ре ре реNext реExpApplication.StatusBar ре= реFalseApplication.Calculation ре= реCalcStateEnd реSubМодуль ре«Tabls»:Option реExplicitSub реMakeBinom()ре ре ре DimререTargetRngре RangeAsреDim реi реAs реLongре ре ре реDim реx реAs реLongре ре ре реDim реj реAs реIntegerDim реy реAs реIntegerре ре ре Dimреvре Asре Integerрере ре ре Dimреrре Asре SingleреDim CurrValрере SingleAsрере ре ре DimререPrevValре SingleAsрере ре ре DimререCalcStateре IntegerAsреDim Rsltрере реSingleAsре ре ре Application.ScreenUpdatingре=ре реFalseре ре ре CalcStateре=ре Application.Calculationрере ре ре Application.Calculationрере= реxlCalculationManualре ре ре реSet реTargetRng ре= реWorksheets("Таблицабином.распр.").Range("A4:G1002")For реy ре= ре0 реTo ре2For реj ре= ре0 реTo ре1For реi ре= ре1 реTo ре999v ре= реIIf(y ре= ре0, ре10, реIIf(y ре= ре1, ре50, ре200))ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реr ре= реIIf(j ре= ре0, ре0.9, ре0.99)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реFor реx ре= ре1 реTo реvCurrVal ре= реWorksheetFunction.BinomDist(x, реv, реTargetRng.Cells(i, ре1), реTrue)PrevVal ре= реWorksheetFunction.BinomDist(x ре- ре1, реv, реTargetRng.Cells(i, ре1), реTrue)If CurrValрере rре реThen>=ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реRslt ре= реx ре- ре1 ре+ ре(r ре- реPrevVal) ре/ ре(CurrVal ре- реPrevVal)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реTargetRng.Cells(i, ре2 ре+ реj ре+ реy ре* ре2) ре= реIIf(Rslt ре< ре0, ре0, реRslt)Exit реForре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реEnd реIfре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реIf реx ре= реv реThen реTargetRng.Cells(i, ре2 ре+ реj ре+ реy ре* ре2) ре= реvDoEventsNext реxре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реIf реj ре= ре0 реThenре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реSelect реCase реyре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре0: реApplication.StatusBar ре= ре"Идетрасчетдляr=0,9 реи реv=10: ре" ре&Round(i ре/ ре10, ре1) ре& "%"рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре1: реApplication.StatusBar ре= ре"Идетрасчетдляr=0,9 реи реv=50: ре" ре&Round(i ре/ ре10, ре1) ре& ре"%"ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре2: реApplication.StatusBar ре= ре"Идетрасчетдляr=0,9 реи реv=200: ре" ре&Round(i ре/ ре10, ре1) ре& ре"%"End реSelectре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реElseре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реSelect реCase реyре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре0: реApplication.StatusBar ре= ре"Идетрасчетдляr=0,99 реи реv=10: ре" ре&Round(i ре/ ре10, ре1) ре& ре"%"ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре1: реApplication.StatusBar ре= ре"Идетрасчетдляr=0,99 реи реv=50: ре" ре&Round(i ре/ ре10, ре1) ре& ре"%"ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре2: реApplication.StatusBar ре= ре"Идетрасчетдляr=0,99 реи реv=200: ре" ре&Round(i ре/ ре10, ре1) ре& ре"%"End реSelectре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реEnd реIfNext реiре ре ре ре ре ре ре реNext реjре ре ре реNext реyApplication.StatusBar ре= реFalseApplication.Calculation ре= реCalcStateEnd реSubSub реMakeHypGeom()ре ре ре DimререTargetRngре RangeAsрере ре ре Dimреiре Asре LongреDim реx реAs реLongре ре ре Dimреjре Asре Integerрере ре ре Dimреyре Asре IntegerреDim реv реAs реIntegerре ре ре Dimреrре Asре Singleрере ре ре DimререCurrValре SingleAsреDim PrevValрере SingleAsрере ре ре DimререCalcStateре IntegerAsрере ре ре DimререRsltре SingleAsреApplication.ScreenUpdating ре= реFalseCalcState ре= реApplication.CalculationApplication.Calculation ре= реxlCalculationManualSet реTargetRng ре= реWorksheets("Таблицагипергеом.распр.").Range("A4:G1002")For реy ре= ре0 реTo ре2ре ре ре ре ре ре ре реFor реj ре= ре0 реTo ре1ре ре ре ре ре ре ре ре ре ре ре реFor реi ре= ре1 реTo ре999ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реv ре= реIIf(y ре= ре0, ре10, реIIf(y ре= ре1, ре50, ре200))ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реr ре= реIIf(j ре= ре0, ре0.9, ре0.99)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реPrevVal ре= ре0ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCurrVal ре= ре0For реx ре= ре1 реTo реvре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реOn реError реResume реNextре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реPrevVal ре= реPrevVal ре+ реWorksheetFunction.HypGeomDist(x ре- ре1, реv, реTargetRng.Cells(i, ре1) ре* ре3000, ре3000)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCurrVal ре= реCurrVal ре+ реWorksheetFunction.HypGeomDist(x, реv, реTargetRng.Cells(i, ре1) ре* ре3000, ре3000) ре+ реIIf(x ре= ре1, реPrevVal, ре0)On ErrorререGoToре0ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре Ifре реCurrVal>= rре ThenреRslt ре= реx ре- ре1 ре+ ре(r ре- реPrevVal) ре/ ре(CurrVal ре- реPrevVal)TargetRng.Cells(i, ре2 ре+ реj ре+ реy ре* ре2) ре= реIIf(Rslt< ре0, ре0, реRslt)Exit реForре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реEnd реIfIf реx ре= реv реThen реTargetRng.Cells(i, ре2 ре+ реj ре+ реy ре* ре2) ре= реvDoEventsре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реNext реxре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реIf реj ре= ре0 реThenре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реSelect реCase реyре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре0: реApplication.StatusBar ре= ре"Идетрасчетдля реr=0,9 реи реv=10: ре" ре& реRound(i ре/ ре10, ре1) ре& ре"%"ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре1: реApplication.StatusBar ре= ре"Идетрасчетдля реr=0,9 реи реv=50: ре" ре& реRound(i ре/ ре10, ре1) ре& ре"%"ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре2: реApplication.StatusBar ре= ре"Идетрасчетдля реr=0,9 реи реv=200: ре" ре& реRound(i ре/ ре10, ре1) ре& ре"%"End реSelectElseре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре SelectререCaseреyре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре0: реApplication.StatusBar ре= ре"Идетрасчетдля реr=0,99 реи реv=10: ре" ре& реRound(i ре/ ре10, ре1) ре& ре"%"ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре1: реApplication.StatusBar ре= ре"Идетрасчетдля реr=0,99 реи реv=50: ре" ре& реRound(i ре/ ре10, ре1) ре& ре"%"ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCase ре2: реApplication.StatusBar ре= ре"Идетрасчетдля реr=0,99 реи реv=200: ре" ре& реRound(i ре/ ре10, ре1) ре& ре"%"End реSelectEnd реIfре ре ре ре ре ре ре ре ре ре ре реNext реiре ре ре ре ре ре ре реNext реjNext реyре ре ре Application.StatusBarрере= реFalseре ре ре Application.Calculationрере= реCalcStateEnd реSubSub реMakePoisson()Dim TargetRngрере RangeAsрере ре ре Dimреiре Asре Longрере ре ре Dimреxре Asре LongреDim реj реAs реIntegerре ре ре Dimреyре Asре Integerрере ре ре Dimреvре Asре IntegerреDim реr реAs реSingleре ре ре DimререCurrValре SingleAsрере ре ре DimререPrevValре SingleAsреDim CalcStateрере IntegerAsрере ре ре DimререRsltреAs Singleрере ре ре Application.ScreenUpdatingрере= реFalseре ре ре CalcStateре=ре реApplication.Calculationре ре ре Application.Calculationрере= реxlCalculationManualре ре ре реSet реTargetRng ре= реWorksheets("Таблицараспр.Пуас.").Range("A4:G1002")For реy ре= ре0 реTo ре2ре ре ре ре ре ре ре реFor реj ре= ре0 реTo ре1ре ре ре ре ре ре ре ре ре ре ре реFor реi ре= ре1 реTo ре999ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реv ре= реIIf(y ре= ре0, ре10, реIIf(y ре= ре1, ре50, ре200))r ре= реIIf(j ре= ре0, ре0.9, ре0.99)For реx ре= ре1 реTo реvре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реCurrVal ре= реWorksheetFunction.Poisson(x, реTargetRng.Cells(i, ре1) ре* реv, реTrue)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реPrevVal ре= реWorksheetFunction.Poisson(x ре- ре1, реTargetRng.Cells(i, ре1) ре* реv, реTrue)If CurrValрере реr Then>=рере ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реRslt ре= реx ре- ре1 ре+ ре(r ре- реPrevVal) ре/ ре(CurrVal ре- реPrevVal)ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реTargetRng.Cells(i, ре2 ре+ реj ре+ реy ре* ре2) ре= реIIf(Rslt ре< ре0, ре0, реRslt)Exit реForEnd реIfре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реIf реx ре= реv реThen реTargetRng.Cells(i, ре2 ре+ реj ре+ реy ре* ре2) ре= реvDoEventsре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реNext реxIf реj ре= ре0 реThenSelect реCase реyCase ре0: реApplication.StatusBar ре= ре"Идетрасчетдля реr=0,9 реиv=10: ре" ре& реRound(i ре/ ре10, ре1) ре& ре"%"Case ре1: реApplication.StatusBar ре= ре"Идетрасчетдля реr=0,9 реиv=50: ре" ре& реRound(i ре/ ре10, ре1) ре& ре"%"Case ре2: реApplication.StatusBar ре= ре"Идетрасчетдля реr=0,9 реиv=200: ре" ре& реRound(i ре/ ре10, ре1) ре& ре"%"End реSelectре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реElseSelect реCase реyCase ре0: реApplication.StatusBar ре= ре"Идетрасчетдля реr=0,99 реиv=10: ре" ре& реRound(i ре/ ре10, ре1) ре& ре"%"Case ре1: реApplication.StatusBar ре= ре"Идетрасчетдля реr=0,99 реиv=50: ре" ре& реRound(i ре/ ре10, ре1) ре& ре"%"Case ре2: реApplication.StatusBar ре= ре"Идетрасчетдля реr=0,99 реиv=200: ре" ре& реRound(i ре/ ре10, ре1) ре& ре"%"End реSelectре ре ре ре ре ре ре ре ре ре ре ре ре ре ре реEnd реIfре ре ре ре ре ре ре ре ре ре ре реNext реiNext реjре ре ре реNext реyре ре ре Application.StatusBarре=ре реFalseре ре ре Application.Calculationрере= реCalcStateEnd реSubSub реMakeRndTable()ре ре ре DimререTargetRngре RangeAsреDim RndRngрере RangeAsрере ре ре DimререRndSheetреAs Worksheetрере ре ре DimререCalcStateре IntegerAsреDim реi реAs реLongре ре ре Dimреjре Asре Longрере ре ре Application.ScreenUpdatingрере= реFalseре ре ре CalcStateре=ре реApplication.Calculationре ре ре Application.Calculationрере= реxlCalculationManualре ре ре реSet реTargetRng ре= реWorksheets("Генераторслучайныхчисел").Range("A1:A3000")Set реRndRng ре= реWorksheets("Генераторслучайныхчисел").Range("B1:B3000")Set реRndSheet ре= реWorksheets("Таблица реслучайных речислел")ре ре ре реFor реj ре= ре1 реTo ре3000ре ре ре ре ре ре ре реRandomizeре ре ре ре ре ре ре реFor реi ре= ре1 реTo ре3000ре ре ре ре ре ре ре ре ре ре ре реTargetRng.Cells(i) ре= реiRndRng.Cells(i) ре= реRndре ре ре ре ре ре ре реNext реiWorksheets("Генераторслучайныхчисел").Sort.SortFields.ClearWorksheets("Генераторслучайныхчисел").Sort.SortFields.Add реKey:=Range("B1:B3000"), реSortOn:=xlSortOnValues, реOrder:=xlAscendingWith реWorksheets("Генератор реслучайных речисел").Sortре ре ре ре ре ре ре ре ре ре ре ре.SetRange реRange("A1:B3000")ре ре ре ре ре ре ре ре ре ре ре ре.Applyре ре ре ре ре ре ре реEnd реWithре ре ре ре ре ре ре реTargetRng.CopyWith реRndSheetре ре ре ре ре ре ре ре ре ре ре ре.Activateре ре ре ре ре ре ре ре ре ре ре ре.Cells(1, реj).Selectре ре ре ре ре ре ре ре ре ре ре ре.Pasteре ре ре ре ре ре ре реEnd реWithIf реj реMod ре30 ре= ре0 реThenре ре ре ре ре ре ре ре ре ре ре реApplication.StatusBar ре= ре"Генерациятаблицыслучайныхчисел: ре" ре& реj ре/ ре30 ре& ре"%"DoEventsEnd реIfре ре ре реNext реjре ре ре Application.StatusBarре=ре реFalseре ре ре Application.Calculationрере= реCalcStateEnd реSubПриложение 4Результаты реимитационного ремоделированияТаблица ре1Статистика для МННМФ, реУННМФ и БННМФ*№п/пВар-т1МННМФМинМаксСреднее№п/пВар-тНБНУ0,76020,83420,801412НББ0,79050,81530,80393НГ0,78800,81484НСП0,79530,81935НБСД6НБНД7НСБ0,78570,81658НСНД0,77690,83479НССУ0,755910НБП11УННМФМинМаксСреднее№п/пНБНД0,46210,53530,499612НБСД0,46530,55250,50050,80413НБП0,47050,52260,80424НББ0,48240,52335НСП6НСБ0,80497НССД0,45440,54210,80538НСНД0,45600,55270,85100,80549НГ0,48380,79040,82000,805410НСНУНССД0,77760,83670,80561112НБСУ0,77710,83790,805813НСНУ14СБСА15НБСО0,79450,823816СССА0,79000,827117НБНО0,797618НСНО19Вар-тБННМФМинМаксСреднееНСНМ0,00660,02160,01282НССМ0,00480,02180,01290,50103НБНМ0,00460,01990,01320,50254НБСМ0,00790,02130,01325НСНУ0,00840,03470,02336НСБ0,01530,03370,02330,50307НССД0,00650,04710,02340,50328НСНД0,00650,04020,02350,52460,50349НББ0,01220,03250,02350,45890,55440,503610НГ0,00720,03580,0235НССУ0,45190,54470,504111НБП0,01150,03600,023512НБСУ0,47530,56160,504112НСП0,01070,03460,023713НБНУ13НССУ0,01090,03570,024014ССНМ14НБНУ0,01010,04280,02430,807915СБНМ0,58620,61090,599015НБСД0,01040,04170,02440,808016СБСМ0,58940,61220,599616НБСУ0,00830,04210,02460,82590,808617СССМ0,58120,61270,599717НБНД0,01390,04040,02480,79480,82400,809118НБНМ0,58600,61390,604918СБНМ0,03120,04260,0359НССО0,79740,82310,810119НБСМ0,59690,61380,605319СССМ0,02810,04210,036020СБНА0,78570,82520,810320НССМ0,59430,62380,606020СБСМ0,02990,04490,036021ССНА21НСНМ21ССНМ0,03120,04430,036522НСНА22НБНО22НБНО0,40920,43110,418723НБСА0,78860,83830,813423НБСО0,61500,64920,631923НБСО0,39900,43310,418724НБНА0,78980,83160,813724НССО0,62040,64440,632224НССО0,41100,43710,422125НССА0,78840,83820,814025НСНО0,61980,64750,632425НСНО0,40980,43570,422226СССМ0,82060,84050,828726НБНА0,62190,66090,637526СБСА0,41710,44190,428627СБНМ0,82320,83910,829327НССА0,62060,65990,637927СБНА0,41740,44230,430328ССНМ0,81990,84010,829528НБСА0,61990,66710,637928НБСА0,41550,44120,430829СБСМ29НСНА29НБНА0,40890,44510,431030НБНМ30СССА30СССА0,42230,44240,432731НССМ0,82650,83890,832731СБНА0,61070,65590,639031ССНА0,42110,44270,432932НБСМ0,82750,83900,833132СБСА0,62310,66330,639932НССА0,41550,44550,434033НСНМ0,82810,83940,833133ССНА0,62280,66600,640333НСНА0,41920,44480,4341*0,75060,77200,76980,79030,79540,78550,82170,82380,83750,83520,84540,82660,83100,83820,83620,84020,80460,80480,80600,80680,81090,81270,82950,83250,48590,48490,46860,58910,59770,61440,61720,61640,51710,52810,54270,60710,61820,64050,65660,66400,50250,50290,50710,59820,60700,63180,63800,6389Мин ре – ре минимальное ре отклонение теоретической ре вероятности ре от ре фактической ре в ре серии ре из ре 100 ре прогонов ре имитационной ремодели.Макс ре – ре максимальное ре отклонение теоретической ре вероятности ре от ре фактической ре в ре серии реиз ре 100 ре прогонов ре имитационной ремодели.Среднее ре – ре среднее ре отклонение теоретической ре вероятности ре от ре фактической ре в ре серии ре из ре 100 ре прогонов ре имитационной ремодели.

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

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