Operation Manual

Seite 18-71
FOR j Schleife j = n-1 bis p+1, step = -1 starten
j COL− DROP Spalte entfernen und aus Stack löschen.
-1 STEP FOR-STEP-Schleife beenden.
ELSE
IF 'p>n-1' THEN
n 1 + n+1 berechnen
p 1 + p+1 berechnen
FOR j Schleife mit j = n, n+1, …, p+1 starten
x j ^ x
j
als Liste berechnen
OBJARRY Liste in Array konvertieren
j COL+ Spalte zu Matrix hinzufügen
NEXT FOR-NEXT-Schleife beenden
END Zweite IF-Klausel beenden
END Erste IF-Klausel beenden. Erzeugt X
y OBJARRY Liste y in ein Array konvertieren
 X yv Matrix und Array als X und y eingeben
« Unterprogramm 3 starten
X yv MTREG Von Programm MTREG
verwendetes X und y
NUM Bei Bedarf Umwandlung in
Fließkommawerte
 b Als b übergebener Ergebnisvektor
« Unterprogramm 4 starten
b yv b und yv im Stack ablegen
X b * X⋅b berechnen
- e = y - X⋅b berechnen
ABS SQ DUP SSE berechnen, Kopie erstellen
y ΣLIST n / ⎯y berechnen
n 1 LIST SWAP CON Vektor mit n Werten von ⎯y erstellen
yv − ABS SQ SST berechnen
/ SSE/SST berechnen
NEG 1 + √ r = [1–SSE/SST ]
1/2
berechnen