这个方程怎么画不出啊 - mathematica吧

level 13

czp20408122449 楼主

ContourPlot[x^x + y^y == 1, {x, -5, 5}, {y, -5, 5}]
结果是空白的 [委屈]

2013年08月02日 12点08分 1

吧务

level 15

xzcyr

呵呵，因为根本不存在嘛，你说的这根线：
In[228]:= NMinimize[{Abs[x^x + y^y]}, {x, y}]
Out[228]= {1.3844, {x -> 0.367879, y -> 0.367879}}

2013年08月02日 12点08分 2

czp20408122449

你看三楼，别的软件可以画的出。http://exp618.com/archives/939这个地址的第一个图片mma也画不出来，空白的

2013年08月02日 13点08分

level 13

czp20408122449 楼主

存在啊，用别的软件可以画出来啊

2013年08月02日 12点08分 3

xzcyr

关注4楼。对极值的考察是我没做周全，但是这个图像依旧不对，我想。

2013年08月02日 13点08分

吧务

level 15

xzcyr

三维图辅证：
Plot3D[Abs[x^x + y^y], {x, -3, 3}, {y, -3, 3}, PlotRange -> {1, 5}, ClippingStyle -> None, Mesh -> {{1}}, MeshFunctions -> (#3 &), MeshStyle -> Directive[Thick, Red]]

红线是绝对值为1的等高线

2013年08月02日 13点08分 6

吧务

level 9

草红样

一个重要原因是。。。举个例子(-1.5)^(-1.5)得到的是虚数，这在Maple和Matlab中都是一样的，而其他软件里一般是实数
pow[x_, r_] := Sign[x]*Abs[x]^r;
ContourPlot[pow[x, x] + pow[y, y] == 1, {x, -#, #}, {y, -#, #}, Axes -> 1] &@5

2013年08月02日 13点08分 7

草红样

顺便说一句，GrafEq画的图有一些是错误的

2013年08月02日 14点08分

xzcyr

回复草红样 :我墙裂认为那GrafEq的算法有问题。

2013年08月02日 14点08分

czp20408122449

回复草红样 :回复草红样 :这个代码我运行之后出问题了，按键盘就一直响，而且退格键变成了方块，esc也是 [泪]