Advertenties
END
END
y OBJ
ARRY
X yv
«
X yv MTREG
NUM
b
«
b yv
X b *
-
ABS SQ DUP
y ΣLIST n /
n 1
LIST SWAP CON
− ABS SQ
yv
/
NEG 1 + √
"r"
TAG
SWAP
"SSE"
TAG
»
»
»
»
»
Sla dit programma op onder de naam POLYR om de berekening van de
correlatiecoëfficiënt r te benadrukken.
Maak met het POLYR-programma voor waarden van p tussen 2 en 6 de
volgende tabel aan met waarden van de correlatiecoëfficiënt, r, en de SS-
fouten, SSE:
p
2
Eindigt tweede IF-clausule
Eindigt eerste IF-clausule Geeft X
Zet lijst y om in een verzameling
Voert matrix en verzameling in als X en y
Activeert het subprogramma 3
X en y gebruikt door programma MTREG
Zet zonodig om in zwevende komma
Vector gaat door als b
Activeert het subprogramma 4
Plaats b en yv in stapelgeheugen
Berekent X⋅b
Berekent e = y - X⋅b
Berekent SSE, maak kopie
Berekent y
Maakt vector van n waarden van y
Berekent SST
Berekent SSE/SST
Berekent r = [1–SSE/SST ]
Benoemt resultaat "r"
Wisselt stapelgeheugenniveaus 1 en 2
Benoemt resultaat SSE
Sluit subprogramma 4
Sluit subprogramma 3
Sluit subprogramma 2
Sluit subprogramma 1
Sluit hoofdprogramma
r
SSE
0.9971908
10731140.01
1/2
Blz. 18-69
Advertenties
