Re: Howto change TraditionalForm Output
- To: mathgroup at smc.vnet.net
- Subject: [mg96597] Re: Howto change TraditionalForm Output
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Mon, 16 Feb 2009 16:42:48 -0500 (EST)
- Organization: Uni Leipzig
- References: <gnbkel$3gd$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
Hi,
Unprotect[Tan]
Tan /: MakeBoxes[Tan[a_], TraditionalForm] :=
RowBox[{"tg", "(", ToBoxes[a, TraditionalForm], ")"}]
Protect[Tan]
Regards
Jens
Serych Jakub wrote:
> Hi x_
>
> In some (IMHO mainly European) countries, there is tradition to use other
> names of the function then are these used in american English. For example
> here in Czech Republic we use "tg" and "cotg" in place of "tan" and "cot".
>
> I'm trying to modify the behaviour of M7 like this:
>
> Unprotect[Tan];
> Format[Tan[x_], TraditionalForm] := "tg(" <> ToString[x] <> ")";
> Protect[Tan] ;
>
> It seems to work fine in the cases:
>
> TraditionalForm[Tan[a + b]]
> TraditionalForm[Tan[z]]
> TraditionalForm[Tan[Pi]/5]
>
> but it doesn't work in case like:
>
> TraditionalForm[Tan[z/5]]
>
> Does anybody know what is the right syntax to change the Format of
> TraditionalForm?
>
> Thx in advance
>
> Jakub
>