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