level 2
梦醒梦落
楼主
我现在计算出了如下的波函数,我想提取其所有的cos前系数求平方和,用于计算能量,该怎么操作呢。。这里放的是部分函数,原函数很长,手动提取不太可能。。
0.14285714285714285` Cos[t] - 0.00
13141591509
446117` Cos[2.` t] +
6.52
18122384089
675`*^-6 Cos[3.` t] -
2.0
15153143440
4503`*^-8 Cos[4.` t] +
4.11604288832807`*^-11 Cos[5.` t] -
5.7268
15890159976
`*^-14 Cos[6.` t] +
5.4711466998652986`*^-17 Cos[7.` t] -
3.5384206081281145`*^-20 Cos[8.` t] +
1.5064662940988795`*^-23 Cos[9.` t] -
1.2404107727555823`*^-24 Cos[t - 10.` x] +
2.080850852491687`*^-21 Cos[t - 9.` x] +
5.042601637333655`*^-23 Cos[2.` t - 9.` x] +
7.232878185912675`*^-25 Cos[3.` t - 9.` x] -
1.864672845013953`*^-18 Cos[t - 8.` x] -
4.0005426072091365`*^-20 Cos[2.` t - 8.` x] -
5.776553706418151`*^-22 Cos[3.` t - 8.` x] -
6.0345938799885714`*^-24 Cos[4.` t - 8.` x] +
1.0769662687901241`*^-15 Cos[t - 7.` x] +
2.0175514351374416`*^-17 Cos[2.` t - 7.` x] +
2.5458
13822268514
5`*^-19 Cos[3.` t - 7.` x] +
2.2540299570398847`*^-21 Cos[4.` t - 7.` x] -
7.52463193440127`*^-23 Cos[5.` t - 7.` x] +
1.03420
15993553004
`*^-25 Cos[6.` t - 7.` x] -
4.1777
18748115011
`*^-13 Cos[t - 6.` x] -
6.624
15936565325
4`*^-15 Cos[2.` t - 6.` x] -
6.899303917092713`*^-17 Cos[3.` t - 6.` x] -
5.
13653856785
3164`*^-24 Cos[4.` t - 6.` x] -
1.432455377557157`*^-20 Cos[5.` t - 6.` x] +
4.842526915411536`*^-24 Cos[6.` t - 6.` x] +
1.096631581656879`*^-10 Cos[t - 5.` x] +
1.3936950873553797`*^-12 Cos[2.` t - 5.` x] +
8.632911150338394`*^-15 Cos[3.` t - 5.` x] +
2.9
18243739590
8633`*^-16 Cos[4.` t - 5.` x] +
3.095501567975044`*^-20 Cos[5.` t - 5.` x] -
5.
18878526803
1584`*^-21 Cos[6.` t - 5.` x] +
1.7793867787193086`*^-23 Cos[7.` t - 5.` x] -
1.9046805912350718`*^-8 Cos[t - 4.` x] -
1.7024688599434496`*^-10 Cos[2.` t - 4.` x] -
4.483622970656479`*^-12 Cos[3.` t - 4.` x] -
7.
13026933539
8173`*^-15 Cos[4.` t - 4.` x] +
1.4299466554316394`*^-16 Cos[5.` t - 4.` x] -
2021年05月18日 11点05分
1
0.14285714285714285` Cos[t] - 0.00
13141591509
446117` Cos[2.` t] +
6.52
18122384089
675`*^-6 Cos[3.` t] -
2.0
15153143440
4503`*^-8 Cos[4.` t] +
4.11604288832807`*^-11 Cos[5.` t] -
5.7268
15890159976
`*^-14 Cos[6.` t] +
5.4711466998652986`*^-17 Cos[7.` t] -
3.5384206081281145`*^-20 Cos[8.` t] +
1.5064662940988795`*^-23 Cos[9.` t] -
1.2404107727555823`*^-24 Cos[t - 10.` x] +
2.080850852491687`*^-21 Cos[t - 9.` x] +
5.042601637333655`*^-23 Cos[2.` t - 9.` x] +
7.232878185912675`*^-25 Cos[3.` t - 9.` x] -
1.864672845013953`*^-18 Cos[t - 8.` x] -
4.0005426072091365`*^-20 Cos[2.` t - 8.` x] -
5.776553706418151`*^-22 Cos[3.` t - 8.` x] -
6.0345938799885714`*^-24 Cos[4.` t - 8.` x] +
1.0769662687901241`*^-15 Cos[t - 7.` x] +
2.0175514351374416`*^-17 Cos[2.` t - 7.` x] +
2.5458
13822268514
5`*^-19 Cos[3.` t - 7.` x] +
2.2540299570398847`*^-21 Cos[4.` t - 7.` x] -
7.52463193440127`*^-23 Cos[5.` t - 7.` x] +
1.03420
15993553004
`*^-25 Cos[6.` t - 7.` x] -
4.1777
18748115011
`*^-13 Cos[t - 6.` x] -
6.624
15936565325
4`*^-15 Cos[2.` t - 6.` x] -
6.899303917092713`*^-17 Cos[3.` t - 6.` x] -
5.
13653856785
3164`*^-24 Cos[4.` t - 6.` x] -
1.432455377557157`*^-20 Cos[5.` t - 6.` x] +
4.842526915411536`*^-24 Cos[6.` t - 6.` x] +
1.096631581656879`*^-10 Cos[t - 5.` x] +
1.3936950873553797`*^-12 Cos[2.` t - 5.` x] +
8.632911150338394`*^-15 Cos[3.` t - 5.` x] +
2.9
18243739590
8633`*^-16 Cos[4.` t - 5.` x] +
3.095501567975044`*^-20 Cos[5.` t - 5.` x] -
5.
18878526803
1584`*^-21 Cos[6.` t - 5.` x] +
1.7793867787193086`*^-23 Cos[7.` t - 5.` x] -
1.9046805912350718`*^-8 Cos[t - 4.` x] -
1.7024688599434496`*^-10 Cos[2.` t - 4.` x] -
4.483622970656479`*^-12 Cos[3.` t - 4.` x] -
7.
13026933539
8173`*^-15 Cos[4.` t - 4.` x] +
1.4299466554316394`*^-16 Cos[5.` t - 4.` x] -