Re: Functional programming

• To: mathgroup at smc.vnet.net
• Subject: [mg4164] Re: Functional programming
• From: Paul Abbott <paul at earwax.pd.uwa.edu.au>
• Date: Sat, 8 Jun 1996 13:25:17 -0400
• Organization: University of Western Australia
• Sender: owner-wri-mathgroup at wolfram.com

Victoria Steblina wrote:

> I want to renormalize the list d
>
> d := {1, 2, 3, 4}
>
> according to the rule
>
> Renorm[{S_, P_, N0_}] = d/b
>
> where
> b := (1+S)^(P/2)/(Sqrt[N0]).
>
> Parameters S, P and N0 are defined in the
>
> ParamList := {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}, {10, 11, 12}}
>
> each set {S, P, N0} corresponding to the respective value of d in the
> list.

I think that this is what you want:

d = {1, 2, 3, 4};

b[{S_,P_,N0_}] = (1+S)^(P/2)/Sqrt[N0];

ParamList = {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}, {10, 11, 12}};

The normalised expression is then

d / (b /@ ParamList)

6                3
2 Sqrt[-]        8 Sqrt[--]
Sqrt[3]         5    9           11
{-------, ---------, ----, ----------}
2        25      4096    161051

Cheers,
Paul
_________________________________________________________________
Paul Abbott
Department of Physics                       Phone: +61-9-380-2734
The University of Western Australia           Fax: +61-9-380-1014
Nedlands WA  6907                         paul at physics.uwa.edu.au
AUSTRALIA                           http://www.pd.uwa.edu.au/Paul
_________________________________________________________________

==== [MESSAGE SEPARATOR] ====

• Prev by Date: Re: Help with this!!!! please
• Next by Date: Re: MathLink questions
• Previous by thread: double-extended floating point numbers?
• Next by thread: How do you parse a n element list into a 2 by (n/2) array?