[personal profile] azizz8618 posting in [community profile] besm6
Недавно обсуждал с А.В. Гуляевым возможность использования эмулятора в учебном процессе на ВМиК МГУ. В этой связи зашла речь о счётных библиотеках. Библиотеки ОИЯИ у нас имеются, только вот непонятно уже на диске или в бинарниках на гитхабе? Нет у меня ясности по поводу сохранность библиотек МГУ (библиотека Арушаняна). Можете прояснить данный вопрос?

Date: 2020-12-01 01:07 am (UTC)
spamsink: (Default)
From: [personal profile] spamsink
В курсе численных методов для демонстрации различий представлений чисел и преимуществ плавающей точки IEEE это было бы познавательно.

Стандартные библиотеки для вычислений, состав которых перечислен в книге Мазного "Программирование на БЭСМ-6 в системе "Дубна" (у меня есть бумажная копия, онлайн книгу сразу найти не удалось), доступны более или менее в двух экземплярах, на 2048 и 2148.

Варианты с 2048 заказываются упоминанием *LIBRARY:1 и *LIBRARY:2 в любом месте перед *EXECUTE.

Что такое библиотека Арушаняна, мне неизвестно, к сожалению.




Date: 2020-12-01 05:28 pm (UTC)
spamsink: (Default)
From: [personal profile] spamsink
К сожалению, я никогда не занимался вычислительной математикой. Я нашел, как получить краткую сводку о назначении процедур (без описаний интерфейса) в библиотеках на образах дисков ОС Дубна https://github.com/besm6/besm6.github.io/tree/master/sources/dubna/lib12 и https://github.com/besm6/besm6.github.io/tree/master/sources/dubna/lib37

В качестве демонстрационных задач могут подойти тесты библиотек
https://github.com/besm6/besm6.github.io/tree/master/sources/dubna/libtest
но в этом должен разбираться кто-нибудь, более близко знакомый с численными методами.

Date: 2020-12-01 05:47 pm (UTC)
spamsink: (Default)
From: [personal profile] spamsink
Всё, что есть, перечислено в https://github.com/besm6/besm6.github.io/tree/master/wiki/librefer

Там много повторений, и, кроме стандартных библиотек Дубны, в основном, служебные/системные библиотеки и рантайм языков программирования.

Date: 2020-12-02 03:22 am (UTC)
spamsink: (Default)
From: [personal profile] spamsink
Я сделал каталоги официальных библиотек из Дубны:

https://github.com/besm6/besm6.github.io/tree/master/sources/dubna/lib12/lib1.html
https://github.com/besm6/besm6.github.io/tree/master/sources/dubna/lib37/lib2.html

Как получать инструкции по интерфейсу отдельных процедур, пока неясно.

Date: 2020-12-02 05:27 am (UTC)
vak: (Default)
From: [personal profile] vak
О, классно! Большую часть я и не знал.

Date: 2020-12-02 08:51 am (UTC)
spamsink: (Default)
From: [personal profile] spamsink
Думаю, что никакой конкретный человек большую часть не знал.

Но делов-то куча, как говорится. Находим какое-нибудь нетривиальное название процедуры, например CONPRT, гуглим "J509 CONPRT", получаем https://cds.cern.ch/record/803987/files/aleph-86-23.pdf
Там слишком сложно, много аргументов. Берём там рядом что попроще, MAP. Всё работает, но, оказывается, имеем вычислительные проблемы.

  М О Н И Т О Р-8 0  (3.7)   25.09.84*       (  МС " Д У Б Н А " ИАЭ  )             ШИФР    419999000000
*NАМЕ
           *NО LОАD LISТ
           *LIВRАRУ:1
                                                      02.12.20 М1
 Ф О Р Т Р А Н
   /16.07.73/
                РRОGRАММА
                ЕХТЕRNАL SIN
                САLL МАР(SIN, -5.0, 5.0, 0.1)
                Е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Т...   -5.000+00                                          LОWЕR LIМIТ...   -2.000+00
              UРРЕR LIМIТ...    5.000+00                                          UРРЕR LIМIТ...    9.999-01
              SТЕР SIZЕ.....    1.000-01                                          ВIN SIZЕ......    3.000-02
              РОINТ NUМВЕR..         101                                          ВIN NUМВЕR....         100

 0РОINТ АВSСISSА ОRDI. 0        10        20        30        40        50        60        70        80        90        100
.NО.****Х****----У----О+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+О
    0 -5.00+00  9.59-01 +                                                                  .                               *  +
    1 -4.90+00  9.82-01 I                                                                  .                                * I
    2 -4.80+00  9.96-01 I                                                                  .                                * I
    3 -4.70+00  1.00+00 I                                                                  .                                 *I
    4 -4.60+00  9.94-01 I                                                                  .                                * I
    5 -4.50+00  9.78-01 I                                                                  .                                * I
    6 -4.40+00  9.52-01 I                                                                  .                               *  I
    7 -4.30+00  9.16-01 I                                                                  .                              *   I
    8 -4.20+00  8.72-01 I                                                                  .                            *     I
    9 -4.10+00  8.18-01 I                                                                  .                          *       I
   10 -4.00+00  7.57-01 +                                                                  .                        *         +
   11 -3.90+00  6.88-01 I                                                                  .                      *           I
   12 -3.80+00  6.12-01 I                                                                  .                    *             I
   13 -3.70+00  5.30-01 I                                                                  .                 *                I
   14 -3.60+00  4.43-01 I                                                                  .              *                   I
   15 -3.50+00  3.51-01 I                                                                  .           *                      I
   16 -3.40+00  2.56-01 I                                                                  .        *                         I
   17 -3.30+00  1.58-01 I                                                                  .    *                             I
   18 -3.20+00  5.84-02 I                                                                  . *                                I
   19 -3.10+00 -8.32-02 I                                                               *  .                                  I
   20 -3.00+00 -2.82-01 +                                                         *        .                                  +
   21 -2.90+00 -4.78-01 I                                                  *               .                                  I
   22 -2.80+00 -3.35-01 I                                                       *          .                                  I
   23 -2.70+00 -4.27-01 I                                                    *             .                                  I
   24 -2.60+00 -1.03+00 I                                *                                 .                                  I
   25 -2.50+00 -1.20+00 I                          *                                       .                                  I
   26 -2.40+00 -1.35+00 I                     *                                            .                                  I
   27 -2.30+00 -1.49+00 I                *                                                 .                                  I
   28 -2.20+00 -1.62+00 I            *                                                     .                                  I
   29 -2.10+00 -1.73+00 I         *                                                        .                                  I
   30 -2.00+00 -1.82+00 +      *                                                           .                                  +
   31 -1.90+00 -1.89+00 I   *                                                              .                                  I
   32 -1.80+00 -1.95+00 I *                                                                .                                  I
   33 -1.70+00 -1.98+00 I*                                                                 .                                  I
   34 -1.60+00 -2.00+00 I*                                                                 .                                  I
   35 -1.50+00 -1.99+00 I*                                                                 .                                  I
   36 -1.40+00 -1.97+00 I*                                                                 .                                  I
   37 -1.30+00 -1.93+00 I  *                                                               .                                  I
   38 -1.20+00 -1.86+00 I    *                                                             .                                  I
   39 -1.10+00 -1.78+00 I       *                                                          .                                  I
   40 -1.00+00 -1.68+00 +          *                                                       .                                  +
   41 -9.00-01 -1.57+00 I              *                                                   .                                  I
   42 -8.00-01 -1.43+00 I                  *                                               .                                  I
   43 -7.00-01 -1.29+00 I                       *                                          .                                  I
   44 -6.00-01 -1.13+00 I                             *                                    .                                  I
   45 -5.00-01 -4.79-01 I                                                  *               .                                  I
   46 -4.00-01 -3.89-01 I                                                     *            .                                  I
   47 -3.00-01 -2.96-01 I                                                        *         .                                  I
   48 -2.00-01 -3.97-01 I                                                     *            .                                  I
   49 -1.00-01 -9.98-02 I                                                               *  .                                  I
   50 -7.28-12 -1.46-11 +                                                                  *                                  +
   51  1.00-01  9.98-02 I                                                                  .  *                               I
   52  2.00-01  1.99-01 I                                                                  .      *                           I
   53  3.00-01  2.96-01 I                                                                  .         *                        I
   54  4.00-01  3.89-01 I                                                                  .            *                     I
   55  5.00-01  4.79-01 I                                                                  .               *                  I
   56  6.00-01  5.65-01 I                                                                  .                  *               I
   57  7.00-01  6.44-01 I                                                                  .                     *            I
   58  8.00-01  7.17-01 I                                                                  .                       *          I
   59  9.00-01  7.83-01 I                                                                  .                         *        I
   60  1.00+00  8.41-01 +                                                                  .                           *      +
   61  1.10+00  8.91-01 I                                                                  .                             *    I
   62  1.20+00  9.32-01 I                                                                  .                              *   I
   63  1.30+00  9.64-01 I                                                                  .                               *  I
   64  1.40+00  9.85-01 I                                                                  .                                * I
   65  1.50+00  9.97-01 I                                                                  .                                * I
   66  1.60+00  1.00+00 I                                                                  .                                * I
   67  1.70+00  9.92-01 I                                                                  .                                * I
   68  1.80+00  9.74-01 I                                                                  .                                * I
   69  1.90+00  9.46-01 I                                                                  .                               *  I
   70  2.00+00  9.09-01 +                                                                  .                             *    +
   71  2.10+00  8.63-01 I                                                                  .                            *     I
   72  2.20+00  8.08-01 I                                                                  .                          *       I
   73  2.30+00  7.46-01 I                                                                  .                        *         I
   74  2.40+00  6.75-01 I                                                                  .                      *           I
   75  2.50+00  5.98-01 I                                                                  .                   *              I
   76  2.60+00  5.16-01 I                                                                  .                *                 I
   77  2.70+00  4.27-01 I                                                                  .             *                    I
   78  2.80+00  3.35-01 I                                                                  .          *                       I
   79  2.90+00  2.39-01 I                                                                  .       *                          I
   80  3.00+00  1.41-01 +                                                                  .    *                             +
   81  3.10+00  4.16-02 I                                                                  . *                                I
   82  3.20+00 -1.17-01 I                                                              *   .                                  I
   83  3.30+00 -3.15-01 I                                                        *         .                                  I
   84  3.40+00 -2.56-01 I                                                          *       .                                  I
   85  3.50+00 -3.51-01 I                                                      *           .                                  I
   86  3.60+00 -4.43-01 I                                                   *              .                                  I
   87  3.70+00 -1.06+00 I                               *                                  .                                  I
   88  3.80+00 -1.22+00 I                         *                                        .                                  I
   89  3.90+00 -1.38+00 I                    *                                             .                                  I
   90  4.00+00 -1.51+00 +                *                                                 .                                  +
   91  4.10+00 -1.64+00 I            *                                                     .                                  I
   92  4.20+00 -1.74+00 I        *                                                         .                                  I
   93  4.30+00 -1.83+00 I     *                                                            .                                  I
   94  4.40+00 -1.90+00 I   *                                                              .                                  I
   95  4.50+00 -1.96+00 I *                                                                .                                  I
   96  4.60+00 -1.99+00 I*                                                                 .                                  I
   97  4.70+00 -2.00+00 I*                                                                 .                                  I
   98  4.80+00 -1.99+00 I*                                                                 .                                  I
   99  4.90+00 -1.96+00 I *                                                                .                                  I
  100  5.00+00 -1.92+00 +  *                                                               .                                  +
.NО.****Х****----У----О+---------+---------+---------+---------+---------+---------+---------+---------+---------+---------+О

ЕSТIМАТЕ ОF INТЕGRАL... -2.976+00

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

Date: 2020-12-02 09:34 am (UTC)
spamsink: (Default)
From: [personal profile] spamsink
Я нашел и исправил ошибку в переводе из IEEE в эмуляторе диспака. Завтра зачекиню.

Date: 2020-12-02 06:01 pm (UTC)
spamsink: (Default)
From: [personal profile] spamsink
Фортрановские варианты выглядят приемлемо для компиляции на БЭСМ-6. Успехов!

Date: 2020-12-02 06:53 pm (UTC)
vak: (Default)
From: [personal profile] vak
Неплохая библиотечка!
На гитхаб бы её переложить.
Да, всё это должно запуститься на БЭСМ-6.

Date: 2020-12-02 06:51 pm (UTC)
vak: (Default)
From: [personal profile] vak
О, у нас нашлась ошибка в арифметике! Что там такое?

Date: 2020-12-02 08:13 pm (UTC)
spamsink: (Default)
From: [personal profile] spamsink
Я не совсем понял, что это было (как синус получался вплоть до -2?), потому что в моей старой песочнице исправление перевода IEEE в бэсмовский формат после вычисления элементарных функций вчера исправило ошибку; но и просто обновление файлов из гита тоже исправило ошибку. В любом случае, для чистоты нужно избавиться от работы с битовыми представлениями и пользоваться исключительно ldexp/frexp.

Date: 2020-12-02 07:57 pm (UTC)
spamsink: (Default)
From: [personal profile] spamsink
Отставить чекин; это у меня был version skew.

Profile

Сообщество любителей БЭСМ-6

December 2025

S M T W T F S
 123456
78910111213
14151617181920
21222324252627
282930 31   

Most Popular Tags

Page Summary

Style Credit

Expand Cut Tags

No cut tags
Page generated Jan. 13th, 2026 11:15 am
Powered by Dreamwidth Studios