level 2
来数质数吧
楼主

然后计算v就提示内存不足了,求助该怎么办/(ㄒoㄒ)/~~代码:
Subscript[G, 4] = \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(i = 0\), \(9\)]\(
\*UnderoverscriptBox[\(\[Sum]\), \(j = 0\), \(i\)]
\*SubscriptBox[\(a\), \(
\*UnderoverscriptBox[\(\[Sum]\), \(p = 0\), \(i\)]p + j\)]*
\*SuperscriptBox[\(x\), \(2*j\)]*
\*SuperscriptBox[\(t\), \(2*i - 2*j\)]\)\);
Subscript[H, 4] = \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(i = 0\), \(9\)]\(
\*UnderoverscriptBox[\(\[Sum]\), \(j = 0\), \(i\)]
\*SubscriptBox[\(b\), \(
\*UnderoverscriptBox[\(\[Sum]\), \(p = 0\), \(i\)]p + j\)]*
\*SuperscriptBox[\(x\), \(2*j\)]*
\*SuperscriptBox[\(t\), \(2*i - 2*j\)]\)\);
Subscript[F, 4] = \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(i = 0\), \(10\)]\(
\*UnderoverscriptBox[\(\[Sum]\), \(j = 0\), \(i\)]
\*SubscriptBox[\(c\), \(
\*UnderoverscriptBox[\(\[Sum]\), \(p = 0\), \(i\)]p + j\)]*
\*SuperscriptBox[\(x\), \(2*j\)]*
\*SuperscriptBox[\(t\), \(2*i - 2*j\)]\)\);
Subscript[u,
4] = (1 + (Subscript[G, 4] + I*t*Subscript[H, 4])/Subscript[F, 4])*
E^(I*t);
v = Simplify[
ComplexExpand[(I*D[Subscript[u, 4], t] +
1/2*D[Subscript[u, 4], {x, 2}] + (Abs[Subscript[u, 4]])^2*
Subscript[u, 4])*(Subscript[F, 4])^3/E^(I*t)]]