Анатолий Фоменко - Царь славян
Здесь в глухом виде проступают основные узлы библейского сюжета 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.
