Try changing cabs(f) to cabs(f)^2. I haven't looked at it, but the Lisp error
"The value 1 ..." is a Maxima bug. Maybe you can report it to the Maxima bug list.
I doubt that the declarations
declare ( x,[real,scalar], k,[real,scalar], a,real, b,real, c,real)$
are needed.
--Barton
-----Peter Dufault <dufault at hda.com> wrote: -----
>(%i9)??????planch(f,?v)?:=?factor(integrate(cabs?(f),?v,?minf,?inf))
>(%i10)???????????planch(feven,?x)?-?planch(FT(feven,?x,?k),?k)
>(%o10)?????????????????????????????????0
>(%i11)????????????planch(fodd,?x)?-?planch(FT(fodd,?x,?k),?k)
>(%o11)?????????????????????????????????0
>(%i12)???????????????planch(f,?x)?-?planch(FT(f,?x,?k),?k)
>Maxima?encountered?a?Lisp?error:
>
> The value 1 is not of type LIST.