how to detect op integrate with intersect or lfreeof or??



On Nov. 2, 2011, Stavros Macrakis wrote:
------------------
>Some Maxima operations have two forms, "noun" and "verb".  To cover all
>bases, try
>
>  intersect(lop_rr, {verbify('integrate),nounify('integrate)});
-------------------------------

thanks for the info. Using nounify('integrate) works for
this situation.
-------------
(%i13) intersect(lop_rr, {verbify('integrate),nounify('integrate)});
(%o13) {integrate}

(%i14) intersect(lop_rr, {nounify('integrate)});
(%o14) {integrate}

(%i15) intersect(lop_rr, {verbify('integrate)});
(%o15) {}

(%i16) integratep(expr) :=
       (if length(intersect(listofops(expr),{nounify('integrate)}))
          > 0 then true else false)$

(%i17) rr;
(%o17) 'integrate(cos(log(x)/x)/x,x)

(%i18) integratep(rr);
(%o18) true

(%i19) not integratep(rr);
(%o19) false

Ted