求助,如何提取一个长式子的所有系数并求平方和。
mathematica吧
全部回复
仅看楼主
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
吧务
level 10
考虑Cases[%, x_Real*__ :> x]
2021年05月18日 11点05分 2
谢谢!这个函数完美解决了我的问题。。我还想问一下,现在我得到了系数,想要求他们的平方和该怎么操作。。刚入门,在百度上搜了很久也没找到。。
2021年05月18日 11点05分
@梦醒梦落 我明白了,用Total[%^2]就可以了
2021年05月18日 11点05分
level 2
梦醒梦落 楼主
运行小吧给的语句得到了如下的结果
{0.142857, -0.00131416, 6.52181*10^-6, -2.01515*10^-8,
4.11604*10^-11, -5.72682*10^-14, 5.47115*10^-17, -3.53842*10^-20,
1.50647*10^-23, -1.24041*10^-24, 2.08085*10^-21, 5.0426*10^-23,
7.23288*10^-25, -1.86467*10^-18, -4.00054*10^-20, -5.77655*10^-22, \
-6.03459*10^-24, 1.07697*10^-15, 2.01755*10^-17, 2.54581*10^-19,
2.25403*10^-21, -7.52463*10^-23,
1.0342*10^-25, -4.17772*10^-13, -6.62416*10^-15, -6.8993*10^-17, \
-5.13654*10^-24, -1.43246*10^-20, 4.84253*10^-24, 1.09663*10^-10,
1.3937*10^-12, 8.63291*10^-15, 2.91824*10^-16,
3.0955*10^-20, -5.18879*10^-21,
1.77939*10^-23, -1.90468*10^-8, -1.70247*10^-10, -4.48362*10^-12, \
-7.13027*10^-15, 1.42995*10^-16, -5.7862*10^-19,
1.14998*10^-21, -1.03244*10^-24, 2.03206*10^-6, -1.38016*10^-22,
1.25534*10^-10, -2.45575*10^-12, 1.16836*10^-14, -2.9035*10^-17,
4.37434*10^-20, -4.25484*10^-23, -0.0000877008, -1.05263*10^-6,
2.46986*10^-8, -1.38832*10^-10, 4.17349*10^-13, -7.82883*10^-16,
9.63294*10^-19, -7.77231*10^-22,
2.20052*10^-25, 0.0067262, -0.000123773,
8.13802*10^-7, -2.96915*10^-9, 6.90797*10^-12, -1.07822*10^-14,
1.14638*10^-17, -8.20417*10^-21,
3.43655*10^-24, -0.00673197, 0.000089736, -7.2066*10^-7,
3.49962*10^-9, -1.05076*10^-11, 2.02175*10^-14, -2.54701*10^-17,
2.09629*10^-20, -1.10965*10^-23, 0.000201837, -3.27289*10^-6,
3.46113*10^-8, -2.40106*10^-10, 1.03472*10^-12, -2.75442*10^-15,
4.59773*10^-18, -4.82787*10^-21, 2.78332*10^-24, -4.20545*10^-6,
8.68875*10^-8, -1.11195*10^-9, 9.78817*10^-12, -5.63362*10^-14,
2.01735*10^-16, -4.43509*10^-19, 6.05497*10^-22, -2.43961*10^-25,
5.69608*10^-8, -1.68467*10^-9, 2.66451*10^-11, -2.82473*10^-13,
2.02288*10^-15, -9.27461*10^-18,
2.61915*10^-20, -5.21732*10^-23, -4.83094*10^-10,
2.24979*10^-11, -4.70742*10^-13, 6.06092*10^-15, -5.21361*10^-17,
2.92656*10^-19, -1.03442*10^-21, 2.26581*10^-24,
2.58989*10^-12, -1.94058*10^-13, 5.8101*10^-15, -9.49323*10^-17,
9.82998*10^-19, -6.59983*10^-21, 3.63568*10^-23, -8.92112*10^-15,
1.04224*10^-15, -4.68142*10^-17, 1.0297*10^-18, -1.32088*10^-20,
1.30368*10^-22, -4.26565*10^-25, 1.97326*10^-17, -3.42074*10^-18,
2.31166*10^-19, -7.18061*10^-21,
1.47822*10^-22, -1.0316*10^-24, -2.71564*10^-20,
6.64451*10^-21, -6.76*10^-22, 3.33205*10^-23, -5.9591*10^-25,
2.06554*10^-23, -6.86541*10^-24, 9.26968*10^-25}
2021年05月18日 11点05分 3
level 2
梦醒梦落 楼主
我似乎明白了,用Total[%^2]就可以了
2021年05月18日 11点05分 4
1