Solution

In[80]:=

(*1*)Solve[{a * x/Sqrt[y] 4, b * x + a * y3}, {x, y}]

Out[80]=

{{y3/a + (8 b^2)/a^4 - (4 b (3 a^3 + 4 b^2)^(1/2))/a^4, x (4 (-2 b + (3 a^3 ... 8 b^2)/a^4 + (4 b (3 a^3 + 4 b^2)^(1/2))/a^4, x (4 (-2 b - (3 a^3 + 4 b^2)^(1/2)))/a^3}}

In[81]:=

(*2*)Simplify[%]

Out[81]=

{{y (3 a^3 + 8 b^2 - 4 b (3 a^3 + 4 b^2)^(1/2))/a^4, x (4 (-2 b + (3 a^3 + 4 ... a^3 + 4 b (2 b + (3 a^3 + 4 b^2)^(1/2)))/a^4, x -(4 (2 b + (3 a^3 + 4 b^2)^(1/2)))/a^3}}

In[82]:=

(*3*)%/.{a1, b2}

Out[82]=

{{y35 - 8 19^(1/2), x4 (-4 + 19^(1/2))}, {y3 + 8 (4 + 19^(1/2)), x -4 (4 + 19^(1/2))}}

In[83]:=

(*4*)%//N

Out[83]=

{{y0.128808, x1.4356}, {y69.8712, x -33.4356}}

Created by Mathematica  (April 10, 2007) Valid XHTML 1.1!