MathGroup Archive 1996

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

Search the Archive

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?