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
• 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:
• Prev by Date: Re: Mathmatica Problem...
• Next by Date: Re: Mesh on graphics3D objects
• Previous by thread: Removing Outer Braces
• Next by thread: Re: Removing Outer Braces