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

第三十题--解下列方程

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}]