gaussa

ORIGDŚ := 1

n := J i := l..n

j := l-.n

A. - :=

AV*.j

r r

r

B. :=

'4 1 3^ A = 14 1

12 3 2

r^- 4

C, := augment(A_:B)

C := for s e 1.. n - 1 for i e s + l..n for j es+l..n+l

C.

C- - <r- C. - -

^l»J C

1_:S

•C

s_:s

B := C A := C

.<n+l>

n.n

+

X:= for is n - 1..1

B. -

i

X. <-

i

(-5.4^

-0.4

^ S ,

I l-V^x,l

s= i+1

A. . i.i

X =