Mattias Engdegård <
mattiase@acm.org> writes:
Hello Mattias.
> Thank you for reporting this. If Calc cannot compute something, at least it shouldn't lie.
Agreed. And thank you for taking care of this so quickly.
> In this case I'm tempted to apply the expedient below. Would that suffice for you?
>
> --- a/lisp/calc/calc-mtx.el
> +++ b/lisp/calc/calc-mtx.el
> @@ -275,7 +275,7 @@ math-do-matrix-lud
> k (1+ k)))
> (setcar (nthcdr j (nth i lu)) sum)
> (let ((dum (math-lud-pivot-check sum)))
> - (if (Math-lessp big dum)
> + (if (or (math-zerop big) (Math-lessp big dum))
> (setq big dum
> imax i)))
> (setq i (1+ i)))
It is good enough for me. Thanks.
Best regards,
Mauro.