Re: Removing Outer Braces
- To: mathgroup at smc.vnet.net
- Subject: [mg14363] Re: [mg14303] Removing Outer Braces
- From: Jurgen Tischer <jtischer at col2.telecom.com.co>
- Date: Thu, 15 Oct 1998 00:29:03 -0400
- Organization: Universidad del Valle
- References: <199810130521.BAA08554@smc.vnet.net.>
- Sender: owner-wri-mathgroup at wolfram.com
Hi Dennis,
I assume your guess list are guesses for three variables in your
equation. I propose the following:
First, transform your GuessList into something that conforms with the
syntax of FindRoot AND your equations. Say the variables of your
equation are called RP1, RP2, RP3. You might change by
guessList1 = GuessList/.{RP[_],a_,b_,c_}->{{RP1,a},{RP2,b},{RP3,c}}
Then run FindRoot on that list like this
FindRoot[eqn,Evaluate[Sequence@@#]]&/@guessList
Don't bother with the indices of your RP's, the output will be a list,
anyway it's better to process it as list, and if you need a certain
solution you can extract it with Part.
Jurgen
Dennis Benjamin wrote:
>
> Hi All:
>
> First off , thanks again to everyone who sent email answering my
> previous question.
>
> I have constructed a list of initial guesses for FindRoot, this list
> looks something like:
>
> GuessList={{RP[1],1.2,0.0,3},{RP[2],2.0,0.0,5.0},{RP[3],0.5,0.0,1.0}}
>
> although there are tens-hundreds of RP[n]. What I want to do is write
>
> FindRoot[Eqn,GuessList]
>
> How do I remove the outer braces of GuessList in order to do this?I
> found a solution to a similar problem in the MathGroup archives,
>
> FindRoot[Eqn,Apply[##&,Guesslist]] or FindRoot[Eqn, Sequence @@
> Guesslist]
>
> but neither seemed to work (Mathematica 3.01, Winows NT)
>
> Thankks in advance for any suggestions!
>
> Dennis
- References:
- Removing Outer Braces
- From: dennis.benjamin@molecular-sciences.oxford.ac.uk (Dennis Benjamin)
- Removing Outer Braces