Анатолий Фоменко - Царь славян

Здесь в глухом виде проступают основные узлы библейского сюжета XIV века из истории Моисея, преследуемого «фараоном», см. «Библейская Русь», гл. 4:6. Война, два противоборствующих войска. Холодное время года. Два войска оказываются по разные стороны реки (стрельцы обмениваются выстрелами через реку). Река или озеро, покрытое льдом. Одно войско благополучно переправляется по уже слабеющему льду. Сразу после перехода лед рушится. Затем войско противника вступает на подтаявший лед (другой?) реки или озера. Лед неожиданно трескается, и многие воины погибают.

Приложение 3

ПРОГРАММА ДЛЯ ПЕРЕВОДА ИНДИКТОВЫХ ДАТ В РУССКО-ВИЗАНТИЙСКУЮ ЭРУ ОТ АДАМА

Программа написана на языке Фортран.

*_______________________________________________

program ind_date

*_______________________________________________

* Вычисление годов от Адама от 1 до 7980 = 15x19x28 с данным

* индиктом, кругом Солнцу и кругом Луне различно для дат

* от точки перескока индикта до точки перескока

* кругов Солнцу и Луне и дат оставшейся части года.

*

* Поэтому дается три варианта пересчета

* 1) без поправки кругов Солнцу и Луне

* 2) с поправкой кругов Солнцу и Луне на +1

* 3) с поправкой кругов Солнцу и Луне на -1

*

* При переводе полученных таким образом годов

* от Адама на года н. э. вычитается 5508 для всех

* месяцев года.

*_______________________________________________

CHARACTER*1 Q1

*_______________________________________________

OPEN(3,file='otvet.txt',access='sequential',

form='formatted',status='replace')

WRITE(*,*)'============================== '

WRITE(*,*)' ВВЕДИТЕ ИНДИКТ, КРУГ СОЛНЦУ И КРУГ ЛУНЕ '

WRITE(*,*)' (ЕСЛИ ЗНАЧЕНИЕ НЕИЗВЕСТНО, ВВЕДИТЕ НОЛЬ) '

WRITE(*,*)'

WRITE(*,*)'======================= '

301 write(*,*)' '

write(*,*)'Введите ИНДИКТ (от 1 до 15; 0 если неизвестен)'

read(*,*) indict

write(*,*)'Введите КРУГ СОЛНЦУ (от 1 до 28; 0 если неизвестен)'

read(*,*) isun

write(*,*)'Введите КРУГ ЛУНЕ (от 1 до 28; 0 если неизвестен)'

read(*,*) imoon

302 WRITE(*,*)' '

WRITE(*,*)

'///////////////////////\\\\\\\\\\\'

WRITE(*,*) ' 1: ПУСК '

WRITE(*,*) ' 2: ИЗМЕНИТЬ ЗНАЧЕНИЯ'

WRITE(*,*) ' 3: ЗАКОНЧИТЬ РАБОТУ'

5 WRITE(*,*) ' ВВЕДИТЕ НУЖНОЕ ЧИСЛО И НАЖМИТЕ КЛАВИШУ <ВВОД>'

READ(*,'(A)') Q1

IF(Q1.NE.'1'.AND.Q1.NE.'2'.AND.Q1.NE.'3') THEN

WRITE(*,*) ' НЕВЕРНОЕ ЗНАЧЕНИЕ? ДОЛЖНО БЫТЬ 1, 2 ИЛИ 3'

GOTO 5

ENDIF

ivvod=ICHAR(Q1)-ICHAR('0')

IF (ivvod.EQ.1) GO TO 303

IF (ivvod.EQ.2) GO TO 301

IF (ivvod.EQ.3) STOP 'ЗАВЕРШЕНО ПОЛЬЗОВАТЕЛЕМ'

GO TO 302

303 CONTINUE

*____________проверяем данные на правильность _____________________

IF ((indict.LT.0).OR.(indict.GE.16)) GOTO 100

IF ((isun.LT.0).OR.(isun.GE.29)) GOTO 100

IF ((imoon.LT.0).OR.(imoon.GE.20)) GOTO 100

GOTO 200! данные введены правильно

100 WRITE(3,*)' WRONG INPUT DATA: '! данные введены неверно

WRITE(*,*) ' WRONG INPUT DATA: '

WRITE(3,*) 'indict= ',indict,' isun= ',isun,

' imoon=',imoon

STOP

*____________ начало расчетов ___________________________

200 CONTINUE

WRITE(3,*)' indict = ',indict

WRITE(3,*)' Sun = ',isun

WRITE(3,*)' Moon = ',imoon

WRITE(3,*)' '

WRITE(3,*)' '

WRITE(3,*)'БЕЗ ПОПРАВКИ / ПОПРАВКА(S+1,M+1) / ПОПРАВКА (S-1,M-1)'

WRITE(3,*)'от АДАМА, Н.Э./от АДАМА, Н.Э. /от АДАМА, Н.Э.'

WRITE(3,*)'_____________________________________________'

WRITE(3,*)''

indx=0

isx=0

imx=0

DO iadam=1,7980

IF (iadam.EQ.6690) THEN

write(*,*) iadam

END IF

iAD=iadam-5508

indx=indx+1

isx=isx+1

imx=imx+1

IF (indx.EQ.16) indx=1

IF (isx.EQ.29) isx=1

IF (imx.EQ.20) imx=1

indy=indict

IF (indy.EQ.0) indy=indx ! нулевые значения -

! произвольные

IF (indx.EQ.indy) THEN

*______ БЕЗ ПОПРАВКИ: табличные круги Солнца и Луны такие же,

*______ как в источнике

isy=isun

imy=imoon

IF (isun.EQ.0) isy=isx

IF (imoon.EQ.0) imy=imx

IF ((isx.EQ.isy).AND.(imx.EQ.imy)) THEN

WRITE(3,*)iadam,' ',iAD

WRITE(3,*)''

END IF

*______ С ПОПРАВКОЙ: круги Солнца и Луны ПОДПРАВЛЯЮТСЯ НА +1

IF (isun.NE.0) isy=isun+1

IF (isy.EQ.29) isy=1

IF (imoon.NE.0) imy=imoon+1

IF (imy.EQ.20) imy=1

IF ((isx.EQ.isy).AND.(imx.EQ.imy)) THEN

WRITE(3,*)' ',iadam,' ', iAD

WRITE(3,*)''

END IF

*______ С ПОПРАВКОЙ: круги Солнца и Луны ПОДПРАВЛЯЮТСЯ НА -1

IF (isun.NE.0) isy=isun-1

IF (isy.EQ.0) isy=28

IF (imoon.NE.0) imy=imoon-1

IF (imy.EQ.0) imy=19

IF ((isx.EQ.isy).AND.(imx.EQ.imy)) THEN

WRITE(3,*)' ',iadam,' ',iAD

WRITE(3,*)''

END IF

END IF

END DO

WRITE (3,*)'___________________________________________'

WRITE(3,*)'END OF CALCULATIONS'

WRITE(*,*)'END OF CALCULATIONS'

CLOSE(3)

STOP

END

Литература[1]

[1] Аббас Шалаби. «Весь Египет. От Каира до Абу-Симбела и Синай». – Второе дополненное русское издание. Casa Editrice Bonechi, Firence, Italy, 1996.

[2] Аббас Шалаби. «Весь Египет. От Каира до Абу-Симбела и Синай». – Русское издание. Второе издание, дополненное. Casa Editrice Bonechi, Firence, Italy. Флоренция, Италия. Напечатано в Италии: Centro Stampa Editoriale Bonechi, 1999.

[3] «Александрия. Роман об Александре Македонском по русской летописи XV века». – М. – Л., Наука, 1966.

[4] Алессандро Анджелини. «Пьеро делла Франческа». Серия «Великие мастера итальянского искусства». – Москва, СЛОВО, 1997. Итальянское издание: 1995 by SCALA, Istituto Fotografico Editoriale, S.p.A. Italy.

[5] [ «Алтари»]. Катерина Лиментани Вирдис, Мари Пьетроджованна. «Алтари. Живопись Раннего Возрождения». – Перевод с итальянского. Изд-во «Белый Город», 2002; «Arsenale editrice», Italy, 2001.

[6] «Алфавитная Синтагма Матфея Властаря». Перевод с греческого свящ. Николая Ильинского, преподавателя Таврической Духовной Семинарии. – Симферополь, 1892. – Переиздание: Москва, изд-во Галактика, 1996.

[7] [Амартол Георгий]. Матвеенко Вера, Щеголева Людмила. «Временник Георгия Монаха. (Хроника Георгия Амартола)». Русский текст, комментарии, указатели. – Москва, изд-во «Богородский печатник», 2000.

[8] Андреева В., Куклев В., Ровнер А. «Энциклопедия символов, знаков, эмблем». – Москва, изд-во «Локид», изд-во «Миф», «AD MARGINEM», 1999.

[9] «Апокрифы Древней Руси». Составитель М. Рождественская. – СПБ, изд-во Амфора, 2002.

[10] Аугусто Джентили, Уильям Бархем, Линда Уайтли. «Лондонская Национальная Галерея». Альбом. Из серии: Великие Музеи Мира. – Москва, изд-во СЛОВО/SLOVO, 2001. Перевод итальянского издания, Magnus Edizioni Spa, Udine, Italia, 2000.

[11] Бадж Эрнест А. Уоллес. «Египетская религия. Египетская магия». – Москва, изд-во Алетейя, 2003. Перевод с английского: Ernest A. Wallis Budge. «The Egyptian Religion. The Egyptian Magic».

[12] Беллози Лючано. «Джотто». – Москва, изд-во СЛОВО/SLOVO, 1996. Перевод с итальянского издания: 1995 by SCALA, Istituto Fotografico Editoriale, S.p.A.

[13] Беляков А. «Современное состояние исследований Туринской плащаницы». – Интернет. Библиотека форума «Православная беседа»: http://pravbeseda.org/library.

[14] Бемон Ш., Моно Г. «История Европы в средние века». – Пг., 1915. Французское издание: Bemon C., Monod G. «Histoire de l'Europe au Moyen Age». – Paris, 1921.

[15] Берналь Диас дель Кастильо. «Правдивая история завоевания Новой Испании». Перевод с испанского: Bernal Diaz Del Castillo: «Historia Verdadera de la Conquista de la Nueva Espana». – Москва, изд-во Форум, 2000.

[16] Бессонов П. А. «Калики перехожие». Тома 1, 2. – Москва, 1861–1864.

[17] «Библия». 10-е издание. – СПб., 1912. Переиздание Московской Патриархии: «Библия. Книги Священного Писания Ветхого и Нового завета в русском переводе с параллельными местами и приложениями». – Москва, Издание Московской Патриархии, 1968. Имеются многочисленные переиздания, в частности, Российского Библейского Общества, Москва, 1995.

[18] Бируля Ю.Н. «Русские морские карты 1701–1750 гг. Копии с подлинников. (Атлас)». – Составитель: начальник 280 ЦКП ВМФ капитан I ранга Ю.Н. Бируля. Санкт-Петербург, ЦКФ ВМФ, 1993.

[19] Блер Ж. «Таблицы хронологические, объемлющие все части всемирной истории из года в год от сотворения мира до XIX столетия, на английском языке изданные Членом Королевского Лондонского Общества Жоном Блером». Тома I, II. – Москва, Изд-во Моск. унта, 1808–1809. Английское издание: «Blair's Chronological and Historical Tables, from the Creation to the Present Time, etc». G.Bell & Sons, London, 1882.

[20] Болотов В.В. «Лекции по истории древней церкви». Тома 1–4. – Посмертное издание под редакцией проф. А. Бриллиантова. – Спб, 1907. Репринтное издание. Москва, Спасо-Преображенский Валаамский монастырь, 1994.

[21] «Большая Советская Энциклопедия». Тома 1 – 51. Второе издание. – М.: Изд-во Советская Энциклопедия, 1949–1957.

[22] «Большая Советская Энциклопедия». Тома 1 – 30. Третье издание. – Москва. 1969–1978. (Электронная версия на 5 CD).

[23] «Большой Катехизис». – Москва, 7135 год (то есть 1627 год н. э.). Перепечатан в Королевской Гродененской типографии в 7291 году (то есть в 1683 году н. э.).

[24] «Боттичелли». Альбом из серии «Мастера живописи». Текст: Элена Карпетти. – 1997, Giunti Gruppo Editoriale, Firenze. 2001, «Белый город», издание на русском языке, Москва.

[25] Бутанов В.И. «Разин и разинцы. Документы, описания современников». – Москва, изд-во Наука, 1995.

[26] «Былины». Составитель В.И. Калугин. – Москва, изд-во Современник, 1991.

[27] Бычков А.А. «Энциклопедия языческих богов. Мифы древних славян». – Москва, изд-во «Вече», 2001.

[28] [Веркович] «Веда Словена» (Български народни песни отъ предисторично и предхристианско доба. Открылъ въ Тракия и Македония и издалъ Стефанъ И. Верковичъ. Београдъ 1874.).

[29] [Веркович]. «Веда Словенахъ. Обрядни песни отъ язическо время. Упазени со устно предание при Македонско-Родопски-те Българо-Помаци. Собрани и издани Стефаном Ил. Верковичем». Книги 1, 2. – Санкт-Петербург, 1881 г.

[30] Вздорнов Г.И. «Искусство книги в Древней Руси. Рукописная книга Северо-Восточной Руси XII – начала XV веков». – Москва, изд-во «Искусство», 1980.