用mathematica根号下3.99近似值精确

（3根号下2+2根号下3-根号下30）=12根号6/（3根号下2+2根号下3+根号下30）=12/(根号3+根号2+根号5)所以,(根号下2+根号下3+根号下5)（3根号下2+2根号下3-根号下30）

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

h=32/a/b;z=50ab+402(a+b)h;Minimize[{z,a>0&&b>0},{a,b},Reals]//RootReducePlot3D[z,{a,0.3,16},{b,0.3,1

data={{0.25,15.},{0.5,32.},{0.75,38.},{1.,41.},{1.5,41.},{2.,40.},{2.5,35.},{3.,35.},{4.,25.},{5.,20

LinearSolve[M,b]{-2,0,0,3}应该就是这样

f[x_]:=Piecewise[{{x^2,1>x>=0},{x,1

我看不懂你的问题啊.在同一个单元里的语句,在按下Shift+Enter之后就会全部执行的啊.再问：一开始是这样，可是我下次打开文档时运行就只会运行当前的代码有什么解决的方法吗？再答：……什么叫做“当前

你的函数定义不对,圆括号,方括号,花括号三种括号的基本用法也没用对,建议找个最基本的入门书籍先看一下,下面是函数的定义：f[x_, y_] := ((Cos[ 

Animate[]或者Manipulate[]再问：格式呢？麻烦详细点

Clear[x];NIntegrate[(x-0.006)/((x-0.006)^2+(8-7)^2+(7-5)^2)^(3/2),{x,-1,1}]NIntegrate[(x-0.006)/((x-

shift+enter.

s=With[{a=1(*你设定的a值*)},NDSolve[{f'''[x]+0.5f[x]f''[x]==0,f[0]==0,f'[0]==a,f'[10]==1-a},f[x],{x,0,10(

g[n_]:=Fibonacci[n]/Fibonacci[n+1];r[n_]:=Log[Fibonacci[n]];lisfn=Table[Fibonacci[n],{n,10}];lisgn=T

用ParametricPlot命令来画图.代码如下,r=1;ParametricPlot[{ra-rCos[a],-r+rSin[a]},{a,-2Pi,2Pi}]大小写不可搞错.已测试,直接拷贝到M

In[1]:=res=RSolve[{a[n+3]==p*a[n]+q*a[n+2]},a[n],n]Out[1]={{a[n]->C[1]Root[-p-q#1^2+#1^3&,1]^n+C[2]R

见下图：

试试MaxIterations参数再问：嗯嗯昨天找到了而且解决了但是改变迭代量对结果影响很大什么时候才是最佳答案？迭代次数足够多？再答：今天晚上正好有空，仔细看了一下你的代码，是分段线性的函数的规划，

程序代码：Animate[Plot3D[  10*Sin[Sqrt[x^2 + y^2] + t]/Sqrt[1 + x

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

解决常微分问题,命令是DSolve,举个例子：y'=x命令为：DSolve[y'[x]==x,y'[x],x]按shift+enter运行.结果为：{{y[x]->x^2/2+C[1]}}.你可以照着