БЭСМ-6 вычисления с произвольной точностью

[Alex Loktionoff]

В этой ветке хотелось бы задокументировать замечательную библиотеку, и чтоб каждый мог повторить. /* хотя теоретически любой компьютер можно заставить обрабатывать числа с произвольной точностью, но для этого все надо программировать самому, а на БЭСМ-6 была готовая библиотека  */

Леонид  ветке https://groups.google.com/g/besm6/c/pFHdli75Kxw/m/mAtyIUrNAwAJ  привел пример вычисления корня квадратного из 2 с удесятерённой точностью.

[Alex Loktionoff]

Здесь привожу готовый .b6 примера Леонида вычисления корня квадратного из 2 с удесятерённой точностью,  для запуска и дальнейших экспериментов.

...

 LIВRАRУ ОТ  26.02.82 М3

           *NО LОАD LISТ

           *МАIN МАIN

           *ЕХЕСUТЕ

+0001+1414213562373095048801688724209698078569671875376948073176679737990732478462107038850387534327641572735013846230912297025

 КОНЕЦ ЗАДАЧИ

 01010: 00 074 0000 *74

суббота, 27 сентября 2025 г. в 10:10:04 UTC+2, Alex Loktionoff:

[Alex Loktionoff]

Уррра, заработало! БЕСМ-6 может с успехом заменять IBM 1401!

IBM1401 славилась тем, что работала с десятичными числами произвольной длинны.

Одноимённости из самых известных /* мне ;) */ демок это вычисление периодической дроби 1/998001 с точностью 3000 знаков после запятой - ее свойство в том что после 997 идет не 998 и сразу 999, и чтобы это проверить нужна точность хотяб 3000 знаков. 1401 могла это "из коробки" благодаря архитектуре процессора.

Но БЭСМ-6 тоже, благодаря реализации экстракода 66 в ДИСПАК, так что тоже можно сказать "из коробки".

 LIВRАRУ ОТ  26.02.82 М3

           *NО LОАD LISТ

           *МАIN МАIN

           *ЕХЕСUТЕ

-0005+10020030040050060070080090100110120130140150160170180190200210220230240250260270280290300310320330340350360370380390400410

42043044045046047048049050051052053054055056057058059060061062063064065066067068069070071072073074075076077078079080081082083084

08508608708808909009109209309409509609709809910010110210310410510610710810911011111211311411511611711811912012112212312412512612

71281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691

70171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212

21321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425

52562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972

98299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340

34134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238

33843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254

26427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468

46947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051

15125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535

54555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596

59759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863

96406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816

82683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724

72572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676

77687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098

10811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852

85385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489

58968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379

38939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980

981982983984985986987988989990991992993994995996997999000001002

 КОНЕЦ ЗАДАЧИ

 01012: 00 074 0000 *74

PS

Только коечной не все ассемблерные команды поддерживались эмулятором.

Например на мой ITS Э66 ответил "Пока рано" и завершил программу по АВоСТу.

Но для вычислений это не помеха, вполне можно встраивать в компилятор как реализацию BigNum

только используя "виртуальные регистры" 

суббота, 27 сентября 2025 г. в 10:10:04 UTC+2, Alex Loktionoff:

В этой ветке хотелось бы задокументировать замечательную библиотеку, и чтоб каждый мог повторить. /* хотя теоретически любой компьютер можно заставить обрабатывать числа с произвольной точностью, но для этого все надо программировать самому, а на БЭСМ-6 была готовая библиотека  */

[Василий Долматов]

а про российские «Мир-1» и «Мир-2» не вспоминаем? :)

второе вообще умело аналитические вычисления делать :) 

27 сент. 2025 г., в 12:21, Alex Loktionoff <oxy...@gmail.com> написал(а):

--
Данное сообщение отправлено Вам, как участнику группы "БЭСМ-6":
http://groups.google.com/group/besm6/topics
---
Вы получили это сообщение, поскольку подписаны на группу "БЭСМ-6".
Чтобы отменить подписку на эту группу и больше не получать от нее сообщения, отправьте письмо на электронный адрес besm6+un...@googlegroups.com.
Чтобы посмотреть обсуждение, перейдите по ссылке https://groups.google.com/d/msgid/besm6/5d8b925e-ac66-4d6e-892d-383c2b256b70n%40googlegroups.com.
<ext-1401.b6>