Weiter mit FindRoot fuer Vectoren

["Veltman, A.T." <veltman@XXXXXXX.nl>]

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