       Solving the variable system of equations

• To: mathgroup at smc.vnet.net
• Subject: [mg49307] Solving the variable system of equations
• From: mbekkali at gmail.com (Mukhtar)
• Date: Tue, 13 Jul 2004 04:32:39 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```Suppose I have n functions f[X,i], i=1,...,n, where X is a vector of
x's.  Is there a way to program in mathematica such that I get
solutions, vector X, of f[X,i]==0, i=1,...,n for different n's.

For example, if n=2 then I have two functions f[{x1,x2},1] and
f[{x1,x2},2] and can set both of them to zero and solve for {x1,x2}.
If n=3 then I would have three functions f[{x1,x2,x3},1],
f[{x1,x2,x3},3], and f[{x1,x2,x3},3] and solve for {x1,x2,x3}.

My problem is that I can setup the problem using matrices, i.e. just
define some matrix F=Table[f[X,i],{i,1,n}] and X=Table[x[i],{i,1,n}],
however, to use FindRoot I need to specify starting variables.  I
created a matrix of starting variables, say S=Table[i,{i,1,n}],
however Mathematica does not want to accept FindRoot[F==0,{X,S}].