259
En het rooster èpi heeft bijv. de volgende inhoud:
(Voor de betekenis van de bovenindex in (5.7) zie hoofdstuk 4).
Om het terugzoeken van een eenmaal in één van de roosters
Mam en èpi opgeborgen grootheid mogelijk te maken, zijn uiteraard
speciale maatregelen nodig. Elke keer dat een lambda-grootheid
wordt opgeborgen, wordt van deze grootheid een codegetal berekend
volgens
Hierin is p de bovenindex van de grootheid, i en k zijn de twee
puntnummers waarop de grootheid betrekking heeft. De grootheden
uit (5.7) hebben dus als codenummers3001005,1013027 en 5035017.
Ten behoeve van de bewaring van de codegetallen is verklaard
het rooster
array «lam[1 rrclam] (5.9)
(zie regel 5).
Het berekende codegetal wordt opgeborgen in het rooster «lam
op een plaats, die in een-eenduidige correspondentie staat met de
plaats in het rooster Mam, waar de berekende grootheid zelf wordt
opgeborgen (zie regel 81 en 82).
Het opbergen van een pi-grootheid vindt op soortgelijke wijze
plaats. Van de grootheid wordt een codegetal berekend volgens
i, j en k zijn de nummers van de punten, waarop de grootheid
betrekking heeft. De grootheden uit (5.8) hebben dus als code
nummers: 7001011 en 23013045.
Verklaard wordt het rooster
array api[i :wpi] (5.10)
(zie regel 5).
Het berekende codegetal wordt in rooster «pi opgeborgen op
een plaats die correspondeert met de plaats in rooster 5pi, waar
de berekende pi-grootheid wordt geplaatst (zie regel 111-112).
Het terugzoeken van de opgeborgen lambda- en pi-grootheden
vindt plaats met behulp van twee zoekprocedures nl. de procedure
a (regel 8-23) voor de lambda-grootheden en de procedure b (regel
24-38) voor de pi-grootheden. Beide procedures zijn van het type
integer; zij leveren dus een geheel getal dat de plaats aangeeft
met behulp waarvan de gezochte grootheid in het desbetreffende
è-rooster te vinden is.
De procedure a heeft de volgende werking:
Het codegetal van de gezochte grootheid wordt bepaald (regel 10).
Dit is mogelijk, doordat i, k en p als parameters van de procedure
[In f7,1,11 <*7,1,11 ln f23,13,45 <*23,13,45 (5-8)
1000000 x p 1000 xt J.
1000000 X i 1000 X j k