我必须解决以下超越方程
cos(x)/x=c
对于给定的常数 c。
例如,我在 Mathematica 中做了一个简短的代码,在那里我为常数 c 生成了一个随机值列表
const = Table[RandomReal[{0, 5}], {i, 1, 10}]
(*{1.67826, 0.616656, 0.290878, 1.10592, 0.0645222, 0.333932, 3.59584, \
2.70337, 3.91535, 2.78268}*)
比我定义的功能
f[x_, i_] := Cos[x]/x - const[[i]]
并开始寻找根源:
Table[FindRoot[f[x, i] == 0, {x, 0.1}][[1, 2]], {i, 1, Length[const]}]
(*{0.517757, 0.947103, 1.21086, 0.694679, 1.47545, 1.16956, 0.26816, \
0.347764, 0.247615, 0.338922}*)
现在我很想在 python 中编写类似的东西(可能使用 numpy?),但我真的找不到任何好的现有答案来解决这样的问题。有人可以帮忙吗?