mathematica求解方程组

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

这样?：Integrate[x/(2*(x-1)^2+x),{x,1,1.68}](*0.574524*)

语法没有问题,但是非线性方程没有通解的情况很常见,可能的话考虑数值解吧.

能

(*先画图观察看有几个根,它们分别在什么位置附近*)Plot[Sin[x]Cos[x]-x^2,{x,-10,10}](*发现给的x范围太大了,缩小范围*)Plot[Sin[x]Cos[x]-x^2,

不能.这是个超越方程,没有办法得到解析表达式的解.再举个例子.下面这个方程,Sin[x]==x是得不到解得.不是Mathematica功能不够,而是这个方程在数学上就没有解析解.类似的方程在Mathe

乘方的符号不是\[Wedge]而是^,也就是英文键盘的Shift+6再问：看图片，图片里的因该对吧再答：嗯，虽然看起来像但它们功能不一样。

In[10]:=Clear@"`*";FindRoot[Integrate[Gamma[a+b]/(Gamma[a]+Gamma[b])t^(a-1)(1-t)^(b-1)/.b->11.5a,{t,

解析解太复杂,无法求出啊.只能将未知数的实际值代入方程,求得数值解.再问：我把x,r,d,h,l都用数值带入，然后只求Alpha和Beta关于s1和s2的关系，可是还是求不出来难道只能也带入s1和s2

格式为Solve[{方程1,方程2...},{未知数1,未知数2,...}]若只有一个议程就不要大括号了,直接Solve[方程,未知数]方程内部全用小括号如Solve[(((1+1.5*2.65/x)

图片的最上部没显示完整,可能的情况就是你没加括号,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*

建议改用matlab或者excel,mathematica接触不多,不过感觉数值矩阵运算不行

data={a,b,c,d,e,f,g,h,i,g,k,l,m,n,o,p,q,r,s,t,u}data2=Table[x^i,{i,0,20}]Solve[Apply[Plus,datadata2]

中括号专用于放置函数参数,表示优先级一率用小括号,还有方程（包括那些不等式）应该全部放在一个大括号里,还有I是虚数单位,不要用做变量,否则可能有副作用.

首先,不符合基本语法.可以写成这样的形式：Solve[Cos@(6^(1/2)/3*(t+t3/2))*Sin@(6^(1/2)/3*t3/2)-Cos@(6^(1/2)/3*(t+t2+t3+t1/

各个参数都在什么数域啊?复数域?实数域?为了求解方便我就当b是个实部大于0的数了,那么：exp=Integrate[b^al^(a-1)Exp[-bl]/Gamma[a]/.a->58b,{l,0,9

去学问社区问问吧,那有个mathemaitca小组挺好的.你这个问题还挺难

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(

=号才是赋值,->这个是替换,如果对z赋值了才画出的是一条直线,z=Solve[k*100+1==101,k]/.Rule->SetPlot[z,{x,-1,1}]当然也可以这样赋值z=Solve[k

您是北风之神我已在搜搜问问回答过这个问题.为了让更多人知道答案,我把我之前的回答的要点贴在这里.ConstrainedMax函数早在Mathematica5.0就被淘汰.据4.0版的帮助,这段代码有两