Cholesky decomposition: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added whitespace to section header comment (of a statement).) |
m (→{{header|REXX}}: changed argument name (so as to be more accurate).) |
||
Line 2,009: | Line 2,009: | ||
exit /*stick a fork in it, we're all done. */ |
exit /*stick a fork in it, we're all done. */ |
||
/*──────────────────────────────────Cholesky subroutine───────────────────────*/ |
/*──────────────────────────────────Cholesky subroutine───────────────────────*/ |
||
Cholesky: procedure; parse arg |
Cholesky: procedure; parse arg mat; say; say; call tell 'input array',mat |
||
do r=1 for ord |
do r=1 for ord |
||
do c=1 for r; $=0; do i=1 for c-1; $=$+!.r.i*!.c.i; end /*i*/ |
do c=1 for r; $=0; do i=1 for c-1; $=$+!.r.i*!.c.i; end /*i*/ |