exp(x) vs %e^x in displayed output?

On Tue, 30 Nov 2004 08:29:12 -0800 (PST), Robert Dodier
<robert_dodier@yahoo.com> wrote:
 
> Is there a way to get Maxima to display exponentials
> as exp(x) ?

Try this:

;; %edispflag = true => %e^-x displays as %e^-x
;; %edispflag = false => %e^-x displays as 1/%e^x
;; %edispflag = exp => %e^x displays as exp(x)
(defmvar $%edispflag nil)

(defun form-mexpt (form &aux exp)
    (cond ((and $sqrtdispflag (alike1 1//2 (caddr form))) (list
'(%sqrt) (cadr form)))
	  ((and $sqrtdispflag (alike1 -1//2 (caddr form)))
	   (list '(mquotient) 1 (list '(%sqrt) (cadr form))))
	  ((and (eq %edispflag '$exp) (eq '$%e (cadr form)))
	   (list '(%exp) (nformat (caddr form))))
	  ((and (or (and $%edispflag (eq '$%e (cadr form)))
		    (and $exptdispflag (not (eq '$%e (cadr form)))))
		(not (atom (setq exp (nformat (caddr form)))))
		(eq 'mminus (caar exp)))
	   (list '(mquotient) 1 (if (equal 1 (cadr exp)) (cadr form)
				    (list '(mexpt) (cadr form) (cadr exp)))))
	  (t (cons '(mexpt) (cdr form)))))