[Maxima-discuss] Maxima functions for plusp, timesp, and exptp in src?

[Barton W. <wi...@un...>]

Would these functions be worthy additions to /src?

(defmfun $timesp (x) (and (not ($mapatom x)) (equal ($part x 0) "*")))

(defmfun $plusp  (x) (and (not ($mapatom x)) (equal ($part x 0) "+")))

(defmfun $exptp  (x) (and (not ($mapatom x)) (equal ($part x 0) "^")))


Or should they be defined differently?  I think we’ve talked about this before.

Instead of ($part x 0), we could call mpart.

--Barton