用Mathematica编程解决一元三次方程求根问题

其实你可以试着对你的这个方程用一下FullSimplify,你会发现变形出来的方程很明显是无解的.再问：谢谢，那怎样判断方程左边的多项式的正负呢？再答：对于你的这个式子的话，FullSimplify之

你的这个题,e的指数上的那个I,是虚数单位吧,那么,这个式子展开之后很可能就不是微分方程,于是我试了一下……：Clear["Global`*"]Needs["VectorAnalysis`"]Redu

球体的体积：正圆球程序：v=4\3Pirrr椭圆球程序：v=4\3Piabc(mathematics中空格相当于乘号,Pi必须大写首字母,把r和abc的值带进去就可以了)再问：计算N维球体的呢？再答：

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}应该就是这样

Mathematica没有现成的命令可以直接求解此类问题,自己得动手写,下面是一个例子,当然可以解决这个问题,但效率并不高.Select[Tuples[Prime@Range@PrimePi@48,3

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

NSolve::nsmet:无法利用Solve现有的方法求解该系统.具体为什么我也不大懂,可能是方程本身是超越方程.试一下用FindRoot来解.一个在0附近（就是0）,一个在1.4附近.再问：可我试

你的函数定义不对,圆括号,方括号,花括号三种括号的基本用法也没用对,建议找个最基本的入门书籍先看一下,下面是函数的定义：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.

首先,不符合基本语法.可以写成这样的形式：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/

好像没有.你可以转写成y',y''型的再用NSolve.当然,也可以用函数D表示导数（包括偏导数）,我想dy,dx形式的转写成用函数D表示要比转写成y',y''型方便.函数D可以在帮助查到.

你之前错将x[0]==x0写成过x[0]=x0吧.这导致了变量赋值.先执行一下Clear[x]再执行你的代码.

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

什么叫用变量替换验证啊……难道是这样?：eqn={x^2-y==1,x+y^2==0};sol=Solve[eqn,{x,y}]eqn/.N@sol再问：请问最后一句是什么意思再答：我以为你的”变量替

你看看FourierCoefficient的帮助吧.————闲着没事试着算了一下,然后,你这给的算式有问题吧?看你第一张图里的式子,各项间距这么开,感觉和掉了符号一样.要不就是你漏给了什么条件?还是说