用Mathematica画x=1的图形

方法很多,先提供两个：Plot[9!(x-5),{x,-10,10},AspectRatio->Automatic,PlotRange->10]With[{a=10},ContourPlot[x==5

等号写错了,应该是==,试试下面代码：Solve[{a*x(1-x/k)-(c*x)/(m+x)y==0,1-s*y-(e*y)/x==0},{x,y}]

ContourPlot[17x^2-16y*Abs[x]+17y^2==225,{x,-5,5},{y,-5,5},Axes->True,Frame->False]你的意思是四个自变量吧?4维静态的图

楼上回答的应该不是楼主的意思吧～用这个：ParametricPlot[{2, u}, {u, -10, 10},  PlotRange&nb

你可以参考这里：http://zhidao.baidu.com/question/1668124959211143667.html

7.0或8.0上运行Manipulate[Show[Graphics[Circle[{x,Sin[x]},.2],PlotRange->{{-7,7},{-1.3,1.3}}],Plot[Sin[i]

这道题有两种方法,一种是用ParametricPlot3D化为球坐标系,这个比较麻烦因为它是双曲函数y^2-z^2=1绕z轴旋转得到的.不太好化,还有就是合并两张图pho1=Plot3D[(x^2+y

Solve和NSolve都是求解多项式方程的,对于大多数超越方程来说,只能用迭代法或者割线法求解,此时要用FindRoot函数.用Plot[8Cos[0.5x]-4xSin[0.5x]==0,{x,-

似乎没有解析解法,但是可以使用FindRoot,.也就是说,先用Plot画图观察一下：Plot[Sin[x]*Sinh[x]+1,{x,-10,10}]看出来似乎3附近有解,那么：ans=FindRo

Manipulate[Plot[x/(x-a),{x,1,10}],{a,0,10}]

ContourPlot[x == 2, {x, -5, 5}, {y, -5, 5}, Axes -

Plot3D[Sin@(x^2+y^2),{x,-5,5},{y,-5,5},PlotPoints->40]ContourPlot[Sin@(x^2+y^2),{x,-5,5},{y,-5,5},Pl

Plot[x/Tan[x],{x,-2\[Pi],2\[Pi]}]

DSolve[y'[x] + 2 y[x]^2 == 1/(1 + x^2), y[x], x]

ContourPlot[x^2+y^2==4,{x,-3,3},{y,-3,3},Axes->True]

很简单的啊,Mathematica画图很强大,如果你有兴趣的话建议了解学习一下Mathematica,这将是极好的!   程序如下： Plot[Exp[x]*S

绘制由NDSolve求出的微分方程数值解曲线的命令Plot[Evaluate[y[x]/.solution],{x,a,b}]具体如：Plot[Evaluate[y[x]/.NDSolve[{y'[x

用专用的图形包,比如箭头,直方图什么的,可以去help查阅一下具体的你也可以学问社区多看看,那里的mathemtatica小组的资源很多

Plot[y/.Solve[x==Log[y]+y,y],{x,-10,10}]再问：请问我怎么把Solve[x==Log[y]+y,y]写成f[x]的形式再答：InverseFunction[Log

Graphics3D[Polygon[{{2,-3,3},{2,-3,-3},{2,3,-3},{2,3,3}}],PlotRange->{{-3,3},{-3,3},{-3,3}},Axes->Tr