第三讲 用Mathematica解方程演示版.ppt

第三讲 用Mathematica 的相应功能解方程 .精品课件. * 用Mathematica的相应功能解方程 求解联立方程 在Mathematica中用于解方程 f(x)=0的命令 微分方程 .精品课件. * 在Mathematica中用于解方程f(x)=0的命令 Solve[ f[x] == 0,x ] NSolve[ f[x] == 0,x ] Roots[ f[x] == 0,x ] Reduce[ f[x] == 0,x ] FindRoot[ f[x] == 0, {x,x0 ] FindRoot[ f[x] == 0, {x,x0,x1} ] .精品课件. * Solve[ ] Solve可以给出4次以下方程的精确解。 如: 命令：Solve[ 2ab+2ax+2bx-3abx+2a^2-3ax^2+abx^2 – 3x^3+4x^3+bx^3+x^4==0, x] 如: 命令：Solve[ x^3+x^2+a*x+b==0, x] .精品课件. * Nsolve[ ] NSolve能求出5次及5次以上的方程近似解。 如: 命令：NSolve[ x^5+x^2-x+3==0, x] 命令：Solve[ x^5+x^2-x+3==0, x] 如: .精品课件. * 求解联立方程 Solve[ ]也可用来求解方程组，其格式为： Solve[{f1[x,y]==0,f2[x,y]==0,{x,y}] 如: 命令：Solve[ {a1*x+b1*y == c1, a2*x+b2*y == c2}, {x,y}] 一般的线性方程也可以用矩阵形式表示 命令: {{3,1},{2,-5}}.{x,y}=={7,8} Solve[%,{x,y}] .精品课件. * DSolve[ degn, y[x], x ] DSolve[ {degn, y[x0] == y0}, y[x], x ] 解微分方程 .精品课件. *