|
本帖最后由 王守恩 于 2020-12-17 17:24 编辑
王守恩 发表于 2020-11-30 19:27
\(1=(\cos a)^2+(\sin a)^2\)
\(1=(\cos a)^2+(\sin a\cos b)^2+(\sin a\sin b)^2\)
\(1=(\cos a)^2+(\ ...
\(1=(\cos a)^2+(\sin a\cos b)^2+(\sin a\sin b)^2\)
\(1=(\cos a)^2+(\sin a\cos b)^2+(\sin a\sin b\cos c)^2+(\sin a\sin b\sin c)^2\)
\(1=(\cos a)^2+(\sin a\cos b)^2+(\sin a\sin b\cos c)^2+(\sin a\sin b\sin c\cos d)^2+(\sin a\sin b\sin c\sin d)^2\)
NMaximize[{Cos[a] Sin[a]}, {a}]
{0.5, {a -> 0.785398}}
NMinimize[{Cos[a] Sin[a]}, {a}]
{-0.5, {a -> -0.785398}}
NMaximize[{Cos[a] Sin[a] Cos Sin}, {a, b}]
{0.25, {a -> 0.785398, b -> 0.785398}}
NMinimize[{Cos[a] Sin[a] Cos Sin}, {a, b}]
{-0.25, {a -> 0.785398, b -> -0.785398}}
NMaximize[{Cos[a] Sin[a] Cos Sin Cos[c] Sin[c] }, {a, b, c}]
{0.125, {a -> -0.785398, b -> 0.785398, c -> -0.785398}}
NMinimize[{Cos[a] Sin[a] Cos Sin Cos[c] Sin[c] }, {a, b, c}]
{-0.125, {a -> 2.35619, b -> -0.785398, c -> 2.35619}}
NMaximize[{Cos[a] Sin[a] Cos Sin Cos[c] Sin[c] Cos[d] Sin[d] }, {a, b, c, d}]
{0.0625, {a -> 0.785398, b -> 0.785398, c -> 0.785398, d -> 0.785398}}
NMinimize[{Cos[a] Sin[a] Cos Sin Cos[c] Sin[c] Cos[d] Sin[d] }, {a, b, c, d}]
{-0.0625, {a -> -0.785398, b -> -0.785398, c -> 0.785398, d -> -0.785398}} |
|