x=1在mathematica-搜答案-智慧作业帮

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

楼上都错了,图像没问题这个表达式实际是个常数,你可以运行TrigReduce[Sin[x]Sin[x+2]-Sin[x+1]^2]看看,结果为1/2(-1+Cos[2])只不过Plot的自动选择坐标系

Plot[{x,-x,4Sin[x],3Cos[x],5Sin[x]*Cos[x],1-x^2,1/(x+7),2-3x,3x+1,Tan[x],Sinh[x],Log[x],2^(x/3),x^3-

是正确还是错误错的

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

有很多方法,这是其中之一：g[x_/;x>=0]:=x^2g[x_/;xPlot[g[x],{x,-3,3}]

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

按照定理用solve求出0到1中的一点,使得f在那一点的导数等于(f[1]-f[0])/(1-0)就行f[x_]:=Sin[x]-x-1;Solve[D[f[x],x]==(f[1]-f[0])/(1

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

使用隐函数绘图Implicitplot5.0版本现在统一如下所示ContourPlot[{y==Sin[x],x==0.5},{x,-1,1},{y,-1,1}]

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

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

与此类似的问题一个：要解决这个问题,最简单的方法就是定义个新函数：f[a_, b_] = Piecewise[{{1, a == b&nbs

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

Mathematica算负数的三次方根时取的是虚数,比如(-1)^(1/3)取的是1/2+(ISqrt[3])/2.改成Plot[Sign[x-1]Abs[x-1]^(2/3)Sign[x+1]Abs

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

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

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

Mathematica算负数的三次方根时取的是虚数,注意：x^(1/3)=Sign[x]*Abs[x]^(1/3)函数x^2+[y-x^(1/3)]=1,即：y=1-x^2+x^(1/3)代码：Plo

ContourPlot[x==1,{x,-10,10},{y,-10,10}]这个直线画得不好{Text["Sin[x]",{4.76,-1},{0,1}],Text["x",{3.2,3.5},{0