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