maxima-lang-es — Spanish-language discussion of the Maxima computer algebra system

You can subscribe to this list here.

 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 Jan Feb Mar Apr May Jun Jul Aug Sep (12) Oct (1) Nov (9) Dec (2) Jan (3) Feb (6) Mar (2) Apr May (3) Jun (5) Jul Aug Sep (3) Oct Nov Dec Jan (3) Feb (6) Mar (7) Apr (2) May (3) Jun Jul (8) Aug (3) Sep (4) Oct (2) Nov Dec (10) Jan Feb (2) Mar Apr (1) May (14) Jun Jul (14) Aug (9) Sep (12) Oct (7) Nov Dec (5) Jan (27) Feb (5) Mar (5) Apr (57) May (35) Jun (8) Jul Aug (3) Sep (5) Oct (16) Nov (28) Dec (9) Jan (6) Feb (29) Mar (36) Apr (3) May Jun (14) Jul (2) Aug (3) Sep (17) Oct (9) Nov (3) Dec (9) Jan (19) Feb (4) Mar (10) Apr (7) May (7) Jun Jul (4) Aug (2) Sep (9) Oct (10) Nov (8) Dec (10) Jan Feb (6) Mar Apr (11) May Jun (3) Jul (17) Aug Sep (17) Oct (8) Nov Dec Jan (1) Feb (8) Mar (4) Apr (8) May (5) Jun (3) Jul (5) Aug (2) Sep Oct (2) Nov Dec (4) Jan Feb (4) Mar (3) Apr (2) May (2) Jun Jul (1) Aug Sep Oct Nov Dec
S M T W T F S

1
(1)
2
(1)
3
(1)
4

5
(4)
6
(1)
7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30
(2)
31

Showing 1 results of 1

 Re: [Maxima-lang-es] Cambiar salida latex del conjugado From: David Javier López Medina - 2012-03-06 13:25:42 He hecho el cambio en mactex.lisp y parece que todo funciona peefectamente: (%i) load("mactex")$texfoo(e) := block([a : first(e)], concat("\\overline{", tex1(a),"}"))$ texput (conjugate, texfoo)$(%i) declare(z, complex)$ tex(conjugate(z)^2)$tex(sqrt(conjugate(z)))$ tex(conjugate(exp(z)))$tex(conjugate(1/z))$ $$\overline{z}^2$$ $$\sqrt{\overline{z}}$$ $$e^{\overline{z}}$$ $${{1}\over{\overline{z}}}$$ Muchas gracias, Robert, me has ayudado mucho. Un saludo, David J. López Departamento de Matemática Aplicada y Estadística Universidad Politécnica de Cartagena Planta Baja Hospital de Marina C/ Doctor Fleming, s/n 30202 Cartagena, Spain Phone: (34) 968 33 89 02 Fax: (34) 968 33 89 16 e-mail: david.lopez@... El 05/03/12 17:31, Robert Dodier escribió: > On 3/5/12, David Javier López Medina wrote: > >> (%i) texfoo(e) := block([a : first(e)], concat("\\overline{", tex1(a), >> "}"))$>> texput (conjugate, texfoo)$ >> tex(conjugate(z))$>> tex(conjugate(z^2))$ >> $$overline{z}$$ >> $${\it conjugate}^2\left(z\right)$$ >> >> La respuesta original debería ser $${z^2}^\star$$ y la modificada >> $$overline{z^2}$$. ¿Alguna idea para "arreglar" esos {\it conjugate}? > Bueno, $${\it conjugate}^2\left(z\right)$$ se deriva del tratamiento > del exponente. > Maxima simplifica conjugate(z^2) al (conjugate(z))^2 y la funcion para > producir la salida TeX de esa expresion escribe como "conjugate^2(z)". > Tiene que modificar el src/mactex.lisp (como muestra abajo) para que > escriba como "\overline{z}^2". > > Quizas seria mejor que la escriba "conjugate" como una funcion > cotidiana, sin tratamiento especial. Para hacerlo asi, se puede hacer: > > :lisp (setf (get '$conjugate 'tex) nil) ;; quitar propriedad actual > texput (conjugate, "{\\mathrm conj}"); > > declare (z, complex); > e : conjugate (z); > tex (e); > => $${\mathrm conj}\left(z\right)$$ > > tex (e^2); > => $${\mathrm conj}^2\left(z\right)$$ > > tex (sqrt (e)); > => $$\sqrt{{\mathrm conj}\left(z\right)}$$ > > tex (1 + e); > => $${\mathrm conj}\left(z\right)+1$$ > > > espero que ese sirva en alguna manera -- > > Robert Dodier > > PS. modification de src/mactex.lisp para que cambie tratamiento de > conjugate(z)^2: > > diff --git a/src/mactex.lisp b/src/mactex.lisp > index df0ee41..22eb8e7 100644 > --- a/src/mactex.lisp > +++ b/src/mactex.lisp > @@ -579,7 +579,7 @@ > (not (member 'array (cdar fx) :test #'eq)) ; fix for x[i]^2 > ; Jesper Harder > (not (member f '(%sum %product %derivative %integrate %at > - %lsum %limit$pderivop) :test #'eq)) ;; what else? what a hack... > + %lsum %limit $pderivop$conjugate) :test #'eq)) ;; what > else? what a hack... > (or (and (atom expon) (not (numberp expon))) ; f(x)^y is ok > (and (atom expon) (numberp expon) (> expon 0)))))) > ; f(x)^3 is ok, but not f(x)^-1, which could > > 

Showing 1 results of 1