Re: Howto change TraditionalForm Output
- To: mathgroup at smc.vnet.net
- Subject: [mg96574] Re: Howto change TraditionalForm Output
- From: Albert Retey <awnl at gmx-topmail.de>
- Date: Mon, 16 Feb 2009 16:38:36 -0500 (EST)
- References: <gnbkel$3gd$1@smc.vnet.net>
Hi,
> 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?
I'm not sure whether this is still a recommended way to do it with all
the higher level functions available for version >= 6, but the following
should work, even with versions < 6:
Unprotect[Tan];
Format[Tan[x_], TraditionalForm] := DisplayForm[RowBox[{
"tg", "(", ToBoxes[x], ")"}]];
Protect[Tan];
If you wonder what all this is about, you might want to learn about the
two dimensional formatting via boxes, some entry points for that can be
found in the documentation:
tutorial/TextualInputAndOutputOverview
hth,
albert