MathGroup Archive 1995

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

Search the Archive

Re: A/S Wavefunction calcs: more

  • To: mathgroup at christensen.cybernetics.net
  • Subject: [mg1535] Re: A/S Wavefunction calcs: more
  • From: Jorma.Virtamo at vtt.fi (Jorma Virtamo)
  • Date: Thu, 22 Jun 1995 00:14:29 -0400

P.Jemmer at sussex.ac.uk (Patrick Jemmer) wrote:
>
> HellO; since my last post, I have tackled this problem some more
> myself, and have come up with the following:
> 
> --------------------------------------
> g[a__] := Module[{perms = Permutations[{a}], sigs, len},
>              sigs = Map[Signature, perms];
>              len = Length[sigs];
>              Sum[sigs[[j]]*f[Apply[Sequence, perms[[j]]]], {j, len}]];
>   .... 
>   etc

I'm afraid I cannot provide any help for the actual question in the
rest of the message. Just as an aside I would like to point out that
the above function can be written more compactly in a pure functional
style:

g[a__] := With[ {p=Permutations[f[a]]}, p.Signature /@ p ]


-- Jorma Virtamo


============================================================     
Jorma Virtamo
VTT Information Technology / Telecommunications
P.O. Box 1202,  FIN-02044 VTT,  Finland
Phone: +358 0 456 5612          Fax: +358 0 455 0115
email: jorma.virtamo at vtt.fi     web: http://www.vtt.fi/tte/
============================================================



  • Prev by Date: Context confusion
  • Next by Date: Re: Download from Mathsource
  • Previous by thread: Re: Context confusion
  • Next by thread: A/S Wavefunction calcs: more