Commit e7ef7293 authored by Hynek Baran's avatar Hynek Baran

`resolve/nonlin/combine/LV/* renamed for consistency

parent 2359bfee
......@@ -348,23 +348,23 @@ end:
`resolve/nonlin/combine/LV/2` := proc (LV, as, bs, $)
Reportf(1, ["combining %a against %a eqs with leading Var %a", nops(as), nops(bs), LV]);
return `resolve/nonlin/combine/LV/r/2`(as, bs);
return `resolve/nonlin/combine/LV/2/r`(as, bs);
end:
`resolve/nonlin/combine/LV/1` := proc (LV, as, $)
Reportf(1, ["combining %a eqs with leading Var %a", nops(as), LV]);
return `resolve/nonlin/combine/LV/r/1`(as);
return `resolve/nonlin/combine/LV/1/r`(as);
end;
`resolve/nonlin/combine/LV/r/2` := proc(as, bs, $) ### TODO: combinat[cartprod] is maybe very slow, test it
`resolve/nonlin/combine/LV/2/r` := proc(as, bs, $) ### TODO: combinat[cartprod] is maybe very slow? test it
local C, res;
C := combinat[cartprod]([as,bs]);
res := NULL;
while not C[finished] do res := res, `resolve/nonlin/combine/pair` ( op(C[nextvalue]())) end do;
while not C[finished] do res := res, `resolve/nonlin/combine/pair` (op(C[nextvalue]())) end do;
end:
`resolve/nonlin/combine/LV/r/1` := proc(bs, $)
`resolve/nonlin/combine/LV/1/r` := proc(bs, $)
local rfg, rgf, rr;
if nops(bs) < 2 then
return NULL
......
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