# Cardinal order-2 balanced multiscaling filters # This is a Maple file. In Maple type read(`result`); # This file solves the Grobner basis to obtain the filter coefficients. g(5) := A; read(`gb`); eqs := "; vars := {g(0),g(1),g(2),g(3),g(4)}; As := solve(eqs[1]); ss := solve({eqs[2..6]},vars): assign(ss); lprint(`A = `,As[1]); lprint(`% OR `); lprint(`A = `,As[2]); lprint(`g = [`); k := 'k': for k from 0 to 5 do lprint(g(k)); od; lprint(`];`);