Operation Manual

Blz. 18-63
r = [1-(SSE/SST)]
1/2
.
Hier is het nieuwe programma, inclusief de berekening van SSE en r (zie op de
laatste pagina van dit hoofdstuk hoe u de namen van de variabelen en
commando’s in het programma krijgt):
« Activeert het programma
 x y p Voert de lijsten x en y en getal p in
« Activeert het subprogramma 1
x SIZE  n Bepaalt de grootte van x-lijst
« Activeert het subprogramma 2
x VANDERMONDE Plaatst x in stapelgeheugen, verkrijgt V
n
IF ‘p<n-1’ THEN Deze IF is stap 3 in algoritme
n Plaatst n in stapelgeheugen
p 2 + Berekent p+1
FOR j Startlus, j = n-1 to p+1, stap = -1
j COL− DROP Verwijdert kolom, haalt uit stapelgeheugen
-1 STEP Sluit FOR-STEP-lus
ELSE
IF ‘p>n-1’ THEN
n 1 + Berekent n+1
p 1 + Berekent p+1
FOR j Start lus met j = n, n+1, …, p+1.
x j ^ Berekent x
j
als een lijst
OBJARRY Zet lijst om in verzameling
j COL+ Voegt kolom toe aan matrix
NEXT Sluit FOR-NEXT-lus
END Eindigt tweede IF-clausule
END Eindigt eerste IF-clausule Geeft X
y OBJARRY Zet lijst y om in een verzameling
 X yv Voert matrix en verzameling in als X en y
« Activeert het subprogramma 3
X yv MTREG X en y gebruikt door programma MTREG
NUM Zet zonodig om in zwevende komma
 b Vector gaat door als b
« Activeert het subprogramma 4
b yv Plaats b en yv in stapelgeheugen
X b * Berekent X⋅b
- Berekent e = y - X⋅b
ABS SQ DUP Berekent SSE, maak kopie
y ΣLIST n / Berekent ⎯y
n 1 LIST SWAP CON Maakt vector van n waarden van ⎯y