mathematica 取实部含幅角

你输入的命令有一点小瑕疵(大小写、多字符)关于你Show命令中的选项AxesLabel→{"t/K","ΔV/mV"}貌似这个不行显示：无法结合显示图形对象这点我不清楚data={{50,-53},{

激活密钥3696-3613-KAVOH密码6625-308-746::1再问：太感谢你了，请问这怎么算？再答：注册机，爱问资料中有下载

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

……这槽点略多啊.首先,Mathematica的内建指令全是以大写字母开头的,所以正确的应该是：Solve[x^2+2x-2==0,x]然后,你会产生这样的报错,那说明你之前对x赋过0这个值,所以,你

D[Integrate[((λw+(1-λ)(p-c)-r)(a+ke+lr+x))f[x],{x,A,B}],r]结果是Integrate[(-(a+ek+lr+x)f[x]+(-r+(-c+p)(

……一点建议.定义列表不要使用For循环,使用Table语法会更简洁,速度也更快.再问：因为输入的矩阵是1*400*400，其实400*400部分表示了图像。但是要拟合二维曲面需要数组是坐标的形式，T

ContourPlot3D[x^2 + y^2 + z^2 - 1, {x, -1, 1}, {y,

第一,语法错误,条件要用&&连接,具体格式为:Maximize[{目标函数,条件1&&条件2&&...},{变量1,变量2,...}]第二,用Maximize做线性规划的语法与LinearProgra

……If里面的语法错了,是逗号不是分号.

第一个问题：f[x_]:=2x^2;xlist=NestList[#-f[#]/f'[#]&,0.5,4];ylist=f[xlist];list1=Transpose[{xlist,ylist}];

我看你这个是想求一个数值解吧,请用NSolve求解,或者用FindRoot函数求解,FindRoot函数求解的时候,要指定根的位置.这些知识应该老师上课的时候有讲吧,如果你对微积分和线性代数的知识没有

你好好看看Map（/@）和Function（#&）的帮助……————仔细一看我发现……我又是根本不知道你要问啥……你的Table执行过后每个式子里有这么多x[i],到底哪个在哪个区间啊?再问：不一定是

是一个科学计算软件

你在不懂的地方左键点一下,使光标移到那里,然后按下F1键,就可以调出帮助了.帮助里已经讲的很详细了.

图片的最上部没显示完整,可能的情况就是你没加括号,h=6.626*10^-34;c=3*10^8;T=300;k=1.3806505*10^-23;f[x_]:=2*h*c^2/x^5/(Exp[h*

应该使用点Dot(.)给你一个示例:Ma={{a11,a12},{a21,a22},{a31,a32}};Mb={{b11,b12,b13},{b21,b22,b23}};Mb.Ma获得一个2*2的矩

a={59.7,59.4,69.6,59.9}b=Table[(x-a[[k]])^2,{k,1,4}]b=Sum[b[[k]],{k,1,4}](-69.6+x)^2+(-59.9+x)^2+(-5

Plot[Evaluate@Table[ax^2+5,{a,2,6}],{x,-5,5}]

t1 = Plot3D[Abs[x - 1]*Sin[2*x*t*Pi], {x, 0, 1}, {t, 0,

我只把你的命令中的Ln改成Log就能运行,而且能出图,图像如下,计算结果：1.32752 + (3.89645 (1 + Erf[(0.0738756