Re: Weiter mit FindRoot fuer Vectoren

[Rolf Mertig <rolf@XXXXXXX.com>]

Hoi Arie,
je kan gewoon 
m = 2;
x = {x1, x2};
s = {.2, .2};
i = {3Cos[x[[1]]], 4Sin[x[[2]]]};
Z = {{1, 2}, {3, 4}};
f = # == 0 & /@ (Z.i);
k = Table[{x[[i]], s[[i]]}, {i, m}];
y = Chop[x /. FindRoot[f, k[[1]], k[[2]]]]

doen en dan is y en "vector" (en lijst).
Chop maakt alleen en echte "0" van een heel kleine reelle getal.

Groeten,

Rolf Mertig
Mertig Consulting
Berlijn, Duitsland

On Dienstag, 8. Oktober 2002 11:53, Veltman, A.T. wrote:
> Mit Hilfe von Jens-Peer Kuska bin Ich gekommen bis, zum Beispiel:
>
> m = 2;
> x = {x1, x2};
> s = {.2, .2};
> i = {3Cos[x[[1]]], 4Sin[x[[2]]]};
> Z = {{1,2},{3,4}};
> f = #==0& /@ (Z.i);
> k = Table[{x[[i]],s[[i]]},{i,m}];
> FindRoot[f, k[[1]], k[[2]] ]
>
> Mit Resultat:
> {x1 -> 4.7, x2 -> 0}    (Ungefaehr)
>
> Wenn Ich also x und s so voll schreiben wuerde mit Variablen
> beziehungsweise Werte dass ihr Laenge immer grosser ist als m, brauchte Ich
> nur noch eine Ausdruck fuehr/statt 'k[[1]], k[[2]], ...' die unabhaengig
> ist vom Laenge von x, aber da komme Ich noch nicht aus.
>
> Auch weiss Ich noch nicht wie einen Vector y zu bekommen mit die
> Loehsungen.
>
> Koennte damit vielleicht jemand noch helfen?
>
> Danke,
> arie veltman
>
>
>
> ============================================
> *      Ir. A.T. Veltman
> *      Energie 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
> ============================================