|
本帖最后由 王守恩 于 2021-12-19 10:45 编辑
没有办法给出公式解(公式错了,已改,谢谢 天山草!)。
Table[Table[NSolve[{S+(R-h)Sqrt[h(2R-h)]=R^2ArcCos[(R-h)/R],R>=h>0},{h}],{S,4,9}],{R,25,35}]
{{{h-> 0.565906}},{{h-> 0.656917}},{{h-> 0.742074}},{{h-> 0.822659}},{{h-> 0.899531}},{{h-> 0.973302}}},
{{{h-> 0.558491}},{{h-> 0.648297}},{{h-> 0.732323}},{{h-> 0.811836}},{{h-> 0.887682}},{{h-> 0.960466}}},
{{{h-> 0.55145}}, {{h-> 0.640113}},{{h-> 0.723067}},{{h-> 0.801562}},{{h-> 0.876436}},{{h-> 0.948285}}},
{{{h-> 0.544752}},{{h-> 0.632328}},{{h-> 0.714263}},{{h-> 0.791791}},{{h-> 0.865741}},{{h-> 0.936701}}},
{{{h-> 0.538369}},{{h-> 0.62491}}, {{h-> 0.705874}},{{h-> 0.782481}},{{h-> 0.855551}},{{h-> 0.925664}}},
{{{h-> 0.532276}},{{h-> 0.617828}},{{h-> 0.697866}},{{h-> 0.773595}},{{h-> 0.845825}},{{h-> 0.915132}}},
{{{h-> 0.526449}},{{h-> 0.611058}},{{h-> 0.690211}},{{h-> 0.765101}},{{h-> 0.836529}},{{h-> 0.905064}}},
{{{h-> 0.52087}}, {{h-> 0.604576}},{{h-> 0.682881}},{{h-> 0.756968}},{{h-> 0.827629}},{{h-> 0.895427}}},
{{{h-> 0.515521}},{{h-> 0.59836}}, {{h-> 0.675854}},{{h-> 0.749171}},{{h-> 0.819097}},{{h-> 0.886188}}},
{{{h-> 0.510385}},{{h-> 0.592393}},{{h-> 0.669108}},{{h-> 0.741687}},{{h-> 0.810907}},{{h-> 0.877321}}},
{{{h-> 0.505448}},{{h-> 0.586658}},{{h-> 0.662624}},{{h-> 0.734494}},{{h-> 0.803036}},{{h-> 0.868798}}} |
|