Что доктор Зонневелд прописал

[vak]

На ниве алголостроения наблюдается определённый прогресс. Покажу примерчик.

В 1964 году Jaap Zonneveld защитил диссертацию по теме "Automatiс Numerical Integration". Имеется PDF: 27822.pdf. В тексте имеется исходный код программы на Алголе-60 для вычисления орбит внешних планет солнечной системы. Вот он в прихорошенном виде: outer_planets.a60.

На странице 103 показаны результаты выполнения этой программы:

А вот как она работает на нашем со spamsink компиляторе:

$ cd x1-algol-compiler/examples
$ ./outer_planets.sh

JAZ164, R743, Outer Planets

+.342947415189⏨+ 1 -.557160570446⏨- 2 
+.335386959711⏨+ 1 +.505696783289⏨- 2 
+.135494901715⏨+ 1 +.230578543901⏨- 2 
+.664145542550⏨+ 1 -.415570776342⏨- 2 
+.597156957878⏨+ 1 +.365682722812⏨- 2 
+.218231499728⏨+ 1 +.169143213293⏨- 2 
+.112630437207⏨+ 2 -.325325669158⏨- 2 
+.146952576794⏨+ 2 +.189706021964⏨- 2 
+.627960525067⏨+ 1 +.877265322780⏨- 3 
-.301552268759⏨+ 2 -.240476254170⏨- 3 
+.165699966404⏨+ 1 -.287659532608⏨- 2 
+.143785752721⏨+ 1 -.117219543175⏨- 2 
-.211238353380⏨+ 2 -.176860753121⏨- 2 
+.284465098142⏨+ 2 -.216393453025⏨- 2 
+.153882659679⏨+ 2 -.148647893090⏨- 3 

+.100000597682⏨+ 1 
+.954786104043⏨- 3 
+.285583733151⏨- 3 
+.437273164546⏨- 4 
+.517759138449⏨- 4 
+.277777777778⏨- 5 

+.295912208286⏨- 3 

eps = +.10⏨- 3 

T =  2430000.5 

J   + 3.429474152 + 3.353869597 + 1.354949017 
S   + 6.641455426 + 5.971569579 + 2.182314997 
U   +11.263043721 +14.695257679 + 6.279605251 
N   -30.155226876 + 1.656999664 + 1.437857527 
P   -21.123835338 +28.446509814 +15.388265968 

T =  2430500.5 

J   - 0.049534455 + 4.714982495 + 2.023963513 
S   + 4.277614611 + 7.483210480 + 2.909418313 
U   + 9.582290073 +15.567813885 + 6.685732380 
N   -30.235783049 + 0.215924799 + 0.849602274 
P   -21.994991444 +27.345130515 +15.303485551 

T =  2431000.5 

J   - 3.535429691 + 3.610053139 + 1.635176964 
S   + 1.496149963 + 8.261862331 + 3.351487277 
U   + 7.805112554 +16.281370897 + 7.023579152 
N   -30.235569469 - 1.228279723 + 0.257987477 
P   -22.837219187 +26.205087209 +15.197406000

Абсолютно аутентичный результат.

Comments

[juan_gandhi]

Аплодисменты!

[vak]

Спасибо!
Таки мы разгадали мудрёную головоломку алгольной рантайм-библиотеки.

[spamsink]

Халтурщики сидят в CWI! В PDF страницы 108-109 отсутствуют.

[vak]

Есть другая версия этого документа, тут все страницы на месте: https://ir.cwi.nl/pub/13099/13099D.pdf

[madef]

Ой, а скомпилируйте ваш компилятор для 64-битной винды тоже, плиз. Тот, что есть, работает только в DOS, а винда отказывается выполнять 16-битные программы. Без эмулятора никак. А так можно было бы его прямо в окошке виндоуз запускать.

[vak]

Должно собраться под WSL без проблем.

[a_shen]

Может, и компилятор Дейкстры и Зонненвельда сохранился?

[vak]

Это он и есть, переписанный Арецом на Паскаль.