[Maxima] funmake_no_simp

Barton Willis willisb at unk.edu
Fri Oct 31 06:17:38 CDT 2008

```A guess:

(defun \$funmake_no_simp (f l)
(if (\$listp l) `((,(getopr f) simp) ,@(cdr l))
(merror "The second argument to 'funmake_no_simp' must be a list")))

Examples:

(%i2) funmake_no_simp("^",[0,0]);
(%o2) 0^0

(%i3) funmake_no_simp('sin,[a,b,c,d]);
(%o3) sin(a,b,c,d)

(%i4) funmake_no_simp("^",[0,-1]);
(%o4) 1/0

Possible usage:

(%i9) tellsimp(''(funmake_no_simp('log,[0])),'infinity);
(%o9) [logrule1,simpln]

(%i10) log(0);
(%o10) infinity

Barton

-----maxima-bounces at math.utexas.edu wrote: -----

>To: "Maxima - list" <maxima at math.utexas.edu>
>From: "Andrej Vodopivec" <andrej.vodopivec at gmail.com>
>Sent by: maxima-bounces at math.utexas.edu
>Date: 10/29/2008 10:05AM
>Subject: [Maxima] funmake_no_simp
>
>There is a feature request at the wxmaxima project for the Macsyma
>function funmake_no_simp.
>
>https://sourceforge.net/tracker2/?func=detail&aid=2121132&group_id=126731&
>atid=707631
>
>Maybe someone who knows how funmake_no_simp works and how to implement
>it can post a comment.
>
>--
>Andrej
>_______________________________________________
>Maxima mailing list
>Maxima at math.utexas.edu
>http://www.math.utexas.edu/mailman/listinfo/maxima

```