I have two problems which I'd like to solve with Mathematica.
If I have a system of two equations with three unknowns, how can I get to list all possible solutions for the unknowns?
Here is what I have tried:
Solve[{ a + b + c == 5, 1/a + 1/b + 1/c == 1/5}, { a, b, c}]
Solve::svars: Equations may not give solutions for all "solve" variables. >>
{{a -> 5, c -> -b}, {b -> 5, c -> -a}, {b -> -a, c -> 5}}
What would I change in this specific instance?
Here are the problems:
I
Suppose that $a, b, c$ are real numbers satisfying $a+b+c=5$ and $\frac{1}{a}+\frac{1}{b}+\frac{1}{c}=+\frac{1}{5}$.
Find the greatest possible value of $a^3+b^3+c^3$
If I list all solutions I'll be able to choose all solutions maximizing $a^3+b^3+c^3$.
II
Finding integers $x, y$ and $z$ that satisfy this system:
$$\quad x^2 y + y^2 z + z^2 x = 2186 $$
$$\quad x y^2 + y z^2 + z x^2 = 2188$$.
evaluate $x^2+y^2+z^2$
The both problems can be found here (see exercises $27$ and $30$ ).
Answer
I
Let's write down an appropriate system we would like to solve,
i.e. we are to maximize a^3 + b^3 + c^3
knowing that a + b + c == 5
and 1/a + 1/b + 1/c == 1/5
, thus the most direct approach uses Maximize
with adequate conditions:
Maximize[{a^3 + b^3 + c^3, a + b + c == 5, 1/a + 1/b + 1/c == 1/5}, {a, b, c}]
{125, {a -> 1, b -> 5, c -> -1}}
With Maximize
we can get only a specific solution, an example can be found here : How do I determine the maximum value for a polynomial, given a range of x values?, nevertheless we can remedy this problem using Lagrange multipliers, see e.g. How can I implement the method of Lagrange multipliers to find constrained extrema?.
However since there is a symmetry between a, b
and c
we can conclude that any permutation of this triple {a -> 1, b -> 5, c -> -1}
is also a solution.
There are another ways to solve the problem which can be examined with the answers to these questions: Am I missing anything? Solving Equations
Efficient code for solve this equation
Let's provide the simplest:
Simplify[ a^3 + b^3 + c^3, {{a + b + c == 5, 1/a + 1/b + 1/c == 1/5}}]
125
II
Another question provides a nice example where a simple usage of Solve
and Reduce
with an appropriate domain specification will not be sufficient.
E.g. this yields a complicated system returning the solution but it doesn't clarify if another solutions really exist.
Reduce[ x^2 y + y^2 z + z^2 x == 2186 && x y^2 + y z^2 + z x^2 == 2188 &&
(x | y | z) ∈ Integers, {x, y, z}]
Thus we should approach the problem in a different way.
Let's notice that:
Simplify[ x y^2 + y z^2 + z x^2 - (x^2 y + y^2 z + z^2 x)]
-(x - y) (x - z) (y - z)
Now we can conclude that using slightly different system we can find an appropriate solution:
x^2 + y^2 + z^2 /. Normal @
Solve[ x - y == a && x - z == b && y - z == c &&
x^2 y + y^2 z + z^2 x == 2186 && -a b c == 2, {x, y, z}, Integers]//Union//First
245
Comments
Post a Comment