mathematica心形曲线

Plot[{Sin[x],Cos[x]},{x,-Pi,Pi},Frame->{{True,True},{True,False}},FrameTicks->{{Automatic,{{-0.5,5},

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

ContourPlot3D[(2x^2+y^2+z^2-1)^3-(x^2z^3)/10-y^2z^3==0,{x,-1.4,1.4},{y,-1.4,1.4},{z,-1.4,1.4},PlotPo

你问的是矩阵的分解吧,Mathematica中矩阵分解的命令为：JordanDecomposition[A],表示将矩阵A分解为A=PBP^(-1)的形式,例如：A={{1,2,3},{2,1,3},

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-

我举例说明.如两个函数是x^2和2x,则：a = NSolve[y == x^2 && y == 2&n

贴个图：再问：上面的一个点在纵坐标左侧了，而且第一个点和第二个点之间的曲线怎么这个样子？再答：这个本质上是插值法，Interpolation[];他是将普通的折线即是线性直线插值为多项式等形式，上面的

mathematica7以上版本有图片编辑功能呢在图片上点击右键选择"drawingtools"再选择"∑="或"A="

你搜到了就省得我再贴了.

ListPlot[Tooltip@{{2.000,12},{1.900,14},{1.8,15},{1.7,16},{1.6,19},{1.5,21},{1.4,29},{1.3,39},{1.2,6

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

真不知道你啥意思,两个都能画出曲线再问：附件我上传了，mathematica的文件不能生成曲线，另外一个文件是mathcad的文件，两各文件的公式都是一样的。请帮我看看，谢谢！再答：里面的Mathem

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

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

参考一下这里,应该能满足你的要求

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

你给的初始条件这个u(x,0)=dsin(2pix)好像不对吧,d难道是系数吗?再问：是的，d是个系数！再答：如果你是要画Plot3D的话，那么应该是求微分方程的数值解，因此要指定c，d的值，并用ND

[1]科赫雪花曲线是分形曲线,随着N增大,长度趋向于无穷大.周长和面积只有给出具体的N才有意义,我下面给出它的计算式边长通项an=a*(1/3)^(n-1)边数通项bn=3*(1/4)^(n-1)面积

范例：p1=Plot[x^2,{x,0,2}];p2=ListPlot[{{0,0},{1,1}}];Show[{p1,p2}]

程序：Plot[638.3-22.09*Cos[0.4916*x]-27.57*Sin[0.4916*x],{x,169,220}]图像：再问：实际的分段函数：应为下图的侧棱：再答：根本就不是你说的那