在Mathematica中绘制正态分布的动态图

改成下面这个样子就行了f[x_]=Normal[Series[Sin[x],{x,0,9}]];Plot[f[x],{x,-2,2}]

……你想画到哪去啊,你自己已经限定了定义域在-5到5了,想要更多图像就扩大定义域啊.再问：可是y=x左边没有画到-5啊，画到-0.5它就不画了再答：Show里放上，PlotRange->All

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

DSolve[eqn,y[x],x]求解微分方程函数y[x]DSolve[eqn,y,x]求解微分方程函数yDSolve[{eqn1,eqn2,…},{y1,y2,….},x]求解微分方程组

老是修改不了贴,给个链接,绝对有效

每一种工具都有其擅长的地方,mathematica擅长处理数学问题,你提的这个问题不是mathematica所擅长的,我建议你用PlotLegend命令（也就是图例）来完成你的需求.你直接在每一条曲线

当然啦!先integrate,再用Limit就成了例子：In[13]:=f=Integrate[1/x^2,{x,1,y}];In[14]:=Limit[f,y\[Rule]∞]Out[14]=1

用Clear函数格式如下：Clear["`*"]可能看不清楚,后面是英文双引号,引号中间还有两个符号,一个是按ESC键下面那个键,再一个是星号*这个函数能清除掉所有的变量赋值

先将a的一系列取值对应的函数都画出来,可以用Do[],也可以用Table[],然后用Show[]命令把这些图画在一起就行了.具体如何使用可以按F1查询.挺容易的.b=Table[Plot[a*x^2+

你看看ListContourPlot的帮助……

这样：SystemOpen@ Export["a.xls",   First@Cases[    N

亏你能把这东西挖出来……其实这个在帮助里写了：Usedtorepresentaformalparameterthatwillneverbeassignedavalue.也就是说这个字母是设计来用来当一

要画图的话自然还得补充x0和p1的值,我这里随便补了两个.如果你要调节的话,必须注意画图的时候所取的区域得选好.（语句的语法并不难,你应该知道怎么改吧.不知道的话就看看帮助）：p1=1/2;x0=1;

希望对你有所帮助：输入：result=NDSolve[{h''[x]/(1+(h'[x])^2)^(3/2)-h[x]/2==0,h[1]==2,h'[2]==1},h[x],{x,1,2}];//Q

如果是版本9的话,可以使用Quantity函数：Quantity[1,"SpeedOfLight"]如果是版本8的话,需要使用程序包PhysicalConstantsPackage,总之就是：再问：知

求导数用D[f,x]或y'[x]都可以,

可以添加一个Epilog选项的么例如RegionPlot[x^2+y^3Epilog->Text["x^2+y^3

Mathematica是区分大小写的,你的语句里有一个小x写成了大X,要改回来：ContourPlot3D[{(x^2+(9y^2)/4+z^2-1)^3-x^2z^3-(9y^2z^3)/80==0

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

还是你呀!Plot[{E^-t+t-1,(1-E^-t)/2},{t,0,6}]还是Solve[E^-t+t-1.==6,t]ParametricPlot[{E^-t+t-1,(1-E^-t)/2},