Mathematica入门习题[30]–解方程

  • A+

 

第三十题--解下列方程

 

 

FindRoot[Log[1 + x] - 5/(1 + Sin[x]) == 2, {x, 90}]

 

第一题的解是有无穷个的,我们可以看一下函数图像

 

Plot[{Log[1 + x], 2 + 5/(1 + Sin[x])}, {x, 0, 250},
MeshFunctions -> Function[x, Log[1 + x] - 2 - 5/(1 + Sin[x])],
Mesh -> {{0}}, MeshStyle -> PointSize[.005], PlotPoints -> 50]

 

 

Solve[x^2 + 9*Sqrt[x + 1] - 1 == 0, x]

 

 

FindRoot[3*x*E^x + 5 Sin[x] - 78.5 == 0, {x, 1}]
(*上面解出方程的解,下面画出图像*)
Plot[{3*x*E^x + 5 Sin[x], 78.5}, {x, -10, 10},
MeshFunctions -> Function[x, 3*x*E^x + 5 Sin[x] - 78.5],
Mesh -> {{0}}, MeshStyle -> PointSize[.03], PlotPoints -> 50]

 

 

Solve[{Sqrt[x^2 + y^2] - 100 == 0, 3*x + 5*y - 8 == 0}, {x, y}]

 

 

 

  • 微信公众号
  • 关注微信公众号
  • weinxin
  • QQ群
  • 我们的QQ群号
  • weinxin
王 茂南

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: