On 2/3/07, fred <[EMAIL PROTECTED]> wrote:
> Désirant utiliser la sortie d'un résultat calculé par une commande du style
>
> "maxima -r '$load(orthopoly)$load(lrats)$\
> diff(assoc_legendre_p("+str(n)+","+str(m)+",cos(theta)),theta)$\
> fullratsubst(sin(theta),sqrt(1-cos(theta)^2),%)$\
> trigreduce(%)$\
> ratsimp(%)$\
> fortran(%)$'
>
> comment supprimer le message d'invite
> ainsi que les (%i) ?
> De plus, comment écrire le résultat sur une seule ligne (c'est-à-dire
> sans les numéros de lignes) ?
Fred, sorry, I can't write French. Perhaps this helps anyway.
(1) The --quiet command line option suppresses the start-up message.
(2) There is no global variable to suppress the (%i) and (%o) labels.
I have appended some Lisp code to do that. Copy that code to
a file named /home/fred/.maxima/maxima-init.lisp -- that code is
loaded when Maxima is launched. That code defines a new
variable named display_labels which permits or suppresses the
input and output labels depending on its value (true or false).
(3) display2d : false; causes results to be printed in 1-dimensional
form (i.e. like (a+b*c)^2). Long lines are separated into shorter lines.
Maybe linel : 1000; (i.e. line length) will help.
Hope this helps!
Robert Dodier
PS. Here is the code for /home/fred/.maxima/maxima-init.lisp:
(defmvar $display_labels t)
(defun main-prompt ()
(if $display_labels
(format () "~A(~A~D) ~A" *prompt-prefix*
(print-invert-case (stripdollar $inchar)) $linenum *prompt-suffix*)
""))
(defun dim-mlabel (form result)
(prog (dummy (w 0) (h 0) (d 0)) (declare (fixnum w h d))
(cond ((eq nil (cadr form)) (setq w 0 h 0 d 0))
(mratp (setq result (append mratp (if $display_labels
(dimension-paren (cadr form) result)))
w (f+ 4 width) h height d depth))
(t (setq result (cons #\space (if $display_labels
(dimension-paren (cadr form) result)))
w (f1+ width) h height d depth)))
(let ((level linel)) (checkbreak result w))
(setq dummy (list 0 0))
(setq result (dimension (caddr form) (cons dummy result)
'mlable rop w right))
(cond ((and (not $leftjust) (= 0 bkptout))
(rplaca dummy (max 0 (f- (// (f- linel width) 2) w)))
(setq width (f+ (car dummy) width))))
(setq width (f+ w width) height (max h height) depth (max d depth))
(return result)))
-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier.
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
Maxima-lang-fr mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/maxima-lang-fr
