θ= -0.0435 tan θ + 0.88 求θ

来源：百度知道 编辑：UC知道 时间：2024/06/19 08:21:25
先用θ=π/6 作为右边θ初始值，再连续迭代，直到函数收敛
求详细的求解过程

精确度呢?

以下是Mathematica 程序,精确度10^(-9),
arr = {};
θ = π/6;
For[i = 1, i ≤ 100, i++,
θ = -0.0435 Tan[θ] + 0.88;
arr = Append[arr, {θ}];
If[Abs[θ - (-0.0435 Tan[θ] + 0.88)] < 10^(-9),
Break[]]
]
arr

输出结果:
{{0.8548852632902513},
{0.8299919164144279},
{0.8324364401435668},
{0.8322023455325657},
{0.8322248174944833},
{0.8322226607951547},
{0.8322228677844596},
{0.8322228479186954},
{0.8322228498253091}}

你也可以用计算器多按几次就可以了.