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/
============================================================