?

Log in

No account? Create an account

Когда в товарищах согласья нет, на лад их дело не пойдёт - Ваши рубидии уже у кобальта во ртути

Dec. 9th, 2018

08:41 pm - Когда в товарищах согласья нет, на лад их дело не пойдёт

Previous Entry Share Next Entry

Наглядный пример борьбы двух математических школ:

F O R E X   ИПM AH CCCP           BEPCИЯ  2.02 OT  15.07.80

                 1       PROGRAM ZERO                                                                  1
                 2       PRINT ’(F12.6)’,0.0**0.0                                                      2
                 3       X=0.0                                                                         3
                 4       PRINT ’(F12.6)’,X**X                                                          4
                 5       END                                                                           5

...
           *EXECUTE
    1.000000
          ERROR POWER-INDEFINITE


Как видно из заголовка, ФОРТРАН-компилятор — и, надо полагать, вычисление константных выражений в нём — писали в Москве, в Институте Прикладной Математики, а кто именно и из какого города или страны писал в Объединённом Институте Ядерных Исследований в Дубне runtime-библиотеку для работы с вещественными (или действительными?) числами в системе "Дубна" на БЭСМ-6, останется тайной веков.

Если кто вдруг лично знает Татьяну Николаевну Михайлову, одного из авторов компилятора — можно её повеселить.

This entry was originally posted at https://spamsink.dreamwidth.org/1103607.html. Please comment there using OpenID.

Comments:

[User Picture]
From:b0p0h0k
Date:December 10th, 2018 06:26 am (UTC)
(Link)
А ассемблерный код можно подшить?
(Reply) (Thread)
[User Picture]
From:spamsink
Date:December 10th, 2018 06:52 am (UTC)
(Link)
Интересные детали выглядят как
  00003            YИA   = .100000E 01(’16’)
                   CЧИM  ’00016’
  00004            ПB    FT*002(’15’)


(по первому формату тупо печатается единица) и как
  00011            CЧ    X
                   CЧM   X
  00012            ПB    POWER (’15’)
  00013            ЗП    T*0000
                   YИA   T*0000(’16’)
  00014            CЧИM  ’00016’
                   ПB    FT*002(’15’)


(вызывается функция POWER из стандартной библиотеки; то же самое, что R*PO*R, которой пользуются Фортраны-Дубна и -ГДР, но с передачей аргументов по значению)
(Reply) (Parent) (Thread)