|
本帖最后由 王守恩 于 2020-11-6 13:07 编辑
谢谢 波斯猫猫!出题目的把简单的搞复杂,
做题目的把复杂的搞简单(我是属于做题目一类的)。
N[Minimize[{Sin[a]^4 + Cos[a]^4/Sin[a]^4 + 1/Cos[a]^4, \[Pi] >a}, {a}], 50]
{5.0000000000000000000000000000000000000000000000000,
{a ->0.73032876174288416024107960081703542558013601533079}}
N[Minimize[{1/Sin[a]^4 + Sin[a]^4/Cos[a]^4 + Cos[a]^4, \[Pi] >a}, {a}], 50]
{5.0000000000000000000000000000000000000000000000000,
{a ->0.84046756505201245899024209082271601651844868435676}}
N[Minimize[{a^2 + (1 - a)^2/a^2 + 1/(1 - a)^2}, {a}], 50]
{5.0000000000000000000000000000000000000000000000000,
{a ->-1.2469796037174670610500097680084796212645494617928}}
N[Minimize[{(1 - a)^2 + a^2/(1 - a)^2 + 1/a^2}, {a}], 50]
{5.0000000000000000000000000000000000000000000000000,
{a ->-0.80193773580483825247220463901489010233183832426371}} |
|