Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

[Date Index] [Thread Index] [Author Index]

Search the Archive

Finding a function that makes it possible to Solve[ ] a system of equations

  • To: mathgroup at smc.vnet.net
  • Subject: [mg114029] Finding a function that makes it possible to Solve[ ] a system of equations
  • From: Mauricio Esteban Cuak <cuak2000 at gmail.com>
  • Date: Sat, 20 Nov 2010 18:27:53 -0500 (EST)

Hey MathGroup,

I apologise beforehand since this might turn to be more a mathematical query
than a Mathematica one.
However, I appreciate any suggestion on the matter.

   In[1]:= $Version
Out[1]= "7.0 for Mac OS X x86 (64-bit) (February 19, 2009)"


This is my setup:


f = (g*x + y)^h + d* i[x, y];
u1 = a*f - x^2;
u2 = (1 - a)*f - y^2;


Where x, y are the variables and {a,h,g,d} are just parameters, with 0 < a <
1, g > 0, d   bigger or equal to 0

 i[x,y] is the function that I need to specify.

Further, it must be true that


i[ x, 0] = 0     &    i[ 0, y ] = 0


For simplicity I've set


h=1;


Though if the solution you suggest requires it, h could belong to (0,1]

What I need is the analytic solution for {x, y}, hopefully a unique real
solution (I don't mind if there are complex ones) to:


   sol = Solve[{D[u1, x] == 0, D[u2, y] == 0}, {x, y}];


Obviously, I need to specify i[x,y] to do that. I need the function i[x,y]
to grow slower that x^2 or y^2.


 i[ x, y] = x^(1/2)*y^(1/2)    or

i[x,y] = Log[1+x] * Log[1+y ]


do the trick but Mathematica can't find an analytic solution.

The only thing that works is i[x,y] = x*y but the problem is that it grows
as fast

as x^2.


Thanks for your time,


ME


  • Prev by Date: Documentation of Eigenvalues[], Eigensystem[]
  • Next by Date: Re: maximum of a series
  • Previous by thread: Re: Documentation of Eigenvalues[], Eigensystem[]
  • Next by thread: MathLink error