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],到底哪个在哪个区间啊?再问：不一定是

In[63]:=a={a1,a2,a3,a4,a5};Table[Sum[a[[n]],{n,1,i}],{i,1,Length[a]}]Out[63]={a1,a1+a2,a1+a2+a3,a1+a

是一个科学计算软件

你在不懂的地方左键点一下,使光标移到那里,然后按下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的矩

输入CoefficientList[2x+3y-4z+7,{x,y,z}]输出{{{7,-4},{3,0}},{{2,0},{0,0}}}我觉得你对题目的理解有误,如果提取的结果是{2,3,-4,7}

实际上是可以用ContourPlot直接画NDSolve的结果的,举个例子吧：s=NDSolve[{D[u[t,x],t]==D[u[t,x],x,x],u[0,x]==0,u[t,0]==Sin[t