Империя зла

(на воре шапка горит)

 

Живый на Небесех посмеется им и

Господь поругается им. Тогда воз-

Глаголет  к  ним  гневом  Своим  и

яростию Своею смятет я (Пс 2,4-5)

 

 

«В 2005 году президент США Джордж Буш подписал "Закон об учете актов глобального антисемитизма". Этот закон обязывает американский Госдепартамент преследовать по всему миру (!) тех, кто будет обвинен по 14 пунктам этого закона.

Соединенные Штаты, таким образом, на весь мир озвучили те главные преступления мирового Сиона, о которых отныне запрещено публично высказываться под страхом уголовного преследования с их стороны. Но тем самым они и саморазоблачились, тем самым и показали всему миру то, к чему действительно причастны и расплаты за что они более всего боятся. Это очень яркое, очень красноречивое саморазоблачение. Не зря на Руси говорят: на воре шапка горит.
Валерий Васильевич ХАТЮШИН, член Союза писателей России»1.

 

Подоплека этого закона — вывести «из под удара» всемирную жидовскую мафию, центром которой являются США, защитить своих хозяев и кормильцев. Фактов преступной деятельности Ротшильдов и иже с ними более чем достаточно даже в открыто печати. Необходимо всего лишь подытожить содеянное «хозяевами» жизни рода человеческого.

Бухгалтерская отчётность — две весовые чаши: на одной активы, на другой обязательства и собственный капитал. Применительно к данной теме обязательства суть то, что должно быть в обществе нормальных людей, руководствующихся заповедями Творца; капитал — плод трудов «собственника», руководствующегося заповедями Творца или же своими корыстными устремлениями; активы суть методы, использованные «собственником», за истекший период отчетности. В идеале, должно быть равновесие этих чаш, если заповеди Творца не были преданы забвению.

Трудность здесь видится лишь в одном — неизвестны цифры обязательств, данных нам, живущим на земле, свыше. Автору удалось решить эту задачу2 (желающие узнать как это делается отправляют заказ по адресу Этот e-mail адрес защищен от спам-ботов, для его просмотра у Вас должен быть включен Javascript ; жители Екатеринбурга обращаются в книжный магазин издательства «Уральский рабочий»на ул. Тургенева). Поскольку  «собственник» нам известен, Джордж Буш велегласно озвучил имя его,  неизвестны цифры обязательств вычисляем, обращаясь к еврейскому календарю (табл. № 1).

Таблица № 1

Событие	Понедельник	Вторник	Среда	Четверг	Пятница	Суббота	Воскресенье	Праздники и полупраздники	Дни поста	Кануны праздников	сумма
значение	0,0802594	0,0808357	0,0808357	0,0791066	0,0815562	0,14221902	0,077233	0,21801	0,062248	0,097695	1
код	1	2	3	4	5	6	7	10	12	14

 

Очевидно, что следует просто подсчитать сколько «событий» имело место быть за «отчетный» период и сравнить их относительные доли со соответствующими значениями во второй строке таблицы (календарные доли). В идеале, для всех событий эти разности должны быть равны нулю («чаши весов» уравновешаны). Ненулевой баланс своим проявлением может быть обусловлен только Произволом «собственника», коим является, с подачи Дж. Буша, Иудей. Активы последнего выделены желтым цветом. Оные суть дни жертвоприношений.

Как и Юрий Мухин, автор любит цифры из-за их жесткости и конкретности1 и здесь сразу же возникает еще одна проблема — оценка точности выполненных вычислений. Повторить какие-либо исторические события мы не в состоянии, а посему вынуждены прибегнуть к моделированию этих событий (как это делается описано в конце статьи). В самом общем виде задача эта решается «случайным» набором событий еврейского календаря за большой период времени. Произвол Иудейский, то бишь «собственника», должен в этих  событиях отсутствовать — Доля Превышающих [своё календарное значение] Событий должна быть равна нулю (ДПС = 0).

Нижеследующий текст может быть опущен, кому он не интересен и не нужен, и сразу перейти к результатам моделирования. 

Случайных чисел для решения этой задачи требуется очень много и для этого удобнее всего воспользоваться их генерированием встроенной компьютерной программой random_number(u)2. Генерация случайных чисел с требуемым законом распределения является ключевым элементом статистического моделирования, широко применяемого во многих задачах математики, физики, исследования операций.

Встроенная подпрограмма random_seed(put=seed) служит для установки генератора;

call random_number(u) возвращает равномерно распределенное случайное число, большее либо равное 0 и меньшее 1[см. ссылку⁽²⁾].

call system_clock(count)                      !Считывание системных часов

seed=count                                          !Запись в массив установки

call random_seed(put=seed);                !Задание установки датчика

call random_number(u);                        !Формирование случайных чисел

 

При использовании затравки генератора от показания системных часов результаты счета невоспроизводимы (см. «Ю.И. Рыжиков» гл. 9.3, с. 85), что нам и требуется для многократного «моделирования».

Генерируемая последовательность чисел, в данном случае, является всего лишь псевдослучайной. Убедиться в этом достаточно просто — в цикле обращаемся к пронумерованному списку чисел-кодов неких событий, номера которых выбираем по формуле u*m. Здесь m  суть количество чисел-кодов списка. В данном случае — 3279. Отобранные таким способом события (их числа-коды) представлены в таблице № 2

 

Разительное отличие данных в столбце «сycle» от результата отбора чисел-кодов с интервалами от 40 до 1 секунды имеет не вызывающее сомнений объяснение — показания «системных часов» не «успевают» измениться за время обращения программы к заданному списку событий. Очевидный выход из этой ситуации — «принудительное» изменение показания «системных часов» на каждом шаге цикла. Добиваемся этого изменением «записи в массив установки». Последняя принимает следующий вид: seed=count*u. Результаты этой модификации «генератора случайных чисел» приведены в шестом столбце (cycle^*).

Приемлемость такого способа генерации случайных чисел проверяем  на примере вычисления  числа π методом  Монте-Карло. Простейший и наглядный вариант такого расчета приведен, например, в работе2.  Суть расчета: в квадрат со стороной a = 2 R вписываем круг радиусом R и наугад ставим точки внутри квадрата. Вероятность того, что точка попадет в круг, равна отношению площадей круга и квадрата.  Их отношение находим из подсчета точек попавших в круг и квадрат соответственно.

интервал ► 30 сек 5сек 1 сек cycle cycle* 1 756 285 2427 1489 796 2 154 2842 1674 1489 1151 3 2371 1407 2106 1489 3122 4 1549 615 2064 1489 1385 5 1260 1693 1322 1080 393 6 2901 1395 1064 1080 1688 7 1776 827 999 1080 2540 8 1346 460 603 1080 2087 9 354 1530 315 1080 2987

 

  Строго говоря, количество «случайных» точек в квадрате и круге при таком методе испытаний не должно зависеть от «линейных» размеров R и а, так как их отношение всегда константа.

Для «единичного» квадрата, его сторона а = 1, и круга диаметром d = 1 имеем очевидное соотношение их площадей, в котором «линейным» размерам этих геометрических фигур нет места: S_кр/S_кв = π/4. Из этого отношения следует, что число π определяется только отношением числа точек, попавших в «круг», точнее в сегмент его, к общему числу точек выделенной части квадрата. Результат вычислений определяется в данном случае лишь описанием переменных: real или double precision.

Для проверки действенности «принудительного» изменения показания «системных часов» на каждом шаге цикла я предлагаю фортран-программу. Координаты точек,  r1 и r2, задаются случайными числами u*0.5.  

 

 

program pimk

integer count

integer,dimension(1)::seed

double precision::u,r,r1,r2,g

real,dimension(10)::a

mu=10000

s=0.

dj:         do j=1, 10

 

mo=0; md=0;   u=1

1    continue;

call system_clock(count)   !Ryzhikov Yuri Ivanovich. "Programming Fortran powerstation for engineers. How to".

seed=count*u

call random_seed(put=seed);

call random_number(u);

r1=u*0.5;

di:       do i=1, mu; call random_number(u3);               ! cyclic pause for "call random_number(u)"

end do di

call system_clock(count)

seed=count*u*u3

call random_seed(put=seed);

call random_number(u);

r2=u*0.5

r=sqrt(r1*r1+r2*r2)

if(r>=0.5)then

md=md+1

else

mo=mo+1

end if

if(mo+md>=330000) go to 2

if(mo+md<330000) go to 1

 

2         continue;

print*,' mo =',mo,' md =',md,' mo+md =',mo+md

g=real(mo)/real(mo+md); print*,' g =',g

pi=g*4; print*,' pi =',pi

a(j)=pi

s=s+pi

end do dj

s=s/10; sa=0

dn:            do n=1, 10

sa=sa+(s-a(n))**2

end do dn

sa=(sa/9)**.5

print*;print 3,s,sa

3          format(1x,' pi =',f12.4,2x,' sa =',f12.4)

end pimk

 

 

 

 

Таблица № 3

 

 

 

 

Результаты вычислений для  seed=count и seed=count*u не требуют пояснений. Вариант seed=count*u*u3 — дополнительное воздействие на координату случайной точки r2. Для получения 1-го значения u3 введен единичный цикл «pause for «call random_number(u)» — «mu=1».

Аналогичные результаты вычислений в Excel, c использованием встроенной функции «СЛЧИС()», на порядок хуже приведенных в таблице № 2 (имеются в виду значения параметра «стандартное отклонение»).

 

 

 

 

Результаты моделирования

Таблица № 4

Размерность «первичного массива»:  g = 10
Пятница  памятная дата
Коды: 5, 6, 10=11, 12=13, 14
Параметры функции	Средние значения	Стандартные отклонения
A	8,00E-02	± 4,00E-02
k	5,00E-03	± 4,00E-04
m	6	6
невязка	0,001516

Аппроксимирующая «модельную» подборку событий [чисел-кодов еврейского календаря] для средних значений ДПС и их стандартных отклонений функция имеет : A*N/(N – m)*exp(-k*N).

Здесь N – количество событий в каждой «модельной» подборке событий.

Параметры этой функции (A, k и m) находили методом Гаусса-Зейделя из условия минимума суммы квадратов отклонений «модельного набора чисел-кодов» событий (условно — «опыт») и данной «теоретической» функции.

Длительность паузы между «случайными» числами задавалась граничным значением параметра цикла:  mu = 1000.

Зная величины средних значений ДПС и их стандартные отклонения мы можем теперь «оценить» труды «собственника», коим является иудей (см. выше закон Дж. Буша).

 

Президенты США

 

1. Джордж Вашингтон:  †14 декабря 1799 — 16 кислева, 6
2. Джон Адамс:  †04 июля 1826 — 29 сивана, канун Рош Ходеш, 2
3. Томас Джефферсон: †04 июля 1826 — 29 сивана, канун Рош Ходеш, 2
4. Джеймс Мэдисон: †28 июня 1836 — 13 тамуза, канун полупраздника, 2
5. Джеймс Монро: †04 июля 1831 — 23 тамуза, пост скорби, 1
6. Джон Куинси Адамс: †28 февраля 1848 — 24 адар I, 1
7. Эндрю Джексон: †08 июня 1845 — 03 сивана, 7
8. Мартин Ван Бюрен: †24 июля 1862 — 26 тамуза, пост скорби, 4
9. Уильям Гаррисон: †04 апреля 1841 — 13 нисана, 1

http://jurbookclub.at.ua/blog/prokljatie_prezidentov_ssha/2011-03-11-7 В истории Соединенных Штатов Америки существует цепочка трагических событий, связанных с  преждевременной кончиной Президентов. Каждый американский Президент, избранный в год оканчивающийся на цифру «0» и делящийся на 20, умирает (преимущественно насильственной смертью) до окончания срока президентских полномочий. Связывают эту закономерность с проклятием Текумсе. Некогда умирающий индейский вождь племени шони (шауни) произнес свое страшное проклятие за нарушение белыми договора.  Естественно, что умирающий вождь, не вдавался в математические подсчеты и не строил алгоритмы трагических событий в судьбах президентов, но факт остается фактом - президенты, избранные в назначенное время, не доживали до конца своих полномочий. Начиная с первого колена (проклятие, по некоторым источникам, действует до седьмого колена) — Уильяма Генри Гаррисона, умершего через месяц после инаугурации, — все, президенты США, избранные или переизбранные в год, заканчивающийся на ноль, умирали в должности (своей смертью или от пули убийцы). Нарушили трагическую закономерность президенты США Рональд Рейган и Джордж Буш младший, но они в этом алгоритме смерти являлись восьмым и девятым коленом.

1. Джон Тайлер: †18 января 1862 — 17 швата, 6
2. Джеймс Полк: †15 июня 1849 — 25 сивана, полупраздник, 5
3. Закари Тейлор: †09 июля 1850 — 29 тамуза, канун Рош Ходеш, 2
4. Миллард Филлмор: 08 марта 1874 — 19 адара, канун полупраздника, 7
5. Франклин Пирс: †08 октября 1869 — 03 хешвана, 5
6. Джеймс Бьюкенен: †01 июня 1868 — 11 сивана, 1
7. Авраам Линкольн: †15 апреля 1865 (убит) — 19 нисана, полупраздник, 6
8. Эндрю Джонсон: †31 июля 1875 — 28 тамуза, пост скорби, 6
9. Улисс Грант: †23 июля 1885 — 11 ава, 4
10. Ратерфорд Хейс: †17 января 1893 — 29 тевета, канун Рош Ходеш, 2
11. Джеймс Гарфилд: †19 сентября 1881(убийство) — 25 элула, полупраздник, 1
12. Честер Артур: †18 ноября 1886 — 20 хешвана, 4
13. Гровер Кливленд: †24 июня 1908 — 25 сивана, полупраздник, 3
14. Бенджамин Гаррисон: †13 марта 1901 — 22 адара, 3
15. Гровер Кливленд (второй срок)
16. Уильям Мак- Кинли: †14 сентября 1901(убийство) — 01 тишрей, Рош Ашана, 6
17. Теодор Рузвельт: †06 января 1919 — 05 швата, 1
18. Уильям Тафт: †08 марта 1930 — 08 адара, полупраздник, 6
19. Вудро Вильсон: †03 февраля 1924 — 28 швата, полупраздник, 7
20. Уоррен Гардинг: †02 августа 1923 — 20 ава, 4
21. Калвин Кулидж: †05 января 1933 — 07 тевета, 4
22. Герберт Гувер: †20 октября 1964 — 25 хешвана, полупраздник, 6
23. Франклин Рузвельт: †12 апреля 1945 — 29 нисана, канун Рош Ходеш, 4
24. Гарри Трумэн: †26 декабря 1972 — 21 тевета, 2
25. Дуайт Эйзенхауэр: †28 марта 1969 — 09 нисана, 5
26. Джон Кеннеди: †22 ноября 1963 (убит) — 06 кислева, канун полупраздника, 5
27. Линдон Джонсон: †22 января 1973 — 19 швата, 1
28. Ричард Никсон: †22 апреля 1994 — 11 ияра, 5
29. Джеральд Форд: †26 декабря 2006 — 05 тевета, 2
30. Джимми Картер: †
31. Рональд Рейган: †05 июня 2004 — 16 сивана, полупраздник, 6
32. Джордж Герберт Уокер Буш: †
33. Билл Клинтон: †
34. Джордж Уокер Буш: †
35. Барак Обама: †

 

http://jurbookclub.at.ua/blog/prokljatie_prezidentov_ssha/2011-03-11-7

Как уже отмечалось, легенда связывает это проклятие с вождём племени шауни Текумсе, которого победил Гаррисон.

Второе колено — Авраам Линкольн, избран в 1860, переизбран в 1864, убит в 1865;

Третье колено — Джеймс Гарфилд, избран в 1880, убит в 1881;

Четвёртое колено — Уильям Мак-Кинли, переизбран в 1900, убит в 1901;

Пятое колено — Уоррен Гардинг, избран в 1920, умер в 1923;

Шестое колено — Франклин Рузвельт, переизбран в 1940 и 1944, убит (официально — умер) в 1945;

Седьмое колено — Джон Кеннеди, избран в 1960, убит в 1963. (По теории седьмого колена это убийство было последним и в следующих случаях его ослабевшей силы не хватало для убийства).

Первым в списке нарушивших смертельную закономерность, стал Рональд Рейган (восьмое колено), избранный в 1980, выживший после покушения в 1981 году и благополучно покинувший должность в 1989, причем рана Р. Рейгана (задето лёгкое) в середине XIX века считалась смертельной.

Следующим президентом США, выпадающим из закономерности, стал Джордж Буш-младший (девятое колено). На президента в 2005 году в Грузии была совершена попытка покушения (бросили гранату), не увенчавшаяся успехом. Свой второй срок, завершившийся в январе 2009, Буш в должности президента, прожил благополучно.

 

 

 

Еврейский календарь

и памятные дни в истории США

 

.

Датам основополагающих, узловых исторических событий присущи дни седмицы понедельник «1» и четверг «4».  Памятные даты еврейского календаря выделены красным цветом.

http://ru.wikipedia.org/wiki/%D0%9F%D0%B5%D1%80%D0%B2%D1%8B%D0%B9_%D0%9A%D0%BE%D0%BD%D1%82%D0%B8%D0%BD%D0%B5%D0%BD%D1%82%D0%B0%D0%BB%D1%8C%D0%BD%D1%8B%D0%B9_%D0%BA%D0%BE%D0%BD%D0%B3%D1%80%D0%B5%D1%81%D1%81

Первый Континентальный конгресс, открылся 5 сентября 1774 (29 элула, Эрев Рош Ашана, 14, 1). В ходе съезда депутаты выработали ряд важных документов, намереваясь добиваться для колоний права самоуправления.

Было принято решение об объявлении торгового бойкота метрополии. Начиная с 1 декабря 1774 года (28 кислева, Ханука, 10, 4) была запрещена как покупка английских товаров, так и продажа американских товаров англичанам. Это решение было ответом на блокаду Бостона английским флотом

http://ru.wikipedia.org/wiki/%C4%E5%ED%FC_%ED%E5%E7%E0%E2%E8%F1%E8%EC%EE%F1%F2%E8_%D1%D8%C0

4 июля 1776 года (17 тамуза, пост скорби, 12,  4) — день независимости, считается днём рождения Соединенных Штатов как свободной и независимой страны.

http://www.usawebguide.info/flag.php

01 января 1776 года (09 тевета, 1) в Проспект-Хилле под Бостоном назначенный командующим Континентальной армией Джордж Вашингтон приказал армии поднять Union Flag.

http://ru.wikipedia.org/wiki/%D0%9A%D0%BE%D0%BD%D1%81%D1%82%D0%B8%D1%82%D1%83%D1%86%D0%B8%D1%8F_%D0%A1%D0%A8%D0%90

Конституция США была принята 17 сентября 1787 года (05 тишрей, 1) на Конституционном Конвенте в Филадельфии и впоследствии ратифицирована всеми тринадцатью существовавшими тогда американскими штатами. Считается первой в мире конституцией в современном понимании.

http://ru.wikipedia.org/wiki/%C2%E0%F8%E8%ED%E3%F2%EE%ED,_%C4%E6%EE%F0%E4%E6

Джордж Вашингтон — первый президент Соединённых Штатов Америки. Избран 30 апреля 1789 (04 ияра, 4)

 

http://ru.wikipedia.org/wiki/%D0%91%D0%B8%D0%BB%D0%BB%D1%8C_%D0%BE_%D0%BF%D1%80%D0%B0%D0%B2%D0%B0%D1%85_(%D0%A1%D0%A8%D0%90)

Поправки, которые закрепляют основные права и свободы человека и гражданина, вступили в силу 15 декабря 1791 года (19 кислева, 4).

http://sesii.net/militarysciene/3297-

В 5 часов 30 минут 16 июля 1945 г (06 ава, пост скорби, 12, 1) состоялось первое испытание атомного оружия. Ослепительная вспышка неестественно белого света прорезала предутреннюю мглу. Казалось, будто много солнц соединилось в одном и разом осветило полигон, позади которого четко обозначились горы.

 

http://ru.wikipedia.org/wiki/Атомные_бомбардировки_Хиросимы_и_Нагасаки

Атомные бомбардировки Хиросимы и Нагасаки (6 и 9 августа 1945 года, соответственно 27 ава, 1 и 30 ава, Рош Ходеш, 10, 4) — единственные в истории человечества два примера боевого использования ядерного оружия. Осуществлены Вооружёнными силами США на завершающем этапе Второй мировой войны (официально объявленная цель — ускорить капитуляцию Японии).

 

http://www.bolshoyvopros.ru/questions/33866-gde-i-kak-byla-spuschena-na-vodu-pervaja-atomnaja-podvodnaja-lodka.html

21 января 1954 года (17 швата, 4) в Гротоне, штат Коннектикут, была спущена на воду первая в мире атомная подводная лодка. Называлась "Наутилус". Эта же АПЛ первая побывала на Северном полюсе.

http://wsyachina.narod.ru/history/thermonuclear_bomb_2.html

1 марта 1954 года (26 адар I, 1) США провели первый термоядерный взрыв в новой серии ядерных испытаний „Замок“ — взрыв „Браво“, оказавшийся самым мощным взрывом в истории ядерных испытаний США.

http://www.calend.ru/event/4572/

Авианосец под названием «Enterprise» проект CVN-65 был заложен в феврале 1958 года, а спущен на воду 24 сентября 1960 года (18 тишрей, полупраздник, 10, 4).

http://www.usawebguide.info/flag.php

Дата принятия флага: 04.07.1960 (09 тамуза, 1)

Флаг официально утверждён 4. 08. 1960 (11 ава, 4)

 

Двенадцать событий из этого перечня как нельзя лучше иллюстрируют девиз сверхдержавы — «мы, иудеи, впереди планеты всей». Оставшиеся два, бомбардировка Хиросимы и Нагасаки, суть месть язычникам:  пост «каждый понедельник и четверг (их коды «1» и «4», соответственно) — в память разрушения храма, сожжения Торы и осквернения имени Бога»1. С учетом сказанного, при статистическом анализе исторических событий США понедельник и четверг суть памятные даты еврейского календаря.

 

 

 

 

Мемориальный список — Президенты США

(упокоение)

 

 

Еврейский календарь выявляет инициатора трагических событий, связанных с преждевременной кончиной Президентов. Оным является иудей. Статистический анализ представленного выше исторического материала с высокой вероятность свидетельствует о том. Суть этого анализа доступна каждому — она исключительно проста1. Ниже следующая таблица поясняет ее.

 

 

Таблица № 5

	1	2	3	4	5
понедельник	5	0,131579	0,080259		1,9501
вторник	3	0,078947	0,080836
среда	1	0,026316	0,080836
четверг	4	0,105263	0,079107		0,9939
пятница	2	0,052632	0,081556	0	0
суббота	8	0,210526	0,142219	2,5957	2,5957
воскресенье	2	0,052632	0,077233
праздники	3	0,078947	0,21801	0	0
	0	0	0	0	0
дни поста	2	0,052632	0,062248	0	0
	0	0	0	0	0
кануны памятных дат	8	0,210526	0,097695	4,2876	4,2876
	38	1	1	6,8833	9,8273
Округление				7	10

Цифры в первой колонке — количество событий, происшедших в дни седмицы и памятные даты еврейского календаря.

Колонка вторая — их относительные доли.

Колонка третья — календарные доли этих событий.

Колонка четвертая — «превышение» памятным событием своего календарного значения.

Колонка пятая — памятными датами считаем также понедельник и четверг и вычисляем для этих дней «превышения».

В самой нижней строке колонок 4 и 5 суммарное количество памятных событий, относительные доли которых превысили свои календарные значения. Эти цифры знаменуют Произвол Иудейский (ПИ).

Последний свидетельствует о том, что из 38 случаев кончины Президентов 7 и 10 пришлись на памятные даты еврейского календаря (соответственно колонки 4 и 5).

Реалистичность этих, последних, цифр оцениваем вычислением Доли Превышающих [свое календарное значение] Событий (ДПС) и сравнением её с «теоретическим» значением.

Опытные значения ДПС: 7/38 = 0,1842105 и  10/38 = 0,263158.

«Теоретические» значения ДПС вычисляем по формуле: A*N/(N-m)*exp(-k*N). В нашем случае N = 38; A = 0,08; m = 6  и k = 0,005. Стандартные отклонения для указанных параметров вычисляем по этой же формуле, при этом A = 0,04, m = 6 и k = 0,0004.

Для событий 4-й колонки опытное значение ДПС превышает расчетное значение в 1,5 раза. С вероятностью 0,866 ПИ — истина факта.

Для событий 5-й колонки опытное значение ДПС превышает расчетное значение в 2,1 раза. С вероятностью 0,964 ПИ — истина факта.

 

Относительно четырех Президентов можно дать совершенно однозначное заключение: Авраам Линкольн и Джон Кеннеди покусились на монополию Ротшильдов, печатавших денежные знаки;   Джеймс Гарфилд (ранен 02.07.1881 — 05 тамуза, шаббат, 6) и Франклин Рузвельт не «устроили» свое окружение внутренней и внешней политикой. Своих врагов иудей всегда приносит в жертву сатане[1] в особые, памятные дни еврейского календаря. Исключим эти события из списка «Президенты» и подвергнем его статистическому анализу: опытное значение ДПС превышает расчетное значение в 1,8 раза. С вероятностью 0,928 ПИ = 8 — истина факта. Суммарное значение ПИ = 8 + 4 = 12; ДПС =12/38 = 0,32 — третья часть Президентов ушла из жизни по воле иудея-жида (языки русский и церковно-славянский) 2.

  

 

Мемориальный список — астронавты США

(упокоение)

 

 

Таблица № 6

 

 

Таблица № 7

 

	1	2	3	4	5
понедельник	4	0,074074	0,080259		0
вторник	2	0,037037	0,080836
среда	4	0,074074	0,080836
четверг	2	0,037037	0,079107		0
пятница	7	0,12963	0,081556	2,596	2,596
суббота	14	0,259259	0,142219	6,3202	6,3202
воскресенье	1	0,018519	0,077233
				0,2274	0,2274
праздники	12	0,222222	0,21801	0	0
	0	0	0	0,6386	0,6386
дни поста	4	0,074074	0,062248	0	0
	0	0	0	0	0
кануны памятных дат	4	0,074074	0,097695	9,7822	9,7822
	54	1	1	10	10
Округление				10	10

Цифры в первой колонке — количество событий, происшедших в дни седмицы и памятные даты еврейского календаря.

Колонка вторая — их относительные доли.

Колонка третья — календарные доли этих событий.

Колонка четвертая — «превышение» памятным событием своего календарного значения.

Колонка пятая — памятными датами считаем также понедельник и четверг и вычисляем для этих дней «превышения» (иной вариант).

В самой нижней строке колонок 4 и 5 суммарное количество памятных событий, относительные доли которых превысили свои календарные значения. Эти цифры знаменуют Произвол Иудейский (ПИ).

Последний свидетельствует о том, что из 54 случаев кончины астронавтов 10 пришлось на памятные даты еврейского календаря (соответственно колонки 4 и 5).

Реалистичность этих, последних, цифр оцениваем вычислением Доли Превышающих [свое календарное значение] Событий (ДПС) и сравнением её с «теоретическим» значением.

Опытные значения ДПС: 10/54 = 0,18518519 для обоих случаев.

«Теоретические» значения ДПС вычисляем по формуле: A*N/(N-m)*exp(-k*N). В нашем случае N = 54; A = 0,08; m = 6  и k = 0,005. Стандартные отклонения для указанных параметров вычисляем по этой же формуле, при этом A = 0,04, m = 6 и k = 0,0004.

Для событий 4-й колонки опытное значение ДПС превышает расчетное значение в 1,6 раза. С вероятностью 0,89 ПИ — истина факта.

Для событий 5-й колонки опытное значение ДПС превышает расчетное значение только в 1,2 раза.

Такое расхождения значений ДПС для этих двух вариантов расчета имеет  единственное объяснение — не полный список. «”Кремация” экипажа Гриссома была массовым убийством… Если это не было запланированным убийством, то почему правительственные агенты так оперативно обыскали дом Гриссома даже до того, как о пожаре стало известно? Почему они конфисковали все его личные бумаги? Почему его дневник и личные документы с надписью «Аполлон» на обратной стороне не были возвращены его вдове?»1.  Убийство экипажа Гриссома стало также причиной гибели Томаса Бэрона, его жены и падчерицы в апреле 1967 года. Не избежала этой участи и жена Эдварда Уайта (Пэт Уайт). И это не все погибшие из числа причастных в какой-то мере к этой ”кремации”.

«…ЦРУ, чтобы защитить свой многомиллиардный доход, безнаказанно убивает трех астронавтов на стартовой площадке 34 и организует “несчастные случаи” еще для восьмерых. Здесь обвиняемой стороной является правительство, и ему [ЦРУ] все сходит с рук. Ему все прощается. Видимо, поставленная цель и впрямь оправдывала средства» (Ральф Рене).

 

 

Мемориальный список — космонавты СССР (России)

(упокоение)

 

Таблица № 8

 

 

Таблица № 9

	1	2	3	4	5
понедельник	9	0,12857143	0,08025937		3,3818
вторник	2	0,02857143	0,08083573
среда	5	0,07142857	0,08083573
четверг	6	0,08571429	0,07910663		0,4625
пятница	5	0,07142857	0,0815562	0	0
суббота	13	0,18571429	0,14221902	3,0447	3,0447
воскресенье	7	0,1	0,07723343
праздники	14	0,2	0,218012	0	0
	0	0	0	0	0
дни поста	4	0,05714286	0,06224784	0	0
	0	0	0	0	0
кануны памятных дат	5	0,07142857	0,09769452	0	0
	70	1	1	3,0447	6,889
Округление				3	7

Для событий 4-й колонки опытное значение ДПС превышает расчетное значение в 0,4 раза. С вероятностью 0,311 ПИ не является истиной факта.

Для событий 5-й колонки опытное значение ДПС превышает расчетное значение в 0,7 раза. С вероятностью 0,516 ПИ не является истиной факта.

Из этого совсем не следует, что российские жиды лучше американских. Да нет. Вл. Даль (†04.10.1872 — 14 тишрей, Эрев Суккот, 14,3): «Грабежи есть, воровство есть, а воров нет.

Даты утверждения основополагающих законов Государства и даты вступления оных в силу выявляют вселенского душегуба — иудея. От Иоанна святое благовествование: «Ваш отец диавол; и вы хотите исполнять похоти отца вашего. Он был человекоубийца от начала и не устоял в истине, ибо нет в нем истины…» (глава 8, стих 44). Бухгалтерские цифры — свидельство тому (см. Табл. № 10).

 

 

 

 

 

 

 

 

 

 

 

 

Таблица № 10                                              Плод трудов российского «собственника» — его капитал

 

Результат математической обработки колонки цифр «код события»: семь из 29 событий (четвертая часть) с вероятностью 0,928 — плод «творчества» иудея. Его «капитал» свидетельствует о том.

Следует отметить, что день провозглашения независимости России (п. 24) особый случай, и в сакральном плане даже исключительный — в этот день умер Механем Мендл Шнеерсон, последний любавичский ребе (жидовский князь, мессия) о они, российские жиды-иудеи, объявили всему еврейскому миру о своей безоговорочной власти над покоренной ими Россией: все рычаги власти в их руках, включая религиозную1. И с американскими, и с английскими жидами достигнут консенсус. «Учитель» может быть спокойным — их власть и независимость от выкрестов и гоев безмерны: СПИД, наркомания, алкоголизация и масонизация* России абсолютны. Конец ее очевиден.

Чтобы убедить читателя в том, что приведенные в таблице № 10 события не являются результатом преднамеренной подборки исторических фактов, автор обратился с сообщению «Государственные символы России» (С.В. Синягин. (С.В. Синягин. http://www.Politika.su/gos/simv.html). События, имеющие непосредственное отношение к России, отражены в Таблице № 11.

 

Таблица № 11

 

Результат математической обработки колонки цифр «коды»: восемь из 31 событий (более четверти: ПИ = 8; ДПС = 0,26) с вероятностью 0,943 — плод «творчества» иудея.

 

Примечательно откровение Главного раввина России Берл Лазара. Как пишет газета «еврейское слово>> (№ 46, 2005 г.), в своей речи он, в частности, сказал: «Россия знала немало революций, но самая мирная, самая тихая и самая эффективная — это революция, которую совершили посланники Хабада»1. Берл Лазар не отрицает, что он вместе со своей паствой тихой сапой фактически захватил власть в России. Берл Лазара резюме: «За последние два года число вернувшихся евреев превысило число уехавших!» Это значит, что с «тихой революцией» Израиль начал «тихую колонизацию России».

Двойное гражданство, отмена визового режима, в котором абсолютно не заинтересованы русские, только способствует колонизации России Израилем.

Статистический анализ исторических фактов свидетельствует, что эта «революция» является результатом борьбы всемирного жида-иудея со всем остальным родом человеческим. Хабадники только ухватили лакомый кусок — Россию. Оказались проворнее кагальных талмудистов. Таблица № 12 свидетельствует, что непримиримая борьба жида с Россией началась задолго до того, как объявилось еврейство сектантское, хасидское.

 

Таблица № 12                                                          События, потрясшие Россию

Замечание относительно нашествий Чингиз-хана и Батыя: были жиды в Китае [А.А. Меляховецкий. «Энциклопедия заблуждений. Евреи». М.: ООО «Издательство «ЭКСМО»; Донецк: ЧП «Издательство СКИФ», 2004 г., с. 279, 391], а сам Китай под власть монголов [Уинтл, Джастин.: «История Китая». Пер. с англ. М.Д. Гольдовской. М.: АСТ, Астрель, 2008; с. 125-140].

 

 Исторические факты свидетельствуют, что масонский  революционный лозунг «Мы наш, мы новый мир построим» иудеи воплотили в жизнь. Не только Европа и США, но  теперь уже и Россия под их полным контролем.

«Российский премьер (иудей-жид), экс-президент и кандидат в Президенты России Владимир Путин за время своего пребывания у власти создал империю стоимостью $130 млрд. Об этом пишут британская газета The Sunday Times и чешская Lidov'e noviny. Последняя отдала так называемому «клану Путина» первое место в рейтинге богатейших семей мира.

По данным изданий, состояние российского премьера и его родных превышает $130 млрд ., что на $56 млрд. больше активов официального лидера рейтинга журнала Forbes мексиканского магната Карлоса Слим Элу - владельца коммуникационной индустрии общей стоимостью в $74 млрд.

Отдельно отмечается, что компании, которые являются собственностью «клана», не принадлежат государству, но голос Путина является решающим как в административных, так и в финансовых вопросах.

Издания добавляют, что Путин в течение всего своего пребывания у власти успешно совмещал политическую деятельность с предпринимательской. Он сумел создать финансовую империю, к управлению которой привлек большую часть родственников и друзей. В семейное дело входят племянники Путина Михаил Путин и Михаил Шеломов, жена Владимира Путина Людмила, его брат Игорь, каждый из которых имеет непосредственное отношение к крупным финансовым структурам (достаточно вспомнить хотя бы банк «Россия»).

Чешский источник подчеркивает, что все родственники Путина процветают во всем, что бы не сделали.

По словам издания, одной из причин решения Путина вновь баллотироваться в Президенты стало его стремление сохранить контроль над созданной им империей, позволяющий также диктовать свои условия крупнейшим СМИ, независимо от того, принадлежат они государству или частным лицам. Об этом сообщает ТСН.ua»1.

 

Таблица № 13.

 

Смерти остальных журналистов группы [Ж] составителями квалифицированы как заказные убийства, связанные с исполнением последними своих профессиональных обязанностей. Оные суть:

1) Дмитрий Крикорьянц, 2) Елена Ткачёва, 3) Дмитрий Холодов, 4) Фархад Керимов, 5) Надежда Чайкова, 6) Нина Ефимова, 7) Лариса Юдинf, 8) Владимир Яцина, 9) Игорь Домников, 10) Валерий Иванов, 11) Владимир Сухомлин, 12) Юрий Щекочихин, 13) Пол Хлебников, 14) Максим Максимов, 15) Магомед Варисов, 16) Анна Политковская, 17) Магомед Евлоев, 18) Тельман Алишаев, 19) Анастасия Бабурова, 20) Наталья Эстемирова, 21) Эдуард Маркевич.

Профессиональное исполнение обязанностей журналистом — «смерть» для жида. Не обязательно физическая. Вывести оного на «чистую воду» — залог душевного здоровья общества. И чтобы уберечь свою личину, жид покупает не только СМИ, но жизни тех, кто эту маску хочет снять с него. 21 трагический случай говорит о том, что не все в России шабесгои*, хотя и празднуют жиды вселенский шаббат (покой) — Европа вся в руках жидов американских и Россию дотаптывают.

С учетом вышесказанного, указанные случаи (21) насильственной смерти журналистов —  «творчество» жида. Оставшиеся 39 печальных событий, подвергнем статистическому анализу по методике1. Иудейский произвол для последних: ПИ = 10. Итоговое значение Доли Превышающих [свое календарное значение] Событий: ДПС = (21+10)/60 = 0,52. То есть, из перечня убийств [Ж]2 каждый второй   журналист ушел из жизни по воле жида.

 

«Прекрасна в еврее лихая повадка

С эпохой кишеть наравне.

Но страсть у еврея - устройство порядка

В чужой для еврея стране».

Игорь Губерман

 

Все верно, если слово «еврей» заменить на «жид», «иудей». «Устройство [своего] порядка» иудей приурочил не просто к памятным датам, но еще и «ударил» по истории ХХ века в седмичный и юбилейные, особо им чтимые пятидесятые, годы** еврейского календаря (см. таблицу № 12). Знаменательные события ХХ века, такие как гибель Российской империи, расцвет коммунизма, мировые войны и развал  Советской империи связаны единой невидимой нитью — идеей всемирного господства иудея (Айвор Бенсон)3. В русском переводе «Фактор сионизма. Влияние евреев на историю ХХ столетия» английское «Impact - удар» представлено неверно — «влиянием».

Пострадала от иудея не только Россия. Революционные события в мире и, в частности, в Европе привели в Германии к власти Адольфа Гитлера. Зададимся вопросом — кто же явился инициатором  сего и «Нюрнберга-1» в том числе? Ведь вроде бы все ясно — антисемитизм предвоенной Германии ХХ века у всех на слуху и открытой демонстрацией его явилась «Хрустальная ночь». Так что «Нюрнберг-1» только объявил виновников геноцида? Да нет же, он истинного виновника всего безобразия ХХ века ловко спрятал причитаниями  о жертвах «нацизма». Доказательства нужны? Политика Германии тех лет4.

 

 

 

 

Таблица № 14.                                               Политика Германии: инициаторы и власть (ХРОНОС).

 

 

Замечание. Из перечня событий «Германия в XX веке. ХРОНОС» взяты только относящиеся непосредственно к Германии-«инициатору». События типа:

1921.05.02 Во Франции проводится мобилизация в армию для оккупации Рурской области в Германии или

13.11.1918 Советское правительство объявляет об аннулировании Брестского мирного договора во внимание не принимались.

Формальная математическая обработка совокупности кодов таблицы № 14 свидетельствует с вероятностью «1», что примерно пятая часть этих событий является результатом жидовского «творчества» («Превышение» = 17). Выделим события данной таблицы, суть которых документированное насилие (13 событий, выделены полужирным шрифтом). Все ли они плод жидовского «творчества»?

Филипп Шейдеман провозглашает (09.11.1918) Германию Республикой в субботу; конституция принята (31 июля 1919 года — 03 ава, пост скорби; ратифицирована президентом 31 августа — 04 элула, суббота. Одним словом, социал-демократ от иудеев — жид .

В Германии совершен «Капповский путч» (13.03.1920) американским журналистом немецкого происхождения Вольфгангом Каппом (23 адара, суббота).

Беспорядки в Гамбурге (24.03.1921) организованы коммунистами. Последних «пасли» жиды советско-российские — 04.10.1923 (24 тишрей, полупраздник) Политбюро РКП(б) приняло секретное решение, нацеливавшее германскую компартию на подготовку восстания и захват власти1. Определялся и срок восстания — 09 ноября 1923 г. По еврейскому календарю это не только памятный для иудея день седмицы — пятница, день распятия Иисуса Христа, но еще и Новолуние — 01 кислева, Рош Ходеш (год 5684/7 = 812 — праздничный, седмичный).

Поджег рейхстага (27.02.1933) — затея Германа Вильгельма Геринга

«Ночь длинных ножей» его же рук дело

Потворствуя Гитлеру, Геринг, не являясь в душе антисемитом, сквозь пальцы смотрел на преследование и уничтожение евреев. Вы-сказывания Геринга: «Кто еврей, а кто не еврей, решаю я».

Происхождение Геринга, как и его воинское звание, открыло для него доступ в высшее берлинское общество и, главное, в круги крупных промышленников…

«Без капиталов, предоставленных Уолл-Стритом, не существовало бы Гитлера и Второй Мировой войны» (Р. Эпперсон, «Невидимая рука»... , с. 294).В 1929 г. вся германская промышленность принадлежала фактически различным американским финансово-промышленным группам.

Геринг был арестован военнослужащими 7-й армии США 9 мая 1945. Его просьбы о личной встрече с генералом Дуайтом Эйзенхауэром [евреем] были оставлены без внимания.

Геринг, по-видимому, много знал о планах американских иудеев в Европе, и, как свидетель оных, был им не нужен.

Газета «Нью-Йорк Геральд. Трибюн» в номере от 19 марта 1940 г. прямо призывала правительство США «следить, чтобы для интересов США не возникло угрозы из-за появляющихся в определенных кругах Европы каких-либо мирных предложений».

«Если мы увидим, что выигрывает Германия, то нам следует помогать России, а если будет выигрывать Россия, то нам следует помогать Германии, и, таким образом, пусть они убивают друг друга как можно больше, хотя я не хочу победы Гитлера ни при каких обстоятельствах» (Н.Н. Яковлев, «Гарри Трумэн: политический портрет». «Новая и Новейшая история», N2, 1967, с. 51).

 

Указанные 13 событий считаем плодом иудейского* творчества. Оставшиеся 45 событий подвергнем статистическому анализу. Результат: (13 + 11)/58= 0,41. То есть, почти половина событий таблицы № 3 являлась инициативой иудейской, жидовской. Для послевоенной Германии картина совершенно иная — на 24 события, только одно указует на жидовское «творчество» с вероятностью 0,605 (см. таблицы Excel, Лист2). Оно и понятно почему. Германия растоптана жидами американскими — кляпом «холокоста» заткнули немцам рот. По воле пейсатых стала она «данницей» их «детища» Израиля, который «…качает и качает золото с Германии и с кого может за жертвы, которые он не понес, с Германии, которая была его союзником. Такое надо уметь…»2.

 

 

 

 

 

 

 

Идея всемирного господства — плод трудов секты фарисеев, возникшей во времена большого Вавилонского пленения евреев1. 1500 лет развращения высшего общества европейских стран и борьбы с Христианством принесли свои плоды  — буржуазно-демократические революции ХХ века в них. Но Еще раньше Франция оказалась под жидовским колпаком.

 

Исторический факт2: «Тринадцать раз отказывалось Учредительное Собрание признать равноправность жидов, а если, 28 сентября 1891 года, наконец, согласилось, то — под гнетом масонства, куда сыны Иуды успели проникнуть (равно как вне сомнения вследствие подкупа продались кагалу главные вожаки собрания — аббат Грегуар, граф Клермон-Тоннер, Дюпор, адвокат Годар, Робеспьер и Мирабо), частью же под влиянием жидовских патриотических демонстраций и уверений в том, что безпредельно благодарные иудеи ничего более не желают, как стать французами и гордятся этим». А.С. Шмаков. «Свобода и Евреи», М. 1906, стр. ХХХ-ХХХХI. О, великодушная и непредусмотрительная Франция! ты сама себя разрушила и предала». Так восклицает крещеный еврей (выкрест), аббат Леманн, по поводу указа о равноправии жидов».

 

Чем же примечательна эта дата? В данном случае, по еврейскому календарю, для иудеев 28 сентября 1891 не только последний день уходящего праздничного, седмичного года (5551/7 = 793; деление без остатка), но и предпраздничный день наступающего нового 5552 года. Это предпразднество в еврейском календаре имеет свое особое название: Эрев Рош Ашана. В свой новый 5552 год иудеи Франции «вступили» победителями. Взгляни тогда (1891) Франция на события своей минувшей истории через еврейский календарь и, как мне кажется, всех обрезанных выперли бы из страны с великой помпой.

События эти суть акты неповиновения существующей власти и уничтожения существующего строя:

1. 20.06.1789 — клятва депутатов 3-го сословия: не расходиться до принятия конституции — 26 сивана, суббота.

2. 14.07.1789 — взятие Бастилии — 20 тамуза, пост скорби.

3. 05.10.1789 — поход на Версаль (королевскую семью — в Париж) — 15 тишрей, Суккот, день 1-й.

4. 10.10.1789 — национализация церковного имущества — суббота и 6-й день праздника Суккот.

5. 19.06.1790 — отмена потомственного дворянства — суббота, 07 тамуза.

6. 12.07.1790 — Устав для духовенства (контроль над ним светской власти) — 01 ава, Рош Ходеш.

7. 10.08.1790 — король лишен власти — 30 ава, Рош Ходеш.

8. 03.09.1791 — принятие Конституции — суббота, 04 элула.

9. 10.08.1792 — штурм королевского дворца Тюильри, Людовик XVI низложен — пятница, 22 ава.

10. 21.09.1792 — отречение Людовика XVI от власти  пятница, 05 тишрей.

11. 22.09.1792 — Франция провозглашена республикой  суббота, 06 тишрей.

12. 17.01.1793 — смертный приговор Людовику XVI — 04 швата, четверг (будний день еврейского календаря?).

13. 21.01.1793 — казнь Людовика XVI — 08 швата, местный Пурим (праздник избиения всех врагов).

 

«Устройство порядка в чужой для еврея стране» (.Игорь Губерман) заложена в современного еврея расистской, человеконенавистнической идеологией, возникшей на основе талмудического иудаизма. Тактика этой войны со всем окружающими миром изложена в ответе иудеев Константинополя французским иудеям Арля и Прованса:

 

«Возлюбленные братья в Моисее!

Мы получили ваше письмо, в коем вы повествуете о своих тревогах и несчастьях. Узнав о них, мы прониклись такой же скорбью, как и вы. Совет великих сатрапов и раввинов таков: относительно того, что король Французский заставляет вас принимать крещение, принимайте его, раз вы не в силах поступить иначе, но при условии, чтобы закон Моисеев сохранился бы в сердцах ваших;

относительно того, что приказано отобрать ваше добро, сделайте [1] детей ваших купцами, дабы они понемногу отобрали бы добро у христиан; относительно того что они покушаются на вашу жизнь, сделайте [2] детей ваших врачами и аптекарями, дабы они отнимали жизни у христиан; относительно того, что христиане разрушают ваши синагоги, сделайте [3] детей ваших канониками (к. – член коллегии священников при епископе или кафедральном соборе в 2-х католических [или] англиканских церквах) и причетниками (священнослужителями), дабы они разрушали церковь христиан; относительно того, что вам причиняют многие другие огорчения, сделайте [4] так, чтобы дети ваши были бы адвокатами и нотариусами и чтобы они всегда вмешивались в дела государства с целью подчинить христиан евреям, дабы вы могли стать господами над миром и мстить им.

Не уклоняйтесь от сего данного вам приказания, и вы на опыте убедитесь, как из приниженных, какими вы являетесь теперь, вы станете на вершине могущества.

Б.С.С.В.Ф.Ф., князь евреев Константинополя.

21 Кислева, 1489»1.

 

Вышеприведенный статистический анализ исторических фактов свидетельствует, что все «сделайте» ими выполнены. Власть политическая, финансовая и духовная2 в «руках» исчадий ада — детей сатаны. Это заключение было сделано Самим Спасителем рода человеческого, Иисусом Христом, более двух тысяч лет назад: «Ваш отец диавол; и вы хотите исполнять похоти отца вашего. Он был человекоубийца от начала и не устоял в истине, ибо нет в нем истины…»3 — сделали детей своих врачами и аптекарями и отнимают жизни у христиан. И не только у них. Примеры ниже.

 

Таблица № 15

 

Счет от династии Тюдоров.

В качестве эмблемы (badge) династии Тюдоров была принята соединённая алая и белая роза (присутствующая на британском гербе до сих пор). Назвав старшего сына Артуром в честь легендарного кельтского короля Артура, Генрих подчеркнул как уэльское происхождение своего рода, так и желание начать с новой династией эпоху величия Англии.

Насильственные кончины: Джейн Грей (казнена по обвинению в захвате власти),  Карл I (казнен), Яков II Стюарт (свергнут в результате славной революции).

Результат анализа оставшихся событий: ПИ = 7. Итог: ДПС = (3 + 7)/25 = 0,4. Итог — 10 из 25 монархов лишились жизни по воле жида.

 

	дата упокоения	генералитет Германии	еврейский		код	код
			календарь	праздник	седмицы	всех событий
1	27.05.1941	Лютьенс Гюнтер, стр. 348	01 Сивана	Рош Ходеш	2	10
2	17.01.1942	Рейхенау Вальтер фон, стр. 378	28 Тевета	суббота	6	6
3	21.04.1944	Хюбе Ханс Валентин, стр. 396	28 Нисана	пятница	5	5
4	20.07.1944	Бек Людвиг, стр. 239	29 Тамуза	канун	4	14
				Рош Ходеш
5	08.08.1944	Вицлебен Эрвин фон, стр. 264	19 ава		2	2
6	18.08.1944	Клюге Ганс Гюнтер фон, стр. 327	29 ава	канун Рош Ходеш	5	14
7	14.10.1944	Роммель Эрвин Иоганн Ойген, стр. 384	27 тишрей	суббота	6	6
8	09.04.1945	Канарис Фридрих Вильгельм, стр. 310	26 нисана		1	1
9	18.04.1945	Модель Вальтер, стр. 361	05 ияра		3	6
10	30.04.1945	Гитлер Адольф, стр. 276	17 ияра	канун праздника	1	14
11	15.10.1946	Геринг Герман Вильгельм, стр. 270            приговорен казни	20 тишрей	Суккот, д. 4-й	2	10
12	16.10.1946	Йодль Альфред, стр. 306                                     казнен	21 тишрей	Хошана Раба	3	10
13	16.10.1946	Кейтель Вильгельм, стр. 313                             казнен	21 тишрей	Хошана Раба	3	10
14	18.10.1948	Браухич Вальтер фон, стр. 247	15 тишрей	Суккот, д. 1-й	1	10
15	24.02.1953	Рундштедт Герд Карл Рудольф фон, стр. 389	09 адара	полупраздник	2	10
16	15.05.1954	Гудериан Хайнц Вильгельм, стр. 287	12 ияра	суббота	6	6
17	27.09.1954	Вейхс Максимилиан фон, стр. 254	29 элула	канун Рош Ходеш	1	14
18	15.10.1954	Клейст Пауль Эвальд Людвиг фон, стр. 322	18 тишрей	Суккот, д. 4-й	5	6
19	29.04.1956	Лееб Вильгельм Йозеф Франц Риттер фон, стр. 337	18 ияра	Лаг ба’Омер	7	10
20	01.02.1957	Паулюс Фридрих Вильгельм Эрнст, стр. 367	30 швата	Рош Ходеш	5	10
21	16.07.1960	Кессельринг Альберт, стр. 316	21 тамуза	суббота	6	6
22	06.11.1960	Редер Эрих, стр. 374	16 хешвана		7	7
23	01.09.1962	Арним Ханс Юрген Теодор фон, стр. 232	02 элула	суббота	6	6
24	21.04.1966	Дитрих Йозеф (Зепп), стр. 297	01 ияра	Рош Ходеш	4	10
25	25.05.1968	Кюхлер Георг Карл Фридрих Вильгельм фон, стр. 331	27 ияра	суббота	6	6
26	25.01.1971	Гот Герман, стр. 280	28 тевета	полупраздник	1	10
27	18.06.1971	Лист Вильгельм Зигмунд, стр. 342	25 сивана	полупраздник	5	1
28	02.04.1972	Гальдер Франц, стр. 266	18 нисана	Песах, д. 4-й	7	10
29	12.06.1973	Манштейн Эрих Фриц фон (Левански), стр. 353	12 сивана		2	2
30	06.07.1973	Шёрнер Фердинанд, стр. 398	06 тамуза	пятница	5	1
31	28.04.1976	Зейдлитц-Курцбах Вальтер фон, стр. 302	28 нисана		3	3
32	01.07.1978	Штудент Курт, стр. 404	26 сивана	суббота	6	6
33	24.09.1978	Мантойфель (Мантейфель) Хассо фон, стр. 349	22 элула	полупраздник	7	10
34	24.12.1980	Дениц Карл	17 тевета		3	3
35	01.05.1982	Венк Вальтер	08 ияра	суббота	6	6
		http://wiki-linki.ru/Citates/562309/5
36	17.06.1945	Эрнст Буш, генерал-фельдмаршал вермахта	06 тамуза		7	12
37	28.02.1953	Беккер Гельмут, командующий танковой дивизии СС	13 адара	суббота	6	6
		"Мертвая голова", генерал-майор Ваффен СС.
		http://farwater.freeforums.org/post1117.html
		казнен советскими жидами в лагере военнопленных
		http://ru.wikipedia.org/wiki/Бломберг,_Вернер_фон
38	14.03.1946	Вернер Эдуард Фриц фон Бломберг, фельдмаршал	11 адар II	пост Есфири	4	12
39	04.05.1945	Фе́дор фон Бок,  генерал-фельдмаршал	21 ияра		5	5
40	24.05.1945	Грейм, Роберт фон, главнокомандующий люфтваффе	12 сивана		4	4
41	25.01.1972	Эрхард Мильх, генерал-фельдмаршал	09 швата		2	2
42	12.07.1945	Рихтгофен, Вольфрам фон,  генерал-фельдмаршал авиации	02 ава	пост скорби	4	12
43	02.04.1953	Хуго Шперле, генерал-фельдмаршал люфтваффе	17 нисана	полупраздник	4	10
44	06.11.1960	Эрих Йоханн Альберт Редер,  гросс-адмирал,	16 хешвана		7	7

 

Замечание. В колонке «Даты всех событий» для строк №:9, 18, 27, 30 и 36 (выделены цветом бирюзы) взяты и Большой Советской Энциклопедии (см. таблицы в Excel).

 

Формальный счет свидетельствует, что с вероятностью «1» 7 из 43 генералов «ушли» из этой жизни по воле жида (сделайте [2]). Плод трудов «собственника», превысил заповеданную Творцом цифру в 7,1 раза.

Геринг Герман, Йодль Альфред и Кейтель Вильгельм казнены американскими жидами под жидовские праздничные даты еврейского календаря. Смотри выше высказывание Гарри Трумэна: «…пусть они [Германия и Россия] убивают друг друга как можно больше…» (Н.Н. Яковлев, «Гарри Трумэн: политический портрет». «Новая и Новейшая история», N2, 1967, с. 51). Удалим эти события и оставшийся перечень подвергнем статистическому анализу: с вероятностью «1» шесть из 38 генералов «ушли» из этой жизни по воле жида; «превышение» = 6. (см. Excel). Итог: ДПС = (6+3)/ 44 = 0, 2. Пятая часть из этого списка — плод жидовского «творчества» (см. выше «сделайте [2]).

 

Таблица № 16

Для дат «рождение» этих полководцев результат более «скромный» — с вероятность «1» ПИ = 2; «превышение» = 2,1. В данном случае произвол иудейский видится в указании на двух галахических* евреев, родившихся в «праздничные» дни еврейского календаря. Одним из них мог быть генерал-фельдмаршал Мильх, но он на эту «роль» не подходит, хотя именно его имел в виду Герман Геринг,  заявив: «У себя в Люфтваффе я сам решаю, кто еврей, а кто нет». Мильх родился 02 нисана (полупраздник), но относительная доля событий этого плана (их код 10) не превышает своего календарного значения. Галахическими евреем являются фельдмаршалы, родившиеся в субботу (зачатый в субботу и рождается в этот же день седмицы, если беременность протекала без осложнений). Следовательно, как минимум три иудея в войсках Вермахта имели чин «генерал-фельдмаршал».

Для сравнения: анализ списка дат рождения монархов Англии «от династии Тюдоров» дает следующий результат: ДПС = 0,125; Превышение «капиталом собственника»  обязательства, данного Творцом, составляет величину  0,85 — вероятность такого событии, равна 0,605. Такое событие не считаем истиной факта,  так как величина вычисленного «превышения» меньше 1,5 (вероятность оного 0,866).

 

А теперь обратимся к монархам и правителям Востока.

 

Таблица № 17

 

Формальный счет свидетельствует, что с вероятностью «0,879» 7 из 35 правителей «ушли» из этой жизни по воле жида (сделайте 2). Плод трудов «собственника», превысил заповеданную Творцом цифру в 1,55 раза.

Насильственная кончина правителя всегда имеет своим инициатором жида, причем последний необязательно иудей. Последний может «заказать» убийство, оплатив его, и указать дату исполнения приговора (еврейский календарь свидетельствует о  том) Исполнитель в данном случае, естественно, также становится «жидом».

Насильственных кончин (смотри пометки «убит», «казнен») выделим из общего перечня таблицы кодов и оставшиеся 26 случаев «кончина правителя» подвергнем статистическому анализу. Результат последнего — с вероятность 0,89 ПИ = 6 («превышение» = 1,62).

Итог статистического анализа исторических событий таблицы № 17: из 35 правителей 11 «ушли» из этой жизни по воле жида (ДПС = (9 + 6)/35 = 0,43).

Из выше сказанного следует, что еврейский календарь суть «прикровенный»1 способ общения иудеев, рассеянных  по всему миру, но связанных одной общей целью,  — стать* на вершине [своего] могущества (см. письмо князя евреев Константинополя: «…подчинить христиан евреям, дабы …  стать господами над миром и мстить им» — см. цель секты фарисеев2). Во всех цивилизованных странах все четыре «сделайте» жидами исполнены. Остался пустяк. Окончательно прибрать «к рукам» СМИ.

Резюме: шаббат (покой) празднует вселенский жид. 

 

 

 

Вычисление средних значений «обязательств».

ДПС и их стандартные отклонения

модельных массивов событий.

Фортран-программы

 

Днями жертвоприношений сатане являются пятница, суббота и памятные даты еврейского календаря

subroutine modela1(mu,ks,mm,n8,n,prin,a1m) !21.02.2012 "OK"

integer,intent(in)::mm,ks,n8

integer,intent(in)::prin

integer,intent(out),dimension(1010)::a1m

integer,dimension(1010)::a99,am

integer,dimension(2,1000)::a12

integer,dimension(1:3277)::ai3277

integer count

integer, dimension(1)::seed

double precision::u

integer, dimension(11)::k11,k10

real,dimension(11)::c11,ck,ck5,ck0

 

data k11/1,2,3,4,5,6,7,10,11,12,14/

data k10/1,2,3,4,5,6,7,10,0,12,14/

data c11/0.080259366,0.080835735,0.080835735,0.079106628,0.081556196,0.14221902,0.077233429,0.09870317,0.119308357,0.062247839,0.0&

&97694524/

 

data ai3277/10,10,12,4,5,6,7,1,14,10,4,5,6,14,10,10,11,11,11,6,11,10,10,11,4,5,6,7,14,10,10,4,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,7,&

&1,2,14,11,14,6,14,11,2,14,10,10,6,11,1,2,14,11,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,14,10,10,10,10,10,6,10,10,2,3,4,5,6,7,1,12,3,4,&

&5,6,7,1,2,3,4,5,6,7,1,2,3,4,14,6,14,10,11,3,4,5,6,7,1,2,3,4,5,6,14,10,2,3,4,5,6,14,11,2,3,4,5,6,11,14,10,10,4,5,6,7,1,12,11,11,&

&5,6,11,12,10,10,11,11,6,14,11,2,3,4,5,6,7,14,11,14,10,11,6,11,11,11,11,11,5,6,7,1,2,14,10,11,6,11,11,11,10,10,11,6,7,1,2,3,14,10,&

&6,7,1,2,3,14,11,6,7,1,2,3,14,10,6,7,14,10,3,4,5,6,11,1,2,14,11,5,6,10,1,2,3,14,10,6,11,1,2,3,4,5,6,11,11,11,3,4,5,6,7,1,14,11,4,5,&

&6,14,10,10,3,4,5,6,7,1,2,3,4,5,6,14,11,2,3,12,12,6,12,12,12,12,12,12,6,12,12,14,10,12,12,6,12,12,12,12,12,5,6,7,1,14,11,4,5,6,7,1,&

&2,3,14,11,6,7,1,2,14,10,10,6,7,1,2,14,11,5,6,7,1,2,3,4,5,6,11,1,2,3,14,11,6,14,11,2,3,4,14,&

&6,10,12,2,3,4,5,6,14,10,2,3,4,14,6,10,11,11,11,11,11,6,10,11,2,3,4,5,6,10,10,2,3,4,5,6,7,1,2,3,12,5,6,7,1,2,3,4,5,6,7,14,11,14,11,&

&14,6,7,14,10,14,11,5,6,14,11,2,3,4,5,6,7,1,2,12,4,5,6,7,1,2,3,14,10,6,10,10,10,10,10,10,6,7,1,2,3,4,12,6,7,1,2,3,4,5,6,7,1,2,3,4,&

&5,6,7,14,11,14,10,11,6,7,1,2,3,4,5,6,7,1,2,14,10,5,6,7,1,2,14,11,5,6,7,1,14,11,14,10,6,7,1,2,3,4,12,6,11,1,14,11,12,10,6,11,11,2,&

&14,11,5,6,7,1,2,3,14,11,6,10,11,11,11,11,11,6,11,1,2,3,12,5,6,10,10,11,11,11,11,6,10,11,2,3,4,5,6,14,10,10,3,4,5,6,14,11,2,3,4,5,&

&6,14,10,2,3,14,10,6,7,1,14,11,4,5,6,11,1,14,10,4,5,6,14,10,10,11,4,5,6,7,1,14,11,11,11,6,7,1,2,3,4,14,6,7,1,2,14,10,10,6,7,1,2,3,&

&4,5,6,7,1,2,14,11,5,6,12,12,12,12,12,12,6,12,12,12,12,12,14,6,12,12,12,12,12,12,6,12,1,2,3,4,14,6,7,1,2,3,4,5,6,14,11,2,3,4,5,6,&

&10,10,2,3,4,5,6,11,1,2,3,4,5,6,7,1,14,11,4,5,6,14,11,2,14,11,5,6,7,14,&

&10,10,12,5,6,7,1,2,14,10,5,6,7,14,10,10,11,11,6,11,11,10,10,11,5,6,7,1,14,10,10,5,6,7,1,2,3,4,5,6,12,1,2,3,4,5,6,7,1,2,3,14,11,6,&

&11,14,11,3,14,10,6,11,1,2,14,11,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,14,10,10,10,10,10,6,10,10,2,3,4,5,6,7,1,12,3,4,5,6,7,1,2,3,4,5,6,&

&7,1,2,3,4,14,6,14,10,11,3,4,5,6,7,1,2,3,4,5,6,14,10,2,3,4,5,6,14,11,2,3,4,5,6,11,14,10,10,4,5,6,7,1,2,3,4,5,6,7,14,10,10,4,5,6,7,&

&1,2,3,4,5,6,7,1,2,14,10,10,6,7,1,2,3,12,11,6,7,14,11,12,10,10,6,11,1,14,11,4,5,6,7,1,2,14,11,14,6,11,11,11,11,11,11,6,7,1,2,3,4,&

&14,6,10,11,11,11,11,10,6,11,1,2,3,4,5,6,10,10,2,3,4,5,6,11,1,2,3,4,5,6,10,1,2,14,10,5,6,7,14,11,3,4,14,6,7,14,10,3,4,5,6,10,10,&

&11,3,4,5,6,7,14,11,11,11,5,6,7,1,2,3,14,11,6,7,1,14,10,10,5,6,7,1,2,3,4,5,6,7,1,14,11,4,5,6,12,12,12,12,12,12,6,12,12,12,12,14,&

&10,6,12,12,12,12,12,12,6,12,1,2,3,14,11,6,7,1,2,3,4,5,6,11,1,2,3,4,14,6,10,1,2,3,4,14,6,7,1,2,3,4,5,6,7,14,11,3,4,5,6,11,1,14,&

&11,4,5,6,14,&

&10,10,12,4,5,6,7,1,14,10,4,5,6,14,10,10,11,11,11,6,11,10,10,11,4,5,6,7,14,10,10,4,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,7,1,2,14,11,14,&

&6,14,11,2,14,10,10,6,11,1,2,14,11,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,14,10,10,10,10,10,6,10,10,2,3,4,5,6,7,1,12,3,4,5,6,7,1,2,3,4,5,&

&6,7,1,2,3,4,14,6,14,10,11,3,4,5,6,7,1,2,3,4,5,6,14,10,2,3,4,5,6,14,11,2,3,4,5,6,11,14,10,10,4,5,6,7,1,12,11,11,5,6,11,12,10,10,11,&

&11,6,14,11,2,3,4,5,6,7,14,11,14,10,11,6,11,11,11,11,11,5,6,7,1,2,14,10,11,6,11,11,11,10,10,11,6,7,1,2,3,14,10,6,7,1,2,3,14,11,6,7,&

&1,2,3,14,10,6,7,14,10,3,4,5,6,11,1,2,14,11,5,6,10,1,2,3,14,10,6,11,1,2,3,4,5,6,11,11,11,3,4,5,6,7,1,14,11,4,5,6,14,10,10,3,4,5,6,&

&7,1,2,3,4,5,6,14,11,2,3,12,12,6,12,12,12,12,12,12,6,12,12,14,10,12,12,6,12,12,12,12,12,5,6,7,1,14,11,4,5,6,7,1,2,3,14,11,6,7,1,2,&

&14,10,10,6,7,1,2,14,11,5,6,7,1,2,3,4,5,6,11,1,2,3,14,11,6,14,11,2,3,4,14,&

&6,10,12,2,3,4,5,6,14,10,2,3,4,14,6,10,11,11,11,11,11,6,10,11,2,3,4,5,6,10,10,2,3,4,5,6,7,1,2,3,12,5,6,7,1,2,3,4,5,6,7,14,11,14,11,&

&14,6,7,14,10,10,14,11,6,7,14,11,3,4,5,6,7,1,2,3,12,5,6,7,1,2,3,4,14,6,10,10,10,10,10,10,6,7,1,2,3,4,5,6,12,1,2,3,4,5,6,7,1,2,3,4,&

&5,6,7,1,2,14,11,14,6,11,1,2,3,4,5,6,7,1,2,3,4,14,6,7,1,2,3,4,14,6,7,1,2,3,14,11,6,10,10,2,3,4,5,6,12,11,11,3,12,11,6,10,10,11,11,&

&4,14,6,7,1,2,3,4,5,6,11,14,10,11,11,11,6,11,11,11,3,4,5,6,7,14,10,10,11,11,6,11,10,10,11,4,5,6,7,1,14,10,10,5,6,7,1,14,11,4,5,6,7,&

&1,14,10,4,5,6,10,1,2,3,14,11,6,7,14,11,3,14,10,6,7,1,14,10,10,11,6,7,1,2,3,14,11,6,11,1,2,3,4,5,6,14,11,2,3,4,14,6,10,1,2,3,4,5,6,&

&7,1,2,3,4,14,6,7,1,12,12,12,12,6,12,12,12,12,12,12,6,14,10,12,12,12,12,6,12,12,12,3,4,5,6,14,11,2,3,4,5,6,7,1,14,11,4,5,6,7,14,10,&

&10,4,5,6,7,14,11,3,4,5,6,7,1,2,3,14,11,6,7,1,14,11,4,14,6,7,1,2,14,&

&10,11,6,12,1,2,3,4,14,10,7,1,2,14,10,11,6,11,11,11,11,10,11,6,7,1,2,3,14,10,6,7,1,2,3,4,5,6,7,1,12,3,4,5,6,7,1,2,3,4,5,6,11,14,11,&

&14,11,5,6,10,14,11,3,4,14,6,7,1,2,3,4,5,6,7,12,2,3,4,5,6,7,1,14,10,10,10,6,10,10,10,10,4,5,6,7,1,2,12,4,5,6,7,1,2,3,4,5,6,7,1,2,3,&

&4,5,6,11,14,10,11,4,5,6,7,1,2,3,4,5,6,7,14,10,3,4,5,6,7,14,11,3,4,5,6,14,11,14,10,10,5,6,7,1,2,3,4,5,6,7,1,14,10,10,5,6,7,1,2,3,4,&

&5,6,7,1,2,3,14,10,6,7,1,2,3,4,12,6,11,1,14,11,12,10,6,11,11,2,14,11,5,6,7,1,2,3,14,11,6,10,11,11,11,11,11,6,11,1,2,3,12,5,6,10,10,&

&11,11,11,11,6,10,11,2,3,4,5,6,14,10,10,3,4,5,6,14,11,2,3,4,5,6,14,10,2,3,14,10,6,7,1,14,11,4,5,6,11,1,14,10,4,5,6,14,10,10,11,4,5,&

&6,7,1,14,11,11,11,6,7,1,2,3,4,14,6,7,1,2,14,10,10,6,7,1,2,3,4,5,6,7,1,2,14,11,5,6,12,12,12,12,12,12,6,12,12,12,12,12,14,6,12,12,12,&

&12,12,12,6,12,1,2,3,4,14,6,7,1,2,3,4,5,6,14,11,2,3,4,5,6,10,10,2,3,4,5,6,11,1,2,3,4,5,6,7,1,14,11,4,5,6,14,11,2,14,11,5,6,7,14,&

&10,10,12,5,6,7,1,2,14,10,5,6,7,14,10,10,11,11,6,11,11,10,10,11,5,6,7,1,14,10,10,5,6,7,1,2,3,4,5,6,12,1,2,3,4,5,6,7,1,2,3,14,11,6,&

&11,14,11,3,14,10,6,11,1,2,14,11,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,14,10,10,10,10,10,6,10,10,2,3,4,5,6,7,1,12,3,4,5,6,7,1,2,3,4,5,6,7,&

&1,2,3,4,14,6,14,10,11,3,4,5,6,7,1,2,3,4,5,6,14,10,2,3,4,5,6,14,11,2,3,4,5,6,11,14,10,10,4,5,6,7,1,12,11,11,5,6,11,12,10,10,11,11,6,&

&14,11,2,3,4,5,6,7,14,11,14,10,11,6,11,11,11,11,11,5,6,7,1,2,14,10,11,6,11,11,11,10,10,11,6,7,1,2,3,14,10,6,7,1,2,3,14,11,6,7,1,2,3,&

&14,10,6,7,14,10,3,4,5,6,11,1,2,14,11,5,6,10,1,2,3,14,10,6,11,1,2,3,4,5,6,11,11,11,3,4,5,6,7,1,14,11,4,5,6,14,10,10,3,4,5,6,7,1,2,3,&

&4,5,6,14,11,2,3,12,12,6,12,12,12,12,12,12,6,12,12,14,10,12,12,6,12,12,12,12,12,5,6,7,1,14,11,4,5,6,7,1,2,3,14,11,6,7,1,2,14,10,10,&

&6,7,1,2,14,11,5,6,7,1,2,3,4,5,6,11,1,2,3,14,11,6,14,11,2,3,4,14,&

&6,10,12,2,3,4,5,6,14,10,2,3,4,14,6,10,11,11,11,11,11,6,10,11,2,3,4,5,6,10,10,2,3,4,5,6,7,1,2,3,12,5,6,7,1,2,3,4,5,6,7,14,11,14,11,&

&14,6,7,14,10,10,14,11,6,7,14,11,3,4,5,6,7,1,2,3,12,5,6,7,1,2,3,4,14,6,10,10,10,10,10,10,6,7,1,2,3,4,5,6,12,1,2,3,4,5,6,7,1,2,3,4,5,&

&6,7,1,2,14,11,14,6,11,1,2,3,4,5,6,7,1,2,3,4,14,6,7,1,2,3,4,14,6,7,1,2,3,14,11,6,10,10,2,3,4,5,6,7,1,2,3,4,5,6,10,10,2,3,4,5,6,7,1,&

&2,3,4,5,6,7,14,10,10,4,5,6,7,1,12,11,11,5,6,11,12,10,10,11,11,6,14,11,2,3,4,5,6,7,14,11,14,10,11,6,11,11,11,11,11,5,6,7,1,2,14,10,&

&11,6,11,11,11,10,10,11,6,7,1,2,3,14,10,6,7,1,2,3,14,11,6,7,1,2,3,14,10,6,7,14,10,3,4,5,6,11,1,2,14,11,5,6,10,1,2,3,14,10,6,11,1,2,&

&3,4,5,6,11,11,11,3,4,5,6,7,1,14,11,4,5,6,14,10,10,3,4,5,6,7,1,2,3,4,5,6,14,11,2,3,12,12,6,12,12,12,12,12,12,6,12,12,14,10,12,12,6,&

&12,12,12,12,12,5,6,7,1,14,11,4,5,6,7,1,2,3,14,11,6,7,1,2,14,10,10,6,7,1,2,14,11,5,6,7,1,2,3,4,5,6,11,1,2,3,14,11,6,14,11,2,3,4,14,&

&6,10,12,2,3,4,5,6,14,10,2,3,4,14,6,10,11,11,11,11,11,6,10,11,2,3,4,5,6,10,10,2,3,4,5,6,7,1,2,3,12,5,6,7,1,2,3,4,5,6,7,14,11,14,11,&

&14,6,7,14,10,14,11,5,6,14,11,2,3,4,5,6,7,1,2,12,4,5,6,7,1,2,3,14,10,6,10,10,10,10,10,10,6,7,1,2,3,4,12,6,7,1,2,3,4,5,6,7,1,2,3,4,&

&5,6,7,14,11,14,10,11,6,7,1,2,3,4,5,6,7,1,2,14,10,5,6,7,1,2,14,11,5,6,7,1,14,11,14,10,6,7,1,2,3,4,12,6,11,1,14,11,12,10,6,11,11,2,&

&14,11,5,6,7,1,2,3,14,11,6,10,11,11,11,11,11,6,11,1,2,3,12,5,6,10,10,11,11,11,11,6,10,11,2,3,4,5,6,14,10,10,3,4,5,6,14,11,2,3,4,5,&

&6,14,10,2,3,14,10,6,7,1,14,11,4,5,6,11,1,14,10,4,5,6,14,10,10,11,4,5,6,7,1,14,11,11,11,6,7,1,2,3,4,14,6,7,1,2,14,10,10,6,7,1,2,3,4,&

&5,6,7,1,2,14,11,5,6,12,12,12,12,12,12,6,12,12,12,12,12,14,6,12,12,12,12,12,12,6,12,1,2,3,4,14,6,7,1,2,3,4,5,6,14,11,2,3,4,5,6,10,&

&10,2,3,4,5,6,11,1,2,3,4,5,6,7,1,14,11,4,5,6,14,11,2,14,11,5,6,7,14/

 

data am/10,6,11,6,14,1,14,7,6,7,10,4,7,6,11,1,5,4,7,4,2,7,4,14,5,3,7,14,4,2,10,6,6,7,11,3,4,10,6,11,5,2,6,1,3,6,7,5,4,6,11,10,1,5,&

&10,14,6,6,6,7,6,1,4,5,11,11,6,1,7,10,6,7,4,4,12,12,12,2,6,1,5,6,11,5,1,7,5,5,4,1,6,2,2,6,10,5,4,6,11,3,2,6,11,7,10,11,11,3,11,10,&

&1,6,7,6,14,6,1,2,11,10,6,14,14,10,10,3,4,6,1,2,7,3,3,5,7,7,7,4,3,1,6,2,2,4,6,2,10,12,3,11,1,2,1,5,2,12,10,7,4,10,11,5,7,3,1,4,1,6,&

&12,14,11,1,7,5,5,10,10,2,6,4,14,2,12,3,14,10,12,11,11,10,5,1,11,5,4,2,5,4,5,6,14,10,10,6,3,5,11,3,3,5,3,4,14,14,10,7,14,2,6,3,4,&

&14,4,1,6,6,14,6,4,3,5,14,4,3,14,14,3,4,2,11,6,2,5,7,11,6,14,1,6,11,3,11,6,14,6,1,12,3,11,11,10,2,5,11,2,11,1,1,6,12,11,11,3,12,11,&

&1,10,4,5,2,7,5,10,6,2,14,3,3,6,1,14,12,5,2,6,2,10,5,3,6,4,10,6,14,6,4,11,10,14,7,5,11,14,10,5,12,7,12,5,10,5,12,10,3,1,7,4,6,11,&

&11,7,4,3,2,4,6,7,2,3,14,2,10,14,3,10,5,14,14,6,12,11,4,2,11,3,11,1,3,3,2,7,10,7,1,10,3,11,10,4,10,3,14,6,11,10,11,1,10,3,6,11,7,&

&12,1,2,4,5,10,10,14,4,2,12,6,3,4,3,6,3,10,10,1,12,2,10,11,10,4,4,1,4,4,14,4,6,6,10,3,2,3,2,14,11,2,14,7,11,7,14,14,6,6,1,7,10,3,4,&

&1,6,3,4,14,2,14,7,7,4,11,14,1,7,1,4,10,14,6,1,10,3,3,11,10,14,12,6,4,2,11,5,12,14,1,6,14,2,1,6,11,1,6,5,10,3,6,12,11,10,2,5,5,12,&

&14,2,14,6,1,1,10,10,3,6,11,3,1,4,7,14,6,14,5,1,2,2,2,10,4,1,1,14,6,12,6,3,11,10,3,14,14,10,4,1,4,11,14,10,11,3,3,6,6,4,3,14,6,14,&

&11,12,7,3,14,2,5,7,3,11,2,10,3,6,3,7,6,12,7,4,10,14,1,4,6,14,3,1,5,2,5,14,11,11,5,3,12,10,11,2,7,14,2,12,7,11,2,3,10,6,5,14,7,3,6,&

&6,7,7,11,6,11,6,6,5,5,6,1,3,7,7,4,11,10,7,6,11,4,6,14,1,5,3,7,6,14,2,3,6,4,11,11,6,5,11,14,5,6,4,10,6,14,10,6,11,11,7,3,11,7,3,14,&

&14,11,14,2,7,11,1,12,7,5,11,7,1,5,14,7,14,11,2,11,6,11,3,14,12,3,10,6,11,4,1,6,3,10,5,6,3,12,7,14,7,7,7,7,3,4,1,1,6,11,14,14,12,&

&5,5,7,2,2,2,3,2,5,12,7,5,2,5,14,6,4,6,2,1,14,12,11,6,7,14,1,3,11,3,10,10,14,3,6,10,4,11,7,14,10,10,5,2,1,5,12,5,3,2,2,10,7,6,3,10,&

&6,2,6,7,5,12,4,5,5,14,11,11,4,4,12,2,11,11,4,6,2,2,12,4,11,14,1,6,1,7,7,7,3,11,1,1,4,2,14,5,3,14,4,12,6,11,12,11,6,4,10,11,6,5,7,&

&10,10,7,14,3,5,4,6,6,6,7,12,14,14,2,10,6,1,5,3,2,10,2,1,5,6,5,7,10,5,6,3,3,6,11,6,6,10,3,1,2,3,14,11,12,4,6,3,11,12,1,7,6,4,5,10,&

&12,12,5,2,14,2,14,11,12,4,4,10,4,4,1,11,14,11,2,12,6,11,3,12,12,4,11,6,10,11,14,3,6,14,4,1,2,1,12,7,7,4,3,7,10,11,11,6,6,11,6,6,&

&14,5,5,7,10,12,2,6,12,5,11,6,4,1,10,2,1,4,5,10,6,11,7,6,3,6,4,11,2,10,2,11,1,1,10,7,10,14,10,4,12,14,11,1,6,10,3,2,10,6,6,1,12,12,&

&11,6,4,10,14,10,14,4,1,5,3,11,7,7,4,10,6,11,10*0/

 

!mm --> mc

if(ks==10)then

do i=1, 3277;  if(ai3277(i)==11)ai3277(i)=10

end do

end if

if(ks==10)then

c11(8)=c11(8)+c11(9); c11(9)=0.;

end if

 

if(mm==0)then

ia=0;  do i=1, n;

if(ks==10.and.am(i)==11)am(i)=10

ia=ia+am(i)

end do; print*; print*,'model array'

print*, 'am check sum =',ia;   go to 3 ;

else

ia=0;    do j=1, 3277

ia=ia+ai3277(j)

end do;

print*; print*,'array ai3277'

print*,'ai3277 check sum =',ia

 

end if;

 

print*,' mc=',mm;

 

10        mo=0; u=1;

1    continue;

call system_clock(count)   !Ryzhikov Yuri Ivanovich. "Programming Fortran powerstation for engineers. How to".

seed=count*u

call random_seed(put=seed);

call random_number(u);

 

do i=1, mu; call random_number(u);                                           ! cyclic pause for "call random_number(u)"

end do

 

mo=mo+1 ;     jo=aint(u*3277+1);     a12(1,mo)=ai3277(jo); a12(2,mo)=jo;

if(mo>1000) go to 2

if(mo<1000) go to 1

2       continue;

do i=1, 1000; a99(i)=a12(1,i);

end do

 

if(ks==10)then

sk=0.;

do j=1, 11; ck(j)=ise(k10(j),1,n,n,a99); sk=sk+ck(j)

end do

else

sk=0.;

do j=1, 11; ck(j)=ise(k11(j),1,n,n,a99); sk=sk+ck(j)

end do

end if

 

do j=5, 11; ck5(j)=ck(j)/sk; ck0(j)=ck5(j)-c11(j);s=ck0(j);

if(j==7)then

s=0.; ck0(7)=0.;

end if

if(s<0)then

ck5(j)=0;        else

ck5(j)=s

end if;

end do;

s=0.;  do j=5, 11; s=s+ck5(j)

end do;

if(s>0)go to 10

 

print*,' DPS =',s;! read*   185

do i=1, 1000; a1m(i)=a12(1,i)

end do

 

if(prin==0)go to 4

do i=1, n, n8; do j=1, n8; k=i-1+j; a1m(k)=a12(1,k);

print*,'  k=',k,'  a1m(k)=',a1m(k),'  a12(2,k)=',a12(2,k)

end do;           read*

end do

 

3   if(mm==0)then

do i=1, n; a1m(i)=am(i)

end do

end if

4                    continue

end subroutine modela1

 

 

subroutine order9(n,n8,a,a99)

integer, intent(in),dimension(n)::a

integer, intent(in)::n,n8

integer, intent(out),dimension(n)::a99

integer, dimension (n)::as,ai      !!!!!!!!!

n125=n/n8; n250=n125*2

! print*,'                Login, subroutine "order9" ' !!!!!!!!!!!!!!!!!!!!!!!!!

d3:   do i=1,n, n8

is=0

do j=1, n8

is=is+a(i-1+j)

end do;

ii=(i/n8+1)

ai(ii)=ii; as(ii)=is

end do d3

!    print*,'end do d3  OK'                                 !!!!!!!!!!!!!!!!!!

 

a99(1)=0

d4:        do i=1, n125

if(as(i)>a99(1)) then

a99(1)=as(i);a99(2)=ai(i);k9=a99(1)

end if

n7=n8-1

end do d4

!     print*,'end do d4  OK'                                !!!!!!!!!!!!!!!!!!!!!

 

k0=k9

d5:                               do i=2, n125

if(as(i)<k0 )then

a99(i+1)=as(i); a99(i+2)=ai(i); k0=as(i)-1

end if

end do d5

!   print*,'end do d5  OK'                       !!!!!!!!!!!!!!!!!

 

j=2

d6:       do k=k9, k0, -1   !!!!

d7:                               do i=1, n125

if(as(i)==k.and.i/=a99(2))then

j=j+2

a99(j-1)=as(i); a99(j)=ai(i)

end if

end do d7

end do d6

!  print*,'end do d6  OK'                                   !!!!!!!!!!!!!!!!!!!!!

 

d8:                  do i=1, n250, 2

j=i+(1-i)/2

as(j)=a99(i)

ai(j)=a99(i+1)

 

end do d8

!       print*,'end do d8  OK'                                !!!!!!!!!!!!!!!!!!

 

ii=0; n7=n8-1

d9:                   do i=1, n125

k=ai(i); kj=k*n8-n7

d10:                             do j=0, n7

ii=ii+1

a99(ii)=a(j+kj) !!!!!!!

end do d10

end do d9

!    print*                                                                       !!!!!!!!!!!!!!!!!!!!!

end subroutine order9

 

function ise(nc,nn,nk,n,sa99)                            !ise --sumesli; nc-- code number; n -- number of events

integer,intent(in)::nc,nn,nk,n

integer,intent(in),dimension(n)::sa99

if(nc==0)then

ise=0; go to 1; end if

is=0;

do i=nn, nk ;

if(sa99(i)==nc)then

m=sa99(i); is=is+m;

end if

end do

ise=is/nc;

1    continue

end function ise

 

function cumkv(n8,n125,sm,x,z125)

real,dimension(1:2)::x

real,dimension(1:n125)::z125,fszn,disp

di:                    do i=1, n125

xi=i*n8

fszn(i)=x(1)*xi/(xi-sm)*exp(-x(2)*xi)

dff=(fszn(i)-z125(i))

disp(i)=dff*dff

end do di

cumkv=sum(disp)

end function

 

program tzch

integer, dimension(1:1010)::a,a9,a99,smn                                        ! artisti tzirka

integer, dimension(1:11)::k11,k10,smk=0,k0=0

integer, dimension(1000,500)::maco=0

real, dimension(9,1001)::smx1x2=0.

real, dimension(4,10)::smscu=0.

real, dimension(1:500)::srzn=0.0,disp=0.0,fszn                                    ! dps, srednie znachenija, dispersii

real, dimension(1:500,1:500)::mszn=0.0

real, dimension(1:11)::c11,c,snc=0.0,cs=0.0,csc=0.0

real, dimension(2)::xs,xd,x=0.,sc,st

real, dimension(4)::cz

real,parameter::e=2.71828

integer count,mmc,mc,mcmax,prin,mu

 

 

data k10/1,2,3,4,5,6,7,10,0,12,14/

data k11/1,2,3,4,5,6,7,10,11,12,14/

data c11/0.080259366,0.080835735,0.080835735,0.079106628,0.081556196,0.14221902,0.077233429,0.09870317,0.119308357,0.062247839,0.0&

&97694524/

data a9/3,14,4,14,14,2,14,11,3,2,1,4,6,3,4,2,4,4,6,12,4,2,2,6,12,6,5,12,7,11,11,5,3,1,14,12,14,7,7,11,6,6,2,4,6,3,4,5,10,11,1,14,&

&1,4,4,7,6,7,6,2,10,6,3,7,14,1,3,6,10,10,2,5,7,7,14,14,7,5,7,11,1,10,2,5,7,4,2,5,11,14,12,1,14,5,3,10,11,14,2,4,3,4,2,14,6,7,12,10,&

&6,6,12,10,2,1,12,10,5,2,3,3,6,6,6,10,11,4,6,1,6,11,14,11,3,11,10,6,4,14,11,6,3,14,3,12,2,2,6,11,6,12,14,1,5,5,7,5,3,7,2,11,5,11,4,&

&3,7,5,6,4,10,7,11,11,3,11,2,11,1,11,11,1,2,5,10,3,12,6,3,11,10,6,2,5,6,14,12,10,2,1,1,7,10,11,6,11,5,11,6,4,7,1,6,3,2,7,4,6,2,11,&

&11,11,4,4,11,7,10,5,14,11,3,3,10,3,5,2,1,14,4,4,4,6,14,11,7,14,11,11,6,5,5,4,3,12,3,7,3,14,6,4,14,5,12,1,12,2,12,1,14,1,4,11,6,3,&

&2,10,7,7,11,14,1,11,11,5,4,3,3,6,5,11,6,11,11,2,4,11,1,12,12,4,3,2,4,10,5,14,6,6,2,4,14,7,7,14,5,5,2,12,1,12,6,10,1,6,3,2,5,6,11,4&

&,3,6,5,10,3,7,10,14,14,2,5,10,1,14,1,3,3,12,1,3,3,6,3,6,7,2,3,6,10,6,7,14,6,5,11,11,11,7,2,6,3,3,12,14,1,1,14,10,5,14,7,14,10,5,7,&

&11,10,7,1,3,3,2,10,11,7,7,6,7,2,11,1,14,6,12,11,2,4,11,11,2,1,10,10,14,14,10,7,2,1,6,10,11,6,4,6,2,10,6,6,6,3,3,2,14,11,4,3,2,7,14&

&,4,4,5,2,5,10,6,6,14,2,2,10,4,4,2,3,5,1,10,11,7,4,7,3,5,10,10,7,14,2,10,2,2,14,12,6,2,3,6,6,5,1,5,2,3,4,11,11,2,5,10,1,6,5,6,10,5,&

&1,14,10,3,11,1,14,4,3,7,5,11,7,14,4,10,12,6,14,11,3,6,12,14,14,1,5,11,4,3,14,12,4,5,5,6,10,12,4,14,12,6,2,7,11,12,7,11,6,10,5,7,5,&

&3,1,10,7,12,7,11,5,3,6,5,4,14,7,3,14,1,7,11,11,4,1,4,10,3,3,10,11,7,2,2,7,3,14,6,10,5,10,14,1,4,4,6,5,1,1,3,1,2,6,10,1,14,6,5,2,4,&

&6,6,4,6,3,2,6,10,6,5,3,5,11,3,10,10,5,11,3,6,6,7,4,10,7,14,7,3,6,2,3,3,7,2,10,6,3,4,4,2,14,14,6,6,1,6,11,3,10,5,1,6,11,12,2,4,2,10&

&,11,10,14,11,2,2,10,6,1,2,11,6,1,3,5,10,6,6,6,1,10,2,1,3,14,4,6,3,11,10,7,10,4,10,3,11,3,6,11,1,4,2,12,6,11,12,6,12,1,4,5,11,12,1,&

&1,3,2,4,10,5,3,14,11,4,10,2,12,11,6,11,11,1,3,6,6,5,2,6,6,11,3,11,4,6,11,12,11,12,3,11,3,1,7,14,4,2,12,1,14,12,1,11,10,10,7,4,7,14&

&,6,3,5,1,7,4,3,6,10,11,7,1,11,6,2,10,11,12,6,4,11,5,11,6,6,7,11,1,4,2,7,11,12,6,6,1,5,4,14,6,12,10,5,10,11,6,1,2,11,6,6,11,14,1,7,&

&3,1,6,4,6,14,3,12,10,2,11,6,1,11,4,4,1,3,5,10,11,4,3,6,14,5,7,10,1,3,7,4,11,2,5,2,11,2,7,10,5,14,6,3,1,7,10,4,6,10,6,6,10,14,11,11&

&,5,7,10,1,10,11,5,14,1,6,10,2,6,1,3,4,4,14,3,4,4,1,12,5,2,14,6,14,5,11,12,2,2,5,11,6,1,1,3,5,6,1,10,5,7,7,2,10,11,5,3,7,2,11,5,3,6&

&,14,12,4,14,14,7,1,7,11,11,3,1,14,12,7,2,11,12,2,3,12,7,2,7,4,7,4,6,14,1,6,3,7,2,2,7,5,1,10,7,12,2,4,1,4,14,14,2,1,2,11,14,6,4,6,7&

&,3,1,2,2,6,10*0/,is/0/,n/1000/,n8/10/,ks/10/,m/1/,mc/1/,mcmax/10/,xs/0.09,0.008/,xd/0.06,0.001/,sc/0.0001,0.00001/,t/0.00001/&

&,mmc/-1/

 

! in at parameter for subroutine modela1: mc=0 or mc=1

! in at parameter for subroutine modela1: mcmax1,... 1000

prin=0                                                                  ! in at parameter for subroutine modela1: if prin=0 --> output of the model array else no

! single dimension array (aka the "atom"); the number of codes in the "atom": 2, 4, 8, 10 - multiple 1000

! (the number of codes in an array a9;);

mu=10                                                                  ! in at parameter for subroutine modela1: duration of the cycle pause for "call random_number(u)"

! if ks=11,then "poluprazdnik" special day else "poluprazdnik" == "prazdnik": 11 ---> 10

! for ks=10 check sum = 6639; for ks=11 check sum = 6654

 

n125=n/n8; print*,'n125=',n125

if(mc==0)then

mc0=0

else

mc1=1

end if

d1:    do i=1, 11;          c(i)=c11(i)

if(ks==11)then

k0(i)=k11(i)

else

k0(i)=k10(i)

end if

end do d1

 

if(ks==10)then

c(8)=0.218011527; c(9)=0.0;

end if

s=0.; print*,'share calendar = '

d2:    do i=1, 11;          s=s+c(i); print 54, i,c(i)

end do d2

 

d3:                   do i=1, n; a99(i)=a9(i);

if(ks==10.and.a9(i)==11)a99(i)=10

end do d3

 

d4:     do i=1, n;  is=is+a99(i);

end do d4

print 49, is; print*

if(m==2)go to 32

if(m==1.and.mc==0)go to 33

111                  continue; print*

call modela1(mu,ks,mc,n8,n,prin,a99)

 

if(ks==10) then

do i=1, n;

if(a99(i)==11)a99(i)=10

end do

end if; jsk=0

do j=1, 11; snc(j)=ise(k0(j),1,n,n,a99); jsk=jsk+snc(j);

end do;

do j=5, 11; cs(j)=snc(j)/jsk;  csc(j)=c11(j)

if(j==7)then

cs(j)=0.; !csc(j)=0.

end if

!  print 55,j,cs(j),c(j)

end do;

 

32     continue

do i=1, n; a(i)=a99(i)!;a99(i)=0

end do

if(m==2)call order9(n,n8,a,a99)

 

33        continue

dco:     do i1=1, n125;                                                             ! stolbiki

do j=1, n;                                                                     ! stroki

maco(J,i1)=a99(j);                              !print*,'maco(J,i1)=',maco(J,i1); read*

end do

ds1:                             do i=1, n8;       a99(n+i)=a99(i);

end do ds1

ds2:                 do i=n8+1, n+n8;  a99(i-n8)=a99(i);

end do ds2

end do dco;

 

dlin:                  do j=1, n125;                                                                                                                                    !line -- stroka

dcol:                            do i=1, n125;                                                                                                                         !column -- stolbik

datm:                                       do in=1, n8*j                                                                                                             !atom

a(in)=maco(in,i)

end do datm;

nn=1; nk=n8*j;

dco:                                                                do jc=1, 11;

smk(jc)=ise(k11(jc),nn,nk,n,a);

end do dco

scoders=real(sum(smk));

smk(7)=0; sj=0.

dje5:                            do je=5, 11; snc(je)=real(smk(je))/scoders;

b=snc(je)-c(je);

if(b>0.)then

pj=b*scoders;  sj=sj+pj;

end if

end do dje5;

isj=anint(sj);    dpsi=real(isj)/scoders; mszn(j,i)=dpsi;

end do dcol

end do dlin;

 

uz=0.

dst:       do i=1, n125

us=0.

dus:                             do j=1, n125;

us=us+mszn(i,j);

end do dus;

srzn(i)=us/real(n125); uz=uz+srzn(i);

end do dst

 

if(mc==0.and.mmc==-1)then

print*; print*,'the relative proportions','    share calendar';print*

print*,' mc=',mc,'  mmc=',mmc;

 

dc:       do j=5, 11; ac=snc(j)

cs(j)=ac; csc(j)=c(j);

print 55,j,cs(j),c(j)

end do dc; print*

end if

print*,'norma veritatis'

print 50, sum(cs),sum(csc)-c11(7); !read*

 

if(m==1.and.mmc==-1.and.mc==0) then

print* ; print*,'                                    massiv a9'; go to 112

end if

if(m==2)then

print*; print*,'                                    massiv a99'; go to 112

end if;

if(mc==0.and.mmc==0)then

print* ;print 52, mc

else

print*; print 57, mc

end if

if(mc0==0)mc=mc+1;

 

112      continue ;

isn=1; isk=n8-1

de:       do ie=1, 2; print*

if(ie==1) then

do l=1, 2; x(l)=xs(l);

end do

else

isn=ism; isk=ism;

do l=1, 2; x(l)=xd(l);

end do

end if

if(ie==1)then

print 53, m,ks;print*

else

print*,'          dispersii';print*

end if

print 51,x(1),x(2)

 

dsm:     do is=isn, isk;   sm=is

 

2                     kn=0

dm:                  do k=1, 2;

scu0=cumkv(n8,n125,sm,x,srzn)

x(k)=x(k)+x(k)*sc(k)

scu1=cumkv(n8,n125,sm,x,srzn)

if(scu1-scu0>0.)then

sc(k)=-sc(k);

else

scu1=scu0

end if

st(k)=x(k)*sc(k)

1                      kn=kn+1;

x(k)=x(k)+st(k)

scu=cumkv(n8,n125,sm,x,srzn)

if(scu<=scu0) then

t1=abs(st(k));   st(k)=st(k)*e;

go to 1

else

t1=t1/e

x(k)=x(k)-st(k);

st(k)=sc(k)*x(k)

end if

kn=0;    ism=sm;

smscu(1,ism)=sm; smscu(2,ism)=scu0

end do dm

if(t1<=t)then

go to 3

else

go to 2

end if

3                    print 56, t1,sm,x(1),x(2),scu0

smscu(1,ism)=sm; smscu(2,ism)=x(1); smscu(3,ism)=x(2); smscu(4,ism)=scu0

end do dsm

 

if(ie==1)then

do i=2, n8-1;

if(smscu(4,i)<smscu(4,i-1))then

ism=i;        end if

end do;

end if

 

if(ie==1)then

smx1x2(1,mc)=mc;

smx1x2(4,mc)=smscu(2,ism); smx1x2(5,mc)=smscu(3,ism); smx1x2(6,mc)=smscu(4,ism)

else

smx1x2(2,mc)=sum(cs);smx1x2(3,mc)=ism; smx1x2(7,mc)=x(1); smx1x2(8,mc)=x(2); smx1x2(9,mc)=scu0

end if

 

di:                   do i=1, n125

xi=i*n8; sd=0.

fszn(i)=x(1)*xi/(xi-sm)*exp(-x(2)*xi)

dj:         do j=1, n125

disp(j)=(fszn(i)-mszn(j,i))

disp(j)=disp(j)*disp(j)

end do dj; sd=0.

dk:                  do k=1, n125

sd=sd+disp(k)

end do dk

srzn(i)=sqrt(sd/(n125-1))

end do di;

if(m==2)print*

end do de;

 

if(mmc==-1.and.m/=2.and.mc==0)then

print*;print 220; read*

end if

if(m==2)then

go to 322

end if

mmc=mmc+1

if(mc==0.and.mmc==0)then!

go to 111

end if

if(mc0==0)then

if(mc<mcmax)go to 111

end if

if(mc1==1)then

!  print*; print 57, mc

mc=mc+1;

if(mc<=mcmax)go to 111

end if

 

print*;  print*; print 222; print*

print 224

do i=1, mcmax; smn(i)=smx1x2(3,i)

print 223, smx1x2(1,i),smx1x2(2,i),smx1x2(3,i),smx1x2(4,i),smx1x2(5,i),&

&                       smx1x2(6,i),smx1x2(7,i),smx1x2(8,i),smx1x2(9,i)

end do;

do l=1, n8; smk(l)=ise(l,1,mcmax,mcmax,smn)

end do;

 

ii=1

i1=1; i2=0

di1:         do l=i1, n8;   if(smk(l)<1)go to 115

if(i2<1.and.smk(l)>smk(l+1))then

i2=l;  go to 115

end if

if(smk(l)>smk(l+1).and.smk(l)>smk(i2))i2=l

115      continue ; ii=i2

end do di1;      ism=ii;

i5=0;

do i=1, mcmax;            j3=smx1x2(3,i);

if(j3/=ii)then

do j=1,9; smx1x2(j,i)=0.

end do; i5=i5+1

end if;

end do; is3=mcmax-i5; print 220;        print 303,ism,is3;

 

print 224

do i=1, mcmax;

print 223, smx1x2(1,i),smx1x2(2,i),smx1x2(3,i),smx1x2(4,i),smx1x2(5,i),&

&                    smx1x2(6,i),smx1x2(7,i),smx1x2(8,i),smx1x2(9,i)

end do; print*;print 220; read*;

 

s4=0.; s5=0.;s7=0.;s8=0.; s6=0.

do i=1, mcmax; s4=s4+smx1x2(4,i); s5=s5+smx1x2(5,i);s7=s7+smx1x2(7,i);&

&              s8=s8+smx1x2(8,i); s6=s6+smx1x2(6,i)

end do; cz(1)=s4/is3; cz(2)=s5/is3; cz(3)=s7/is3; cz(4)=s8/is3;cz5=s6/is3

print 226

print 225, cz5

print 227

print 228, cz

print 300,mcmax

print 301,ism,is3; read*

322 continue

stop

54    format('i=',i2,'   c(i)= ',f9.6)

49       format(27x,'check sum =',i5)

55     format(' j= ',i2,'    snc = ',f9.6,'    c(j)=',f9.6)

50       format(' sum sns(5.. 11) =',f6.3,' <  sum c(5... 11) =',f6.3)

52       format(45x,'free model dimension a99 ---> mc0 = ',i3)

57     format(45x,'free model dimension a99 ---> mc = ',i3)

51     format(19x,'start-->',' x(1)=',f9.6,'  x(2)=',f9.6)

53     format('   srednie znchenia m =', i3,'  ks =',i3)

56     format(' t1=',e12.6,'   sm= ',f3.1,'  x(1)=',f9.6,'  x(2)=',f9.6,'  neviazka=',f12.8)

220    format(45x,'click ENTER')

222     format(33x,'final result of calculations')

224    format(20x,'sm',6x,'xs(1)',7x,'xs(2)',6x,'neviazka',6x,'xd(1)',7x,'xd(2)',6x,'neviazka')

223    format(f6.0,f8.3,f8.0,f12.6,f13.7,f12.6,f12.6,f13.7,f12.6)

303    format(' ism =',i3,3x,'is3 =',i4)

226    format(24x,'   srednie  znchenia',11x,'dispersii')

227    format(27x,'xs(1)',7x,'xs(2)',7x,'xd(1)',7x,'xd(2)')

225    format(' neviazka =',f10.6)

228    format(21x,4f12.6)

300    format(' mcmax =',1i5)

301    format(' for ism=',i2,':',' mcmax =',1i5)

end program tzch

 

 

 

Днями жертвоприношений сатане являются понедельник, четверг, пятница, суббота и памятные даты еврейского календаря

subroutine modela1(mu,ks,mm,n8,n,prin,a1m) !26.03.2012 "OK" - Monday and Thursday are the memorable dates

integer,intent(in)::mm,ks,n8

integer,intent(in)::prin

integer,intent(out),dimension(1010)::a1m

integer,dimension(1010)::a99,am

integer,dimension(2,1000)::a12

integer,dimension(1:3277)::ai3277

integer count

integer, dimension(1)::seed

double precision::u

integer, dimension(11)::k11,k10

real,dimension(11)::c11,ck,ck5,ck0

 

data k11/1,2,3,4,5,6,7,10,11,12,14/

data k10/1,2,3,4,5,6,7,10,0,12,14/

data c11/0.080259366,0.080835735,0.080835735,0.079106628,0.081556196,0.14221902,0.077233429,0.09870317,0.119308357,0.062247839,0.0&

&97694524/

 

data ai3277/10,10,12,4,5,6,7,1,14,10,4,5,6,14,10,10,11,11,11,6,11,10,10,11,4,5,6,7,14,10,10,4,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,7,&

&1,2,14,11,14,6,14,11,2,14,10,10,6,11,1,2,14,11,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,14,10,10,10,10,10,6,10,10,2,3,4,5,6,7,1,12,3,4,&

&5,6,7,1,2,3,4,5,6,7,1,2,3,4,14,6,14,10,11,3,4,5,6,7,1,2,3,4,5,6,14,10,2,3,4,5,6,14,11,2,3,4,5,6,11,14,10,10,4,5,6,7,1,12,11,11,&

&5,6,11,12,10,10,11,11,6,14,11,2,3,4,5,6,7,14,11,14,10,11,6,11,11,11,11,11,5,6,7,1,2,14,10,11,6,11,11,11,10,10,11,6,7,1,2,3,14,10,&

&6,7,1,2,3,14,11,6,7,1,2,3,14,10,6,7,14,10,3,4,5,6,11,1,2,14,11,5,6,10,1,2,3,14,10,6,11,1,2,3,4,5,6,11,11,11,3,4,5,6,7,1,14,11,4,5,&

&6,14,10,10,3,4,5,6,7,1,2,3,4,5,6,14,11,2,3,12,12,6,12,12,12,12,12,12,6,12,12,14,10,12,12,6,12,12,12,12,12,5,6,7,1,14,11,4,5,6,7,1,&

&2,3,14,11,6,7,1,2,14,10,10,6,7,1,2,14,11,5,6,7,1,2,3,4,5,6,11,1,2,3,14,11,6,14,11,2,3,4,14,&

&6,10,12,2,3,4,5,6,14,10,2,3,4,14,6,10,11,11,11,11,11,6,10,11,2,3,4,5,6,10,10,2,3,4,5,6,7,1,2,3,12,5,6,7,1,2,3,4,5,6,7,14,11,14,11,&

&14,6,7,14,10,14,11,5,6,14,11,2,3,4,5,6,7,1,2,12,4,5,6,7,1,2,3,14,10,6,10,10,10,10,10,10,6,7,1,2,3,4,12,6,7,1,2,3,4,5,6,7,1,2,3,4,&

&5,6,7,14,11,14,10,11,6,7,1,2,3,4,5,6,7,1,2,14,10,5,6,7,1,2,14,11,5,6,7,1,14,11,14,10,6,7,1,2,3,4,12,6,11,1,14,11,12,10,6,11,11,2,&

&14,11,5,6,7,1,2,3,14,11,6,10,11,11,11,11,11,6,11,1,2,3,12,5,6,10,10,11,11,11,11,6,10,11,2,3,4,5,6,14,10,10,3,4,5,6,14,11,2,3,4,5,&

&6,14,10,2,3,14,10,6,7,1,14,11,4,5,6,11,1,14,10,4,5,6,14,10,10,11,4,5,6,7,1,14,11,11,11,6,7,1,2,3,4,14,6,7,1,2,14,10,10,6,7,1,2,3,&

&4,5,6,7,1,2,14,11,5,6,12,12,12,12,12,12,6,12,12,12,12,12,14,6,12,12,12,12,12,12,6,12,1,2,3,4,14,6,7,1,2,3,4,5,6,14,11,2,3,4,5,6,&

&10,10,2,3,4,5,6,11,1,2,3,4,5,6,7,1,14,11,4,5,6,14,11,2,14,11,5,6,7,14,&

&10,10,12,5,6,7,1,2,14,10,5,6,7,14,10,10,11,11,6,11,11,10,10,11,5,6,7,1,14,10,10,5,6,7,1,2,3,4,5,6,12,1,2,3,4,5,6,7,1,2,3,14,11,6,&

&11,14,11,3,14,10,6,11,1,2,14,11,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,14,10,10,10,10,10,6,10,10,2,3,4,5,6,7,1,12,3,4,5,6,7,1,2,3,4,5,6,&

&7,1,2,3,4,14,6,14,10,11,3,4,5,6,7,1,2,3,4,5,6,14,10,2,3,4,5,6,14,11,2,3,4,5,6,11,14,10,10,4,5,6,7,1,2,3,4,5,6,7,14,10,10,4,5,6,7,&

&1,2,3,4,5,6,7,1,2,14,10,10,6,7,1,2,3,12,11,6,7,14,11,12,10,10,6,11,1,14,11,4,5,6,7,1,2,14,11,14,6,11,11,11,11,11,11,6,7,1,2,3,4,&

&14,6,10,11,11,11,11,10,6,11,1,2,3,4,5,6,10,10,2,3,4,5,6,11,1,2,3,4,5,6,10,1,2,14,10,5,6,7,14,11,3,4,14,6,7,14,10,3,4,5,6,10,10,&

&11,3,4,5,6,7,14,11,11,11,5,6,7,1,2,3,14,11,6,7,1,14,10,10,5,6,7,1,2,3,4,5,6,7,1,14,11,4,5,6,12,12,12,12,12,12,6,12,12,12,12,14,&

&10,6,12,12,12,12,12,12,6,12,1,2,3,14,11,6,7,1,2,3,4,5,6,11,1,2,3,4,14,6,10,1,2,3,4,14,6,7,1,2,3,4,5,6,7,14,11,3,4,5,6,11,1,14,&

&11,4,5,6,14,&

&10,10,12,4,5,6,7,1,14,10,4,5,6,14,10,10,11,11,11,6,11,10,10,11,4,5,6,7,14,10,10,4,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,7,1,2,14,11,14,&

&6,14,11,2,14,10,10,6,11,1,2,14,11,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,14,10,10,10,10,10,6,10,10,2,3,4,5,6,7,1,12,3,4,5,6,7,1,2,3,4,5,&

&6,7,1,2,3,4,14,6,14,10,11,3,4,5,6,7,1,2,3,4,5,6,14,10,2,3,4,5,6,14,11,2,3,4,5,6,11,14,10,10,4,5,6,7,1,12,11,11,5,6,11,12,10,10,11,&

&11,6,14,11,2,3,4,5,6,7,14,11,14,10,11,6,11,11,11,11,11,5,6,7,1,2,14,10,11,6,11,11,11,10,10,11,6,7,1,2,3,14,10,6,7,1,2,3,14,11,6,7,&

&1,2,3,14,10,6,7,14,10,3,4,5,6,11,1,2,14,11,5,6,10,1,2,3,14,10,6,11,1,2,3,4,5,6,11,11,11,3,4,5,6,7,1,14,11,4,5,6,14,10,10,3,4,5,6,&

&7,1,2,3,4,5,6,14,11,2,3,12,12,6,12,12,12,12,12,12,6,12,12,14,10,12,12,6,12,12,12,12,12,5,6,7,1,14,11,4,5,6,7,1,2,3,14,11,6,7,1,2,&

&14,10,10,6,7,1,2,14,11,5,6,7,1,2,3,4,5,6,11,1,2,3,14,11,6,14,11,2,3,4,14,&

&6,10,12,2,3,4,5,6,14,10,2,3,4,14,6,10,11,11,11,11,11,6,10,11,2,3,4,5,6,10,10,2,3,4,5,6,7,1,2,3,12,5,6,7,1,2,3,4,5,6,7,14,11,14,11,&

&14,6,7,14,10,10,14,11,6,7,14,11,3,4,5,6,7,1,2,3,12,5,6,7,1,2,3,4,14,6,10,10,10,10,10,10,6,7,1,2,3,4,5,6,12,1,2,3,4,5,6,7,1,2,3,4,&

&5,6,7,1,2,14,11,14,6,11,1,2,3,4,5,6,7,1,2,3,4,14,6,7,1,2,3,4,14,6,7,1,2,3,14,11,6,10,10,2,3,4,5,6,12,11,11,3,12,11,6,10,10,11,11,&

&4,14,6,7,1,2,3,4,5,6,11,14,10,11,11,11,6,11,11,11,3,4,5,6,7,14,10,10,11,11,6,11,10,10,11,4,5,6,7,1,14,10,10,5,6,7,1,14,11,4,5,6,7,&

&1,14,10,4,5,6,10,1,2,3,14,11,6,7,14,11,3,14,10,6,7,1,14,10,10,11,6,7,1,2,3,14,11,6,11,1,2,3,4,5,6,14,11,2,3,4,14,6,10,1,2,3,4,5,6,&

&7,1,2,3,4,14,6,7,1,12,12,12,12,6,12,12,12,12,12,12,6,14,10,12,12,12,12,6,12,12,12,3,4,5,6,14,11,2,3,4,5,6,7,1,14,11,4,5,6,7,14,10,&

&10,4,5,6,7,14,11,3,4,5,6,7,1,2,3,14,11,6,7,1,14,11,4,14,6,7,1,2,14,&

&10,11,6,12,1,2,3,4,14,10,7,1,2,14,10,11,6,11,11,11,11,10,11,6,7,1,2,3,14,10,6,7,1,2,3,4,5,6,7,1,12,3,4,5,6,7,1,2,3,4,5,6,11,14,11,&

&14,11,5,6,10,14,11,3,4,14,6,7,1,2,3,4,5,6,7,12,2,3,4,5,6,7,1,14,10,10,10,6,10,10,10,10,4,5,6,7,1,2,12,4,5,6,7,1,2,3,4,5,6,7,1,2,3,&

&4,5,6,11,14,10,11,4,5,6,7,1,2,3,4,5,6,7,14,10,3,4,5,6,7,14,11,3,4,5,6,14,11,14,10,10,5,6,7,1,2,3,4,5,6,7,1,14,10,10,5,6,7,1,2,3,4,&

&5,6,7,1,2,3,14,10,6,7,1,2,3,4,12,6,11,1,14,11,12,10,6,11,11,2,14,11,5,6,7,1,2,3,14,11,6,10,11,11,11,11,11,6,11,1,2,3,12,5,6,10,10,&

&11,11,11,11,6,10,11,2,3,4,5,6,14,10,10,3,4,5,6,14,11,2,3,4,5,6,14,10,2,3,14,10,6,7,1,14,11,4,5,6,11,1,14,10,4,5,6,14,10,10,11,4,5,&

&6,7,1,14,11,11,11,6,7,1,2,3,4,14,6,7,1,2,14,10,10,6,7,1,2,3,4,5,6,7,1,2,14,11,5,6,12,12,12,12,12,12,6,12,12,12,12,12,14,6,12,12,12,&

&12,12,12,6,12,1,2,3,4,14,6,7,1,2,3,4,5,6,14,11,2,3,4,5,6,10,10,2,3,4,5,6,11,1,2,3,4,5,6,7,1,14,11,4,5,6,14,11,2,14,11,5,6,7,14,&

&10,10,12,5,6,7,1,2,14,10,5,6,7,14,10,10,11,11,6,11,11,10,10,11,5,6,7,1,14,10,10,5,6,7,1,2,3,4,5,6,12,1,2,3,4,5,6,7,1,2,3,14,11,6,&

&11,14,11,3,14,10,6,11,1,2,14,11,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,14,10,10,10,10,10,6,10,10,2,3,4,5,6,7,1,12,3,4,5,6,7,1,2,3,4,5,6,7,&

&1,2,3,4,14,6,14,10,11,3,4,5,6,7,1,2,3,4,5,6,14,10,2,3,4,5,6,14,11,2,3,4,5,6,11,14,10,10,4,5,6,7,1,12,11,11,5,6,11,12,10,10,11,11,6,&

&14,11,2,3,4,5,6,7,14,11,14,10,11,6,11,11,11,11,11,5,6,7,1,2,14,10,11,6,11,11,11,10,10,11,6,7,1,2,3,14,10,6,7,1,2,3,14,11,6,7,1,2,3,&

&14,10,6,7,14,10,3,4,5,6,11,1,2,14,11,5,6,10,1,2,3,14,10,6,11,1,2,3,4,5,6,11,11,11,3,4,5,6,7,1,14,11,4,5,6,14,10,10,3,4,5,6,7,1,2,3,&

&4,5,6,14,11,2,3,12,12,6,12,12,12,12,12,12,6,12,12,14,10,12,12,6,12,12,12,12,12,5,6,7,1,14,11,4,5,6,7,1,2,3,14,11,6,7,1,2,14,10,10,&

&6,7,1,2,14,11,5,6,7,1,2,3,4,5,6,11,1,2,3,14,11,6,14,11,2,3,4,14,&

&6,10,12,2,3,4,5,6,14,10,2,3,4,14,6,10,11,11,11,11,11,6,10,11,2,3,4,5,6,10,10,2,3,4,5,6,7,1,2,3,12,5,6,7,1,2,3,4,5,6,7,14,11,14,11,&

&14,6,7,14,10,10,14,11,6,7,14,11,3,4,5,6,7,1,2,3,12,5,6,7,1,2,3,4,14,6,10,10,10,10,10,10,6,7,1,2,3,4,5,6,12,1,2,3,4,5,6,7,1,2,3,4,5,&

&6,7,1,2,14,11,14,6,11,1,2,3,4,5,6,7,1,2,3,4,14,6,7,1,2,3,4,14,6,7,1,2,3,14,11,6,10,10,2,3,4,5,6,7,1,2,3,4,5,6,10,10,2,3,4,5,6,7,1,&

&2,3,4,5,6,7,14,10,10,4,5,6,7,1,12,11,11,5,6,11,12,10,10,11,11,6,14,11,2,3,4,5,6,7,14,11,14,10,11,6,11,11,11,11,11,5,6,7,1,2,14,10,&

&11,6,11,11,11,10,10,11,6,7,1,2,3,14,10,6,7,1,2,3,14,11,6,7,1,2,3,14,10,6,7,14,10,3,4,5,6,11,1,2,14,11,5,6,10,1,2,3,14,10,6,11,1,2,&

&3,4,5,6,11,11,11,3,4,5,6,7,1,14,11,4,5,6,14,10,10,3,4,5,6,7,1,2,3,4,5,6,14,11,2,3,12,12,6,12,12,12,12,12,12,6,12,12,14,10,12,12,6,&

&12,12,12,12,12,5,6,7,1,14,11,4,5,6,7,1,2,3,14,11,6,7,1,2,14,10,10,6,7,1,2,14,11,5,6,7,1,2,3,4,5,6,11,1,2,3,14,11,6,14,11,2,3,4,14,&

&6,10,12,2,3,4,5,6,14,10,2,3,4,14,6,10,11,11,11,11,11,6,10,11,2,3,4,5,6,10,10,2,3,4,5,6,7,1,2,3,12,5,6,7,1,2,3,4,5,6,7,14,11,14,11,&

&14,6,7,14,10,14,11,5,6,14,11,2,3,4,5,6,7,1,2,12,4,5,6,7,1,2,3,14,10,6,10,10,10,10,10,10,6,7,1,2,3,4,12,6,7,1,2,3,4,5,6,7,1,2,3,4,&

&5,6,7,14,11,14,10,11,6,7,1,2,3,4,5,6,7,1,2,14,10,5,6,7,1,2,14,11,5,6,7,1,14,11,14,10,6,7,1,2,3,4,12,6,11,1,14,11,12,10,6,11,11,2,&

&14,11,5,6,7,1,2,3,14,11,6,10,11,11,11,11,11,6,11,1,2,3,12,5,6,10,10,11,11,11,11,6,10,11,2,3,4,5,6,14,10,10,3,4,5,6,14,11,2,3,4,5,&

&6,14,10,2,3,14,10,6,7,1,14,11,4,5,6,11,1,14,10,4,5,6,14,10,10,11,4,5,6,7,1,14,11,11,11,6,7,1,2,3,4,14,6,7,1,2,14,10,10,6,7,1,2,3,4,&

&5,6,7,1,2,14,11,5,6,12,12,12,12,12,12,6,12,12,12,12,12,14,6,12,12,12,12,12,12,6,12,1,2,3,4,14,6,7,1,2,3,4,5,6,14,11,2,3,4,5,6,10,&

&10,2,3,4,5,6,11,1,2,3,4,5,6,7,1,14,11,4,5,6,14,11,2,14,11,5,6,7,14/

 

data am/10,6,11,6,14,1,14,7,6,7,10,4,7,6,11,1,5,4,7,4,2,7,4,14,5,3,7,14,4,2,10,6,6,7,11,3,4,10,6,11,5,2,6,1,3,6,7,5,4,6,11,10,1,5,&

&10,14,6,6,6,7,6,1,4,5,11,11,6,1,7,10,6,7,4,4,12,12,12,2,6,1,5,6,11,5,1,7,5,5,4,1,6,2,2,6,10,5,4,6,11,3,2,6,11,7,10,11,11,3,11,10,&

&1,6,7,6,14,6,1,2,11,10,6,14,14,10,10,3,4,6,1,2,7,3,3,5,7,7,7,4,3,1,6,2,2,4,6,2,10,12,3,11,1,2,1,5,2,12,10,7,4,10,11,5,7,3,1,4,1,6,&

&12,14,11,1,7,5,5,10,10,2,6,4,14,2,12,3,14,10,12,11,11,10,5,1,11,5,4,2,5,4,5,6,14,10,10,6,3,5,11,3,3,5,3,4,14,14,10,7,14,2,6,3,4,&

&14,4,1,6,6,14,6,4,3,5,14,4,3,14,14,3,4,2,11,6,2,5,7,11,6,14,1,6,11,3,11,6,14,6,1,12,3,11,11,10,2,5,11,2,11,1,1,6,12,11,11,3,12,11,&

&1,10,4,5,2,7,5,10,6,2,14,3,3,6,1,14,12,5,2,6,2,10,5,3,6,4,10,6,14,6,4,11,10,14,7,5,11,14,10,5,12,7,12,5,10,5,12,10,3,1,7,4,6,11,&

&11,7,4,3,2,4,6,7,2,3,14,2,10,14,3,10,5,14,14,6,12,11,4,2,11,3,11,1,3,3,2,7,10,7,1,10,3,11,10,4,10,3,14,6,11,10,11,1,10,3,6,11,7,&

&12,1,2,4,5,10,10,14,4,2,12,6,3,4,3,6,3,10,10,1,12,2,10,11,10,4,4,1,4,4,14,4,6,6,10,3,2,3,2,14,11,2,14,7,11,7,14,14,6,6,1,7,10,3,4,&

&1,6,3,4,14,2,14,7,7,4,11,14,1,7,1,4,10,14,6,1,10,3,3,11,10,14,12,6,4,2,11,5,12,14,1,6,14,2,1,6,11,1,6,5,10,3,6,12,11,10,2,5,5,12,&

&14,2,14,6,1,1,10,10,3,6,11,3,1,4,7,14,6,14,5,1,2,2,2,10,4,1,1,14,6,12,6,3,11,10,3,14,14,10,4,1,4,11,14,10,11,3,3,6,6,4,3,14,6,14,&

&11,12,7,3,14,2,5,7,3,11,2,10,3,6,3,7,6,12,7,4,10,14,1,4,6,14,3,1,5,2,5,14,11,11,5,3,12,10,11,2,7,14,2,12,7,11,2,3,10,6,5,14,7,3,6,&

&6,7,7,11,6,11,6,6,5,5,6,1,3,7,7,4,11,10,7,6,11,4,6,14,1,5,3,7,6,14,2,3,6,4,11,11,6,5,11,14,5,6,4,10,6,14,10,6,11,11,7,3,11,7,3,14,&

&14,11,14,2,7,11,1,12,7,5,11,7,1,5,14,7,14,11,2,11,6,11,3,14,12,3,10,6,11,4,1,6,3,10,5,6,3,12,7,14,7,7,7,7,3,4,1,1,6,11,14,14,12,&

&5,5,7,2,2,2,3,2,5,12,7,5,2,5,14,6,4,6,2,1,14,12,11,6,7,14,1,3,11,3,10,10,14,3,6,10,4,11,7,14,10,10,5,2,1,5,12,5,3,2,2,10,7,6,3,10,&

&6,2,6,7,5,12,4,5,5,14,11,11,4,4,12,2,11,11,4,6,2,2,12,4,11,14,1,6,1,7,7,7,3,11,1,1,4,2,14,5,3,14,4,12,6,11,12,11,6,4,10,11,6,5,7,&

&10,10,7,14,3,5,4,6,6,6,7,12,14,14,2,10,6,1,5,3,2,10,2,1,5,6,5,7,10,5,6,3,3,6,11,6,6,10,3,1,2,3,14,11,12,4,6,3,11,12,1,7,6,4,5,10,&

&12,12,5,2,14,2,14,11,12,4,4,10,4,4,1,11,14,11,2,12,6,11,3,12,12,4,11,6,10,11,14,3,6,14,4,1,2,1,12,7,7,4,3,7,10,11,11,6,6,11,6,6,&

&14,5,5,7,10,12,2,6,12,5,11,6,4,1,10,2,1,4,5,10,6,11,7,6,3,6,4,11,2,10,2,11,1,1,10,7,10,14,10,4,12,14,11,1,6,10,3,2,10,6,6,1,12,12,&

&11,6,4,10,14,10,14,4,1,5,3,11,7,7,4,10,6,11,10*0/

 

!mm --> mc

if(ks==10)then

do i=1, 3277;  if(ai3277(i)==11)ai3277(i)=10

end do

end if

if(ks==10)then

c11(8)=c11(8)+c11(9); c11(9)=0.;

end if

 

if(mm==0)then

ia=0;  do i=1, n;

if(ks==10.and.am(i)==11)am(i)=10

ia=ia+am(i)

end do; print*; print*,'model array'

print*, 'am check sum =',ia;   go to 3 ;

else

ia=0;    do j=1, 3277

ia=ia+ai3277(j)

end do;

print*; print*,'array ai3277'

print*,'ai3277 check sum =',ia

 

end if;

 

print*,' mc=',mm;

m10=0

10        mo=0; m10=m10+1; u=1

1    continue;

call system_clock(count)   !Ryzhikov Yuri Ivanovich. "Programming Fortran powerstation for engineers. How to".

seed=count*u

call random_seed(put=seed);

call random_number(u);

 

do i=1, mu; call random_number(u);                                           ! cyclic pause for "call random_number(u)"

end do

 

mo=mo+1 ;     jo=aint(u*3277+1);     a12(1,mo)=ai3277(jo); a12(2,mo)=jo;

if(mo>1000) go to 2

if(mo<1000) go to 1

2       continue;

do i=1, 1000; a99(i)=a12(1,i);

end do

 

if(ks==10)then

sk=0.;

do j=1, 11; ck(j)=ise(k10(j),1,n,n,a99); sk=sk+ck(j)

end do

else

sk=0.;

do j=1, 11; ck(j)=ise(k11(j),1,n,n,a99); sk=sk+ck(j)

end do

end if

 

do j=1, 11; ck5(j)=ck(j)/sk; ck0(j)=ck5(j)-c11(j);s=ck0(j);

if(j==2.or.j==3.or.j==7)then

s=0.; ck0(j)=0.;

end if

if(s<0)then

ck5(j)=0;        else

ck5(j)=s

end if;

end do;

s=0.;  do j=1, 11; s=s+ck5(j); !print*,j,ck5(j)

end do;                                               !read*

if(s>0)go to 10

print*,' m10 =',m10

print*,' DPS =',s;! read*   185

do i=1, 1000; a1m(i)=a12(1,i)

end do

 

if(prin==0)go to 4

do i=1, n, n8; do j=1, n8; k=i-1+j; a1m(k)=a12(1,k);

print*,'  k=',k,'  a1m(k)=',a1m(k),'  a12(2,k)=',a12(2,k)

end do;           read*

end do

 

3   if(mm==0)then

do i=1, n; a1m(i)=am(i)

end do

end if

4                    continue

end subroutine modela1

 

 

subroutine order9(n,n8,a,a99)

integer, intent(in),dimension(n)::a

integer, intent(in)::n,n8

integer, intent(out),dimension(n)::a99

integer, dimension (n)::as,ai      !!!!!!!!!

n125=n/n8; n250=n125*2

! print*,'                Login, subroutine "order9" ' !!!!!!!!!!!!!!!!!!!!!!!!!

d3:   do i=1,n, n8

is=0

do j=1, n8

is=is+a(i-1+j)

end do;

ii=(i/n8+1)

ai(ii)=ii; as(ii)=is

end do d3

!    print*,'end do d3  OK'                                 !!!!!!!!!!!!!!!!!!

 

a99(1)=0

d4:        do i=1, n125

if(as(i)>a99(1)) then

a99(1)=as(i);a99(2)=ai(i);k9=a99(1)

end if

n7=n8-1

end do d4

!     print*,'end do d4  OK'                                !!!!!!!!!!!!!!!!!!!!!

 

k0=k9

d5:                               do i=2, n125

if(as(i)<k0 )then

a99(i+1)=as(i); a99(i+2)=ai(i); k0=as(i)-1

end if

end do d5

!   print*,'end do d5  OK'                       !!!!!!!!!!!!!!!!!

 

j=2

d6:       do k=k9, k0, -1   !!!!

d7:                               do i=1, n125

if(as(i)==k.and.i/=a99(2))then

j=j+2

a99(j-1)=as(i); a99(j)=ai(i)

end if

end do d7

end do d6

!  print*,'end do d6  OK'                                   !!!!!!!!!!!!!!!!!!!!!

 

d8:                  do i=1, n250, 2

j=i+(1-i)/2

as(j)=a99(i)

ai(j)=a99(i+1)

 

end do d8

!       print*,'end do d8  OK'                                !!!!!!!!!!!!!!!!!!

 

ii=0; n7=n8-1

d9:                   do i=1, n125

k=ai(i); kj=k*n8-n7

d10:                             do j=0, n7

ii=ii+1

a99(ii)=a(j+kj) !!!!!!!

end do d10

end do d9

!    print*                                                                       !!!!!!!!!!!!!!!!!!!!!

end subroutine order9

 

function ise(nc,nn,nk,n,sa99)                            !ise --sumesli; nc-- code number; n -- number of events

integer,intent(in)::nc,nn,nk,n

integer,intent(in),dimension(n)::sa99

if(nc==0)then

ise=0; go to 1; end if

is=0;

do i=nn, nk ;

if(sa99(i)==nc)then

m=sa99(i); is=is+m;

end if

end do

ise=is/nc;

1    continue

end function ise

 

function cumkv(n8,n125,sm,x,z125)

real,dimension(1:2)::x

real,dimension(1:n125)::z125,fszn,disp

di:                    do i=1, n125

xi=i*n8

fszn(i)=x(1)*xi/(xi-sm)*exp(-x(2)*xi)

dff=(fszn(i)-z125(i))

disp(i)=dff*dff

end do di

cumkv=sum(disp)

end function

 

program tzch

integer, dimension(1:1010)::a,a9,a99,smn                                        ! artisti tzirka

integer, dimension(1:11)::k11,k10,smk=0,k0=0

integer, dimension(1000,500)::maco=0

real, dimension(9,1001)::smx1x2=0.

real, dimension(4,10)::smscu=0.

real, dimension(1:500)::srzn=0.0,disp=0.0,fszn                                    ! dps, srednie znachenija, dispersii

real, dimension(1:500,1:500)::mszn=0.0

real, dimension(1:11)::c11,c,snc=0.0,cs=0.0,csc=0.0

real, dimension(2)::xs,xd,x=0.,sc,st

real, dimension(4)::cz

real,parameter::e=2.71828

integer count,mmc,mc,mcmax,prin,mu

 

 

data k10/1,2,3,4,5,6,7,10,0,12,14/

data k11/1,2,3,4,5,6,7,10,11,12,14/

data c11/0.080259366,0.080835735,0.080835735,0.079106628,0.081556196,0.14221902,0.077233429,0.09870317,0.119308357,0.062247839,0.0&

&97694524/

data a9/3,14,4,14,14,2,14,11,3,2,1,4,6,3,4,2,4,4,6,12,4,2,2,6,12,6,5,12,7,11,11,5,3,1,14,12,14,7,7,11,6,6,2,4,6,3,4,5,10,11,1,14,&

&1,4,4,7,6,7,6,2,10,6,3,7,14,1,3,6,10,10,2,5,7,7,14,14,7,5,7,11,1,10,2,5,7,4,2,5,11,14,12,1,14,5,3,10,11,14,2,4,3,4,2,14,6,7,12,10,&

&6,6,12,10,2,1,12,10,5,2,3,3,6,6,6,10,11,4,6,1,6,11,14,11,3,11,10,6,4,14,11,6,3,14,3,12,2,2,6,11,6,12,14,1,5,5,7,5,3,7,2,11,5,11,4,&

&3,7,5,6,4,10,7,11,11,3,11,2,11,1,11,11,1,2,5,10,3,12,6,3,11,10,6,2,5,6,14,12,10,2,1,1,7,10,11,6,11,5,11,6,4,7,1,6,3,2,7,4,6,2,11,&

&11,11,4,4,11,7,10,5,14,11,3,3,10,3,5,2,1,14,4,4,4,6,14,11,7,14,11,11,6,5,5,4,3,12,3,7,3,14,6,4,14,5,12,1,12,2,12,1,14,1,4,11,6,3,&

&2,10,7,7,11,14,1,11,11,5,4,3,3,6,5,11,6,11,11,2,4,11,1,12,12,4,3,2,4,10,5,14,6,6,2,4,14,7,7,14,5,5,2,12,1,12,6,10,1,6,3,2,5,6,11,4&

&,3,6,5,10,3,7,10,14,14,2,5,10,1,14,1,3,3,12,1,3,3,6,3,6,7,2,3,6,10,6,7,14,6,5,11,11,11,7,2,6,3,3,12,14,1,1,14,10,5,14,7,14,10,5,7,&

&11,10,7,1,3,3,2,10,11,7,7,6,7,2,11,1,14,6,12,11,2,4,11,11,2,1,10,10,14,14,10,7,2,1,6,10,11,6,4,6,2,10,6,6,6,3,3,2,14,11,4,3,2,7,14&

&,4,4,5,2,5,10,6,6,14,2,2,10,4,4,2,3,5,1,10,11,7,4,7,3,5,10,10,7,14,2,10,2,2,14,12,6,2,3,6,6,5,1,5,2,3,4,11,11,2,5,10,1,6,5,6,10,5,&

&1,14,10,3,11,1,14,4,3,7,5,11,7,14,4,10,12,6,14,11,3,6,12,14,14,1,5,11,4,3,14,12,4,5,5,6,10,12,4,14,12,6,2,7,11,12,7,11,6,10,5,7,5,&

&3,1,10,7,12,7,11,5,3,6,5,4,14,7,3,14,1,7,11,11,4,1,4,10,3,3,10,11,7,2,2,7,3,14,6,10,5,10,14,1,4,4,6,5,1,1,3,1,2,6,10,1,14,6,5,2,4,&

&6,6,4,6,3,2,6,10,6,5,3,5,11,3,10,10,5,11,3,6,6,7,4,10,7,14,7,3,6,2,3,3,7,2,10,6,3,4,4,2,14,14,6,6,1,6,11,3,10,5,1,6,11,12,2,4,2,10&

&,11,10,14,11,2,2,10,6,1,2,11,6,1,3,5,10,6,6,6,1,10,2,1,3,14,4,6,3,11,10,7,10,4,10,3,11,3,6,11,1,4,2,12,6,11,12,6,12,1,4,5,11,12,1,&

&1,3,2,4,10,5,3,14,11,4,10,2,12,11,6,11,11,1,3,6,6,5,2,6,6,11,3,11,4,6,11,12,11,12,3,11,3,1,7,14,4,2,12,1,14,12,1,11,10,10,7,4,7,14&

&,6,3,5,1,7,4,3,6,10,11,7,1,11,6,2,10,11,12,6,4,11,5,11,6,6,7,11,1,4,2,7,11,12,6,6,1,5,4,14,6,12,10,5,10,11,6,1,2,11,6,6,11,14,1,7,&

&3,1,6,4,6,14,3,12,10,2,11,6,1,11,4,4,1,3,5,10,11,4,3,6,14,5,7,10,1,3,7,4,11,2,5,2,11,2,7,10,5,14,6,3,1,7,10,4,6,10,6,6,10,14,11,11&

&,5,7,10,1,10,11,5,14,1,6,10,2,6,1,3,4,4,14,3,4,4,1,12,5,2,14,6,14,5,11,12,2,2,5,11,6,1,1,3,5,6,1,10,5,7,7,2,10,11,5,3,7,2,11,5,3,6&

&,14,12,4,14,14,7,1,7,11,11,3,1,14,12,7,2,11,12,2,3,12,7,2,7,4,7,4,6,14,1,6,3,7,2,2,7,5,1,10,7,12,2,4,1,4,14,14,2,1,2,11,14,6,4,6,7&

&,3,1,2,2,6,10*0/,is/0/,n/1000/,n8/10/,ks/10/,m/1/,mc/1/,mcmax/20/,xs/0.09,0.008/,xd/0.06,0.001/,sc/0.0001,0.0001/,t/0.000001/&

&,mmc/-1/

 

! in at parameter for subroutine modela1: mc=0 or mc=1

! in at parameter for subroutine modela1: mcmax1,... 1000

prin=0                                                                  ! in at parameter for subroutine modela1: if prin=0 --> output of the model array else no

! single dimension array (aka the "atom"); the number of codes in the "atom": 2, 4, 8, 10 - multiple 1000

! (the number of codes in an array a9;);

mu=10                                                                  ! in at parameter for subroutine modela1: duration of the cycle pause for "call random_number(u)"

! if ks=11,then "poluprazdnik" special day else "poluprazdnik" == "prazdnik": 11 ---> 10

! for ks=10 check sum = 6639; for ks=11 check sum = 6654

 

n125=n/n8; print*,'n125=',n125

if(mc==0)then

mc0=0

else

mc1=1

end if

d1:    do i=1, 11;          c(i)=c11(i)

if(ks==11)then

k0(i)=k11(i)

else

k0(i)=k10(i)

end if

end do d1

 

if(ks==10)then

c(8)=0.218011527; c(9)=0.0;

end if

s=0.; print*,'share calendar = '

d2:    do i=1, 11;          s=s+c(i); print 54, i,c(i)

end do d2

 

d3:                   do i=1, n; a99(i)=a9(i);

if(ks==10.and.a9(i)==11)a99(i)=10

end do d3

 

d4:     do i=1, n;  is=is+a99(i);

end do d4

print 49, is; print*

if(m==2)go to 32

if(m==1.and.mc==0)go to 33

111                  continue; print*

call modela1(mu,ks,mc,n8,n,prin,a99)

 

if(ks==10) then

do i=1, n;

if(a99(i)==11)a99(i)=10

end do

end if; jsk=0

do j=1, 11; snc(j)=ise(k0(j),1,n,n,a99); jsk=jsk+snc(j);

end do;

do j=1, 11; cs(j)=snc(j)/jsk;  csc(j)=c11(j)

if(j==2.or.j==3.or.j==7)then

cs(j)=0.; !csc(j)=0.

end if

!   print 55,j,cs(j),c(j)

end do;                                                                                   !read*

 

32     continue

do i=1, n; a(i)=a99(i)!;a99(i)=0

end do

if(m==2)call order9(n,n8,a,a99)

 

33        continue

dco:     do i1=1, n125;                                                             ! stolbiki

do j=1, n;                                                                     ! stroki

maco(J,i1)=a99(j);                              !print*,'maco(J,i1)=',maco(J,i1); read*

end do

ds1:                             do i=1, n8;       a99(n+i)=a99(i);

end do ds1

ds2:                 do i=n8+1, n+n8;  a99(i-n8)=a99(i);

end do ds2

end do dco;

 

dlin:                  do j=1, n125;                                                                                                                                    !line -- stroka

dcol:                            do i=1, n125;                                                                                                                         !column -- stolbik

datm:                                       do in=1, n8*j                                                                                                             !atom

a(in)=maco(in,i)

end do datm;

nn=1; nk=n8*j;

dco:                                                                do jc=1, 11;

smk(jc)=ise(k11(jc),nn,nk,n,a);

end do dco

scoders=real(sum(smk));

smk(2)=0; smk(3)=0; smk(7)=0;sj=0.

dje5:                            do je=1, 11; snc(je)=real(smk(je))/scoders; !print*,je,snc(je)

b=snc(je)-c(je);

if(b>0.)then

pj=b*scoders;  sj=sj+pj;

end if

end do dje5;                                                                                       !read*

isj=anint(sj);    dpsi=real(isj)/scoders; mszn(j,i)=dpsi;

end do dcol

end do dlin;

 

uz=0.

dst:       do i=1, n125

us=0.

dus:                             do j=1, n125;

us=us+mszn(i,j);

end do dus;

srzn(i)=us/real(n125); uz=uz+srzn(i);

end do dst

 

if(mc==0.and.mmc==-1)then

print*; print*,'the relative proportions','    share calendar';print*

print*,' mc=',mc,'  mmc=',mmc;

 

dc:       do j=5, 11; ac=snc(j)

cs(j)=ac; csc(j)=c(j);

print 55,j,cs(j),c(j)

end do dc; print*

end if

print*,'norma veritatis'

print 50, sum(cs),sum(csc)-c11(7); !read*

 

if(m==1.and.mmc==-1.and.mc==0) then

print* ; print*,'                                    massiv a9'; go to 112

end if

if(m==2)then

print*; print*,'                                    massiv a99'; go to 112

end if;

if(mc==0.and.mmc==0)then

print* ;print 52, mc

else

print*; print 57, mc

end if

if(mc0==0)mc=mc+1;

 

112      continue ;

isn=1; isk=n8-1

de:       do ie=1, 2; print*

if(ie==1) then

do l=1, 2; x(l)=xs(l);

end do

else

isn=ism; isk=ism;

do l=1, 2; x(l)=xd(l);

end do

end if

if(ie==1)then

print 53, m,ks;print*

else

print*,'          dispersii';print*

end if

print 51,x(1),x(2)

 

dsm:     do is=isn, isk;   sm=is

 

2                     kn=0

dm:                  do k=1, 2;

scu0=cumkv(n8,n125,sm,x,srzn)

x(k)=x(k)+x(k)*sc(k)

scu1=cumkv(n8,n125,sm,x,srzn)

if(scu1-scu0>0.)then

sc(k)=-sc(k);

else

scu1=scu0

end if

st(k)=x(k)*sc(k)

1                      kn=kn+1;

x(k)=x(k)+st(k)

scu=cumkv(n8,n125,sm,x,srzn)

if(scu<=scu0) then

t1=abs(st(k));   st(k)=st(k)*e;

go to 1

else

t1=t1/e

x(k)=x(k)-st(k);

st(k)=sc(k)*x(k)

end if

kn=0;    ism=sm;

smscu(1,ism)=sm; smscu(2,ism)=scu0

end do dm

if(t1<=t)then

go to 3

else

go to 2

end if

3                    print 56, t1,sm,x(1),x(2),scu0

smscu(1,ism)=sm; smscu(2,ism)=x(1); smscu(3,ism)=x(2); smscu(4,ism)=scu0

end do dsm

 

if(ie==1)then

do i=2, n8-1;

if(smscu(4,i)<smscu(4,i-1))then

ism=i;        end if

end do;

end if

 

if(ie==1)then

smx1x2(1,mc)=mc;

smx1x2(4,mc)=smscu(2,ism); smx1x2(5,mc)=smscu(3,ism); smx1x2(6,mc)=smscu(4,ism)

else

smx1x2(2,mc)=sum(cs);smx1x2(3,mc)=ism; smx1x2(7,mc)=x(1); smx1x2(8,mc)=x(2); smx1x2(9,mc)=scu0

end if

 

di:                   do i=1, n125

xi=i*n8; sd=0.

fszn(i)=x(1)*xi/(xi-sm)*exp(-x(2)*xi)

dj:         do j=1, n125

disp(j)=(fszn(i)-mszn(j,i))

disp(j)=disp(j)*disp(j)

end do dj; sd=0.

dk:                  do k=1, n125

sd=sd+disp(k)

end do dk

srzn(i)=sqrt(sd/(n125-1))

end do di;

if(m==2)print*

end do de;

 

if(mmc==-1.and.m/=2.and.mc==0)then

print*;print 220; read*

end if

if(m==2)then

go to 322

end if

mmc=mmc+1

if(mc==0.and.mmc==0)then!

go to 111

end if

if(mc0==0)then

if(mc<mcmax)go to 111

end if

if(mc1==1)then

!  print*; print 57, mc

mc=mc+1;

if(mc<=mcmax)go to 111

end if

 

print*;  print*; print 222; print*

print 224

do i=1, mcmax; smn(i)=smx1x2(3,i)

print 223, smx1x2(1,i),smx1x2(2,i),smx1x2(3,i),smx1x2(4,i),smx1x2(5,i),&

&                       smx1x2(6,i),smx1x2(7,i),smx1x2(8,i),smx1x2(9,i)

end do;

do l=1, n8; smk(l)=ise(l,1,mcmax,mcmax,smn)

end do;

 

ii=1

i1=1; i2=0

di1:         do l=i1, n8;   if(smk(l)<1)go to 115

if(i2<1.and.smk(l)>smk(l+1))then

i2=l;  go to 115

end if

if(smk(l)>smk(l+1).and.smk(l)>smk(i2))i2=l

115      continue ; ii=i2

end do di1;      ism=ii;

i5=0;

do i=1, mcmax;            j3=smx1x2(3,i);

if(j3/=ii)then

do j=1,9; smx1x2(j,i)=0.

end do; i5=i5+1

end if;

end do; i7=0

do i=1, mcmax

if(smx1x2(7,i)<0.or.smx1x2(8,i)<0)then

do j=1, 9; smx1x2(j,i)=0.

end do; i7=i7+1

end if

end do

is3=mcmax-i5-i7; print 220;    print 303,ism,is3;

 

print 224

do i=1, mcmax;

print 223, smx1x2(1,i),smx1x2(2,i),smx1x2(3,i),smx1x2(4,i),smx1x2(5,i),&

&                    smx1x2(6,i),smx1x2(7,i),smx1x2(8,i),smx1x2(9,i)

end do; print*;print 220; read*;

 

s4=0.; s5=0.;s7=0.;s8=0.; s6=0.

do i=1, mcmax; s4=s4+smx1x2(4,i); s5=s5+smx1x2(5,i);s7=s7+smx1x2(7,i);&

&              s8=s8+smx1x2(8,i); s6=s6+smx1x2(6,i)

end do; cz(1)=s4/is3; cz(2)=s5/is3; cz(3)=s7/is3; cz(4)=s8/is3;cz5=s6/is3

print 226

print 225, cz5

print 227

print 228, cz

print 300,mcmax

print 301,ism,is3; read*

322 continue

stop

54    format('i=',i2,'   c(i)= ',f9.6)

49       format(27x,'check sum =',i5)

55     format(' j= ',i2,'    snc = ',f9.6,'    c(j)=',f9.6)

50       format(' sum sns(5.. 11) =',f6.3,' <  sum c(5... 11) =',f6.3)

52       format(45x,'free model dimension a99 ---> mc0 = ',i3)

57     format(45x,'free model dimension a99 ---> mc = ',i3)

51     format(19x,'start-->',' x(1)=',f9.6,'  x(2)=',f9.6)

53     format('   srednie znchenia m =', i3,'  ks =',i3)

56     format(' t1=',e12.6,'   sm= ',f3.1,'  x(1)=',f9.6,'  x(2)=',f9.6,'  neviazka=',f12.8)

220    format(45x,'click ENTER')

222     format(33x,'final result of calculations')

224    format(20x,'sm',6x,'xs(1)',7x,'xs(2)',6x,'neviazka',6x,'xd(1)',7x,'xd(2)',6x,'neviazka')

223    format(f6.0,f8.3,f8.0,f12.6,f13.7,f12.6,f12.6,f13.7,f12.6)

303    format(' ism =',i3,3x,'is3 =',i4)

226    format(24x,'   srednie  znchenia',11x,'dispersii')

227    format(27x,'xs(1)',7x,'xs(2)',7x,'xd(1)',7x,'xd(2)')

225    format(' neviazka =',f10.6)

228    format(21x,4f12.6)

300    format(' mcmax =',1i5)

301    format(' for ism=',i2,':',' mcmax =',1i5)

end program tzch

 

 

 

 

---

1 http://rusk.ru/st.php?idar=111890

2 о. Святослав (Каракишев). «Многие же будут первые последними, и последние первыми». Екатеринбург, 2010 г.

1 Юрий Мухин. «Диагноз власти». М.: «Алгоритм», 2009 г., с.52.

2 http://www.bookshunt.ru/b432939_programmirovanie_na_fortrane_powerstation_dlya_inzhenerov._prakticheskoe_rukovodstvo

2 http://habrahabr.ru/post/128454/

1 «Еврейская энциклопедия». Т.12. Репринтное воспроизведение издания Общества для Научных Еврейских Изданий  и  Издательства Брокгауз — Ефрон. «ТЕРРА» – «TERRA», Москва, 1991, стр.781.

1 о. Святослав (Каракишев). «Многие же будут первые последними, и последние первыми». Екатеринбург, 2010 г.

[1] «От Иоанна святое благовествование» (четвертая книга Нового Завета). Глава 8, стих 44. В краткой записи — Ин. 8, 44.

2 Протоиерей Г. Дьяченко. «Полный церковно-славянский словарь». Издательский отдел Московского Патриархата. М., 1993 г., с. 185.

1 Ральф Рене. «Как NASA показало Америке луну». Перевод с англ. В. Фридмана. М.: ЭНАС, 2009 г., с. 108-109.

1 о. Святослав (Каракишев). «Многие же будут первые последними, и последние первыми». Екатеринбург, 2010 г.

* читай — «жидонизация»

* 20 декабря — самый короткий день в году. В столице заход солнца в 16 часов. Если законопроекты были приняты после 16 ч., то по еврейскому календарю это уже начало следующего дня седмицы — 21 декабря, то есть 24 кислева (канун праздника Ханука).

1 http://rasvet.org/index.php?option=com_content&view=article&id=288:2011-02-21-22-37-25&catid=36:monarh&Itemid=84

2 А. Нечволодов. «Сказание о Русской Земле». Книга вторая. С.-Петербург, 1913 г. (Репринтное издание в четырех томах. 1991 г., с. 330-340).

1 http://elvisti.com/node/107166

2 http://ru.wikipedia.org/wiki/Список_журналистов,_убитых_в_России

* неиудей, прислуживающий еврею в день покоя, в субботу.

1 о. Святослав (Каракишев). «Многие же будут первые последними, и последние первыми». Екатеринбург, 2010 г.

2 http://ru.wikipedia.org/wiki/список журналистов убитых в России

** численное значение оных делится без остатка на 7 или 50.

3 Ivor Benson.      «The Zionist Factor The Jewish Impact on the Twentieth Century History». Published in English by THE BARNES REVIEW130 3rd St., S.E. Washington, D.C. 20003 USA

4 www.hrono.info/1900ge.php (ХРОНОС)

1 Григорий Ерицян. «Хроника России. ХХ век». М.: СЛОВО/SLOVO, 2005.

* жид американский диктует Германии свою волю

2 Ю. Мухин. «Тайны еврейских расистов». М.: «ЯУЗА», «ЭКСМО», 2005 г., с.111.

1 Бренье Флавиан. «Евреи и Талмуд».  Репринт с изд. 1928 г. — М.: ВРС, 1994 (гл. II, с. 21). Электронный вариант книги: Евреи и Талмуд. Флавиан Бренье. Нравственное учение и общественные основы еврейского народа по его священной книге Талмуду с обзором … Князь М. ГОРЧАКОВ.

2 Цитата из кн.: Игумен Феодосий (Кульчицкий). «КТО мастера вкусной приправы? Кто они? Прочтешь — прозришь, не прочтешь — рабство». М.: «ПЕРЕСВЕТ», 1995 г., с. 16-17.

1 О. Платонов. «Загадка сионских протоколов». М.: «Алгоритм», 2005 г., с.82-83.

2 о. Святослав (Каракишев). «Многие же будут первые последними, и последние первыми». Екатеринбург, 2010 г.

3 . От Иоанна святое благовествование. Глава 8, стих 44.

* живущий по строгому регламенту, закону

1 Вл. Даль: прикровение — скрытное, тайное действо.

* поставить ногу

2 Бренье Флавиан. «Евреи и Талмуд».  Репринт с изд. 1928 г. — М.: ВРС, 1994 (гл. II, с. 27).