Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

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

Search the Archive

Re: Deformed Matrix Product

  • To: mathgroup at
  • Subject: [mg72226] Re: Deformed Matrix Product
  • From: "Ray Koopman" <koopman at>
  • Date: Fri, 15 Dec 2006 07:06:06 -0500 (EST)
  • References: <eloom4$mu6$>

simoseve at 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
> 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