Re: Extrahierung von Lists aus eine Liste

[Udo und Susanne Krause <su.krause@XXXXXXX.ch>]

Guten Morgen allerseits,

FindRoot[] kennt die flavours
FindRoot[eqn, {x, x0}], FindRoot[eqn, {x, {x0, x1}}] und
FindRoot[{eqn1, eqn2, ..., eqnN}, {x1, x01}, {x2, x02}, ..., {xN, x0N}].
Wenn f eine Liste von 3 Gleichungen darstellt, dann ist der gegebene Ausdruck in
Ordnung:

In[1]:=
FindRoot@@Flatten[{f,{{phi1,0},{delta2,0},{delta3,0}}},1]

>From In[1]:=
FindRoot::frnum: Function {f} is not a length 3 list of numbers at \
{phi1,delta2,delta3} = {0.,0.,0.}.

Out[1]=
FindRoot[f,{phi1,0},{delta2,0},{delta3,0}]

Insofern man annimmt, dass f eine Gleichung (lhs == rhs) darstellt, ist der
gegebene Ausdruck ein Fehler,
in dem Fall kann man folgendes tippen:
In[12]:=
MapThread[FindRoot, {Table[f, {3}], {{phi1,0},{delta2,0},{delta3,0}}}]

>From In[12]:=
FindRoot::frnum: Function {f} is not a length 1 list of numbers at {phi1} = \
{0.}.
<snip>
>From In[12]:=
General::stop: Further output of FindRoot::frnum will be suppressed during \
this calculation.

Out[12]=
{FindRoot[f,{phi1,0}],FindRoot[f,{delta2,0}],FindRoot[f,{delta3,0}]}
Die Fehlermeldungen verschwinden, wenn f eine Gleichung ist.

Mit den besten Grüssen
Udo.

Uli Schwarz schrieb:

> Vielleicht so
>
> FindRoot @@ Flatten[{f, {{phi1, 0}, {delta2, 0}, {delta3, 0}}}, 1]
>
> wobei
>
> Flatten[{f, {{phi1, 0}, {delta2, 0}, {delta3, 0}}}, 1]
>
> einfach
>
> {f,{phi1,0},{delta2,0},{delta3,0}}
>
> macht.
>
> Sollte funktionieren.
>
> Herzliche Grüße, Ulrich Schwarz
>
> Veltman, A.T. wrote:
>
> >Hallo, fuer FindRoot habe Ich die Liste mit Startwerte (kann aber beliebige
> >Anzahl delta2 ... deltaN enthalten):
> >
> >{{phi1,0},{delta2,0},{delta3,0}}
> >
> >brauche aber
> >
> >{phi1,0},{delta2,0},{delta3,0}
> >
> >in
> >
> >FindRoot[f, {phi1,0},{delta2,0},{delta3,0}].
> >
> >Wuste vielleicht Einer wie Ich das mache?
> >
> >Vielen Dank,
> >
> >arie veltman
> >
> >
> >============================================
> >*      Ir. A.T. Veltman
> >*      Energy research Centre of the Netherlands  ECN
> >*      Technological Services & Consultancy
> >*      Postbus 1, 1755 ZG  Petten, The Netherlands
> >*      Tel (+31) (0)224 564556, Fax (+31) (0)224 568407
> >*      veltman@XXXXXXX.nl
> >*      www.ecn.nl
> >============================================
> >
>
> --
> Ulrich T. Schwarz              Tel: (++49) 0941 943 2113
> NWF II - Physik                Fax: (++49) 0941 943 2754
> Universitaet Regensburg        e-mail: uli.schwarz@XXXXXXX.de
> D-93040 Regensburg
> url: http://homepages.uni-regensburg.de/~scu04188