Inhaltsverzeichnis
Werbung
Listing:
Hauptprogramm: GAUSS
«CLLCD
"Homogene Form AX=B" 1 DISP
'""Enter {x11 x12 x13 ...} 2 DISP
'"Enter {x21 x22 x23 ...}'" 3 DISP
'""Enter {x31 x32 x33 ...}'' 4 DISP
HALT DEG 0 FIX {w v} PURGE
1 5 START
DUP SIZE 1 - 'w' STO 0 'q' STO
DUP DUP SIZE*z1' STO LIST->
'z' STO rolie
1 z START
IFERR DUP IF 0 = = THEN
DROP 1 'q' STO+ ELSE
END
THEN DROP
END
NEXTzl q - ->LIST SIZE
F 2 > THEN w ROLL
w 1-1 SWAP START
w ROLL ugaus
Werbung
Inhaltsverzeichnis
