Да се реши системата:
[tex]1+(y-z)^2=2x[/tex]
[tex]16+(z-x)^2=8y[/tex]
[tex]81+(x-y)^2=18z[/tex]
kill(all)$sys1:[1+(y-z)^2-2*x, 16+(z-x)^2-8*y, 81+(x-y)^2-18*z];
solve(sys1[1],x);
sys2:4*[sys1[2],sys1[3]],%,factor;A:part(sys2[1],1);sys2/A,factor;
[%[1],%[2]-%[1]],factor;solve(A,z);matst написа:Решавам с помощта на система за компютърна алгебра Maxima ( виж http://maxima.sourceforge.net/).
...
(%i27) solve([1+(y-z)^2 =2*x, 16+(z-x)^2 = 8*y, 81+(x-y)^2 = 18*z]);
algsys: Couldn't reduce system to a polynomial in one variable.
-- an error. To debug this try: debugmode(true);(%i28) solve([1+(y-z)^2 =2*x, 16+(z-x)^2 = 8*y, 81+(x-y)^2 = 18*z], [x,z]);
(%o28) [[x = y - 3 sqrt(2) sqrt(y - 2) + 3, z = y - sqrt(2) sqrt(y - 2) + 3],
[x = y + 3 sqrt(2) sqrt(y - 2) + 3, z = y + sqrt(2) sqrt(y - 2) + 3]]In [174]: solve( [-2*x + (y - z)**2 + 1, -8*y + (-x + z)**2 + 16, -18*z + (x - y)**2 + 81] )
Out[174]:
[{x: z - 2*sqrt(2*z - 9) - 2, y: z + sqrt(2*z - 9) - 2},
{x: z + 2*sqrt(2*z - 9) - 2, y: z - sqrt(2*z - 9) - 2},
{x: 1, z: 9, y: 10},
{x: 13, z: 5, y: 10}]peyo написа:Виждаме, че по някаква причина волфрам разглежда отделно 3 случая когато x=10. Защо?!
И така коя от 3-те програми дава най-добро решение? Може би решенията са еквивалентни?
Регистрирани потребители: Google [Bot]