Mathematicaの統合の順序を変更すると、結果が変わるのはなぜですか?

Mathematicaプログラムの2つのステートメントがあります。

Print[ExpandAll[Chop[Integrate[Resi*Cos[7*1*\[Theta]]*Sin[(1*Pi*x)/L], {\[Theta],    
     0,2*Pi},{x,0, L}], 10^-6]]];

この行は私に出力を与えます

1043.84 A[1,7][t]-115072. A[1,0][t] A[1,7][t]+112.933 A[1,0][t]^2 A[1,7][t]+12415.3 A[1,7][t]^3-1327.67 A[1,7][t] A[1,14][t]+387.315 A[1,0][t] A[1,7][t] A[1,14][t]+50249.8 A[1,7][t] A[1,14][t]^2+12415.3 A[1,7][t] B[1,7][t]^2-1327.67 B[1,7][t] B[1,14][t]+387.315 A[1,0][t] B[1,7][t] B[1,14][t]+50249.8 A[1,7][t] B[1,14][t]^2+0.000108481 (A[1,7]^\[Prime]\[Prime])[t]

一方、私が積分の順序を逆にすると

Print[ExpandAll[Chop[Integrate[Resi*Cos[7*1*\[Theta]]*Sin[(1*Pi*x)/L], {x, 0, L}, {\[Theta], 0, 2*Pi}], 10^-6]]];

私は以下の出力を得る

 2087.69 A[1,7][t]-230144. A[1,0][t] A[1,7][t]+225.866 A[1,0][t]^2 A[1,7][t]+24830.6 A[1,7][t]^3-2655.34 A[1,7][t] A[1,14][t]+774.631 A[1,0][t] A[1,7][t] A[1,14][t]+100500. A[1,7][t] A[1,14][t]^2+24830.6 A[1,7][t] B[1,7][t]^2-2655.34 B[1,7][t] B[1,14][t]+774.631 A[1,0][t] B[1,7][t] B[1,14][t]+100500. A[1,7][t] B[1,14][t]^2+0.000216962 (A[1,7]^\[Prime]\[Prime])[t]

統合の順序は重要ではありません。それでは、出力が異なるのはなぜですか?最初の誤った出力は、2番目の(正しい)出力のちょうど半分であることに注意してください。正しい答えを出す秩序が長い時間を取っているので、私はこれを尋ねます。私は自分のプログラムに多くのインテグラルを持っています。

Resi の表現は巨大な言葉ですが、私はあなたにそれの小さな部分を教えてあげましょう

  1754.2 Sin[(\[Pi] x)/200] A[1, 0][t] + 
  6.64531 Cos[7 \[Theta]] Sin[(\[Pi] x)/200] A[1, 7][t] + 
  3.01996 Cos[(\[Pi] x)/100] Cos[7 \[Theta]] A[1, 0][t] A[1, 7][t] - 
  861.531 Cos[7 \[Theta]] Sin[(\[Pi] x)/200]^2 A[1, 0][t] A[1, 7][t] + 
  0.533983 Cos[7 \[Theta]] Sin[(\[Pi] x)/200] A[1, 0][t]^2 A[1, 7][
  t] - 0.369945 Cos[(\[Pi] x)/100] Cos[7 \[Theta]] Sin[(\[Pi] x)/
  200] A[1, 0][t]^2 A[1, 7][t] - 107.444 A[1, 7][t]^2 + 
  107.444 Cos[(\[Pi] x)/100] A[1, 7][t]^2 - 
  3.95111 Cos[7 \[Theta]]^2 Sin[(\[Pi] x)/200]^2 A[1, 7][t]^2 + 
  3.95111 Cos[(\[Pi] x)/200]^2 Sin[7 \[Theta]]^2 A[1, 7][t]^2 + 
  0.533983 Cos[7 \[Theta]]^2 Sin[(\[Pi] x)/200] A[1, 0][t] A[1, 7][
  t]^2 - 1.84972 Cos[(\[Pi] x)/100] Cos[7 \[Theta]]^2 Sin[(\[Pi] x)/
  200] A[1, 0][t] A[1, 7][t]^2 + 
  0.133496 Cos[14 \[Theta]] Sin[(\[Pi] x)/200] A[1, 0][t] A[1, 7][
  t]^2 - 1.47978 Cos[(\[Pi] x)/200] Sin[(\[Pi] x)/100] Sin[
  7 \[Theta]]^2 A[1, 0][t] A[1, 7][t]^2 + 
  52.6477 Cos[7 \[Theta]] Sin[(\[Pi] x)/200] A[1, 7][t]^3 - 
  52.6477 Cos[(\[Pi] x)/100] Cos[7 \[Theta]] Sin[(\[Pi] x)/
  200] A[1, 7][t]^3 + 
  0.133496 Cos[7 \[Theta]] Cos[14 \[Theta]] Sin[(\[Pi] x)/200] A[1, 7][
    t]^3 + 39.1352 Cos[14 \[Theta]] Sin[(\[Pi] x)/200] A[1, 14][t] + 
  0.987777 Cos[(\[Pi] x)/100] Cos[14 \[Theta]] A[1, 0][t] A[1, 14][
   t] - 3438.75 Cos[14 \[Theta]] Sin[(\[Pi] x)/200]^2 A[1, 0][
   t] A[1, 14][t] + 
   0.533983 Cos[14 \[Theta]] Sin[(\[Pi] x)/200] A[1, 0][t]^2 A[1, 14][
    t] - 0.484011 Cos[(\[Pi] x)/100] Cos[14 \[Theta]] Sin[(\[Pi] x)/
   200] A[1, 0][t]^2 A[1, 14][t] + 
    13.5898 Cos[(\[Pi] x)/100] Cos[7 \[Theta]] A[1, 7][t] A[1, 14][t] + 
    0.0257425 Cos[(\[Pi] x)/100] Cos[21 \[Theta]] A[1, 7][t] A[1, 14][
   t] - 10.542 Cos[7 \[Theta]] Cos[14 \[Theta]] Sin[(\[Pi] x)/
      200]^2 A[1, 7][t] A[1, 14][t] + 
   8.43363 Cos[(\[Pi] x)/200]^2 Sin[7 \[Theta]] Sin[
   14 \[Theta]] A[1, 7][t] A[1, 14][t] + 
   0.266991 Cos[7 \[Theta]] Sin[(\[Pi] x)/200] A[1, 0][t] A[1, 7][
   t] A[1, 14][t] - 
   1.66475 Cos[(\[Pi] x)/100] Cos[7 \[Theta]] Sin[(\[Pi] x)/
    200] A[1, 0][t] A[1, 7][t] A[1, 14][t] + 
     1.06797 Cos[7 \[Theta]] Cos[14 \[Theta]] Sin[(\[Pi] x)/200] A[1, 0][
   t] A[1, 7][t] A[1, 14][t] - 
   7.25708 Cos[(\[Pi] x)/100] Cos[7 \[Theta]] Cos[
   14 \[Theta]] Sin[(\[Pi] x)/200] A[1, 0][t] A[1, 7][t] A[1, 14][
   t] + 0.266991 Cos[21 \[Theta]] Sin[(\[Pi] x)/200] A[1, 0][
   t] A[1, 7][t] A[1, 14][t] - 
   0.0283811 Cos[(\[Pi] x)/100] Cos[21 \[Theta]] Sin[(\[Pi] x)/
   200] A[1, 0][t] A[1, 7][t] A[1, 14][t] - 
   3.92758 Cos[(\[Pi] x)/200] Sin[(\[Pi] x)/100] Sin[7 \[Theta]] Sin[
   14 \[Theta]] A[1, 0][t] A[1, 7][t] A[1, 14][t] + 
   0.266991 Cos[7 \[Theta]]^2 Sin[(\[Pi] x)/200] A[1, 7][t]^2 A[1, 14][
   t] - 8.32376 Cos[(\[Pi] x)/100] Cos[7 \[Theta]]^2 Sin[(\[Pi] x)/
     200] A[1, 7][t]^2 A[1, 14][t] + 
     210.591 Cos[14 \[Theta]] Sin[(\[Pi] x)/200] A[1, 7][t]^2 A[1, 14][
    t] - 210.591 Cos[(\[Pi] x)/100] Cos[14 \[Theta]] Sin[(\[Pi] x)/
   200] A[1, 7][t]^2 A[1, 14][t] + 
  0.133496 Cos[14 \[Theta]]^2 Sin[(\[Pi] x)/200] A[1, 7][t]^2 A[1, 14][
  t] + 0.266991 Cos[7 \[Theta]] Cos[21 \[Theta]] Sin[(\[Pi] x)/
  200] A[1, 7][t]^2 A[1, 14][t] - 
    0.040995 Cos[(\[Pi] x)/100] Cos[7 \[Theta]] Cos[
     21 \[Theta]] Sin[(\[Pi] x)/200] A[1, 7][t]^2 A[1, 14][t] - 
       6.65901 Cos[(\[Pi] x)/200] Sin[(\[Pi] x)/100] Sin[
   7 \[Theta]]^2 A[1, 7][t]^2 A[1, 14][t] - 
   0.0378415 Cos[(\[Pi] x)/200] Sin[(\[Pi] x)/100] Sin[7 \[Theta]] Sin[
   21 \[Theta]] A[1, 7][t]^2 A[1, 14][t] - 429.778 A[1, 14][t]^2 + 
   429.778 Cos[(\[Pi] x)/100] A[1, 14][t]^2 - 
   1.06283 Cos[14 \[Theta]]^2 Sin[(\[Pi] x)/200]^2 A[1, 14][t]^2 + 
   1.06283 Cos[(\[Pi] x)/200]^2 Sin[14 \[Theta]]^2 A[1, 14][t]^2 + 
 0.533983 Cos[14 \[Theta]]^2 Sin[(\[Pi] x)/200] A[1, 0][t] A[1, 14][
 t]^2 - 2.42005 Cos[(\[Pi] x)/100] Cos[14 \[Theta]]^2 Sin[(\[Pi] x)/
  200] A[1, 0][t] A[1, 14][t]^2 + 
  0.133496 Cos[28 \[Theta]] Sin[(\[Pi] x)/200] A[1, 0][t] A[1, 14][
  t]^2 - 
  1.93604 Cos[(\[Pi] x)/200] Sin[(\[Pi] x)/100] Sin[
  14 \[Theta]]^2 A[1, 0][t] A[1, 14][t]^2 + 
  210.591 Cos[7 \[Theta]] Sin[(\[Pi] x)/200] A[1, 7][t] A[1, 14][
  t]^2 - 210.591 Cos[(\[Pi] x)/100] Cos[7 \[Theta]] Sin[(\[Pi] x)/
      200] A[1, 7][t] A[1, 14][t]^2 + 
    0.266991 Cos[7 \[Theta]] Cos[14 \[Theta]] Sin[(\[Pi] x)/200] A[1, 7][
     t] A[1, 14][t]^2 - 
 28.3008 Cos[(\[Pi] x)/100] Cos[7 \[Theta]] Cos[
 14 \[Theta]] Sin[(\[Pi] x)/200] A[1, 7][t] A[1, 14][t]^2 + 
 0.266991 Cos[14 \[Theta]] Cos[21 \[Theta]] Sin[(\[Pi] x)/
 200] A[1, 7][t] A[1, 14][t]^2 - 
 0.0788365 Cos[(\[Pi] x)/100] Cos[14 \[Theta]] Cos[
 21 \[Theta]] Sin[(\[Pi] x)/200] A[1, 7][t] A[1, 14][t]^2 + 
 0.133496 Cos[7 \[Theta]] Cos[28 \[Theta]] Sin[(\[Pi] x)/200] A[1, 7][
 t] A[1, 14][t]^2 - 
 13.318 Cos[(\[Pi] x)/200] Sin[(\[Pi] x)/100] Sin[7 \[Theta]] Sin[
 14 \[Theta]] A[1, 7][t] A[1, 14][t]^2 - 
 0.075683 Cos[(\[Pi] x)/200] Sin[(\[Pi] x)/100] Sin[14 \[Theta]] Sin[
 21 \[Theta]] A[1, 7][t] A[1, 14][t]^2 + 
 842.364 Cos[14 \[Theta]] Sin[(\[Pi] x)/200] A[1, 14][t]^3 - 
 842.364 Cos[(\[Pi] x)/100] Cos[14 \[Theta]] Sin[(\[Pi] x)/
  200] A[1, 14][t]^3 + 
  0.133496 Cos[14 \[Theta]] Cos[28 \[Theta]] Sin[(\[Pi] x)/
 200] A[1, 14][t]^3 + 
 6.64531 Sin[(\[Pi] x)/200] Sin[7 \[Theta]] B[1, 7][t] + 
     3.01996 Cos[(\[Pi] x)/100] Sin[7 \[Theta]] A[1, 0][t] B[1, 7][t] - 
  861.531 Sin[(\[Pi] x)/200]^2 Sin[7 \[Theta]] A[1, 0][t] B[1, 7][t] + 
 0.533983 Sin[(\[Pi] x)/200] Sin[7 \[Theta]] A[1, 0][t]^2 B[1, 7][
   t] - 0.369945 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[
 7 \[Theta]] A[1, 0][t]^2 B[1, 7][t] - 
 7.90221 Cos[(\[Pi] x)/200]^2 Cos[7 \[Theta]] Sin[7 \[Theta]] A[1, 7][
 t] B[1, 7][t] - 
 7.90221 Cos[7 \[Theta]] Sin[(\[Pi] x)/200]^2 Sin[7 \[Theta]] A[1, 7][
 t] B[1, 7][t] + 
 1.06797 Cos[7 \[Theta]] Sin[(\[Pi] x)/200] Sin[7 \[Theta]] A[1, 0][
 t] A[1, 7][t] B[1, 7][t] - 
 3.69945 Cos[(\[Pi] x)/100] Cos[7 \[Theta]] Sin[(\[Pi] x)/200] Sin[
 7 \[Theta]] A[1, 0][t] A[1, 7][t] B[1, 7][t] + 
 2.95956 Cos[(\[Pi] x)/200] Cos[7 \[Theta]] Sin[(\[Pi] x)/100] Sin[
 7 \[Theta]] A[1, 0][t] A[1, 7][t] B[1, 7][t] + 
 0.266991 Sin[(\[Pi] x)/200] Sin[14 \[Theta]] A[1, 0][t] A[1, 7][
 t] B[1, 7][t] + 
 52.6477 Sin[(\[Pi] x)/200] Sin[7 \[Theta]] A[1, 7][t]^2 B[1, 7][t] - 
 52.6477 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[
 7 \[Theta]] A[1, 7][t]^2 B[1, 7][t] + 
 0.133496 Cos[14 \[Theta]] Sin[(\[Pi] x)/200] Sin[7 \[Theta]] A[1, 7][
 t]^2 B[1, 7][t] + 
 0.266991 Cos[7 \[Theta]] Sin[(\[Pi] x)/200] Sin[14 \[Theta]] A[1, 7][
 t]^2 B[1, 7][t] - 
 13.5898 Cos[(\[Pi] x)/100] Sin[7 \[Theta]] A[1, 14][t] B[1, 7][t] - 
 10.542 Cos[14 \[Theta]] Sin[(\[Pi] x)/200]^2 Sin[
 7 \[Theta]] A[1, 14][t] B[1, 7][t] - 
 8.43363 Cos[(\[Pi] x)/200]^2 Cos[7 \[Theta]] Sin[
 14 \[Theta]] A[1, 14][t] B[1, 7][t] + 
 0.0257425 Cos[(\[Pi] x)/100] Sin[21 \[Theta]] A[1, 14][t] B[1, 7][
 t] - 0.266991 Sin[(\[Pi] x)/200] Sin[7 \[Theta]] A[1, 0][
 t] A[1, 14][t] B[1, 7][t] + 
 1.66475 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[
 7 \[Theta]] A[1, 0][t] A[1, 14][t] B[1, 7][t] + 
 1.06797 Cos[14 \[Theta]] Sin[(\[Pi] x)/200] Sin[7 \[Theta]] A[1, 0][
   t] A[1, 14][t] B[1, 7][t] - 
 7.25708 Cos[(\[Pi] x)/100] Cos[14 \[Theta]] Sin[(\[Pi] x)/200] Sin[
 7 \[Theta]] A[1, 0][t] A[1, 14][t] B[1, 7][t] + 
 3.92758 Cos[(\[Pi] x)/200] Cos[7 \[Theta]] Sin[(\[Pi] x)/100] Sin[
 14 \[Theta]] A[1, 0][t] A[1, 14][t] B[1, 7][t] + 
 0.266991 Sin[(\[Pi] x)/200] Sin[21 \[Theta]] A[1, 0][t] A[1, 14][
  t] B[1, 7][t] - 
  0.0283811 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[
  21 \[Theta]] A[1, 0][t] A[1, 14][t] B[1, 7][t] + 
  0. Cos[7 \[Theta]] Sin[(\[Pi] x)/200] Sin[7 \[Theta]] A[1, 7][
 t] A[1, 14][t] B[1, 7][t] + 
 0. Cos[(\[Pi] x)/100] Cos[7 \[Theta]] Sin[(\[Pi] x)/200] Sin[
 7 \[Theta]] A[1, 7][t] A[1, 14][t] B[1, 7][t] + 
 0.266991 Cos[21 \[Theta]] Sin[(\[Pi] x)/200] Sin[7 \[Theta]] A[1, 7][
 t] A[1, 14][t] B[1, 7][t] - 
 0.040995 Cos[(\[Pi] x)/100] Cos[21 \[Theta]] Sin[(\[Pi] x)/200] Sin[
 7 \[Theta]] A[1, 7][t] A[1, 14][t] B[1, 7][t] + 
 0. Cos[(\[Pi] x)/200] Cos[7 \[Theta]] Sin[(\[Pi] x)/100] Sin[
 7 \[Theta]] A[1, 7][t] A[1, 14][t] B[1, 7][t] + 
 0.0378415 Cos[(\[Pi] x)/200] Cos[21 \[Theta]] Sin[(\[Pi] x)/100] Sin[
  7 \[Theta]] A[1, 7][t] A[1, 14][t] B[1, 7][t] + 
 0.266991 Cos[14 \[Theta]] Sin[(\[Pi] x)/200] Sin[
  14 \[Theta]] A[1, 7][t] A[1, 14][t] B[1, 7][t] + 
 0.266991 Cos[7 \[Theta]] Sin[(\[Pi] x)/200] Sin[21 \[Theta]] A[1, 7][
  t] A[1, 14][t] B[1, 7][t] - 
 0.040995 Cos[(\[Pi] x)/100] Cos[7 \[Theta]] Sin[(\[Pi] x)/200] Sin[
  21 \[Theta]] A[1, 7][t] A[1, 14][t] B[1, 7][t] + 
 0.0378415 Cos[(\[Pi] x)/200] Cos[7 \[Theta]] Sin[(\[Pi] x)/100] Sin[
  21 \[Theta]] A[1, 7][t] A[1, 14][t] B[1, 7][t] + 
 210.591 Sin[(\[Pi] x)/200] Sin[7 \[Theta]] A[1, 14][t]^2 B[1, 7][
 t] - 210.591 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[
 7 \[Theta]] A[1, 14][t]^2 B[1, 7][t] - 
  0.266991 Cos[14 \[Theta]] Sin[(\[Pi] x)/200] Sin[
  7 \[Theta]] A[1, 14][t]^2 B[1, 7][t] + 
  28.3008 Cos[(\[Pi] x)/100] Cos[14 \[Theta]] Sin[(\[Pi] x)/200] Sin[
    7 \[Theta]] A[1, 14][t]^2 B[1, 7][t] + 
  0.133496 Cos[28 \[Theta]] Sin[(\[Pi] x)/200] Sin[
   7 \[Theta]] A[1, 14][t]^2 B[1, 7][t] - 
   13.318 Cos[(\[Pi] x)/200] Cos[7 \[Theta]] Sin[(\[Pi] x)/100] Sin[
  14 \[Theta]] A[1, 14][t]^2 B[1, 7][t] + 
  0.075683 Cos[(\[Pi] x)/200] Cos[21 \[Theta]] Sin[(\[Pi] x)/100] Sin[
   14 \[Theta]] A[1, 14][t]^2 B[1, 7][t] + 
   0.266991 Cos[14 \[Theta]] Sin[(\[Pi] x)/200] Sin[
   21 \[Theta]] A[1, 14][t]^2 B[1, 7][t] - 
   0.0788365 Cos[(\[Pi] x)/100] Cos[14 \[Theta]] Sin[(\[Pi] x)/200] Sin[
   21 \[Theta]] A[1, 14][t]^2 B[1, 7][t] - 107.444 B[1, 7][t]^2 + 
   107.444 Cos[(\[Pi] x)/100] B[1, 7][t]^2 + 
   3.95111 Cos[(\[Pi] x)/200]^2 Cos[7 \[Theta]]^2 B[1, 7][t]^2 - 
  3.95111 Sin[(\[Pi] x)/200]^2 Sin[7 \[Theta]]^2 B[1, 7][t]^2 - 
   0.133496 Cos[14 \[Theta]] Sin[(\[Pi] x)/200] A[1, 0][t] B[1, 7][
   t]^2 - 1.47978 Cos[(\[Pi] x)/200] Cos[7 \[Theta]]^2 Sin[(\[Pi] x)/
   100] A[1, 0][t] B[1, 7][t]^2 + 
   0.533983 Sin[(\[Pi] x)/200] Sin[7 \[Theta]]^2 A[1, 0][t] B[1, 7][
    t]^2 - 1.84972 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[
     7 \[Theta]]^2 A[1, 0][t] B[1, 7][t]^2 + 
     52.6477 Cos[7 \[Theta]] Sin[(\[Pi] x)/200] A[1, 7][t] B[1, 7][t]^2 - 
   52.6477 Cos[(\[Pi] x)/100] Cos[7 \[Theta]] Sin[(\[Pi] x)/
    200] A[1, 7][t] B[1, 7][t]^2 - 
    0.133496 Cos[7 \[Theta]] Cos[14 \[Theta]] Sin[(\[Pi] x)/200] A[1, 7][
      t] B[1, 7][t]^2 + 
    0.266991 Sin[(\[Pi] x)/200] Sin[7 \[Theta]] Sin[14 \[Theta]] A[1, 7][
     t] B[1, 7][t]^2 + 
   210.591 Cos[14 \[Theta]] Sin[(\[Pi] x)/200] A[1, 14][t] B[1, 7][
   t]^2 - 210.591 Cos[(\[Pi] x)/100] Cos[14 \[Theta]] Sin[(\[Pi] x)/
     200] A[1, 14][t] B[1, 7][t]^2 - 
    0.133496 Cos[14 \[Theta]]^2 Sin[(\[Pi] x)/200] A[1, 14][t] B[1, 7][
     t]^2 + 6.65901 Cos[(\[Pi] x)/200] Cos[7 \[Theta]]^2 Sin[(\[Pi] x)/
      100] A[1, 14][t] B[1, 7][t]^2 - 
      0.0378415 Cos[(\[Pi] x)/200] Cos[7 \[Theta]] Cos[
      21 \[Theta]] Sin[(\[Pi] x)/100] A[1, 14][t] B[1, 7][t]^2 - 
    0.266991 Sin[(\[Pi] x)/200] Sin[7 \[Theta]]^2 A[1, 14][t] B[1, 7][
    t]^2 + 8.32376 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[
     7 \[Theta]]^2 A[1, 14][t] B[1, 7][t]^2 + 
   0.266991 Sin[(\[Pi] x)/200] Sin[7 \[Theta]] Sin[
     21 \[Theta]] A[1, 14][t] B[1, 7][t]^2 - 
      0.040995 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[7 \[Theta]] Sin[
    21 \[Theta]] A[1, 14][t] B[1, 7][t]^2 + 
    52.6477 Sin[(\[Pi] x)/200] Sin[7 \[Theta]] B[1, 7][t]^3 - 
    52.6477 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[
    7 \[Theta]] B[1, 7][t]^3 - 
    0.133496 Cos[14 \[Theta]] Sin[(\[Pi] x)/200] Sin[7 \[Theta]] B[1, 7][
    t]^3 + 39.1352 Sin[(\[Pi] x)/200] Sin[14 \[Theta]] B[1, 14][t] + 
    0.987777 Cos[(\[Pi] x)/100] Sin[14 \[Theta]] A[1, 0][t] B[1, 14][
      t] - 3438.75 Sin[(\[Pi] x)/200]^2 Sin[14 \[Theta]] A[1, 0][
     t] B[1, 14][t] + 
    0.533983 Sin[(\[Pi] x)/200] Sin[14 \[Theta]] A[1, 0][t]^2 B[1, 14][
    t] - 0.484011 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[
     14 \[Theta]] A[1, 0][t]^2 B[1, 14][t] + 
    13.5898 Cos[(\[Pi] x)/100] Sin[7 \[Theta]] A[1, 7][t] B[1, 14][t] - 
    8.43363 Cos[(\[Pi] x)/200]^2 Cos[14 \[Theta]] Sin[
     7 \[Theta]] A[1, 7][t] B[1, 14][t] - 
    10.542 Cos[7 \[Theta]] Sin[(\[Pi] x)/200]^2 Sin[14 \[Theta]] A[1, 7][
     t] B[1, 14][t] + 
   0.0257425 Cos[(\[Pi] x)/100] Sin[21 \[Theta]] A[1, 7][t] B[1, 14][
    t] + 0.266991 Sin[(\[Pi] x)/200] Sin[7 \[Theta]] A[1, 0][
     t] A[1, 7][t] B[1, 14][t] - 
     1.66475 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[
      7 \[Theta]] A[1, 0][t] A[1, 7][t] B[1, 14][t] + 
    3.92758 Cos[(\[Pi] x)/200] Cos[14 \[Theta]] Sin[(\[Pi] x)/100] Sin[
      7 \[Theta]] A[1, 0][t] A[1, 7][t] B[1, 14][t] + 
    1.06797 Cos[7 \[Theta]] Sin[(\[Pi] x)/200] Sin[14 \[Theta]] A[1, 0][
        t] A[1, 7][t] B[1, 14][t] - 
     7.25708 Cos[(\[Pi] x)/100] Cos[7 \[Theta]] Sin[(\[Pi] x)/200] Sin[
       14 \[Theta]] A[1, 0][t] A[1, 7][t] B[1, 14][t] + 
     0.266991 Sin[(\[Pi] x)/200] Sin[21 \[Theta]] A[1, 0][t] A[1, 7][
     t] B[1, 14][t] - 
     0.0283811 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[
    21 \[Theta]] A[1, 0][t] A[1, 7][t] B[1, 14][t] + 
     0.266991 Cos[7 \[Theta]] Sin[(\[Pi] x)/200] Sin[7 \[Theta]] A[1, 7][
     t]^2 B[1, 14][t] - 
   8.32376 Cos[(\[Pi] x)/100] Cos[7 \[Theta]] Sin[(\[Pi] x)/200] Sin[
     7 \[Theta]] A[1, 7][t]^2 B[1, 14][t] + 
     6.65901 Cos[(\[Pi] x)/200] Cos[7 \[Theta]] Sin[(\[Pi] x)/100] Sin[
      7 \[Theta]] A[1, 7][t]^2 B[1, 14][t] + 
   0.0378415 Cos[(\[Pi] x)/200] Cos[21 \[Theta]] Sin[(\[Pi] x)/100] Sin[
    7 \[Theta]] A[1, 7][t]^2 B[1, 14][t] + 
      210.591 Sin[(\[Pi] x)/200] Sin[14 \[Theta]] A[1, 7][t]^2 B[1, 14][
      t] - 210.591 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[
     14 \[Theta]] A[1, 7][t]^2 B[1, 14][t] + 
    0.133496 Cos[14 \[Theta]] Sin[(\[Pi] x)/200] Sin[
      14 \[Theta]] A[1, 7][t]^2 B[1, 14][t] + 
      0.266991 Cos[7 \[Theta]] Sin[(\[Pi] x)/200] Sin[21 \[Theta]] A[1, 7][
     t]^2 B[1, 14][t] - 
     0.040995 Cos[(\[Pi] x)/100] Cos[7 \[Theta]] Sin[(\[Pi] x)/200] Sin[
      21 \[Theta]] A[1, 7][t]^2 B[1, 14][t] - 
     2.12567 Cos[(\[Pi] x)/200]^2 Cos[14 \[Theta]] Sin[
      14 \[Theta]] A[1, 14][t] B[1, 14][t] - 
     2.12567 Cos[14 \[Theta]] Sin[(\[Pi] x)/200]^2 Sin[
     14 \[Theta]] A[1, 14][t] B[1, 14][t] + 
     1.06797 Cos[14 \[Theta]] Sin[(\[Pi] x)/200] Sin[14 \[Theta]] A[1, 0][
      t] A[1, 14][t] B[1, 14][t] - 
      4.84011 Cos[(\[Pi] x)/100] Cos[14 \[Theta]] Sin[(\[Pi] x)/200] Sin[
     14 \[Theta]] A[1, 0][t] A[1, 14][t] B[1, 14][t] + 
      3.87208 Cos[(\[Pi] x)/200] Cos[14 \[Theta]] Sin[(\[Pi] x)/100] Sin[
      14 \[Theta]] A[1, 0][t] A[1, 14][t] B[1, 14][t] + 
      0.266991 Sin[(\[Pi] x)/200] Sin[28 \[Theta]] A[1, 0][t] A[1, 14][
      t] B[1, 14][t] + 
      0.266991 Cos[14 \[Theta]] Sin[(\[Pi] x)/200] Sin[7 \[Theta]] A[1, 7][
     t] A[1, 14][t] B[1, 14][t] - 
     28.3008 Cos[(\[Pi] x)/100] Cos[14 \[Theta]] Sin[(\[Pi] x)/200] Sin[
     7 \[Theta]] A[1, 7][t] A[1, 14][t] B[1, 14][t] + 
     13.318 Cos[(\[Pi] x)/200] Cos[14 \[Theta]] Sin[(\[Pi] x)/100] Sin[
      7 \[Theta]] A[1, 7][t] A[1, 14][t] B[1, 14][t] + 
     0.266991 Cos[7 \[Theta]] Sin[(\[Pi] x)/200] Sin[14 \[Theta]] A[1, 7][
     t] A[1, 14][t] B[1, 14][t] - 
    28.3008 Cos[(\[Pi] x)/100] Cos[7 \[Theta]] Sin[(\[Pi] x)/200] Sin[
     14 \[Theta]] A[1, 7][t] A[1, 14][t] B[1, 14][t] + 
    0.266991 Cos[21 \[Theta]] Sin[(\[Pi] x)/200] Sin[
     14 \[Theta]] A[1, 7][t] A[1, 14][t] B[1, 14][t] - 
    0.0788365 Cos[(\[Pi] x)/100] Cos[21 \[Theta]] Sin[(\[Pi] x)/200] Sin[
    14 \[Theta]] A[1, 7][t] A[1, 14][t] B[1, 14][t] + 
    13.318 Cos[(\[Pi] x)/200] Cos[7 \[Theta]] Sin[(\[Pi] x)/100] Sin[
    14 \[Theta]] A[1, 7][t] A[1, 14][t] B[1, 14][t] + 
    0.075683 Cos[(\[Pi] x)/200] Cos[21 \[Theta]] Sin[(\[Pi] x)/100] Sin[
    14 \[Theta]] A[1, 7][t] A[1, 14][t] B[1, 14][t] + 
    0.266991 Cos[14 \[Theta]] Sin[(\[Pi] x)/200] Sin[
     21 \[Theta]] A[1, 7][t] A[1, 14][t] B[1, 14][t] - 
     0.0788365 Cos[(\[Pi] x)/100] Cos[14 \[Theta]] Sin[(\[Pi] x)/200] Sin[
     21 \[Theta]] A[1, 7][t] A[1, 14][t] B[1, 14][t] + 
     0.075683 Cos[(\[Pi] x)/200] Cos[14 \[Theta]] Sin[(\[Pi] x)/100] Sin[
       21 \[Theta]] A[1, 7][t] A[1, 14][t] B[1, 14][t] + 
     0.266991 Cos[7 \[Theta]] Sin[(\[Pi] x)/200] Sin[28 \[Theta]] A[1, 7][
      t] A[1, 14][t] B[1, 14][t] + 
     842.364 Sin[(\[Pi] x)/200] Sin[14 \[Theta]] A[1, 14][t]^2 B[1, 14][
     t] - 842.364 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[
      14 \[Theta]] A[1, 14][t]^2 B[1, 14][t] + 
      0.133496 Cos[28 \[Theta]] Sin[(\[Pi] x)/200] Sin[
      14 \[Theta]] A[1, 14][t]^2 B[1, 14][t] + 
      0.266991 Cos[14 \[Theta]] Sin[(\[Pi] x)/200] Sin[
      28 \[Theta]] A[1, 14][t]^2 B[1, 14][t] + 
      13.5898 Cos[(\[Pi] x)/100] Cos[7 \[Theta]] B[1, 7][t] B[1, 14][t] + 
      8.43363 Cos[(\[Pi] x)/200]^2 Cos[7 \[Theta]] Cos[
      14 \[Theta]] B[1, 7][t] B[1, 14][t] - 
      0.0257425 Cos[(\[Pi] x)/100] Cos[21 \[Theta]] B[1, 7][t] B[1, 14][
      t] - 10.542 Sin[(\[Pi] x)/200]^2 Sin[7 \[Theta]] Sin[
       14 \[Theta]] B[1, 7][t] B[1, 14][t] + 
      0.266991 Cos[7 \[Theta]] Sin[(\[Pi] x)/200] A[1, 0][t] B[1, 7][
      t] B[1, 14][t] - 
       1.66475 Cos[(\[Pi] x)/100] Cos[7 \[Theta]] Sin[(\[Pi] x)/
      200] A[1, 0][t] B[1, 7][t] B[1, 14][t] - 
      0.266991 Cos[21 \[Theta]] Sin[(\[Pi] x)/200] A[1, 0][t] B[1, 7][
       t] B[1, 14][t] + 
       0.0283811 Cos[(\[Pi] x)/100] Cos[21 \[Theta]] Sin[(\[Pi] x)/
       200] A[1, 0][t] B[1, 7][t] B[1, 14][t] - 
      3.92758 Cos[(\[Pi] x)/200] Cos[7 \[Theta]] Cos[
      14 \[Theta]] Sin[(\[Pi] x)/100] A[1, 0][t] B[1, 7][t] B[1, 14][
     t] + 1.06797 Sin[(\[Pi] x)/200] Sin[7 \[Theta]] Sin[
       14 \[Theta]] A[1, 0][t] B[1, 7][t] B[1, 14][t] - 
     7.25708 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[7 \[Theta]] Sin[
      14 \[Theta]] A[1, 0][t] B[1, 7][t] B[1, 14][t] + 
      0.266991 Cos[7 \[Theta]]^2 Sin[(\[Pi] x)/200] A[1, 7][t] B[1, 7][
        t] B[1, 14][t] - 
        8.32376 Cos[(\[Pi] x)/100] Cos[7 \[Theta]]^2 Sin[(\[Pi] x)/
        200] A[1, 7][t] B[1, 7][t] B[1, 14][t] - 
         0.266991 Cos[7 \[Theta]] Cos[21 \[Theta]] Sin[(\[Pi] x)/200] A[1, 7][
         t] B[1, 7][t] B[1, 14][t] + 
        0.040995 Cos[(\[Pi] x)/100] Cos[7 \[Theta]] Cos[
           21 \[Theta]] Sin[(\[Pi] x)/200] A[1, 7][t] B[1, 7][t] B[1, 14][
           t] - 6.65901 Cos[(\[Pi] x)/200] Cos[7 \[Theta]]^2 Sin[(\[Pi] x)/
          100] A[1, 7][t] B[1, 7][t] B[1, 14][t] - 
        0.0378415 Cos[(\[Pi] x)/200] Cos[7 \[Theta]] Cos[
       21 \[Theta]] Sin[(\[Pi] x)/100] A[1, 7][t] B[1, 7][t] B[1, 14][
          t] + 0.266991 Sin[(\[Pi] x)/200] Sin[7 \[Theta]]^2 A[1, 7][
        t] B[1, 7][t] B[1, 14][t] - 
       8.32376 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[
     7 \[Theta]]^2 A[1, 7][t] B[1, 7][t] B[1, 14][t] - 
     6.65901 Cos[(\[Pi] x)/200] Sin[(\[Pi] x)/100] Sin[
      7 \[Theta]]^2 A[1, 7][t] B[1, 7][t] B[1, 14][t] + 
     0.266991 Sin[(\[Pi] x)/200] Sin[14 \[Theta]]^2 A[1, 7][t] B[1, 7][
     t] B[1, 14][t] + 
   0.266991 Sin[(\[Pi] x)/200] Sin[7 \[Theta]] Sin[21 \[Theta]] A[1, 7][
    t] B[1, 7][t] B[1, 14][t] - 
   0.040995 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[7 \[Theta]] Sin[
         21 \[Theta]] A[1, 7][t] B[1, 7][t] B[1, 14][t] + 
      0.0378415 Cos[(\[Pi] x)/200] Sin[(\[Pi] x)/100] Sin[7 \[Theta]] Sin[
     21 \[Theta]] A[1, 7][t] B[1, 7][t] B[1, 14][t] + 
    0.266991 Cos[7 \[Theta]] Cos[14 \[Theta]] Sin[(\[Pi] x)/
     200] A[1, 14][t] B[1, 7][t] B[1, 14][t] - 
      28.3008 Cos[(\[Pi] x)/100] Cos[7 \[Theta]] Cos[
      14 \[Theta]] Sin[(\[Pi] x)/200] A[1, 14][t] B[1, 7][t] B[1, 14][
    t] - 0.266991 Cos[14 \[Theta]] Cos[21 \[Theta]] Sin[(\[Pi] x)/
        200] A[1, 14][t] B[1, 7][t] B[1, 14][t] + 
      0.0788365 Cos[(\[Pi] x)/100] Cos[14 \[Theta]] Cos[
     21 \[Theta]] Sin[(\[Pi] x)/200] A[1, 14][t] B[1, 7][t] B[1, 14][
     t] + 13.318 Cos[(\[Pi] x)/200] Cos[7 \[Theta]] Cos[
     14 \[Theta]] Sin[(\[Pi] x)/100] A[1, 14][t] B[1, 7][t] B[1, 14][
      t] - 0.075683 Cos[(\[Pi] x)/200] Cos[14 \[Theta]] Cos[
       21 \[Theta]] Sin[(\[Pi] x)/100] A[1, 14][t] B[1, 7][t] B[1, 14][
       t] - 0.266991 Sin[(\[Pi] x)/200] Sin[7 \[Theta]] Sin[
     14 \[Theta]] A[1, 14][t] B[1, 7][t] B[1, 14][t] + 
    28.3008 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[7 \[Theta]] Sin[
              14 \[Theta]] A[1, 14][t] B[1, 7][t] B[1, 14][t] - 
    13.318 Cos[(\[Pi] x)/200] Sin[(\[Pi] x)/100] Sin[7 \[Theta]] Sin[
    14 \[Theta]] A[1, 14][t] B[1, 7][t] B[1, 14][t] + 
  0.266991 Sin[(\[Pi] x)/200] Sin[14 \[Theta]] Sin[
   21 \[Theta]] A[1, 14][t] B[1, 7][t] B[1, 14][t] - 
   0.0788365 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[14 \[Theta]] Sin[
     21 \[Theta]] A[1, 14][t] B[1, 7][t] B[1, 14][t] + 
  0.075683 Cos[(\[Pi] x)/200] Sin[(\[Pi] x)/100] Sin[14 \[Theta]] Sin[
    21 \[Theta]] A[1, 14][t] B[1, 7][t] B[1, 14][t] + 
   0.266991 Sin[(\[Pi] x)/200] Sin[7 \[Theta]] Sin[
    28 \[Theta]] A[1, 14][t] B[1, 7][t] B[1, 14][t] + 
    0.266991 Cos[7 \[Theta]] Sin[(\[Pi] x)/200] Sin[7 \[Theta]] B[1, 7][
    t]^2 B[1, 14][t] - 
   8.32376 Cos[(\[Pi] x)/100] Cos[7 \[Theta]] Sin[(\[Pi] x)/200] Sin[
   7 \[Theta]] B[1, 7][t]^2 B[1, 14][t] - 
   0.266991 Cos[21 \[Theta]] Sin[(\[Pi] x)/200] Sin[7 \[Theta]] B[1, 7][
     t]^2 B[1, 14][t] + 
    0.040995 Cos[(\[Pi] x)/100] Cos[21 \[Theta]] Sin[(\[Pi] x)/200] Sin[
      7 \[Theta]] B[1, 7][t]^2 B[1, 14][t] + 
    6.65901 Cos[(\[Pi] x)/200] Cos[7 \[Theta]] Sin[(\[Pi] x)/100] Sin[
     7 \[Theta]] B[1, 7][t]^2 B[1, 14][t] + 
   210.591 Sin[(\[Pi] x)/200] Sin[14 \[Theta]] B[1, 7][t]^2 B[1, 14][
    t] - 210.591 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[
    14 \[Theta]] B[1, 7][t]^2 B[1, 14][t] - 
   0.133496 Cos[14 \[Theta]] Sin[(\[Pi] x)/200] Sin[
     14 \[Theta]] B[1, 7][t]^2 B[1, 14][t] - 
     0.0378415 Cos[(\[Pi] x)/200] Cos[7 \[Theta]] Sin[(\[Pi] x)/100] Sin[
    21 \[Theta]] B[1, 7][t]^2 B[1, 14][t] - 429.778 B[1, 14][t]^2 + 
   429.778 Cos[(\[Pi] x)/100] B[1, 14][t]^2 + 
   1.06283 Cos[(\[Pi] x)/200]^2 Cos[14 \[Theta]]^2 B[1, 14][t]^2 - 
   1.06283 Sin[(\[Pi] x)/200]^2 Sin[14 \[Theta]]^2 B[1, 14][t]^2 - 
  0.133496 Cos[28 \[Theta]] Sin[(\[Pi] x)/200] A[1, 0][t] B[1, 14][
t]^2 - 1.93604 Cos[(\[Pi] x)/200] Cos[14 \[Theta]]^2 Sin[(\[Pi] x)/
 100] A[1, 0][t] B[1, 14][t]^2 + 
 0.533983 Sin[(\[Pi] x)/200] Sin[14 \[Theta]]^2 A[1, 0][t] B[1, 14][
 t]^2 - 
  2.42005 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[
     14 \[Theta]]^2 A[1, 0][t] B[1, 14][t]^2 + 
   210.591 Cos[7 \[Theta]] Sin[(\[Pi] x)/200] A[1, 7][t] B[1, 14][
      t]^2 - 210.591 Cos[(\[Pi] x)/100] Cos[7 \[Theta]] Sin[(\[Pi] x)/
      200] A[1, 7][t] B[1, 14][t]^2 - 
     0.133496 Cos[7 \[Theta]] Cos[28 \[Theta]] Sin[(\[Pi] x)/200] A[1, 7][
      t] B[1, 14][t]^2 - 
    13.318 Cos[(\[Pi] x)/200] Cos[7 \[Theta]] Cos[
      14 \[Theta]] Sin[(\[Pi] x)/100] A[1, 7][t] B[1, 14][t]^2 - 
    0.075683 Cos[(\[Pi] x)/200] Cos[14 \[Theta]] Cos[
     21 \[Theta]] Sin[(\[Pi] x)/100] A[1, 7][t] B[1, 14][t]^2 + 
   0.266991 Sin[(\[Pi] x)/200] Sin[7 \[Theta]] Sin[14 \[Theta]] A[1, 7][
  t] B[1, 14][t]^2 - 
     28.3008 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[7 \[Theta]] Sin[
        14 \[Theta]] A[1, 7][t] B[1, 14][t]^2 + 
     0.266991 Sin[(\[Pi] x)/200] Sin[14 \[Theta]] Sin[
     21 \[Theta]] A[1, 7][t] B[1, 14][t]^2 - 
     0.0788365 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[14 \[Theta]] Sin[
      21 \[Theta]] A[1, 7][t] B[1, 14][t]^2 + 
     842.364 Cos[14 \[Theta]] Sin[(\[Pi] x)/200] A[1, 14][t] B[1, 14][
     t]^2 - 842.364 Cos[(\[Pi] x)/100] Cos[14 \[Theta]] Sin[(\[Pi] x)/
      200] A[1, 14][t] B[1, 14][t]^2 - 
    0.133496 Cos[14 \[Theta]] Cos[28 \[Theta]] Sin[(\[Pi] x)/
     200] A[1, 14][t] B[1, 14][t]^2 + 
     0.266991 Sin[(\[Pi] x)/200] Sin[14 \[Theta]] Sin[
      28 \[Theta]] A[1, 14][t] B[1, 14][t]^2 + 
    210.591 Sin[(\[Pi] x)/200] Sin[7 \[Theta]] B[1, 7][t] B[1, 14][
    t]^2 - 210.591 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[
     7 \[Theta]] B[1, 7][t] B[1, 14][t]^2 - 
     0.133496 Cos[28 \[Theta]] Sin[(\[Pi] x)/200] Sin[7 \[Theta]] B[1, 7][
    t] B[1, 14][t]^2 + 
    13.318 Cos[(\[Pi] x)/200] Cos[14 \[Theta]] Sin[(\[Pi] x)/100] Sin[
      7 \[Theta]] B[1, 7][t] B[1, 14][t]^2 + 
    0.266991 Cos[7 \[Theta]] Sin[(\[Pi] x)/200] Sin[14 \[Theta]] B[1, 7][
      t] B[1, 14][t]^2 - 
     28.3008 Cos[(\[Pi] x)/100] Cos[7 \[Theta]] Sin[(\[Pi] x)/200] Sin[
    14 \[Theta]] B[1, 7][t] B[1, 14][t]^2 - 
    0.266991 Cos[21 \[Theta]] Sin[(\[Pi] x)/200] Sin[
    14 \[Theta]] B[1, 7][t] B[1, 14][t]^2 + 
    0.0788365 Cos[(\[Pi] x)/100] Cos[21 \[Theta]] Sin[(\[Pi] x)/200] Sin[
      14 \[Theta]] B[1, 7][t] B[1, 14][t]^2 - 
    0.075683 Cos[(\[Pi] x)/200] Cos[14 \[Theta]] Sin[(\[Pi] x)/100] Sin[
    21 \[Theta]] B[1, 7][t] B[1, 14][t]^2 + 
   842.364 Sin[(\[Pi] x)/200] Sin[14 \[Theta]] B[1, 14][t]^3 - 
      842.364 Cos[(\[Pi] x)/100] Sin[(\[Pi] x)/200] Sin[
   14 \[Theta]] B[1, 14][t]^3 - 
   0.133496 Cos[28 \[Theta]] Sin[(\[Pi] x)/200] Sin[
     14 \[Theta]] B[1, 14][t]^3 + 6.90612*10^-7 Sin[(\[Pi] x)/200] 
 \!\(\*SuperscriptBox[
  RowBox[{"A", "[", 
  RowBox[{"1", ",", "0"}], "]"}], "\[Prime]\[Prime]",
    MultilineFunction->None]\)[t] + 
      6.90612*10^-7 Cos[7 \[Theta]] Sin[(\[Pi] x)/200] 
    \!\(\*SuperscriptBox[
      RowBox[{"A", "[", 
           RowBox[{"1", ",", "7"}], "]"}], "\[Prime]\[Prime]",
       MultilineFunction->None]\)[t] + 
        6.90612*10^-7 Cos[14 \[Theta]] Sin[(\[Pi] x)/200] 
      \!\(\*SuperscriptBox[
       RowBox[{"A", "[", 
      RowBox[{"1", ",", "14"}], "]"}], "\[Prime]\[Prime]",
    MultilineFunction->None]\)[t] + 
       6.90612*10^-7 Sin[(\[Pi] x)/200] Sin[7 \[Theta]] 
       \!\(\*SuperscriptBox[
        RowBox[{"B", "[", 
      RowBox[{"1", ",", "7"}], "]"}], "\[Prime]\[Prime]",
    MultilineFunction->None]\)[t] + 
        6.90612*10^-7 Sin[(\[Pi] x)/200] Sin[14 \[Theta]] 
    \!\(\*SuperscriptBox[
      RowBox[{"B", "[", 
    RowBox[{"1", ",", "14"}], "]"}], "\[Prime]\[Prime]",
      MultilineFunction->None]\)[t]
1
問題を診断し、バグかどうかを確認するために、完全な Resi 式が必要です。あなたが投稿した内容は正しく貼り付けられません。以下のように貼り付けてください:1. Resi を評価して、出力セルとして取得します。 2.出力セルを選択します。 3.セルブラケットを右クリックし、[別名コピー] - > [入力文字列]を選択します。その結果をここに貼り付け、Mathematicaにコピーして元の Resi === 演算子が同じであることを確認します。
追加された 著者 Szabolcs,
まあ、あなたは L のマジック値を提供していません。
追加された 著者 abcd,
Resiの完全表現を投稿してください。これを短縮するには、[Resi、A [、_] []、Chop [Simplify [#]]&を収集することで簡略化することができます。また、統合の相互交換は必ずしも同じである必要はありません。結局のところ、端点の特異点があるので、注意する必要があります。私は0からではなくL0からの統合を行い、次に第2の統合を行う前に明示的な制限を取ろうとします。 Integrateは、多少の複雑な統合や多かれ少なかれ、よりよい結果を出しています。すべての数学的な問題を自動的にキャッチするのは難しいです。だから人間の脳はまだ必要です。
追加された 著者 Rolf Mertig,
たとえば、 Resi オリジナルの短いスニペットは、インテグラルに接続すると、問題。積分も同じようになった。短いスニペットと全部の違いは何ですか?
追加された 著者 Simon,
Harmeet:現時点では、貼り付けたコードはMathematicaにコピー&ペーストすることができません。だれかがそれを使って遊ぶのに時間がかかりすぎるとは思わないでしょう。問題の原因を絞り込むことをお勧めします。たとえば、問題がなくなるまで、用語を Resi から削除してください。次に、あなた自身が問題の原因を発見するか、他の人に見せるための最小限のサイズに縮小します。
追加された 著者 Simon,
いいえ、そうではありません。Aは未知の関数であり、Lの値は既に代入されています。そのため、出力に "L"が表示されません... !!
追加された 著者 user1099153,
Rolf Mertig ....あなたはポイントがあります。しかし、表現Resi全体が、係数と、引数SinとCosの関数のみのバリエーションを持つ小さな部分とまったく同じであるということは、Sin関数とCos関数を統合する際に特異点があるはずがないと思います。あなたは一見を持つことができるように全体の表現を入れてみましょう。
追加された 著者 user1099153,
上記を注意深く読んだら、これは私のプログラムの一部に過ぎないと言いました。 Lの値には魔法はありませんが、あなたの満足のためにLの値は200です。
追加された 著者 user1099153,

1 答え

ここでMathematica 8はうまく動作します。 私がResiを次のように解釈したとします(それが正しいかどうかは考えませんが、おそらく)。

  Resi = 1754.2*Sin[(Pi*x)/200]*A[1, 0][t] + 6.64531*Cos[7*\[Theta]]*
     Sin[(Pi*x)/200]*A[1, 7][t] + 3.01996*Cos[(Pi*x)/100]*Cos[7*\[Theta]]*
     A[1, 0][t]*A[1, 7][t] - 861.531*Cos[7*\[Theta]]*Sin[(Pi*x)/200]^2*
     A[1, 0][t]*A[1, 7][t] + 0.533983*Cos[7*\[Theta]]*Sin[(Pi*x)/200]*
     A[1, 0][t]^2*A[1, 7][t] - 0.369945*Cos[(Pi*x)/100]*Cos[7*\[Theta]]*
     Sin[(Pi*x)/200]*A[1, 0][t]^2*A[1, 7][t] - 107.444*A[1, 7][t]^2 + 
    107.444*Cos[(Pi*x)/100]*A[1, 7][t]^2 - 3.95111*Cos[7*\[Theta]]^2*
     Sin[(Pi*x)/200]^2*A[1, 7][t]^2 + 3.95111*Cos[(Pi*x)/200]^2*
     Sin[7*\[Theta]]^2*A[1, 7][t]^2 + 0.533983*Cos[7*\[Theta]]^2*Sin[(Pi*x)/200]*
     A[1, 0][t]*A[1, 7][t]^2 - 1.84972*Cos[(Pi*x)/100]*Cos[7*\[Theta]]^2*
     Sin[(Pi*x)/200]*A[1, 0][t]*A[1, 7][t]^2 + 0.133496*Cos[14*\[Theta]]*
     Sin[(Pi*x)/200]*A[1, 0][t]*A[1, 7][t]^2 - 1.47978*Cos[(Pi*x)/200]*
     Sin[(Pi*x)/100]*Sin[7*\[Theta]]^2*A[1, 0][t]*A[1, 7][t]^2 + 
    52.6477*Cos[7*\[Theta]]*Sin[(Pi*x)/200]*A[1, 7][t]^3 - 
    52.6477*Cos[(Pi*x)/100]*Cos[7*\[Theta]]*Sin[(Pi*x)/200]*A[1, 7][t]^3 + 
    0.133496*Cos[7*\[Theta]]*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*A[1, 7][t]^3 + 
    39.1352*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*A[1, 14][t] + 
    0.987777*Cos[(Pi*x)/100]*Cos[14*\[Theta]]*A[1, 0][t]*A[1, 14][t] - 
    3438.75*Cos[14*\[Theta]]*Sin[(Pi*x)/200]^2*A[1, 0][t]*A[1, 14][t] + 
    0.533983*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*A[1, 0][t]^2*A[1, 14][t] - 
    0.484011*Cos[(Pi*x)/100]*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*A[1, 0][t]^2*
     A[1, 14][t] + 13.5898*Cos[(Pi*x)/100]*Cos[7*\[Theta]]*A[1, 7][t]*
     A[1, 14][t] + 0.0257425*Cos[(Pi*x)/100]*Cos[21*\[Theta]]*A[1, 7][t]*
     A[1, 14][t] - 10.542*Cos[7*\[Theta]]*Cos[14*\[Theta]]*Sin[(Pi*x)/200]^2*
     A[1, 7][t]*A[1, 14][t] + 8.43363*Cos[(Pi*x)/200]^2*Sin[7*\[Theta]]*
     Sin[14*\[Theta]]*A[1, 7][t]*A[1, 14][t] + 0.266991*Cos[7*\[Theta]]*
     Sin[(Pi*x)/200]*A[1, 0][t]*A[1, 7][t]*A[1, 14][t] - 
    1.66475*Cos[(Pi*x)/100]*Cos[7*\[Theta]]*Sin[(Pi*x)/200]*A[1, 0][t]*
     A[1, 7][t]*A[1, 14][t] + 1.06797*Cos[7*\[Theta]]*Cos[14*\[Theta]]*
     Sin[(Pi*x)/200]*A[1, 0][t]*A[1, 7][t]*A[1, 14][t] - 
    7.25708*Cos[(Pi*x)/100]*Cos[7*\[Theta]]*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*
     A[1, 0][t]*A[1, 7][t]*A[1, 14][t] + 0.266991*Cos[21*\[Theta]]*
     Sin[(Pi*x)/200]*A[1, 0][t]*A[1, 7][t]*A[1, 14][t] - 
    0.0283811*Cos[(Pi*x)/100]*Cos[21*\[Theta]]*Sin[(Pi*x)/200]*A[1, 0][t]*
     A[1, 7][t]*A[1, 14][t] - 3.92758*Cos[(Pi*x)/200]*Sin[(Pi*x)/100]*
     Sin[7*\[Theta]]*Sin[14*\[Theta]]*A[1, 0][t]*A[1, 7][t]*A[1, 14][t] + 
    0.266991*Cos[7*\[Theta]]^2*Sin[(Pi*x)/200]*A[1, 7][t]^2*A[1, 14][t] - 
    8.32376*Cos[(Pi*x)/100]*Cos[7*\[Theta]]^2*Sin[(Pi*x)/200]*A[1, 7][t]^2*
     A[1, 14][t] + 210.591*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*A[1, 7][t]^2*
     A[1, 14][t] - 210.591*Cos[(Pi*x)/100]*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*
     A[1, 7][t]^2*A[1, 14][t] + 0.133496*Cos[14*\[Theta]]^2*Sin[(Pi*x)/200]*
     A[1, 7][t]^2*A[1, 14][t] + 0.266991*Cos[7*\[Theta]]*Cos[21*\[Theta]]*
     Sin[(Pi*x)/200]*A[1, 7][t]^2*A[1, 14][t] - 
    0.040995*Cos[(Pi*x)/100]*Cos[7*\[Theta]]*Cos[21*\[Theta]]*Sin[(Pi*x)/200]*
     A[1, 7][t]^2*A[1, 14][t] - 6.65901*Cos[(Pi*x)/200]*Sin[(Pi*x)/100]*
     Sin[7*\[Theta]]^2*A[1, 7][t]^2*A[1, 14][t] - 0.0378415*Cos[(Pi*x)/200]*
     Sin[(Pi*x)/100]*Sin[7*\[Theta]]*Sin[21*\[Theta]]*A[1, 7][t]^2*A[1, 14][t] - 
    429.778*A[1, 14][t]^2 + 429.778*Cos[(Pi*x)/100]*A[1, 14][t]^2 - 
    1.06283*Cos[14*\[Theta]]^2*Sin[(Pi*x)/200]^2*A[1, 14][t]^2 + 
    1.06283*Cos[(Pi*x)/200]^2*Sin[14*\[Theta]]^2*A[1, 14][t]^2 + 
    0.533983*Cos[14*\[Theta]]^2*Sin[(Pi*x)/200]*A[1, 0][t]*A[1, 14][t]^2 - 
    2.42005*Cos[(Pi*x)/100]*Cos[14*\[Theta]]^2*Sin[(Pi*x)/200]*A[1, 0][t]*
     A[1, 14][t]^2 + 0.133496*Cos[28*\[Theta]]*Sin[(Pi*x)/200]*A[1, 0][t]*
     A[1, 14][t]^2 - 1.93604*Cos[(Pi*x)/200]*Sin[(Pi*x)/100]*
     Sin[14*\[Theta]]^2*A[1, 0][t]*A[1, 14][t]^2 + 210.591*Cos[7*\[Theta]]*
     Sin[(Pi*x)/200]*A[1, 7][t]*A[1, 14][t]^2 - 
    210.591*Cos[(Pi*x)/100]*Cos[7*\[Theta]]*Sin[(Pi*x)/200]*A[1, 7][t]*
     A[1, 14][t]^2 + 0.266991*Cos[7*\[Theta]]*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*
     A[1, 7][t]*A[1, 14][t]^2 - 28.3008*Cos[(Pi*x)/100]*Cos[7*\[Theta]]*
     Cos[14*\[Theta]]*Sin[(Pi*x)/200]*A[1, 7][t]*A[1, 14][t]^2 + 
    0.266991*Cos[14*\[Theta]]*Cos[21*\[Theta]]*Sin[(Pi*x)/200]*A[1, 7][t]*
     A[1, 14][t]^2 - 0.0788365*Cos[(Pi*x)/100]*Cos[14*\[Theta]]*Cos[21*\[Theta]]*
     Sin[(Pi*x)/200]*A[1, 7][t]*A[1, 14][t]^2 + 
    0.133496*Cos[7*\[Theta]]*Cos[28*\[Theta]]*Sin[(Pi*x)/200]*A[1, 7][t]*
     A[1, 14][t]^2 - 13.318*Cos[(Pi*x)/200]*Sin[(Pi*x)/100]*Sin[7*\[Theta]]*
     Sin[14*\[Theta]]*A[1, 7][t]*A[1, 14][t]^2 - 0.075683*Cos[(Pi*x)/200]*
     Sin[(Pi*x)/100]*Sin[14*\[Theta]]*Sin[21*\[Theta]]*A[1, 7][t]*A[1, 14][t]^2 + 
    842.364*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*A[1, 14][t]^3 - 
    842.364*Cos[(Pi*x)/100]*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*A[1, 14][t]^3 + 
    0.133496*Cos[14*\[Theta]]*Cos[28*\[Theta]]*Sin[(Pi*x)/200]*A[1, 14][t]^3 + 
    6.64531*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*B[1, 7][t] + 
    3.01996*Cos[(Pi*x)/100]*Sin[7*\[Theta]]*A[1, 0][t]*B[1, 7][t] - 
    861.531*Sin[(Pi*x)/200]^2*Sin[7*\[Theta]]*A[1, 0][t]*B[1, 7][t] + 
    0.533983*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*A[1, 0][t]^2*B[1, 7][t] - 
    0.369945*Cos[(Pi*x)/100]*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*A[1, 0][t]^2*
     B[1, 7][t] - 7.90221*Cos[(Pi*x)/200]^2*Cos[7*\[Theta]]*Sin[7*\[Theta]]*
     A[1, 7][t]*B[1, 7][t] - 7.90221*Cos[7*\[Theta]]*Sin[(Pi*x)/200]^2*
     Sin[7*\[Theta]]*A[1, 7][t]*B[1, 7][t] + 1.06797*Cos[7*\[Theta]]*
     Sin[(Pi*x)/200]*Sin[7*\[Theta]]*A[1, 0][t]*A[1, 7][t]*B[1, 7][t] - 
    3.69945*Cos[(Pi*x)/100]*Cos[7*\[Theta]]*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*
     A[1, 0][t]*A[1, 7][t]*B[1, 7][t] + 2.95956*Cos[(Pi*x)/200]*
     Cos[7*\[Theta]]*Sin[(Pi*x)/100]*Sin[7*\[Theta]]*A[1, 0][t]*A[1, 7][t]*
     B[1, 7][t] + 0.266991*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*A[1, 0][t]*
     A[1, 7][t]*B[1, 7][t] + 52.6477*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*
     A[1, 7][t]^2*B[1, 7][t] - 52.6477*Cos[(Pi*x)/100]*Sin[(Pi*x)/200]*
     Sin[7*\[Theta]]*A[1, 7][t]^2*B[1, 7][t] + 0.133496*Cos[14*\[Theta]]*
     Sin[(Pi*x)/200]*Sin[7*\[Theta]]*A[1, 7][t]^2*B[1, 7][t] + 
    0.266991*Cos[7*\[Theta]]*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*A[1, 7][t]^2*
     B[1, 7][t] - 13.5898*Cos[(Pi*x)/100]*Sin[7*\[Theta]]*A[1, 14][t]*
     B[1, 7][t] - 10.542*Cos[14*\[Theta]]*Sin[(Pi*x)/200]^2*Sin[7*\[Theta]]*
     A[1, 14][t]*B[1, 7][t] - 8.43363*Cos[(Pi*x)/200]^2*Cos[7*\[Theta]]*
     Sin[14*\[Theta]]*A[1, 14][t]*B[1, 7][t] + 0.0257425*Cos[(Pi*x)/100]*
     Sin[21*\[Theta]]*A[1, 14][t]*B[1, 7][t] - 0.266991*Sin[(Pi*x)/200]*
     Sin[7*\[Theta]]*A[1, 0][t]*A[1, 14][t]*B[1, 7][t] + 
    1.66475*Cos[(Pi*x)/100]*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*A[1, 0][t]*
     A[1, 14][t]*B[1, 7][t] + 1.06797*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*
     Sin[7*\[Theta]]*A[1, 0][t]*A[1, 14][t]*B[1, 7][t] - 
    7.25708*Cos[(Pi*x)/100]*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*
     A[1, 0][t]*A[1, 14][t]*B[1, 7][t] + 3.92758*Cos[(Pi*x)/200]*
     Cos[7*\[Theta]]*Sin[(Pi*x)/100]*Sin[14*\[Theta]]*A[1, 0][t]*A[1, 14][t]*
     B[1, 7][t] + 0.266991*Sin[(Pi*x)/200]*Sin[21*\[Theta]]*A[1, 0][t]*
     A[1, 14][t]*B[1, 7][t] - 0.0283811*Cos[(Pi*x)/100]*Sin[(Pi*x)/200]*
     Sin[21*\[Theta]]*A[1, 0][t]*A[1, 14][t]*B[1, 7][t] + 
    0.*Cos[7*\[Theta]]*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*A[1, 7][t]*A[1, 14][t]*
     B[1, 7][t] + 0.*Cos[(Pi*x)/100]*Cos[7*\[Theta]]*Sin[(Pi*x)/200]*
     Sin[7*\[Theta]]*A[1, 7][t]*A[1, 14][t]*B[1, 7][t] + 
    0.266991*Cos[21*\[Theta]]*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*A[1, 7][t]*
     A[1, 14][t]*B[1, 7][t] - 0.040995*Cos[(Pi*x)/100]*Cos[21*\[Theta]]*
     Sin[(Pi*x)/200]*Sin[7*\[Theta]]*A[1, 7][t]*A[1, 14][t]*B[1, 7][t] + 
    0.*Cos[(Pi*x)/200]*Cos[7*\[Theta]]*Sin[(Pi*x)/100]*Sin[7*\[Theta]]*A[1, 7][t]*
     A[1, 14][t]*B[1, 7][t] + 0.0378415*Cos[(Pi*x)/200]*Cos[21*\[Theta]]*
     Sin[(Pi*x)/100]*Sin[7*\[Theta]]*A[1, 7][t]*A[1, 14][t]*B[1, 7][t] + 
    0.266991*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*A[1, 7][t]*
     A[1, 14][t]*B[1, 7][t] + 0.266991*Cos[7*\[Theta]]*Sin[(Pi*x)/200]*
     Sin[21*\[Theta]]*A[1, 7][t]*A[1, 14][t]*B[1, 7][t] - 
    0.040995*Cos[(Pi*x)/100]*Cos[7*\[Theta]]*Sin[(Pi*x)/200]*Sin[21*\[Theta]]*
     A[1, 7][t]*A[1, 14][t]*B[1, 7][t] + 0.0378415*Cos[(Pi*x)/200]*
     Cos[7*\[Theta]]*Sin[(Pi*x)/100]*Sin[21*\[Theta]]*A[1, 7][t]*A[1, 14][t]*
     B[1, 7][t] + 210.591*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*A[1, 14][t]^2*
     B[1, 7][t] - 210.591*Cos[(Pi*x)/100]*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*
     A[1, 14][t]^2*B[1, 7][t] - 0.266991*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*
     Sin[7*\[Theta]]*A[1, 14][t]^2*B[1, 7][t] + 28.3008*Cos[(Pi*x)/100]*
     Cos[14*\[Theta]]*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*A[1, 14][t]^2*B[1, 7][t] + 
    0.133496*Cos[28*\[Theta]]*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*A[1, 14][t]^2*
     B[1, 7][t] - 13.318*Cos[(Pi*x)/200]*Cos[7*\[Theta]]*Sin[(Pi*x)/100]*
     Sin[14*\[Theta]]*A[1, 14][t]^2*B[1, 7][t] + 0.075683*Cos[(Pi*x)/200]*
     Cos[21*\[Theta]]*Sin[(Pi*x)/100]*Sin[14*\[Theta]]*A[1, 14][t]^2*B[1, 7][t] + 
    0.266991*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*Sin[21*\[Theta]]*A[1, 14][t]^2*
     B[1, 7][t] - 0.0788365*Cos[(Pi*x)/100]*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*
     Sin[21*\[Theta]]*A[1, 14][t]^2*B[1, 7][t] - 107.444*B[1, 7][t]^2 + 
    107.444*Cos[(Pi*x)/100]*B[1, 7][t]^2 + 3.95111*Cos[(Pi*x)/200]^2*
     Cos[7*\[Theta]]^2*B[1, 7][t]^2 - 3.95111*Sin[(Pi*x)/200]^2*Sin[7*\[Theta]]^2*
     B[1, 7][t]^2 - 0.133496*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*A[1, 0][t]*
     B[1, 7][t]^2 - 1.47978*Cos[(Pi*x)/200]*Cos[7*\[Theta]]^2*Sin[(Pi*x)/100]*
     A[1, 0][t]*B[1, 7][t]^2 + 0.533983*Sin[(Pi*x)/200]*Sin[7*\[Theta]]^2*
     A[1, 0][t]*B[1, 7][t]^2 - 1.84972*Cos[(Pi*x)/100]*Sin[(Pi*x)/200]*
     Sin[7*\[Theta]]^2*A[1, 0][t]*B[1, 7][t]^2 + 52.6477*Cos[7*\[Theta]]*
     Sin[(Pi*x)/200]*A[1, 7][t]*B[1, 7][t]^2 - 52.6477*Cos[(Pi*x)/100]*
     Cos[7*\[Theta]]*Sin[(Pi*x)/200]*A[1, 7][t]*B[1, 7][t]^2 - 
    0.133496*Cos[7*\[Theta]]*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*A[1, 7][t]*
     B[1, 7][t]^2 + 0.266991*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*Sin[14*\[Theta]]*
     A[1, 7][t]*B[1, 7][t]^2 + 210.591*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*
     A[1, 14][t]*B[1, 7][t]^2 - 210.591*Cos[(Pi*x)/100]*Cos[14*\[Theta]]*
     Sin[(Pi*x)/200]*A[1, 14][t]*B[1, 7][t]^2 - 
    0.133496*Cos[14*\[Theta]]^2*Sin[(Pi*x)/200]*A[1, 14][t]*B[1, 7][t]^2 + 
    6.65901*Cos[(Pi*x)/200]*Cos[7*\[Theta]]^2*Sin[(Pi*x)/100]*A[1, 14][t]*
     B[1, 7][t]^2 - 0.0378415*Cos[(Pi*x)/200]*Cos[7*\[Theta]]*Cos[21*\[Theta]]*
     Sin[(Pi*x)/100]*A[1, 14][t]*B[1, 7][t]^2 - 
    0.266991*Sin[(Pi*x)/200]*Sin[7*\[Theta]]^2*A[1, 14][t]*B[1, 7][t]^2 + 
    8.32376*Cos[(Pi*x)/100]*Sin[(Pi*x)/200]*Sin[7*\[Theta]]^2*A[1, 14][t]*
     B[1, 7][t]^2 + 0.266991*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*Sin[21*\[Theta]]*
     A[1, 14][t]*B[1, 7][t]^2 - 0.040995*Cos[(Pi*x)/100]*Sin[(Pi*x)/200]*
     Sin[7*\[Theta]]*Sin[21*\[Theta]]*A[1, 14][t]*B[1, 7][t]^2 + 
    52.6477*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*B[1, 7][t]^3 - 
    52.6477*Cos[(Pi*x)/100]*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*B[1, 7][t]^3 - 
    0.133496*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*B[1, 7][t]^3 + 
    39.1352*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*B[1, 14][t] + 
    0.987777*Cos[(Pi*x)/100]*Sin[14*\[Theta]]*A[1, 0][t]*B[1, 14][t] - 
    3438.75*Sin[(Pi*x)/200]^2*Sin[14*\[Theta]]*A[1, 0][t]*B[1, 14][t] + 
    0.533983*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*A[1, 0][t]^2*B[1, 14][t] - 
    0.484011*Cos[(Pi*x)/100]*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*A[1, 0][t]^2*
     B[1, 14][t] + 13.5898*Cos[(Pi*x)/100]*Sin[7*\[Theta]]*A[1, 7][t]*
     B[1, 14][t] - 8.43363*Cos[(Pi*x)/200]^2*Cos[14*\[Theta]]*Sin[7*\[Theta]]*
     A[1, 7][t]*B[1, 14][t] - 10.542*Cos[7*\[Theta]]*Sin[(Pi*x)/200]^2*
     Sin[14*\[Theta]]*A[1, 7][t]*B[1, 14][t] + 0.0257425*Cos[(Pi*x)/100]*
     Sin[21*\[Theta]]*A[1, 7][t]*B[1, 14][t] + 0.266991*Sin[(Pi*x)/200]*
     Sin[7*\[Theta]]*A[1, 0][t]*A[1, 7][t]*B[1, 14][t] - 
    1.66475*Cos[(Pi*x)/100]*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*A[1, 0][t]*
     A[1, 7][t]*B[1, 14][t] + 3.92758*Cos[(Pi*x)/200]*Cos[14*\[Theta]]*
     Sin[(Pi*x)/100]*Sin[7*\[Theta]]*A[1, 0][t]*A[1, 7][t]*B[1, 14][t] + 
    1.06797*Cos[7*\[Theta]]*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*A[1, 0][t]*A[1, 7][t]*
     B[1, 14][t] - 7.25708*Cos[(Pi*x)/100]*Cos[7*\[Theta]]*Sin[(Pi*x)/200]*
     Sin[14*\[Theta]]*A[1, 0][t]*A[1, 7][t]*B[1, 14][t] + 
    0.266991*Sin[(Pi*x)/200]*Sin[21*\[Theta]]*A[1, 0][t]*A[1, 7][t]*
     B[1, 14][t] - 0.0283811*Cos[(Pi*x)/100]*Sin[(Pi*x)/200]*Sin[21*\[Theta]]*
     A[1, 0][t]*A[1, 7][t]*B[1, 14][t] + 0.266991*Cos[7*\[Theta]]*
     Sin[(Pi*x)/200]*Sin[7*\[Theta]]*A[1, 7][t]^2*B[1, 14][t] - 
    8.32376*Cos[(Pi*x)/100]*Cos[7*\[Theta]]*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*
     A[1, 7][t]^2*B[1, 14][t] + 6.65901*Cos[(Pi*x)/200]*Cos[7*\[Theta]]*
     Sin[(Pi*x)/100]*Sin[7*\[Theta]]*A[1, 7][t]^2*B[1, 14][t] + 
    0.0378415*Cos[(Pi*x)/200]*Cos[21*\[Theta]]*Sin[(Pi*x)/100]*Sin[7*\[Theta]]*
     A[1, 7][t]^2*B[1, 14][t] + 210.591*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*
     A[1, 7][t]^2*B[1, 14][t] - 210.591*Cos[(Pi*x)/100]*Sin[(Pi*x)/200]*
     Sin[14*\[Theta]]*A[1, 7][t]^2*B[1, 14][t] + 0.133496*Cos[14*\[Theta]]*
     Sin[(Pi*x)/200]*Sin[14*\[Theta]]*A[1, 7][t]^2*B[1, 14][t] + 
    0.266991*Cos[7*\[Theta]]*Sin[(Pi*x)/200]*Sin[21*\[Theta]]*A[1, 7][t]^2*
     B[1, 14][t] - 0.040995*Cos[(Pi*x)/100]*Cos[7*\[Theta]]*Sin[(Pi*x)/200]*
     Sin[21*\[Theta]]*A[1, 7][t]^2*B[1, 14][t] - 2.12567*Cos[(Pi*x)/200]^2*
     Cos[14*\[Theta]]*Sin[14*\[Theta]]*A[1, 14][t]*B[1, 14][t] - 
    2.12567*Cos[14*\[Theta]]*Sin[(Pi*x)/200]^2*Sin[14*\[Theta]]*A[1, 14][t]*
     B[1, 14][t] + 1.06797*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*
     A[1, 0][t]*A[1, 14][t]*B[1, 14][t] - 4.84011*Cos[(Pi*x)/100]*
     Cos[14*\[Theta]]*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*A[1, 0][t]*A[1, 14][t]*
     B[1, 14][t] + 3.87208*Cos[(Pi*x)/200]*Cos[14*\[Theta]]*Sin[(Pi*x)/100]*
     Sin[14*\[Theta]]*A[1, 0][t]*A[1, 14][t]*B[1, 14][t] + 
    0.266991*Sin[(Pi*x)/200]*Sin[28*\[Theta]]*A[1, 0][t]*A[1, 14][t]*
     B[1, 14][t] + 0.266991*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*
     A[1, 7][t]*A[1, 14][t]*B[1, 14][t] - 28.3008*Cos[(Pi*x)/100]*
     Cos[14*\[Theta]]*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*A[1, 7][t]*A[1, 14][t]*
     B[1, 14][t] + 13.318*Cos[(Pi*x)/200]*Cos[14*\[Theta]]*Sin[(Pi*x)/100]*
     Sin[7*\[Theta]]*A[1, 7][t]*A[1, 14][t]*B[1, 14][t] + 
    0.266991*Cos[7*\[Theta]]*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*A[1, 7][t]*
     A[1, 14][t]*B[1, 14][t] - 28.3008*Cos[(Pi*x)/100]*Cos[7*\[Theta]]*
     Sin[(Pi*x)/200]*Sin[14*\[Theta]]*A[1, 7][t]*A[1, 14][t]*B[1, 14][t] + 
    0.266991*Cos[21*\[Theta]]*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*A[1, 7][t]*
     A[1, 14][t]*B[1, 14][t] - 0.0788365*Cos[(Pi*x)/100]*Cos[21*\[Theta]]*
     Sin[(Pi*x)/200]*Sin[14*\[Theta]]*A[1, 7][t]*A[1, 14][t]*B[1, 14][t] + 
    13.318*Cos[(Pi*x)/200]*Cos[7*\[Theta]]*Sin[(Pi*x)/100]*Sin[14*\[Theta]]*
     A[1, 7][t]*A[1, 14][t]*B[1, 14][t] + 0.075683*Cos[(Pi*x)/200]*
     Cos[21*\[Theta]]*Sin[(Pi*x)/100]*Sin[14*\[Theta]]*A[1, 7][t]*A[1, 14][t]*
     B[1, 14][t] + 0.266991*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*Sin[21*\[Theta]]*
     A[1, 7][t]*A[1, 14][t]*B[1, 14][t] - 0.0788365*Cos[(Pi*x)/100]*
     Cos[14*\[Theta]]*Sin[(Pi*x)/200]*Sin[21*\[Theta]]*A[1, 7][t]*A[1, 14][t]*
     B[1, 14][t] + 0.075683*Cos[(Pi*x)/200]*Cos[14*\[Theta]]*Sin[(Pi*x)/100]*
     Sin[21*\[Theta]]*A[1, 7][t]*A[1, 14][t]*B[1, 14][t] + 
    0.266991*Cos[7*\[Theta]]*Sin[(Pi*x)/200]*Sin[28*\[Theta]]*A[1, 7][t]*
     A[1, 14][t]*B[1, 14][t] + 842.364*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*
     A[1, 14][t]^2*B[1, 14][t] - 842.364*Cos[(Pi*x)/100]*Sin[(Pi*x)/200]*
     Sin[14*\[Theta]]*A[1, 14][t]^2*B[1, 14][t] + 0.133496*Cos[28*\[Theta]]*
     Sin[(Pi*x)/200]*Sin[14*\[Theta]]*A[1, 14][t]^2*B[1, 14][t] + 
    0.266991*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*Sin[28*\[Theta]]*A[1, 14][t]^2*
     B[1, 14][t] + 13.5898*Cos[(Pi*x)/100]*Cos[7*\[Theta]]*B[1, 7][t]*
     B[1, 14][t] + 8.43363*Cos[(Pi*x)/200]^2*Cos[7*\[Theta]]*Cos[14*\[Theta]]*
     B[1, 7][t]*B[1, 14][t] - 0.0257425*Cos[(Pi*x)/100]*Cos[21*\[Theta]]*
     B[1, 7][t]*B[1, 14][t] - 10.542*Sin[(Pi*x)/200]^2*Sin[7*\[Theta]]*
     Sin[14*\[Theta]]*B[1, 7][t]*B[1, 14][t] + 0.266991*Cos[7*\[Theta]]*
     Sin[(Pi*x)/200]*A[1, 0][t]*B[1, 7][t]*B[1, 14][t] - 
    1.66475*Cos[(Pi*x)/100]*Cos[7*\[Theta]]*Sin[(Pi*x)/200]*A[1, 0][t]*
     B[1, 7][t]*B[1, 14][t] - 0.266991*Cos[21*\[Theta]]*Sin[(Pi*x)/200]*
     A[1, 0][t]*B[1, 7][t]*B[1, 14][t] + 0.0283811*Cos[(Pi*x)/100]*
     Cos[21*\[Theta]]*Sin[(Pi*x)/200]*A[1, 0][t]*B[1, 7][t]*B[1, 14][t] - 
    3.92758*Cos[(Pi*x)/200]*Cos[7*\[Theta]]*Cos[14*\[Theta]]*Sin[(Pi*x)/100]*
     A[1, 0][t]*B[1, 7][t]*B[1, 14][t] + 1.06797*Sin[(Pi*x)/200]*
     Sin[7*\[Theta]]*Sin[14*\[Theta]]*A[1, 0][t]*B[1, 7][t]*B[1, 14][t] - 
    7.25708*Cos[(Pi*x)/100]*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*Sin[14*\[Theta]]*
     A[1, 0][t]*B[1, 7][t]*B[1, 14][t] + 0.266991*Cos[7*\[Theta]]^2*
     Sin[(Pi*x)/200]*A[1, 7][t]*B[1, 7][t]*B[1, 14][t] - 
    8.32376*Cos[(Pi*x)/100]*Cos[7*\[Theta]]^2*Sin[(Pi*x)/200]*A[1, 7][t]*
     B[1, 7][t]*B[1, 14][t] - 0.266991*Cos[7*\[Theta]]*Cos[21*\[Theta]]*
     Sin[(Pi*x)/200]*A[1, 7][t]*B[1, 7][t]*B[1, 14][t] + 
    0.040995*Cos[(Pi*x)/100]*Cos[7*\[Theta]]*Cos[21*\[Theta]]*Sin[(Pi*x)/200]*
     A[1, 7][t]*B[1, 7][t]*B[1, 14][t] - 6.65901*Cos[(Pi*x)/200]*
     Cos[7*\[Theta]]^2*Sin[(Pi*x)/100]*A[1, 7][t]*B[1, 7][t]*B[1, 14][t] - 
    0.0378415*Cos[(Pi*x)/200]*Cos[7*\[Theta]]*Cos[21*\[Theta]]*Sin[(Pi*x)/100]*
     A[1, 7][t]*B[1, 7][t]*B[1, 14][t] + 0.266991*Sin[(Pi*x)/200]*
     Sin[7*\[Theta]]^2*A[1, 7][t]*B[1, 7][t]*B[1, 14][t] - 
    8.32376*Cos[(Pi*x)/100]*Sin[(Pi*x)/200]*Sin[7*\[Theta]]^2*A[1, 7][t]*
     B[1, 7][t]*B[1, 14][t] - 6.65901*Cos[(Pi*x)/200]*Sin[(Pi*x)/100]*
     Sin[7*\[Theta]]^2*A[1, 7][t]*B[1, 7][t]*B[1, 14][t] + 
    0.266991*Sin[(Pi*x)/200]*Sin[14*\[Theta]]^2*A[1, 7][t]*B[1, 7][t]*
     B[1, 14][t] + 0.266991*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*Sin[21*\[Theta]]*
     A[1, 7][t]*B[1, 7][t]*B[1, 14][t] - 0.040995*Cos[(Pi*x)/100]*
     Sin[(Pi*x)/200]*Sin[7*\[Theta]]*Sin[21*\[Theta]]*A[1, 7][t]*B[1, 7][t]*
     B[1, 14][t] + 0.0378415*Cos[(Pi*x)/200]*Sin[(Pi*x)/100]*Sin[7*\[Theta]]*
     Sin[21*\[Theta]]*A[1, 7][t]*B[1, 7][t]*B[1, 14][t] + 
    0.266991*Cos[7*\[Theta]]*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*A[1, 14][t]*
     B[1, 7][t]*B[1, 14][t] - 28.3008*Cos[(Pi*x)/100]*Cos[7*\[Theta]]*
     Cos[14*\[Theta]]*Sin[(Pi*x)/200]*A[1, 14][t]*B[1, 7][t]*B[1, 14][t] - 
    0.266991*Cos[14*\[Theta]]*Cos[21*\[Theta]]*Sin[(Pi*x)/200]*A[1, 14][t]*
     B[1, 7][t]*B[1, 14][t] + 0.0788365*Cos[(Pi*x)/100]*Cos[14*\[Theta]]*
     Cos[21*\[Theta]]*Sin[(Pi*x)/200]*A[1, 14][t]*B[1, 7][t]*B[1, 14][t] + 
    13.318*Cos[(Pi*x)/200]*Cos[7*\[Theta]]*Cos[14*\[Theta]]*Sin[(Pi*x)/100]*
     A[1, 14][t]*B[1, 7][t]*B[1, 14][t] - 0.075683*Cos[(Pi*x)/200]*
     Cos[14*\[Theta]]*Cos[21*\[Theta]]*Sin[(Pi*x)/100]*A[1, 14][t]*B[1, 7][t]*
     B[1, 14][t] - 0.266991*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*Sin[14*\[Theta]]*
     A[1, 14][t]*B[1, 7][t]*B[1, 14][t] + 28.3008*Cos[(Pi*x)/100]*
     Sin[(Pi*x)/200]*Sin[7*\[Theta]]*Sin[14*\[Theta]]*A[1, 14][t]*B[1, 7][t]*
     B[1, 14][t] - 13.318*Cos[(Pi*x)/200]*Sin[(Pi*x)/100]*Sin[7*\[Theta]]*
     Sin[14*\[Theta]]*A[1, 14][t]*B[1, 7][t]*B[1, 14][t] + 
    0.266991*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*Sin[21*\[Theta]]*A[1, 14][t]*
     B[1, 7][t]*B[1, 14][t] - 0.0788365*Cos[(Pi*x)/100]*Sin[(Pi*x)/200]*
     Sin[14*\[Theta]]*Sin[21*\[Theta]]*A[1, 14][t]*B[1, 7][t]*B[1, 14][t] + 
    0.075683*Cos[(Pi*x)/200]*Sin[(Pi*x)/100]*Sin[14*\[Theta]]*Sin[21*\[Theta]]*
     A[1, 14][t]*B[1, 7][t]*B[1, 14][t] + 0.266991*Sin[(Pi*x)/200]*
     Sin[7*\[Theta]]*Sin[28*\[Theta]]*A[1, 14][t]*B[1, 7][t]*B[1, 14][t] + 
    0.266991*Cos[7*\[Theta]]*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*B[1, 7][t]^2*
     B[1, 14][t] - 8.32376*Cos[(Pi*x)/100]*Cos[7*\[Theta]]*Sin[(Pi*x)/200]*
     Sin[7*\[Theta]]*B[1, 7][t]^2*B[1, 14][t] - 0.266991*Cos[21*\[Theta]]*
     Sin[(Pi*x)/200]*Sin[7*\[Theta]]*B[1, 7][t]^2*B[1, 14][t] + 
    0.040995*Cos[(Pi*x)/100]*Cos[21*\[Theta]]*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*
     B[1, 7][t]^2*B[1, 14][t] + 6.65901*Cos[(Pi*x)/200]*Cos[7*\[Theta]]*
     Sin[(Pi*x)/100]*Sin[7*\[Theta]]*B[1, 7][t]^2*B[1, 14][t] + 
    210.591*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*B[1, 7][t]^2*B[1, 14][t] - 
    210.591*Cos[(Pi*x)/100]*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*B[1, 7][t]^2*
     B[1, 14][t] - 0.133496*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*
     B[1, 7][t]^2*B[1, 14][t] - 0.0378415*Cos[(Pi*x)/200]*Cos[7*\[Theta]]*
     Sin[(Pi*x)/100]*Sin[21*\[Theta]]*B[1, 7][t]^2*B[1, 14][t] - 
    429.778*B[1, 14][t]^2 + 429.778*Cos[(Pi*x)/100]*B[1, 14][t]^2 + 
    1.06283*Cos[(Pi*x)/200]^2*Cos[14*\[Theta]]^2*B[1, 14][t]^2 - 
    1.06283*Sin[(Pi*x)/200]^2*Sin[14*\[Theta]]^2*B[1, 14][t]^2 - 
    0.133496*Cos[28*\[Theta]]*Sin[(Pi*x)/200]*A[1, 0][t]*B[1, 14][t]^2 - 
    1.93604*Cos[(Pi*x)/200]*Cos[14*\[Theta]]^2*Sin[(Pi*x)/100]*A[1, 0][t]*
     B[1, 14][t]^2 + 0.533983*Sin[(Pi*x)/200]*Sin[14*\[Theta]]^2*A[1, 0][t]*
     B[1, 14][t]^2 - 2.42005*Cos[(Pi*x)/100]*Sin[(Pi*x)/200]*
     Sin[14*\[Theta]]^2*A[1, 0][t]*B[1, 14][t]^2 + 210.591*Cos[7*\[Theta]]*
     Sin[(Pi*x)/200]*A[1, 7][t]*B[1, 14][t]^2 - 
    210.591*Cos[(Pi*x)/100]*Cos[7*\[Theta]]*Sin[(Pi*x)/200]*A[1, 7][t]*
     B[1, 14][t]^2 - 0.133496*Cos[7*\[Theta]]*Cos[28*\[Theta]]*Sin[(Pi*x)/200]*
     A[1, 7][t]*B[1, 14][t]^2 - 13.318*Cos[(Pi*x)/200]*Cos[7*\[Theta]]*
     Cos[14*\[Theta]]*Sin[(Pi*x)/100]*A[1, 7][t]*B[1, 14][t]^2 - 
    0.075683*Cos[(Pi*x)/200]*Cos[14*\[Theta]]*Cos[21*\[Theta]]*Sin[(Pi*x)/100]*
     A[1, 7][t]*B[1, 14][t]^2 + 0.266991*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*
     Sin[14*\[Theta]]*A[1, 7][t]*B[1, 14][t]^2 - 28.3008*Cos[(Pi*x)/100]*
     Sin[(Pi*x)/200]*Sin[7*\[Theta]]*Sin[14*\[Theta]]*A[1, 7][t]*B[1, 14][t]^2 + 
    0.266991*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*Sin[21*\[Theta]]*A[1, 7][t]*
     B[1, 14][t]^2 - 0.0788365*Cos[(Pi*x)/100]*Sin[(Pi*x)/200]*
     Sin[14*\[Theta]]*Sin[21*\[Theta]]*A[1, 7][t]*B[1, 14][t]^2 + 
    842.364*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*A[1, 14][t]*B[1, 14][t]^2 - 
    842.364*Cos[(Pi*x)/100]*Cos[14*\[Theta]]*Sin[(Pi*x)/200]*A[1, 14][t]*
     B[1, 14][t]^2 - 0.133496*Cos[14*\[Theta]]*Cos[28*\[Theta]]*Sin[(Pi*x)/200]*
     A[1, 14][t]*B[1, 14][t]^2 + 0.266991*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*
     Sin[28*\[Theta]]*A[1, 14][t]*B[1, 14][t]^2 + 210.591*Sin[(Pi*x)/200]*
     Sin[7*\[Theta]]*B[1, 7][t]*B[1, 14][t]^2 - 210.591*Cos[(Pi*x)/100]*
     Sin[(Pi*x)/200]*Sin[7*\[Theta]]*B[1, 7][t]*B[1, 14][t]^2 - 
    0.133496*Cos[28*\[Theta]]*Sin[(Pi*x)/200]*Sin[7*\[Theta]]*B[1, 7][t]*
     B[1, 14][t]^2 + 13.318*Cos[(Pi*x)/200]*Cos[14*\[Theta]]*Sin[(Pi*x)/100]*
     Sin[7*\[Theta]]*B[1, 7][t]*B[1, 14][t]^2 + 0.266991*Cos[7*\[Theta]]*
     Sin[(Pi*x)/200]*Sin[14*\[Theta]]*B[1, 7][t]*B[1, 14][t]^2 - 
    28.3008*Cos[(Pi*x)/100]*Cos[7*\[Theta]]*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*
     B[1, 7][t]*B[1, 14][t]^2 - 0.266991*Cos[21*\[Theta]]*Sin[(Pi*x)/200]*
     Sin[14*\[Theta]]*B[1, 7][t]*B[1, 14][t]^2 + 0.0788365*Cos[(Pi*x)/100]*
     Cos[21*\[Theta]]*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*B[1, 7][t]*B[1, 14][t]^2 - 
    0.075683*Cos[(Pi*x)/200]*Cos[14*\[Theta]]*Sin[(Pi*x)/100]*Sin[21*\[Theta]]*
     B[1, 7][t]*B[1, 14][t]^2 + 842.364*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*
     B[1, 14][t]^3 - 842.364*Cos[(Pi*x)/100]*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*
     B[1, 14][t]^3 - 0.133496*Cos[28*\[Theta]]*Sin[(Pi*x)/200]*Sin[14*\[Theta]]*
     B[1, 14][t]^3 + ((6.90612*Sin[(Pi*x)/200])/10^7)*
     Derivative[2][A[1, 0]][t] + ((6.90612*Cos[7*\[Theta]]*Sin[(Pi*x)/200])/
      10^7)*Derivative[2][A[1, 7]][t] + 
    ((6.90612*Cos[14*\[Theta]]*Sin[(Pi*x)/200])/10^7)*Derivative[2][A[1, 14]][
      t] + ((6.90612*Sin[(Pi*x)/200]*Sin[7*\[Theta]])/10^7)*
     Derivative[2][B[1, 7]][t] + ((6.90612*Sin[(Pi*x)/200]*Sin[14*\[Theta]])/
      10^7)*Derivative[2][B[1, 14]][t]; 

次に:

    With[{L = 200}, 
  Print[AbsoluteTiming[r1 = ExpandAll[Chop[Integrate[Resi*Cos[7*1*\[Theta]]*Sin[(1*Pi*x)/L], {\[Theta], 0, 2*Pi}, 
         {x, 0, L}], 10^(-6)]]]]; 
   Print[AbsoluteTiming[r2 = ExpandAll[Chop[Integrate[Resi*Cos[7*1*\[Theta]]*Sin[(1*Pi*x)/L], {x, 0, L}, 
         {\[Theta], 0, 2*Pi}], 10^(-6)]]]]; r1 === r2]

yodaを確認します:

    {36.7641028, 
 2087.69 A[1, 7][t] - 230144. A[1, 0][t] A[1, 7][t] + 
  225.867 A[1, 0][t]^2 A[1, 7][t] + 24830.6 A[1, 7][t]^3 - 
  2655.33 A[1, 7][t] A[1, 14][t] + 
  774.631 A[1, 0][t] A[1, 7][t] A[1, 14][t] + 
  100500. A[1, 7][t] A[1, 14][t]^2 + 
  24830.6 A[1, 7][t] B[1, 7][t]^2 - 2655.33 B[1, 7][t] B[1, 14][t] + 
  774.631 A[1, 0][t] B[1, 7][t] B[1, 14][t] + 
  100500. A[1, 7][t] B[1, 14][t]^2 + 
  0.000216962 (A[1, 7]^\[Prime]\[Prime])[t]}

{23.8343632, 
 2087.69 A[1, 7][t] - 230144. A[1, 0][t] A[1, 7][t] + 
  225.867 A[1, 0][t]^2 A[1, 7][t] + 24830.6 A[1, 7][t]^3 - 
  2655.33 A[1, 7][t] A[1, 14][t] + 
  774.631 A[1, 0][t] A[1, 7][t] A[1, 14][t] + 
  100500. A[1, 7][t] A[1, 14][t]^2 + 
  24830.6 A[1, 7][t] B[1, 7][t]^2 - 2655.33 B[1, 7][t] B[1, 14][t] + 
  774.631 A[1, 0][t] B[1, 7][t] B[1, 14][t] + 
  100500. A[1, 7][t] B[1, 14][t]^2 + 
  0.000216962 (A[1, 7]^\[Prime]\[Prime])[t]}

もちろん、これは本当に遅すぎます。ですから、もし被積分関数を少しずつ並べ替えることによって積分するのを助けたら、 あなたは物事をかなりスピードアップすることができます:

    With[{L = 200}, 
  Print[AbsoluteTiming[rint0 = Expand[Collect[Expand[Resi*Cos[7*\[Theta]]*Sin[(Pi*x)/L], x] /. 
           p_Times /;  !FreeQ[p, x] :> Hold[Integrate][Select[p,  !FreeQ[#1, x] & ], {x, 0, L}]*
             Select[p, FreeQ[#1, x] & ], Hold[Integrate][_, _]] /. Hold[Integrate] -> Integrate, \[Theta]]; 
      rint1 = Chop[Expand[Collect[rint0 /. p_Times /;  !FreeQ[p, \[Theta]] :> Hold[Integrate][Select[p, 
                 !FreeQ[#1, \[Theta]] & ], {\[Theta], 0, 2*Pi}]*Select[p, FreeQ[#1, \[Theta]] & ], 
           Hold[Integrate][_, _]] /. Hold[Integrate] -> Integrate], 1/10^6]]]; 
   Print[AbsoluteTiming[tint1 = Expand[Collect[Expand[Resi*Cos[7*\[Theta]]*Sin[(Pi*x)/L], \[Theta]] /. 
           p_Times /;  !FreeQ[p, \[Theta]] :> Hold[Integrate][Select[p,  !FreeQ[#1, \[Theta]] & ], {\[Theta], 0, 2*Pi}]*
             Select[p, FreeQ[#1, \[Theta]] & ], Hold[Integrate][_, _]] /. Hold[Integrate] -> Integrate]; 
      tint2 = Chop[Expand[Collect[tint1 /. p_Times /;  !FreeQ[p, x] :> Hold[Integrate][Select[p, 
                 !FreeQ[#1, x] & ], {x, 0, L}]*Select[p, FreeQ[#1, x] & ], Hold[Integrate][_, _]] /. 
          Hold[Integrate] -> Integrate], 1/10^6]]]; Chop[rint1 - tint2, 1/10^6]]

その結果

    {1.5800904,2087.69 A[1,7][t]-230144. A[1,0][t] A[1,7][t]+225.867 A[1,0][t]^2 A[1,7][t]+24830.6 A[1,7][t]^3-2655.33 A[1,7][t] A[1,14][t]+774.631 A[1,0][t] A[1,7][t] A[1,14][t]+100500. A[1,7][t] A[1,14][t]^2+24830.6 A[1,7][t] B[1,7][t]^2-2655.33 B[1,7][t] B[1,14][t]+774.631 A[1,0][t] B[1,7][t] B[1,14][t]+100500. A[1,7][t] B[1,14][t]^2+0.000216962 (A[1,7]^\[Prime]\[Prime])[t]}

{1.5820904,2087.69 A[1,7][t]-230144. A[1,0][t] A[1,7][t]+225.867 A[1,0][t]^2 A[1,7][t]+24830.6 A[1,7][t]^3-2655.33 A[1,7][t] A[1,14][t]+774.631 A[1,0][t] A[1,7][t] A[1,14][t]+100500. A[1,7][t] A[1,14][t]^2+24830.6 A[1,7][t] B[1,7][t]^2-2655.33 B[1,7][t] B[1,14][t]+774.631 A[1,0][t] B[1,7][t] B[1,14][t]+100500. A[1,7][t] B[1,14][t]^2+0.000216962 (A[1,7]^\[Prime]\[Prime])[t]}
7
追加された
@ハミート:あなたは大歓迎です。私は物理学の分野で活躍していた時に多くの積分をしなければならなかったので、私はあなたの痛みを理解しています。ここでの考え方は、基本積分を集めることです。私はここでパターンマッチングを行い、次にCollectを使用します。しかし、もともと、私はその種のアルゴリズムをここでコーディングしました: feyncalc.org/FeynCalcBook/Collect2
追加された 著者 Rolf Mertig,
OK。このコメントはMathematicaのコードをコピーするのには本当に適していません...そして私は5分以上編集することができません(なぜ?)私はここで言及しますが、もちろんHold [Integrate] [、_]とHold [Integrate] []、Hold [Integrate] [、_]
追加された 著者 Rolf Mertig,
tint1 = Cos [0] * Sin [(Pi x)/ L]、\ [θ] /を収束させる。 p_Times /; !FreeQ [p、\ [Theta]]:> [Integrate]をホールド[[p、! FreeQ [#、\ [Theta]&] /。 [p、FreeQ [#、\ [Theta]&]、Hold [Integrate] []、 _]] /。ホールド[積分] - >積分]; tint2 =チョップ[展開[収集[tint1 /。 p_Times /; ! FreeQ [p、x]:>ホールド[積分] [[p、! [p、FreeQ [#1、x]&]、Hold [Integrate] [、_]] /を選択します。 [積分]→[積分]、1/10 ^ 6]
追加された 著者 Rolf Mertig,
さて、最後にもう一度やってみてください。しかし、あなたは本当にあなたの修士論文のための仕事をするべきです:
追加された 著者 Rolf Mertig,
@Harmeet:Mathematica 8へのアップグレードを試してみてください。これは本当に良いです。
追加された 著者 Rolf Mertig,
@ハミート:あなたがさらに時間を節約したいなら、あなたは自分自身で基本積分を表にすることができます。私はFeynCalcで feyncalc.org/FeynCalcBook/Integrate3 feyncalc.org/FeynCalcBook/Integrate2
追加された 著者 Rolf Mertig,
+1あなたのFeynCalcBookへのリンク - 私はそれを数年前に読んで、それから多くを学びました。
追加された 著者 Simon,
ねえ、Rolf .....問題はまだ残っています...私はMathematica 7を使っています。あなたが投稿した上記のコードを使って得られた出力は次のとおりです。私は愚かなことを知っていますが、する。しかし、あなたがスピードを上げるために与えたコードはすごくうまくいっています... !!それは私の問題を大いに解決します... !!!それは本当にありがとう.. !!!
追加された 著者 user1099153,
ロルフさん、あなたは神様です... !!!今すぐ走るのに16時間かかったプログラムは数分かかります...... !!!!!どのくらいあなたが私を助けてくれたかわからない... !!!私のM.S全体論文はそれに依存する... !!!どうもありがとうございます...!!!
追加された 著者 user1099153,
Rolf ...もっと速い統合のために提案したコードを説明するだけでいいですか、あるいは私があなたが提供したこのコードの意味をどこから得ることができるかを教えてください。 .. !!!
追加された 著者 user1099153,
@Rolf:「Resi」には「theta」と「x」から独立した用語があります。私のプログラムでは、ResiをCos [0] * Sin [Pi * x/L]と統合する必要もあります。私がそれをするとき、 'theta'を持たない言葉は 'theta'の上に統合されません。(そして 'x'から独立した用語は 'x'の上に統合されません。 A [1,0] [t]、A [1,7] [t] ^ 2、A [1,14] ^ 2、Bのような係数である[1,7] [t] ^ 2、B [1,14] [t] ^ 2、A [1,0] [t]の二乗微分である。その結果、このような項の係数は間違ってくる。 助けてください...!!!
追加された 著者 user1099153,
@ RolfMertig:お元気です....返事をする....私は助けが必要です... !!!
追加された 著者 user1099153,
@RolfMertig:もう一度教えてくれてありがとうございました....実際、Matlabが統合のために取った時間が長いので、MatlabからMathematicaに最近切り替えました。私はmathematicaには新しく、実際はあまり知らない.....私は確かにこの言語を学ばなければならない... !!!これは非常に強力なツールです.. !!
追加された 著者 user1099153,
@RolfMertig:先生、あなたのコードは正常に動作していますが、速度が落ちました!
追加された 著者 user1099153,