Re: representing the dihedral group {1,r,r^2...s,sr^2...}
- To: mathgroup at smc.vnet.net
- Subject: [mg98845] Re: representing the dihedral group {1,r,r^2...s,sr^2...}
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Mon, 20 Apr 2009 05:46:21 -0400 (EDT)
- Organization: Uni Leipzig
- References: <gsh100$gr$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
Hi,
leave so important Mathematica functions like Times[] and Power[]
unchanged and make your own GroupTimes[], GroupPower[]
all other will probably not work. Times[] and Power[] are
to deep hard coded in the Mathematica kernel.
Regards
Jens
obott0 at gmail.com wrote:
> Hi, I'm trying to represent the dihedral group {1,r,r^2...s,sr^2...}
> in mathematica so I can do for example:
>
> s^3
>
> and get s.
>
> I tried this code:
>
> Unprotect[Times, Power];
> n = 4;
> ClearAll[r, s, Times, Power];
> SetAttributes[Times, {Flat}]
> s^2 = 1;
> r^n = 1;
> Protect[Times, Power];
>
> But this doesn't work for, for example, s^3. It is not able to
> simplify it.
>
> Thanks a lot!
>
> Otto
>