📄 series expansion.nb
字号:
Complex[ 6855.7481462870082, .62390121144707655*^-17],
Complex[ 119735516.89340556, .61497822369193774*^-14],
Complex[ 9788099.7545628138, .26057023205794394*^-9],
Complex[ -6513036777181397.0, -14.098861053155924]}, 0, 4, 1]}, 0,
4, 1],
Editable->False]], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(f1 = %74 + %75 + %76 + %77\)], "Input"],
Cell[BoxData[
InterpretationBox[
RowBox[{
RowBox[{"(",
InterpretationBox[
RowBox[{\((1.3823452782446566`*^-7 + 0.`\ \[ImaginaryI])\),
"-", \(\((5.243009582072593`*^-9 +
1.1426629610736494`*^-17\ \[ImaginaryI])\)\ l\),
"+", \(\((\(\(1.5038582674356453`\)\(\[InvisibleSpace]\)\) -
2.6772427953143275`*^-16\ \[ImaginaryI])\)\ l\^2\),
"+", \(\((\(\(0.05687770246549917`\)\(\[InvisibleSpace]\)\) +
2.076324842402369`*^-17\ \[ImaginaryI])\)\ l\^3\), "+",
InterpretationBox[\(O[l]\^4\),
SeriesData[ l, 0, {}, 0, 4, 1],
Editable->False]}],
SeriesData[ l, 0, {
Complex[ .13823452782446566*^-6, 0.0],
Complex[ -.52430095820725931*^-8, -.11426629610736494*^-16],
Complex[ 1.5038582674356453, -.26772427953143275*^-15],
Complex[ .056877702465499169, .2076324842402369*^-16]}, 0, 4,
1],
Editable->False], ")"}], "+",
RowBox[{
RowBox[{"(",
InterpretationBox[
RowBox[{\(-\((5.243009582072593`*^-9 +
1.1426629610736494`*^-17\ \[ImaginaryI])\)\),
"+", \(\((\(\(3.0077167422230824`\)\(\[InvisibleSpace]\)\) -
5.3483524169619225`*^-16\ \[ImaginaryI])\)\ l\),
"+", \(\((\(\(0.17127790202712156`\)\(\[InvisibleSpace]\)\) +
4.580754178751256`*^-17\ \[ImaginaryI])\)\ l\^2\),
"+", \(\((4.789421248462736`*^8 -
3.854286461914867`*^-16\ \[ImaginaryI])\)\ l\^3\), "+",
InterpretationBox[\(O[l]\^4\),
SeriesData[ l, 0, {}, 0, 4, 1],
Editable->False]}],
SeriesData[ l, 0, {
Complex[ -.52430095820725931*^-8, -.11426629610736494*^-16],
Complex[ 3.0077167422230824, -.53483524169619225*^-15],
Complex[ .17127790202712156, .45807541787512562*^-16],
Complex[ 478942124.8462736, -.38542864619148672*^-15]}, 0, 4,
1],
Editable->False], ")"}], " ", "k"}], "+",
RowBox[{
RowBox[{"(",
InterpretationBox[
RowBox[{\((\(\(1.5038582674356444`\)\(\[InvisibleSpace]\)\) -
2.677242795314328`*^-16\ \[ImaginaryI])\),
"+", \(\((\(\(0.17127790201881077`\)\(\[InvisibleSpace]\)\) -
2.2144009380128623`*^-16\ \[ImaginaryI])\)\ l\),
"+", \(\((7.184131883973039`*^8 +
4.440892098500626`*^-16\ \[ImaginaryI])\)\ l\^2\),
"+", \(\((3.9215302437326014`*^7 +
1.00768460416234`*^-15\ \[ImaginaryI])\)\ l\^3\), "+",
InterpretationBox[\(O[l]\^4\),
SeriesData[ l, 0, {}, 0, 4, 1],
Editable->False]}],
SeriesData[ l, 0, {
Complex[ 1.5038582674356444, -.2677242795314328*^-15],
Complex[ .17127790201881077, -.22144009380128623*^-15],
Complex[ 718413188.39730394, .44408920985006262*^-15],
Complex[ 39215302.437326014, .100768460416234*^-14]}, 0, 4,
1],
Editable->False], ")"}], " ", \(k\^2\)}], "+",
RowBox[{
RowBox[{"(",
InterpretationBox[
RowBox[{\((\(\(0.056877702464589674`\)\(\[InvisibleSpace]\)\) +
2.0631593010142144`*^-17\ \[ImaginaryI])\),
"+", \(\((4.789421248462734`*^8 +
1.6060619554466423`*^-15\ \[ImaginaryI])\)\ l\),
"+", \(\((3.9215302437299356`*^7 +
0.`\ \[ImaginaryI])\)\ l\^2\),
"-", \(\((2.6052147166047132`*^16 +
56.395444844677414`\ \[ImaginaryI])\)\ l\^3\), "+",
InterpretationBox[\(O[l]\^4\),
SeriesData[ l, 0, {}, 0, 4, 1],
Editable->False]}],
SeriesData[ l, 0, {
Complex[ .056877702464589674, .20631593010142144*^-16],
Complex[ 478942124.84627342, .16060619554466423*^-14],
Complex[ 39215302.437299356, 0.0],
Complex[ -26052147166047132.0, -56.395444844677414]}, 0, 4,
1],
Editable->False], ")"}], " ", \(k\^3\)}], "+",
InterpretationBox[\(O[k]\^4\),
SeriesData[ k, 0, {}, 0, 4, 1],
Editable->False]}],
SeriesData[ k, 0, {
SeriesData[ l, 0, {
Complex[ .13823452782446566*^-6, 0.0],
Complex[ -.52430095820725931*^-8, -.11426629610736494*^-16],
Complex[ 1.5038582674356453, -.26772427953143275*^-15],
Complex[ .056877702465499169, .2076324842402369*^-16]}, 0, 4, 1],
SeriesData[ l, 0, {
Complex[ -.52430095820725931*^-8, -.11426629610736494*^-16],
Complex[ 3.0077167422230824, -.53483524169619225*^-15],
Complex[ .17127790202712156, .45807541787512562*^-16],
Complex[ 478942124.8462736, -.38542864619148672*^-15]}, 0, 4, 1],
SeriesData[ l, 0, {
Complex[ 1.5038582674356444, -.2677242795314328*^-15],
Complex[ .17127790201881077, -.22144009380128623*^-15],
Complex[ 718413188.39730394, .44408920985006262*^-15],
Complex[ 39215302.437326014, .100768460416234*^-14]}, 0, 4, 1],
SeriesData[ l, 0, {
Complex[ .056877702464589674, .20631593010142144*^-16],
Complex[ 478942124.84627342, .16060619554466423*^-14],
Complex[ 39215302.437299356, 0.0],
Complex[ -26052147166047132.0, -56.395444844677414]}, 0, 4, 1]}, 0,
4, 1],
Editable->False]], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
\(t5Fp = \ \ Series[
Fp[k + l, k + l, 0.0, 0.0, k, k, l, l]\ fm[k + l, k + l]
fa[l, l]\ fa[k, k], {k, 0, 3}, {l, 0, 3}]\), "\n",
\(t6Fp =
Series[\(-Fp[\(-k\), \(-k\), \(-l\), \(-l\), \(-k\) - l, \(-k\) - l,
0.0, 0.0]\)\ fa[k + l, k + l]\ fm[l, l]\ fm[k, k], {k, 0,
3}, {l, 0, 3}]\), "\n",
\(t7Fp =
Series[\ Fp[\(-l\), \(-l\), 0.0, 0.0, k, k, \(-k\) - l, \(-k\) - l]\ fa[
k + l, k + l]\ fm[l, l]\ fa[k, k], {k, 0, 3}, {l, 0,
3}]\ \), "\n",
\(t8Fp =
Series[\(-Fp[\(-k\), \(-k\), k + l, k + l, l, l, 0.0, 0.0]\)\ fm[k + l,
k + l] fa[l, l]\ fm[k, k], {k, 0, 3}, {l, 0,
3}]\), "\[IndentingNewLine]",
\(t9Fp =
Series[\ Fp[\(-k\), \(-k\), 0.0, 0.0, \(-k\) - l, \(-k\) - l, l, l]\ fa[
k + l, k + l] fa[l, l]\ fm[k, k], {k, 0, 3}, {l, 0,
3}]\ \), "\n",
\(t10Fp =
Series[\(-Fp[k + l, k + l, \(-l\), \(-l\), k, k, 0.0, 0.0]\)\ fm[k + l,
k + l] fm[l, l]\ fa[k, k], {k, 0, 3}, {l, 0, 3}]\)}], "Input"],
Cell[BoxData[
InterpretationBox[
RowBox[{
RowBox[{"(",
InterpretationBox[
RowBox[{\((\(\(3.2798306719312023`\)\(\[InvisibleSpace]\)\) +
0.`\ \[ImaginaryI])\),
"+", \(\((\(\(0.00016120194922143009`\)\(\[InvisibleSpace]\)\) \
- 2.8566573725843467`*^-18\ \[ImaginaryI])\)\ l\),
"-", \(\((\(\(5.295710635233256`\)\(\[InvisibleSpace]\)\) +
1.4040320454934303`*^-22\ \[ImaginaryI])\)\ l\^2\),
"+", \(\((\(\(6855.719707435774`\)\(\[InvisibleSpace]\)\) +
4.8041043330943726`*^-18\ \[ImaginaryI])\)\ l\^3\), "+",
InterpretationBox[\(O[l]\^4\),
SeriesData[ l, 0, {}, 0, 4, 1],
Editable->False]}],
SeriesData[ l, 0, {
Complex[ 3.2798306719312023, 0.0],
Complex[ .00016120194922143009, -.28566573725843467*^-17],
Complex[ -5.2957106352332559, -.14040320454934303*^-21],
Complex[ 6855.7197074357737, .48041043330943726*^-17]}, 0, 4,
1],
Editable->False], ")"}], "+",
RowBox[{
RowBox[{"(",
InterpretationBox[
RowBox[{\((\(\(0.00016120194922143006`\)\(\[InvisibleSpace]\)\) \
- 2.8566573725843467`*^-18\ \[ImaginaryI])\),
"-", \(\((\(\(4.031759910758383`\)\(\[InvisibleSpace]\)\) +
1.337090898216059`*^-16\ \[ImaginaryI])\)\ l\),
"-", \(\((\(\(0.043237610242703325`\)\(\[InvisibleSpace]\)\) \
- 8.863352760068999`*^-18\ \[ImaginaryI])\)\ l\^2\),
"-", \(\((1.1973552517100431`*^8 +
5.910590107404414`*^-15\ \[ImaginaryI])\)\ l\^3\), "+",
InterpretationBox[\(O[l]\^4\),
SeriesData[ l, 0, {}, 0, 4, 1],
Editable->False]}],
SeriesData[ l, 0, {
Complex[ .00016120194922143006, -.28566573725843467*^-17],
Complex[ -4.0317599107583826, -.13370908982160591*^-15],
Complex[ -.043237610242703325, .88633527600689987*^-17],
Complex[ -119735525.17100431, -.59105901074044138*^-14]}, 0,
4, 1],
Editable->False], ")"}], " ", "k"}], "+",
RowBox[{
RowBox[{"(",
InterpretationBox[
RowBox[{\(-\((\(\(5.29571061938753`\)\(\[InvisibleSpace]\)\) +
1.40403204549343`*^-22\ \[ImaginaryI])\)\),
"-", \(\((\(\(0.04323761024101502`\)\(\[InvisibleSpace]\)\) -
8.864922038857629`*^-18\ \[ImaginaryI])\)\ l\),
"-", \(\((1.796032891657589`*^8 -
4.440892098500626`*^-16\ \[ImaginaryI])\)\ l\^2\),
"-", \(\((9.827893427322382`*^6 -
2.6071739773060425`*^-10\ \[ImaginaryI])\)\ l\^3\), "+",
InterpretationBox[\(O[l]\^4\),
SeriesData[ l, 0, {}, 0, 4, 1],
Editable->False]}],
SeriesData[ l, 0, {
Complex[ -5.2957106193875303, -.140403204549343*^-21],
Complex[ -.043237610241015023, .88649220388576286*^-17],
Complex[ -179603289.16575891, .44408920985006262*^-15],
Complex[ -9827893.4273223821, .26071739773060425*^-9]}, 0, 4,
1],
Editable->False], ")"}], " ", \(k\^2\)}], "+",
RowBox[{
RowBox[{"(",
InterpretationBox[
RowBox[{\((\(\(6855.7197074357755`\)\(\[InvisibleSpace]\)\) +
4.7382766268472115`*^-18\ \[ImaginaryI])\),
"-", \(\((1.1973552517100431`*^8 +
5.2853086490030085`*^-15\ \[ImaginaryI])\)\ l\),
"-", \(\((9.8278934273654`*^6 -
2.6057023205794394`*^-10\ \[ImaginaryI])\)\ l\^2\),
"+", \(\((6.513036566370028`*^15 -
17.623576319654877`\ \[ImaginaryI])\)\ l\^3\), "+",
InterpretationBox[\(O[l]\^4\),
SeriesData[ l, 0, {}, 0, 4, 1],
Editable->False]}],
SeriesData[ l, 0, {
Complex[ 6855.7197074357755, .47382766268472115*^-17],
Complex[ -119735525.17100431, -.52853086490030085*^-14],
Complex[ -9827893.4273653999, .26057023205794394*^-9],
Complex[ 6513036566370028.0, -17.623576319654877]}, 0, 4, 1],
Editable->False], ")"}], " ", \(k\^3\)}], "+",
InterpretationBox[\(O[k]\^4\),
SeriesData[ k, 0, {}, 0, 4, 1],
Editable->False]}],
SeriesData[ k, 0, {
SeriesData[ l, 0, {
Complex[ 3.2798306719312023, 0.0],
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -