MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Deformed Matrix Product


simoseve at gmail.com wrote:
> Dear All,
>
> I would like to implement a form of matrix product called deformed
> matrix product.
>
> The definition can be found at page 2 of
>
> http://ipnweb.in2p3.fr/lptms/membres/pzinn/semi/ium.pdf
>
> P. Zinn-Justin, Combinatorics of the Brauer Loop scheme.
>
> Is there any good samaritan out there that knows how to do it?
>
> Thanks a lot for your time and kind consideration.
>
> Simone Severini

First define a cyclic range function:

cyc[i_,k_,n_] := If[i <= k, Range[i,k], Join[Range[i,n],Range[k]] ]

Then the deformed product is given by:

defprod[P_,Q_] := With[{n = Length@P},
Table[ P[[i,cyc[i,k,n]]].Q[[cyc[i,k,n],k]], {i,n},{k,n}]]


  • Prev by Date: Please help overcome problems with integration
  • Next by Date: Re: Arrange cells side by side
  • Previous by thread: Re: Deformed Matrix Product
  • Next by thread: Initial Point in NMinimize