Распечатать страницу | Назад к предыдущей теме | Название форума | Свободная площадка | Название темы | хронопу лично приватно | URL темы | https://chronologia.org/dc/dcboard.php?az=show_topic&forum=264&topic_id=118792 |
118792, хронопу лично приватно Послано portvein777, 12-11-2015 14:19
иш ты и о LU вспомнилы http://inbelhist.org/zhaleznyya-ptushki-agdy/
только жавко не па русску :+
|
118815, попутно поздравим кекса грея Послано portvein777, 15-11-2015 14:23
с деня мраш
ирмы то мелкие - а вот хроноп и некоторые знают :P
|
118847, RE: хронопу лично приватно Послано Alexandr, 20-11-2015 05:46
Как считаете, в 1582г н.э. весеннее равноденствие приходилось в точности на 11.0004 марта ст.ст?
Климишин, к примеру, считает, что таки - ДА :)
|
118853, RE: хронопу лично приватно Послано portvein777, 20-11-2015 16:37
мы с вами (попами) уже это обсуждали \\\ и я и маркаб считаем что все это Фигня --- гороскопы там ... равно денствия и пр
include 'fgraph.fi' include 'vt125a.for' program aaaa include 'fgraph.fd' integer NARROW, WIDE parameter (NARROW = 3) parameter (WIDE = 4) character*1 asc integer*2 isc
integer*2 year, month, day character WideTitle*27 /'‚®б Џ® ‚в® ‘ॠ—Ґв Џпв ‘гЎ'/ character NarrowTitle*20 /'‚б Џ® ‚в ‘а —в Џп ‘г'/
d call Cls() call cursoroff() * get today's date
call getdat( year, month, day )
* draw calendar for this month
call Calendar( month, year, 10, 26, WIDE, WideTitle )
* draw calendar for last month 1 call inkey(isc,asc) select case(isc) case(75) !vlevo month = month - 1 if( month .lt. 1 )then month = 12 year = year - 1 endif call Calendar( month, year, 10, 26, wide, wideTitle ) * draw calendar for next month case(77) month = month + 1 if( month .gt. 12 )then month = month - 12 year = year + 1 endif call Calendar( month, year, 10, 26, wide, wideTitle ) case default if((asc.eq.char(8)).or.(asc.eq.char(12)).or. *(asc.eq.char(27)))goto 444 end select goto 1
444 call posit1( 20,1 ) d call inkey(1,' ') end
subroutine Calendar( month, year, row, col, width, title ) integer*2 month, year integer row, col, width, nrow character*(*) title
integer lentrim integer start, days, box_width, i
character*9 str character*9 MonthName( 1:12 ) & / 'џў ам', '”Ґўа «м', 'M ав', 'AЇаҐ«м', & 'Ma©', '€ом', '€о«м', 'AўЈгбв', & '‘ҐвпЎам', 'OЄвпЎам', 'Ќ®пЎам', '„ҐЄ Ўам' / integer Jump( 1:12 ) / 1, 4, 4, 0, 2, 5, 0, 3, 6, 1, 4, 6 / integer FEBRUARY parameter (FEBRUARY = 2) integer MonthDays( 1:12 ) & / 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 / box_width = 7 * width - 1 call Box( row, col, box_width, 8 ) str=' ' str = MonthName( month ) d do lentrim=9,1,-1 d if(str(lentrim:lentrim).ne.' ')exit d enddo lentrim=9 call Posit1( row - 1, & col + 1 + ( box_width - lentrim - 5 ) / 2 ) print '(A,1X,I4,\)', str(1:lentrim), year call Posit1( row + 1, col + 1 ) print *, title
start = (year - 1900) + (year - 1900) / 4 + Jump( month ) if( ( mod( year, 4 ) .eq. 0 ) .and. ( month .le. FEBRUARY ) )then start = start - 1 endif start = mod( start, 7 ) + 1 if( ( mod( year, 4 ) .eq. 0 ) .and. ( month .eq. FEBRUARY ) )then days = 29 else days = MonthDays( month ) endif nrow = row + 3 do i = 1, days call Posit1( nrow, col + width * start - 2 ) print '(I2),\', i if( start .eq. 7 )then nrow = nrow + 1 start = 1 else start = start + 1 endif enddo end
subroutine Box( row, col, width, height ) integer row, col, width, height, i
call Line( row, col-1, width+1, 'Ъ', 'Д', 'ї' ) call Line( row + 1, col-1, width+1, 'і', ' ', 'і' ) call Line( row + 2, col-1, width+1, 'Г', 'Д', 'ґ' ) do i = 3, height call Line( row + i, col-1, width+1, 'і', ' ', 'і' ) enddo call Line( row + height + 1, col-1, width+1, 'А', 'Д', 'Щ' ) end
subroutine Line( row, col, width, left, centre, right ) integer row, col, width, i character left, centre, right character buffer( 0:79 )
buffer( 0 ) = left do i = 1, width buffer( i ) = centre enddo buffer( width + 1 ) = right call Posit1( row, col ) print *, (buffer( i ), i = 0, width + 1) end
subroutine Posit1( row, col ) integer row,col call posit(23,23) write(*,'(a1,\)')' ' d write(*,'(2i6,\)')row,col call posit(row,col) d call inkey(1,' ') end
:P :P :P :P
|
118854, RE: хронопу лично приватно Послано Alexandr, 20-11-2015 17:10
>и я и маркаб считаем >что все это Фигня --- гороскопы там ... равно денствия и пр
Замечательно. Однако, в контексте приведённой Вами ссылки подразумевалось: - эфемеридная поправка на 1582 год - историческая достоверность дробной части, указанной даты
:)
|
118858, RE: хронопу лично приватно Послано Alexandr, 20-11-2015 20:34
>include 'fgraph.fi' ...
проще чем по православной Пасхалии дни недели на любую дату 7980 отрезка времени не сосчитать. Подстава папы с 5500 -> 5508 подложила свинью здесь сознательно, но всё равно - самый простой способ. А так - за алгоритм пасиба. Потом... при желании.
|
118859, RE: хронопу лично приватно Послано portvein777, 20-11-2015 22:16
http://pervokarta.ru/temp/cal.exe программку вроде я писал \\ но это было 15 л назат :-(
ниче не помню
а остальной текст - НЕ МОЙ
else one одна из основательниц нашего движения - LU http://www.portvein77.narod.ru/
теперь уже и тем таких не найти
споры про пасхалии были на фатюшкинде - гормушнике большие и жаркие
|
118860, RE: хронопу лично приватно Послано Alexandr, 20-11-2015 23:23
>http://pervokarta.ru/temp/cal.exe >программку вроде я писал \\ но это было 15 л назат :-(
экзе у меня уже было...
>споры про пасхалии были на фатюшкинде - гормушнике >большие и жаркие
да Бог с ими... со спорами теми...
Скажите лучше, чувства дежавю не возникло:
касаемо «калибровки»...
касаемо нуля...
ну, и так вообще, в целом?
|
119018, RE: хронопу лично приватно Послано Alexandr, 15-12-2015 06:08
Климишин «Календарь и Хронология» 1985г (стр.169~181)
:)
Чёт не клеится у евреев по равноденствиям... Может хотя бы по полнолуниям православной Пасхалии, зафиксированным с 16 марта ст.ст. 877г н.э. (равноденствие) по 2 апреля ст.ст. 915г н.э. (полнолуние) склеится?
Indict= 9 Sun= 13 Moon= 1 -------------------------Indict-------Sun-------Moon CORRECTION(S-1,M-1) Adam 684 N.E. -4824 9 12 19 _______NO CORRECTION________ Adam 1749 N.E. 3760 до н.э. 9 13 1 CORRECTION(S+1,M+1) Adam 2814 N.E. -2694 9 14 2 -------------------------Indict-------Sun-------Moon END OF CALCULATION
«0 часов среды» 2 апреля = 18:00 1 апреля по современному счёту
:)
Гляди-ка, клеится... Правда, по календарю, откалиброванному по полнолунию, «с точностью до двух минут» совпавшим с равноденствием 14 марта ст.ст. 1199г н.э...
|
118999, новостильный алгоритм, стало быть... Послано Alexandr, 10-12-2015 12:26
>программку вроде я писал \\ но это было 15 л назат :-(
|
119021, а вот так по-человечьи: Послано Alexandr, 15-12-2015 07:33
1 апреля ст.ст. 1749г в.э. (3760г до н.э.) днём недели был вторник. Вруцелето 1749-го года 2 («B»), следовательно: 1 (число месяца) + 6 (доп.число апреля) + 2 (вруцелето года) = 9
9/7=1 остаток 2 (т.е. вторник)
Несложно, не правда ли? Причём без всяких алгоритмов и экзешников...
|
118856, RE: хронопу лично приватно Послано Alexandr, 20-11-2015 19:02
>только жавко не па русску :+
оТ так ПаЧти па рЮссьКу:
http://translate.google.ru/translate?hl=ru&sl=be&tl=ru&u=http%3A%2F%2Finbelhist.org%2Fzhaleznyya-ptushki-agdy%2F
|
119022, RE: хронопу лично приватно Послано portvein777, 15-12-2015 14:51
попу ляксандру скучно :+
мы то вошли в класссику
скачал нерюсский жюрнал с модой-погодой http://pervokarta.ru/temp/temp/o.pdf шерше filatova :P
|
119024, испанская страничка Послано irina, 15-12-2015 15:37
Раз пошли такие ссылки, сообщу, что как раз стал пополняться раздел на испанском и каталонском.
:-)
|
119026, ikk... Послано portvein777, 15-12-2015 16:31
да -ужасный язык ingRedientes 4 huevos 125 gr. de manteca
http://terraeantiqvae.com/profiles/blogs/las-ciudades-vasconas-en
http://terraeantiqvae.com/profiles/blogs/la-ubicacion-de-las-aras
http://terraeantiqvae.com/m/blogpost?id=2043782%3ABlogPost%3A39447 ....
на самом деле я еще 15 л назат говорил - все это фигня конкретный пример с африкой (явные дубликаты) я приводил на позапрошл конференции :o специяльно для ирму поясню - именно с-з африки - это гемма рой \\\ там одна бд налезает на другую -их надо сначала слить \\например точки с тритон - озером (разнесены Изрядно - а такого быть не может) река мальва и пр НИКАКОЙ полином это не исправит - снчала надо Разделить выборки
и вообще - мы в турции :P http://turkey.estimatedwebsite.co.uk/portvein777.narod.ru
|
119033, RE: хронопу лично приватно Послано Alexandr, 16-12-2015 05:03
>мы то вошли в класссику
Хотите сказать: «рука руку моет»? Соглашусь.
|
119057, RE: хронопу лично приватно Послано portvein777, 19-12-2015 19:59
МЕНЕ аргентинский жюрнал не заплатил за цитирование \\ так что какая там рука x(
да и по тупому восприняли наши старые статьи я на конференции которая будет 26!!!! немного остановлюсь на ентих формУлах
| |