mathematica画3d图程序

f1[x_] :=   If[x < 10000, 1.5*10^11*(9.9^3*10^-31*x)^(1/6),&nb

有这个命令?好像只有ListVectorPlot3D和VectorPlot3D命令,而且都是用来画向量场的.单个向量是不好画的,因为不知道起点.向量可以用有向线段表示,就是箭头嘛~于是Graphics

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

pic=Plot[Sin[x],{x,0,2\[Pi]}];Manipulate[Show[pic,Graphics[{PointSize[0.02],Black,Point[{x0,Sin[x0]}

PDF[NormalDistribution[0,1],x]即是以x为变量的概率密度函数表达式,要画的话用Plot[PDF[NormalDistribution[0,1],x],{x,-3,3}]即可

Plot[sinx,{x,-111,111}]空间坐标系Plot3D那个说明文档里有

使用PlotLlabel选项实现,如：ContourPlot3D[x^2+y^2==z^2,{x,-3,3},{y,-3,3},{z,-3,3},PlotLabel->x^2+y^2==z^2]

ListPlot/@Transpose[{(x1,y1),(x2,y2).(xn,yn)}](*Mathematica_7.0*)

你周期函数没定义对．Clear[f]f[t_]:=Which[-5<t<=5,t^2,t<-5,f[t+10],t>5,f[t-10]]Plot[f[t],{t,-30,30}

3D心-x^2z^3-(9y^2z^3)/80+(x^2+(9y^2)/4+z^2-1)^3==0

如果颜色也算上的话,考虑到三原色的原理,颜色可以体现3个维度,再加上长宽高的话,就有6个维度了.如果再考虑点的不同形状和大小的话就可以画出更高的维度了,但是画出来了,机器可以分辨,眼睛却未必可以分辨.

Solve[ax^3+bx^2+cx+d==0,x]你可以复制到mathematica中

Plot[{Sqrt[-20*x],-Sqrt[-20*x]},{x,-5,1}]Plot[-0.4x^2,{x,0,5}]

几乎所有的数学软件都会有plot这个命令,用于画图.你可以在帮助里找plot,学会此命令的语法,即可使用.当然,高级绘图还需各软件支持的更专业的命令.（我惯用Maple,MM不太常用,而且人懒,没去找

x=-2*pi:0.001:2*pi;y=9./(1+10000*sin(x).^2)+1;plot(x,y)

RegionPlot[ x^2 + y^2 - 2 Abs[x] - 2 Abs[y] <=&

Mathematica有现成函数的再问：贝塞尔函数能画出来..但是求定积分那里出问题了。。。再答：麻烦你问具体些，是出了什么问题？首先能否上代码？没几个人有那么多空闲时间耐着性子把你的图片转换成代码。

是S[b1,b2]而不是S,还有,这种毫无必要的延迟赋值也大幅拖慢了求解速度.这样：x[t_,b1_,b2_]=2t+1+b1*Sin[Pi*t]+b2*Sin[2*Pi*t];S[b1_,b2_]=

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

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