MathGroup Archive 1996

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

Search the Archive

Functional programming; Outer; NonlinearFit

  • To: mathgroup at
  • Subject: [mg4147] Functional programming; Outer; NonlinearFit
  • From: vvs124 at (vvs124)
  • Date: Fri, 7 Jun 1996 02:08:43 -0400
  • Organization: Optical Sciences Centre, ANU
  • Sender: owner-wri-mathgroup at

Dear MathGroup,

Here is the kind of thing that is giving me trouble: 

¥ First - I want to renormalize the list d 

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

according to the rule

Renorm[{S_, P_, N0_}] = d/b    

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

I can do it for a d = const this way:        

Vectors   := Table[f[i], {i, Length[ParamList]}]
ToNumbers := Thread[Vectors -> ParamList]
RenormArray := Outer[Renorm, Vectors]
RenormNbrs  := RenormArray /. ToNumbers

But it obviously doesn't work if d has more than one element. In this
I end up with a whole matrix, but I only need the diagonal elements. I
REALLY tempted to do 

RenormD = Table[RenormNbrs[[i,i]], {i, Length[[ParamList]}],

but there_should_be a more elegant way of doing this. 
Can someone help me out here?

¥ Second question - does anybody have a hint for getting closer to the
minimum of ChiSquared in NonlinearFit (Method -> FindMinimum)? With
models it gets out of hand.  




 Victoria Steblina                      Email: vvs124 at
 Optical Sciences Centre                Tel:   61 6 249 5129           
 Research School of Physical            Fax:   61 6 249 5184         
 Sciences and Engineering                                              
 Australian National University                 
 Canberra, ACT 0200, Australia                                         


  • Prev by Date: can mathematica do this, please answer
  • Next by Date: Forthcoming book - "Experiments in Undergraduate Mathematics"
  • Previous by thread: Re: can mathematica do this, please answer
  • Next by thread: Re: Functional programming; Outer; NonlinearFit