Commit 1ce0461c authored by Hynek Baran's avatar Hynek Baran

`resolve/data/collect` returns NULL on 0 input

parent c73642b6
......@@ -167,7 +167,8 @@ end:
`resolve/data/collect` := proc(b::algebraic, {source:='`?`'}, $)
local a, Vs, LC, LCV, LM, r,s, Cs, Ms, deg;
a := Simpl(b);
a := Simpl(b);
if a=0 then return NULL fi;
Vs := VarL(b);
if nops(Vs)=0 then # no unknowns
Reportf(0, ["No unknowns in %a", a]);
......@@ -436,7 +437,7 @@ end:
bs := remove(proc(d) evalb(d:-reduced = 0) end, bs); # remove zero eqs.
Report(0, [`resolving`, nops(ds), `out of`, nops(ds), `eqns in `, nops(vl), `unknowns`]) ;
Report(0, [`resolving`, nops(ds), `out of`, nops(ds), `eqns in `, nops(vl), `unknowns`, vl]) ;
for v in vl do # for v running through all Vars in reverse Varordering
#`resolve/lin/reduce`(bs, vl); ### called above
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment