Re: Solving the variable system of equations

*To*: mathgroup at smc.vnet.net*Subject*: [mg49318] Re: Solving the variable system of equations*From*: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>*Date*: Tue, 13 Jul 2004 06:00:03 -0400 (EDT)*Organization*: Universitaet Leipzig*References*: <cd078l$9hi$1@smc.vnet.net>*Reply-to*: kuska at informatik.uni-leipzig.de*Sender*: owner-wri-mathgroup at wolfram.com

Hi, try FindRoot[F==0,Transpose[{X,S}]] Regards Jens Mukhtar wrote: > > 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}]. > > Please advise. Thanks, Mukhtar