Кстати о синусоиде

[Leo B.]

Оказывается, если гуглить названия процедур из стандартных библиотек 

http://www.besm6.org/sources/dubna/lib12/lib1.html

http://www.besm6.org/sources/dubna/lib37/lib2.html

(списки вытащены из образов дисков ОС "Дубна")

вместе с их ЦЕРН-овскими индексами, то можно иногда найти описания их интерфейса и получить примерно такое:

 Ф О Р Т Р А Н

   /16.07.73/

                РRОGRАММА

                ЕХТЕRNАL SIN

                САLL МАР(SIN, -3.2, 3.2, 0.2)

                ЕND

                    ВЫЗЫВАЕМЫЕ ФУНКЦИИ И ПОДПРОГРАММЫ

       SIN         МАР

                                      ТАБЛИЦА  ОТНОСИТЕЛЬНЫХ АДРЕСОВ

         1     2     3     4     5     6     7     8     9    10    11    12    13    14    15    16    17    18    19    20

 000  :00001

           *ЕХЕСUТЕ

                    ........................  ТАВLЕ АND РLОТ ОF ТНЕ FUNСТIОN   ..............................

             АВSСISSА РАRАМЕТЕRS=                                                ОRDINАТЕ РАRАМЕТЕRS=

              LОWЕR LIМIТ...   -3.200+00                                          LОWЕR LIМIТ...   -9.996-01

              UРРЕR LIМIТ...    3.200+00                                          UРРЕR LIМIТ...    9.996-01

              SТЕР SIZЕ.....    2.000-01                                          ВIN SIZЕ......    1.999-02

              РОINТ NUМВЕR..          33                                          ВIN NUМВЕR....         100

 0РОINТ АВSСISSА ОRDI. 0        10        20        30        40        50        60        70        80        90        100

.NО.****Х****----У----О+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+О

    0 -3.20+00  5.84-02 +                                                  . *                                                +

    1 -3.00+00 -1.41-01 I                                          *       .                                                  I

    2 -2.80+00 -3.35-01 I                                 *                .                                                  I

    3 -2.60+00 -5.16-01 I                        *                         .                                                  I

    4 -2.40+00 -6.75-01 I                *                                 .                                                  I

    5 -2.20+00 -8.08-01 I         *                                        .                                                  I

    6 -2.00+00 -9.09-01 I    *                                             .                                                  I

    7 -1.80+00 -9.74-01 I *                                                .                                                  I

    8 -1.60+00 -1.00+00 I*                                                 .                                                  I

    9 -1.40+00 -9.85-01 I*                                                 .                                                  I

   10 -1.20+00 -9.32-01 +   *                                              .                                                  +

   11 -1.00+00 -8.41-01 I       *                                          .                                                  I

   12 -8.00-01 -7.17-01 I              *                                   .                                                  I

   13 -6.00-01 -5.65-01 I                     *                            .                                                  I

   14 -4.00-01 -3.89-01 I                              *                   .                                                  I

   15 -2.00-01 -1.99-01 I                                        *         .                                                  I

   16  0.00+00  0.00+00 I                                                  *                                                  I

   17  2.00-01  1.99-01 I                                                  .        *                                         I

   18  4.00-01  3.89-01 I                                                  .                  *                               I

   19  6.00-01  5.65-01 I                                                  .                           *                      I

   20  8.00-01  7.17-01 +                                                  .                                  *               +

   21  1.00+00  8.41-01 I                                                  .                                         *        I

   22  1.20+00  9.32-01 I                                                  .                                             *    I

   23  1.40+00  9.85-01 I                                                  .                                                * I

   24  1.60+00  1.00+00 I                                                  .                                                 *I

   25  1.80+00  9.74-01 I                                                  .                                               *  I

   26  2.00+00  9.09-01 I                                                  .                                            *     I

   27  2.20+00  8.08-01 I                                                  .                                       *          I

   28  2.40+00  6.75-01 I                                                  .                                *                 I

   29  2.60+00  5.16-01 I                                                  .                        *                         I

   30  2.80+00  3.35-01 +                                                  .               *                                  +

   31  3.00+00  1.41-01 I                                                  .      *                                           I

   32  3.20+00 -5.84-02 I                                               *  .                                                  I

.NО.****Х****----У----О+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+О

ЕSТIМАТЕ ОF INТЕGRАL... -1.462-11

========================================================================================================================

(Линейки сдвинуты на одну позицию даже при использовании нативного Э64.)

Leo

[Mikhail Popov]

Программа  map() могла быть буржуская с CDC , на CDC%х принтерах 160 колонок (2 пефокарты) а не 128 как на АЦПУ

--
Данное сообщение отправлено Вам, как участнику группы "БЭСМ-6":
http://groups.google.com/group/besm6/topics
---
Вы получили это сообщение, поскольку подписаны на группу "БЭСМ-6".
Чтобы отменить подписку на эту группу и больше не получать от нее сообщения, отправьте письмо на электронный адрес besm6+un...@googlegroups.com.
Чтобы посмотреть обсуждение на веб-странице, перейдите по ссылке https://groups.google.com/d/msgid/besm6/d376d66e-d42f-491a-8ee3-c3c92978915dn%40googlegroups.com.

[Leo B.]

On Thursday, December 3, 2020 at 9:57:10 AM UTC-8 mikhailp wrote:

Программа  map() могла быть буржуская с CDC , на CDC%х принтерах 160 колонок (2 пефокарты) а не 128 как на АЦПУ

Что значит "могла быть"? Все они там с индексами вида "латинская буква - три цифры" взяты напрямую из ЦЕРН, потому инструкции и находятся.

https://cds.cern.ch/record/803987/files/aleph-86-23.pdf и каталоги "Дубны" выглядят практически идентично, 

разве что в "Дубне" ради экономии места убрали примеры вызова.

Leo

[Mikhail Popov]

Интересная логика, если латинскаыз буква - то это буржуйская фиговина.  Латинские индексы присваивались всем программам в общих библиотеках прогамм 1 и 2 , т.к. ОИЯИ  участвовали  в обмене программами в рамках МЕГАТЭ и имели доступ к ЦЕРН lib и другим библиотекам, Дубненские библиотеки портировались как на БЭСМ так и на CDC и аннотации отсылались в INIS.

--
Данное сообщение отправлено Вам, как участнику группы "БЭСМ-6":
http://groups.google.com/group/besm6/topics
---
Вы получили это сообщение, поскольку подписаны на группу "БЭСМ-6".
Чтобы отменить подписку на эту группу и больше не получать от нее сообщения, отправьте письмо на электронный адрес besm6+un...@googlegroups.com.

Чтобы посмотреть обсуждение на веб-странице, перейдите по ссылке https://groups.google.com/d/msgid/besm6/d511af6e-ee54-41d3-a405-a874a9361b6cn%40googlegroups.com.