level 1
费马的微笑
楼主
真是被气的血压飙升![[怒]](/static/emoticons/u6012.png)
SetAttributes[B, Constant]
SetAttributes[n, Constant]
SetAttributes[C, Constant]
SetAttributes[A, Constant]
FindMaximum[{-(1/(
4 (-1 + n))) (8 + 6 B^2 + 8 C + 8 C^2 - 5 n - 4 B^2 n - 4 C n -
5 C^2 n + (8 + 4 B^2 + 8 C - 4 n - 2 B^2 n - 4 C n) Cos[2 x] +
n Cos[4 x] + (4 B C - 2 B C n) Cos[
x - 3 y] + (2 B^2 + 8 C - B^2 n - 6 C n) Cos[
2 x - 2 y] + (16 B + 16 B C - 10 B n - 10 B C n) Cos[
x - y] + (4 B - 2 B n) Cos[
3 x - y] + (4 B^2 + 8 C + 8 C^2 - 2 B^2 n - 4 C n -
4 C^2 n) Cos[2 y] +
C^2 n Cos[4 y] + (12 B + 12 B C - 6 B n - 6 B C n) Cos[x + y] +
2 B n Cos[3 x + y] + (B^2 n + 2 C n) Cos[2 x + 2 y] +
2 B C n Cos[x + 3 y]),
B \[Element] Reals && C \[Element] Reals && x \[Element] Reals &&
y \[Element] Reals && n \[Element] Reals}, {{x, 0}, {y, 0}}]

2021年11月18日 17点11分
1
SetAttributes[B, Constant]
SetAttributes[n, Constant]
SetAttributes[C, Constant]
SetAttributes[A, Constant]
FindMaximum[{-(1/(
4 (-1 + n))) (8 + 6 B^2 + 8 C + 8 C^2 - 5 n - 4 B^2 n - 4 C n -
5 C^2 n + (8 + 4 B^2 + 8 C - 4 n - 2 B^2 n - 4 C n) Cos[2 x] +
n Cos[4 x] + (4 B C - 2 B C n) Cos[
x - 3 y] + (2 B^2 + 8 C - B^2 n - 6 C n) Cos[
2 x - 2 y] + (16 B + 16 B C - 10 B n - 10 B C n) Cos[
x - y] + (4 B - 2 B n) Cos[
3 x - y] + (4 B^2 + 8 C + 8 C^2 - 2 B^2 n - 4 C n -
4 C^2 n) Cos[2 y] +
C^2 n Cos[4 y] + (12 B + 12 B C - 6 B n - 6 B C n) Cos[x + y] +
2 B n Cos[3 x + y] + (B^2 n + 2 C n) Cos[2 x + 2 y] +
2 B C n Cos[x + 3 y]),
B \[Element] Reals && C \[Element] Reals && x \[Element] Reals &&
y \[Element] Reals && n \[Element] Reals}, {{x, 0}, {y, 0}}]
