Praca z ukrytymi funkcjami w Mathematica

Question

Czy mogę rysować i radzić sobie z niejawnymi funkcjami w Mathematica?

na przykład: -

x^3 + y^3 = 6xy

mogę wykreślić funkcję takiego?

Answer 1

ContourPlot[x^3 + y^3 == 6*x*y, {x, -2.7, 5.7}, {y, -7.5, 5}] 

Dwie uwagi:

1. Uwaga podwójne znak równości i tym symbole mnożenia.
2. Dokładne dane wejściowe można znaleźć za pośrednictwem interfejsu WolframAlpha. Ten interfejs jest bardziej wyrozumiały i akceptuje twoje dane wejściowe prawie dokładnie - chociaż musiałem określić, że chciałbym jakiegoś rodzaju działki.

Answer 2

Zgaduję to jest to, czego potrzebujesz:

http://reference.wolfram.com/mathematica/Compatibility/tutorial/Graphics/ImplicitPlot.html

ContourPlot[x^3 + y^3 == 6 x*y, {x, -10, 10}, {y, -10, 10}] 

Answer 3

Tak, używając ContourPlot.

I to nawet możliwe, aby wykreślić tekst x^3 + y^3 = 6xy wzdłuż własnej krzywej, zastępując Line prymitywny z kilkoma Text prymitywów:

ContourPlot[x^3 + y^3 == 6 x y, {x, -4, 4}, {y, -4, 4}, 
Background -> Black, PlotPoints -> 7, MaxRecursion -> 1, ImageSize -> 500] /. 
{ 
Line[s_] :> 
Map[ 
    Text[Style["x^3+y^3 = 6xy", 16, Hue[RandomReal[]]], #, {0, 0}, {1, 1}] &, 
    s] 
} 

Albo można animować równanie wzdłuż krzywej, tak:

res = Table[ Normal[ 
ContourPlot[x^3 + y^3 == 6 x y, {x, -4, 4}, {y, -4, 4}, 
    Background -> Black, 
    ImageSize -> 600]] /. 
{Line[s_] :> {Line[s], 
    Text[Style["x^3+y^3 = 6xy", 16, Red], s[[k]], {0, 0}, 
    s[[k + 1]] - s[[k]]]}}, 
    {k, 1, 448, 3}]; 

ListAnimate[res]