Internal form of expressions



Wilhelm Haager schrieb:
> Hi,
> 
> Is there a possibility to display the "internal form" of expressions
> (like the "FullForm" in Mathematica) in Maxima, e.g.
> which displays the expression
> 
>     x/sqrt(5)+y**2+1/z
> 
> in the form
> 
>     "+"("/"(x,sqrt(5)),"^"(y,2),"/"(1,z))

Stavros Macrakis once posted a nice function show_form() on 
this list. 
http://www.math.utexas.edu/pipermail/maxima/2008/015004.html


e: x/sqrt(5)+y**2+1/z;
show_form(ex) :=
   if atom(ex)
   then ex
   else funmake(nounify(concat(" ", part(ex, 0))),
                maplist(show_form, ex))$
show_form(e);


1/z+y^2+x/sqrt(5)

+( /(1,z), ^(y,2), /(x, sqrt(5)))



Regards,
Martin