LU decomposition: Difference between revisions
Content added Content deleted
(→{{header|REXX}}: simplified the REXX program.) |
m (→{{header|REXX}}: added whitespace.) |
||
Line 2,819: | Line 2,819: | ||
bldAMat: ?=words(x); do N=1 for ? until N**2>=? /*find matrix size. */ |
bldAMat: ?=words(x); do N=1 for ? until N**2>=? /*find matrix size. */ |
||
end /*N*/ |
end /*N*/ |
||
if N**2\==? then do; say '***error*** wrong # of elements entered:' ?;exit 9 |
if N**2\==? then do; say '***error*** wrong # of elements entered:' ?; exit 9 |
||
end |
|||
do r=1 for N /*build A matrix.*/ |
do r=1 for N /*build A matrix.*/ |
||
do c=1 for N; #=# + 1; _=word(x, #); A.r.c=_ |
do c=1 for N; #=# + 1; _=word(x, #); A.r.c=_ |