|
本帖最后由 王守恩 于 2020-12-27 14:05 编辑
谢谢两位大侠!最大值\(=\sqrt{\pi/2+1}=1.603370302\)
Table[N[Maximize[{Abs[(Cos[1/10^x]/Sin[y] + I Cos[y]/Sin[1/10^x]) - (Sqrt[1/10^x] + I Sqrt[y])],
Abs[Cos[1/10^x]/Sin[y] + I Cos[y]/Sin[1/10^x]] == 2, \[Pi]/2 >=y > 0}, {y}], 20], {x, 0, 18}]
{{0.8528984444905154658, {y ->0.33260997471252813837}},
{0.8816931168747877093, {y ->1.3976022431141191679}},
{1.0227390335644021314, {y ->1.5534758187493281001}},
{1.0805586368831960951, {y ->1.5690642759088756063}},
{1.0997071122152560748, {y ->1.5706231216356085799}},
{1.1058428371404536827, {y ->1.5707790062082820247}},
{1.1078202320901997484, {y ->1.5707945946655497658}},
{1.1085322697566311188, {y ->1.5707961535598209806}},
{1.1092534311783526287, {y ->1.5707963094592230188}},
{1.1083114140484165034, {y ->1.5707963250636521163}},
{1.1071153871967469961, {y ->1.5707963266220547350}},
{1.2809519776477643561, {y ->1.5707963267743582028}},
{1.6033696787690281812, {y ->1.5707963267948966192}},
{1.6033701052281923425, {y ->1.5707963267948966192}},
{1.6033702400864582029, {y ->1.5707963267948966192}},
{1.6033702827323900529, {y ->1.5707963267948966192}},
{1.6033702962182181823, {y ->1.5707963267948966192}},
{1.6033703004828115216, {y ->1.5707963267948966192}},
{1.6033703018313943500, {y ->1.5707963267948966192}}}
\(x=\frac{1}{10^n}\) |
|