Re: Weiter mit FindRoot fuer Vectoren

[Jens-Peer Kuska <kuska@XXXXXXX.de>]

Hallo,

komisch, aber mit

m = 2;
x = {x1, x2};
s = {.2, .2};
i = {3Cos[x[[1]]], 4Sin[x[[2]]]};
Z = {{1, 2}, {3, 4}};
f = # == 0 & /@ (Z.i);

FindRoot[Evaluate[f], 
  Evaluate[Sequence @@ ({#, 0.2} & /@ Union[Cases[f, _Symbol,
Infinity]])]]

muss man nicht wissen wie viele Variablen in f enthalten sind.

Gruss
  Jens


"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
> ============================================