数学建模社区-数学中国

标题: 怎么在matlab工具箱倒出神经网络系数 [打印本页]
作者: 琳123    时间: 2013-7-29 20:37
标题: 怎么在matlab工具箱倒出神经网络系数
怎么在matlab工具箱倒出神经网络系数？任何一种都可以，谢谢大家啦
作者: 兰秋小沫    时间: 2013-7-29 22:18
帮忙顶，等高手。
作者: 涳夢    时间: 2013-7-30 20:31
神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
作者: 冰E柠檬    时间: 2013-7-30 20:45
同问上一楼的观点。
作者: 百年孤独    时间: 2013-7-30 20:56
问题完善一下！或者把代码贴上！
& t8 G. Y0 r+ ~! W! e1 g9 |6 ?, ?
作者: 琳123    时间: 2013-8-24 13:13
涳夢 发表于 2013-7-30 20:31 9 D4 J0 ^) K! G( W! |7 c0 Y. Z. o
神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
) r5 D' D% ~, B
(* Content-type: application/mathematica *)+ {1 b* K- [5 ]$ x, I

4 n% c' ~; V1 g7 C. b(*** Wolfram Notebook File ***); g" s; B% I( c0 `9 q) Y
(* http://www.wolfram.com/nb *)
# o% [- O4 v9 q. v. z3 h) p- q4 N3 b% a4 H1 i7 x' \) T0 a
(* CreatedBy='Mathematica 7.0' *)' g( [5 m4 Q0 A# f3 B' W

. [  _8 @" r* \3 P& [: p(*CacheID: 234*)9 h( g: g, f* A" e
(* Internal cache information:
9 [0 Z/ X/ q: S" j8 T& \" G4 _NotebookFileLineBreakTest
+ C" X9 d5 w/ C3 s' ANotebookFileLineBreakTest
; R" F; \0 D! |/ b$ u" J: J3 wNotebookDataPosition[       145,          7]7 @0 ?2 {7 p& e" K- I( M
NotebookDataLength[    423629,      11534]0 J& L& |& [- F9 }3 T" B
NotebookOptionsPosition[    412607,      11173]
  ]( h% L* x+ @7 ~" _, tNotebookOutlinePosition[    412953,      11188]) L! X3 \1 U, q6 d
CellTagsIndexPosition[    412910,      11185]
& r: y  b3 {' J2 o" N* ~WindowFrame->Normal*)+ z3 [9 ^- ?* d4 w( y

# F3 M& [8 }; i" t! u0 D1 K: q(* Beginning of Notebook Content *)
, B! W- ~8 q$ K# e+ ?Notebook[{- D. d$ t7 }' |) c& G
& e. Z' `/ Y, O8 v& w8 L
Cell[CellGroupData[{
1 t$ D8 T3 o/ {* lCell[BoxData[. v% c9 Q" b2 t: W. T1 w5 P
RowBox[{"Data", "=",
4 m( _6 m6 k$ f  RowBox[{"{", ; \, p: b4 _) c' x' [7 q4 s
   RowBox[{- F& {9 \6 E: A# t$ w& b' A/ p
    RowBox[{"{", 5 Q: z7 A. i. g0 \; z6 F- m* _
     RowBox[{
7 K5 A5 a, t9 Q, s0 Q6 Y: b     "0.304348", ",", "0.552818", ",", "0.330370", ",", "0.025823", ",", " }) p5 w# V. E( K/ P
      "0.538462", ",", "0.752072", ",", "0.408943", ",", "0.504532", ",", 0 N% K/ a1 U3 Y) G/ B
      "0.000000", ",", "0.277091", ",", "0.873239"}], "}"}], ",", " ", ( `' Q4 ]: x6 W5 s0 j3 ~
    RowBox[{"{",
9 s& D/ v' \- a* W4 v% q     RowBox[{
) r4 @* U/ [( B0 `. g& E     "0.565217", ",", "0.346857", ",", "0.393585", ",", "0.118785", ",",
& v$ G. F$ ]$ i, Q. Z- X$ y      "0.349650", ",", "0.370761", ",", "0.413008", ",", "0.502518", ",",
9 R  r/ q+ e0 W0 |+ f      "0.000000", ",", "0.220259", ",", "0.464789"}], "}"}], ",", " ", % v6 e8 c0 p' h9 r7 `4 p/ x
    RowBox[{"{", 2 [$ M. b  s; p1 d8 |( m% a) R3 [
     RowBox[{( V7 C& F2 O' I0 G, j& E3 f4 M. U
     "0.608696", ",", "0.339186", ",", "0.494300", ",", "0.099338", ",",
0 r$ u# x: ~3 {( |9 F      "0.321678", ",", "0.375283", ",", "0.000000", ",", "0.505539", ",", / x2 R- z# M+ f
      "0.000000", ",", "0.899882", ",", "0.492958"}], "}"}], ",", " ", 9 A6 I( U- K# I! s& _$ X
    RowBox[{"{",
6 r/ z9 t7 m7 v     RowBox[{! S. ~+ a  Z9 ?. E) ~
     "0.521739", ",", "0.334022", ",", "0.355500", ",", "0.025156", ",", 0 W8 Y# T, d: z4 y* `3 w7 l+ ~) v+ x* |
      "0.489510", ",", "0.376790", ",", "0.411382", ",", "0.000000", ",",
5 [: }; K! b0 E( F& \      "0.000000", ",", "0.265607", ",", "0.774648"}], "}"}], ",", " ", . F- X' z/ `2 g
    RowBox[{"{",
/ i3 N, P' U( O3 o$ ^0 ]     RowBox[{6 h: W& e( [! Q2 h) p+ ?
     "0.565217", ",", "0.346931", ",", "0.218229", ",", "0.043639", ",",
) d9 f# B. B7 q      "0.503497", ",", "0.761115", ",", "0.415447", ",", "0.503525", ",",
& Q2 F' R" x2 E) f  l      "0.000000", ",", "0.642226", ",", "0.380282"}], "}"}], ",", " ",
* N- H$ _" R9 ^- r: B    RowBox[{"{",
" O% R, h3 e9 i) k" a' n     RowBox[{4 Q) Y2 r4 S1 B  h7 |( H
     "0.478261", ",", "0.293154", ",", "0.259368", ",", "0.026688", ",", ) v2 O" F" n' N, Z/ U) Z
      "0.587413", ",", "0.755840", ",", "0.409756", ",", "0.498489", ",", $ }- A7 J% n0 T- q+ a) ?
      "0.000000", ",", "0.306243", ",", "0.647887"}], "}"}], ",", " ",
( k6 e' r9 n8 B- d/ m6 f    RowBox[{"{", 6 X0 W" |$ s; `- Z, V  I! t3 p
     RowBox[{
! i7 ^( W( n* G8 h     "0.347826", ",", "0.359693", ",", "0.614393", ",", "0.081521", ",",
0 }- m; S! s! Q/ E. `      "0.258741", ",", "0.367747", ",", "0.410569", ",", "0.499496", ",",
( y" J+ h( {% l2 K      "0.000000", ",", "0.186985", ",", "0.563380"}], "}"}], ",", " ", " L' y3 c7 }+ l( l' j( B' ~1 k
    RowBox[{"{",
  \) z1 {* ?2 p3 ?6 _' h' ?     RowBox[{
8 `9 s7 n! F3 l     "0.565217", ",", "0.705518", ",", "0.510223", ",", "0.066892", ",", , v, |! R2 ]2 n& z" U5 A8 I
      "0.244755", ",", "0.748304", ",", "0.000000", ",", "0.000000", ",", . N0 m! h5 r* x
      "0.243032", ",", "0.175501", ",", "0.295775"}], "}"}], ",", " ", * O1 q$ l2 f8 r$ ~, ?4 A
    RowBox[{"{", 4 p1 H$ Z  m+ j& N9 Y" R2 @4 p
     RowBox[{
, x% s& w! t) X     "0.565217", ",", "0.710460", ",", "0.649730", ",", "0.119897", ",", $ @/ T, x$ p, R/ R/ M
      "0.468531", ",", "0.000000", ",", "0.636585", ",", "0.000000", ",",
& S2 B/ W2 o. X% p' e* r      "0.766748", ",", "0.147821", ",", "0.338028"}], "}"}], ",", " ", * C: f/ s& L) r! |) M, A
    RowBox[{"{", 7 _3 h7 m3 X& t0 `; S. ]7 L# v
     RowBox[{( q: U6 ~+ {/ T, v
     "0.565217", ",", "0.697772", ",", "0.171587", ",", "0.028566", ",", 6 z( b! b' E) V2 _% C8 K, p
      "0.363636", ",", "0.449887", ",", "0.408130", ",", "0.000000", ",",
2 [* u2 j7 X; A8 h! |9 u. i      "0.000000", ",", "0.352768", ",", "0.211268"}], "}"}], ",", " ", 6 I% L  U! @2 r/ H9 A+ Y
    RowBox[{"{",
7 m! s2 x( K  A5 @     RowBox[{
9 a& E, o6 p4 R% o5 ^( W7 x4 k     "0.282609", ",", "0.660888", ",", "0.460064", ",", "0.110334", ",", % f6 s! A. `$ R; r7 t' w
      "0.475524", ",", "0.000000", ",", "0.545528", ",", "0.000000", ",",
1 J- X) q+ M: t' M+ a      "0.551100", ",", "0.238810", ",", "0.690141"}], "}"}], ",", " ",   p5 m9 o; k6 n+ p4 p
    RowBox[{"{",
$ K4 q# w1 f: w: z     RowBox[{, R2 Y* |, l3 g1 v, X0 @
     "0.130435", ",", "0.682724", ",", "0.258697", ",", "0.019299", ",", ! R( |% Y2 Q; e/ O, X: X2 j
      "0.510490", ",", "0.420497", ",", "0.535772", ",", "0.000000", ",", 1 i2 z4 U# ^9 h: q) h
      "0.494866", ",", "0.095701", ",", "0.436620"}], "}"}], ",", " ",
0 ]3 N- K. M  X  r0 z    RowBox[{"{",
6 I" q! {( A. ]: }* C& S     RowBox[{8 H# M6 \+ B. G. ^
     "0.347826", ",", "0.697772", ",", "0.108288", ",", "0.022413", ",", " m! J0 H* u! a( ?
      "0.356643", ",", "0.247928", ",", "0.908130", ",", "0.000000", ",",
5 {4 g4 w0 V4 v      "0.383374", ",", "0.162839", ",", "0.000000"}], "}"}], ",", " ", ! z- F9 w. }# B# _! P
    RowBox[{"{", & O2 ?& {3 N: X; T: @1 Y1 q
     RowBox[{$ {* D2 W7 b  _
     "0.695652", ",", "0.718280", ",", "0.339730", ",", "0.110285", ",",
2 N' o( h, `% U8 X2 D      "0.335664", ",", "0.000000", ",", "0.636585", ",", "0.780463", ",", ! s, S# a& [7 c6 n! D( h) @
      "0.000000", ",", "0.335395", ",", "0.267606"}], "}"}], ",", " ",
" o0 A8 E( Y" X" {& f    RowBox[{"{", ! g  d0 R) Z* `3 y
     RowBox[{
, L* N( L0 a  c* T* f5 w$ V     "0.652174", ",", "0.569711", ",", "0.414297", ",", "0.175398", ",",
# u# k1 C  O9 g, \, ?( ~1 G      "0.167832", ",", "0.000000", ",", "0.544715", ",", "0.000000", ",", 2 q9 r( F: h0 M6 w
      "0.000000", ",", "0.160483", ",", "0.211268"}], "}"}], ",", " ",
( v: [. J2 q4 x1 ~, w    RowBox[{"{",
! W& P, p6 @" o     RowBox[{
1 K5 ?. ?/ v1 k     "0.000000", ",", "0.395544", ",", "0.027011", ",", "0.048087", ",",
" D# C; J% n+ E" U      "0.496503", ",", "0.000000", ",", "0.452033", ",", "0.000000", ",",
  I7 \5 @9 @& k+ G      "0.278729", ",", "0.398115", ",", "0.408451"}], "}"}], ",", " ", 0 [' [/ H3 p, [5 I. c7 O
    RowBox[{"{", ( J# O* x0 I  q9 Y4 h7 i
     RowBox[{
9 P- X5 H3 p9 B     "0.608696", ",", "0.425199", ",", "0.012979", ",", "0.000000", ",",
: z: Q/ N: D8 a) g9 B      "0.482517", ",", "0.509420", ",", "0.406504", ",", "0.000000", ",",
' _! Q1 A+ Q4 @. x' y$ w, ^      "0.000000", ",", "0.157833", ",", "0.478873"}], "}"}], ",", " ", 5 |" e! v& ~: Q9 r# E" d, N
    RowBox[{"{", $ y/ z6 u5 ^  ^" r2 ~0 Z( I
     RowBox[{
7 P0 D* D9 F1 F- K9 T8 z9 T     "0.608696", ",", "0.577973", ",", "0.213587", ",", "0.030889", ",", . E& J8 W) O1 a
      "0.370629", ",", "0.000000", ",", "0.452846", ",", "0.000000", ",", ( I9 t/ M( p: G9 m7 ?0 m
      "0.000000", ",", "0.315665", ",", "0.380282"}], "}"}], ",", " ",
; J) U- V9 O' O$ A    RowBox[{"{", 4 Z9 e' f& o) w9 n4 `
     RowBox[{7 f2 _' y  e* u7 E  t5 }3 E
     "0.565217", ",", "0.572293", ",", "0.655012", ",", "0.281852", ",",
9 T. z( g: q8 K2 K- ~5 f      "0.000000", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
) R$ g/ C- P! ?6 l+ k      "0.000000", ",", "0.492344", ",", "0.211268"}], "}"}], ",", " ",
. d! R- O7 e- ~2 Z& i    RowBox[{"{",
  {9 r4 V# M" S% f5 b& y$ |     RowBox[{
2 M! J" c9 K2 ^     "0.130435", ",", "0.562039", ",", "0.331662", ",", "0.032643", ",", 4 U. h) @* [7 r+ i4 k; A
      "0.314685", ",", "0.414469", ",", "0.275610", ",", "0.000000", ",",
7 r* n5 }1 h4 D1 g$ t: K0 R      "0.000000", ",", "0.638398", ",", "0.436620"}], "}"}], ",", " ", 7 w" g9 V: n2 n8 t/ g# ~  U- ^: \. m& \: Y
    RowBox[{"{", " V( H9 |" z6 D# g8 P
     RowBox[{
1 h( t8 }6 E. g4 c$ O0 z     "0.717391", ",", "0.736205", ",", "0.267704", ",", "0.036152", ",",
" B3 t) g9 R  {, X      "0.307692", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
# @) U6 \2 _, E" y' O      "0.000000", ",", "0.392521", ",", "0.478873"}], "}"}], ",", " ",
% s+ Q3 T* x& g( t    RowBox[{"{",
& [: S* f7 `* n9 P! Q     RowBox[{
+ T- ~5 j" }- t) y/ ^     "0.608696", ",", "0.769475", ",", "0.289283", ",", "0.022882", ",", % k+ t- a* d2 X% K: a3 J
      "0.321678", ",", "0.000000", ",", "0.274797", ",", "0.333333", ",",
  ]9 B" m$ u( A) \% E      "0.000000", ",", "0.362191", ",", "0.295775"}], "}"}], ",", " ", : C4 C/ d) D9 z
    RowBox[{"{", % w( I) w8 `/ a1 B* c/ |& E! V4 \
     RowBox[{
: w& l& y3 L4 ~# u     "0.913043", ",", "0.170478", ",", "0.000000", ",", "0.012973", ",", * F( ]+ u/ |. h( r
      "0.293706", ",", "0.000000", ",", "0.000000", ",", "0.672709", ",", ' a9 W; b( m( n  ]3 D' q
      "0.000000", ",", "0.114252", ",", "0.028169"}], "}"}], ",", " ",
' A  Y. w5 j, H$ Q/ w1 j    RowBox[{"{", 3 Y0 [/ |7 \0 H$ U( \0 J
     RowBox[{
8 O& l$ p8 L  i2 {, R; Q0 y/ \     "0.739130", ",", "0.193199", ",", "0.160584", ",", "0.037907", ",",
3 h5 J: F( C# k* l0 [. M7 L      "0.461538", ",", "0.000000", ",", "0.684553", ",", "0.000000", ",",
3 R5 @$ }; s, }8 Z      "0.000000", ",", "0.401355", ",", "0.436620"}], "}"}], ",", " ",
5 M0 I# S1 `0 ~; o  X1 [    RowBox[{"{", 9 Z9 s, I) ~, p* z/ {5 Q2 a' g4 U
     RowBox[{7 e& x( {8 w6 y9 I- r- |1 o+ S) u
     "0.826087", ",", "0.203969", ",", "0.234619", ",", "0.272240", ",", ! G/ A. U' P+ u
      "0.265734", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", + c' M$ x- V/ @% }) M
      "0.000000", ",", "0.827444", ",", "0.394366"}], "}"}], ",", " ",
! X5 o$ H! r3 l7 |; U/ ~; a% F    RowBox[{"{", 0 R& E8 l# b; }$ V# \: d
     RowBox[{
1 z; f6 B' g$ ^( g     "1.000000", ",", "0.199248", ",", "0.295044", ",", "0.041613", ",",
+ O: j) @( J; }      "0.209790", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
( i) Y8 j+ Z% `" J! Y4 B      "0.000000", ",", "0.676973", ",", "0.295775"}], "}"}], ",", " ",
% [1 o' i; k$ p$ `# l; L' b5 S    RowBox[{"{", 0 u: a) {" S2 j; {
     RowBox[{
- r0 m+ h) Q  {# p1 }' b     "0.869565", ",", "0.180363", ",", "0.243056", ",", "0.098349", ",",
# b6 T) S* g. G, j9 G3 k: f      "0.265734", ",", "0.503391", ",", "0.000000", ",", "0.000000", ",", / ~$ {; U" \$ {  y% b
      "0.000000", ",", "0.331272", ",", "0.830986"}], "}"}], ",", " ", $ ~6 N+ t& L9 ^: K
    RowBox[{"{", ) G8 W& V- {  k' b5 X9 }) k
     RowBox[{
+ M! i$ U/ w0 }/ {( O     "0.695652", ",", "0.551785", ",", "0.326201", ",", "0.253608", ",", ( f: K, _' b& y8 m3 k6 {) p$ F
      "0.195804", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", , e- o1 H2 w" e  w5 q8 h# n
      "0.000000", ",", "0.845701", ",", "0.169014"}], "}"}], ",", " ", : n( @0 }" {0 E9 g. _  C. |  A
    RowBox[{"{",
) v# q! c  S, M     RowBox[{
  t; U" h  ?& L# v' U+ k$ f     "0.652174", ",", "0.572293", ",", "0.111511", ",", "0.035584", ",", 6 m' s: F7 F# l& Q; g, k
      "0.405594", ",", "0.249435", ",", "0.544715", ",", "0.000000", ",",
/ `; p+ ~  j+ p, o2 d& ~      "0.000000", ",", "0.287102", ",", "0.366197"}], "}"}], ",", " ",
# k9 W. \+ y/ F! [1 U* U    RowBox[{"{",
+ e' c- V. n- C" y5 z$ T     RowBox[{
4 o  W6 W+ X+ m9 A0 p     "0.652174", ",", "0.562039", ",", "0.336155", ",", "0.014604", ",",
7 r' T" r, \% J+ e& h" G) s2 d! v" y  e! N      "0.174825", ",", "0.244160", ",", "0.000000", ",", "0.000000", ",",
4 z; ?1 K9 t+ T+ i& v4 _* x& G      "0.000000", ",", "0.000000", ",", "0.309859"}], "}"}], ",", " ", 7 W! s3 G2 h# [# Y
    RowBox[{"{",
" k( a" U" [, U7 H9 y) i     RowBox[{& b- N, W  W3 X4 u* W
     "0.565217", ",", "0.577383", ",", "0.155870", ",", "0.030963", ",", 4 E& r' w* t% x4 Z; Z
      "0.258741", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
+ m$ i1 z% r. u' D' U      "0.000000", ",", "0.050059", ",", "0.352113"}], "}"}], ",", " ", ! ^2 \% f. [/ H, v1 ~* P  k6 g& s
    RowBox[{"{", 1 W' d4 a8 x  S8 R7 `) t
     RowBox[{7 X8 u* e4 M' s( u0 h
     "0.565217", ",", "0.613234", ",", "0.232956", ",", "0.053870", ",", 4 p0 Y' z. V4 k6 U4 ?7 v" n
      "0.230769", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 8 g* A* J4 w: D# O1 x+ ^% L
      "0.000000", ",", "0.254122", ",", "0.309859"}], "}"}], ",", " ",
: M; }/ j/ e9 O0 _! {0 ^  u* H    RowBox[{"{", ' K% @# f' s' P" ~4 m! A5 O
     RowBox[{
' y5 t0 p  G, B. r     "0.565217", ",", "0.559531", ",", "0.493262", ",", "0.046209", ",",   Z5 W- c+ V6 U1 `5 ]
      "0.293706", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 8 a  w- l& C8 K  r; H
      "0.000000", ",", "0.086867", ",", "0.774648"}], "}"}], ",", " ", 4 {0 E, ~0 E. Z, N
    RowBox[{"{",
# n' G) J4 K. V- C     RowBox[{: `# U3 i  M7 P% x+ H, V' J( `  U
     "0.608696", ",", "0.569711", ",", "0.111932", ",", "0.013542", ",", ' ?+ p4 \4 D" C9 [! G: s& W4 E
      "0.335664", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", $ M# F% k/ C& P( }' V) B, z
      "0.168704", ",", "0.659894", ",", "0.422535"}], "}"}], ",", " ",
- E  C6 y  D" C9 \: Z, \    RowBox[{"{", 7 x% o. \9 e8 X
     RowBox[{
+ i6 J; G1 e0 {$ Y4 p     "0.608696", ",", "0.564547", ",", "0.329844", ",", "0.202036", ",",
/ Z% c+ {% C0 H& E, B      "0.510490", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", ) P: ?% D9 v5 v" ?5 f9 t$ M6 W" b4 O
      "0.000000", ",", "0.317138", ",", "0.887324"}], "}"}], ",", " ",
; ~& y( w: k& W' l+ f  W/ X    RowBox[{"{",
* U- [5 g0 c8 |( f     RowBox[{5 }1 d6 X* e, v& g( R
     "0.521739", ",", "0.546695", ",", "0.165788", ",", "0.029431", ",",
4 K3 R) M) q% U: z5 A8 [; H( |      "0.510490", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", ( Q* y0 g9 K" ^; I# x3 E  l
      "0.000000", ",", "0.605124", ",", "0.887324"}], "}"}], ",", " ",
& Q+ W% n; u$ `/ n    RowBox[{"{",
' Y. S/ ^# j; p' A- E' m9 M     RowBox[{  R0 T" K2 F& Y6 U& S: T3 s5 N
     "0.521739", ",", "0.564178", ",", "0.400518", ",", "0.045023", ",", 9 f% _( Y& K4 N' x+ @9 f
      "0.615385", ",", "0.368500", ",", "0.660163", ",", "0.301108", ",",
7 {+ u' s# m+ Z6 I" T$ a; Z      "0.000000", ",", "0.321260", ",", "0.859155"}], "}"}], ",", " ",
, W' M1 e( n" h5 h. F* V    RowBox[{"{", : G# H: m! r, n' C4 I6 f: T- r
     RowBox[{' b4 K" m% d" _" o. I$ D
     "0.413043", ",", "0.551859", ",", "0.544826", ",", "0.230503", ",",
  _! g+ A+ N2 y# T7 n      "0.244755", ",", "0.530520", ",", "0.819512", ",", "0.000000", ",", 9 K& |( F+ m7 W* r  o
      "0.000000", ",", "0.595406", ",", "0.239437"}], "}"}], ",", " ",
" w5 l9 E& X& Q3 }1 E$ E/ O, s    RowBox[{"{", 6 r0 a# G( n" [; B3 F0 y
     RowBox[{& M0 @7 Y1 c$ s! ^, Q( z, ?
     "0.652174", ",", "0.549277", ",", "0.257578", ",", "0.058688", ",", , a$ j/ F6 k5 g9 Z4 `
      "0.356643", ",", "0.000000", ",", "0.817886", ",", "0.000000", ",",
/ C* w( r7 f( Y0 h      "0.000000", ",", "0.555359", ",", "0.295775"}], "}"}], ",", " ", & R/ {# M( E# q8 o+ C
    RowBox[{"{",
" \* k: b% Z# C     RowBox[{9 J# P4 z: Q+ q9 A4 Y
     "0.695652", ",", "0.549277", ",", "0.572308", ",", "0.082411", ",",
( W2 }, _; I7 P6 h& o4 m      "0.461538", ",", "0.528259", ",", "0.819512", ",", "0.000000", ",", 6 V2 S% n* H: R2 Q% D- T0 q
      "0.000000", ",", "0.333333", ",", "0.746479"}], "}"}], ",", " ",
3 d  n* d$ s4 C% @( \    RowBox[{"{", 1 I) U* @8 ~0 {4 p' f! _9 ^/ d
     RowBox[{
0 t0 u4 D- v# j3 U# o4 \     "0.434783", ",", "0.551785", ",", "0.530346", ",", "0.151651", ",",
; C# ?" V: ]( z% y      "0.790210", ",", "0.529013", ",", "0.409756", ",", "0.000000", ",", 3 T  g7 _' r0 \: r
      "1.000000", ",", "0.149588", ",", "1.000000"}], "}"}], ",", " ",
( s- u8 F* ]+ m  {7 l    RowBox[{"{",
/ }1 T* Y6 a/ [. c9 @; c4 Q( W     RowBox[{
* \' n/ C4 K: e1 f* A* u     "0.282609", ",", "0.531278", ",", "0.321428", ",", "0.228625", ",",
" f8 T. w; z6 h! d( N0 z- j      "0.594406", ",", "0.530520", ",", "0.410569", ",", "0.000000", ",", ) y" d" A6 D2 A
      "0.757457", ",", "0.493522", ",", "0.549296"}], "}"}], ",", " ", ) b( k1 ], ^' l* ?1 [/ l# t/ s8 W" L
    RowBox[{"{", ( t( t1 d: M) W& N/ O( C
     RowBox[{  ?3 N& l. M1 r+ `
     "0.347826", ",", "0.705444", ",", "0.109343", ",", "0.072008", ",",
4 i2 W' Z* g4 ~9 P; D      "0.496503", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 6 V. [# [6 ?4 l0 I
      "0.752567", ",", "0.224676", ",", "0.366197"}], "}"}], ",", " ", , u1 j# e2 \! q, I/ ]$ r
    RowBox[{"{", * ^9 d4 M$ ^+ Y+ B
     RowBox[{
9 W$ i3 q7 g, o1 c) s& l* D7 u     "0.391304", ",", "0.705444", ",", "0.045908", ",", "0.073120", ",", * ]& j: A6 f5 }% g: N. |# j
      "0.622378", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", ( K5 V; X1 l$ a8 e4 ?! @
      "0.496333", ",", "0.410188", ",", "0.549296"}], "}"}], ",", " ",
* I- t/ s9 {/ b/ A6 Q    RowBox[{"{",   |% F4 A7 g  \( ?  X% S
     RowBox[{5 T8 j% _) W/ q9 S- w
     "0.282609", ",", "0.661921", ",", "0.344992", ",", "0.085178", ",",
) k, B& K+ {7 n/ f6 e, v7 U% [+ T3 Q      "0.293706", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", # F- B4 L! R$ r' [- X, i
      "0.000000", ",", "0.668139", ",", "0.577465"}], "}"}], ",", " ",
9 I# G7 H7 Y6 @    RowBox[{"{", 7 e9 }0 |3 k# o7 Q4 r: W
     RowBox[{
9 |+ a+ q* i- A& N0 g+ h4 O     "0.478261", ",", "0.661921", ",", "0.644209", ",", "0.077296", ",", ! \+ K/ K+ s$ F
      "0.412587", ",", "0.000000", ",", "0.413008", ",", "0.502518", ",",
. {; V2 r# }9 E3 v      "0.000000", ",", "0.102179", ",", "0.690141"}], "}"}], ",", " ", 8 s! O, I! c( L* F
    RowBox[{"{", 6 P1 l0 h' @* U6 ?7 D$ G! z
     RowBox[{3 D( Q  x! n% `# \2 `" n
     "0.173913", ",", "0.984656", ",", "0.420753", ",", "0.137022", ",", + b2 J1 ?+ [* ]/ v5 ?' j) D
      "0.321678", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", : B/ l) j0 N3 X2 n8 M& T
      "0.000000", ",", "0.380742", ",", "0.718310"}], "}"}], ",", " ",
( p1 Y4 E  I6 E    RowBox[{"{",
5 I5 Z* ?4 l4 M: p. H& }     RowBox[{: Q' f6 V8 }6 V
     "0.500000", ",", "0.984656", ",", "0.288432", ",", "0.047692", ",", 0 f2 ]+ h3 S! z6 `; ~6 A
      "0.279720", ",", "0.000000", ",", "0.821138", ",", "0.510574", ",", - Q$ i( E# p$ y6 R, o
      "0.000000", ",", "0.319494", ",", "0.521127"}], "}"}], ",", " ",
# f. |3 c& h- a9 s+ E8 O* E1 J    RowBox[{"{",
  e$ z8 O! u4 E     RowBox[{  J: P- g- x" w, O6 W
     "0.391304", ",", "1.000000", ",", "0.452931", ",", "0.150909", ",", " h0 f) {& _5 r$ F) O! z3 N1 _# X5 U
      "0.342657", ",", "0.370761", ",", "0.000000", ",", "0.509567", ",", 2 y% L7 q: ?( }# \8 b8 `1 Q3 M
      "0.000000", ",", "0.031508", ",", "0.929577"}], "}"}], ",", " ",
8 F6 ?' ?3 h! P& s+ W    RowBox[{"{", * h, n' }, O8 y6 O6 Y# }
     RowBox[{
4 k) l, k2 i7 h1 u     "0.739130", ",", "0.774639", ",", "0.175120", ",", "0.036498", ",",
! @" A$ R& z) ]      "0.391608", ",", "0.739261", ",", "0.408943", ",", "0.553877", ",", % P8 V, ]/ a( W4 E2 h$ r, j8 _
      "0.000000", ",", "0.292108", ",", "0.521127"}], "}"}], ",", " ",
' o4 s( y3 s  x0 H    RowBox[{"{",
! q6 \5 l# P3 V& W9 D4 Z% ?. u     RowBox[{
" M. T; J$ ^$ M1 c7 d+ m4 y: O: N     "0.586957", ",", "0.982074", ",", "0.158462", ",", "0.063902", ",", 4 h, ]/ D; r/ p+ ^* ^3 X
      "0.321678", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
! P' i0 b8 X5 ?5 C. S, U% C      "0.000000", ",", "0.329505", ",", "0.338028"}], "}"}], ",", " ",
% n4 L  ~# Q1 ~( x( m% a    RowBox[{"{", # y1 M. v2 {* M9 G
     RowBox[{; W1 F+ W  E( z4 d2 a7 y/ g8 C, Y
     "0.543478", ",", "0.982074", ",", "0.306872", ",", "0.041934", ",",
" c4 G2 ]0 C/ I; M0 y      "0.426573", ",", "0.380558", ",", "0.414634", ",", "0.506546", ",",
" ], D5 b. A% J) ?& K: W/ D2 a- o      "0.000000", ",", "0.337456", ",", "0.380282"}], "}"}], ",", " ",
# B+ c1 i7 {/ w    RowBox[{"{", 9 `+ P/ {9 C( A8 v( ?
     RowBox[{+ O& _0 e% ^+ Z: E- l
     "0.739130", ",", "0.997418", ",", "0.170143", ",", "0.058268", ",", 6 C6 W% y- {; o( |4 `3 ?* r" J' S
      "0.538462", ",", "0.248681", ",", "0.000000", ",", "0.339376", ",", ) K2 `7 ]' T) W$ J8 n% j5 M3 J/ D
      "0.000000", ",", "0.766784", ",", "0.676056"}], "}"}], ",", " ", 6 m: H& `& O0 ]& c3 {$ r
    RowBox[{"{", 2 Z9 v% _  p: j& ^* ^$ b
     RowBox[{
$ B4 G! x  Y" T, `5 g4 R     "0.695652", ",", "0.700428", ",", "0.139361", ",", "0.182169", ",", 4 `) p4 H+ {3 U- v
      "0.412587", ",", "0.243406", ",", "0.000000", ",", "0.000000", ",", 0 q, T/ j9 s5 Z7 E
      "0.136919", ",", "0.676678", ",", "0.591549"}], "}"}], ",", " ", 0 `  W7 ?' r+ f) ~7 Y
    RowBox[{"{",
% {+ w2 O$ S# t2 q* K& n& e9 E     RowBox[{; e: L7 M* W6 ?
     "0.782609", ",", "0.751623", ",", "0.177646", ",", "0.350845", ",", . c: m9 i# ?# d" F. I" U- I8 F
      "0.412587", ",", "0.502638", ",", "0.000000", ",", "0.000000", ",",
+ ~6 z. U: V/ i$ Z8 M2 C      "0.178973", ",", "0.541519", ",", "0.464789"}], "}"}], ",", " ", 9 j8 E$ E4 K" \$ U0 n
    RowBox[{"{",
( ?$ \0 |6 N. ]# e$ ^2 m. C     RowBox[{
; Y/ G+ w' T, u     "0.652174", ",", "0.751623", ",", "0.355593", ",", "0.039883", ",", # Z% [4 I2 k$ P" j+ P$ u0 m6 b
      "0.195804", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", ) [( \) x- u3 j* V
      "0.000000", ",", "0.064488", ",", "0.295775"}], "}"}], ",", " ", 2 w' n# \, Z2 @7 W9 B
    RowBox[{"{",
+ X8 L" ^; e9 O     RowBox[{
* k3 d/ E, ~/ z9 K: t) }- Y     "0.521739", ",", "0.679847", ",", "0.152375", ",", "0.030048", ",",   U$ G5 T% W5 u; G
      "0.363636", ",", "0.000000", ",", "0.271545", ",", "0.000000", ",", 4 L( E/ F* v4 e" u% J
      "0.000000", ",", "0.463192", ",", "0.380282"}], "}"}], ",", " ", 6 u8 f9 n: W) O4 R& L' A+ \
    RowBox[{"{",
2 R( U: `6 O( e% X, O' \     RowBox[{: C, t/ t' |! A, }: |  ?1 }
     "0.434783", ",", "0.728533", ",", "0.186830", ",", "0.129510", ",", " _6 ]$ C* A: U2 G' M
      "0.195804", ",", "0.000000", ",", "0.269919", ",", "0.000000", ",",
2 [5 \) |2 }: v* n2 A2 h/ [; U      "0.326650", ",", "0.388398", ",", "0.211268"}], "}"}], ",", " ", ( g0 C5 c$ Q: e. K- I2 j
    RowBox[{"{",
9 `) t0 E+ O* |( R. r* k     RowBox[{
2 J9 p4 f, O# a3 ?( o' J/ c     "0.608696", ",", "0.606152", ",", "0.158058", ",", "0.090170", ",", 5 \0 ?5 V5 p! Q! L7 i  z9 [
      "1.000000", ",", "0.166541", ",", "0.278049", ",", "0.000000", ",",
  z8 Z4 ~4 }$ ]5 N( o" Y, X      "0.236675", ",", "0.262367", ",", "0.253521"}], "}"}], ",", " ",   _) K4 N5 e. K, ]) r
    RowBox[{"{", - Y# n% s" ?9 k9 \, B$ q% ^# u' n
     RowBox[{& r, w, M$ o; C1 h. t3 v. r: q
     "0.608696", ",", "0.633742", ",", "0.322697", ",", "0.068597", ",", ! A9 K; _* {% G) [
      "0.328671", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
8 ?' L0 h7 v. ?2 l  a: x0 ~) s      "0.287042", ",", "0.290931", ",", "0.281690"}], "}"}], ",", " ", 5 Z* ~4 _# o, Z" T1 i8 B
    RowBox[{"{", + J, V3 |1 J# R2 }' i" H9 Q7 t
     RowBox[{
7 [1 t; [) X2 q1 J! o' A# \     "0.478261", ",", "0.539023", ",", "0.412108", ",", "0.107566", ",", ) I6 n! Y9 l' Y% W( S
      "0.237762", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
2 y5 [0 r4 n( [; b0 i* a      "0.000000", ",", "0.380742", ",", "0.507042"}], "}"}], ",", " ", 9 B  m. H9 y  J
    RowBox[{"{", ; i& D( }% i0 |4 f7 E0 J! i2 D
     RowBox[{
& ~2 M4 p- H* S: b" o$ x     "0.608696", ",", "0.551859", ",", "0.176821", ",", "0.076332", ",",
1 Q, X6 ~7 @# S" r6 k6 B      "0.265734", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
( ?- ]* l7 c! P) E      "0.000000", ",", "0.429034", ",", "0.239437"}], "}"}], ",", " ", # S6 x5 h+ x4 U7 L3 _
    RowBox[{"{", 7 [% Q4 ?" {( _3 I# C
     RowBox[{
: L/ d- o! K: {0 V: g; T     "0.652174", ",", "0.551859", ",", "0.033549", ",", "0.018459", ",", 6 J  y" U. Q1 v5 a/ |
      "0.573427", ",", "0.000000", ",", "0.553659", ",", "0.000000", ",",
4 T) ?/ h6 d' \+ C      "0.404890", ",", "0.193168", ",", "0.394366"}], "}"}], ",", " ",
% [% t; S' X$ t. E' l    RowBox[{"{", : m$ k! c1 y8 R/ t4 t8 u
     RowBox[{
/ j4 n  K) {' K! ]0 o     "0.695652", ",", "0.595382", ",", "0.277493", ",", "0.100326", ",", # {0 @# @8 U3 b; F& t
      "0.286713", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
- c3 [; E  F! S% c4 ^      "0.000000", ",", "0.448763", ",", "0.338028"}], "}"}], ",", " ",
: |7 G+ a$ a1 {2 k; c! l    RowBox[{"{", - @/ j( c+ R4 n2 u/ S9 d4 t/ g
     RowBox[{
  Q/ \% c9 H3 I* e     "0.565217", ",", "0.559531", ",", "0.422669", ",", "0.078111", ",", ; W0 \! I9 y4 v1 q8 ]
      "0.286713", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 7 }' }. l# ~( u3 c8 H
      "0.000000", ",", "0.442285", ",", "0.394366"}], "}"}], ",", " ", ( `/ o* L3 @( k( E
    RowBox[{"{", 5 h2 ]0 p! I  F9 ?/ z5 G, w# Y
     RowBox[{
4 i( N+ k9 U. M+ }0 e# P& E! Z% m     "0.586957", ",", "0.398126", ",", "0.140619", ",", "0.069116", ",", 7 Z( o2 o/ ]8 e9 F! ~
      "0.461538", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", ! a" i$ B- S& a# [  t% |
      "0.000000", ",", "0.575383", ",", "0.154930"}], "}"}], ",", " ",
6 Y6 v  p; G& t/ @# ~% F( e    RowBox[{"{", $ t' I  t- s. A7 g7 N( {+ c
     RowBox[{  q* c# l- b& c' A
     "0.695652", ",", "0.398126", ",", "0.019829", ",", "0.041366", ",", 0 e( Q$ c3 E) [; B
      "0.552448", ",", "0.244160", ",", "0.000000", ",", "0.000000", ",", * O  J1 |; n& }* D
      "0.000000", ",", "0.515607", ",", "0.591549"}], "}"}], ",", " ", 8 K0 ~. Y' t! q
    RowBox[{"{", % T' ]7 l2 X0 k8 J
     RowBox[{
; b. S# L0 R7 i. q0 U     "0.695652", ",", "0.700354", ",", "0.422467", ",", "0.068128", ",", $ K3 r  E) v' S4 P9 h$ I! Y* \# q, e
      "0.209790", ",", "0.000000", ",", "0.000000", ",", "0.500504", ",",
- ]. o4 z9 _: `' ^9 Q      "0.000000", ",", "0.057715", ",", "0.408451"}], "}"}], ",", " ",
1 \3 H! A& Z: G9 {6 f    RowBox[{"{",
1 N9 M2 y& ], g     RowBox[{
7 \2 M# q8 n' }. S% q     "0.521739", ",", "0.193125", ",", "0.210582", ",", "0.110433", ",",
6 a" P3 B0 S" Q/ f      "0.447552", ",", "0.382065", ",", "0.413008", ",", "0.498489", ",", / z4 L! r' G. @; C* G
      "0.000000", ",", "0.174617", ",", "0.295775"}], "}"}], ",", " ",
6 ~1 n& Y' }# l1 [3 w3 R    RowBox[{"{",
# T. `% J0 w& i2 i& I! i     RowBox[{
# t0 Q" J! S* N     "0.347826", ",", "0.063588", ",", "0.830527", ",", "1.000000", ",", 3 _- @9 Y/ u6 c1 l1 q
      "0.111888", ",", "0.000000", ",", "0.410569", ",", "0.000000", ",",
& V# C0 E/ P" P, p" k5 y      "0.000000", ",", "0.667550", ",", "0.661972"}], "}"}], ",", " ",
4 d- R; o- l1 d( ^& p    RowBox[{"{", ( }. y% J( p4 a5 C0 X7 E0 S
     RowBox[{6 x1 D/ E2 n! H1 ^- [
     "0.521739", ",", "0.188109", ",", "1.000000", ",", "0.785485", ",", + G" A. e. Z1 Y; {: X2 t
      "0.342657", ",", "0.373775", ",", "0.406504", ",", "1.000000", ",",
0 S8 P! Z7 h: z! l- @" H      "0.000000", ",", "0.371025", ",", "0.774648"}], "}"}], ",", " ", ) V( s/ s: u1 ]" e4 j, D, M
    RowBox[{"{",
+ m, A: C0 |+ [) R, p- u     RowBox[{
2 n  @% i/ I$ r( \     "0.695652", ",", "0.188404", ",", "0.088836", ",", "0.059504", ",",
8 Y2 Y5 n2 y  a% S' P* q; k+ ?4 ]1 \      "0.706294", ",", "0.376790", ",", "0.000000", ",", "0.000000", ",",
' x% K: d4 \& K7 o, Q, |      "0.000000", ",", "0.570966", ",", "0.746479"}], "}"}], ",", " ",
% D0 P% @+ V( L# j) A4 h* ?    RowBox[{"{", 1 A( _8 Y( e+ v& i) M/ c1 w$ |9 _
     RowBox[{
. l- l! B) J) P; _  K3 n% ?6 u     "0.695652", ",", "0.057465", ",", "0.316316", ",", "0.151280", ",", $ w& M( j9 p/ e3 a( q% P3 z
      "0.615385", ",", "0.371515", ",", "0.412195", ",", "0.500504", ",",
5 k' M, q5 q/ ?8 T- i" E      "0.000000", ",", "0.468198", ",", "0.887324"}], "}"}], ",", " ",
: A8 ]( l$ ~4 m' n    RowBox[{"{", 2 {4 c9 d, P  e( G4 I6 ?, b  Y
     RowBox[{4 M1 U* b3 B4 }" i( F
     "0.608696", ",", "0.011360", ",", "0.295586", ",", "0.113892", ",", 9 @3 ?6 a+ f. X) r7 }4 `: O3 k' j
      "0.580420", ",", "0.746044", ",", "0.405691", ",", "0.501511", ",", 0 q4 c1 O; m8 w6 d
      "0.000000", ",", "0.414016", ",", "0.845070"}], "}"}], ",", " ",
: y: B; R' a" [6 q! R2 k; n    RowBox[{"{", + B" @+ Z5 ]9 |$ u5 C! D
     RowBox[{
6 N* ~( g9 G0 t; i# [. J: Q/ `4 G     "0.608696", ",", "0.364783", ",", "0.130582", ",", "0.020214", ",",
; a9 j- Q! Y( E) {      "0.356643", ",", "0.379804", ",", "0.000000", ",", "0.000000", ",", 4 B, k/ n: a" f* P2 d9 ~. M
      "0.000000", ",", "0.186690", ",", "0.704225"}], "}"}], ",", " ", " g. ?( P9 r2 a% j0 D
    RowBox[{"{",
" Q* Q) |! S8 l, ~. Y5 y3 q     RowBox[{0 ~! u9 z1 p3 J
     "0.608696", ",", "0.193199", ",", "0.112690", ",", "0.036152", ",",
$ M) S9 f. i; \2 G  q      "0.636364", ",", "0.382065", ",", "0.409756", ",", "0.495468", ",",
- q% M* f* V9 {: x5 K  \      "0.000000", ",", "0.442874", ",", "0.760563"}], "}"}], ",", " ",
' c( r; S. B7 h2 N- [1 \" M& }5 F    RowBox[{"{", 9 m) Q( a8 C. ?2 x/ w$ h& m
     RowBox[{
6 L: g! ~8 M6 f1 v- b     "0.739130", ",", "0.328932", ",", "0.246779", ",", "0.126520", ",", # s8 }2 s( @! B; |
      "0.454545", ",", "0.000000", ",", "0.495122", ",", "0.000000", ",",
, v5 d' }9 [' X      "0.414181", ",", "0.686690", ",", "0.436620"}], "}"}], ",", " ", ; [9 p" e" |" O! {% k1 a$ R6 H' o
    RowBox[{"{", $ i3 L9 X% S* d9 A! M: }
     RowBox[{  s' r% ?4 _- ], A8 ]+ a
     "0.739130", ",", "0.341767", ",", "0.362090", ",", "0.183528", ",",
" U& F; {; T, I! ?! h% t      "0.573427", ",", "0.413715", ",", "0.454472", ",", "0.661631", ",", 0 ]" b- k, Z* @0 N) P( ?$ v4 m
      "0.000000", ",", "0.244111", ",", "0.633803"}], "}"}], ",", " ", : s) ]1 z8 E9 ^! W3 r  v
    RowBox[{"{", 7 p1 b7 x7 y7 f1 [8 V& t2 q
     RowBox[{
# o8 W' k. r' Y: S     "0.695652", ",", "0.187076", ",", "0.279724", ",", "0.006252", ",",
0 v2 |# o- E& z: \- j0 H- f! d      "0.405594", ",", "0.418237", ",", "0.544715", ",", "0.000000", ",", + b! V3 A( U: C
      "0.000000", ",", "1.000000", ",", "0.422535"}], "}"}], ",", " ", $ `2 c9 x# V- K4 m
    RowBox[{"{",
. ?( }6 C+ }2 M% X1 U# }  _     RowBox[{
9 i  H) K* C' A; ~: u/ t0 k     "1.000000", ",", "0.333948", ",", "0.064750", ",", "0.065855", ",", 0 I- ?  e4 K7 ]
      "0.342657", ",", "0.000000", ",", "0.408130", ",", "0.000000", ",",
/ D1 m8 R/ a9 m* O      "0.000000", ",", "0.957892", ",", "0.295775"}], "}"}], ",", " ", / L( o: B9 C  g3 @7 r+ b7 \& h  b
    RowBox[{"{",
0 Y% i- N$ W# z! r     RowBox[{  I5 x8 P& z" V6 C& G4 t# z: p
     "0.739130", ",", "0.305400", ",", "0.374567", ",", "0.132870", ",", / U( a+ d- r- L& L5 J
      "0.258741", ",", "0.834966", ",", "0.000000", ",", "0.000000", ",",
- y, p$ n% n3 ?) w3 n9 b      "0.272861", ",", "0.266784", ",", "0.309859"}], "}"}], ",", " ",
) p' L9 {3 B% }9 ?" W9 ?5 n/ e    RowBox[{"{",
5 T" s% r0 F( @0 H6 y7 O     RowBox[{
/ _* x. N+ g/ ]) }$ Y6 V     "0.826087", ",", "0.151962", ",", "0.360280", ",", "0.221632", ",", & L, K' I, o( T! J$ Q3 r
      "0.447552", ",", "0.584778", ",", "0.457724", ",", "0.000000", ",",
; v3 z# W) b4 w      "0.000000", ",", "0.826855", ",", "0.408451"}], "}"}], ",", " ", 8 O) H3 u8 b8 R& [- g3 F1 _
    RowBox[{"{",
6 z( @- B, X  C& h, L     RowBox[{
) C, p% {. l: z& ]3 v: z     "0.565217", ",", "0.047212", ",", "0.233154", ",", "0.121528", ",",
8 }/ ^* d' U' G# J      "0.314685", ",", "0.417483", ",", "0.546341", ",", "0.000000", ",",
7 [) C9 j- e# b& u# }. `$ w4 Z/ Z" r      "0.669438", ",", "0.341873", ",", "0.197183"}], "}"}], ",", " ",
! P5 T3 [. d6 l    RowBox[{"{",
5 R  T7 F0 h$ T  I     RowBox[{
* R0 ]  [% q5 p/ r1 G! z, ^# `     "0.826087", ",", "0.034376", ",", "0.690349", ",", "0.512380", ",",
) }( I+ Z& g7 Y5 J& c7 u' q      "0.685315", ",", "1.000000", ",", "1.000000", ",", "0.000000", ",", , {* S$ w0 p0 \. }7 t5 u) \+ b' v
      "0.556479", ",", "0.412544", ",", "0.732394"}], "}"}], ",", " ",
( a7 V( S& H7 l4 }# }    RowBox[{"{", - b# [' H: T. a! ~9 i2 p
     RowBox[{
$ A' S8 q  V3 T' w) ~9 r) p     "0.652174", ",", "0.000000", ",", "0.374417", ",", "0.188075", ",",
4 Z. |3 F: h9 r: }) g- |9 }      "0.706294", ",", "0.498116", ",", "0.729268", ",", "0.000000", ",", ! e1 _5 l) {. O& [1 P+ Z
      "0.454279", ",", "0.322144", ",", "0.802817"}], "}"}], ",", " ", + S& k4 Y8 \+ C6 \! j; d; y/ `
    RowBox[{"{", 8 ~+ v) _# H: H, O  f0 Y* N: T
     RowBox[{
% {) G, g- k' j" Q( ]" [# T     "0.782609", ",", "0.180363", ",", "0.237142", ",", "0.054809", ",",   f6 d+ }" k/ ?. T$ a
      "0.629371", ",", "0.373775", ",", "0.247967", ",", "0.000000", ",", : @, _  ^4 _7 K" L5 u6 N
      "0.163814", ",", "0.370436", ",", "0.746479"}], "}"}], ",", " ", ! d7 I9 U. ?& n& ?- O9 e! }% g( i
    RowBox[{"{", ! D5 f- C$ n: V$ ~% e! m
     RowBox[{+ t0 ^  B: E: h- I* b9 {8 z" M( |
     "0.608696", ",", "0.169150", ",", "0.368148", ",", "0.393768", ",",
+ b/ l( T: t7 N& u. i7 \      "0.440559", ",", "0.995479", ",", "0.545528", ",", "0.000000", ",", ! ?3 n2 i2 u! O" M6 l
      "0.565770", ",", "0.333039", ",", "0.380282"}], "}"}], ",", " ",
" T# \5 ]! B6 j5 f% w' C& j    RowBox[{"{",
+ G7 D3 j+ K' h# D     RowBox[{! X. s$ Y3 t+ r. Z: v% ^% F
     "0.695652", ",", "0.390454", ",", "0.186683", ",", "0.039439", ",", # J5 p. o  m' U/ Z' H
      "0.482517", ",", "0.497362", ",", "0.415447", ",", "0.508560", ",",
) q* F/ r+ e7 ]/ Y$ h/ V      "0.000000", ",", "0.390754", ",", "0.563380"}], "}"}], ",", " ",
. f' I5 B# J9 E7 l2 f+ i+ s    RowBox[{"{",
, E8 {( R4 s" t' \' P/ q# V- A     RowBox[{
: G. Q/ q5 ^8 C8 {     "0.739130", ",", "0.428888", ",", "0.082728", ",", "0.070154", ",",
3 U' r- F$ L" f) D9 c; B) }; G$ B      "0.279720", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", $ x0 K  j& e  t" ?* _0 j! G5 n+ v
      "0.000000", ",", "0.694935", ",", "0.323944"}], "}"}]}],
: e! P: ^+ S+ h- C1 g  C7 O' R! B   "}"}]}]], "Input",4 H7 w# q4 y& H- _3 t, i
CellChangeTimes->{3.5779587825701036`*^9}],: f: Q7 J1 D( A
; s' k( u8 \3 }9 K# Z8 B- y+ q  V
Cell[BoxData[
6 d; W9 T/ ^" ~, w9 D8 g' s$ R' c RowBox[{"{",   T1 F7 X6 v/ p. u# U- ~
  RowBox[{
# s' V/ @8 u) \3 h7 S6 h; F   RowBox[{"{",
% Z& K( c% h4 {$ Z& K    RowBox[{
$ o/ v0 w+ e( [, Y8 E9 |    "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
' U# E( U! }" E& p8 p     "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
1 T- L0 N# }9 H8 D0 Z+ h     "0.`", ",", "0.277091`", ",", "0.873239`"}], "}"}], ",",
1 \8 c% h3 ]* x2 s& z   RowBox[{"{",
% a" b7 d: q' \4 \. X- Z, Z3 J    RowBox[{4 l4 \" f$ ~7 \/ r
    "0.565217`", ",", "0.346857`", ",", "0.393585`", ",", "0.118785`", ",",
9 g* ^% d* i' ^: t8 x2 v     "0.34965`", ",", "0.370761`", ",", "0.413008`", ",", "0.502518`", ",",
5 z8 c" R  M! ?( C* Q/ D' Z: G     "0.`", ",", "0.220259`", ",", "0.464789`"}], "}"}], ",",
+ c! ?9 D! [' B7 w' a& I6 _   RowBox[{"{", ' N, @* K) x4 K# ~  S
    RowBox[{
1 x4 W' S; _5 ^    "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", * h2 x3 t0 o( R& |. Q; c0 p
     "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`",
$ a9 S! ~* Z" H: T" `# C     ",", "0.899882`", ",", "0.492958`"}], "}"}], ",", # h+ w  Y7 M' ~4 G; H
   RowBox[{"{",
4 c# K* j" u$ R    RowBox[{! u6 N8 d" W$ ?8 }2 ~$ s8 j0 N" h
    "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",", - F# R3 O1 I+ T- p! J( M4 P' y
     "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`", 5 j/ n& Z7 x& |9 }$ p( q
     ",", "0.265607`", ",", "0.774648`"}], "}"}], ",",
8 q" B  h9 ?4 _$ A: @& N" C   RowBox[{"{",
" F' R: U& X# q% E    RowBox[{- p5 m4 s% u" Z/ p
    "0.565217`", ",", "0.346931`", ",", "0.218229`", ",", "0.043639`", ",", / A" Z0 ?3 G' v& }2 R  N
     "0.503497`", ",", "0.761115`", ",", "0.415447`", ",", "0.503525`", ",",
1 }+ ]- S/ y% y0 x8 P     "0.`", ",", "0.642226`", ",", "0.380282`"}], "}"}], ",", 4 x! Y# ?7 z* ^/ U& f; r! f9 T& c
   RowBox[{"{", 8 Z2 k- ^+ d& x5 i. p
    RowBox[{0 b3 a! ~/ o8 ?2 l
    "0.478261`", ",", "0.293154`", ",", "0.259368`", ",", "0.026688`", ",",
5 o3 W# G. ?/ n" }# @( f     "0.587413`", ",", "0.75584`", ",", "0.409756`", ",", "0.498489`", ",",
4 x, G' @7 e8 B" i& ]     "0.`", ",", "0.306243`", ",", "0.647887`"}], "}"}], ",",
% H, O) U3 n" [+ n6 Z0 @6 L   RowBox[{"{",
& I. |' B, D: Q# b4 U    RowBox[{
7 z1 g9 D" r4 L1 [. N! X    "0.347826`", ",", "0.359693`", ",", "0.614393`", ",", "0.081521`", ",",
  v0 D' a: n& [& u5 t2 M     "0.258741`", ",", "0.367747`", ",", "0.410569`", ",", "0.499496`", ",", 1 Y3 a9 N7 L( d7 m
     "0.`", ",", "0.186985`", ",", "0.56338`"}], "}"}], ",",
  K  Z8 k6 q( }2 g2 E   RowBox[{"{",
5 O$ G6 v, M4 C, X' W& F3 U5 x    RowBox[{
+ z3 z$ ?' M4 U& U, z    "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", 5 B. z3 E: ^* X
     "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`", * C# H9 H% G, `. X) \, V
     ",", "0.175501`", ",", "0.295775`"}], "}"}], ",", : g3 _- P7 q+ j0 n8 x6 L
   RowBox[{"{",
$ C8 U6 B: P+ @/ T. t+ c6 B1 d    RowBox[{5 }- P" I1 `1 [3 i: \& l3 ]
    "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",", : D2 L1 n6 d5 n
     "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`", 5 Z' X1 A0 r1 n2 t* P) t3 F1 J4 {
     ",", "0.147821`", ",", "0.338028`"}], "}"}], ",", 2 S: a. b5 u- }6 M, N
   RowBox[{"{", ' ]" d8 O5 Q  w  l8 _4 L
    RowBox[{
' Q( Q( o( R  f& {    "0.565217`", ",", "0.697772`", ",", "0.171587`", ",", "0.028566`", ",",
/ S2 E/ c8 M; l: x' f     "0.363636`", ",", "0.449887`", ",", "0.40813`", ",", "0.`", ",", "0.`",
7 N+ \6 k' V$ @. w     ",", "0.352768`", ",", "0.211268`"}], "}"}], ",",
- i- c+ X1 A) G# c5 V) a+ S   RowBox[{"{",
- G# G9 y/ \: k: z2 q    RowBox[{' S% g# n9 a* D+ y* l5 {
    "0.282609`", ",", "0.660888`", ",", "0.460064`", ",", "0.110334`", ",", ; @) x; K& ]" L
     "0.475524`", ",", "0.`", ",", "0.545528`", ",", "0.`", ",", "0.5511`",
& u( p$ V+ j6 |. E, J+ p$ l     ",", "0.23881`", ",", "0.690141`"}], "}"}], ",",
+ Z/ x$ X; |+ q6 b+ K   RowBox[{"{", # P7 w+ q1 s: H' I* r, M
    RowBox[{, I  A6 K! n6 N  R
    "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", 8 o+ |' ]7 X2 D( R4 @1 w7 G3 B
     "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
/ }; }* ?* t3 H  J' e  }6 m# X     "0.494866`", ",", "0.095701`", ",", "0.43662`"}], "}"}], ",",
; ^" U! }! ^6 d0 p   RowBox[{"{",
; D& {, C% b% r0 q& }% s    RowBox[{: M/ N& Y4 k- J/ K+ w+ }
    "0.347826`", ",", "0.697772`", ",", "0.108288`", ",", "0.022413`", ",",
: z# S$ V  j& d$ D& |' E; C     "0.356643`", ",", "0.247928`", ",", "0.90813`", ",", "0.`", ",", 1 d) W! s* N' k9 _
     "0.383374`", ",", "0.162839`", ",", "0.`"}], "}"}], ",",
4 q, h1 k) f! p. V& c$ ~8 I. B( G# ^   RowBox[{"{", 9 b. T8 q$ F; h$ Z8 c0 E
    RowBox[{! r' z( Q9 K4 _. g. B) C( c4 P+ f
    "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
. A+ s$ A% l( t* X% }     "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`", 9 w8 S9 D$ O1 A( `6 r3 V+ l
     ",", "0.335395`", ",", "0.267606`"}], "}"}], ",",
/ O' Y- m; z$ F" Z1 {! e" `8 x6 p7 i   RowBox[{"{",
: B% w5 A- k; h# h. q* v/ N3 T4 t    RowBox[{. \5 Q6 M- X/ u
    "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
: X  T/ @9 p+ i     "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`", ",",
" z! p& u* ]/ H. f     "0.160483`", ",", "0.211268`"}], "}"}], ",", 6 f9 U% y7 e. l; z2 C- F
   RowBox[{"{", 7 ^( e4 w: M6 f
    RowBox[{
# o) s. r# d3 B& o& y/ s    "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",", ) Z; t8 L$ R  r! x6 z) D: ]
     "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`", $ v3 S$ r. W2 k0 b9 |9 X' S5 p4 |
     ",", "0.398115`", ",", "0.408451`"}], "}"}], ",",
8 W! Z2 {- y( d- K* s7 Y   RowBox[{"{",
' w, _' z- t# `    RowBox[{
1 ]# c( T# R+ v0 o% n    "0.608696`", ",", "0.425199`", ",", "0.012979`", ",", "0.`", ",",
. p! Q/ ~' Q4 h$ W" ?     "0.482517`", ",", "0.50942`", ",", "0.406504`", ",", "0.`", ",", "0.`",
- s3 r- u7 D* C; j     ",", "0.157833`", ",", "0.478873`"}], "}"}], ",", / q0 A' H7 o0 e1 a- E- ?* s' i
   RowBox[{"{",
  Y3 m) v( B$ g8 g2 l5 h5 H# z) |    RowBox[{8 [) Q8 O# d8 c- z2 L
    "0.608696`", ",", "0.577973`", ",", "0.213587`", ",", "0.030889`", ",",
& B& J  T2 }2 X! s+ c$ q' \     "0.370629`", ",", "0.`", ",", "0.452846`", ",", "0.`", ",", "0.`", ",",
7 |/ j  p& x( \8 r% s( R     "0.315665`", ",", "0.380282`"}], "}"}], ",", 2 W* \3 P6 q- X
   RowBox[{"{",
4 g  H5 q3 `6 B    RowBox[{
: Q7 Y7 ~. w; x( \9 U& W: w' i    "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
# V9 `) t; |( _# K' U+ B$ ~( _+ E     "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.492344`",
7 n5 R2 C7 R0 _) Y9 s     ",", "0.211268`"}], "}"}], ",",
9 z0 z3 M" g2 A& P% g; K0 w) a) k& ~   RowBox[{"{",
& u" D9 _+ ~" ], D( G    RowBox[{
* I/ c+ I4 j/ l6 E( O1 k  {! i    "0.130435`", ",", "0.562039`", ",", "0.331662`", ",", "0.032643`", ",",
( a' R" i5 H; ]1 X     "0.314685`", ",", "0.414469`", ",", "0.27561`", ",", "0.`", ",", "0.`", 3 m- z# {3 U& f# z4 @
     ",", "0.638398`", ",", "0.43662`"}], "}"}], ",",
- p4 V. z% X" |) s. T9 d   RowBox[{"{",
# A& i8 |9 l% S/ ~* Q& H    RowBox[{- @2 ?3 @$ r8 G- G: U
    "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
1 ?  M; l" i: @0 v4 ?' q     "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
" K, i; X* c- E% }3 p  Q9 U     "0.392521`", ",", "0.478873`"}], "}"}], ",", # S1 ^# ~6 t9 ^, `9 z8 @/ t
   RowBox[{"{",
" z. A: F5 L4 m    RowBox[{
: [. k) M* `0 s% E0 O    "0.608696`", ",", "0.769475`", ",", "0.289283`", ",", "0.022882`", ",",
8 T, S8 H) u# J" r* b% ~8 s     "0.321678`", ",", "0.`", ",", "0.274797`", ",", "0.333333`", ",", "0.`",
; p# E. T* z, ?5 T4 J3 r* u     ",", "0.362191`", ",", "0.295775`"}], "}"}], ",",
2 Q- d* u. ^# t1 N* P   RowBox[{"{",
, l( h* u1 f5 D, b    RowBox[{
6 z2 e8 D) X3 U6 W$ B1 Q6 b7 G/ }    "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", 1 {/ t( g7 y" v% O* Q7 C/ v, K$ J: q
     "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`", ",",
( h  f1 A% v6 \0 K     "0.114252`", ",", "0.028169`"}], "}"}], ",", ! b* m* f+ f" J
   RowBox[{"{", 6 k( w6 N; }, v  a' Z
    RowBox[{
! j" J9 J2 n4 a+ ]' V" _    "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",", ; `! c, Z. x/ X9 g0 ?
     "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`", ",",
( n7 p& M' j9 g' c: x; ?: Y4 J     "0.401355`", ",", "0.43662`"}], "}"}], ",", 4 s7 ]( ]- s% y( r3 O
   RowBox[{"{", ' L8 Y. h* R5 v5 H4 Z% w, j9 L" n
    RowBox[{
& I+ C' ]- \/ V0 C; ?, |# `  r, D    "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", 8 M/ L+ V6 F; q+ }& j# x9 g$ \
     "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 6 Y+ C3 y8 {! R
     "0.827444`", ",", "0.394366`"}], "}"}], ",",
5 [3 Y. ~# a; \6 L  }5 ?( G   RowBox[{"{", : A; b" `; J9 q2 @- c
    RowBox[{/ F  d5 Y- A5 \/ b( U  n% K
    "1.`", ",", "0.199248`", ",", "0.295044`", ",", "0.041613`", ",", 4 w+ V' O5 I0 X* B; Q/ F
     "0.20979`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
0 f1 z7 `: [+ t( q     "0.676973`", ",", "0.295775`"}], "}"}], ",",
& D2 Q4 s; f! S) |+ E( S. {   RowBox[{"{",
: H& _+ @: u; f& F+ y2 F. F) y  a. i    RowBox[{  q' d* k7 A. u% U) o0 v' S; P& M
    "0.869565`", ",", "0.180363`", ",", "0.243056`", ",", "0.098349`", ",", & a; X/ Q4 L4 @+ v4 O
     "0.265734`", ",", "0.503391`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
( {; h' `3 q1 z" K- w% O     "0.331272`", ",", "0.830986`"}], "}"}], ",",
+ [  U1 Z2 q# ~; |   RowBox[{"{", 4 x# E5 J0 V, ?/ j
    RowBox[{8 @9 g4 x9 ]2 @# d
    "0.695652`", ",", "0.551785`", ",", "0.326201`", ",", "0.253608`", ",",
6 S4 g. @8 x% U9 o7 s" U9 v     "0.195804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 9 W3 q+ d" S& o1 r) b
     "0.845701`", ",", "0.169014`"}], "}"}], ",",
, O! U  n* i' {- E* k   RowBox[{"{",
9 ~  K% H+ l1 u$ F1 i6 v5 L    RowBox[{, n6 C$ W; K; z/ m3 O
    "0.652174`", ",", "0.572293`", ",", "0.111511`", ",", "0.035584`", ",",
$ Y3 B' `2 ~9 X# Q4 ?+ [! G" z     "0.405594`", ",", "0.249435`", ",", "0.544715`", ",", "0.`", ",", "0.`",
5 g4 b) s8 c4 ^& {( d! _2 y& k     ",", "0.287102`", ",", "0.366197`"}], "}"}], ",", 4 t1 M8 J" r" a. V* Y% J
   RowBox[{"{", ( f; j& J7 U) F4 m  r
    RowBox[{3 q% ?/ v. e6 G6 a9 O
    "0.652174`", ",", "0.562039`", ",", "0.336155`", ",", "0.014604`", ",",
& X8 K0 r1 u8 G0 ?6 X- l     "0.174825`", ",", "0.24416`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
2 s  |/ `5 q2 w! F2 ^; a; _& Q     "0.`", ",", "0.309859`"}], "}"}], ",", : W+ X1 @: G1 x% G' N6 k  w
   RowBox[{"{", # w! r9 k( D' `- L
    RowBox[{
1 q) y3 t+ ^/ O; T/ w" ^  D    "0.565217`", ",", "0.577383`", ",", "0.15587`", ",", "0.030963`", ",", 0 I& ~+ D4 ?" M! ^7 N, c$ l
     "0.258741`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", ( T# E! r1 t$ d; s" s
     "0.050059`", ",", "0.352113`"}], "}"}], ",", " @2 M/ ]0 C" d1 G! c* {! }
   RowBox[{"{", 8 @* S! k& l4 h% j! z
    RowBox[{: g! d* V/ A1 [. l" w) f/ y
    "0.565217`", ",", "0.613234`", ",", "0.232956`", ",", "0.05387`", ",", 1 e" a* y+ V3 b2 t/ X; t& T! i
     "0.230769`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
5 {1 {" Y: W) R. n6 v# e1 U1 F$ Q     "0.254122`", ",", "0.309859`"}], "}"}], ",",
+ h( ^8 m/ j& s1 d   RowBox[{"{",
. ?9 c4 d' C0 R    RowBox[{
% [! v" {' q9 x8 [6 m    "0.565217`", ",", "0.559531`", ",", "0.493262`", ",", "0.046209`", ",", + g- A8 e* [. {& C5 V: ~
     "0.293706`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
1 L9 U8 w: [, N. b3 X* @9 w     "0.086867`", ",", "0.774648`"}], "}"}], ",",
0 s* w  r: D- P0 w, g. s   RowBox[{"{",
. c$ h- L: E! R4 v6 T+ e/ K' I    RowBox[{
5 @! R7 f9 c9 A7 I, m8 F! J    "0.608696`", ",", "0.569711`", ",", "0.111932`", ",", "0.013542`", ",",
2 G, S7 E* x- t" J* Z     "0.335664`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.168704`", ",",
# l: A) y$ H% P8 D2 n     "0.659894`", ",", "0.422535`"}], "}"}], ",",
& I; G5 A4 W5 a$ R/ R. E& _   RowBox[{"{",
6 o1 [2 v. [' x9 m( g    RowBox[{
8 s# E& m- r( ^    "0.608696`", ",", "0.564547`", ",", "0.329844`", ",", "0.202036`", ",",
/ T+ r) `: |6 @     "0.51049`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 4 p1 i, ^; f3 ^6 Q
     "0.317138`", ",", "0.887324`"}], "}"}], ",",
% s+ N, s& H+ I0 W! X0 ]   RowBox[{"{",
8 q: y6 ^' [% M' M2 ~    RowBox[{; o3 Z) {7 S- v- y
    "0.521739`", ",", "0.546695`", ",", "0.165788`", ",", "0.029431`", ",", 6 T! g! X& A, y( E- i) K
     "0.51049`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
: X  x, m- \5 X! A0 f4 o) d     "0.605124`", ",", "0.887324`"}], "}"}], ",", 2 s% g% @8 g8 V8 ^$ b
   RowBox[{"{", 2 X. G: H, H0 w
    RowBox[{
- r1 ?- J: m" l+ u( B    "0.521739`", ",", "0.564178`", ",", "0.400518`", ",", "0.045023`", ",",
4 a/ ^: D0 K7 m     "0.615385`", ",", "0.3685`", ",", "0.660163`", ",", "0.301108`", ",", 9 r2 O  {! z# n; b0 x5 T( a. O
     "0.`", ",", "0.32126`", ",", "0.859155`"}], "}"}], ",",
6 m- ~( |' @- q5 h. @! a0 q   RowBox[{"{", / x5 Y4 a9 d( {; q
    RowBox[{$ v, W4 T; L) R/ G( @$ D' m3 S0 V
    "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
# R' r; e1 t8 N& [% N$ w2 \2 X  T     "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`", ' K* c) x$ V1 p. P! z! X
     ",", "0.595406`", ",", "0.239437`"}], "}"}], ",",
+ H# K, Y: K5 @   RowBox[{"{",
9 P& ~# s7 ~/ Q5 d) A- I, |- S    RowBox[{/ n+ @$ m7 M) W
    "0.652174`", ",", "0.549277`", ",", "0.257578`", ",", "0.058688`", ",", 3 c; |1 t4 ]* J: o2 P0 N3 i
     "0.356643`", ",", "0.`", ",", "0.817886`", ",", "0.`", ",", "0.`", ",",
& T, b/ y. v7 e) D) E0 ]     "0.555359`", ",", "0.295775`"}], "}"}], ",", 1 X0 A+ Z, n1 G' \0 M
   RowBox[{"{", " L5 {3 Z; l0 k! @
    RowBox[{
3 B3 p' k5 r; K% r2 O! J$ F! k    "0.695652`", ",", "0.549277`", ",", "0.572308`", ",", "0.082411`", ",", * V; b- t8 M9 F4 F% t' V: U( O' C- q
     "0.461538`", ",", "0.528259`", ",", "0.819512`", ",", "0.`", ",", "0.`",   k4 y5 ]% g+ {( _/ N7 r7 ~) E
     ",", "0.333333`", ",", "0.746479`"}], "}"}], ",", 3 L; `9 [- H; k% {" r) A6 q8 b# A7 X$ o
   RowBox[{"{", : p; w* r* u. l- r
    RowBox[{
9 ^1 O7 E$ J0 T6 p) b    "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", 8 s7 S, G' m% i2 p
     "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`", & U. Y9 w  {, p
     ",", "0.149588`", ",", "1.`"}], "}"}], ",",
" C/ k9 x+ |& U1 K$ O   RowBox[{"{", , A* e# c4 m0 t7 Q9 o
    RowBox[{. D4 }0 I: ?$ s& E9 @
    "0.282609`", ",", "0.531278`", ",", "0.321428`", ",", "0.228625`", ",", ( }6 t. V; J! }+ d- ]9 H
     "0.594406`", ",", "0.53052`", ",", "0.410569`", ",", "0.`", ",",
( P3 e- ], x2 o" s) R9 i     "0.757457`", ",", "0.493522`", ",", "0.549296`"}], "}"}], ",", ! I( b- `' Q, a/ [
   RowBox[{"{",
3 ?7 n8 |/ u" E/ u# [0 A    RowBox[{; l, ^( B4 G& b
    "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", 9 ~* n$ ]2 s& O
     "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`", ",",
$ h, U) P  ?% ~% Z# M" a( c- Q4 q     "0.224676`", ",", "0.366197`"}], "}"}], ",",
7 l7 L3 `$ I2 n, T   RowBox[{"{",
9 P1 X+ U& R0 v    RowBox[{
! ~' j* b; P/ N/ F6 q6 g    "0.391304`", ",", "0.705444`", ",", "0.045908`", ",", "0.07312`", ",",
9 h/ z/ u. s0 r# a2 @  C+ p! P     "0.622378`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.496333`", ",", & c5 \, L" D# J7 p* S
     "0.410188`", ",", "0.549296`"}], "}"}], ",",
7 D: B) t) D% X1 j3 E2 f   RowBox[{"{",
: e+ y( _; K% L3 f    RowBox[{3 N+ p0 K" {& I8 d
    "0.282609`", ",", "0.661921`", ",", "0.344992`", ",", "0.085178`", ",", 9 b# a2 M7 W7 ~; E
     "0.293706`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 5 @! i8 [/ @7 s9 ?3 k& w6 t
     "0.668139`", ",", "0.577465`"}], "}"}], ",",
7 x# F( o7 u. X5 W; B& H   RowBox[{"{",
5 a$ y1 \# F+ `2 Z( R    RowBox[{' g( T8 m% j5 C- X$ I2 a! ^" k. E
    "0.478261`", ",", "0.661921`", ",", "0.644209`", ",", "0.077296`", ",",
, J% X9 |3 x* d5 z2 f# x- i* h     "0.412587`", ",", "0.`", ",", "0.413008`", ",", "0.502518`", ",", "0.`",
9 ]! D$ J$ x! l* @0 P     ",", "0.102179`", ",", "0.690141`"}], "}"}], ",",
# s: b/ k& B, C/ E0 j0 c. T4 N, o   RowBox[{"{", # N6 Y# b  @* R, b, H0 `# H7 r/ f
    RowBox[{) O% x! X( _6 F7 F8 n' z; ~% g
    "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
- J0 Z+ l0 U) U0 ~# y     "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", ! e$ G  j/ w" G8 J$ w( o
     "0.380742`", ",", "0.71831`"}], "}"}], ",", , w2 H7 h% k  R; P6 l5 R, P% {
   RowBox[{"{",
6 S: L8 o- c" U7 y+ N    RowBox[{- R7 t' U- P& U& N8 M; S; y5 i3 h- ]
    "0.5`", ",", "0.984656`", ",", "0.288432`", ",", "0.047692`", ",",
4 Z/ o; v* _4 j0 d     "0.27972`", ",", "0.`", ",", "0.821138`", ",", "0.510574`", ",", "0.`",
# i% s! g* x# s/ o8 D( Z     ",", "0.319494`", ",", "0.521127`"}], "}"}], ",", 2 V* P* W& i0 [4 _
   RowBox[{"{",
/ b6 @8 d% I1 {! L& \' |    RowBox[{/ x, H! z* T. |$ C
    "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
" R+ T) q8 E9 M/ \3 G* [* X     "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`", 7 \* T6 ~7 e9 a* Q# B2 \
     ",", "0.031508`", ",", "0.929577`"}], "}"}], ",",
" G* T+ Z6 o$ L" G( L! a7 b  M   RowBox[{"{",
$ B  o! g, u# e* S* b    RowBox[{, @$ B. ?! S( @) a, ]" Y
    "0.73913`", ",", "0.774639`", ",", "0.17512`", ",", "0.036498`", ",",
; g5 ]1 D& `! _' Q& Y     "0.391608`", ",", "0.739261`", ",", "0.408943`", ",", "0.553877`", ",",
9 G0 T! ^! N: d% U     "0.`", ",", "0.292108`", ",", "0.521127`"}], "}"}], ",",
' n1 V: |1 [1 ]   RowBox[{"{",
1 f7 ?% [  g/ S: c7 {    RowBox[{
2 _8 D7 R# L, y$ b    "0.586957`", ",", "0.982074`", ",", "0.158462`", ",", "0.063902`", ",", ' e4 p! l) V7 l; A" ^! ]
     "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
# }% o% K, E, {     "0.329505`", ",", "0.338028`"}], "}"}], ",", 0 S7 \1 W0 f, h9 B+ k
   RowBox[{"{",
2 {" c1 r4 m, q# z" [" a1 e    RowBox[{
8 W- ]# [* Q0 V! g, k  u0 [, z    "0.543478`", ",", "0.982074`", ",", "0.306872`", ",", "0.041934`", ",",
! K3 X  p; G$ h9 `7 M& G; H$ L     "0.426573`", ",", "0.380558`", ",", "0.414634`", ",", "0.506546`", ",",
) T. I% Y9 [7 v* W( \' l     "0.`", ",", "0.337456`", ",", "0.380282`"}], "}"}], ",",
: j7 O. d; w7 s5 a3 M   RowBox[{"{", 8 U' h2 X$ `- t7 J( M
    RowBox[{
/ @( ~' Q2 z2 h* E% A    "0.73913`", ",", "0.997418`", ",", "0.170143`", ",", "0.058268`", ",", 6 b# g  V5 R$ ^( a
     "0.538462`", ",", "0.248681`", ",", "0.`", ",", "0.339376`", ",", "0.`",
) `/ W4 W4 {8 H7 g; C% v     ",", "0.766784`", ",", "0.676056`"}], "}"}], ",", . `7 e* F2 i9 E3 ]' H% H. v
   RowBox[{"{", ; {& J, i  V6 ]
    RowBox[{* ^4 H( p- g/ c, X7 C- H' \
    "0.695652`", ",", "0.700428`", ",", "0.139361`", ",", "0.182169`", ",",
7 n, v, a: D0 q* K  e7 r9 m$ w* M     "0.412587`", ",", "0.243406`", ",", "0.`", ",", "0.`", ",", "0.136919`",
7 S3 i, u& b; d- z     ",", "0.676678`", ",", "0.591549`"}], "}"}], ",", ' ]1 o( Z3 g$ @) o2 Z
   RowBox[{"{",
5 v4 |0 f' h8 e# ~    RowBox[{
# z: t. f- `( G  ]: r! k    "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
/ U' `5 G! u. p     "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`",
# j* s+ m$ Q" V     ",", "0.541519`", ",", "0.464789`"}], "}"}], ",",
& o6 g4 Z  {, t/ P: r   RowBox[{"{", ( n2 H! z' H; x" v5 J' j
    RowBox[{
1 `  M( A$ p  l6 w( ^    "0.652174`", ",", "0.751623`", ",", "0.355593`", ",", "0.039883`", ",", 2 ], r" j( {$ b, w% _7 C+ M
     "0.195804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
, A& p; r9 k: Q1 r     "0.064488`", ",", "0.295775`"}], "}"}], ",", $ U% J3 a. G  N5 M, \
   RowBox[{"{", 9 O1 R: N$ x, W& @" ?/ m& @
    RowBox[{
' x' J1 C* G* T/ u+ o) M6 \    "0.521739`", ",", "0.679847`", ",", "0.152375`", ",", "0.030048`", ",", - C0 B4 E( ~+ ?0 g. T& n
     "0.363636`", ",", "0.`", ",", "0.271545`", ",", "0.`", ",", "0.`", ",", ! ]9 ]* r4 X( J. P' U
     "0.463192`", ",", "0.380282`"}], "}"}], ",", $ P& I8 _7 l! X
   RowBox[{"{", 8 u9 O& e' k( R% w4 i' f
    RowBox[{+ ^  K: L- r4 D( H
    "0.434783`", ",", "0.728533`", ",", "0.18683`", ",", "0.12951`", ",",
7 z, [2 f1 y5 l3 p- e# q     "0.195804`", ",", "0.`", ",", "0.269919`", ",", "0.`", ",", "0.32665`",
5 I# \2 c8 M0 m) ]. j1 A     ",", "0.388398`", ",", "0.211268`"}], "}"}], ",",
4 Y6 ~1 x- Y  o7 `* I   RowBox[{"{",
) T6 A, l+ i- e5 }$ ~" I+ O5 ~% ~    RowBox[{
7 ?6 d; p9 j" P) J) n  U    "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
' p" m& c* ?0 o9 K/ |, L  Q     "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`", 4 x8 @3 t$ f, g# I5 }
     ",", "0.262367`", ",", "0.253521`"}], "}"}], ",",
# @" @* O9 h4 o8 q# u  I8 V0 ~   RowBox[{"{",
- A' d' y; E& P    RowBox[{
" j2 `7 c3 w8 }) ^' h6 e, r    "0.608696`", ",", "0.633742`", ",", "0.322697`", ",", "0.068597`", ",",
$ f* k0 p( M! Z" s2 c! b     "0.328671`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.287042`", ",",
; U6 C, D* ]* V( ^+ o     "0.290931`", ",", "0.28169`"}], "}"}], ",", - @$ N6 k) h) x  s
   RowBox[{"{",
' Q6 o5 I8 D, d# {    RowBox[{: [; A5 _0 B5 e/ u9 X; V
    "0.478261`", ",", "0.539023`", ",", "0.412108`", ",", "0.107566`", ",",
( F- V+ \$ X8 J3 z) M/ r     "0.237762`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
; l5 g- [5 p3 N- A+ e3 |$ I     "0.380742`", ",", "0.507042`"}], "}"}], ",",
+ ^- X! D9 u/ H. ?   RowBox[{"{",
- I% Q0 \: ]" h5 W2 x    RowBox[{
% w7 q+ Z8 E. d    "0.608696`", ",", "0.551859`", ",", "0.176821`", ",", "0.076332`", ",", & C6 v& b- E# J% @4 q  d
     "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",   L1 U4 n7 D9 I. b& d
     "0.429034`", ",", "0.239437`"}], "}"}], ",", 3 T5 p# W5 d8 A
   RowBox[{"{", ! v" \# {  }! {+ ^3 Q$ c! T
    RowBox[{$ x9 H' j; p3 A
    "0.652174`", ",", "0.551859`", ",", "0.033549`", ",", "0.018459`", ",", ! D" S9 [; e4 V& h  ^( o
     "0.573427`", ",", "0.`", ",", "0.553659`", ",", "0.`", ",", "0.40489`",
6 x3 S1 q( P  \" a) @2 ~     ",", "0.193168`", ",", "0.394366`"}], "}"}], ",", & W- b% i8 ?0 p  x4 E# G; w3 Q( F
   RowBox[{"{", % a/ m8 C% ?9 l/ S: h5 p
    RowBox[{
. J' o& P+ u  s1 K& ~, w    "0.695652`", ",", "0.595382`", ",", "0.277493`", ",", "0.100326`", ",", : J/ a- k: C0 a6 D8 |3 |
     "0.286713`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
! \* A# E1 i' {9 J% t# e) A     "0.448763`", ",", "0.338028`"}], "}"}], ",",
$ K( R- i0 _! o) M& |8 [0 {   RowBox[{"{", 3 _. Y' b0 V. }3 d% S8 D
    RowBox[{' S" w, ~' N# i4 o! Y
    "0.565217`", ",", "0.559531`", ",", "0.422669`", ",", "0.078111`", ",",
) R1 W$ H8 b" z3 E$ h. [     "0.286713`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
9 y1 E& V5 C5 a     "0.442285`", ",", "0.394366`"}], "}"}], ",",
. R& Q3 j- L2 t5 `7 ^" ^& u$ o   RowBox[{"{",
1 [( G3 A0 h0 y0 J    RowBox[{5 J+ [/ m# q5 c% y6 X
    "0.586957`", ",", "0.398126`", ",", "0.140619`", ",", "0.069116`", ",",
) P4 d7 _; m! Y8 k- [     "0.461538`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", # U: d1 S+ {0 c* d. k  E
     "0.575383`", ",", "0.15493`"}], "}"}], ",", 4 r3 L2 ?) c5 q
   RowBox[{"{",
, T. P$ Q1 g! ^% s* `    RowBox[{
2 y4 e7 q/ b& \1 G) t    "0.695652`", ",", "0.398126`", ",", "0.019829`", ",", "0.041366`", ",",
7 q+ o! C2 S$ W- Q. ~( P' {; H+ C     "0.552448`", ",", "0.24416`", ",", "0.`", ",", "0.`", ",", "0.`", ",", ' R. B; p4 Q8 J5 F: B& X! k
     "0.515607`", ",", "0.591549`"}], "}"}], ",", # x( F* Z  ~) \% u) S
   RowBox[{"{",
& r4 P' p" ~5 g  p: d+ v    RowBox[{
  l! J$ G( P3 r. k    "0.695652`", ",", "0.700354`", ",", "0.422467`", ",", "0.068128`", ",", + S: f  f% u+ H3 w7 G
     "0.20979`", ",", "0.`", ",", "0.`", ",", "0.500504`", ",", "0.`", ",",
* |8 a" v4 h6 u' ^7 y& u6 M     "0.057715`", ",", "0.408451`"}], "}"}], ",",
3 ~7 x  h+ \- N# M0 k   RowBox[{"{", ! [& x0 ~/ [' ~9 _
    RowBox[{
- Y" E. g; }; r6 ^# O    "0.521739`", ",", "0.193125`", ",", "0.210582`", ",", "0.110433`", ",", 2 H' Z( {- Z  G6 R: v  q
     "0.447552`", ",", "0.382065`", ",", "0.413008`", ",", "0.498489`", ",",
" ~: R- ~4 [6 S1 g3 |3 A     "0.`", ",", "0.174617`", ",", "0.295775`"}], "}"}], ",", 3 v: w+ ]- _7 j: m- `
   RowBox[{"{",
) D5 }% P; U3 n$ O( z( u6 k1 g7 t    RowBox[{
( X5 ?6 _* m! x/ f    "0.347826`", ",", "0.063588`", ",", "0.830527`", ",", "1.`", ",",
* u$ D% A7 B) w9 U2 V7 c8 e$ d& _1 g! k     "0.111888`", ",", "0.`", ",", "0.410569`", ",", "0.`", ",", "0.`", ",",
8 Q1 b+ E" @! z     "0.66755`", ",", "0.661972`"}], "}"}], ",", 7 C* A- _: ~1 V* c5 ~
   RowBox[{"{", & X% W5 m8 t% _$ a
    RowBox[{
! O& e( B5 @# N! L2 v9 _% L    "0.521739`", ",", "0.188109`", ",", "1.`", ",", "0.785485`", ",", * W; O. g5 m+ k$ ^) ]2 ]
     "0.342657`", ",", "0.373775`", ",", "0.406504`", ",", "1.`", ",", "0.`",
7 L7 O" |2 y" s; [+ q0 u; [+ _7 G     ",", "0.371025`", ",", "0.774648`"}], "}"}], ",",
" p2 A9 u! U6 O8 |2 A   RowBox[{"{", # _1 ?4 k; b( d. f6 Y
    RowBox[{
2 x# G; g9 s1 z% p7 H: z) X5 ?. `" e    "0.695652`", ",", "0.188404`", ",", "0.088836`", ",", "0.059504`", ",",
, t0 j6 |: _1 p, r( v( x% p     "0.706294`", ",", "0.37679`", ",", "0.`", ",", "0.`", ",", "0.`", ",", : M/ M+ v9 o3 y; a4 c
     "0.570966`", ",", "0.746479`"}], "}"}], ",",
7 a& ~4 M  q+ d3 {   RowBox[{"{", $ X# R2 W( m: \5 |1 L
    RowBox[{2 a: O6 D' i( Q! I* q
    "0.695652`", ",", "0.057465`", ",", "0.316316`", ",", "0.15128`", ",",
+ J, f% R9 {; ^$ f' W$ w2 n9 a% w     "0.615385`", ",", "0.371515`", ",", "0.412195`", ",", "0.500504`", ",", + l& C, T/ K5 {( c
     "0.`", ",", "0.468198`", ",", "0.887324`"}], "}"}], ",",
( q3 D' ?' S* I! m   RowBox[{"{",
* _7 a2 D/ H9 A7 K& p( H    RowBox[{4 |6 D8 [; F1 Z+ h5 q* s
    "0.608696`", ",", "0.01136`", ",", "0.295586`", ",", "0.113892`", ",", . n! G: p6 N2 Z+ l2 d* f
     "0.58042`", ",", "0.746044`", ",", "0.405691`", ",", "0.501511`", ",",
7 V( ?& i' a: n. t     "0.`", ",", "0.414016`", ",", "0.84507`"}], "}"}], ",",
* s# h1 s3 \) {& n   RowBox[{"{", 2 U, g& W6 J& g; o7 c! k
    RowBox[{
' R: R' ^5 r+ k+ j0 \9 r    "0.608696`", ",", "0.364783`", ",", "0.130582`", ",", "0.020214`", ",", : }/ I" q3 w: y' X' U- v- z
     "0.356643`", ",", "0.379804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", : z$ |$ }4 k! I0 T5 t3 _: ^( E" ^
     "0.18669`", ",", "0.704225`"}], "}"}], ",",
! ], N4 I2 }6 x   RowBox[{"{",
' b5 d! a0 c1 t9 k  [5 V5 [    RowBox[{
2 H$ H9 j! w0 Y: M! t    "0.608696`", ",", "0.193199`", ",", "0.11269`", ",", "0.036152`", ",", # z2 P) c1 Y, h0 G' p
     "0.636364`", ",", "0.382065`", ",", "0.409756`", ",", "0.495468`", ",", 4 K1 k* l5 X7 E* R7 d4 }6 p& R
     "0.`", ",", "0.442874`", ",", "0.760563`"}], "}"}], ",", 7 L1 j+ S$ r1 Z$ f* x2 U
   RowBox[{"{",   ~  `! ?2 G) D" H9 @
    RowBox[{
6 w% w. E: p" Q    "0.73913`", ",", "0.328932`", ",", "0.246779`", ",", "0.12652`", ",", + ^( p$ q1 q6 W6 X& |6 t/ t* s% n
     "0.454545`", ",", "0.`", ",", "0.495122`", ",", "0.`", ",", "0.414181`", . k: S; a0 t" M4 q1 }& ^2 T
     ",", "0.68669`", ",", "0.43662`"}], "}"}], ",",
. u+ b$ G5 L. ]. v' S   RowBox[{"{",
* j, n( u: F" z2 N! M# B( ~    RowBox[{
9 t& e$ q2 D: D5 k$ ^    "0.73913`", ",", "0.341767`", ",", "0.36209`", ",", "0.183528`", ",", ! f/ v4 q6 V( g0 P& z6 B
     "0.573427`", ",", "0.413715`", ",", "0.454472`", ",", "0.661631`", ",", % s( w) M3 Y; F  Y+ `' f
     "0.`", ",", "0.244111`", ",", "0.633803`"}], "}"}], ",", - q2 t5 t3 m( Z) _, M
   RowBox[{"{", 7 _! ^  N: G/ U" q
    RowBox[{
1 k4 r5 @: m: Y$ T5 h' J" c    "0.695652`", ",", "0.187076`", ",", "0.279724`", ",", "0.006252`", ",", 8 O* J* S5 a. ~, C
     "0.405594`", ",", "0.418237`", ",", "0.544715`", ",", "0.`", ",", "0.`", - W* y" l- _( z! T4 h) W) {; C
     ",", "1.`", ",", "0.422535`"}], "}"}], ",",   A: X% b* T9 M7 Q& e/ n% w% v
   RowBox[{"{", # `. V0 I; ~. z. C
    RowBox[{
: S8 @1 e' T) I9 G! ?    "1.`", ",", "0.333948`", ",", "0.06475`", ",", "0.065855`", ",", 0 J+ h3 g( j; p% a
     "0.342657`", ",", "0.`", ",", "0.40813`", ",", "0.`", ",", "0.`", ",",
# I' y0 b6 t6 K  c# @0 j$ D, M     "0.957892`", ",", "0.295775`"}], "}"}], ",", ) n0 E2 \0 l7 O+ {3 R8 O
   RowBox[{"{", - Y# H. r. b" E3 O3 g
    RowBox[{8 i! {2 `' r8 T/ {, g, g& S" c
    "0.73913`", ",", "0.3054`", ",", "0.374567`", ",", "0.13287`", ",", $ W  h/ P0 |+ {# k
     "0.258741`", ",", "0.834966`", ",", "0.`", ",", "0.`", ",", "0.272861`",
! W2 K1 k5 d( M8 m3 \     ",", "0.266784`", ",", "0.309859`"}], "}"}], ",",
& o/ D: ]4 o- |( V8 M- r   RowBox[{"{", # m  B3 _8 A/ e6 J
    RowBox[{# N9 {" b% G; m; m4 G
    "0.826087`", ",", "0.151962`", ",", "0.36028`", ",", "0.221632`", ",", 8 Y- w6 r* h$ q% B) S+ i
     "0.447552`", ",", "0.584778`", ",", "0.457724`", ",", "0.`", ",", "0.`", / z6 i0 d  T7 O! _1 M
     ",", "0.826855`", ",", "0.408451`"}], "}"}], ",",
2 m+ d7 ?. p% ?# ?/ N   RowBox[{"{",
4 w% R8 d8 [) r! N/ L: a    RowBox[{
4 j3 a: ^1 @0 i. F    "0.565217`", ",", "0.047212`", ",", "0.233154`", ",", "0.121528`", ",", , x; ?+ L. K9 Q& h
     "0.314685`", ",", "0.417483`", ",", "0.546341`", ",", "0.`", ",",
( \# ~& ~7 R) p+ n  ?     "0.669438`", ",", "0.341873`", ",", "0.197183`"}], "}"}], ",",
% J6 }" h8 P$ w* X5 _' Z/ k) A   RowBox[{"{", 2 O3 l& ?! H' q$ ~! u5 W( v5 D; M7 x# w4 q
    RowBox[{* b) y# z6 q) e9 N7 y
    "0.826087`", ",", "0.034376`", ",", "0.690349`", ",", "0.51238`", ",", 8 X  M: A8 W* N: C. I) D: m2 D
     "0.685315`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.556479`", ",", 2 n4 z) s& ^' [
     "0.412544`", ",", "0.732394`"}], "}"}], ",",
9 V! D9 L# r' \# k& s: ]   RowBox[{"{",
7 f( q. N" n1 l    RowBox[{* d! }1 A, F% U
    "0.652174`", ",", "0.`", ",", "0.374417`", ",", "0.188075`", ",",
4 w2 Z. j' o4 B     "0.706294`", ",", "0.498116`", ",", "0.729268`", ",", "0.`", ",", 4 U5 H+ e0 @! r5 e
     "0.454279`", ",", "0.322144`", ",", "0.802817`"}], "}"}], ",",
) K# i# L) K5 Y! Y: Q2 p   RowBox[{"{", / I, E" r; m0 D9 F  o5 \- R' V3 ]
    RowBox[{
% V0 i0 h8 ]6 ?, _& ^  }0 L6 [. M$ c    "0.782609`", ",", "0.180363`", ",", "0.237142`", ",", "0.054809`", ",", $ y6 N& N: g& h) B6 E
     "0.629371`", ",", "0.373775`", ",", "0.247967`", ",", "0.`", ",", ' o* p- B* N8 a; t. v7 ^
     "0.163814`", ",", "0.370436`", ",", "0.746479`"}], "}"}], ",",
: H1 t$ B) P: v6 z. |0 q' H6 M   RowBox[{"{",
& `; U) [' w" K8 V. k' t    RowBox[{
8 E  n7 i6 D( l% U; g& z, b    "0.608696`", ",", "0.16915`", ",", "0.368148`", ",", "0.393768`", ",",
; E! h; j. R5 P3 S! o6 T/ Y     "0.440559`", ",", "0.995479`", ",", "0.545528`", ",", "0.`", ",",
) X+ f1 F! Q6 I  Y( n2 @& J% D     "0.56577`", ",", "0.333039`", ",", "0.380282`"}], "}"}], ",", & o9 U: _8 ?- ^4 K6 T
   RowBox[{"{",
% r" A% O2 G# Q- Y- v7 Q+ ~) _) g+ \    RowBox[{4 j& {' k/ f$ a
    "0.695652`", ",", "0.390454`", ",", "0.186683`", ",", "0.039439`", ",", ! m. o$ K" I7 g: _/ B% H4 ?/ T
     "0.482517`", ",", "0.497362`", ",", "0.415447`", ",", "0.50856`", ",",
/ O# p# \  W1 g; r' X; u     "0.`", ",", "0.390754`", ",", "0.56338`"}], "}"}], ",",
  j* L4 d& t+ J; d- W; D! W6 k   RowBox[{"{",
: v9 S; \3 ?1 N& a2 ]( G/ ^    RowBox[{; I8 c" V+ X* {5 u9 |5 }
    "0.73913`", ",", "0.428888`", ",", "0.082728`", ",", "0.070154`", ",", , Z; v5 R% Z  ^  ~( \0 ]$ h0 O* m' e
     "0.27972`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
2 f" k; p" m2 G, S     "0.694935`", ",", "0.323944`"}], "}"}]}], "}"}]], "Output",5 t) I* [& K" D+ a3 W
CellChangeTimes->{3.57795879182092*^9, 3.5779604974578943`*^9, $ l( b" |% B4 |8 \' [* m
  3.57801214396875*^9}]8 ^0 ~* E+ V  u$ x
}, Open  ]],( Z# Q. o$ ]( p9 u$ z  m

0 R; C" w( N; o) X+ Q% `% kCell[CellGroupData[{. t  G8 _0 o! K8 P  T* }$ }

8 E" |; r5 k5 P$ e" OCell[BoxData[
" T) m: q6 w1 t6 B% m RowBox[{"Array", "[", ) _% l$ n4 L" d% O" f+ G
  RowBox[{"CM", ",",
( q" D8 s# L9 d6 _   RowBox[{"{", * z* s' @' Q* T( W4 f+ O" o% R
    RowBox[{"80", ",", "9"}], "}"}]}], "]"}]], "Input",
/ P. Y9 Y) \+ H' `+ ] CellChangeTimes->{{3.577844235859375*^9, 3.577844291953125*^9}}],
- E8 B/ D8 O! A3 G* }, ~+ G" E
Cell[BoxData[
# J- F7 i$ c# w- ^7 ]" K8 X+ i RowBox[{"{",
) x8 V! g" v* Q/ T% P8 y  RowBox[{
1 g4 I0 |  ?( e6 A   RowBox[{"{",
. y+ j7 G  h4 L4 q    RowBox[{
. |0 x' Z: ]& z     RowBox[{"CM", "[",
+ b6 E* o& `1 D6 l( v. \( i      RowBox[{"1", ",", "1"}], "]"}], ",",
! |( N& N- v1 b8 T     RowBox[{"CM", "[", " [, B! \& Y. L$ g" j& \
      RowBox[{"1", ",", "2"}], "]"}], ",", - U  C& _9 O) |6 w- Z& U
     RowBox[{"CM", "[",
3 D# l' {- ~7 F      RowBox[{"1", ",", "3"}], "]"}], ",", 1 x7 K$ u# d$ u9 A# u
     RowBox[{"CM", "[", 7 i9 C0 S$ l2 t* T& z5 y3 D8 r
      RowBox[{"1", ",", "4"}], "]"}], ",",
2 h: A# c8 f" u: o     RowBox[{"CM", "[", - h! E. I& _, f% }, g% j
      RowBox[{"1", ",", "5"}], "]"}], ",",
# L9 K3 `0 ^; X& |( `7 d     RowBox[{"CM", "[", ; F. E9 z+ j; G, r, S5 r4 @
      RowBox[{"1", ",", "6"}], "]"}], ",", 7 @, ^/ F& A5 i7 X5 B
     RowBox[{"CM", "[", ) N2 T4 p% [, e  W# I$ U% {
      RowBox[{"1", ",", "7"}], "]"}], ",", 8 N9 i, F( c9 G4 x* y& I+ J7 d% g
     RowBox[{"CM", "[", 1 \& Y3 a- S/ N' L; F' A
      RowBox[{"1", ",", "8"}], "]"}], ",", 0 w) d( v: p; ^/ ]
     RowBox[{"CM", "[",
! D4 h: _0 ^! G# g$ q: ~9 A3 L      RowBox[{"1", ",", "9"}], "]"}]}], "}"}], ",", / U7 A. F" N0 A* Y. i
   RowBox[{"{",
$ L1 U  X9 E1 n" n% K" h    RowBox[{7 b! l. Z! U9 |7 B) N% v- a' L4 @% d
     RowBox[{"CM", "[",
& a# t/ U9 }  M4 s      RowBox[{"2", ",", "1"}], "]"}], ",", 8 U) e2 S. K$ L
     RowBox[{"CM", "[", , @( I& Y. W9 h, `
      RowBox[{"2", ",", "2"}], "]"}], ",",
5 r0 O/ L- T* }# P. B2 Q     RowBox[{"CM", "[", : b0 I" x% s2 E# j* R% y, k
      RowBox[{"2", ",", "3"}], "]"}], ",", % t3 o& _+ M% \: X
     RowBox[{"CM", "[", . @3 i" g2 @, C: Z; X% l9 h* _+ d
      RowBox[{"2", ",", "4"}], "]"}], ",",
3 k" p/ s$ y5 E4 @: s/ C     RowBox[{"CM", "[",
5 F: l6 ?+ l6 q2 t5 B7 |) E6 X      RowBox[{"2", ",", "5"}], "]"}], ",",
* h/ S! n+ n2 ]  A2 X9 H3 t$ {- N3 n  B     RowBox[{"CM", "[", $ V& S! @* B: n( w6 E
      RowBox[{"2", ",", "6"}], "]"}], ",", 0 H/ D' d) s4 p$ [! H9 H  w  c
     RowBox[{"CM", "[",
! m# P, [, s" D3 _) j, w0 A      RowBox[{"2", ",", "7"}], "]"}], ",", 7 l1 u& O0 W: u3 f- t
     RowBox[{"CM", "[",
$ Z. @; |! L5 V/ R1 @4 u+ |      RowBox[{"2", ",", "8"}], "]"}], ",", * y. t0 R8 d' }! a# g
     RowBox[{"CM", "[", % R( z0 G" s# @- c* n
      RowBox[{"2", ",", "9"}], "]"}]}], "}"}], ",", 3 j* ^: p. a7 O2 l+ I4 P
   RowBox[{"{", ! ^/ R$ W; d7 n* C8 p% c: I
    RowBox[{
! C+ c5 U# U3 B% B     RowBox[{"CM", "[", ) y# J$ L$ T3 P5 [: P  b. f4 q8 h
      RowBox[{"3", ",", "1"}], "]"}], ",",
5 Y' G% E& R' f; |% V     RowBox[{"CM", "[", ) v4 c, V2 v' B& q  |, E' d/ L
      RowBox[{"3", ",", "2"}], "]"}], ",",
4 z& _& Y3 O  _0 {& W' h4 `. u" g     RowBox[{"CM", "[",
. x) V1 J5 G( j! h      RowBox[{"3", ",", "3"}], "]"}], ",", & d( k; B% n  T! n' u
     RowBox[{"CM", "[", , p+ m+ o6 x# F6 y- o- L
      RowBox[{"3", ",", "4"}], "]"}], ",",
  c' `7 |: j/ ^" S5 A9 R: U$ x6 G, ]% C     RowBox[{"CM", "[",
: ~, E4 N' l9 ~3 d      RowBox[{"3", ",", "5"}], "]"}], ",",
' p" v0 i& r3 \, V3 q4 \     RowBox[{"CM", "[", ' X: \. R0 n; Q9 S
      RowBox[{"3", ",", "6"}], "]"}], ",", 4 ~8 o2 y7 [$ O; ^
     RowBox[{"CM", "[",
% `) ?8 P5 J9 m  Z      RowBox[{"3", ",", "7"}], "]"}], ",",
1 U" E! q* J$ q# B: q' ]9 Y     RowBox[{"CM", "[",
. q+ Z5 ?9 H4 v  z6 n      RowBox[{"3", ",", "8"}], "]"}], ",", - A4 L# L9 O9 w$ y0 G6 @
     RowBox[{"CM", "[", : D4 N, \) Q; W$ J& ~2 X
      RowBox[{"3", ",", "9"}], "]"}]}], "}"}], ",", * X9 q3 N" `+ [% X
   RowBox[{"{",
$ c! K" Y1 q- g7 a    RowBox[{
. {8 I. r2 L5 |     RowBox[{"CM", "[",
) [2 o! K: ~( A- c/ p5 z; b      RowBox[{"4", ",", "1"}], "]"}], ",", . u9 C2 v1 n7 }" o/ l: @
     RowBox[{"CM", "[", & T" n9 J, r; W5 y) N8 K7 u
      RowBox[{"4", ",", "2"}], "]"}], ",", + e. a7 t, e1 C. g* \1 V; `
     RowBox[{"CM", "[",
- _; G- }1 M" s" C! t      RowBox[{"4", ",", "3"}], "]"}], ",", : E: U; Y: ~) |, U4 s) V8 Y: O5 E! l
     RowBox[{"CM", "[", 7 f3 r" K: ~$ z* S( \# h5 P
      RowBox[{"4", ",", "4"}], "]"}], ",",
8 {5 m  H+ |% V1 R     RowBox[{"CM", "[", ! _! L' B# M4 B( F# t+ D8 b
      RowBox[{"4", ",", "5"}], "]"}], ",", 8 ^! X- }; c% E& ?
     RowBox[{"CM", "[",
1 V* E) {2 `9 f" l, Q  v      RowBox[{"4", ",", "6"}], "]"}], ",",
5 ]; F8 w7 u8 I9 E3 p# j" j     RowBox[{"CM", "[",
! |. @( K( x; _" o  c, b      RowBox[{"4", ",", "7"}], "]"}], ",",
' H$ ~6 F) w) E     RowBox[{"CM", "[",
% |) c" x  Z6 I2 X( S. C      RowBox[{"4", ",", "8"}], "]"}], ",",
5 e  y% d0 h8 h: S: w     RowBox[{"CM", "[", 8 ~5 t4 k" @- R5 T2 o) j" X
      RowBox[{"4", ",", "9"}], "]"}]}], "}"}], ",", % F6 B' d; p4 B2 G
   RowBox[{"{", - z# F6 s( j: l- ~% U+ P6 N3 R5 j
    RowBox[{7 H9 _9 A5 p. ]$ c5 Q2 b! N
     RowBox[{"CM", "[", ) y8 t, n9 Q2 m
      RowBox[{"5", ",", "1"}], "]"}], ",",   k8 N- n8 c: c: A' C
     RowBox[{"CM", "[", 1 S2 s0 h( y; i! F" b
      RowBox[{"5", ",", "2"}], "]"}], ",", 9 j  z( {" E0 J% E6 Q9 g8 q! a
     RowBox[{"CM", "[", ! D6 k. Y8 o7 }, V# i3 Y* a" X
      RowBox[{"5", ",", "3"}], "]"}], ",",
) {  j0 {7 o, L1 G% ]     RowBox[{"CM", "[", & L2 t5 s% h- x3 l
      RowBox[{"5", ",", "4"}], "]"}], ",",
# E( k+ x& H* q$ X     RowBox[{"CM", "[", % D3 y+ P0 x8 R, }! a
      RowBox[{"5", ",", "5"}], "]"}], ",",
( ?& x. t* U- _. D8 n     RowBox[{"CM", "[", 3 e5 {( z* U$ a" V9 d- h# l; o& Q
      RowBox[{"5", ",", "6"}], "]"}], ",", 8 W- u9 D0 {' c3 E. \  s( X0 x6 v
     RowBox[{"CM", "[", 8 n: c  b% [% g5 K
      RowBox[{"5", ",", "7"}], "]"}], ",",
( V8 L; s! T0 r. e; o     RowBox[{"CM", "[", . M: C+ L2 T# p/ C" Y" [
      RowBox[{"5", ",", "8"}], "]"}], ",", , i+ H9 q( s1 R' B3 H7 x) R
     RowBox[{"CM", "[",
2 F% {8 `7 N# E5 C8 f* Q      RowBox[{"5", ",", "9"}], "]"}]}], "}"}], ",",
8 D! [& [) h/ W2 u" |   RowBox[{"{", ; ]' h9 E7 m8 h$ q
    RowBox[{
/ e( R3 M, X- Z8 r6 l     RowBox[{"CM", "[",
  Q+ Y- E- B" d# i1 T2 Z) ~      RowBox[{"6", ",", "1"}], "]"}], ",", % k3 }% q2 h$ S4 k( V5 T$ Z4 R
     RowBox[{"CM", "[", 8 |) Z0 o- G8 o$ {# g
      RowBox[{"6", ",", "2"}], "]"}], ",",
8 Q* }- C7 L3 x) v7 L$ W. I2 ~     RowBox[{"CM", "[",
* ^8 Y# z$ _7 @) |. k      RowBox[{"6", ",", "3"}], "]"}], ",",   ^  m* J* i+ i7 `- o
     RowBox[{"CM", "[", 1 f9 B0 e4 |( [$ [! [" b" w! c7 a% }; H
      RowBox[{"6", ",", "4"}], "]"}], ",",
/ `9 v& e% u2 d/ U     RowBox[{"CM", "[",
5 s7 r- c4 K$ w# V4 d/ H( s2 E      RowBox[{"6", ",", "5"}], "]"}], ",", 5 \3 \% U' F7 b& f6 W3 I1 p
     RowBox[{"CM", "[", . o1 e$ l; w5 H# Z* j. I" a4 N
      RowBox[{"6", ",", "6"}], "]"}], ",",
7 L7 K, b6 h, X1 x! W% G     RowBox[{"CM", "[",
  n1 d( V( `9 s6 B      RowBox[{"6", ",", "7"}], "]"}], ",",
4 o2 Q9 Z! ^# b& f- L; n     RowBox[{"CM", "[",
0 C+ t3 s7 D5 a5 l# I7 Q      RowBox[{"6", ",", "8"}], "]"}], ",",   n- D1 p6 I- c, G# o
     RowBox[{"CM", "[", 2 y9 }  `9 y3 w2 p) p4 Y( q$ l+ n
      RowBox[{"6", ",", "9"}], "]"}]}], "}"}], ",", * X) v4 u+ m- L- M6 w6 \" B
   RowBox[{"{",
4 g! K* K9 T; B8 }, |2 u    RowBox[{
6 Q0 t0 B5 W# T) x, I6 F8 g8 Y     RowBox[{"CM", "[",
8 S0 f! |' K. r0 p4 d; W4 H& a      RowBox[{"7", ",", "1"}], "]"}], ",",
& m: h$ [& h$ N9 ~2 d2 B+ g4 |     RowBox[{"CM", "[", ! G: K# ^/ C+ k1 o2 d+ }
      RowBox[{"7", ",", "2"}], "]"}], ",",
$ k* l! R" W% [  _2 U7 R( W- I     RowBox[{"CM", "[",
- R$ Q# f. f$ H+ E( B      RowBox[{"7", ",", "3"}], "]"}], ",",
. U2 _- l- v, c4 M& N     RowBox[{"CM", "[", # w! G1 D) Z/ P4 Y2 b7 p
      RowBox[{"7", ",", "4"}], "]"}], ",",
1 f- A" }  T3 _8 Q+ ]: c, A     RowBox[{"CM", "[", 8 T% G# U+ \3 y2 M/ C. q" s
      RowBox[{"7", ",", "5"}], "]"}], ",",
3 |7 Y* E. Z9 }     RowBox[{"CM", "[",
9 p, T( O5 e& ^3 Y7 @      RowBox[{"7", ",", "6"}], "]"}], ",",
9 O4 O- `& m6 Z' c9 q9 u     RowBox[{"CM", "[", 3 y8 k3 G* H% J3 x, D" c' i
      RowBox[{"7", ",", "7"}], "]"}], ",",
6 A& E/ t6 ]1 ?/ T7 ]     RowBox[{"CM", "[", % t. @3 U& q' `/ ~* y
      RowBox[{"7", ",", "8"}], "]"}], ",", ) K% ~0 k/ [4 n
     RowBox[{"CM", "[",
3 v  V/ U' ?- C      RowBox[{"7", ",", "9"}], "]"}]}], "}"}], ",",
: G" p+ d. X+ ]* {" l   RowBox[{"{",
( _1 v  u, _+ D2 X8 [    RowBox[{  _, m& d9 `; c* ]9 a) s: M
     RowBox[{"CM", "[",
6 c7 V) l% Z0 y2 j* T      RowBox[{"8", ",", "1"}], "]"}], ",",
. |5 ^7 N: n. }7 s     RowBox[{"CM", "[", % m# p$ X+ ^6 `( u/ X9 J
      RowBox[{"8", ",", "2"}], "]"}], ",",
' f0 y$ {! ?" M3 y+ |  q     RowBox[{"CM", "[", 0 i( O5 ~/ ]& x9 ~
      RowBox[{"8", ",", "3"}], "]"}], ",",
: [. h- h9 c* G: t2 V     RowBox[{"CM", "[", ! F3 ~, \' Y2 }  X. F, d
      RowBox[{"8", ",", "4"}], "]"}], ",",
' C5 n) m7 a6 o5 x: a* @. M     RowBox[{"CM", "[", ; P& ]$ p3 O. T+ b$ g
      RowBox[{"8", ",", "5"}], "]"}], ",", 7 `1 p% o/ V* p# G( B9 J1 K
     RowBox[{"CM", "[",
! ]8 N3 Q' G; D1 A; I) H2 _      RowBox[{"8", ",", "6"}], "]"}], ",",
; S. a) f/ v% i     RowBox[{"CM", "[", 0 z- K+ w+ V* [, e( U
      RowBox[{"8", ",", "7"}], "]"}], ",",
+ _2 U* M( Y' F! U2 n; b" C     RowBox[{"CM", "[",
& I; I1 T( l+ `! U( J9 x      RowBox[{"8", ",", "8"}], "]"}], ",",
' P' y* o  \! y     RowBox[{"CM", "[", 3 T7 G" ~2 _$ Q/ F' S7 ?
      RowBox[{"8", ",", "9"}], "]"}]}], "}"}], ",",
% w7 b6 l& ?  L+ ~% |) b2 y   RowBox[{"{", $ x7 Y! j# k& Z1 h
    RowBox[{! H; _% o5 w. i' P3 Q0 s5 L
     RowBox[{"CM", "[", 6 a& u+ ]9 H+ n
      RowBox[{"9", ",", "1"}], "]"}], ",",
7 a/ I0 M0 d/ m6 Y# k     RowBox[{"CM", "[", & J5 h3 d4 |1 {/ F
      RowBox[{"9", ",", "2"}], "]"}], ",",
5 }. P: W5 m6 D( a     RowBox[{"CM", "[",
, I7 x( v2 j. e! S      RowBox[{"9", ",", "3"}], "]"}], ",", 5 M: |! q. W$ q' E# l, T; u- s
     RowBox[{"CM", "[",
" t" W3 {7 j+ A  |2 w9 ]      RowBox[{"9", ",", "4"}], "]"}], ",", 9 A9 S& b% o$ r& I$ d
     RowBox[{"CM", "[", ; w9 Y& `- C+ \9 b) E
      RowBox[{"9", ",", "5"}], "]"}], ",",
7 H3 s# U$ C3 q( W7 a' T4 y( a     RowBox[{"CM", "[", $ D0 _9 T1 [% X5 W2 n. B) t7 o
      RowBox[{"9", ",", "6"}], "]"}], ",", / u# Z7 l' u; \1 r; H; O
     RowBox[{"CM", "[", # d0 |4 R: H7 l* V0 x  c
      RowBox[{"9", ",", "7"}], "]"}], ",",
6 k  ?" q( P3 w+ W; p( {     RowBox[{"CM", "[", ' N  d5 y' @( V: X2 x5 V
      RowBox[{"9", ",", "8"}], "]"}], ",", ; l. c' d: n! R# @( d1 v. p
     RowBox[{"CM", "[",
  ^  ?8 F7 U/ ]$ h2 f      RowBox[{"9", ",", "9"}], "]"}]}], "}"}], ",", . a3 T" v9 r/ o" h
   RowBox[{"{", $ m% T3 B  o: }5 ~$ c
    RowBox[{
4 P8 ~+ V! ?1 D" f; W+ o) f     RowBox[{"CM", "[",
5 o: i, s- C& I+ a* O      RowBox[{"10", ",", "1"}], "]"}], ",",
5 w+ T3 f* J. k5 i     RowBox[{"CM", "[",
5 O0 u( \% |. z" |" k# _      RowBox[{"10", ",", "2"}], "]"}], ",",
# f5 a* e1 K% P& r# z9 K     RowBox[{"CM", "[", + ~. ^; [6 V+ V& Q8 g
      RowBox[{"10", ",", "3"}], "]"}], ",", , G: Y" \% y8 P" ]2 M& F4 I0 B# x2 @
     RowBox[{"CM", "[",
. x  `& o. P$ i; D      RowBox[{"10", ",", "4"}], "]"}], ",",
- [% I" T+ f, w     RowBox[{"CM", "[", * V  n, o7 \/ s; Y5 `0 U
      RowBox[{"10", ",", "5"}], "]"}], ",",
& I! D; k3 \7 K, G* t     RowBox[{"CM", "[",
4 X# W3 z& l5 X7 f% b9 e+ J. j/ M* i      RowBox[{"10", ",", "6"}], "]"}], ",", . R7 c# Q$ ]& B
     RowBox[{"CM", "[",
" z. p$ \- \" Z6 t6 I0 V      RowBox[{"10", ",", "7"}], "]"}], ",", 7 E# E- D6 s' [* S7 |' [; _
     RowBox[{"CM", "[",
9 q  p7 n6 o! B      RowBox[{"10", ",", "8"}], "]"}], ",",
# N5 Q3 l' o4 D- c3 s     RowBox[{"CM", "[",
; z# r" ]4 [6 J9 X      RowBox[{"10", ",", "9"}], "]"}]}], "}"}], ",",
7 ?5 F+ l/ B7 q0 Y8 o6 }   RowBox[{"{", 7 y0 I* E; m; z! C# M1 J
    RowBox[{( ~; w! w8 x$ Q" O' R% g
     RowBox[{"CM", "[",
' M$ f( Q5 B3 i7 O2 o      RowBox[{"11", ",", "1"}], "]"}], ",", ( M" Y7 j5 w5 ~* ]
     RowBox[{"CM", "[", - g. p% p% K. P+ I1 S5 I
      RowBox[{"11", ",", "2"}], "]"}], ",",
( Y5 I% {- D8 C' P' `, Y7 _     RowBox[{"CM", "[", 6 i/ W4 D& t! J: r$ \  ^
      RowBox[{"11", ",", "3"}], "]"}], ",",
# \! w( {! p' r3 U     RowBox[{"CM", "[",
( ^/ w- U' d# p' U2 o      RowBox[{"11", ",", "4"}], "]"}], ",",
8 Y4 T1 E( @( v' N' l     RowBox[{"CM", "[",   a8 r9 j- i1 z( m, M. u9 O
      RowBox[{"11", ",", "5"}], "]"}], ",",
2 C1 Y# s$ t$ h- X- R3 u) Z     RowBox[{"CM", "[", 0 s% s9 i  i* Z0 T
      RowBox[{"11", ",", "6"}], "]"}], ",", 6 E8 I% L; l" z1 O. Q6 R! {
     RowBox[{"CM", "[", 0 U+ y2 D1 Z* N: D4 a8 S' b
      RowBox[{"11", ",", "7"}], "]"}], ",", / O# a6 y" i; r. y! i) V9 z2 Y
     RowBox[{"CM", "[",
) c4 F+ G/ c% {      RowBox[{"11", ",", "8"}], "]"}], ",",
# S- j: W. i$ L, u     RowBox[{"CM", "[", " {9 c. ~7 m# s
      RowBox[{"11", ",", "9"}], "]"}]}], "}"}], ",",
* [0 Z; h  G0 D* Z( n  [7 `3 E   RowBox[{"{",
% \1 p7 @4 o# m! o8 W5 t    RowBox[{
  j* c; W# l: ~' W     RowBox[{"CM", "[",
1 @6 D. [* w) E3 P* K      RowBox[{"12", ",", "1"}], "]"}], ",",
2 T+ G; H/ I5 I, o     RowBox[{"CM", "[", $ x2 s, M8 z5 i% `4 q* U
      RowBox[{"12", ",", "2"}], "]"}], ",", $ E6 D. }* m6 S+ u3 t: s1 _( X% g
     RowBox[{"CM", "[",
" L, m+ J+ _. j( w2 B. @      RowBox[{"12", ",", "3"}], "]"}], ",", 1 R) s2 g0 x  o; T. @
     RowBox[{"CM", "[", - Y  J4 F/ N% k7 \
      RowBox[{"12", ",", "4"}], "]"}], ",",
, c' c7 N) y6 `3 M3 X' S     RowBox[{"CM", "[", 1 i+ j& j# `1 D( R) R
      RowBox[{"12", ",", "5"}], "]"}], ",",
, h# k& w; S2 ^% D' |     RowBox[{"CM", "[",
$ ?6 v7 ^  d! z5 _) H9 _/ C4 P      RowBox[{"12", ",", "6"}], "]"}], ",", # W1 q% A! l2 ?% H# h! C: S- e
     RowBox[{"CM", "[",
$ A& R5 w4 f$ s- c$ k# I, _2 g      RowBox[{"12", ",", "7"}], "]"}], ",", + Z3 T+ Z# H$ W) x9 h
     RowBox[{"CM", "[", ) x; ~+ K% A  c. ^3 B1 ^8 n/ @
      RowBox[{"12", ",", "8"}], "]"}], ",",
. L# Q3 b& a9 n' W6 L! h     RowBox[{"CM", "[",
  U, d* M' U. p' b      RowBox[{"12", ",", "9"}], "]"}]}], "}"}], ",", ( n, W! n( \3 [5 X3 ]- U! p! z
   RowBox[{"{",
. ]7 v, C4 E! d% k+ V: k    RowBox[{( m2 ?$ w5 ^. p4 }
     RowBox[{"CM", "[", ; B9 B3 f; A9 c4 R8 p. q
      RowBox[{"13", ",", "1"}], "]"}], ",",
' w8 S5 Z; l' H3 O/ u. E     RowBox[{"CM", "[", , K4 H& r8 L6 B) o) h
      RowBox[{"13", ",", "2"}], "]"}], ",", 1 A3 z- T; L' {( y$ `0 r% {
     RowBox[{"CM", "[", 2 N1 Q, G# `! k5 ^0 h# u8 t
      RowBox[{"13", ",", "3"}], "]"}], ",", / ^" f+ F' [2 u$ b6 U6 N4 r/ o
     RowBox[{"CM", "[",   a& Q( E' p, ~7 c5 ?7 G1 ^
      RowBox[{"13", ",", "4"}], "]"}], ",", 6 u" @2 V- R  f$ P$ s
     RowBox[{"CM", "[",
: [1 q6 a8 n6 T1 ?      RowBox[{"13", ",", "5"}], "]"}], ",", : x% z* {+ M" [
     RowBox[{"CM", "[", ) o, f1 d* p$ D' L5 I  l
      RowBox[{"13", ",", "6"}], "]"}], ",",
' |2 n. B# u8 b: l3 n% |     RowBox[{"CM", "[",
# A3 I% V" f1 k$ s2 Z      RowBox[{"13", ",", "7"}], "]"}], ",", ) e6 O' n7 P: n6 U2 D
     RowBox[{"CM", "[", % A7 Y  B" g$ v  T! j
      RowBox[{"13", ",", "8"}], "]"}], ",", $ u1 l' u+ k( I- t, ?; }( V
     RowBox[{"CM", "[",
* h$ @) R) f% j3 K      RowBox[{"13", ",", "9"}], "]"}]}], "}"}], ",", 7 t+ o+ O- e( P6 A! H
   RowBox[{"{", 8 K7 {" i8 y/ S2 j
    RowBox[{
. s# N& e( Y: T# y     RowBox[{"CM", "[", $ s5 H: y1 S& F7 }  G
      RowBox[{"14", ",", "1"}], "]"}], ",",
$ b* Y4 I) e! L8 n     RowBox[{"CM", "[",
7 M9 E1 K4 y, Y      RowBox[{"14", ",", "2"}], "]"}], ",",   _0 U  k( b0 J
     RowBox[{"CM", "[", ) ^) Y: `. d7 m& f
      RowBox[{"14", ",", "3"}], "]"}], ",", 5 u/ f/ `2 e- }  d
     RowBox[{"CM", "[",
5 z. V% c3 p/ b      RowBox[{"14", ",", "4"}], "]"}], ",",
6 O: K1 ^! U( g# Y     RowBox[{"CM", "[",
. t) b4 w$ e& E" d' p: U      RowBox[{"14", ",", "5"}], "]"}], ",", / F5 }+ e' }- w; y% ]5 a
     RowBox[{"CM", "[",
2 ~( E) h$ t, h6 U' H/ B2 J6 Q( D      RowBox[{"14", ",", "6"}], "]"}], ",",
: t) z" D3 \+ n5 K     RowBox[{"CM", "[", + w2 t! Y# y8 S0 I  c
      RowBox[{"14", ",", "7"}], "]"}], ",",
6 q0 S) w5 c3 k2 R# [7 K6 s" z     RowBox[{"CM", "[",
. \$ `' [0 B/ k* v! G, ~; @      RowBox[{"14", ",", "8"}], "]"}], ",",
# G9 _% _) Z0 L- p6 u- Y- Q6 j     RowBox[{"CM", "[",
1 m& x9 {8 S. J; `9 x( J& c      RowBox[{"14", ",", "9"}], "]"}]}], "}"}], ",",
- @! F. M! M, `/ t/ {: i   RowBox[{"{", : w3 s, [) @6 f' b3 z2 z: ?, i0 h+ O0 W6 e
    RowBox[{# V: R2 ], d. \) V, X( P
     RowBox[{"CM", "[",
% J1 t$ z( A7 r7 _2 Z8 f      RowBox[{"15", ",", "1"}], "]"}], ",",
6 z1 F) s4 L. W2 O: P* B% [, k9 k) D     RowBox[{"CM", "[", + m) b# |5 v# z; h! W
      RowBox[{"15", ",", "2"}], "]"}], ",",
  H9 n3 s0 P0 b% J     RowBox[{"CM", "[", & H" f4 v1 F2 R1 h' P
      RowBox[{"15", ",", "3"}], "]"}], ",", + a) X% X; _3 r% `) y1 U
     RowBox[{"CM", "[", 5 D: P8 U* ]8 S- j' ]  N" g5 E
      RowBox[{"15", ",", "4"}], "]"}], ",",
8 n7 t5 A/ I3 V* U$ N, ]; p     RowBox[{"CM", "[",
) T' i  ^. b% O1 W4 z5 w      RowBox[{"15", ",", "5"}], "]"}], ",",
  v/ k) E# r. [; _) X1 n4 ~/ w     RowBox[{"CM", "[",
1 P# w$ `2 J5 \. h0 w      RowBox[{"15", ",", "6"}], "]"}], ",", & e) O( e3 ]5 b, f& e5 ?0 ^# d
     RowBox[{"CM", "[", ! }- a9 S, ^/ j; t
      RowBox[{"15", ",", "7"}], "]"}], ",",
9 d; @# y. S4 A6 u5 y' h# O( o6 S9 Q     RowBox[{"CM", "[",
! ]. }  b$ f' R) B! q6 n+ B8 J      RowBox[{"15", ",", "8"}], "]"}], ",", 7 F5 p8 |# D+ r1 L  w1 T& b7 U
     RowBox[{"CM", "[",
. I" a9 p# k2 f$ j9 G- D      RowBox[{"15", ",", "9"}], "]"}]}], "}"}], ",", . l: j% T' a5 N5 u, H  D- |+ j8 |
   RowBox[{"{",
8 @$ H# x8 H! r- o+ {1 U    RowBox[{
: G4 y, l, x* r" H6 h1 B$ O     RowBox[{"CM", "[",
* U8 F/ o' J, K; K+ k1 h      RowBox[{"16", ",", "1"}], "]"}], ",",
$ |8 e& a, n" Q, Y* Z4 Q     RowBox[{"CM", "[",
/ p: {: K  `0 A' W$ u+ M4 N0 j7 @      RowBox[{"16", ",", "2"}], "]"}], ",", , V& e( D, ^) |& |+ p
     RowBox[{"CM", "[", % p! g. s; y7 R
      RowBox[{"16", ",", "3"}], "]"}], ",", 1 d7 x) N: F* W
     RowBox[{"CM", "[", % N0 Q7 d/ x) \/ U
      RowBox[{"16", ",", "4"}], "]"}], ",",
  S2 H; u# N* [     RowBox[{"CM", "[", $ j9 @% K6 z& }  K* W& ?% N! h* z
      RowBox[{"16", ",", "5"}], "]"}], ",", % }& i8 o2 _. ~$ ~
     RowBox[{"CM", "[",
+ J' X# b% P3 n( a- d      RowBox[{"16", ",", "6"}], "]"}], ",", / W! F1 O- r& \7 g; w
     RowBox[{"CM", "[",
' \7 ~( u- C) c% A: v) t      RowBox[{"16", ",", "7"}], "]"}], ",",
& ~6 D2 l& l  m6 e! u5 t  Q     RowBox[{"CM", "[", ! ?4 f% v: a% s: Z
      RowBox[{"16", ",", "8"}], "]"}], ",",
, B+ a7 I) t0 o     RowBox[{"CM", "[",
: J. E. A5 B! V: i/ v& |      RowBox[{"16", ",", "9"}], "]"}]}], "}"}], ",", * ?- j5 ~% W9 m, ^0 Q' t6 {# o4 _
   RowBox[{"{",
% k0 v: J% L) a    RowBox[{7 l1 C" F( n0 Z$ ^
     RowBox[{"CM", "[", 5 h, D* w' G1 G% N6 e5 K
      RowBox[{"17", ",", "1"}], "]"}], ",",
8 N, U7 ?+ ?( h( I     RowBox[{"CM", "[",
; _0 l4 w, f9 `- _. C* }8 W      RowBox[{"17", ",", "2"}], "]"}], ",",
: u& Q! y! w% K$ X1 Q3 V- B9 y     RowBox[{"CM", "[",
; j' J) H. D/ @+ J1 V      RowBox[{"17", ",", "3"}], "]"}], ",",
$ D" ^$ M0 b1 d. Y6 K/ Q     RowBox[{"CM", "[",
' V  V3 M" ]5 _, Y, p      RowBox[{"17", ",", "4"}], "]"}], ",",
& [2 L" a" O7 e" i     RowBox[{"CM", "[", 4 y9 y8 @& _! u
      RowBox[{"17", ",", "5"}], "]"}], ",", 3 k0 K8 ~# K' R
     RowBox[{"CM", "[", . x. M: z) X/ n$ ?
      RowBox[{"17", ",", "6"}], "]"}], ",",
  m& w) m8 l) K4 @     RowBox[{"CM", "[",
2 }$ J! c) ^1 i      RowBox[{"17", ",", "7"}], "]"}], ",", & s) i, X% F7 A0 @0 o5 x
     RowBox[{"CM", "[", - f- J% H  A5 z7 \7 X
      RowBox[{"17", ",", "8"}], "]"}], ",",
) Y- a- F) z3 s  G0 V5 K     RowBox[{"CM", "[",
: \" L3 J, z2 z8 ?      RowBox[{"17", ",", "9"}], "]"}]}], "}"}], ",", 2 s; W- D, P' m" _) x0 |
   RowBox[{"{",
! _: o) |! ?+ U8 c9 [9 O/ b+ _    RowBox[{2 y% X  v$ x3 `+ |
     RowBox[{"CM", "[",
. w3 _0 e/ F+ A+ h/ p      RowBox[{"18", ",", "1"}], "]"}], ",",
7 g* w# A+ c# y     RowBox[{"CM", "[", 7 _. N$ T2 A5 j! ^& Y
      RowBox[{"18", ",", "2"}], "]"}], ",",
+ Y( o* E2 Y8 y  f3 N     RowBox[{"CM", "[", 2 ^5 |: T( O! p! u9 ~9 G4 {
      RowBox[{"18", ",", "3"}], "]"}], ",", 6 C4 N# C8 |8 @% c
     RowBox[{"CM", "[",
1 [/ \5 f0 y1 b0 l2 p; b/ |      RowBox[{"18", ",", "4"}], "]"}], ",",
4 f  t" f7 h6 p5 X     RowBox[{"CM", "[",
2 n) ]* N9 H; F7 Q5 R7 t      RowBox[{"18", ",", "5"}], "]"}], ",", # f% y. _* }5 c4 e
     RowBox[{"CM", "[", 3 K& Y" ]  k! @/ r1 r- r4 X$ V
      RowBox[{"18", ",", "6"}], "]"}], ",",
7 d' n) }! n  S$ P2 h- G     RowBox[{"CM", "[",
/ V& D8 b. i7 u, t- C. x- M0 |      RowBox[{"18", ",", "7"}], "]"}], ",",
2 u$ f6 g/ R, }: s' {& c% Y9 @+ H     RowBox[{"CM", "[",
* j" {+ a8 D% p7 L' S3 d8 j      RowBox[{"18", ",", "8"}], "]"}], ",", % B3 p4 c- R# I7 _
     RowBox[{"CM", "[",
) }& \+ c( B* U7 Z5 f9 i: A" G4 ~      RowBox[{"18", ",", "9"}], "]"}]}], "}"}], ",",
5 S0 P# L3 I8 r4 i- I  U   RowBox[{"{", - B, v* K, `  S* Y9 j% J, n0 G
    RowBox[{
) y3 p/ q# K5 E6 r8 ]     RowBox[{"CM", "[", ! c3 p# V: E7 W% l; E, u; n
      RowBox[{"19", ",", "1"}], "]"}], ",", 4 O/ g( T9 _0 a, h  W0 o8 k
     RowBox[{"CM", "[",
" k5 j1 n0 r6 `2 R      RowBox[{"19", ",", "2"}], "]"}], ",", ; W( c* ]7 K+ n; Y4 U$ H( S
     RowBox[{"CM", "[",
* d5 e' K) ^- h+ B4 k; [+ W+ h      RowBox[{"19", ",", "3"}], "]"}], ",", . ]6 G' p3 U) o2 ?; z( M* Q8 ^2 R
     RowBox[{"CM", "[", : x' `) f& b( \5 Y* w! g
      RowBox[{"19", ",", "4"}], "]"}], ",",
9 c* n, H6 f, D7 o     RowBox[{"CM", "[", 8 j. k; X( M4 E
      RowBox[{"19", ",", "5"}], "]"}], ",",
  C3 R2 I# ~2 @: f0 {# ~: B     RowBox[{"CM", "[", 0 y7 e9 r  k9 v' b% ~, W7 |! a
      RowBox[{"19", ",", "6"}], "]"}], ",", 4 s6 Q2 O- \+ [- R& {# X- H
     RowBox[{"CM", "[",
+ f4 q8 p4 W8 B0 F: }' H& P0 J      RowBox[{"19", ",", "7"}], "]"}], ",",
' Z- @( z8 r" k( g" J/ y! h     RowBox[{"CM", "[",
) N! W3 H( H* M8 ?/ V1 w      RowBox[{"19", ",", "8"}], "]"}], ",",
  ?: l* G" y, t( A( h; f2 ?     RowBox[{"CM", "[",
2 U& i3 P5 L1 M  Q      RowBox[{"19", ",", "9"}], "]"}]}], "}"}], ",", ( v% R  C0 ~5 j' {3 h
   RowBox[{"{", + v! n$ s: z! K/ Y" p# r
    RowBox[{
3 e/ i' a) [4 r     RowBox[{"CM", "[", 1 j- u7 `5 D- C0 `4 ]/ e# s! v
      RowBox[{"20", ",", "1"}], "]"}], ",",
' l0 }+ \  Z. w& n     RowBox[{"CM", "[", " J% U; Z. ~6 B: z& `
      RowBox[{"20", ",", "2"}], "]"}], ",",
: q! H* k, o8 m- `' U( w     RowBox[{"CM", "[", 9 c2 B0 a- |0 F6 M, g
      RowBox[{"20", ",", "3"}], "]"}], ",",
, n9 A) x& o  l2 K) I0 F     RowBox[{"CM", "[",
$ \" f* z5 C/ ?      RowBox[{"20", ",", "4"}], "]"}], ",",
/ `6 Q- z' f- `) ?     RowBox[{"CM", "[",
) d4 A6 u! @4 Y! [5 a      RowBox[{"20", ",", "5"}], "]"}], ",", 3 X& t% Q( ~6 O6 B9 }  c+ [2 \  p
     RowBox[{"CM", "[",
  ]6 y6 D, C: }6 L# U1 V* U      RowBox[{"20", ",", "6"}], "]"}], ",",
0 z* T% o, M3 a     RowBox[{"CM", "[",
+ W4 F4 m/ y) {# V" W; m9 W      RowBox[{"20", ",", "7"}], "]"}], ",", $ A4 L! w9 R0 X  Z% t  k& A; W5 y6 l
     RowBox[{"CM", "[", ) n% M, m5 l6 v& f: m1 E4 j3 k
      RowBox[{"20", ",", "8"}], "]"}], ",",
+ r+ U/ |( W& M% s: L     RowBox[{"CM", "[",
5 P: E3 j) e7 ^+ l      RowBox[{"20", ",", "9"}], "]"}]}], "}"}], ",",
$ f$ m( M9 s* o. I: U5 o   RowBox[{"{", # ]1 F% E# t8 h! n
    RowBox[{! {; n# g0 K' x) n% Y
     RowBox[{"CM", "[", 1 V6 e  `4 k8 u5 t& Q+ x# A1 T
      RowBox[{"21", ",", "1"}], "]"}], ",",
: S$ M; `" H3 R( A/ x     RowBox[{"CM", "[", ; F: {/ V# w* K$ c# L* E
      RowBox[{"21", ",", "2"}], "]"}], ",",
4 ?" {* n2 \# `     RowBox[{"CM", "[", 3 P9 d- K# g; u5 s% O3 e5 J1 |! R+ t
      RowBox[{"21", ",", "3"}], "]"}], ",",
  {( ^) K0 W  N1 i" e0 J8 b, D     RowBox[{"CM", "[",
) \7 H! {2 r# s& ^8 `- Y      RowBox[{"21", ",", "4"}], "]"}], ",", 2 s8 |0 o* ^% f+ Y" J  @
     RowBox[{"CM", "[", ' ]3 ]9 x6 }( @5 Y
      RowBox[{"21", ",", "5"}], "]"}], ",",
; t3 [7 J8 P* y, F6 H. F9 }" ^( d     RowBox[{"CM", "[",
3 C" V" f3 f8 m" v      RowBox[{"21", ",", "6"}], "]"}], ",",
/ [  Y- z. Y8 ~+ ]     RowBox[{"CM", "[", " u1 H+ Z# i8 h5 N" t. T1 i
      RowBox[{"21", ",", "7"}], "]"}], ",",
9 H3 ]. c  G) L5 c: ^) ?7 ]     RowBox[{"CM", "[", 2 U4 R) o' l( G  \% V; p6 E
      RowBox[{"21", ",", "8"}], "]"}], ",", - `9 R( j8 n  B' T0 V
     RowBox[{"CM", "[", 7 z2 w4 W5 _: [3 b, o
      RowBox[{"21", ",", "9"}], "]"}]}], "}"}], ",", ; S- r" q+ G5 E& N+ V  i
   RowBox[{"{",
( g1 M2 R# M+ c    RowBox[{8 Q" N3 g4 R9 w0 S  F( l" r
     RowBox[{"CM", "[",
( T3 e. d3 P: h  B8 T. i" q+ B9 p      RowBox[{"22", ",", "1"}], "]"}], ",", " Y* O) W9 ~+ ]/ v, K  f3 _7 [
     RowBox[{"CM", "[", ) L0 L$ S2 c1 X& u. s1 j- x
      RowBox[{"22", ",", "2"}], "]"}], ",",
! a# `! X" `: }     RowBox[{"CM", "[",
+ C9 ?' {4 @7 I% ?      RowBox[{"22", ",", "3"}], "]"}], ",",
' c6 L2 z. N7 M8 F     RowBox[{"CM", "[", 0 P) k8 X8 [3 g/ l9 t$ h( |8 ~: H
      RowBox[{"22", ",", "4"}], "]"}], ",", ' A  g& e8 v0 r- @2 M& S
     RowBox[{"CM", "[", ( O6 z4 z) ~- {  A+ Q- s  \
      RowBox[{"22", ",", "5"}], "]"}], ",",
2 o5 x9 w$ h6 T8 r     RowBox[{"CM", "[",
; r! v3 w) G) B      RowBox[{"22", ",", "6"}], "]"}], ",", ) R% K; M" u  ?
     RowBox[{"CM", "[", ; p7 ?: y* r) u
      RowBox[{"22", ",", "7"}], "]"}], ",", 0 [9 O5 U7 t" {  C% i
     RowBox[{"CM", "[", 6 E! h& ~& ~) a, a' f4 ^8 f+ w1 E
      RowBox[{"22", ",", "8"}], "]"}], ",", ) ]9 m; u$ z7 E& z. r; t* z
     RowBox[{"CM", "[", $ _  [$ o( F- q% v& h+ Y- M
      RowBox[{"22", ",", "9"}], "]"}]}], "}"}], ",",
  f% H4 S  i3 B1 M  Z4 Q7 r7 ~; ?% C   RowBox[{"{", ) W$ `& g5 ^( O5 y, z
    RowBox[{' I. x8 y- l' Z# U
     RowBox[{"CM", "[", , ]- P' s6 V! E3 s" R! h: F) p
      RowBox[{"23", ",", "1"}], "]"}], ",",
* D4 A: G2 @. d, N! F" @+ D/ P, W     RowBox[{"CM", "[",
7 w3 p" j" g* \& A2 s      RowBox[{"23", ",", "2"}], "]"}], ",", 4 c8 t; N. Z; i
     RowBox[{"CM", "[", 2 B6 o( C) Q- N8 I
      RowBox[{"23", ",", "3"}], "]"}], ",", . d2 `2 s  s6 {3 i  `
     RowBox[{"CM", "[", 5 Y6 Z5 C4 k; P
      RowBox[{"23", ",", "4"}], "]"}], ",", ' ]0 K* o" r& H6 S
     RowBox[{"CM", "[", - l0 y; X, U) Q2 z7 l
      RowBox[{"23", ",", "5"}], "]"}], ",",
2 `' \+ Z5 v+ e( ~     RowBox[{"CM", "[",
4 i# K  N1 u" |1 p      RowBox[{"23", ",", "6"}], "]"}], ",",
' T( `' v8 I9 ]" {# s     RowBox[{"CM", "[", 2 v, @$ }2 o5 x* O; Z- c) U/ @
      RowBox[{"23", ",", "7"}], "]"}], ",",
+ j7 F4 L9 O/ r, m  S     RowBox[{"CM", "[", 6 G2 ^* e, Z8 r! J
      RowBox[{"23", ",", "8"}], "]"}], ",",
9 W2 K, j+ i. }, n$ y     RowBox[{"CM", "[", , [" ~* g0 ^( u6 a
      RowBox[{"23", ",", "9"}], "]"}]}], "}"}], ",",   s  U) H6 i7 H
   RowBox[{"{", + }; w4 |9 A( i/ n6 {
    RowBox[{
9 I/ d9 S2 |. z; N& O, e$ u& H     RowBox[{"CM", "[", / s" u2 |5 Y1 f8 i9 B6 q
      RowBox[{"24", ",", "1"}], "]"}], ",",
( l; c# k  P  L2 ]5 A     RowBox[{"CM", "[",
. l$ C: ^) F* {% L) x! y. P0 o      RowBox[{"24", ",", "2"}], "]"}], ",", % T  @$ I$ X& |
     RowBox[{"CM", "[",
. F% z  c; x8 t6 A9 t% ?      RowBox[{"24", ",", "3"}], "]"}], ",", / h5 }5 r: l/ O. b3 \
     RowBox[{"CM", "[", 7 e. ^. Q/ ?( O! r& F
      RowBox[{"24", ",", "4"}], "]"}], ",",
- E2 T1 @: Q3 H0 M     RowBox[{"CM", "[", ; r; c. F* b" {
      RowBox[{"24", ",", "5"}], "]"}], ",",
( L) b( n$ K5 w4 L     RowBox[{"CM", "[", 1 `0 L) ^, D. S% p( |4 X9 r
      RowBox[{"24", ",", "6"}], "]"}], ",", + t6 q' H$ \  V: w7 W  F! a
     RowBox[{"CM", "[", $ h; R  o3 ~9 m: l* z* j0 V1 Y, `+ E
      RowBox[{"24", ",", "7"}], "]"}], ",",
* ]0 c4 ]/ C1 T/ u. c     RowBox[{"CM", "[", 0 r- x$ \1 n* }/ Q  m
      RowBox[{"24", ",", "8"}], "]"}], ",",
. t: ]" j0 h+ ?0 G8 p' v7 {4 ~  S     RowBox[{"CM", "[",
7 g9 s% g5 R, Y& F' ?) ]4 A( u      RowBox[{"24", ",", "9"}], "]"}]}], "}"}], ",",
4 w- g2 I& F7 B# W8 c   RowBox[{"{", 0 u+ k( ?, k1 y* j( m- D
    RowBox[{
1 h) w. h9 v3 j# o, F: X     RowBox[{"CM", "[", " s6 h2 n2 R- v( ]
      RowBox[{"25", ",", "1"}], "]"}], ",",
# v' d! l" Y% X, ?$ j: u     RowBox[{"CM", "[", 6 o' b3 P$ u: T6 J
      RowBox[{"25", ",", "2"}], "]"}], ",", 4 w0 R  H# Y/ _5 n3 {
     RowBox[{"CM", "[",
- R. d" }7 e$ P# X. @      RowBox[{"25", ",", "3"}], "]"}], ",",
4 ]2 @, ]- j" J. L, Z4 O     RowBox[{"CM", "[",
/ t0 M. H  c: a6 x! a. k1 \      RowBox[{"25", ",", "4"}], "]"}], ",",
: e; a, O/ P% x1 g0 j( f8 \% ?     RowBox[{"CM", "[",
- V, O# N% `1 s- k; m9 X      RowBox[{"25", ",", "5"}], "]"}], ",",
! _4 W% o9 e& a! R' \' d( @; C     RowBox[{"CM", "[", : m9 K3 a; L) X+ a
      RowBox[{"25", ",", "6"}], "]"}], ",", ) x$ T3 t5 U5 P
     RowBox[{"CM", "[", ( W' t+ |/ O8 \! k* Q5 K0 \: a
      RowBox[{"25", ",", "7"}], "]"}], ",", & [  h% {9 a, a/ W  a
     RowBox[{"CM", "[",
! z# c/ _. v1 [* ?# _      RowBox[{"25", ",", "8"}], "]"}], ",",
$ A# O+ l3 {/ x     RowBox[{"CM", "[",
0 l- r! `1 J8 i( X4 Z" ^      RowBox[{"25", ",", "9"}], "]"}]}], "}"}], ",",
+ g+ R0 s4 q) U1 H7 ?6 H8 Z6 Y   RowBox[{"{", 8 r- h# C& W  a9 n: }% ]
    RowBox[{
* Y. f: }/ S2 E) a5 c8 p     RowBox[{"CM", "[", 8 g( v$ `9 M9 U. b9 d3 p2 T
      RowBox[{"26", ",", "1"}], "]"}], ",", " ^4 F+ t, P, i2 E. [5 j! l' ?7 x
     RowBox[{"CM", "[",
" S( g3 s! V7 F      RowBox[{"26", ",", "2"}], "]"}], ",", 3 @% s# X0 J+ i) @  c1 k% B4 R7 j
     RowBox[{"CM", "[", + R& y5 Q: Z1 R* y7 d
      RowBox[{"26", ",", "3"}], "]"}], ",", : b" H9 @9 p$ l. q+ n
     RowBox[{"CM", "[",
( p( J/ E+ I" G" b6 r+ ~0 E0 h: M      RowBox[{"26", ",", "4"}], "]"}], ",",
+ ^5 `, ~$ K- w' v     RowBox[{"CM", "[", ( [& V2 A" F; B5 ~# O' }2 R
      RowBox[{"26", ",", "5"}], "]"}], ",",
- G3 q# C) }( j' z     RowBox[{"CM", "[",
4 V3 M7 v! L0 r6 B# I' Y" H+ i      RowBox[{"26", ",", "6"}], "]"}], ",", & \3 Q( B# h6 Y& G$ }9 ^) I9 ~* x+ b
     RowBox[{"CM", "[",
+ u  J+ Y+ H; M* V6 B3 [& v& x! x      RowBox[{"26", ",", "7"}], "]"}], ",",
8 |6 S. s! x. z/ K% ?% x     RowBox[{"CM", "[", 1 h) |( t1 ^2 F+ v* C; i9 B9 ]2 l1 R
      RowBox[{"26", ",", "8"}], "]"}], ",", 0 V6 Y' H2 l4 M( j- p2 g
     RowBox[{"CM", "[",
* I# H- D# L9 Y      RowBox[{"26", ",", "9"}], "]"}]}], "}"}], ",",
6 }2 @( ^) ~; x, v, z4 r7 ^9 o   RowBox[{"{",
0 F9 b& m/ K- V& M# r; L    RowBox[{7 @1 e+ ?. u8 A9 S
     RowBox[{"CM", "[", 7 q8 ~, r- N& {9 V$ y" N4 d
      RowBox[{"27", ",", "1"}], "]"}], ",",
: |! E  f$ C% v" ]# O8 K* j- R! P; j     RowBox[{"CM", "[",
; W9 B, {2 }# \0 [      RowBox[{"27", ",", "2"}], "]"}], ",", 2 K" Q8 R. O  u' J+ H9 x
     RowBox[{"CM", "[",
2 Z- y# B: T$ O5 w4 F! i: E- R: C      RowBox[{"27", ",", "3"}], "]"}], ",",
3 S' Z4 v) {% G( C+ k+ Y     RowBox[{"CM", "[",
4 Q& v) z8 G# I' ~      RowBox[{"27", ",", "4"}], "]"}], ",",
3 e- O" @7 A+ i. {. i8 d$ w+ j9 x     RowBox[{"CM", "[",
( e9 w! D3 _$ G4 b5 z  {1 F      RowBox[{"27", ",", "5"}], "]"}], ",",   D0 A8 ~$ D2 d3 A* h4 J8 X. G- R
     RowBox[{"CM", "[", 2 a6 U  N  {3 L* f& p! e! `
      RowBox[{"27", ",", "6"}], "]"}], ",",
* }9 K' b' s) `0 X5 G, L4 }7 z     RowBox[{"CM", "[",
3 j: d# l$ n7 g8 c      RowBox[{"27", ",", "7"}], "]"}], ",",
; m# C' X( j- F" v     RowBox[{"CM", "[", . y* ~- Y$ [' P" x. b
      RowBox[{"27", ",", "8"}], "]"}], ",", ! [2 d# P: v+ l% L7 n1 m& U
     RowBox[{"CM", "[",   v) s# Q" ^) Z0 `" b3 l( c- i
      RowBox[{"27", ",", "9"}], "]"}]}], "}"}], ",",
1 W% U8 ^1 Q- d6 l   RowBox[{"{", ' y/ }) K; j; f5 q
    RowBox[{
/ V; x# W# V3 {# R! D# p     RowBox[{"CM", "[",
1 x- Z& C2 _9 {8 B6 x- X7 i: i      RowBox[{"28", ",", "1"}], "]"}], ",",
' d  [+ B; `/ G" Z6 u; A; w     RowBox[{"CM", "[",
+ P& u: J, z2 ?% C/ {      RowBox[{"28", ",", "2"}], "]"}], ",",
: R) d' y( F: B     RowBox[{"CM", "[", 2 p8 T4 l) [9 v: _$ U
      RowBox[{"28", ",", "3"}], "]"}], ",",
/ f( J6 M& |& ]7 r4 y, i& E     RowBox[{"CM", "[",
  C) w1 n  a0 e" \0 l  N" r) ^: d      RowBox[{"28", ",", "4"}], "]"}], ",",
( @# y5 T7 s; [; O( H: |( r$ X     RowBox[{"CM", "[",
; |' p' A8 B0 z# `      RowBox[{"28", ",", "5"}], "]"}], ",", 5 ], i, h7 g0 [' |  U
     RowBox[{"CM", "[",
- _+ f7 ?! G- B      RowBox[{"28", ",", "6"}], "]"}], ",",
) k, Z6 X7 H) w, i* a5 H     RowBox[{"CM", "[",
4 T2 P% [" F4 x0 u( k& t) Z; E. Q  Y2 v      RowBox[{"28", ",", "7"}], "]"}], ",", . l2 p: u7 }3 ]) x
     RowBox[{"CM", "[", 3 l4 S4 |; [3 `8 ^. w
      RowBox[{"28", ",", "8"}], "]"}], ",",
4 g; H! y+ D" _     RowBox[{"CM", "[",
% O2 |# O. e" A      RowBox[{"28", ",", "9"}], "]"}]}], "}"}], ",",
/ g3 n' b' r  ~   RowBox[{"{",
8 I) A; b$ |# U) y    RowBox[{$ Y8 a+ g8 V4 o! z3 X/ h& N/ s
     RowBox[{"CM", "[",
8 _( }. I! a( j$ u; L3 r      RowBox[{"29", ",", "1"}], "]"}], ",", % t" l' f- f$ b$ S
     RowBox[{"CM", "[", " M* r- }% Y' ^  o" |
      RowBox[{"29", ",", "2"}], "]"}], ",", 6 l; k4 V' W1 Y7 }6 d  ~  u6 F. v
     RowBox[{"CM", "[",
, F8 O% A& i( k  N& e      RowBox[{"29", ",", "3"}], "]"}], ",", 2 @8 K/ v! T4 E3 O6 v! t
     RowBox[{"CM", "[", 0 K! ~# e$ L% E) [8 q% c
      RowBox[{"29", ",", "4"}], "]"}], ",", 7 \  h2 ~% N8 H# o. s
     RowBox[{"CM", "[",
6 p: Z( x$ x" V! R  j. `      RowBox[{"29", ",", "5"}], "]"}], ",", ' _' C( J+ u8 A; K- Q
     RowBox[{"CM", "[", % q  A* L( u  T2 H% Z2 y
      RowBox[{"29", ",", "6"}], "]"}], ",",
- J, B1 t  G) t" w     RowBox[{"CM", "[", ; R% k" g6 W, V1 T& ]0 K+ L
      RowBox[{"29", ",", "7"}], "]"}], ",",
) l  B$ i* L9 }' V, g/ i     RowBox[{"CM", "[",
; v+ Z4 }3 W  Q, c7 r0 w% K* }$ p      RowBox[{"29", ",", "8"}], "]"}], ",", 2 m" s; v' q" _( I
     RowBox[{"CM", "[",
! G: ]5 m( }  k/ q' M/ A      RowBox[{"29", ",", "9"}], "]"}]}], "}"}], ",", 8 O/ i6 C+ r9 V' _  e/ B
   RowBox[{"{", , f5 X; Z' j% ?+ o0 ^5 o5 N4 i
    RowBox[{* T7 v- ]0 t/ p* e* a
     RowBox[{"CM", "[", " T2 W  v  `) R) T4 U; F& X. D
      RowBox[{"30", ",", "1"}], "]"}], ",",
* E; U* M" |' [     RowBox[{"CM", "[",
3 z& @7 B- K5 X# |% Q- ]% R      RowBox[{"30", ",", "2"}], "]"}], ",",
& {) j( B) R3 ~1 ?     RowBox[{"CM", "[", : w8 O% J' o& Z+ ^( w4 z& X
      RowBox[{"30", ",", "3"}], "]"}], ",",
9 Q3 X& u. q1 o& M     RowBox[{"CM", "[", 2 m* ], z" l2 g
      RowBox[{"30", ",", "4"}], "]"}], ",",
8 T* E; D& J( Q4 V5 z     RowBox[{"CM", "[",
+ R9 @( C; ]7 \1 a5 J. h* R      RowBox[{"30", ",", "5"}], "]"}], ",",
. r) T1 \, ~9 M0 _* m% O     RowBox[{"CM", "[",
) |- h; T8 l1 O5 p+ i# o# u      RowBox[{"30", ",", "6"}], "]"}], ",", + x4 a) L/ i. f5 |( m9 b& `
     RowBox[{"CM", "[", + R2 Y0 [5 ?( C
      RowBox[{"30", ",", "7"}], "]"}], ",", ) Z) r+ k( k1 @/ l2 n/ J
     RowBox[{"CM", "[",
5 J) ^# m4 e* @      RowBox[{"30", ",", "8"}], "]"}], ",",
" ]% Z/ [$ ?& Y  [     RowBox[{"CM", "[", " e* G) ?+ m' b, n3 h
      RowBox[{"30", ",", "9"}], "]"}]}], "}"}], ",",
: ^$ M" L3 s+ ~& ?/ `+ `# C   RowBox[{"{",
1 Y* f6 _( {  v  H' v  U) A    RowBox[{6 |. q# V! G. G* e
     RowBox[{"CM", "[",
* _" V/ h1 k# ~( c- Q      RowBox[{"31", ",", "1"}], "]"}], ",", 6 d. a3 [0 S1 q9 g0 |
     RowBox[{"CM", "[", / {/ l* |! Q$ V( b: Q1 j9 ^! [' B  A
      RowBox[{"31", ",", "2"}], "]"}], ",", : w! f/ H( `6 b& Z5 P
     RowBox[{"CM", "[", 0 Y4 I) L- S, q: [$ t6 J
      RowBox[{"31", ",", "3"}], "]"}], ",",
4 F" Q8 M$ U5 f5 W' M, j     RowBox[{"CM", "[", % n* x) T2 ]$ T9 ~) P$ N
      RowBox[{"31", ",", "4"}], "]"}], ",", " v8 z9 L, S+ j$ \  w" L. f
     RowBox[{"CM", "[",
: }0 }% a  B1 d# X2 z$ e      RowBox[{"31", ",", "5"}], "]"}], ",",
+ D: j; m3 r% U1 u8 L2 \     RowBox[{"CM", "[",
8 P" a) C  A0 y' y/ r6 I2 d: D      RowBox[{"31", ",", "6"}], "]"}], ",", 7 q# t9 v* m- M6 M( q# U' V! l2 K
     RowBox[{"CM", "[",
: r. i  v$ N) V$ x) b$ s      RowBox[{"31", ",", "7"}], "]"}], ",",
! H0 T9 o% }2 Z3 l) z: w  c     RowBox[{"CM", "[",
- f$ @( L) J/ A3 Q  u, m      RowBox[{"31", ",", "8"}], "]"}], ",", " V. p- C7 Z1 O$ D/ y) `6 T) U
     RowBox[{"CM", "[", - t* k! j  y4 Y* Q: u
      RowBox[{"31", ",", "9"}], "]"}]}], "}"}], ",",
; _' q  ^* w* I; U( H   RowBox[{"{",
/ `8 ?/ D' ^7 o( P4 _    RowBox[{
; g, q0 ?2 I9 i$ A5 i$ h+ h     RowBox[{"CM", "[", , G5 S: f, Z, s+ _$ P* a
      RowBox[{"32", ",", "1"}], "]"}], ",", - C0 n1 ~9 L6 c# J
     RowBox[{"CM", "[",
) P" U3 \: {3 Y& l1 ]      RowBox[{"32", ",", "2"}], "]"}], ",", * x0 T( W0 M( Z; p% ?" Z
     RowBox[{"CM", "[",
' v8 K% \! R' x8 o0 |& M4 S      RowBox[{"32", ",", "3"}], "]"}], ",",
9 f( A" ^9 V4 Z" e3 P: {     RowBox[{"CM", "[",
6 r3 X* N' i8 ~2 E      RowBox[{"32", ",", "4"}], "]"}], ",", ' C7 g  j* x+ {" l
     RowBox[{"CM", "[", 0 Q! W/ I/ o8 y$ D& R) A
      RowBox[{"32", ",", "5"}], "]"}], ",",
( a& K; b+ t- U; K, R: c" l0 P" g     RowBox[{"CM", "[",
" }+ ]& v/ [$ T, ~      RowBox[{"32", ",", "6"}], "]"}], ",",
8 H& H" _2 m/ i: F+ W     RowBox[{"CM", "[", & g: N0 i& p  _% p4 i; a5 n
      RowBox[{"32", ",", "7"}], "]"}], ",",
) N. b* k9 u6 [1 ^     RowBox[{"CM", "[",
2 ]/ X* d5 H+ k- h; \  g, r      RowBox[{"32", ",", "8"}], "]"}], ",", 0 q5 T# \& P' _
     RowBox[{"CM", "[", ; P0 F% r' `) e; D
      RowBox[{"32", ",", "9"}], "]"}]}], "}"}], ",", " W% ^5 n' A) X- l
   RowBox[{"{", 6 U: T2 g3 |) f! J9 _& w) f4 a2 Y: S
    RowBox[{
0 ~1 v. ~( O2 U( i# L3 ~     RowBox[{"CM", "[", & A9 E+ W2 S0 b7 d% E2 D" m, ]- X9 q
      RowBox[{"33", ",", "1"}], "]"}], ",",
  C9 u0 I: u, y. z2 o" P: r/ j     RowBox[{"CM", "[",
& F" [8 D  A8 H- x  A) ?' D      RowBox[{"33", ",", "2"}], "]"}], ",", 1 H$ o, B+ Q; c: }
     RowBox[{"CM", "[",
& a4 B7 `, n2 m% n! h2 p/ Q      RowBox[{"33", ",", "3"}], "]"}], ",",
! _9 m+ P$ R% P2 m0 s9 P0 a5 k     RowBox[{"CM", "[", 5 p' D; Z3 A$ y
      RowBox[{"33", ",", "4"}], "]"}], ",",
4 o9 ]8 W0 {. Z+ d     RowBox[{"CM", "[", 4 `* H  j" S1 e  ~* B
      RowBox[{"33", ",", "5"}], "]"}], ",", 2 c; ~" R/ T: q+ d
     RowBox[{"CM", "[",
0 x8 \! C4 t/ h( O3 k; |3 N      RowBox[{"33", ",", "6"}], "]"}], ",",
8 r+ y  Y, ^# N% F     RowBox[{"CM", "[",
9 A% _' _% [' J, z1 G      RowBox[{"33", ",", "7"}], "]"}], ",",
$ n8 @2 u. J5 Y0 {# k; }( n     RowBox[{"CM", "[", 9 E+ t$ P5 v" @4 c9 P( s( ^
      RowBox[{"33", ",", "8"}], "]"}], ",", 8 r0 `+ x: R4 f& y
     RowBox[{"CM", "[", 8 F) |2 u: r2 v7 v6 d0 z. p; _
      RowBox[{"33", ",", "9"}], "]"}]}], "}"}], ",", ! S1 n$ Z* m) L* p; |# [! g
   RowBox[{"{",
9 \) y% m  s. k( c5 n    RowBox[{" a7 \) i# G0 U
     RowBox[{"CM", "[", 7 J6 A- @7 D8 f6 L8 H5 m0 J# `
      RowBox[{"34", ",", "1"}], "]"}], ",",
3 @3 }2 `- |, i( N' U% x+ t8 o     RowBox[{"CM", "[",
) k% B7 |: Q9 p* i4 M! e' y      RowBox[{"34", ",", "2"}], "]"}], ",", 5 j2 r* b' x& O+ n8 e1 t
     RowBox[{"CM", "[",
  v% `; e, `! _# R* X( q      RowBox[{"34", ",", "3"}], "]"}], ",", 7 Z( i+ S" _3 U0 i0 Q. ~* r2 C
     RowBox[{"CM", "[",
8 O0 E0 H7 a& ?' P8 a( ?      RowBox[{"34", ",", "4"}], "]"}], ",", $ t2 X. x; Y. p/ a& b
     RowBox[{"CM", "[", + T; a. ?- n% g' \7 p- u* ^
      RowBox[{"34", ",", "5"}], "]"}], ",", 4 [  x6 ~5 O8 ?# U: Y
     RowBox[{"CM", "[", 2 y5 X  B: z5 M
      RowBox[{"34", ",", "6"}], "]"}], ",",
2 U8 W" |, G! E* R' Q0 E+ i- E  A     RowBox[{"CM", "[", ) _, E$ U9 B" ~: R9 a
      RowBox[{"34", ",", "7"}], "]"}], ",",
, f; a6 w8 Z2 O5 C! v7 A     RowBox[{"CM", "[", 0 ?6 K7 j( ?/ ?* ^% J3 J, ?
      RowBox[{"34", ",", "8"}], "]"}], ",", 7 k0 Y8 ]5 t" x0 M$ `
     RowBox[{"CM", "[",
2 Y. V5 ~+ y4 \/ P      RowBox[{"34", ",", "9"}], "]"}]}], "}"}], ",", 6 O6 K) u. s: s0 `) R0 \
   RowBox[{"{", % c+ r0 B8 Z; d
    RowBox[{$ V' M2 e4 |" E5 L" H# C) o9 d
     RowBox[{"CM", "[", 2 o) W/ C& n0 N3 P7 g: K7 ?% T+ O
      RowBox[{"35", ",", "1"}], "]"}], ",", ! G/ ]2 E$ Q2 q  p) @, ~, A7 b/ U( S
     RowBox[{"CM", "[",
4 I! S. f7 g/ U3 ^8 A      RowBox[{"35", ",", "2"}], "]"}], ",",
8 D) f& o: Z# c     RowBox[{"CM", "[", 5 M+ J: h8 K* X
      RowBox[{"35", ",", "3"}], "]"}], ",",
  ~- ^  C" X$ b9 Y- }1 d, G     RowBox[{"CM", "[",
, U4 b$ U+ d# D% K; n      RowBox[{"35", ",", "4"}], "]"}], ",", , E: P" L3 I: {6 c3 }' G: t" G
     RowBox[{"CM", "[", + C" s5 Q2 {3 F1 x
      RowBox[{"35", ",", "5"}], "]"}], ",",
* z- w2 p7 e6 D     RowBox[{"CM", "[", . L0 f0 F6 ^" Q$ |  A
      RowBox[{"35", ",", "6"}], "]"}], ",",
' G" u8 A. g6 p     RowBox[{"CM", "[",
" u) t: `% A1 g% B      RowBox[{"35", ",", "7"}], "]"}], ",",
5 a9 ?8 v) a. w     RowBox[{"CM", "[", : L1 q! r% k$ [# m" u. Y. b
      RowBox[{"35", ",", "8"}], "]"}], ",", " e7 K2 V2 w3 ^3 f
     RowBox[{"CM", "[",
, Y7 c! D# B( `0 ]6 e! u      RowBox[{"35", ",", "9"}], "]"}]}], "}"}], ",", , ?: k( h% Z) J. A* N
   RowBox[{"{", ( L3 s& d4 O( x' n
    RowBox[{! w; w- R5 e) P- [  @
     RowBox[{"CM", "[", : x7 c8 c% k$ ~& |* f1 x6 _
      RowBox[{"36", ",", "1"}], "]"}], ",",
& X% @/ Q$ ]0 G     RowBox[{"CM", "[", $ _( F+ K2 R+ i, F8 a# g
      RowBox[{"36", ",", "2"}], "]"}], ",",
' m% c+ K, `+ g; q$ h& [8 {     RowBox[{"CM", "[",
7 N$ T5 M" z/ ~( G5 Q( m      RowBox[{"36", ",", "3"}], "]"}], ",", * |( S% ^) U. p2 c$ q% K8 @
     RowBox[{"CM", "[",
* D2 w& }7 }+ g1 r$ V- |      RowBox[{"36", ",", "4"}], "]"}], ",", + [2 y, W4 z! d  C5 L
     RowBox[{"CM", "[", 9 S8 N4 W3 R0 S) O/ }! I% u! V9 K4 s
      RowBox[{"36", ",", "5"}], "]"}], ",", : \3 ]9 S1 q1 S% m) k/ t
     RowBox[{"CM", "[", " O6 j9 Q* r; o, ?/ \9 \
      RowBox[{"36", ",", "6"}], "]"}], ",", $ o  [' Z: b- r, c. I, n) S
     RowBox[{"CM", "[", : U/ S  L. b) p) @3 r
      RowBox[{"36", ",", "7"}], "]"}], ",",
9 v# L+ V$ ^4 r     RowBox[{"CM", "[",
; j+ t% \, S' H      RowBox[{"36", ",", "8"}], "]"}], ",",
- k# K- I2 A4 g     RowBox[{"CM", "[", , Z6 j1 w  u" ]+ o; h
      RowBox[{"36", ",", "9"}], "]"}]}], "}"}], ",",
' I  ^. H: l+ }) N9 [9 e, M   RowBox[{"{",
6 y$ Z2 [1 _2 y$ ?* J* N/ s    RowBox[{
3 ~1 T& ~* ]% I* W" n; y3 m1 h     RowBox[{"CM", "[", % F' N$ E' _1 n# [
      RowBox[{"37", ",", "1"}], "]"}], ",", , Y! y* P/ `& k. ~
     RowBox[{"CM", "[",
6 D& f7 a' j- i% R      RowBox[{"37", ",", "2"}], "]"}], ",",
4 _* Z; I* Z6 y& D9 i0 `     RowBox[{"CM", "[", 6 C2 H9 P) C5 E' |( L
      RowBox[{"37", ",", "3"}], "]"}], ",",
  m3 b0 N  A3 ^  ?     RowBox[{"CM", "[",
) F- k2 c  K' d8 d' V8 F+ `      RowBox[{"37", ",", "4"}], "]"}], ",", 3 c1 _: f* X4 d' o7 W
     RowBox[{"CM", "[",
$ T3 N9 q# I. n4 ?3 D% D% k      RowBox[{"37", ",", "5"}], "]"}], ",",
; ?, Z1 d% x5 q+ x& V/ J) c% ~     RowBox[{"CM", "[",
* m. {' q$ [- [- g: l. R      RowBox[{"37", ",", "6"}], "]"}], ",",
4 X2 a& p. ]! V- K( l7 \     RowBox[{"CM", "[", 8 J' O0 t: l3 Q- f
      RowBox[{"37", ",", "7"}], "]"}], ",", 1 ]+ [! H9 F9 J3 u$ A
     RowBox[{"CM", "[",
( l' b+ v  q* A8 q: R5 J( |      RowBox[{"37", ",", "8"}], "]"}], ",", - e! r% u/ x# |$ s
     RowBox[{"CM", "[", * R; X$ D, g( ?3 h& T7 i/ ?
      RowBox[{"37", ",", "9"}], "]"}]}], "}"}], ",",
) j& n# t8 {+ M+ v% q3 Y   RowBox[{"{",
3 a0 U9 `0 T9 B4 y( r+ R1 g! G    RowBox[{7 o& c/ r9 _- l: m8 h1 C
     RowBox[{"CM", "[", 4 u$ }' _/ \3 d, b& y
      RowBox[{"38", ",", "1"}], "]"}], ",", " W) c! a; {2 U/ I
     RowBox[{"CM", "[", " [" \$ u# |5 D4 j2 V' L
      RowBox[{"38", ",", "2"}], "]"}], ",", 6 y% |7 ~- M$ w- v( C7 G
     RowBox[{"CM", "[",   r& l& K% r  h2 G5 b
      RowBox[{"38", ",", "3"}], "]"}], ",", ( s2 T$ Q% ~0 s" V" _5 O$ Q5 i
     RowBox[{"CM", "[",
# k; s% j8 t0 f0 \' L: z      RowBox[{"38", ",", "4"}], "]"}], ",",
4 `; G' b! d0 [3 p& ^0 y: R     RowBox[{"CM", "[", ( @- Z: ]; t' {) i9 i3 Y- J$ l
      RowBox[{"38", ",", "5"}], "]"}], ",",
) V- \" U: L" z6 Z/ `     RowBox[{"CM", "[",
5 w* L0 y! S$ {+ Y5 x" ~      RowBox[{"38", ",", "6"}], "]"}], ",",
2 l; i3 v# b5 y) L/ Y' ^3 R     RowBox[{"CM", "[",
5 ^7 q! L  b+ g0 N( N4 U2 y      RowBox[{"38", ",", "7"}], "]"}], ",", 5 C. g3 O, n+ M) D
     RowBox[{"CM", "[",
. j/ O+ V: b+ O: i      RowBox[{"38", ",", "8"}], "]"}], ",",
$ m+ F) i6 h" ~( I' K4 k     RowBox[{"CM", "[", ; L3 @! c; }+ c8 [, u' n
      RowBox[{"38", ",", "9"}], "]"}]}], "}"}], ",", ! v# r. @+ N/ ]+ b
   RowBox[{"{",
, }" t7 f6 v# J6 R    RowBox[{
" W# q' O* _# m     RowBox[{"CM", "[",
4 O0 ^4 r3 e, N# G; Z* b/ m      RowBox[{"39", ",", "1"}], "]"}], ",",
6 p% r$ n$ X& [     RowBox[{"CM", "[", # l& O5 F/ T5 h# e( L' X, k
      RowBox[{"39", ",", "2"}], "]"}], ",", 6 i2 P" I% d. k  D6 t( X" G
     RowBox[{"CM", "[",
! b) M( s/ @; @      RowBox[{"39", ",", "3"}], "]"}], ",",
$ x' _# t, M' M# t5 n% n     RowBox[{"CM", "[",
6 I! c- n/ c! h  o* F      RowBox[{"39", ",", "4"}], "]"}], ",",
: E1 G  x6 N; X( t  p& n     RowBox[{"CM", "[",
2 T, l; w# H  V4 M6 s* H9 ^5 l      RowBox[{"39", ",", "5"}], "]"}], ",",
  y, m* `. W9 O8 Y' n: x8 `* |: T     RowBox[{"CM", "[", 9 D. s3 M' L* |7 a7 ?6 |
      RowBox[{"39", ",", "6"}], "]"}], ",", - o6 M3 o* O# R- }. h5 C3 s
     RowBox[{"CM", "[",
5 o7 c7 q  f9 t; ?8 p: t3 [2 B      RowBox[{"39", ",", "7"}], "]"}], ",", : E5 }& m0 i2 P% `& F+ ?2 R
     RowBox[{"CM", "[",
# e+ X6 u* A, h  N  j0 ]1 E( I9 u3 v2 P      RowBox[{"39", ",", "8"}], "]"}], ",",
+ e2 x8 `, W; t/ j5 ?( X; l- m     RowBox[{"CM", "[", ( J7 M$ |" Y# _; ]: z9 E' T- m
      RowBox[{"39", ",", "9"}], "]"}]}], "}"}], ",", - E# @+ x3 ?, t6 Q4 H: o) L3 A7 O
   RowBox[{"{",
: f$ C8 o0 X9 a( ]* c4 P# Y, [    RowBox[{
3 O+ G1 ^. r: f+ z% o" l3 L     RowBox[{"CM", "[", . T' P& b, v. A
      RowBox[{"40", ",", "1"}], "]"}], ",", ) }3 d$ @2 L9 j9 _: k
     RowBox[{"CM", "[",
* N  f0 N; G1 G& Q6 U      RowBox[{"40", ",", "2"}], "]"}], ",",
0 s9 W; e3 x) W     RowBox[{"CM", "[", / S9 ?6 I7 T0 r/ [3 s( q4 y
      RowBox[{"40", ",", "3"}], "]"}], ",", ( b9 C/ U, E8 y8 y
     RowBox[{"CM", "[",   T$ k# c7 \! ?9 Q, Y
      RowBox[{"40", ",", "4"}], "]"}], ",",
1 _" I. j# X7 ^2 J, b     RowBox[{"CM", "[",   |7 r  z% l' t/ t
      RowBox[{"40", ",", "5"}], "]"}], ",", / O: e7 y1 m" z' c8 f+ ]
     RowBox[{"CM", "[", 1 h0 E& t$ q; B( W
      RowBox[{"40", ",", "6"}], "]"}], ",",
8 B' ^, I' f( S/ K- F* [3 ]# ^" w     RowBox[{"CM", "[", + o$ T7 o5 M4 M: K/ h) G
      RowBox[{"40", ",", "7"}], "]"}], ",", $ a! n& I6 c% y! x: b/ S8 g1 K( {
     RowBox[{"CM", "[", - d' d  E0 i3 O! P9 @# }4 C, T. a  M
      RowBox[{"40", ",", "8"}], "]"}], ",",
0 L* |) }6 V2 b3 j     RowBox[{"CM", "[",
# |" J/ {5 Q2 _2 j" B      RowBox[{"40", ",", "9"}], "]"}]}], "}"}], ",", 6 z( a/ J5 H" P' n2 e5 F
   RowBox[{"{",
1 Q4 l% v& {3 o; f    RowBox[{
& w! i# c; `$ p: Y     RowBox[{"CM", "[", ; a/ j0 Q' ]7 O# Z& o% X% |" f
      RowBox[{"41", ",", "1"}], "]"}], ",",
, r1 k, t8 o0 v3 ?     RowBox[{"CM", "[", , F; l" T5 I# m. }* ~' m) X# {
      RowBox[{"41", ",", "2"}], "]"}], ",", : V% p& p4 a' v7 E" ?& |" r( B
     RowBox[{"CM", "[",
; u7 p3 ]4 V, M' s. S      RowBox[{"41", ",", "3"}], "]"}], ",",
! u, ]/ C9 w- B- ]- G1 F- a     RowBox[{"CM", "[",
; f6 S6 _& L. r. U- ~$ u      RowBox[{"41", ",", "4"}], "]"}], ",", ' o- V  D: e2 e+ t
     RowBox[{"CM", "[", . c- d6 i' Y0 S5 a2 G8 J: X
      RowBox[{"41", ",", "5"}], "]"}], ",", $ i- M, p7 ~! ?2 f
     RowBox[{"CM", "[", - s9 m, K! j' `" }! Y
      RowBox[{"41", ",", "6"}], "]"}], ",",
6 N) v$ H+ ]! }  }- _2 c* L     RowBox[{"CM", "[", * O  t0 J3 T- ]7 S3 a
      RowBox[{"41", ",", "7"}], "]"}], ",", 8 Y7 f" S1 |% c- \+ x
     RowBox[{"CM", "[",
8 t. h6 Z) v% ^      RowBox[{"41", ",", "8"}], "]"}], ",",
" ~8 f8 D) u' N/ X$ n* E     RowBox[{"CM", "[",
; g5 ]2 r" G7 c1 A2 Q      RowBox[{"41", ",", "9"}], "]"}]}], "}"}], ",",
) c" J! P0 o- K' R, b   RowBox[{"{", 2 {9 R9 d( w4 _8 A& D/ j& v
    RowBox[{
+ q7 F/ m! G+ ]1 ?     RowBox[{"CM", "[", & Q$ B% `4 V5 v
      RowBox[{"42", ",", "1"}], "]"}], ",",
) u! g) }0 x) z( l' v# N+ ]     RowBox[{"CM", "[",   M5 `* b6 [5 T2 Y! s7 q1 N
      RowBox[{"42", ",", "2"}], "]"}], ",",
4 `- b# g7 Z! l* j! e     RowBox[{"CM", "[", 3 a4 @) i: a) d% K  |5 Y. S
      RowBox[{"42", ",", "3"}], "]"}], ",", 9 z  j: H6 ^' C: p
     RowBox[{"CM", "[", 6 d" n: u5 O1 f
      RowBox[{"42", ",", "4"}], "]"}], ",",
2 x) v- q. ^+ C     RowBox[{"CM", "[",
/ S1 \6 o. Z' n4 R      RowBox[{"42", ",", "5"}], "]"}], ",",
" p3 R: {/ N) y. ~: ^     RowBox[{"CM", "[",   N' S* q; S: |: H
      RowBox[{"42", ",", "6"}], "]"}], ",", 6 s+ d% l5 k- w) f( K5 _( D
     RowBox[{"CM", "[",
2 S# V- M2 K" o. g0 x$ P      RowBox[{"42", ",", "7"}], "]"}], ",",
1 v9 I! `: x  U) Q8 T     RowBox[{"CM", "[",
9 u" y7 C# L3 j. f% C# M      RowBox[{"42", ",", "8"}], "]"}], ",",
* ?& T8 r% v6 [# R     RowBox[{"CM", "[", $ b8 S/ q! ~9 l- i7 D
      RowBox[{"42", ",", "9"}], "]"}]}], "}"}], ",", 1 p) z' ^6 S8 b1 o, o
   RowBox[{"{",
. d8 j4 f9 ^8 o. v    RowBox[{( z! m) x0 @1 _$ z: P& P
     RowBox[{"CM", "[",
- Z* I/ j5 J  q: j+ V      RowBox[{"43", ",", "1"}], "]"}], ",",
: U5 O9 K- S! b: N: |" j. ]     RowBox[{"CM", "[",
. W6 P- S1 R3 E& z      RowBox[{"43", ",", "2"}], "]"}], ",",
6 Z1 E6 }: P& {& k! O9 T, e. `1 {/ {. e     RowBox[{"CM", "[",
% x# ^2 g6 G2 ~& z# f; z+ L      RowBox[{"43", ",", "3"}], "]"}], ",", 3 K. q. g, Q% Y
     RowBox[{"CM", "[", & t( J6 R! ~: j7 R/ X
      RowBox[{"43", ",", "4"}], "]"}], ",", % o. d+ A: n+ E
     RowBox[{"CM", "[", " A1 U$ X) S8 H$ }4 }
      RowBox[{"43", ",", "5"}], "]"}], ",",
8 I7 {  u: S3 A, ?. i/ J: D     RowBox[{"CM", "[", 9 P1 y7 V9 U" m6 R- B3 S
      RowBox[{"43", ",", "6"}], "]"}], ",", % m7 Y, y- P% M; n+ z! g8 B
     RowBox[{"CM", "[", - f9 f/ h' i/ D, T: C5 c
      RowBox[{"43", ",", "7"}], "]"}], ",", / v1 H0 _2 z; o, X0 ]
     RowBox[{"CM", "[", * h$ k. u& a% R- M# Q' m; U( J! u8 j
      RowBox[{"43", ",", "8"}], "]"}], ",", " a1 u8 Q. b( [" G% X' \
     RowBox[{"CM", "[", ( {4 u) |1 d; y. g% T
      RowBox[{"43", ",", "9"}], "]"}]}], "}"}], ",", 0 I, N- `9 y9 [6 k6 n4 R
   RowBox[{"{",
! r& X. V& z5 R! Z' }6 ]# K4 A# S    RowBox[{( H6 a8 [9 F2 ?$ k0 S
     RowBox[{"CM", "[", 3 B# J$ o  x. o5 {- j% t3 |) l
      RowBox[{"44", ",", "1"}], "]"}], ",", 3 r  g; ^% E6 M: \6 G3 x% q
     RowBox[{"CM", "[", 0 ?* }0 P, j$ A/ _7 `' b  g1 c
      RowBox[{"44", ",", "2"}], "]"}], ",",
  E. u! d! L( m0 Q, h" S" T/ L% |     RowBox[{"CM", "[", 9 Y! A1 O5 A7 n# U2 a9 h; U
      RowBox[{"44", ",", "3"}], "]"}], ",",
& |# J) a% M0 c+ \2 i  m     RowBox[{"CM", "[", # I# r& J& z; H6 J; u( k  \
      RowBox[{"44", ",", "4"}], "]"}], ",",
! r% E  }9 B+ C. ~( K     RowBox[{"CM", "[",
8 y  B6 I7 y; D      RowBox[{"44", ",", "5"}], "]"}], ",",
- L" z& }2 \+ V5 a! N$ R5 N' `     RowBox[{"CM", "[",
# n+ t, x3 W, c      RowBox[{"44", ",", "6"}], "]"}], ",",   I6 A5 o& M- e6 L
     RowBox[{"CM", "[", 6 q2 y7 w$ F) Z$ ^7 j. |. Z
      RowBox[{"44", ",", "7"}], "]"}], ",",
* q8 k3 m9 X( l9 D2 T8 l, {! K7 j     RowBox[{"CM", "[", , R- j) m' J9 u( q% M# u
      RowBox[{"44", ",", "8"}], "]"}], ",",
# o7 |# j/ ?9 ~' y     RowBox[{"CM", "[", 1 D( G& e% V: g4 H- m) ?1 {
      RowBox[{"44", ",", "9"}], "]"}]}], "}"}], ",", 1 F& x% z# j) k" @
   RowBox[{"{", ( a& k8 x( g: v! [
    RowBox[{; Q% X, @: K" k
     RowBox[{"CM", "[", * w* _1 [# z" A  P# f+ t
      RowBox[{"45", ",", "1"}], "]"}], ",", $ K5 ^( V! Z3 l4 k
     RowBox[{"CM", "[", + h. ^  [1 P# m% m) b+ ~1 V' g
      RowBox[{"45", ",", "2"}], "]"}], ",",
# R2 [# r* @6 e. {$ D     RowBox[{"CM", "[", 2 d* P" O2 W, w
      RowBox[{"45", ",", "3"}], "]"}], ",",
6 y; I6 R; H: \; h     RowBox[{"CM", "[", 4 m- g0 {$ \& [) }6 M
      RowBox[{"45", ",", "4"}], "]"}], ",", ) Y- W6 P* N9 W3 Y1 G; ]" ~
     RowBox[{"CM", "[",
& s/ h' y* P# g  v8 _% U  l      RowBox[{"45", ",", "5"}], "]"}], ",",
1 T& G, A7 s, M/ k     RowBox[{"CM", "[",
- J+ Y  J9 s. M7 `4 g3 p      RowBox[{"45", ",", "6"}], "]"}], ",",   V) p; L  E9 B' [% Z: A
     RowBox[{"CM", "[",
. U. n( w4 e! s. v" R. [2 W* W3 s      RowBox[{"45", ",", "7"}], "]"}], ",",
! ?* D# Q8 k$ w' }0 g4 x1 _4 o     RowBox[{"CM", "[",
# U8 \& [4 y3 ]  B9 D* G) V      RowBox[{"45", ",", "8"}], "]"}], ",",
' w: M) c7 @+ S1 n4 B! ]5 @1 f     RowBox[{"CM", "[", & _0 ], b6 m1 J* F: n' l
      RowBox[{"45", ",", "9"}], "]"}]}], "}"}], ",",
: f, w8 i+ L. O) v" s9 _   RowBox[{"{", ' c4 t0 s. y( |+ F0 {
    RowBox[{2 ~7 Z' c7 D- c( z. G1 l
     RowBox[{"CM", "[", 5 O' k7 p1 |# c, s
      RowBox[{"46", ",", "1"}], "]"}], ",",
$ ]8 G8 W4 u1 g     RowBox[{"CM", "[",
& U" o7 \: X) g" X" ]2 I      RowBox[{"46", ",", "2"}], "]"}], ",", ' J. _  i1 p1 V% @
     RowBox[{"CM", "[",
8 U& j# T4 {: Z/ d! P' J$ }      RowBox[{"46", ",", "3"}], "]"}], ",",
* A: N  B2 g$ r/ X8 `; n     RowBox[{"CM", "[",
0 Q2 h: g; A7 G! o0 Z      RowBox[{"46", ",", "4"}], "]"}], ",", ( R! d8 ~! `8 P4 m
     RowBox[{"CM", "[", % R$ S0 j2 Z: f. E: y: W
      RowBox[{"46", ",", "5"}], "]"}], ",",
8 b: F" w4 `9 k     RowBox[{"CM", "[",   c/ x2 `" @6 s: T$ X, K5 M
      RowBox[{"46", ",", "6"}], "]"}], ",",
4 ?7 a8 f0 m; R% ]' B& @0 X7 J8 X! w     RowBox[{"CM", "[", 8 e6 Z- f8 a0 `4 o
      RowBox[{"46", ",", "7"}], "]"}], ",", 9 C  K6 j7 m$ x9 F. y8 D. X8 u9 ?9 m
     RowBox[{"CM", "[",
- l# m4 }7 C, q% Z      RowBox[{"46", ",", "8"}], "]"}], ",",
* _. K, Y1 s; D; Q' @     RowBox[{"CM", "[",
# i  k( ^- o7 a6 G4 ?      RowBox[{"46", ",", "9"}], "]"}]}], "}"}], ",",
; U+ z+ r, `+ e/ k   RowBox[{"{",
% p: h( o. k/ l- V: H3 B    RowBox[{0 A) M, N' X' M" u" A  n8 h
     RowBox[{"CM", "[",
3 w4 E, H' Z, J      RowBox[{"47", ",", "1"}], "]"}], ",", 9 @+ s5 y& S, B
     RowBox[{"CM", "[", 5 j) F$ i, U2 z, g; l+ j* D. V
      RowBox[{"47", ",", "2"}], "]"}], ",",
$ W7 w8 t  o! s4 \' g0 `1 g" I     RowBox[{"CM", "[",
: c0 l1 N# i' W& w8 U+ F3 b      RowBox[{"47", ",", "3"}], "]"}], ",", % F& O# a1 B$ B! W* P/ w: x4 @- w0 V
     RowBox[{"CM", "[",
; z+ W, T! U) Y$ E  t- g# m      RowBox[{"47", ",", "4"}], "]"}], ",",
+ y1 X. H+ j* m# o' H     RowBox[{"CM", "[", + q. c& u5 m! ?8 e" j$ L
      RowBox[{"47", ",", "5"}], "]"}], ",",
- ^5 [# m9 C9 L     RowBox[{"CM", "[",
4 g: h* x' _2 E2 h* t      RowBox[{"47", ",", "6"}], "]"}], ",", 6 ]4 @. |; h  d4 M3 d) y: B
     RowBox[{"CM", "[",
! l7 ^$ I7 p$ I% ^. ~      RowBox[{"47", ",", "7"}], "]"}], ",", 6 Q/ P9 }; p6 m+ n5 E8 \1 S0 b
     RowBox[{"CM", "[",
. u; _% Q( J4 w- P" c- |; B% S. m      RowBox[{"47", ",", "8"}], "]"}], ",", 0 Q8 D/ i5 v5 z- g4 w3 F
     RowBox[{"CM", "[", 4 V7 y. A/ s) Z# k4 M  c
      RowBox[{"47", ",", "9"}], "]"}]}], "}"}], ",",
9 C  n% d) h3 S+ ^2 i! h# \   RowBox[{"{", 6 ^1 h) O4 X% @+ I% c1 D1 z
    RowBox[{
" |, H* Y6 p; P' e- O- @; N* c8 t$ G     RowBox[{"CM", "[",
$ T, C: P3 |' |& S5 Y      RowBox[{"48", ",", "1"}], "]"}], ",",
% r# b& r5 a3 L" v     RowBox[{"CM", "[",
' g: k: E) h; I$ N' D- c9 n0 `      RowBox[{"48", ",", "2"}], "]"}], ",", : }7 N7 h( e* p/ O8 T3 L
     RowBox[{"CM", "[", * `6 z; p  o& W' ]: a0 v  Y
      RowBox[{"48", ",", "3"}], "]"}], ",",
6 O1 c- P. L; o- u     RowBox[{"CM", "[",
  d* c9 P# U2 B      RowBox[{"48", ",", "4"}], "]"}], ",", , s7 M5 O' s2 _) W; i/ L  s
     RowBox[{"CM", "[",
+ K  Q5 Y1 s% T! [) ]; H: v      RowBox[{"48", ",", "5"}], "]"}], ",",
, @) ~$ B8 ^' A7 o; U     RowBox[{"CM", "[",
  F0 g3 Y7 y( \2 R4 G      RowBox[{"48", ",", "6"}], "]"}], ",", : |2 T. P4 g' [- K6 b  P
     RowBox[{"CM", "[", 1 |4 k: r" ~* \, j
      RowBox[{"48", ",", "7"}], "]"}], ",",
; c; r9 ?2 @; w: e0 }4 [4 M# C     RowBox[{"CM", "[",
$ q+ b+ i1 E0 k& N      RowBox[{"48", ",", "8"}], "]"}], ",",
0 s" k7 I: p, D( F     RowBox[{"CM", "[", . V) q' i, r# R' s% S  }' ~
      RowBox[{"48", ",", "9"}], "]"}]}], "}"}], ",",
# p( a  b1 L5 D4 Q0 i/ u6 T   RowBox[{"{", ( L5 {6 u+ h' ?3 e0 W
    RowBox[{9 ?& W: i$ w. r- V7 o6 a+ M$ F5 b
     RowBox[{"CM", "[", " Y  ~6 m) k. h4 o5 s
      RowBox[{"49", ",", "1"}], "]"}], ",",
( S# w0 y- G* h     RowBox[{"CM", "[",
* C4 J: Z0 E" X9 Y% q& C      RowBox[{"49", ",", "2"}], "]"}], ",", # p, L* _) i* l+ i4 u9 Q
     RowBox[{"CM", "[",
+ Q) C' V0 l% O7 a      RowBox[{"49", ",", "3"}], "]"}], ",",
9 `7 t( K  E0 W3 L. _     RowBox[{"CM", "[", 0 U5 _5 Q2 S+ @% _0 z
      RowBox[{"49", ",", "4"}], "]"}], ",", " m7 v1 T. z+ J: J2 n6 y
     RowBox[{"CM", "[", ; U, y% M$ v7 a( u" O3 C1 t" z3 b
      RowBox[{"49", ",", "5"}], "]"}], ",", : X* Y# K/ k' o2 f* f, |6 [
     RowBox[{"CM", "[", 3 `4 u& R# a# h. ^. d& z
      RowBox[{"49", ",", "6"}], "]"}], ",",
4 B& o3 R8 ~% w3 Z     RowBox[{"CM", "[", ) p7 o" Q! a. b, D/ P
      RowBox[{"49", ",", "7"}], "]"}], ",",
9 W8 d7 l- J4 J: c0 Y" u5 |$ s2 T. g     RowBox[{"CM", "[",
2 ~8 I/ O! ]+ |0 m# N$ n) }      RowBox[{"49", ",", "8"}], "]"}], ",",
& ]* E  K) e- |: E* v. i     RowBox[{"CM", "[", ; {' s9 J7 {" w! v' V7 u
      RowBox[{"49", ",", "9"}], "]"}]}], "}"}], ",",
' [  m0 f: \0 W' }: N( `6 q   RowBox[{"{",
& X+ @9 n  b5 z2 U% G2 s! v  C    RowBox[{
2 I7 Q) P8 b& E" z' I& t9 k$ T' }     RowBox[{"CM", "[",
, `' f( T  M* A/ `) T  N' S      RowBox[{"50", ",", "1"}], "]"}], ",",
/ Z! {) i5 p! v     RowBox[{"CM", "[",
4 {! A3 T* d% A2 m' P$ t$ \4 F( v      RowBox[{"50", ",", "2"}], "]"}], ",", 9 A! a1 s# d: }
     RowBox[{"CM", "[", 0 Y+ \. L7 B8 W, e
      RowBox[{"50", ",", "3"}], "]"}], ",",
& N& K( s3 I0 n! L+ P$ S9 q     RowBox[{"CM", "[",
* d" {! q  b; |; c& X      RowBox[{"50", ",", "4"}], "]"}], ",",
0 K% W  X% z* m% I# d4 J7 c1 [  j     RowBox[{"CM", "[",
% B6 D5 ?/ F8 b+ ?+ ^1 Y      RowBox[{"50", ",", "5"}], "]"}], ",", " r3 I% n7 X' {7 k' Y# r
     RowBox[{"CM", "[", : f: ^# G) l7 B! t4 P; D
      RowBox[{"50", ",", "6"}], "]"}], ",",
6 V! m$ e4 }/ }7 _: M     RowBox[{"CM", "[", 8 S0 @% O9 [, C5 l+ }1 |
      RowBox[{"50", ",", "7"}], "]"}], ",",
% {9 v7 Z9 Y" b6 r+ ?. y! r     RowBox[{"CM", "[",
6 f2 m1 ~1 H! ?' S2 p      RowBox[{"50", ",", "8"}], "]"}], ",", . m2 @" k: ^5 K% }
     RowBox[{"CM", "[",
0 g3 [3 t: U* I      RowBox[{"50", ",", "9"}], "]"}]}], "}"}], ",",
$ O6 t2 ^5 t4 [- g   RowBox[{"{",
; Y7 V" y( m3 p7 H+ }8 u    RowBox[{
: l- r+ p& }) a     RowBox[{"CM", "[",
# P. \  d; v8 O+ \  N; s      RowBox[{"51", ",", "1"}], "]"}], ",",
: ]0 ?# s! o$ U1 D7 D     RowBox[{"CM", "[",
7 P; _& v% t6 _+ [3 s      RowBox[{"51", ",", "2"}], "]"}], ",",
8 `  @$ `# T# v* v5 T     RowBox[{"CM", "[",
4 |9 E8 C  f/ [      RowBox[{"51", ",", "3"}], "]"}], ",", : K4 K. {$ ]' y; V) y
     RowBox[{"CM", "[", 7 _+ V- v' _. Z6 k
      RowBox[{"51", ",", "4"}], "]"}], ",",
  ]( J6 D( s$ Z/ d' i1 m     RowBox[{"CM", "[",   D% z! S/ L3 H! j; d0 z0 E% a
      RowBox[{"51", ",", "5"}], "]"}], ",",
( x4 w+ u8 ?& P% T5 S! d) W1 N& l     RowBox[{"CM", "[", 9 j% o5 D7 E  [1 u; X6 m. A
      RowBox[{"51", ",", "6"}], "]"}], ",", & H% u: a2 E5 t5 _6 o8 c
     RowBox[{"CM", "[", & V! B- T2 D, W7 D9 Y, l
      RowBox[{"51", ",", "7"}], "]"}], ",", 4 I5 ]* i$ U- d$ m1 k. S- P
     RowBox[{"CM", "[",
( X3 S; f" T+ Y0 ^      RowBox[{"51", ",", "8"}], "]"}], ",",
7 F. c9 v% D( S: y     RowBox[{"CM", "[",
5 M4 K$ r5 b/ A) J1 T      RowBox[{"51", ",", "9"}], "]"}]}], "}"}], ",",
- e7 `1 f( M" R4 ]3 a0 l# Z   RowBox[{"{",
0 B4 {) a9 ?7 s, b: K    RowBox[{" [/ c0 }  F, R, J' m9 B
     RowBox[{"CM", "[",
) v7 @# K7 k6 p      RowBox[{"52", ",", "1"}], "]"}], ",",
" Z( o* D' P8 j; ?/ n- E) m* I     RowBox[{"CM", "[",
( m- ~- q4 d% u2 a* T# Z& L      RowBox[{"52", ",", "2"}], "]"}], ",", 7 Z! d/ w+ m# Z% X
     RowBox[{"CM", "[",
$ N+ v  i8 \2 n4 ]; \/ @0 U      RowBox[{"52", ",", "3"}], "]"}], ",",
  C3 D% G5 ?: V9 F% _4 F0 o0 ~     RowBox[{"CM", "[",
2 O6 ^( j7 b( p/ M# |' E      RowBox[{"52", ",", "4"}], "]"}], ",",   ]* Q: ?8 B! t, _" g% @/ j
     RowBox[{"CM", "[", : c5 a  V6 i5 V# C
      RowBox[{"52", ",", "5"}], "]"}], ",",
2 M0 Q1 n4 o! a  i7 m     RowBox[{"CM", "[",   s5 }- `  Z6 v4 |  m4 J$ s
      RowBox[{"52", ",", "6"}], "]"}], ",", 0 R- Z$ z& Y0 ?% x# `
     RowBox[{"CM", "[", & I# W6 ^/ Z' U% Y3 g& C: j! b
      RowBox[{"52", ",", "7"}], "]"}], ",", " t6 u  P7 N; p, z+ ?
     RowBox[{"CM", "[", 5 i7 U, Q3 D3 p! k) l/ Z  _
      RowBox[{"52", ",", "8"}], "]"}], ",", - Z0 }; a! q5 ^8 i
     RowBox[{"CM", "[",
) E. g! H1 X+ C% S1 K      RowBox[{"52", ",", "9"}], "]"}]}], "}"}], ",",
% Z5 E( P9 ^9 ?  i# H- f- U9 m   RowBox[{"{", 4 |& y( j0 R& w9 e
    RowBox[{
7 q- d  s2 F6 Z, E     RowBox[{"CM", "[", . j' f; [9 _; q1 v2 V' ^4 u
      RowBox[{"53", ",", "1"}], "]"}], ",",
( h7 t- n0 V0 N: _     RowBox[{"CM", "[",
2 C5 R+ ?1 C0 I      RowBox[{"53", ",", "2"}], "]"}], ",", $ k9 Z. {6 _+ K6 |- H7 ~
     RowBox[{"CM", "[",
) @( \7 j9 ?7 q& F      RowBox[{"53", ",", "3"}], "]"}], ",",
" C. x' ^. [: o; [1 G2 \/ u. z     RowBox[{"CM", "[",
* N3 K% K& S. S      RowBox[{"53", ",", "4"}], "]"}], ",",
2 I0 _4 |8 ]/ g8 {     RowBox[{"CM", "[", $ m3 q1 \& A; ~$ U' P: R
      RowBox[{"53", ",", "5"}], "]"}], ",",
6 }, H5 J0 e% W. A& {8 u# r* n     RowBox[{"CM", "[",
+ c. v: c( a& K" L( e      RowBox[{"53", ",", "6"}], "]"}], ",",
: C: B( ^  x( H7 @( \     RowBox[{"CM", "[", : y' c% S6 s7 `- |- U2 n* H9 L+ ]
      RowBox[{"53", ",", "7"}], "]"}], ",",   U# M, i3 V3 A$ h
     RowBox[{"CM", "[",
) D) G2 x2 s$ f/ p) Q+ m      RowBox[{"53", ",", "8"}], "]"}], ",",
/ ~; Q2 p3 H- ^: r, I5 q     RowBox[{"CM", "[", , L$ G  H; q9 q, T5 K) F/ V
      RowBox[{"53", ",", "9"}], "]"}]}], "}"}], ",",
1 @' R" t2 C. D& n9 v8 T$ m; M* V   RowBox[{"{",
& I( i  a5 M, ~) p3 r3 ]    RowBox[{
+ {1 U/ f5 P. h) l. u* R9 C     RowBox[{"CM", "[", % @1 Y  G- d3 C) P2 ]0 Y, ]  b
      RowBox[{"54", ",", "1"}], "]"}], ",", " e: n. c. w" t, Q$ g
     RowBox[{"CM", "[",
9 o" N7 U/ I1 q- i+ \/ x" S      RowBox[{"54", ",", "2"}], "]"}], ",",
2 l* r( z7 M. p     RowBox[{"CM", "[", 4 J, d7 W+ P( V
      RowBox[{"54", ",", "3"}], "]"}], ",",
3 T! m/ u& ?8 `1 _- N$ u     RowBox[{"CM", "[",
' h8 b5 ^, `! x, Y0 b) j0 H7 T: Q      RowBox[{"54", ",", "4"}], "]"}], ",",
+ F* n: I# O- \; K+ ]' e- B     RowBox[{"CM", "[",
( P: P# X; F6 r0 G      RowBox[{"54", ",", "5"}], "]"}], ",", 6 u  |* K$ ]  q  O; {
     RowBox[{"CM", "[",
7 Z; Z! Y/ q0 ]+ O      RowBox[{"54", ",", "6"}], "]"}], ",", 0 w5 }  j; Z  e) U) a; H3 s
     RowBox[{"CM", "[",
# N1 A( Y/ i$ l; V1 L' i4 w      RowBox[{"54", ",", "7"}], "]"}], ",",
: ^% Y/ u7 B) N% Q/ j     RowBox[{"CM", "[", " |8 P3 z) C; \" I- r) R, R
      RowBox[{"54", ",", "8"}], "]"}], ",", 6 [. H% D* \* N/ l( P( s: \
     RowBox[{"CM", "[",
7 I1 o# V8 }7 C/ z) K      RowBox[{"54", ",", "9"}], "]"}]}], "}"}], ",", ' S2 {4 ]% }2 G3 }5 s* D0 M
   RowBox[{"{",
2 h$ p" c. c) V; u8 k. N    RowBox[{" {) n4 R# N$ F- U
     RowBox[{"CM", "[",
, @! c( h1 R9 ^; ?( D      RowBox[{"55", ",", "1"}], "]"}], ",", 5 Z2 P. d; ]: f( e- G# B( e/ g7 ]$ q
     RowBox[{"CM", "[", : I8 Y/ _( C# k1 g$ p5 i
      RowBox[{"55", ",", "2"}], "]"}], ",", % h5 S0 |/ A4 x: I1 z5 n7 D' S
     RowBox[{"CM", "[",
) B" \. c8 \0 Q9 A8 F      RowBox[{"55", ",", "3"}], "]"}], ",",
0 m7 _& s3 q3 d8 f2 n- B) U: X  b* F     RowBox[{"CM", "[", ' B/ V) s& ~9 @; A& ?+ w$ h& T
      RowBox[{"55", ",", "4"}], "]"}], ",", $ l  \9 |/ k1 g
     RowBox[{"CM", "[", # ^8 a. Y. [& v; W2 a
      RowBox[{"55", ",", "5"}], "]"}], ",",
4 m: V2 ?, H0 ~& ^! x9 V     RowBox[{"CM", "[", # X& q6 W- e9 m  S- K* I- U; I. W
      RowBox[{"55", ",", "6"}], "]"}], ",",
  Q% F- i' {) O4 Q     RowBox[{"CM", "[", 7 Q4 d& f5 i& O3 r) K
      RowBox[{"55", ",", "7"}], "]"}], ",", ' f( }4 h9 f4 b  [; Y% c# c' h2 }
     RowBox[{"CM", "[", # D* L! h" H# v6 w& \
      RowBox[{"55", ",", "8"}], "]"}], ",",
* J4 R! Y4 |9 l6 t% m2 t9 c     RowBox[{"CM", "[", 3 D8 t) C# K& S( ^) H
      RowBox[{"55", ",", "9"}], "]"}]}], "}"}], ",",
8 M3 m: f5 ]4 ]   RowBox[{"{",
2 }# c) Q7 Z7 m& ~    RowBox[{6 i2 F( n1 g) x0 _
     RowBox[{"CM", "[",
2 _  ~7 c% i7 i! }( Q1 s$ J' Q: V6 L      RowBox[{"56", ",", "1"}], "]"}], ",",
3 U7 q) {& A1 v; I4 p! g: |     RowBox[{"CM", "[",
, \% w0 y8 f. u3 p      RowBox[{"56", ",", "2"}], "]"}], ",", ' V9 ?( ?5 S; c9 Q5 e
     RowBox[{"CM", "[",
% o3 x, O4 F9 W+ d      RowBox[{"56", ",", "3"}], "]"}], ",",
( E7 e) K4 Z  ~% E     RowBox[{"CM", "[", ( F4 q6 T, ^2 s/ ~6 Y
      RowBox[{"56", ",", "4"}], "]"}], ",", 5 I* ?& n) b3 i& P2 G2 X. k
     RowBox[{"CM", "[",
! h4 f$ C( |8 A$ E: _5 S; ?+ m      RowBox[{"56", ",", "5"}], "]"}], ",",
# X$ ^# I& T; e1 e' @     RowBox[{"CM", "[", " T! L* ?8 T3 E* T( F) B/ {
      RowBox[{"56", ",", "6"}], "]"}], ",", ) C+ O7 {8 a* j, r* F
     RowBox[{"CM", "[",
5 T$ [* S6 S( W5 `9 d3 F$ R# l' \      RowBox[{"56", ",", "7"}], "]"}], ",", - g; p" `& T/ i7 g5 p
     RowBox[{"CM", "[",
+ V0 i: t, u* O$ R+ t7 O( m      RowBox[{"56", ",", "8"}], "]"}], ",", ) J! L5 W$ ?4 G* I) x6 W
     RowBox[{"CM", "[", ( A' o& I- S1 J, O2 p
      RowBox[{"56", ",", "9"}], "]"}]}], "}"}], ",", 0 s% [1 q' @( k0 c2 W; ]
   RowBox[{"{",
8 B$ [3 Q) P* _% r9 ?- n    RowBox[{
+ M9 C2 G; ~8 j+ H     RowBox[{"CM", "[",
; H0 }. U) h, d9 W; S      RowBox[{"57", ",", "1"}], "]"}], ",", - m9 y" L( ~6 k( j! O6 a& h" G
     RowBox[{"CM", "[", / N( e$ L4 R  T" ?, F7 q5 r
      RowBox[{"57", ",", "2"}], "]"}], ",",
8 L7 s9 Z# w1 ?/ z     RowBox[{"CM", "[",
. d. Y' @9 y. W- a8 K      RowBox[{"57", ",", "3"}], "]"}], ",", 7 F1 L* l9 }: |$ P; j0 q! B3 t
     RowBox[{"CM", "[",
( q0 f1 A1 H# I& K+ K6 T: j      RowBox[{"57", ",", "4"}], "]"}], ",",
4 b: X4 l, @# E     RowBox[{"CM", "[",
. ^! Q' O5 d* o3 o      RowBox[{"57", ",", "5"}], "]"}], ",", ) Q$ @! w9 X. U" ~$ s
     RowBox[{"CM", "[", - c6 v1 [, K1 a" K% U# f9 `
      RowBox[{"57", ",", "6"}], "]"}], ",",
/ _- `9 b/ I7 ~$ p# B. p, n     RowBox[{"CM", "[", : X! A9 I( O" Y2 J
      RowBox[{"57", ",", "7"}], "]"}], ",",
  l4 x  q- r7 O3 {, L     RowBox[{"CM", "[",
# q" _& H* _4 g      RowBox[{"57", ",", "8"}], "]"}], ",", , V# g4 P% f! r+ {" l3 E* @
     RowBox[{"CM", "[",
" V5 [; y3 p- |      RowBox[{"57", ",", "9"}], "]"}]}], "}"}], ",", - p3 S/ r* T5 C4 I& _& x
   RowBox[{"{",
: G2 h1 c2 U9 M9 J4 D& x0 B9 D* M    RowBox[{
3 P" {/ y5 [+ b  _4 m9 @     RowBox[{"CM", "[", ! b  {4 Q0 Q0 c  C3 y2 P/ ^
      RowBox[{"58", ",", "1"}], "]"}], ",",
% U& u  ]  `* [8 ^& p- W3 V     RowBox[{"CM", "[", 0 ^' O4 s7 E+ N/ G
      RowBox[{"58", ",", "2"}], "]"}], ",", ! M) k" ?* s! G, a: d+ y
     RowBox[{"CM", "[", 6 Z  B& E2 J' [# v6 T# ~
      RowBox[{"58", ",", "3"}], "]"}], ",",
" T* d. W( K! o7 i8 p     RowBox[{"CM", "[", 5 a( R8 s3 H# B
      RowBox[{"58", ",", "4"}], "]"}], ",",
& w8 D' p' r9 Q  X     RowBox[{"CM", "[", ( c, U0 o8 J1 _: ^3 Y: [5 d: `
      RowBox[{"58", ",", "5"}], "]"}], ",", 2 n% j2 f+ v8 I) E9 m9 B
     RowBox[{"CM", "[", 5 w3 e. ]9 s8 x. }) b$ m
      RowBox[{"58", ",", "6"}], "]"}], ",",
1 ]% q; C/ A$ n* `% Q2 F, `4 g" c, Q     RowBox[{"CM", "[",
! ]7 ]; `( w7 g; D" h2 T      RowBox[{"58", ",", "7"}], "]"}], ",",
2 {* p6 h2 ^8 q& f% s     RowBox[{"CM", "[", : p, H0 o; E1 H9 {& }
      RowBox[{"58", ",", "8"}], "]"}], ",",
! P" T+ x5 N7 L+ D  V: q     RowBox[{"CM", "[",
: V3 o, X5 X9 [" c7 }2 p. j$ a      RowBox[{"58", ",", "9"}], "]"}]}], "}"}], ",", 5 ~# B* U+ s- N& r3 q
   RowBox[{"{",
: K; M  ^* y2 P    RowBox[{
: y; p% t) v& A- ^! b' l3 G     RowBox[{"CM", "[", " J6 v3 v. N! l* y6 L
      RowBox[{"59", ",", "1"}], "]"}], ",",
9 P8 d- e! T2 r5 A7 N     RowBox[{"CM", "[",
; p- C# ~* W  _( s      RowBox[{"59", ",", "2"}], "]"}], ",",
' L% |/ t/ s' C     RowBox[{"CM", "[", ! e) _0 \  G2 x6 Z( n% h7 Q
      RowBox[{"59", ",", "3"}], "]"}], ",", & C  P* p9 w  u0 C6 a0 f0 s  J/ z2 V7 K
     RowBox[{"CM", "[", , ~- L% x% A' Y, _0 q  s. m# C
      RowBox[{"59", ",", "4"}], "]"}], ",",
4 M" T, q+ x7 \0 N5 y& r     RowBox[{"CM", "[", ! O' X. s8 u& T2 q# q9 q
      RowBox[{"59", ",", "5"}], "]"}], ",",
+ k: x2 G) \; Y1 Y+ S- I% K& m     RowBox[{"CM", "[", # L7 }5 T8 ]- R% P
      RowBox[{"59", ",", "6"}], "]"}], ",", " h& J5 j, e3 H) q3 f! b' s. M% V
     RowBox[{"CM", "[", 0 E# r9 }; H5 m" _% |
      RowBox[{"59", ",", "7"}], "]"}], ",",
' x/ k$ c3 N' J+ U" t. P     RowBox[{"CM", "[",
6 k" k6 o) ?4 j      RowBox[{"59", ",", "8"}], "]"}], ",",
3 e: G1 g# D) m5 o     RowBox[{"CM", "[",
8 G% a6 x& e9 o6 N2 v& i. k3 Y3 j      RowBox[{"59", ",", "9"}], "]"}]}], "}"}], ",", 8 W# j4 K; n' P+ S0 G; d8 l! E8 Z4 H
   RowBox[{"{",
# r; t9 P/ g% q# h    RowBox[{
5 `* |8 P2 H% m, r3 h( _- i8 i     RowBox[{"CM", "[",
" o1 G1 F2 m; Q      RowBox[{"60", ",", "1"}], "]"}], ",", : W: e% o2 ?8 M1 ^: O  t4 X
     RowBox[{"CM", "[", 1 s5 t( F7 y( r2 y
      RowBox[{"60", ",", "2"}], "]"}], ",",
; e5 K7 j( X, |8 a7 C+ C/ ^     RowBox[{"CM", "[", 5 I- O$ Y5 p. d1 P) ^
      RowBox[{"60", ",", "3"}], "]"}], ",",
+ X' K* m5 G% m* v$ l4 `     RowBox[{"CM", "[", . x+ p$ L5 @: p, g# d% i
      RowBox[{"60", ",", "4"}], "]"}], ",",
! c8 P  S( s- I( A     RowBox[{"CM", "[",
$ T* \1 n6 K- l# s      RowBox[{"60", ",", "5"}], "]"}], ",",
8 @) T6 b3 {7 A3 [7 P( v     RowBox[{"CM", "[",
- h, n! c5 X& r4 ~( \      RowBox[{"60", ",", "6"}], "]"}], ",",
5 I! i" J7 q0 W' L1 b* {) H     RowBox[{"CM", "[",
2 m& v& e* ?3 R      RowBox[{"60", ",", "7"}], "]"}], ",",
' C. v4 I2 n# Z2 C: T1 y* `     RowBox[{"CM", "[", * e4 d. p; M7 Q3 G; C% }. b, C
      RowBox[{"60", ",", "8"}], "]"}], ",",
& v; F4 i, d) p0 ]: Q     RowBox[{"CM", "[", " |3 X, V( w! w* w
      RowBox[{"60", ",", "9"}], "]"}]}], "}"}], ",",
' l1 b# h% V1 C# q0 ]   RowBox[{"{",
" w8 r3 D- X/ ^    RowBox[{8 R5 l/ ^( n, x
     RowBox[{"CM", "[",
3 s2 |6 d$ }3 O; z# p6 j      RowBox[{"61", ",", "1"}], "]"}], ",",
, J- w& }: {; y/ w! @6 R4 O     RowBox[{"CM", "[", 0 C3 t$ D& X5 X
      RowBox[{"61", ",", "2"}], "]"}], ",", 4 H5 k) M& n/ z
     RowBox[{"CM", "[", 4 R6 Q) S. Q/ ?0 ^& i5 M
      RowBox[{"61", ",", "3"}], "]"}], ",", $ |, g; L8 B8 O7 O) U: |$ q
     RowBox[{"CM", "[",
7 R/ b* \3 k9 P$ L1 ]2 |: T      RowBox[{"61", ",", "4"}], "]"}], ",",
5 t. y+ t4 J  q! a8 \$ C7 Z# t     RowBox[{"CM", "[", $ a0 M/ q$ d+ }! p* w
      RowBox[{"61", ",", "5"}], "]"}], ",", 5 E! P0 Y: j0 B) N# a2 A5 \% f! X) `6 T' s
     RowBox[{"CM", "[",
# [) {/ `% _$ M: r! E/ _" L      RowBox[{"61", ",", "6"}], "]"}], ",", . Z/ k  i- b5 j! N, J" c( |% w
     RowBox[{"CM", "[",
  V8 U- O! f: P/ m      RowBox[{"61", ",", "7"}], "]"}], ",",
0 S2 E  u2 F5 L3 e" }     RowBox[{"CM", "[",
( K/ ]8 m6 e: Q* n3 t( ^, e8 `      RowBox[{"61", ",", "8"}], "]"}], ",", ' b) L) @" n2 _* V( Y: K7 h
     RowBox[{"CM", "[", - c  G- q2 n+ P9 `! p8 t1 N
      RowBox[{"61", ",", "9"}], "]"}]}], "}"}], ",", 4 C) p  O' n: M4 g6 l. ^, ]1 k1 G1 N! B
   RowBox[{"{", : h* g- H( J0 g( ]  t
    RowBox[{$ @7 i1 `7 ?; _. b7 F! F2 e# g1 c
     RowBox[{"CM", "[", + P3 X: S  S  u; r! p7 c
      RowBox[{"62", ",", "1"}], "]"}], ",",
' f$ |6 S" ^. b, A- x     RowBox[{"CM", "[",
7 C3 P: ?& Q* |; P/ h      RowBox[{"62", ",", "2"}], "]"}], ",", ) \* q; R( V5 q/ Y  p+ c
     RowBox[{"CM", "[",
$ x: Y2 h& U6 {7 G) G      RowBox[{"62", ",", "3"}], "]"}], ",", & U8 F0 u: j( I9 d# q3 m
     RowBox[{"CM", "[", 3 o8 V* z6 E; R" _# d- G
      RowBox[{"62", ",", "4"}], "]"}], ",",
! Q, I# a' @6 }( C5 _# X     RowBox[{"CM", "[",
4 s& D( [( y* r( t* [& ~: b      RowBox[{"62", ",", "5"}], "]"}], ",",
) K! t  s1 Y5 c# o2 f     RowBox[{"CM", "[",   |0 p) ]. V: {
      RowBox[{"62", ",", "6"}], "]"}], ",",
5 G+ n7 Z: a% s" c5 L% N     RowBox[{"CM", "[", 7 B3 I8 B- q! O2 T# E$ U# ]. J3 q
      RowBox[{"62", ",", "7"}], "]"}], ",", + _1 a" E$ A1 A  v& K- q! S
     RowBox[{"CM", "[",
" _6 M. a) y, k1 ?: g      RowBox[{"62", ",", "8"}], "]"}], ",",
) J4 w; z- J" J. t/ p5 d     RowBox[{"CM", "[",
  d0 S+ W2 e- W8 }; L1 _      RowBox[{"62", ",", "9"}], "]"}]}], "}"}], ",",
% y2 b& H1 k# i' Z   RowBox[{"{", " R+ Y+ q$ @: l! H
    RowBox[{
$ ]( p# U* v& E9 J2 s- I     RowBox[{"CM", "[",
; ^% H; v9 N* ], f3 _5 P2 \8 f      RowBox[{"63", ",", "1"}], "]"}], ",",
1 G# E8 I. d" X0 ]- A& K     RowBox[{"CM", "[", 5 l  d0 ]4 G0 w" m: F
      RowBox[{"63", ",", "2"}], "]"}], ",", # s. z4 _# g: V) w& w# B0 U5 M
     RowBox[{"CM", "[", . G4 F( ^7 m" t; `6 u( Q! W- w+ `
      RowBox[{"63", ",", "3"}], "]"}], ",",
8 |1 e: T  t. Z" B) O" S: h     RowBox[{"CM", "[", ) n" P* _' o9 g% @' M
      RowBox[{"63", ",", "4"}], "]"}], ",", 5 Y1 v) [/ {6 ]; A6 H
     RowBox[{"CM", "[",
2 d4 ], A  n4 q5 j+ W' H5 W      RowBox[{"63", ",", "5"}], "]"}], ",",
' |! l, g/ N0 N" p! ~- Z     RowBox[{"CM", "[", , y9 ?7 S2 O5 s
      RowBox[{"63", ",", "6"}], "]"}], ",", " P; e" o1 j& o7 q
     RowBox[{"CM", "[",
; b$ S; S( H' |2 _7 p8 W7 A      RowBox[{"63", ",", "7"}], "]"}], ",", 4 o2 K! X1 P3 [! M
     RowBox[{"CM", "[", 9 U9 y; ~) i# x2 Y  B! g
      RowBox[{"63", ",", "8"}], "]"}], ",", & P* }( P" i' _6 c% U, ?2 c
     RowBox[{"CM", "[", 4 V# M' l) K& k# m& {# o
      RowBox[{"63", ",", "9"}], "]"}]}], "}"}], ",", - ?: ?! J1 N# E; h- a/ l9 O) j7 a
   RowBox[{"{", : F0 J! T$ z" r4 A2 f/ T8 K
    RowBox[{
% l- J# p3 l: I, ^3 F* U     RowBox[{"CM", "[", ' R2 y- V0 Z4 g$ i8 h
      RowBox[{"64", ",", "1"}], "]"}], ",",
: s7 w$ @3 ^+ @% E2 h% O: {9 r     RowBox[{"CM", "[",
" Y/ w6 u$ r8 T4 s      RowBox[{"64", ",", "2"}], "]"}], ",", # |4 k8 N6 d- s. V. O8 f
     RowBox[{"CM", "[",
1 n' [' \1 ?0 R- |7 m- r5 [/ m4 T: L      RowBox[{"64", ",", "3"}], "]"}], ",",
6 E. q* C+ x7 v9 z! A/ }     RowBox[{"CM", "[",
& @$ I9 L3 h( E7 Y      RowBox[{"64", ",", "4"}], "]"}], ",",
- i7 g$ n# n# E* c- f6 U, R5 `     RowBox[{"CM", "[", * L7 h2 G! T) C7 T) y) v4 o! {" d
      RowBox[{"64", ",", "5"}], "]"}], ",", % e, v* f) V; Q: u% h) q% d
     RowBox[{"CM", "[", ' U" {! M/ y2 ?" B2 x' u3 y4 H
      RowBox[{"64", ",", "6"}], "]"}], ",", ; Y+ S: |  G' m
     RowBox[{"CM", "[", # \% K' D; l8 Y- k' w/ E
      RowBox[{"64", ",", "7"}], "]"}], ",", ( |4 M: s/ O- N( O7 P
     RowBox[{"CM", "[",
: G; W; g# `0 S( a7 V9 f$ M      RowBox[{"64", ",", "8"}], "]"}], ",",
+ W3 t* t0 x' g) \! Z; K+ h7 j     RowBox[{"CM", "[", 5 L# X6 `2 {, s  i
      RowBox[{"64", ",", "9"}], "]"}]}], "}"}], ",",
: I$ k  {3 t5 U6 ?) C8 s( K   RowBox[{"{", # @+ ]9 U$ _1 T- M
    RowBox[{
' d! R% W( o' M7 W     RowBox[{"CM", "[", 4 H1 s/ ?; ^; ~/ G( s9 i: t
      RowBox[{"65", ",", "1"}], "]"}], ",", , }$ X6 s  t, L
     RowBox[{"CM", "[", ) x' m& c0 }5 p. u9 Z; \0 r
      RowBox[{"65", ",", "2"}], "]"}], ",",
$ h4 D6 i4 Z5 ^) m# I     RowBox[{"CM", "[",
9 I8 c. O5 C& ^% P( a' N4 O, i      RowBox[{"65", ",", "3"}], "]"}], ",", 0 h( [4 G& K; v2 L" _
     RowBox[{"CM", "[", , [+ c( D$ e- r. n, f) ^; F
      RowBox[{"65", ",", "4"}], "]"}], ",",   O  l. H5 u9 W; Y
     RowBox[{"CM", "[",
/ l7 T, N- {4 ~! C& T1 P& \      RowBox[{"65", ",", "5"}], "]"}], ",",
4 ^* \  e8 U6 T3 G     RowBox[{"CM", "[",
4 X4 h- t2 y' y( ~% D      RowBox[{"65", ",", "6"}], "]"}], ",", 8 J( z( U4 P4 }
     RowBox[{"CM", "[", 0 m. O% A/ k& r! A* C
      RowBox[{"65", ",", "7"}], "]"}], ",", 1 S' l: T( t( k+ _! p
     RowBox[{"CM", "[",
( V* |3 k+ d/ m8 f      RowBox[{"65", ",", "8"}], "]"}], ",", " U- t2 `7 p  M  d2 o
     RowBox[{"CM", "[", + m* R3 U: k1 O8 _' I
      RowBox[{"65", ",", "9"}], "]"}]}], "}"}], ",",
& N9 O3 x5 ?2 D   RowBox[{"{", - i8 A( E% t& y5 a- `
    RowBox[{
7 _) @, x6 j; i& [     RowBox[{"CM", "[", : |- f* L: h* w& p
      RowBox[{"66", ",", "1"}], "]"}], ",", ( k. T  W# e. _: U7 v1 }
     RowBox[{"CM", "[", * x$ ~7 O* Q  }# L4 p. x
      RowBox[{"66", ",", "2"}], "]"}], ",",
: }0 Y3 w! ^* ~& ^     RowBox[{"CM", "[",
! z% A3 z* O% ^  R      RowBox[{"66", ",", "3"}], "]"}], ",", 0 ]  P8 @& ~; h$ S
     RowBox[{"CM", "[",
/ c5 K/ C" y0 m3 S( T/ N1 T& O% W# i4 N      RowBox[{"66", ",", "4"}], "]"}], ",", , O7 M( [3 @  ~$ h
     RowBox[{"CM", "[", ) F7 `: C5 J! G
      RowBox[{"66", ",", "5"}], "]"}], ",",
' a! j' |0 s! B2 O2 w! e+ u     RowBox[{"CM", "[",
# K2 V% ]  {$ T; l      RowBox[{"66", ",", "6"}], "]"}], ",", 4 ~/ B& {/ ?- J; B* d
     RowBox[{"CM", "[",
2 j3 \, [2 |: c5 f) K" Q      RowBox[{"66", ",", "7"}], "]"}], ",",
3 O9 w  I5 R$ T! p& x* {     RowBox[{"CM", "[", & Y' m5 o' z( {4 J2 S
      RowBox[{"66", ",", "8"}], "]"}], ",",
. M0 o! Y$ `  w8 Q+ U( W. j3 }4 r     RowBox[{"CM", "[",
. m) w' J0 O  o+ A% B# ^! ]      RowBox[{"66", ",", "9"}], "]"}]}], "}"}], ",",
* z( Q! O) X  w9 `' C4 N" f9 e   RowBox[{"{", / y# {8 ]) q! m4 R9 X: Y6 O
    RowBox[{
# `! c4 V& S% o, p% t! Z0 {     RowBox[{"CM", "[", + Q9 V) C6 q0 Z4 O+ x2 D2 V' R
      RowBox[{"67", ",", "1"}], "]"}], ",",
  x2 F  }5 G% ?! H     RowBox[{"CM", "[",
9 n( @2 `: I! _3 ?      RowBox[{"67", ",", "2"}], "]"}], ",",
% }8 ^; M- ]! X( W# s6 O     RowBox[{"CM", "[", 8 H0 q, A, }& v) G4 G7 Q3 i- b
      RowBox[{"67", ",", "3"}], "]"}], ",",
) G# n2 c' j/ F8 _, D' }" A     RowBox[{"CM", "[", 0 u- l& j( V) H9 ?
      RowBox[{"67", ",", "4"}], "]"}], ",",
  n+ |, x" C: G. }5 A     RowBox[{"CM", "[",
3 j/ G( _, ]# e  }6 b* l      RowBox[{"67", ",", "5"}], "]"}], ",",
& B8 |, G- j' I* I" Z! q) ]3 t     RowBox[{"CM", "[", 9 A( s. A" D' |, M
      RowBox[{"67", ",", "6"}], "]"}], ",", ! Q+ y0 _+ R* _" _$ x3 q
     RowBox[{"CM", "[",
- `7 q2 c* `# d/ h# N7 A      RowBox[{"67", ",", "7"}], "]"}], ",", 9 i7 A# ?/ S; S  K- Z4 b
     RowBox[{"CM", "[", 7 m' q- w: V2 V% a5 ^" m* ?
      RowBox[{"67", ",", "8"}], "]"}], ",",
1 z* N7 p5 d; r  b     RowBox[{"CM", "[",
" p3 v8 c+ f% M4 }      RowBox[{"67", ",", "9"}], "]"}]}], "}"}], ",",
2 K  T+ j% d/ a6 o- W5 [. \, F/ ?3 U   RowBox[{"{", 4 C3 A* P3 Y) d
    RowBox[{
+ j9 o4 ~! J2 g8 K5 [: t8 J     RowBox[{"CM", "[", 1 ?) b3 y/ b! a, |! I
      RowBox[{"68", ",", "1"}], "]"}], ",",
3 n/ ]" S# y' s5 P0 d, H* N     RowBox[{"CM", "[",
; }: U% h7 N* Y# \; o0 _7 H      RowBox[{"68", ",", "2"}], "]"}], ",", ! |$ y8 u* q$ D* k: j  V& H$ D
     RowBox[{"CM", "[",
9 h+ a9 l+ M5 b, T0 M: V      RowBox[{"68", ",", "3"}], "]"}], ",",
; C( U: \9 Y+ H7 B8 F     RowBox[{"CM", "[",
7 N( Z: x2 v' u, L) [      RowBox[{"68", ",", "4"}], "]"}], ",",
/ J0 U* ]% @. E  Q) k; `" \) N3 E! ^     RowBox[{"CM", "[",
8 R7 g$ B% ?4 d4 g, J% f, |; ?1 G      RowBox[{"68", ",", "5"}], "]"}], ",", ( I4 J0 Y# G' e- q8 b$ c
     RowBox[{"CM", "[",
5 e5 _% O! m% n( T( X+ i, T: W" l      RowBox[{"68", ",", "6"}], "]"}], ",", ' y, p& q  q/ {2 s2 m% c
     RowBox[{"CM", "[",   l' O* I9 a( P6 Y! G3 O/ h+ j
      RowBox[{"68", ",", "7"}], "]"}], ",", ) [" j4 W/ {: E8 E, H
     RowBox[{"CM", "[",
2 T4 k( i& E( E9 m6 x      RowBox[{"68", ",", "8"}], "]"}], ",", ; O5 k" B8 l/ w( w9 _6 p8 _
     RowBox[{"CM", "[", + {4 o: E/ P) Y( G3 P
      RowBox[{"68", ",", "9"}], "]"}]}], "}"}], ",", 0 {0 s6 B1 l5 j  E' M3 ]$ G
   RowBox[{"{",
; w( r: u# F: @2 r, X! M    RowBox[{4 B. o* d/ I5 ^7 @) {/ v% p
     RowBox[{"CM", "[",
& b# v0 K2 m9 J$ a# {; k9 R. c# |1 ^      RowBox[{"69", ",", "1"}], "]"}], ",", 1 O  n* P3 ^6 x& W- e* C
     RowBox[{"CM", "[", 0 _% S. c- x' ~4 R" F+ g: Q5 ?8 F
      RowBox[{"69", ",", "2"}], "]"}], ",", 3 U4 G  m/ I# `* x& V8 J
     RowBox[{"CM", "[", 3 l+ ^, I8 `- E) {
      RowBox[{"69", ",", "3"}], "]"}], ",", 9 f4 V2 j2 B3 H* F' o# ~4 H4 v
     RowBox[{"CM", "[", : r1 y0 E' r! q0 m* u" `+ b5 a
      RowBox[{"69", ",", "4"}], "]"}], ",",
  w, J6 Q/ t) ~2 l8 x     RowBox[{"CM", "[", : _( n% {0 @- ]; q, Y
      RowBox[{"69", ",", "5"}], "]"}], ",", + O/ a. O! N8 p' B
     RowBox[{"CM", "[", ; J" e& @1 \$ M' }. g
      RowBox[{"69", ",", "6"}], "]"}], ",",
  j; h9 M' [! U1 ]1 Y6 e' o     RowBox[{"CM", "[",
2 H6 h. q* g: Y( v4 R. E      RowBox[{"69", ",", "7"}], "]"}], ",",
  U  u  D8 U4 g+ l. D     RowBox[{"CM", "[", , i5 K- h4 w/ s6 j6 ?7 p. X" a) d- q
      RowBox[{"69", ",", "8"}], "]"}], ",",
( l4 f% ?# D/ a8 k! p9 j5 o     RowBox[{"CM", "[", ' O9 q& g. t) ~* n  O0 I) i
      RowBox[{"69", ",", "9"}], "]"}]}], "}"}], ",",
" j8 Z3 ^+ g& n' C+ L  W# H* ]: H   RowBox[{"{",
& R0 W2 C8 D9 W$ X1 P( w    RowBox[{" ]" Z. w# y7 L+ f; s$ v
     RowBox[{"CM", "[", 6 ~+ {; v2 J7 a1 `
      RowBox[{"70", ",", "1"}], "]"}], ",", 0 i0 ~# P( }( U( F: m
     RowBox[{"CM", "[", " f. B7 C# Y2 v$ T5 C) Z1 V: b
      RowBox[{"70", ",", "2"}], "]"}], ",",
1 t2 I: e3 ], w$ E     RowBox[{"CM", "[",
1 ~2 z1 `% e. o2 W3 K      RowBox[{"70", ",", "3"}], "]"}], ",", ; }2 G1 @4 c6 M: r6 h) B
     RowBox[{"CM", "[", ; ?' ]2 G- B; B, l1 g3 D/ ~2 {
      RowBox[{"70", ",", "4"}], "]"}], ",",
2 G0 Q: m& e  |     RowBox[{"CM", "[", 1 h. @3 c2 }9 m5 |  \8 J6 e
      RowBox[{"70", ",", "5"}], "]"}], ",", 3 C3 _8 }% a! y: y2 s8 l! I( y
     RowBox[{"CM", "[", 8 k" k# ]* N7 K$ ^5 l3 u
      RowBox[{"70", ",", "6"}], "]"}], ",", 1 T4 e" S$ Q' K1 C
     RowBox[{"CM", "[", . _" b) |4 t+ @" }- x
      RowBox[{"70", ",", "7"}], "]"}], ",",
) Y; n4 Z) I; i9 f+ p* E     RowBox[{"CM", "[", 9 w8 n: A' P- g' W$ `8 R
      RowBox[{"70", ",", "8"}], "]"}], ",",
# r- L; V. q2 U7 P1 @- N0 Y7 I( r     RowBox[{"CM", "[", 2 h* A7 u2 f' q) H- H" N
      RowBox[{"70", ",", "9"}], "]"}]}], "}"}], ",", 8 w. G, ^3 d& G% b+ J4 O" Q
   RowBox[{"{", 5 i7 p- F% Y9 D1 `. x$ x! U
    RowBox[{( b1 P; U4 r/ N! ^/ Q% K( R
     RowBox[{"CM", "[",
% Y6 F4 _4 f( x* q4 y9 j7 T4 L      RowBox[{"71", ",", "1"}], "]"}], ",",
8 i, P! l8 [! S2 ?     RowBox[{"CM", "[",
' L% ^" t! `- B' T) d5 I      RowBox[{"71", ",", "2"}], "]"}], ",", ' q; a1 g# E- j1 K+ A8 u
     RowBox[{"CM", "[", ) ~. f2 p' {- z$ b
      RowBox[{"71", ",", "3"}], "]"}], ",",
1 U+ N% R. Y" f$ ~  Y  K     RowBox[{"CM", "[",
# e+ \6 @! }* R, I8 p! C* b      RowBox[{"71", ",", "4"}], "]"}], ",",
( J# D0 h5 w, w/ ^; d     RowBox[{"CM", "[", - M( l' |/ R8 V* r' Q4 _9 M
      RowBox[{"71", ",", "5"}], "]"}], ",", ' A1 v% R/ s+ H7 V
     RowBox[{"CM", "[",
  p. F& i7 i% T: a# Y      RowBox[{"71", ",", "6"}], "]"}], ",", : l7 l* {: V3 f9 r( o- i/ `3 V: T* ~
     RowBox[{"CM", "[",
4 `' |* ^2 J* y9 |1 l      RowBox[{"71", ",", "7"}], "]"}], ",", # [) Y) {$ W) O- r& t) X
     RowBox[{"CM", "[", 2 ?6 I& |( A( u- t" q* l
      RowBox[{"71", ",", "8"}], "]"}], ",",
, \4 `* l4 A6 ?     RowBox[{"CM", "[", + y" J9 N4 F: {" ~+ K! h
      RowBox[{"71", ",", "9"}], "]"}]}], "}"}], ",",
; s/ s- E1 l5 O% K   RowBox[{"{",
- ^' r) R+ W2 a3 G: Y( R0 R, G    RowBox[{
; L0 a' L' y) F' S8 y/ }     RowBox[{"CM", "[",
, `  O2 P4 u: |      RowBox[{"72", ",", "1"}], "]"}], ",",
; ]& g% V! k$ f: ~5 S     RowBox[{"CM", "[",
* l) y$ \7 x! n5 m! j% s) s      RowBox[{"72", ",", "2"}], "]"}], ",",
; y6 `5 e# ?1 n     RowBox[{"CM", "[",
  O: l# v0 E7 t5 l      RowBox[{"72", ",", "3"}], "]"}], ",", 5 J/ A2 G8 J* c" \& V+ H; b" L
     RowBox[{"CM", "[", : o& F- `) w& C/ \
      RowBox[{"72", ",", "4"}], "]"}], ",",
- r1 f% n& y& e* R8 L$ Y! a, ?     RowBox[{"CM", "[",
2 I, }5 C( [' U1 _- J, i      RowBox[{"72", ",", "5"}], "]"}], ",", ' O4 g, f0 \' P$ _2 W3 O
     RowBox[{"CM", "[", / ]6 t8 e2 p4 P
      RowBox[{"72", ",", "6"}], "]"}], ",", , {9 k( L; N5 ?- u3 w* W, `% R
     RowBox[{"CM", "[",
" _! N' x+ m% b4 G4 d      RowBox[{"72", ",", "7"}], "]"}], ",", 3 H4 I7 V" |) g8 J5 v1 [& W  K* K
     RowBox[{"CM", "[",
; M' {- l$ g5 M' u0 h      RowBox[{"72", ",", "8"}], "]"}], ",",
  ~% c, I" S$ P, r0 b     RowBox[{"CM", "[",
" Z+ i# o% e- P% z      RowBox[{"72", ",", "9"}], "]"}]}], "}"}], ",",
& j8 N8 D' Z3 m7 l) E: Y   RowBox[{"{",
& D$ c: W& B7 i$ l( ~, q    RowBox[{2 j% Q9 i" l5 n* T1 T/ r
     RowBox[{"CM", "[",
- D8 w7 A  ~4 {* A! n( v1 J8 ]      RowBox[{"73", ",", "1"}], "]"}], ",", ) A% [% M& O: c) d
     RowBox[{"CM", "[", 7 H! M' M7 x: ~1 ~/ C/ Y( D# }
      RowBox[{"73", ",", "2"}], "]"}], ",",
2 ^, w9 y+ D+ l' J4 i( h5 z7 d     RowBox[{"CM", "[", 2 T. \2 O# D# r9 }" L1 p8 P
      RowBox[{"73", ",", "3"}], "]"}], ",",
' ~% A& R4 U5 L0 ~& v     RowBox[{"CM", "[",
$ m0 [. x" ^" F* [1 n. _      RowBox[{"73", ",", "4"}], "]"}], ",", 3 q; _7 b9 Q+ z' z5 x2 X( ^
     RowBox[{"CM", "[", 4 {" s2 C4 \: j1 t/ G9 z% i/ K, C
      RowBox[{"73", ",", "5"}], "]"}], ",",
0 Z" k: z( T- n3 U. F* Z. O& J' c     RowBox[{"CM", "[", ( S; j: z" w3 Y# n
      RowBox[{"73", ",", "6"}], "]"}], ",", $ `' G% M% O1 Y8 M, q' x8 }
     RowBox[{"CM", "[", ) {7 P- |# h0 u0 Q; \8 Z& {
      RowBox[{"73", ",", "7"}], "]"}], ",", ) e) r8 Q- E% z- s- h" j9 S
     RowBox[{"CM", "[",
% A. I& g. R3 o( X6 x9 J" r$ p      RowBox[{"73", ",", "8"}], "]"}], ",", 0 B3 U2 N* F0 _; R- F
     RowBox[{"CM", "[",
  n, X' h6 N* c: V      RowBox[{"73", ",", "9"}], "]"}]}], "}"}], ",",
: L% [2 z- Q: D& S& J   RowBox[{"{",
' s* k2 |* g4 a8 o! x    RowBox[{
1 Q! n$ f# p' N3 Q. b7 T     RowBox[{"CM", "[",
. w7 U& u& d$ Q2 H5 a" o0 X  ?# k      RowBox[{"74", ",", "1"}], "]"}], ",", ' Z7 ]) [  W1 t* p
     RowBox[{"CM", "[",
& V1 H4 A8 I* P      RowBox[{"74", ",", "2"}], "]"}], ",", ; J& c. V8 h  y% {( d- J
     RowBox[{"CM", "[", ! y, l/ c0 j: m
      RowBox[{"74", ",", "3"}], "]"}], ",", ; z6 \1 _8 X5 A' J# Y' \
     RowBox[{"CM", "[",
( f% a( m1 w: z: N      RowBox[{"74", ",", "4"}], "]"}], ",", * l% y8 u( A& E8 \9 y
     RowBox[{"CM", "[", % T. G$ g- t* V  ^
      RowBox[{"74", ",", "5"}], "]"}], ",", + V5 Q4 w: r0 l& T
     RowBox[{"CM", "[",
2 I" Q, ^$ \+ |3 {' R0 |; [      RowBox[{"74", ",", "6"}], "]"}], ",",
6 ~; N- V! U1 s" w: c     RowBox[{"CM", "[", 3 A% v& K+ V0 l6 c: z  f  ]
      RowBox[{"74", ",", "7"}], "]"}], ",",
9 L- U2 K) e; y- \. k" E     RowBox[{"CM", "[", ( P" H: v+ |( M) g+ y. O
      RowBox[{"74", ",", "8"}], "]"}], ",", ' N; r2 S" U1 c: \8 \& M+ W7 K
     RowBox[{"CM", "[", + v/ W. H) x* Z
      RowBox[{"74", ",", "9"}], "]"}]}], "}"}], ",", : L$ [' e  p' L1 ^4 R3 D" N2 ?
   RowBox[{"{",
7 `1 H3 c/ A" z3 P) M! |    RowBox[{, L( O2 U) ~4 |4 Y4 u
     RowBox[{"CM", "[",
: Z- n8 ~6 `8 c7 V  f      RowBox[{"75", ",", "1"}], "]"}], ",",
- ^2 \# n; d5 A) T2 D     RowBox[{"CM", "[", ; K) [- W2 q. G5 _+ B8 w: X! k, k3 m
      RowBox[{"75", ",", "2"}], "]"}], ",",
3 o8 y5 {0 v, A% h$ ?     RowBox[{"CM", "[",
$ ^. d$ d9 g4 [/ a2 }! G, R  Z5 H      RowBox[{"75", ",", "3"}], "]"}], ",",
7 c/ h0 Q+ {  X6 i     RowBox[{"CM", "[", & ~% b+ j* X+ X& _5 `/ L
      RowBox[{"75", ",", "4"}], "]"}], ",",
6 P) {' r: v& V/ ?% s3 p     RowBox[{"CM", "[", 1 Q1 u0 U. l0 V: E" l: ^
      RowBox[{"75", ",", "5"}], "]"}], ",",
% W9 r4 U3 T8 W3 S     RowBox[{"CM", "[", 4 `* {  [3 y! o3 o( M
      RowBox[{"75", ",", "6"}], "]"}], ",",   L# y# E- i3 K# L+ O! X2 n& \
     RowBox[{"CM", "[", $ K/ ]+ W0 k9 I& B
      RowBox[{"75", ",", "7"}], "]"}], ",", 3 _9 G; I& Y1 E: b" l& I
     RowBox[{"CM", "[", & O; I- z7 B# ^) o
      RowBox[{"75", ",", "8"}], "]"}], ",", , o3 m- H4 x5 n$ W3 b$ l$ g4 Z
     RowBox[{"CM", "[",   V" k. _% r/ o; i0 E/ b
      RowBox[{"75", ",", "9"}], "]"}]}], "}"}], ",",
. r# b9 T9 C* D: |   RowBox[{"{", ( \7 F4 x9 ~$ _; |
    RowBox[{
. k1 n/ _9 R3 x9 |; F     RowBox[{"CM", "[",
" B6 c5 [" y' M; B      RowBox[{"76", ",", "1"}], "]"}], ",",
+ h; U! `5 l& Y% I1 [- W: Q     RowBox[{"CM", "[",
1 v5 B# h, ~0 b4 r      RowBox[{"76", ",", "2"}], "]"}], ",",
: w) m5 k! j/ p     RowBox[{"CM", "[", : [  f- k2 ?* ^9 u: S: P. [
      RowBox[{"76", ",", "3"}], "]"}], ",",
: v/ n- Z( \' f  ]     RowBox[{"CM", "[", 6 u/ i- e; Y6 r* F/ `! I
      RowBox[{"76", ",", "4"}], "]"}], ",",
# U* q* w2 C" K1 a+ G# h% N     RowBox[{"CM", "[", ; C; `: K2 D6 D" @3 C0 j
      RowBox[{"76", ",", "5"}], "]"}], ",",
% c( [$ _3 X% a: ?4 z     RowBox[{"CM", "[", + m( ^# K  ]+ I$ c$ C7 t
      RowBox[{"76", ",", "6"}], "]"}], ",",
9 X# o# X& y0 j- ~     RowBox[{"CM", "[", + ]; \" P7 h! ]) z; P) q
      RowBox[{"76", ",", "7"}], "]"}], ",",
' @/ D6 C5 G1 |- K3 T9 U     RowBox[{"CM", "[", ! h2 u& u; y$ a% Q) E' _, `; [
      RowBox[{"76", ",", "8"}], "]"}], ",", ; v' V" p: c2 `7 Y
     RowBox[{"CM", "[", ) l. G, r; w. Z) i+ L1 h  o
      RowBox[{"76", ",", "9"}], "]"}]}], "}"}], ",",
$ W5 g& Z6 U$ }& z+ f6 E! k   RowBox[{"{",
2 F3 f+ T6 V. A' O8 ~    RowBox[{( ?4 E% [2 u) i9 b' G0 a
     RowBox[{"CM", "[", 7 o3 F6 e  ~- C' N0 ?+ ~
      RowBox[{"77", ",", "1"}], "]"}], ",", 5 G: Z! U9 _: m. u- B0 a, W8 R- G4 |
     RowBox[{"CM", "[", , H# s! N+ B# R: |$ l
      RowBox[{"77", ",", "2"}], "]"}], ",",
  S6 |" P9 v$ r* d6 t% O     RowBox[{"CM", "[", ( t% ^3 E9 a2 T/ \2 W% K" M7 w
      RowBox[{"77", ",", "3"}], "]"}], ",",
3 \' }1 w, Q, y     RowBox[{"CM", "[",   p' U+ z* n9 z( q
      RowBox[{"77", ",", "4"}], "]"}], ",",
  _6 K, c9 q; ~# t+ H6 p+ ?     RowBox[{"CM", "[",
! ~; P8 |: x' u4 J$ h7 w0 f      RowBox[{"77", ",", "5"}], "]"}], ",", " o2 l5 o- m: w) \- Z$ O/ Z
     RowBox[{"CM", "[",
% C8 s& A0 N  P  J      RowBox[{"77", ",", "6"}], "]"}], ",", $ ~( _% ~; M9 ?7 O7 A
     RowBox[{"CM", "[",
/ x+ m1 }: f% A4 l2 B      RowBox[{"77", ",", "7"}], "]"}], ",", 3 b+ j- X+ z) j. a( H' n
     RowBox[{"CM", "[", - z- ^7 _7 q# q& y- z
      RowBox[{"77", ",", "8"}], "]"}], ",",
- b, I+ M3 W' b' y     RowBox[{"CM", "[", / U+ P1 m$ ^* M7 G! [9 z6 d6 d- S
      RowBox[{"77", ",", "9"}], "]"}]}], "}"}], ",",
" t7 Z4 `$ y, \" A: U$ C   RowBox[{"{", : C- V) |! T+ I7 T; I0 w2 r% m
    RowBox[{
/ p1 s9 o" l6 I     RowBox[{"CM", "[",
1 _6 y. a0 i) p$ E" v0 V$ P) A+ A  ~      RowBox[{"78", ",", "1"}], "]"}], ",", # A+ c* u* [- m& v( {
     RowBox[{"CM", "[", " i1 H4 t$ K  r$ o& R. f$ a$ R9 Q
      RowBox[{"78", ",", "2"}], "]"}], ",", 2 P! |" r. ?( ~7 ]6 Y$ U  o5 A
     RowBox[{"CM", "[",
% q4 O+ @! D# D% n1 H      RowBox[{"78", ",", "3"}], "]"}], ",",
2 e. O$ i( E' r& d     RowBox[{"CM", "[", ; G" k, l5 G+ I6 A3 r
      RowBox[{"78", ",", "4"}], "]"}], ",",
% j0 Z- j. z- a' h. R     RowBox[{"CM", "[", : n8 f0 h3 L: m' K
      RowBox[{"78", ",", "5"}], "]"}], ",",
$ K; _' |' X8 A4 h     RowBox[{"CM", "[", # O& t. Q) C" u8 b% H+ _/ u9 I
      RowBox[{"78", ",", "6"}], "]"}], ",",
" k+ W1 m" ~" j; w     RowBox[{"CM", "[", . Y* d2 T% V: U! G$ J
      RowBox[{"78", ",", "7"}], "]"}], ",",
2 m5 \, y/ o1 X% o) H     RowBox[{"CM", "[",
# U3 M' A. S1 C% h! w      RowBox[{"78", ",", "8"}], "]"}], ",", ; n3 n" ~& v. \/ h0 }
     RowBox[{"CM", "[",
; Q3 `3 S' h  x. G6 b/ Q0 f      RowBox[{"78", ",", "9"}], "]"}]}], "}"}], ",", 2 t2 ?- M6 O5 ], i2 X+ I; k7 X
   RowBox[{"{", ! Y4 ]  ]" @2 f1 X- w5 O: x
    RowBox[{
2 Q& f3 B3 B* Y1 }+ D" V     RowBox[{"CM", "[", . O$ _6 }4 L8 u+ @& O/ I# a% Z
      RowBox[{"79", ",", "1"}], "]"}], ",",
5 C4 @8 b+ |' ?% X$ W     RowBox[{"CM", "[",
0 s  [6 k1 w( |1 O4 F, B3 F* q3 W      RowBox[{"79", ",", "2"}], "]"}], ",", . q& j5 h% C5 j+ K6 _5 j1 v
     RowBox[{"CM", "[",
* |" b* A3 l, G+ X  h      RowBox[{"79", ",", "3"}], "]"}], ",",
5 S9 n  p2 {" a3 `4 o0 L4 m0 x  f7 b     RowBox[{"CM", "[", 6 ~( c6 {: @+ ~+ r) n: j/ n
      RowBox[{"79", ",", "4"}], "]"}], ",",
; m) T/ |7 I' r* e     RowBox[{"CM", "[", / e4 I! U( a6 Y  J2 e) a, v
      RowBox[{"79", ",", "5"}], "]"}], ",", 2 `" ^8 u/ ^1 E& A1 y4 A
     RowBox[{"CM", "[", ( r6 I. i7 H2 b  @: }3 W: f/ p
      RowBox[{"79", ",", "6"}], "]"}], ",",
5 P1 f9 Q0 h3 Y     RowBox[{"CM", "[",
+ V3 D- i% N3 ^1 @      RowBox[{"79", ",", "7"}], "]"}], ",",
& x; ^6 a! m8 j" H& ?, ~     RowBox[{"CM", "[",
( l7 Y. j! a$ l4 p: V2 X) y1 J      RowBox[{"79", ",", "8"}], "]"}], ",",
% ~: [7 b9 d! y+ ^     RowBox[{"CM", "[", / J" J" ^& P% W3 D7 \
      RowBox[{"79", ",", "9"}], "]"}]}], "}"}], ",",
+ N8 {' ^1 d8 E0 H8 N   RowBox[{"{", / a! g  ]- D1 o: v
    RowBox[{; Y& n& N( ^; m* N/ X7 I" x
     RowBox[{"CM", "[",
: Y% O! }+ [3 l1 M7 r. {      RowBox[{"80", ",", "1"}], "]"}], ",", 7 v: ?4 n6 M2 Q
     RowBox[{"CM", "[",
. }7 H* D* W+ T      RowBox[{"80", ",", "2"}], "]"}], ",", 4 B( I# O. E4 Q. d2 g; [9 q) ]
     RowBox[{"CM", "[",
0 k9 h) k( y6 K- s0 V2 X$ q/ P      RowBox[{"80", ",", "3"}], "]"}], ",",
' h- M- y0 ~5 X     RowBox[{"CM", "[",
, d  N1 i& ~& y" x, Z8 t6 L      RowBox[{"80", ",", "4"}], "]"}], ",", * R1 c- [/ T" I: v
     RowBox[{"CM", "[",
# p4 n8 @' Q0 Y" ?$ z      RowBox[{"80", ",", "5"}], "]"}], ",",
! ~. M  \; i/ A! l1 z- x     RowBox[{"CM", "[",
4 d' s( |6 p0 m  u$ R5 Z      RowBox[{"80", ",", "6"}], "]"}], ",",
: r* [. ?/ L% L( F. H) q     RowBox[{"CM", "[", ! A  B8 I; ?/ Z- e1 [$ w
      RowBox[{"80", ",", "7"}], "]"}], ",", 6 @8 m" e. |6 O, h% A) m- Z
     RowBox[{"CM", "[", ' ~- h  A8 O+ `7 r. n
      RowBox[{"80", ",", "8"}], "]"}], ",",
; q$ Q8 T  b+ ~) e3 H     RowBox[{"CM", "[",
+ z0 G( x4 n7 A' x3 `' |      RowBox[{"80", ",", "9"}], "]"}]}], "}"}]}], "}"}]], "Output",
0 _8 {# `4 ]$ ^% q, o; ^1 k CellChangeTimes->{3.577844244140625*^9, 3.57784429425*^9, 3.577847845125*^9,
" d) @# e: k  c6 |" K3 P  3.57791322703125*^9, 3.577957088820712*^9, 3.5779605002346992`*^9, 3 T. t' h" N- d- T3 U
  3.578012145828125*^9}]
6 c3 W# e# y% |) T& H% L8 {}, Open  ]],
) c/ Z9 N* v4 E+ t3 _; F! u! d5 P- e' w, P8 K( Q
Cell[BoxData[
1 w; r) e3 S& B  X5 w7 x RowBox[{"For", "[",
$ ~% p- R8 C8 p' P, o4 n; n; d3 K  RowBox[{! R2 m2 Y1 z! o& T) u4 @
   RowBox[{"i", "=", "1"}], ",",
& @: w5 B+ `/ [  r7 x   RowBox[{"i", "\[LessEqual]", "9"}], ",", 1 J6 m: [$ n% S% b2 g& {
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
7 d0 `) R+ `7 X1 W* C   RowBox[{"For", "[", - `" ?8 g- f( P% A
    RowBox[{
" T7 y0 n9 V4 Q4 X8 \) b$ _: I  A7 t3 ^     RowBox[{"j", "=", "1"}], ",",
3 N5 Q& G* i; r* G     RowBox[{"j", "\[LessEqual]", "80"}], ",", ' G4 [" v) @' K  ?
     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 7 X( h, A: l% Q3 V
     RowBox[{) s  H3 R, r6 Y+ n
      RowBox[{* g6 n1 ~3 I( k' X4 ]8 `8 Y! g& j
       RowBox[{"CM", "[",
6 a( u* b- b3 }' i3 x% t6 Y! X* p        RowBox[{"j", ",", "i"}], "]"}], "=", "0.0"}], ";"}]}],
! S1 h' c$ x% _$ [    "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",5 k/ y9 `$ Y3 @
CellChangeTimes->{{3.5779132504375*^9, 3.577913285203125*^9}}],
9 C3 A% n8 A3 j% j
! L7 ?- z; Y8 V5 Q6 G" F' mCell[BoxData[7 o  c" y) v4 D& e( e
RowBox[{"For", "[",
8 J9 \3 O; X; |  RowBox[{$ W- p' Y( s9 n. Q" f3 b
   RowBox[{"i", "=", "1"}], ",", - K+ S8 V2 j4 ~- Y: i( p
   RowBox[{"i", "\[LessEqual]", "9"}], ",",
! M+ u! ^2 {3 q- v1 Y( B   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 6 W3 X/ E& T+ G$ I$ ^' b
   RowBox[{% S+ i, ?! k8 V0 v
    RowBox[{3 H% u7 b& E- j; x7 B. O7 ^
     RowBox[{"CM", "[",
  _9 F3 z* o( B# B6 a2 y      RowBox[{"1", ",", "i"}], "]"}], "=",
5 f$ |1 f. _! {; _     RowBox[{"Data", "[", * `/ j7 ?' ?. _$ a* ]" g
      RowBox[{"[",
- p  m* I  _- S       RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}],
; x5 M( g3 _( `4 B7 s2 S& {* B: f7 W  "\[IndentingNewLine]", "]"}]], "Input",
5 a% l0 P4 Y  ~; k. \ CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {
9 j, [& [: r  w( z   3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9, / N- F$ E- s1 {9 f. M- e/ W
   3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9,
+ r1 C1 Q% J6 F8 ?) ~7 A   3.57791344209375*^9, 3.5779588070933466`*^9}],- W7 S  T) }$ s9 L! c
8 o; ~! ^) M3 [2 q5 g2 }, m
Cell[CellGroupData[{
6 N6 x! y' `, E/ p* _9 ?; K: v5 N& J% }1 d; a
Cell[BoxData[{0 y2 Y+ ?' c3 V3 k2 u. o- G* H
RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]", & @9 W3 e) i) i$ c" `
RowBox[{"M1", "=", "1"}]}], "Input",3 i) G% Y' F( x1 W; F& b
CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {9 ?7 @; ]3 B# [. P. Q6 {
   3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9,
7 {8 s9 g! z3 ^   3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {  f; t/ p0 @- {
   3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9, ) S* G& Q1 l! L8 R: }; ]- B, g
   3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {; @+ T! d: _+ w8 i
   3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {
+ m. d7 `# f6 H3 s/ h, s5 ]   3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9,
1 c; s9 p# ~7 ~" A+ O2 r   3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {- X) h, d" P* v& J7 p0 r0 }( B3 o
   3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {5 ]8 _" z2 R  k) b
   3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9,
, C, t+ n2 O, S+ e: p  `0 p$ @   3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
( ~+ q* X9 |4 y. ^# ^4 @+ v6 y9 \/ t) q
Cell[BoxData["0.2`"], "Output",
6 q6 K) ]3 S  o( \ CellChangeTimes->{' h( Y) x" p$ H/ f: l5 h+ l9 `
  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, 3 x, c, e: a$ h# m+ M; O* N
   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
2 P; ]5 W6 t- `8 \. D/ ?   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
6 V7 K2 p# W/ r- A' C* `" t+ M# W* w   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {' _$ i. ^* B) y% m/ d5 E  H9 d
   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
  k: ^. ~: ]# S/ K   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {4 U3 L4 O8 ^; Z1 D. ]# B
   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
' U: S3 V2 o- K. W/ t1 r$ H   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
! n/ ]  q4 p3 ~& s   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, ) Z5 z( n& a+ s; ]4 B7 B/ X( u+ J6 s
   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, 8 T9 r1 f* Z: i
   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, ( B2 M( f) E7 q/ Y+ W! ]# A8 k) ~
   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
* z% _" a+ e, H   3.577960510686717*^9, 3.578012149296875*^9}],
5 n8 o8 Q9 K0 ]& {+ x2 S
8 N1 t5 }  l' C& t( \Cell[BoxData["1"], "Output",
1 I+ a$ E# a( T( M CellChangeTimes->{
3 m: B- z; Y0 J) b' \2 c* Y  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, 9 V' I) p4 R& q5 a. F% }, i
   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {; K# H% P2 o' E" ^. R; `
   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
# ^% D$ B8 s* |& ?   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
$ A4 m6 x0 F1 c! o# g   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, / h& ]: Y  N+ ^1 Y- s: x& J4 w2 H
   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {! m- t" z+ ^# d& H! v
   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
2 S: b. [4 i. p: O$ H% F( |   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {4 }- m% a5 f! ?  ^- P% v
   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, : {3 |% Q' |  P) w4 `. L
   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, ( p0 K% v( Y% U/ y5 Q
   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, % b5 r' ^% y( E$ m
   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, ) c( o$ [* T* A1 x
   3.577960510686717*^9, 3.578012149296875*^9}]" `/ i6 \# |$ [$ l1 S6 H
}, Open  ]],
- I0 O# H4 E- O, f# c2 U3 x9 H: y- @+ Z5 W8 i" O2 d  c. I* Y1 N
Cell[BoxData[
! P4 V2 u/ |, `9 K RowBox[{"For", "[",
% v# ^6 H1 _( H  RowBox[{; z+ P. n# x" K. j# F& w- m
   RowBox[{"k", "=", "2"}], ",", ! {2 b2 s+ L/ r2 V9 I* c( x
   RowBox[{"k", "\[LessEqual]", "60"}], ",", * V. ?4 {6 S+ K7 T# d! }* m
   RowBox[{"k", "++"}], ",",
. [% }' }5 B* U5 n1 K( v; E6 t   RowBox[{"{", "\[IndentingNewLine]", 2 r& |( X9 M! c8 [  |, ^5 o* E+ q6 d
    RowBox[{
9 s4 |$ s/ L. b7 d" ]: p6 H     RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]", 9 s5 M9 [7 b* f
     RowBox[{"For", "[", ) x9 F3 f$ e8 `; M7 m
      RowBox[{" w0 ?( }4 j/ s6 Z$ q# {: I
       RowBox[{"j", "=", "1"}], ",",
0 H3 M, Z# b0 C. R2 C       RowBox[{"j", "\[LessEqual]",
4 u6 @! }: Z' p5 |5 a8 p4 P        RowBox[{"k", "-", "1"}]}], ",", : r8 t$ d# E' R+ ^
       RowBox[{"j", "++"}], ",",
! K9 l4 \1 e4 ]       RowBox[{"{", "\[IndentingNewLine]", / k8 q; N; Q: O/ [7 t
        RowBox[{
6 b+ l) o- ]/ C/ \2 K         RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]", # ^+ M" Y! l$ M4 m6 ?6 Z
         RowBox[{"For", "[",   w3 x! b6 \: @3 l; ^$ }
          RowBox[{
1 `' F) [& p# d+ g# Y2 ^" z! F9 E3 e, |           RowBox[{"i", "=", "1"}], ",",
/ e. I' V$ J; Q           RowBox[{"i", "\[LessEqual]", "9"}], ",",
5 i+ U2 R4 v( d. P) p: @3 A           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", ) t* ]# m0 \1 g2 N
           RowBox[{
! H4 X: R* I; h; X6 @            RowBox[{"r1", "+=",
% k+ ]9 G2 X6 J% [; ]0 r             RowBox[{
7 a1 N1 |5 [* R* N              RowBox[{"(", % t8 O  r! L1 l8 ^4 x+ V, w# b
               RowBox[{
# K& c, j) p% p0 r: B                RowBox[{"CM", "[", ! n9 s; O1 A, K$ T
                 RowBox[{"j", ",", "i"}], "]"}], "-",
  J9 _, A% e& |3 M9 P' X. y                RowBox[{"Data", "[",
7 v& E1 B8 t5 y                 RowBox[{"[", 9 _/ t7 i5 Q4 j/ u8 e
                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",   p, X" C( [) ?/ o6 Z
              RowBox[{"(", 7 ~6 g0 Q4 @* S
               RowBox[{
7 ~4 Y! R" W  S& g! \! Q                RowBox[{"CM", "[", . v5 Z5 g; m: B4 d, i1 Z; {
                 RowBox[{"j", ",", "i"}], "]"}], "-", : U1 u5 W, e+ P- x( ^
                RowBox[{"Data", "[",
) Z6 c& V- ]* W4 f                 RowBox[{"[", 2 k$ ~4 [0 i2 Y- j# F0 }; V3 c) R
                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],1 o9 K$ k+ k# f4 r
           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", & T9 U8 ]# B" G( w
         RowBox[{"r1", "=", * q9 m/ K- m8 p% o/ G. N& s2 }
          RowBox[{"Sqrt", "[",
8 u7 _- k- }0 h" J7 I. k1 z           RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
% e4 L7 n( D" c/ H         RowBox[{"If", "[", " ",
9 F9 O2 W/ e  b, e5 s% ^  s          RowBox[{
* H* ^& H1 K1 t           RowBox[{"j", "\[Equal]", "1"}], ",",
( c# X3 R! f/ ?) L2 v* g6 z           RowBox[{"rmin", "=", "r1"}], ",", * q3 _. g0 s, Q( m8 U
           RowBox[{"If", "[",
% n# z! q+ I: J" o1 s: ~+ Y8 p            RowBox[{
: p) H# X  r- h9 W' j             RowBox[{"r1", "<", "rmin"}], ",",
5 \5 u+ T' o) w  {             RowBox[{"rmin", "=", "r1"}], ",",
, I" l8 h/ t( H+ T( l             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
/ O0 c& u3 N2 U$ e( A3 V+ e7 G& r9 M        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
4 ~9 n: M# E. X% F$ ~     "\[IndentingNewLine]", . m1 U/ ~4 s; ~# v. \
     RowBox[{"If", "[",
  J" o% L# k: U; U      RowBox[{
  ?) }. P: _0 B% }5 Y5 J       RowBox[{"rmin", ">", "r0"}], ",", 4 H4 P5 r9 b" \! z8 Q) b5 @$ v
       RowBox[{"{", "\[IndentingNewLine]", / H* _' b$ E$ f4 S# g
        RowBox[{$ `& _6 v/ [" i' @5 }% B
         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]", 2 G0 k. N1 G" {. P- v
         RowBox[{"For", "[", 5 I: a/ S3 x" E. _% _$ q9 i
          RowBox[{7 l  F. x& Z8 O8 L/ j9 H- ^6 i
           RowBox[{"i1", "=", "1"}], ",", + v1 ~! G, H* r0 ]* b* g
           RowBox[{"i1", "\[LessEqual]", "9"}], ",",   n) B$ @9 f6 W  L; P4 ~
           RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
( T; {: ]  ~7 k  n9 N           RowBox[{
* n2 o1 X- ?$ Z' q# Q/ x& D            RowBox[{
' W/ d. b+ x; e  `  c             RowBox[{"CM", "[",
; L8 e9 Y* Z9 g              RowBox[{"M1", ",", "i1"}], "]"}], "=", 6 x% R: Z# {6 O% h  W( F
             RowBox[{"Data", "[", ' O4 b1 U4 @/ r; K4 y
              RowBox[{"[",
8 P, {, D6 H' P7 [1 ~               RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}], # H; \) x9 N5 w: w8 b5 w5 i* s: |
          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", , L( ]. ~  J' s; [6 `
       RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], 3 P9 x/ l  P  L+ E  u4 F
    "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",0 |9 ~" N5 k! b6 L/ V7 o/ F: c
CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {
, ?+ w4 U% f: G$ `3 [, E. R   3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
1 n7 ?; u7 p$ j9 S3 n0 u$ |; H5 H" a$ y   3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {2 V: \' @8 X# p5 L, R5 ?9 l
   3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9,
0 P4 e' O( y* W   3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {% M: P4 ?( f  w7 M$ w/ D
   3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9, ( m. q5 m* r) \( S4 A( I
   3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
8 ?# w2 Q; }' H; @   3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
6 }1 G% l0 w: [, g   3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {9 G" w, g/ t4 ~% T' j+ V. g! m
   3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9, - `6 b4 C! Y' B% z! K  c; {
   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
( o: n5 c( _5 D5 K# z" F   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9, # {9 B6 F' S* F
   3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {
( F( d5 R& a; s% A, E% Q; q   3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9,   s6 X! d/ e( }  g
   3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {! L$ Y3 n7 l. @
   3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9,
. u1 Z4 F8 C& T. t) o   3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9, 8 J0 |+ u8 a: K
   3.577958821991373*^9}}],
8 N4 C6 R% t7 C1 g/ e: [+ d! T1 I& l: _. M8 j$ R
Cell[CellGroupData[{6 J$ U! H. W3 t$ O' f* i! c" V1 z+ u
4 U* x$ j; S/ O0 l! Z
Cell[BoxData["M1"], "Input",& h& n( C% H; Z( P5 ]
CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
0 |$ m: }7 o1 M# L
+ i+ P% w  Y4 P+ R& d4 e0 zCell[BoxData["21"], "Output",
$ c2 k& K, G$ h  P# v7 t+ p CellChangeTimes->{, h, t, f( d) O, y* }9 u2 e% Q
  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {, ^2 n8 y6 B) Y- W8 z1 h
   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9, . U* O# n# e1 ^
   3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {: m) K; s1 M' }  c' c
   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9, ; U9 \( V9 c$ O0 f
   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {4 z3 P& ^1 e3 l" w* V
   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, 3 G, B3 j+ Y0 I! n8 X" a
   3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
# p, x* Y2 f: X- ]5 {/ s* G8 q   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9, 1 p0 I8 k- [& Q
   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
  R) `8 Y/ R" k   3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9,
7 r5 m/ N* g& _   3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9, ) ^+ n8 B0 Q7 p4 q& S, u
   3.577960515600726*^9, 3.5780121541875*^9}]
" Y' K6 b: q! f  N4 m) h}, Open  ]],
7 y! U3 P& o! g* F9 J- y# `/ i1 P. Z5 }( l  B
Cell[BoxData[5 o( M5 F4 x% y  ~- p; T! ?
RowBox[{
6 O% h4 k1 r! ~6 S  RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[",
; Z+ K% z, f% f2 x6 x   RowBox[{"1", ",", "i"}], "]"}], / S( f, x! l; y
  RowBox[{"\:5230CM", "[", / c! _# s9 ]3 p3 E. N
   RowBox[{"21", ",", "i"}], "]"}], , Q, ^2 \+ k+ |6 f5 R( @3 X/ g# K: t
  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
) g7 U" k4 q2 \2 p\:51fd\:6570u1\:5230u21"}]], "Input",7 t5 M' C0 @. Y0 o  Y( {
CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {5 H# I/ S5 H) n
  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
5 Q  v$ t' N1 U; O3 G  3.577960526583145*^9}}],6 e8 h9 v! }" H2 q/ U+ b  T4 h
8 Z3 g/ s% A! n5 `
Cell[BoxData[8 C; z7 ?# R5 A) b3 n
RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
: U8 ^* w! t$ f7 f  g& I CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],# r) B% M& d' |9 [
3 G' k% M! v: x6 E  [, E
Cell[CellGroupData[{
$ q, \1 B" L9 `) q
" P% x  o2 u9 y$ {2 [Cell[BoxData[# X5 `) g. H! B
RowBox[{"Xa", "=",
2 Z% k$ U( J0 e7 N  RowBox[{"{",
. R3 w" {1 U) S; Z8 S8 y( u6 R$ }   RowBox[{& _% f+ x4 I4 k8 ^; J" V* K8 `
   "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ! F, y" \' N$ j  @1 \
    ",", "x8", ",", "x9"}], "}"}]}]], "Input",
- H$ c( j3 J: d) D; k CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],, a0 {( |3 A7 A# o

# R2 I. b8 n8 w2 nCell[BoxData[
5 c) V6 Y' R5 A' l RowBox[{"{",   E; v# r; T( `; F8 k
  RowBox[{
" q; J+ T! O7 W8 A+ `; t3 p2 B. w9 D  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",( w4 T. @1 T# T* x
    "x8", ",", "x9"}], "}"}]], "Output",
% g4 w  ^, a' k+ ? CellChangeTimes->{5 r2 E* n  k5 R
  3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
: |  q4 ]' K, Y; ^. {! K/ E( {   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
/ g/ j' t+ Y1 r* H% Y* D: |% |6 j( o- R( z   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9, / F0 ]. u3 o: O+ h# Q* y- U* p/ A+ H
   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
; d+ A) @% W. s( ?0 C6 U8 ?   3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {% G5 l, Y$ N  B/ S4 G; ?
   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
" g5 Q! ?2 a  D* E, ?   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, * n$ E/ o# a5 D, T: C; e
   3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
$ f8 c/ M" j5 N  r* |2 ~3 l   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
! x# {8 N, D7 G3 Z0 L5 {: {   3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
3 z$ E* e- {6 X5 X  @   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
) f! c) T# W9 B7 A' J' K   3.57801215725*^9}]4 O" P2 P& ^4 K! e
}, Open  ]],: L- J0 n, j1 d7 H* y! G

: d/ s2 V4 p  v* J( L" q+ GCell[CellGroupData[{& r# n2 m. m( G7 B  n( }

. a' ?( C: I+ l+ Y5 V5 q$ ~" dCell[BoxData[
- A( D4 x7 F7 u0 @: O. f RowBox[{"Ca", "=",
' o# ?% l- ?/ B  L8 z  RowBox[{"{",
+ l* K3 {. J& P. l  x/ _   RowBox[{& }5 F% ?: ~7 W7 c% I1 B
   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
1 ^! W, ^4 j' x0 M* W" z/ w    ",", "c8", ",", "c9"}], "}"}]}]], "Input",$ j) a8 }! k1 B* e
CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
' b' F6 _/ T0 o1 l% v, E; P  h( B
Cell[BoxData[
. v+ M; G4 V8 ~ RowBox[{"{", 7 P1 [+ D1 t/ i  c: v0 u
  RowBox[{2 y* b/ z- ]2 b, @5 f+ \
  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",3 j& E  r% {& p5 N! C
    "c8", ",", "c9"}], "}"}]], "Output",: Z# O' j* j/ m! R. L% h
CellChangeTimes->{3 G: |: d0 T7 ]  z
  3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
  S9 N; Q5 W! M   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9, / l( [2 W' x! m& ]9 P
   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
1 t0 I; @4 s2 W3 p2 g4 ]   3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
, \3 e! N, X! G; t5 r+ A   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, 9 `; g- L0 u1 V7 ~( |! q  X
   3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
' X9 |6 p; R  j# _" P0 m   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
& q  U  p. D, p. f' ]7 G, N   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9,
2 e$ }! l4 J5 N% d   3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9}, ; T0 ^" u; c% @% ]
   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
* }7 B# D: B, \& R5 H2 l   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
/ N) L( d1 z% l5 ]. j   3.577961904604212*^9}, 3.578012158671875*^9}]
& f6 U* v) ?+ E9 I3 k( @8 P}, Open  ]],- O$ s' w* y- q& Q+ R: o

1 e% y/ r! g( o0 c4 }7 pCell[BoxData[9 l( _" x. A2 l% q
RowBox[{"For", "[", 0 U3 a1 q$ V* c" Q  [! o
  RowBox[{
: M1 a9 I. x& I  o- h   RowBox[{"i", "=", "1"}], ",", 3 z3 @1 l. t! g; G
   RowBox[{"i", "\[LessEqual]", "9"}], ",", & H+ _; ^0 S" i
   RowBox[{"i", "++"}], ",", 4 a( G4 f- z  n% h3 ~% _  q
   RowBox[{! f$ f! J* [& |0 F( B5 V9 g8 _7 Q) X# N
    RowBox[{"Ca", "[", : g# j; E# L4 o9 {1 S4 o- B
     RowBox[{"[", "i", "]"}], "]"}], "=", 6 h) a' `0 F9 |8 d; F0 w
    RowBox[{"CM", "[", . q( E0 V6 y, m- X  z
     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
8 i0 U8 ]8 ^% r( M: F CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9}, 5 N& K1 z' k" R3 F0 ^
   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9, ( r4 I: B* v3 m; @  y  Q% D) ]0 @
   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
3 ?2 T- b" {$ @  N# F   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
! X* B( e$ q, X2 u- R   3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, + c+ g) W& j0 I" ?* w, m
   3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, ; _( w- d+ q; N5 O
   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
3 S  h* [. l/ ]3 H   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9, ) W/ O$ X% g; ^5 G: ?  T6 L# f
   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9, & d/ \* R% |2 |, a4 w
   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9}, ) r$ _8 K$ l+ [- V3 U
   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
! M' l+ T8 v7 U( n; G+ C   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9, # x) k* P$ X: b0 {' s
   3.577961906897415*^9}, 3.578012176296875*^9}],
! Y+ \3 v0 L2 Y) Z; I, f7 {
' U8 m# W3 c. ]* \$ e/ U) Q4 GCell[CellGroupData[{
& R0 C4 d8 r& e  _
1 U" o( W, \9 F+ l8 }Cell[BoxData[, L7 }  c4 z: ~; v
RowBox[{
- @: m( j2 T# ~! I$ Y! Y' E! y" B  RowBox[{"(", & l! [, @1 o- C; R' V) I
   RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
, j8 `4 r5 {9 C  RowBox[{"(",
' c9 X" P& m. J$ J6 b# p. G   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
2 s+ W) c* |9 E) n) S( z/ p$ \7 D: M% j+ r: \2 j, B1 i0 I
Cell[BoxData[7 X3 B* Q; N( O+ P* X& i
RowBox[{: w6 X9 B" z! B6 F: j, S
  SuperscriptBox[
9 N2 `, h$ C: i9 M4 o   RowBox[{"(",
" [( {1 L, ~) N5 t& y    RowBox[{( o' X8 X2 W: X3 T2 N
     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+", " L1 L: n2 ], A& m( _
  SuperscriptBox[
, R: M& }6 {: Z0 N5 Y5 _   RowBox[{"(", ' E( K5 x% W9 }1 N* Y  @
    RowBox[{
. O0 P5 o4 l: z  k: O* O     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
: C: P- U* \% E! |# M2 G  SuperscriptBox[
' H9 l" R8 t+ E( p* b$ {, _7 {   RowBox[{"(", 1 x2 Q: P; i& g* D- V- ~3 ~5 c) O; h
    RowBox[{
; V2 E1 s: }& C) {  r     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+",
) L8 s0 L& ^2 s" r9 ]  SuperscriptBox[1 v* o  x8 H' `  q7 ~
   RowBox[{"(",
0 B% D- D5 @: e8 O6 s  t    RowBox[{' @" a7 R# f$ q" {- u
     RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
) }9 [) r0 E. j  SuperscriptBox[
7 n9 k3 d! R2 ]; X   RowBox[{"(", - f, h& z% N. U! x# a! E, v
    RowBox[{& Z, ?" u6 Q" [* h2 F3 ^$ v
     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", & _" D( q* v6 K# j0 f4 {
  SuperscriptBox[& W% u% m" Z$ L5 c; p) l6 z
   RowBox[{"(", $ `# T- W6 q, l* K, a
    RowBox[{
4 _3 ?6 Z) B4 s) [  L+ b5 q     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
7 t, O* @' |. M  I3 A; U4 I  SuperscriptBox[
9 A. c3 V7 d3 K1 H* {   RowBox[{"(", + V7 D9 V4 z% N; l2 y
    RowBox[{
& T: J2 w+ V9 h* t& \, T     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
/ Z+ ]( q" L* [. i" }% T! E* z  SuperscriptBox[' a( d$ e; M$ S- d
   RowBox[{"(",
3 f- }" ]% Q5 s3 @+ M    RowBox[{
; x' _7 C$ b; u7 b3 V( e     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", 8 X  l/ s6 p% f. ]- Y
  SuperscriptBox[- h& M0 [: r0 ]& W, q
   RowBox[{"(",
+ X5 o9 k/ d* Y% M; w    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
  f" [0 I- f0 ~; l: u# W, H CellChangeTimes->{
. y4 A$ ]0 A* p2 \1 i7 W  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9},
+ `0 T3 Z: r9 O9 B$ s8 t  }   3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
+ w( Y1 ?4 W1 o$ l. ^7 W! N* s   3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, ) ^. q) d' [/ x; f. L" M% w
   3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9, # m% A3 o; K, }' U2 R
   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, 7 _; Q. M5 E2 F3 T- P5 ]. ?# o
   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9, 5 X8 ]) k0 I  ^
   3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {. R' d7 [3 U4 X* f' H5 D# k( |1 n
   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9, ) J0 O* H4 P1 F; v. Y9 y% n1 `2 d# r
   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
. n' x0 a5 t( {   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
6 X2 G2 `7 w! U% i5 e   3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
6 f8 X' {' ^9 s) ^: p   3.5779618537169228`*^9}, {3.5779618846049767`*^9, * V- s2 o6 v- O- p  h% h, ~( p8 r
   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]" G% h* Q# f% A0 G
}, Open  ]],
' C. P  A4 a+ u2 w  ^8 y+ @  g; O) R) b: N6 {
Cell[CellGroupData[{
# P5 v: W9 V4 F
) N4 v+ j/ R. }, U6 zCell[BoxData[" e1 H  W5 L* S4 k, W+ B7 K
RowBox[{' B$ K/ B7 A% I. t
  RowBox[{"Ca", "[", 7 B$ X, Q6 k0 H4 w
   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",2 s/ }* ~  b$ N% A# `. m
CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9, . _# l% r  n. r5 g
  3.5779616465173616`*^9}],
5 U5 \% \$ l, b. T. ~: Y$ n
2 k- g3 P1 P, C  l8 ICell[BoxData["0"], "Output",( p9 f" w& ~, A. L# r
CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
6 D/ ~& S: d- e1 Z/ ~# E  3.5779616484049644`*^9}]: C2 [. T0 g% {. z. O% Z* W! Z
}, Open  ]],
+ F# ]) [# T: o0 h* e7 s% ]
6 [+ w: H. u7 s/ LCell[CellGroupData[{% f0 R/ X' B. V* P
, d( P* x5 |4 W7 S1 C- i
Cell[BoxData[
2 I- ^$ U& T- M" l: W! Y RowBox[{) s2 S7 e1 S7 [
  RowBox[{"Ca", "[", . N! Z6 h2 ?2 Q% z) g0 q
   RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
0 u6 ?& G; V8 F CellChangeTimes->{3.577957376235614*^9}],
7 U" a/ I0 c, o8 n2 F3 o6 g! U( Q( T. ^
Cell[BoxData["0"], "Output",
+ S4 R! F- S/ C, C+ p' o CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]% B; r" b1 f. e0 ~
}, Open  ]],
$ k( \" Z) N) _: g
: H- @- R1 [- M, @; K. J, o; e6 YCell[CellGroupData[{) i& u6 m% U5 x! [" L
0 r5 M0 `8 @7 t7 p( l  Z/ e, D; E
Cell[BoxData[: s4 }2 |4 }1 i3 Q: I  _% L8 U
RowBox[{
: x0 v' v% M, ?% c3 H0 e! t. P  RowBox[{"Ca", "[",
3 |; N# i5 @" k7 k; |   RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
+ ~: h4 G: t' P6 \$ N CellChangeTimes->{3.5779573112927003`*^9}],
! M3 ^! n% u0 @1 S: a" \
# X5 P( Y$ I4 M4 }Cell[BoxData["0"], "Output",
. ~  B- h' V, K7 X, I8 O+ Y6 G& a CellChangeTimes->{0 @6 y- O; t( }% B' s) E/ C7 U
  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9, ! V9 O$ ]4 o2 W) }- V
   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9, 0 H1 O* n+ F: c+ {
   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9}, 9 p: I: }! j" ~$ k+ ^
   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
2 j+ S- S* I7 y! h( c* o0 w+ w7 C   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
% q" A* p, A3 ~   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
; c  C1 c/ i: v) A/ _$ m}, Open  ]],
& D# E5 F5 U5 ]4 ?- e" {3 ?! s* z2 c2 [% n2 I
Cell[CellGroupData[{$ Z# T7 Z6 B7 g! p! o
4 F" b8 e/ Y- N
Cell[BoxData[
3 U: b/ h7 c4 W' O RowBox[{
0 r, J+ j: f# u& `! D6 n' y  RowBox[{"Ca", "[", % r4 z: c) c" P" A1 |
   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",( {  R0 Y+ f; P; E' K
CellChangeTimes->{3.577921461734375*^9}],' h8 {0 Y5 f$ M7 ?
# V: J$ E' _* {" [5 y3 u- [( A3 {
Cell[BoxData["0"], "Output",
! D+ |$ ^1 K& }' r8 {6 A* U CellChangeTimes->{
. D! [* Y# Q- O' z; B8 U  3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
; b* A0 D0 V$ d3 R0 A   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
+ P. H( u8 e( b% n: _   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
- g/ V  B  W  E8 i5 k% @( A& Q   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, # M( E# @# t; a. K+ \3 o& N! F
   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]8 b# g5 y- |6 ]: U4 n  M
}, Open  ]],
2 N* _5 o* o( N( ?6 ?
, Z, o8 K( R! aCell[CellGroupData[{3 e# k: }1 S3 b
) B9 h9 w3 a! v$ x; T* f
Cell[BoxData[
3 ?& }' p" Z( `  ? RowBox[{
  E% n! ]8 ]/ n* k6 }5 w  RowBox[{"Ca", "[", 8 I6 i2 z" n- m4 D% [; _
   RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",4 H% T; d1 y. K5 e* e- \
CellChangeTimes->{3.577957303118286*^9}],9 Q3 V2 E& l% j: J9 ?: C+ t; W# H
1 g: [7 M* W- C7 i. o
Cell[BoxData["0"], "Output",7 U( |4 w0 \, p8 [% o# V
CellChangeTimes->{1 U* T4 Y6 x# g/ E
  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {7 t* O& P, J5 r& S$ n6 v+ _- H
   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
& Q7 S' p; v6 x( L, n8 [9 G   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9, $ g2 T9 r5 ~+ D; P
   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
- [9 e0 D, k+ C, e; l* H$ a( P# c   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9, 8 R+ _$ Z+ Q: D) D2 {
   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {/ S" Y1 O" P* e  Z! x! }6 d
   3.577961889378585*^9, 3.577961912965826*^9}}]
" b- T4 S* m$ v- T, M, T. n}, Open  ]],
; f) J- b& w; r5 n# o* ?, O1 i% O) |8 E' c6 h1 Y( y* W
Cell[CellGroupData[{
, Q# [# X  \' I' J/ i9 O9 W& S
' A2 E* G# g9 A# v) @2 O& s$ KCell[BoxData[
1 A& a6 \8 {6 Y RowBox[{8 s! t/ G  D4 L# h
  RowBox[{"Ca", "[", # E' Y, j  W$ i; h2 |$ b
   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",0 k- P: P5 H% _. G
CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {: R( ^$ v& w% D" q! ^, V. a
  3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9, 4 h/ {% l6 s0 K' K. I4 C
  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {: {' q" `3 `/ S8 I4 r) v3 X" y! e4 c3 ~
  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
' L( l0 @4 f% t2 c5 O- R( i  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {5 U; ^' u6 f. w# [
  3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
6 o) |# n: x7 k! ~  3.577921435703125*^9}}],
. z! Q0 I$ `5 E; }8 f9 W
, r- F, V& m- d5 _6 ~! BCell[BoxData["0"], "Output",
: z4 H2 P" k: f- v CellChangeTimes->{( f5 ]5 r0 t$ T* o7 G+ W5 v
  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {/ u% Q, C8 M9 V- U
   3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
% i5 s6 K9 B3 ~. _   3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {/ U1 W. P1 N7 b% b8 ^+ z( }5 H
   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
! O0 B  f. R  ]0 k   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {& k2 B0 w, P6 v) u6 T
   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
4 _/ x  K. [" b. @   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
  X- v8 |" ]2 m& ~/ p. l- v* v5 e   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
# \; ]5 s8 R+ k1 m  _   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {9 O3 w: C3 T9 F% [; z# z# k" ?1 F; o
   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
+ {! {( N3 k, R5 r  C6 {2 Q   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
+ M! Y3 {4 ~) E6 w" H   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, & k2 t5 h5 Q. f( ~9 d
   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
/ `, |+ m* M- a# t3 ~1 h}, Open  ]],1 c' p, f' F; \" o- p+ f

) a% C* n# x) Q1 Y" z+ v- H  ~Cell[CellGroupData[{
) p: |4 ?: \. J1 A/ M9 X/ q2 g
6 \% T3 C: n" o- p3 W7 BCell[BoxData[4 a1 |3 N7 C2 c1 \9 b/ h& q- W* n
RowBox[{"Delta1", "=",
; Y+ y& ^- H4 b* K; c: p$ ^  RowBox[{
3 [1 i2 h+ f- p" b5 ~9 @+ S1 k   SubsuperscriptBox["\[Integral]", " ~: u# ^4 M: i
    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], / e! a2 S' b0 ^1 E' D6 ?
   RowBox[{
4 a. H! v  u8 }$ ?3 b    SubsuperscriptBox["\[Integral]", 4 d2 {) z& Q$ @. J) M2 s1 z, T
     RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 9 _$ C4 {, F- ^& S  v
    RowBox[{
' v/ T1 B" a5 w# b# {, |3 L     SubsuperscriptBox["\[Integral]", 2 {* J5 K1 b9 M2 A# p2 J
      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ' d# M2 C6 C: t) F$ ^
     RowBox[{) ]' v" c) d- Q! Z4 ~0 v( Z0 f+ J- ]
      SubsuperscriptBox["\[Integral]",
% B$ @' F+ q2 S8 E7 M! `! y       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
- w9 e* w0 K6 s* J, P      RowBox[{
' F  T% ]2 B" i/ h  q% z7 s       SubsuperscriptBox["\[Integral]",
% E" m* G& L. M        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 9 b# {, n# x) B: i1 |- B
       RowBox[{# J! b8 K4 H7 P; v+ c
        SubsuperscriptBox["\[Integral]",
8 b& M+ o3 |1 U) e! z         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], / ?& s9 H1 b$ C
        RowBox[{! f7 x) t6 Q6 K* Z8 R+ |" e" u
         SubsuperscriptBox["\[Integral]", 0 N/ ], K" |" x5 N* M. g
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], / F( c$ _2 t  h5 Y, {- A
         RowBox[{
8 v9 }" ?9 {8 {5 w- a+ B$ o          SubsuperscriptBox["\[Integral]",
; @( r  ~; q* |- j: ^           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
9 F. S3 f, h6 J" ]0 Z6 w$ g' N; f          RowBox[{9 G6 _3 V" q2 J9 V/ I( C0 |
           SubsuperscriptBox["\[Integral]",
  t: ]% b% f2 x9 I( G  b5 _            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 9 C1 e/ r+ C' ^8 w7 f9 q3 Q+ p
           RowBox[{0 c( k2 ?: B- L8 I0 q
            RowBox[{"Exp", "[",
7 z3 O; N' q8 M0 X2 L             RowBox[{$ Z( P7 o5 B% w' S7 t4 }
              RowBox[{
$ Q* s2 m& o6 O) A6 Z' D  |4 e               RowBox[{"-", 6 ]: ^$ p! j  H. }3 L& f$ o7 \
                RowBox[{
0 W9 @+ |; [6 n                 RowBox[{"(", & N$ R! E1 P- k* {
                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
1 Q+ E7 `7 w) X7 o) O: t  L+ g/ v8 p                 RowBox[{"(", . _2 x+ V. h+ [8 @- L
                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
+ F+ V* e& e/ C8 L8 ~( E2 H              "Delta"}], "]"}], " n9 h8 u. v; }; y' h4 C
            RowBox[{"\[DifferentialD]", "x1"}],
$ h# B; ~2 D: M3 Y2 R5 e! L/ s            RowBox[{"\[DifferentialD]", "x2"}],
: p/ T7 M. N* p% O            RowBox[{"\[DifferentialD]", "x3"}], 7 t  R$ J# g2 Q% F$ |$ }
            RowBox[{"\[DifferentialD]", "x4"}],
6 u4 d  c2 z, P) a! E2 e  X- ^            RowBox[{"\[DifferentialD]", "x5"}],
# C/ Z  o3 h' E- q            RowBox[{"\[DifferentialD]", "x6"}],
1 Y/ Q! G1 u9 H: }/ Z; c2 L            RowBox[{"\[DifferentialD]", "x7"}],
* z" J( c% Q) {/ |$ Z1 W            RowBox[{"\[DifferentialD]", "x8"}],
8 {3 U& |3 h. k            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",+ z: [" q9 e5 S) e7 p3 x2 S
CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {! u( \- R& K/ B. s, c+ \+ m* J
   3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, 3 Q" S9 `) _, m  y
   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {" R# N( b% t. |: Q7 l) x+ S; u) q( @
   3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9, 1 \8 s6 `( [- Q8 S1 R( l2 H
   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {, J" s/ r/ D) v2 X; m; ^$ ^
   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
4 v* r( f7 p" M! N8 g   3.577918964453125*^9}}],
8 J# j4 u8 z+ H6 E) y
$ q" X9 r* c1 u% OCell[BoxData[$ V' \$ \# d5 Q" V( g( \* A
RowBox[{"97.40909103400237`", " ", ( r0 l# D/ J2 \
  SuperscriptBox["Delta", "8"], " ",
3 ?( P& r3 m8 O6 W# e  RowBox[{"If", "[",
* r6 s5 a% |7 E, s) B1 w  X   RowBox[{
/ i8 |1 h2 |" J6 {    RowBox[{
4 m/ q; @$ S. j4 F     RowBox[{"Re", "[", / Z/ ?7 _  V, t7 L8 V5 f6 o% a
      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",", 3 M4 x4 z# l* p/ r' O
    FractionBox[
  W- n; ]5 o" |3 n  _: ^" s: L     RowBox[{"1.7724538509055159`", " ",
# n  U4 G6 F, g3 u. K3 }( T2 v      SuperscriptBox["\[ExponentialE]", " P. G: n, J" t- s
       FractionBox["1.1102230246251565`*^-16", ; O) Y0 X  Z; m9 [$ D8 {7 R5 i) F
        SuperscriptBox["Delta", "2"]]]}],
5 e9 M4 c- I, |     SqrtBox[! k" n3 @' I6 J' N2 Z' ?( N
      FractionBox["1", 7 ~5 b( x. K( l& l* i4 G9 N5 B
       SuperscriptBox["Delta", "2"]]]], ",", + g  n3 D1 M  C7 {4 v7 u# `
    RowBox[{"Integrate", "[", - G" ^, t% G2 p) }' W1 f- W$ `
     RowBox[{
+ E( G% K: ?# T" K- a7 H. [' M7 x      SuperscriptBox["\[ExponentialE]",
- ?$ x, \+ J. `4 E. f- }! ]       FractionBox[4 n0 ?0 c, z2 ^+ l6 o3 Y" l
        RowBox[{"1.1102230246251565`*^-16", "-",   u! ~% G- e, Y
         RowBox[{"1.`", " ", $ a5 _: m$ j9 N7 T
          SuperscriptBox["x9", "2"]}]}], ( `% P1 Z3 f9 \1 {6 R2 [
        SuperscriptBox["Delta", "2"]]], ",",
! Q& e- b# Z3 s% J7 z      RowBox[{"{",
* e) R6 o' d  Z+ M2 h       RowBox[{"x9", ",",
/ e8 c! J/ |' j        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
1 |5 M  @" S! Y' H      RowBox[{"Assumptions", "\[Rule]", 7 n  `! _/ b. `! g- n* w
       RowBox[{
. J3 y5 ^# T1 @7 Y; ^" D        RowBox[{"Re", "[",
8 k1 U8 m0 B0 i* M0 w4 F         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
5 ^: r9 v, H: K* u     "]"}]}], "]"}]}]], "Output",
. ^- p! T$ l  \0 @7 X& n, N CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
5 {) H8 I5 }3 Q9 K4 P( i( p  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
$ o4 u' x& A3 K) b" u  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9, 3 E  I: j! [3 M& g
  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
8 ~% b' H6 a3 N4 M3 B$ C  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
  o+ e7 v6 Y5 _  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9, $ ~5 ^, n2 v6 v1 C9 ~( E
  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]+ n/ m5 [  X) o6 [# r$ P( \
}, Open  ]],# C# ?' k0 g% c7 E( g
) f! U5 {6 ^# O3 f  S1 T
Cell[CellGroupData[{) I& H; ^# W0 e- d' Q% G
0 D. d2 y  d+ b6 {) P8 r) c+ y
Cell[BoxData[% H5 J- W. C. W& N: B# `9 l
RowBox[{"Delta1", "=",
$ n0 l4 K0 ?9 |4 P+ z  StyleBox[' W6 i( r$ o! x/ \5 d, [- p  ?
   RowBox[{"97.40909103400237`", " ",   w( o+ |/ ~- c  ~4 E6 s
    SuperscriptBox["Delta", "8"], "  ", / k' _: H) A/ `3 b
    FractionBox[' Y" C" }' |4 H* f0 a' H7 ^8 W  z
     RowBox[{"1.7724538509055159`", " ",
0 M# t/ i! v) Z2 Y& M3 B. t      SuperscriptBox["\[ExponentialE]",
6 u& P+ T. c- A7 O. N# x: g5 H       FractionBox["1.1102230246251565`*^-16", 0 o. ^6 D- u! a4 ?) }; e! \
        SuperscriptBox["Delta", "2"]]]}], # Z& O+ C  w& p3 k# V. v7 N4 e0 \+ m
     SqrtBox[9 {- M# C3 j: B2 n
      FractionBox["1", + }" D/ q6 V/ r2 C) c2 G9 z6 g
       SuperscriptBox["Delta", "2"]]]]}],
( `- U% `0 {  w% {+ N6 g* V1 I   FontWeight->"Plain"]}]], "Input",
! e6 b6 m" I0 o7 t" I% | CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
2 `; A* [' U+ g; Q1 d6 a4 E+ B   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9, / G$ F; a- g+ n+ [! X1 i* [( U/ j. Q
   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {5 W3 @  J# l' R) k# K, [
   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9, 8 k4 }1 Z% r5 Z3 [1 k6 w
   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9}, - o: j2 m. z  g- L+ {
   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],7 ?) e% x8 j6 E6 Q( S% _7 `

# p; D* O$ R2 ?9 z1 p0 DCell[BoxData[
" E& T+ }5 z, A FractionBox[
4 b! o7 e2 t# a8 f  RowBox[{"172.65311851642346`", " ",
: Q( J/ a7 w+ b9 D   SuperscriptBox["Delta", "8"], " ", 7 N% T1 a' _; b3 B
   SuperscriptBox["\[ExponentialE]",
: X% B* A  ~3 F# {# @    FractionBox["1.1102230246251565`*^-16", 7 N, T0 e: H! {
     SuperscriptBox["Delta", "2"]]]}],
+ y1 e: q8 K) Q6 T# B/ j' k  SqrtBox[$ N; n( A5 @6 |; N5 I
   FractionBox["1",
- f5 a( C2 f6 ?    SuperscriptBox["Delta", "2"]]]]], "Output",
( i0 B; `" f7 ^( P; G6 T5 C, c CellChangeTimes->{
2 B8 ^$ T, a0 Y( E9 y0 s1 c  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
) @- ^' A) P( M# V; H* p# H4 R   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
( c2 r/ k1 k5 q; ~* `   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
$ m9 }) O, I% I0 a8 [0 H* `* c   3.578012166234375*^9}]
* M! f2 [. {8 C  K3 y, q4 L}, Open  ]],; Y( ?3 q0 ]$ }, [- |( B- @2 m1 S& ?

' }- o  ^1 k, U2 ?# J+ H1 PCell[CellGroupData[{
# E: ~6 w$ J$ l- g) J! ^' x1 V: n/ ~) S- _& W% c+ `; b8 M
Cell[BoxData[3 ^5 k; H+ Y% {
RowBox[{"DeltaX", "=",
% V$ m' S1 J. j, c* q  RowBox[{"FindRoot", "[", ; }- \6 i- U& X7 {' F& v6 r+ b. A
   RowBox[{
& m1 @  C7 z8 W$ o: A    RowBox[{"Delta1", "\[Equal]", "1"}], ",", % z4 j; H+ a  `& A6 [, h+ X
    RowBox[{"{", 7 z! f' E8 T! K1 F
     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",) p1 p3 n8 w( g0 v! N4 p9 ~
CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
  L2 `# S2 V/ R   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
9 A3 L4 v# a2 g3 i7 N   3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
9 D* u6 ^5 H# x6 \; m% E# L% y- V   3.57791921584375*^9}}],
" z1 Y. B+ ]2 Z  J$ Z5 p  s* W5 m+ t
Cell[BoxData[
. N  M- J1 [$ T( i! c  x: M RowBox[{"{",
) q" Y6 Y$ R! ~  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
/ }+ g' X% |% c# T, Q" c! D CellChangeTimes->{
8 ]% o# \1 A5 W( I3 J  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
# y  J$ _9 z; i) ~. Q6 z6 m   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, * i  d/ `* p) i4 `) r- B2 b, \
   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
( G7 |$ `( Y% M9 l. s   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9, % e6 {. C( O$ D+ [6 v0 P+ y! a9 I
   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
% H$ ]5 u6 ]6 w( M5 y" S   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, , ?4 E& f' h/ `; O
   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
- C: z, y4 t. ], i/ M   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9, 1 m* b. ]1 Y7 L4 r: ^) u
   3.57796070150625*^9, 3.578012167703125*^9}]5 g4 w* O/ v  T% e+ N4 V
}, Open  ]],
9 b3 t& C  c8 A1 Y# L; o  q; ]8 c6 V8 W( g1 i. a
Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\- j$ K8 l. I( `4 x; O
\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
8 A( j5 C* j3 g8 R- d! a CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
0 V7 E) b* t8 o; h" x  3.577960705312657*^9, 3.577960707621461*^9}}],
" c1 m4 K  D# @8 ]# R
! F" M% i/ q' ~# w* b/ {Cell[CellGroupData[{
3 g: L: J2 ]( G- \) t! |  \! I/ u! x: v: H
Cell[BoxData[
+ ~& _* U. I6 q$ g RowBox[{"C1", "=", "Ca"}]], "Input",
' k+ w1 m0 M+ t, O2 P) f CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],- |" [+ I( ]" M" o# [
% J9 j) r# p. c- K2 F& W
Cell[BoxData[1 P: W& a2 n8 Q! c' P& \; m2 S
RowBox[{"{",   j8 \2 r7 p' C5 Q0 ~9 Y
  RowBox[{! s: X; e* |, J' q: S
  "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
. m- n6 U  Y, T4 H# n   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
4 p' L( G- ?, E0 v; ~6 H, O   "0.`"}], "}"}]], "Output",5 P1 B/ x' C/ w$ e* I+ f2 ?* b
CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,   e2 s( v; [# k: j+ e' Z! T
  3.577960710273465*^9, 3.5780121855*^9}]/ h/ l# S- G2 b
}, Open  ]],6 g/ `9 l3 o$ j0 \& j# R- z+ w

2 H) Y3 ?1 S  M3 |1 e, `0 }Cell[CellGroupData[{8 g0 D1 x" ]; K/ c  f2 ~8 Q
/ {5 S/ j$ c2 D* k- }; C; e% W# _
Cell[BoxData[
6 L6 s5 \5 K" K- n  O+ U: x+ O$ W RowBox[{"u1", "=",
, B4 S# J9 L# a' _  RowBox[{
! z/ J# S0 J" i# h1 H: A8 _  s1 o   RowBox[{"Exp", "[",
' D! i) c) k, b4 ?    RowBox[{
: ?% X' \  ?& c" u* z! t7 V, U5 n     RowBox[{* a' b" J: Y0 T; x" k: u/ C) a
      RowBox[{"-",
) ]# w  E9 @1 S& C+ c' b7 d       RowBox[{* j$ r. y& a% M8 R! X
        RowBox[{"(",
: m, Y  q$ E5 P! h3 Q8 O0 R         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", # b' ?% B# T$ e2 j- S) T5 t
        RowBox[{"(", ! r3 \$ j: c2 e% M$ n
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
' j2 G8 J$ F- G' V; C2 m+ W     "]"}], "/.", "DeltaX"}]}]], "Input",5 R) a5 R) ^) \0 p7 B; w
CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
8 R! w& C; ^; |9 s   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {; a) C9 G4 T" f! X& }! t* f1 i
   3.577919193484375*^9, 3.5779192326875*^9}}],
* o8 r0 S6 D  X3 S8 @
1 [* b; F4 L" A- r; j% lCell[BoxData[8 h* C0 o7 u# z8 S" p) g7 k# W7 j- e
SuperscriptBox["\[ExponentialE]", ) f2 n; y, D' h( H% b- v
  RowBox[{"3.141592653589793`", " ", $ t2 p$ [6 v/ M. J
   RowBox[{"(",
; }4 a+ x+ V* u  q8 l4 Z6 q7 j    RowBox[{
5 X" V7 s, _8 b& M  F9 S6 ~     RowBox[{"-",
1 W6 K+ _; Z2 \& I, J" v& z& h      SuperscriptBox[
$ H& ~$ d6 c8 q( d       RowBox[{"(", & R4 w* I. ^# j8 O8 H9 w
        RowBox[{
8 b" h& C9 d: O6 z         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
# m# D8 o" t+ N5 j( T1 ~' \     SuperscriptBox[
) X! K7 N' z% _8 ]* N5 R8 u1 k; p      RowBox[{"(", # q) P" D$ Z. O6 Z6 z( i% Y
       RowBox[{" d# r) G3 P/ p
        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", . V- A+ N2 e: z% R
     SuperscriptBox[. Z8 d8 X( b( R7 `
      RowBox[{"(",
! g* D( O* J& R7 b0 Y. m       RowBox[{
8 |9 S* A' w- i( `        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", . Y1 G8 n! O( i: e7 D! `
     SuperscriptBox[$ e6 p: s$ G! B8 I8 q: E9 {
      RowBox[{"(", ' g8 S& c- f2 `
       RowBox[{* ^% {& t, t" @
        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", + `( Q$ [+ @$ l* P: Q6 c0 {" Q8 d- ~
     SuperscriptBox[+ x# B9 h! F+ A
      RowBox[{"(",
( `6 D5 w2 G; `' {       RowBox[{) v6 A: c/ n$ X1 b7 K
        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", : ^0 k0 t) |. ~* u! a2 N
     SuperscriptBox[" f7 f: y. A9 @8 I# z, }+ D( y
      RowBox[{"(", / X+ c8 x9 G9 X; c5 k* I
       RowBox[{0 \* O& j" `0 R9 u4 v
        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
0 |# B: W* C. V6 W& ~     SuperscriptBox[; l! C6 f8 ^2 l, q8 U
      RowBox[{"(",
" r9 a/ b/ n$ E. n       RowBox[{
3 Q% ^* M! l& U        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
/ S6 I& ?  n$ b) }1 W     SuperscriptBox[
* i* a$ {* L: z1 a' b      RowBox[{"(",
+ T2 ]& Y: D' p( f8 R4 g       RowBox[{* a$ X/ j. [* l9 ?7 E+ n# ~/ F$ \* h
        RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", , r" d* u9 Y% ]
     SuperscriptBox[
) S9 H5 {2 h- y      RowBox[{"(",
) v2 D6 h3 c2 [  x: e& z, n       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
. m; T; K+ T1 r0 e: W    ")"}]}]]], "Output",
; Y+ ~7 @) e" l& g. z9 ]4 j CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9, 8 n  r$ Z$ t1 m8 |0 y$ M/ j
  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, : D8 u7 }/ F! [* }: a1 |4 s
  3.578012187078125*^9}]
% ?  ^2 q. s% ^) N}, Open  ]],
* q- d% R! n2 A$ c7 P8 [" d/ }# M4 j6 g2 o; C/ D! c
Cell[CellGroupData[{
% ~/ m7 I6 F2 B# v0 f3 j+ v- G# X7 z, V8 z7 j' z$ Z0 m1 e6 x
Cell[BoxData[
8 U: h7 I2 B* ^+ `9 x8 J$ T8 V RowBox[{"C2", "=", "Ca"}]], "Input",
% Z2 p5 T) L  i9 G' Y CellChangeTimes->{3.57792047321875*^9}],6 z& A. e/ h9 v" h+ @

. J6 ~; s8 S1 d: GCell[BoxData[
, h9 A( s/ s+ j& y0 T$ G6 V RowBox[{"{",
" C8 m* V5 Z5 i" m$ f  RowBox[{8 E  R) s' o6 C' x. A: Y
  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
, ^4 s3 V& B2 O  A* _   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], . X3 D0 L' J6 B, e
  "}"}]], "Output",
, r( k1 b% z: J CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
; Z( d! N- O, S! B& W* }3 J7 i  3.5779607401163173`*^9, 3.578012204671875*^9}]/ Q+ A) C0 \( }2 U6 h
}, Open  ]],
! T, @  h9 M2 b  r
! T+ V4 O  Y: N$ L( i2 {* n0 V. \Cell[CellGroupData[{
; E2 \" c3 R& U9 Q7 X( P  }$ E9 ~
) r! h. F1 u  c; rCell[BoxData[7 ]- E1 E7 Y1 C
RowBox[{"u2", "=", 0 f- R9 _. e9 Q4 ]' x! m) t4 T
  RowBox[{
& G0 O' Z0 e( y1 q# h# @( K2 q9 f( |   RowBox[{"Exp", "[", 6 L! Y0 P% q/ C/ {5 k3 k
    RowBox[{
. h* w2 ]3 p* M! ]! ^. {! a     RowBox[{4 }4 ]! O* S: F$ R
      RowBox[{"-",
4 h+ X7 q7 b( O% H( m       RowBox[{
0 z+ i2 O- e, p' v3 i( Z        RowBox[{"(",
  {8 M* E+ Z3 \* |: W% |         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
8 R/ D5 u3 i% T1 z' ^# a        RowBox[{"(",
# O5 E" n$ e% b% ]9 O, Q, X9 a         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],4 d3 b+ F- D1 ^  s$ K9 q2 q
     "]"}], "/.", "DeltaX"}]}]], "Input",
- N1 k6 _" v6 t' y; a, j9 K CellChangeTimes->{3.577920484109375*^9}],: `7 w$ h% [* P/ S
* ~) H9 V- }/ L) [+ z2 n' }
Cell[BoxData[$ x6 K! L1 ^: W& N0 \8 |
SuperscriptBox["\[ExponentialE]", - Q: i; h7 f5 d+ m5 ~" o3 E: k+ z
  RowBox[{"3.141592653589793`", " ",
0 h% d4 e( d! p% Y( i) M9 `- @7 A; K   RowBox[{"(", * q* B0 c+ _% U9 H7 L
    RowBox[{" n) I7 D! ~$ a) N
     RowBox[{"-",
, P) t4 M/ K. o      SuperscriptBox[
! x! X9 B# T' e0 q6 k       RowBox[{"(", ; Q% ^' P+ F/ B# X  k
        RowBox[{9 f$ c9 H& h# X7 j% y7 ]
         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 l9 o7 M+ X% o8 B
     SuperscriptBox[
3 O+ [" b) x* `# \/ U      RowBox[{"(",
/ ^, \6 \- Q9 O4 N1 N, v+ c9 u" e       RowBox[{: p3 W3 k3 h$ p7 d
        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", % x- y# l2 s2 k0 s9 Y  r. U$ \
     SuperscriptBox[- @" i1 _9 ?0 m1 g) w
      RowBox[{"(",
  `6 `5 L4 d6 ~6 ~7 ?       RowBox[{
# b& M, ^- P$ d  r* P        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
/ ^# |" T2 {: d. Y     SuperscriptBox[3 c8 r9 r  E- G. n
      RowBox[{"(",   J' B. Z* W+ Y- I4 L$ n
       RowBox[{* m1 G3 C7 J0 W; S% L
        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", + S# L# z: ~8 W( n& }: ~
     SuperscriptBox[
1 V  Q' C* f9 _& m& a      RowBox[{"(", ! M' T' m0 o4 `* A4 l
       RowBox[{( z9 v# O) r" x" e  W. e& O
        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
5 H0 \6 z' L; v. g, m/ m9 L1 `; @     SuperscriptBox[
% M" a# B/ G$ v: @      RowBox[{"(", + K9 Z# o, U+ ^8 s
       RowBox[{
# ]  v' V0 `& n& o" N9 R. a0 U        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
+ \. Q7 g# k- d3 x0 q     SuperscriptBox[% {3 \4 \9 \0 Y) c& t2 {* |
      RowBox[{"(",
/ \8 [  \. F9 [- R- w7 B3 \# _- i       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", . Q. O  E5 ]) w2 H
     SuperscriptBox[: h& I7 _+ R* @1 x# Z
      RowBox[{"(", 8 T, z4 i# X5 h
       RowBox[{+ g& H" J/ q. U  r# b$ n! B6 l
        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
. S7 x4 q7 X7 H     SuperscriptBox[
# {# r' Y  D3 R      RowBox[{"(",
( Z7 a) O  }) C: Y, _6 o6 Z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ) }, i' K: G$ X  c) d( H! i- Q3 v2 |
    ")"}]}]]], "Output",! W4 h! G" Z/ a. }" z$ G
CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
( u0 s( G' q, A  3.5779607413955193`*^9, 3.578012205484375*^9}]
7 R+ }" N2 `2 {}, Open  ]],
  S# Z( Y8 e3 ^! Y0 M0 T, h/ G9 x" S* u$ I: V9 L
Cell[CellGroupData[{" Z) F. A1 r+ e0 E" C* {; O

+ l; U4 C" L- I5 P) ?- [7 N" W- LCell[BoxData[
. }( {0 L. X  f# d  \- o7 K6 r! o9 N RowBox[{"C3", "=", "Ca"}]], "Input",
2 {0 b/ Z( m; h! ]. ^/ @6 p1 D CellChangeTimes->{3.57792064125*^9}],; `/ u. A+ F! C4 L

7 A  }$ i1 l! q- ACell[BoxData[
' N/ B( \6 T; q/ Z0 S- U' L$ b RowBox[{"{",
. N0 Q% \2 h& n: ~9 t  RowBox[{7 d* q) U; J2 O! o+ p0 v
  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
& H2 u. V  ^" w  D9 p, i   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
; d8 G* m# k2 C( W/ I  "}"}]], "Output",  Y* @  g! W' }1 Q
CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9, & T3 x7 H9 U  Q: E* N# [, E1 a& Z
  3.5779607642027593`*^9, 3.5780122103125*^9}]
& h' R2 o/ v- j8 s7 p, L2 _}, Open  ]],
1 p, a9 I0 F8 ?* t, R9 t! u
* t* K! {* T8 b0 S% k& l2 @! qCell[CellGroupData[{! j) k. {2 N: V/ [% p
! r9 f, @" ]; R. y: k
Cell[BoxData[5 q% a9 W  n8 J/ Y; {4 H% F1 j
RowBox[{"u3", "=",
, z  l$ X$ E9 X. u3 J  RowBox[{" |9 }3 I4 e! v5 i9 Q2 B
   RowBox[{"Exp", "[", . d' X# `4 I" ~
    RowBox[{
" Q4 i7 Z+ q# g4 x  J$ B0 h& G$ A     RowBox[{- m7 D7 H7 U3 N0 Q( q4 [& ]; {: L2 M
      RowBox[{"-", & b6 E3 k1 x9 M8 m
       RowBox[{
" ^: O# @: j3 H; N3 p( P        RowBox[{"(",
9 g7 ?% D3 [8 T  f  j: d. g- V         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ) ^9 m! |( _3 v- |9 J- M- ]* ^
        RowBox[{"(", 4 g0 ^- N- K% G& [' }
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],- c6 n) A# {# G1 u0 i5 Q
     "]"}], "/.", "DeltaX"}]}]], "Input",
% A* V+ F8 y# Y$ { CellChangeTimes->{3.57792064921875*^9}],
% D* ]( B( k( |5 d  O! M' X6 M' X0 V4 D, V# Z
Cell[BoxData[
; W$ }- O: i6 m4 g0 \) h SuperscriptBox["\[ExponentialE]",
" l. ?. d* A6 _/ @( U) ]# n& ]  RowBox[{"3.141592653589793`", " ", - r3 I: F5 I% [- D3 b. o
   RowBox[{"(",
$ n! |+ A9 }) {- ~: T1 J  w  E. b    RowBox[{
: n; t0 @( D: \1 m5 a     RowBox[{"-",
5 P% C  ~3 L% M: }      SuperscriptBox[
8 M7 E& C0 E; O9 E' E: G% f       RowBox[{"(", / {/ R1 C0 M7 J* A+ ^
        RowBox[{; _7 S4 y* ^" i/ \) B4 o/ f- R
         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
' J3 F7 E" u# S. ~# z     SuperscriptBox[% v- X' e+ T0 d
      RowBox[{"(", 1 @+ {# p6 k3 w
       RowBox[{
3 o# p. t! K/ f9 J, D        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
) w4 {% a; i. F8 B     SuperscriptBox[3 x9 a3 \  M6 K) g, s
      RowBox[{"(", ( L! f5 r1 V1 d- Q) Y3 r
       RowBox[{) D/ h/ j7 J- {1 B; {' u
        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", " g8 k/ x: }; O1 s# F2 n9 u
     SuperscriptBox[
, a2 L8 F: ?) q% t7 I- s0 l      RowBox[{"(", 8 U7 }  x0 w# ^- R3 Y) y+ o
       RowBox[{
) f9 ?6 o6 n$ s" R$ s4 f        RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
# _* l4 I* U0 {9 J1 m6 O     SuperscriptBox[
6 Y% A' H' Y& @& P8 L6 J) G      RowBox[{"(", 1 M# g4 u  F( F( i8 g4 H+ ?
       RowBox[{
/ [1 r+ `5 c) N" _. Q$ J# N        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", ' b/ X$ P, e% N4 i  \
     SuperscriptBox[
, ]( _! P, t" X7 S      RowBox[{"(",
/ [; l9 ?! X8 E& {       RowBox[{2 B% D3 S, H6 X; j0 J9 r4 O
        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", / u- V4 S0 h: z( b& T/ t5 Q' o
     SuperscriptBox[9 q9 I/ R+ t: X
      RowBox[{"(", 9 e. ?! t3 m4 G8 S; ^  G
       RowBox[{
7 m; \2 U7 x3 F, |$ K: H4 t* |        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
  S9 b& h! U1 j  K( ~# `     SuperscriptBox[" |5 l& n+ E( J1 I1 E
      RowBox[{"(",
$ l4 j5 X6 o; \/ R) i6 n       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
" ]6 I1 B7 N7 Z2 r: A     SuperscriptBox[
& d" T) j7 N2 k5 Z, J      RowBox[{"(", : j6 z1 T( K: x, s) S
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
+ ]* v; G9 v: Y2 h    ")"}]}]]], "Output",( @$ U1 |! \& s1 f& C
CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
, X3 |+ v2 v5 B# p  3.5779607654819613`*^9, 3.578012211515625*^9}]5 z6 }9 x6 l5 c' V
}, Open  ]],
1 O. n% w/ S  {% ?% O3 @3 e" E& ]: t0 Q- A
Cell[CellGroupData[{
/ i) X4 L" ^5 k2 s& j" B6 \9 V( E
' u- @& F. U! I. ^) BCell[BoxData[
/ n# j  a: q; } RowBox[{"C4", "=", "Ca"}]], "Input",
; g8 ~4 G$ W0 M CellChangeTimes->{3.5779207559375*^9}],) @1 `7 r+ p( U2 S0 L. _$ A: |

1 g9 m+ Z; S6 W/ ]+ ]Cell[BoxData[4 {! m* e$ d# s: Q4 c
RowBox[{"{",
( U( b4 W6 j; j  RowBox[{& S' h( l0 `% L
  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", $ r  R* x, Z) B  `, M  V
   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], 0 c" R$ f% H3 ^- y4 V
  "}"}]], "Output",9 e% h9 R: B& w* R4 l! V
CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9, - `* k; p( s& |9 z9 R
  3.5779607861363974`*^9, 3.578012216171875*^9}]5 f7 O$ `- h/ h- P: }! O1 `
}, Open  ]],) R* P, R+ s1 X4 a

$ v/ O# s" C1 x* \, zCell[CellGroupData[{
# h) A' r! k0 u5 b
5 F/ _; ]) k2 ~Cell[BoxData[- R& o, B& T, M9 {
RowBox[{"u4", "=", ' _" h5 n; d! H: m  g4 t
  RowBox[{
- f0 K# |7 _  b- V6 t; f1 |   RowBox[{"Exp", "[",
3 d7 ], R7 p1 S3 u% @4 X    RowBox[{
3 F) O. H9 V( V! o9 U' ]     RowBox[{
2 k9 k7 i: A/ @0 M* x; P      RowBox[{"-",
& _. q0 ~3 K6 K9 C       RowBox[{
0 r6 y5 Z$ D& G. @% V        RowBox[{"(", 8 q0 B9 c; X: T; M+ p7 z
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
: C5 x- D. r8 x$ z2 M) c' X        RowBox[{"(",
4 p1 {' G& Q: J# p/ k& _- R         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
) Z/ j3 ^) R$ k: j     "]"}], "/.", "DeltaX"}]}]], "Input",9 i" ]0 _8 A3 D7 X
CellChangeTimes->{3.57792076325*^9}],
- P! R# Z( T$ v
4 D4 l! w! |9 c7 v: vCell[BoxData[7 ?6 Q" |% b) H% [6 M+ r) p; p' T
SuperscriptBox["\[ExponentialE]", 0 f  H, ~3 a! d  Q2 ?
  RowBox[{"3.141592653589793`", " ", 1 e8 o9 P: G" W5 O) `, e* w' }6 ?
   RowBox[{"(",
% N! I* ^* U% F: `    RowBox[{
0 j7 ]& i* o" ~+ m. e& u) f3 [     RowBox[{"-", 3 S1 E5 O0 a$ a  C
      SuperscriptBox[: t( f) I% c0 w2 Q1 K
       RowBox[{"(", ( @$ [( v8 E8 X1 Z
        RowBox[{* m8 d& ~) ^3 H0 J; b  [
         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
0 r/ R* B( x( D* J: @, E     SuperscriptBox[
7 `6 C* U4 H# U- k* ^9 N      RowBox[{"(",
( }* c6 H; j1 o& U* Q+ E       RowBox[{
) e! l+ m! D' A+ p: h3 p( y        RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", 4 H  @7 @% S1 W/ W) f
     SuperscriptBox[
/ W/ e- I2 e6 W5 J: E2 o0 K# k9 B      RowBox[{"(", 5 `* s6 l$ Y) e2 @- g. j/ B
       RowBox[{
+ G0 ?7 E7 I& L' Z        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", ' y8 }6 E. D2 I1 k, `0 G4 K) c
     SuperscriptBox[7 ?2 m' n- o8 v/ b! ]
      RowBox[{"(", ! R) ]; A; F) c  a6 W
       RowBox[{1 u: E: Y- ^# v- D8 r# ~
        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", 7 z3 A3 c. |: q2 ]& n3 {- ^
     SuperscriptBox[
! t4 D5 x! A3 h/ Q: y) d/ |# F      RowBox[{"(",
0 J2 _& W# d" _) X2 t4 ~       RowBox[{
6 i) U+ l3 k& @4 O. O; S9 q3 }        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 1 u) I; K  L9 e+ C% ~* @/ e
     SuperscriptBox[8 C  y, L$ _: M+ f. M
      RowBox[{"(",
0 l! ~) {/ ~4 A2 k5 p       RowBox[{& U* D) B6 g( U" a, B
        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
/ j" G; e& _" {4 C1 O; c. o4 a     SuperscriptBox[! f4 N7 c8 Q$ C" ~& g* B
      RowBox[{"(", 6 @) i; V& R  `# N; v
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ; Z! H% I. m8 ~& q# I: j
     SuperscriptBox[
2 }& Z0 ]/ E, l. ^: F      RowBox[{"(", " e* v( T7 h8 P3 r* o( I
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
% N9 O2 |+ B% X8 ?( {' e* p     SuperscriptBox[
8 |' d+ R& }/ r" `/ s      RowBox[{"(",
/ ~* v1 p% g" b) T0 R* ^; v, @/ U       RowBox[{% k$ _( `4 ^2 a( w0 k& D( m* y) A* f6 _1 d
        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], 8 X% x& e/ K; y3 P# }4 p
    ")"}]}]]], "Output",6 B; a; S: m% ~
CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
( @1 t1 N7 b4 O+ Y  3.5779607873531995`*^9, 3.5780122169375*^9}]
* {0 d5 X9 U& Q# X6 L9 _# {}, Open  ]],2 n7 l; m6 H& ?  V4 D" Z7 j
0 G( N/ x8 P+ a. @# \4 f
Cell[CellGroupData[{3 k/ z& V# Q/ ]5 b6 e: S. ^

1 c3 O3 E5 I' N" _8 M) ?Cell[BoxData[
, ]$ I2 E/ l' h RowBox[{"C5", "=", "Ca"}]], "Input",) N, j. g1 L4 W+ v7 i. j$ @) k0 \
CellChangeTimes->{3.577920860671875*^9}],
* y: }) Z5 Y! W( j' R8 B' f
+ l+ h& q4 `( w5 m/ qCell[BoxData[
) p  B6 t9 N/ i. N2 B0 \9 C RowBox[{"{",
1 H' i4 M0 X2 N5 F. K  RowBox[{* E% @' z/ {5 p
  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",", : d$ F$ E+ s1 [& V$ r+ ~
   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}], & ~. q& @0 \% |) j# G& Q0 f* m
  "}"}]], "Output",
7 P1 ^2 Y( {4 O  M! y( ]& g CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9, 6 l8 S, h' c$ u
  3.5779608137328453`*^9, 3.5780122209375*^9}]
* c, f7 t$ o0 _; r& m( R4 u}, Open  ]],* j4 p# @; u/ B& j# R! A* z

' h& L' ~( p4 d$ ]: Q. JCell[CellGroupData[{! `" K. d% e3 H# k! a

1 q2 R; Z7 c# X' mCell[BoxData[
4 c: c) o6 Z1 n6 t: ]3 Q% `4 [ RowBox[{"u5", "=",
5 p+ [; \* y  ]3 }7 p! X: K# x  RowBox[{
* t1 R9 B; Y8 S  p- U% r5 J2 X   RowBox[{"Exp", "[", 9 G* \- R' W3 j" s
    RowBox[{) M8 u; h1 o( X
     RowBox[{
5 d- `, G4 @# o, t# k% _6 B      RowBox[{"-",
# X% e' U  m4 X8 N4 K4 Y0 d       RowBox[{) @, C5 a/ L8 q- x7 r. i
        RowBox[{"(",
$ K9 Q8 @5 a- c5 ~         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
! \/ `  z6 x# L0 T1 S; P! r        RowBox[{"(",
; A2 m  h! W5 ?* Z5 u4 s( n         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],* ^4 d8 M2 R# K% _. {  c
     "]"}], "/.", "DeltaX"}]}]], "Input",
! ^: E5 Y& }3 e& I) I CellChangeTimes->{3.577920869375*^9}],1 t% U# a( r" Z9 `  `. J% i3 L

/ y. D) V0 u9 m, e4 QCell[BoxData[9 e% m6 o( h$ t: h, e0 Y1 j6 S
SuperscriptBox["\[ExponentialE]", $ c$ u$ a- t8 R: L2 x0 N
  RowBox[{"3.141592653589793`", " ", , m/ U6 m0 y2 U6 Q0 s: c
   RowBox[{"(", . V9 g- y8 X/ P# X" I
    RowBox[{) z7 s# G- S; H, S4 W- e& L
     RowBox[{"-", 6 }5 I/ k& s/ d% M8 Q
      SuperscriptBox[/ D6 e' u" y( P" S/ Y
       RowBox[{"(",
$ ~& U+ `. ^: b  W+ f        RowBox[{
2 p, L: {9 R3 n         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", " p5 v" X' j3 l! ~
     SuperscriptBox[" f  u$ L" v: o7 v( d+ T" {- A
      RowBox[{"(",
* ], W- _1 Q7 ^5 y$ n" E. p       RowBox[{
2 U) F7 Q. s" u7 U+ a6 O! O        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",   I8 K# Q- U& x. W9 j0 M9 {
     SuperscriptBox[
, w% h! Z  ]5 {8 n/ K4 r4 W. j      RowBox[{"(",
2 o& z) p# j) n# ^       RowBox[{
+ w" X, y) T# p& l7 H) ]        RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", 3 Q' C  V0 _" m- _* r8 n( v7 u
     SuperscriptBox[
3 s3 b" f  `0 S3 i" L5 h) p      RowBox[{"(", ( f. @, v3 ?1 S8 e$ I; h
       RowBox[{4 E8 K! S! m6 P8 c
        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", ! Y- K* O4 V$ h" m
     SuperscriptBox[: d6 d, P. R$ t' x7 L4 `% h2 f
      RowBox[{"(",
1 E1 L4 O  F1 Q% N$ T/ t. y       RowBox[{
" ]( _/ q& l0 ~        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", ! O) d+ {6 [9 D1 `/ e) B9 [
     SuperscriptBox[
. G; V/ p# _/ b1 x" n1 s      RowBox[{"(",
  a- v$ j2 i7 c; `2 O) ]2 t       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
; t  R; R3 l# i. ~8 y     SuperscriptBox[
3 A0 s3 [% p2 P+ u      RowBox[{"(", / k3 O% j0 ]4 d% m+ h4 `0 G
       RowBox[{
" \( K2 r0 ~& Y# A        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 0 T* n7 |6 \( V% {  W4 t
     SuperscriptBox[& G4 H8 m1 {# o( R* d  {
      RowBox[{"(",
* F9 [4 X  H5 O7 F2 u. q# o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
$ [: q# g' s( T6 i) }3 K5 U     SuperscriptBox[; {- y2 @# a4 C$ k( @) x
      RowBox[{"(",
. n9 s4 C. b% F       RowBox[{1 b6 F2 \" {3 m- x
        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],   \3 V# R% V6 V
    ")"}]}]]], "Output",
* V. o/ [# C' ?$ z; [! s3 `+ d CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9, . }/ D! S; u$ O% v0 w1 z
  3.577960815043248*^9, 3.578012221953125*^9}]6 k% K" M1 x& K3 K& r
}, Open  ]],* a! y6 l! p* I6 ]
5 m0 Q  e+ ?& g; J, m* y
Cell[CellGroupData[{. S4 u: e! o* k+ m# Q  ]2 z( k
* J+ P! C9 l, c( d; \6 L
Cell[BoxData[
# F) O8 r3 q4 e6 H' n RowBox[{"C6", "=", "Ca"}]], "Input",( o5 c! |: E7 l% j+ ^! D
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],/ p! L3 T9 L- R9 d, O% {, n

" v7 A) b. H' I6 w" a! O" r6 vCell[BoxData[
" C7 t/ E2 P* h+ e) m RowBox[{"{", / Y% ~+ A# |; r. F2 M0 G
  RowBox[{+ O# s) L, L* y4 L* e5 A/ J" _
  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
) _0 s" w. }! K# ]  R+ x1 R# n   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
& z) s' @$ P0 v/ R+ }. n   "0.494866`"}], "}"}]], "Output",( A! v2 I/ Q* m
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,6 v4 C% W6 Y/ e
   3.5779608373044868`*^9, 3.578012227359375*^9}]
# {8 ]  {$ k/ q* E3 g}, Open  ]],
+ g' U- v( W3 s, h  ?
, f) a& P7 Y: X# C3 P, B7 xCell[CellGroupData[{5 M  s( z5 j  b, A+ a( y

2 d% `, k0 k( }" v8 k5 j5 \Cell[BoxData[3 N- c, i' V5 V2 m' J& ^3 x6 D
RowBox[{"u6", "=", $ s1 Y, ~8 d2 e  U% ~
  RowBox[{3 p  B% }$ t2 t# w8 w. ]
   RowBox[{"Exp", "[", / \" Z0 [6 ]* v4 J- u1 V+ }4 e
    RowBox[{1 z7 o  O; f! _1 b8 Q" K9 }
     RowBox[{! L" a4 R1 D" S& |
      RowBox[{"-", 4 t4 p3 g. c, w+ c) ]" m; s4 l* W0 e2 N
       RowBox[{7 Q  p1 p9 a5 M; e/ t) b" f8 O/ m
        RowBox[{"(",
7 t# D. r; w2 N" @         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
. m; `3 t2 u" N0 o" N# P        RowBox[{"(", ' h$ a* h. x" j4 ^& s& w- z
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],! g& C# d3 T0 N
     "]"}], "/.", "DeltaX"}]}]], "Input",& Y4 t' p4 [% ~! P( ]% \7 E& E2 k
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],: r1 m" E3 A% w9 ]& w

9 @6 t. I% G( L& O0 B; UCell[BoxData[3 r  l3 P# j. y6 m6 f' Q
SuperscriptBox["\[ExponentialE]",
$ v6 Y- n, |+ |% U% q# o  RowBox[{"3.141592653589793`", " ",
) o2 a  @, c4 H$ f% Q2 T( X5 ^   RowBox[{"(",
! ^) T/ S; A  l    RowBox[{" c( _/ F8 }1 \, o8 M5 M
     RowBox[{"-", ! V  j  M) ?  w- j9 c4 Y
      SuperscriptBox[& l" a7 T- o0 a9 P& r& _* K, A6 q
       RowBox[{"(", " b% m- v2 l( ]) R
        RowBox[{* t2 p! `. r' z
         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
3 L) w6 F4 t, U: {     SuperscriptBox[
3 \: l! \4 Q3 v; Z, U, z) l! u      RowBox[{"(", $ P3 O4 y" [  v% N) n
       RowBox[{
4 z) H. b7 n$ Y' v' |% q        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", % J# G4 `0 c! p4 N( n& s/ M
     SuperscriptBox[
* m# [' Q6 D) ^( e4 E      RowBox[{"(",
1 D3 F* P8 c9 P       RowBox[{
% w0 N8 K1 @9 i. a! C        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
9 g+ p# z2 \/ |! ^( W) p     SuperscriptBox[
* I7 X7 Q% K) c" u# X* J' ^) T; `      RowBox[{"(",
" T/ w! @$ v& h! a6 X       RowBox[{
* S( w4 i+ v- ^        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", , E- X& j5 f6 c2 U  S! G
     SuperscriptBox[- f* p. K: l+ ?1 I# h9 ?- }5 _
      RowBox[{"(", & ^* ~; x/ D) [4 p
       RowBox[{
( B% O8 F. j7 i, a9 U! ]        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", % f! @, x1 v8 X9 N% }6 u
     SuperscriptBox[
# _/ d- E0 Z. n4 }! p9 p: l      RowBox[{"(", ! `9 C. Y% L2 b* y* X9 c& M
       RowBox[{+ ~0 S3 O2 c! E" C0 ^9 d' m
        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", % _/ {) P; B+ p& ~
     SuperscriptBox[
: ]; a7 O3 b+ `6 e      RowBox[{"(",
7 o( {+ I4 n4 s( F       RowBox[{
% Z, H" k0 Z4 ~7 a; o        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", 5 H+ n  z' y2 a8 z9 y
     SuperscriptBox[
$ J, B* M- o9 h$ ~      RowBox[{"(",
: E3 F5 y. z- [8 H) r% L+ s       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
/ d4 c$ h( m' e& z; U- B     SuperscriptBox[- F! y4 S0 w. w0 P: q5 |. M. Q
      RowBox[{"(", 9 d: H! G/ j2 X  T7 o2 M# w
       RowBox[{
( r  Q, r% [* F8 S- F4 p8 C) y        RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], 0 z; k' a* d4 e+ X7 M
    ")"}]}]]], "Output",
# E2 Q/ n6 O, s. T CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, , W7 `" w9 K8 s8 f
  3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
# {3 W# W6 k$ L}, Open  ]],9 t+ F: m0 F4 s0 c
2 o2 a  b2 F1 x2 b0 _7 L+ Z( P
Cell[CellGroupData[{8 K/ m+ H$ M8 z; Y8 r  Z
6 h5 f/ B4 j" Y% h
Cell[BoxData[
$ C" x- Z( J" [) ?2 a" S RowBox[{"C7", "=", "Ca"}]], "Input",
$ _+ ]0 P+ w7 q5 W) W" z CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
3 W- F3 `3 v2 `* O' K  3.577921316125*^9}],$ U( ]& p/ @! {9 U7 f8 ~

; C' \& w1 h; ~$ X3 Q2 zCell[BoxData[
" i8 f  H4 G: s7 u1 E( m, y RowBox[{"{",
  P+ I) T+ U+ z) A; j; p2 c  RowBox[{
/ K: z5 K) h, P  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
# @5 ^/ @0 c" ^" c' }   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
8 a' S3 p* w$ j  "}"}]], "Output",
  i; d! B0 S! Y4 r, E7 U+ p* C CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
6 @: @) |' U' G  n; b# N0 W0 g5 E  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]" S  X3 k( S# n8 \8 H4 N
}, Open  ]],& w2 h4 ?* F7 y0 p

2 l2 v4 V) h; y4 W2 R9 @Cell[CellGroupData[{
3 u$ d1 U/ ]/ t' f3 l
* O; f$ D. s$ b0 \4 s; zCell[BoxData[
. x' N' q4 k1 p* F* n& n6 V RowBox[{"u7", "=",
* N1 [( ~$ m7 k: Y; i' ~2 K  RowBox[{
0 D# H% h! c$ z   RowBox[{"Exp", "[", 9 a* ]6 P& R1 ?
    RowBox[{
& G! h; q6 K% p0 y     RowBox[{
# K6 B+ x5 g3 ?3 a$ D. G      RowBox[{"-",
% F8 A1 D/ Q# M# C  @3 v       RowBox[{$ x+ ~, w; t7 o  A# I
        RowBox[{"(",
0 i3 U3 b" t$ O         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
) N' j# v# G6 X" D8 R        RowBox[{"(", & ?1 q/ s  f5 L. d; C. X0 {
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
2 Y- `5 ^9 Z1 S) m     "]"}], "/.", "DeltaX"}]}]], "Input",
9 U: n2 x/ w* h  F; A' R9 z CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, ) l) P% v$ S6 e- q
  3.57792132028125*^9}],5 x0 v; i1 l& V
+ m( t, B9 `3 x$ D' G8 k, }
Cell[BoxData[' F3 i) Y" u5 O& a$ D: w
SuperscriptBox["\[ExponentialE]", 3 ?: c* ]  D0 h! F9 p  p, X7 v
  RowBox[{"3.141592653589793`", " ", * p$ [/ ^, K' H. G# }8 \: R
   RowBox[{"(", ' I) j0 a2 ~+ Y! g6 t6 d
    RowBox[{+ C; L' L7 a: ?
     RowBox[{"-", 5 R2 m0 g% l3 t6 |* C3 w# L' y% K' A
      SuperscriptBox[
/ U2 w! l: W1 d$ x! i; h       RowBox[{"(",
8 K* O  D& l. d4 I        RowBox[{
  `+ i8 \( w1 O) b" p2 D8 C         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 K# }2 X: P% k+ X# v! P
     SuperscriptBox[& @* w6 y4 [. Z
      RowBox[{"(", 6 R1 {) l0 H! a. G0 x
       RowBox[{. s. A2 K8 R6 ?$ o' Z" G
        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
0 R" ?4 c5 _2 r6 p% [8 l     SuperscriptBox[
% B+ A. d" l) \3 |      RowBox[{"(",
5 M$ H& x5 E3 |       RowBox[{% c; q1 i- i  i& f
        RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", # N" }. }: w+ k. |9 l) E# I
     SuperscriptBox[/ ?% X( z. K" n+ S( A
      RowBox[{"(", 6 V9 ~" Q1 o) z' B5 x, r1 g) L) }
       RowBox[{, ~$ \% T$ |2 `5 }$ h
        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", + u4 \. k/ y1 m& o! y" M
     SuperscriptBox[
$ ~/ n' J# x& ~0 d  p      RowBox[{"(", - `: Q) c. ]6 K% Z) _' _+ O2 T
       RowBox[{
' |* d& C6 Q0 _5 U1 m        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-", & V0 ~% c' Q, |
     SuperscriptBox[
# W' p  ^6 a- Z& D: \      RowBox[{"(", : j) K  K" z7 Y& d) n1 J% D' b; K
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", . M$ Y  K1 C# D% \/ S5 q# s
     SuperscriptBox[, H- ~6 i5 ~2 q, L+ T/ K4 }
      RowBox[{"(", " j' `6 M' e0 _4 m
       RowBox[{( W9 W& t9 }* n
        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", $ S' l& [7 n; _! A: y9 T
     SuperscriptBox[* U4 J& p- k6 g% ~
      RowBox[{"(", & J  C, j5 {4 p7 b0 ?
       RowBox[{) h/ @) Q" e( @0 e
        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
# C) {, ?% H7 y; S3 N! P2 E/ p     SuperscriptBox[
  z& s8 \+ i( `      RowBox[{"(", ; e1 h: H4 K) ]
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], + v6 ]( k$ T/ |* \
    ")"}]}]]], "Output",6 w- i; ~" Y8 h" {( a
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,   P  @6 b) U+ S# U5 C2 F! c
  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, / v% n" V+ t# p8 r% T
  3.578012251359375*^9}]
, A, c' `7 T0 w$ f7 a; e}, Open  ]],
4 Q0 g9 u/ ?% Q7 a) Y# T4 o" @0 @/ ?8 X" C
Cell[CellGroupData[{# ?: Z2 R% V2 Y! ~8 C0 j
* K1 V  m& f6 x" E
Cell[BoxData[/ k, _9 h8 i1 z4 Z
RowBox[{"C8", "=", "Ca"}]], "Input",( {) Q* O2 w8 \1 `
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,   G) j+ Z) v. X- U; s
  3.577921316125*^9, 3.57792141421875*^9}],
% W# V8 T4 @2 i" L  [9 D+ T0 l7 L5 l6 k' y6 U, f* ]1 u1 O+ z
Cell[BoxData[
% w1 {& O) z( z+ k+ V7 R RowBox[{"{",
: W5 t! W* D2 Z' y- y, {  RowBox[{# \$ I1 b+ s) C$ p' U4 W
  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", . J* q1 w, J) w7 y  ~8 e5 v
   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}], ! k' E" r- H4 |' N2 B% l: S
  "}"}]], "Output",
* _# S. \6 I$ q+ X( B* n- \ CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 8 L: x" N* a7 a2 m1 J2 w( c+ f' \
  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9, & x! D- m# Y+ a
  3.578012260515625*^9}]
6 `( Z( w- T! ^) E  H+ ~5 d1 Q- w+ A}, Open  ]],
/ O/ e$ b# z$ ?6 D' C4 c6 ~
+ k/ z3 H% ]% o+ wCell[CellGroupData[{
! T- L  n% G; u5 j5 a8 a3 ?
+ L0 c6 T1 z" G9 g- XCell[BoxData[
! s( ]8 F; `* Y; T( J3 z3 r) j0 {% U$ o RowBox[{"u8", "=",
5 }/ m/ p5 m2 J* t& |& o0 J6 E  RowBox[{
% I$ \+ G6 i& K' {8 b& n. `& y7 [. O* A   RowBox[{"Exp", "[", + M& h1 M. Q6 e1 L6 @1 x/ f
    RowBox[{: Q7 i. X% f- u! E8 V
     RowBox[{
' E7 @3 D. [! {      RowBox[{"-", : O) S. A! s- U( j# R# U
       RowBox[{: z+ z/ ~* L0 q
        RowBox[{"(", % m  M- E; E2 W& e+ r
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
& ?! U! V4 b3 d2 k9 k0 [        RowBox[{"(", 5 g& H/ a  k+ ?+ V$ g+ O$ x1 j4 [
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],! A0 P2 B1 Z5 Z" s4 N8 X
     "]"}], "/.", "DeltaX"}]}]], "Input",
3 ]0 c7 n8 d4 f; o CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
/ Q7 P3 e* a7 h$ a2 ^  3.57792132028125*^9, 3.577921416921875*^9}],
: K. S; ]" D" f- H- @9 M+ H+ b5 g' |" P: N0 _7 l4 ]
Cell[BoxData[' [. P9 q- x5 Y4 W2 Z% x
SuperscriptBox["\[ExponentialE]", / o( j8 Q3 L+ ^2 y: L
  RowBox[{"3.141592653589793`", " ", ! I  g' N. C/ P: N1 f
   RowBox[{"(",   {5 {; Z6 z) U/ H' T
    RowBox[{+ H- T9 c9 b; @. f5 W; D# Q
     RowBox[{"-",
( o5 s/ Q5 _( X8 M- A      SuperscriptBox[
& x5 n* ^$ U5 Y. H; u/ }0 {       RowBox[{"(", , X" d- ~% k2 }/ ~- G
        RowBox[{. e& ~& j9 l& M3 k+ l& @; g; H
         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
' K1 x, X8 L4 G8 ?, F, \4 n+ o; D     SuperscriptBox[
5 p) S+ C; N' g# S( R  h      RowBox[{"(",
$ U8 W4 I& {7 X+ l4 K       RowBox[{- S. @( G: v& A: |/ `
        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
" Q7 b3 L( N) a( `/ }4 K/ F/ }     SuperscriptBox[
% [6 \% j9 V, U+ S: q" z      RowBox[{"(", 3 K: l# a- L7 b2 d* D
       RowBox[{# K' Z% D8 U: k: y7 `# T
        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", $ O, ^5 G5 ~& h* h% ~
     SuperscriptBox[
  t" B5 F# M. p* D9 h      RowBox[{"(", 9 F# E1 F: \( Z' Q2 p8 D
       RowBox[{
  m. W+ _/ s* X# i4 ?* h        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-", & ^9 D6 P, J9 r$ H, s% a- g; G
     SuperscriptBox[
) E; l" S6 i. \: {5 y: D$ Q      RowBox[{"(",
! S: E  S: w5 q* a       RowBox[{$ d* X; a6 ^2 i  W2 B+ G8 X' d
        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
3 }  \' ^3 a$ [     SuperscriptBox[
, q2 s, g+ L2 \: V4 `$ ]      RowBox[{"(", , T( X, o$ f3 Q. l' A' Q! c
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
, v1 E, d6 r( L2 `7 S; v2 M" ~     SuperscriptBox[
3 l, A( A4 U7 D4 m! f      RowBox[{"(",
, a' y" B6 E/ G, r; ]* V       RowBox[{
0 N2 Q; E5 k- @) A        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
# o7 D2 n9 s( e% k9 Y+ n+ X* J$ C     SuperscriptBox[
  s7 E* }2 H+ {- _! K      RowBox[{"(", 2 \( l1 [7 d" a+ B$ T7 [9 w8 D7 u
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 4 u: D' S# Z! P8 l
     SuperscriptBox[0 G% m1 d8 k6 n: o0 B$ [3 u* F
      RowBox[{"(", ; ^, [& O# w1 k: O3 E; C$ s
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 7 I1 p" I' f8 R3 R& y0 K
    ")"}]}]]], "Output",
4 {5 `8 Q, L; \: C CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
7 p- k9 A2 ], E6 _6 R; m  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9, & X3 ?+ G8 i; c1 z" |
  3.5779608945565863`*^9, 3.57801226165625*^9}]. c( l/ J% L4 f% f) l$ Q- h3 ]
}, Open  ]],8 y3 t( s* J) o/ m' @; h8 A

. [7 b# }# H7 k5 k( GCell[CellGroupData[{. \: G6 q* C( z& Z

! q/ c; X4 B8 ]3 G1 h) i' {4 wCell[BoxData[! A. H) ^/ j# P( ]
RowBox[{"C9", "=", "Ca"}]], "Input",6 @& X* O4 ^( u0 A
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 9 q/ F, Y; Z, \3 L7 e
  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],/ K, v# y( I4 r& M( v4 l3 R4 k. u

  k$ J3 s% Z9 L. D) mCell[BoxData[) a% _; Z* M' F
RowBox[{"{",
3 @- A; a3 T3 ?7 z  RowBox[{
( O( Q4 |0 f7 G+ [( k3 g2 g: ]4 |  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
/ O" i' j' X: l* u" G   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
1 |+ ?# w( x) i) {& v  Y2 o3 x  "}"}]], "Output",
7 j$ k' Z0 {# V9 q$ l; T0 m CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 0 p7 u! f+ h% ]  P7 x0 {
  3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, 1 ^# z: n: w1 K0 C( O
  3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, " T/ q7 ~1 J8 g5 ~2 |/ w% k
  3.578012268234375*^9}]
7 n6 g% `' s& o, F( f5 u}, Open  ]],
+ s& P# }7 A& N/ i) z8 \: P) U; ~! r- B! B" t$ ?! x" h6 q
Cell[CellGroupData[{
# f) {9 X2 H* a" |& f2 M3 X
6 a$ n8 _& o( W* [/ [) `5 kCell[BoxData[
% u+ ^. T( v6 M9 J RowBox[{"u9", "=",
' W/ a  R$ s  u# b3 X  RowBox[{
5 Q% D0 p! m2 f   RowBox[{"Exp", "[",
9 F6 J6 w* G+ b" p8 m: |    RowBox[{
% U' R) t* n, s" g. D  a     RowBox[{4 Y- N/ \0 i' R, @5 e9 [7 M
      RowBox[{"-",
5 y' w3 P' r0 |* y) [( n2 @       RowBox[{( w7 B8 a3 U' k& n
        RowBox[{"(",
# L: g1 B1 ~3 R. K' n: r         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
+ H" i6 M2 |( w5 S: E% S) U$ ~# v  P        RowBox[{"(",
7 W3 {+ q) T1 S0 X" f9 s+ ?         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
6 g5 Q8 D, Z: M3 Z2 v7 k+ U# z     "]"}], "/.", "DeltaX"}]}]], "Input",
; L! o: M# {/ e- V+ `% r" v1 [3 }; n CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 5 T' n. H( `; K/ `, Y
  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],3 i( n' T, X, z2 S; s+ n

* v+ Z( {2 g! K" o& K. z) U) SCell[BoxData[( H7 ~) q/ o3 I8 ?% {9 t: o
SuperscriptBox["\[ExponentialE]", ! ]4 H5 S& k2 V% W: H
  RowBox[{"3.141592653589793`", " ",
! W- k# [: v' H  W* U   RowBox[{"(",
  S2 r; I' W, U7 J0 O# W5 c/ `% \    RowBox[{
% Y0 {0 Q! w- F2 G" @     RowBox[{"-", ! B' a  X. a. j/ Z
      SuperscriptBox[+ j7 O1 v6 B9 }
       RowBox[{"(", * H' m& h2 Q% a; l
        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
  K: u+ k5 E1 t. K; f7 X     SuperscriptBox[6 ~9 O/ K) x0 i" q% [  p
      RowBox[{"(", : e5 R* u/ L- S4 L8 R
       RowBox[{8 B. `" |! v9 b% d9 g9 ~+ L& |" Z1 l
        RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
2 q6 E7 t0 T, }9 R( {     SuperscriptBox[: W/ h, l7 z; X% z! X
      RowBox[{"(",
: f+ a- w/ `' {- t       RowBox[{
7 w) W5 z  ^3 m* L9 @5 Q: C        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
  T3 T% f6 i1 M6 ?     SuperscriptBox[+ V$ B2 t* w1 I  l$ t, f
      RowBox[{"(",
, l' j$ V+ }+ F8 x       RowBox[{& M9 L5 L$ a8 s
        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
; k4 _& q5 t9 k6 v% \- h) X     SuperscriptBox[
2 g( S! g0 P+ [) `5 W      RowBox[{"(",
% r& z% m- E6 w+ X6 {       RowBox[{
: ^; }, F' j* _        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", + p# |- K8 K+ i% r
     SuperscriptBox[
6 r9 Q& o2 l: y      RowBox[{"(", + y; _" t1 r% B+ Y
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
4 j$ F% H, Y- J/ f2 ?5 N$ u     SuperscriptBox[
. O6 n1 |" e. [      RowBox[{"(", 3 a2 @( i" ^7 K
       RowBox[{
2 ~2 ]! Q3 W7 }9 W) b        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
. [# s/ ]5 i2 N5 f9 p     SuperscriptBox[2 O* I( v, O9 A) W
      RowBox[{"(",
4 ~1 z% z/ P6 p       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! B/ E8 F4 A" c' U. B
     SuperscriptBox[6 C% F  w" g- y' i) W
      RowBox[{"(", ( `( Q. f7 x% s0 h6 s8 _  T
       RowBox[{
3 Q8 y( U+ R4 E( N7 s7 g        RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], . \% e7 p# |- F
    ")"}]}]]], "Output",! g: O' Y) ^& |1 P/ k- J
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, ) O* G* ~- C4 N& w" h. |
  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
$ N/ Z# w/ G# Z; v  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, ' T$ c( K$ q" H+ y4 z) J* {* b
  3.577961530421959*^9, 3.578012269125*^9}]
) s* R  n  [4 N! M}, Open  ]],
. X9 N$ L7 W" a9 X; d( b: k% w$ X. E- ?/ g  q) r" N6 H  Y% ?; N; r
Cell[CellGroupData[{
3 `! l8 H; w  J+ t. J* ^! I0 [( O0 C- j, `: Y
Cell[BoxData[{
+ r( J2 g: F6 D' A& M RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
# e$ [2 v# ~& q/ L' u- b4 @ RowBox[{"u10", "=", + o- R5 y1 V' I! X
  RowBox[{
2 u( [+ ^( b. x   RowBox[{"Exp", "[", 3 _4 k1 D/ R+ _* }/ ~9 l: M8 }
    RowBox[{3 ]# |7 P) A6 W! N3 ~
     RowBox[{
; G: \2 C8 O. z1 Z2 a* x      RowBox[{"-", - |( R8 Y* z( @6 O
       RowBox[{8 M; D2 D; \) w7 B) h, D0 n) P
        RowBox[{"(",
5 K& x" |. a+ S8 W         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
0 w& ^. `8 X+ s  w* y! L$ F+ F        RowBox[{"(",   E  T+ ^1 [" V
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],' \* d: w8 B+ _  }
     "]"}], "/.", "DeltaX"}]}]}], "Input",* P4 V, t( {4 D
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],' f, a& n' Q; ^

  k3 M: T6 Y8 F" j# ]: u$ eCell[BoxData[( X. K  w) ^* n3 B) a6 I
RowBox[{"{", - B- ~/ E, J: ~# T
  RowBox[{
; i! e! h- ^6 z8 R8 a- Y  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", 4 U* X0 k( q% @2 k8 t& z6 z
   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
# n; X" e5 q3 e  U: S CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],7 @+ x- S& b% R5 b4 \

, d' X* U# W8 A, T0 gCell[BoxData[% H: Y, w1 o' T- C
SuperscriptBox["\[ExponentialE]",
* \+ W/ y- v4 W- ^  RowBox[{"3.141592653589793`", " ",
+ }" ~+ W% q9 U& R   RowBox[{"(",
% u* r, b1 j, g8 \* v5 A    RowBox[{
% ~8 N* w% I% }; f     RowBox[{"-", 9 m7 i8 x" I0 |( w4 N! l* j0 I) z  O
      SuperscriptBox[# Q" N# {5 f) S6 A& T) N
       RowBox[{"(", 0 Z# R. d& t% K: B. D4 n9 X' }
        RowBox[{# @: c) O& X7 I/ B( O+ }
         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", % w1 o! ~( u9 Y5 B1 L9 j
     SuperscriptBox[
0 }% B: a  u* `      RowBox[{"(",
- F) C* ?( e6 S8 [       RowBox[{
: ?4 e& p& S- J5 m; w: K: Z        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", ( J+ Z% l/ ^! T  U% {3 z1 X  F
     SuperscriptBox[2 ?; S! a- H. B
      RowBox[{"(",
. j. D8 a3 f$ i5 |3 C; q       RowBox[{4 K. r7 R: j, Y* C6 `5 P' ]
        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", - H( j2 k" Z( R' e, M
     SuperscriptBox[% _+ J( d- W2 ?. U4 H
      RowBox[{"(",
% l" t  b% y( s+ R3 I       RowBox[{
2 ^# ?0 s: O4 }. w, z5 G        RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", : _9 ^4 t2 s2 h
     SuperscriptBox[
2 ~0 V9 u$ }  r! j& o: a      RowBox[{"(",
  j5 q/ _5 c) X: t       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
6 w' m) ?% q  ^5 U     SuperscriptBox[
9 Y4 N: p" y' g2 N% T# E# L/ o      RowBox[{"(", ' h; P1 ?) r# \  S, ^6 D
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 3 X5 e8 c( C, m8 v
     SuperscriptBox[
5 f+ S$ @( B  D& S6 G1 M$ U      RowBox[{"(", - Y% N9 t* i6 u0 W9 P5 P- G
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
! D$ `3 p1 L* z, L     SuperscriptBox[
0 r" R2 X( t# @& Y      RowBox[{"(",
( H% L. V+ h+ {- X' h+ ~       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
& d% ^( W" ^- a' p1 W( M1 q2 W     SuperscriptBox[" B, }9 n+ z0 E8 Z
      RowBox[{"(", 4 z6 s, A/ w3 g7 T
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], : T' N, s6 K! @5 C
    ")"}]}]]], "Output",) O, u, ]2 G: l( h. k* ?3 j
CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
8 a& t9 h7 a' e: }" p3 n% u0 f}, Open  ]],2 S) ^' S1 I4 L; r

+ b$ t8 l3 ]7 U/ E+ [Cell[CellGroupData[{
# L4 A. S* e1 O3 G9 I; e9 j5 w/ A' g# k. y8 y
Cell[BoxData[{  N( Y- Q! I3 k- M( U
RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
7 T9 L: U! x# a2 d" D! K8 u RowBox[{"u11", "=", . p) x9 w5 o; w$ j4 K
  RowBox[{# n8 E5 _; g8 l* G* ^* n
   RowBox[{"Exp", "[",
: b3 a5 D2 o8 o( J7 w" |5 }$ B8 Y    RowBox[{
; z6 V! C5 [9 F* Z7 q     RowBox[{
3 M% }# n9 U' P% b3 V8 o3 W5 _      RowBox[{"-", 5 @6 W( w# l# S; }
       RowBox[{
& t& }7 j1 x5 M4 y1 I5 w1 K        RowBox[{"(", / v  O: r4 A( B8 R! a4 A% i
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ) H! J( h& P6 \/ u  I
        RowBox[{"(", " S0 W- S# y' s6 L
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
* A. Y+ I1 U' J     "]"}], "/.", "DeltaX"}]}]}], "Input",( q, t6 ^8 D) Y" V6 R) K) L) ?5 |
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {/ [- n# t( g5 A/ s+ S- d% j. r
  3.57796154237158*^9, 3.5779615434011817`*^9}}],% i' T# V5 a$ F0 O2 ^2 v) M

3 C: q- C7 b; F+ v1 o4 {4 |  |* UCell[BoxData[
- x3 d7 i3 p5 A& g1 _" r RowBox[{"{",
/ j6 m7 U( k5 R: H; c' Z  RowBox[{
6 i" k0 F+ @% v3 Y6 }  J  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", $ {4 Z6 E3 y0 n/ a- M
   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
$ E0 d& A( c. @" g% q* }  "}"}]], "Output",5 P! W# c" S7 q$ T/ |. v
CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, " V; @. K* K  n% D
  3.57801228203125*^9}],
- `# z" K7 t& K/ X+ O2 U+ G. Y: p% p0 f, ]2 v, C# b4 i
Cell[BoxData[
: c# z4 R4 d: y' o2 H: L5 O SuperscriptBox["\[ExponentialE]",
: M) @1 o! `2 |  j: P; T! u0 D  RowBox[{"3.141592653589793`", " ",
$ W& R# t3 h$ y0 k   RowBox[{"(",   X1 c8 X; A" b* o, Y  r" L
    RowBox[{4 i% U) Y- n/ _
     RowBox[{"-", . v- e4 O  v$ M- [0 G
      SuperscriptBox[
; n4 H' u, j; y0 j. D+ }9 ^% O       RowBox[{"(",
3 n# ~9 \/ c! u9 I        RowBox[{
( o* y% S" i" E- O8 Y# j! r/ i. n         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", * d7 V9 R; K- p/ F5 d4 y3 [7 E
     SuperscriptBox[1 O% t$ G& ]+ t. c7 r& {
      RowBox[{"(",
4 h7 l- q! r. G) v/ V       RowBox[{
- o) b. N, L  W. _. l+ N. X- \- ?. V. R        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", 5 j" n( L" S$ e: a5 A  D
     SuperscriptBox[
& j" a0 _. r. K( L. M! I      RowBox[{"(",
2 E& {+ n0 H6 S% {6 Q       RowBox[{; ^( H; b- y! @8 {
        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
1 d2 b, e0 ]1 s- x* u( Z! k     SuperscriptBox[! F1 _1 {3 q+ S1 U4 n4 T6 z
      RowBox[{"(",
  S& q- ?# e& p! A( p       RowBox[{
; N+ D2 R0 ?! @        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", " Q7 Q: w$ U; b2 i
     SuperscriptBox[
+ D" m0 T9 f8 m5 m, d      RowBox[{"(",
% R6 P/ n3 B1 _: p+ c       RowBox[{
$ E9 N5 i3 M! `) z        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", : t& Y- @3 X* n4 U' h4 ]
     SuperscriptBox[' Y% D: J( M6 s0 j2 P+ Z
      RowBox[{"(", * O) ]5 D' y5 o. W+ [- g
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
8 H; K% v' m/ Y# i% b$ N     SuperscriptBox[" h! s! W+ [: @+ s/ B
      RowBox[{"(",
4 n2 i/ C* ?8 P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
' H9 j- A1 B/ l$ l7 @% R2 e     SuperscriptBox[
$ ~; M! u( e8 b/ m" ]4 C      RowBox[{"(",
/ h# c8 ?% s. P! `       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", , `. ]- R) e' G$ f
     SuperscriptBox[! f: x7 S' S) K
      RowBox[{"(", 1 p9 \* q* T. U# U
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], & o# t; v" b/ Q1 ~; Z! Z
    ")"}]}]]], "Output",
  v  v& Z3 C6 k$ r CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
1 n5 Q8 R! `+ f/ N5 D8 ~& e' i  3.57801228203125*^9}]# @# B3 B- w- }3 {+ V
}, Open  ]],
# g0 y0 Y  f4 j2 Z, ~1 w
7 O- V7 ^7 E, W3 I. f; qCell[CellGroupData[{
) H( o( Q8 L/ |/ u! D( C/ x9 d5 R1 m* z" J/ X, E+ D
Cell[BoxData[{% m) U' M9 r' T, ?: i
RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
" }0 S" k6 L, C* n0 { RowBox[{"u12", "=",
" ?* V6 A  b2 x1 }' r  RowBox[{- z  l, ^: z/ [
   RowBox[{"Exp", "[",
3 u$ i. j4 c. R6 b" W* Y    RowBox[{
4 i/ n: h. R4 Z: _     RowBox[{
) ?8 I* [* w- |8 M/ d( M: o      RowBox[{"-", ; {) s3 V, ]2 G! z, N5 ~
       RowBox[{4 X2 d# D0 m' M' ^- ]* ^" @
        RowBox[{"(", ! J% T2 e8 N  I# Z/ Y
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 6 r; _% P$ b' ?- [
        RowBox[{"(",
+ R+ K9 T4 I, ?4 Y: u5 l, I( {$ r         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
* g% x) k5 l' V5 m- V5 B. ?8 w4 f     "]"}], "/.", "DeltaX"}]}]}], "Input",  p! |7 h+ Z7 l1 E
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
& X, u0 J8 F# j! v% N* T; k  3.57796154237158*^9, 3.5779615576284065`*^9}}],: q  N6 n4 M3 h/ }2 o. Z
1 Z+ t4 K9 t! ?- `
Cell[BoxData[. [' [, L" ]: p# f+ t2 J# Z
RowBox[{"{",
# w. |* b/ x" J6 ^! l% ]# l( M  RowBox[{
% p# G6 H, y" z+ M  "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
' d- G7 ?9 ]. B( w   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
* ?2 K( H. K; ]  g. Y+ s  "}"}]], "Output",
5 I0 l6 x4 h+ W' W8 x. n. r CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],
, l1 U$ c4 X$ c: b; c' }1 b; G- W4 v# C( e& L8 T( R
Cell[BoxData[0 N$ D/ M) [5 Z) Z2 P
SuperscriptBox["\[ExponentialE]",
  s6 W4 h8 i- m: M& G. h  RowBox[{"3.141592653589793`", " ", 1 N" o! F7 n. `+ h' ]- v
   RowBox[{"(",
$ Z6 s0 v$ N$ Z7 e% k4 \    RowBox[{& a& m. r% U7 `8 N$ x2 }: i3 E
     RowBox[{"-", 7 B/ @( e' f: v7 M" p
      SuperscriptBox[% \1 r5 K9 K! D- i; `- \
       RowBox[{"(", 0 R; R  r  t* M
        RowBox[{
8 R3 \3 d; w0 s/ Q         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 g9 v0 w; {; J- g+ F0 }
     SuperscriptBox[& Y$ z' Q! B9 ^" D
      RowBox[{"(",
0 H! q& X6 k# `9 A, c% @# d       RowBox[{9 R9 S: _( W& }; r9 d1 H  h9 }
        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
, @. b- j/ j  w; W0 D0 Q     SuperscriptBox[& n, f/ }7 e. N+ r, V- ]
      RowBox[{"(",
" O2 M" M( G6 n# ~       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", & k# n$ ?8 B  A$ r
     SuperscriptBox[
3 J+ t: n: D8 ~2 U7 n$ w# ~4 D      RowBox[{"(", " e. H1 R8 g: l0 x% u
       RowBox[{% S2 y% j: T+ L9 q& F
        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
1 i( i  F& O6 }, g) s8 [     SuperscriptBox[9 n8 j# h$ W0 h, O
      RowBox[{"(",
% J' c# D9 T& E% O9 z: p       RowBox[{
  t8 P8 i! Z' h0 Q5 N: g& ]4 _4 `        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
" {4 U2 e* @& m- P     SuperscriptBox[2 p& `+ l' z( \& X( l6 R
      RowBox[{"(",
! {+ \* N1 L7 Y' R7 i1 t       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", * H: r2 G  ^& i) J; n
     SuperscriptBox[
/ {* D9 W6 i0 a3 a      RowBox[{"(",
" F2 l$ K0 F5 R/ V       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 6 E4 R5 t4 F( W7 e
     SuperscriptBox[% m! [( b- d% y  t( J3 m
      RowBox[{"(",
5 C4 o$ M; Z9 l- J9 x, H       RowBox[{
) {0 }) K+ H! l% K9 l) ]        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", ) D5 T$ D; t9 T. b% M& D
     SuperscriptBox[" U4 x  S2 S/ o$ L* {# T/ K3 ]
      RowBox[{"(",
& O7 G+ }8 z3 L; c. m       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
) D: {! F( r( M1 u! e+ A    ")"}]}]]], "Output",
6 e' p! P) t( l' G! I CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]1 a& H7 C; j9 \' `
}, Open  ]],5 m' M. I! W) t# D
; y9 q# p* r; u0 @1 x
Cell[CellGroupData[{- y( x  X8 a2 Y/ w: q( c; k' r/ i9 C

( S& r. L6 e5 m$ S2 ], w. ?6 GCell[BoxData[{- I1 o/ v* m; X) f7 j# T1 c$ X6 A
RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
$ v. d; W5 z4 u) B: n RowBox[{"u13", "=",
2 R: x: j( k) ?3 s" `# {  RowBox[{, F- `0 l( H# ?( Q9 [% T
   RowBox[{"Exp", "[", 7 V1 |8 @/ N( A: s
    RowBox[{$ n& o  B  d8 K; e
     RowBox[{
% e' e6 O! L4 T, |, N! f      RowBox[{"-", ; Y5 m' ?. R8 F
       RowBox[{
2 _7 m/ s% G* {5 F        RowBox[{"(", % }( [/ L  x) J6 b, H' O
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ' @$ f9 U1 R1 O! i# h
        RowBox[{"(", 3 A) D- _* j+ d* M  G
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
* n/ h' J& A. P+ Z0 B* m+ D     "]"}], "/.", "DeltaX"}]}]}], "Input",  D$ |& t  i2 {  C- Q
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {. H" j+ X7 B) w7 I  E+ a( P
  3.57796154237158*^9, 3.5779615599684105`*^9}}],: b. ]9 D9 g! }" Q: L; G: W
- ?' \, X* I/ a' M3 b6 M% O( J
Cell[BoxData[. b) P1 d1 H1 H& c, b  A% V- G  A
RowBox[{"{", % }! s" v1 S! c. f
  RowBox[{
6 e$ R" i1 d1 u2 P  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
) k( `: O. h8 _; S- {1 o9 z   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}], ; r/ p3 u) o5 b+ N2 R8 W- X/ q
  "}"}]], "Output",
1 @! F7 ^/ c: ] CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
, J6 P+ K/ T9 c( F
+ J! Q; a$ \# G  kCell[BoxData[/ \+ P+ r. j+ n8 V1 l9 }8 F  d
SuperscriptBox["\[ExponentialE]", 6 U# n9 f: N7 R. {* k+ v7 e
  RowBox[{"3.141592653589793`", " ", * d8 B( S9 _) O$ y: A
   RowBox[{"(",
$ L6 F" @8 E9 n0 [5 m1 s  _: O    RowBox[{  Y) R, b5 G# m' C
     RowBox[{"-",
1 [( m& b$ s: S' |( w      SuperscriptBox[
! [9 U' Z7 n2 H6 q       RowBox[{"(",
  H$ y# u& D2 d3 c0 n" ?! z        RowBox[{+ {0 e3 g/ F2 |& c0 Z; B8 ]$ T; D/ C
         RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
/ P, G1 R6 v' _. i; O- j     SuperscriptBox[1 R9 M3 W. g. i! v
      RowBox[{"(", , X4 |! A& [$ t% F2 d
       RowBox[{
3 D% x+ X& W" A        RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", # ?$ H; J/ E1 |, ~
     SuperscriptBox[
" V9 H2 X% s8 L8 F& S! c      RowBox[{"(", 2 ?/ a8 |& {. k) S+ f" B; y8 h
       RowBox[{& @& n! c; E; E& I  p
        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
( L, |+ p" f& [2 ]     SuperscriptBox[; z1 }! F6 \2 H+ J
      RowBox[{"(", 8 O- }$ G: V) w5 `7 D- f6 N
       RowBox[{0 e+ g' _9 D, f; {3 l8 z( ]9 v4 U
        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", , g2 N3 i: _/ w3 K- t
     SuperscriptBox[
6 c3 |/ `6 I- g. P2 Y2 [/ G      RowBox[{"(", ; l0 I$ o2 C( G3 @
       RowBox[{
  R% q5 A, Z2 v+ T7 W+ t        RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
9 `8 Y  _' h0 H  D; i     SuperscriptBox[# Q8 [& p$ I% E4 L2 M$ S3 P
      RowBox[{"(",
  D2 d( P; I5 ^+ w* l       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", * J( |) e& H/ x7 d1 A& A. O8 x5 R
     SuperscriptBox[5 f* y- N3 {& W3 Q
      RowBox[{"(", 5 o% n* e" M% l$ L4 P( k5 [
       RowBox[{
# x3 G. H7 A* l- B        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
/ M5 D* X4 \. x4 G! g     SuperscriptBox[7 u3 s$ G# j: |0 Z9 z8 s2 \+ W
      RowBox[{"(", 2 R4 z* _' s9 B
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
' U  L3 J) q# Q8 f     SuperscriptBox[* g0 W, i$ a. k6 S8 f  Z
      RowBox[{"(",
# M' F' U+ u! g5 p  ?" {2 Z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
% j) @) f4 D4 `' B$ J; i    ")"}]}]]], "Output",
2 {0 L; F* o. U- w1 s CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]4 _% O$ Z0 W7 {* g3 A1 H' ^9 n8 i1 p* K
}, Open  ]],1 r" X- L2 B* |7 I
6 r/ Z2 I' ~! b: X& A
Cell[CellGroupData[{
# w9 K) w3 _1 s# g* @/ s2 d) b; [: c' c  u* U# m2 `1 b- u
Cell[BoxData[{( N2 g8 F) o; D; b
RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
/ I* \* j" V1 p+ I RowBox[{"u14", "=", 2 s# T  }( Y( I2 n
  RowBox[{6 ]1 j- ?3 r. I$ z* e
   RowBox[{"Exp", "[",
3 m5 m* B9 J9 ?2 I' p0 V7 ~    RowBox[{3 ^' i# F, w$ o
     RowBox[{2 w2 |2 Z$ q- y) I5 X  ~. O* c- Q
      RowBox[{"-",
1 G7 X' G" X0 a( r5 c       RowBox[{* o' K! r# \3 ]* u9 h* X
        RowBox[{"(",
- q5 U0 z: ?: G- N, n% q         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
; j. b- x! ~) [; V& u. v6 {# `, \4 K- ~        RowBox[{"(",
! l5 p( k0 I) T" X8 A/ ?2 u1 N1 |% T         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
3 S4 w# ^, s' w& F( l" ^4 l     "]"}], "/.", "DeltaX"}]}]}], "Input",
9 c! I; }* ]# D7 _% i; M CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {( e) B- Z2 h9 U! v
  3.57796154237158*^9, 3.5779615663176217`*^9}}],
* |/ F/ D; j4 s& n& h9 T/ N) t! T5 U1 i
Cell[BoxData[
" T& B. M5 x+ m% l RowBox[{"{", / G" U) W' R+ i4 G3 t1 |9 ^7 n' A
  RowBox[{
8 J& U6 D! ~6 l' r  V9 r, P0 t  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
# G  r+ P. Q' d$ [# s1 @   "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
& m  H  B$ u0 s. o  u9 t* e0 A  "}"}]], "Output",
6 ?& }  C" z1 \+ n' N3 x( e CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],
/ @5 o; Q- j, O8 \. O. T6 n7 n0 t5 Z, \. Y
Cell[BoxData[  U: d& m5 [3 z! \6 q- L' X
SuperscriptBox["\[ExponentialE]", 4 R6 N* R8 X1 E
  RowBox[{"3.141592653589793`", " ", 8 P5 C% p/ r2 w8 @2 Y1 P
   RowBox[{"(",
2 Q8 t% B: _1 Q. K& F  m  F/ s& o1 r    RowBox[{7 z3 H; i( y2 L5 Q8 L
     RowBox[{"-", % |% j' o3 Z& ~" u! [9 Q5 ^
      SuperscriptBox[/ l- `1 \# X5 w
       RowBox[{"(",
! Y( W# A# H# v. `8 P7 H: h        RowBox[{
  ]7 x: v2 k  [* K         RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
% n( `( U7 ^* ~6 q' F" \% ~     SuperscriptBox[/ |* Y9 |# T1 x- c2 g
      RowBox[{"(", ) p/ b1 T; w6 }
       RowBox[{/ X1 a% U& e: X& x
        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", . a- X8 i: {" i( L7 f
     SuperscriptBox[9 n5 T/ K) h. ?( R6 `4 r/ c3 D
      RowBox[{"(", 5 K; c5 c+ ~  j5 F4 P
       RowBox[{$ J  w3 k# o7 c  y* X* p) H
        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
3 O8 b1 w8 z" Y! v     SuperscriptBox[# G* f- [$ a. M' A1 C
      RowBox[{"(",
/ b- Q% t/ K/ ]  f$ W       RowBox[{& o0 X7 {+ i% ^
        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", 2 C6 {2 I7 J. b: X& t& `
     SuperscriptBox[
: d4 P; _+ F, N1 i, e+ V) O" M      RowBox[{"(", 9 I$ t+ {# z2 f6 {
       RowBox[{9 {: p3 {$ E+ W8 E( U3 j3 {
        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", ; o3 U& z) S! H$ k) K
     SuperscriptBox[
8 K- J: Z+ p& x" P+ S& I  O& h# Y. q      RowBox[{"(", 5 e# n1 |: U, ^9 Y% ?  _$ l
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
& I2 I: W' t/ b     SuperscriptBox[
) C4 a0 [* N: O# }      RowBox[{"(", ! V( [# p3 s- D" y; p6 \( d) c
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
1 m# h7 S2 S! L+ O$ o     SuperscriptBox[
$ C& S% d; U- C2 n0 k0 y8 |      RowBox[{"(",
: u. p+ \# H2 X& W( j: ]  D, ]8 O       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
& T$ @. q1 ]1 h" ^% i; c9 M' L     SuperscriptBox[# ]/ f2 [3 p4 g/ L/ e0 R
      RowBox[{"(", 9 C# M/ ?7 D( e: q0 a- u
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
5 L: P! Y1 I2 N8 o& l    ")"}]}]]], "Output",
0 L* i; _3 m: K7 Y! H CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
: A( l. _7 o, P}, Open  ]],
( {  X( g# S0 J
* L* b. A* D" Q% Z/ BCell[CellGroupData[{0 e6 L8 {3 L- ?* s
$ a2 K$ b/ i* }4 ~8 h6 \: J  W
Cell[BoxData[{% v* S1 \- O8 C* _4 u
RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]", 1 C' @' j* }) l# ~! I/ \" h" Z
RowBox[{"u15", "=",
$ C7 Y9 x% p: }+ E4 W4 A  RowBox[{, l9 a/ U  W; W" a* O$ C2 p6 d
   RowBox[{"Exp", "[", 7 [$ V# a8 k2 g5 K2 M/ G
    RowBox[{" g1 N6 E: r7 X
     RowBox[{& u; r2 b4 l! f  O' B* c# |+ \. s
      RowBox[{"-", 8 j! I. \; _( c9 R/ p! M
       RowBox[{
! d# y* L2 k! |9 E: ^        RowBox[{"(",
9 R& c+ q4 d0 o         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", , x! C; j( q% `4 ?3 P" y
        RowBox[{"(",
$ O" x2 b9 w, Z8 C$ F5 B         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],# f2 Q* m% a5 ]! D: U5 x
     "]"}], "/.", "DeltaX"}]}]}], "Input",
& J" x. X6 G: |$ u CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
" Q" E, U" |" c+ h+ W& }) j6 ]4 L5 f  3.57796154237158*^9, 3.57796157098203*^9}}],
2 h/ y$ q7 W/ p6 y6 ]
( c5 d% h+ U% y. z* TCell[BoxData[( ~$ V9 U8 F( o) ~
RowBox[{"{",
. i7 u2 P7 W% W/ Q' c7 {. e- ~5 y  RowBox[{
( J, z; o! Z. W  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
/ r( G2 h- V* J( @   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}], / y3 n" G/ V- |: q
  "}"}]], "Output",
: I2 w) P" {3 e) _, d, V CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
& g! u* }+ N# E* B( y& k; `* _; S6 @, s6 R. x' h% d6 \
Cell[BoxData[
" b- c$ c3 N+ g. R SuperscriptBox["\[ExponentialE]",
6 R, X& N7 F5 z, R  RowBox[{"3.141592653589793`", " ", 0 w2 ~8 Z: P7 h
   RowBox[{"(", ! F/ a6 p5 j8 ?2 w5 ~$ _5 }) b8 T  G+ o5 A
    RowBox[{: {7 D6 Z& i/ h1 v
     RowBox[{"-",
6 ]5 \* M% O8 p0 X4 P      SuperscriptBox[
& f- q- r* }! H  Z9 n0 E: {       RowBox[{"(",
- m6 P+ ]5 X# C3 E3 u        RowBox[{6 A( E4 \- i5 L9 f9 x
         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
) |, n- }; r8 i- ?  |) p4 ~     SuperscriptBox[- [/ ^1 {! h, x  s/ K) a
      RowBox[{"(",
: o7 N4 ^* q: K* X, ]' ?       RowBox[{
: p. D/ ?; R& ^% {' @. ?        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", 7 f, Y/ p/ z- }7 n: e& g
     SuperscriptBox[$ e9 Z. b& p& a1 X
      RowBox[{"(",
! b0 i* V4 ?8 E0 K/ R+ [# N) F1 \! w       RowBox[{0 l4 P; H; Y6 A& Z  ?
        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
3 a( ]' D! `: t" ~9 ]     SuperscriptBox[
  s$ w0 Q- j6 T! p* E' `, N% ]      RowBox[{"(",
' c" v; k3 \5 C' d       RowBox[{+ q- w- `& r4 x7 _
        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", . z- S% Q1 J, |
     SuperscriptBox[* E5 g1 K; z! g! b% M" _
      RowBox[{"(",
% H& [1 Y2 `0 H, e, p2 h       RowBox[{3 \( b. j) D" ?3 [$ u
        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
% }% @% U, ]4 Z9 s; p2 j, O$ z     SuperscriptBox[: H" Q4 e' J6 H; X
      RowBox[{"(",
4 e9 |1 \& X! T! v: ^0 _6 b       RowBox[{9 Q4 M( U/ K+ }$ p/ ~! T- ~( _' }3 x
        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", - O# J% t- o, f" U( }
     SuperscriptBox[+ g) M8 a' i$ E7 k0 d. R7 q* r
      RowBox[{"(",
3 h+ g; ]/ r* y       RowBox[{# ~; ?: H6 o- @
        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
/ D9 U  p% U) }9 E' ]- v- X* i     SuperscriptBox[
. L' B, \! M, m% u! c      RowBox[{"(",
: v4 {8 M7 |9 s7 m! i. |! P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", - n0 s0 I. d3 X
     SuperscriptBox[
( }3 F7 z- z1 J; K  O% N+ r7 o/ \      RowBox[{"(",
5 B/ N! D% c; S" Q4 M       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
+ I; R) @4 i$ V" E" k! R0 O    ")"}]}]]], "Output",4 h+ V" w" p0 f: ?0 N6 R
CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
: y7 _% A% y; H9 j}, Open  ]],
2 K% i/ d, N, d8 c# c$ D$ j" m( ~7 F9 i# ?, Y1 [3 p. S
Cell[BoxData[
3 O$ Q' r( \* P; v2 I3 z8 Q RowBox[{"For", "[", 9 f( s; N4 Y5 @( [2 U% T' L
  RowBox[{( z) w! u- M5 ~/ U8 p! W
   RowBox[{"i", "=", "1"}], ",", " a# I+ c% u+ O+ g- T5 W3 i$ Z- k- W
   RowBox[{"i", "\[LessEqual]", "9"}], ",", 8 k: R8 C2 N9 _7 X
   RowBox[{"i", "++"}], ",", * l# U4 A3 L2 U& m; X! H
   RowBox[{6 Q$ r* H7 v8 h
    RowBox[{"Ca", "[", : o8 x( N6 E3 ^) _5 S
     RowBox[{"[", "i", "]"}], "]"}], "=", 9 i1 f# G" Z, p1 K
    RowBox[{"CM", "[",
+ U1 M! t/ U4 A0 D& F8 ~     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
+ n8 i) U" s! a% B) _) o9 ]  D) m CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
2 P6 A' K7 k6 H2 x2 i6 F1 i
" V! W. Y  A' ~: O1 FCell[CellGroupData[{, J/ U. N' {9 o9 K* `: u
, `! `) |5 L( m- q* }
Cell[BoxData[{
: {0 Z+ A, S* |( E2 I% r, `, I RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]", - Q. x. e: q' E/ {4 F
RowBox[{"u16", "=", 9 |# n; Q, y# x4 D  c
  RowBox[{( X& E% n0 `8 {  n. h, k0 L1 p
   RowBox[{"Exp", "[", ! e9 I( K( x  M, N7 d
    RowBox[{
6 e  a( C, R. M7 p+ [. t& T' }     RowBox[{
7 p+ `" z2 `4 G8 S& @9 b      RowBox[{"-",
, v3 K7 }# e0 T1 ~+ C! \6 u4 w3 D       RowBox[{
8 a) c% m, t) O0 K  S! ?. U        RowBox[{"(", 5 u2 E1 m3 G$ P, Z, @
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
3 r5 v* p& F& t        RowBox[{"(", ! ]8 P% g* y- i4 P& s# Z( I
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
, q: L4 `8 j; A     "]"}], "/.", "DeltaX"}]}]}], "Input",
3 v2 C( A5 u* ~% _, P/ L) ~. } CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {6 ?- [4 n! b- h$ E& g- ~! W
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9, " G3 s2 C* V2 Y4 w. W9 @! q2 K
  3.5779615751004367`*^9}}],: m$ [. J5 Z2 H: X# `
1 S# t0 D5 z1 J( F) Q0 p* M* j
Cell[BoxData[
5 R0 d+ G" |' z* h, {# I RowBox[{"{",
  |" M. Y( g9 g  RowBox[{/ |. q6 m8 w3 c; y: R
  "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", 3 c, l- }' E3 S- B2 y
   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}], 0 H- d5 k6 Y8 \* R# L
  "}"}]], "Output",
* u' P# W3 w. ^& s, p% ~# s CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
5 v4 \. O2 m  Z+ ?+ @7 g/ b" X8 q0 u, o
Cell[BoxData[* p3 g5 D; j( g2 F4 ^& I* h
SuperscriptBox["\[ExponentialE]",
% q5 S$ g2 T3 m3 t  RowBox[{"3.141592653589793`", " ",
' [* o0 B# N* ]   RowBox[{"(", : T- d8 O; u8 O. B
    RowBox[{1 T. z- w1 y* G
     RowBox[{"-", + c# k: |: c: J) _) B4 J
      SuperscriptBox[% C& u0 X  K7 b+ ?# E
       RowBox[{"(", 2 _+ @; H) k6 N. d! m
        RowBox[{- s9 q9 x1 c5 O  x3 u2 Y9 \& b2 h
         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
7 K  q$ u, e. I: n6 o     SuperscriptBox[- J7 a6 e. A4 G- l! X7 K3 d" E
      RowBox[{"(",
6 L! X$ b/ K- U5 Z2 t7 p' K       RowBox[{8 `3 J5 P7 T/ i" }  e1 L
        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
( p' J, [- W  H1 A9 ~     SuperscriptBox[  ]' L1 `- ]7 Y' e3 J4 v
      RowBox[{"(",
! f" n* b. f6 u" p       RowBox[{3 G, I+ U, k) T
        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
. z* @+ j' g0 \/ k2 i/ H     SuperscriptBox[
6 _, b; p& t6 W: @      RowBox[{"(",
6 D# `4 H( \8 k3 U# `$ J       RowBox[{/ }5 l1 Y! k1 P5 i
        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", & O, p/ z# z2 i
     SuperscriptBox[% s8 g/ M7 q5 I7 z5 b) F; W. t/ q
      RowBox[{"(", + u3 K: i! s, |! }9 v7 F
       RowBox[{
; |9 l, s% I6 N4 Y. R        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
6 K& R& X: h1 z+ o$ @     SuperscriptBox[5 Y3 l4 {' a3 ?1 k
      RowBox[{"(", & t' I: T  r% `* Z& s4 A" e: e6 k
       RowBox[{, d2 V: `" [0 w; N+ l4 [; Q7 B
        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
! R* B! {' M2 \1 K# j4 o6 d* K     SuperscriptBox[
) L- }; U+ o5 h. l3 d$ V      RowBox[{"(",
% y2 e. c' ^9 {8 L8 _6 C8 L       RowBox[{% g# C$ H* ]% G7 i1 b* w7 m; C% H4 b
        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", 3 {/ n' I# H* v* \7 M, Z* w5 }: d) h
     SuperscriptBox[& \# r* M# \6 \7 g/ ~' \
      RowBox[{"(", ( I' L$ X# u4 g6 B: f
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
2 j& v5 @  ?% D) N' R( h7 z     SuperscriptBox[
/ _* u. k4 O, t0 Z& M7 ]      RowBox[{"(", ) B% o$ ?- h. R3 y# G* i
       RowBox[{
. P' d- j/ ]. k! r8 I& |1 k        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
! i7 B6 [: r3 \3 I CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
) ^0 ?2 K& \# [( ?0 K( {}, Open  ]],
/ j% ^" ]  Z) ^% M: p0 w8 R' G: ]
Cell[CellGroupData[{' [3 _3 N  n% X9 }
4 A! f5 F$ Q( d
Cell[BoxData[{
% _+ i+ ], O6 f; B" ?" m& z RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", : b3 U$ `1 }  @6 s" @4 M- \' [
RowBox[{"u17", "=",
2 ?& b! c. O5 k; ^6 d  RowBox[{. m+ [* b7 r- u8 r1 k5 _  F9 J
   RowBox[{"Exp", "[", ' I+ g0 v% H- C9 H9 h
    RowBox[{
8 g" n, d% G* y     RowBox[{( c6 m4 W7 j% N9 H  D
      RowBox[{"-",
  s5 P+ F( e8 Q# q$ ]7 C8 D       RowBox[{/ U& R0 q2 h$ X9 G' _- T4 [
        RowBox[{"(", 6 i7 x7 ]6 d9 c! w& t
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
9 s( \9 U2 @$ T4 U. J/ h3 Z2 J        RowBox[{"(", 5 l- C5 y6 S5 U0 W1 S( G% M
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
% I3 G# G+ \8 `; y" P( j     "]"}], "/.", "DeltaX"}]}]}], "Input",
$ x( Q: a  t0 a3 X1 ^# C8 p2 s, I CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {- B) i9 c1 p5 a  S8 s$ i
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, 4 i2 e0 [' N0 J9 }
  3.577961578953644*^9}}],
7 ^# u1 a/ K8 `, ]6 J: E/ _1 m0 z# R
Cell[BoxData[( {9 K- w% h- K$ h
RowBox[{"{",
- Q1 E) ?0 _# O4 }( R  RowBox[{0 E, b% ~( ~$ K2 f
  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
! S* S0 r& {, i* J: e1 b0 e& i   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], 1 ]$ E6 J- {9 w
  "}"}]], "Output",
" Y6 V9 l' X  d CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
0 C2 Z  C) `0 t* X5 ]' Y4 b- M, @& k$ R6 I
Cell[BoxData[' H' I- J9 C1 q7 {, D0 B5 e: P
SuperscriptBox["\[ExponentialE]",
# F$ ]& a6 E6 ]; m  RowBox[{"3.141592653589793`", " ", 9 P( R: m, W4 o" `" }; E1 R
   RowBox[{"(",
. ?4 H* D2 z$ c* F    RowBox[{
2 F! o9 ^' d) }2 b- S& h; g     RowBox[{"-", 1 W# M# I5 k  U) A8 Y% J2 [
      SuperscriptBox[+ _& W( O, T3 V6 K3 {; [0 \
       RowBox[{"(", , B- S5 A; Z4 P$ S/ G  ], W' W
        RowBox[{1 j5 ]2 Q* J) Q: \5 t
         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 c+ s$ R0 r5 L5 g
     SuperscriptBox[+ j- i* n1 n$ ^7 B! e+ z
      RowBox[{"(",
  Z% l' B) O7 q- S' r       RowBox[{! p1 p  `+ k$ [, P3 [
        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", ! S" e9 |  S$ M! U
     SuperscriptBox[0 p9 e1 m, E) j$ _  M* x
      RowBox[{"(",
9 `2 p* O6 m  p6 g( p" i7 l       RowBox[{. Q- m2 }5 z0 d
        RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", ) j, i' h( o- r; p  ~
     SuperscriptBox[
+ f7 ^, Q8 c  ~; u      RowBox[{"(",
) Z- V# i! S2 C# f5 `3 v       RowBox[{; |( U/ C' S" B0 I
        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", 7 _, z, V2 g! ]
     SuperscriptBox[
, ]% O2 q5 ^: d; d2 [- u* p" `1 U      RowBox[{"(",
9 t- a7 h, O& O. ]" S% t+ K8 {       RowBox[{# e6 o! o* M7 ~8 f4 ]& H1 R
        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
" W/ m; s% F4 C# z! l. a% N0 K     SuperscriptBox[
3 {2 I0 }9 ~) N  H/ E      RowBox[{"(",
  v2 r, f4 F6 `: }5 c       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 3 p4 ~* z8 C. h
     SuperscriptBox[  i5 Q& b! u* I6 a$ C
      RowBox[{"(", + C% x( R2 D  L6 }' |0 q
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
8 f8 W/ I6 i( t) U  a0 v' B  V     SuperscriptBox[# W: M) i. @0 Y0 O
      RowBox[{"(",
" f3 O) I, z7 Z1 e, R       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", , N0 K  V" L  v% b
     SuperscriptBox[
  M. j, V# {2 R      RowBox[{"(", ! Q$ }% |  h5 H& _
       RowBox[{
- ?5 T/ L3 ~+ e/ `        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], * |, k: F. T' X* v8 e
    ")"}]}]]], "Output",8 m1 }0 l* g% @; a% s5 n
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]" {7 R; B- u( B
}, Open  ]],
2 J% M- P& K1 `6 F
4 [3 B+ R  F/ p6 ^$ S# x2 u3 xCell[CellGroupData[{0 Q) B' T: N( o+ {4 P' ]( X% K/ D
# h( b; \9 U  X  X
Cell[BoxData[{
2 N! K2 I0 q& L# p+ {, V RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",
9 v4 K2 F/ R: | RowBox[{"u18", "=", ( w/ z3 j; g5 r7 ]
  RowBox[{' L4 o3 w( Z# [
   RowBox[{"Exp", "[", 3 N$ R" w3 l  n+ q- W4 C
    RowBox[{
; E( g7 v6 l: h! p# f& m     RowBox[{
9 @$ ?; ^) X' t- s0 A! t$ W      RowBox[{"-", $ b; @! \% p( ^5 @
       RowBox[{9 B. Q9 P" b" S. Z) `( ^; v
        RowBox[{"(", * T- Q. u- T5 ~6 G- V
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ! i2 B% q8 N3 T# m0 B5 J
        RowBox[{"(", 4 [5 r" u8 \7 l* {) V7 T/ _' S
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
2 T1 }$ }" c2 L! O     "]"}], "/.", "DeltaX"}]}]}], "Input",5 L6 d" `( W) r
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
4 ^( b& M4 }: y4 M. m7 q) }8 q  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
7 q, u, C9 a4 H1 j% Y+ f  p  3.5779615828848505`*^9}}],
) u2 o: F# [+ p9 D( a
6 |" v- U; r5 L1 p! V# Q: D+ y# U2 W7 dCell[BoxData[
2 V( `+ m5 M5 X9 \; z4 I/ O- G RowBox[{"{",
4 U- }6 a) Y5 F" |. K3 v' }  RowBox[{2 V3 F1 L9 m  r4 e# W: m; c
  "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", % v% [# m+ \3 V8 f2 G1 v! E# L
   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
" @/ J7 |5 X& F0 @7 R* h1 ~  "}"}]], "Output",
) h7 ^! X( a5 x. C/ e# U CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
+ V3 E+ t, o1 f' z! U# Z
' a6 L" R* o6 \; u, Z# E; C! qCell[BoxData[- J% }- d: r" G% F
SuperscriptBox["\[ExponentialE]",
* H/ q( m6 \5 R* P2 A  RowBox[{"3.141592653589793`", " ",
6 F! X+ X( r9 |) j- K. O, n   RowBox[{"(", $ w8 Q4 G3 L) Y
    RowBox[{/ X; i( ^4 @. ?2 u
     RowBox[{"-", $ Q( P6 S% ~$ f1 y  {+ I/ d3 r
      SuperscriptBox[$ \# i7 f2 ^2 N2 g. A+ v0 I
       RowBox[{"(", / I# D* Q5 l% H- v6 u+ L, X9 }5 W
        RowBox[{
. ~/ s6 ^" N( T' i6 j( q. s         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
& e4 l9 _; g2 c- A     SuperscriptBox[
$ L# C7 b8 W( G+ \      RowBox[{"(", ( Z& n1 v+ O' ?8 G" r# ]4 D& o
       RowBox[{
! u9 n& D; u2 v+ I' `5 r% }        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", 0 B6 ]7 }* s" w9 g& r
     SuperscriptBox[
& o& b" ^- a$ h* p7 a4 O" J+ G      RowBox[{"(", 9 W. }. A- g! z0 R' G$ q. Z
       RowBox[{! y9 C  f, b# d, a0 t
        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", + i' e+ H5 x8 }) s6 g8 N
     SuperscriptBox[7 S0 \* t# S' B2 v, I
      RowBox[{"(", ; {: i$ R; z4 c( X
       RowBox[{' v! o* C1 B; H0 r) S1 n% H
        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", ' d" e6 ]- D# G& ]7 f6 b( T
     SuperscriptBox[
& [5 |4 t/ s% @9 V$ I. z      RowBox[{"(",
& e' G% i* H! ^1 E       RowBox[{
& z' t* U% h$ D7 c/ L        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", $ B2 B% W/ j, |
     SuperscriptBox[1 [6 H& I. |& y0 N& u5 q; A; P
      RowBox[{"(", 0 [2 ^* [" E7 F0 K3 I& r! R: x
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ) Y0 ~0 O5 Y' M+ p, _, y
     SuperscriptBox[
) Z, Q# ?4 ]2 z' ~+ B      RowBox[{"(", ; `! ^' l# ?1 L9 w) I- |/ s
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
7 s! z: A$ g, Y; G3 Z     SuperscriptBox[
& r9 A5 M  M# d0 R# z- m  A      RowBox[{"(",
% D$ I7 O3 d1 G. E       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
6 M% N2 `' V" o7 {5 J9 j, d; o     SuperscriptBox[
3 k& v; `3 e. ?9 j. S      RowBox[{"(", ' F* G* g$ d4 m" u. _
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
1 v9 O% U# N' ~# u    ")"}]}]]], "Output",% H) A7 i# R& s
CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]8 q% `, j8 Z3 S0 \4 `- D9 K
}, Open  ]],+ }1 x& L# j3 u7 U7 ~
: H. T4 `" X+ P3 Q# ~3 w% b! M) {
Cell[CellGroupData[{
& i1 V  e% {+ c5 G9 `
: p- E: Z9 x9 z" j3 I# WCell[BoxData[{. d) [8 l) u4 C& U5 W
RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
: }, c5 \* _+ K! z# {" P/ z6 g& ] RowBox[{"u19", "=", : L( e; j7 G" _
  RowBox[{
& w+ T' y/ D& ^2 @   RowBox[{"Exp", "[",
9 `9 E4 O( R( A" p/ s% a( z8 [# K    RowBox[{, d3 G1 i& ]: r3 Z
     RowBox[{
4 h! c2 q* v0 Y1 h0 z& \      RowBox[{"-", , d1 [1 S7 u  y
       RowBox[{
) B% ?. Q3 t' Z) N8 C7 S5 N  I( L        RowBox[{"(", 9 K8 r) ^9 z* a0 P( C4 B
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",   @" Q6 K/ H9 ?5 E
        RowBox[{"(",
! g/ s0 ]3 ~5 z( @- C" g         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],7 h' O, b- g; D& }
     "]"}], "/.", "DeltaX"}]}]}], "Input",1 {. u! m( |; X. G5 J3 x1 I* L
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
8 `/ U! d6 J2 x* P  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, ' n8 g. F: z# ]9 \- s* w
  3.577961588890861*^9}}],) d4 g8 n) L0 a" a
( o. f2 t* r6 N4 u: `6 b
Cell[BoxData[
* e6 [  p& m7 _1 l RowBox[{"{", ) o8 Q2 l: t* W
  RowBox[{1 |) k' S' J) W0 l1 }5 g
  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", 9 G% Y3 H& P3 w3 g
   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}], 1 ?0 r7 j$ N9 E6 c/ W- }$ N& C
  "}"}]], "Output",% b6 B% V: f) _7 u( E
CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
9 G6 q1 o0 j" C/ m" c9 F( y1 }1 Y# |
Cell[BoxData[/ o- w2 m/ R2 L1 R
SuperscriptBox["\[ExponentialE]", 4 F: }6 g$ ?* z/ F$ w9 {- Q, q
  RowBox[{"3.141592653589793`", " ",
& N7 Q$ S/ O6 w7 ^   RowBox[{"(",
/ G+ [+ [5 q: V    RowBox[{* u7 ~; t/ d4 o8 R
     RowBox[{"-", ; F. R- o8 ~, x9 Z. ~3 H8 Z' \
      SuperscriptBox[
6 c* w) {  ?9 [  T9 `       RowBox[{"(",
  }# Q; d' _' W! v; x+ w) E% C        RowBox[{, l. j$ @, d( y0 B# ~& g4 h
         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", 4 y+ Q4 Q& G3 j& O- e. I+ U# |
     SuperscriptBox[
) b! q, O) e2 H7 f5 K      RowBox[{"(",
7 y0 h( n. k7 l       RowBox[{
; L1 J( e; Q  z" t        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
# o$ X5 O/ Y. Q2 H- m. ^     SuperscriptBox[. V6 N- t( d3 q
      RowBox[{"(", . R. _) P2 n5 P; X. m
       RowBox[{2 S5 a2 N1 }8 [, ^* U6 _
        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", 9 W' V6 }! f! v% F& l" J
     SuperscriptBox[
" C2 \7 `9 i4 X" K      RowBox[{"(", - R) M2 e. O" Y7 J6 M' C6 r6 Z
       RowBox[{
' W0 Z: K) m& m0 @$ W, c0 S        RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", * c/ p/ L1 j2 [3 y0 Y7 d7 @
     SuperscriptBox[8 T7 p0 F. W7 ]% V
      RowBox[{"(", " E* v0 \' |4 C) z
       RowBox[{
* E+ k. O4 r9 ^$ D        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
, [0 ^1 Z+ ]9 T1 p2 a2 X     SuperscriptBox[
) @, S2 w& a2 E: \! `* y      RowBox[{"(", . b- @- \5 P  s
       RowBox[{. X- s# F9 P! M: O, ^' N' Q) Z: o9 b
        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
" J( m# O. ]0 L; ]0 i' q     SuperscriptBox[
5 A* ^/ l/ ]3 ]7 Q0 R      RowBox[{"(", + w5 M# |4 [8 w  c
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 0 B* ^# v" J! E+ W7 C( E: b, C9 `
     SuperscriptBox[! P, I) A8 z: E& {, y  r: x, U
      RowBox[{"(", $ X0 ]% P1 D' J$ Q+ \+ c4 F' X
       RowBox[{
  k. i1 W% L- m, G- e% H! n7 i5 p        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", ! H) j* S$ C% [5 l# \
     SuperscriptBox[( i8 h' p- C7 V
      RowBox[{"(",
& Z/ V0 M. j$ u2 o/ `4 E       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
) ]2 I" y& {6 ^4 _    ")"}]}]]], "Output",
7 g! y8 z4 w* x) v4 C  Q CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]% v: S. T; v3 a
}, Open  ]],
: `. l+ S8 w6 h. o* P3 g
! y- s  c; @; }! ^$ t9 iCell[CellGroupData[{& w- b# c1 `" q) A0 ?1 |
5 r$ h0 {  g; q& N( V! m9 \
Cell[BoxData[{  Y9 n/ Y4 D0 K8 A- W9 X
RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",
5 R- }$ p( u! d  v! c RowBox[{"u20", "=", : x( w, n& x2 ~* G% }" j+ u
  RowBox[{
0 i; w- b  Q8 k1 \. Z6 v" W   RowBox[{"Exp", "[", 4 P8 i$ x3 A- O3 ~; v- ^
    RowBox[{
0 O: C, |" J# F: h  S- K4 {, N     RowBox[{7 [  Y9 C6 T5 n/ q' }
      RowBox[{"-",
$ }+ ?: k/ Q% A" G       RowBox[{4 R. L) ^  q- J6 L
        RowBox[{"(",
' f' z/ ^6 a! u6 S7 Y) N$ M         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
5 }! K" |1 D9 |  C3 A        RowBox[{"(", & T0 j5 y! R5 z# m
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],% S' T8 Q) t' G" V2 R# z
     "]"}], "/.", "DeltaX"}]}]}], "Input",( V  u7 F( C, p- x2 B
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {! Y% \, S4 M) U" N
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9, 4 g' n- J7 v5 P' Q* e3 r
  3.57796159382047*^9}}],
" H; Q# o7 [4 A) h, L2 F" x6 n" J$ w
Cell[BoxData[
/ q, F* K; v0 {& N2 @: O% S RowBox[{"{",
* H9 o& y; J8 m" L! A( B  RowBox[{1 c6 S1 K2 Z; K4 o3 |
  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", ; x+ _& `  G1 L5 L( S
   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
$ n4 G( x# S/ D! i! Q4 d; x  "}"}]], "Output",
# S# q) F  {" ?7 ~% [; T8 p5 Z- y. [ CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
6 U7 L8 z! y& _% P' V0 a; v" ?) o  T! [' `# ?9 i
Cell[BoxData[2 q5 E: v2 s/ ?2 h) a. W
SuperscriptBox["\[ExponentialE]", & T( a( _2 Q3 U, t3 d
  RowBox[{"3.141592653589793`", " ", / O2 B" t% A9 p, Y  h: \
   RowBox[{"(", 8 \8 B3 H) L- c; s
    RowBox[{
* ]5 M* G# D  W) K/ K$ h" g     RowBox[{"-",
9 I  v1 J5 v2 B3 _$ U/ a: z( Y      SuperscriptBox[( B( P1 c) Z( O% T
       RowBox[{"(", 3 n( t! ]& j  ^% d
        RowBox[{
; f2 z/ l5 s8 w6 t+ @# c  @         RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", ! k; j, a9 D- L& O4 x5 h8 m0 d
     SuperscriptBox[, q* `% Q7 g; _$ t* _: L
      RowBox[{"(", ' f' i, v  P; H$ C2 {; @/ }
       RowBox[{0 o+ @/ l' z6 G+ h& q' D
        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
. J, N8 g( V8 ]     SuperscriptBox[
/ T; {; \2 B3 y( d& l      RowBox[{"(",
! b/ n$ N3 X" K3 r5 ]! Q       RowBox[{
5 F8 z8 p8 s0 n; p9 i; B        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", ; A# `% X0 [, @6 _
     SuperscriptBox[
2 j# }6 D& j* M# c/ l      RowBox[{"(",
# J2 `6 p  H  O1 Y. [       RowBox[{
3 m8 ]; |) d4 k- d$ K        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
; @1 E: m* Z5 E: X4 K     SuperscriptBox[' z! m2 t! @( c
      RowBox[{"(",
& q8 M+ ^8 h; T+ C       RowBox[{, u5 I' d. U  _% t1 S
        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", " U9 _7 H: U+ Y# S7 t
     SuperscriptBox[
- F0 j( h4 ^  q( e' U3 r. ?      RowBox[{"(", / g/ D- S* X( n) U% |3 |
       RowBox[{! Z- h- `! m! z  L
        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", ' Y2 L+ w0 d. S: R
     SuperscriptBox[0 I' b% H! N+ d% U5 u
      RowBox[{"(", / d( D% P/ F% z
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ( E& j8 I' g7 V. Z& m1 l2 ^
     SuperscriptBox[
7 ^$ A5 ?* W* @) q0 m, U: j' F      RowBox[{"(", # ~8 h. v. K6 m$ p2 t1 `' _1 l) l6 N
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 3 p# n" J( b' J9 r: R/ K2 I0 Q
     SuperscriptBox[
( v+ d5 ]6 u' n2 d      RowBox[{"(",
/ O, `0 J( }5 d& o9 Q       RowBox[{
, @: y0 U7 z, Z3 u: `! K1 }0 U! z        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
3 T  H  @% j- w    ")"}]}]]], "Output",1 r4 o) ]% d7 s7 k6 i* [
CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]" ?3 a: ^: k2 y2 m' B
}, Open  ]],
: K/ u2 w# A1 U8 I( v3 I" Y, C! b) [+ r7 F
Cell[CellGroupData[{
+ F' n  P5 H6 l# y: _
8 r* K% ]0 J7 YCell[BoxData[{+ E: C5 j6 q9 s2 O) `
RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
! ?2 Q! M$ I2 N) _ RowBox[{"u21", "=",
2 D( ^' v$ j7 k  RowBox[{
! t% Y& p2 U+ d( k* q# [: q   RowBox[{"Exp", "[", * g2 w. ?( u; P* V; e
    RowBox[{
6 O/ ]/ @3 V7 F5 G2 _7 S     RowBox[{
. n/ S" B" R+ R4 X! r0 X% O4 x      RowBox[{"-",
) w2 `) h9 z& j       RowBox[{& H8 ]( N3 X$ Z
        RowBox[{"(",
* x; t% ~/ J; u* b: A3 _+ T+ B& Z         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", : H8 V( F8 M0 U( ^' u- H" L
        RowBox[{"(",
3 L7 ~) D: {' O, X' P) b         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
+ T6 K3 C0 i8 Y* Z+ D& X0 @     "]"}], "/.", "DeltaX"}]}]}], "Input",' O& Y, p7 e2 u
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
' o: _# d2 w% p1 u8 N! s  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
/ g/ c  D1 O- l7 C  3.5779615991556787`*^9}}],- O8 B( c- x8 |/ s) s" H  S

6 ?; n: A6 I# c& LCell[BoxData[
# V' q# P4 X, l" S, M% ?/ u RowBox[{"{", 8 S) S$ G8 g6 N  j. r4 Z( E1 P+ x
  RowBox[{) Y( t" N- C( ]" N; p
  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
7 V, u/ j4 ]& r9 O. p- z  X   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}], 7 `  F" T. i( V* q9 L! h
  "}"}]], "Output",
5 s, c( o( P  l6 Q0 X+ Y CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
/ m4 B9 N* u3 n3 z6 B: F$ m4 W6 O" B
Cell[BoxData[
6 ~; o; [& H  W2 ~# u! j" x! v5 O4 c, @ SuperscriptBox["\[ExponentialE]", 6 q  g4 Q- ^  O4 v+ |+ k
  RowBox[{"3.141592653589793`", " ",
7 Y  w' i7 K$ Q5 i2 G0 X; B# n   RowBox[{"(", , X* I" V$ m$ `6 ^' U
    RowBox[{6 M; H, p0 e0 M# [: g
     RowBox[{"-", * M; I- S4 d, U) N
      SuperscriptBox[
+ |$ M% @% f3 T4 i+ t       RowBox[{"(", 1 A. ]- n4 B7 Y
        RowBox[{
" z+ K: {( D1 F- ~         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
# c/ z: ~8 u% z$ w2 _     SuperscriptBox[2 b3 M% ^! }. I+ d2 B8 ~
      RowBox[{"(", . ~* v& a6 X2 Y" U
       RowBox[{& I( J0 C% t* v* |, H
        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
& K5 N7 g) \& f% E8 X- z( B9 V  i     SuperscriptBox[
6 F9 x$ r3 d% T/ q+ Q6 ?" i  x      RowBox[{"(", ( ~+ h5 V* K9 g, }2 g8 {3 y
       RowBox[{, L$ [6 l$ h9 ^* Z: S8 ]3 M: w
        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", ! B9 m4 m3 r' w# \+ m
     SuperscriptBox[+ w) Z( A8 E; l7 i& Z
      RowBox[{"(",
7 K  p; X8 {1 c       RowBox[{( |: Z6 s+ |; S6 B2 p, `
        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", % i4 X& t/ c* F4 z! |  v' u& [
     SuperscriptBox[
; `. N' ]8 U) r0 I8 z& M7 X; ?      RowBox[{"(", & g+ J: @/ W3 B8 r2 K* I
       RowBox[{
& M+ q2 ?2 W. V7 Y  o" V5 p        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", 0 _( r; A9 N  F% {- n& Z
     SuperscriptBox[( q' m. o8 {3 y1 w2 k" U* r% k8 V
      RowBox[{"(", & r; X% N! I) I  t  _
       RowBox[{9 A( e) V5 S1 A
        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
- i6 e6 R0 b# o$ v  B: i     SuperscriptBox[+ ^- Y/ z8 q! x6 o7 M- }1 M
      RowBox[{"(", . q3 ?. c0 o6 W7 ^9 ^, I
       RowBox[{4 A* ]3 e7 K2 g8 t6 ]
        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
( C4 D9 B8 |# F+ B+ ~6 P; |7 z! R     SuperscriptBox[
- h3 d7 n% h3 @  c# U' Q      RowBox[{"(", 8 F. D* r# ~( b* R' D" P  x
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
: D4 H2 p0 W. s* W- r: l# j; n, T     SuperscriptBox[' w8 y2 `( M/ ]" ^! z  N
      RowBox[{"(", 0 k$ T/ f/ {/ z% B/ l( d
       RowBox[{2 `! u3 h  C* k) E& q
        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], + e4 C3 L6 p  O
    ")"}]}]]], "Output",
/ Q& d' Q% Y: p0 n( h2 g) s9 } CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]9 m, c; Z3 m3 ]: Q! R0 [5 j
}, Open  ]],
" A3 ^) e3 `2 s/ e
0 Y" c. |7 q. `8 mCell[BoxData["\:62df\:5408wi"], "Input",: m- B* |' x) E; o4 p
CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
1 y4 N7 f' V/ H2 P- G2 N* C. P# p
+ J! [+ \) e* m) n! oCell[CellGroupData[{
4 U$ Y, [! [* Z7 D* a% h; `) W: E2 K% Y2 f0 K$ b
Cell[BoxData[
6 ~# U- V* d- ~/ U. S* u RowBox[{"y1a", "=",
9 @% O2 T2 B- @* R  RowBox[{"Table", "[", 8 t& U7 X7 `' s4 a8 ?% }' [
   RowBox[{"x", ",",
; u+ j% \3 D% K$ _! @# M- M    RowBox[{"{",
& _- P" x% D/ Y' X, Z     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",! r% {3 G+ A$ X
CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {. [# t+ O# m* l" D- ~$ K$ H
  3.5779226649375*^9, 3.5779226810625*^9}}],$ c* Y1 p& E3 F# K" {. A, \
% t0 \! G- F' K2 U
Cell[BoxData[4 u! g5 [6 H$ q
RowBox[{"{", % f6 \4 F# T: W5 y- q
  RowBox[{
* ~% B8 _% b4 s# }" I/ ^" [  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 0 h" K! G& ^$ J6 |' |- a: J
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
# J5 z+ m1 H! P9 y6 ~7 q7 `    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
0 C- x. I; L& {  [6 O- L   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ( ~, V) @9 B  I, j1 G0 c6 V2 p
   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
8 F' w! M! i% z8 F4 r   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 3 O8 w4 X1 Z, |
   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", 1 X/ `! X9 ?$ M/ C2 @1 V
   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", ; u# b& E" F0 `7 A0 u
   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], / t; S# x! {8 K2 `8 N+ c* l1 K
  "}"}]], "Output",) i" T0 |5 v. S
CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9, 8 ^$ p* C3 S9 N9 E. i- K& p, Q4 M
  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]8 C/ h0 ]- ~' D, p6 f
}, Open  ]],) Z3 P, y8 w( V5 N+ G# \- U0 Q# J
6 W' }2 g6 z7 {0 Z  N8 Z
Cell[CellGroupData[{) S/ W. D' U, z+ a

$ T2 ]: c: H+ \* U) g7 P& S, {; DCell[BoxData[
6 r( ?. e* s. V+ X8 `+ |1 H: {- Z RowBox[{"Data", "[", ( q9 j& O# p4 @& t
  RowBox[{"[", , m" F( o, l3 ~# X9 R/ M
   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",+ {( p0 y7 b' ^/ t" ~/ k
CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {% p) M: N0 a$ E& ^( ?( j
   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],! `7 i" s" u0 A

; L% j1 c, v% l" r( o+ pCell[BoxData["0.899882`"], "Output",
5 _! z/ H4 \$ D" y4 F% K3 A CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, 4 F0 H4 o! f# W3 E. r0 f: ~! U
   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
0 n/ n! }+ m$ [. a# ~* D8 M6 `. Y   3.577961929080654*^9, 3.5780123419375*^9}]
" v# y; W# A4 m0 |" X! m}, Open  ]],) B9 b- _' k$ A8 f5 V* J
! K; m7 _- m' D1 w7 p- S/ L3 o5 z
Cell[BoxData[
2 N0 c$ Y" E" z9 k7 e. | RowBox[{"For", "[",
- [  P% r7 B# ?, n. B  RowBox[{
' k9 |" H0 \4 q9 K: Z   RowBox[{"i", "=", "1"}], ",",
: r0 I/ e* g" }- ^   RowBox[{"i", "\[LessEqual]", "60"}], ",",
$ @3 Q3 B+ ^/ W* A9 S, ~* R+ m   RowBox[{"i", "++"}], ",", * C3 J/ J- z) \( u" `3 f
   RowBox[{
  v1 r& f9 m: n- E" `    RowBox[{"y1a", "[", 8 {! F" `5 \1 j& M; I; \5 M
     RowBox[{"[", "i", "]"}], "]"}], "=",
" F' G6 {6 u1 m; `) Y! w7 d1 w    RowBox[{"Data", "[",
: \$ F" [2 W7 O     RowBox[{"[", ( T4 S7 P+ G6 V0 a/ I0 N
      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
. L1 G& I+ ^! ~* B CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
! G) H9 c8 n; Q0 a% \' c  T   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
/ N. O. Y$ I, K+ X+ L/ Z0 Z/ d   3.577922923203125*^9}, 3.5779588839702806`*^9}],0 s; d+ E" _$ V5 a# `3 F
. J( U+ t$ o- m7 v% S, Q! D; L8 W
Cell[CellGroupData[{( c$ s* r! `1 g, I
4 r6 ^* z' ^8 g7 S
Cell[BoxData["y1a"], "Input",: d0 T' |7 h" X2 ]- Y) }5 r
CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],
. u5 z. B8 |+ R$ |5 W' O$ ^: _% d3 c5 ]3 w- w" u
Cell[BoxData[4 o& w' X- X( b, W( c: e
RowBox[{"{", 1 c( u1 R  g6 ~( }$ W9 K" S$ |! T
  RowBox[{. f$ W: `4 ~: |# y  u7 e9 y
  "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
7 q5 W+ i! `$ ]3 q; a   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",", , P* M& d* _- |& r
   "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",", 4 w/ a- l& n/ ?) X0 `  G/ I3 t
   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",", * Z. j* v) E& q" e% F
   "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
2 ]1 }* d1 G! Y4 K5 @: b' R   "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",
8 B5 V9 w! b! N3 \   "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",", : G! D2 d( J; q6 R
   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
/ `% e: Z) Q6 F   "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", ; Z! Y( Y5 S3 T7 ^
   "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
8 m2 U, h# e/ @; m  A   "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",", # v" o4 j6 I/ L! n
   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",", " q" I: B2 [& D$ M# C7 [
   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
. w4 J; |; r$ ~4 Z   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
; Q, R2 p8 q# O4 z) i1 T   "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}], + l& w+ S) D5 O: c& \
  "}"}]], "Output",
+ x  [; P7 w  G  R5 A! U CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9, 8 d6 |* y+ P8 ^0 H
  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]+ D/ {/ E  H; {& Y& ~
}, Open  ]],
( d' W" z& A8 u& O4 @# n) R. |- V$ [3 z7 m* K/ r( H7 [& ~+ f
Cell[CellGroupData[{7 U% o0 H0 _# u9 f

) O9 r% f1 Z0 d) {2 xCell[BoxData[
! n! x8 Q# P/ ? RowBox[{"m60n21", "=", / }" o: h" V4 P# y9 B  d8 B
  RowBox[{"Table", "[", ; r7 D* ^: `6 H9 a0 X
   RowBox[{
4 H5 l5 F  }+ m: j1 ~8 ^/ y, ?7 ~( n    RowBox[{"Table", "[", 0 s" S2 C3 [# C
     RowBox[{"y", ",", & \+ n- S" v4 N; E& ]$ W$ M
      RowBox[{"{", * g% R7 q. S/ E% |
       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",", ; i1 g  J$ D; j, f  C
    RowBox[{"{",
# V! I7 t; v, J5 h$ x. l     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
9 n# J: H  I2 v0 ~! ?/ D2 Q CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {% n/ m& G5 P8 \/ ?9 t
  3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,
: b5 ~# s0 q1 M1 s) W  3.5779619706547265`*^9}}],
+ M. t% f3 l& r0 C% @- P$ C# k4 |3 C8 S. [
Cell[BoxData[
9 o: z! V# C8 b+ F' u RowBox[{"{",
4 m3 ~& A7 u: P, K: C( t3 _. b; y  RowBox[{
/ C' c1 [0 |% I: n) t   RowBox[{"{", % B$ G& d) I, M3 m% H! P# X6 N7 n9 {
    RowBox[{3 v% c$ E% ^% T3 a
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* z! v  `0 [! [( F! d6 t# d
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( S1 @* C5 M- |  H9 j4 d' s+ w
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& f5 Y2 f4 @( H6 S, J     "}"}], ",", / |* {+ D% |$ y2 o6 q* g5 d  J0 o3 a# x
   RowBox[{"{", ) X) t+ A9 N; P& F* h( X9 R. O
    RowBox[{
  i0 Z2 O- Z" h    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
+ p1 ]" t1 }" {9 Q1 a      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
) B: K6 [8 T( @& E  Y9 |, C     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. R8 L8 T: x3 A0 n! \  T
     "}"}], ",", 3 E' |. @2 ]1 ]! q5 |, J
   RowBox[{"{",
  f; Q; I% |! Y2 n- X. C    RowBox[{
+ u" I1 r2 g- f4 u7 n% \6 T7 W/ Y6 p2 I. g    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ s2 u3 Q. s) k* O, f. _. ~2 L
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 ?/ ^! q" v4 j8 g
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
4 J: o( g1 S* M( `2 @     "}"}], ",",
" q/ v7 b- x, t1 O6 C   RowBox[{"{", ! S! C6 S: d+ l: x- l, r
    RowBox[{8 U, {! H% N1 z4 [% `4 V1 H
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ B; A6 a2 R' O+ I/ ~1 s' F- F
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
  T# V  w5 T0 k! n, @     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 O4 D1 i- h$ B; Z2 C4 u
     "}"}], ",",
3 Z2 Y$ R2 |0 O0 O6 D) l   RowBox[{"{",
+ \' M7 A* j( x' l) C) E- a    RowBox[{
( O' g, Z5 b$ ~4 E: _8 v    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
0 N" ~( r/ p7 _+ u1 R1 n) _      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 C  C* t' Z& c8 q8 _7 M     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
, s+ H- b' S6 p     "}"}], ",",
: t/ ?/ @& ~& p- {) H   RowBox[{"{", 6 m9 P0 y4 j4 ~" |8 y# m) a/ f
    RowBox[{# u: U- o' l% j7 {* _6 X
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) B8 w5 y: x* [* n7 J
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 Q; K0 W% q* a; o$ g' j% X& ~     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- b7 n+ \+ j0 Z( o     "}"}], ",", ( G7 {. n& @! Y2 L* V
   RowBox[{"{", $ p: G+ @- Z/ r- R/ d
    RowBox[{" V* C0 G' q4 |+ P3 z4 ~. p$ j3 w
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. f8 ?( w) l& B$ S, B  k
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . I+ H% D( e" @) x* E
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 N8 H* Y7 r4 E
     "}"}], ",",
+ M4 W, w7 S, q$ r6 |! s   RowBox[{"{", : F6 r4 A# O( I) v* f  [6 c7 E
    RowBox[{
6 d4 ~4 X& z  E8 p/ @5 I3 c    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 m5 E; n0 W& i/ E! T: [
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 l. Z3 k7 n1 Y1 E, W
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# R9 H5 ?6 _# B8 }" C) M8 n     "}"}], ",", $ [2 L7 G8 |7 `6 `& }8 D- d5 M" o: V
   RowBox[{"{",
! V* I  _4 y1 |9 V    RowBox[{
& I! w* O! |+ R' S    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. B7 w- u* \6 Z
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
* T- P$ z% i% K; W. A     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ @5 j# |% A$ b     "}"}], ",",
; V5 \$ c5 z$ W3 k( p' e   RowBox[{"{", & ^" @6 F% e- A$ ^) p
    RowBox[{
9 w3 }8 k+ h7 }2 }  F! S    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 a* ^+ v5 d( R' r# n; A8 `. t
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
  c- Z9 L! A3 z% [* D* h4 N     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! f- _4 R/ Z8 Q7 P2 W3 H* W0 v
     "}"}], ",", 3 i" v! J* a3 e% F. R% P4 I
   RowBox[{"{", , d2 @/ P$ p  _6 B2 P: M& l
    RowBox[{4 A+ N5 X. p7 W
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
+ [5 H: b! D9 n      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
* o" z3 S0 `, H( ~4 M# i* ]9 I     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, W, |4 _( p5 d8 m
     "}"}], ",", 0 O9 Y) Z: h. o# G% D
   RowBox[{"{",
, V- s5 O# ]. N- G& O+ `4 N2 m    RowBox[{
0 m9 C2 Z4 ^+ s/ N6 }% G    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
0 d- Y& a& s% F2 i! ~      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
' ]7 E1 y7 D% C     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. s" [$ [5 w$ {, M0 `
     "}"}], ",",
1 M3 c$ H8 W1 G1 Y: x4 x   RowBox[{"{",
+ K/ R0 h- ^# {) q    RowBox[{9 J: I) w- k2 T5 e
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," W/ z$ H5 w' A
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
0 d: a# j+ u3 t: @3 d) N9 N     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- G9 [/ ^, @7 U9 Q5 s1 V( s- q
     "}"}], ",", . b4 p3 N0 M( h  R  N& j
   RowBox[{"{", $ a, N! q8 L$ z: t" C
    RowBox[{  K0 N5 L/ Y& [3 r1 U
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 B" e# }8 D  y- X$ `! \  u* t/ X( ]      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " @3 M8 u# B  x9 k+ A2 _
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ A5 ~2 j/ _4 Q- s1 n: {5 |
     "}"}], ",", % Q! h0 z9 O! V1 a
   RowBox[{"{",
% M  l& i" C+ z" t' O1 \    RowBox[{
% Q" n1 l" G3 d    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 v3 ^4 y8 ^0 F( g5 R, _: z0 m
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( X  [& v$ d# a* v
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
! k+ g5 S6 b# @& u# \1 f1 Q6 ~     "}"}], ",", # o" k5 ?8 I* G- S0 x# Q
   RowBox[{"{",
4 Y4 e& b& E% U/ B3 H& D    RowBox[{
0 R! ~5 Z8 I3 K, M    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% M+ d1 t5 }6 ?      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 z! F1 r, A6 [' r6 l* U  c
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: s7 S, E) e3 `0 E$ _- ^     "}"}], ",", + x1 y  [, L- c' T
   RowBox[{"{", # X; [. B5 C2 V# _) l$ G2 f
    RowBox[{! z! T- M# y! Z
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 `- @5 f0 P& w" b: C- H3 j3 w$ {
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 ?3 o) K  o2 L- g8 i5 z
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. u3 q4 x# _; H2 C- ?. m+ ~     "}"}], ",",
% P) {" {/ N) p4 c& ~   RowBox[{"{",
! m# F. P' t4 G    RowBox[{1 i# W% j: o; f! ~
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& n! ?9 D7 V0 q' o      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 _; x3 G. C0 F. J' r2 V* H' k     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 w6 j! T' Z$ K- `+ m) j% t6 b
     "}"}], ",", 9 w+ v" x. w3 r# o4 q% ?
   RowBox[{"{",
9 D% N) }% W5 \! Q# r8 O    RowBox[{9 D+ J0 z& y  ^9 `% P
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 Q: e; o# o  C8 Y7 j
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , N# U/ s9 `% r) Z0 X4 ?
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- z# I" [  z9 W/ Q8 Z* E+ u- f* W
     "}"}], ",", 9 ?; @0 }4 o. S$ T; I% o+ j2 U
   RowBox[{"{",
; m; l9 {) H0 R& K/ e4 z: R9 k7 Q    RowBox[{! ?, }$ f" T8 x- K9 y0 i) z
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 r. w5 c$ [0 X8 b; x6 R  E
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
! }1 H5 v; z/ [8 \8 q+ I0 l+ d7 m) q  j     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
4 }; L2 U2 ~, W8 F     "}"}], ",",
8 F+ x" L, h. U! W6 g   RowBox[{"{", 1 _. C" f+ x" q
    RowBox[{
& @. p! `* u" U1 u% n7 q, B( g    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ I4 ^( N5 E2 @- H$ l. J1 Z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + i3 T8 J/ `! c& z
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ z- e  Q& `) H, s! U4 i
     "}"}], ",", ! ^6 d! X4 w. B3 f! r; v
   RowBox[{"{",
" g; _. {  E! l& Q: k! k    RowBox[{6 O+ }* e* r4 v' c8 u( ~
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- J$ \! J7 U0 Z9 |% ^      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
9 V7 F: }" R+ p  u$ ?0 r$ s# R5 A! F     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! M1 p) g8 @5 H5 g
     "}"}], ",", ; w6 D0 a" r6 l. I+ U
   RowBox[{"{",
# G( Q1 R! Q8 w4 z5 ^    RowBox[{
5 t( F+ g/ F! `( G" w    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: D0 f: K* r! E) w      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
+ c" q& ~* c$ x     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
, Z4 R9 {) m$ W) }     "}"}], ",",
7 p2 P, N: C4 A; F' Y- r) n, \! B   RowBox[{"{",
- @6 u- I% R" f* X  z4 }! J# d    RowBox[{
. Q7 f  {0 K3 U8 X. {    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) Z, L' v: x( O6 z
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' p; i, @2 L8 _( T) s1 S3 \9 Y
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% X- h" {1 W8 z$ j- I' L
     "}"}], ",",
( A5 h. G, _7 X) |8 z   RowBox[{"{",
8 r- G. n! O7 L    RowBox[{
" Y& j; a- o' V    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
. ~% Q6 B9 z$ R: Y- J4 G2 Q% ]      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - J; ^7 b5 ~( X8 j2 q
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' v) u2 h; s8 ^) ?; h     "}"}], ",", 2 {+ Z. c8 ?* g/ h; B" ]: B
   RowBox[{"{",
- P4 K+ b5 E0 r) D6 o- A  c    RowBox[{7 y& f/ _$ {, K5 p! d4 v
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! k$ s$ U7 }4 T' S) m
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
3 {7 B& O5 }5 ?- u     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
4 ?( z7 k7 {6 N7 j4 G  ~# S     "}"}], ",", " ^2 B; J1 {2 ?' R: y. t
   RowBox[{"{",
. \# B% J1 g6 Q5 Y$ r    RowBox[{/ |6 L; t+ k% G% C6 y7 ]
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
* }) H- }. d& c0 F2 t  {4 `! V      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 z. i6 g4 c- f# @9 Y8 ~     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," [, A7 d: \% }5 w% T  @3 e
     "}"}], ",", # u; c3 }* C$ H
   RowBox[{"{",
: V! g2 Z; w3 h    RowBox[{$ x( }# \9 ?  |: ~  G( ?
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  m- \3 j, S' u/ k
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , ]% e6 i% c9 @' I/ W; l; ]
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- f! }6 t) y% P! A* g6 Z
     "}"}], ",",
5 }) P( \1 j( |% X/ T; g8 c   RowBox[{"{",
# m% T* P  B/ A    RowBox[{
/ p9 A5 J! B* Y) e, Y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& E0 E* x% T5 y6 `
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & I; k  W2 _# A! O6 R& [* L7 y
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' c+ [( B: V) R! S; ?
     "}"}], ",", ) \& k3 ]' T9 ~  Y* q
   RowBox[{"{",
! N8 p7 I3 @3 V0 I& H/ j: \5 m* [. S  c    RowBox[{
/ j1 }" [. f9 R7 i/ y. c    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) T+ O! G; P& E- M
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. a6 j8 n- y2 n/ ^! v/ e: q6 }     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' H" U8 p7 A7 }1 b; y     "}"}], ",", 6 p, |/ L1 r# ^# d0 R1 _
   RowBox[{"{", + R3 Z, o" `. w
    RowBox[{
; Q8 }; ]' \5 b6 g5 B    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 s* X/ v% |! h# N1 |
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
& s$ h6 M  C% s, j, j     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
( B  b# ~) a+ l* h/ }     "}"}], ",",
) P$ k3 ]: ^. D7 \; v+ y   RowBox[{"{",
( K8 t! |! U. g" E; N    RowBox[{  e6 Y% E4 _# P! p1 J
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 M+ ]6 K% Z# m5 {9 U) Z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
! ~0 i4 c% e9 w     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
( ^6 ], Y) W% D7 o1 q% {1 m     "}"}], ",",
( l  D$ }3 D: v; Z; q! |7 P; M   RowBox[{"{",
7 B1 Z, ^. V5 @" h    RowBox[{" L5 V, G# n6 k) M. _! o
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 [4 R; f' b+ a" j4 k
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. c, G$ v' {3 z# C     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. A) V$ w5 q, E- W- F' S' g, s
     "}"}], ",",
# \: F7 t1 o( F* |" }7 D' {   RowBox[{"{",
3 z5 [6 P/ g/ P1 A    RowBox[{% `( R) B: G  V8 D
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 e2 p) H. r, d4 a      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . f$ G! {% z) M" {4 {) Z& O
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' Q3 n! x: `; y' v     "}"}], ",", 7 w: a* |* L1 K( A* L+ K: h
   RowBox[{"{", ) e0 \. R- H. ]* f7 M$ ^, A
    RowBox[{9 M, K) W8 A& z  a* D
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; c; D: H6 x' v, `8 l      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 e& n! @  a  c! O- S+ d$ d
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% ~% y. u% n1 D, d! l
     "}"}], ",",   `; t( j3 u) h
   RowBox[{"{",
9 W5 w/ A: g4 t    RowBox[{' c+ U! x8 X6 U/ F; `
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 ~* Z' l( r2 o1 u
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 D& L4 J0 z+ Z! |9 I
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 x% k- k' ?( A0 s/ d4 g+ v
     "}"}], ",",
% ?6 F: U( `" q; J   RowBox[{"{", " W9 m: N1 ^: U0 H5 v
    RowBox[{6 G8 a- c: a! w9 ~7 j* T
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 |. Y* a! s& ~' x  _8 A% s) U
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , x7 {1 Q: ]* s3 v
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) t' E7 \8 O& F" E6 Q     "}"}], ",",
/ q0 G' m# i& e   RowBox[{"{", 7 x0 \# i- Z% {8 O; n
    RowBox[{8 ]9 y" u1 h% D- Y
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 o7 H  y1 H# L3 @
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
, K; K- L( C: q, b& j* H( V     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 }! ^8 M' ?$ f
     "}"}], ",",
* Q# {$ @% M+ \   RowBox[{"{",
* o/ A: l3 H- F7 y    RowBox[{  y% C  N4 F1 \
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ \! V1 t$ w# R# Q- W! o' M      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 L1 z5 t- f6 G/ X
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* Q/ g4 I  [8 j& k     "}"}], ",",
/ a) a0 r' j, s5 A' y) w5 |   RowBox[{"{",
7 b9 }& b! V1 j    RowBox[{
+ w9 v# W$ d+ F7 Y# w    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! p% s: Y' B  P/ c! s3 @      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " ~# p- m3 }) f/ T! |0 F) ]
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ Y$ j3 \6 O, b4 ~5 X0 I, b
     "}"}], ",",
2 S& r6 n4 L- i5 Z   RowBox[{"{", : J! q8 {$ {# [8 T* x% {
    RowBox[{
0 Y3 `' t  h9 v8 _/ w8 ?! J    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% B$ B; {' m' V" ^
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # c/ |: m) B7 h5 m, f& @8 ~
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* b! u+ c5 T% h. B/ e
     "}"}], ",",
: E* C8 W% h% ]( W, Z- V   RowBox[{"{", . ^- [+ m  M4 \) d
    RowBox[{3 Z2 G; E# g7 u
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' ]' `/ V7 c4 H( [# d" i
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- w3 D: a9 X1 d' B% Y: s4 v     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, v' j* u2 Q( z/ q( Q
     "}"}], ",",
, E( e8 q. u6 n- f0 r( l   RowBox[{"{", : g* ~! Y- G. M, {" G4 B
    RowBox[{
5 h. Y& _1 s1 m" e$ k    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
( j! A  ]8 M* R; }: d      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 x5 V5 b. [5 g2 ~
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# p2 v. \+ h, E' n8 Q     "}"}], ",",
; W: c/ @: n  w  Y6 a- \   RowBox[{"{", ! K9 l0 F4 [& n' u0 x% V
    RowBox[{
+ V$ B& S* [/ m0 n; `0 S    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 \- ]+ n( e; E# u; d3 l  N
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
9 Q$ t0 O3 h: R7 N! F     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ B! A# N, e" N3 X) C
     "}"}], ",", , ^+ I- R' l: j2 w8 q
   RowBox[{"{",
1 u& D+ k. n/ O( r, e1 [    RowBox[{
  e- e3 s$ S* _5 m* Z6 [' E    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
0 A7 N/ V/ ~' x6 \      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   k8 d* ^! |6 f4 _) `
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
% w  D! h, {9 c' z4 i% F     "}"}], ",",
$ ^' x1 D* T8 Q; Y, R; G   RowBox[{"{",
; Q/ ~7 U3 h$ Z' l$ I4 y) l    RowBox[{
% [/ W& V4 C6 |! m    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, [; b3 p/ z9 F      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 N, i  J( j5 q+ Z: Y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 p$ k3 K4 K: W
     "}"}], ",",
2 d! J1 Z- j  v0 [7 |   RowBox[{"{",
0 I/ _5 B% _4 e- h+ Q5 [    RowBox[{6 L) X  M5 e1 i9 @8 v& D
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 E. W5 Y( ^- E" {% H9 o& M( I
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
0 v- v# k2 `4 ]6 A" i     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' H4 ?- U, e9 Z8 u% ]- r     "}"}], ",",
0 B2 }" M7 l* _4 p/ Q   RowBox[{"{",
/ Y+ y: x! r! R+ d3 z1 {  x7 f, N; _    RowBox[{$ @0 J7 G4 o* Y1 G" P. I
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 H/ [  x( _+ n0 m# W
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , P* Y- t4 {$ s2 W6 q9 S8 t
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: B, G9 C/ q$ K# X2 B     "}"}], ",", ( D! Y7 ]2 j4 i) b: y
   RowBox[{"{", 6 _/ }0 i' R6 Z" q. b; e
    RowBox[{+ o: ?4 m4 b2 r$ V2 j2 m
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 |2 B# A' L6 U$ z% O, r      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. Q" y% v7 P# S' s! Z/ ~4 C     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. ?8 Y: H: @* S0 l& k1 T     "}"}], ",", 4 ^% K# ?. G2 Y5 A! e( Z
   RowBox[{"{", % ^; f4 n" W+ H
    RowBox[{
. o. @. p% w4 _3 ~8 |8 ]8 v    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. E5 U4 o9 w" t# P/ T$ q
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ |7 y3 D- h3 ~$ I# J- v2 M/ m
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
% h; n2 w: F+ c; d& u. F( J     "}"}], ",", & d5 w* }. u; l4 d# y! g- B6 C
   RowBox[{"{",
0 a1 P( g7 I& {- v2 H    RowBox[{
% O- K  B3 u0 J$ Y* Q    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ x& F4 u$ e) N  q, \9 Z; }
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ j3 ?  [4 T0 Q2 t  _1 k7 N
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ n& ]9 c! T- L4 H; z; N     "}"}], ",", * T3 x2 t% k9 T4 Z# L# F0 a
   RowBox[{"{", 5 G. {* \/ {  `% ^0 D9 t0 C
    RowBox[{
' s" y( `" U0 v3 a3 b$ y6 w% D# t, G    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! V0 c. X* D3 G      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 K( m0 N& P9 F5 T6 B9 L
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( x: J8 j, M9 |* g! c' E2 g
     "}"}], ",", 8 Y# K) o" k' C1 _
   RowBox[{"{",   i* J# d; F: {4 y0 b
    RowBox[{
; j/ |# K; Z: f; M    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% j4 ~; Y3 h5 {" r      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " i8 I' _% ~, s) F. z, \% B% q1 y
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 X* g% Y% W- E     "}"}], ",",
% D; J6 D: M9 Y' Z0 v: m   RowBox[{"{", % r8 c( w  h' e% J8 N7 _
    RowBox[{& }7 D. j- s; |
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) g' g5 M& \4 p4 Y7 Q. x9 D4 p) k
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % [5 t2 p1 C6 ]
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- O& P( r2 M  G+ d7 V     "}"}], ",", ; \0 E2 J4 M4 C
   RowBox[{"{",
+ `5 z/ f- |- _2 o: J  y0 n    RowBox[{' H( l3 `$ c/ E: R; D
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. Z  w2 Q2 F; T
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " w& ?$ W! l. Z3 C" I" g  Y0 T
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( @5 V$ N4 n# z# T' P. r# X" v7 ]1 v
     "}"}], ",", 5 S9 i, \" C. M! M
   RowBox[{"{", " v. I, p8 \* {% q" \4 y
    RowBox[{
% T' h; l5 v  M) z& A7 w1 G6 t, q! q    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' Y; M9 ?0 a' G+ x( p
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 x4 }: t! h0 l( b
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ _) U- r# p9 E4 @     "}"}], ",", / s& q2 S6 r7 v2 O+ f0 h
   RowBox[{"{",
& e2 H' ^8 b& n8 B; \: ?. w    RowBox[{- [6 s  M$ o3 o$ w7 |' l
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! t2 T4 U; C( t1 j; C# y. c
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " F/ f6 X) D% m( q, Y
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
$ W5 b& X# i0 S9 s* `/ L! d4 _     "}"}], ",",
: E' N/ W& N2 L* q- s   RowBox[{"{",
: m  w- S0 r' X" v2 v    RowBox[{/ s) r9 @: l" W
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' M( L- U* Q: C( D! J9 r
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 e3 c' g/ Y0 c, h$ X  X
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& d& j3 n) A6 O, S+ C/ U
     "}"}], ",", 9 I. d! p$ O5 G; b2 L
   RowBox[{"{", . U/ @$ k. f) Y$ d
    RowBox[{
2 Q! k9 }4 Y7 P4 a    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
  \) y% G% |% r  ?* i- ~2 s( V, Z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 F/ `& n* R3 y
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 h/ u5 h1 T8 v
     "}"}], ",",
' q- W: z" C, q6 d9 R   RowBox[{"{",
! X) {0 p1 H! _6 A    RowBox[{2 I8 D( ]; a! U9 {6 W
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 R$ ?/ Y2 ]; E4 J# L  Y6 D3 s      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. A' r) v0 ]* R: O8 X     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 @0 k( A2 A& l: V
     "}"}]}], "}"}]], "Output",) h4 I# ]( e, M& B
CellChangeTimes->{
8 Y% |: e1 t, j$ R1 H5 w  3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9}, ' L2 \# U+ L, P8 i. P8 t# r9 `' L
   3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9, - {) {" k7 k8 b. |
   3.5779619748823338`*^9}, 3.578012345453125*^9}]) _1 _" d# ~" y' X
}, Open  ]],% N  v& |9 Z" ~& h

( \8 ?7 t+ [/ P# U) @! vCell[BoxData[4 ^& j) w! S  j
RowBox[{"For", "[",
$ A+ W7 M% d3 a3 K  RowBox[{, l! V0 ~0 V3 t8 r8 v  E
   RowBox[{"i", "=", "1"}], ",", : O6 y* Z& H3 r
   RowBox[{"i", "\[LessEqual]", "60"}], ",", 6 p+ @) ]! ?( W1 h4 ]/ B+ D
   RowBox[{"i", "++"}], ",",
5 K4 |  y/ R1 E7 Y# V   RowBox[{"{", "\[IndentingNewLine]",
* S2 w6 N5 A( r    RowBox[{
0 S. b, ]. o7 i2 a, B8 ~5 f     RowBox[{) T0 e$ z$ h; \6 H' J) K) p! ~
      RowBox[{"m60n21", "[", . b. j9 ^; f) K9 k7 S+ M
       RowBox[{"[", # B- f! C* i7 U3 i  |% d
        RowBox[{"i", ",", "1"}], "]"}], "]"}], "=",
/ `1 L" z, f6 D      RowBox[{"u1", "/.",
# E" a0 c: ^$ P$ k3 e/ ?       RowBox[{"{", 8 O' {* w. [6 ]. J
        RowBox[{
8 {1 k& e) P3 ^% N) f+ A  [         RowBox[{"x1", "->", # d1 z$ _9 Q/ O/ s1 l2 \+ q
          RowBox[{"Data", "[",
( C# I) B# H5 D+ X* G2 z, Q* \" R. W           RowBox[{"[",
& z+ D. f  O- n8 Y8 [            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
. N$ d, y# F5 ~! o         RowBox[{"x2", "->", # S. S. q  o9 y( \- W
          RowBox[{"Data", "[",
7 G6 z* [% F$ `8 E           RowBox[{"[", ) S6 k* K, D# ]7 c- @+ J% t  {
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ) {% I* u# m7 |8 f) l/ ^
         RowBox[{"x3", "->",
- |+ R/ j% W5 i* V" S( i0 A          RowBox[{"Data", "[", 7 O' w4 G, A( d; f  w( M2 y  e
           RowBox[{"[", + l. q& T3 A* r7 |7 ~3 X
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", + J) Y2 ^0 L2 Q- C* m0 ?1 {: M; a6 \
         RowBox[{"x4", "->",
+ V2 r9 i( F( b# S6 B/ Q          RowBox[{"Data", "[", 9 T0 s. C. j0 u
           RowBox[{"[", 4 T/ G% V8 T  y6 u2 n9 r3 \
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 0 g; ^! [5 Z2 M
         RowBox[{"x5", "->",
+ B; V0 |; T( Q8 A3 L3 L' W          RowBox[{"Data", "[",
  E- L* h/ x+ E0 @. T+ h           RowBox[{"[", ! k; o: c! q' F- g
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
) n6 J$ x! F+ c& l0 J7 d         RowBox[{"x6", "->", % U/ _4 Q- ^9 q8 L" A3 y# ~$ N+ P
          RowBox[{"Data", "[",
8 R$ P5 U" u- b" E           RowBox[{"[", + m8 b% l3 L1 Z/ W3 c/ }
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", * Y( m* h- \$ k6 {( H: N/ z
         RowBox[{"x7", "->",
0 H' q; L; p' e8 G) Z          RowBox[{"Data", "[",
# a5 t4 k9 z/ s3 G/ g  A+ W           RowBox[{"[", 3 Z; }. l( U# }& N8 J
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", % n0 ^8 \2 Q6 C+ w0 d" S: f
         RowBox[{"x8", "->",
; d: s8 W. \: _! C7 k- O          RowBox[{"Data", "[", , z7 [$ E' Q6 R0 P
           RowBox[{"[",
* ]# M5 N& A* k  \            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
! F! Y$ M; F* i: d. a: Q$ j         RowBox[{"x9", "->", 1 H4 q. s. X$ O* i  k: Y& Z6 x
          RowBox[{"Data", "[", - z' ?6 h- v# @4 W
           RowBox[{"[",
4 W3 |/ R( i7 P) Y5 F- D* ~4 M) D            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
+ X0 q/ [: J( B) \5 B# S  S     "\[IndentingNewLine]",
: M  q- z0 p; _4 }5 Y     RowBox[{- F" y0 G- o( D1 F# k
      RowBox[{"m60n21", "[",
作者: 琳123    时间: 2013-8-24 13:13
涳夢 发表于 2013-7-30 20:31
, h( h7 U/ Z+ |; e% s- f/ ?! o1 I神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
' J4 E- m) E0 `8 w
(* Content-type: application/mathematica *)
( h; l( v6 r, o, ?( i, ]8 M9 }# t
. i' c& H' v# F+ P0 ?(*** Wolfram Notebook File ***)+ ~: |( r2 ]* @" Q* n/ W/ d
(* http://www.wolfram.com/nb *)3 E: r9 X% B! I7 I7 ~' t! i1 U  e4 f/ F3 ]

' J8 s1 `% V- C3 x4 k(* CreatedBy='Mathematica 7.0' *)
6 X9 }: W, j3 [  r" S: Q
& g; _$ l2 p* D2 L(*CacheID: 234*)8 T5 k* d" U9 L7 L7 Q
(* Internal cache information:
6 P9 E+ E3 s4 X! PNotebookFileLineBreakTest
1 r& X. X2 |3 x6 f1 s* L" N& ONotebookFileLineBreakTest; L7 N/ y, i1 H$ H+ r2 J4 @
NotebookDataPosition[       145,          7]
$ P7 y& E8 h7 j& ONotebookDataLength[    423629,      11534]
3 {" C$ [! W, L2 V) o4 FNotebookOptionsPosition[    412607,      11173]/ K1 y9 |) P9 W5 H
NotebookOutlinePosition[    412953,      11188]# Z& g4 U0 U* v/ F
CellTagsIndexPosition[    412910,      11185]
! a. K9 C, \" z/ \0 `7 Y& @2 o: e/ |WindowFrame->Normal*)
0 A/ b( e3 n# y0 ?9 r4 H0 d4 n# {+ Q& W' j6 {2 E" k) A  ~! X
(* Beginning of Notebook Content *)* O5 e! Q, B  ^' G. e8 w' E
Notebook[{
2 }6 p! i  g. T8 X' A: \' z8 X$ J2 e! [# _
Cell[CellGroupData[{' O% u  t" P. i! I
Cell[BoxData[
) G8 a5 R+ x$ b* @2 o1 v/ u RowBox[{"Data", "=",
/ @( j  s4 a+ f* x) h, |# J& Q1 q  RowBox[{"{", ; }# `8 a0 e+ E* y
   RowBox[{1 L) V; o. A6 ^: @2 J
    RowBox[{"{", 2 w2 {6 H5 k8 v1 g
     RowBox[{# A# x0 E5 q* q3 h; N: Z
     "0.304348", ",", "0.552818", ",", "0.330370", ",", "0.025823", ",", 2 K! b' N3 K* Q- \  |1 |
      "0.538462", ",", "0.752072", ",", "0.408943", ",", "0.504532", ",",   I0 M, O5 ]# p
      "0.000000", ",", "0.277091", ",", "0.873239"}], "}"}], ",", " ", 3 s- D$ M4 n: O: P2 T* j8 W# n/ I+ {
    RowBox[{"{",
8 ^+ |2 l% f+ k( Q     RowBox[{
6 j4 D. J6 Q. q# @) h* D) R0 G     "0.565217", ",", "0.346857", ",", "0.393585", ",", "0.118785", ",", 8 G  v* o+ q7 g& U( b3 |
      "0.349650", ",", "0.370761", ",", "0.413008", ",", "0.502518", ",",
+ `1 K: E8 A  C7 b  w$ I, i      "0.000000", ",", "0.220259", ",", "0.464789"}], "}"}], ",", " ", % \: Y0 [1 H, i& i
    RowBox[{"{",
3 {' i4 O& j1 S4 j) d& D! m  k     RowBox[{
8 T1 g+ Q/ o& i* h5 q+ ]' M* r     "0.608696", ",", "0.339186", ",", "0.494300", ",", "0.099338", ",",
/ Q. W( U: q% j: j      "0.321678", ",", "0.375283", ",", "0.000000", ",", "0.505539", ",", 1 M. V. h7 x9 q& _
      "0.000000", ",", "0.899882", ",", "0.492958"}], "}"}], ",", " ",
9 W1 J9 A# c# I. z: o8 ~    RowBox[{"{",
* d9 f3 ^( E- W$ m5 z: Z     RowBox[{
( Y# x, f; R9 Z8 a" S     "0.521739", ",", "0.334022", ",", "0.355500", ",", "0.025156", ",",
  k. u1 x, y& a# ]/ ?' ]) A      "0.489510", ",", "0.376790", ",", "0.411382", ",", "0.000000", ",",
! _1 Z2 x$ a& O0 `9 ]9 r5 G# x      "0.000000", ",", "0.265607", ",", "0.774648"}], "}"}], ",", " ", + F- _5 p" z1 A3 Z$ E. q
    RowBox[{"{", : W, J$ b- p3 g4 J3 w$ |, G: _
     RowBox[{$ w& V6 [% G) s5 b8 O% |
     "0.565217", ",", "0.346931", ",", "0.218229", ",", "0.043639", ",",
/ T  g( ]3 O9 L& Z/ v; v" a9 L      "0.503497", ",", "0.761115", ",", "0.415447", ",", "0.503525", ",", + w" E! z9 _/ G
      "0.000000", ",", "0.642226", ",", "0.380282"}], "}"}], ",", " ",
- `/ V3 ~$ `' E; ]" ?2 g    RowBox[{"{", 0 Z; p6 G0 O# E# w1 l
     RowBox[{$ J; ]' X, s0 R; S1 ?
     "0.478261", ",", "0.293154", ",", "0.259368", ",", "0.026688", ",", 9 z6 L  @3 d; b/ B
      "0.587413", ",", "0.755840", ",", "0.409756", ",", "0.498489", ",",
! z0 l: t6 y5 \5 J; N/ ^& K5 W      "0.000000", ",", "0.306243", ",", "0.647887"}], "}"}], ",", " ",
' D6 A9 c1 P- e  a0 ]    RowBox[{"{", . X! e$ Q$ Q3 R
     RowBox[{  F# s. \1 z8 t3 G1 o( X8 b6 T8 v
     "0.347826", ",", "0.359693", ",", "0.614393", ",", "0.081521", ",",
' h. W8 f2 o8 G- R      "0.258741", ",", "0.367747", ",", "0.410569", ",", "0.499496", ",", 8 h. l5 ]& l8 c, F. I1 x
      "0.000000", ",", "0.186985", ",", "0.563380"}], "}"}], ",", " ",
4 }& A1 Q  Z5 {- o+ i; n0 l    RowBox[{"{",
: N2 Q- C6 E! x' e) e     RowBox[{$ q7 I* X1 |! w- g8 p
     "0.565217", ",", "0.705518", ",", "0.510223", ",", "0.066892", ",", + E7 U9 N( [% ^) u# y! p
      "0.244755", ",", "0.748304", ",", "0.000000", ",", "0.000000", ",",
+ G/ i7 x7 f) l- G% s      "0.243032", ",", "0.175501", ",", "0.295775"}], "}"}], ",", " ", 4 V# C: n+ g/ H. E
    RowBox[{"{",
5 w) c1 g6 a9 t$ C     RowBox[{
0 n7 M( S& c" Q, O. C1 o! S     "0.565217", ",", "0.710460", ",", "0.649730", ",", "0.119897", ",",
9 a- E  U( i/ p" x      "0.468531", ",", "0.000000", ",", "0.636585", ",", "0.000000", ",", 8 M) e9 H* ], v" g# i8 M8 s0 X
      "0.766748", ",", "0.147821", ",", "0.338028"}], "}"}], ",", " ", 8 L! [* R) I. H9 v' G5 H  D
    RowBox[{"{", 3 n' E# C/ \% t0 B
     RowBox[{
1 x6 |5 T7 M% {- V: u. U     "0.565217", ",", "0.697772", ",", "0.171587", ",", "0.028566", ",",
# J' C2 @8 T8 a      "0.363636", ",", "0.449887", ",", "0.408130", ",", "0.000000", ",", % m$ Z: G! }; h
      "0.000000", ",", "0.352768", ",", "0.211268"}], "}"}], ",", " ", 0 P, ^/ j; p, V  Y3 @; P: P! q
    RowBox[{"{",
7 A" e" j' @4 k' f/ \     RowBox[{6 d& L/ F% I' f' ]( z$ b
     "0.282609", ",", "0.660888", ",", "0.460064", ",", "0.110334", ",", / }$ ~5 X- r' a7 t  m8 j
      "0.475524", ",", "0.000000", ",", "0.545528", ",", "0.000000", ",", 7 _9 l4 E! ^$ f7 h, J
      "0.551100", ",", "0.238810", ",", "0.690141"}], "}"}], ",", " ", 5 M! ]9 b# Y+ g4 J% H
    RowBox[{"{",
! L0 g# W$ @; ^* E- O     RowBox[{% n9 g6 ~; |6 u" Z4 g/ ~
     "0.130435", ",", "0.682724", ",", "0.258697", ",", "0.019299", ",",
( a6 w5 f, W& ~/ A" R, B: \      "0.510490", ",", "0.420497", ",", "0.535772", ",", "0.000000", ",",
4 H8 D9 K+ t& d4 C+ n      "0.494866", ",", "0.095701", ",", "0.436620"}], "}"}], ",", " ", ) m* X) H, B0 A) ^4 O
    RowBox[{"{", $ b) `) J: Y' K
     RowBox[{1 G/ p' R) f& r
     "0.347826", ",", "0.697772", ",", "0.108288", ",", "0.022413", ",", 5 I% D4 b$ }7 v" {  u
      "0.356643", ",", "0.247928", ",", "0.908130", ",", "0.000000", ",", 7 L# ~& T9 R9 O1 m* o  I4 U
      "0.383374", ",", "0.162839", ",", "0.000000"}], "}"}], ",", " ",
5 q; Q) v- R# _    RowBox[{"{", ( u; p% i% a2 R
     RowBox[{
' x% t. f$ ]5 m     "0.695652", ",", "0.718280", ",", "0.339730", ",", "0.110285", ",",
- Y4 @  j. }8 B4 s. ^      "0.335664", ",", "0.000000", ",", "0.636585", ",", "0.780463", ",", & i' t7 x+ P4 P/ k& n
      "0.000000", ",", "0.335395", ",", "0.267606"}], "}"}], ",", " ",
  j' q( U. z& g* }/ @9 ?    RowBox[{"{", 5 d% n3 i$ L. s
     RowBox[{, l- p3 ^  Z8 q0 h. `% k  C
     "0.652174", ",", "0.569711", ",", "0.414297", ",", "0.175398", ",",
* l1 s. D8 T+ M0 c) i' z      "0.167832", ",", "0.000000", ",", "0.544715", ",", "0.000000", ",", 9 i- j; o8 c# `) O' }2 e) A& C
      "0.000000", ",", "0.160483", ",", "0.211268"}], "}"}], ",", " ",
0 x9 q: k( Q' ]5 K) e1 h/ t    RowBox[{"{", $ B' M0 l! R% P; W' B1 @
     RowBox[{# Z4 X& E0 [) x
     "0.000000", ",", "0.395544", ",", "0.027011", ",", "0.048087", ",",
5 c% T' `' {5 C8 v7 y      "0.496503", ",", "0.000000", ",", "0.452033", ",", "0.000000", ",", / H1 l) Y* a- `4 A
      "0.278729", ",", "0.398115", ",", "0.408451"}], "}"}], ",", " ", 2 U1 ^- ^) U; D
    RowBox[{"{", 2 T) Y$ D3 z, U) z
     RowBox[{
/ ~; P% V4 _1 g$ |. l     "0.608696", ",", "0.425199", ",", "0.012979", ",", "0.000000", ",",
3 `! a5 P/ m+ a; P      "0.482517", ",", "0.509420", ",", "0.406504", ",", "0.000000", ",", & Y5 K" m3 s; I3 q- s2 V6 }5 P: ~
      "0.000000", ",", "0.157833", ",", "0.478873"}], "}"}], ",", " ",
7 b+ C: X- @: v1 N    RowBox[{"{",
+ n" J1 [7 N% G, f- O; ~$ ^0 \, d  `     RowBox[{
: }, S4 U0 N" I5 A$ e( X     "0.608696", ",", "0.577973", ",", "0.213587", ",", "0.030889", ",", . r% G2 d3 B, N# S3 P, E
      "0.370629", ",", "0.000000", ",", "0.452846", ",", "0.000000", ",",
; d# o1 j7 d9 Q      "0.000000", ",", "0.315665", ",", "0.380282"}], "}"}], ",", " ",
* A! D" U& ^4 l& I, e6 |- [5 u    RowBox[{"{",
3 C. Y% G4 `2 \9 N     RowBox[{( g1 L( O1 F/ m5 I6 h2 X
     "0.565217", ",", "0.572293", ",", "0.655012", ",", "0.281852", ",", 3 w7 N* f4 z; s$ l$ x, C: g
      "0.000000", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", % ~1 j! i4 d- w6 `& {0 [9 `: F
      "0.000000", ",", "0.492344", ",", "0.211268"}], "}"}], ",", " ", 5 Y8 J- x6 Q$ h( X1 v
    RowBox[{"{", - k" \/ m* g" O3 v4 g8 r/ g
     RowBox[{
0 R# f$ l- H& G! ?     "0.130435", ",", "0.562039", ",", "0.331662", ",", "0.032643", ",", ) E) m0 D. h7 c' ~! Z
      "0.314685", ",", "0.414469", ",", "0.275610", ",", "0.000000", ",", 6 s. w! o. i3 I2 @- |" d
      "0.000000", ",", "0.638398", ",", "0.436620"}], "}"}], ",", " ",
, O3 t1 T! d& S/ Q+ E* d% R2 [    RowBox[{"{", 2 c5 A) F: K- j8 g+ j  M
     RowBox[{
6 K  C( t% Q; o6 o     "0.717391", ",", "0.736205", ",", "0.267704", ",", "0.036152", ",", ) H( V/ ]5 U" h5 k, l
      "0.307692", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
0 k, s  [5 F* }& u: \! F      "0.000000", ",", "0.392521", ",", "0.478873"}], "}"}], ",", " ", 7 E3 W# V1 y- R- K7 ?) |
    RowBox[{"{", 3 j1 w) S2 ]2 {% t( {! B
     RowBox[{
! W3 h. m0 I3 ~5 f: g( e     "0.608696", ",", "0.769475", ",", "0.289283", ",", "0.022882", ",", 5 e) ^- C, s& Q; B, L  C* l
      "0.321678", ",", "0.000000", ",", "0.274797", ",", "0.333333", ",",
9 x0 e; O( q$ |, l4 W      "0.000000", ",", "0.362191", ",", "0.295775"}], "}"}], ",", " ", ! r) T" Z) K' g# I, N
    RowBox[{"{",
' A+ P9 r8 X; I1 G: W5 f4 K$ U     RowBox[{
1 u0 Y/ ?" @) C( h- v8 B& h' r& h     "0.913043", ",", "0.170478", ",", "0.000000", ",", "0.012973", ",",
" c+ ?% k8 Z0 ^9 j" |- ~      "0.293706", ",", "0.000000", ",", "0.000000", ",", "0.672709", ",",
8 A: m- @% x- p8 F4 M5 @      "0.000000", ",", "0.114252", ",", "0.028169"}], "}"}], ",", " ", % L* x7 T! H7 S: ]* j" v, A8 }
    RowBox[{"{", / E8 ~! W3 H+ T# J
     RowBox[{
, Z: T: k/ u: @. U* P     "0.739130", ",", "0.193199", ",", "0.160584", ",", "0.037907", ",",
- |9 R7 d& S4 n* a: w# q2 y/ i      "0.461538", ",", "0.000000", ",", "0.684553", ",", "0.000000", ",", " _9 y* J0 j  o- f3 j% D
      "0.000000", ",", "0.401355", ",", "0.436620"}], "}"}], ",", " ",
/ J3 C* `* ~, k' c3 r    RowBox[{"{", . n% z& C7 x6 i4 G
     RowBox[{1 ^0 p7 M; L6 \6 l6 W6 P
     "0.826087", ",", "0.203969", ",", "0.234619", ",", "0.272240", ",",   h$ C- C  [! {$ R
      "0.265734", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 4 W& s' ~  N" l. c; C' u* p
      "0.000000", ",", "0.827444", ",", "0.394366"}], "}"}], ",", " ",
0 r2 l9 r6 M4 a. V. o    RowBox[{"{",
% i8 n2 P( Y$ [3 c4 w# H     RowBox[{) q# w4 ~3 W6 V: Y
     "1.000000", ",", "0.199248", ",", "0.295044", ",", "0.041613", ",", # Q1 I0 L+ b' @; M9 H  {
      "0.209790", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
* ?/ D- Q; a$ k* f" S      "0.000000", ",", "0.676973", ",", "0.295775"}], "}"}], ",", " ", - q; z2 ]* E) u: Y. g
    RowBox[{"{",
& R- A) ?2 D7 k& T9 ~# U3 a5 F( R. o     RowBox[{4 f* i' @8 a2 i2 T4 F  c! W
     "0.869565", ",", "0.180363", ",", "0.243056", ",", "0.098349", ",",
3 N- C8 m: g1 i/ S      "0.265734", ",", "0.503391", ",", "0.000000", ",", "0.000000", ",", / C/ M- A( Z# a5 \! B1 u8 X
      "0.000000", ",", "0.331272", ",", "0.830986"}], "}"}], ",", " ", / x$ s" s6 Q8 C; k2 T' A9 m
    RowBox[{"{", ) z8 V  g4 b! q1 @: r
     RowBox[{  O% [) I$ g4 ]2 H" N$ t
     "0.695652", ",", "0.551785", ",", "0.326201", ",", "0.253608", ",", 0 C* z' I. s6 Y5 u
      "0.195804", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
7 {4 |6 U6 @) o2 f      "0.000000", ",", "0.845701", ",", "0.169014"}], "}"}], ",", " ", * f% d* }" H0 {& w# f# z5 K/ r: }
    RowBox[{"{",
  X0 K4 M8 V8 e. H/ n, `* j     RowBox[{
4 N7 I+ O2 ?8 L, c     "0.652174", ",", "0.572293", ",", "0.111511", ",", "0.035584", ",", ) [7 X2 Q) O1 m) h5 Z) s
      "0.405594", ",", "0.249435", ",", "0.544715", ",", "0.000000", ",", ! E+ \$ U4 T" Y2 O
      "0.000000", ",", "0.287102", ",", "0.366197"}], "}"}], ",", " ", 7 @8 N* I" S9 S2 S
    RowBox[{"{",
( g# K, _! A/ q; p* h2 t' w) x     RowBox[{( H  P6 T: I2 K6 ]; U- x
     "0.652174", ",", "0.562039", ",", "0.336155", ",", "0.014604", ",",
) i( L# Q9 i  d/ l+ f0 |      "0.174825", ",", "0.244160", ",", "0.000000", ",", "0.000000", ",", ( g, Q* _8 ~9 \& G1 [& _' ~- n
      "0.000000", ",", "0.000000", ",", "0.309859"}], "}"}], ",", " ",
9 j  ~" z- p$ U; {) z) m    RowBox[{"{",
- h4 J2 Y" N2 e  M     RowBox[{! K/ s; e# j% {
     "0.565217", ",", "0.577383", ",", "0.155870", ",", "0.030963", ",",
2 h. _$ }4 L. z% g. k/ L7 c      "0.258741", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
. `% `8 H  {1 E& y( a      "0.000000", ",", "0.050059", ",", "0.352113"}], "}"}], ",", " ", 0 w$ `# F( G* M. l/ ?! h, `
    RowBox[{"{",
, {  ]  a: n2 {! [* o     RowBox[{/ b+ E' K) m2 z* H% g0 J
     "0.565217", ",", "0.613234", ",", "0.232956", ",", "0.053870", ",", - Z8 H& e, H1 w- m+ g( s
      "0.230769", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 1 P! Q) B4 W; G, U6 ?3 r/ C
      "0.000000", ",", "0.254122", ",", "0.309859"}], "}"}], ",", " ",
- s; a! n& U: l9 C    RowBox[{"{",
4 e1 A- o# p! [6 J( Z( G8 q     RowBox[{
7 J4 e$ s8 t' B2 w     "0.565217", ",", "0.559531", ",", "0.493262", ",", "0.046209", ",",
* F; Z% Q* b) ]9 X7 I; S      "0.293706", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", $ w$ ^7 p4 [, |3 z, G
      "0.000000", ",", "0.086867", ",", "0.774648"}], "}"}], ",", " ", + N; t" y8 K* C( P
    RowBox[{"{",
2 S) X0 l/ I( _# k- X: J5 H     RowBox[{
# G/ j- y/ n2 w- K     "0.608696", ",", "0.569711", ",", "0.111932", ",", "0.013542", ",",
" D' m& @6 G3 q3 K/ {: ^      "0.335664", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", ! z% o! ]7 C1 y. b, H
      "0.168704", ",", "0.659894", ",", "0.422535"}], "}"}], ",", " ",
4 ?. r8 b+ N+ s# N: `6 l3 k    RowBox[{"{",
' k1 S4 P5 D0 k  V  A2 u* U8 p     RowBox[{! r7 S4 n+ t; D% p1 ~
     "0.608696", ",", "0.564547", ",", "0.329844", ",", "0.202036", ",",
0 V( E' k+ N2 J, Q& g' M      "0.510490", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", , h4 X4 Z) P  q  C/ `
      "0.000000", ",", "0.317138", ",", "0.887324"}], "}"}], ",", " ", ( q, x0 m3 @6 Z2 l" R& ~1 u
    RowBox[{"{", # w# r6 U) J2 |" D+ U
     RowBox[{* k" G( |& F$ d8 D. T! v
     "0.521739", ",", "0.546695", ",", "0.165788", ",", "0.029431", ",", $ k$ c& I' j: `/ q) f
      "0.510490", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
1 {1 W8 n  s  z! H$ E0 h3 U1 y      "0.000000", ",", "0.605124", ",", "0.887324"}], "}"}], ",", " ",
% r) B* z! P# o* }0 f8 x    RowBox[{"{",
; t" i$ o! x, m5 Q4 x     RowBox[{
6 f( G7 }% Q7 x; T     "0.521739", ",", "0.564178", ",", "0.400518", ",", "0.045023", ",",
$ w4 h. W: k0 m$ |3 a      "0.615385", ",", "0.368500", ",", "0.660163", ",", "0.301108", ",", 3 n# Q, p" C! z) B
      "0.000000", ",", "0.321260", ",", "0.859155"}], "}"}], ",", " ",
5 y0 n6 [! s( E/ U; ^    RowBox[{"{", # f# ~$ W; _9 A9 o( ]
     RowBox[{
' X' z. R( A* a: ?. p     "0.413043", ",", "0.551859", ",", "0.544826", ",", "0.230503", ",", / j/ f: U2 h; h: a3 p& R- b7 E
      "0.244755", ",", "0.530520", ",", "0.819512", ",", "0.000000", ",",
- v% v1 M+ V! R5 A      "0.000000", ",", "0.595406", ",", "0.239437"}], "}"}], ",", " ", 9 p3 p5 ?! g* r/ {, s! a: \# e! L8 a
    RowBox[{"{",
- w1 q* V& v* x     RowBox[{5 u9 `. k* Y" _, f, V
     "0.652174", ",", "0.549277", ",", "0.257578", ",", "0.058688", ",",
9 V$ X6 [: [- e" [      "0.356643", ",", "0.000000", ",", "0.817886", ",", "0.000000", ",", 9 U0 R4 `7 T( T" o) Z
      "0.000000", ",", "0.555359", ",", "0.295775"}], "}"}], ",", " ", 6 t2 P) V: y8 ~3 t- t
    RowBox[{"{", ' `8 x/ n9 ~: z3 N6 c1 O' ]- I
     RowBox[{/ R( [' j# U$ l( m7 ^) R3 S
     "0.695652", ",", "0.549277", ",", "0.572308", ",", "0.082411", ",",
& z# f1 K& |! p; z      "0.461538", ",", "0.528259", ",", "0.819512", ",", "0.000000", ",",
! v1 k6 l# `/ ^* h4 U6 A      "0.000000", ",", "0.333333", ",", "0.746479"}], "}"}], ",", " ", 1 H+ w; r! P: `, ?' A2 R
    RowBox[{"{",
" _# g: d3 |8 E0 |( Z/ B     RowBox[{
1 `% d2 b# h" G, i% l* Z1 @1 E8 ]     "0.434783", ",", "0.551785", ",", "0.530346", ",", "0.151651", ",", ) V* r! Z: `) B; M7 }6 O9 F
      "0.790210", ",", "0.529013", ",", "0.409756", ",", "0.000000", ",",
8 v9 L$ F  k6 `: K- |, V      "1.000000", ",", "0.149588", ",", "1.000000"}], "}"}], ",", " ", 4 ^9 i3 c' {' @9 A
    RowBox[{"{", ' [4 A# K5 a0 g& V, ]2 X
     RowBox[{
4 N3 z/ z% v3 s. d+ M     "0.282609", ",", "0.531278", ",", "0.321428", ",", "0.228625", ",",
* n- @3 j6 ~: }4 k      "0.594406", ",", "0.530520", ",", "0.410569", ",", "0.000000", ",",
: H3 f( g! N5 D) d8 S* l; M# B      "0.757457", ",", "0.493522", ",", "0.549296"}], "}"}], ",", " ", 4 T, t7 a0 |; F: R& ~2 D6 y
    RowBox[{"{", , F2 [( c- q* e/ f
     RowBox[{
0 ^0 }, y6 o5 o; E- o: l     "0.347826", ",", "0.705444", ",", "0.109343", ",", "0.072008", ",",
9 a+ u+ n" o6 @, x; T- @      "0.496503", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
. _( i- y. F- p+ _' S3 M3 U      "0.752567", ",", "0.224676", ",", "0.366197"}], "}"}], ",", " ", 7 ?- z5 h5 [6 i* U. |6 }
    RowBox[{"{",
0 ~# i1 a; t) V7 b9 L7 {     RowBox[{* ]7 J* O, j4 K. Z1 L7 V" g) A. y
     "0.391304", ",", "0.705444", ",", "0.045908", ",", "0.073120", ",",
) Q/ T; j& c( C4 {( F0 Q0 k' ]      "0.622378", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 1 U" V9 |4 p1 V5 V# ^1 r
      "0.496333", ",", "0.410188", ",", "0.549296"}], "}"}], ",", " ", 5 m- y- v2 o  L
    RowBox[{"{", - o4 E" P7 `" P
     RowBox[{
  [1 y( H+ \! G: E     "0.282609", ",", "0.661921", ",", "0.344992", ",", "0.085178", ",",
( d  m0 C" S( j" |      "0.293706", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", & T5 ]" ^# a! s) a% \3 O- h
      "0.000000", ",", "0.668139", ",", "0.577465"}], "}"}], ",", " ", 7 b  [9 y4 M( q; d2 _- M& _
    RowBox[{"{",
  d# p- j" z" L. ~1 N6 C1 i' X5 \     RowBox[{
. x8 \% |: w& `: @% b: x4 Z     "0.478261", ",", "0.661921", ",", "0.644209", ",", "0.077296", ",",
  ~+ G' K  N" i) D      "0.412587", ",", "0.000000", ",", "0.413008", ",", "0.502518", ",", ! u, }# |) ^6 ^0 {4 }' ?- {; C& T6 T5 g
      "0.000000", ",", "0.102179", ",", "0.690141"}], "}"}], ",", " ",
( ?+ X* u6 J: r% v* Z2 u    RowBox[{"{", ; M' J# {8 f+ k  {' J! E
     RowBox[{
0 V# s; A8 M4 H$ [  \  V) \3 F- T- l1 q     "0.173913", ",", "0.984656", ",", "0.420753", ",", "0.137022", ",", 2 b0 P$ u9 s: ?) y  U# n
      "0.321678", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
# w% R- f- t6 V      "0.000000", ",", "0.380742", ",", "0.718310"}], "}"}], ",", " ", $ W; ?6 q& a: ^1 F: |
    RowBox[{"{", / r' B) R6 W% i5 ?
     RowBox[{
3 K& w$ y5 D" h6 R, Q3 e     "0.500000", ",", "0.984656", ",", "0.288432", ",", "0.047692", ",",
  P1 Q& Z  c$ x6 x# t+ j+ d  j      "0.279720", ",", "0.000000", ",", "0.821138", ",", "0.510574", ",",
7 i" ]" [' W% d1 A6 f0 r( K7 h      "0.000000", ",", "0.319494", ",", "0.521127"}], "}"}], ",", " ", : d* h  N+ W$ F
    RowBox[{"{", ' J: o1 J) i1 M: Z4 Q, c3 [
     RowBox[{5 ?' Z8 e) u! P; c2 ?6 P
     "0.391304", ",", "1.000000", ",", "0.452931", ",", "0.150909", ",", 1 `6 S9 |1 T1 _0 Z. O8 J4 J
      "0.342657", ",", "0.370761", ",", "0.000000", ",", "0.509567", ",", % N4 x+ u9 ]& x& C2 _5 t
      "0.000000", ",", "0.031508", ",", "0.929577"}], "}"}], ",", " ", - |& N5 a/ D; S# X6 ^
    RowBox[{"{",
2 S$ Q/ ~: D- q$ n+ \' n     RowBox[{
5 j$ U7 C9 S1 ?+ Y. W! k     "0.739130", ",", "0.774639", ",", "0.175120", ",", "0.036498", ",", 6 t5 W, Y- e" ], K7 {7 W3 F& a
      "0.391608", ",", "0.739261", ",", "0.408943", ",", "0.553877", ",",
/ y; @- g2 X( [$ U7 p      "0.000000", ",", "0.292108", ",", "0.521127"}], "}"}], ",", " ", 9 b/ l% Q( U' o7 @' W
    RowBox[{"{",
+ x7 w/ b; S1 d/ _     RowBox[{# ~# S5 q& P3 s2 x1 ?! }
     "0.586957", ",", "0.982074", ",", "0.158462", ",", "0.063902", ",", ' ~2 `  Q4 r9 D1 t: q" C% A+ l) k
      "0.321678", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
- f0 V1 t! }* @; C8 |9 z2 A4 S      "0.000000", ",", "0.329505", ",", "0.338028"}], "}"}], ",", " ", ( ^: N6 M7 P$ r+ `9 ]) q9 q
    RowBox[{"{",
1 r. D; G! U, Q) u* U, O  f     RowBox[{* c; a2 z- c) K5 ?3 ]9 o5 f7 h# Z
     "0.543478", ",", "0.982074", ",", "0.306872", ",", "0.041934", ",", & T+ k/ g! [( v8 C
      "0.426573", ",", "0.380558", ",", "0.414634", ",", "0.506546", ",", 6 \4 {1 L4 P. K' T
      "0.000000", ",", "0.337456", ",", "0.380282"}], "}"}], ",", " ",
; X/ ?+ m1 P2 w    RowBox[{"{", 7 A& {3 y1 F7 O" v
     RowBox[{! N( {  F$ V0 @
     "0.739130", ",", "0.997418", ",", "0.170143", ",", "0.058268", ",",
6 R: S/ x# {! r2 C9 F      "0.538462", ",", "0.248681", ",", "0.000000", ",", "0.339376", ",",
9 N* e1 f8 t+ y% ^2 q$ m5 K2 I' _      "0.000000", ",", "0.766784", ",", "0.676056"}], "}"}], ",", " ", - y4 m# s" ]  D! L8 G
    RowBox[{"{",
6 r8 f. g! n8 X1 l+ f' a     RowBox[{
. }0 l6 R  s2 M; {0 I' @     "0.695652", ",", "0.700428", ",", "0.139361", ",", "0.182169", ",",
; c* ?" F$ T3 f      "0.412587", ",", "0.243406", ",", "0.000000", ",", "0.000000", ",",
2 d) j' P' j2 G4 p% k      "0.136919", ",", "0.676678", ",", "0.591549"}], "}"}], ",", " ", / \6 q- H8 p+ U" i% n& ^3 q, |+ x
    RowBox[{"{",
8 x" X/ v& L7 y6 p9 O7 C- x$ j# x* w     RowBox[{
; R! C. o! n5 g. d     "0.782609", ",", "0.751623", ",", "0.177646", ",", "0.350845", ",", 7 o  k! {' E4 C+ d( R/ ]
      "0.412587", ",", "0.502638", ",", "0.000000", ",", "0.000000", ",",
/ _4 O3 [. ~9 a$ G3 u& H- r+ b# {# Q      "0.178973", ",", "0.541519", ",", "0.464789"}], "}"}], ",", " ",
) L7 T4 X9 o6 v; ^+ }    RowBox[{"{",
  s8 _; ~6 g7 q6 U6 _! u9 ]     RowBox[{
6 S( \1 G. q  a0 {     "0.652174", ",", "0.751623", ",", "0.355593", ",", "0.039883", ",", 7 S' H0 f) s0 ?8 P2 T4 p) W3 O$ p; j
      "0.195804", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
3 ^) `* f# ?+ x2 I; n7 C6 V      "0.000000", ",", "0.064488", ",", "0.295775"}], "}"}], ",", " ", 3 S0 J; @4 w2 J7 m1 g
    RowBox[{"{", 8 F# M0 L3 r6 G; ^8 ~3 U
     RowBox[{1 @6 x; W4 w6 r' h
     "0.521739", ",", "0.679847", ",", "0.152375", ",", "0.030048", ",",
0 E& T6 i) C+ \9 q( o" \9 H3 a      "0.363636", ",", "0.000000", ",", "0.271545", ",", "0.000000", ",", 9 c) V0 U! K" z" @. b- b. s5 Z) M
      "0.000000", ",", "0.463192", ",", "0.380282"}], "}"}], ",", " ", / }8 m% o( M+ b. ^- L) D
    RowBox[{"{",
6 D8 d+ v: e8 ?1 s* D, ?0 f7 [     RowBox[{; [0 Q  {4 d. N$ w& f( p% ]. t3 @2 f
     "0.434783", ",", "0.728533", ",", "0.186830", ",", "0.129510", ",",
9 F$ x- \  T  ^8 h, O1 v      "0.195804", ",", "0.000000", ",", "0.269919", ",", "0.000000", ",", , R) T" _, F( ]& L
      "0.326650", ",", "0.388398", ",", "0.211268"}], "}"}], ",", " ", 8 ~. o9 `/ |3 s; N" ^0 v6 A
    RowBox[{"{",
8 \) L. R+ M6 j& P     RowBox[{
& a9 y4 z2 G) Y     "0.608696", ",", "0.606152", ",", "0.158058", ",", "0.090170", ",",
/ X% I! q) b% J( C      "1.000000", ",", "0.166541", ",", "0.278049", ",", "0.000000", ",", 9 }; h9 h% [7 i0 y9 M
      "0.236675", ",", "0.262367", ",", "0.253521"}], "}"}], ",", " ", 5 f( x& F. q$ F6 k
    RowBox[{"{", 4 e! I/ M6 f3 f& K
     RowBox[{/ l* v0 P- L' y
     "0.608696", ",", "0.633742", ",", "0.322697", ",", "0.068597", ",", $ {& h/ `8 s+ w7 `4 F1 G) L
      "0.328671", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
2 |7 e9 R4 `5 S* S6 [      "0.287042", ",", "0.290931", ",", "0.281690"}], "}"}], ",", " ", % e6 |4 S; D( q; X# R
    RowBox[{"{", % J4 v! h( S7 s: e$ P4 x
     RowBox[{
4 ~' x+ F" @, t( u5 T- a     "0.478261", ",", "0.539023", ",", "0.412108", ",", "0.107566", ",",
1 m$ M4 D) q# A% O6 d      "0.237762", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", ' M0 U, \+ p4 n. g, Z
      "0.000000", ",", "0.380742", ",", "0.507042"}], "}"}], ",", " ", 7 K) P2 v  {3 P, r+ {) `1 x- z
    RowBox[{"{",
0 `+ c4 Z6 D, R0 o6 d' a: @! _     RowBox[{
7 E* u, e2 M! E* ^8 l     "0.608696", ",", "0.551859", ",", "0.176821", ",", "0.076332", ",", ! k9 {3 k* L+ O  [2 ]
      "0.265734", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", ( L/ H7 P  h. {9 f1 `7 U& A# V) {
      "0.000000", ",", "0.429034", ",", "0.239437"}], "}"}], ",", " ", & N8 l7 y* U" L" H& j* O! s& {
    RowBox[{"{", ' I4 W. w& R6 N' Q: O
     RowBox[{
. Y- A& D0 H6 G8 q" H     "0.652174", ",", "0.551859", ",", "0.033549", ",", "0.018459", ",", + C5 B6 Y8 g. t/ ?$ ~
      "0.573427", ",", "0.000000", ",", "0.553659", ",", "0.000000", ",", 5 ]$ h; M% R/ i6 B# q2 I" h8 }
      "0.404890", ",", "0.193168", ",", "0.394366"}], "}"}], ",", " ", ; @$ q$ O. |9 Y. `. a& D
    RowBox[{"{", 4 B3 M7 m# p! H& }* x8 g
     RowBox[{* }2 z* x7 {* C8 {% K  ^1 M
     "0.695652", ",", "0.595382", ",", "0.277493", ",", "0.100326", ",", 7 f' [% P" C3 `* ~+ I0 _
      "0.286713", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", ; P2 f2 N, k2 E
      "0.000000", ",", "0.448763", ",", "0.338028"}], "}"}], ",", " ", ; U% H7 U* j; _( p) \* f
    RowBox[{"{", 6 E# t0 ?; D  P) Q5 A
     RowBox[{2 h, D: ~) A: Y# J! v2 @
     "0.565217", ",", "0.559531", ",", "0.422669", ",", "0.078111", ",", ; g, ~$ N# m! K2 ~8 E
      "0.286713", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", ) J8 B0 H" l: m8 R3 h
      "0.000000", ",", "0.442285", ",", "0.394366"}], "}"}], ",", " ",
1 w3 v/ u$ E% B' M5 ]+ x) s    RowBox[{"{", 6 @0 H( v9 ~7 t8 X. i0 q/ c1 W
     RowBox[{
! |  Y- L7 r+ h. u     "0.586957", ",", "0.398126", ",", "0.140619", ",", "0.069116", ",",
  i8 e; I7 A6 H) l+ a  l      "0.461538", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", # }! J/ v- h3 J" m8 C
      "0.000000", ",", "0.575383", ",", "0.154930"}], "}"}], ",", " ",
# ]! }/ s8 g/ r9 E. S) s3 B  Y% T% M    RowBox[{"{", 6 {% s& D( I' k0 X
     RowBox[{3 P& O9 t  ~# X9 O
     "0.695652", ",", "0.398126", ",", "0.019829", ",", "0.041366", ",",   c: B6 _" e6 F, `1 I
      "0.552448", ",", "0.244160", ",", "0.000000", ",", "0.000000", ",",
# U" i" A% B- l  W      "0.000000", ",", "0.515607", ",", "0.591549"}], "}"}], ",", " ", $ S, Z7 B$ r9 u+ S; K, V5 H
    RowBox[{"{", ! M9 b8 u1 R3 b* Y9 t% c2 _3 B' \+ T
     RowBox[{
7 X1 H, z2 c% l$ z1 Y     "0.695652", ",", "0.700354", ",", "0.422467", ",", "0.068128", ",", - A$ v# \0 Z( U: p
      "0.209790", ",", "0.000000", ",", "0.000000", ",", "0.500504", ",",
* ]- f1 G# I# U0 e      "0.000000", ",", "0.057715", ",", "0.408451"}], "}"}], ",", " ",
8 ?1 C- P+ |( `- Q! C6 C    RowBox[{"{",
9 Z, D4 D% {3 c     RowBox[{2 E- v( f+ e# b3 k0 s) y& v, K7 w
     "0.521739", ",", "0.193125", ",", "0.210582", ",", "0.110433", ",", ' v- X+ z+ V; Y: C- J, E
      "0.447552", ",", "0.382065", ",", "0.413008", ",", "0.498489", ",", + h. _$ [9 G, Y& T5 K3 n
      "0.000000", ",", "0.174617", ",", "0.295775"}], "}"}], ",", " ", & m* ?: S  h# B, n0 V9 e
    RowBox[{"{",
3 c. L2 Z, |2 [     RowBox[{' Z4 z! j2 Q( J  s
     "0.347826", ",", "0.063588", ",", "0.830527", ",", "1.000000", ",", . ~8 Y* P  t2 Q
      "0.111888", ",", "0.000000", ",", "0.410569", ",", "0.000000", ",", * b  z# x7 W5 \: F# O
      "0.000000", ",", "0.667550", ",", "0.661972"}], "}"}], ",", " ",
! Z, z1 Q3 _# S+ m' [' x) u7 x    RowBox[{"{",
7 p  W) z, k, G     RowBox[{1 C! a2 R! ~- A
     "0.521739", ",", "0.188109", ",", "1.000000", ",", "0.785485", ",",
" N1 i% O% ~; L6 U      "0.342657", ",", "0.373775", ",", "0.406504", ",", "1.000000", ",",
. Q$ ~+ v  N9 h/ D      "0.000000", ",", "0.371025", ",", "0.774648"}], "}"}], ",", " ", 3 S5 r. d2 I3 e- A( l' B$ C1 p& P
    RowBox[{"{", ' K2 w" o  Q0 r) X' c! Y- I
     RowBox[{
" E  K2 T4 J! C, i+ z, _  n/ K9 w     "0.695652", ",", "0.188404", ",", "0.088836", ",", "0.059504", ",",
4 n3 h% d1 J- ?! p8 t: v      "0.706294", ",", "0.376790", ",", "0.000000", ",", "0.000000", ",", 1 _& w4 d! A3 i4 v+ \5 Y
      "0.000000", ",", "0.570966", ",", "0.746479"}], "}"}], ",", " ",
6 w6 Z) l7 D: [" }' o    RowBox[{"{", : T. x; i# G% y2 e# c: l
     RowBox[{
) |8 o- O' P% l. S5 A0 A7 ?2 ?     "0.695652", ",", "0.057465", ",", "0.316316", ",", "0.151280", ",", 9 Z$ ^  G" ^: M, y
      "0.615385", ",", "0.371515", ",", "0.412195", ",", "0.500504", ",", 5 b* T7 E# N4 J: T9 U
      "0.000000", ",", "0.468198", ",", "0.887324"}], "}"}], ",", " ",
$ f, F. e7 b9 c# D( Q/ P    RowBox[{"{", / @& U; t/ w/ }+ k  p& F
     RowBox[{
+ P5 O9 C# Q  H( `6 O     "0.608696", ",", "0.011360", ",", "0.295586", ",", "0.113892", ",",
% ^/ u0 v1 F* b' M      "0.580420", ",", "0.746044", ",", "0.405691", ",", "0.501511", ",",
) _7 c8 H* Z: n+ [( }      "0.000000", ",", "0.414016", ",", "0.845070"}], "}"}], ",", " ",
: W! s( B' w8 S3 S$ V/ l5 S; v    RowBox[{"{",
1 f. w; k( f# P5 K7 m* m     RowBox[{4 N' Y) l" P% E+ w+ n
     "0.608696", ",", "0.364783", ",", "0.130582", ",", "0.020214", ",", 9 [: D" G* W5 h- ~* Y
      "0.356643", ",", "0.379804", ",", "0.000000", ",", "0.000000", ",",
& b8 @* _2 f! N! V# |0 R      "0.000000", ",", "0.186690", ",", "0.704225"}], "}"}], ",", " ", ! s% H# c0 K* t0 H1 v2 l+ Z# A
    RowBox[{"{", # s4 L; N! i  N
     RowBox[{
! X7 R* a) }0 a: r     "0.608696", ",", "0.193199", ",", "0.112690", ",", "0.036152", ",",
7 c- V- a1 R: E9 P: w6 d2 |      "0.636364", ",", "0.382065", ",", "0.409756", ",", "0.495468", ",",
# [5 T/ e  W8 N+ Z6 G- Z; `" [      "0.000000", ",", "0.442874", ",", "0.760563"}], "}"}], ",", " ",
2 Z+ s( l1 `1 P: j    RowBox[{"{",
, s, j+ Z/ i* n     RowBox[{
; |( z% `" M: H" [" V2 _     "0.739130", ",", "0.328932", ",", "0.246779", ",", "0.126520", ",", + I3 h1 }$ T6 _( i
      "0.454545", ",", "0.000000", ",", "0.495122", ",", "0.000000", ",", ' M7 S; S/ c5 I3 Y- G# t4 Z( ^
      "0.414181", ",", "0.686690", ",", "0.436620"}], "}"}], ",", " ", 0 k7 S' c6 [% h' w- J- ?
    RowBox[{"{",   @- @8 }- r  p
     RowBox[{
) b  Y* v* T# Z. J     "0.739130", ",", "0.341767", ",", "0.362090", ",", "0.183528", ",", 1 y5 N; A9 a' `
      "0.573427", ",", "0.413715", ",", "0.454472", ",", "0.661631", ",",
7 |0 h% a/ g6 Q      "0.000000", ",", "0.244111", ",", "0.633803"}], "}"}], ",", " ",
! N) c2 Z- A2 k1 j) s9 y/ j    RowBox[{"{",   [( I$ c, p! @- I0 \% v
     RowBox[{, m' S* ?) _3 g$ |4 f6 \6 P+ ]
     "0.695652", ",", "0.187076", ",", "0.279724", ",", "0.006252", ",",
' I6 ~5 _/ Q, ?! H7 C      "0.405594", ",", "0.418237", ",", "0.544715", ",", "0.000000", ",", 1 s% w% n' ]. V- C
      "0.000000", ",", "1.000000", ",", "0.422535"}], "}"}], ",", " ", 0 s1 L  o6 m8 q8 R* E- ^9 d
    RowBox[{"{",
0 }- q6 w7 X( v4 I8 k     RowBox[{2 n6 T9 `) i' c, P
     "1.000000", ",", "0.333948", ",", "0.064750", ",", "0.065855", ",",
* _7 J+ }# W% p% b. F      "0.342657", ",", "0.000000", ",", "0.408130", ",", "0.000000", ",", , T4 p+ z5 V! X5 t/ n2 H
      "0.000000", ",", "0.957892", ",", "0.295775"}], "}"}], ",", " ",
5 E8 a$ ~/ h9 T4 [    RowBox[{"{",
5 j- J5 U$ m. R* `6 t& G, X     RowBox[{
$ N$ O. e& Q- O     "0.739130", ",", "0.305400", ",", "0.374567", ",", "0.132870", ",", , N. ~% }: h8 n$ [$ J2 Z
      "0.258741", ",", "0.834966", ",", "0.000000", ",", "0.000000", ",", 1 d0 h; r% l( s, c# B7 M9 j# r
      "0.272861", ",", "0.266784", ",", "0.309859"}], "}"}], ",", " ", # X1 }8 v) Y* ~; \. q
    RowBox[{"{",
' M- e1 v) t  J* s* z4 n     RowBox[{
& e3 i  P/ u% X* o6 ~2 h' Q4 r     "0.826087", ",", "0.151962", ",", "0.360280", ",", "0.221632", ",",
7 v" `0 o3 T8 X8 ~# H0 V$ c      "0.447552", ",", "0.584778", ",", "0.457724", ",", "0.000000", ",", & }. p$ p+ p; i( K. S! I
      "0.000000", ",", "0.826855", ",", "0.408451"}], "}"}], ",", " ",
4 c" A* z/ S  e0 F8 u! v    RowBox[{"{",
% l! ^; h" _5 S- t4 j' F/ a6 f' V0 m     RowBox[{
2 x$ r2 |% H) v" X" j# U     "0.565217", ",", "0.047212", ",", "0.233154", ",", "0.121528", ",", 9 |2 z+ u' |" X! A" Z- x7 h
      "0.314685", ",", "0.417483", ",", "0.546341", ",", "0.000000", ",",
1 z, P/ j  d8 f# N1 [      "0.669438", ",", "0.341873", ",", "0.197183"}], "}"}], ",", " ", 9 a' @2 [1 ]1 x3 r
    RowBox[{"{", * p4 e- \/ j0 y  [" f; `& z  H8 H
     RowBox[{
7 p/ U) |! [6 P     "0.826087", ",", "0.034376", ",", "0.690349", ",", "0.512380", ",", 2 p' p9 O6 s% x
      "0.685315", ",", "1.000000", ",", "1.000000", ",", "0.000000", ",", # g# M; v7 W8 b
      "0.556479", ",", "0.412544", ",", "0.732394"}], "}"}], ",", " ",
/ [* k# \. o/ S& H  g2 Y  w7 T# F% C    RowBox[{"{",
; U' s# H. c2 }4 U     RowBox[{# V" M6 Q# f) H
     "0.652174", ",", "0.000000", ",", "0.374417", ",", "0.188075", ",", 1 v" Z5 f  J7 ]
      "0.706294", ",", "0.498116", ",", "0.729268", ",", "0.000000", ",", : R" a0 f" h" L3 O; m
      "0.454279", ",", "0.322144", ",", "0.802817"}], "}"}], ",", " ", 5 E- [: Y* d0 D3 l- ]
    RowBox[{"{", $ `: |$ d  Y( \8 i
     RowBox[{0 h+ x1 |. c, E- L
     "0.782609", ",", "0.180363", ",", "0.237142", ",", "0.054809", ",", . S/ h* T& D& y% v* u2 \( O
      "0.629371", ",", "0.373775", ",", "0.247967", ",", "0.000000", ",",
/ c6 z  O0 N. f! Q+ d' X      "0.163814", ",", "0.370436", ",", "0.746479"}], "}"}], ",", " ",
* }: o( j' L- R8 \3 C' H9 T; r$ |$ ?    RowBox[{"{", ) ]: i7 F9 i& l+ ?  O
     RowBox[{& l- L- S7 M% ~9 h  _
     "0.608696", ",", "0.169150", ",", "0.368148", ",", "0.393768", ",", ) c' D1 n% D" B5 J& g1 q  [8 Z  Q
      "0.440559", ",", "0.995479", ",", "0.545528", ",", "0.000000", ",",
8 V: I" j2 }' x( D' c% ^      "0.565770", ",", "0.333039", ",", "0.380282"}], "}"}], ",", " ", ! g$ Y0 c% i* r; I/ A9 U5 s( `! A
    RowBox[{"{", " k& o, _% Y- R. Z2 u# T) F$ e4 T0 e
     RowBox[{: Y9 x6 S' e* G
     "0.695652", ",", "0.390454", ",", "0.186683", ",", "0.039439", ",",
5 J" O+ }" u$ d+ U      "0.482517", ",", "0.497362", ",", "0.415447", ",", "0.508560", ",",
) V" h; \3 x* f% P6 ~. C/ k6 n2 `      "0.000000", ",", "0.390754", ",", "0.563380"}], "}"}], ",", " ",
6 Z; V0 h) X; Z$ d    RowBox[{"{", $ u! E/ ]0 S0 P" f% K$ I9 R
     RowBox[{
7 _6 i! i/ m4 G/ m     "0.739130", ",", "0.428888", ",", "0.082728", ",", "0.070154", ",",
" M' W; A# k! [, u1 U& z6 ^& R/ k5 s+ n      "0.279720", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",", 0 M% l5 F6 R2 {( y
      "0.000000", ",", "0.694935", ",", "0.323944"}], "}"}]}],
: s. u% x4 i: R4 h+ v/ X5 W   "}"}]}]], "Input",( J4 t8 C) ]- `' o" G
CellChangeTimes->{3.5779587825701036`*^9}],3 u8 T1 v' n7 D( ?, {8 o$ c! I

! ~6 o, s0 V  v" V2 y& DCell[BoxData[
) a3 F! S% @2 W RowBox[{"{",
+ x/ r3 A: C7 s0 ?/ I  RowBox[{+ P. Y8 X2 d8 g! K: `
   RowBox[{"{", 0 P# V! y" U7 c
    RowBox[{0 w" ^$ U3 |% E2 y7 S7 ^/ T
    "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", % a' V5 R* _; ^% r7 R& t
     "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", 3 l1 p5 `: g& f; ~% L3 t
     "0.`", ",", "0.277091`", ",", "0.873239`"}], "}"}], ",", . i! g( k- }4 Y; i+ F- [9 ^1 S
   RowBox[{"{",
6 S! r6 D# F# r4 n% D3 n    RowBox[{
8 z' w. P! l# E3 E: ^9 r4 Q  E4 N5 ~    "0.565217`", ",", "0.346857`", ",", "0.393585`", ",", "0.118785`", ",", - D# ~7 z+ P) r5 V' r' F, U
     "0.34965`", ",", "0.370761`", ",", "0.413008`", ",", "0.502518`", ",",
6 R0 m4 j% Z. _4 x4 u9 k3 O* e6 N     "0.`", ",", "0.220259`", ",", "0.464789`"}], "}"}], ",",
, C; W! u! B9 J. @& R   RowBox[{"{", - J# K2 a; n- C: G. Z
    RowBox[{2 Z/ }+ F! \  t' I7 C  S' Q
    "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", ; e5 m$ F5 {( J3 a! O
     "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`", 8 {4 k. F" j2 q. z
     ",", "0.899882`", ",", "0.492958`"}], "}"}], ",", 6 B4 `, b' W) H' {6 G
   RowBox[{"{",
/ u3 ~' A6 I4 ~1 [: N' \    RowBox[{
% t/ B8 h" T/ o; |8 B    "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
. Q) b' L( i' N7 D     "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`", # w. i1 G2 v( h9 B
     ",", "0.265607`", ",", "0.774648`"}], "}"}], ",",
- z1 e& u) f- z   RowBox[{"{", 3 s8 Z) R8 x1 Y7 l
    RowBox[{
/ w) S' F/ G7 N" l, X    "0.565217`", ",", "0.346931`", ",", "0.218229`", ",", "0.043639`", ",",
/ A; w' L9 ^. _# Z) v& {     "0.503497`", ",", "0.761115`", ",", "0.415447`", ",", "0.503525`", ",", % @  ?# d0 R+ t6 B4 e( R+ z
     "0.`", ",", "0.642226`", ",", "0.380282`"}], "}"}], ",",   J( j2 @; R0 {, A6 F% u! w
   RowBox[{"{", % `" a0 T) }, J
    RowBox[{
1 L. s1 d8 v2 Y1 w* D, h" h    "0.478261`", ",", "0.293154`", ",", "0.259368`", ",", "0.026688`", ",",
$ r) V. |' `: p* s# k9 e& A' v     "0.587413`", ",", "0.75584`", ",", "0.409756`", ",", "0.498489`", ",", 5 y0 ^. M# D( P+ p) }2 n
     "0.`", ",", "0.306243`", ",", "0.647887`"}], "}"}], ",", 0 P$ d) Q* A7 Q( s, U
   RowBox[{"{",
% ~" Y( x5 j( g" }) {: j& L3 Y3 w    RowBox[{/ N# a& f! `( v5 I' a1 Y
    "0.347826`", ",", "0.359693`", ",", "0.614393`", ",", "0.081521`", ",", % S' z7 |+ q: g
     "0.258741`", ",", "0.367747`", ",", "0.410569`", ",", "0.499496`", ",", 1 Q" O$ ?# C/ X6 P( W& S- a
     "0.`", ",", "0.186985`", ",", "0.56338`"}], "}"}], ",", ) e# q4 g  o9 @1 m. t7 {: _
   RowBox[{"{", : H, D. I) o( e* {8 v7 w5 A
    RowBox[{
! k* C4 v6 o# ~) _    "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
" J  T( h8 F8 V( v7 y1 N     "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`",   R6 D, ?/ [+ \2 \% k0 U+ k) _. N- y
     ",", "0.175501`", ",", "0.295775`"}], "}"}], ",",
4 H/ B; T) T! n4 O4 H; c0 @" N   RowBox[{"{", . v- |( V0 ^- `8 T
    RowBox[{8 O, Q1 r# N: P" q
    "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
8 j0 b6 v) O& S# l1 b     "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`", " L$ `+ |& ^4 x: ?5 v) s8 E: a
     ",", "0.147821`", ",", "0.338028`"}], "}"}], ",", ) Y- G1 V9 P6 j/ ~- a0 ^. C- M
   RowBox[{"{", 3 P, k1 L& H$ S9 m+ X1 }! v  P
    RowBox[{: G9 Q9 \4 i* y" z' N7 ?4 |
    "0.565217`", ",", "0.697772`", ",", "0.171587`", ",", "0.028566`", ",", # Z  g4 S0 v& `4 j* e
     "0.363636`", ",", "0.449887`", ",", "0.40813`", ",", "0.`", ",", "0.`",
& S8 u, V1 t7 {2 f% M/ @     ",", "0.352768`", ",", "0.211268`"}], "}"}], ",", 5 f0 z3 C, S; ^  b- f2 x- z
   RowBox[{"{", " M  Z: {" T4 ]; t2 H0 X, c9 R, e
    RowBox[{1 u8 t, I2 H3 F) f. g
    "0.282609`", ",", "0.660888`", ",", "0.460064`", ",", "0.110334`", ",", : q0 I( |  z/ t8 ], _
     "0.475524`", ",", "0.`", ",", "0.545528`", ",", "0.`", ",", "0.5511`", 8 J" M2 o" `/ t7 ?
     ",", "0.23881`", ",", "0.690141`"}], "}"}], ",", : v) e% z- g$ a$ f8 m" `
   RowBox[{"{",
/ D4 U9 `/ Z( m( F- _6 {5 L    RowBox[{' @2 I* W, ]- F4 h
    "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", " t5 t! ]! Q5 u7 p; p0 [- m
     "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", 7 @" y1 M& L5 V: x( r- m5 b! Y
     "0.494866`", ",", "0.095701`", ",", "0.43662`"}], "}"}], ",",
) v; F# F2 l. r  O  \   RowBox[{"{",
' `9 W9 o5 G* w8 q7 u    RowBox[{8 d* L( n" o3 F0 k/ n* o8 O9 S
    "0.347826`", ",", "0.697772`", ",", "0.108288`", ",", "0.022413`", ",",
9 p8 L5 d% o9 Y" S: E. o" c- U     "0.356643`", ",", "0.247928`", ",", "0.90813`", ",", "0.`", ",", 2 b! t3 G0 D) R) |2 F* j- B
     "0.383374`", ",", "0.162839`", ",", "0.`"}], "}"}], ",",
, n# e# ~: a! _2 X" F; _: ^   RowBox[{"{", - w& a$ m; v# |0 i$ }; s! H3 g3 w* R
    RowBox[{2 k" J0 q3 H4 _  ~( u3 b
    "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
& @  H9 `% u/ _7 T1 s% r7 D9 R5 J     "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`",
3 J% B  z; `1 t) r     ",", "0.335395`", ",", "0.267606`"}], "}"}], ",",   O3 V: H: N0 T5 P/ M
   RowBox[{"{",
% b. |+ {/ O  [5 j) _! J    RowBox[{( s8 F# Y' D% K2 u' U$ Q
    "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", * o8 j2 X! _9 W% O" a" v0 u: q
     "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`", ",",
" K2 G1 y9 y* p* v% v     "0.160483`", ",", "0.211268`"}], "}"}], ",", ' s8 ~/ j, n) l+ A
   RowBox[{"{",
2 j4 K" K: y2 x* \4 y) v4 {2 |# \    RowBox[{, {4 ^: d! H/ `. V5 f6 t
    "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",", ( i' X$ N* S$ h, k
     "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`", $ p4 I4 @4 y3 p. g% v. y
     ",", "0.398115`", ",", "0.408451`"}], "}"}], ",",
1 @+ _3 h5 p; J7 j& i6 x. b   RowBox[{"{",
, ~: ]$ B6 n. {1 q, ^    RowBox[{
: k0 D! {: }6 h+ Y. z. Q$ }4 O    "0.608696`", ",", "0.425199`", ",", "0.012979`", ",", "0.`", ",",
; M( O1 I6 r. Y     "0.482517`", ",", "0.50942`", ",", "0.406504`", ",", "0.`", ",", "0.`",
# ]3 L1 H% x- \) y     ",", "0.157833`", ",", "0.478873`"}], "}"}], ",", / p3 |! A$ k. m) o- `
   RowBox[{"{", 5 R' l9 h6 u+ x+ ~/ G7 y2 i
    RowBox[{
+ ^( m; y' X2 s1 O    "0.608696`", ",", "0.577973`", ",", "0.213587`", ",", "0.030889`", ",", 5 f% F; R/ ]5 O7 @, B5 `' m/ R4 L
     "0.370629`", ",", "0.`", ",", "0.452846`", ",", "0.`", ",", "0.`", ",",
1 F; b4 ~  ~8 \" f     "0.315665`", ",", "0.380282`"}], "}"}], ",",
5 z3 K2 i- C7 H9 l. @0 v; z# A   RowBox[{"{",
# Q9 a! ]; ~; Q: j! }    RowBox[{, h; F9 s9 q, v% s: L$ J1 _
    "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", - A* l: z4 z( ?& y9 Z" A; t* m0 C
     "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.492344`", ' P6 S5 A+ b- M! v. |+ P' @3 V6 U
     ",", "0.211268`"}], "}"}], ",", * i& |1 @, H* g
   RowBox[{"{",
7 j7 \7 [% B% Z. x    RowBox[{
& A0 J$ S! m* L( q$ l9 Q0 `8 F) k; ^  f    "0.130435`", ",", "0.562039`", ",", "0.331662`", ",", "0.032643`", ",",
) P$ T, y, U! b5 T     "0.314685`", ",", "0.414469`", ",", "0.27561`", ",", "0.`", ",", "0.`",
, k3 O  P% }, _7 P4 a6 D7 P     ",", "0.638398`", ",", "0.43662`"}], "}"}], ",",
: Z4 @4 {: }2 `8 W& C! T" C   RowBox[{"{",
, `. e# U8 d3 e) b% F2 b, A* Y$ i1 S    RowBox[{
3 C. a+ D* k4 t6 g) H. w    "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
. |9 U: O; x0 {0 O& U     "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", . l& @0 T/ r+ Q" i, |( }9 g% q* [
     "0.392521`", ",", "0.478873`"}], "}"}], ",", : P- f5 x* w+ R, N$ C: E+ w, O
   RowBox[{"{", + ?6 @0 d5 \0 u" r
    RowBox[{/ D3 c2 ^2 x7 m$ ]6 I- R" {/ _
    "0.608696`", ",", "0.769475`", ",", "0.289283`", ",", "0.022882`", ",",
  f7 d& Z$ j6 W/ V4 a     "0.321678`", ",", "0.`", ",", "0.274797`", ",", "0.333333`", ",", "0.`", ; Q: x: x% l, E6 ~* }% J8 k9 M
     ",", "0.362191`", ",", "0.295775`"}], "}"}], ",",
# p, k- R$ J* `! M# m5 X' V   RowBox[{"{",
! f5 J5 V3 w# T    RowBox[{# N# x. b1 U$ ?& z
    "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", 9 \  Z% K: T* e0 q
     "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`", ",",
% r) t1 u; `) ?7 e     "0.114252`", ",", "0.028169`"}], "}"}], ",", 4 C& q* }+ |1 r+ M
   RowBox[{"{",
6 S! O* `- u% A) |    RowBox[{
/ l( N' a: C& b  W3 x    "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
% o$ L, G% ?+ i+ g- A6 O( M& H     "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`", ",",
+ E* z& i% C: u8 p9 O) I! C% h     "0.401355`", ",", "0.43662`"}], "}"}], ",",
* `- s0 _8 B; v) Y2 {* c   RowBox[{"{",
6 d  g5 `0 v0 _& Q; L$ N2 c    RowBox[{
! [( C- c2 N+ N, D, r2 ?5 W" p* N    "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
" ]# Y1 F% J5 g/ d     "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", $ u& a* l. ?7 s2 h" E
     "0.827444`", ",", "0.394366`"}], "}"}], ",",
/ Z5 S) Z: F% ^$ [7 ?% {/ j   RowBox[{"{", 3 t5 p/ |: c6 J) ^5 X0 ^
    RowBox[{
' d$ u4 Y: b( g# y, s' w. e    "1.`", ",", "0.199248`", ",", "0.295044`", ",", "0.041613`", ",", ' b: {9 E& w& ?' ?6 \
     "0.20979`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
' [7 K/ n1 s. y) Q( p0 U; p     "0.676973`", ",", "0.295775`"}], "}"}], ",", & g2 g% W* t) v+ |1 }7 D2 P2 O0 G
   RowBox[{"{",
! m( {* r4 f3 o- h8 B' B& ]- B; o    RowBox[{5 N/ _, v; N- z. n
    "0.869565`", ",", "0.180363`", ",", "0.243056`", ",", "0.098349`", ",",
/ Y; p! w" |0 g; i9 I8 K     "0.265734`", ",", "0.503391`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 5 Y/ f/ w0 R# |9 m4 Z  J
     "0.331272`", ",", "0.830986`"}], "}"}], ",", 0 E5 P: z% q0 _2 j: r9 ~% ~
   RowBox[{"{",
$ Y. T& @6 w( W    RowBox[{6 W! _) c; V0 X* D4 ?
    "0.695652`", ",", "0.551785`", ",", "0.326201`", ",", "0.253608`", ",",
' f# k8 Z. i* U8 k8 y) y     "0.195804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 4 Y7 A6 y' i* A7 M" o3 G/ G( P
     "0.845701`", ",", "0.169014`"}], "}"}], ",", 1 }3 D7 K: S9 |, Y1 W! @* i6 ~
   RowBox[{"{", 1 F. b) N# v! ?" D; e
    RowBox[{  W4 f" P  }( d% C( @  n4 r
    "0.652174`", ",", "0.572293`", ",", "0.111511`", ",", "0.035584`", ",",
2 Y% X) W# d0 q" k$ `     "0.405594`", ",", "0.249435`", ",", "0.544715`", ",", "0.`", ",", "0.`", : u  x/ u' r; E+ w' u7 W
     ",", "0.287102`", ",", "0.366197`"}], "}"}], ",", ) j- `& P  G6 g6 B
   RowBox[{"{", 3 p9 {$ ]! x2 N8 s4 I; ]9 N
    RowBox[{
" x" R" d" r2 ]* L6 g4 j. Z5 ~    "0.652174`", ",", "0.562039`", ",", "0.336155`", ",", "0.014604`", ",", ! f: v  g' }7 w6 A2 w- k
     "0.174825`", ",", "0.24416`", ",", "0.`", ",", "0.`", ",", "0.`", ",", * l) t( h) t. s$ y+ U: u7 M; a
     "0.`", ",", "0.309859`"}], "}"}], ",",
) u. g5 Y! z9 _& M: g   RowBox[{"{",
7 `, U' N% Y2 l) {    RowBox[{2 Q! q" V! ~* O0 K
    "0.565217`", ",", "0.577383`", ",", "0.15587`", ",", "0.030963`", ",",
2 s" S5 {1 q% l7 M) y; S     "0.258741`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 9 Q3 n/ {; J, l. P
     "0.050059`", ",", "0.352113`"}], "}"}], ",",
4 L, o5 V# }/ k% ^* W   RowBox[{"{",
% t) N) x% q% p7 Y! @- G  _+ V    RowBox[{
5 d6 |# M+ p( l5 c* Z    "0.565217`", ",", "0.613234`", ",", "0.232956`", ",", "0.05387`", ",", * a5 c" L3 F. ~3 `5 l% c$ L
     "0.230769`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", + o9 y# k/ l0 ~
     "0.254122`", ",", "0.309859`"}], "}"}], ",",
# M0 x! ?/ T) y2 F' c% o  j1 v/ x   RowBox[{"{",
# M! O* }+ F3 j4 Q- G; H  O& p9 `    RowBox[{
* [# [* H) N+ V+ }# b    "0.565217`", ",", "0.559531`", ",", "0.493262`", ",", "0.046209`", ",", 1 b9 P5 {- n, t7 l
     "0.293706`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
+ R: E$ Z$ S/ S; W9 w* \; R1 Y     "0.086867`", ",", "0.774648`"}], "}"}], ",", 2 n8 ~8 q, I3 b1 C. ]1 |
   RowBox[{"{", : b( E% p! r+ i1 t5 I* R. I
    RowBox[{
+ w! Q$ _* R0 x0 p/ I    "0.608696`", ",", "0.569711`", ",", "0.111932`", ",", "0.013542`", ",", 5 H" C% T' v: Q# m' Z
     "0.335664`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.168704`", ",",
+ e/ {, u; E7 t     "0.659894`", ",", "0.422535`"}], "}"}], ",", 5 n" ^' l: g1 J2 D: W8 V( E1 o
   RowBox[{"{",
, c+ [: B9 ^* \& `3 v    RowBox[{
, c' I2 u0 v+ O    "0.608696`", ",", "0.564547`", ",", "0.329844`", ",", "0.202036`", ",",
* A8 ]9 M  H7 N3 m     "0.51049`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
! n; I3 H9 k' k% F7 O/ K     "0.317138`", ",", "0.887324`"}], "}"}], ",",
- c% K' b5 R2 b' w2 ~   RowBox[{"{",
# r* _5 Y% B+ \$ U3 z  R8 B- e    RowBox[{
' q2 k$ z) M2 c9 q; @" q2 y) C    "0.521739`", ",", "0.546695`", ",", "0.165788`", ",", "0.029431`", ",",   i, B) S* ~) n- g& ]" t
     "0.51049`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
$ t6 r. @% f: z; r; A9 V     "0.605124`", ",", "0.887324`"}], "}"}], ",",
# ~* \$ L4 T0 s4 [   RowBox[{"{",
3 u* v% q8 |& {* q1 C+ m1 |: X' O    RowBox[{2 \5 O7 y- J; t
    "0.521739`", ",", "0.564178`", ",", "0.400518`", ",", "0.045023`", ",", . V2 H( x; p, S# s8 e. G- L
     "0.615385`", ",", "0.3685`", ",", "0.660163`", ",", "0.301108`", ",",
8 d3 p0 v: F* l: s' U     "0.`", ",", "0.32126`", ",", "0.859155`"}], "}"}], ",",
- R" y  R5 Z! X   RowBox[{"{",
& e4 L9 I2 i7 I3 R' D( ?    RowBox[{" X. c' z- j+ E1 E" p3 Y; A
    "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", 3 |4 V5 h7 J/ m0 L
     "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`", % q  l0 a9 G  b5 y1 {1 @
     ",", "0.595406`", ",", "0.239437`"}], "}"}], ",", 5 i! z4 o  K$ u# M& `
   RowBox[{"{",
% o# u; i/ f0 e$ U7 B5 h    RowBox[{! ^3 O2 k/ o1 ]0 a  S
    "0.652174`", ",", "0.549277`", ",", "0.257578`", ",", "0.058688`", ",", 8 E8 I- _0 z5 V
     "0.356643`", ",", "0.`", ",", "0.817886`", ",", "0.`", ",", "0.`", ",", 6 k7 Y, Q& v. c$ A4 w7 u  x
     "0.555359`", ",", "0.295775`"}], "}"}], ",",
; q$ U# T# }8 I; Q   RowBox[{"{",
% A2 j( j' ]- f% r$ B9 D+ T' {$ z    RowBox[{" C8 A. ?3 {' E) s
    "0.695652`", ",", "0.549277`", ",", "0.572308`", ",", "0.082411`", ",",
! i: Z1 _; u6 f& J& {# s. p7 W     "0.461538`", ",", "0.528259`", ",", "0.819512`", ",", "0.`", ",", "0.`", - Q- ^/ g( @5 Y% {- {5 j! ^( K" w
     ",", "0.333333`", ",", "0.746479`"}], "}"}], ",", 9 c+ j) o. {/ \6 R7 t3 R3 J
   RowBox[{"{",
, `" i$ j* H4 g2 j5 ]    RowBox[{
- d1 d0 i/ ]7 z    "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
. \; J+ l8 G' }8 `' M     "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`",
7 J. J: L1 ~; e5 J8 u     ",", "0.149588`", ",", "1.`"}], "}"}], ",", 5 M7 X6 b4 t/ z- u
   RowBox[{"{", - O/ X. w! _+ N* S. @
    RowBox[{  w6 @( a0 d. r$ q5 y$ q
    "0.282609`", ",", "0.531278`", ",", "0.321428`", ",", "0.228625`", ",", , A! a! x: c- Q# Q& a3 X$ N
     "0.594406`", ",", "0.53052`", ",", "0.410569`", ",", "0.`", ",", 2 F$ w0 t' ?8 J5 O, J) k
     "0.757457`", ",", "0.493522`", ",", "0.549296`"}], "}"}], ",",
' X; }; w+ v2 ^: p' O9 M6 B   RowBox[{"{",
7 c, K& e3 b; x7 I9 ?* R2 N    RowBox[{5 T6 n2 @! L1 u0 ?) _2 j2 z. g
    "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", ; _' ^/ _4 b& M
     "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`", ",",
3 u2 V& x+ \5 m2 X0 l' Z, t. ]     "0.224676`", ",", "0.366197`"}], "}"}], ",", 9 Y1 J* o& G6 L* k; J
   RowBox[{"{", * i7 R! v9 I7 S+ b0 F' d
    RowBox[{
' v% \& X# M- M* M0 D    "0.391304`", ",", "0.705444`", ",", "0.045908`", ",", "0.07312`", ",",
. ]' a. f$ ~  W. R     "0.622378`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.496333`", ",",
1 M. \# q4 |' d9 E/ r, s$ R3 U     "0.410188`", ",", "0.549296`"}], "}"}], ",", 1 v& J$ D, t. g& J2 c5 P' R0 Y
   RowBox[{"{", # N5 O4 {0 S- E7 ]4 b0 |
    RowBox[{
" s, a3 t1 T- A* [) V    "0.282609`", ",", "0.661921`", ",", "0.344992`", ",", "0.085178`", ",",
; c, y  ~% H: V5 L) N9 q     "0.293706`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
4 y# Z' P$ q3 J$ W4 a* {: |( i     "0.668139`", ",", "0.577465`"}], "}"}], ",",
( \9 [2 a2 y6 C0 V   RowBox[{"{", 9 a0 }8 q1 J1 H& a# Z
    RowBox[{( n& T+ [9 U  T8 o& C; ], [
    "0.478261`", ",", "0.661921`", ",", "0.644209`", ",", "0.077296`", ",", / `) ~4 \8 O  c9 y- H3 q0 C) p! a* }
     "0.412587`", ",", "0.`", ",", "0.413008`", ",", "0.502518`", ",", "0.`", : |: f; D: E- g( b
     ",", "0.102179`", ",", "0.690141`"}], "}"}], ",",
" L4 e& G+ P1 ^& T  P: Q; i- b   RowBox[{"{",
: Z0 r- n$ A; O6 Y    RowBox[{
- R4 S5 v% K( b/ T, \/ _2 j    "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", & L- X8 \7 P5 O
     "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
4 q4 x) Z1 |3 @# q: \0 |# G/ S     "0.380742`", ",", "0.71831`"}], "}"}], ",",
% K8 _0 E  F& G   RowBox[{"{",
0 |- G3 ?& w& J) N1 G5 W* V: y" N    RowBox[{) D8 D* v3 R+ Q8 O% X, g
    "0.5`", ",", "0.984656`", ",", "0.288432`", ",", "0.047692`", ",",
3 ]( f6 ^7 }/ I& A: {     "0.27972`", ",", "0.`", ",", "0.821138`", ",", "0.510574`", ",", "0.`", 2 E# D" O( i$ i8 n$ A6 `
     ",", "0.319494`", ",", "0.521127`"}], "}"}], ",", 3 z8 E( ~: S! a- O
   RowBox[{"{", 5 M* s2 |. c0 j% Q+ [
    RowBox[{
. @1 `( O) W- H& l) r8 m    "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", 1 h5 O# ?. o9 w( r: {7 \
     "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`",
+ {3 o$ F) C/ u9 d. F& R5 I1 H     ",", "0.031508`", ",", "0.929577`"}], "}"}], ",", 6 ]: n0 S1 }1 j7 a+ K1 q! {
   RowBox[{"{", ; D. A3 p4 h$ t+ E
    RowBox[{
/ j3 q6 l2 @5 p* }( B    "0.73913`", ",", "0.774639`", ",", "0.17512`", ",", "0.036498`", ",", % K* U! ~2 `  N+ g
     "0.391608`", ",", "0.739261`", ",", "0.408943`", ",", "0.553877`", ",", * I: w" n1 c6 R" I  @* z; a
     "0.`", ",", "0.292108`", ",", "0.521127`"}], "}"}], ",",
, y% U! G* c" k: @7 k1 W  X   RowBox[{"{", : ~) D3 K( X3 j1 X! K
    RowBox[{
! I, a& f& h  ~9 z) w    "0.586957`", ",", "0.982074`", ",", "0.158462`", ",", "0.063902`", ",", 6 L3 r9 X4 [4 v
     "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", ; j0 `. H5 i4 r7 e: M
     "0.329505`", ",", "0.338028`"}], "}"}], ",",
5 c1 o0 Z, d4 n. ~7 V) R. p   RowBox[{"{",   ]7 `  V6 p* L6 z& ^: o& ^* \, d
    RowBox[{
3 \  p# b% u3 b5 C9 @  j; E    "0.543478`", ",", "0.982074`", ",", "0.306872`", ",", "0.041934`", ",",
9 g& i# ]5 f" U/ l+ v     "0.426573`", ",", "0.380558`", ",", "0.414634`", ",", "0.506546`", ",", 3 O+ t2 g. @$ K3 ]4 i: \8 ~3 R
     "0.`", ",", "0.337456`", ",", "0.380282`"}], "}"}], ",", / y9 Z" j7 _; Y& `# C. j; r
   RowBox[{"{",
: T& q- ^& `2 Q( B/ Z3 {7 y    RowBox[{) q- s& T/ P" Z8 A% h
    "0.73913`", ",", "0.997418`", ",", "0.170143`", ",", "0.058268`", ",", * m8 J6 J. ?: J6 k3 `: s. F
     "0.538462`", ",", "0.248681`", ",", "0.`", ",", "0.339376`", ",", "0.`", : v6 T- O' n  x! [; [1 R/ W
     ",", "0.766784`", ",", "0.676056`"}], "}"}], ",",
- `; H& m, R6 O4 c" H: J  Y   RowBox[{"{", $ w; y4 r$ I( r) h  z  G
    RowBox[{7 }6 F9 B6 H$ }% A) V6 N% F& e9 x
    "0.695652`", ",", "0.700428`", ",", "0.139361`", ",", "0.182169`", ",",
  D* Z, q' v( \6 q4 f1 g# J     "0.412587`", ",", "0.243406`", ",", "0.`", ",", "0.`", ",", "0.136919`", * M( L0 a: i7 r: s3 D
     ",", "0.676678`", ",", "0.591549`"}], "}"}], ",",
' N) y: `: |; Z, F, C# Z   RowBox[{"{",
5 l6 U6 J: c2 g  P1 D    RowBox[{
* z+ ?: `  \! G! P! M    "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
; q# o1 k8 |8 A- K! q5 q     "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`",
. o( c7 z) G- u     ",", "0.541519`", ",", "0.464789`"}], "}"}], ",",
- Y/ D0 Y" U6 [) M: m7 o7 G   RowBox[{"{",
% B7 F) k) M) j    RowBox[{
. k- g' w' _* J. o' N7 ?  M    "0.652174`", ",", "0.751623`", ",", "0.355593`", ",", "0.039883`", ",", ; I- |# w8 V* w
     "0.195804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
# L# F! a; U$ [" ^     "0.064488`", ",", "0.295775`"}], "}"}], ",", . }; |5 z) V$ Y7 o0 v
   RowBox[{"{", . ^; J, W2 N* q* z4 L0 ^) @
    RowBox[{: u+ B7 l& c5 B* U
    "0.521739`", ",", "0.679847`", ",", "0.152375`", ",", "0.030048`", ",",
1 q. k# e5 r# g8 v     "0.363636`", ",", "0.`", ",", "0.271545`", ",", "0.`", ",", "0.`", ",",
( n# U, [2 L3 Z& [0 j$ S5 @1 `     "0.463192`", ",", "0.380282`"}], "}"}], ",",
: N& c! k4 b/ X( c! |   RowBox[{"{",
# j1 f2 J# k- V- Z# z/ ~, e' @    RowBox[{
9 I' B4 q5 i1 _* m) J6 ~' r    "0.434783`", ",", "0.728533`", ",", "0.18683`", ",", "0.12951`", ",", ! B  L8 V  K& Y2 w+ H- b
     "0.195804`", ",", "0.`", ",", "0.269919`", ",", "0.`", ",", "0.32665`",
/ u0 q2 Q7 m3 j  Y% R5 I6 q  {     ",", "0.388398`", ",", "0.211268`"}], "}"}], ",", ; i4 k% Q0 `2 L: V- z* j
   RowBox[{"{",
. g/ u+ v. O$ e  L7 m, k3 N    RowBox[{! U! Q$ b. Q2 j5 k- y- h% h
    "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",", 4 m# D, n8 C! d" o, M$ G2 k
     "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`",
$ U* ?6 R, F, j7 d& u# q. `; ^     ",", "0.262367`", ",", "0.253521`"}], "}"}], ",", 4 E) I7 n  o$ o4 n9 X6 `
   RowBox[{"{", 9 B! x# o, b8 m' q) J6 H5 N" V5 ?$ d
    RowBox[{8 n0 o8 j1 s+ r' d
    "0.608696`", ",", "0.633742`", ",", "0.322697`", ",", "0.068597`", ",", - u5 _2 W9 |1 z" R
     "0.328671`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.287042`", ",", # z. J& ^2 O% o0 `1 p4 Y- K
     "0.290931`", ",", "0.28169`"}], "}"}], ",",
( Y6 }3 R/ }$ A* F. P   RowBox[{"{", $ Q- D* U/ ]: e; w& n
    RowBox[{
6 F: i8 _( V9 b* ]* g    "0.478261`", ",", "0.539023`", ",", "0.412108`", ",", "0.107566`", ",", 3 |3 H& l8 }* H  J0 M
     "0.237762`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
- R% t& ]4 m6 C     "0.380742`", ",", "0.507042`"}], "}"}], ",", 5 L, b  A- p. l" |; L2 L, ]' J
   RowBox[{"{",
- s- D. u( s" f- E4 Y; ?    RowBox[{
+ `4 J' ?, ?( ?/ O) i+ N( D    "0.608696`", ",", "0.551859`", ",", "0.176821`", ",", "0.076332`", ",",
: B; Q. n6 h; a9 p+ m* E$ c     "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", $ _' K/ ~- @2 w( T8 y& j: x
     "0.429034`", ",", "0.239437`"}], "}"}], ",",
& T  ]# G5 J3 s1 [   RowBox[{"{", ' Q. S; I$ O& |+ c# A. z
    RowBox[{
0 j/ s+ W0 H7 A# h    "0.652174`", ",", "0.551859`", ",", "0.033549`", ",", "0.018459`", ",", ( ?5 {. O4 X( O" Z7 U  L
     "0.573427`", ",", "0.`", ",", "0.553659`", ",", "0.`", ",", "0.40489`", ' U. s: u+ L( y7 O5 U5 V/ [
     ",", "0.193168`", ",", "0.394366`"}], "}"}], ",", * d$ p& L5 l6 J5 d
   RowBox[{"{", ; `5 u8 L! E+ o$ q6 D9 |5 C
    RowBox[{
# e8 y: ~% z, w  U* s- z    "0.695652`", ",", "0.595382`", ",", "0.277493`", ",", "0.100326`", ",",
" Z% A/ o+ H( x2 v4 c/ ~8 A9 l     "0.286713`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
, b& {  X5 h; U( k- ^: u3 k     "0.448763`", ",", "0.338028`"}], "}"}], ",",
$ \  K; g2 O- @   RowBox[{"{",
6 E4 J6 s' P2 F    RowBox[{( o- i/ J: D4 B9 t: ]8 R# ^
    "0.565217`", ",", "0.559531`", ",", "0.422669`", ",", "0.078111`", ",", ! s6 A; @8 c. \. M# p
     "0.286713`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
& l. q5 P- o5 i! ?( }1 T     "0.442285`", ",", "0.394366`"}], "}"}], ",", ) w7 b7 j' N6 n2 H
   RowBox[{"{",
) h& e2 A: i" t# F+ m    RowBox[{8 l& r8 o9 b3 Q8 I
    "0.586957`", ",", "0.398126`", ",", "0.140619`", ",", "0.069116`", ",", + H1 R$ D( Z- Y0 P; q5 V5 j8 ?/ {+ C# L
     "0.461538`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", $ ^+ A- Q/ ?" ~) j# ^8 Y
     "0.575383`", ",", "0.15493`"}], "}"}], ",",
) \% }; @. _3 v( V1 a7 I   RowBox[{"{", ! c" N% M7 h/ K, y
    RowBox[{
; w8 Z+ q6 o$ r' [" [7 y    "0.695652`", ",", "0.398126`", ",", "0.019829`", ",", "0.041366`", ",", , F3 {8 F1 |  Q6 k; v, _7 y5 U
     "0.552448`", ",", "0.24416`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
8 L+ ?7 M6 o! P, T$ F) O     "0.515607`", ",", "0.591549`"}], "}"}], ",", : m. {' K. D' b7 s4 }
   RowBox[{"{", : K" }2 ^3 N+ l9 V
    RowBox[{/ n1 t' n6 P" }
    "0.695652`", ",", "0.700354`", ",", "0.422467`", ",", "0.068128`", ",", ) w! U# C% d" O1 k. w8 h
     "0.20979`", ",", "0.`", ",", "0.`", ",", "0.500504`", ",", "0.`", ",", " L* s/ f8 _) C1 m$ @1 X
     "0.057715`", ",", "0.408451`"}], "}"}], ",",
& w: {5 R. a1 N) {/ D   RowBox[{"{",
# [3 _; P3 P+ t' P4 L9 V" Z' G    RowBox[{# l1 [' R' r( _+ c6 h
    "0.521739`", ",", "0.193125`", ",", "0.210582`", ",", "0.110433`", ",",
0 Z' a# \) |7 d! H1 W% q/ q     "0.447552`", ",", "0.382065`", ",", "0.413008`", ",", "0.498489`", ",", , |" P5 E; P6 l" y4 B! v' s2 h# }
     "0.`", ",", "0.174617`", ",", "0.295775`"}], "}"}], ",",
1 a- {- B) I' N" i/ r% n+ h   RowBox[{"{",
* x: w+ T' F3 `8 E& Y    RowBox[{
# h8 `7 D  u* }4 k$ J    "0.347826`", ",", "0.063588`", ",", "0.830527`", ",", "1.`", ",",
5 [2 L* S. L0 M. b     "0.111888`", ",", "0.`", ",", "0.410569`", ",", "0.`", ",", "0.`", ",", 3 }8 B8 f" O' O; x# B# s+ B
     "0.66755`", ",", "0.661972`"}], "}"}], ",",
6 `: ?, r* K7 l7 p8 i! I+ [   RowBox[{"{", 9 Q) @4 e5 v' j
    RowBox[{! d% i4 i- w6 e8 u- y2 i4 P
    "0.521739`", ",", "0.188109`", ",", "1.`", ",", "0.785485`", ",", ! _' _9 E% b& U. m( R
     "0.342657`", ",", "0.373775`", ",", "0.406504`", ",", "1.`", ",", "0.`",
! Y8 l" I. E/ ^! t1 H     ",", "0.371025`", ",", "0.774648`"}], "}"}], ",",   ], p" R! Z, h6 q' A
   RowBox[{"{",
$ x+ m8 @9 Q6 u1 h: Y# C( D4 F    RowBox[{* \3 W8 _( p' N
    "0.695652`", ",", "0.188404`", ",", "0.088836`", ",", "0.059504`", ",",
, g( ~& z7 P/ C5 ^9 I6 `     "0.706294`", ",", "0.37679`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
; w) K- h! n7 ?5 d     "0.570966`", ",", "0.746479`"}], "}"}], ",",
1 T; I' S- Y) \1 ]$ J# F. l   RowBox[{"{",
$ D  Z9 O- d' {* d3 I. o' G    RowBox[{
8 S! d8 O5 u3 M9 G8 R( C    "0.695652`", ",", "0.057465`", ",", "0.316316`", ",", "0.15128`", ",", # `1 I; D+ X9 Z) q8 ?) j: {
     "0.615385`", ",", "0.371515`", ",", "0.412195`", ",", "0.500504`", ",",
2 V7 t2 q9 P9 N5 n4 l     "0.`", ",", "0.468198`", ",", "0.887324`"}], "}"}], ",", ! o. i; g: t8 x5 K& H  f6 e
   RowBox[{"{",
' B( v. x( ?6 _3 l8 H" y2 w. \    RowBox[{) z- \' q$ q. n  e
    "0.608696`", ",", "0.01136`", ",", "0.295586`", ",", "0.113892`", ",",
4 J: ^$ n" l) G9 y     "0.58042`", ",", "0.746044`", ",", "0.405691`", ",", "0.501511`", ",", ' W9 [4 q6 Z- m& i4 y1 R
     "0.`", ",", "0.414016`", ",", "0.84507`"}], "}"}], ",",
& S# @+ ~$ a! [$ J: m0 a   RowBox[{"{", 3 \( _5 g2 ]* t; W" t
    RowBox[{
0 a6 E1 H0 |1 z5 x2 o2 g    "0.608696`", ",", "0.364783`", ",", "0.130582`", ",", "0.020214`", ",",
2 W% K7 j# M0 t     "0.356643`", ",", "0.379804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 3 Y+ ~. Z) m% {  t0 [
     "0.18669`", ",", "0.704225`"}], "}"}], ",", 9 s/ @) Y9 v' `9 m8 a' ]
   RowBox[{"{", / j- f2 {- @# w/ g' {
    RowBox[{
" _; j- u7 R* w, u9 E  x    "0.608696`", ",", "0.193199`", ",", "0.11269`", ",", "0.036152`", ",", $ u1 B' s$ m& R2 X6 k7 M
     "0.636364`", ",", "0.382065`", ",", "0.409756`", ",", "0.495468`", ",",
. c/ u1 m4 W5 I2 f/ _     "0.`", ",", "0.442874`", ",", "0.760563`"}], "}"}], ",", ' K* M! P+ h% }7 I- ^
   RowBox[{"{",
  G8 ~  \+ D6 F  s: ]' }& @8 g    RowBox[{' r7 g2 H6 v) g, z" I5 \  ?1 Z
    "0.73913`", ",", "0.328932`", ",", "0.246779`", ",", "0.12652`", ",", 0 Q% A4 Y1 b$ d) I* e( c
     "0.454545`", ",", "0.`", ",", "0.495122`", ",", "0.`", ",", "0.414181`", ' d; J5 z" d" S9 K1 K
     ",", "0.68669`", ",", "0.43662`"}], "}"}], ",", 6 _+ H7 C7 x" \; k0 G
   RowBox[{"{",
7 i5 V$ A& f& f) a! w* l( b3 E    RowBox[{  S: o; c2 [" t. ^2 n: J2 g
    "0.73913`", ",", "0.341767`", ",", "0.36209`", ",", "0.183528`", ",",
/ G  t2 b4 x6 I5 ]" {     "0.573427`", ",", "0.413715`", ",", "0.454472`", ",", "0.661631`", ",",
. B1 W' v% V7 R0 n     "0.`", ",", "0.244111`", ",", "0.633803`"}], "}"}], ",",
% o- i5 U% d  p1 b6 W, j& D4 ~   RowBox[{"{",
1 l" |6 k3 m4 P' q2 v    RowBox[{
! ^& W0 [3 O" o) G/ M+ l/ Y% Q    "0.695652`", ",", "0.187076`", ",", "0.279724`", ",", "0.006252`", ",",
4 ]' g$ w) q% N     "0.405594`", ",", "0.418237`", ",", "0.544715`", ",", "0.`", ",", "0.`",
1 Z8 w3 u0 L: P+ l     ",", "1.`", ",", "0.422535`"}], "}"}], ",",
* V0 ]* ?0 y; u8 V/ Z   RowBox[{"{", 2 J% d) x: W& Q8 J- Z6 q
    RowBox[{
# C4 K$ I8 {" d    "1.`", ",", "0.333948`", ",", "0.06475`", ",", "0.065855`", ",", ' {* `& S- X4 z* N
     "0.342657`", ",", "0.`", ",", "0.40813`", ",", "0.`", ",", "0.`", ",", : Y. m! X3 ~: y- k' q+ P
     "0.957892`", ",", "0.295775`"}], "}"}], ",", ! o/ n3 F& _/ c" l
   RowBox[{"{", ! U5 V- x1 }: E7 d: |" n
    RowBox[{3 l  L4 j- i3 y. i; U; \
    "0.73913`", ",", "0.3054`", ",", "0.374567`", ",", "0.13287`", ",",
3 V1 p0 G5 v, J8 k* O4 C, Q! D     "0.258741`", ",", "0.834966`", ",", "0.`", ",", "0.`", ",", "0.272861`",
6 o% i* P) N  C4 v     ",", "0.266784`", ",", "0.309859`"}], "}"}], ",",
- w  F+ D  r# M5 H   RowBox[{"{", - X, }( w; B+ v0 R) C( T
    RowBox[{
' ?! K1 h1 t) q3 p3 w, F6 p    "0.826087`", ",", "0.151962`", ",", "0.36028`", ",", "0.221632`", ",",
  {' c1 m" I' x( d     "0.447552`", ",", "0.584778`", ",", "0.457724`", ",", "0.`", ",", "0.`",
$ j- J% a( `, t" Y( H     ",", "0.826855`", ",", "0.408451`"}], "}"}], ",", 4 l( U1 R2 U5 a/ n  E! ?: ]/ C
   RowBox[{"{",
1 o1 g5 }5 j, ~( M* B; n: t    RowBox[{
$ C0 z& w% a) v    "0.565217`", ",", "0.047212`", ",", "0.233154`", ",", "0.121528`", ",",
% u6 v0 d( \! E1 T     "0.314685`", ",", "0.417483`", ",", "0.546341`", ",", "0.`", ",",
' `+ z! e( |$ ?" D/ @! }. U     "0.669438`", ",", "0.341873`", ",", "0.197183`"}], "}"}], ",",
. r2 m( z: G5 z  P' S% Y! H   RowBox[{"{",
; F& D( {9 _: J! a! E9 Y/ E( b! _0 m    RowBox[{
0 t( J# j+ y6 S$ A    "0.826087`", ",", "0.034376`", ",", "0.690349`", ",", "0.51238`", ",", ' c: V; x! u4 ?; U
     "0.685315`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.556479`", ",", ! |/ i* d2 @5 d, i
     "0.412544`", ",", "0.732394`"}], "}"}], ",", / L9 b8 }' O1 N, Z1 S, A
   RowBox[{"{", ) g# B9 A# f, c9 ]" B
    RowBox[{) Q. r2 R: t% z1 h5 x8 H% d
    "0.652174`", ",", "0.`", ",", "0.374417`", ",", "0.188075`", ",", 1 l" c* o0 ^1 w4 `3 r2 e9 k! a( w
     "0.706294`", ",", "0.498116`", ",", "0.729268`", ",", "0.`", ",", % h; y' ~) }( h& b% Y2 G0 H( c
     "0.454279`", ",", "0.322144`", ",", "0.802817`"}], "}"}], ",",
& m9 r, m6 a6 |, C5 Q$ O   RowBox[{"{",
/ z) o' H7 Z$ R. i" J# S& A    RowBox[{
& J" Z" W0 {9 P! g6 z7 N    "0.782609`", ",", "0.180363`", ",", "0.237142`", ",", "0.054809`", ",", ' M: T5 D8 `0 k" V2 {/ a7 Y
     "0.629371`", ",", "0.373775`", ",", "0.247967`", ",", "0.`", ",", " o. H( y3 ]7 M8 w! t& Q
     "0.163814`", ",", "0.370436`", ",", "0.746479`"}], "}"}], ",", 2 k' W) g8 Q) |, [. b! U! G! x9 c3 o
   RowBox[{"{",
% A3 o% ~! Z, M6 K$ A7 ^    RowBox[{
7 q1 R4 X  J% b  t' V6 s. B    "0.608696`", ",", "0.16915`", ",", "0.368148`", ",", "0.393768`", ",", $ j4 L6 k+ G: V; t
     "0.440559`", ",", "0.995479`", ",", "0.545528`", ",", "0.`", ",", : X$ q2 Q8 s" X% U& G: ~
     "0.56577`", ",", "0.333039`", ",", "0.380282`"}], "}"}], ",",
' O: g0 Z0 z4 B; O2 K   RowBox[{"{", , w5 D6 F* i5 I' P( |3 W, r. R8 q
    RowBox[{9 y4 E$ Z- q/ n, d! f  y& o
    "0.695652`", ",", "0.390454`", ",", "0.186683`", ",", "0.039439`", ",", ' p- Y" ], ^& o9 L7 u* y3 s
     "0.482517`", ",", "0.497362`", ",", "0.415447`", ",", "0.50856`", ",",
1 g2 F* N* l; c: c2 u' \     "0.`", ",", "0.390754`", ",", "0.56338`"}], "}"}], ",",
" Y5 E' P6 c" n# x" {6 v   RowBox[{"{",
" o3 |7 s. z, p" Z! |0 h+ x+ ~    RowBox[{
# g9 M& l; q% X% t$ s  V% h7 y& B    "0.73913`", ",", "0.428888`", ",", "0.082728`", ",", "0.070154`", ",", 2 r8 S! U, s  L# _: r5 P
     "0.27972`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
' d0 S5 q9 X1 b5 u: {# j     "0.694935`", ",", "0.323944`"}], "}"}]}], "}"}]], "Output",# E1 I& c/ L7 f) S2 q! }
CellChangeTimes->{3.57795879182092*^9, 3.5779604974578943`*^9, 3 [) P& H7 g) t9 [: Q) p1 g& y. z
  3.57801214396875*^9}]
, f  p9 B  g7 I/ `0 k}, Open  ]],
+ ?% p) z* ?  g6 D0 Y9 Y$ q2 L. [0 k1 J$ ^+ Y
Cell[CellGroupData[{3 U: f$ N1 `5 L+ w( z# S

3 Q% |2 D' @9 i) r' d3 f$ mCell[BoxData[
2 s" y5 H6 d5 W7 R% G* Z0 U+ a RowBox[{"Array", "[",
4 {" J+ Q0 v0 T2 x1 u- E  RowBox[{"CM", ",", 5 a0 J$ e% y* i& ~; ^1 y
   RowBox[{"{",
* \' E8 @! s) }! B2 T    RowBox[{"80", ",", "9"}], "}"}]}], "]"}]], "Input",; ]. I5 P7 ]% V6 R% W
CellChangeTimes->{{3.577844235859375*^9, 3.577844291953125*^9}}],
( z2 g& u0 K' a2 N. J6 d. t, X' A  R1 M
Cell[BoxData[
9 S1 g# a2 e+ G0 N% K9 y3 V RowBox[{"{",
. ?0 w+ @3 m: L% d- h0 F; R  RowBox[{
: c; n7 f3 c  |: Y& _   RowBox[{"{",
& M# y( \) U0 `2 X4 k$ Z  r    RowBox[{
% o; c6 ~1 F- f( Q/ a     RowBox[{"CM", "[",
! |7 \  \8 i' R4 x1 Y1 A      RowBox[{"1", ",", "1"}], "]"}], ",", + u/ B: v# N! u5 [8 Q
     RowBox[{"CM", "[",
  }3 a- N  c4 V9 c: D      RowBox[{"1", ",", "2"}], "]"}], ",", 3 X" I* b- h; Z: W
     RowBox[{"CM", "[",
" s% C# v) b' h- ?8 l1 e7 n6 q! ~      RowBox[{"1", ",", "3"}], "]"}], ",",
3 p" C( v7 u" Y/ q/ K- P     RowBox[{"CM", "[", , e/ y( @+ Y& D5 j- A( ~. A
      RowBox[{"1", ",", "4"}], "]"}], ",",
( d! |: [  G% l3 o) K     RowBox[{"CM", "[", $ l7 z& v& }' H5 a) O
      RowBox[{"1", ",", "5"}], "]"}], ",", $ H1 }& c# D* E. n9 @
     RowBox[{"CM", "[",
2 X  [5 z  h0 E2 Z- q6 S; X      RowBox[{"1", ",", "6"}], "]"}], ",", 9 j9 @9 l- X. r$ d  g$ {
     RowBox[{"CM", "[", & v5 H, K0 C  [
      RowBox[{"1", ",", "7"}], "]"}], ",", ' v2 M7 }  ^; y9 }9 S, @) m
     RowBox[{"CM", "[",
3 B3 Q1 s: |2 i8 K      RowBox[{"1", ",", "8"}], "]"}], ",", 7 ^9 u2 `5 ?* j- J7 O, W  J
     RowBox[{"CM", "[", $ m* k! d- Z  w! p" l+ W6 G" _
      RowBox[{"1", ",", "9"}], "]"}]}], "}"}], ",", 1 N0 I  m, |9 F. @( U- X9 r
   RowBox[{"{", 3 T1 A) x' m+ [; v; h
    RowBox[{
$ I$ a  x9 _  `* G3 a, \: h# I     RowBox[{"CM", "[", ' D; ^9 n' H' U9 Y- J/ S* K
      RowBox[{"2", ",", "1"}], "]"}], ",",
" G& \1 O- h7 B4 w9 |. ~& h4 _% [6 N     RowBox[{"CM", "[",
6 f# Q- c2 s9 N; o      RowBox[{"2", ",", "2"}], "]"}], ",",
: K/ o5 D8 ]1 U; ~& h     RowBox[{"CM", "[",
& |2 V, C# \+ D      RowBox[{"2", ",", "3"}], "]"}], ",", 5 c+ _* ]0 @, k# V
     RowBox[{"CM", "[", 7 p1 F( n( o. r! @4 F1 |- R; P1 B8 _
      RowBox[{"2", ",", "4"}], "]"}], ",",
  k# P  q2 W- G% F$ y     RowBox[{"CM", "[",
; G. d- T, {/ i4 M% a- r  p) }" M! i      RowBox[{"2", ",", "5"}], "]"}], ",",
5 x" \  }- |2 B     RowBox[{"CM", "[",
1 B7 y9 N5 U( z  P      RowBox[{"2", ",", "6"}], "]"}], ",", 7 V; h: Y  W5 ?+ T& l0 j! y
     RowBox[{"CM", "[",
; d" T- ]! C4 x5 O* o      RowBox[{"2", ",", "7"}], "]"}], ",", , u9 M; h9 z5 ?$ a8 N5 K. x4 C
     RowBox[{"CM", "[", ! d+ D5 W9 z7 r2 R
      RowBox[{"2", ",", "8"}], "]"}], ",",
9 d: H5 |8 q) |     RowBox[{"CM", "[",
% D. Z; r* B& A5 A! w      RowBox[{"2", ",", "9"}], "]"}]}], "}"}], ",",
5 w' c/ g# R  g   RowBox[{"{", & G: S* D) @# s/ w. ]0 r
    RowBox[{
  j- _7 \# V2 Z- ?6 ?0 y2 ^     RowBox[{"CM", "[", $ _- d& U* z2 d# [$ M8 i
      RowBox[{"3", ",", "1"}], "]"}], ",",
" k$ K9 Y* c( r) [  |" k1 I     RowBox[{"CM", "[",
" i9 d9 ~, P2 H/ {" _      RowBox[{"3", ",", "2"}], "]"}], ",", 9 W2 {1 r3 u( w0 L) b, s( u& e& @8 O1 ]
     RowBox[{"CM", "[",
) v+ y: j4 G9 ]1 G, z# r, s, c, B      RowBox[{"3", ",", "3"}], "]"}], ",", ) P% L. `6 F9 q/ h
     RowBox[{"CM", "[", 2 u# ]# f% d( n  Z
      RowBox[{"3", ",", "4"}], "]"}], ",", - y1 x" _  w3 ^, I5 w% j2 U
     RowBox[{"CM", "[", & z5 L+ Z# @6 ?) e0 q: v* c
      RowBox[{"3", ",", "5"}], "]"}], ",",
- |0 R. @8 k$ t/ i0 T/ T     RowBox[{"CM", "[",
- w, L1 Z  q0 r8 d5 m      RowBox[{"3", ",", "6"}], "]"}], ",", 0 G. Y( ?3 _( b: z
     RowBox[{"CM", "[", 7 J- L6 \! T: \  r( q6 @/ K
      RowBox[{"3", ",", "7"}], "]"}], ",", ! ~: {; e; F( o5 p
     RowBox[{"CM", "[",
; E  W8 Y7 O7 T$ @0 C, Y8 a" S      RowBox[{"3", ",", "8"}], "]"}], ",", " U! ^1 h# U) U1 b' G+ e% r* g
     RowBox[{"CM", "[", 1 m* W- x. Z2 P6 I" B; q, a+ k
      RowBox[{"3", ",", "9"}], "]"}]}], "}"}], ",",
$ L3 ~! Q9 ?' R- {9 V; S8 {   RowBox[{"{", 6 _- b2 J8 l0 i
    RowBox[{
1 \) T1 g+ |7 r0 g     RowBox[{"CM", "[", 7 s% C  p3 I/ ^+ e: B5 N& h% z9 _
      RowBox[{"4", ",", "1"}], "]"}], ",", - Y$ N2 Q& A* Y3 i7 b, t
     RowBox[{"CM", "[", + p5 M* M' A$ W9 n6 h
      RowBox[{"4", ",", "2"}], "]"}], ",",
$ i' z' f6 l0 x2 B     RowBox[{"CM", "[",
+ }7 e6 Y# k2 @8 m0 H" O      RowBox[{"4", ",", "3"}], "]"}], ",",
9 \/ v* u1 o8 F& M     RowBox[{"CM", "[",
) ]) l- m4 c* d6 v, f  [. }) t      RowBox[{"4", ",", "4"}], "]"}], ",", : S9 @' A4 m" M2 O+ n6 ]/ Z5 U
     RowBox[{"CM", "[",
  v( z2 X* n$ m3 L      RowBox[{"4", ",", "5"}], "]"}], ",", - [+ }5 \/ O1 A8 k8 G- y
     RowBox[{"CM", "[", # P+ ^2 ]2 x! k6 t- t1 u6 W
      RowBox[{"4", ",", "6"}], "]"}], ",", 4 [, Z9 \* \+ M% f# `9 o
     RowBox[{"CM", "[",
  m( C  l2 C2 J' O* D      RowBox[{"4", ",", "7"}], "]"}], ",", 9 p9 ~, Q6 D. w* E( V) j7 h
     RowBox[{"CM", "[", , j8 y* I2 M  b% ]
      RowBox[{"4", ",", "8"}], "]"}], ",",
. o6 t8 l2 I9 K9 B1 D8 O8 _- k     RowBox[{"CM", "[",
7 K$ Q$ |' E6 a/ t      RowBox[{"4", ",", "9"}], "]"}]}], "}"}], ",", # f+ m6 V" u& V! B, S
   RowBox[{"{",
, c( R+ E$ s" G1 O8 _0 w    RowBox[{
* s8 ]) E5 i& r$ D# V1 [     RowBox[{"CM", "[",
7 d4 I8 f8 S# T( Q6 t      RowBox[{"5", ",", "1"}], "]"}], ",", # s+ j4 t7 e4 D8 `0 W! m
     RowBox[{"CM", "[",
7 |0 R3 _" o! G+ Q2 Q7 ?" b, w      RowBox[{"5", ",", "2"}], "]"}], ",",
: o  s% }$ ~, p9 b     RowBox[{"CM", "[",
( W2 ]7 O% g. h. y; X9 C! N      RowBox[{"5", ",", "3"}], "]"}], ",",
7 K! E- U7 W; M* ~% M     RowBox[{"CM", "[",
4 F4 b7 j; w1 b      RowBox[{"5", ",", "4"}], "]"}], ",", 8 k6 N% }! Y! ~  {4 R: Z
     RowBox[{"CM", "[", $ {; E8 [: E' ~# z
      RowBox[{"5", ",", "5"}], "]"}], ",",
/ ^2 k" z8 C! F( D  w     RowBox[{"CM", "[", 0 r, j' d( n% R1 o$ S4 [7 S8 {
      RowBox[{"5", ",", "6"}], "]"}], ",",
. F( Q6 E9 T/ f7 E. j: q     RowBox[{"CM", "[",
# K" Y4 N1 \  c) J      RowBox[{"5", ",", "7"}], "]"}], ",", 0 T5 ]8 ?4 @2 _( v, E
     RowBox[{"CM", "[", ( e2 c, t# R8 P/ T/ y: r
      RowBox[{"5", ",", "8"}], "]"}], ",", & C1 K7 d+ P5 g9 F) s
     RowBox[{"CM", "[", 8 a* B% Z" H; M- K+ z7 |  i. C
      RowBox[{"5", ",", "9"}], "]"}]}], "}"}], ",",
% a- B1 M8 l  @   RowBox[{"{", $ M( U8 O! b0 N
    RowBox[{9 E6 n: e5 S$ |; \
     RowBox[{"CM", "[",
& y7 W4 v2 ~3 x3 X      RowBox[{"6", ",", "1"}], "]"}], ",", $ X: M( b( z! F  N  e$ L1 B9 R
     RowBox[{"CM", "[",
4 [  t# @( h2 [9 U      RowBox[{"6", ",", "2"}], "]"}], ",", : ?! `3 v. ], v4 ]9 r
     RowBox[{"CM", "[", 5 C8 V5 |! ~3 F5 C# @: {" m
      RowBox[{"6", ",", "3"}], "]"}], ",",
- _5 k% `2 N7 w6 k     RowBox[{"CM", "[",
1 Y0 Y; m* O4 S- y      RowBox[{"6", ",", "4"}], "]"}], ",",
& _1 F' s; D+ p' r     RowBox[{"CM", "[",
& L& `1 W% U% H. D) f      RowBox[{"6", ",", "5"}], "]"}], ",",
8 n, g8 K5 v- [) z     RowBox[{"CM", "[", 0 P; ?% I8 v) f3 }' \3 H& C
      RowBox[{"6", ",", "6"}], "]"}], ",",
9 U" U- o. L, j8 [     RowBox[{"CM", "[", $ l5 Y6 t% T# V1 l; ]0 ~- u+ R1 j
      RowBox[{"6", ",", "7"}], "]"}], ",",
6 r% d. ?! A/ E     RowBox[{"CM", "[",
" X- Y8 b. z( x8 ?      RowBox[{"6", ",", "8"}], "]"}], ",",
2 r8 o3 L# v/ U8 i& v& j     RowBox[{"CM", "[",
  }( d1 I- b9 s# Y  Y2 `      RowBox[{"6", ",", "9"}], "]"}]}], "}"}], ",",
! T0 [4 D' u, b1 p( ]4 I   RowBox[{"{", . G# J  z4 e9 G( j" L; |
    RowBox[{
8 l- z7 k; `' x( }. k! \2 V& L% t7 l" M     RowBox[{"CM", "[", 8 Y) C0 W" O( E
      RowBox[{"7", ",", "1"}], "]"}], ",", ) ]! C0 S4 d! @; _! u
     RowBox[{"CM", "[", 7 u3 t! X: f3 D
      RowBox[{"7", ",", "2"}], "]"}], ",", 5 K% k6 u: L6 b# a3 P1 ^% w
     RowBox[{"CM", "[",
" m" @" o" R3 R4 ]( p. G- ]  X      RowBox[{"7", ",", "3"}], "]"}], ",",
- j* ?; ?5 g$ M! a/ d     RowBox[{"CM", "[",
+ \, ?; u& @5 N$ G1 @      RowBox[{"7", ",", "4"}], "]"}], ",",
9 W% |0 D0 p! Y* B8 r: e/ V     RowBox[{"CM", "[", 4 ~, A$ I5 _. o6 b+ C" p) z* O# i
      RowBox[{"7", ",", "5"}], "]"}], ",",
" h$ Q: D3 ^) D8 A9 [/ |, A; S# e6 `     RowBox[{"CM", "[",
4 t" ]* B' E  q8 H3 O      RowBox[{"7", ",", "6"}], "]"}], ",", % X+ ~/ W: s7 x$ E# H3 B
     RowBox[{"CM", "[",
3 F$ @9 h2 J  [( `7 r      RowBox[{"7", ",", "7"}], "]"}], ",",
! _: T1 }7 }0 m! ?+ n- |3 g. S0 Z     RowBox[{"CM", "[",
/ v3 ]2 G! |1 W/ N/ M: |  {      RowBox[{"7", ",", "8"}], "]"}], ",", , k1 j3 h; a. h) ^- \0 p! w
     RowBox[{"CM", "[", $ {8 p( Z0 O4 u4 w# j- u1 h  |
      RowBox[{"7", ",", "9"}], "]"}]}], "}"}], ",", 7 o' J& ^& g* U" T3 x. m* t
   RowBox[{"{",
( W5 J- \8 `6 ^' G3 @5 u/ k$ E3 X    RowBox[{9 t! X  }; e* ?. |. z% q) h: H# U
     RowBox[{"CM", "[", 9 g4 e+ \& S" j/ C$ }
      RowBox[{"8", ",", "1"}], "]"}], ",", 1 K% v2 G4 ^$ B* L8 o  T2 L
     RowBox[{"CM", "[",
+ L! I; ~4 e+ C5 d  @  P" q1 [3 d- H      RowBox[{"8", ",", "2"}], "]"}], ",",   {7 f4 W5 g4 }& J0 x* z( p% S
     RowBox[{"CM", "[",
" e& L$ f5 w! E7 Y. R+ D' l4 b; U      RowBox[{"8", ",", "3"}], "]"}], ",", + O$ L+ x. i: Z$ J. I9 d" j
     RowBox[{"CM", "[",
& G; u( m$ a4 J7 p; R      RowBox[{"8", ",", "4"}], "]"}], ",",
( x. k) M3 X, @! B6 a; P     RowBox[{"CM", "[",
8 M: ^* D% \4 g. i! o      RowBox[{"8", ",", "5"}], "]"}], ",", % w$ N( [/ A" Y: l9 _
     RowBox[{"CM", "[",
3 L; Z6 t8 R- }7 K0 d      RowBox[{"8", ",", "6"}], "]"}], ",",
9 k# V* X" q2 @8 @5 }: |     RowBox[{"CM", "[",
2 [+ O) a) a( w4 B) g      RowBox[{"8", ",", "7"}], "]"}], ",", 7 I& f  e) m$ n" p2 j7 v
     RowBox[{"CM", "[",
* D( R2 {0 g& ~      RowBox[{"8", ",", "8"}], "]"}], ",", 4 \# O1 O* B8 \) D0 l$ ~
     RowBox[{"CM", "[",
* _* Q- r$ h( o/ v% n- Y      RowBox[{"8", ",", "9"}], "]"}]}], "}"}], ",", % ^" {2 b! H' G  S% t: r5 x7 H
   RowBox[{"{",
% ~, x& C( l$ Y! {( ?    RowBox[{3 E- J$ U5 [/ P9 S" N1 O4 E' o5 z
     RowBox[{"CM", "[",
+ k6 G) }0 k. d" w  w      RowBox[{"9", ",", "1"}], "]"}], ",",
0 |8 n6 Q9 g- d* Q3 U5 A     RowBox[{"CM", "[", 2 p+ j6 l$ F8 Q* f
      RowBox[{"9", ",", "2"}], "]"}], ",", 4 W. n. \/ Y7 B! l
     RowBox[{"CM", "[",
: q1 ^, I6 p' d: B  N      RowBox[{"9", ",", "3"}], "]"}], ",", + G( U/ d' Q5 ~' U* o! a* C1 W
     RowBox[{"CM", "[",
6 J3 Z; E2 V0 E: c- O      RowBox[{"9", ",", "4"}], "]"}], ",", % q% C; i/ |! U2 p0 Q0 \$ [# A3 \
     RowBox[{"CM", "[",
7 a! @$ t$ t, F5 ?      RowBox[{"9", ",", "5"}], "]"}], ",", : X; b; A8 L$ U" n0 k8 f- I, Y
     RowBox[{"CM", "[", ) \; `- z; j; t( \, l/ Y
      RowBox[{"9", ",", "6"}], "]"}], ",", " g0 ~! [1 z. o) O& G2 P
     RowBox[{"CM", "[",
; F+ p# I9 A, A+ E3 Q      RowBox[{"9", ",", "7"}], "]"}], ",",
: ]4 j6 Z9 Q" F( y$ B% {     RowBox[{"CM", "[",
! u, N; w7 t7 I& t/ [      RowBox[{"9", ",", "8"}], "]"}], ",", 6 D. ^! F. H8 D& |) O7 j% D
     RowBox[{"CM", "[",   S5 z% J$ T; D. E5 v6 G3 p, \7 K
      RowBox[{"9", ",", "9"}], "]"}]}], "}"}], ",",
# P# E1 X5 m7 F/ P" \- Y   RowBox[{"{",
/ j0 W' Z& f) Y5 i) r- f0 F2 w    RowBox[{
: u% `# u9 w9 f, Z     RowBox[{"CM", "[", , u2 Y5 D) k( C% ^: T5 ~
      RowBox[{"10", ",", "1"}], "]"}], ",",
8 J& g, F; X# k% `     RowBox[{"CM", "[",
# Q" Y. H2 x0 D  {! Y8 s/ ^      RowBox[{"10", ",", "2"}], "]"}], ",",
0 |0 v8 P, d. ^9 l/ @& a6 h     RowBox[{"CM", "[", 3 Y. `' ~5 t$ i! ^3 _7 U9 Y( E
      RowBox[{"10", ",", "3"}], "]"}], ",", : F% R2 ~; |# H, d( z
     RowBox[{"CM", "[", & d$ [9 @! R0 m4 r4 q7 b. {: M" V
      RowBox[{"10", ",", "4"}], "]"}], ",", 3 J% A5 c  d& n5 i5 N
     RowBox[{"CM", "[",
* o3 P0 ?% c5 a1 l, L% z      RowBox[{"10", ",", "5"}], "]"}], ",",
  k1 o' p" {7 F/ Q! g, [     RowBox[{"CM", "[", 9 f! ~/ k0 G9 D: A+ \
      RowBox[{"10", ",", "6"}], "]"}], ",", . u$ y3 ~- e) z9 g+ y3 S
     RowBox[{"CM", "[", 7 H3 o3 u& `; ?' O2 W' G
      RowBox[{"10", ",", "7"}], "]"}], ",",
4 a* c! E3 \$ R' S% w     RowBox[{"CM", "[",
6 n; E( h' N, |$ I9 e% L. S      RowBox[{"10", ",", "8"}], "]"}], ",", * n+ i0 ~2 Q2 [# P9 W
     RowBox[{"CM", "[", ) o9 Q( c4 G! a
      RowBox[{"10", ",", "9"}], "]"}]}], "}"}], ",",
) q0 L  |: b- X& E0 R   RowBox[{"{", + X; Q6 E3 e. ^
    RowBox[{$ d# C( B0 U6 Y8 i
     RowBox[{"CM", "[",
4 J+ G/ _+ u: h" Y; m      RowBox[{"11", ",", "1"}], "]"}], ",",
+ H7 }& {, F4 ]+ [/ I: d     RowBox[{"CM", "[",
7 e9 B6 S: G# {  ~      RowBox[{"11", ",", "2"}], "]"}], ",", 4 j$ M! Y1 c  n0 H' [
     RowBox[{"CM", "[", 3 v; \+ c/ W( p6 {/ Z
      RowBox[{"11", ",", "3"}], "]"}], ",",
- I: t2 \4 h2 C4 Y     RowBox[{"CM", "[",
* u- u: M: ?# g* K3 q; s      RowBox[{"11", ",", "4"}], "]"}], ",", ! W: s5 Z2 ^* P- x7 y4 n0 {; }
     RowBox[{"CM", "[",
- H: T: a  D6 A4 a5 X8 V+ b      RowBox[{"11", ",", "5"}], "]"}], ",",
6 u$ Q1 }- B* R2 t     RowBox[{"CM", "[",
* t3 _* s$ c, d+ R+ B5 d; J      RowBox[{"11", ",", "6"}], "]"}], ",", 0 M8 @4 U! v  X) S% S- a! e
     RowBox[{"CM", "[",
  ]7 ?7 T; I! p$ i      RowBox[{"11", ",", "7"}], "]"}], ",",
) q1 o$ l2 e5 |2 c     RowBox[{"CM", "[", ) h9 j" ~* J" Z  }7 y
      RowBox[{"11", ",", "8"}], "]"}], ",", ( M  V3 j( {4 a6 t0 I' B+ _8 a
     RowBox[{"CM", "[", ' Y  i6 W; G2 }  }+ X4 [3 U
      RowBox[{"11", ",", "9"}], "]"}]}], "}"}], ",", 3 o) h) [- p' k0 C# \. D* \
   RowBox[{"{",
- J5 w& ]9 W/ ~& l  u) X3 F4 p/ \    RowBox[{
% \+ [5 s- @; D+ E     RowBox[{"CM", "[", - |/ Y3 f0 ?% o+ {: j/ {/ C7 t
      RowBox[{"12", ",", "1"}], "]"}], ",",
, u( {$ g/ O( S& @( I     RowBox[{"CM", "[",   e6 y3 n: V% ?0 }  l3 z& A
      RowBox[{"12", ",", "2"}], "]"}], ",",
. T5 T, A# X, ]0 I. ^     RowBox[{"CM", "[",
5 d5 c" k( z2 _9 y  M  W$ W& b      RowBox[{"12", ",", "3"}], "]"}], ",", ( n& L. u" W. N0 T) ?1 t, f4 r
     RowBox[{"CM", "[", ! l' c5 b% O3 N0 G9 s
      RowBox[{"12", ",", "4"}], "]"}], ",",
% k# Q0 z* [9 s4 F1 g( |     RowBox[{"CM", "[", - S; G. |' r3 o8 v
      RowBox[{"12", ",", "5"}], "]"}], ",",
! x7 @5 x. g) e, [     RowBox[{"CM", "[", 9 Y8 p, Z  R# d% X0 \6 J+ \
      RowBox[{"12", ",", "6"}], "]"}], ",",
  i9 U6 P6 O4 c! @" _- T     RowBox[{"CM", "[", / l7 G5 `( k' t0 M9 g& a% N* d
      RowBox[{"12", ",", "7"}], "]"}], ",",
+ ?1 I) L0 j2 r" z% G! C+ m0 V9 C     RowBox[{"CM", "[",
0 _. |4 I) h( Q9 u1 p" J      RowBox[{"12", ",", "8"}], "]"}], ",",
2 O- {- b" E. e$ q     RowBox[{"CM", "[", 8 S% ^: e# U6 u4 c/ A  P4 B  p
      RowBox[{"12", ",", "9"}], "]"}]}], "}"}], ",",
# ^, L. y$ D5 m$ d$ S7 \: k   RowBox[{"{", 9 m9 y4 U4 g% H5 y; s
    RowBox[{
8 E2 l2 |, G& G     RowBox[{"CM", "[", 2 s% p  g" z0 g8 y
      RowBox[{"13", ",", "1"}], "]"}], ",",
+ y# l, F3 W1 U$ n     RowBox[{"CM", "[",
+ m8 _7 {; @8 s1 N      RowBox[{"13", ",", "2"}], "]"}], ",",
/ x; ~" }1 m: q4 I     RowBox[{"CM", "[",
( ?! F# j8 n" Q( r! u% H$ \      RowBox[{"13", ",", "3"}], "]"}], ",", 3 p/ r) T+ u' r/ Y; {1 F
     RowBox[{"CM", "[", ( m& p" w1 L% @; t3 w
      RowBox[{"13", ",", "4"}], "]"}], ",",
& |! [* [. Y* |4 Q7 t$ m) P     RowBox[{"CM", "[",
9 A7 Q+ t% @, i( F      RowBox[{"13", ",", "5"}], "]"}], ",", ( k9 Y" G+ n/ B) L7 Y
     RowBox[{"CM", "[",
  ]9 G3 D8 R! R7 S  Z, E* B) p( Q. ]      RowBox[{"13", ",", "6"}], "]"}], ",",
/ k* t, V8 U* ?     RowBox[{"CM", "[",
0 `# ~' p9 a0 A2 s2 f9 ?      RowBox[{"13", ",", "7"}], "]"}], ",", . |, ]# ]9 C7 R) U; o
     RowBox[{"CM", "[", 3 r# `* B9 X- U- N% t7 u
      RowBox[{"13", ",", "8"}], "]"}], ",",
9 z: {7 _9 W2 f     RowBox[{"CM", "[", 0 b8 Y' O7 D+ U( b
      RowBox[{"13", ",", "9"}], "]"}]}], "}"}], ",", " N. g+ `5 ]4 @9 w8 [& ]5 B
   RowBox[{"{",
$ H$ z# _" }. {5 a; M2 E$ V    RowBox[{. y) r" R. e$ V. y) N
     RowBox[{"CM", "[",
& E, E% C) q& Z8 g" t8 F      RowBox[{"14", ",", "1"}], "]"}], ",", 9 T9 d' ?. r4 _; g( A* o5 \5 x
     RowBox[{"CM", "[",
( c  `: L# B' M+ [* b+ ]1 F, Z) o      RowBox[{"14", ",", "2"}], "]"}], ",",
% a: H5 [) V3 u     RowBox[{"CM", "[", 1 x: R* O8 A7 Y5 v/ ~( I
      RowBox[{"14", ",", "3"}], "]"}], ",", 3 y) s1 }4 y8 C/ L( q+ q# w
     RowBox[{"CM", "[",
$ \: f4 _. ^- y% P; W- d/ J      RowBox[{"14", ",", "4"}], "]"}], ",",
3 S/ s, z; a% s! o! b     RowBox[{"CM", "[",
% ^* J& @1 F/ i6 _      RowBox[{"14", ",", "5"}], "]"}], ",", 4 b2 Q8 I* [8 K% \, L# h' i
     RowBox[{"CM", "[", / s9 ]0 Q& J7 M# z/ i
      RowBox[{"14", ",", "6"}], "]"}], ",",   w: c# |5 d, z: d
     RowBox[{"CM", "[",
* }2 }( |6 @' a: `8 B      RowBox[{"14", ",", "7"}], "]"}], ",",
/ j9 h- i0 b/ `- h1 @" X! S     RowBox[{"CM", "[", ) Q5 b5 z7 t) ~, x' Y( l
      RowBox[{"14", ",", "8"}], "]"}], ",",
' T+ D* z- [4 V* B$ B     RowBox[{"CM", "[",
, t1 E9 z$ Z; k) X      RowBox[{"14", ",", "9"}], "]"}]}], "}"}], ",",
, H' l! @* \  f+ v) u   RowBox[{"{", " m) S; H# _( z
    RowBox[{
: X9 T% f, k5 W! H  m     RowBox[{"CM", "[", 8 a* a7 F' V9 x1 U. l# H
      RowBox[{"15", ",", "1"}], "]"}], ",", 8 `$ I! k! _) e
     RowBox[{"CM", "[",
1 ?, _# F1 s1 k( I# l      RowBox[{"15", ",", "2"}], "]"}], ",",
+ U4 ~& s6 `- J2 X     RowBox[{"CM", "[",
/ C: G' ^' [- w      RowBox[{"15", ",", "3"}], "]"}], ",",   F3 a2 e+ ^5 P7 v, l5 b  _% e' y" h
     RowBox[{"CM", "[", 9 w3 G. L9 }3 C& }( L& v
      RowBox[{"15", ",", "4"}], "]"}], ",",
; T; \/ b* ]6 D% }     RowBox[{"CM", "[", ( y) D. {6 f, ~& t+ f$ X! G
      RowBox[{"15", ",", "5"}], "]"}], ",",
, r  S0 ^" V0 t     RowBox[{"CM", "[",
' G: I' D' p- m  ~9 `* y      RowBox[{"15", ",", "6"}], "]"}], ",",
6 A. D, P- e0 |) n8 D     RowBox[{"CM", "[",
6 n- g8 a% h; {  H+ a  B      RowBox[{"15", ",", "7"}], "]"}], ",",
6 S/ P- z6 t; v     RowBox[{"CM", "[", ' Y- B2 S- i; n6 P
      RowBox[{"15", ",", "8"}], "]"}], ",",
! d! E  O5 z8 D: o1 l5 o' `" @     RowBox[{"CM", "[", : i3 ?' r# l# e+ C
      RowBox[{"15", ",", "9"}], "]"}]}], "}"}], ",",
4 ~1 e9 a/ m3 {% y; m/ ]3 ]6 g& k   RowBox[{"{",
8 s( T* {9 S& [) S0 I- P6 ^    RowBox[{5 ?' n8 }2 V. d3 N; d/ p
     RowBox[{"CM", "[",
  j+ M, P# Z  C; h* }% j      RowBox[{"16", ",", "1"}], "]"}], ",",
$ j0 e! q4 O$ P' j* T* x% i$ D     RowBox[{"CM", "[",
) E( @& ~2 l: @! F      RowBox[{"16", ",", "2"}], "]"}], ",", + X4 c% y$ s/ y% c6 z# v! j
     RowBox[{"CM", "[",
. p/ x7 _1 j1 K8 K      RowBox[{"16", ",", "3"}], "]"}], ",", , ^- e" m/ b5 u4 q5 f  i
     RowBox[{"CM", "[", # [8 U$ f0 t  U. o1 g
      RowBox[{"16", ",", "4"}], "]"}], ",",
6 y, _# {5 c' I# x     RowBox[{"CM", "[",
+ \7 h& x! Z& D, W6 D      RowBox[{"16", ",", "5"}], "]"}], ",", - d7 G  K* _5 X
     RowBox[{"CM", "[",
6 j; R  Q; P, O# J; I- o      RowBox[{"16", ",", "6"}], "]"}], ",",
* ?9 p" E0 f* o4 ^3 M# T     RowBox[{"CM", "[", . {0 l3 ]. Y( M0 c
      RowBox[{"16", ",", "7"}], "]"}], ",",
9 r% g# S  ?" d3 `     RowBox[{"CM", "[", * t# d" t  R4 i4 d+ n
      RowBox[{"16", ",", "8"}], "]"}], ",",   I! r$ Z$ X5 Y: {  i! y, ~9 X/ P
     RowBox[{"CM", "[",
$ A3 b. W, {& M  M" N) L6 R1 U      RowBox[{"16", ",", "9"}], "]"}]}], "}"}], ",", 0 ^! F1 i% `5 x! S
   RowBox[{"{", ( ^# N- l& Q( R/ n2 G
    RowBox[{) J- ]3 j3 f7 R1 ^1 a6 s7 R
     RowBox[{"CM", "[",
' M% A9 V0 ^  ]8 o  k      RowBox[{"17", ",", "1"}], "]"}], ",",
- s/ r. f4 O- o6 T2 `$ @% J( p     RowBox[{"CM", "[", ! i8 U7 o/ k# _3 ^& ]
      RowBox[{"17", ",", "2"}], "]"}], ",",
" d+ Q$ N/ K/ d     RowBox[{"CM", "[", - C" K( h, t- ^6 D! ]+ k% f% k
      RowBox[{"17", ",", "3"}], "]"}], ",",
* o, ]! v1 J3 v: B, r7 {     RowBox[{"CM", "[", ( Y1 R. B1 t! p1 m/ {
      RowBox[{"17", ",", "4"}], "]"}], ",", - J, B( i  [; C1 ]* r8 g) s# q
     RowBox[{"CM", "[",   V" _) c$ r/ P$ E' t$ Y6 o
      RowBox[{"17", ",", "5"}], "]"}], ",", ( @) R" r4 d7 ^* S4 e1 @, ~
     RowBox[{"CM", "[",
- \, \7 e- v% Y      RowBox[{"17", ",", "6"}], "]"}], ",",
, Q; D+ O& f% P" |, c     RowBox[{"CM", "[",
' b+ X" Q' C- d! b7 n% _      RowBox[{"17", ",", "7"}], "]"}], ",",
/ {( Q4 K% m# n' o* s0 j. w     RowBox[{"CM", "[", " L( D; I' N0 H6 k0 d) S: L7 q
      RowBox[{"17", ",", "8"}], "]"}], ",", 6 _% l) x* R# c" ?. t# K3 |
     RowBox[{"CM", "[",
. v1 C, o" M6 W+ \/ @1 z      RowBox[{"17", ",", "9"}], "]"}]}], "}"}], ",", 0 c. P4 D9 v1 i4 B5 v+ h
   RowBox[{"{", 5 b# r+ Q. f& `* @" p0 v
    RowBox[{
: I: M/ C. r2 n8 A2 [- u     RowBox[{"CM", "[",
; i0 X4 T* A2 J# v- W7 U      RowBox[{"18", ",", "1"}], "]"}], ",", 2 H' D( h9 T: e2 i$ o
     RowBox[{"CM", "[",
' ]6 @( v/ J$ H) i6 k; H      RowBox[{"18", ",", "2"}], "]"}], ",", * p& U) Y# s# X0 T: K0 e( ~4 J# t
     RowBox[{"CM", "[",
9 Z. a. Z4 s) ]      RowBox[{"18", ",", "3"}], "]"}], ",",
8 z, K; P$ a4 M  Y( J9 R, s- O- a( u     RowBox[{"CM", "[",
$ w8 L  `5 P# J0 e" q      RowBox[{"18", ",", "4"}], "]"}], ",", . _8 j1 u# E2 d6 X3 Z
     RowBox[{"CM", "[",
: I4 N6 m) V) n" n      RowBox[{"18", ",", "5"}], "]"}], ",", ! z" a) \5 ~! |/ x
     RowBox[{"CM", "[",
( s/ b# K2 q1 ?. Q      RowBox[{"18", ",", "6"}], "]"}], ",", . r" p0 Z9 e) y1 L- @6 T) v
     RowBox[{"CM", "[", ; X  W/ e) [9 _3 I& E3 I( {
      RowBox[{"18", ",", "7"}], "]"}], ",",
- T  `, f& C- I7 l8 [     RowBox[{"CM", "[",
6 m* d, Y4 J9 N1 u0 B6 o' t      RowBox[{"18", ",", "8"}], "]"}], ",",
6 ~$ |/ p$ B! w8 ?& T$ g     RowBox[{"CM", "[", - }( P+ l4 U- W2 b- m" Y
      RowBox[{"18", ",", "9"}], "]"}]}], "}"}], ",", " [( Q3 l1 V% A* F( Y
   RowBox[{"{", - n0 V; c# n7 s
    RowBox[{
+ i6 C4 X  P5 P- ~     RowBox[{"CM", "[",
- t3 B+ n, i) Q4 T/ w      RowBox[{"19", ",", "1"}], "]"}], ",", & v0 r5 B4 {6 P& r0 M6 w6 x
     RowBox[{"CM", "[",
6 q; n- i. ], P5 ~8 D4 p$ b      RowBox[{"19", ",", "2"}], "]"}], ",", ) c$ B5 [; M, U: {; x* t4 [
     RowBox[{"CM", "[",
4 N9 k$ u2 g; G6 A0 `. X      RowBox[{"19", ",", "3"}], "]"}], ",",
9 `& |# X) a; p2 c     RowBox[{"CM", "[", ; [  _$ l6 V4 r' w
      RowBox[{"19", ",", "4"}], "]"}], ",",
5 z3 D/ c4 t- G% O     RowBox[{"CM", "[",
/ Y) E: d* U* H: s1 j      RowBox[{"19", ",", "5"}], "]"}], ",", , a0 d' z+ Y, ]$ O, k8 r
     RowBox[{"CM", "[", . C+ D! v% V+ R( x: \
      RowBox[{"19", ",", "6"}], "]"}], ",",
0 f2 o! {: ?* X  K  [; P8 s! X     RowBox[{"CM", "[", 2 P; e  r; ?7 O3 \# C9 h' x
      RowBox[{"19", ",", "7"}], "]"}], ",", & l# W0 L. e3 D3 p
     RowBox[{"CM", "[",
0 c+ C) a$ _* l: e' r# |0 o$ X      RowBox[{"19", ",", "8"}], "]"}], ",", 7 N5 k6 d/ W# f! t, |
     RowBox[{"CM", "[", ) ^  M  ^( V7 G- b1 N0 M% v
      RowBox[{"19", ",", "9"}], "]"}]}], "}"}], ",", - n; q: A% H3 }! ?4 c
   RowBox[{"{", : |9 t$ S: i  u! t
    RowBox[{
) h4 v: O, P: g1 ?     RowBox[{"CM", "[",
7 Q$ X! B: K+ o' Z  p. j5 [      RowBox[{"20", ",", "1"}], "]"}], ",", . ^' B" N$ F9 x
     RowBox[{"CM", "[",
0 C0 N0 j( G. @0 A; h5 L7 s      RowBox[{"20", ",", "2"}], "]"}], ",", 7 p  m# c9 J$ t! A5 ~
     RowBox[{"CM", "[",
9 J  o/ `2 Z2 t9 z& \/ z( B      RowBox[{"20", ",", "3"}], "]"}], ",",
. [$ ~) I  C" E3 z2 D     RowBox[{"CM", "[",
1 }' ^$ b3 E( H0 h9 M      RowBox[{"20", ",", "4"}], "]"}], ",",
6 ], Y4 R0 O  v# p* x( P     RowBox[{"CM", "[",
! P* `# V* G3 L5 g+ \0 \0 l% `      RowBox[{"20", ",", "5"}], "]"}], ",",
+ l: t' L2 x3 ~  V0 p' g+ b     RowBox[{"CM", "[", 2 E( @9 r$ j# U4 V+ u/ @: B! t3 F
      RowBox[{"20", ",", "6"}], "]"}], ",",
; ?* R" h- w7 a5 O' S2 B     RowBox[{"CM", "[",
: |/ C4 m4 o: a- E      RowBox[{"20", ",", "7"}], "]"}], ",",
! @$ V) w  }! c0 w     RowBox[{"CM", "[", $ _! h2 H1 `+ E/ T
      RowBox[{"20", ",", "8"}], "]"}], ",",
& m$ F6 a( q0 u     RowBox[{"CM", "[", ( g9 Z$ q$ |3 b% b& `
      RowBox[{"20", ",", "9"}], "]"}]}], "}"}], ",",
8 ^$ i4 p) ]4 n6 @   RowBox[{"{",
) H8 |/ H% l- A5 n    RowBox[{
. A1 ?- F, a8 T2 P9 ]     RowBox[{"CM", "[",
, o4 g, Q% s9 h1 v      RowBox[{"21", ",", "1"}], "]"}], ",",
. ^0 c, S0 ?  k3 U5 A9 a3 Q! u) q     RowBox[{"CM", "[",
' O! H1 {8 |" k$ R- j% M9 ?      RowBox[{"21", ",", "2"}], "]"}], ",",
5 z) Y7 s1 }5 m' R1 X     RowBox[{"CM", "[", ! w( h" B. l+ }$ z
      RowBox[{"21", ",", "3"}], "]"}], ",",
& ~7 @0 }0 D! Q0 f$ b     RowBox[{"CM", "[",
1 i# a4 K- V# O9 b/ @      RowBox[{"21", ",", "4"}], "]"}], ",", 9 t* h) `' c& q
     RowBox[{"CM", "[",
$ F1 p7 F8 r) ~2 Q7 Z      RowBox[{"21", ",", "5"}], "]"}], ",",
# N6 Z9 S+ d. Z$ d6 [7 E     RowBox[{"CM", "[",
( {7 b2 H0 p9 @: s; v. K8 Z      RowBox[{"21", ",", "6"}], "]"}], ",",
. x+ Z$ {4 O* O. L* |     RowBox[{"CM", "[",
, m8 R/ B& @( P3 C1 H1 d      RowBox[{"21", ",", "7"}], "]"}], ",",
8 K* V% [4 z6 c; D     RowBox[{"CM", "[", 3 `7 k+ p, L6 b# T8 v
      RowBox[{"21", ",", "8"}], "]"}], ",",
: U0 _' i. C( J* |1 h" \     RowBox[{"CM", "[",
5 R- Z$ m5 {8 g; ]8 d; T6 i- q      RowBox[{"21", ",", "9"}], "]"}]}], "}"}], ",",
+ Y0 g/ P4 b5 {   RowBox[{"{", ( m5 |  Q3 q1 h7 T/ E4 F- S
    RowBox[{2 o5 E! R5 Q8 h+ e4 d
     RowBox[{"CM", "[", . k+ p% c- h; q: S! _. V) G6 o
      RowBox[{"22", ",", "1"}], "]"}], ",",
) a- A3 o# Z$ [" e9 `& n     RowBox[{"CM", "[",
; ~; I9 M, @8 m2 h      RowBox[{"22", ",", "2"}], "]"}], ",",
6 A8 Q0 U' e& O     RowBox[{"CM", "[",
8 z4 j9 F& u' w1 b, `7 E9 x      RowBox[{"22", ",", "3"}], "]"}], ",", 6 [3 ?' E4 ~! _6 ^. c
     RowBox[{"CM", "[", # z8 J2 L: ~8 ]1 ~# `4 b
      RowBox[{"22", ",", "4"}], "]"}], ",",
& o- u$ B3 p# `! P" K6 F7 [     RowBox[{"CM", "[",
: \4 S! C) k" `$ D" X      RowBox[{"22", ",", "5"}], "]"}], ",",
* }+ Y# {# q6 Q- g     RowBox[{"CM", "[",
5 S& X# V3 B( e: i& T  ~      RowBox[{"22", ",", "6"}], "]"}], ",", 0 T; ~' e. f& R! a8 `0 L
     RowBox[{"CM", "[", ) Q1 K" |5 _! V0 v+ E' U
      RowBox[{"22", ",", "7"}], "]"}], ",",
" y0 a) @; }1 |; r! \2 {1 y% j     RowBox[{"CM", "[", # o5 W2 o) `; ~% A
      RowBox[{"22", ",", "8"}], "]"}], ",", $ U5 ~' [7 C, k& K, ~- Q
     RowBox[{"CM", "[", 7 B8 b. F9 S* X2 Y
      RowBox[{"22", ",", "9"}], "]"}]}], "}"}], ",",
" x; B: e0 n  t) f& E' E   RowBox[{"{", , O5 o/ U9 S& ^  ~. ^
    RowBox[{$ o3 ]5 Z, I% J0 n9 b; A1 r. a3 f
     RowBox[{"CM", "[", 1 ~. `% [0 h6 j1 G' i* j
      RowBox[{"23", ",", "1"}], "]"}], ",",
0 w2 L5 X, D+ j+ d: {, T     RowBox[{"CM", "[",   |/ B% }% O# T, ?
      RowBox[{"23", ",", "2"}], "]"}], ",",
( g+ C( L; }% L; j: w     RowBox[{"CM", "[", 2 u0 q( t  k+ J
      RowBox[{"23", ",", "3"}], "]"}], ",", $ ]/ W- Q7 g1 W1 p6 O8 C
     RowBox[{"CM", "[",
* J1 L! Q. q; O& v! H* r5 }      RowBox[{"23", ",", "4"}], "]"}], ",",
& P' U+ W& L6 E     RowBox[{"CM", "[", / s+ x9 X: N7 p2 f
      RowBox[{"23", ",", "5"}], "]"}], ",",
: R  ^$ W9 F$ y2 v2 A     RowBox[{"CM", "[",
6 ^8 T/ w. ?3 v' R& ^$ ], Z% p      RowBox[{"23", ",", "6"}], "]"}], ",", : O; d; K, ]3 `3 h3 i7 m! i
     RowBox[{"CM", "[", ( C# g' k8 O0 c3 k5 {: ~
      RowBox[{"23", ",", "7"}], "]"}], ",", 1 `: l  C7 x) o1 h, \! W
     RowBox[{"CM", "[",   R2 W- r; s$ I4 W- q
      RowBox[{"23", ",", "8"}], "]"}], ",",
4 q) Y5 F# ^0 }- Q& c     RowBox[{"CM", "[", ! L2 Q2 w5 }6 V6 u5 W% @/ z0 P5 M" h
      RowBox[{"23", ",", "9"}], "]"}]}], "}"}], ",",
/ o# t# ^3 i( R! A' r# ^7 b   RowBox[{"{",
+ ]/ z  S8 E( R    RowBox[{
6 G# [$ e6 q1 {+ g     RowBox[{"CM", "[",
9 ?% C% X, S1 g: {+ k      RowBox[{"24", ",", "1"}], "]"}], ",", ; W; e6 n! G  K5 q5 t& @- c) V
     RowBox[{"CM", "[",
1 N# A- P( Z1 ]: O9 b* t' X; x/ d      RowBox[{"24", ",", "2"}], "]"}], ",", : R! w3 L3 E# h; F# n" x9 N. ^
     RowBox[{"CM", "[", " r9 F# \- l$ R' \" C
      RowBox[{"24", ",", "3"}], "]"}], ",",
; ?. n: Q" K9 L3 @( s     RowBox[{"CM", "[",
  s6 A0 T( j; k( D. P3 O0 V1 b, d      RowBox[{"24", ",", "4"}], "]"}], ",", 8 b0 k* n( b: g. y3 c( C9 t& T6 I
     RowBox[{"CM", "[", 1 ]  V( r+ @# L7 H- P
      RowBox[{"24", ",", "5"}], "]"}], ",",
. G. U2 M- d: |# D4 h     RowBox[{"CM", "[", ) ]! Q; M* H3 `4 G% F9 N) u
      RowBox[{"24", ",", "6"}], "]"}], ",",
* j5 E$ _) Q" R& l- \# ?: B( E     RowBox[{"CM", "[", $ x2 r7 k3 ~( ?* E  ?
      RowBox[{"24", ",", "7"}], "]"}], ",",
* ^0 n5 A. I0 s     RowBox[{"CM", "[", 0 J/ z: S7 j3 T+ t
      RowBox[{"24", ",", "8"}], "]"}], ",",
) s; A1 Q$ `- P7 L, e* S1 c! ~. _( Z! y     RowBox[{"CM", "[",
* a/ i; A+ ^3 D6 ?* n      RowBox[{"24", ",", "9"}], "]"}]}], "}"}], ",",
7 }+ ^& O6 A: X   RowBox[{"{",
- W# }# T7 ]0 i9 p( j( |    RowBox[{
" b0 n. u0 J6 P; `" P: r1 \. Z     RowBox[{"CM", "[",
1 x  q8 M( o7 Q      RowBox[{"25", ",", "1"}], "]"}], ",",
& |) [1 V5 f* \% q5 O, R. ~     RowBox[{"CM", "[",
( i* P& y4 N/ k& z      RowBox[{"25", ",", "2"}], "]"}], ",",
* j) D- h3 c2 h1 z; x     RowBox[{"CM", "[",
8 o* D2 J/ e$ y' m6 }      RowBox[{"25", ",", "3"}], "]"}], ",", * x' ^( R& F' j9 _2 M
     RowBox[{"CM", "[",
+ B/ ]) v3 y# B      RowBox[{"25", ",", "4"}], "]"}], ",", ' w& Z" K9 |4 J+ u
     RowBox[{"CM", "[",
! l, j3 S  S3 x: L& M  G' z! O      RowBox[{"25", ",", "5"}], "]"}], ",", , u9 ]2 G2 N( p) k- y$ o9 N
     RowBox[{"CM", "[",
- {8 x) J; W" C( g# U% g& ~      RowBox[{"25", ",", "6"}], "]"}], ",", & I& O0 x8 ~% ]
     RowBox[{"CM", "[",
/ i9 y' P# i8 n. C      RowBox[{"25", ",", "7"}], "]"}], ",",
! @7 f2 [' ~& Y! ~5 z' p: D     RowBox[{"CM", "[", ) a2 u0 O& M$ s
      RowBox[{"25", ",", "8"}], "]"}], ",",
4 @8 y" S5 ~  ^9 N9 {# z     RowBox[{"CM", "[",
9 H; x) Y* ]" d6 z0 j0 B3 N      RowBox[{"25", ",", "9"}], "]"}]}], "}"}], ",",
: {. x7 ~# M& O9 _8 W0 l9 L   RowBox[{"{", 8 P7 Y4 ~! p2 ^" \
    RowBox[{9 C! y; U" y. n- z) M' _
     RowBox[{"CM", "[",
! p% {- n5 i2 F# u2 }- q' W) {      RowBox[{"26", ",", "1"}], "]"}], ",",
7 l# ]; w% {- A1 f3 H# V8 ^     RowBox[{"CM", "[", 5 n# q4 Z# U9 S/ y
      RowBox[{"26", ",", "2"}], "]"}], ",",
; ?0 }4 f& F" N' z; }: H7 {     RowBox[{"CM", "[", 1 W, f% i8 l( T6 ~3 V! }4 U
      RowBox[{"26", ",", "3"}], "]"}], ",", : z- q( s, X, j; I5 e( ~
     RowBox[{"CM", "[",
; ~4 |4 E. t; _3 V) _3 f1 ?/ I      RowBox[{"26", ",", "4"}], "]"}], ",",
) U8 m! o$ o! j# y( G     RowBox[{"CM", "[", 3 f9 U$ X) {. r
      RowBox[{"26", ",", "5"}], "]"}], ",",
: L9 t% K& }5 ^  f& w4 p( T& U     RowBox[{"CM", "[",
: T) b8 v( n+ ?( `/ X7 o. G      RowBox[{"26", ",", "6"}], "]"}], ",",
* \; p& f  D5 V8 ~; C" f" t9 t/ v     RowBox[{"CM", "[", . @* e( Z, K9 @" U
      RowBox[{"26", ",", "7"}], "]"}], ",", % V/ }$ l7 ]  e) V$ E' [* T
     RowBox[{"CM", "[", # p; T3 N5 o- b: n# n
      RowBox[{"26", ",", "8"}], "]"}], ",", 4 n: X, _% N1 F4 E2 w9 d
     RowBox[{"CM", "[",
9 U7 f9 K+ g# F6 E9 K. M+ `      RowBox[{"26", ",", "9"}], "]"}]}], "}"}], ",",
" S2 u/ L, K% C  |/ N% \   RowBox[{"{", ' v( O" Y$ d2 z7 N; ~
    RowBox[{( z3 z# }6 A3 X2 a- j
     RowBox[{"CM", "[", ' J" w- C' @% i+ p' q! p: a0 L
      RowBox[{"27", ",", "1"}], "]"}], ",",
, z' F" ^: @; s( G6 k     RowBox[{"CM", "[",
2 x" V2 d( @9 C2 Q' C; v: }      RowBox[{"27", ",", "2"}], "]"}], ",",
1 H- D) b- n& G4 ?* s( @, M     RowBox[{"CM", "[", ' K& u1 y) T& W
      RowBox[{"27", ",", "3"}], "]"}], ",", ' B6 g8 [( b5 E5 ?% B3 I' L( p
     RowBox[{"CM", "[", $ b4 V8 @3 Y( t0 u5 g0 D& |/ \
      RowBox[{"27", ",", "4"}], "]"}], ",",
6 [. A: {; N2 r, z" f: P+ @     RowBox[{"CM", "[", 0 n0 G* D+ f* w4 a# K
      RowBox[{"27", ",", "5"}], "]"}], ",",
8 v" U2 f) z# Y( M" e0 U6 p$ I     RowBox[{"CM", "[",
1 a- ?* F3 ~6 ]0 ~% [7 X      RowBox[{"27", ",", "6"}], "]"}], ",", % {2 A8 M/ f* ^+ w' W; V( Z
     RowBox[{"CM", "[", 2 l2 W" U& c0 ?* d
      RowBox[{"27", ",", "7"}], "]"}], ",", 2 V5 U" N: H1 ]
     RowBox[{"CM", "[",
0 ?0 x8 k( J; ^8 Q. D0 C      RowBox[{"27", ",", "8"}], "]"}], ",",
+ c0 H: b2 F" ~5 G& i     RowBox[{"CM", "[",
6 j0 l  m3 O# I4 [$ p. H      RowBox[{"27", ",", "9"}], "]"}]}], "}"}], ",", $ J* `$ e! M, ~% f7 R1 Z
   RowBox[{"{", ) A9 ?) p7 o( I( @* p, P0 I
    RowBox[{
& H/ ?/ r3 t3 u2 V, F" `: E! u/ H     RowBox[{"CM", "[", + g6 |/ J% I: p. \0 X5 P! C
      RowBox[{"28", ",", "1"}], "]"}], ",", $ w1 ]' f( a+ V; N8 t" f7 ^8 ]
     RowBox[{"CM", "[", 3 Q% \% |* k% F& ^
      RowBox[{"28", ",", "2"}], "]"}], ",",
' O8 r: v) H: Q     RowBox[{"CM", "[",
) {( q/ _* |! a4 X/ o      RowBox[{"28", ",", "3"}], "]"}], ",", 8 g$ C& ~- ~7 B$ w4 P7 f+ D  n* Y
     RowBox[{"CM", "[",
0 X6 w; i* @: u) W2 {5 k$ G8 E      RowBox[{"28", ",", "4"}], "]"}], ",", ( y  X$ Y' Z2 ?3 r
     RowBox[{"CM", "[",
. r& ~% F" |* e# q' S! ~* |* ^      RowBox[{"28", ",", "5"}], "]"}], ",",
; D, }8 w4 R3 S0 ~: m* o9 w! i9 E$ X     RowBox[{"CM", "[",
# y$ {/ X. w0 ]      RowBox[{"28", ",", "6"}], "]"}], ",", / s- p9 w! ^1 _- P% M
     RowBox[{"CM", "[",
: ]  D- ]7 U* G7 p5 P      RowBox[{"28", ",", "7"}], "]"}], ",",
" e' S5 I5 f1 v& T     RowBox[{"CM", "[",
* e5 @  ^2 V  b7 n      RowBox[{"28", ",", "8"}], "]"}], ",",
: F! k+ m8 }5 \& r" O/ j' ~     RowBox[{"CM", "[",
' k( q1 v" O7 Q( r; |* A" y0 l$ H* R      RowBox[{"28", ",", "9"}], "]"}]}], "}"}], ",", " G! d0 H5 P, x# }/ R  {
   RowBox[{"{",
3 [" F7 W. l+ ^4 t7 w% H7 \1 V1 Z    RowBox[{
% n- i+ B( ^2 T1 u- b9 K/ w& C     RowBox[{"CM", "[",
) d* Q8 s, p: m1 |9 l6 c! o# o      RowBox[{"29", ",", "1"}], "]"}], ",",
: s1 H& q4 a! }1 k     RowBox[{"CM", "[",
0 W) V: N6 _: ^% F6 p$ y. W; N5 @      RowBox[{"29", ",", "2"}], "]"}], ",",
' w2 y9 w7 o1 A0 I3 n& a     RowBox[{"CM", "[", ' i- s8 t0 q  h
      RowBox[{"29", ",", "3"}], "]"}], ",", ) j+ z4 [: U1 i$ p! J
     RowBox[{"CM", "[",
+ B9 x' j7 b; y( _      RowBox[{"29", ",", "4"}], "]"}], ",",
8 `, M. c4 X% X$ e6 ~3 M/ H     RowBox[{"CM", "[",
: T4 R5 R+ ?1 N# \' U) {4 j      RowBox[{"29", ",", "5"}], "]"}], ",", : @' p0 S2 x7 z5 ]
     RowBox[{"CM", "[",
" G8 P3 h1 l" d  e      RowBox[{"29", ",", "6"}], "]"}], ",",
9 _2 k0 m/ e8 N6 v- x2 D     RowBox[{"CM", "[", 9 ^1 ^0 R# s9 Z' v9 P4 x
      RowBox[{"29", ",", "7"}], "]"}], ",",
5 V* q4 o- x5 {0 o3 A% e     RowBox[{"CM", "[",
& O! E- P7 H% k# W2 t      RowBox[{"29", ",", "8"}], "]"}], ",",
. q1 U! o) e- [     RowBox[{"CM", "[", # N+ I7 t3 K8 y2 P9 R. r
      RowBox[{"29", ",", "9"}], "]"}]}], "}"}], ",",
* _5 P/ ?) r4 Y   RowBox[{"{", 8 o. a) S8 _1 {5 M, y7 L* e( {
    RowBox[{6 L# M. E7 L1 z+ Y/ S
     RowBox[{"CM", "[", & }8 a; g: l4 V& B
      RowBox[{"30", ",", "1"}], "]"}], ",",
8 |" M6 y% X  W3 B# N9 F     RowBox[{"CM", "[",
+ G/ k' N1 \# n9 P5 u- [      RowBox[{"30", ",", "2"}], "]"}], ",", + r2 w* W; l9 j( B; I: @
     RowBox[{"CM", "[", 7 h* E/ ~4 B3 _- a
      RowBox[{"30", ",", "3"}], "]"}], ",", ' c+ W% b3 q2 N% c1 h
     RowBox[{"CM", "[", * c. k" q( `. `; }; \8 _
      RowBox[{"30", ",", "4"}], "]"}], ",",
  S7 w9 }7 a! L6 @6 k5 |7 _     RowBox[{"CM", "[",
  U. ]" S: e& I5 Z& H: Q      RowBox[{"30", ",", "5"}], "]"}], ",",
3 q) L7 Y5 I! v- F     RowBox[{"CM", "[",   c4 g3 F( b2 n
      RowBox[{"30", ",", "6"}], "]"}], ",",
# w: c7 O5 O8 O+ r     RowBox[{"CM", "[", & j$ I, E# T' d5 Y8 p7 u
      RowBox[{"30", ",", "7"}], "]"}], ",",
4 z3 m2 k) z. g     RowBox[{"CM", "[",
6 |% p/ G' u6 r; p6 s* u      RowBox[{"30", ",", "8"}], "]"}], ",",
6 A0 J: d3 C5 [+ c: A' C     RowBox[{"CM", "[",
8 H3 }, Z9 R0 c+ p: I# t      RowBox[{"30", ",", "9"}], "]"}]}], "}"}], ",", 1 Q% J6 z. c1 _8 J) g
   RowBox[{"{", 2 ~9 |$ G% e! [5 o5 y, s
    RowBox[{
5 g- ]& v( A6 `, `. o  u     RowBox[{"CM", "[", + z( w5 }) k$ z
      RowBox[{"31", ",", "1"}], "]"}], ",",
0 V& z! D. L! }( n! N7 o( O+ j3 m     RowBox[{"CM", "[",
5 ^& e9 i* K' z4 P, g4 C5 k      RowBox[{"31", ",", "2"}], "]"}], ",",
) }1 R: Z! X' m* d8 U7 ?     RowBox[{"CM", "[", , F  c& B5 n0 E
      RowBox[{"31", ",", "3"}], "]"}], ",", # ^7 @4 E/ i- a4 U, _
     RowBox[{"CM", "[", ) Z+ h8 ?0 [4 L! ~! j
      RowBox[{"31", ",", "4"}], "]"}], ",", - j) K, U: _8 j
     RowBox[{"CM", "[", 9 `5 z9 b: `- r# o7 l
      RowBox[{"31", ",", "5"}], "]"}], ",",
4 }3 x% G# R8 C4 C; m     RowBox[{"CM", "[",
: f5 X& t9 i8 D7 S' `0 Y7 O      RowBox[{"31", ",", "6"}], "]"}], ",",
3 @( N; G( q$ I' D' |  \     RowBox[{"CM", "[", " @" K8 \4 y, U% z# s
      RowBox[{"31", ",", "7"}], "]"}], ",",
% b1 L+ ]6 ~' j6 X( Q: \5 |     RowBox[{"CM", "[", # Q+ `& @0 H  ]9 }! J4 c
      RowBox[{"31", ",", "8"}], "]"}], ",", 7 p. N! V  S0 z: y3 }' j* [
     RowBox[{"CM", "[", 5 u$ y  H! ?: U1 b$ E9 v- J# C9 {
      RowBox[{"31", ",", "9"}], "]"}]}], "}"}], ",",
! P9 f" V! J8 k" _/ R! w5 W   RowBox[{"{",
) _9 V- N) j, m# i( A# Q3 R    RowBox[{
0 w- S- j( M$ G. n, h$ ]" R, J     RowBox[{"CM", "[",
% j3 q0 j. I9 y, O. u      RowBox[{"32", ",", "1"}], "]"}], ",",
/ ^  q4 B9 g& k% f9 Y( o7 _5 G     RowBox[{"CM", "[",
/ B3 S* p( m+ Q$ w      RowBox[{"32", ",", "2"}], "]"}], ",",
* ?. h' C: k) w/ h1 P$ \, o) m     RowBox[{"CM", "[",
, I) m' P1 C( w6 H      RowBox[{"32", ",", "3"}], "]"}], ",", 1 N3 U9 W) H3 T7 o; V
     RowBox[{"CM", "[", - b" V6 p" r# D, C. o
      RowBox[{"32", ",", "4"}], "]"}], ",",
: q+ O# l0 z& N     RowBox[{"CM", "[", 0 y! X  l0 M' X  ?$ V- \
      RowBox[{"32", ",", "5"}], "]"}], ",",
- O2 r; r% W5 J$ Y     RowBox[{"CM", "[",
6 _2 e) u+ w, y. U      RowBox[{"32", ",", "6"}], "]"}], ",", 6 K! U6 h" g5 G) E0 M: |
     RowBox[{"CM", "[",
3 s- o$ L$ `) _) Z7 F# p5 K      RowBox[{"32", ",", "7"}], "]"}], ",",
9 m' n3 f: l  c     RowBox[{"CM", "[", % r' f3 ?% K+ U, S% y: u) i
      RowBox[{"32", ",", "8"}], "]"}], ",",
" N4 @9 C+ n# o) K1 H     RowBox[{"CM", "[",
& I2 k4 w( i2 I7 @      RowBox[{"32", ",", "9"}], "]"}]}], "}"}], ",",
  J8 W- ~8 Z& b7 C7 g; g7 E# I! ?1 F   RowBox[{"{",
5 `+ O; v- z, O- b& n    RowBox[{. B9 l$ [" s& \8 T. |# A; v  {: R
     RowBox[{"CM", "[",
2 B. B" `' m, z3 O      RowBox[{"33", ",", "1"}], "]"}], ",",
, w7 E' W9 y: L) l" o     RowBox[{"CM", "[",
* `  y# t/ N* z' t# V) a      RowBox[{"33", ",", "2"}], "]"}], ",",
7 b; K4 o9 D8 D* I- P     RowBox[{"CM", "[", # ^+ X7 F6 |' n9 g" w+ [. W, d6 v$ E
      RowBox[{"33", ",", "3"}], "]"}], ",",
. @1 D1 E* R2 y9 E6 v8 @     RowBox[{"CM", "[", 9 l- I- C8 M0 c5 L4 _
      RowBox[{"33", ",", "4"}], "]"}], ",", 2 p# y" E9 B9 S% m/ X* v
     RowBox[{"CM", "[", / m; i9 e) B4 n
      RowBox[{"33", ",", "5"}], "]"}], ",", $ `5 }2 Y! K0 o" E- g+ k3 b
     RowBox[{"CM", "[",
, J0 x& C4 N" w$ j3 H: A/ d      RowBox[{"33", ",", "6"}], "]"}], ",",
/ K* J5 Z* s' A0 `: T5 ^5 l     RowBox[{"CM", "[",
& Z; k( R6 {* N1 J. T' I      RowBox[{"33", ",", "7"}], "]"}], ",", ) \+ l- j- o. V9 b5 ]) ]0 r
     RowBox[{"CM", "[", , T" t* |# _0 Z5 n1 a
      RowBox[{"33", ",", "8"}], "]"}], ",",
& x6 R5 |3 v" v" F# ^& J     RowBox[{"CM", "[",
7 ^6 h/ f: f2 |. G! n      RowBox[{"33", ",", "9"}], "]"}]}], "}"}], ",",
" k0 M1 m* e3 o+ A0 M) _   RowBox[{"{", 1 `: D3 ^+ D) r5 H2 q: _: c
    RowBox[{
$ [3 n1 H' A* {, O     RowBox[{"CM", "[", % c8 g; h- g" ]9 s4 v
      RowBox[{"34", ",", "1"}], "]"}], ",",
8 v4 d# }% J6 ?1 F     RowBox[{"CM", "[", , o. `& {' B0 O9 ~# z8 M
      RowBox[{"34", ",", "2"}], "]"}], ",",
) Z3 ]) B4 h7 N# W     RowBox[{"CM", "[", 8 _5 b- E: a' }0 U# r$ t
      RowBox[{"34", ",", "3"}], "]"}], ",",
6 m! E, \% t+ N8 {1 ?5 @     RowBox[{"CM", "[",
: r2 n$ b3 v; J- r      RowBox[{"34", ",", "4"}], "]"}], ",", - G! |( z5 `7 E6 B0 t9 p
     RowBox[{"CM", "[", & E2 ^# S6 j, M' F
      RowBox[{"34", ",", "5"}], "]"}], ",",
6 k" W+ O( v- \) b0 H     RowBox[{"CM", "[",
. x; u! N8 L6 i. ?. R4 y# X      RowBox[{"34", ",", "6"}], "]"}], ",", * q. y6 X. a+ b. F9 z
     RowBox[{"CM", "[", 1 a9 c, l; I& {7 K
      RowBox[{"34", ",", "7"}], "]"}], ",", * s5 C0 z: }4 `+ L
     RowBox[{"CM", "[",
% ^/ o; E. e# `8 o3 f( }      RowBox[{"34", ",", "8"}], "]"}], ",",
) U) W: c: Y* @% y% p     RowBox[{"CM", "[",
7 d: c6 ?6 q7 o, H      RowBox[{"34", ",", "9"}], "]"}]}], "}"}], ",", + \0 {- D$ b) p& T2 i' P1 `& }" A3 k
   RowBox[{"{",
8 f) p# |3 W" @    RowBox[{$ F5 D6 o" y2 E  J
     RowBox[{"CM", "[", & l! j8 e0 O  G( G( g+ `
      RowBox[{"35", ",", "1"}], "]"}], ",", - Z- t# g7 V" B$ I
     RowBox[{"CM", "[",
! ^4 l& R! G5 T; y: F' B      RowBox[{"35", ",", "2"}], "]"}], ",", 0 J. ]: \) R6 X, D
     RowBox[{"CM", "[", . d( t5 u8 z) x5 Y  o+ v5 \
      RowBox[{"35", ",", "3"}], "]"}], ",", $ o1 l2 v% G( x! n- P
     RowBox[{"CM", "[",
6 V+ ]3 P5 p' t. ~% c6 A% |      RowBox[{"35", ",", "4"}], "]"}], ",",
6 H, L$ I# F9 f* Z( W, K     RowBox[{"CM", "[",
) O2 Q9 O/ l2 [. C: S      RowBox[{"35", ",", "5"}], "]"}], ",", / E" l" C+ S6 G. \# W
     RowBox[{"CM", "[",
8 d. M5 a, T5 [      RowBox[{"35", ",", "6"}], "]"}], ",",
$ P- U8 \# F9 U     RowBox[{"CM", "[",
' K8 V7 ~% q  X+ T" @2 ]9 ?6 f. R      RowBox[{"35", ",", "7"}], "]"}], ",", / d8 H. e0 E6 X/ v& i; U9 @% R) B
     RowBox[{"CM", "[",
6 C5 P8 z7 d. t3 F& J/ i2 Z      RowBox[{"35", ",", "8"}], "]"}], ",",
  ^3 r& h% o+ ?- ]/ m5 ]' I     RowBox[{"CM", "[",
" n$ |9 J2 ~8 n' U7 Y9 f! O      RowBox[{"35", ",", "9"}], "]"}]}], "}"}], ",", # I2 b7 e# e6 C" ^) a8 |
   RowBox[{"{",
7 y% R  }& G1 T' w- V% l# d" R5 o    RowBox[{
( \( x# N3 Z/ l- `; c, N     RowBox[{"CM", "[",
5 `; I% c+ V; F+ a7 }      RowBox[{"36", ",", "1"}], "]"}], ",",
* ]! E7 e( [2 E. M; d) Q" X8 E2 z     RowBox[{"CM", "[",
% w& B4 S, h* k9 C  Y      RowBox[{"36", ",", "2"}], "]"}], ",",
9 K" N# g9 r" ~2 _     RowBox[{"CM", "[", ' ?; @# c4 {, q* T1 c7 X- a8 Y
      RowBox[{"36", ",", "3"}], "]"}], ",", # o. k6 s! t5 |  Z, {! g
     RowBox[{"CM", "[", / w. w& s3 R4 R8 w- v1 y2 q
      RowBox[{"36", ",", "4"}], "]"}], ",", 0 N5 l6 g, a) P& v$ N
     RowBox[{"CM", "[",   ?4 P( A$ k' h# Y
      RowBox[{"36", ",", "5"}], "]"}], ",",
: c! E0 _* P4 w' G; X     RowBox[{"CM", "[",
1 f* O& D0 S; m. B      RowBox[{"36", ",", "6"}], "]"}], ",",
0 _: g2 n3 G% Q4 j4 [( `' {2 q     RowBox[{"CM", "[",
/ i9 q: ^: v  K* h, `      RowBox[{"36", ",", "7"}], "]"}], ",",
% R& o$ Z- h/ F6 m: |     RowBox[{"CM", "[", ( N3 c3 K6 A2 `  {& }* o
      RowBox[{"36", ",", "8"}], "]"}], ",", * x/ q4 d; ]+ T2 h, |
     RowBox[{"CM", "[", / J8 L! h2 F0 J4 z
      RowBox[{"36", ",", "9"}], "]"}]}], "}"}], ",", - ^4 p# j5 r* s: D0 k" X* ^
   RowBox[{"{",
9 y$ B% A. T, K2 r9 D! @) B3 p    RowBox[{
+ U7 |9 T. W4 L0 j: x     RowBox[{"CM", "[", & Y* d% J/ L% F# k
      RowBox[{"37", ",", "1"}], "]"}], ",",
% i& w3 U9 F8 m3 Z     RowBox[{"CM", "[",
* x5 F4 O$ t3 I$ t. U. M4 n1 }      RowBox[{"37", ",", "2"}], "]"}], ",", ' V5 J/ u* s# q0 |
     RowBox[{"CM", "[",
: B3 E. G4 [  P" j' I% F6 Z+ J      RowBox[{"37", ",", "3"}], "]"}], ",", ; L1 O. i! D+ {7 ~. V7 t0 ~
     RowBox[{"CM", "[",
7 C7 O% f* x3 b- [. l      RowBox[{"37", ",", "4"}], "]"}], ",",   q4 h) }2 {1 D8 G
     RowBox[{"CM", "[",
. c+ P8 D6 P: x: [$ M$ l) _      RowBox[{"37", ",", "5"}], "]"}], ",",
7 F- w8 b. d* M1 u     RowBox[{"CM", "[",
- d- E: M* [) e# |% f8 L: Y; N4 t      RowBox[{"37", ",", "6"}], "]"}], ",",
: O! x, x) ?- y4 D! {' j     RowBox[{"CM", "[",
7 |( v1 @% j4 x      RowBox[{"37", ",", "7"}], "]"}], ",",
% l/ v7 o/ q. v" N     RowBox[{"CM", "[",
, @; P; W! d  A$ E$ V+ I1 y: b      RowBox[{"37", ",", "8"}], "]"}], ",", 0 W2 a  h, [" {% a
     RowBox[{"CM", "[", # z2 H5 r4 r6 l4 a! I
      RowBox[{"37", ",", "9"}], "]"}]}], "}"}], ",",
. g8 @# h4 q9 k   RowBox[{"{",
+ V/ E  @2 o, h    RowBox[{
# K) _; }1 a' O% q" x5 J     RowBox[{"CM", "[",
' }% V" P$ e7 _, M/ ]      RowBox[{"38", ",", "1"}], "]"}], ",", . G5 x4 Q7 \' _& i
     RowBox[{"CM", "[",
1 N: T( Q5 A) J      RowBox[{"38", ",", "2"}], "]"}], ",",
3 S+ I: R$ W/ }7 ]: y% b     RowBox[{"CM", "[",
- n& y1 g" c- ~      RowBox[{"38", ",", "3"}], "]"}], ",",
! n# z7 Z' b1 \8 \5 I4 i     RowBox[{"CM", "[", ; G1 W0 j4 |) T/ \6 L) |5 p
      RowBox[{"38", ",", "4"}], "]"}], ",",
$ w6 _8 M& M) _% r     RowBox[{"CM", "[",
0 ?: w) ]9 e: @% }  n0 y6 P      RowBox[{"38", ",", "5"}], "]"}], ",", % E( h) Z. M. N6 g0 O
     RowBox[{"CM", "[",
) I, g1 i0 `. V# d* c7 t( s/ @      RowBox[{"38", ",", "6"}], "]"}], ",",
3 v( ?) @& C. n" K% |8 h- B* d     RowBox[{"CM", "[",
( D. T! `# f( k1 {      RowBox[{"38", ",", "7"}], "]"}], ",", 6 [; O: e0 x$ ?1 |; V
     RowBox[{"CM", "[", 1 B  i; K- ~+ W! D. D. d
      RowBox[{"38", ",", "8"}], "]"}], ",",
9 x6 g' t: B6 U- E  Q* i     RowBox[{"CM", "[",
9 s# f6 a. l! l" W( g      RowBox[{"38", ",", "9"}], "]"}]}], "}"}], ",", ! B7 \% F5 I/ Q0 H
   RowBox[{"{",
0 f, u. ~" \! C4 P    RowBox[{
7 F0 S2 P9 v3 {8 N+ \! P# \+ C8 g$ r     RowBox[{"CM", "[", 7 ?, h+ K  n3 n$ S' W
      RowBox[{"39", ",", "1"}], "]"}], ",",
" W6 W0 W: ~, i: H; V( U+ Z0 A     RowBox[{"CM", "[", 6 [0 ^2 P, j7 B; b, |
      RowBox[{"39", ",", "2"}], "]"}], ",",
- u/ G) ]+ m2 v8 c6 @     RowBox[{"CM", "[", 2 p1 S/ A- E& K' _$ J, D
      RowBox[{"39", ",", "3"}], "]"}], ",", ; n9 m3 k' D3 B% @- F
     RowBox[{"CM", "[", 3 u$ {3 N/ i# y1 i, ?/ d- N
      RowBox[{"39", ",", "4"}], "]"}], ",",
  A9 E. n2 `, n) `0 L; L     RowBox[{"CM", "[",   f) e8 M3 P5 U: c& R8 S
      RowBox[{"39", ",", "5"}], "]"}], ",",
: V1 v+ v7 K. l7 k" d" }     RowBox[{"CM", "[",
& _: g/ }: {4 i9 p  D3 p4 j      RowBox[{"39", ",", "6"}], "]"}], ",",
9 C+ N3 a! W6 [/ R6 E     RowBox[{"CM", "[",
( P& H% E6 i/ G8 M) @4 e6 H  @      RowBox[{"39", ",", "7"}], "]"}], ",", / w9 W6 B" \4 n" G, |
     RowBox[{"CM", "[",
% B/ x; r- B7 \& W5 w' y2 y5 _; w  i: e      RowBox[{"39", ",", "8"}], "]"}], ",",
; p& j: c" |( f  p7 E8 v     RowBox[{"CM", "[",
+ e8 |7 K& D& Z0 ^& [/ q      RowBox[{"39", ",", "9"}], "]"}]}], "}"}], ",", ) S* y0 X2 q! l0 o9 f  v1 I& t
   RowBox[{"{",
0 p$ Z  B+ Q7 J) J    RowBox[{6 q8 u& u2 _- N( O
     RowBox[{"CM", "[",
' J6 b7 z2 P/ H" ?: u" }4 p      RowBox[{"40", ",", "1"}], "]"}], ",",
" y& G& Q5 C- M, f3 k" t# Q) i     RowBox[{"CM", "[",
6 x* c- ]1 q! Y' h+ k' v! V      RowBox[{"40", ",", "2"}], "]"}], ",",
% i! r- }! {5 b     RowBox[{"CM", "[",
& g( q+ V* s( d- [4 C      RowBox[{"40", ",", "3"}], "]"}], ",",
" g# w# T7 K/ J  |     RowBox[{"CM", "[", 7 f8 o9 P6 C! T% j3 K1 b
      RowBox[{"40", ",", "4"}], "]"}], ",", 1 g2 k9 U1 U* [
     RowBox[{"CM", "[",
( L5 v+ U. o6 }4 P, L      RowBox[{"40", ",", "5"}], "]"}], ",",
7 u- i1 Y, _6 z6 u/ v     RowBox[{"CM", "[",
, K+ @& T4 I, P      RowBox[{"40", ",", "6"}], "]"}], ",", 5 M- P5 E8 f$ @; \! v6 Y4 {# b. h
     RowBox[{"CM", "[",
* W# ^$ t7 e* }2 j) T$ D      RowBox[{"40", ",", "7"}], "]"}], ",",
" E& m+ D0 b/ {2 v$ ^. e$ a9 l4 p7 P) E     RowBox[{"CM", "[", $ D, p% C% g& r- m- l
      RowBox[{"40", ",", "8"}], "]"}], ",", ; M; }& o( G2 D7 b3 Y
     RowBox[{"CM", "[", ( K5 E" ]. }' ~. d/ v2 N+ j
      RowBox[{"40", ",", "9"}], "]"}]}], "}"}], ",",   S. X1 H& {2 Z& M
   RowBox[{"{",
, D$ ]( p4 `* [) C- Y# }# P* U    RowBox[{
; x0 o) s& A; N5 ^     RowBox[{"CM", "[", ! N" V1 q8 ]$ ^1 i
      RowBox[{"41", ",", "1"}], "]"}], ",",
+ A& }+ l1 g$ q     RowBox[{"CM", "[", , z6 U6 D1 [5 z5 i7 ~2 Z, [
      RowBox[{"41", ",", "2"}], "]"}], ",", 3 i# ?. k6 _/ Q+ D! n9 g$ T1 p
     RowBox[{"CM", "[", 1 @7 v- r8 Y* c
      RowBox[{"41", ",", "3"}], "]"}], ",",
+ c3 j! H6 j# i: C     RowBox[{"CM", "[",
: _2 ]$ K6 `7 j+ o8 _# [      RowBox[{"41", ",", "4"}], "]"}], ",",
. {: c( F# s4 G; J) q     RowBox[{"CM", "[",
: Y7 |' x. r& g9 u1 q/ v      RowBox[{"41", ",", "5"}], "]"}], ",", 7 q' d$ O( p0 N9 C; E6 o9 b9 }& L. l
     RowBox[{"CM", "[", 2 S1 j0 R# W+ _% }" @6 W% F, T6 O
      RowBox[{"41", ",", "6"}], "]"}], ",", * O. R4 }$ D, f4 Y. ^# h( W& c
     RowBox[{"CM", "[", 7 }8 Y9 Q! o9 s. u3 H( s
      RowBox[{"41", ",", "7"}], "]"}], ",", 4 G: c% O& ~3 M
     RowBox[{"CM", "[",
, G; M2 K$ h2 b2 p& X      RowBox[{"41", ",", "8"}], "]"}], ",",
$ b6 K: D! L  }1 v/ q     RowBox[{"CM", "[",
+ m# d& P9 Q1 @6 A      RowBox[{"41", ",", "9"}], "]"}]}], "}"}], ",",
! `' S7 J# H, E1 c% D5 g2 I3 t' P   RowBox[{"{",
+ P' q: t8 S1 R0 D9 R    RowBox[{! B, ~% Q6 ~( C
     RowBox[{"CM", "[", % _# J0 E# ~5 ?8 }
      RowBox[{"42", ",", "1"}], "]"}], ",",
' R# B7 F/ H3 [0 Q) \     RowBox[{"CM", "[",
3 s$ c' ]: |$ V2 I9 I+ g. C      RowBox[{"42", ",", "2"}], "]"}], ",",
' I& W' _, W, D6 H$ ?2 c5 G' a$ }     RowBox[{"CM", "[",
6 x! l" K8 f$ d) g      RowBox[{"42", ",", "3"}], "]"}], ",", 1 G; t6 ^/ N) {( T
     RowBox[{"CM", "[", 7 g1 j' v3 J# ]5 W( s' z
      RowBox[{"42", ",", "4"}], "]"}], ",",
% f7 l% M+ @) I) P     RowBox[{"CM", "[",
5 `2 Q- T8 `' S- i- y5 i; _      RowBox[{"42", ",", "5"}], "]"}], ",", 9 B5 `1 `: @/ F4 b
     RowBox[{"CM", "[",
, h5 p2 f  {& I4 g, ?      RowBox[{"42", ",", "6"}], "]"}], ",",
0 ?5 v  g5 u( _     RowBox[{"CM", "[",
' d. R& z' Q5 \& n. n0 ^      RowBox[{"42", ",", "7"}], "]"}], ",", ; `8 }% T* @+ _5 j  S( N
     RowBox[{"CM", "[",
, N# ^9 n5 x; [8 p      RowBox[{"42", ",", "8"}], "]"}], ",", " Z1 W2 d. p8 s8 n- D' j1 M
     RowBox[{"CM", "[", ; i& ~0 e+ o1 ^
      RowBox[{"42", ",", "9"}], "]"}]}], "}"}], ",",
3 A& E$ ]; }7 {! P/ V9 V! J   RowBox[{"{", , \4 b2 P: j5 G) H
    RowBox[{
7 H- ]6 `3 n9 \     RowBox[{"CM", "[",
2 t5 R# G+ ?/ G( F+ A: a6 N4 N      RowBox[{"43", ",", "1"}], "]"}], ",",
/ c: d% F1 m2 `; O9 q+ b6 b     RowBox[{"CM", "[", 2 L* t7 W+ H$ @. H2 B8 g6 p
      RowBox[{"43", ",", "2"}], "]"}], ",",
' G% I2 X& r5 @( k     RowBox[{"CM", "[", ; G$ N* Y- m0 c0 o
      RowBox[{"43", ",", "3"}], "]"}], ",", / r' l5 v: q  a# w; z
     RowBox[{"CM", "[", / D$ R& r5 Y: V
      RowBox[{"43", ",", "4"}], "]"}], ",",
- U8 r6 r; V* v* u1 H" }* C     RowBox[{"CM", "[",
' W0 S1 I7 P1 L9 h4 [3 ?      RowBox[{"43", ",", "5"}], "]"}], ",",
$ d1 }/ F$ k/ R& j5 J& w     RowBox[{"CM", "[",
. W1 m( s$ r- m. r8 [5 S7 Y      RowBox[{"43", ",", "6"}], "]"}], ",",
' M* p6 g2 @0 E! M     RowBox[{"CM", "[",
1 |4 L, y( {" f- \      RowBox[{"43", ",", "7"}], "]"}], ",",
, O7 ?0 j. V- F. f     RowBox[{"CM", "[", . j3 K2 C8 O! V6 c& i
      RowBox[{"43", ",", "8"}], "]"}], ",",
4 L3 t5 d4 A9 O# ?     RowBox[{"CM", "[",
' z+ M: H3 K0 u* I7 Q+ R      RowBox[{"43", ",", "9"}], "]"}]}], "}"}], ",", / d& x- w' n9 c6 ?
   RowBox[{"{", & W9 Q) m% G0 D* m
    RowBox[{6 {7 A6 L* m! O2 e4 Q
     RowBox[{"CM", "[",
6 I: V2 I5 L3 \, D      RowBox[{"44", ",", "1"}], "]"}], ",",
, |. U" ]* {8 d# v( S; x6 s0 c3 a     RowBox[{"CM", "[", ; m' u+ Q3 A' Z7 k5 i
      RowBox[{"44", ",", "2"}], "]"}], ",", % o! V. W* y/ I2 k( t/ ~
     RowBox[{"CM", "[", 4 Z- s1 G# `* }
      RowBox[{"44", ",", "3"}], "]"}], ",", 3 `# L# `( |! W: H# Z. k. S
     RowBox[{"CM", "[", $ L& V# u+ _; E  C) t
      RowBox[{"44", ",", "4"}], "]"}], ",", ; @# q4 m0 M+ W# p7 p: X
     RowBox[{"CM", "[", & V( U5 z: l5 b" c
      RowBox[{"44", ",", "5"}], "]"}], ",", 2 i% D( g; Y6 S/ R  j# r
     RowBox[{"CM", "[", + q" s3 e6 W. Z; |+ Q' {/ }
      RowBox[{"44", ",", "6"}], "]"}], ",",
4 O, A. [/ e7 u" U# l  E( Z     RowBox[{"CM", "[", : J3 s/ x7 q* F. Z4 ?+ _
      RowBox[{"44", ",", "7"}], "]"}], ",", 4 y$ w4 F1 h$ F; ?/ o
     RowBox[{"CM", "[", 0 h: G# R: N, T8 H/ S8 C
      RowBox[{"44", ",", "8"}], "]"}], ",",
3 _. c3 y& U/ j6 {5 ]% d3 v/ _1 d     RowBox[{"CM", "[", ) a$ Z2 P# P% A5 {$ D6 n7 L" ]; _
      RowBox[{"44", ",", "9"}], "]"}]}], "}"}], ",",
" k& K3 a4 g& z/ Q( E" L- Q   RowBox[{"{",
- }+ ]; h& N& g  S    RowBox[{
/ h5 N/ d8 q. h2 b     RowBox[{"CM", "[", # s) |: {/ l* {: h! G% r/ Q% j
      RowBox[{"45", ",", "1"}], "]"}], ",", : c4 J# b, `5 O+ _! [3 O% v3 \( w
     RowBox[{"CM", "[",
( y) g" `' F% [+ b) ?      RowBox[{"45", ",", "2"}], "]"}], ",", 1 P$ O, T% R) \$ }
     RowBox[{"CM", "[", / j% D) o/ G- N, ~+ C8 _
      RowBox[{"45", ",", "3"}], "]"}], ",", $ C+ N& s0 N2 k) ]0 n
     RowBox[{"CM", "[", - i, g! u3 F& [3 I: a
      RowBox[{"45", ",", "4"}], "]"}], ",", ! ]: X2 m& Y$ ^& i/ k, h. k' o
     RowBox[{"CM", "[",
( ]: N5 ?/ ]# Q. Q      RowBox[{"45", ",", "5"}], "]"}], ",", ; Q4 X7 v2 O- G  ~+ g4 a' p- V4 w& @
     RowBox[{"CM", "[",
' g) ]+ n7 D8 [) P+ Q: v* K- j" y      RowBox[{"45", ",", "6"}], "]"}], ",",
! |, M" \9 o/ U5 D* p  M     RowBox[{"CM", "[", 8 p1 x- c! o, J+ x
      RowBox[{"45", ",", "7"}], "]"}], ",", ' j6 u2 E0 P5 X& H5 C1 A
     RowBox[{"CM", "[", % R+ a# R) E. u2 D
      RowBox[{"45", ",", "8"}], "]"}], ",",
5 a+ B! n8 a7 a, Q& W# }' T# o7 n     RowBox[{"CM", "[",
  f+ p8 p" }2 Y. r* L      RowBox[{"45", ",", "9"}], "]"}]}], "}"}], ",", 5 ~! r( r6 f* B- u  O6 O2 h1 Q
   RowBox[{"{",
$ B: x6 Z7 @3 ^. C7 c    RowBox[{
3 m6 [( \) E7 _6 L6 {7 j1 `     RowBox[{"CM", "[", 0 o" \9 c" j# Z4 ^* ]' c5 u' g
      RowBox[{"46", ",", "1"}], "]"}], ",",
# f4 U- J( m5 n* c) i0 k: ?, z     RowBox[{"CM", "[",
  ?% R9 N6 R2 f5 Z  S* d, x      RowBox[{"46", ",", "2"}], "]"}], ",",
: W% m: O8 ~8 d) {0 [     RowBox[{"CM", "[",
( |& p' F5 _# Z      RowBox[{"46", ",", "3"}], "]"}], ",", / [1 |% m. C% O% R0 s4 H
     RowBox[{"CM", "[", 6 ^! J6 u1 J1 U1 u- E
      RowBox[{"46", ",", "4"}], "]"}], ",", 4 }3 c; k3 I, n, g) B
     RowBox[{"CM", "[", # F. Y) `- A' a7 a3 g" z% c. t3 e
      RowBox[{"46", ",", "5"}], "]"}], ",", # g8 M& ]% l% q) u
     RowBox[{"CM", "[", 8 l1 [; O" o1 V; p4 }+ o" N
      RowBox[{"46", ",", "6"}], "]"}], ",",
' C% f  E8 j9 `     RowBox[{"CM", "[",
) R( X5 U. m! n# b) P9 F) J4 \      RowBox[{"46", ",", "7"}], "]"}], ",",
5 ?  {2 {0 Z8 |) U     RowBox[{"CM", "[",
6 _  `" ^' V" q$ ^      RowBox[{"46", ",", "8"}], "]"}], ",",
- m- K, X- o6 O. }, K     RowBox[{"CM", "[", * h6 H0 m+ e4 P& M; z
      RowBox[{"46", ",", "9"}], "]"}]}], "}"}], ",",
( Y$ }0 s( `! H- t. q- k2 w- b: s   RowBox[{"{",
$ R' [* L+ ^( V/ N8 w  e. x5 N4 U; W5 y: k    RowBox[{  U5 ~: V4 @/ C, N4 W
     RowBox[{"CM", "[", - _2 j# p1 ~% h" h
      RowBox[{"47", ",", "1"}], "]"}], ",",
& W$ \! }8 x" J  k" O% K  m     RowBox[{"CM", "[", , E. @, D6 W( x9 L8 v0 _
      RowBox[{"47", ",", "2"}], "]"}], ",", * P3 ~1 K8 l% |; `
     RowBox[{"CM", "[",
9 y9 q+ v8 g! ^" A. q      RowBox[{"47", ",", "3"}], "]"}], ",", * V% U) Q, z% n$ U. ^
     RowBox[{"CM", "[",   K: C. L9 Z4 c* C, U
      RowBox[{"47", ",", "4"}], "]"}], ",",
% g# r! v& h6 D- r0 r     RowBox[{"CM", "[", # \0 Q0 `7 U1 P/ j
      RowBox[{"47", ",", "5"}], "]"}], ",", ' k6 G7 C! s) j! k& }6 x& V/ n8 j
     RowBox[{"CM", "[", 3 r: z7 I$ R; ~% p" e# u
      RowBox[{"47", ",", "6"}], "]"}], ",",
9 {- Y2 E' \  t- b* U: u. G     RowBox[{"CM", "[", : @0 A" p0 o, F6 q  _
      RowBox[{"47", ",", "7"}], "]"}], ",", : B% w9 `6 b5 w) D# f% g* |, R
     RowBox[{"CM", "[", ) x% N$ b4 O- ?5 _" Q' x0 H2 ]
      RowBox[{"47", ",", "8"}], "]"}], ",", ) r7 r5 ^8 y, P0 K+ t: J4 [3 q) v
     RowBox[{"CM", "[",
% W  Q5 c6 g9 Z: ?/ o. r      RowBox[{"47", ",", "9"}], "]"}]}], "}"}], ",", 2 V4 z* T, n- I
   RowBox[{"{",
) F* v' }5 W+ \; |% ~    RowBox[{
% l, m" [  B! K# l0 U0 d2 x0 e     RowBox[{"CM", "[", . ?, w5 M6 P1 |" `  ]6 K0 S8 _
      RowBox[{"48", ",", "1"}], "]"}], ",", 1 L$ B# c; Z6 p) E
     RowBox[{"CM", "[",
* C3 E8 n! M. k9 o      RowBox[{"48", ",", "2"}], "]"}], ",",
5 k1 C6 ]) C# P     RowBox[{"CM", "[",
* ?# a  b, q( H: n; z$ H& Q      RowBox[{"48", ",", "3"}], "]"}], ",", 0 D$ y% u. V- @% s* _% y. t2 L2 v
     RowBox[{"CM", "[", 3 r& v- A, ^5 |) e, q
      RowBox[{"48", ",", "4"}], "]"}], ",", # L  [" M8 z0 N
     RowBox[{"CM", "[", * I+ e8 _# `+ C& h1 r
      RowBox[{"48", ",", "5"}], "]"}], ",", : q( [. B4 j; @6 Q2 H
     RowBox[{"CM", "[", 3 ?0 G) A5 ^! F; ]& x
      RowBox[{"48", ",", "6"}], "]"}], ",", 4 j- ]* J2 e7 Y" h: y5 M
     RowBox[{"CM", "[",
4 B$ Q6 y3 ~  H' W, g' G      RowBox[{"48", ",", "7"}], "]"}], ",", 1 O+ d3 @2 f; V, M9 G
     RowBox[{"CM", "[", % v% e% E- B: H/ }$ {1 f
      RowBox[{"48", ",", "8"}], "]"}], ",",
! ?  }8 j; k7 E- k5 W! F: n  k     RowBox[{"CM", "[",
$ t, m- a$ I% O; c, s2 S( I3 B      RowBox[{"48", ",", "9"}], "]"}]}], "}"}], ",", , q* W! n- u, O) `1 \
   RowBox[{"{",
/ x2 r' r1 q& [. L" s    RowBox[{' E( a4 u- x- D
     RowBox[{"CM", "[", 9 O' b* q8 t, h- ^
      RowBox[{"49", ",", "1"}], "]"}], ",",
' @$ Y& a4 x+ G9 {5 ^$ H( A     RowBox[{"CM", "[",
* E5 M0 Q# k+ |+ a( P% r3 W% w* a7 {6 O) K      RowBox[{"49", ",", "2"}], "]"}], ",", # P2 z2 C! f! N8 \) O) O
     RowBox[{"CM", "[",
. C7 E. V% X. w& u      RowBox[{"49", ",", "3"}], "]"}], ",", , R* G. I' R& i7 e( P& O
     RowBox[{"CM", "[", 3 B5 P, c, h' Y  @( o* e
      RowBox[{"49", ",", "4"}], "]"}], ",",
+ [+ H) x! G1 F7 j: M     RowBox[{"CM", "[",
+ [5 T+ W* F" G6 y( h      RowBox[{"49", ",", "5"}], "]"}], ",", 5 Y5 [. F* X2 w- m% Y
     RowBox[{"CM", "[",
' J% R- i& R1 T: P6 k3 Y      RowBox[{"49", ",", "6"}], "]"}], ",",
* H" ^! V/ K$ F6 x! P$ {& F     RowBox[{"CM", "[",
: @2 d/ W1 o  M- r: d      RowBox[{"49", ",", "7"}], "]"}], ",", * b1 w& b- i( v( I
     RowBox[{"CM", "[",
3 I" a! W. h+ W1 z* a; P) K. y  R! f      RowBox[{"49", ",", "8"}], "]"}], ",", + P/ X( E: }" N, i& y  R
     RowBox[{"CM", "[",
8 \/ a- L# ?; J+ }      RowBox[{"49", ",", "9"}], "]"}]}], "}"}], ",",
, z! o$ Y' K6 Q+ v" w8 P   RowBox[{"{", 3 \1 p: H5 D! ^
    RowBox[{
* @) }: s% s/ c; Z2 L" m6 u+ s     RowBox[{"CM", "[", " D% m  |: O# p! W4 k+ \8 G
      RowBox[{"50", ",", "1"}], "]"}], ",", 7 E5 }2 g3 g& k  Y
     RowBox[{"CM", "[",
, n# @: O  p6 b7 K' T, m. Z      RowBox[{"50", ",", "2"}], "]"}], ",", & X6 V4 d1 f4 T0 R3 ~
     RowBox[{"CM", "[", ' O6 T3 o' h1 {( _
      RowBox[{"50", ",", "3"}], "]"}], ",", ' L" f* z) G" J/ u& w2 _/ z* H
     RowBox[{"CM", "[",
" H, @5 v* A2 h3 Z+ ?0 Y$ m      RowBox[{"50", ",", "4"}], "]"}], ",", 3 r) S: X2 D, ^) |% c/ }
     RowBox[{"CM", "[",
, Q9 {; a6 G# ?      RowBox[{"50", ",", "5"}], "]"}], ",",
% F% k: `# C/ R" O. p- h+ I2 W     RowBox[{"CM", "[", / [( I( w" z4 f8 Z& I6 p; o
      RowBox[{"50", ",", "6"}], "]"}], ",", 9 o  I6 `: D: s0 P; D! x
     RowBox[{"CM", "[", # K! {8 M. y) ~0 g6 u- w: e
      RowBox[{"50", ",", "7"}], "]"}], ",", 1 S! Y( j4 Q( B. `7 v( f1 w
     RowBox[{"CM", "[",
. A) A) u, z" j9 M5 S1 i: ~8 v- `      RowBox[{"50", ",", "8"}], "]"}], ",", % C7 Z5 \5 E6 U, c6 p4 V9 B! v% ~( {
     RowBox[{"CM", "[", 6 n8 F: g6 |1 U# J/ y4 x% c/ U: g
      RowBox[{"50", ",", "9"}], "]"}]}], "}"}], ",", : a, _1 l# J# }# x
   RowBox[{"{",
% t$ W1 S! v  Y1 j* F5 y- T9 t    RowBox[{4 S: e, U- I: n! b0 g3 R; N* z
     RowBox[{"CM", "[",
* W! J7 n4 L2 @2 Q7 Z9 A, A      RowBox[{"51", ",", "1"}], "]"}], ",", * t. m" \2 _# w
     RowBox[{"CM", "[", ' Z6 ^3 {+ D* d, a0 E
      RowBox[{"51", ",", "2"}], "]"}], ",",
! o9 g5 p1 n* U4 q6 R! z* X     RowBox[{"CM", "[",
1 a+ J- a9 {1 V      RowBox[{"51", ",", "3"}], "]"}], ",", : L1 y% _. t  z# i/ M
     RowBox[{"CM", "[",
2 E+ I: A  G4 N; ]* [' w      RowBox[{"51", ",", "4"}], "]"}], ",",
3 |2 U; i/ _' y2 E     RowBox[{"CM", "[",
) q8 ]: Z$ J2 }9 Y6 s5 X7 w      RowBox[{"51", ",", "5"}], "]"}], ",",
4 i# a( o% O8 i8 M9 i     RowBox[{"CM", "[",
/ ~8 V# ^" q1 f! Z1 Z, A9 V      RowBox[{"51", ",", "6"}], "]"}], ",",
7 i+ b* i, b; l7 U8 X! |. w     RowBox[{"CM", "[",
3 [. }/ G" `9 q* _' e" Y" |$ q      RowBox[{"51", ",", "7"}], "]"}], ",", & Q/ u# U: h. P  _6 s' n
     RowBox[{"CM", "[",
& v3 x5 x1 |+ {6 g3 k/ x" @9 w      RowBox[{"51", ",", "8"}], "]"}], ",", # d4 e7 D+ {$ ]/ n+ L
     RowBox[{"CM", "[",
" g/ Y7 M) y2 S) h- Y: r      RowBox[{"51", ",", "9"}], "]"}]}], "}"}], ",", & O0 Z/ O# J: ~  G8 R9 {5 _# Y. X
   RowBox[{"{",
( p( N* i  q3 G9 j# I    RowBox[{
9 b3 ^# T( Y9 }* R) U3 L5 D1 n; E4 `' g     RowBox[{"CM", "[",
* n1 @3 v- n# B! g9 X+ F$ J      RowBox[{"52", ",", "1"}], "]"}], ",",
; x# A( L: O8 p/ c5 X     RowBox[{"CM", "[",
; t  a9 i$ J; ~7 W( n6 ~      RowBox[{"52", ",", "2"}], "]"}], ",", / ?% l7 b# ^6 S' V0 O) r: q) _
     RowBox[{"CM", "[",
* ?3 U- T5 l/ j) i' J! t4 T8 }# P      RowBox[{"52", ",", "3"}], "]"}], ",",
  |2 i8 Q6 l& j1 s5 I! a  v     RowBox[{"CM", "[",
# P  ]/ E  _2 Y9 e0 Q3 ]) ]      RowBox[{"52", ",", "4"}], "]"}], ",",
& K4 l* x- K8 t) q/ G9 S( Q     RowBox[{"CM", "[",
( q) @6 p4 S, ]* ]      RowBox[{"52", ",", "5"}], "]"}], ",", 3 J+ ?5 M9 l, o- c% ]
     RowBox[{"CM", "[", % z& {( q. ^6 E" e5 r7 p
      RowBox[{"52", ",", "6"}], "]"}], ",",
( ~* V4 W2 m) C; Q; `8 b( l: M     RowBox[{"CM", "[", 3 [  w' O% i9 _$ c2 b
      RowBox[{"52", ",", "7"}], "]"}], ",", 6 i" I8 R  Z: F. N
     RowBox[{"CM", "[",
; U; p9 E9 c! Y5 L( Y, u      RowBox[{"52", ",", "8"}], "]"}], ",", 9 I& k5 W* L' S
     RowBox[{"CM", "[", 0 n4 x1 }, ?" |/ d
      RowBox[{"52", ",", "9"}], "]"}]}], "}"}], ",",
3 E$ x/ p& i6 e3 F2 x/ r9 v2 i; Y   RowBox[{"{", & P& p8 T% |/ k2 Y" r2 W* I7 |
    RowBox[{
. y: |8 c5 K. ?     RowBox[{"CM", "[",
# k% G! p; e! J- {      RowBox[{"53", ",", "1"}], "]"}], ",",   U0 p% H3 `( h* D9 q4 `# V( _
     RowBox[{"CM", "[",
- Y9 O( g1 P* s% \8 R% N      RowBox[{"53", ",", "2"}], "]"}], ",", 7 {# X9 d; G  l9 I5 p2 \
     RowBox[{"CM", "[",
* k- t! k# c7 J3 q! O* x! s      RowBox[{"53", ",", "3"}], "]"}], ",",
( Z5 Q( l+ i% y5 e+ S, m% H& D     RowBox[{"CM", "[",   |0 _; t% f  p! b$ \. C4 {
      RowBox[{"53", ",", "4"}], "]"}], ",",
/ _" h  @+ o" s$ `* u3 `+ W     RowBox[{"CM", "[",
2 f* f. m$ L7 {' k3 N      RowBox[{"53", ",", "5"}], "]"}], ",", . b, x1 h* ^- h  M/ N# x& {4 }
     RowBox[{"CM", "[", ) g8 k2 R8 W$ m; J
      RowBox[{"53", ",", "6"}], "]"}], ",",
8 y* C, Z( N* w9 @; J     RowBox[{"CM", "[",
" w( W* p! G- H$ e2 W/ @9 R* f      RowBox[{"53", ",", "7"}], "]"}], ",",
2 a& C! w5 ^- z" m     RowBox[{"CM", "[", & c2 t8 F. T8 h' O6 t
      RowBox[{"53", ",", "8"}], "]"}], ",", ! m: L( L5 k" A, \% F/ |1 R
     RowBox[{"CM", "[",
5 R% i1 B  F1 N  n5 K% r7 r      RowBox[{"53", ",", "9"}], "]"}]}], "}"}], ",", ' W# d6 A9 D9 O- z
   RowBox[{"{",
' b; i* b( [8 \3 W    RowBox[{8 F9 x; n  _- p$ P) p' r0 A
     RowBox[{"CM", "[",
9 t* H8 e0 }5 N, a. n      RowBox[{"54", ",", "1"}], "]"}], ",",
* Q$ m' X. r1 W. W3 y  I     RowBox[{"CM", "[", 0 e- B7 P3 M' B8 C; W( P* ^
      RowBox[{"54", ",", "2"}], "]"}], ",", " b+ T$ v& j1 I& W  y1 w  p9 J9 M+ [$ d
     RowBox[{"CM", "[", 2 J5 R( u+ S. t' e1 ]9 g
      RowBox[{"54", ",", "3"}], "]"}], ",",
6 C3 ]# I4 h) b2 ?, n     RowBox[{"CM", "[", + I+ u8 m. d( ]' D) ]
      RowBox[{"54", ",", "4"}], "]"}], ",", 7 A/ n7 f3 {! r4 ]% x
     RowBox[{"CM", "[", 6 r& b( v# I0 h+ y
      RowBox[{"54", ",", "5"}], "]"}], ",", ' j& M- H/ }8 c" y1 y; [7 K
     RowBox[{"CM", "[",
* q6 [0 z6 ?0 U8 m3 N      RowBox[{"54", ",", "6"}], "]"}], ",",
" I4 Z$ f$ [2 X* G7 Y" R: r     RowBox[{"CM", "[",
' Y* d+ b5 z$ ~; ]* C7 M4 l+ K1 `1 r      RowBox[{"54", ",", "7"}], "]"}], ",", 6 ]% I& f. a; ~- J* M
     RowBox[{"CM", "[",
0 P* @9 a% s0 _# {& P      RowBox[{"54", ",", "8"}], "]"}], ",", ( C6 Q4 Q; h0 z: p: a
     RowBox[{"CM", "[",
" c$ a: U/ ~2 m      RowBox[{"54", ",", "9"}], "]"}]}], "}"}], ",", 9 A7 {7 O' \+ ~+ c% P& O1 s
   RowBox[{"{", 7 F: O7 C/ V6 b* i
    RowBox[{1 ^( S8 O1 ~. m% {
     RowBox[{"CM", "[", " J- p  L! L) [/ T0 e; {
      RowBox[{"55", ",", "1"}], "]"}], ",",
7 l' C% m* ~& ^     RowBox[{"CM", "[",
( n  \$ B% e( p9 Z      RowBox[{"55", ",", "2"}], "]"}], ",",
" t+ u4 {2 J% l" H; g( j     RowBox[{"CM", "[",
- _- @; @& S2 s% M      RowBox[{"55", ",", "3"}], "]"}], ",", 9 p% D9 P/ V/ J$ F5 l
     RowBox[{"CM", "[", ; O# h" E8 d% W5 ~9 h* I- c
      RowBox[{"55", ",", "4"}], "]"}], ",", % E2 {- `# w2 x6 }9 |
     RowBox[{"CM", "[", 8 @( K. p7 M7 t# L
      RowBox[{"55", ",", "5"}], "]"}], ",", # D( l+ m) P) w5 N8 {
     RowBox[{"CM", "[",
6 q2 A3 T4 @3 C  q      RowBox[{"55", ",", "6"}], "]"}], ",", ! e$ j/ G4 g* ~
     RowBox[{"CM", "[", + r$ i: Q9 n8 z  z$ M
      RowBox[{"55", ",", "7"}], "]"}], ",",
* L# i, `1 d5 ?2 B     RowBox[{"CM", "[",
) ?, @6 {! L% ^0 \      RowBox[{"55", ",", "8"}], "]"}], ",",
$ @* ~0 v& f; L6 s# |7 K1 K     RowBox[{"CM", "[", 5 r$ o- Z! a, _2 R5 o7 \6 q" O5 P
      RowBox[{"55", ",", "9"}], "]"}]}], "}"}], ",", ! X- b/ [2 E' C' k3 M; d
   RowBox[{"{", 7 n( f4 ^0 P4 w) m
    RowBox[{
  n" c  G- Q3 h& q     RowBox[{"CM", "[",
( B" y+ ^3 k: n  K. _      RowBox[{"56", ",", "1"}], "]"}], ",",
, O) I; j3 ^5 l1 k* v! N     RowBox[{"CM", "[", ' U+ K5 S9 C$ j: k- s
      RowBox[{"56", ",", "2"}], "]"}], ",",
/ H% g! C$ P) D, h- Z6 U     RowBox[{"CM", "[", 3 X4 A' F; L: Z  k
      RowBox[{"56", ",", "3"}], "]"}], ",", ( ~8 V: @8 h. q) O! Y
     RowBox[{"CM", "[", 9 z; H' F* E, @5 G" ?
      RowBox[{"56", ",", "4"}], "]"}], ",",   P4 f2 Q+ [. H' g/ Y7 W7 g6 |
     RowBox[{"CM", "[",
* V" R0 }9 p6 R7 ~      RowBox[{"56", ",", "5"}], "]"}], ",", / x7 ~* [7 L# e7 x8 t! x! |
     RowBox[{"CM", "[",
1 F6 g, C* ?8 O, K5 H0 m* V+ X% M      RowBox[{"56", ",", "6"}], "]"}], ",",
: M& s2 p7 @4 |; n8 ~; L  I     RowBox[{"CM", "[", $ z& L2 ^( G- X- n" Y& ~1 _1 F
      RowBox[{"56", ",", "7"}], "]"}], ",",
+ I1 |: E" V& c8 W& h7 t# c     RowBox[{"CM", "[", 1 k+ e9 u8 b& l5 S
      RowBox[{"56", ",", "8"}], "]"}], ",",
8 Y" r5 {  J& G5 K  G3 R     RowBox[{"CM", "[",
0 Z$ l$ _6 N' n9 A      RowBox[{"56", ",", "9"}], "]"}]}], "}"}], ",", ) q0 G  B! I% L0 B$ O' k, g0 Q9 B
   RowBox[{"{", , ^2 Y2 O/ F" N* O  Q1 [) n3 N
    RowBox[{
) ~# g. B( |9 r% ?0 f* I     RowBox[{"CM", "[",
. o% D% Z5 s9 B# I      RowBox[{"57", ",", "1"}], "]"}], ",", % j1 ?8 L3 w2 d4 o1 a3 r9 c  P
     RowBox[{"CM", "[",
$ r6 G1 ~& x( S9 z% f      RowBox[{"57", ",", "2"}], "]"}], ",",
; v9 D  F- ~' S# u$ w7 g0 c     RowBox[{"CM", "[", . h$ o$ C  d" Z1 D; v
      RowBox[{"57", ",", "3"}], "]"}], ",", 5 {& l4 ^$ C+ I" E
     RowBox[{"CM", "[", - X9 B7 v/ k! m8 [
      RowBox[{"57", ",", "4"}], "]"}], ",",
7 Z0 k7 @3 Z9 D8 K: c- ]3 T! a     RowBox[{"CM", "[", 5 D1 }( P9 H: T$ f; b' D, Z# f
      RowBox[{"57", ",", "5"}], "]"}], ",", 9 P1 `5 ~8 A0 }6 Y1 ], S% l1 k# E0 _
     RowBox[{"CM", "[", ! n3 K' Q9 C$ b% @2 D: n( \
      RowBox[{"57", ",", "6"}], "]"}], ",", . [' z3 y( M( b. }4 D& i& {& {
     RowBox[{"CM", "[", : i* e9 a/ m" S4 f/ `
      RowBox[{"57", ",", "7"}], "]"}], ",",
  C2 s3 _- d% \3 w6 V# w& P  J# H     RowBox[{"CM", "[",
% K' j7 Q  b/ F      RowBox[{"57", ",", "8"}], "]"}], ",",
* {, R  J/ c" l3 @; f9 Z- o% M2 x     RowBox[{"CM", "[",
  n. g* Y7 T" s0 u5 F      RowBox[{"57", ",", "9"}], "]"}]}], "}"}], ",", % p' R( W5 A  M5 T& T+ V
   RowBox[{"{", & |: h+ c- D, z% f! W' O
    RowBox[{
9 _( h( Q" V: v5 o     RowBox[{"CM", "[",
5 U# Y- D1 P; T+ U+ j, J      RowBox[{"58", ",", "1"}], "]"}], ",", & A, {% e  H9 Q3 s
     RowBox[{"CM", "[", + p9 U. a# o2 O- D# ?9 o& }
      RowBox[{"58", ",", "2"}], "]"}], ",",
; I. ?: f$ W7 Q* k+ z  s     RowBox[{"CM", "[",
% Z7 a" ]3 [+ j      RowBox[{"58", ",", "3"}], "]"}], ",",
) m% j, M  y: h% @+ s     RowBox[{"CM", "[", ( P% I' B# X% r; x1 K- w
      RowBox[{"58", ",", "4"}], "]"}], ",", 5 T* Y. ^2 Y/ s1 m: e, e
     RowBox[{"CM", "[", 2 F1 |  [, A3 G4 j
      RowBox[{"58", ",", "5"}], "]"}], ",",
  B. k  M! O: k) X& D$ h: o9 X     RowBox[{"CM", "[",
8 L4 B5 A( f  F; L+ D% T' s      RowBox[{"58", ",", "6"}], "]"}], ",",
* P9 X* [. d, A  I     RowBox[{"CM", "[",
* h- T/ y1 q- N4 |2 m      RowBox[{"58", ",", "7"}], "]"}], ",",
0 P4 A$ H4 a7 L! j+ E/ }     RowBox[{"CM", "[", # w3 U  i. a5 N! E
      RowBox[{"58", ",", "8"}], "]"}], ",",
! p2 t$ }4 F0 o- T. _7 p+ _     RowBox[{"CM", "[",
# c: k0 ]8 h2 J+ I/ A  \9 O" P; a8 [      RowBox[{"58", ",", "9"}], "]"}]}], "}"}], ",",
+ {4 q0 Q3 Y  J: ?   RowBox[{"{",
. t7 c7 l3 r$ q4 K5 D    RowBox[{- I7 s" ?2 H, n
     RowBox[{"CM", "[",
6 H+ \6 V5 U2 D% n      RowBox[{"59", ",", "1"}], "]"}], ",",
& V: j1 d* {7 G! M) p9 Z     RowBox[{"CM", "[",
) A8 j; B% O* d* S      RowBox[{"59", ",", "2"}], "]"}], ",", 8 g2 R" r7 B) K. i- q
     RowBox[{"CM", "[",
* I# o- V; p1 Y      RowBox[{"59", ",", "3"}], "]"}], ",", . X7 z3 K/ d' V# \. _+ K
     RowBox[{"CM", "[",
& J5 ~5 Z9 P, \% k      RowBox[{"59", ",", "4"}], "]"}], ",", 2 ?/ ^0 W* d/ L/ }' m& {
     RowBox[{"CM", "[",
( f7 D, ^" A# m      RowBox[{"59", ",", "5"}], "]"}], ",", : g* _  X9 w7 V& D1 r
     RowBox[{"CM", "[", ) p0 v; A. I! [) D  X. |
      RowBox[{"59", ",", "6"}], "]"}], ",",
5 C$ |$ [  ]  i3 q, r# }. x     RowBox[{"CM", "[", ( _% V8 Z) I& Z* z/ i% ]7 I4 X  V
      RowBox[{"59", ",", "7"}], "]"}], ",", 5 R# t; H" R5 T! G( w
     RowBox[{"CM", "[",
: j4 M3 K6 t# B- Y0 d) \) j      RowBox[{"59", ",", "8"}], "]"}], ",",
5 E  x# n, {. g+ H; ~     RowBox[{"CM", "[",
. t8 M7 e2 A4 w5 R# j8 t      RowBox[{"59", ",", "9"}], "]"}]}], "}"}], ",", * X( s% s8 `) J% H6 e
   RowBox[{"{",
! M: p6 G- r* q7 Q" a+ a    RowBox[{
: `, \1 _0 U# w7 O     RowBox[{"CM", "[", ' Y# J0 r. a' X. c( Z( D
      RowBox[{"60", ",", "1"}], "]"}], ",",
: @6 \; A! {! c9 {7 ^     RowBox[{"CM", "[", : Q8 M$ ^; y6 h. J6 ?- l
      RowBox[{"60", ",", "2"}], "]"}], ",", ; l8 t1 T. F9 u4 K+ I  I( ^5 a
     RowBox[{"CM", "[",
! l/ f+ V; V" G. k      RowBox[{"60", ",", "3"}], "]"}], ",", 1 J, J0 q+ X5 B* l& a
     RowBox[{"CM", "[", 3 `9 e3 [, U4 C% R
      RowBox[{"60", ",", "4"}], "]"}], ",",
/ Q: `, Q- W6 ?4 w     RowBox[{"CM", "[", $ N- [) V, u9 e2 P! p% d
      RowBox[{"60", ",", "5"}], "]"}], ",",
- q; E+ ~9 r% U+ w5 q     RowBox[{"CM", "[",
; N/ e3 N# m. F+ Q      RowBox[{"60", ",", "6"}], "]"}], ",", : ]+ x0 f" ]  E9 c
     RowBox[{"CM", "[",
5 b. D4 n; c, r3 }& x( U; ~+ N. v      RowBox[{"60", ",", "7"}], "]"}], ",",
1 P# B& Z$ x  o% r' ]  j. X: L) M     RowBox[{"CM", "[",
" m8 O: @" J/ p% m& `      RowBox[{"60", ",", "8"}], "]"}], ",",
) r. j1 \+ z7 M, o( ~4 ]     RowBox[{"CM", "[",
$ j" T6 T7 ?& b      RowBox[{"60", ",", "9"}], "]"}]}], "}"}], ",", 4 K! j, W, x2 S, f
   RowBox[{"{",
$ Q( l0 ~& H$ }  _3 `" t7 x    RowBox[{3 [# l( z) W* {% m8 K
     RowBox[{"CM", "[",   w# }3 @2 q/ u. M
      RowBox[{"61", ",", "1"}], "]"}], ",",
9 C2 A3 _+ K$ ]. B% ?4 d( e5 p0 e2 y     RowBox[{"CM", "[",
* s  r( Y  g: X% Z5 l      RowBox[{"61", ",", "2"}], "]"}], ",",
$ f2 Z4 Z8 w& |6 U0 q+ \8 j     RowBox[{"CM", "[",
: C6 \! O7 D& w0 m7 ^; I* x      RowBox[{"61", ",", "3"}], "]"}], ",", : a6 w' P( H. I/ u6 B( K7 M
     RowBox[{"CM", "[",
$ `9 j; `9 [% w$ ?4 X9 {      RowBox[{"61", ",", "4"}], "]"}], ",",
& O- f1 Q" |$ x1 Z( L$ v3 j& B- W     RowBox[{"CM", "[", ; a7 ^9 @) F7 U
      RowBox[{"61", ",", "5"}], "]"}], ",",
7 |( D( w" \( E* `8 b( W, |     RowBox[{"CM", "[", 3 c9 G6 e# \' r* Z
      RowBox[{"61", ",", "6"}], "]"}], ",",
$ ]. B% B% s! ~, z# L     RowBox[{"CM", "[",
4 {9 O( C8 _4 `% q* Q" l) T3 X$ I  }! M      RowBox[{"61", ",", "7"}], "]"}], ",",
# b' N3 `5 F" \4 e7 N  p     RowBox[{"CM", "[",
" o  }. P- i7 I0 ?' o+ x      RowBox[{"61", ",", "8"}], "]"}], ",",
* s7 R( ^1 B2 k     RowBox[{"CM", "[",
3 ?) V8 W0 p# m/ d7 U+ O* K      RowBox[{"61", ",", "9"}], "]"}]}], "}"}], ",", 9 v3 ]8 f" F& G/ J# j9 C
   RowBox[{"{",
/ C9 P$ [3 I4 d9 |$ W7 |    RowBox[{
0 K3 P$ Y. G, O9 W; G( L     RowBox[{"CM", "[", & ], k7 t2 L/ o) K7 S6 w5 A
      RowBox[{"62", ",", "1"}], "]"}], ",",
3 n/ b: K) s2 `* ^9 H9 F& J$ R2 A6 x9 w     RowBox[{"CM", "[", 0 X. V2 k+ D! g- |8 H: ^1 O2 o
      RowBox[{"62", ",", "2"}], "]"}], ",", 7 @( ~- K! V- u7 |$ A/ _3 p6 Y
     RowBox[{"CM", "[",
7 C6 \: \: G5 `* E. Q$ k* b5 k      RowBox[{"62", ",", "3"}], "]"}], ",",
( c9 N. n7 d( z8 J  p' N     RowBox[{"CM", "[", ) \  h- ?, [9 b( a  `5 @, I
      RowBox[{"62", ",", "4"}], "]"}], ",", 6 V: H; p. c6 f4 P
     RowBox[{"CM", "[",
1 d5 d0 `3 P0 N& A  U& D; c; e      RowBox[{"62", ",", "5"}], "]"}], ",", 3 t# r0 p4 ?2 e
     RowBox[{"CM", "[", " i2 N1 ~  m; H9 o+ c
      RowBox[{"62", ",", "6"}], "]"}], ",",
2 \$ I) a' w8 }$ C& C" l     RowBox[{"CM", "[", $ x) E1 T+ Z) F" G
      RowBox[{"62", ",", "7"}], "]"}], ",", # ~8 B3 s7 ?4 l1 V* ?' M
     RowBox[{"CM", "[", 1 e+ B8 d7 c$ S- M, [3 A- C
      RowBox[{"62", ",", "8"}], "]"}], ",", 9 ~  _/ m  Y8 z, C( t& m. Q) v
     RowBox[{"CM", "[", 6 }+ \% h. Y" L2 T$ u
      RowBox[{"62", ",", "9"}], "]"}]}], "}"}], ",", 5 D+ `: G% c3 J6 v8 U
   RowBox[{"{",
; \, {3 \: }3 Z! V7 E6 i2 `    RowBox[{( d2 K3 |# Z/ L! G
     RowBox[{"CM", "[", 6 T" j% S, D  l4 m& L
      RowBox[{"63", ",", "1"}], "]"}], ",",
& h$ ?8 @" ~/ |; J; f     RowBox[{"CM", "[",
0 U( P% C3 `+ e+ ~- Y5 C      RowBox[{"63", ",", "2"}], "]"}], ",", ! ^; D/ \0 o5 y
     RowBox[{"CM", "[",
; P9 w% ]2 \! V, S: ^; }      RowBox[{"63", ",", "3"}], "]"}], ",",
! A) q7 N) g+ Q: s/ u# j* j     RowBox[{"CM", "[", * I0 E2 x" z: c+ _" X3 B+ t
      RowBox[{"63", ",", "4"}], "]"}], ",", 2 U; z, g; F% W1 O6 ~
     RowBox[{"CM", "[",
8 M% V' K/ f" r% r% e      RowBox[{"63", ",", "5"}], "]"}], ",",
) S( s- z+ h/ w3 I  h     RowBox[{"CM", "[", ; }) v) R$ ~* D0 `
      RowBox[{"63", ",", "6"}], "]"}], ",", 7 _- E& n7 ]  n5 ]+ L* K4 q
     RowBox[{"CM", "[",
5 d' i6 E& Z, M      RowBox[{"63", ",", "7"}], "]"}], ",",
6 W2 t; K) L4 B2 n' V1 H     RowBox[{"CM", "[", ; k# f( P6 ]/ S% s4 I: _! T
      RowBox[{"63", ",", "8"}], "]"}], ",", + B2 d# U& G. P8 h3 h
     RowBox[{"CM", "[", + w" k; y7 z* {: h4 i
      RowBox[{"63", ",", "9"}], "]"}]}], "}"}], ",",
. V: t4 O2 s% P1 c  C3 Z   RowBox[{"{",
) p9 o- m% ?$ X# |    RowBox[{
3 N  y+ O2 @8 b5 C2 m) z, Z     RowBox[{"CM", "[",
/ @+ r9 Y- \1 b6 y% P/ v      RowBox[{"64", ",", "1"}], "]"}], ",", / C. Y+ Y; s0 m* C$ O- p
     RowBox[{"CM", "[",
4 z2 K# |3 N. N& p# e      RowBox[{"64", ",", "2"}], "]"}], ",",
7 [9 I8 C- F. `/ x/ a     RowBox[{"CM", "[",
2 g. g& s3 ^* q( c      RowBox[{"64", ",", "3"}], "]"}], ",", " {6 s/ a0 \  i  B6 E) ]2 Z
     RowBox[{"CM", "[", # T5 T" S* c, k+ @
      RowBox[{"64", ",", "4"}], "]"}], ",", 9 T1 _; m' O" ^0 k- x6 _
     RowBox[{"CM", "[",
2 I& k5 I+ W4 c      RowBox[{"64", ",", "5"}], "]"}], ",", % H- e7 [. [* H' L" @8 `* Z
     RowBox[{"CM", "[", 5 ]& q+ k! l5 Z2 i9 E
      RowBox[{"64", ",", "6"}], "]"}], ",",
  D/ m) x, m- P6 A     RowBox[{"CM", "[", ; t' ~0 `  F$ H+ f9 e
      RowBox[{"64", ",", "7"}], "]"}], ",",
9 d! |+ C) J# m$ o0 G     RowBox[{"CM", "[", ) g+ H& W6 T* B
      RowBox[{"64", ",", "8"}], "]"}], ",",
( i7 J: u- q% w" ^' m0 h/ G     RowBox[{"CM", "[",
( B4 Q0 b4 b3 @$ ^( O1 ?4 B* l  i7 D      RowBox[{"64", ",", "9"}], "]"}]}], "}"}], ",",
; c: y1 S( u! e; V4 I2 ^0 ^' i   RowBox[{"{", 5 F' c2 H+ U) C" E3 G- ^) e  H
    RowBox[{! k5 w) `- Y/ y0 Q. J  p
     RowBox[{"CM", "[", . ?# G9 u. e3 G3 B, J
      RowBox[{"65", ",", "1"}], "]"}], ",", 5 P' b; u' i# j! X0 ?% D) M$ S% N3 F
     RowBox[{"CM", "[",
* F6 z& S9 G& V# B- j2 V" q: O      RowBox[{"65", ",", "2"}], "]"}], ",",
' H( K9 [: S- }8 B7 O: ~     RowBox[{"CM", "[", 1 R! F$ G& {7 s$ O$ v$ j
      RowBox[{"65", ",", "3"}], "]"}], ",",
  x# K9 z( G  d# |: Q     RowBox[{"CM", "[", % c7 K. q  }9 v1 \
      RowBox[{"65", ",", "4"}], "]"}], ",", ; I+ t7 j# E3 Z! Z' l; j3 A# {
     RowBox[{"CM", "[", * j  S' f9 a8 F& Y% t
      RowBox[{"65", ",", "5"}], "]"}], ",", 1 e; d9 T) i/ q& h& l( j
     RowBox[{"CM", "[", 7 ?1 H( V  N2 h1 Q, @. U+ p
      RowBox[{"65", ",", "6"}], "]"}], ",",
9 h8 _' |) @7 I2 F* t( Q9 o6 U     RowBox[{"CM", "[", * |; J! f+ @3 d5 J3 N- |2 u
      RowBox[{"65", ",", "7"}], "]"}], ",",
, s+ M0 D3 z( L, E, f" P, m     RowBox[{"CM", "[",
% Q8 @4 h9 S( h% q% E6 |. q5 R      RowBox[{"65", ",", "8"}], "]"}], ",",
2 s( m! B$ c& O     RowBox[{"CM", "[", . r( A# C6 w7 K2 n5 D
      RowBox[{"65", ",", "9"}], "]"}]}], "}"}], ",",
( y* h8 p. k. R. Q- \8 M* e8 s   RowBox[{"{", % n( @/ t  a, P% L* B
    RowBox[{9 U' g& V+ t& q6 D
     RowBox[{"CM", "[", 0 a" c% E- c  O; z
      RowBox[{"66", ",", "1"}], "]"}], ",", % ]- i+ J: a8 C5 I; M1 s3 Z* n
     RowBox[{"CM", "[", 1 X0 Y0 Y0 ^/ X! M2 v. O
      RowBox[{"66", ",", "2"}], "]"}], ",",
2 ~0 C+ C1 }- Q* u     RowBox[{"CM", "[",
, L8 r" I/ v8 U- k3 m% V% |      RowBox[{"66", ",", "3"}], "]"}], ",",
7 |5 {2 m# p3 A, v% \; `9 u     RowBox[{"CM", "[",
! x5 |! }% s& S5 |" o      RowBox[{"66", ",", "4"}], "]"}], ",", % z# l; h0 N2 ~+ x5 E7 h
     RowBox[{"CM", "[",
& M, A* M) q, a: P      RowBox[{"66", ",", "5"}], "]"}], ",",
7 W$ _$ _6 s; m; a/ c% g     RowBox[{"CM", "[",
# X7 s6 b- V& ?& G      RowBox[{"66", ",", "6"}], "]"}], ",",   S1 W5 ~: v$ D4 Q, j' Z+ N
     RowBox[{"CM", "[", 8 K- p  g: ?! V
      RowBox[{"66", ",", "7"}], "]"}], ",", ' ^5 f2 j# Y+ E1 M3 s
     RowBox[{"CM", "[", 3 C5 a" C( T+ j. }7 X
      RowBox[{"66", ",", "8"}], "]"}], ",", - Y' j% w  U2 |% |0 S1 v
     RowBox[{"CM", "[", % T" c" _2 [, I$ C
      RowBox[{"66", ",", "9"}], "]"}]}], "}"}], ",",
+ k9 j% E8 u2 @   RowBox[{"{",
* S% C/ P1 B3 ?    RowBox[{
2 g8 v* E- X  Y, o0 \" w: }7 f. J     RowBox[{"CM", "[",
1 q3 ?1 U7 X8 l2 G+ \      RowBox[{"67", ",", "1"}], "]"}], ",",
4 E( P1 J; T% H$ _     RowBox[{"CM", "[",
4 K3 b  V* m' P' b% Z3 ~0 g$ w' A1 Z      RowBox[{"67", ",", "2"}], "]"}], ",",
1 j# p. F# E9 ?7 \     RowBox[{"CM", "[",
5 H/ P% S  `& a/ n6 ?/ |( C2 J      RowBox[{"67", ",", "3"}], "]"}], ",",
  R3 D- ~- f- T/ Z6 U# R% w     RowBox[{"CM", "[",
, J  z( h8 B( [# B$ q" k2 P9 m6 ?" \      RowBox[{"67", ",", "4"}], "]"}], ",", 6 Y. _* Z; h4 b
     RowBox[{"CM", "[", + {" o" J' q9 s4 [$ D) Y
      RowBox[{"67", ",", "5"}], "]"}], ",",
; R* x: f) t- J! g! b: Z( ]" T     RowBox[{"CM", "[", $ {4 ]3 m6 V" ?! c/ U- N. `
      RowBox[{"67", ",", "6"}], "]"}], ",",
* P: j. b, Q. p% U( S: i* o     RowBox[{"CM", "[", * E. s! ~7 l' `( d( I7 A( f+ T; G; f7 d* J
      RowBox[{"67", ",", "7"}], "]"}], ",", 9 ^1 P; D9 z& [, X6 k
     RowBox[{"CM", "[",   G5 O5 ~* i6 t; W9 |( p4 D' z, m
      RowBox[{"67", ",", "8"}], "]"}], ",", 5 |4 u, Q6 Z! v- p- s) K3 ?
     RowBox[{"CM", "[",
9 g+ e) Y" J' \: g      RowBox[{"67", ",", "9"}], "]"}]}], "}"}], ",",
( H" e5 ]2 e3 r* P2 i   RowBox[{"{", : v9 S. J: K* k$ J3 k- S
    RowBox[{
4 n, R# N) d6 R- N: c     RowBox[{"CM", "[",
" `0 ?( Y0 [% |' o* ^8 e6 ?% Q      RowBox[{"68", ",", "1"}], "]"}], ",",
* Z' T5 S' t7 L$ ^' x     RowBox[{"CM", "[",
! ~) B: g* T8 A      RowBox[{"68", ",", "2"}], "]"}], ",",
6 V3 d# d. M- ]: X* d: B& m" Q     RowBox[{"CM", "[", + C3 x& v6 l1 u
      RowBox[{"68", ",", "3"}], "]"}], ",",
  R, k+ |4 p* h     RowBox[{"CM", "[",
; c  A$ O( q% m& u% U* V8 t      RowBox[{"68", ",", "4"}], "]"}], ",",
* s& `$ {, q! I     RowBox[{"CM", "[",
8 p1 M/ k4 ]8 s      RowBox[{"68", ",", "5"}], "]"}], ",",
# c" W2 s- A0 r( M# |% ^     RowBox[{"CM", "[",
( }3 m; B6 X0 J6 @! B" g2 B      RowBox[{"68", ",", "6"}], "]"}], ",", & X' t$ L$ R  u# w1 e% ^
     RowBox[{"CM", "[",
% c/ p4 a6 e; b+ N0 p! V      RowBox[{"68", ",", "7"}], "]"}], ",",
# P8 ^3 m/ P+ h. Q     RowBox[{"CM", "[", 4 X) @, E4 R+ {( m6 H5 B
      RowBox[{"68", ",", "8"}], "]"}], ",", 3 e5 e' b/ ]8 H& b
     RowBox[{"CM", "[",
3 ~1 f" `+ Z9 Q, u3 x2 r      RowBox[{"68", ",", "9"}], "]"}]}], "}"}], ",", . B/ w( f$ m0 x- A
   RowBox[{"{", / Q! b& t6 e  W. l: R
    RowBox[{  j6 F$ d( j2 S
     RowBox[{"CM", "[",
. \" T' s0 Z9 i      RowBox[{"69", ",", "1"}], "]"}], ",", + {7 L6 E) G3 s6 \6 H
     RowBox[{"CM", "[",
! x6 f% n; S! |8 v      RowBox[{"69", ",", "2"}], "]"}], ",", * k5 ]; K8 i6 T+ j6 n" g
     RowBox[{"CM", "[",
- Y' Y" g$ P& c0 e6 X      RowBox[{"69", ",", "3"}], "]"}], ",",
* x. {4 }0 _9 y6 M/ I( Z     RowBox[{"CM", "[", & V7 h4 E8 F5 ~4 ^- N  Z$ L8 Z% a
      RowBox[{"69", ",", "4"}], "]"}], ",",
6 t8 m+ l! l2 x6 {     RowBox[{"CM", "[", 6 L# [  f7 h0 H. g; ?+ k
      RowBox[{"69", ",", "5"}], "]"}], ",",
$ M8 n- n$ ^4 s' M% H1 f( B     RowBox[{"CM", "[",
6 e+ N# D9 }4 X      RowBox[{"69", ",", "6"}], "]"}], ",", : P8 U  w+ E- l" y$ T
     RowBox[{"CM", "[", ( D5 n8 I& x" u
      RowBox[{"69", ",", "7"}], "]"}], ",", 2 _" o6 D6 N. P: ]' A
     RowBox[{"CM", "[",
: n; F" w) \! Z- T7 [      RowBox[{"69", ",", "8"}], "]"}], ",", , q: W" G# z5 s: ?  D
     RowBox[{"CM", "[", ( R: t! n1 m0 I3 `3 K( `& s7 N
      RowBox[{"69", ",", "9"}], "]"}]}], "}"}], ",",
; k5 s) c9 ^/ l& J( P& o$ \   RowBox[{"{",
4 ]1 d* e$ Q! \. `  {: v' D( g- o, r    RowBox[{
: b" {" V( v2 X, [     RowBox[{"CM", "[", 0 P$ i7 S* u& Y3 p: }) B/ c
      RowBox[{"70", ",", "1"}], "]"}], ",", 1 r- n2 M7 e% }4 F, O! Z
     RowBox[{"CM", "[",
% M6 P/ U, l+ v, u2 A5 S* P5 D      RowBox[{"70", ",", "2"}], "]"}], ",", 4 K  Z8 h2 J2 _3 y4 b
     RowBox[{"CM", "[",
; g% k' R5 E, d' P1 o. |      RowBox[{"70", ",", "3"}], "]"}], ",", 9 a" ^& E& i  r3 O8 R* [
     RowBox[{"CM", "[",
; r: Y; O: a# D. g7 c; h& S( {      RowBox[{"70", ",", "4"}], "]"}], ",", 7 E0 m( \6 g/ p* C
     RowBox[{"CM", "[",
# G1 ^* z! s9 z! F% `+ @# o      RowBox[{"70", ",", "5"}], "]"}], ",",
9 f: h* u) F( L3 \$ I     RowBox[{"CM", "[",
0 ^6 E% Y. I) ]) m7 u      RowBox[{"70", ",", "6"}], "]"}], ",",
: `# a* I  v2 `: D, n& D     RowBox[{"CM", "[", - ~9 P2 ^0 z# S
      RowBox[{"70", ",", "7"}], "]"}], ",", 5 \& ~6 f7 X# s& H- C; E, e
     RowBox[{"CM", "[",
  h# r5 s- {7 s4 ?1 ?      RowBox[{"70", ",", "8"}], "]"}], ",", 4 I. _3 a3 t$ K% s4 p! J
     RowBox[{"CM", "[", $ u" ^) H) b/ G0 z
      RowBox[{"70", ",", "9"}], "]"}]}], "}"}], ",", 7 t- Q( }4 M; x6 d1 C& \
   RowBox[{"{",
0 L5 [' |: U& w9 W- E, }    RowBox[{& k; Z& ]7 ?2 p& P/ Q
     RowBox[{"CM", "[",
* t3 y' ~( T/ Z7 @% i( M      RowBox[{"71", ",", "1"}], "]"}], ",",
1 X( }. q9 _" Z$ {  o( t     RowBox[{"CM", "[", 3 T& F4 P, _- Q3 H- [
      RowBox[{"71", ",", "2"}], "]"}], ",",
  |" q* f" {' }5 o: g9 Y     RowBox[{"CM", "[", 3 Z5 {8 j: Y/ h# Q
      RowBox[{"71", ",", "3"}], "]"}], ",",
+ c- U- J) P* r: C2 X) ^     RowBox[{"CM", "[",
9 Z- ^7 W+ w3 t      RowBox[{"71", ",", "4"}], "]"}], ",",
# S) M/ X% O  _- S3 t     RowBox[{"CM", "[", 4 w8 U& g' K( ~8 }$ z
      RowBox[{"71", ",", "5"}], "]"}], ",", # M% w0 d2 M( K4 v) i
     RowBox[{"CM", "[",
( B- \2 b6 {1 B4 q      RowBox[{"71", ",", "6"}], "]"}], ",", 6 m% {5 D3 Y  c1 q6 Q7 H
     RowBox[{"CM", "[",   E6 N' {; q# Z: o) g  O  s2 C
      RowBox[{"71", ",", "7"}], "]"}], ",",
; T7 \* A: Q8 Y5 J, C% l" ]! X3 k     RowBox[{"CM", "[",
0 y0 a8 Z0 l9 u7 _8 }$ Y      RowBox[{"71", ",", "8"}], "]"}], ",", / w1 U7 H' c7 I' H1 t0 F
     RowBox[{"CM", "[", 2 A! e1 o; d1 d  J
      RowBox[{"71", ",", "9"}], "]"}]}], "}"}], ",",
* {3 ]' H* d" r. p' V7 V   RowBox[{"{", . x# N! e& [/ g5 l5 A/ U
    RowBox[{- x, f  {/ q: H( E# L) Y& d
     RowBox[{"CM", "[",
( Y( a$ j0 ?1 y0 [& }" ^, O1 F+ D      RowBox[{"72", ",", "1"}], "]"}], ",", 8 i6 Y9 ^6 h* R0 h
     RowBox[{"CM", "[", 2 \9 P3 j2 r$ \, _/ G3 e
      RowBox[{"72", ",", "2"}], "]"}], ",", 2 @1 P4 M2 h/ e9 Y
     RowBox[{"CM", "[",
8 b4 U9 j8 X% f: X# I; A      RowBox[{"72", ",", "3"}], "]"}], ",",
( x! I" x! N" H; D9 D! J  M     RowBox[{"CM", "[", 8 X% F) v+ }7 }5 t
      RowBox[{"72", ",", "4"}], "]"}], ",",
+ K( m" P- p; U8 s     RowBox[{"CM", "[", / O4 l: F! e6 ?' Y" G& [
      RowBox[{"72", ",", "5"}], "]"}], ",",
- M5 Z6 q3 i! p% d8 K     RowBox[{"CM", "[",
; P+ a' S' ^  q7 o' U+ L      RowBox[{"72", ",", "6"}], "]"}], ",", / f5 T0 k" b; {# w
     RowBox[{"CM", "[", + z" R, }  a" p+ e
      RowBox[{"72", ",", "7"}], "]"}], ",", . q0 T$ y9 ~+ g* y% q- B/ l: \
     RowBox[{"CM", "[",
: y7 e* J1 f' p      RowBox[{"72", ",", "8"}], "]"}], ",",
: ]$ P: Y; ?5 v( b     RowBox[{"CM", "[", 0 ]  y) k5 I. v1 w
      RowBox[{"72", ",", "9"}], "]"}]}], "}"}], ",", . _0 k) U8 E* T7 c8 ?  p
   RowBox[{"{",
/ v* R- P& y! w+ l' f( h0 f    RowBox[{/ ~# q! U0 m. ]
     RowBox[{"CM", "[",
% S6 g9 t+ h" @0 t- j1 q( e      RowBox[{"73", ",", "1"}], "]"}], ",", + w: A/ S7 A0 n% b8 b3 X6 I
     RowBox[{"CM", "[",
" M8 O1 n- o' _, }( {5 A7 h% L( f      RowBox[{"73", ",", "2"}], "]"}], ",", * f0 x( U" m0 c  Y! t3 X
     RowBox[{"CM", "[",
# N, p( F1 u# E      RowBox[{"73", ",", "3"}], "]"}], ",",
' m6 ~" C) E4 |! L8 G3 A! Z     RowBox[{"CM", "[",
1 t1 p1 F& J2 f6 Y% M  y; z: f      RowBox[{"73", ",", "4"}], "]"}], ",", $ j) Q3 r4 ^+ z  x3 q" M4 z
     RowBox[{"CM", "[", 8 J1 U8 j9 n. w" ^8 L7 N
      RowBox[{"73", ",", "5"}], "]"}], ",",
. R$ a5 R( S; m" V! M2 o: f+ v     RowBox[{"CM", "[", ( p* T( u( P' c0 [, x$ C
      RowBox[{"73", ",", "6"}], "]"}], ",",   t1 D; [3 i4 ^4 y5 d6 r+ u" ^
     RowBox[{"CM", "[",
' F6 ^3 x5 p6 Y5 [* e      RowBox[{"73", ",", "7"}], "]"}], ",",
& M) U% ^. ~5 G9 E     RowBox[{"CM", "[",
3 I" Y/ y3 s) b0 U* ~      RowBox[{"73", ",", "8"}], "]"}], ",",
5 C! K; R9 ?" J     RowBox[{"CM", "[", + G* M6 Q8 G+ S; E: i
      RowBox[{"73", ",", "9"}], "]"}]}], "}"}], ",",
6 R0 o& e- U; T   RowBox[{"{",
7 Q' Y. {8 \. O  Q$ ?9 N    RowBox[{
  O2 h1 b9 P7 K( L     RowBox[{"CM", "[",
8 d1 ?$ n/ q+ v$ l. ]! R$ R* \5 J. C      RowBox[{"74", ",", "1"}], "]"}], ",",
2 J1 S. N  K: X- F' g     RowBox[{"CM", "[", ! Q5 }3 b/ D4 y& H: I# m
      RowBox[{"74", ",", "2"}], "]"}], ",", 6 k9 Z# J; F# e- H9 C5 b
     RowBox[{"CM", "[", : S- G( u  y7 Y. G' D" p
      RowBox[{"74", ",", "3"}], "]"}], ",", . }$ Q; b2 q7 r6 e/ f% [
     RowBox[{"CM", "[",
1 c: P  @' G: l8 f$ m5 w1 h0 c3 _      RowBox[{"74", ",", "4"}], "]"}], ",", ! i8 W8 T+ o- J
     RowBox[{"CM", "[", / Y( l7 d4 M$ E7 V) P0 W8 U$ l
      RowBox[{"74", ",", "5"}], "]"}], ",", 2 p5 o! G: i+ L7 p, p2 |- q# F
     RowBox[{"CM", "[",
; _( l" c" M2 A! x, r      RowBox[{"74", ",", "6"}], "]"}], ",", 0 h: M- e7 E' V1 d5 ~! z
     RowBox[{"CM", "[",
/ W9 S8 R& i- i0 j- U3 v9 O      RowBox[{"74", ",", "7"}], "]"}], ",",
9 C# G2 L- y. i     RowBox[{"CM", "[",
0 {  F& x3 k6 f      RowBox[{"74", ",", "8"}], "]"}], ",",
# \6 i( a2 h0 {% _* H/ I2 Q+ L* \     RowBox[{"CM", "[", . O0 ?) }' \" b# I' I( L  D1 U
      RowBox[{"74", ",", "9"}], "]"}]}], "}"}], ",", 7 i1 N4 y9 N: f
   RowBox[{"{", + V9 @# G. E! \( g0 }
    RowBox[{
4 s4 T0 G7 S! t     RowBox[{"CM", "[", / L& f* Q- U- y3 O. J
      RowBox[{"75", ",", "1"}], "]"}], ",",
: r6 F' b8 m$ i1 F3 W9 n. I( X     RowBox[{"CM", "[",
6 d4 h9 s' a: O3 p& C% |      RowBox[{"75", ",", "2"}], "]"}], ",",
3 p) R+ k1 k% {+ y0 Z3 P, P     RowBox[{"CM", "[",
7 j$ k' V7 w' Y- z      RowBox[{"75", ",", "3"}], "]"}], ",",
7 W0 N: o! O6 J. s/ A6 l     RowBox[{"CM", "[", 1 n" W% ~$ Y( |6 v) `
      RowBox[{"75", ",", "4"}], "]"}], ",",
* _* x% _8 o$ a) B/ G8 X     RowBox[{"CM", "[", " F  x* z6 w" f
      RowBox[{"75", ",", "5"}], "]"}], ",",
+ C5 @) q" h6 {. s1 i4 Y( g- t     RowBox[{"CM", "[", , p# m' p) {) S& N& l
      RowBox[{"75", ",", "6"}], "]"}], ",", 9 t+ |9 ?0 l( h% [* q
     RowBox[{"CM", "[", : Y  f( S4 [5 q4 x# U
      RowBox[{"75", ",", "7"}], "]"}], ",", ! r+ G) @4 |3 x; I# U. ~: N" a$ F
     RowBox[{"CM", "[",
4 \% }% T5 U9 y5 R! a0 m      RowBox[{"75", ",", "8"}], "]"}], ",", 5 l" I8 _: i7 G$ r  B% M, t
     RowBox[{"CM", "[",
* U0 c  m, O1 H+ p* u" V1 [2 h      RowBox[{"75", ",", "9"}], "]"}]}], "}"}], ",",
* A$ r/ z' i1 h   RowBox[{"{", 4 J9 k' v& R1 Z# J& Z$ ]
    RowBox[{
; d# U# `+ T. Y! q     RowBox[{"CM", "[",
- n* v& ]+ P$ X, z      RowBox[{"76", ",", "1"}], "]"}], ",", 1 _6 E4 E, b4 s. [
     RowBox[{"CM", "[", 1 T% t- y/ j2 e5 J! F/ }
      RowBox[{"76", ",", "2"}], "]"}], ",", ! }' {4 j& O9 \" P0 ?1 Q
     RowBox[{"CM", "[", + B! l! h# L$ b. q# V
      RowBox[{"76", ",", "3"}], "]"}], ",",
1 i+ k& i/ h9 |/ V     RowBox[{"CM", "[",
' S* [! j. V& |$ m% E      RowBox[{"76", ",", "4"}], "]"}], ",",
3 o+ [0 B1 Y5 M1 h& L     RowBox[{"CM", "[", 5 Y) T' T6 D" w3 [
      RowBox[{"76", ",", "5"}], "]"}], ",", 1 i# K4 K# w$ c! {9 m
     RowBox[{"CM", "[", " }. E( A+ [  g1 V3 R
      RowBox[{"76", ",", "6"}], "]"}], ",",
2 K! u1 y' X  ^# m# I$ j+ }( I( S7 K     RowBox[{"CM", "[", - a: L' |6 S& X" {
      RowBox[{"76", ",", "7"}], "]"}], ",", 0 j9 H& y( }7 a3 ]
     RowBox[{"CM", "[", . s( u+ K8 S" W& }9 {( K0 c, A  ~8 |
      RowBox[{"76", ",", "8"}], "]"}], ",",
& [1 q. m! ?/ v9 Y& [% B4 Y3 L& t     RowBox[{"CM", "[", : d/ M6 y+ j2 G
      RowBox[{"76", ",", "9"}], "]"}]}], "}"}], ",",
9 H, g: ]. x5 J2 h6 a   RowBox[{"{",
; s- P- ~5 ?- m* K7 D/ I: M    RowBox[{1 U, l" @  G& U# y/ M6 G9 ?; I! C
     RowBox[{"CM", "[",
# k3 E0 i6 k2 S. a7 _9 L      RowBox[{"77", ",", "1"}], "]"}], ",",
8 L6 w7 }7 v! ^- L3 F     RowBox[{"CM", "[", 5 j9 o% X+ d& O  Q
      RowBox[{"77", ",", "2"}], "]"}], ",", 7 F# V$ h0 F* A; Z* M
     RowBox[{"CM", "[", / I: g/ [1 S' f
      RowBox[{"77", ",", "3"}], "]"}], ",", ! T% P" [8 X5 A
     RowBox[{"CM", "[",
: ]: k1 |3 p$ W      RowBox[{"77", ",", "4"}], "]"}], ",",
3 v7 m+ L7 d: N     RowBox[{"CM", "[",
' _. \" ~8 V1 Q# x9 t      RowBox[{"77", ",", "5"}], "]"}], ",", 9 O; X( Z+ i- t7 I+ v$ \
     RowBox[{"CM", "[",
4 Q" q1 g8 Q$ o7 x  U2 o      RowBox[{"77", ",", "6"}], "]"}], ",",
7 l; ^7 v* g6 V; f5 x; k- \     RowBox[{"CM", "[",
; }3 o4 F7 I7 J. {$ V      RowBox[{"77", ",", "7"}], "]"}], ",", 6 U# M8 V2 h! ^7 ~$ l; u
     RowBox[{"CM", "[",
8 P8 n- s! p  v; k8 P/ w! S) E: L      RowBox[{"77", ",", "8"}], "]"}], ",", 2 s8 b7 m  X! ]; M, P
     RowBox[{"CM", "[",
* I: N8 R% F& P      RowBox[{"77", ",", "9"}], "]"}]}], "}"}], ",",
5 q) D* X- ]8 [- @. _5 W   RowBox[{"{",
6 ?# [6 U# Y+ g9 F: p1 l    RowBox[{
$ m0 u) S5 v$ ~4 A6 f% f     RowBox[{"CM", "[", 7 \' ^9 c& n$ Q; o. T
      RowBox[{"78", ",", "1"}], "]"}], ",",
6 |/ c- D9 M# _. ]* P     RowBox[{"CM", "[",
3 V% ]! Q. X1 `; }, B0 t- G      RowBox[{"78", ",", "2"}], "]"}], ",", 8 Z* H/ \& N; D7 g
     RowBox[{"CM", "[", / |) J$ c+ O4 {" @: \2 F0 K
      RowBox[{"78", ",", "3"}], "]"}], ",", + j9 p; N- N7 f' \
     RowBox[{"CM", "[",
% J7 d% R- ?7 D' o8 \      RowBox[{"78", ",", "4"}], "]"}], ",",
" m7 Q6 [/ u1 O- ]; ]% O" i     RowBox[{"CM", "[",
9 D9 l/ E; e4 O6 {! ~      RowBox[{"78", ",", "5"}], "]"}], ",", - {. p: P$ n% X$ G2 z6 [
     RowBox[{"CM", "[",
0 u# o! {! d8 S* j! B4 n3 N      RowBox[{"78", ",", "6"}], "]"}], ",", ' a( T- z* F& x8 A4 x6 C
     RowBox[{"CM", "[", % O; g' Q, M# l7 {
      RowBox[{"78", ",", "7"}], "]"}], ",",
# E8 x" t  m9 h0 o% a( T+ Z     RowBox[{"CM", "[",
8 C9 v: _, }4 d2 G3 i      RowBox[{"78", ",", "8"}], "]"}], ",",   a9 g# D) u. p! k9 m
     RowBox[{"CM", "[",
% W7 y9 b, _5 d" ]& k  ?/ E6 P      RowBox[{"78", ",", "9"}], "]"}]}], "}"}], ",", 0 E3 S6 O! Z8 W3 q
   RowBox[{"{", & H" v3 V1 m" X% |
    RowBox[{" W3 j' H1 Y% [+ o0 ]6 |
     RowBox[{"CM", "[", * J( t; s* k& h- R$ ]) h
      RowBox[{"79", ",", "1"}], "]"}], ",", ) ?3 T9 P! M# d% j- ^7 j
     RowBox[{"CM", "[",
! V! d  f5 |9 L- K      RowBox[{"79", ",", "2"}], "]"}], ",",
* ], Y% y' I  G1 [- M$ p; P     RowBox[{"CM", "[",
* N9 D/ s( b+ a3 l# U      RowBox[{"79", ",", "3"}], "]"}], ",",
% u+ W& E) {0 Q     RowBox[{"CM", "[", ) `8 d, g+ X# f9 N5 P4 u
      RowBox[{"79", ",", "4"}], "]"}], ",",
2 M' B, }% h% |- R     RowBox[{"CM", "[",   f. p! s# y5 d* f
      RowBox[{"79", ",", "5"}], "]"}], ",",
$ ?0 C3 g  ?1 I$ X, G     RowBox[{"CM", "[", " V3 H2 a+ a( F6 \7 p
      RowBox[{"79", ",", "6"}], "]"}], ",",
) u0 W# s9 I: x# `5 P( R9 y     RowBox[{"CM", "[", 5 I' u* j6 z: q/ \( x* D5 F
      RowBox[{"79", ",", "7"}], "]"}], ",",
/ D3 U2 t2 b0 {  L8 z1 s     RowBox[{"CM", "[",
( E) Y/ i1 W+ E, i1 O" ~2 Q      RowBox[{"79", ",", "8"}], "]"}], ",",
/ |7 I# h3 Z; A, I4 t4 ]     RowBox[{"CM", "[", - ?& d$ j9 J" h/ {' K
      RowBox[{"79", ",", "9"}], "]"}]}], "}"}], ",",
# p& U" s0 ^6 A7 m& s& B0 c) F   RowBox[{"{", . ]7 J) l5 m& w, z, s6 V6 X7 ]* L" S
    RowBox[{, g% q2 m/ W. Y4 R6 p+ Z* U
     RowBox[{"CM", "[", + i0 W% K1 p" t2 L) i
      RowBox[{"80", ",", "1"}], "]"}], ",",
3 F+ |7 e% M1 f* X# v/ T2 M/ c2 S     RowBox[{"CM", "[",
+ z# a/ {  i- ]3 W4 @8 b      RowBox[{"80", ",", "2"}], "]"}], ",", - l6 @* U5 f9 J! j% Q
     RowBox[{"CM", "[",
( }4 y% x# ?* R0 k6 {( b. I      RowBox[{"80", ",", "3"}], "]"}], ",", % m# O/ D* R- M" R  Q
     RowBox[{"CM", "[",
0 Q+ W- H5 h; E1 J      RowBox[{"80", ",", "4"}], "]"}], ",", ) X& Z5 d$ L2 t! T; i9 ?1 {
     RowBox[{"CM", "[", 5 n8 d) |0 n& _& s- q3 Q4 U' k
      RowBox[{"80", ",", "5"}], "]"}], ",", 7 P  I3 Y; Y3 f' [9 p* _1 W
     RowBox[{"CM", "[", 1 c: [! P. C6 j# h
      RowBox[{"80", ",", "6"}], "]"}], ",",
. U2 v( l$ `+ ?4 U9 D     RowBox[{"CM", "[",
4 w, A7 w" b5 W' V9 [      RowBox[{"80", ",", "7"}], "]"}], ",",
% w# ~& ]3 w- ?' k9 x; r     RowBox[{"CM", "[",
0 n7 c. N, T  M4 R) S2 g8 H" I7 _      RowBox[{"80", ",", "8"}], "]"}], ",",
1 q) L9 n, Q4 a     RowBox[{"CM", "[", 7 N) v1 \7 H# T7 F2 y
      RowBox[{"80", ",", "9"}], "]"}]}], "}"}]}], "}"}]], "Output",
% I2 W, L. @% D. d+ v6 [1 i' u CellChangeTimes->{3.577844244140625*^9, 3.57784429425*^9, 3.577847845125*^9, ( R. `6 x& m4 L' X  j6 X
  3.57791322703125*^9, 3.577957088820712*^9, 3.5779605002346992`*^9,
! g' M( }1 ?& Z  3.578012145828125*^9}]
5 I9 K% c6 R5 R2 O}, Open  ]],
$ A5 C9 D; e2 q! c! m/ t1 G/ j" Z  A% K
Cell[BoxData[( y! b# c$ e2 \
RowBox[{"For", "[", 3 \( ]& a5 f- o8 A3 B1 d
  RowBox[{* V* N5 `+ Q1 s; `9 }
   RowBox[{"i", "=", "1"}], ",", ) G) m8 Q0 b2 I; R* Y+ \
   RowBox[{"i", "\[LessEqual]", "9"}], ",", , @5 N$ [2 o' U7 f" f/ F0 L- |
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
: A8 p1 o' O, d& k6 O: b   RowBox[{"For", "[", % G: V; E! w8 i% j( N
    RowBox[{7 j! X* y9 v: l  Q) ^: s
     RowBox[{"j", "=", "1"}], ",", / x! Y. K$ x, p/ j* R$ y
     RowBox[{"j", "\[LessEqual]", "80"}], ",",
3 b% h: o  v# X# R- s8 c+ \     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", - x3 g. L! x  P2 \: i
     RowBox[{; Q; T, i1 }5 i. H- L' g, N' T
      RowBox[{$ k0 |. l6 U. J+ X, r
       RowBox[{"CM", "[",
, a8 d4 A6 Z) K% G1 v        RowBox[{"j", ",", "i"}], "]"}], "=", "0.0"}], ";"}]}],   o4 j- ]& p/ V; W
    "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",
: d2 G$ E' B; u. i: B; [ CellChangeTimes->{{3.5779132504375*^9, 3.577913285203125*^9}}],
- r# Y8 G/ J4 J+ J' \& z# p, G0 j/ [8 i! E" u8 m
Cell[BoxData[. a9 m: o# p8 n) N3 q5 U
RowBox[{"For", "[",
2 o) e$ m7 U% d2 S" _1 f" P  RowBox[{" g" ]0 v: Y$ z0 Z+ N
   RowBox[{"i", "=", "1"}], ",", 6 }( y1 U6 P1 |1 ~$ z' R$ l5 j5 ]: j
   RowBox[{"i", "\[LessEqual]", "9"}], ",",
+ ?6 D' m1 D. z6 w/ n3 {   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
5 V/ x- U: j- k, I+ Q0 ~& ~   RowBox[{
" T; |! X, j0 Z- G# g- z    RowBox[{. V2 x. I2 t" u3 W: |4 v
     RowBox[{"CM", "[", 8 }4 y+ Z* H& U7 G! G
      RowBox[{"1", ",", "i"}], "]"}], "=",
' S# Q7 y* e4 @- d     RowBox[{"Data", "[", - @: ^- e( E* D9 n2 _+ H
      RowBox[{"[", 1 i$ Q/ O+ G# c! d. z9 H2 Z
       RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}], - m( ~. d  u# U9 r% t" {) h8 U7 O
  "\[IndentingNewLine]", "]"}]], "Input",+ f, N( n. Z8 p' p7 j  A
CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {
# D/ p4 a; |8 g1 L+ @   3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9, / c$ \& N9 @! p( N
   3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9, ( U5 ^) R' s% Y2 `! t7 [3 g0 e9 u
   3.57791344209375*^9, 3.5779588070933466`*^9}],
" M6 Q$ P. R! L" f! I3 U. V1 Q
# j2 c( G! R, ^+ WCell[CellGroupData[{0 w% c" l- d( m0 y
7 v6 ^0 x# ?; s0 R8 U
Cell[BoxData[{% P- r  y' R5 [  K
RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]",
1 j1 B6 W" H9 c' o4 z" v RowBox[{"M1", "=", "1"}]}], "Input",
2 |- ?( T& H$ V7 q. }1 ?8 ? CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {
( K4 g) Q, B" V$ {6 `   3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9,
) z+ h% }0 O' A+ Y' P   3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {
8 n. k( B0 M9 l3 i/ I. O   3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9,
2 V4 R; [( b5 @0 j# P- g% `& ^8 F   3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {# B; w6 u  e- R6 K% u
   3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {: T* L: N# \8 D8 F  z+ ?
   3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9,
, l. C7 U- e% U2 V   3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {
6 g6 ?- E% @$ s0 z5 p   3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {. z3 s; Z& t! O+ r- O  f
   3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9,   j- c- k$ Y( D+ w; l- \* Q
   3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
6 X. \5 ~% A. n4 e( d, f4 B5 B& G9 p2 z" _0 Q/ P
Cell[BoxData["0.2`"], "Output",* [! g( ?, l/ x' H8 r2 r, l- }4 f9 Z
CellChangeTimes->{+ O% [, \, S1 I# Q
  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
: `& m8 t2 N. x: B% s   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
! ~9 d5 z! {/ I   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, 4 D) p! B8 w8 {) p+ I5 F6 {
   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {, t" z, y$ S' D. ~" i3 G
   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
6 r, Z3 x# ?- x+ z. G8 o   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {# r- d9 T3 k% I6 }/ m
   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, 8 m3 f% E% B8 v: J6 V* ?  U
   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
& t. T: Y% G! i+ b0 s" i' z   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
9 y$ i2 q( d, T+ _   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,   S) l7 y% D: |- \
   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
8 _6 R( }, @+ X) {# I   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
" a5 B3 Q% h8 v- S. S: B   3.577960510686717*^9, 3.578012149296875*^9}],
' Y+ |2 m9 x& P  Q$ Z& n+ L6 c; z# L
Cell[BoxData["1"], "Output",4 P" u1 ^- S" V( S% b9 F8 }3 h; K
CellChangeTimes->{2 `2 U9 Q4 j1 R5 H, L3 }
  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, ) ^0 H0 Z& N$ _: Y0 v( a/ S( a! W
   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
* U- Z' z8 w; O5 q   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
7 S+ d' _0 ^9 {5 h   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
6 R% M4 V& b  w5 v5 y4 z( j   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, 3 ~  y% H& o8 F' I1 e% H6 |1 S
   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {" ^9 }# }: X* k
   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, 6 s+ ~+ F, V- e* @$ }8 ]
   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
% t. G$ R" T7 I# _   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, $ m4 k: d2 U2 C; E7 M
   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
& f, ]8 N. d0 X( v   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, : @9 X( R8 K8 N% v
   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
+ ?% L1 |$ d; w0 N   3.577960510686717*^9, 3.578012149296875*^9}]; N& ~8 k$ F$ [7 k  X
}, Open  ]],4 O1 ^# A6 r/ m! H9 ^
" D; h$ F8 a1 a, z( q  E' u
Cell[BoxData[& S" o" y7 D: [  r7 f1 o1 Y6 s
RowBox[{"For", "[", 5 ]4 I& k0 P* U1 i* B. E! P
  RowBox[{6 q9 n* c' T, s2 v
   RowBox[{"k", "=", "2"}], ",", - H  `3 D& D& `  b, v
   RowBox[{"k", "\[LessEqual]", "60"}], ",", * R0 r0 V8 A- s% Y4 T
   RowBox[{"k", "++"}], ",", / N! W' h9 r0 c9 B( P
   RowBox[{"{", "\[IndentingNewLine]", . q* C5 Z4 y( R9 w! b3 G0 b: K
    RowBox[{; h# Y8 |8 L. D/ ?, k
     RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]", 2 E4 K8 r/ S- x) G1 J
     RowBox[{"For", "[",
' B" l3 n! c# I8 A, q3 h! K1 v% m8 g      RowBox[{
2 Q+ R1 e- p3 G, a) v) p# N       RowBox[{"j", "=", "1"}], ",",
* ]' W9 Y1 g" F2 k8 H       RowBox[{"j", "\[LessEqual]", . p) D; @& t+ B  a: K/ z: P/ u, N; w
        RowBox[{"k", "-", "1"}]}], ",",
( v, a4 N  o6 X  d/ {, n- D" o       RowBox[{"j", "++"}], ",",
3 p5 Q/ Q+ |& N9 c       RowBox[{"{", "\[IndentingNewLine]",
* a" b: R5 n# u+ z; v        RowBox[{
* y# O9 V+ m( c! Y1 }         RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]", " ?7 y. n: X  J4 I6 x
         RowBox[{"For", "[",
( C+ [* \" h& W          RowBox[{
3 j; {5 F- @3 \5 o- T+ V4 p2 J9 o           RowBox[{"i", "=", "1"}], ",", 3 x) |/ c6 a* G: J1 j% t' i
           RowBox[{"i", "\[LessEqual]", "9"}], ",",
$ }! x) q2 H2 M5 U           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", ' X, g1 R1 z' c9 R4 a9 M+ p
           RowBox[{
# [) U8 U8 w1 ?5 B. t$ H            RowBox[{"r1", "+=",
) T0 l5 r0 p4 A" X             RowBox[{
+ \6 g+ b; ]8 ?% `" r4 J; Z              RowBox[{"(",
$ v% C6 x. ~, q8 T# c1 B               RowBox[{
2 P' f3 N) D) W! K) T+ A                RowBox[{"CM", "[",
4 _: Y6 U' G" S) T! G                 RowBox[{"j", ",", "i"}], "]"}], "-", 9 k$ f% z% ?. j' h! H( [
                RowBox[{"Data", "[", $ K7 d' K0 c3 x, s
                 RowBox[{"[", : V  q( y# ?8 S* T  F' |) T/ Z
                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
, ~% Z6 u, Q5 i" M9 k              RowBox[{"(", 1 u7 A8 d. Y( W) ]( g, v& h0 k: O
               RowBox[{
1 X: o; ?' B; k9 Q! B7 R. p                RowBox[{"CM", "[",
7 ]7 @9 w8 f* W' m. s$ Y- H# y9 u                 RowBox[{"j", ",", "i"}], "]"}], "-", 3 @, z1 f- k/ u2 b
                RowBox[{"Data", "[",
! X( J5 D) i3 O- z% A                 RowBox[{"[",
( ?9 T6 [! J6 S2 d+ B% f& X                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
/ u3 [. }0 I9 ^& H7 g2 E" D           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 1 e2 k  i1 j* p1 O
         RowBox[{"r1", "=",
# ]9 m) D5 s! C) g. E/ |, ^          RowBox[{"Sqrt", "[",
. |8 B! r  F$ d7 n& e- I- w: n8 X           RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
4 U% W* p6 C6 A+ `' M2 v         RowBox[{"If", "[", " ",
7 A' o! ~/ K: i+ g- W          RowBox[{
# h: y" g6 A$ [# c) }% g3 c# ^           RowBox[{"j", "\[Equal]", "1"}], ",", + E" u, G# g" _0 m) o: M
           RowBox[{"rmin", "=", "r1"}], ",", ' B1 J# W; y" e' @2 E
           RowBox[{"If", "[",
+ H5 b' h8 n4 M- L            RowBox[{
  a5 ]2 N  I% H- q3 X$ E  }3 u) c             RowBox[{"r1", "<", "rmin"}], ",", / x( M! e) _! V- L; [8 m- x
             RowBox[{"rmin", "=", "r1"}], ",", 8 l# o5 ~6 R7 }: `, T% F9 [1 A# `. P& v
             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}], 7 [4 S: M. k8 o: N. B" R4 Y& w( n
        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
# [8 ?9 a; ~$ u3 Q8 b* L     "\[IndentingNewLine]",
% _" j' p6 t  g* y; _6 j     RowBox[{"If", "[",
: W! G! l& r; k8 x: T' \9 \6 Z      RowBox[{
7 W& B* Q4 i( V; T       RowBox[{"rmin", ">", "r0"}], ",", . X9 C8 ]0 s9 ?" U6 t* O- q8 b
       RowBox[{"{", "\[IndentingNewLine]",
  `4 F1 y, X9 K, V" v, L- p% ~: j        RowBox[{
; l8 m$ b  m3 U& D& J! Q         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]",
: \' U$ |$ ^# u: \% `1 c0 f$ I: S         RowBox[{"For", "[",
4 O0 e- S% _. ^2 A1 \2 n          RowBox[{
0 e- p* {* J$ A7 B# K( p  C           RowBox[{"i1", "=", "1"}], ",",
3 Q) p0 A6 p% M7 x. s5 O           RowBox[{"i1", "\[LessEqual]", "9"}], ",", + @: X9 U& I( C$ u& z1 k
           RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
8 M& M+ `8 Z$ R1 P           RowBox[{
% M3 q! l/ m, Z            RowBox[{! ]1 |1 k/ V( k
             RowBox[{"CM", "[",
" u( D4 V( V% e: \  V              RowBox[{"M1", ",", "i1"}], "]"}], "=",
, k! P. D/ V9 o  p2 k/ B, a             RowBox[{"Data", "[", % V% W* V/ e) n# C7 h
              RowBox[{"[",
7 O6 \3 @9 u6 k% E4 i3 @               RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],   F1 y" y% V3 m  E& B
          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",",
) W) m& E% \' R& n       RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], ; w% J' P) O7 v4 N# z3 ]
    "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
" b4 {" h2 A* q6 B9 T6 d3 t CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {2 j( j; f3 I. [" Q
   3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9, * J/ ]- b9 H  |; Q  s. Z
   3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {7 z4 y' v* x0 ?* s  a1 W
   3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9, 7 _* T, E3 M0 z5 ^# \& w2 p
   3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {7 U4 U9 L) u8 g) A' ^
   3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,
0 p/ R! C/ l% L4 r9 ]+ L4 q' F   3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {  @, [3 u" l; Q$ X
   3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
8 Q0 h) I, U! K7 f5 f6 v$ O  Y   3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {2 @& |# E9 ~! q* V
   3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
, G1 l9 ?* |0 T' O% K& m   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
( z; c# g/ y0 E4 C( R9 s7 {   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9, - I4 y( x' o) E( S* P# d& c& |
   3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {: M4 f1 E- U: t
   3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9,
/ s$ i2 H: o3 t9 J   3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {* Z8 P. m' p/ h; K
   3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9, 1 q. z: [, P5 r2 U, O  E$ ?  R
   3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9,
: j0 R" `* q! p4 S- x- L   3.577958821991373*^9}}],
- H/ U7 t# p2 b# z& `0 M& i; ~. E) _$ ~, ^& W% z; E
Cell[CellGroupData[{
) |+ m) ]& U7 e+ j& @/ q* Y
* M8 P+ H, D0 l: k+ A; vCell[BoxData["M1"], "Input",2 m3 z5 i( }3 ?1 n8 p( b
CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
: X. E9 f, w, i# U% `" D9 K6 V) _' O" _1 I$ ~6 o
Cell[BoxData["21"], "Output",
# m9 {3 K- R+ d% p2 ~: M6 I CellChangeTimes->{
! e$ [- l5 E; n8 @% y  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
% B! x( ?1 K! I* m5 |   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9, ! {. \, C: S( O
   3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
" C7 v" C) g# @2 t/ v3 T   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
3 o- I, ?% E: C! t& o# t; d% k   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
. B8 [4 i8 y8 E3 ^* f   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, 3 \% t: I7 w  T' U7 W
   3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
4 M! K: j7 }0 [0 [3 K+ A1 e; ~9 N   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
5 B1 \: P$ ^1 [  y8 L5 \   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
7 @  J  F1 _9 e4 }   3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, * F* ~2 R* K' ?3 U4 e
   3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9, : I4 h4 K& }, }+ P
   3.577960515600726*^9, 3.5780121541875*^9}]* t( F( H- L/ {7 l/ S5 q$ n. R
}, Open  ]],4 ~- E6 W& [) X

3 |+ R- T6 r+ R# GCell[BoxData[
3 o6 [+ A7 w1 L% b, V9 \; Y9 { RowBox[{
# p- V0 `1 _1 l" R3 Z  RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", 5 ?7 a$ D9 J6 h6 p4 @/ U
   RowBox[{"1", ",", "i"}], "]"}], ; @" a" B% K" L! ]' c0 s8 `0 I, ^( M
  RowBox[{"\:5230CM", "[",
/ H# A+ T8 }2 i$ s# I4 ~   RowBox[{"21", ",", "i"}], "]"}], ! _9 M: E& J8 @1 \! y! s
  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
1 ~1 A) I( f& D" P: P; I! ]\:51fd\:6570u1\:5230u21"}]], "Input",. E! S! d2 J4 W: L9 y! E* S# G3 k
CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {5 Q# x7 ^/ J! [" z
  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9, ) D- T& ?' X8 a$ g0 E/ n& l  w3 y
  3.577960526583145*^9}}],
* j0 Y6 q" b5 p
3 Q1 ^- \6 [5 k# kCell[BoxData[2 W& ~0 d# u+ e" L# v, j/ a
RowBox[{"Clear", "[", "Delta", "]"}]], "Input",) G. n8 v- h0 |9 B9 f- H8 j
CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
8 d2 \5 p# ?* y- ~6 {. j6 x1 T( r2 ]: e
Cell[CellGroupData[{
' R8 M. a3 ]! i# v7 z; w4 H0 ?, u
Cell[BoxData[1 T! M3 i& R4 M. l
RowBox[{"Xa", "=",
& R/ S. c# `$ o# v( \) b2 V  RowBox[{"{", 0 ?) @! \  f4 ~* n
   RowBox[{$ ]( ~( T  n! X* y3 r' K5 E+ H( a
   "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
8 s/ j- @8 C% ^0 N    ",", "x8", ",", "x9"}], "}"}]}]], "Input",
7 @$ x$ c- X+ @4 M9 J CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
0 `& i$ E+ C" A+ B* V; y. {& I
& T( u3 ^- ]3 M* S+ w! D' p5 P6 p% ~( eCell[BoxData[
4 X4 Y! u& ~) W  Y& i- F  ^ RowBox[{"{",   y$ G: o# n" d
  RowBox[{' J8 ^* x4 @5 S7 n% A
  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",) f3 h' h* a+ S, Q9 W' S
    "x8", ",", "x9"}], "}"}]], "Output",: G4 s+ R9 Z6 G8 f8 |. h% R
CellChangeTimes->{
: D3 M- I4 P; P  3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
8 P; S5 \2 O+ J   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
% ]/ W' g5 p, j$ O+ J% e: l   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
# F& e+ E6 W. A7 W/ J   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
3 o& q! }" K. D8 T+ x: J, x" c   3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
% V( u$ j9 G% x: X& X   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9, & S7 T+ v3 d8 X
   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
3 f% ~1 j# y' }% o   3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
* R# n; J/ j2 `% v6 ~+ q, `   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
! _  m2 [+ v6 d7 u2 h( w   3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9, * `  _; z& C/ n+ r( D3 q
   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
* j5 S3 v+ }" [/ K! [8 L% ?* u5 k   3.57801215725*^9}]1 v0 f. w3 t8 v! B, J2 W: i: e
}, Open  ]],
0 Y9 m1 f7 r: x- m+ @# M: T/ P! i0 L7 }
Cell[CellGroupData[{- }# X8 S/ L* F: _' J2 p
  @+ @  s, `( }1 D$ z/ l& c2 Z
Cell[BoxData[
% K& J. u% |9 m( {. G RowBox[{"Ca", "=",
% x0 P% x- \4 D# a* L! b  RowBox[{"{",
7 w0 v4 h- I) e7 u: k* X   RowBox[{
$ G0 Y# F( b, D$ C" w. T& I8 e- {   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", # [3 L; K8 G9 p+ F8 g, ]9 g% Z' S
    ",", "c8", ",", "c9"}], "}"}]}]], "Input",
$ n3 }* e( y4 r$ S: y: Y; y CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],  F9 k, ^. `6 @
. _* E9 S9 K, t+ m9 Z( N
Cell[BoxData[& ~0 ~5 t  Y8 N  W& }, t9 d- E
RowBox[{"{", ) U* H' E# {; R8 J1 v; O2 z
  RowBox[{
. j- X& u$ I2 m& N7 L, i7 e( j* b. ~  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",5 m) J0 A- A. ~- q
    "c8", ",", "c9"}], "}"}]], "Output",8 `- P3 x& t) d0 }" G- X9 m
CellChangeTimes->{. v/ E# S3 P/ f# h  T% {1 D
  3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
3 D2 x: p4 k# W# |: q9 x   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9, + N" S% t' p) j: r2 n; S, n6 U
   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, - n/ V% w' q8 _# `8 X* N! U3 P5 y
   3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
6 z5 h6 B3 ?* C1 q- s   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,
  L* k& R/ `6 `2 [( c: y) D, ~   3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
9 f8 t; [% n- |8 I   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
3 _) F4 b6 S: I3 A   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, % L4 O* ~. K! G3 a  y
   3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
; H. D/ F' \" Q- t/ y3 a* _: O   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {. g  X+ ], ^! m/ A1 L0 |" j
   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
0 r5 ?7 }2 V5 }   3.577961904604212*^9}, 3.578012158671875*^9}], Y% C: F1 Y7 x) Z5 ^
}, Open  ]],0 w, e: t* R* E1 C- m
9 b' a! r- g9 U/ ?# {$ h& E0 p: K
Cell[BoxData[* o( F5 ]% F, D) B; j$ i+ m
RowBox[{"For", "[",
. v  x0 o" |7 \  B) l# B  RowBox[{3 B; `8 A3 d( E2 Q- h/ c5 H6 }  H
   RowBox[{"i", "=", "1"}], ",",
9 a3 F$ Q8 [8 k/ I& g   RowBox[{"i", "\[LessEqual]", "9"}], ",",
2 X+ B- n, ~) s( s   RowBox[{"i", "++"}], ",", " A2 w7 h  k" H' \# z
   RowBox[{
6 Q) \: P& i  t: r5 B7 ^. l    RowBox[{"Ca", "[", 5 G! j- j+ Y) x# v% C: u' }
     RowBox[{"[", "i", "]"}], "]"}], "=", , ?: E! D1 S, w, B( X
    RowBox[{"CM", "[",
5 u" y7 b: y. u" L     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",3 B5 ^) e& C) e6 ~: I2 }1 ]
CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
% g) R% x' H8 B( E4 \) c' y" \   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9, 6 z1 L2 R: z& ~' M' e
   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9, ( n+ U& h4 P  r& l" {: }+ e
   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
' M7 d3 g# N+ ~; r3 J+ j   3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, 2 M5 r& @6 x7 G4 q7 A' c4 ]
   3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
: }) k2 ?3 x! q" j$ c   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
- a' n8 Y+ S9 {" F: z   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
% z8 M! C& M! e+ G/ |7 W+ t   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
( T3 b7 }# @3 Y9 G, J& u/ U3 {   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9}, - |( Y# C9 t: L! S
   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
" `$ Z, Y; }/ R& A   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9, % F! i9 j/ ^$ N, ~
   3.577961906897415*^9}, 3.578012176296875*^9}],
5 r  B4 P4 N+ L$ i* p6 T$ d9 x+ J& g- g/ J
Cell[CellGroupData[{' ]' z3 ]8 S! e5 d
3 l/ u8 l$ H( ~* w- H
Cell[BoxData[( _9 J' _  b# }: b
RowBox[{  N' T; f2 Q. b9 m; |. M
  RowBox[{"(", 1 b- o6 E% z/ D% K
   RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
  C9 @" T/ J! j  RowBox[{"(", & X, i* V; U' J+ w& H
   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],, B' p9 o  k$ F7 X# a" n

$ o$ }* h7 E! Q+ iCell[BoxData[. k# J4 e7 r/ C* ?) b4 a
RowBox[{, v4 g' x# {, a* L! v8 l0 p" W! Y
  SuperscriptBox[! y- m- v' H) g# z3 X
   RowBox[{"(", , L/ s/ h4 j) W$ q
    RowBox[{1 n; G& v& L; e. K
     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
. e& z% |  g" L  SuperscriptBox[
: G! ]0 v, b7 v# F! F- |7 H+ h6 G- I   RowBox[{"(",
" d+ g# [  x* f3 U# b    RowBox[{4 Z# R7 ]6 N' m2 _/ O2 V
     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+", ) k8 T; F3 `8 F9 d
  SuperscriptBox[, _+ w" _6 G9 L+ _- o
   RowBox[{"(",
1 S$ W5 m- M* Y) ^    RowBox[{% n$ _0 n# {6 G0 n( _5 i
     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", 1 q" q' |4 s3 \
  SuperscriptBox[0 V% l# i6 s8 ^* D# R. e
   RowBox[{"(", * c" n0 D' i" d; ~
    RowBox[{
2 Z7 N: [( [0 M; D     RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
; C. D3 S+ M  H  SuperscriptBox[' [7 }# i, N! ]( x
   RowBox[{"(",
8 E! P9 j: k$ i& {5 V" j$ K; ]4 j, o- X5 G    RowBox[{/ V6 n  x8 R0 o8 w/ x
     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", * x2 a8 [5 \) T* M
  SuperscriptBox[
8 S$ G8 o4 Z: V* n. }   RowBox[{"(",
" W9 E9 q/ a! Q8 w* D4 t    RowBox[{; p" p4 G* S% A3 g: z/ W
     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
3 }3 j' t. M3 p) A/ D  SuperscriptBox[5 {( J3 d. V2 h1 E4 k
   RowBox[{"(", / R$ B& G. Q* E! t
    RowBox[{
  M  w/ R9 _, s     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", . d  L+ R7 _' V3 y; ^: D( W! s' b
  SuperscriptBox[
; J$ |) g( z8 a( z( m7 ~/ x9 D/ b   RowBox[{"(", 8 G& Q1 q9 R& {- R
    RowBox[{
0 v. X$ o. s) t0 D7 K# R! O1 S9 ?     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", : S* U% v$ X- t, I% ?
  SuperscriptBox[# J& a9 `! m( b9 c* f  {
   RowBox[{"(",
/ j. y  ~" {& T' b    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",8 S' E! p/ l# e4 s
CellChangeTimes->{# m; \# P1 S4 r, _" S! {, D
  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, 9 b6 e: r$ L+ W# p$ U  O: {. r
   3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9, 5 m) d2 D! U: e( k
   3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, , u5 a. T' K1 f2 E' D2 Q, N% }
   3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9, 7 A5 m: ^- v9 n9 I6 e. M" W
   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, / E7 c, H/ k/ e; u5 a
   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
4 n$ H6 b0 o% T   3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
3 {  ?3 r, y* R   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9, ) e; T) \  P" |* f) C0 \: z$ j
   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {/ _2 g3 C, ~& O" H; r0 R
   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
- D+ s/ x( i. a* W& j" m) a/ G   3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, 1 X! ?! _4 e+ s  ^
   3.5779618537169228`*^9}, {3.5779618846049767`*^9,
: Z" R+ @" l2 ^$ a   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]( B0 x" S% F/ |6 m" `
}, Open  ]],
4 H: N7 t9 |( G+ K" Z
& S8 ]; f4 H8 F9 sCell[CellGroupData[{
# {% t3 p/ n* M0 o  P# ]6 m: u! t2 q8 W; A0 Q
Cell[BoxData[: F/ I6 O! |% o6 o
RowBox[{
5 ^- b' t9 v6 E* b) f! [  RowBox[{"Ca", "[",
, Z6 ?0 w' x5 u- W6 m   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",
$ X+ j3 c2 x6 |4 h CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9, / i; r( f! c+ y* F! B
  3.5779616465173616`*^9}],
# M- X2 [% \8 G% G9 [( Z% k" V/ u/ P8 E" T$ W8 V: k) [
Cell[BoxData["0"], "Output",5 ?# C& Z& ~' c
CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9, 2 E% f  `) x) |3 I, T
  3.5779616484049644`*^9}]
" x2 @% h8 K/ q/ W% t3 I}, Open  ]],
, S% k3 [- c% U$ ~' ^/ t9 V* Y
" l( m3 t, a* u3 m9 aCell[CellGroupData[{; Z  s2 m- ?8 @) Q) D& J  t# V
/ F' ^' Q! b& j: n% p
Cell[BoxData[1 |: k& A' W5 I: }. n; m, b
RowBox[{0 P+ F! _: y& h- c; G
  RowBox[{"Ca", "[",
9 W& T2 |/ {: p& [7 X. ~   RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
  d) z1 D6 r) P: f$ k$ }/ |) B+ M! {$ a CellChangeTimes->{3.577957376235614*^9}],
/ l9 [' f" t% P, }- J2 ?+ L  T# r* Q1 b$ E+ w: n
Cell[BoxData["0"], "Output",
* [9 i& M( Q9 B6 w: E" U CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
* {' \, a! f& J: U- e2 I$ Q9 _}, Open  ]],
0 o1 @+ a. Y; @* [+ q* h( x
' W5 E; l1 g* r4 u# D# ^Cell[CellGroupData[{
5 p  ]$ J* ^4 M/ x2 v) I+ U) d
- L  R! a# }" _4 y& J5 wCell[BoxData[+ h3 i  f* l' L/ J1 h$ \  }
RowBox[{* @% N# g3 c! }. N' b# W/ ]
  RowBox[{"Ca", "[",
& t- c5 [. }8 i2 G1 l6 C   RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",6 y& ]- P/ ?' g$ m& j) d
CellChangeTimes->{3.5779573112927003`*^9}],
" J0 N$ F9 Q( d( y
2 u( _7 ^( S7 U3 }/ MCell[BoxData["0"], "Output",
8 W( E! [6 e* M+ A7 C! N8 \ CellChangeTimes->{' X$ T' ?7 l- n
  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9, : y+ U* I- y' _/ F% Z8 n
   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
4 u& |7 w7 z$ f( ?& T   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
' W$ M" d: m" r; `1 j   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
, X5 ]3 a2 B; j/ u+ M   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, % s, V: g4 m/ {' R. A8 @3 g
   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
. }- h4 `' Z* O; Y+ k  g}, Open  ]],# z" `% ?* d1 c2 U% f. K5 w- @+ h

4 Q2 W+ r' Z4 C- z5 a, s" ^Cell[CellGroupData[{) w% s: p6 f- l
( ~  @4 T9 u: Y# m) r
Cell[BoxData[+ j0 w) a4 u7 y
RowBox[{/ a+ k5 J! |5 q, n  E9 A
  RowBox[{"Ca", "[",
/ d1 `/ b$ m, R1 T   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",3 ?9 T8 @/ D" y; f. p3 l4 S8 H  n1 c
CellChangeTimes->{3.577921461734375*^9}],
: }9 T% N9 |: v+ u1 U6 u- l6 D0 D: ^
Cell[BoxData["0"], "Output",
# B  D; @& P! c: A( n* U( x CellChangeTimes->{
% _, E4 h# V5 I6 K  3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, + G' v8 y2 e0 J% }! \
   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
" h3 m3 f* n9 z) Z- e1 s4 z, m   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
5 r; P  J$ D' q0 N   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, " C* E, V& E* B2 k! C- s9 t! X9 `0 F
   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]8 p! t( W/ h- _2 z
}, Open  ]],7 Q& m  J2 w- i+ u  M0 V8 {8 _0 g. h

- O7 }( v3 i( t# g- W: GCell[CellGroupData[{  m& n. _  o' k6 ^6 W2 Y( m0 E

( p+ e0 H: R2 V/ VCell[BoxData[& w7 L* g/ Y) b5 j8 o7 V
RowBox[{
6 }2 s6 l5 C; l  R  RowBox[{"Ca", "[",
- f8 R; ^: @( y% v+ k5 ~   RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",& K4 y$ s4 [+ {9 h5 ~$ {
CellChangeTimes->{3.577957303118286*^9}],5 W5 m5 k* J- G' I) t
8 _( q' m: G5 B: P8 y/ }
Cell[BoxData["0"], "Output",
) a+ i+ A! i" P6 X* }) F, |2 N CellChangeTimes->{
* R4 I+ ~% p- a5 K) l  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {! y7 x, `# X, G0 h, c
   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9, 1 _% h& |6 ~. Q+ i2 y9 W3 E  b6 E
   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9, 8 C. ~0 ]" P* S  b* T
   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
8 T( T6 H6 d0 T( h+ L2 w" T   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9, % P# O. ?( X: n" Q( U% F: Z5 F
   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {9 L+ k$ p9 c0 R8 i0 I3 |2 w
   3.577961889378585*^9, 3.577961912965826*^9}}]8 ~( ^8 j4 m# w
}, Open  ]],7 j% |* g, `( B% E
0 A& U& |8 E9 }: O
Cell[CellGroupData[{; S2 m0 w" z: {, H/ x
( D+ n" c4 V) d  S+ w5 S
Cell[BoxData[  Z& A0 `( q: |! p, o8 d2 s
RowBox[{
$ k" ^9 F0 t! E" F# u& D  RowBox[{"Ca", "[",
# e. [$ B  ]7 y! a% b! M   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
: [% I6 z) h' j CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
$ Y5 l7 N0 v& Q. v$ ?7 a  3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,   q" _- T( V% c( [0 o
  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {6 P3 D4 S1 f' b* z2 d; z
  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
; o$ n- R6 q2 ~' _( \  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {2 i' o' ?# q8 K0 ^1 _/ N
  3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9, 5 u# E9 l! \& [& k
  3.577921435703125*^9}}],0 v- w* T) m, a- ^, d

, H+ U$ l0 A0 s" {7 B& [& uCell[BoxData["0"], "Output",
, f$ u5 Z, ]% E" Q/ M5 X. K CellChangeTimes->{
" @  R$ u2 G0 |: t8 G  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {8 i) l+ s6 l5 z6 B  E  R
   3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
6 [' D7 x! Y1 `/ l4 _. _8 i1 v' ~   3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
) b  q* v1 J' s  m( w" K0 `* W( Q   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, , S- G3 }# {. l! Z* l" ^7 S6 \
   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {7 y# a/ u- J3 H2 j
   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9, 6 W: M9 L/ D' f0 b: t
   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
8 v) f: k1 m% J   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
3 n8 W8 p  O5 W7 y# j3 D% x   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
+ r2 w6 e& t3 e; L  `7 |  {. ^   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9, $ U3 z3 Q! g* z) {5 r8 M
   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
: A4 o( M8 ^' ?   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
: M' N7 O  w! a# o  _+ r! i# ~   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
/ R0 u+ _! o( W}, Open  ]],8 E7 W: H) a- H0 u- g
# }3 J2 I# `! {
Cell[CellGroupData[{
2 u1 b. S+ x& Y; o8 ~8 r% r( \  R1 i5 m9 |# X# J) G  b
Cell[BoxData[
' g' v9 G+ R( E. C RowBox[{"Delta1", "=", " x* a" N& m  z+ L) d% t
  RowBox[{
8 N  W2 `0 i8 E+ Y' S# c2 u   SubsuperscriptBox["\[Integral]", , j( q+ l9 a1 n  N/ d
    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 5 ]; M: d# U6 e
   RowBox[{8 a1 c  t4 @3 y9 V
    SubsuperscriptBox["\[Integral]", , e/ `- ^8 @  K0 [3 J+ @5 y" T
     RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ; }, `  D! l% q) E5 T& N
    RowBox[{6 x0 G1 \" @0 n5 k
     SubsuperscriptBox["\[Integral]",
" }$ }( U+ D0 G( G8 N. ^      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 2 S+ }6 D2 q8 U3 z1 Y
     RowBox[{
( g+ W. b+ P9 o3 N, g0 c      SubsuperscriptBox["\[Integral]", 6 ?; I, r( }  _" t6 _1 c; J
       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 3 U5 P. \' V% |" ?+ v2 S/ G6 r
      RowBox[{
( q* _' t! m  I& s: y; e       SubsuperscriptBox["\[Integral]", 6 \' L. L* D' F* d+ Y
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
8 e& x5 R, E# d  F& U. R# ]; C       RowBox[{
5 K6 ~5 ~2 J5 s9 \        SubsuperscriptBox["\[Integral]",
8 P$ z' w  j1 @; f4 T! u         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], / l( e/ `; e4 T' M: {0 u
        RowBox[{
6 V- o5 M+ C: e( V0 G9 Z         SubsuperscriptBox["\[Integral]",
. ?8 g6 c4 X( g# h          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 3 Z. y( v6 b& X( |7 `
         RowBox[{
  T* ?1 z2 H, ~  P+ Y          SubsuperscriptBox["\[Integral]", + @% t6 M9 n# k% L2 W
           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], / \, p' w& m( y, t
          RowBox[{
4 L* d$ v( n: d- i" ?- g           SubsuperscriptBox["\[Integral]",
9 v2 a- C( l6 s2 s* M4 d            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 5 s; ^! D" N9 D6 u9 j! u  j; {
           RowBox[{  F: a" K" [6 v- m$ E" Y
            RowBox[{"Exp", "[",
) W, `( @% v2 T$ I/ z             RowBox[{
* B4 O/ N1 [% e3 |              RowBox[{; i4 a1 {& N0 S$ c) Q6 _6 A# |, e
               RowBox[{"-", 3 S. x- V% S7 }# D/ M8 Y
                RowBox[{
: D+ e; v4 A) T0 A7 j                 RowBox[{"(", 0 ~3 T# d1 T' w& s4 O( d; A2 n
                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
  X" y% M# F3 p. [                 RowBox[{"(", * |8 p0 N, ~& W+ ]9 S
                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", " n* g/ z  U( y* j4 G( @  w
              "Delta"}], "]"}],
9 n& o0 f. c9 `9 d; |            RowBox[{"\[DifferentialD]", "x1"}],
6 U1 Z, ~- f3 i' X: ^( b            RowBox[{"\[DifferentialD]", "x2"}],
& a- [) d% U# f7 W            RowBox[{"\[DifferentialD]", "x3"}], ; n* i6 W3 x! o3 F" Z$ x9 z& g
            RowBox[{"\[DifferentialD]", "x4"}], + O  |. [6 J$ e
            RowBox[{"\[DifferentialD]", "x5"}],
! I" x& u4 a3 r6 [            RowBox[{"\[DifferentialD]", "x6"}], 6 k3 }+ v3 b5 B$ ^: L
            RowBox[{"\[DifferentialD]", "x7"}],
. U. D$ V! R: i8 j+ s0 H            RowBox[{"\[DifferentialD]", "x8"}], ' ~$ j) R3 P8 D4 S! |
            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
; j; N& }+ n$ g: ^2 s$ r CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {6 s! |. ~( z/ R
   3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, , l$ t6 m& E" p7 A9 ]
   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
0 p1 e' ^# F4 c" n% z+ W   3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
& p2 V* ?9 T: r6 z" V   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {: k- |7 E, j$ x& G2 p, g
   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, ! }4 k' X& h* M2 s- o) [4 J
   3.577918964453125*^9}}],
9 j  D2 W$ Q( `, n7 o+ p7 |0 t, J4 o, U1 A' S/ G4 i+ T; H
Cell[BoxData[) b$ c- }3 q6 h' H+ P0 b
RowBox[{"97.40909103400237`", " ", , I" W$ r6 X0 ]$ m  _% ~4 o
  SuperscriptBox["Delta", "8"], " ",
% J  N0 _% W" r* Q7 t# a; ]) C  RowBox[{"If", "[", 1 A0 w$ Y5 C, M# P
   RowBox[{
; E5 w* D. _; A3 i1 Z& G/ u    RowBox[{& Y8 i& W7 `2 `, w
     RowBox[{"Re", "[",
7 \; C" {) k* Q5 X      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",   _9 ?) @* y; i
    FractionBox[
- b  g( _3 M7 e# [     RowBox[{"1.7724538509055159`", " ",
* K4 |% J# l9 m5 M/ [7 I8 d1 U      SuperscriptBox["\[ExponentialE]",
3 Y/ m: r5 I/ F+ B, f, f5 i0 I* O       FractionBox["1.1102230246251565`*^-16", 3 H9 l: V& I2 j! k
        SuperscriptBox["Delta", "2"]]]}], ' `' \% U# F5 N3 u* h' j( g
     SqrtBox[: ?, ?+ }+ M+ \: F5 F$ G7 u
      FractionBox["1", 2 i: A7 J/ W# q; I: Z' |2 {" J
       SuperscriptBox["Delta", "2"]]]], ",",
% u0 ]' _& d9 {' j+ i2 a+ ]    RowBox[{"Integrate", "[", 6 I3 t9 ]$ Z% g: P1 X! C7 H- k
     RowBox[{( k) e* w* \% D1 B
      SuperscriptBox["\[ExponentialE]", 0 D* j, N0 b  o+ y: y
       FractionBox[
3 P% W- X& h; W$ g) P2 A        RowBox[{"1.1102230246251565`*^-16", "-",
! O+ @: [: _1 T; Z! f- z1 L5 `         RowBox[{"1.`", " ",
! `8 N" j# F7 W" _) f7 z          SuperscriptBox["x9", "2"]}]}],
3 u% [+ X# B! p- k4 b& `0 Q        SuperscriptBox["Delta", "2"]]], ",", 3 n, z2 [5 O% k( a
      RowBox[{"{", # c% `# @8 T* A: D
       RowBox[{"x9", ",",
2 B' m) |' k% J        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", / N/ |2 ]; S$ R
      RowBox[{"Assumptions", "\[Rule]", + q2 T( q: r8 X0 C/ a
       RowBox[{
' m6 E/ P  @! U- T        RowBox[{"Re", "[", 4 J( U9 z+ \, c. u2 ]6 U. N0 s2 {
         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}], + j3 |) D+ F, x7 a/ v6 X
     "]"}]}], "]"}]}]], "Output",
% e& K7 w! Y' N4 Z- l8 J CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, % x; T; O- m' ?2 `# h; p2 v
  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9, ( o) t( F3 F2 J: H( s- a6 ?
  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
9 @4 t$ s! X' \  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9, ; C8 k; V' P3 T% j9 E
  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
+ f' I- f" ]: T. _8 N  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9, . U$ b, Y* g) E) _* J* U" L
  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
- C/ s& O$ x/ Q8 v4 M}, Open  ]],
! f( W* f9 f1 `6 J( s
9 _8 X  u& A  |$ I/ CCell[CellGroupData[{
& Q3 E3 c% ?) k3 ]* m6 c$ F" V+ R  \4 ^4 B
Cell[BoxData[
5 Z! _" b3 n- Z8 d RowBox[{"Delta1", "=",
& c9 F& O( R  j9 m- Z; @  StyleBox[
  A; Y5 d- Q3 u- t0 j$ O' t  f9 g   RowBox[{"97.40909103400237`", " ", * }( p1 L! m9 Z4 t( O$ ~0 {: `
    SuperscriptBox["Delta", "8"], "  ",
) W( x6 y9 I8 q4 X    FractionBox[. M! T5 k1 p, |
     RowBox[{"1.7724538509055159`", " ",
' l* S  Y6 f3 o$ ^      SuperscriptBox["\[ExponentialE]",
' N4 F' n% g0 ?* Z9 i       FractionBox["1.1102230246251565`*^-16", ( Z% l  R2 S; n- Q
        SuperscriptBox["Delta", "2"]]]}], 1 ?3 Z3 N/ @0 k* @: Q
     SqrtBox[
9 K: g% ^7 w5 j$ Z3 }4 N      FractionBox["1",
' s. b& K) y$ Q; j6 O" N4 m       SuperscriptBox["Delta", "2"]]]]}],
9 G/ W8 {9 C2 z( j7 Y/ e   FontWeight->"Plain"]}]], "Input",. G* @# ~* [: ^" I# c
CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {: {, p" h- \: N' c: \; e5 k2 p# D
   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9, . k3 ~1 c0 w! i; [, X: ~
   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {9 ?+ U' L& i& m1 h2 l6 t( r
   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9, 6 a: j5 ^& P; p# \+ V
   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9}, 7 `0 ?$ q1 [+ g" G
   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
$ L; {7 W0 n6 @1 |4 x. V' P
% M% t/ t' R1 r6 |4 LCell[BoxData[
0 f" N/ N9 E  r* B FractionBox[. e9 i: g- X& [
  RowBox[{"172.65311851642346`", " ", 0 r( F/ Q/ i- W/ J" S
   SuperscriptBox["Delta", "8"], " ", ( u4 L. s+ e. H* U
   SuperscriptBox["\[ExponentialE]",
- A$ o( Q: J8 S/ l( z    FractionBox["1.1102230246251565`*^-16", 8 U0 y7 c9 L1 B$ V# u
     SuperscriptBox["Delta", "2"]]]}], 0 I. D( b3 B% I- ^) w3 V7 o6 i) G
  SqrtBox[; Q7 Z: F- c' o+ Q2 I4 n
   FractionBox["1", 4 K5 W- Q! `4 W: ?  _* }  B
    SuperscriptBox["Delta", "2"]]]]], "Output",, \  `4 P* M8 x% o" A+ u
CellChangeTimes->{
9 ]; _8 m# X3 G! g# e: _* R  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, 6 h0 R" W: B; u7 S, D. G
   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,   u7 x# W9 M8 @' e) ~7 L& z3 T
   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
' u" d# d" C3 ^( {% h. V( R   3.578012166234375*^9}]6 Z6 o3 G5 J" m) X* t# y4 q/ J
}, Open  ]],
9 y+ b! O- e. k. v) z+ m' E" b
1 _* W* c" V# _3 n  u1 K. \Cell[CellGroupData[{' W) q/ o  ?# R6 p3 _+ c; P6 ~
8 M5 q/ z7 P$ d
Cell[BoxData[& Y# G/ L% k) W4 r5 p& f
RowBox[{"DeltaX", "=", 9 ], Y! `2 m. A
  RowBox[{"FindRoot", "[",
3 y- Z2 }( x  h( v   RowBox[{
' s/ t. x( s" r5 y    RowBox[{"Delta1", "\[Equal]", "1"}], ",",
9 U2 }  Z% I' B+ u! r2 }) \    RowBox[{"{", 3 i" Z" m, S! `7 l* ?3 r& r
     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",7 L$ O& d7 k" c3 L' [, I
CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {7 ^& F  t$ R' L: |# }( w, d
   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
" K. t6 `3 ^0 }3 w; s+ J) r% S   3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, 3 w: q( w" s' k% d- b
   3.57791921584375*^9}}],5 i/ C9 s" K: K! t6 `
4 \. }4 T, C+ d3 Q3 V, Z5 I
Cell[BoxData[" q' g; e! [, S* ~
RowBox[{"{",
5 u0 B$ H. T% }0 C  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",7 ~  W; a4 \- k* w
CellChangeTimes->{7 q" ^) j- v) n
  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9}, $ E4 c  e: o" V) c
   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, . E7 R" T# \! [7 Y, R1 B3 f
   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9, # _1 `# c$ W3 j0 q; a
   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9, 6 x' D, [$ P, v- X# |
   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {) I' L- |4 R5 s# q: h0 \
   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, 8 z4 N" y: T4 ?8 B" ~; x; i/ I2 M
   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
3 @; N6 ^9 e) L$ e! K7 X$ O3 V   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
; e" s- B3 l) R8 N# E   3.57796070150625*^9, 3.578012167703125*^9}]/ d- N7 p3 y0 p3 a. I$ E5 p$ q& Y
}, Open  ]],
1 b4 _. S, i7 u' S, ?, n$ D, W  W1 L7 z0 q; i, v8 n! @  E) @* f
Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\2 c- {! a& a/ l' ~: k
\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
6 @9 f& u! f' r CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
, H2 A9 @% Y* R7 {  3.577960705312657*^9, 3.577960707621461*^9}}],
% [% ]' o/ }8 I
8 H# G0 K- c! C' fCell[CellGroupData[{$ }: h: L5 j! w, s/ @

: @5 B* \& i* G- z+ f& KCell[BoxData[1 a& ~" c' P6 r% ?  p- u
RowBox[{"C1", "=", "Ca"}]], "Input",
/ {9 G1 c# G  U& @4 Z- Q) Z CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
* i+ p/ m  I, A% {5 @  L" ~" s+ E; j6 b4 d5 i
Cell[BoxData[5 X* R6 h/ |$ o9 W: C
RowBox[{"{",
: J4 e% n/ ]8 n; e  RowBox[{* o# L$ h! g* B
  "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", 1 g4 i7 e* Y& Q; J4 f/ ]
   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
0 I; O& n3 H6 R# ]' D) _: E   "0.`"}], "}"}]], "Output",! y# s% x% @+ E8 U4 ~/ ?4 l0 y
CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,
0 i& K' H) v7 W2 N) o/ ~  3.577960710273465*^9, 3.5780121855*^9}]
% ~" N6 ~" V" `+ ?% z}, Open  ]],
# |1 v. x# P7 A9 z6 f' u/ o
* F) X+ f8 ]: WCell[CellGroupData[{
, V0 U& o$ Y0 n% h$ A& x( k
3 c$ O6 m# B* Z! c9 W. m+ a& aCell[BoxData[
8 g+ t3 E% {! W4 A( P+ C RowBox[{"u1", "=", - P( P3 U* C* v  B: w
  RowBox[{
) v! i+ M9 r0 a9 }   RowBox[{"Exp", "[", 9 ^# m# x) K  S9 W* I# E3 R: j
    RowBox[{
, p8 B) r- X3 ]" a7 i) P: R* q. ~     RowBox[{$ ?( H. l* c3 {" Y
      RowBox[{"-", ' T- x7 q4 n' d2 a' t5 R) O8 Y
       RowBox[{2 J. D9 d# u9 D; i  Y
        RowBox[{"(", 2 I6 u3 l6 M) Y% Z+ ^8 Y# p  j
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", . R& A# r- U) ?" r
        RowBox[{"(", 2 c  B% _9 q/ U. f" f1 ?& j
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],' d( A3 j( l6 `/ p
     "]"}], "/.", "DeltaX"}]}]], "Input",
/ S4 {; H: L+ h7 ? CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {1 y( F- Y9 q$ P+ x
   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {* w9 S) a0 B( p4 o% h* A
   3.577919193484375*^9, 3.5779192326875*^9}}],
, y, P! z. `1 Z( f# l# T6 F: E5 O8 Q; e' m, Z  q: C
Cell[BoxData[
# n* Q6 `  ]5 ]" \ SuperscriptBox["\[ExponentialE]", 7 i. M: ~4 S. c. Z8 f- r2 n
  RowBox[{"3.141592653589793`", " ", + W3 F3 g4 w! k0 h4 S
   RowBox[{"(",
; e1 {3 x; H/ k" _3 S5 K: h1 ^    RowBox[{1 e( `! p* Q4 }& T; i
     RowBox[{"-",
; n& ^2 m0 K9 W) y  R3 K      SuperscriptBox[
: {2 l5 k6 S$ h( J! ^: _6 V0 L/ |- o       RowBox[{"(", , x) y7 g$ V0 c: z3 d
        RowBox[{
3 j4 e# E* A( A! r1 Q         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
2 `) t  Y$ V( H1 I! `' n     SuperscriptBox[7 Y, ?7 {- H4 [+ d1 F
      RowBox[{"(",   a& V. M! U* V3 P
       RowBox[{9 Z  L) x. t! F0 N7 L
        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", & ]' D9 H, m/ s  _  g. G
     SuperscriptBox[9 R9 _& F: q% }: q) R
      RowBox[{"(",
& F) `) o# V& T       RowBox[{
' c" d; K# _' |0 g/ m& p        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", 2 j7 n6 w  n' t' D4 Q
     SuperscriptBox[6 f5 P. ~% t, A6 h6 ?
      RowBox[{"(",
( q1 o9 k1 s* h9 P; P8 u# e       RowBox[{. P- r: ^, \; x" |9 A& V
        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", 0 `. K2 v3 s! @
     SuperscriptBox[
( z# O( V  @* N/ y3 ]      RowBox[{"(",
$ P  t, ?0 x7 c  g# j       RowBox[{
- k% b; Q$ V, b3 p        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", 5 d( s0 g$ K+ F9 S" @" I3 L: E4 v
     SuperscriptBox[
$ b/ G. ~: i* G1 J8 e# R$ n5 q: o      RowBox[{"(",
$ O2 p4 V5 ]! h5 j7 ?5 \       RowBox[{8 p% Z, O1 U: P+ W
        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
$ B4 o) n6 l# \5 L; N9 I     SuperscriptBox[
; n% ]; l7 T1 U% e1 y9 d+ W      RowBox[{"(",
7 m9 E7 f3 H1 P$ I       RowBox[{
8 f  G& J! _  o( p; T        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", # `! a) [2 P" X: H7 H
     SuperscriptBox[8 k$ H0 n5 }) ]% p
      RowBox[{"(", 2 `8 H' k* Q: O+ P: V
       RowBox[{
$ c: P- v/ \; i4 B: w0 M. \        RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",   b" O9 E! t. B+ P) W
     SuperscriptBox[
* h8 m( F; d) ]      RowBox[{"(",
# u: D4 I: N; }" Z1 ~8 [7 X8 ?1 B- P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
. {3 m0 G! z8 t    ")"}]}]]], "Output",
; I/ y5 p) r+ P  C CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
. ^, A* Z* n! Q7 v  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, # x2 |+ b0 v9 ?% ~
  3.578012187078125*^9}]
$ M# o$ _: k" j}, Open  ]],1 r8 J7 P# U) U7 d, {. _3 Z8 F# G: I- v
- I1 I& j" C: N7 K/ ]
Cell[CellGroupData[{$ ]' r# x* k, B3 J* l1 X; v1 A' [% S

4 V! {: k7 c7 K7 w: M2 r% {Cell[BoxData[' a1 w1 V' n: o( U
RowBox[{"C2", "=", "Ca"}]], "Input",/ M/ N+ v, _0 P  j2 p) N! Z
CellChangeTimes->{3.57792047321875*^9}],
: v( b$ s+ J+ w$ k& s/ N+ ^7 q7 I6 _; `1 f5 D* Y
Cell[BoxData[
+ m- [" p" M# |2 G- W" e RowBox[{"{",
4 _: q: z+ e! Z1 O* U  {8 m4 t4 J  RowBox[{0 n' G7 g; i$ ?( o
  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
0 v7 u9 T7 G  _1 y% n' p   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
! R- t2 Z% D$ y; h% f2 G  "}"}]], "Output",
& Q0 y/ K" F5 h" n6 G9 y9 m, v. ^ CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9, + q, d) m. {* g" l1 B( I' h
  3.5779607401163173`*^9, 3.578012204671875*^9}]
3 c0 I& d5 N7 G3 n3 @/ v}, Open  ]],
( N1 b* o' r! R5 Q& w; R5 l
1 ?  c0 {- d) m7 H4 [% o1 ]Cell[CellGroupData[{
( i8 ?: A9 g, H* F6 l- r
3 Z7 b6 E: ^8 j% YCell[BoxData[
8 W9 G4 M$ e9 I: T6 b8 c RowBox[{"u2", "=", ) g5 h7 q7 |/ i: g
  RowBox[{
7 I/ \5 I2 V1 C) A( _. }. k   RowBox[{"Exp", "[", 0 ^) m: ^( A8 n- W: v
    RowBox[{" A2 x7 k( [! k/ H+ Y. ^' h$ {7 n
     RowBox[{
" x" W; @3 W1 R* g& O7 M      RowBox[{"-", 6 T& a  ?3 l8 \
       RowBox[{! G' D, s, k5 v2 @2 h
        RowBox[{"(", % H3 ?% P( d; R4 ~5 `& C9 U' s
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
& R) ^5 _% K9 U. T( {  @* W        RowBox[{"(",   m; R0 v9 }; |! W1 |
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
$ }; ^4 j4 |/ T' ?1 ]     "]"}], "/.", "DeltaX"}]}]], "Input",
9 |- [3 \  q0 C3 S7 S3 I, d+ i1 L CellChangeTimes->{3.577920484109375*^9}],9 \/ p' _# N' h8 j
: s" G4 R2 @# P' O
Cell[BoxData[
  m$ {1 P5 g$ f1 B9 i SuperscriptBox["\[ExponentialE]",
( _6 q9 X6 P+ d  RowBox[{"3.141592653589793`", " ",
3 [) {; b# U; B   RowBox[{"(",
9 C0 e$ [* h$ i9 q    RowBox[{
8 c, D6 P" F; c& f     RowBox[{"-",
' y8 S1 F9 L# Z6 \      SuperscriptBox[- Y0 J1 ~; W; I
       RowBox[{"(", ) H- c( ~+ a7 l4 A
        RowBox[{: y& B( z' E' n7 E: w7 L$ v# v
         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", ) l/ J( v: U' H" P2 c3 L% A
     SuperscriptBox[, r! j% L$ g) ?% l" G+ ]2 n8 @
      RowBox[{"(", . k! p2 w7 X9 G! s2 t) D' Y/ \: s
       RowBox[{
( V: T2 {' a# _1 K- x: m        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", 4 A  |& {0 [6 {
     SuperscriptBox[9 }  O" c) Q& _( k% I
      RowBox[{"(",
/ v" V3 d& X: q. i* ]       RowBox[{$ N' P2 G- z7 o! M
        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", ( ~& @% Q' X8 q4 R% l  a9 L
     SuperscriptBox[
) l7 h+ F2 I9 H- p      RowBox[{"(",
9 o  [. k0 M% h' f3 N& {7 @       RowBox[{
! Z; c( O: R1 a8 `4 l7 L; w8 D        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
; l" Z5 `! Y. O0 Z  H* d) ^     SuperscriptBox[
8 k# f: Y. `4 T6 p1 F      RowBox[{"(", ; u" p  a8 h7 f" o4 Y. `
       RowBox[{& e. L" c# W& F- P
        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", 6 x  r5 k: X1 j  T/ N$ _1 h5 U
     SuperscriptBox[
/ g  E" d% l# d# t7 J+ d1 }; e% _      RowBox[{"(",
: d* Z' h5 z! E* q* f8 w9 M6 s       RowBox[{
" H, A# s1 X6 ?        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
4 i6 b& r* _' G6 ]7 K6 A+ i     SuperscriptBox[  u* M: I/ K! J" q& h3 D5 y, n
      RowBox[{"(",
0 K- p) \! i0 i$ I$ L4 B: `7 }       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
% P3 j6 c2 Z+ B! F( U4 o     SuperscriptBox[
' }4 `# N% y- t$ ]# i      RowBox[{"(",
* c- |! B6 r* ~5 l/ T       RowBox[{
% y) m3 x8 B$ W; I        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", ' u2 d, ]2 t$ u$ p
     SuperscriptBox[" T: e0 q3 X# Z  k: R
      RowBox[{"(",
3 [/ ~+ x* @) c6 {; E       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
/ O" @) X* E4 f; C# E1 n    ")"}]}]]], "Output",- ^/ ^. p" N7 A+ m" c" e1 E
CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9, , S: s4 B" |4 x; Y
  3.5779607413955193`*^9, 3.578012205484375*^9}]
" w, o5 y# c  a  Q  i6 u}, Open  ]],7 a9 q0 X& q8 x5 P3 K
) X  v, B3 y6 w
Cell[CellGroupData[{: m) y+ Y; i8 `9 t8 H% X+ ~
5 X- E+ X/ h7 L) B
Cell[BoxData[6 y; ^7 d* ~2 j5 {# U
RowBox[{"C3", "=", "Ca"}]], "Input",' A$ h& n2 Y: w3 n) _  E2 Q
CellChangeTimes->{3.57792064125*^9}],- ?- Z' q, T! F/ g

1 D; j' z% z8 W# G; I5 ~& K$ GCell[BoxData[# k0 _* @4 y3 E# S
RowBox[{"{", % w1 Z9 m2 B1 {% ]/ u
  RowBox[{
% o/ l: p( G  s2 ^0 P- m4 o5 e% |  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
+ M- R1 j2 s. g: g  i; Z   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}], & Y. Z) D9 J) B9 w! K% I& V, B9 `0 c
  "}"}]], "Output",
/ c3 r" y0 B- d8 ~( \6 [, g CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
5 q4 W9 Y5 ]" N  3.5779607642027593`*^9, 3.5780122103125*^9}]
+ M, M: a5 O) w  p  @}, Open  ]],) `6 j- B4 t0 {! l
1 `& R3 a$ l. p. C
Cell[CellGroupData[{
. i- P7 A8 Q; C+ U, f, U* s
2 M1 x4 J5 l% L$ KCell[BoxData[
2 p6 z5 k6 o1 S4 x1 S) _+ _ RowBox[{"u3", "=",
9 m5 T. Z* E8 p9 E9 O& G; f0 ?  RowBox[{
7 `9 d" U  F5 p- m2 W   RowBox[{"Exp", "[", 7 S; y: e. n5 v: T# Q; _5 K/ I: a
    RowBox[{
  l( S9 C9 c- S6 h7 G     RowBox[{* `+ U. ~7 S6 U5 t6 E) J/ B* b
      RowBox[{"-", $ c3 J0 @+ E- X: N" W" N1 v
       RowBox[{
& z( x+ \6 t6 J. h3 U- n4 F        RowBox[{"(", $ I# Q  X* g4 p& [' ~9 u
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 8 w3 k, ?# E( g" [* I% [$ z! M
        RowBox[{"(", ; q3 t* g5 ~4 V( S
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],8 L! p" l( G) {' P, _1 |6 I# v, B
     "]"}], "/.", "DeltaX"}]}]], "Input",, W0 q+ S( A3 ?9 U7 N" ^
CellChangeTimes->{3.57792064921875*^9}],
6 k& {6 j8 L, c
6 V% d* A2 W( KCell[BoxData[! d- z1 _2 M8 p9 F
SuperscriptBox["\[ExponentialE]",
& `& j+ n% Q) V/ s. C+ L  RowBox[{"3.141592653589793`", " ",
' c' n, `& w# i7 u   RowBox[{"(", 6 x) X5 a) }. s; @2 A3 K2 Z, W# c# A
    RowBox[{( z  Z. }3 l( V; V' e) b2 Y9 }
     RowBox[{"-", 2 k+ C5 H: C: O0 J( e1 j) O0 T# g
      SuperscriptBox[
6 H- n' Q9 \' S       RowBox[{"(",
* [" x9 B9 S8 ?1 i# x2 Y" E! X        RowBox[{
( ]" \* N7 B- H! h; Q( K' w: [, d  r         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", + d. e: C' C8 w( b5 D
     SuperscriptBox[- i9 [, D2 {4 E, u: }, e! Q( Y& t
      RowBox[{"(",
: X7 d: _. I' e# K6 U" W. \1 g       RowBox[{
% I- u$ O: ^; d$ _/ C6 |        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
) l- U! U; G0 y     SuperscriptBox[  O3 ]2 Z2 }0 N  l3 F  b2 `* K; Y
      RowBox[{"(", " q! {- ]$ R& Z6 ^8 {( G
       RowBox[{( v; h; p, T+ K1 D
        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
3 O/ I# F3 w1 x7 t8 M; ~! Y     SuperscriptBox[8 x# e) b! L" _) R; ~
      RowBox[{"(", . `! ~0 T; b+ H! W* M
       RowBox[{" G) F. s+ S  D* g/ m0 u, v
        RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", 9 f/ S! p  R2 F
     SuperscriptBox[
" r  ?! x$ Q' K+ d8 S# w      RowBox[{"(",
9 y/ r$ t" m4 Y$ `8 ]       RowBox[{
+ K0 Z+ K- Z' L# e        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
# y- }) z: t% O' \. U9 C- K2 K     SuperscriptBox[4 i* p+ a; i! t% \! m: p
      RowBox[{"(", 4 g) O8 g/ V; B, M  q1 S8 S! |  q3 E
       RowBox[{
  x: y0 ]9 U6 L% _  ^, ?        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", : i9 R3 |6 V4 z3 H
     SuperscriptBox[% m: E6 R* R& k
      RowBox[{"(",
9 L  `( r2 L. i, u       RowBox[{8 I5 a5 n# E2 ^; T) O7 Q
        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
9 ?( n9 c1 K7 n( i" v, c$ X* b     SuperscriptBox[
, y  }+ R2 D# }6 ?* u      RowBox[{"(",
4 R" A/ T7 X5 C       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
, R( J3 |8 K% {     SuperscriptBox[
. f, f9 B# \9 S. O, w/ z      RowBox[{"(",
' h3 H8 Y0 A+ K# f; c# o) D       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
& J8 ~1 V0 q- A- s: B    ")"}]}]]], "Output",0 H  p2 n0 x( X+ z. Y% P1 l+ ?
CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
# w4 k" Q' A- ]  3.5779607654819613`*^9, 3.578012211515625*^9}]: k& F' m# q* z6 v* C9 K7 M
}, Open  ]],
# b& I" g! N! {. f- n+ l9 {, C
* R6 A- D: M: H# S8 x+ uCell[CellGroupData[{
  s7 J1 Q: O8 A" i6 Q1 N# R2 c) y5 H" \: G# ]( J0 W" O& |
Cell[BoxData[
/ w9 \- F" T* U( x, y/ ~ RowBox[{"C4", "=", "Ca"}]], "Input",/ s$ D& ]( t  d2 e: A9 \
CellChangeTimes->{3.5779207559375*^9}],
. l1 Y: m. n$ u- P# y( S! w& c4 x" Z  |& T
Cell[BoxData[* q. ^& E- M; N) v; [0 s0 j. \
RowBox[{"{", 7 e! ?$ h! T1 R4 m, K; W7 y9 r" f! n
  RowBox[{! V& @1 M' _5 v
  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
4 n, J* @) N- c   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}],
" T$ t! c# }6 I  "}"}]], "Output",9 w9 _2 G. y8 @
CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
& G3 B  I; [- L: c# \- M! m* D4 c4 `  3.5779607861363974`*^9, 3.578012216171875*^9}]# j/ Y, P% L/ o9 C* `3 t$ p: T' R
}, Open  ]],
, M: i; R( x  e1 w7 h
* F. t. c; T: L( Y. `& mCell[CellGroupData[{
5 d4 \* O& {- P# Q9 R" a& Y! w" x, i& g
Cell[BoxData[
( g( @; ?/ [: f* \ RowBox[{"u4", "=", $ ^# F" K; k. x7 b
  RowBox[{. f3 u$ V6 J# C# x  i
   RowBox[{"Exp", "[", / X# f' c3 K) O/ H! d
    RowBox[{" ]6 v1 R1 L6 J$ }; N5 C
     RowBox[{
4 Z- M1 G" {) f" c- I# ~      RowBox[{"-",
+ R8 n# A/ `: S5 _* W* {! ?       RowBox[{
) v8 r1 P; ^8 }5 o) [+ q4 T        RowBox[{"(",
3 x" s5 A9 a) P6 r5 f         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
' m) T3 h! N' ~9 J; K$ p% ]6 J0 @        RowBox[{"(",
; c" }( _# j3 Y+ u) D         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
7 m$ [, A3 z3 A  q6 X0 ?; [) J7 H     "]"}], "/.", "DeltaX"}]}]], "Input",
* R! N; j/ |0 D: \ CellChangeTimes->{3.57792076325*^9}],5 r3 ?1 Y9 S# @# _
8 ]& C+ V" X/ S7 I* z6 M9 H
Cell[BoxData[
* C* i" n& U3 ~- s2 ~! u7 B; }% Y SuperscriptBox["\[ExponentialE]",
2 v. T# b4 Z3 Y6 ^* c  RowBox[{"3.141592653589793`", " ",
. j8 B1 V0 R/ K0 F   RowBox[{"(",
3 h$ q. v4 W* P. X* `1 r    RowBox[{
" c* \  k2 M9 i; Q     RowBox[{"-", 8 c! i3 J- N. I3 K
      SuperscriptBox[
# R6 C9 |. P# r0 C* U2 D* D       RowBox[{"(",
, j% u. |& @6 v9 E- H% W. F        RowBox[{
# z0 v" K0 ?1 M' R* T6 V5 V         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 1 n( u) V4 Q, I
     SuperscriptBox[. l) B% I: v; u5 x  g
      RowBox[{"(", 4 [, o2 h$ h" w, k) R6 F
       RowBox[{
% N0 S) i2 j% `$ g7 ?        RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
& I+ V+ c0 |7 _0 _; [     SuperscriptBox[
# w/ e; i) q$ N; b* g- `      RowBox[{"(", 4 B* U& Y7 K4 T: R) e$ A
       RowBox[{
8 P4 S' E6 D& p3 m        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", - A- I( Z( k" ]; D9 Y
     SuperscriptBox[
. f4 Y( r$ F" U      RowBox[{"(", # U% K) l. |9 W3 B" s
       RowBox[{4 x4 u2 ?( ^1 F1 Q
        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
: D: e6 L- H* \! o" D- O2 a; P     SuperscriptBox[- h6 u; g! |6 V% W$ Q
      RowBox[{"(",
1 a4 G  M2 c$ B7 S       RowBox[{" G4 w4 S# b. w! c9 O8 C
        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 8 i3 F6 o# z6 F
     SuperscriptBox[
' m) W9 F; |1 x% M& O9 e      RowBox[{"(", 8 ]4 k4 V9 J/ O% _6 b* A
       RowBox[{
" f" ]- e1 C- j        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", + b$ A' W) q' U! M' D
     SuperscriptBox[
. T4 S! N1 l, q      RowBox[{"(", 7 a6 Y5 ]/ g; p( ~7 k
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
3 B2 ?7 x0 `9 l8 D     SuperscriptBox[: |1 C0 ~( o- p4 t. j* f
      RowBox[{"(",
$ ]+ X- c( B( X$ K! z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
3 c5 q0 P0 `4 \; r% f     SuperscriptBox[
5 b5 P# K$ @1 Y& y0 L6 H3 O5 V8 C      RowBox[{"(",
. q8 H) O6 _4 W/ n       RowBox[{
" ]7 }8 H' U# D6 h/ ]        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
# ~8 `  r/ a  }$ Q' I( H    ")"}]}]]], "Output",
4 U% d( ^8 E3 }3 e CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9, $ [) ^+ n2 v, A! V. H: L: }6 S9 y
  3.5779607873531995`*^9, 3.5780122169375*^9}]6 A" q1 }5 l8 }  D$ G& Y6 z( C1 I
}, Open  ]],0 Z& Q6 w6 t1 ^  X4 [: c

+ v1 B0 d0 u& |$ ~: k  O: C! y% JCell[CellGroupData[{
. `' c7 c$ [; F) r! R
. Q* n/ u3 G: ~* y0 RCell[BoxData[8 H! ~' C+ _3 d8 y7 B
RowBox[{"C5", "=", "Ca"}]], "Input",
, r& ~, m4 m# N; C1 D: z" i" a* R CellChangeTimes->{3.577920860671875*^9}],
2 M" z/ n- {! t6 O$ N2 H3 ?" W( S/ n! M; g
Cell[BoxData[
& f2 v. L. X1 C* {% | RowBox[{"{", 9 B5 a& H8 |+ Z+ {  V" b1 Q' C
  RowBox[{
: g* m2 b3 V7 l' J7 P  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
$ Q6 n& m4 _, K2 D2 ?3 b   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
) N; X! u& g$ t2 v) L, L" M  "}"}]], "Output",  E4 }" i7 s. Y
CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9, + I# n  N) Z' s9 O: J7 F
  3.5779608137328453`*^9, 3.5780122209375*^9}]
2 }0 w) i6 C& d}, Open  ]],
  ^2 i: X! e$ l; a& G6 v. M. [0 C  E8 v/ R
Cell[CellGroupData[{
# B9 b8 \# e: E% J0 R4 s2 x
) \, Y" c6 H8 E& ~Cell[BoxData[0 h4 j( O* ?- J7 r/ ~7 X
RowBox[{"u5", "=", 5 }1 Q0 w. d: O- T3 W2 d! ^; r- X  W
  RowBox[{+ k+ n  J! u) N. m
   RowBox[{"Exp", "[",
% v7 T3 I* a5 Z8 u! V( z) i9 S    RowBox[{
# w' X; A8 F# C2 K* i7 [" H     RowBox[{
  N8 e: [7 P/ W2 I- N0 ~& G      RowBox[{"-",
8 g/ w9 m" c( v6 A/ a0 `       RowBox[{% |$ k& P  Q" w5 W
        RowBox[{"(", 5 t$ v/ [! l& N: l) g
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
* ]" ?+ T+ u0 [# _7 P        RowBox[{"(", , R6 G; R' b# r( e3 g  r
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
2 p3 J( L( ]7 d- @: m; `& y     "]"}], "/.", "DeltaX"}]}]], "Input",
" }* v5 G2 R* [" Z0 H CellChangeTimes->{3.577920869375*^9}],
" m: ^7 r1 [8 t2 ^, ?0 i" y) H7 ?' ^- }4 d
Cell[BoxData[
" y  W& Y$ a# P2 {& p3 M% S SuperscriptBox["\[ExponentialE]", 3 V1 w- r5 I2 l. T
  RowBox[{"3.141592653589793`", " ", 3 ~$ g0 {% T( r2 W5 ?, q+ H$ u
   RowBox[{"(", 5 Q8 w* v* W# Z3 k$ y6 x! |  p4 b
    RowBox[{- e6 p% T0 G. [" c
     RowBox[{"-", 5 C- B, B' B/ l. ?6 Q
      SuperscriptBox[
0 {4 c- y/ }  B$ G$ m4 U7 b       RowBox[{"(", 5 P% i' s' H4 q1 l- z; f+ P. ?
        RowBox[{( [2 A0 F) Y/ l. m) T  m( e
         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
% q8 {. R0 ?- k  E0 }; g- O6 S/ a     SuperscriptBox[
" @8 w" M9 b/ G2 V* Y      RowBox[{"(",
5 C4 K& D* V1 e( k; B$ ?* T       RowBox[{
' x4 s$ s3 K- l% i        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", $ c( Q/ q: L( d- }8 R
     SuperscriptBox[
' g( T1 G! ^! X      RowBox[{"(",
- m% i2 V/ O' s* i, [) p6 |       RowBox[{
$ L" X; Y2 B9 f/ j; K9 f2 T        RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", & z) z" P' ^1 w5 [, P
     SuperscriptBox[
  V- B9 ~: Q* I4 ~. l7 C' R  I+ o      RowBox[{"(", / ^+ o) T/ d/ y$ p0 C
       RowBox[{2 D$ ^6 V7 z0 T# i
        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", 3 |0 z. t3 Z7 e$ c3 D- u- Q: Y
     SuperscriptBox[
8 s  t$ a) N4 S/ Y      RowBox[{"(", $ \- o) ]/ d2 Q3 k  d
       RowBox[{
) D7 }* ]5 s  J* w1 L. e        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", + M1 c, V  O) v% E
     SuperscriptBox[
- b. s6 H6 y# G* ~$ C      RowBox[{"(", . \7 }* U2 s( n: K% `1 G
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ' ^* |" U' Q4 j; H
     SuperscriptBox[
4 P5 z* e  Q' U/ m: m# x/ G+ i      RowBox[{"(",
1 V* L. S2 P+ c' Q, `$ {, Y. @       RowBox[{/ b& S4 X! H9 r
        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
( {1 X& a6 U8 `$ Z4 `6 K% ?  A     SuperscriptBox[+ E- i0 t9 A5 w( Z8 |
      RowBox[{"(",
' \$ n, G9 D3 k$ D$ W6 C7 z5 u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
; p1 A3 {2 n3 f+ \. a- s+ _; P     SuperscriptBox[
, |  J- \+ j- @  X! d      RowBox[{"(",
' W. |: Y$ k, R# h' _0 Y       RowBox[{
# M4 r; A5 L4 s; T: L        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
! \3 g* S. b* v# Q. n2 ]0 Z    ")"}]}]]], "Output",
* s) [1 T9 N! e$ m% r* Q6 b$ b CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
' B  C) |' @. m1 \; p  3.577960815043248*^9, 3.578012221953125*^9}]
6 Z, K$ G9 ]* }5 _" q2 S  R0 l# s}, Open  ]],* W) C' ]0 `: u2 n, A/ ]9 C

* ^3 H& s( w: p) M' K7 s: q2 B5 TCell[CellGroupData[{7 ]  w( Z" Y& o; t5 v) R, L
# {' }# S* N7 I* }0 l& q) e
Cell[BoxData[  ~! _3 X+ Y- n! x) \
RowBox[{"C6", "=", "Ca"}]], "Input",) G7 `% `/ q/ C" b
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}]," @3 X& N: o2 T' d0 F/ Z+ a! Z- _# V
- ~: U( k8 b* o" `* O
Cell[BoxData[% w( S1 o1 D: s3 U; B
RowBox[{"{", 6 p! b) x7 n2 P2 i: F1 f
  RowBox[{( r1 d; n) V  a0 O( `: D2 a
  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
+ X* {  |" M; z1 z. J* K   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
+ L, I$ K2 X0 A' k0 v( o   "0.494866`"}], "}"}]], "Output",
/ ~, l) K, X) R, |& |  p. s2 | CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,
. y0 i7 R$ k( {& S2 n( D1 c   3.5779608373044868`*^9, 3.578012227359375*^9}]
( z4 g5 u/ d2 X* F/ V! f' Q9 Q}, Open  ]],. a1 P$ R/ i. K

5 |4 \& r6 F  }1 n, ECell[CellGroupData[{
, W4 [6 }# }8 l5 U/ T# [
2 ]/ s9 H; ^5 U( Q/ F. {Cell[BoxData[: M) K0 f4 D2 T9 C) \+ z
RowBox[{"u6", "=", 7 ^; s6 s7 J% O8 v5 s, t
  RowBox[{
# c. {# F- R/ n: M% ~  M( h   RowBox[{"Exp", "[",
+ R; P/ g& S: S3 U    RowBox[{7 X2 V- M8 I6 {. D0 P1 z" X1 y# U
     RowBox[{
* P4 x& H9 v# ^: K5 ]      RowBox[{"-", ! P& F$ J  M! U) n% w& {
       RowBox[{  ]9 [1 ~( R) c' x# R; ^; g2 r
        RowBox[{"(", 9 X, |* R; J9 Q4 M
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ( t* L: D& U: f/ D2 [  A: V9 v: o
        RowBox[{"(", 0 T/ ?5 J6 C- Z3 `
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
. }7 W* M  s- _- Z  R0 {  c     "]"}], "/.", "DeltaX"}]}]], "Input",4 Z7 l8 r! Y( L6 @
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],6 z8 d& C' j) ^+ }* ~4 b

( V' D! e2 w% Y2 {Cell[BoxData[9 C4 L4 i2 P5 M: g5 y
SuperscriptBox["\[ExponentialE]", ) A4 A3 S1 B/ M3 V- P: P/ ~! v4 x
  RowBox[{"3.141592653589793`", " ", 8 G2 I5 _" x! f+ ?' ?
   RowBox[{"(",
  `5 H+ u1 _) N0 g: O) S$ |    RowBox[{
* T: k+ `% R9 R5 N     RowBox[{"-",
9 n! I! j6 v8 J; k4 _* [$ B4 s      SuperscriptBox[7 K: b' B& _) g5 F* _* N
       RowBox[{"(",
# k# }+ y. d# K) O        RowBox[{$ x9 l( w3 }7 m0 K6 W3 b( `1 U
         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
# R$ }; j5 k& n1 w     SuperscriptBox[1 d2 M2 p6 |$ f) F2 }0 R) |
      RowBox[{"(", + W) i% E9 I, W
       RowBox[{
; M: S! ~% G6 I$ d" a) a        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", $ f% q, V, k4 v$ p
     SuperscriptBox[
5 |5 e: u6 B1 `- C5 K      RowBox[{"(",
; r! h+ Q4 R% u6 D( j       RowBox[{  e& r, j7 c* ^" ~, e0 ]
        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
% H- z$ P! p  x, Q/ ~     SuperscriptBox[
3 z5 L- R/ S3 T      RowBox[{"(",
3 P4 o: }) T- k2 g( v6 x# m9 x# n7 ^       RowBox[{  ^5 Y/ i; Y) _2 [. ?" B+ s
        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", ( ?2 J! p) \9 N3 O6 ?5 A$ T$ r
     SuperscriptBox[; e; X7 a, P: j" [8 v" F$ \* z
      RowBox[{"(",
# O! R& D: [4 R/ ^) Z       RowBox[{) v% a6 I: E5 K9 f, ]2 }
        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
3 B: @$ Q; m+ Y! w     SuperscriptBox[/ m/ ?8 ~* j& s0 A/ ]
      RowBox[{"(", 9 S/ k8 R) k( W) M( Q' f
       RowBox[{$ \# y  D8 a- \7 c, C% m+ b8 l& [' s7 R
        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
: t* P) `+ g  ]& O1 X, i+ M' _     SuperscriptBox[3 I4 r3 k) X& \9 c. c3 G3 N
      RowBox[{"(",
' r1 R$ G2 K+ d, O0 o; d       RowBox[{2 {$ P0 W4 {/ s; r( _
        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", 1 z  O- \* `5 q$ G( X: S4 V
     SuperscriptBox[3 s3 X9 N) o+ R! X9 W' |
      RowBox[{"(",
1 j' A3 y# c- D1 k       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", : z" A# Y1 b, S; X* a) c3 ^# N6 w
     SuperscriptBox[
2 o: ?' Z3 ]: o' B2 `/ e      RowBox[{"(", $ x  a" v  H* {% V! n; P
       RowBox[{9 o3 h+ z  I! l6 i) h
        RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], , C% R+ p: w: g
    ")"}]}]]], "Output",* q" S0 L4 e. ^1 x( S; b- \0 \; `
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
% g4 F5 ]8 J! q( z  3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]% H+ G5 C, G. x+ T
}, Open  ]],
& X/ y  C8 M7 L3 Z
+ v" b6 M3 h1 I0 L; h* G1 _  ACell[CellGroupData[{
( U' P& g3 e0 c5 y6 E! |) V# ^" D- [9 y) \) A8 v7 V
Cell[BoxData[( J2 |, W8 @. f
RowBox[{"C7", "=", "Ca"}]], "Input",* P6 A2 C8 ~# o( A6 ~8 R) k
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
4 u3 ?$ B8 Q- N4 V  N* I/ e- {$ d" d  3.577921316125*^9}],
& U) I5 r# P# ~3 F$ ?6 Z0 L$ P! ~2 C
Cell[BoxData[# p7 J! ]6 C' |% P+ p
RowBox[{"{",
+ B) k! P, L# P. H2 k  RowBox[{, r4 F% m, W4 _; |* x/ ]# ~9 }) ?7 x
  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
! z0 [) F  K; n' l/ ?   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}], $ w" y6 O2 Q) _8 j$ W
  "}"}]], "Output",& d8 d+ L" `  P* y: V' D+ \9 s3 }
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, # l! T* W, i/ P: a
  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
- w  e! k% l9 A0 G. ?% n}, Open  ]],( X, D6 ]4 e, n5 U. ~# W
( u- |: e' y# n+ o  E" J; ?
Cell[CellGroupData[{
* M0 G$ a' Q1 p( |1 e- S$ r/ Q
/ y+ W7 Y' a. z. o! I; n+ {- qCell[BoxData[
, ]) y9 Y; H. c* B RowBox[{"u7", "=",
# e( U" j0 [6 s7 o1 L  RowBox[{* i+ H) z4 B, [8 h8 ^
   RowBox[{"Exp", "[", 0 u! B! r! r& _2 |' P. U: S
    RowBox[{& r3 R5 Z+ `$ N' `
     RowBox[{; l. R4 h/ e2 _
      RowBox[{"-", * s8 v3 m  v# u6 M" c/ \" c7 n
       RowBox[{
: I' O& h) U  M! `8 ?1 Y, X        RowBox[{"(", $ s) T1 R3 X: o. I$ m6 E- o, ]
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 9 [4 P# q- A5 g: O$ c: S+ C4 H
        RowBox[{"(", 7 j  q  H0 N6 U5 S
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
, u, p% b% w1 V( G1 n     "]"}], "/.", "DeltaX"}]}]], "Input",
. i" i2 E3 q+ e# b' C CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, ! E3 q1 ^& K$ U5 |1 W- S- b
  3.57792132028125*^9}],, C5 T$ K7 U% V8 \) u! i) ?
9 h. y1 t# C: _$ q" m
Cell[BoxData[8 w1 T$ H% y, h7 R: V
SuperscriptBox["\[ExponentialE]",
2 G. {" m3 s, j# }2 c  RowBox[{"3.141592653589793`", " ",
0 Z; F1 k5 `) P0 e   RowBox[{"(", / {4 s2 }) w6 W: g: m$ o7 _
    RowBox[{. e; A  Z- C$ R9 p5 }% q9 `" o+ ]
     RowBox[{"-",
  W& l  ~" N( M+ d      SuperscriptBox[5 z  p6 Y) H4 X' @$ z8 i
       RowBox[{"(", ( g/ f3 f0 {+ Y# }
        RowBox[{, m' `; v5 s2 ~7 _/ H) n
         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", 3 k/ {; F: K4 P1 u
     SuperscriptBox[( l7 Y0 o1 V# |) I0 `. `1 a
      RowBox[{"(",
/ v- T# _, m/ G% g5 t       RowBox[{
5 g# R/ w' r" Y& `3 S# Z  k% g        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", 4 H* k. Z" y6 x( v* V3 q
     SuperscriptBox[
( k- J0 E0 G2 |2 S& _( G: R% L      RowBox[{"(",
5 C" t- A& t- f% s& Y- a       RowBox[{
1 c/ }0 f1 U! ]3 Y        RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", - ?3 U* m3 ~) e: t
     SuperscriptBox[7 \: n" z/ `0 V. h& l2 `. R
      RowBox[{"(", ; R5 @0 e6 O! f
       RowBox[{. J/ w( `/ E" g6 V' p. ^; o( b/ I
        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", , g. b9 w3 ~" t% q4 L* J* z
     SuperscriptBox[
2 ^* m, ?6 J) U      RowBox[{"(", 7 _) ]+ ^2 ~* D8 x& L4 a
       RowBox[{5 L' n7 H0 u7 v& P
        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
% ^% L& [3 f; R( ~0 D     SuperscriptBox[
2 W+ t4 m" U9 Y! k: x      RowBox[{"(", & L3 N$ t4 s; u# N0 B, M
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
  e1 p) S0 C! t& {2 h     SuperscriptBox[
3 x, y) z1 U/ v2 L7 E1 G* U5 o% C      RowBox[{"(",   D' e7 }" @. }5 S" V0 L/ d
       RowBox[{
' l+ S* U2 K/ l; R; I        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", ! M# c' R( I8 t( O$ a
     SuperscriptBox[
9 U4 w+ T3 G  Y" ~2 _, |      RowBox[{"(",
. ^- i* _- [9 B0 m( a       RowBox[{
9 b2 F- \# @9 D; P        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", $ f! `  g- c4 x2 V
     SuperscriptBox[
; a) u6 b7 h6 ~9 @0 f      RowBox[{"(",
' l; A& |  Y8 s       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
+ H+ X! u$ z- `    ")"}]}]]], "Output",3 t' c2 Z5 {2 @* p
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
3 p% s& y1 ~+ k, p: q2 H  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, * {  @) u) `3 h
  3.578012251359375*^9}]5 M2 x- U2 z* ^8 G+ L
}, Open  ]],/ L+ O1 u1 I  j; B. Z" X. }

& l7 ?, i  f, W! KCell[CellGroupData[{5 X' v" F0 a4 u  Q3 w; b8 ^  O1 x
# \4 K' {+ ]4 @5 Q/ {9 ~# T2 q
Cell[BoxData[/ E& Q% f' t: x! w8 ?1 s7 l3 Y! e1 i
RowBox[{"C8", "=", "Ca"}]], "Input",
# s/ A6 t2 {6 F7 \1 k5 t CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
9 }% a0 l* E$ G4 b  J6 Z* U  3.577921316125*^9, 3.57792141421875*^9}],% }6 g4 u8 @7 k7 q/ x) T( D2 s4 N* K
" j) u/ D& w8 O* {
Cell[BoxData[
; W) I7 w/ b) b3 m0 f! _ RowBox[{"{",
# G: ^  \' l. Q3 E/ z; P0 A+ k  RowBox[{+ p3 n+ i* ]3 @4 L3 o- p
  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
5 F- p8 h" R: Q3 \& N   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
' Y5 `, Z' E% N" l7 A  "}"}]], "Output",
' n- S9 B$ ]2 B0 h CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, % u1 M; ~" {: B1 c! T5 H
  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9, 0 g# s* `; y: ?. @. [1 P
  3.578012260515625*^9}]
) Q$ F: l9 a# ?5 G}, Open  ]],$ Z5 }0 s  Z8 }% F) x

  P0 j0 J' U1 y# L. |2 }* c" kCell[CellGroupData[{
* A( N+ W5 L' A% o- w  h
# h' R8 h9 ]1 x( R9 O+ _Cell[BoxData[
) k2 z% k7 g4 v8 Q. z; v RowBox[{"u8", "=",   V" T& i& ]. }% g0 a
  RowBox[{
0 g8 a; {8 j. ?   RowBox[{"Exp", "[",
3 q# D7 H, X/ I, p* y5 t1 l$ f. A    RowBox[{
8 a( V* H$ h. m- o1 e- @     RowBox[{2 h: @8 N3 d5 C: q) y9 }
      RowBox[{"-",
5 Y7 G) Z) p& R" P: g       RowBox[{2 {& ]. P* g& w  V
        RowBox[{"(",
, r7 L2 N8 h; f3 k: a- ?         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", " V- o1 l7 U' E; }
        RowBox[{"(",
0 q, W6 S3 N/ b         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
$ h: v# i% t2 C- b8 V     "]"}], "/.", "DeltaX"}]}]], "Input",
: Z( {% J/ z6 ?- x CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, ! U- B3 i# J8 v
  3.57792132028125*^9, 3.577921416921875*^9}],
2 j# ^; P2 ?! C( y' \1 @! N
- u5 S8 a1 i' y$ i/ |0 BCell[BoxData[& f- E4 J) \" m! G9 K
SuperscriptBox["\[ExponentialE]",
# @5 W: \2 t9 h* Z8 Z  RowBox[{"3.141592653589793`", " ",
8 Z* C& R, A. B0 B3 t   RowBox[{"(", * c8 T  ^! k! ~; P+ d
    RowBox[{
8 d* @, @0 X6 u2 `     RowBox[{"-", 0 F+ n% s. ]9 A8 O7 }  F& m
      SuperscriptBox[
4 `. i; v' }. a. E+ k6 {' b       RowBox[{"(", , ~, Y, R* ^1 u$ h0 {( D
        RowBox[{
" x. V' E% g7 q+ g8 L2 t, k7 H         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
* ~! s7 w  i- j. O+ B6 n5 Q     SuperscriptBox[
1 C6 {/ Y4 K( x- V' a  i      RowBox[{"(",
1 h' S: ^, w+ Z: V/ [& `       RowBox[{; y- Z8 I# t' f/ D; Q9 e$ f& d4 m
        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
6 m$ p5 D9 K; R$ q3 X     SuperscriptBox[
4 ]% s1 W( a' F# f      RowBox[{"(",
  ~; W' I6 p0 \3 |0 W- J       RowBox[{1 R; y4 I4 Z$ v2 c6 d4 h
        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
9 J& S, q. I0 p" p# _- \     SuperscriptBox[
! x, Y( K8 p+ P6 ~0 Z/ ~) w      RowBox[{"(", " l* n3 N/ {5 M* c  L5 l) ]! o
       RowBox[{
. _- K# U, L1 _4 M, X8 M! H        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
# V1 f5 o- o/ Q, E! K     SuperscriptBox[+ ^5 D( n5 U" t) k% Y
      RowBox[{"(", ; [4 E0 Z4 K4 u1 u
       RowBox[{1 |; A' \! |  |7 R; I
        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
; ]8 I. y; X) L( s5 h     SuperscriptBox[
: y3 B$ s; S8 k! a% T& g      RowBox[{"(",
: _' r7 y- P) \& o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", : @1 Y# K- u5 o7 y
     SuperscriptBox[- A" |! P  W5 ~. Y' E# o8 I; W
      RowBox[{"(",
" L3 {: b5 B8 G& ?3 E! ]# L: p       RowBox[{9 j1 F+ L& t+ D
        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", 0 ~7 f( y  K1 c8 v7 c) k* E3 p+ [
     SuperscriptBox[. c& j# z  @3 M* J5 _
      RowBox[{"(", ( h# m4 Y" W; _* U6 r2 k5 E$ E
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
; J1 Z4 p6 _$ E" y     SuperscriptBox[
+ m5 D+ ^$ Z" l6 e9 d: O) l+ H5 \6 B      RowBox[{"(",
* A& G! y! N4 c       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
2 `5 _$ {/ Q9 @% {1 y' X6 b    ")"}]}]]], "Output",
* {: _6 F+ x. y, u& }0 ? CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, " t3 |/ B" q5 }1 a% O
  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
3 @; n; |+ d: L8 @" I  3.5779608945565863`*^9, 3.57801226165625*^9}]
: L9 c- j) f9 L3 n}, Open  ]],1 n' O9 P% p+ Y% E  _9 H
6 I9 c( T7 Z) i! S5 P$ k
Cell[CellGroupData[{( y% n7 ]! d; S. U$ U/ ~$ i

' U" C  O6 q" B7 O( ~: U+ B. \Cell[BoxData[
$ k* E' L' |% J RowBox[{"C9", "=", "Ca"}]], "Input",
' @5 X6 J, n- F3 W7 m CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 1 u4 T: s& a5 K' O9 b
  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],
0 C; I) K0 s; a) W) W" o- K. L# A- i3 k, b* g9 w, c
Cell[BoxData[3 J, J* s- r4 v1 M( u; H
RowBox[{"{",
7 H1 `' K4 Q1 D/ U  RowBox[{! i& P7 S( |5 w' R6 _4 q3 [* g
  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",", 0 @+ Z# P" C3 S/ e
   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], 2 A4 }8 P3 w9 }
  "}"}]], "Output",
3 }% Z- i/ v" Y' l CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
0 O6 b( a8 ^0 [* N. {  |( P6 I  3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, $ s9 N' J- [  c: s/ z$ c
  3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
4 r4 n7 T0 ?: l. z. q6 b  3.578012268234375*^9}]
: W/ @3 S/ n6 F}, Open  ]],
8 S% t- L5 D- U) e& f
, g8 a/ h+ B6 I3 U; dCell[CellGroupData[{
, T* J6 j. M* ?3 ~  V/ Y
+ j2 W# Q: |0 V1 BCell[BoxData[
4 a9 O: k1 z( a' z RowBox[{"u9", "=", ' ?+ T7 J! E( D
  RowBox[{& C/ J# [' c2 E9 x5 r/ B
   RowBox[{"Exp", "[",
4 Q# b* M1 ]/ v. ~    RowBox[{8 X- k2 R  d+ J8 c/ q; O
     RowBox[{
/ e+ @7 v4 C( e4 z- ?      RowBox[{"-", 2 i1 B0 t/ o3 ~8 {) G
       RowBox[{
. y  N" V- [2 Q: y        RowBox[{"(", / G2 T. z  x$ o& q
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ! S9 O" ^7 J) y3 ~3 Z8 t: A
        RowBox[{"(", 7 H" I3 u) v: }+ U
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],3 h3 a% d1 D% j: \) q3 t; ?6 z1 v
     "]"}], "/.", "DeltaX"}]}]], "Input",/ O8 j; B6 u/ G. p
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
: c7 @3 u( K2 y/ \; E  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],- s" W( I* P8 d

4 c  p' s* D7 gCell[BoxData[
, N+ N6 N% D* E$ i7 ~ SuperscriptBox["\[ExponentialE]",
" n- E, F! H" T; ^$ E% R  RowBox[{"3.141592653589793`", " ", 7 s3 O( v1 ?1 `& w. A, Z
   RowBox[{"(", 1 m( Z. }2 y0 i+ _/ F. R3 I
    RowBox[{
+ `8 Y# d# @. v. O6 G9 Y" B     RowBox[{"-",
) o. ?8 M/ z1 [: G  t3 H6 Y      SuperscriptBox[% p. P' x3 u. ~2 ?5 \* f2 K
       RowBox[{"(",
, \5 I; F4 C8 y! x/ p* H        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", & p$ k( G# n) _7 }6 x  B
     SuperscriptBox[
! i6 a$ {& o# J/ c4 S! b      RowBox[{"(", 4 I0 n# o, c- I4 T% U2 u
       RowBox[{2 r2 f: K! y7 K" V. n8 r
        RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", - ?9 y+ @" B% ~( P6 F
     SuperscriptBox[/ Q, O/ S2 x4 }6 D; [, S) O
      RowBox[{"(", " y' v$ s  f+ z- z9 \9 Q8 b- u
       RowBox[{7 r3 U1 y. y; O1 j5 D+ O5 X: [
        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", ; S' Y; c" C, Z1 Z8 X$ w
     SuperscriptBox[' j4 r) J6 G4 X( k( O! ~
      RowBox[{"(", ; _3 E0 X0 j+ |) B
       RowBox[{7 M! Q9 d; A6 y6 P- L
        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
4 J" Z) B3 Y, H% \     SuperscriptBox[
8 F% X$ l% j8 D% p, y" x      RowBox[{"(",
9 Y. J2 i+ s6 }       RowBox[{& V) A* L; J3 O; t4 u8 y
        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", 8 T; I/ g- B' H3 T) `
     SuperscriptBox[! t+ ?. l& z& Z0 a" v
      RowBox[{"(",
: n: ~# M2 y0 j) r3 e3 z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 4 N1 ?6 Z6 ?- Y6 ]0 f
     SuperscriptBox[0 M% H  V( x2 ~8 G% v7 s* b
      RowBox[{"(", . d" b$ \$ z0 c4 l$ L' O
       RowBox[{
  o3 X3 E  ?1 j2 l- _7 a4 z        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
9 c/ R+ d0 m5 m9 |1 r; J* H     SuperscriptBox[% r, A% R, r4 m3 q* ]
      RowBox[{"(", - w8 {+ s: I2 ^& [2 q5 t6 E) v2 z3 E
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
) E8 J8 r" x0 Z     SuperscriptBox[
( w& b2 l5 W- e* d, Z2 s- ]      RowBox[{"(", / V8 H) v! ]% L( r  ^4 a& c- z
       RowBox[{
5 u' C6 n9 O9 b/ M' Q# B' _        RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
8 @0 F( X7 ]" D, Y  }; `! k, ]    ")"}]}]]], "Output",
9 b# ?4 _3 T5 K: Y: L* r& I) U7 Z CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
- K9 ]- A  e4 D) \! V  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
$ s0 a- d' p- U  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, 8 `( A# A/ H& S: K  s8 f  G" [5 ]$ E( I
  3.577961530421959*^9, 3.578012269125*^9}]& S5 o; j" `7 m; o1 S
}, Open  ]],2 t9 {& ?7 i- H" {

, n4 B- n2 V: iCell[CellGroupData[{# T  X' I  f! y- a3 x# f

( g, g0 P$ n& {: NCell[BoxData[{
% H% p4 \$ _' n RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]", , N$ r& q% ~# U; g1 L# T2 J1 l
RowBox[{"u10", "=",
0 j% k4 u$ S, R8 T  RowBox[{
# `; Y2 q) }1 `) a* P6 G( V3 v   RowBox[{"Exp", "[",
3 V1 j# ], M3 c2 r    RowBox[{2 Z5 |% Y, O9 L* Q$ d8 ^7 E8 r
     RowBox[{
8 ]2 g$ ?% O1 ~4 D* ?$ b      RowBox[{"-", - Q6 q8 @3 f$ K, v2 {  u
       RowBox[{
" [) z9 v) P' O- \" U        RowBox[{"(", . \9 J- p4 z) ?! [% M8 l
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 P7 d2 U  k& ^% w
        RowBox[{"(", 9 @  ^0 |/ r9 k% W
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
! j( y" @, S+ e8 o     "]"}], "/.", "DeltaX"}]}]}], "Input",
, k4 {9 f5 D$ H: v8 l" Q5 z CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],9 \* [* t" R' U
& m: @$ z  _9 U& s$ ~7 B
Cell[BoxData[
2 }/ d0 k' P) r2 l, Q3 h0 U RowBox[{"{", 8 M. Z- u( X6 |& C5 ~9 L
  RowBox[{8 u2 \5 u( Q- ]
  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
+ h* j- b. g: C/ @# B   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
8 L9 p8 P8 L3 Y) ?7 ~' ]  l CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],3 U7 G1 A5 P3 G; w' S$ `7 f

  g# r& I  p1 cCell[BoxData[
" j5 F' K! R2 r3 O SuperscriptBox["\[ExponentialE]",
  u3 N, b) {8 B2 p7 ^  RowBox[{"3.141592653589793`", " ",
$ @& X- A* F: X6 F0 _, `   RowBox[{"(", + D( @$ I# [4 Y$ t( }8 P
    RowBox[{
8 q( j) z8 Q6 A* i: g# z  E     RowBox[{"-",
  l- o: F( Y" r7 R9 B' V" |      SuperscriptBox[
9 H5 X. }2 F3 h) V& w1 ]  R       RowBox[{"(",
0 @3 H; M, S6 y2 j0 g        RowBox[{
! s) f# U$ r. R& R2 t$ Q& S         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
0 `. V9 d8 O  _: c$ L6 L, w( L% X     SuperscriptBox[, R9 n* H$ F4 f0 k  E- l0 v
      RowBox[{"(", 0 J. @( m1 G9 g  D( j) Z/ e
       RowBox[{, H. K8 y5 y, F" _) Y6 |
        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
: v) X2 N0 A7 c     SuperscriptBox[- P# r: Y% X8 Q  J, r
      RowBox[{"(", 0 X6 N" H  D) x# s. q" {4 a6 G
       RowBox[{
/ L# o9 @5 R( H        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",   R. J; S; O/ `# H
     SuperscriptBox[+ `9 C5 U, S" X% @( p3 B0 X
      RowBox[{"(",
8 |) _! j1 [6 x# Q0 T5 L6 J       RowBox[{
( J1 c! ^  s4 @) l        RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
( W& e4 J% T# i0 l: I9 f     SuperscriptBox[
$ q( q3 {) {( J3 J$ J2 ^, M      RowBox[{"(", 9 m0 j3 y- e8 z4 z1 J2 j
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", 9 q" o) u+ |4 B, J8 _
     SuperscriptBox[
4 t3 `9 z' U7 R" A( B1 `6 f      RowBox[{"(",
# ~" V: B3 h+ q! a& C1 z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
- D2 N& t& R9 o3 Y$ k7 q) e, ?     SuperscriptBox[9 N7 D+ T# i: g$ u* w8 o& ~
      RowBox[{"(",
6 f3 C- r  }2 U% w! R; o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
) P; R. C: p8 L. _: @' f     SuperscriptBox[5 v7 P- R" {2 S. C4 z1 G( b( n3 n
      RowBox[{"(",
5 u9 \7 h3 L# k% `5 s+ ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
. e- n$ O9 [/ v" q     SuperscriptBox[, q4 G7 k8 U' G) G$ T* z. u9 x
      RowBox[{"(",
- o. j3 v9 C' D3 d8 G' }: A& H       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], - m* t; n. z! r2 C
    ")"}]}]]], "Output",' M! ]5 R% X4 u
CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]9 R8 [8 _* E9 r5 H1 p
}, Open  ]],: v: Y1 c7 n1 C- e; u
9 f. ]5 h0 s) @. h4 N
Cell[CellGroupData[{& y$ q. l: S! _4 b: f! e- o% ]

# m( `4 T/ }- x$ H, M, OCell[BoxData[{
0 q8 |' H* G( I0 X* f& F3 _ RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", ) j* V& K( l" r1 _! B. R
RowBox[{"u11", "=", - y% t. g& x+ e% Z8 t
  RowBox[{
9 M- d) i) A! w   RowBox[{"Exp", "[",
+ w& V( }' a( Q6 L    RowBox[{! M  O- X( m  a" }6 k0 r
     RowBox[{  R  |9 A3 y9 I. [
      RowBox[{"-", 5 t) _! E1 ~& O4 z3 {6 v4 }
       RowBox[{' S2 i! ?8 ?/ e6 T" z8 g4 [
        RowBox[{"(",
' N/ k! v" Y  W& p         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", . a- r( B# G% E+ b- n* J* Y
        RowBox[{"(", 8 O% H- f4 `7 i& h# B
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],4 s; X# _3 J7 `' L& N) ~1 |
     "]"}], "/.", "DeltaX"}]}]}], "Input",
1 e' A' V& d6 Q9 y  \" Q; G( r; b CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {3 E4 U/ G) A) h( Y; V1 S- q! A9 {& h
  3.57796154237158*^9, 3.5779615434011817`*^9}}],: \5 Z6 [& E8 W) Y3 T' F) }1 s

, S( ~: N9 c5 e! [6 |. oCell[BoxData[
0 ?  _1 d) {! v! T0 m( T5 P( T RowBox[{"{",
. q2 E0 `1 [- H. t( W5 V8 y  RowBox[{+ H& s, N' T- ~1 ]+ E
  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", 4 w+ L/ k/ `2 r3 k
   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], ; O5 C' M: p5 X) E
  "}"}]], "Output",
. R7 z  ~9 y3 @5 i$ r. ] CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, 2 b1 v$ q( A+ I9 L
  3.57801228203125*^9}],
) e) ~1 F, x) f4 r' r; g0 b5 c: ?2 ^- L# a' ^! f/ Y
Cell[BoxData[
) L. ?! p2 o. o" S8 H SuperscriptBox["\[ExponentialE]",
2 J/ j- k- a8 ]0 H* `# q  RowBox[{"3.141592653589793`", " ", 1 |" K: v) R% h# g+ f2 P1 b# b
   RowBox[{"(", ' s% G& W4 u6 ^! @" y
    RowBox[{" f9 n. P" c! ~: E( d. L- ~. x
     RowBox[{"-", 7 Q3 w: u8 a$ o
      SuperscriptBox[
8 G2 W' _; D" X5 t% V       RowBox[{"(", 3 L' R9 ]2 x2 a
        RowBox[{
) g9 B2 c2 S6 u0 Q" P  R         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
3 m5 `% ]( I) u     SuperscriptBox[3 o: n2 E6 L# u9 V. ~7 |
      RowBox[{"(", 5 W; V" ]4 q  l) Y5 F
       RowBox[{  f; K/ r# \7 S  @& ?4 l; B- W% K
        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
1 s% s  }2 t- p# u; q7 I3 ^     SuperscriptBox[# F$ j1 S" ~$ {  J* q
      RowBox[{"(",
( r! ~! P; V, F! J! f0 r9 o       RowBox[{$ f7 K: C/ M9 y+ [. k
        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
& _7 ?% S  {% E& a0 Y1 n  `8 J     SuperscriptBox[  f0 h8 b2 O# r1 ~
      RowBox[{"(",
+ |; R3 Y. ]. J( O# V0 j) ~+ f$ t8 H       RowBox[{
" M& Y) g: W  a$ A: I( q        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
2 z% _" a; j0 i% ?& {/ ^2 r) m% w     SuperscriptBox[2 L5 [- d( k1 H7 l, a( M- |
      RowBox[{"(", ! w; o& {7 G2 c
       RowBox[{  z$ ~. @" b0 U0 l+ n
        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
# ?# V1 R* ^% n, ?     SuperscriptBox[; R# Q  i  w& U% T
      RowBox[{"(",
! k- S. O. m3 r2 x$ Z- s       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", $ U$ C1 }9 l0 C1 e- e* S
     SuperscriptBox[
1 k9 B- @! L& ^* A      RowBox[{"(", * X- i4 g! @( H* K* h* T
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
  \- a: F$ N5 X* b" O* l2 R0 R7 R6 ]$ F$ x     SuperscriptBox[# Y$ o- |6 @* [/ {0 p
      RowBox[{"(",
" Z/ D5 w3 o: |" o& u! F" l       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 1 R5 k, o$ ~7 A, I2 i  w$ d
     SuperscriptBox[
" v1 l+ W0 B  J0 b, U$ K      RowBox[{"(", 5 v7 g# B# G& X! ~7 Y  l7 _3 Q, L- [
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], + J, J( C1 C! e! l# m
    ")"}]}]]], "Output",
$ ~, A2 z5 E% N2 e CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
' }5 j- r! z2 b( p4 Q  C  3.57801228203125*^9}]
( u9 R5 m4 a9 m7 |}, Open  ]],
5 ?3 z  K% Y5 C8 @4 m% F( v1 j! B& c. x3 o# H4 F2 D) U' P" f
Cell[CellGroupData[{- N, D) o# E  b! ]
3 i& b2 l) A" }* ?( _1 E
Cell[BoxData[{, A. S" O1 z, S0 z
RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]", " [& B" m& G6 W% L# o
RowBox[{"u12", "=",
+ e; f+ \, ~" T( D5 F) X  RowBox[{' I8 n& E0 N4 |/ b) {& x" n9 C
   RowBox[{"Exp", "[",
& s  k7 M; k4 G4 B9 [8 V    RowBox[{; i) L* N. r: \: J- n% u$ ]
     RowBox[{+ A; j+ L0 V+ U; L
      RowBox[{"-",
& ^4 g" {% ?) Y       RowBox[{0 R' p: F' }. x# L: x6 M
        RowBox[{"(", 3 m9 J# a1 f/ @/ p
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
+ L& W/ P) J+ l" s; u        RowBox[{"(",
1 T" E+ L! X% T         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
: c0 @/ b8 e5 j  ?     "]"}], "/.", "DeltaX"}]}]}], "Input",
0 H% F# Y0 C9 X( ?9 S CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {' ~' _6 {& U) g  y
  3.57796154237158*^9, 3.5779615576284065`*^9}}],: ~% K3 Z$ F& o# K  [$ P0 ]
6 r. i) g3 X. g# v% l5 l
Cell[BoxData[
- K, q3 w  k- p) s RowBox[{"{", - O3 v- t& D* T& s! M$ `
  RowBox[{
# r( L! l0 A( r6 L2 R# h  "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
7 d% Z- A+ v% i. @9 p   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
/ E, u  [  m9 g0 w* W  "}"}]], "Output",
8 D' v2 V" ^% u; X  X CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],
4 r& h+ _2 a4 W( A6 h; {4 K2 k& @3 T) ~4 E5 X  m
Cell[BoxData[* E1 r  v( a% X7 S9 k
SuperscriptBox["\[ExponentialE]", " V: h# X/ d( Q- B7 z/ D% f
  RowBox[{"3.141592653589793`", " ",
8 Z# C5 }. M6 J9 g8 l- K   RowBox[{"(", # `! x2 z9 N) i% S# F+ w
    RowBox[{
1 h  U" u: k* I+ S     RowBox[{"-",
% m$ O1 }& |7 D/ z9 n      SuperscriptBox[- E2 U/ ^9 P9 M3 A) i
       RowBox[{"(", , f6 j( T  s* h% W) A5 H
        RowBox[{
7 m7 b& g# Z+ {         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
! k, G3 R5 D7 b6 d     SuperscriptBox[
  y( u+ l  H, b* H) A7 R      RowBox[{"(",
9 N! F& d5 B, D9 E% ?       RowBox[{; A2 U2 h4 k' s5 u0 ]  Y& M1 A
        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", " X" X; M8 }- q- ~1 k2 T; V
     SuperscriptBox[
2 z; ]. v! c6 [+ F7 V, t      RowBox[{"(", ; S, W0 z# T2 }7 X! l
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", " I" v2 k/ Y$ f# q5 ^. H
     SuperscriptBox[) }0 U; P. s# D
      RowBox[{"(",
+ `4 w1 y+ k) p       RowBox[{
# G. K. x1 U1 P# x        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
4 @! ]. W' |' Q* L( A! a. W  i     SuperscriptBox[
  [! V8 B3 G; d$ a      RowBox[{"(", ' f  i6 O+ Y- j% }
       RowBox[{+ w3 [! T+ x  l% Q4 t
        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", + G3 B# W: e/ T
     SuperscriptBox[
; s- v$ ?4 }4 v7 t) t      RowBox[{"(", 7 X- |9 \6 s" Z9 Y; Q8 ?# \
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",   e9 E) U7 _9 S& D+ x
     SuperscriptBox[
9 W- h( ~, n3 o* I: L      RowBox[{"(", / q8 E7 J0 s. ^9 Z
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
, x7 {. m1 \, C( Y7 a, d     SuperscriptBox[1 ]7 f9 V% C( t/ i* E: ~( _
      RowBox[{"(", 1 _" \! [2 ]3 O
       RowBox[{
) \3 R% b3 e& V4 [9 o& y8 N        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
3 R5 p9 }0 w" y. P     SuperscriptBox[
2 V6 L& }: Q9 j1 I4 h1 _      RowBox[{"(",   J3 l- [9 v+ y% x4 G
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
' Y1 K1 q# ~$ d    ")"}]}]]], "Output",$ L# {- ~2 H% t4 Q) M* ]3 V6 u
CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]) L# Z! Z( L& p0 ~: R7 S# {
}, Open  ]],
4 X) H% z* {$ R7 u1 s
) @: J; p1 z' TCell[CellGroupData[{
- T" p9 o% i4 x2 A& x+ _$ ^2 m2 h, q+ [- o5 e6 n, @0 I  w
Cell[BoxData[{
! x! j! x* \. Z RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
' @6 }' p7 Y$ q! ^2 @- D RowBox[{"u13", "=", 8 n. \% K, c, S% x' E( a
  RowBox[{
0 N) \1 U) U8 T2 J8 c! O' |1 b- H   RowBox[{"Exp", "[",   {  A0 n' C9 Y3 V; A/ R
    RowBox[{/ ~5 E3 L' a" s1 \/ Z; ~
     RowBox[{* [# X2 t9 P& w, m; E7 n" x" R, ^  M
      RowBox[{"-", / j( B. h% j+ Z8 g& c. f4 U
       RowBox[{5 D6 G, M) v; x( b
        RowBox[{"(", 8 E) p: N$ I* W! G# K
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 7 D8 Y* \# e0 D- U. j  a
        RowBox[{"(", 1 p8 V( l, V/ o# a
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
/ r# A7 t: N0 k     "]"}], "/.", "DeltaX"}]}]}], "Input",
' ~# \5 _; I/ {; h CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {, d$ q( R) P$ P' J& M
  3.57796154237158*^9, 3.5779615599684105`*^9}}],
* G1 y3 b- o6 u0 f! a
/ A; x* [3 C3 A; ]+ h* f8 }: ~/ YCell[BoxData[
- [/ Q. w. r/ \  i3 z9 |) v6 A9 Y7 G% Z! k RowBox[{"{", 2 Q4 r1 J4 e; b( I3 W
  RowBox[{( S+ u& h/ v  c1 }2 S
  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
6 W# W. I" {4 m$ }0 l   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
" H3 T& f7 H$ n& c. ]. {# a  "}"}]], "Output",
! i4 T. B; s2 d CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],! }- g$ s7 a' c; ^9 E
, i" S$ Y+ Z6 R, L, O3 Y
Cell[BoxData[) e, v% S  A) I2 |/ x  M+ r
SuperscriptBox["\[ExponentialE]",
; t* {3 ?  A" C+ x, M% S  RowBox[{"3.141592653589793`", " ", % `/ Z) E- }7 o5 J9 Q
   RowBox[{"(",
; ~- ]( \/ z7 f, T    RowBox[{
9 o! \  y8 P2 j  T# C$ \( R* t     RowBox[{"-",
( Q) v) u' ~' a0 z  l1 F) N0 Y      SuperscriptBox[
  C2 C$ [" F6 ]0 x7 q& f* x2 @9 `       RowBox[{"(", $ y) z. c/ X, s; D9 F4 K9 J& j  ]) R
        RowBox[{
2 t) \: e* k9 ?$ l         RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", / k7 d' {0 _" W0 S0 ~. a
     SuperscriptBox[/ V1 n1 ^3 i9 Z5 C& J
      RowBox[{"(",
+ s6 e# p) U/ L       RowBox[{: y2 m% \% `. P5 m( K$ v! o
        RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", 3 O$ Q, U' a/ [
     SuperscriptBox[
8 @+ V8 t3 h+ X, }: D      RowBox[{"(",
9 S) Z2 R3 u% s0 u       RowBox[{
! [* {* a* m# ~( O        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
  Z3 F) G  ~/ `" z7 {     SuperscriptBox[  m! z' w0 V8 l9 @" w6 m0 |
      RowBox[{"(",
" u9 l4 e! g+ e! o4 I2 Q       RowBox[{
& v* U7 i& V. {; Z        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", $ v& z: B: j1 \: P  J* _' q
     SuperscriptBox[
% M) Y: F" n2 A6 a      RowBox[{"(", 7 \% c7 p7 v" y
       RowBox[{5 @5 W" j0 o' \; {8 R% }
        RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", / R1 Y& u' x7 V- r2 d& h
     SuperscriptBox[2 J# g& S$ p* L+ Q# h# N% F1 r
      RowBox[{"(", - e- c; `# R$ h  k* y
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
. C% @% F1 K2 b2 j8 n     SuperscriptBox[
; L: t) N! K2 L7 p+ ]0 g- x% ]% Y      RowBox[{"(",
2 v: V: F& A' W" q5 t7 Y       RowBox[{8 H9 t: \$ x" W
        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", 3 z: h0 U) e) v4 V
     SuperscriptBox[
  q  c1 G2 W! k/ |0 D* a: f      RowBox[{"(", ' L+ w" R# g' S
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
- G$ s" j) W7 \1 @# B- A* O     SuperscriptBox[
( `0 A( [  \5 \; Y      RowBox[{"(",
' `& V; R- W  W* @9 z; Q0 W       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], " {; W1 I2 Z$ M, R4 s# X
    ")"}]}]]], "Output",
" D2 B" n! t. f. Y- P, o( e' R CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]0 ]; Z% W. a* Z7 c' A
}, Open  ]],4 _8 f: x0 u; g: e( D

8 |! \. O4 r. HCell[CellGroupData[{
, x; a/ p) k, g: a, k2 ?
1 A  R1 e/ D  B$ O8 {2 qCell[BoxData[{. c6 h0 n+ X' J
RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
6 @, e( s2 y/ q# S RowBox[{"u14", "=",
4 M5 R7 |+ m) e3 q  RowBox[{# s$ Z; |. V* c9 J8 ?
   RowBox[{"Exp", "[",
$ y) `, H# R8 K( N    RowBox[{& q* f0 h$ M. G+ Z
     RowBox[{+ R+ z, U( e7 i- Z3 q
      RowBox[{"-",
, t/ N) w4 w; g! a  ?       RowBox[{6 H; e  a. s0 w7 Z4 I7 h
        RowBox[{"(", 1 p# m4 n1 o- X. d
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
: c' X* e, T1 G/ \& ~+ I9 k        RowBox[{"(", . _% B4 Y) X+ G% s9 ?
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],; u4 y6 w5 j, b* `* e
     "]"}], "/.", "DeltaX"}]}]}], "Input",3 N& m& E$ l+ K% z9 Y  U% I
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
1 J6 O9 E1 o$ f; \, @4 M! P  3.57796154237158*^9, 3.5779615663176217`*^9}}],3 C  I% Z1 ^- p! e5 Y" Z% p

: a- a* J0 F. BCell[BoxData[
& w3 V& S$ j# r' G% f RowBox[{"{",
, Q5 N) a3 e# m  RowBox[{' ?3 H; w* i- e1 t, G
  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", ) i* P3 E$ ^; ?
   "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
/ h6 N1 R. V7 E) h  "}"}]], "Output",' n8 V( ?( o% d
CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],; |* w9 w3 ]# d! Y
+ m& l9 y' o2 F& l2 w
Cell[BoxData[% B9 L" _! g" F$ T+ o! s
SuperscriptBox["\[ExponentialE]",
6 s' ]' ?+ g9 {3 H: G' [- U* _  RowBox[{"3.141592653589793`", " ",
8 {2 x. ?- U0 I/ v8 P2 c! ?   RowBox[{"(",
2 m/ ~  Y7 t: B/ b: R4 M& I    RowBox[{: u2 A7 P* Q" N/ ^9 [) _, N+ s" S& S% I( h! t
     RowBox[{"-", % S- _' z6 k& h9 V
      SuperscriptBox[3 ~/ L- h  [; V+ x) T
       RowBox[{"(", + x. P/ W$ c8 c7 `& P6 c3 _/ A
        RowBox[{3 q& P; H- B" v, {+ d7 ^: R7 k5 I
         RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
7 T* {6 P2 C& B1 }7 h. ^; v( a# L     SuperscriptBox[
# f6 X5 w) M9 t! w  p  h) X      RowBox[{"(",
! o0 P: Q9 z& a1 t" X. W7 y5 e       RowBox[{4 ]. R/ _0 U6 ]5 m! g' X6 c
        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", ) [% Z. a  U2 v- t5 ?3 t( k: l
     SuperscriptBox[
+ ]6 g# O. b8 m1 Y+ `: J      RowBox[{"(",
4 z/ J" ?5 R/ u& A, Q8 j5 x. Y       RowBox[{% @$ l; Z! b, \) o, e
        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", # b( |6 m2 u$ D  _/ `
     SuperscriptBox[# |( G! @# u( ?# i
      RowBox[{"(", 2 `7 @5 ~8 z" W  Z5 U; d$ G
       RowBox[{) w+ Z- X/ `, b2 B% O0 U
        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", : v* u, V, S: O6 {; o
     SuperscriptBox[. v4 M/ ]6 u! n5 q6 Y- l' r" b! U
      RowBox[{"(", 5 V0 E# H7 e6 c5 ~: P
       RowBox[{/ S9 n+ a: s5 z& t
        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
) W' ]5 b5 ]. P; o     SuperscriptBox[
8 o  U  \6 y5 t5 W9 B      RowBox[{"(",
  k0 x+ c4 U4 K" i+ e       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ; ~/ d& {( P, K3 W4 e
     SuperscriptBox[
. G- P6 S' c$ y1 b      RowBox[{"(",
% L1 C( E! G; d7 z+ Z" @( W       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
1 |/ o9 E8 W" k7 d     SuperscriptBox[
6 F! Y4 z1 J: G      RowBox[{"(", - n0 |2 {. J. m$ O. r+ w$ |0 y* K
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
) I' {$ F5 e8 U' q3 m     SuperscriptBox[
& ^) q- x3 d/ o# K      RowBox[{"(", & U( ]# V9 V. I
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
' \0 H8 ?5 A' L/ q4 s) ^0 x    ")"}]}]]], "Output",
0 u" k# \" o) {- z CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]4 x% b1 Y7 _# a) `9 q! |+ M; S2 Y
}, Open  ]],2 \+ Y1 w4 ]. R8 I4 C' P

2 G- L% O2 B: \/ i  H9 i1 OCell[CellGroupData[{
) D# D; J1 a3 i, Y% B9 g7 e
) M: L$ A: j! O. k/ ACell[BoxData[{. }( c8 N" q9 C8 E- w! w
RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
2 O; h  h6 C3 |: |9 c: y RowBox[{"u15", "=", - G9 ^  R1 q) Y
  RowBox[{
$ ^) d7 ~7 M& D& _$ A" X   RowBox[{"Exp", "[",
) P) e6 p4 ]1 e    RowBox[{" b, {: o8 w) E9 D, P& _
     RowBox[{( R/ P& U! t# T* t2 b5 n2 a
      RowBox[{"-", ! ^. @. S6 f0 p* B' ?
       RowBox[{3 j0 |: |- l* z8 f% Q- N% [
        RowBox[{"(",
6 h# ~1 f9 w# U/ C         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ' u8 }7 ~! e- P7 x) c! x
        RowBox[{"(",
( A* |9 W2 H5 s& r% x6 f0 r5 F         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
7 ?$ i* M9 T8 [% X     "]"}], "/.", "DeltaX"}]}]}], "Input",
, h5 d$ N# F; ? CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
2 v" C# l6 {! B  x8 K  3.57796154237158*^9, 3.57796157098203*^9}}],. G  a% d3 I" a3 H

, [* E1 u# z1 z; DCell[BoxData[+ H8 s: S- B- K! h; T) L* T5 H
RowBox[{"{",
7 h4 s7 n8 T1 W! p# [  RowBox[{8 P" L7 V) F8 h1 W
  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", 0 q8 j: D" `4 E
   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}], - ~7 \( k$ r$ ]8 k/ T7 }+ Z3 c
  "}"}]], "Output",
# W8 }- C: o* H! S1 Z CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
5 d; g) G  ]5 a3 e3 e( H+ D7 w# ]3 `8 z$ l' h" @% [, O1 s
Cell[BoxData[
1 z) f" i& h" s! J, B4 U SuperscriptBox["\[ExponentialE]", 5 T9 R4 S+ ^- c* D- C8 G- y. W8 a' E, w
  RowBox[{"3.141592653589793`", " ",
2 X& ^: r7 k( F$ m8 h3 u   RowBox[{"(",
' Z) Q( {" q% {: _    RowBox[{& d# d1 C3 \& A: f" s+ D
     RowBox[{"-", ( y* H/ ~8 i1 D; w
      SuperscriptBox[/ Q; b2 W  L0 d/ `9 d( _6 m. T
       RowBox[{"(",
, }- U" c. {0 w) t$ A. y        RowBox[{
! r* w5 j4 d2 j/ |         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", 1 `" u$ H7 l5 S8 c' V0 i  G3 d
     SuperscriptBox[4 [. S1 t; V. C3 q* A2 }- ^9 F2 c
      RowBox[{"(",
. B% p. Q' u1 J4 N6 B9 l+ |- _       RowBox[{
" d7 Q0 p" |) [! ~9 D        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", . v7 T' Z$ u: x; ~0 M
     SuperscriptBox[
9 ?6 B$ @  A! A' F3 {      RowBox[{"(",
; L/ N6 ?) F! E7 g  P       RowBox[{) T4 D1 E6 U) [0 n  g' G: i
        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", ' e' b1 X& `. A5 v
     SuperscriptBox[: q8 g/ E4 b" t4 R" i
      RowBox[{"(", - H/ w+ M, V! q# X. R8 G/ Q7 \
       RowBox[{
0 v6 ?( b  t- Z4 i( [1 `! t" u) L        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", - F/ d0 a* y2 I  j! k+ a! o
     SuperscriptBox[
: i2 a% G( ?3 V2 x0 h  q1 x      RowBox[{"(", ( m: G% u) p- M% L( @$ D3 S
       RowBox[{2 T/ f! {* e1 U# C  q3 {
        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
8 \9 O1 L3 ~1 r) h     SuperscriptBox[+ j& v, x3 ^4 b+ d* S
      RowBox[{"(",
$ w% l. a1 \0 R& M" D       RowBox[{
- @# l' x" b0 V- D. i$ c        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
/ ~3 `0 |0 }) q     SuperscriptBox[. Y3 R1 r2 l; [4 |6 h
      RowBox[{"(", * t. F" i% |4 D* X  S( N$ s# i
       RowBox[{4 i, [8 @" d( N! S/ I$ P
        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
" L' K9 j( |* a2 U0 P     SuperscriptBox[
9 F5 `' ~1 |! _  X" E: r      RowBox[{"(",
1 C. O, w* X2 k) m% x       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
9 M4 G6 _3 O) v/ A5 v     SuperscriptBox[
- @( s) Z* G! b3 f( s7 a' v+ Z9 t      RowBox[{"(", + }8 _; ]- U% R4 J6 ^5 P. r' b
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 5 B3 T3 ~  r& s/ h; ?
    ")"}]}]]], "Output",
3 |! n9 }' Q. A1 d6 n) C CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
+ k! J# ~3 \9 T}, Open  ]],
# D- N4 e+ S0 `4 J* y9 s% V, o9 I& {  A, U8 @9 r2 R& X% s
Cell[BoxData[- o9 h3 H1 s; ?5 G
RowBox[{"For", "[", 3 [$ o6 e: W# \
  RowBox[{) Z2 g. L( R* e/ {. X
   RowBox[{"i", "=", "1"}], ",", 3 @4 b0 Q6 |) |$ C
   RowBox[{"i", "\[LessEqual]", "9"}], ",",
3 K1 j* }" o2 z3 l1 m   RowBox[{"i", "++"}], ",",   }. ]2 \0 T( n: o3 _
   RowBox[{* a& r& n( I- u7 X0 s
    RowBox[{"Ca", "[", 5 F- r! u8 c1 C+ e) |. S
     RowBox[{"[", "i", "]"}], "]"}], "=", " n0 F) ]4 p) i0 G9 s
    RowBox[{"CM", "[",
: U7 T7 A5 f. V$ {! o5 O     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
9 a: {% D% J# N1 ?) F" j' [' j CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],' A, m; e  _2 u( s- _

0 q6 p5 o3 y# S2 M/ rCell[CellGroupData[{
, H& z! l8 j6 f  }/ T
. W5 s1 i7 L* ]2 [6 `& F/ H7 g  uCell[BoxData[{+ u& U3 S% q5 ^! |- ^, I1 E4 x) s* r. t
RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
% a2 B* S8 J- h  G4 a, V. c, _ RowBox[{"u16", "=",
$ w$ Z& Q# y, {) l5 G2 W" g  RowBox[{7 x2 t. k& l/ r& b' K
   RowBox[{"Exp", "[", - f# [% Z! j. q. `+ h5 e
    RowBox[{
  g( c+ o! \" X+ j# L; g! \% _     RowBox[{, x3 t" x5 |6 C
      RowBox[{"-",
, m! C' j" l( K& _6 C. W# r       RowBox[{6 v  {# E# t& l2 y. N
        RowBox[{"(", 4 m9 _) e) p0 I+ v' T
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
  E6 {9 Q  R3 @0 }$ w/ |- n        RowBox[{"(",
" X; t6 U: I% P* j& q) A         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],' z$ Z4 |3 w: o
     "]"}], "/.", "DeltaX"}]}]}], "Input",
* W$ W! b4 Z9 @8 y CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
& f+ e' q" U0 s; G& g6 }$ K- G  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
/ O$ ~8 D7 q2 O  3.5779615751004367`*^9}}],+ P. m6 g3 Y* n' S
; L' A6 J7 r9 y, q2 g8 w; M! g
Cell[BoxData[
4 S& ~- K, C5 {2 I) y( X RowBox[{"{", & c& Q4 u3 k. ?8 ]( L. X, l2 \4 o
  RowBox[{
; W! \$ T# k1 C: U  "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
* D" w( M4 ]) R' S4 r5 O- F   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}], ( Y, V# i/ f( E) R" r( K& Q/ }0 S+ ]
  "}"}]], "Output",
! @0 k& C; g3 V9 n CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],' {9 a% y0 q$ R3 \4 I! h( t
' f# C" |: r, ]
Cell[BoxData[
# {2 \, z3 X7 i- U& s( a SuperscriptBox["\[ExponentialE]",
! i+ v* |- L5 o: H  RowBox[{"3.141592653589793`", " ", : M4 J+ s; R' a4 o
   RowBox[{"(", ; d' L) t3 l1 }  Y' q
    RowBox[{
9 D8 j, k2 Z' [1 E) B     RowBox[{"-", ( y- m& b0 w7 c3 @
      SuperscriptBox[
6 h! ?) N1 E" V( R; R1 m       RowBox[{"(", 3 e4 X# o9 h; f: H
        RowBox[{
3 Z4 Q& \0 b* F. I6 ]7 w) m; u9 q3 U         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", . C. r2 s4 t, C& U8 D- X/ z+ B
     SuperscriptBox[4 F7 }! B" @& I# K# a
      RowBox[{"(", - N& m3 z0 ^% g, P
       RowBox[{
3 R/ c/ k2 L- `        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", " _: F: v6 c2 R" f
     SuperscriptBox[: ^. x" O5 Z+ i/ X5 i" O6 W
      RowBox[{"(",
8 K$ w, |* R5 d" ~: D       RowBox[{
9 Z2 m3 ~8 B$ K8 ^. o) }! d        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", - s: r, s. V: J- _5 J+ ]& m5 G
     SuperscriptBox[
% F% u6 k. B, |! v- o* G' \      RowBox[{"(",
5 q. R, o2 e+ R       RowBox[{4 u2 w; v" u% e$ z% W
        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
8 f/ g( F( B% j     SuperscriptBox[
: s: k9 q/ d3 ]7 N' u      RowBox[{"(",
' X3 L* _4 Q9 y3 @, L       RowBox[{
4 w9 H8 j3 _+ o' B9 U4 H/ _( w        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
  b2 v& F8 b8 e: O% K: V' k     SuperscriptBox[
# n" I- d* S  p. `      RowBox[{"(",
6 m& ~( z' R5 u; S: T) c       RowBox[{
/ F1 w9 ]  J& \; x        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", 0 }% o: C' b9 s5 `
     SuperscriptBox[
; e: C8 M8 ]. B* U      RowBox[{"(", ! ?& A' M, ]. f% N6 @8 ?
       RowBox[{5 {: g# ?" d$ J! x3 O
        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", ) f8 y, e; |0 p2 K7 m5 Q& X
     SuperscriptBox[2 |$ e+ j/ i5 s* y( Z
      RowBox[{"(",
5 B0 S1 c6 Z& b% n" i       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
8 }9 O. T0 ^4 Y9 U     SuperscriptBox[
4 P7 Y: e/ l0 p+ f! w+ m      RowBox[{"(", + u" C* [( F0 L" Z8 j3 j5 R) q( B
       RowBox[{6 M+ j4 S2 \, H# l
        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",0 I3 D5 {8 ?% V( y
CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]' Y' d: J) e9 J/ k' t5 D$ |: Q
}, Open  ]],# u8 k, ^( W$ Q- Z2 \4 O2 H9 H

7 Y# ~* d! v/ K! Y  z  q( N# FCell[CellGroupData[{
- T& B) U5 @7 k4 K* W: N: N, Q) {0 v8 V
Cell[BoxData[{
7 f% h8 W% h, A7 Y RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]",
. J; v9 i4 g5 V' F" ]4 s' b RowBox[{"u17", "=", 3 N3 g' e0 s) Y
  RowBox[{8 c7 l( s! R6 Q! K" N  d, g
   RowBox[{"Exp", "[", + r$ o; l) S- D. E/ g
    RowBox[{
$ m% \( y) ]' H& T% Y  [6 \     RowBox[{( s) R" F' M* R9 f8 y! q! r- C
      RowBox[{"-",
3 b* m5 m% }" ^3 I* _! b       RowBox[{' w( b* B5 _9 s; m7 ]& k
        RowBox[{"(",
1 l6 n6 n: Q0 Q+ x         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 4 ^- V& T7 I; L4 t2 r. G: Y
        RowBox[{"(",
' |! ]: c/ @, \         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
, m$ i* `" D6 N* ^     "]"}], "/.", "DeltaX"}]}]}], "Input",
- J! X% `  G1 P4 g+ L! F' w CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {* D/ A! B; N, O% v
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, 0 Z' c6 I9 Q: e  D0 Z5 c- z$ ^
  3.577961578953644*^9}}],
) p, S! F. ~0 w* n3 v+ L" Q3 k+ n0 C+ y
Cell[BoxData[2 x, l5 o3 B& ?, ~& X. d
RowBox[{"{", 5 g1 Z. D% g" U' d7 d
  RowBox[{
: J2 P" o" n5 r# O) B: g  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", 2 C3 C$ f% W' x& [; V4 T& x
   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
: i; _7 E6 v/ K0 Y+ }. M4 l  "}"}]], "Output",
4 e6 `3 \$ @6 W) E  T8 S4 P" Q+ E CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
( C% c; e4 m8 [9 h! @& i% [% Y5 z. J: B! ~6 t' G6 L+ S
Cell[BoxData[" _' l% e3 m* f0 p; |
SuperscriptBox["\[ExponentialE]", 0 b4 N0 u) V* g! ?& L' G  E
  RowBox[{"3.141592653589793`", " ", & A7 _* A: Y2 _6 Q0 S8 d( s
   RowBox[{"(",
) S# l6 a- C  F2 `& N) R5 _* O    RowBox[{  }- Q" T. Q% \  i" d
     RowBox[{"-", ; o% G5 y8 W- k3 A
      SuperscriptBox[
" R1 l! f5 ?8 P. \       RowBox[{"(",
9 n$ ?7 j/ O+ B7 p4 [$ u7 \        RowBox[{
9 u8 A: d3 ]4 p. D/ h  V9 Q         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 e: f% x. }0 n+ @: L! d- `7 x: O. [- Q
     SuperscriptBox[
4 c. z; B6 U6 G" J2 y/ D2 A      RowBox[{"(",
0 y. {5 ?7 J6 y( F. R1 y& V. I% K       RowBox[{" r) G; `4 \9 O0 U
        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", & ]- ~8 d# Q/ Q5 |
     SuperscriptBox[
7 b1 g8 f6 g' H3 Q$ H1 f, |      RowBox[{"(", 3 v, E+ o. u! @  j, C; ~
       RowBox[{
0 x2 S0 L# W% q% _9 x8 g        RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
+ s# v/ a0 z8 k     SuperscriptBox[
3 s5 K, e) C" A6 F      RowBox[{"(", # e. L" {4 r9 [9 A5 L
       RowBox[{
6 r' @2 F; `5 M        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", 2 L. c) c! d# P5 A
     SuperscriptBox[( c  a- l& a! I  Q5 Y9 M% ?! q
      RowBox[{"(",
' a$ v/ f+ l9 k+ P: {# P% e) d       RowBox[{& H; U. q: g4 R1 h0 D
        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
5 n8 w* I) l7 ^2 n1 |     SuperscriptBox[
: o' i2 D8 W. Q      RowBox[{"(", 5 |7 r6 u+ N2 o, p: t) x
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
$ d: ?7 v' O. W4 m7 A' ^     SuperscriptBox[
- u' E5 f. h+ B# U9 w" \! b2 r' B      RowBox[{"(",
+ q( N7 e8 C+ a! _1 p/ d* X7 V- s       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
! q7 L  h' E0 f6 N. I+ J! z7 y     SuperscriptBox[
  o5 Y$ b- q0 N; |; c      RowBox[{"(", ' M# U9 q: x+ ~( `
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! ~* b2 b) w. _: j  D  I
     SuperscriptBox[
2 @* u  Y7 E3 C9 c# E! o0 H      RowBox[{"(",
* [0 L' ]$ @$ ^+ ?       RowBox[{
- \& |& F% W0 S' o; L  }* U0 @        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], 8 ~6 {! z) ^; s3 r
    ")"}]}]]], "Output",, c8 i. `- y9 j' n  M* h7 [  j( C
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
8 M  V% w: F! Z, t( ^4 z}, Open  ]],9 S% B& O# `9 J- q# e
6 p0 P+ Z( n: z: f2 w) i( `" I- ^! _* s
Cell[CellGroupData[{
9 ]; Y4 g2 c  x5 U$ n6 v4 D8 t6 e
* O* `0 I& _- w- FCell[BoxData[{
: H! ?) ]8 ^2 t/ w+ u+ `" n3 I RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", 0 o0 j8 x  C! i$ f: |4 H3 v8 s) G
RowBox[{"u18", "=",
. T+ C2 ?$ c1 |  ?" {  RowBox[{1 L% z1 p) {. n7 e
   RowBox[{"Exp", "[",
" V+ `8 i0 i1 y/ L    RowBox[{
& e, c" s2 s3 m0 D     RowBox[{
% g  d: U' _" n2 d$ q8 E      RowBox[{"-",
5 y- a6 y: ^) \% d; t       RowBox[{
) Q; X2 p2 Z5 ~- I3 Q        RowBox[{"(", # P3 @: G$ B1 c
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 6 e3 |3 v8 h0 a( G% g! h
        RowBox[{"(",
* P* V5 M' t! A: C, U         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
: U, ^2 A( Q0 Y: x4 w/ L- Y     "]"}], "/.", "DeltaX"}]}]}], "Input",
2 k* ^" m9 b$ j" l CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
8 p, A4 C5 t% d. M  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
0 |4 Y, o# X; l2 M9 d  3.5779615828848505`*^9}}],
5 o- J" Z$ |5 g( \# ^3 K: }! \  i4 Z1 V( @8 Y( P
Cell[BoxData[
- I3 i4 u$ A  p5 Q2 H RowBox[{"{",
9 ?. v! O8 ]8 \; x* T. t  RowBox[{4 ?! A6 O( _2 [, S
  "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", ; K9 k5 V  W" s* I+ _* C% f
   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
- S, l9 M1 y/ F% T  "}"}]], "Output",3 @0 N4 i  o7 D% ]' e' Z
CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],: }( h! {/ q2 j  `4 a6 _
4 D9 k7 f; P8 A
Cell[BoxData[% V/ y1 l4 @7 B, \
SuperscriptBox["\[ExponentialE]", ' k6 z( i$ j# w9 O" m: E
  RowBox[{"3.141592653589793`", " ",
# l, Z9 ^  A1 c7 O   RowBox[{"(",
$ N9 }! C6 V9 `7 o% M* ^    RowBox[{
8 u0 F# K/ m. @; n1 A6 F2 G  a/ u     RowBox[{"-", - Y, n9 s" h. y& p# Z; u
      SuperscriptBox[" Z' f' l2 D) @! A, ^* A1 P
       RowBox[{"(", 7 q$ _2 T4 ]; H& O8 j) {% L4 l
        RowBox[{3 Q8 k! u4 c" d4 U  `( O
         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
. p3 N+ n! v  V( w* q     SuperscriptBox[( @- w7 u- E+ c2 A3 V* b; P
      RowBox[{"(",
2 d& @% S" X+ C2 G       RowBox[{# Y8 Q+ @3 U* n( `
        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
  Y: j4 o, k7 q     SuperscriptBox[& {/ P) a2 r4 T
      RowBox[{"(",
- A! C9 ?' ~' e) e& c       RowBox[{
, x( J7 U. ^) [9 J9 v  x* |- M        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", & \7 \" R$ T+ ~' H, f; g4 O+ c
     SuperscriptBox[: t" p# `& M8 N% C  l+ h4 V
      RowBox[{"(", ! E! \/ [- F0 m$ Q
       RowBox[{
/ p* A8 Z1 x' A8 b: S1 B2 C# l. U        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
1 ?* b+ c6 r1 R- b     SuperscriptBox[/ d7 }- h' r) m8 J# f' q
      RowBox[{"(",
. }! N, R# \$ y       RowBox[{/ m% w, x. t  F6 r3 J) S1 @. ~
        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", 1 T9 S/ ~4 i- E2 F5 l  a3 h2 G8 U) y
     SuperscriptBox[. Z% @# f$ G% ~* `, W
      RowBox[{"(", 4 T  w% G& o9 v0 m6 g
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
+ n, @7 S- b& @' Y) y* [     SuperscriptBox[
1 o4 u" V" X, o      RowBox[{"(",
5 P# M/ {  X, ~1 q3 g& b& z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
  Y% ?# p, y  V5 K; `/ v     SuperscriptBox[/ {( o& U. @& c- g( c  [, ~
      RowBox[{"(",
  O7 G3 ]5 R. c" _3 l       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", : @8 i/ B; M& N" W
     SuperscriptBox[
1 @/ _5 `. e' b6 s2 g      RowBox[{"(",
7 {4 N* X3 r: K2 m2 Z) n       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
# F0 w6 p2 W; i" @    ")"}]}]]], "Output",: w9 s7 K) P; L* M: J5 j$ b/ [( z
CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]6 v! x; x; P  {. m+ n
}, Open  ]],
" C/ @! w0 S* m$ e5 W7 y0 j4 V
Cell[CellGroupData[{% H$ q8 d6 ]" G# T

4 N/ F. X8 p$ B# \" L+ ^: hCell[BoxData[{
& K7 P8 w" S! @9 S' B/ v9 E RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]", & u3 K3 y( ]/ ~6 ~
RowBox[{"u19", "=",
3 g& x& d) s: X  RowBox[{$ {) J5 ?# f3 l8 K7 A2 e* I
   RowBox[{"Exp", "[",
! d% G8 E$ k- D: M9 Z) Y; t    RowBox[{
0 F! N0 ~' W$ M- {$ m! o     RowBox[{3 N1 L, q' `! `. P$ e
      RowBox[{"-", 5 J& u$ V- S4 U3 t) k. W
       RowBox[{; v% `' B1 W8 U' o+ _1 E
        RowBox[{"(",
7 L* O0 x8 y' c3 x1 u; H, y) U. M" Y         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ( `% k: D- V$ w6 P6 d1 n
        RowBox[{"(",
) T- G  v" ]" x1 Y1 S  o         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}]," K" x5 I/ j5 d8 w
     "]"}], "/.", "DeltaX"}]}]}], "Input",7 H8 u7 v* c2 X; i4 ]1 w3 N2 u
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
, p/ k( A; H3 m" C4 Y  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9,
$ |( j, W7 B1 w& z  3.577961588890861*^9}}],
1 K' T1 x, m  a2 n
5 b3 ~6 e9 h% V8 n, KCell[BoxData[
. B) [* U( z1 d% p RowBox[{"{",
6 P% B- l& {- i8 e8 y  RowBox[{- u# E3 W% Z# x
  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", + j/ e; ^8 G% I; G4 W
   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
, f  I/ \' V# k  "}"}]], "Output",
2 N- Q" D& f* m/ N CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],4 p  U. X5 Z0 z5 ?1 [
9 I0 Z% X5 k0 V# O, I
Cell[BoxData[
: F  ^/ W6 M% b! K2 m9 c0 j: L SuperscriptBox["\[ExponentialE]",
$ W8 G" P# N3 \: s( `' v  RowBox[{"3.141592653589793`", " ", 9 B6 C- m- d% P
   RowBox[{"(",
' c6 |. D% G. ^0 P    RowBox[{" N3 e- V) E6 N* e8 _4 B
     RowBox[{"-",
% \  `3 K0 I3 ^& c9 {      SuperscriptBox[$ ?1 j2 ^3 E$ D$ V5 z
       RowBox[{"(", : c5 V: M8 ~- m- T% p
        RowBox[{) S3 J, N, s& s8 g$ u# G2 G" R7 W
         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", # R! y7 i$ H2 a
     SuperscriptBox[
5 q8 i7 a+ N; N, H; l0 \      RowBox[{"(",
. P3 ?7 q. ^; C6 e* S4 u- j       RowBox[{
. Z4 o% D8 f! q( U1 L( @* w# w        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", & M) I9 u2 f" I: h( A8 v! Y
     SuperscriptBox[
1 E6 U5 `* v: ?: g$ {! D      RowBox[{"(",
% m! }& T% O0 A5 i0 q       RowBox[{% d) X7 g! a  |* z! ]
        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
- {! [* g; l4 Z. w2 x5 r     SuperscriptBox[( N, W5 X. H' j# Q. H6 G
      RowBox[{"(", ' \" J- |# q6 ?$ g/ G$ r
       RowBox[{
! x. C/ J1 S5 M+ Q1 a        RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
. H  I. X/ Q& J8 @: D/ s7 H     SuperscriptBox[, ^: R$ O6 w" O8 N
      RowBox[{"(", * z6 Y/ e+ F* ]
       RowBox[{
% y- d. ?  ?* F, P6 F: p; a        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
* X8 O- ]& T0 T2 o1 \3 a* v5 Y) d3 j     SuperscriptBox[
; b' t3 k, F+ t; l1 z' F6 [/ G      RowBox[{"(",
- x: B# `* k/ s, m       RowBox[{: m! S' Z0 B2 T0 `
        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
# R% ^( M* o! h3 L, A5 a& O+ o     SuperscriptBox[
7 R3 [/ J/ e6 x% a      RowBox[{"(", 0 J- x8 T$ H* d) K* K6 v! P; y, `- `$ G
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
9 W  r* R( U% Q! R7 Z& c     SuperscriptBox[, d; @. T1 Y  Q6 J0 P3 L  A
      RowBox[{"(", ! x# c3 t8 q- D) N, s
       RowBox[{
( f  ?" _( U) {( {        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", $ ~/ J! F0 w8 E# D
     SuperscriptBox[
# o8 P3 Y. E. M( u+ v# `6 m      RowBox[{"(", ' s# k# R+ s1 f: V, G$ _
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 3 `- v0 Y, {  v5 U
    ")"}]}]]], "Output",& B, F( U* W4 Z$ l: S0 z) d- Y% t
CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
* E' b( u+ I$ L4 U7 x}, Open  ]],
8 V: x# G; F: l0 ]5 W$ ?: X+ d" A9 Z* l& f, d- S; |, a! y; r& W
Cell[CellGroupData[{
0 b; S5 t2 S/ Q7 D8 _; \1 l7 c7 L% k% t' R) @* j
Cell[BoxData[{
+ N( y: P/ _- X) R: w/ i RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", 3 `, o  R# J# M3 l: w" C2 |* N" W
RowBox[{"u20", "=", ' v6 z# e6 c; _* ]0 \
  RowBox[{4 t! X2 F; z) E
   RowBox[{"Exp", "[",
" w( j8 G( ^, f# c    RowBox[{1 a& R( Z+ m- R. b1 h- U
     RowBox[{8 n* _- E  g* n( M/ E
      RowBox[{"-", - ~! J  U  ~5 F( y* W  I' n
       RowBox[{
/ W3 S# e$ }* a$ \        RowBox[{"(",
. B0 Z- |1 r2 w( M         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ' o2 {, O4 p4 t* D) b: e5 f; e5 v
        RowBox[{"(",
, }9 l" M' d5 o3 o! _         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],  e2 s6 x/ t/ M/ E; K
     "]"}], "/.", "DeltaX"}]}]}], "Input",8 h' C# p( e4 X5 _
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {: z* A0 x) L: H, d7 s7 H# Q, L
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9, 7 Z3 Z+ x( z; \- ]9 F6 r3 Z4 t
  3.57796159382047*^9}}],  }2 K" g/ l% q8 G, y" L
9 e. W2 D4 r3 b
Cell[BoxData[
" b/ _* r' Q( ~8 \' Z; f RowBox[{"{",
  l$ Z6 [3 a9 W7 |  RowBox[{
+ J: x6 S) Y4 u; p0 S  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
1 E$ K1 \& z) N# p2 M: k5 c   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
; s* v0 l2 B  I6 |2 N7 F! F1 a  "}"}]], "Output",
6 _  n+ S: e% b! o3 u0 B; v6 G CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],6 ]1 F4 C+ A  B; Y' U: E9 x, G
: J+ L0 v4 c+ t1 I; h) p" g; u
Cell[BoxData[
4 V% ]0 V# v4 l, {% q) `! |) o/ w SuperscriptBox["\[ExponentialE]",
# Q) r% A4 p6 w  RowBox[{"3.141592653589793`", " ",
& |2 l; k, M9 _$ {3 V8 C& j. x$ \   RowBox[{"(",
* V0 Y9 X: k9 x1 h    RowBox[{/ C3 W, A5 H  Q! M% ^$ H0 e, `
     RowBox[{"-", ; R6 x$ S* ^; @5 y" ~
      SuperscriptBox[+ l7 G5 J) n/ u% d7 D
       RowBox[{"(", ' V. j1 Q! t$ D9 L
        RowBox[{
" h, J) d4 }* j$ [) B' t         RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", / e8 I- ^' e+ e' c) S8 v
     SuperscriptBox[
( [/ M& L5 @; D1 `; }3 b      RowBox[{"(",
* V0 E/ f, e# T       RowBox[{
5 s: I6 z6 z/ I: f* i1 p        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
5 i0 J/ Z4 J) @5 R" t     SuperscriptBox[
% V0 C5 s% w2 t# ?$ m# O      RowBox[{"(", ! g+ u; }4 M( [+ P, k1 i% ^
       RowBox[{
6 Y2 l+ {- H4 W8 J        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
# V4 l5 f2 H: Q8 f2 V7 O     SuperscriptBox[  V4 c+ w. q# i" a/ b0 |
      RowBox[{"(", + X8 @8 D: h$ \- a1 H6 F
       RowBox[{
, V2 I, f& C8 n9 X, |# j        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
5 f! p  d5 l9 `, \, Q8 ]     SuperscriptBox[
- e7 q- \- x1 n      RowBox[{"(",
8 D, E. [( F7 M' g+ C       RowBox[{
8 K/ B3 j( _/ K+ s- w  }/ s4 i1 R        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", 2 B0 X' z9 @+ l2 u+ g" |
     SuperscriptBox[# K& M0 u1 u2 `6 ?
      RowBox[{"(",
* J+ r* I& Z. \2 `       RowBox[{& V# d+ Q2 Q  [! H6 ]5 V/ g% `
        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
! g/ E5 A! w: y     SuperscriptBox[
* O9 f" K4 v2 E      RowBox[{"(",
- {, k& j& U$ s7 e1 Z& X       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", , s# e6 N( x1 }* M% Y8 A8 i7 c0 l; M
     SuperscriptBox[
/ V) I+ F9 X; C' E3 x" \      RowBox[{"(",
. q. Z4 d( O# G       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
" f$ O: Z" g5 e$ F& Z     SuperscriptBox[
- Q; s" y! w$ i3 C' g# _6 R      RowBox[{"(",
* W' S1 G# z/ X, H! n4 ~; F3 b       RowBox[{' Q7 [* Y! u1 ^; E" G) ~" `
        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
; w* r, x, p$ G: ~2 e4 ?6 Z. C6 S    ")"}]}]]], "Output",
# r7 L+ C% p% U" k3 x& |) c& E. G, m CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]
7 R" T0 f! i' C}, Open  ]],! }% G/ M7 c, ^8 @; v* v6 a: X
* h, c" @* N* E/ W7 x5 V
Cell[CellGroupData[{& ]' Y* m+ z- W5 L* v

1 `; X7 ~; z2 j. j% JCell[BoxData[{
& v' M. _& X8 \0 W+ a1 B( M RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]", : k$ M3 w: z2 f, {' ?, ]% u9 ~
RowBox[{"u21", "=", " [# s/ B4 D. v5 b  V8 Y
  RowBox[{
5 z7 H# }& O  z% m+ u" [3 |* i   RowBox[{"Exp", "[",
/ b: [3 f3 x) S( w1 [8 n    RowBox[{
2 v/ q- w, }, L7 z     RowBox[{$ {" t( `4 a1 O- S
      RowBox[{"-", 0 j9 f, S# u( J5 J$ h8 {; C
       RowBox[{
/ E) {1 |3 _4 M        RowBox[{"(", , m! U* w# r* z* R
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", . B7 A& }6 v6 S" y: x
        RowBox[{"(",
( o; Y9 ~5 X/ @) V& ~! g# M* K         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
+ N; j: S8 K/ X* q4 E; B; c2 h; n8 I     "]"}], "/.", "DeltaX"}]}]}], "Input",
# V+ ~9 _# `! j# z7 i; b7 i8 D CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {2 S4 K. v! D3 W  O. n5 [/ i
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
/ G& x/ ^1 ?8 X+ D* t  3.5779615991556787`*^9}}],3 Q( E% A2 f- L7 F" F7 a

8 c2 e4 ?/ L% |, U8 u& ?+ a3 L0 vCell[BoxData[( s; R& Z" l9 X. l
RowBox[{"{",
8 u) T0 g$ w  ]. s  RowBox[{
# }' m2 R- l7 x/ x4 s# Q  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",", 1 g1 R7 \) m' J$ l! H
   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
/ Q9 V% n+ a' b! z. K' I  "}"}]], "Output",* v& u  A) g8 n. B0 J
CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]," ?5 L/ r* {7 H) r

3 g" ]/ b  _) o5 J8 y( iCell[BoxData[
" j/ t& D) E8 A! u" t" O" C SuperscriptBox["\[ExponentialE]",
, `! u: i- W/ |  |/ ^2 s" k; ^( o  RowBox[{"3.141592653589793`", " ", 8 \( O& X: e- H, X7 R, O
   RowBox[{"(",
* U# g9 F9 P0 U( ~/ c5 f, w    RowBox[{, R2 I1 o/ F% B. d2 t6 U
     RowBox[{"-", - B) Z' U; C" G; V+ }" r# r
      SuperscriptBox[1 P+ v% ?* I- |2 e2 J
       RowBox[{"(", 3 ]0 F# A/ w2 ~( [: w. m, ^
        RowBox[{$ H  T' u' N2 L* d$ H) ^
         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", - [$ Z9 o& K: z
     SuperscriptBox[
7 ^: u  d! p; ~: T* Z  q* @      RowBox[{"(",
) ^" A* I$ F7 _( P8 m$ p4 I       RowBox[{: Q  w7 }( M+ l2 R
        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", ) o/ d7 b) l4 l! g' [1 m
     SuperscriptBox[& J" G/ R. P1 ~+ a# v' ?/ k* Z
      RowBox[{"(",
( ^$ R( d5 l( k       RowBox[{
, V3 g) O3 z4 N) a! S- v        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", ) G0 o/ h! |. ~# c
     SuperscriptBox[/ u* T% I+ x& e  q1 M5 P( s& e, i3 Y
      RowBox[{"(", 9 W2 {" y, R/ ?
       RowBox[{0 y, C. c" ^7 h$ q) `0 `. a- j- Z
        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
7 `8 a5 k! I* r     SuperscriptBox[
) K+ S* z  A& L* U+ j0 K/ \5 }      RowBox[{"(",
3 {' `" U# j" @4 Q: G! {       RowBox[{
8 y) `( a+ M  l        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
( C; V1 c- [0 U     SuperscriptBox[* \! M* a8 d+ |* `- m1 b# y) s2 Y1 i
      RowBox[{"(", , z4 }' R% ^% {1 g& Y. u" A. s- ?( P
       RowBox[{
( {  z  J( |7 e" n        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
0 |" X' k) o+ E8 m     SuperscriptBox[
8 @' }& E+ p" Z, |      RowBox[{"(",
$ ~$ P8 X0 U0 h       RowBox[{2 A, h9 F& S3 C
        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", + Q6 }* S( E) U& s! m$ n7 ^
     SuperscriptBox[/ y& _* b0 Y5 r% c: k, M! U0 a
      RowBox[{"(",
9 i2 e" g/ n, ?9 F4 Q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 E0 o4 _0 _# y, z
     SuperscriptBox[
. f4 C4 d+ C5 c+ G  e$ t8 m  R      RowBox[{"(", 8 y6 J; I- ~, v3 u- \" G
       RowBox[{. R4 X" y# }$ |7 O! X- T) M4 W
        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], # `; ^. C) p% m# \4 T5 l6 f
    ")"}]}]]], "Output",! k$ ]+ J6 ~/ R
CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}], m6 g( N! T! L
}, Open  ]],, V- n* d0 M# n: K! l9 a$ H3 [
; n! [. [5 J# w& e# A
Cell[BoxData["\:62df\:5408wi"], "Input",
1 S1 B  p# s: a. F. D( g CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],/ a; J  m' N, Q4 @

/ h9 q$ x# p9 [# XCell[CellGroupData[{
5 c) p2 `! K6 V5 q4 b3 L4 `2 r( J. D6 {/ n# z! B/ v
Cell[BoxData[+ l; ?) l/ n+ S' m
RowBox[{"y1a", "=",
, T  G! U  U2 T: P& f+ K  RowBox[{"Table", "[", 6 m  D. k& O; Z2 d7 r2 R
   RowBox[{"x", ",", . s, P! U! C+ n
    RowBox[{"{", 1 L& H3 j  [& _/ B
     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
6 a. c+ ]( [( Z: r- x) U CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
8 Q4 ~$ K/ ^% x$ D& O5 ^( Y  3.5779226649375*^9, 3.5779226810625*^9}}],' u( O- [, y7 S  p% ]
$ a3 Y6 g  c) t" A- b
Cell[BoxData[
9 f( g! i8 B. d( l RowBox[{"{",
  O- @) y4 c7 B5 R8 D7 `  RowBox[{  i1 @# ]+ g! V: D) y
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
* f) e; @$ f' v  i$ b; p6 w   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
7 A' L  N! }+ K( T4 I: ?    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
) U6 v8 l5 M; q5 S# o6 @   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
7 t. Q: D8 S' I3 [9 A   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
" K  s1 e) u+ o) d4 y: a$ o9 E   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 8 {0 d% {6 f) v- |' c
   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
: z! {' N" d& Q$ L   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
9 R1 D  h2 T  E# ^: }3 b   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
( I; \* b# v2 S7 l2 v( F/ O  "}"}]], "Output",
0 T- |: H% E5 ^/ D4 W CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
; K6 v7 c3 F. _/ ^# G- L  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
5 Z, X5 u0 }# q- |* w% q}, Open  ]],4 s( L3 b; E& f
5 N( q) F' N. b. W
Cell[CellGroupData[{, X5 ?# E. T& e0 N2 q7 R4 _# G

' H$ X8 j% e1 o# g" F  NCell[BoxData[
) d% P& f" _/ _) A+ ~* X: k* v+ K RowBox[{"Data", "[",
; T4 ?2 w+ j0 ~7 e% o  RowBox[{"[",
* @& }0 i% d9 {: G& h% w   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",% Q. Q8 Z. A1 {% U, G3 }
CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
4 q$ z" _, S8 \0 g2 a   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
3 M1 Y) V& W, L5 o9 Z9 W! ?4 x
' `) G: ]7 p2 Y5 k9 qCell[BoxData["0.899882`"], "Output",
' v5 p( ^) n) R3 H* b6 V2 I CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
+ c2 c7 b, l! `5 \   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9, . G. R8 s" B9 l$ I3 m
   3.577961929080654*^9, 3.5780123419375*^9}]
/ A1 M& G8 C. X0 D3 P}, Open  ]],
. J9 Z4 A7 J$ ^( ]$ {5 z9 Q" K% s
: K2 t1 @6 {4 ?/ r# {$ X2 NCell[BoxData[
$ w0 h7 `( `# M$ k RowBox[{"For", "[", 8 a4 S1 i( N% U/ _4 d8 e& `
  RowBox[{4 c. @2 Q1 ?; U& z- |$ M  ]
   RowBox[{"i", "=", "1"}], ",", ; y7 R5 c/ A& _+ S3 x$ r
   RowBox[{"i", "\[LessEqual]", "60"}], ",",
& H( R4 Q. c# |   RowBox[{"i", "++"}], ",",
. y: d3 a/ D2 Y   RowBox[{
* ~# p+ M: Q+ a    RowBox[{"y1a", "[", & W( p1 N! M" F
     RowBox[{"[", "i", "]"}], "]"}], "=", 0 h+ W/ M9 [4 H( l3 V1 q5 D
    RowBox[{"Data", "[", " _) {: B. u; j; L4 S: z0 W
     RowBox[{"[", : e2 ~1 e. Q' S5 {5 B; V$ w
      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",. y- v7 T, D) [" I2 Z7 U: b) r" w
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
% f# X  c' h4 q$ o4 j9 w( ^   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
, z3 j  F9 r3 ^; a! M   3.577922923203125*^9}, 3.5779588839702806`*^9}],$ z9 {3 ?( R' M) I- s6 U$ n

( b3 n5 q) u7 F9 c$ JCell[CellGroupData[{7 O0 S+ H2 q2 l
0 ?. ^: L6 B+ m' k9 l
Cell[BoxData["y1a"], "Input",
. }7 `0 @9 h" X/ `8 v9 P CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],
" k( d- U& @" T; B- L$ X" N1 a& ~. D5 t5 a3 j) E/ E$ a
Cell[BoxData[
2 O1 S, \# c* s RowBox[{"{", % ~6 ^6 z# H3 h3 M) l! S+ w
  RowBox[{$ Y/ i: k- o) r
  "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
9 D1 {5 B: F3 b+ H1 D- h& f/ P   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",", ' ?; F/ ]+ p: c: Q* d2 p8 Y
   "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",", ( Y) v( F' R3 m; i3 D
   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",", * H- W3 c) }( X7 D3 S
   "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
7 a5 R" L+ ^' f   "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",", & |- L% k7 \1 O" W" j6 k
   "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
3 T, d% C, L: B9 ?+ R% c5 m; N0 B   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",", $ @3 G5 H' p4 F7 o9 s2 c& M8 V1 q( g
   "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", ! [& K' t6 R  T  x0 m
   "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
  S; Y" M& X, x2 z2 l   "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",", , D' [' `4 M0 z# I4 ^, x' h
   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
+ c* d2 r1 W( P# l1 @# ?   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
+ \" r/ G+ H# a7 c( E3 K5 F   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",", . a0 w8 Y& ^: ]$ R0 l
   "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}], . h0 }4 N5 X0 S1 T1 k/ J
  "}"}]], "Output",) e0 Q$ F2 W+ K2 t! f# r1 h; u
CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9, ; y4 x0 @# X- Z1 F5 Z6 N
  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
( A( T( v0 {+ A) d& Y, m( t}, Open  ]],
1 F" y( S0 s) p) s
+ V- }! G4 M: x' {9 xCell[CellGroupData[{$ L% p. \$ D* J7 W& Y6 `
" f8 H. ]+ \. Z& x; I) d7 E
Cell[BoxData[- \' u( o7 A4 R% A5 E
RowBox[{"m60n21", "=", 0 i4 S- L8 O% D4 j$ Y3 L' V
  RowBox[{"Table", "[",
6 {8 [/ ~9 s+ n9 ~& _   RowBox[{
) L' E* b1 J. {1 H& p. h  W    RowBox[{"Table", "[",
4 E4 i) F8 }' C7 P     RowBox[{"y", ",", % z! ^7 e5 `0 q" j* M7 ~9 o
      RowBox[{"{",
1 ~6 b, A: p6 G# m       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
  L- N+ X) u- m. U  q2 G$ q% s    RowBox[{"{", ! Z' A6 Y) Y; t* V, p
     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",# Y2 Z4 Y* C9 K4 H
CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {; Y) M7 V* W1 H2 W& ]( P; E: V' ^
  3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9, 8 z) |+ y+ P: H+ P3 `6 v
  3.5779619706547265`*^9}}],
; ?, [% ?% Y( M  O  Y/ e0 r+ G# Y& g7 V2 X% F) B
Cell[BoxData[
" X) F  j; z: J RowBox[{"{", / t( F* f. C( B1 D
  RowBox[{
: p; w( E& v/ Y$ N5 s% j   RowBox[{"{", ) J- A  q5 c1 o4 S2 n  s! L5 p3 Z
    RowBox[{
% B3 j' H! e9 p2 e) r$ m) P0 @    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
+ M  w3 D# y+ W; j5 A. e      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
* r. m5 W# s4 e8 y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- Z' J9 d9 H  q$ k( K  s2 Q' L- Q     "}"}], ",",
" o% z2 ?$ |- F0 k   RowBox[{"{", , J9 w; ]8 V2 g6 m8 K
    RowBox[{
# J# y! ^( B+ J: e' @! g    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, Z% ?4 {' S0 [) ], ]9 O5 a* t& R
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
3 N- U+ C7 h" B. I- y9 K. b/ k* G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: r1 Y, I1 Q0 d  i, M) P8 Y! }
     "}"}], ",",
# H5 p" w* H9 V4 z   RowBox[{"{",
2 S; j9 h# a5 z6 P    RowBox[{- b0 Q; A) q/ O9 ^* N" {
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 j6 k" i4 K/ J+ `" c; a      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) D6 g4 ~, s* Y3 m2 d6 U. L0 }
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; T( }7 d. Z! O" H/ V0 B     "}"}], ",", + f' H4 a. ?4 a1 L; p
   RowBox[{"{",
3 Y  r/ f# ^: V# x    RowBox[{
+ f# [. ]5 Z! W. m+ B    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& h$ x( R( u5 s6 p  T
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 R% s( g' [" ~+ [9 m& W     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 y) \" M: p, x# x     "}"}], ",", 3 z. |! M* M! X: Y! Z+ t
   RowBox[{"{",
" @/ \. R! J) K9 \5 p7 F' E5 H    RowBox[{
4 a" c3 n, k4 J    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 y6 x( w/ L2 s9 v5 N, h2 b' o      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
+ v+ X, S" x+ A     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: S/ F2 K) V  E' M, p3 A
     "}"}], ",",
' {3 ?' W( x2 |" K$ ]% K   RowBox[{"{",
6 e8 }8 U4 H0 J: p9 p# T2 p# q- L4 q9 n    RowBox[{, s) I$ D# B4 ]6 a8 v8 U
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 k( K/ A. C+ D8 ~! ?
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ f4 W: Q: P9 g2 p3 `# j
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
0 [0 G: _) B7 ~. P' M3 S" n/ N* `" z9 Y     "}"}], ",", , g; q. e6 g: m( T
   RowBox[{"{",
' M; f" Y( z; ]1 s4 a  ~" t  R    RowBox[{
! a* L' c2 [. ^    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; X3 N  ~* S& n( }6 T& t- q
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 {7 J( ~# q2 m* \% A6 K
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 v3 U0 X4 s! q& |% m
     "}"}], ",", 0 V0 j; r8 N% ^
   RowBox[{"{", 9 _! ~$ @$ z7 s0 |. a
    RowBox[{
1 F8 z3 `! X% S: s, M* p. G4 y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! `; q: r5 q) a5 b* _
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 R" R" t" g- d     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) q4 R; ?) [, e8 S- n% r( G
     "}"}], ",", 1 Z( R+ I" r5 C  v( v2 E
   RowBox[{"{",
0 a8 @! Y& X; _1 U8 `, h* ?    RowBox[{' ]/ f: y* O  |+ s# N& r. g# g& b# v
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, \- ^" k, Z% u/ M      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 [1 Z9 I" G% A9 l- I
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 l. Y$ ~3 E: {+ q- q* I
     "}"}], ",",
: K  p" o) x/ D   RowBox[{"{", 8 h9 ?5 F' H& V. k& L
    RowBox[{
- n; ^: t$ g  k' I/ P    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ ^$ n- L8 j6 e) ^$ M7 O      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
$ i% H' C) G. l( U9 x4 k     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 }) ~0 H7 }+ e
     "}"}], ",", + j& Y# `' a8 I8 a1 `
   RowBox[{"{", 7 ?5 r* b5 d! _0 V
    RowBox[{/ G7 D3 i& O" x& j( ^( Y0 Q
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: a# P! N6 B0 N) ~
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , M3 m; T+ ~3 l+ h
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& C+ {5 t* Z; P) Z
     "}"}], ",", 8 w. d# b9 x& `- t, w0 a2 _  T
   RowBox[{"{",
, e4 B( v" Q9 F# e9 {2 D    RowBox[{
. p  `! k; H% ~( @# E- h; C2 }3 a/ s( l    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" f& \: K4 G8 x6 I      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 P' H2 s( C. R     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 O2 F9 y- D  z- P; N
     "}"}], ",",
+ S: @3 o2 R1 B" L   RowBox[{"{", - i5 N9 e& {2 d! M
    RowBox[{
* Q& i! D5 k3 S/ q4 p: V- c' G' p- m    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 z" z) ^1 a, d
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * K5 ~, o% t( x
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ ~5 E( p4 d. U* B4 i
     "}"}], ",", 6 @) q! D' ]5 u6 ~& T& l* j, b
   RowBox[{"{",
# W/ \6 U! I8 [: ~& U& q    RowBox[{
) d6 X# P. _. w+ ~3 D6 T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: {: o. C8 c# G* E      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   O1 B+ H& m6 L# f. s, n
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* A! ^5 m6 G: N! C. X! v3 Z
     "}"}], ",", 8 H$ R( \# A& i5 Z& m5 h0 G- s
   RowBox[{"{", 6 j1 _1 D3 s8 H4 l+ Y5 w0 O
    RowBox[{5 g* P* J* a5 @' y1 J
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ n0 M$ \# W4 T! W, K# R7 x8 j
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
" a2 p+ T& P: u  e% w& E     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 P/ l; i3 |, X% q) ^" z  _
     "}"}], ",",
) M0 U8 }0 g( @, R   RowBox[{"{",
, e3 K6 L, F0 G) \    RowBox[{  T2 h$ Q' L* p
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" [8 \% k/ x3 M, x$ P) p+ S' d1 _      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 a5 C1 b0 b6 f/ b% y5 p
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ x9 {, y# r5 W* C4 n
     "}"}], ",",
; q' |/ k9 F1 v1 E# W" ^# }   RowBox[{"{",
9 _/ v( y' Q& W) ?( a    RowBox[{% j% G9 v- S1 g4 z, Z' o4 h
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; b8 a+ Z* ?) ~* ?      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: E! w8 G% y) k; J     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 U4 Z4 p( e. `  S; Z) ^# ]
     "}"}], ",", 6 ?) I6 W* ]- y3 _8 ^, i. M! o9 w
   RowBox[{"{",
$ ]+ `9 S, x0 B& y# B    RowBox[{
5 x2 x2 I" _- K! q: h    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& f  W% w' ~0 m+ a) i6 j
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , B& s* Q' P* B
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' [, _' G( \! n! f5 H
     "}"}], ",",
3 m- ]: ]7 i* a: O3 t   RowBox[{"{",
! F* S7 d9 T4 q, n& C    RowBox[{* M$ Q9 S7 M& _7 e! [; ^
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& t% i* |  |2 i0 A' ]6 E1 N
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : b: n$ X; o4 H8 X7 c
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 r3 ?+ ?5 o+ a; j# g/ V( @
     "}"}], ",", $ ^8 ^$ a3 C/ D7 E" q- s1 k8 R. \
   RowBox[{"{",
9 v" C. m/ \: a* S5 F  A# m7 |% a    RowBox[{
, d+ z' D# S4 k+ s$ E5 N    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 W4 x3 t' U% O, p0 ^' J      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
7 ?9 P( o7 }9 m, B     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 X% ~! g: W8 a0 l0 l
     "}"}], ",", & w7 w2 h& P3 G$ O& \6 i
   RowBox[{"{", . S3 r! l9 I* E! w+ ^/ L$ W
    RowBox[{8 S+ w  M5 t$ r8 c$ x/ o8 ?
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 h& p& d  D' G
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , g2 K4 L9 v  L
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ i2 \0 X( V, g$ P* ?# v, _     "}"}], ",",
' o4 z- S: ?1 \& i9 f$ E& |9 h   RowBox[{"{", / w- S+ }5 y7 @6 F- j# a
    RowBox[{$ Y3 }) _% X( J( @1 N
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& K1 g% {  t! C; h- \      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 J5 L  [  K: B
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 g: `1 @6 T. S: M- A: H
     "}"}], ",",
; m: f6 i1 X6 y   RowBox[{"{",
7 }& L8 n$ I9 L+ G; [    RowBox[{
; e) l, ^# h, S- k, X; _+ F    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 W1 U9 @5 o7 s. B
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ E( z! L3 ^) H% Z1 f- h
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
3 ]+ U( B5 f( e7 k2 k% n2 n     "}"}], ",", & ]) \( T" y8 l7 L; M3 n
   RowBox[{"{", * Z; t9 K! o5 w7 C9 Z# E8 p
    RowBox[{
& A& o+ b6 o- [5 w. e7 c# {    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 U0 o( w2 ]: P3 t9 U* f* a5 u
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
' @  h. H1 r2 Y4 }: e* F     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ r: ^) }+ J  i5 g' D  k- n
     "}"}], ",", + [( Y. N9 U$ t4 \( {  L
   RowBox[{"{", 7 s6 ]8 w0 @* Z1 O* s/ d; p
    RowBox[{
2 {; G$ g# l! x7 L    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: Q* e3 C2 n1 w5 e% f      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * O. y- V, G. z/ ?) E
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 h% N# O- h& a- j7 O5 h
     "}"}], ",", / c( w6 x: l/ {6 I! l
   RowBox[{"{", $ _) K% q2 M, X8 f9 ]
    RowBox[{: G2 G; m7 {5 ?% H6 y7 G
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 R, q$ V) M0 k1 C  R: q* n" e! s
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 e$ P2 i1 U4 M/ Z1 w: v
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
, S0 q2 Z1 T2 M6 ^1 ], B     "}"}], ",",
- @# G7 @; z9 [   RowBox[{"{",   C0 P, T6 P) x) s2 H' Z$ D. s& X: `
    RowBox[{
( F, R$ L$ ~' d) g& V0 h    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
( L' j. _- ~; ^$ h5 x      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; [& Z  @: z4 Q3 Q
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& F2 K3 C7 A4 z9 I% o$ Q* e. H     "}"}], ",", - ~# O: T8 g6 a3 ^9 a* P) z
   RowBox[{"{",
7 q$ j7 H3 f% v    RowBox[{$ g& B7 F. M7 Y) u
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- D$ P! k7 W' R, r/ t# T      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' w- Z$ u+ N0 W* b  v
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 V2 ?( [. t; L; ?' T4 g
     "}"}], ",",
( e3 W) l9 d6 Q6 k! b, M   RowBox[{"{", 6 h# b7 A& I5 R; C2 d. N, s1 k7 I
    RowBox[{
# q. [! X# p$ J/ U4 s6 D) Q+ G    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) u; V' `0 t. H) [& U      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 H5 Y: v' q& e
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
2 t- O  g2 ^. Y5 p  ~     "}"}], ",",
  Z- h4 r# W* K* N   RowBox[{"{",
: t4 K* M" v) L. K+ m    RowBox[{$ k+ C% a& C( O& N! A
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" c% t3 [* r5 A8 \& m      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) y/ ~9 N( [- F+ q) K$ f3 e
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) Y( O. {7 p! b! W0 Y; l     "}"}], ",", 4 r/ ~3 r% r1 b- I
   RowBox[{"{",
+ U7 X& X! ?, O$ _    RowBox[{
1 [. b; |& x* J+ d6 K    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& G% A- c$ d# x
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. F) z2 q1 V* I( H- [- k     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ ?6 J+ B" D' y& [7 Q$ d3 F
     "}"}], ",", ' ?" T+ Z. [% g! j6 J) z
   RowBox[{"{", 0 r% z5 J1 g+ J: I# \" F+ }; }
    RowBox[{
0 B2 R# x( T7 o7 e    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: e. Q/ i2 v; I      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 q8 R0 H4 l) M/ O
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ }% W; A7 s; N+ x
     "}"}], ",",
4 B* `# J; B0 l# w6 r5 E5 d   RowBox[{"{",
7 J' D! `: w" {$ h- F3 |& c    RowBox[{
5 n8 t# o! c& q2 I  A' a4 L4 i    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! z# m3 T9 }6 P      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
/ O8 d4 E( f, N- ]2 x     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
7 R( e/ L: m9 b% v' p     "}"}], ",", ) d. B6 b5 O, N+ P# C
   RowBox[{"{", 6 ]' p4 d0 O( l4 ]! u+ H. a
    RowBox[{+ R2 u0 Y1 x' k: x
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 @9 c6 |( d  p5 i8 k; d' e
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ X  [) h" x! N! V4 B! Z, b
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ J" \, ^5 z: ?
     "}"}], ",", ( X7 b  a! x8 ^0 s
   RowBox[{"{", 9 t3 S  q" Z8 M( O3 F$ C4 E
    RowBox[{
9 a. W$ o5 I+ T" Q' a) l- o  V    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 n; A+ g/ O% K. z( h0 M, C
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) t; v! ^2 Z" x8 L% u
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# M6 `" D  Q6 C7 W$ g$ l5 V
     "}"}], ",", 1 x, v( l" H' t4 s6 Y: v
   RowBox[{"{", . o& @" v$ B% ^. S$ _* m: w, Y, D
    RowBox[{8 J: M9 Q6 `5 b  i: I3 E6 r+ ]
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
# k5 ^3 o( ~' q" f. _% r) A; L9 U      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) b% E: K$ [/ Y) W* i& H
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. K8 h& D# c. d$ q  K
     "}"}], ",",
$ n: e) x; ]% N$ z- Y# j   RowBox[{"{", 8 Q$ i5 B% V$ c+ l6 |. f
    RowBox[{
" P( d3 [8 i% ~    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" F- P$ o. {; m7 C      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
7 |; r# i0 ]4 j$ v* V  j9 B8 n     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- A! K8 ?, ]: T3 Q: ^, Y+ G     "}"}], ",", / h" {4 @8 m- X1 L+ f& W2 u5 p) {, _
   RowBox[{"{",
' O( e. n4 a9 A    RowBox[{
. k: l1 y  `- d7 c    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
. s) f/ ^+ m1 @7 i+ w) d" T) Z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 n: b. ]3 d- P4 ~* C, U* I8 o     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ u# D; r1 E  O% ]+ c4 r$ x
     "}"}], ",", / E# B7 X6 H- Q% s  M+ Q) q0 s
   RowBox[{"{",
  d6 g3 e* O+ C+ G. H7 L" l    RowBox[{
7 z5 i1 i. O  W# C+ L2 ?  V    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- V" L: X# g' D8 `! m$ E1 q$ r      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * M/ M3 f! b: @. K% o% A
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 ^1 b8 d3 H5 B! @
     "}"}], ",",   y( X" y* G" X/ s6 t& R+ A9 N
   RowBox[{"{", / \- r1 X7 v- v" ^) H
    RowBox[{- Z9 j9 k3 O1 E
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% v% w/ r& V- J/ ?6 b/ D2 S      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   W, V# G' [0 M' A8 v
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
3 N, w( X/ J9 Y3 _     "}"}], ",",
% w7 Q& m$ P- n$ K   RowBox[{"{",
# H+ p% N) h! l+ |5 C; [2 J    RowBox[{$ W  l- y, R/ N6 c8 o' w
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ f+ e$ V: t9 b" v      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * C1 m9 a% R- T
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
, \% x) M9 H$ C7 Q5 Z, C  k/ y     "}"}], ",", ! n6 A4 H7 g1 O1 Q
   RowBox[{"{", ' d5 b  O8 ]& t" S
    RowBox[{# _) C! D2 M8 H
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" F* G' D: q5 a2 L      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 o* R# R% H  n. f, E! l
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( W+ Y3 e8 z1 E. s# l* m* U
     "}"}], ",", ; x7 a* a) t2 B: X3 Z) Q: Q
   RowBox[{"{",
7 S7 s( d) ?3 w! i    RowBox[{' D, E9 H1 S% _8 d) q/ Z, o% \
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& g( u3 f/ P. ^  h; W
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. U! e6 k0 R! A; G: n3 `     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
3 A7 {% A. r  B+ {- x. s     "}"}], ",", . U; B( W' n( d  L
   RowBox[{"{", 2 E7 U( p/ X! _4 d. }( i
    RowBox[{% K; ^( A# J# R& H9 C
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
1 q, f- y6 F6 }1 ]      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # G! B* B# O2 T7 d: y
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) J# g, `! W* ]- H6 R
     "}"}], ",",
1 D0 x1 v. \( @, T4 f   RowBox[{"{", & h& p6 B6 t, _; C$ X* R
    RowBox[{
. u5 d" h2 i7 K, z# B    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ ^8 U* [) w5 }. b      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
  u+ l5 Y/ X7 @4 P4 w3 m     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ G/ c. V1 w9 R$ H3 }+ L     "}"}], ",",
6 m3 X* h7 w3 S   RowBox[{"{", : Q0 L% o( k% ]: e
    RowBox[{
# I% R' a$ S7 n0 i& B; R7 N% E    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& k, Q) t  x) {4 B, ]
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   x$ H- ]$ L7 J2 K: l$ H, k0 c
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& ]+ j  d. f' H' P& D% I9 S" R     "}"}], ",",
4 h: E# E/ t# e/ L: G   RowBox[{"{",
) w# ~. l0 U- I9 T$ ^    RowBox[{
" D3 M! J) {, d) d    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" T) W8 j2 y! F; ~' J- B' L2 A      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 c; i& i- D" J8 w2 ^) I8 C4 S; o6 ~6 o
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
8 ]* q' G! C8 N. L& P' A     "}"}], ",",
& o4 x0 G6 l1 d  h0 N: \4 U   RowBox[{"{", , J  `% Q0 j1 X/ J- F
    RowBox[{
6 d% r0 h/ s- b    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- W* y  R4 ]4 K6 o3 b5 z; A6 E. G' `      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 H+ R; f/ o! N& B) a: F4 L: b     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) x9 M: a. o) N( M: }+ x. v5 |/ ^     "}"}], ",", 5 w+ K- {: p$ J* ^/ ]* l
   RowBox[{"{", : ~6 ^% E1 n6 v
    RowBox[{. C8 W. f+ x* u4 m2 L
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 @+ M" L; d$ e8 e
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - S. H) x* T* S4 U
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 t9 h0 j( W' |3 ^, _. D1 V
     "}"}], ",", - L8 K% N# Q& U# P
   RowBox[{"{", : A, X# |8 m# k  Q5 ^6 h8 ?
    RowBox[{
6 e5 Y( \& h+ S1 f) o+ w( w    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 Q7 g+ B" s9 J8 y& C
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
0 ^7 n2 B3 j: q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
2 h( m/ H; R# l4 q7 K     "}"}], ",",
4 [# O9 ~$ P7 e   RowBox[{"{",
1 f  N+ j$ _" f6 t    RowBox[{
2 b. a$ e. R. z) M( ^0 \    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) `! v6 G* [- c& m; t/ g
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 _1 T: x8 y- e4 E) X7 a
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- J/ l1 B6 V* n
     "}"}], ",",
  m; H+ F" O, J7 C+ x   RowBox[{"{",
! Y5 b7 X2 m3 T  \8 _5 o0 e    RowBox[{" P) J$ d7 }% m, }9 L  y
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
( t& _2 _; i& c9 w& G, `' h      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 w5 `5 X. u5 z% J/ g9 Q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 c& ^# c5 q* _5 b
     "}"}], ",",
& s% }  H! \2 @. ]0 k   RowBox[{"{", $ g3 Q8 Q# }5 W2 u
    RowBox[{$ K% w. k) g: [1 w0 C5 }' H
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ h" T" a# ?' n: ~
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
! n6 N  ^! M  D( u$ m4 Z$ T     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 K6 a! Z. |) s* i
     "}"}], ",", / c( D) O; @7 ~/ N9 V
   RowBox[{"{",
, ?" ~+ Q# J3 |( v% q" Y    RowBox[{- d0 v8 C) |2 V1 y
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
  @! `2 |6 v! {- J1 D( e. p      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 f$ D* M* E* j: ?
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* H7 d0 H7 a9 ]
     "}"}], ",", ' D8 K9 W/ G/ i, @
   RowBox[{"{",
: X, {/ I2 X8 B0 h4 Q    RowBox[{5 R6 J; T8 \2 _: @$ G1 T% u
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 l; b2 H# c0 L9 k9 e
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - y" L. g: p% N3 H6 [
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 O! X" v5 l' F% k( Y2 U
     "}"}], ",",
, i* H2 m8 Z6 o3 H- o/ Y   RowBox[{"{",
  F5 i  H5 E& U: b" Q7 ^5 \    RowBox[{
% _# q+ l( U2 L2 V' Q5 q    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
* Q& P6 f  M+ w8 i      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " t) c' a1 |5 P9 w& V+ V% v5 q
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 ], n& D1 D; V" E: C  t6 h
     "}"}], ",", 7 b" V/ j' z$ x( b/ E# K: L
   RowBox[{"{",
( @9 m  [  a4 K7 ], H    RowBox[{& @& t  m  F! p! F7 \0 ~
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( V1 S. X/ f" G* u% _
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
  T! @* |' v4 V     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 D4 @. D! \$ r- P
     "}"}], ",", " u3 Z5 X* Q, B
   RowBox[{"{",
4 c) Q* K2 q$ @    RowBox[{
: {! g) d& N7 ?" w9 i8 _/ M( H    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
0 k0 e* \( _0 I; G. B      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : {" e9 T% U- W+ ~
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- ^# E2 R) N$ f. s+ y) _6 e
     "}"}], ",", * ^; ?4 r# U1 ~7 S* M2 U7 }
   RowBox[{"{",
! `; H  n( b' ]; `; D7 X    RowBox[{$ H1 o0 |1 A! c9 d
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 u- Z8 P2 X. Q& b  s      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) t! v" [6 E7 u9 f7 l' Z7 Q
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 g! K, X$ F8 N  G- ?* L! X
     "}"}], ",",
5 B/ L, w! w% U4 \( d( X   RowBox[{"{", - r# x0 K9 E0 H1 V- {7 L( M2 a+ ?  d
    RowBox[{0 m  p9 p# h7 k
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," ~* n: B/ e' }& ]- }$ m
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( x$ D) ?8 J2 C8 K, w2 {
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
1 z1 R8 D+ P  l     "}"}]}], "}"}]], "Output",
; i8 `8 ^' a8 G, O/ _0 z7 ~ CellChangeTimes->{6 H" L) Y0 \/ G
  3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
7 q( ^8 S6 Y% P  V) A6 v   3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9,
" L% p7 H0 N% ~% ^/ C   3.5779619748823338`*^9}, 3.578012345453125*^9}]9 H' _* @" P  f, j8 C: R
}, Open  ]],( a1 O* a8 P& D. \
9 r/ O  d+ U" r
Cell[BoxData[
6 O' H1 b/ X2 E9 P7 r' ~ RowBox[{"For", "[",
. Z2 q9 j2 a3 _, O5 a5 d  RowBox[{& c& Z. K  Y3 }, f2 V$ |5 O
   RowBox[{"i", "=", "1"}], ",", / h3 ^* |' B1 ~9 i
   RowBox[{"i", "\[LessEqual]", "60"}], ",", ! r6 c, F" s7 ~4 V+ H
   RowBox[{"i", "++"}], ",",
# K( p, {" L) X6 b   RowBox[{"{", "\[IndentingNewLine]",
: n. \6 N5 e. `2 P9 \, G    RowBox[{$ g- Q2 t& w: F) Q+ X
     RowBox[{! Q: m6 `+ M) l# E' \- V! {
      RowBox[{"m60n21", "[",
# P4 G9 r3 O" A5 ?       RowBox[{"[",
! f0 k: h: l7 z, A( T. @7 P        RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", 0 `* s5 W" {% P1 X0 S
      RowBox[{"u1", "/.", ' N- S2 ~9 x/ c! A( r
       RowBox[{"{", & @) q8 ]1 z8 Q9 x" d, i7 V
        RowBox[{$ O* c& X. x! Z
         RowBox[{"x1", "->",
1 Y& I6 y9 F! U- l( j/ o          RowBox[{"Data", "[", ( F; S- K, Y$ o( N6 g
           RowBox[{"[",
+ T: F* \$ u& a2 F2 [! O: ^            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
/ m  B' l: f" v$ m' @8 n. @         RowBox[{"x2", "->", 7 n: \& l3 Y2 e
          RowBox[{"Data", "[",
+ f& V) f; {9 ^+ H2 S+ t) u: X& s           RowBox[{"[",
2 S! J2 e+ \. B0 r, d' i! f$ p, G            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
& \; J' i& H, R- S         RowBox[{"x3", "->",
- W: ?  v" h0 T9 V' u8 G' L          RowBox[{"Data", "[", 0 C4 L) w9 P* Z- X- p! v* Q
           RowBox[{"[",
$ V( ]. e! E3 ?# C1 h            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 8 N: }/ K; ?# _2 G
         RowBox[{"x4", "->", : M. B8 V4 N; a  U0 Y' F
          RowBox[{"Data", "[", - E, j' x8 V7 p. A3 U- J7 u6 ?
           RowBox[{"[", ) |3 d5 k  y( k% G* j
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
; S- K# g- g# n6 y1 L1 l  {; D& ]% H# o# q         RowBox[{"x5", "->", " n, F5 `4 F6 j5 {" Q$ {
          RowBox[{"Data", "[",
: q& v, P9 M, k, O           RowBox[{"[", . s2 s# |; W: R/ U' F& J
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", % ^5 U. S  _, I8 k
         RowBox[{"x6", "->", " r6 S/ Q$ U0 q6 K& M4 F
          RowBox[{"Data", "[",
5 p: D+ S4 l- M, q7 B- G5 g) H           RowBox[{"[",
' t; @  U! x' {8 y- X9 _7 W. {            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
* \; m& J+ o, m2 R; n6 D         RowBox[{"x7", "->", ! r* q1 a( I  j0 {/ t
          RowBox[{"Data", "[", 3 V$ L* g; B3 P. S2 N/ r& ^
           RowBox[{"[", ! f8 ?6 i2 H0 v; ]6 f
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", $ V' ?! j9 S) Z5 w
         RowBox[{"x8", "->", 3 W6 v4 ^) V  k" d" s6 {8 H
          RowBox[{"Data", "[",
0 ]7 p' @. @/ W6 @7 ^. M3 u           RowBox[{"[",
5 b) `7 r, [( Z, W. J' E            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
1 o+ s  l" P" i) ^, G0 u  U         RowBox[{"x9", "->", % C9 h4 T4 a" q- N  s; {) F7 u
          RowBox[{"Data", "[",
/ H# g1 p6 }! r% p           RowBox[{"[",
) G! _; L2 T6 w& M& t- B- F. P            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 4 ]! U* h1 w6 k/ Z- f
     "\[IndentingNewLine]",   P: c# i7 F& u6 D  u4 o- }9 j
     RowBox[{
* ?0 Q/ L) H4 @0 c9 a. I& A  _3 ?      RowBox[{"m60n21", "[",
" K) q& m# F# z! J, s+ Z  X0 c6 F  [" C       RowBox[{"[", * |4 b% b. C9 t) e5 A
        RowBox[{"i", ",", "2"}], "]"}], "]"}], "=",
) F! X# |2 H( Z" l$ g      RowBox[{"u2", "/.", # z+ Z) _' n! ^5 P
       RowBox[{"{",
& p# m# m! U8 F: H% o1 M$ Y        RowBox[{5 n7 }5 k% Y/ i, R5 e- ^. W. a0 s
         RowBox[{"x1", "->",
6 l9 p. O  b5 v/ _          RowBox[{"Data", "[", 3 w- R9 B8 ?, R' A/ B
           RowBox[{"[",
( c. l' L+ L" f# _: R            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
. t2 e- ?' V* b" }& z# g2 E         RowBox[{"x2", "->", $ d* F' u! p# I1 t
          RowBox[{"Data", "[",
) @2 y, T7 K9 \7 H6 j3 w           RowBox[{"[",
/ u  H/ F4 u- n% f            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ( j0 [" M/ a2 C5 C' h8 W6 |* m
         RowBox[{"x3", "->", & {. A0 E+ M. K, r* x
          RowBox[{"Data", "[",
  |, C9 ^% m5 T: O; J           RowBox[{"[",
9 _) [7 v. w9 x' i% @+ M            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
0 ~0 R$ d- ~0 U3 J; l& g         RowBox[{"x4", "->",
! x9 E  O1 r% O3 f" X. h8 d          RowBox[{"Data", "[", 9 l6 x+ @4 c' m. G2 }
           RowBox[{"[",
! Y& F9 y' o& K5 e/ b            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
7 s. H: z- K# `9 }  K         RowBox[{"x5", "->", 9 ]/ i7 j3 Y% l. s6 s7 c# J9 h
          RowBox[{"Data", "[",
' T5 D; J# ^1 P           RowBox[{"[",
$ R) f2 w# n; q! k4 ^3 O: X( l            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 3 f$ ^9 t' e3 v: `& U5 Z5 @6 h7 I
         RowBox[{"x6", "->", : V6 U5 \3 J; e% _$ x
          RowBox[{"Data", "[", % x0 v. N* T* j# T4 Q' L! s
           RowBox[{"[", , ?5 [" X* E9 N6 u$ i4 o
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", * c! ~$ v8 q5 F
         RowBox[{"x7", "->",
1 h; \# L# x# m! p5 M          RowBox[{"Data", "[",
% Z# j2 [( p) n1 t% ]. ?           RowBox[{"[",
9 x; L3 {6 m/ W% G" V            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
) u3 B6 B( Z9 C! K8 h$ N2 n         RowBox[{"x8", "->",
* d3 _* c  E+ x$ ?; j$ D7 {- B          RowBox[{"Data", "[",
1 Q" N: R% R& t$ F" R           RowBox[{"[",
) I0 @9 J6 s, h  U& {5 A: Y) r            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
3 p1 A- D  ^7 l8 e; O& \; p         RowBox[{"x9", "->", 0 [8 S/ S' f0 `" n$ X
          RowBox[{"Data", "[", - q1 [) H* k  ~  D
           RowBox[{"[", - M& e+ h  b+ K
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
7 Z5 Q' c0 l' |2 G7 u0 Z     "\[IndentingNewLine]", , `/ E2 C. }: L; ~
     RowBox[{
5 O, ^- ?+ k9 \0 V# k      RowBox[{"m60n21", "[", & s0 B, R& _& S5 j1 L& O8 Y
       RowBox[{"[", . ~+ t5 z, B; m# ~# R" e( H
        RowBox[{"i", ",", "3"}], "]"}], "]"}], "=",
% Q9 o  L4 ^, L4 g3 ~( x      RowBox[{"u3", "/.", / P' Y$ \7 G8 n/ P; o8 ]# V' A- e
       RowBox[{"{", 8 l7 v8 d! f' }. z  t6 o
        RowBox[{$ `! g9 t2 F8 F2 Y3 {! |
         RowBox[{"x1", "->",
# h3 Q; [) B/ U6 w( u4 P0 x          RowBox[{"Data", "[",
6 c/ U$ Z1 Y! G0 A+ ^$ p           RowBox[{"[",
" m# s  B; g( p6 H- f$ x* Y            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", $ p% O, L* I! W; h2 ^
         RowBox[{"x2", "->", ! C! Q# Z- g$ R4 @' ^* N& F; ^0 U
          RowBox[{"Data", "[", . ]3 \/ G3 F, ], z. I
           RowBox[{"[",
1 Z( w* h2 ~/ ], T# x8 d            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ! y7 y, R% O9 a1 G( `/ ~8 {
         RowBox[{"x3", "->",
+ L- @- j7 f+ H" X) v9 |7 S          RowBox[{"Data", "[",
! A8 W0 X0 a/ u7 q           RowBox[{"[", 0 G. L2 J8 U, h  f3 N$ R
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
/ ^( c8 o1 e7 K" [; D  O# P4 F. a2 X         RowBox[{"x4", "->",
; {. n, O4 a- V/ k& Q7 C          RowBox[{"Data", "[", $ h# L% Z3 k* l
           RowBox[{"[",   b; n5 B, O4 G! i
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
7 q6 v7 h3 T* I" @; p  [         RowBox[{"x5", "->", 2 Q+ L) y' \! m! M7 z/ [- F8 M
          RowBox[{"Data", "[", : b, }* C0 Q/ e
           RowBox[{"[",
8 p$ y# P3 x$ W/ O' U5 v            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
  O- ?& `8 }( ~/ D: ]- q! T7 B2 P         RowBox[{"x6", "->",
* ?7 z% T8 Q5 z3 Y          RowBox[{"Data", "[", 0 ]# l" T9 `* p3 |. V) W1 H4 U
           RowBox[{"[",
6 t+ \) e- F. M3 {$ h* ^            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
5 e% D7 ]1 a$ j3 j  t/ q         RowBox[{"x7", "->",
/ F2 S2 E' Y1 T9 G0 Q: E: s          RowBox[{"Data", "[", . m3 p0 r+ F8 w/ q4 A$ V4 x
           RowBox[{"[",
" E  L% x' d. u7 a( @7 R: x            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
, U( y7 y. z: Q' N2 x( v5 ]+ [         RowBox[{"x8", "->", 7 f. O2 ^; u; t3 ?
          RowBox[{"Data", "[", 5 H: z" R( w1 M! Q+ o$ n. d0 V- C
           RowBox[{"[",
! k: U' y, V, B/ p4 E            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", # s- U9 e! P4 \( F' O. j# K
         RowBox[{"x9", "->",
: F" H& r- s0 A% K* Y! A          RowBox[{"Data", "[",
! t8 l5 k5 e$ I           RowBox[{"[", : X0 a2 U+ d( \2 E5 ?1 b- K' s
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",   ?' N. L& m  ~( i5 \
     "\[IndentingNewLine]",
& e! P; A  E: |     RowBox[{( D; f& n" O) I7 }6 \! j0 t8 H
      RowBox[{"m60n21", "[", & ]% d4 s' M5 b# ?! z$ X- l9 @. y
       RowBox[{"[", 2 ]& Y* x' E7 A. P, v0 m" s1 n
        RowBox[{"i", ",", "4"}], "]"}], "]"}], "=", ; J# |1 u  o) E
      RowBox[{"u4", "/.", * r* h7 I2 |, D$ F3 a" M3 [) u1 K7 v
       RowBox[{"{",
2 w. m+ k. g3 p) z2 f/ U: o& H0 X        RowBox[{. C% N! u4 r/ I2 q! F2 N; w5 \) U
         RowBox[{"x1", "->", 1 o. s( R0 F9 U- M3 Y0 ^
          RowBox[{"Data", "[",
. {0 j* l1 N  j. A: u: U' |           RowBox[{"[",
4 M$ J& K8 G, o  o1 @, Y            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
6 \8 e) j$ j' ]4 G& |6 _( R         RowBox[{"x2", "->",
5 N% a4 c6 {" `% j, ?" E, @          RowBox[{"Data", "[", 7 Z4 d0 T/ ~  C( ^4 e
           RowBox[{"[", $ p' D- J  s! X+ H
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", " ~8 \: W: q4 d4 D
         RowBox[{"x3", "->",
8 k/ z" T- o9 `% ^          RowBox[{"Data", "[", 8 ?+ {1 m9 H% A1 B& b( U
           RowBox[{"[", , n/ s! \' W6 Z" t
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
8 J% @0 ?) Y# ^7 V; g- J         RowBox[{"x4", "->",
" S5 t) E# }, |8 m! D' o& A! R          RowBox[{"Data", "[", ( b7 T  r8 {# v% [
           RowBox[{"[", - e: H1 Y9 ], j. K
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
5 g& H7 G( F& ^' N( i8 p         RowBox[{"x5", "->", & n+ L& T6 d. G) D' r8 g3 Y2 p7 }/ S
          RowBox[{"Data", "[",
! i/ |* s4 e& {0 Y- u) J           RowBox[{"[", 2 {2 J) G6 [: P( D
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
& }) |0 g9 H4 O+ s! P; L         RowBox[{"x6", "->",
5 D( t8 L  C" M          RowBox[{"Data", "[",
" [2 [/ ]/ Q, ]4 e           RowBox[{"[", : Z  p2 M5 Y" _; C) q
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 0 [0 h8 y5 ]+ q: {% N9 `8 z1 {* {
         RowBox[{"x7", "->",
- x, r) L# p& U$ C- q' S2 k          RowBox[{"Data", "[",
& R5 a& {' s0 p5 D; u           RowBox[{"[", 1 e* G9 {& p3 R
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
/ I- w* R4 ?  j( l1 }- ~         RowBox[{"x8", "->", + u7 X9 E# f/ S3 z
          RowBox[{"Data", "[", $ @% z" C6 r  e4 O7 C4 A
           RowBox[{"[",
6 e( P% ^2 Q& R  N            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
; l0 `/ b$ O* N  X) y         RowBox[{"x9", "->",
& Z0 W& g* r, c8 _8 S% n/ F& {9 ~          RowBox[{"Data", "[",
: x6 p2 r4 D" V$ c; {' |           RowBox[{"[",
5 n; R. r2 `- ^0 i* ?" O            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
, Q6 b3 i9 I6 F0 v& x3 Q4 c     "\[IndentingNewLine]", ! h6 ~1 I  A% d
     RowBox[{
  V1 c' h- h% ]  x% o* N: N      RowBox[{"m60n21", "[",
0 s* x  t3 \7 X! V       RowBox[{"[",
, D- \5 v5 i/ x& B2 ~9 f        RowBox[{"i", ",", "5"}], "]"}], "]"}], "=",
9 t3 }, z7 N3 p5 d. _0 s      RowBox[{"u5", "/.", % m. P! y3 L" I% x7 [
       RowBox[{"{", # F1 s! X  ?5 z
        RowBox[{8 Z( ^( ^3 Z9 P, @  j
         RowBox[{"x1", "->",
! s1 g* g' z" O9 k* [          RowBox[{"Data", "[", 5 W7 H- v, {2 ]
           RowBox[{"[",
" ~( G$ n! M. g9 n            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 8 v" N' L/ K. Y
         RowBox[{"x2", "->",
0 e% K2 L8 N! m# y  p, c" ?, z$ f          RowBox[{"Data", "[", 1 M  _6 ~$ E1 b4 {, }* O
           RowBox[{"[",
1 ?5 y  @9 B) L2 t! K% i            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 2 N  S# F" o) m% h% N
         RowBox[{"x3", "->",
( B! u* K1 ^7 m& i          RowBox[{"Data", "[", 3 j9 u) q2 m& U4 W" o' c
           RowBox[{"[",
8 k+ |0 ^3 E, n' ^            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", - w* w% H' R% M' |) h( ]% B
         RowBox[{"x4", "->", - W1 w% ~4 \$ r/ w
          RowBox[{"Data", "[",
6 B( w2 k& |' J1 T: `- x           RowBox[{"[",
1 \" b2 o* X7 [. |3 X+ K) p            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 8 C' A3 K8 X; J- @, h; N3 i
         RowBox[{"x5", "->",
8 T1 j. E2 M6 ^2 k, o/ _          RowBox[{"Data", "[", + X2 ?7 ]% ~( \* \2 H
           RowBox[{"[", ; f' A* Q$ R* V6 T( c) X" W
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
9 G6 }9 W1 F# ?% A+ d2 b         RowBox[{"x6", "->", * Z4 s$ L9 J7 E* i
          RowBox[{"Data", "[", ) n5 V- [! s' l& Y+ P
           RowBox[{"[",
& V1 r' j0 x: T' d: y            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
, ]) R" @. }! c) A2 F         RowBox[{"x7", "->",
5 T: K  A% l' A& Z          RowBox[{"Data", "[",
, m% T, S0 m& w           RowBox[{"[", 5 p4 z( }$ e4 t7 P' Z2 @- g$ k% }
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
* W% a2 T) ^/ F# ]1 f         RowBox[{"x8", "->",
, `) Q9 l8 l) {  N          RowBox[{"Data", "[",
1 ]: b+ ^) b! `" y2 |" U           RowBox[{"[",
3 @6 `2 |- B( N! F8 x- Q            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
/ Y2 D4 s9 e* q6 Y+ i# _1 n! N         RowBox[{"x9", "->", & Z! {8 x( {! M; w: L6 q
          RowBox[{"Data", "[", 0 l1 ~) B' }) F/ v7 N$ r1 J6 ^
           RowBox[{"[",
- b( W8 W  Z8 v4 x& A* z! w# t& e; [            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 0 P$ ~5 |2 ^( \6 _5 X1 e* t
     "\[IndentingNewLine]",
5 M9 x' i" Y* L6 G7 _& o% ?     RowBox[{, ~: Q# v! L9 b: j1 k
      RowBox[{"m60n21", "[",
$ B, V! I* s# Q4 N- d0 I       RowBox[{"[",
% ~6 s$ \# y: L% i0 D( z        RowBox[{"i", ",", "6"}], "]"}], "]"}], "=", ' n( j' C6 ?9 f% T& Q& L* A7 `' n$ X
      RowBox[{"u6", "/.", ( T+ k, S4 ~/ @* K$ @. t
       RowBox[{"{",
& N& Z& ]) O0 n# `, l        RowBox[{+ Y. K/ I3 Q4 ^5 Y  }
         RowBox[{"x1", "->", * W* N+ U# U& W8 m& t
          RowBox[{"Data", "[",
( [6 h6 Y0 W' k" A% w           RowBox[{"[",
5 n0 v2 z  U* R9 C. F            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 1 N3 P& k& y# |4 Y
         RowBox[{"x2", "->",
9 o4 S. k) m3 h  W          RowBox[{"Data", "[", 3 G! o- K! ^* u4 F0 ~8 ?, U
           RowBox[{"[",
9 R) E' D7 ]9 J" e1 X            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
/ f& z* f2 a3 |* t  M         RowBox[{"x3", "->",
3 u$ N- F/ k4 J) y) |  `& s+ s* B" {, g          RowBox[{"Data", "[",
/ i2 Y- F7 t1 W  @           RowBox[{"[", 1 L9 `' p" G1 h0 \# {; a) I0 o0 N
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 7 g3 B) h1 p; d. u* y4 ?
         RowBox[{"x4", "->",
6 Y( B3 X# p$ h  d          RowBox[{"Data", "[",
: @; h+ c  z1 v) e. \8 y           RowBox[{"[", : U2 y0 b" @3 `1 Z  b1 R
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
7 c9 p# {3 C- a* T; V, K* U         RowBox[{"x5", "->",
, h% Y6 D7 _+ V' V0 [' K          RowBox[{"Data", "[",
, `( N( A8 ~( O% c5 T           RowBox[{"[",
( r0 i; ]. g* M! ~" z            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 7 U: e8 }" b+ i: T
         RowBox[{"x6", "->",
& t, a/ o' v  t0 d" L  v          RowBox[{"Data", "[",
3 \4 H% `& \9 I9 K           RowBox[{"[",
" E! C5 }3 H- s; F  c            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 1 Q: S# p" H3 P' S: a
         RowBox[{"x7", "->",
% b% V4 g: p* P9 t8 L; p: U          RowBox[{"Data", "[",
) K. T/ z8 `  r0 y/ N: N6 N- j           RowBox[{"[", ( I& `) D% x( [/ Y
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
! k& R2 D$ }# Q         RowBox[{"x8", "->", # o# y5 ?4 N. N8 r! {) L1 a
          RowBox[{"Data", "[",
3 f  ]7 {) X3 u           RowBox[{"[",
7 C8 I! S: [" Y# b            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", / \! U( Z: k2 b: L0 E  ~$ a
         RowBox[{"x9", "->", ; q) Y) {) G1 q
          RowBox[{"Data", "[", & r# z4 r1 e1 w/ a+ G5 M* s
           RowBox[{"[",
/ Y% }$ ~0 i3 C& j# P            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
0 X2 C) ]6 b# ^     "\[IndentingNewLine]", 6 w" U, A5 z* D2 x! ~+ u% O
     RowBox[{% P: y/ M9 A( o4 a* e/ }* I
      RowBox[{"m60n21", "[",
) x" v3 I9 ?/ a4 U9 i7 Z2 {$ k       RowBox[{"[",
4 M* f% K  U6 {0 t0 k        RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", / g, H) E" g2 Q% p
      RowBox[{"u7", "/.", * ~3 K* _5 ^: z0 V
       RowBox[{"{",
7 o6 V' k9 }' w- x: g9 S$ P5 d. K        RowBox[{
2 q: S5 ?' t# @5 V% D% H+ P         RowBox[{"x1", "->", + S& Q( E; \  Z7 }3 Y
          RowBox[{"Data", "[", & _5 S5 Z8 e: k  j, O4 o
           RowBox[{"[", # y. y; L  s9 X) ~  R
            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ; [- i: w1 S: H0 d$ s7 l
         RowBox[{"x2", "->", ) G0 x2 R' K/ a! u' o" S# E
          RowBox[{"Data", "[", 2 T9 s3 @1 X' o( A/ f
           RowBox[{"[", % s( v/ @4 P! ?7 \7 Q: H8 y, ]  _
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 6 b; K: u" I  e* o& B5 N7 i3 \9 e
         RowBox[{"x3", "->", - Z0 T8 G, r5 R- t& _
          RowBox[{"Data", "[",
- `3 o( F7 e0 e( c2 ^: N, M           RowBox[{"[", ) S$ ~3 g  d2 b
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
  t7 N- S' x+ K9 q( q, r         RowBox[{"x4", "->", 5 o  w/ [# j7 N+ y2 z
          RowBox[{"Data", "[",
- x0 ]/ {, t2 T5 G           RowBox[{"[",
& Y/ E0 O/ Z+ _  R5 J            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
* ?6 R# k% g# k, y) f" M! E         RowBox[{"x5", "->",
3 ?2 H0 u! c( F: ~1 b2 Q2 A          RowBox[{"Data", "[", 5 K8 s/ G) v& ]
           RowBox[{"[", + N% P# M4 i2 f  u5 A  M
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
6 Y' L+ }% y  a+ ?0 T         RowBox[{"x6", "->",
: S- g" U6 [1 C: O/ [/ w: P1 @          RowBox[{"Data", "[", 7 P1 `2 b7 s) S1 F9 w' g) \
           RowBox[{"[", ( P& q% K( A$ e: _1 x0 g: H  ?! Z
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
' A  b1 Y. v+ V! O! @$ v# ]         RowBox[{"x7", "->",
/ \/ D/ ^$ {/ C$ N          RowBox[{"Data", "[", . o# K. @8 I/ v$ b7 m' H* Y' m- ^
           RowBox[{"[", . a8 W: g* _/ H8 z4 b+ A
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
8 v' ?0 p; H4 [! T6 P2 ^- Q         RowBox[{"x8", "->",
/ ^+ f  l3 [; f) z7 {- ]          RowBox[{"Data", "[", 7 M! S! {$ n: U
           RowBox[{"[",
3 f0 T  X& B9 e            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ( P$ D# o) L) B' `4 A/ t$ A
         RowBox[{"x9", "->", ; \. ]3 l+ ]/ Z) N# ~
          RowBox[{"Data", "[", ( H  s% V. K4 `/ {' w, n- j) j% F
           RowBox[{"[",
: g* X2 k& i2 a            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
7 L* Y0 N/ I4 ^! m' t. D     "\[IndentingNewLine]", + D7 P- ^; Q. [3 E# }
     RowBox[{
' m5 U  t' t& t  S      RowBox[{"m60n21", "[",
- z' M) a, t3 e* r& U3 A" |       RowBox[{"[",
$ @( B3 {) i% p9 d        RowBox[{"i", ",", "8"}], "]"}], "]"}], "=", : o- u. X& P7 v/ ^6 W8 v1 i  D7 V# r
      RowBox[{"u8", "/.",
9 _2 |, u/ X4 {       RowBox[{"{", . @/ z1 l/ A2 ]! E. G
        RowBox[{# m. u( }, A9 v, `/ \4 J2 |& R$ A
         RowBox[{"x1", "->",
+ w4 A* [! w. e) x. t          RowBox[{"Data", "[", * b. z7 ^! @1 x# v. c& t
           RowBox[{"[", ; |' R( N: i# ]# P$ z+ i
            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
) ^' ~6 i* L* w/ D' I/ h4 ~         RowBox[{"x2", "->",
. x, u9 n7 V5 B" ]          RowBox[{"Data", "[",
1 }% P" D  ~" z  @9 L           RowBox[{"[",
6 Z/ G) W' ^* R4 j1 `8 l- ~            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 4 m; n# _6 n  x0 U5 s
         RowBox[{"x3", "->",
+ J! j# k* f( I3 q3 ]( ?9 c          RowBox[{"Data", "[", 2 w) H) J* s+ J, Y' U, Z/ P
           RowBox[{"[",
# B0 i+ ]! K* S3 ^7 R! [            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
: p0 o' w2 v% J# b  x4 Q         RowBox[{"x4", "->",
( z) A% [( m, y  M. b" z  y          RowBox[{"Data", "[",
# C" N& y* m4 f) l$ U7 q2 x: O: X           RowBox[{"[", 2 O4 ?# L; V4 g6 y
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 2 }4 E7 ?* Y/ `/ X; {% W% }' M
         RowBox[{"x5", "->",
/ Y9 Z7 {- r" J2 P$ {' b          RowBox[{"Data", "[", * j2 T8 v- f9 [$ g4 Q
           RowBox[{"[",
* l! z) l3 e* _% |            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 4 K% Z" H# K5 K0 [- U
         RowBox[{"x6", "->", # f. r' {& V+ s" U
          RowBox[{"Data", "[", : @0 x! L! H9 d
           RowBox[{"[", % ?( i% x) S5 H5 o. ]1 V
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 9 {% \- l: E9 M9 ^9 S
         RowBox[{"x7", "->",
7 \0 r& I5 L0 B# B# T6 o4 |/ i: O" t          RowBox[{"Data", "[",
" o* V! r* P0 V! i" [3 \# q           RowBox[{"[",   }+ t8 _6 g$ z$ l
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", , T' S6 ]9 i! s% g- @2 r( O
         RowBox[{"x8", "->",
7 X# ~+ l1 W9 x          RowBox[{"Data", "[", / K( m5 i/ n/ c0 l
           RowBox[{"[", * Y2 W2 I% Q- @* H
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
9 a0 Y8 r! B! k         RowBox[{"x9", "->", 0 F  e0 h( F- N" q' V8 d
          RowBox[{"Data", "[",
' ]6 O3 B1 Z$ P           RowBox[{"[",
/ y- j2 {8 n+ g" l8 X: x8 R& o            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
. p6 S( Z7 {2 X     "\[IndentingNewLine]",
& |7 d' M0 m) |+ N2 Z% |( A2 a) E5 S     RowBox[{0 e1 _$ P( u8 e$ R* \; ]2 [8 q
      RowBox[{"m60n21", "[",
3 F* Y' X2 ~2 p. E       RowBox[{"[",
$ C  l$ I* f, g/ D6 y) R8 d        RowBox[{"i", ",", "9"}], "]"}], "]"}], "=", 0 Z& S! V* w( ~
      RowBox[{"u9", "/.", / j( Y* Y8 p4 L9 r7 z
       RowBox[{"{", ' U, {7 {4 p! U8 D* G: [
        RowBox[{
; [7 M# V1 N' ?# v( F3 t1 H         RowBox[{"x1", "->",
! A/ ?) ~* B3 ~, b. _7 Z$ q          RowBox[{"Data", "[", . ?) W% e" p! t: Q2 t( K  B% A
           RowBox[{"[",
) K; ^. }- U4 y. O            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
8 K+ Y! y& r1 }& `# k1 o/ ?* ]         RowBox[{"x2", "->", : E9 N7 p# O" W1 n
          RowBox[{"Data", "[", 8 v+ |  ~6 ]9 I& x1 O$ `/ B
           RowBox[{"[",
6 t# Z) h/ A7 L' @3 `2 s            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", % u1 B" {- A* f
         RowBox[{"x3", "->",
7 z/ ^" B2 C3 M" [& R          RowBox[{"Data", "[",
, h5 ^- D( m/ c; L4 D4 d           RowBox[{"[",
* }/ w3 G& ^+ ?* P  r8 E            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", * V& |& x6 S0 d
         RowBox[{"x4", "->",
! ~2 I9 W5 [; O& Y          RowBox[{"Data", "[",
  o2 t$ Q4 T: T4 j           RowBox[{"[",   o1 D$ d( Q, k+ F4 K8 o  O' P
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", $ S; |0 Z* ?- z' P
         RowBox[{"x5", "->",
+ N. D4 u. [/ q4 n4 R0 W          RowBox[{"Data", "[",
* Q1 c  z& v6 S6 V1 M" r           RowBox[{"[",
# _( V, m! y* u+ c% H; i; l            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 0 L# ^* H. `7 @/ A/ r& K9 Q% }. f
         RowBox[{"x6", "->", ; h2 d* |3 Y% L/ t, }
          RowBox[{"Data", "[",
) o  c4 T1 t" Q           RowBox[{"[", 0 Y  Z, w& }& @0 Y4 d' g% t% C
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", / k" n8 X+ z3 c1 C2 V
         RowBox[{"x7", "->", ; g& c0 @0 k$ p- U
          RowBox[{"Data", "[", 1 u+ P: y6 {1 D# h: a" F9 D" A
           RowBox[{"[", 7 W2 Y* m! Z" s# P, I. F- y
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", / v' ?) l  K  X1 X7 A
         RowBox[{"x8", "->", ' M/ l+ v1 U+ W0 T+ U
          RowBox[{"Data", "[", ) d# W- v6 v6 O; A4 q
           RowBox[{"[",
/ m+ a! s3 l/ c) o, {4 B  `/ \2 X7 k            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
% ?6 s) Y% }! c$ f* A! V0 j( g         RowBox[{"x9", "->", 8 }) B9 H) o  s% a( F) }: q) ~$ x. I
          RowBox[{"Data", "[",
4 L" {3 I" L) j; B& e8 e           RowBox[{"[", 4 t) c  }+ ^* `" ~, @1 d
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", * c' P7 X2 j& Z0 \/ K1 Y+ W! |
     "\[IndentingNewLine]",
! K4 p5 ]% I7 G- j4 d! q5 ^     RowBox[{5 y% B0 X9 h; L. `; z1 [% `$ m
      RowBox[{"m60n21", "[", # k! p" E% ]. X* w. O/ {
       RowBox[{"[",
8 W' k% u6 B0 Q2 g# s        RowBox[{"i", ",", "10"}], "]"}], "]"}], "=", ! k' v# t. l! s8 k
      RowBox[{"u10", "/.", 2 |! }# ?" U6 c. C, R
       RowBox[{"{",   \" _( Y+ g6 R5 D
        RowBox[{( j' O) m& [, l3 u7 _6 r; J
         RowBox[{"x1", "->", 2 j2 H$ h# j7 n0 w6 Y
          RowBox[{"Data", "[", 0 y/ w5 V/ ]5 ]
           RowBox[{"[",
- g. n0 X7 c" Q: E. Y            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ! }7 ]( L/ Z: H+ |) L
         RowBox[{"x2", "->", : C0 w0 u9 S% u* q1 p& Y: x5 N  D1 m
          RowBox[{"Data", "[",
6 ~0 W! H6 G: |  t2 H% J           RowBox[{"[", , m: s, `2 |' _, o. S! g3 J4 E# |- X2 x5 M
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ' A) v# B# E& ^& H6 Q
         RowBox[{"x3", "->", , Q) ?9 V7 {7 q6 s4 e7 g
          RowBox[{"Data", "[",   L" ]. V3 b: w+ b& z0 u0 Z
           RowBox[{"[", : Y% V+ L" n* h  `& u
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
" ^2 d9 p, l& s* }4 x         RowBox[{"x4", "->", * y0 z5 x9 d. {0 d
          RowBox[{"Data", "[",
. Z7 {0 @0 D& q: \2 I           RowBox[{"[", 0 s$ E5 ^5 N0 E
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 6 g" G, l! _6 B- j) C. Z
         RowBox[{"x5", "->", ' F( \1 i# a% P( [  a
          RowBox[{"Data", "[", ! j+ z1 B! e% L% Q8 {% C* L/ i& C
           RowBox[{"[", . ~- h* m' y2 ~! n  w
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", * V- S8 `1 v: L7 W& P2 w
         RowBox[{"x6", "->", $ ]4 u3 Z8 k7 B0 C  R
          RowBox[{"Data", "[", + K9 U* |; f  Q$ M2 }
           RowBox[{"[", 2 m& R* ~' m! x9 R% a# y* s/ m
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ! q6 \2 Z) m8 W- E9 {) e
         RowBox[{"x7", "->",
8 N6 F$ k7 I) k' U( X' N- Y5 ]* F          RowBox[{"Data", "[", % T; k* a( {/ E$ c. [8 L
           RowBox[{"[",
9 |4 E/ l. \: x            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", & u, b8 |0 b1 E: E( D$ h( K
         RowBox[{"x8", "->", . b% b1 [. l' W& ~
          RowBox[{"Data", "[",
- h8 V. n5 R, N+ K/ K# |           RowBox[{"[", 5 Q0 \3 R8 }; @% i! n
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
" q  y5 K. n: C7 k: n' E% ^) W         RowBox[{"x9", "->",
" H$ m& }2 f$ A2 ~: [  o8 Z          RowBox[{"Data", "[", 8 n/ U* K5 ]" Y( S% _# D# X7 n4 q
           RowBox[{"[", ; w; n! L; a. o3 o9 j) n( a
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", + i% z# U3 a) M$ N( d
     "\[IndentingNewLine]",
6 [& W$ C' o! e$ O+ ?     RowBox[{
1 c% J4 {5 `; r& V0 E, y4 b2 n: C      RowBox[{"m60n21", "[",
3 R4 _& s& {: O4 Z8 v+ z       RowBox[{"[",   y- Q, p- I- L5 q
        RowBox[{"i", ",", "11"}], "]"}], "]"}], "=",
. n" s  M2 j. Q! C      RowBox[{"u11", "/.",
. S" {1 z: {7 K, ~       RowBox[{"{",
; _6 Z+ Q2 }6 o        RowBox[{
+ ^- |$ ^" w# r4 C1 {& v$ V, C         RowBox[{"x1", "->", " [3 {7 e5 x( z  {: s' p
          RowBox[{"Data", "[", 7 r& l  U- V+ d1 x# W  b7 N
           RowBox[{"[",
; ?% X" i2 W) R0 H' q* G% N% v            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
+ R6 T3 a) ?) K9 U) M; ?         RowBox[{"x2", "->",
; O; }5 e9 Q6 C          RowBox[{"Data", "[",
; ?) R) u2 H8 p* k9 s' w- P: `# A           RowBox[{"[", & x$ I; O, K# I7 U* H2 s" M' o
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", / D. E" S1 `, K/ _" }
         RowBox[{"x3", "->", ; S* j% O1 p6 \) ~3 a2 [
          RowBox[{"Data", "[", ( R! ]- W0 b' Z' ^) K" P
           RowBox[{"[", 4 b' k" G% G- _
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", # G( {+ C8 S: s. R# j
         RowBox[{"x4", "->",
1 S( \  U1 ?, [2 z. ?          RowBox[{"Data", "[",
8 j" D+ |8 b+ z4 o0 T  [0 z1 t3 \! y           RowBox[{"[",
' S( `. G' Y8 N* c            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
; K4 I' n( a) X         RowBox[{"x5", "->", + z' z6 }7 m% E9 R$ \: r( |  C0 |
          RowBox[{"Data", "[",
% l( B- c  k9 i  B           RowBox[{"[",
1 `2 {3 u  Q6 \) K            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", , ^2 ?/ k" d5 H, K0 S0 Q
         RowBox[{"x6", "->",
: w: B$ x0 W  z0 I          RowBox[{"Data", "[",
9 L. k: T; }/ Q7 x           RowBox[{"[",
7 X  K( ?# q: _5 S! R4 @            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
5 z( r( X. C, u4 W/ o$ A0 s         RowBox[{"x7", "->", 7 G/ n, q5 l$ H6 r' c7 s
          RowBox[{"Data", "[",
: {3 s6 c+ T% A5 s( A           RowBox[{"[", $ D  B) e( q$ A  R+ G% V
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
8 Z! s+ U( s( S2 k: S  k7 \6 E         RowBox[{"x8", "->", ! Y+ D  N( n2 |! {
          RowBox[{"Data", "[", $ I: G. ?/ ]" \; e. d  \) }
           RowBox[{"[", 3 G7 V+ S0 v5 B. a
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
- ]  j! }# e  N- k. h# }         RowBox[{"x9", "->", ! S4 L6 q, C4 r$ |% y+ ^! R. u
          RowBox[{"Data", "[",
0 |! A- r4 _- f* _3 j           RowBox[{"[", , v3 b& Q: P$ n% P6 X
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
- b3 E, k( _- O! C0 S* w     "\[IndentingNewLine]", - h* P+ [6 N0 H/ q! x2 _7 J
     RowBox[{
" ^" n4 u: Z3 w8 u! W1 E; y      RowBox[{"m60n21", "[", & r- V$ Q8 S1 l$ v- x; h/ T5 Y/ y
       RowBox[{"[",
' X, p. E. P8 a# R        RowBox[{"i", ",", "12"}], "]"}], "]"}], "=", 0 Z" H, A3 j( S' u% a& c
      RowBox[{"u12", "/.",
, b' H0 `5 d6 d1 m       RowBox[{"{",
7 `( y0 w: A0 D4 ~4 x; P+ v( \        RowBox[{
8 c3 W# L0 I2 C         RowBox[{"x1", "->",
. x5 a! E% {3 j* V2 P          RowBox[{"Data", "[",
3 Q0 N9 v4 X0 l# \           RowBox[{"[",
( w: j0 I) |: C5 O% y# U# W& U            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
: b8 m' Q# C' d3 L6 i         RowBox[{"x2", "->", 7 y6 l- P+ K" x
          RowBox[{"Data", "[",
( Q& @4 c' Y% h  C) {           RowBox[{"[",
8 C$ B2 q. B) v4 y5 H0 O1 F            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
& Y% K1 G# l5 u# P. B9 y         RowBox[{"x3", "->",
( t$ |2 K6 ~; o: O( p" `          RowBox[{"Data", "[", $ H5 h  ~& s6 H9 [" @* n: o; ^" S
           RowBox[{"[",
3 \* M5 ?, \0 C1 I: f& Q            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",   e/ Z" ~1 x% Y; ]4 D
         RowBox[{"x4", "->",
6 P9 J7 @" e, S% P, ^; C! _8 \          RowBox[{"Data", "[", - O5 L; u. [6 Z9 S' H: B
           RowBox[{"[", # I6 u' Y" _# C4 O: i# c
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
/ A. w* O3 ~1 x6 K4 g, B         RowBox[{"x5", "->",
5 w0 \' t+ f# G! F& F  b- j          RowBox[{"Data", "[",
/ s7 F6 z. s2 L  p% r) r& Z           RowBox[{"[",
! d! H5 V- G; c8 j. J4 ]: t: O            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
3 Z8 x8 Z: z' Y* x9 `4 n         RowBox[{"x6", "->", 3 ^" Q) y, H% c  y. N
          RowBox[{"Data", "[",
0 r* _; [& F& H8 t1 {! b2 X; R           RowBox[{"[",
, t& `6 x; Y; U& M: h1 @            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
9 n& g- v- R% L* \         RowBox[{"x7", "->", " ~6 `$ c- _* `) D8 t  r: [' q3 x2 l- r
          RowBox[{"Data", "[", & ^4 S3 N1 i# o2 ]8 a1 c
           RowBox[{"[",   S$ z$ x  F& n- X) S5 r
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ! |3 W# z8 h+ r
         RowBox[{"x8", "->",
+ X1 [+ r9 M7 R  V8 k          RowBox[{"Data", "[",
$ j, |( Z3 h% x6 d6 T, l' D$ G           RowBox[{"[",
% Q9 h+ K4 L; d. k; `            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 4 |0 Z) I: L! `4 C* @  s
         RowBox[{"x9", "->",
  F2 e: _$ E% C, Z- _' @          RowBox[{"Data", "[", + R7 H0 H# N7 r8 ~* U9 Y: U
           RowBox[{"[",
# Q+ B* C' O$ b8 T            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
: [6 \: h+ o$ M5 X- t7 v2 w3 ?& p     "\[IndentingNewLine]",
% e! _7 N+ E0 h4 J( ]     RowBox[{
; C  m3 U$ Q* @. I: W      RowBox[{"m60n21", "[", 5 b/ ]) [1 _' x. J! P) m
       RowBox[{"[",
% H  J1 B7 `8 O8 i  d        RowBox[{"i", ",", "13"}], "]"}], "]"}], "=",
! m, B  t. S% c: w# t      RowBox[{"u13", "/.",
. l# L( F- Y: H" G8 q5 [  [7 L       RowBox[{"{", 8 ?% t9 b2 @1 M& G! [) w
        RowBox[{
' k  t4 q/ q2 L( g/ D3 S         RowBox[{"x1", "->",
# l# P& Z+ l+ ?" f+ [- c; @6 V          RowBox[{"Data", "[",
/ @: c" a; z! B0 C8 ~% m% i$ p           RowBox[{"[",
/ \$ w* n, a) Y. ^4 z1 }9 I            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
" Z1 B( O$ W, I5 Z         RowBox[{"x2", "->", , B$ {" p5 I% I% V9 P3 e6 K5 L
          RowBox[{"Data", "[",
) {  ]! c) C) G5 g4 O7 f/ F           RowBox[{"[",
3 g8 E1 L" l- _- l# }            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", / k/ P7 g% S/ f- K  {& q
         RowBox[{"x3", "->", * w* v8 `, O. c
          RowBox[{"Data", "[",
8 V: {2 R) d, i) D- N           RowBox[{"[", # o' Y3 B1 z- n
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
9 G- N$ v: q+ L8 ~3 h         RowBox[{"x4", "->", . T% J+ S7 J" V4 ^+ Y2 B1 ~& a
          RowBox[{"Data", "[", # F- d) y; B- o. f' f/ G1 g
           RowBox[{"[",
$ }+ w6 T1 C; `8 A  H( \+ D  Z" ~            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
6 P/ g2 z$ w  L3 [8 Q4 r- y         RowBox[{"x5", "->", ' H& A. f8 o* Z5 F! G
          RowBox[{"Data", "[", 6 C* g  F7 r9 C0 x) O0 K% y
           RowBox[{"[", 9 L  D& u  t; g/ @
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 4 f/ ]& `5 t" L- [
         RowBox[{"x6", "->", ' I- T$ G+ V+ Y0 f5 D. z! S2 m
          RowBox[{"Data", "[", 7 A; U; G. f/ M$ f  [
           RowBox[{"[",
) S/ K' ]& L4 j7 S  s            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", " s$ k7 X, N& A
         RowBox[{"x7", "->",
" M8 m; W7 X. P. \" k          RowBox[{"Data", "[",
: y3 A8 o- ?  H  z. o/ [           RowBox[{"[",
1 C/ n4 b: Y' \$ I0 i8 A. B5 [            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ' E" l& A8 c. G, C( o3 k. B8 D( N# h9 L
         RowBox[{"x8", "->",
; C& z1 W$ ]% v/ {& p; H5 e9 B          RowBox[{"Data", "[", $ v. K" Q  z1 o" t
           RowBox[{"[", ) }: Y5 D: A" Q8 s. U- [0 }: ^
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", $ I, P+ w6 H' ~- O1 X3 {
         RowBox[{"x9", "->", / s2 V" m$ a( `. T9 x. c
          RowBox[{"Data", "[",
6 T/ Y- {, L" L! c, Z6 K           RowBox[{"[", / Y4 V# q& ^; K3 S; O& F/ ^4 t- i
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", $ w( z9 t0 r  ~7 r8 e
     "\[IndentingNewLine]",
4 c7 R0 _# h8 M( B  E     RowBox[{
, z2 Z2 j2 d6 s. |      RowBox[{"m60n21", "[", : b. i" `+ A. r; B& B# G
       RowBox[{"[",
. D5 |( J8 a$ {4 W        RowBox[{"i", ",", "14"}], "]"}], "]"}], "=", 5 ~' T& r7 t( q& N  r
      RowBox[{"u14", "/.", ) p3 t: W9 \7 a
       RowBox[{"{", 9 h  G/ d1 w: a
        RowBox[{
" j$ m! I% a1 \         RowBox[{"x1", "->", 2 X# K) P# u. B- w2 u* [. F
          RowBox[{"Data", "[",
! }. Z) |. I, A$ U           RowBox[{"[",
2 m6 U% L: p& X2 o$ ?% R            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
( y% |) l+ c; }+ N6 A         RowBox[{"x2", "->", ) C2 n. T/ @) K! ?
          RowBox[{"Data", "[", 8 |1 w5 J9 P3 z  u
           RowBox[{"[",
) \( @% A& h% S            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
8 [$ f6 D/ V* r* r         RowBox[{"x3", "->",
7 S0 H4 b: M# ^) `- }          RowBox[{"Data", "[",
; x2 V/ Q, M4 }           RowBox[{"[", 8 T; C$ s% S- |3 R9 Z
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", * e- ^6 i/ L( C( K
         RowBox[{"x4", "->",
) X9 `5 n; g! B5 e% J$ i8 [          RowBox[{"Data", "[", / `+ F  y+ q& k  g. p
           RowBox[{"[", - C- _# a8 w+ j- g: j
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", / L8 S- d* ^3 c
         RowBox[{"x5", "->",
. M; k2 I9 `/ N: q1 Q          RowBox[{"Data", "[",
' v% ]' S' L7 w) p2 q+ t+ \           RowBox[{"[", 6 x9 D( l- b# N2 x; C( r! d
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
+ V- L( i3 `. @8 A! S5 U! t         RowBox[{"x6", "->",
8 O" _4 E8 `8 G- [          RowBox[{"Data", "[",
4 T5 D  J* D0 A* M3 [           RowBox[{"[",
) v  g( ^3 K7 {% ]            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
; j" X6 s# J" P; l" ~         RowBox[{"x7", "->", 0 ?4 n$ {$ S1 J- T$ M/ d
          RowBox[{"Data", "[",
3 w3 \5 w0 `& V4 O% f: Q& w           RowBox[{"[",
* c9 ~8 f" o0 y9 a' g0 _            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ; B. D' J! d: y
         RowBox[{"x8", "->",
/ O1 ]/ @! E# _! _  d: B7 B          RowBox[{"Data", "[",
) y$ _% s: w1 D) f9 J3 G/ E           RowBox[{"[",
, J. C4 A/ T( I& G% ~% T            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
- l% x' [& A' N2 Q         RowBox[{"x9", "->",
; a; A7 s3 w9 [          RowBox[{"Data", "[",
5 H9 B1 V- ^6 w% W           RowBox[{"[",
  O- U+ |; M. R% s- M- h            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
3 ~! p& Q7 H" q7 x: Y     "\[IndentingNewLine]",
/ \9 b2 a; `* y  V9 k5 x     RowBox[{
7 F, _) ?( k, D$ ?/ Y      RowBox[{"m60n21", "[",
0 U( f' C, [; r% R: R: O       RowBox[{"[",
* }0 j7 L4 R" r6 K        RowBox[{"i", ",", "15"}], "]"}], "]"}], "=", + z$ R" U" @% N5 |- B
      RowBox[{"u15", "/.", / U7 s& D  X& i" S3 k3 N. ]/ F) [, A
       RowBox[{"{", ; q+ e0 W1 }7 ]. L: m
        RowBox[{  E; R% W6 j6 ?; i/ K# b9 D
         RowBox[{"x1", "->", # w& ^, y5 f8 O$ I5 v
          RowBox[{"Data", "[",   E0 M6 D0 }. V; P2 b
           RowBox[{"[",
0 ]( G( z2 Z" A; I            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
0 U7 H# z/ a( n         RowBox[{"x2", "->", # X5 k& a6 j0 g
          RowBox[{"Data", "[",
& ~4 N2 p7 r3 |1 v7 A% W6 \           RowBox[{"[", 8 K1 r; @: P- A6 L
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
% M! C+ n9 ~- n2 [- m         RowBox[{"x3", "->",
  F; h1 _7 y3 W1 Q9 J          RowBox[{"Data", "[", 2 {* m' e+ o" O- a2 ?0 W. e9 q
           RowBox[{"[", 9 ]5 y- b  F2 T, O4 M  @
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 9 }' r# p' ]# \0 ~3 P, l
         RowBox[{"x4", "->", 4 Y0 e' u' z1 V& C( T9 f
          RowBox[{"Data", "[",   E2 ~% j* M7 `5 g5 |
           RowBox[{"[", , h) p0 b% W. L/ ?9 z3 ~  E1 {& V
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
1 j  o8 f0 M& O/ P         RowBox[{"x5", "->",
  |- A5 q: l3 g# E5 E          RowBox[{"Data", "[", ( m5 D7 C, v. c5 A- L  q/ c. \) h
           RowBox[{"[", ; n" d, Q6 B' I& V- \. `
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
+ b' U% [3 c3 o  @         RowBox[{"x6", "->", 7 W0 {! ~0 s# b* l2 d7 O+ H8 @, y6 `
          RowBox[{"Data", "[",
  J6 k( ?  a4 I# h           RowBox[{"[", # {$ S* h& Z) n$ V. U
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 0 v& G) D5 ^2 i  x1 L0 ^
         RowBox[{"x7", "->", 5 l  R* n4 c0 B! V; T# P( P; N
          RowBox[{"Data", "[", / X4 Y3 T, q  z6 @. m, ]
           RowBox[{"[", 8 L$ u: T1 [5 a7 M; ^$ \
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", # w0 c4 `. N9 i5 D0 J4 F: U
         RowBox[{"x8", "->",
3 \2 e" ?$ X3 c          RowBox[{"Data", "[", / [0 ~3 p9 P* r
           RowBox[{"[",
7 z! |, O9 k+ P0 b  I* Z- h, L            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ) n3 g) Q9 C6 C3 o
         RowBox[{"x9", "->",
9 c( Q$ }# e) K& X' o9 J- j. x          RowBox[{"Data", "[", # n6 S* O4 N! z7 t  _
           RowBox[{"[", % ]; r7 Y& P6 k1 B. F
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 8 t1 h1 W# v9 X- T1 J& t
     "\[IndentingNewLine]",
: e( E5 O; k- v  y6 R  ]     RowBox[{5 S# n, L' L: }* m7 ^/ x* a/ u
      RowBox[{"m60n21", "[", , R2 j, n- l/ X1 q4 k6 v7 ~  }
       RowBox[{"[",
/ R  m9 q- v" f, Z' O! m        RowBox[{"i", ",", "16"}], "]"}], "]"}], "=",
# L# \2 Y, @- Q1 ?& N      RowBox[{"u16", "/.", * n: f# x) Q5 ^' g
       RowBox[{"{",
5 l1 I, F6 P' y; Z+ [% ?        RowBox[{
# C8 t. k* b; U         RowBox[{"x1", "->", / N0 N& S, Y- b) ?. m. [' ]& {
          RowBox[{"Data", "[", 2 w& K4 `! Y* m6 k* l# O
           RowBox[{"[",
, d6 _$ T  ^' v6 Q( P3 j3 e            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
0 B9 N4 j1 A% {' J( T         RowBox[{"x2", "->", * [5 o6 Q  K$ `! K' u6 C4 C
          RowBox[{"Data", "[",
: ~* ]& P- n7 K( U$ v           RowBox[{"[", ( q0 U2 L2 a3 R5 M3 U: I3 z4 U5 F
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
. }# `" E$ L  A7 C; e+ G         RowBox[{"x3", "->",
6 W* N$ G" r- s" u          RowBox[{"Data", "[",
- m% E7 _5 e! ~# z  K+ L% e# K/ E           RowBox[{"[",
# f4 Y: S1 }% C$ c( n            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", * m' g2 [, N4 f
         RowBox[{"x4", "->",
" G% S- h) U) N) G! z          RowBox[{"Data", "[", % v5 ?3 g  }" {% L! d" B: w, ]
           RowBox[{"[", + K- H* r( u4 \& c
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ! p7 z- d, g0 \- {' ?1 J% `" l4 m
         RowBox[{"x5", "->", 0 o/ `- t- p1 s
          RowBox[{"Data", "[", % a( F; B; o- P1 P! t. Y5 Q( P3 V
           RowBox[{"[",
/ I& L3 U) f, E) C            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
- Q8 H4 U8 ?3 Z# s. }. y! ]4 ~; {- b         RowBox[{"x6", "->", : P! D/ e- v( Y) A& f
          RowBox[{"Data", "[",
8 [) G+ x- l; Z5 H           RowBox[{"[", # S; ]0 N0 `% B1 j- ^9 y# m; [
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
/ I$ P) G. ~; v& \0 h$ {0 Q$ [7 O         RowBox[{"x7", "->", " E+ Q, d" ^, j7 L2 c1 A& D
          RowBox[{"Data", "[", $ W7 ?9 W( Y8 t8 b. N) `+ ~
           RowBox[{"[",
! H& w2 f; m' E% @& X# I            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 8 ?+ G! K. H/ V
         RowBox[{"x8", "->",
5 u! n: G+ r) Q3 ], F  A5 @5 M  S9 v- Y          RowBox[{"Data", "[",
; }8 |* H4 E" a5 a7 L           RowBox[{"[",
6 a+ k, R6 I* @! t9 y            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", # u! ?; N. F- l. N
         RowBox[{"x9", "->",
( @  t8 f( V: p5 o9 X& {8 l3 H          RowBox[{"Data", "[",
+ F& c4 |5 S, y  J           RowBox[{"[",
3 d' i! H4 l$ S* k" Q# U            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 5 F+ T# Z# Y6 r& {0 J4 u
     "\[IndentingNewLine]",
1 C. v4 h7 O: D: t' S     RowBox[{
, n) k" o) s) N3 f      RowBox[{"m60n21", "[",
4 C" P6 V% Q, p& Q( K: ?/ ]       RowBox[{"[", / R( |; A9 F4 k; J+ B& T% i' U
        RowBox[{"i", ",", "17"}], "]"}], "]"}], "=",
! ?2 V% x" F4 P      RowBox[{"u17", "/.", 3 U+ P  U' T& C* y& Q8 U5 s
       RowBox[{"{", + m5 e" `9 l9 S) M1 A
        RowBox[{
8 S) E5 M" ^5 A         RowBox[{"x1", "->",
) g: s/ q% [# R& v          RowBox[{"Data", "[",
2 z/ U& c" _4 v6 v$ w5 d2 X/ c  ]* w           RowBox[{"[", + z2 @, Q! X, a* |) o, S
            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
7 K4 p2 T6 m5 {# U+ @' [) a         RowBox[{"x2", "->", 4 Q* a1 ^4 t& y$ l/ S
          RowBox[{"Data", "[", & Q' i. M' A4 P: I5 I& v
           RowBox[{"[", * D6 A, ^9 |8 g
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ) D4 d3 M3 w2 g: o' r$ r6 a+ Z( t
         RowBox[{"x3", "->",
0 h8 n+ L1 M8 P) [$ `4 E1 I. D% v: v          RowBox[{"Data", "[",
1 y- k6 T' `2 X( a+ `5 y" s* m           RowBox[{"[", 5 L, d3 C7 V, _4 c7 X" s* P
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
7 N9 z+ S/ j7 {' J         RowBox[{"x4", "->",
, K* D! v$ Z- J& e6 a          RowBox[{"Data", "[",
" l2 d6 _6 M. V* M/ q1 y           RowBox[{"[", 0 K2 I6 ?2 U/ b- [% M
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
) R7 z  a; b$ Z: k* ~" g2 k         RowBox[{"x5", "->",
3 K" h0 I; i6 P: \1 K9 @, `0 W          RowBox[{"Data", "[",
/ J6 f; v) G: P) s& ~2 r           RowBox[{"[",
, Q5 M( j1 m6 H            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
' |! W- ]$ I; Q) T3 v$ u         RowBox[{"x6", "->",
0 b% N1 F! a( `- M' h3 [: _- c          RowBox[{"Data", "[", ' Y8 |5 W' i) L7 }0 Z9 C) w' J
           RowBox[{"[", 3 T/ A# |) F! t( ^9 d4 g
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", : L2 X/ z# Z# G1 @* d7 r
         RowBox[{"x7", "->",
" M$ x+ k& R8 a  N. o" I6 b          RowBox[{"Data", "[",
2 j  I4 e- f1 w4 K+ _6 [$ P4 h           RowBox[{"[",
3 V+ B# q" t% g2 O4 i7 W            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", , J+ x1 T+ n; q5 [6 `/ U! A
         RowBox[{"x8", "->", / N% D8 A% ?3 R% j3 x7 t3 y
          RowBox[{"Data", "[",
' b2 k5 y& a& c4 S' g. n           RowBox[{"[", ; g- l! H, f( o! z1 Z
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
6 ?. |- I* L. `( b* n         RowBox[{"x9", "->", 6 O# q! M) V) [1 d& [+ H" |2 }6 k4 \
          RowBox[{"Data", "[", 4 x' a$ a  |- W9 u6 \! b
           RowBox[{"[",
7 T  e% _0 b6 M1 W% X+ W; S            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ' L7 X/ n+ l- P  {+ c3 u8 t
     "\[IndentingNewLine]",
  ?/ \. n- I, Y     RowBox[{
7 i! S: H' z6 n, l3 u      RowBox[{"m60n21", "[",
7 R; N, w, D/ c) Z( `+ A% e       RowBox[{"[",
$ L3 x1 l" v- D/ t& G        RowBox[{"i", ",", "18"}], "]"}], "]"}], "=", 9 ~6 v+ \5 S! L* ?* _, [
      RowBox[{"u18", "/.",
* a8 G: _# c3 H! G5 Y/ ]: w       RowBox[{"{", 5 m  S# h& r! T; }7 @  }- J
        RowBox[{
- H8 y# V" `1 d2 L+ f, @- ^         RowBox[{"x1", "->",
$ B/ I/ g: B3 [8 M; H1 N( n6 w          RowBox[{"Data", "[",
3 F( U# ^3 r# b7 a( Y           RowBox[{"[", 5 T) J, `9 `1 C7 r6 n
            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
% O5 X* L- f' k: D3 |8 p         RowBox[{"x2", "->", . ?8 ?% @9 [) K( w" v
          RowBox[{"Data", "[",
3 Q+ _. T5 ?3 m: b' P9 a           RowBox[{"[", 4 s) g  ^7 `! t; _+ b
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", , a% w: H. I1 d
         RowBox[{"x3", "->", ; D: t3 E5 ^% W) Y
          RowBox[{"Data", "[",
1 B) `2 B4 C& ]; C8 y           RowBox[{"[", + {" s! F$ a  q! r
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", : }0 s4 I9 T6 Q0 H9 c' Z2 s
         RowBox[{"x4", "->",
: Y8 d* v, _& ?' p8 W          RowBox[{"Data", "[", 2 H2 ^  }8 w3 X" l1 n; u# g, J) z
           RowBox[{"[", # V3 Z9 Q: |. }0 Q1 W% E
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 0 D' h% A! N$ I6 b; y; o2 B
         RowBox[{"x5", "->", 8 Z5 a) C0 M! L" \! P( H9 Q% W
          RowBox[{"Data", "[",
0 L: s# r' g6 B* ~, J. `0 [           RowBox[{"[", 5 w' o( X! _- M
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", + U0 r' U- J7 l  r; {& C. p. S  K
         RowBox[{"x6", "->",
2 G1 B& d3 `- S          RowBox[{"Data", "[", * H% q$ B2 z6 z9 s2 e3 U
           RowBox[{"[",
! P- |; [. Y4 M            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ; M; S& Y' V( Q+ _2 V) V* j: L
         RowBox[{"x7", "->", 2 H" a( y7 r& z% I
          RowBox[{"Data", "[",
; x- x& T1 Z4 D8 m  v* {           RowBox[{"[",
1 L3 B8 `" W7 P6 O            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
7 s* Q. m& C) c5 s3 m2 d3 f         RowBox[{"x8", "->",
% l3 f& f; F$ t" X          RowBox[{"Data", "[",
9 S; O4 `4 P! {- H' G  g+ x# U           RowBox[{"[", ' [) ~  [3 Q0 B# t9 Q, J; r" \8 S
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 2 v3 l) R2 b4 o3 E" u$ m
         RowBox[{"x9", "->", ! F8 U; f' I( W4 O: V1 N
          RowBox[{"Data", "[", # _( [( R5 d7 Z- L/ C
           RowBox[{"[",
; L$ u2 w- e8 B" @            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
( U9 e' F% @8 l     "\[IndentingNewLine]", 7 b$ v6 v" q4 H9 [( y1 J& M! n* \8 G; ?
     RowBox[{
6 S$ |+ D$ G% [+ T. t  R- J      RowBox[{"m60n21", "[",
9 U( m2 Q9 I- r& w4 O       RowBox[{"[",
8 K8 n8 f( n2 _& r1 O; b: Y- X        RowBox[{"i", ",", "19"}], "]"}], "]"}], "=", 3 O8 k2 g  D; o+ a$ n3 L  W
      RowBox[{"u19", "/.",
; _, y# w2 N$ I" j  F* w       RowBox[{"{", 7 C( K( z( i8 _7 Y2 _7 l/ s
        RowBox[{: W0 o3 X  u% |) n* [
         RowBox[{"x1", "->", ' |* P3 o9 b4 V+ f3 A8 J
          RowBox[{"Data", "[",
9 ?+ w# _  \! p& O: m) ~" U           RowBox[{"[",
& l) {7 s5 F) m4 ]- m            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
6 D" A! w" v! a7 c9 H! u( A         RowBox[{"x2", "->", " A' p- e7 P& ]3 v) X/ A! L
          RowBox[{"Data", "[",
7 c3 ^9 [! w+ S6 {0 F0 |           RowBox[{"[", $ |0 n/ r) ~6 U6 A! b* n
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", + m2 D# U. m2 _- o" p4 S  ?
         RowBox[{"x3", "->",
9 t9 s) o& p) F, m4 W4 X          RowBox[{"Data", "[", 6 n+ f: v& Z+ L  r. s4 W7 g' ?
           RowBox[{"[",   W0 T+ s& w4 _  q
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ; ?* c. Z. R8 X7 [3 Y- s7 K* }
         RowBox[{"x4", "->",
# m" V( S! R1 f2 {+ {          RowBox[{"Data", "[",
2 ]3 M: z1 ~! h2 G: g6 M           RowBox[{"[",
$ f1 }; F2 B) C- r2 M8 F' q  {            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 4 J5 m$ h$ i. F9 Z; @. {
         RowBox[{"x5", "->", 8 o6 z1 W! X0 X9 C. L8 _
          RowBox[{"Data", "[", ! [" D, I9 B: K! b  V" h
           RowBox[{"[", 5 g" v& C7 J6 h9 L5 \
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 2 i! o9 [. h  A0 T6 T$ ^1 |; U
         RowBox[{"x6", "->", ' Q  u1 x1 S; i$ ]' s
          RowBox[{"Data", "[", 4 J& Z) g! q8 k$ |5 L
           RowBox[{"[", 6 L& i5 ]" n' R  I! D, o
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
! l8 n  g& |9 X. R- K4 J* M         RowBox[{"x7", "->",
5 j: u6 Z4 O7 H% a, Y% C; F0 f% t          RowBox[{"Data", "[", & l# C: a. x( v% f2 p
           RowBox[{"[", , N# T; P+ c* S
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", % C9 u3 @; w2 Q7 V0 E, }
         RowBox[{"x8", "->", 6 |) a( {5 J( S2 k
          RowBox[{"Data", "[", ( M: a" `) d/ B
           RowBox[{"[", , I# G5 [8 o5 D& c
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
( `8 S, |# ^/ {0 D& U         RowBox[{"x9", "->", & Q2 c! {$ {$ k2 a3 Y5 L
          RowBox[{"Data", "[", , h1 x& r9 }/ M& S
           RowBox[{"[",
7 f6 K) ?' I: _3 u! F7 n( J6 X- h            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", . B8 t; ^, ^& Q2 }6 W( {
     "\[IndentingNewLine]",
& t! N- _  H2 n" }  [" i     RowBox[{
: N6 q0 Z3 P9 ^3 h) e2 H      RowBox[{"m60n21", "[", 7 Z$ L( g& I; d+ Y. \
       RowBox[{"[",
, L" A4 H  n" o+ r; W/ y        RowBox[{"i", ",", "20"}], "]"}], "]"}], "=", % c$ |6 P. {7 D/ f6 X
      RowBox[{"u20", "/.", 0 q! \% N3 |5 V9 X4 r$ a
       RowBox[{"{", 0 O! w6 i6 }% `% J) H- y$ I  X
        RowBox[{
4 I# R% p9 _+ u: `& J  H         RowBox[{"x1", "->", ( a6 }+ B. l4 ^" B
          RowBox[{"Data", "[",
  C4 I( o0 s8 O% m% {1 V$ F           RowBox[{"[",
% f! E) ~- M  V. }- y            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 1 I& V6 |  \6 j+ ~$ f  E% c
         RowBox[{"x2", "->", 3 x1 z: O6 ?' O
          RowBox[{"Data", "[",
+ m+ x0 g) y( o1 u. }$ K/ D5 [           RowBox[{"[",
! S! l; x7 m5 X  U0 P7 z, ~5 s            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
5 z3 J' B+ K% Z# E) {/ B         RowBox[{"x3", "->", ( z; ~# M/ ~( b
          RowBox[{"Data", "[",
$ j. T1 _( k6 \) B2 |           RowBox[{"[", $ k7 [+ T, D: y( J: s" b3 y1 T: |
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 7 a* X2 M1 ?0 q. Q( X& o8 C
         RowBox[{"x4", "->",
1 o* @. e! G0 z( N% J4 y9 f          RowBox[{"Data", "[",
" D: O; e+ L. j1 J) ?           RowBox[{"[",
1 |2 s4 E& B1 j) q2 k1 S/ x" g            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 3 ]7 {& u. k2 x: D  y* @
         RowBox[{"x5", "->", ) p, O7 B% Q  W  O
          RowBox[{"Data", "[", ! J6 n. U9 ^# @+ W3 o
           RowBox[{"[", # r: K. L, k1 A0 Q
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", # V3 Q) f! u; i9 q
         RowBox[{"x6", "->", ! m8 @6 @% B( r/ {( D$ W
          RowBox[{"Data", "[",
0 `# J3 ^$ v  F. O/ [8 w           RowBox[{"[",
& F+ U, u  y) e  ?5 D4 G            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
% x0 A  n* y. A: T         RowBox[{"x7", "->", * C' e6 W6 c$ h
          RowBox[{"Data", "[",
+ N) a8 Y  z/ D9 R3 y* ?, I           RowBox[{"[",
+ X0 m' p) ~0 ?& r' x) }# _" v            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ! U3 g6 x# y/ F$ B
         RowBox[{"x8", "->",
+ ?4 a$ g  m, G+ z, f          RowBox[{"Data", "[", . o& C* x# a* L1 v  m
           RowBox[{"[", 1 f/ t1 a( q4 n( S1 ]
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
3 i; |2 d! a4 z8 {         RowBox[{"x9", "->",
. A" ~( c6 h! z2 }/ ~) b7 v          RowBox[{"Data", "[", % f$ ~( U- E3 v$ V! k+ q6 b# C
           RowBox[{"[",
/ W% ~# t( z; c2 a5 X            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
, o0 E: M5 }% L$ x+ R     "\[IndentingNewLine]",
9 J0 }1 U0 b# k( q. M) n     RowBox[{$ W0 x4 Z4 h2 [  Y. X0 G7 r% b
      RowBox[{"m60n21", "[", , |1 M, \' Z* }. a  g% a4 z
       RowBox[{"[",
0 ~1 O- Q8 r9 B9 Y. j, X' m        RowBox[{"i", ",", "21"}], "]"}], "]"}], "=", 5 f! Y1 ]& \) t
      RowBox[{"u21", "/.",
) t$ C. s) {  _0 i& i       RowBox[{"{",
+ W* W) J9 J4 }        RowBox[{! c$ j) Q' o2 \( Q; Y5 Y$ e( Y
         RowBox[{"x1", "->", 3 i6 j! x1 F% B* n9 `8 R
          RowBox[{"Data", "[", * l7 K; z& @6 N
           RowBox[{"[",
5 q+ T! W& \. o( z! G. e/ r& x, m; d  R            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
  K2 w* X( h  }/ k9 k# S         RowBox[{"x2", "->",
: J* X: p; [1 I  O" w          RowBox[{"Data", "[",
" p0 x$ E% w& F           RowBox[{"[",
2 B7 q& [" l2 i- e; y3 d            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 5 d7 o. p* z' ]5 t# B# `, M
         RowBox[{"x3", "->", - y& `& A/ y+ [
          RowBox[{"Data", "[",
+ x5 G" d/ ]0 o# P% q1 W; \9 a: b           RowBox[{"[", ' i0 p0 l; T* V% u
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", : l; W) C4 G! b2 ?
         RowBox[{"x4", "->", . v% k+ l9 r9 r) ~6 e
          RowBox[{"Data", "[", ' Q, J+ S3 m+ x1 [; _
           RowBox[{"[", ' L7 n$ H2 m3 S  \) \& e. ?
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", + I1 L& c+ V! h; J0 w
         RowBox[{"x5", "->",
  e4 u; l* D) i1 d9 T6 i" z          RowBox[{"Data", "[",
6 `& j' h$ H& F           RowBox[{"[",
: S: a& d8 \8 D" \            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 5 U6 W% ?1 W- t! b3 t, e
         RowBox[{"x6", "->", * t% k  p# j; [# \6 p1 Y; i, B2 {
          RowBox[{"Data", "[",
8 ^7 q! M* i* Z: e$ Y  }           RowBox[{"[",
9 a+ _2 [3 f- T            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
+ O: j. D, H1 F3 W         RowBox[{"x7", "->",
% z7 J5 P" {' c( R4 N! o          RowBox[{"Data", "[",
- m* g! \) I& C' D1 c           RowBox[{"[",
6 i! e4 l- s* l: e" O$ F& I            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
# [0 x5 G% q( b2 x         RowBox[{"x8", "->",
' c4 s) a) ^- Z. l          RowBox[{"Data", "[",
$ S7 _. ?/ X* S           RowBox[{"[", , ^( V/ W0 P4 P7 C) K
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 6 w3 c3 q0 b9 c
         RowBox[{"x9", "->", 2 @+ W# `) i0 T9 r
          RowBox[{"Data", "[", 5 g( `. ]. |* s- z% V/ g4 h
           RowBox[{"[", ) E, U! u2 g7 B4 u7 t& _! J" y
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}],
# ~$ G3 Z1 O( j' f' V; \    "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input"," s+ r4 a1 R' d8 @9 a6 Q) ~
CellChangeTimes->{{3.5779241165*^9, 3.57792417728125*^9}, {
8 E3 z8 v! z/ A7 E. L! j  3.57792428359375*^9, 3.577924585109375*^9}, {3.577958919491543*^9, 4 i4 z7 w1 `8 h2 m
  3.5779589224867477`*^9}, {3.5779619825731473`*^9, 3.5779620676400957`*^9}}],
  t% T; T) X! x$ o! L7 _  }* X( L7 E6 E4 B% w
Cell[CellGroupData[{8 Q9 m2 _# A9 g
0 v7 P5 }6 F4 P# Y& _! D
Cell[BoxData[
( C" o- x( I( X; F/ j, r6 `# j RowBox[{"w1a", "=",   j; e! k- t3 C
  RowBox[{"LeastSquares", "[",
( e( {, R. F  z5 D   RowBox[{"m60n21", ",", "y1a"}], "]"}]}]], "Input",3 q" c! h; {6 D6 v3 P8 m
CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {2 n1 A$ L9 w' f
  3.577924662765625*^9, 3.57792466596875*^9}, {3.577962074644508*^9, 2 D4 U* S0 [2 z8 m, C7 i, n/ S
  3.5779620748317084`*^9}}],
1 T6 E. _. J# R+ y' ?# ?) f* z" \3 M0 Z
Cell[BoxData[
: F  ?' A1 M* n- N7 R" L. A RowBox[{"{", ; S. a$ [7 h6 F1 h0 A+ B, [9 |
  RowBox[{"0.32564305572552416`", ",", "0.500820838606441`", ",",
0 r+ b# c! ~" g   RowBox[{"-", "0.5945873894818967`"}], ",",
1 x1 }; ]5 u7 I  f   RowBox[{"-", "0.1999688587779198`"}], ",", "0.020180806675835994`", ",", 3 b% H6 f' F) D
   RowBox[{"-", "0.03345934908892623`"}], ",", "0.25282438852646905`", ",", # b1 P: n8 G2 `; f$ Q
   RowBox[{"-", "0.17602467625404622`"}], ",", "0.3961180670900672`", ",", ) a  e& j/ K: I3 U* `
   "0.02759193650965952`", ",", ) Q6 S$ h, r5 \. u' [8 R( N* _: J4 _
   RowBox[{"-", "0.320472847796449`"}], ",", , R* `& f; i# N8 f3 O' O- {( G4 `8 v2 w
   RowBox[{"-", "0.07581214474544527`"}], ",", "0.4812237524557292`", ",",
1 h: f( V- c/ a/ G   "0.7528674241482847`", ",", "0.6665374509702799`", ",",
( A* _' [" l2 [5 f1 {, q/ L   "0.22861495086373018`", ",", "0.13092706311748484`", ",", . d" O" Z* x4 k
   "0.5252475961933538`", ",", ( m0 \- M* X) t( q, p
   RowBox[{"-", "0.10599338351843157`"}], ",", "0.6670272593678526`", ",",   ~/ y$ b, N# d. d" R
   "0.23580523388620733`"}], "}"}]], "Output",% j% F. Y" a' C3 C; X7 f8 z
CellChangeTimes->{3.577924621953125*^9, 3.5779246688125*^9, 3 U( z( O9 l- W) `4 b4 N' i! k1 d
  3.5779575884583836`*^9, 3.577958952875601*^9, 3.5779620806661186`*^9, 8 V) C8 w: ^) A
  3.578012349875*^9}]
/ L2 A7 q  d# |1 ~}, Open  ]],6 a  j" @! |* q5 |

5 W& e% M7 T: f& GCell[CellGroupData[{
  Z  w. s- g  k9 j8 Z( t
) G# h; p  D, d9 GCell[BoxData[$ Z0 A& U3 \) z
RowBox[{"y1", "=",
1 o4 ]" o5 u' c/ H8 q  RowBox[{"w1a", ".", ) ~1 X) e2 J+ g# T5 s$ J. |
   RowBox[{"{", & ^  z% t% y( g2 t' _5 ]
    RowBox[{) x) g0 T' x- F) t2 v
    "u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7", # C2 |& y" n0 L  J, P
     ",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13",
" B7 s4 s; n  Y+ \* p- i* K     ",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19",
( e* O* }: k, c     ",", "u20", ",", "u21"}], "}"}]}]}]], "Input",( ~( X1 C* ~; I. c; Z/ |
CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {
# ?0 X3 S! \: p5 B* N  3.577924897078125*^9, 3.57792491596875*^9}, {3.577962095642144*^9,
8 |/ {0 j8 J' n$ X" s& ^. X  3.5779621231449924`*^9}}],7 N9 m- X3 Q0 u) |
4 ]. u  P: E0 ?5 H8 _; D0 z" H
Cell[BoxData[2 ]: K. H3 v2 x0 d
RowBox[{9 d5 |& A# b- N# Y: R
  RowBox[{"0.22861495086373018`", " ",
  d2 l& i2 ?9 {3 V# _) a/ G! o( p   SuperscriptBox["\[ExponentialE]",
& W4 r1 K8 B8 K& J* x/ Q5 f    RowBox[{"3.141592653589793`", " ", # l% M6 G/ X+ M# @. c* V
     RowBox[{"(",
" Q, u! W6 U9 P* G$ m  }      RowBox[{
: f+ w( \! c# l/ i/ ^* ^9 D       RowBox[{"-", " q9 _  f) A$ V8 V+ d4 o9 T
        SuperscriptBox[
! D4 y+ Q3 a: I         RowBox[{"(",
4 a7 p" J9 L0 Q% |/ v          RowBox[{! {, l" a6 Q" m
           RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
1 e3 n0 s  M  J$ m/ w" L       SuperscriptBox[
3 M3 ~+ h; E6 Z9 E/ a" }' A+ t# F        RowBox[{"(",
) c/ P8 a4 G( g1 o         RowBox[{
" S8 J8 }7 v. `9 n! c" d; }          RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
6 f. y# s" B/ F5 D8 U       SuperscriptBox[) \' x% ^; A5 ]* a  [* K% n7 t2 t
        RowBox[{"(", 4 a( E1 A1 s2 t4 A1 L
         RowBox[{( I  S5 N6 i6 F( q/ u7 J4 ^9 U$ Y
          RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", ' X& v" j  [7 s- F  j
       SuperscriptBox[3 O5 T4 N6 j# `7 V
        RowBox[{"(",
3 c, I  ^# s2 y- {         RowBox[{5 {9 c9 v6 N& c# ?
          RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
; ?% O: e/ R3 d& v" @       SuperscriptBox[* @, h/ Y- D1 h9 r% L8 T  w9 b. T
        RowBox[{"(", : A* p9 \9 ^" [) z* V) p$ t4 o
         RowBox[{
0 X( L' \. o& x# a5 T5 \          RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", ' `( v" Y& h4 c  D3 ^( J; g" R& g
       SuperscriptBox[
4 n5 N' }7 F/ `# F# x! ?) ?        RowBox[{"(",
9 ^: X! a( _  \         RowBox[{
3 p( H' y/ j& l" R          RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", ( y& E3 o" |* L0 n( m* u3 |
       SuperscriptBox[
. U  `9 p- \8 q        RowBox[{"(",
8 C, m9 _. l& s' o         RowBox[{4 y3 E& k& F" G5 ]/ H5 T+ G
          RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", ! t  X! e5 E7 g: N$ x$ Q
       SuperscriptBox[7 Y5 U6 ~4 ?0 l. Z2 {4 _
        RowBox[{"(", . Z9 ^% W" ]+ Z- Q# r7 z
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
, J! z0 e* V! ~" \       SuperscriptBox[6 {' k0 C2 ^( }9 n9 x" s
        RowBox[{"(",
* r$ Z! L4 M  E         RowBox[{" Y9 A; V# v# @5 y( s0 F
          RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
. }9 g2 W- n& Q* J/ J  v' ~  RowBox[{"0.020180806675835994`", " ", 6 D( S$ L. @5 [3 {
   SuperscriptBox["\[ExponentialE]",
& p( l+ o6 m6 ]2 @$ Z  c    RowBox[{"3.141592653589793`", " ", / l, H$ |% }/ N7 S, C
     RowBox[{"(", . T6 \3 L/ e7 U3 V* c2 G" o
      RowBox[{% @$ y/ n4 h  L) U
       RowBox[{"-", ) e; j- G% O. `
        SuperscriptBox[1 j/ C  d! }) k( f$ t3 D2 @
         RowBox[{"(", . Y# ?4 b8 i+ v# k" X
          RowBox[{# V* E" Z+ Q! I8 z% H
           RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", & \: o/ b) W) S' ^/ m2 O- A( e1 q
       SuperscriptBox[
5 L  H, o6 M( T7 y& t        RowBox[{"(", $ K$ O- K$ ^% \4 w" g# ^
         RowBox[{4 }$ _* Z, u7 a  y! E
          RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", ( j; `. ^* ]* _7 J& C$ n6 g" e1 L
       SuperscriptBox[; q! H2 [+ C; ^/ B1 z2 V
        RowBox[{"(",
5 S$ W! H; I4 K% y; \9 B6 C, c# F; B         RowBox[{
& h6 c" T* \9 l0 ^. |+ n. i! _          RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
1 _- Y8 L7 I2 A9 i: k       SuperscriptBox[
, U; f( u# Z- S4 a        RowBox[{"(", ! N" H% n# \; b( b
         RowBox[{; k+ u5 c- j8 {
          RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
& U) T4 y# u7 l1 [4 }       SuperscriptBox[
$ A2 ?1 W- a7 J$ j4 K5 |        RowBox[{"(", ' l( Y- s& G# o/ K
         RowBox[{
: B/ h; y: q2 y$ x          RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", - N* d. x: G0 a: I$ o9 @$ a; c) ~
       SuperscriptBox[. j; {* s, y6 R
        RowBox[{"(", * H# \7 k. y" M6 \8 B
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 8 W1 f9 X' x2 U# _
       SuperscriptBox[+ q# z7 V9 z8 d9 r6 o
        RowBox[{"(", + T( O8 W7 K3 t4 K9 l+ e
         RowBox[{5 b1 \# I8 U5 D5 ]- ]8 d) q  G
          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
- A3 \9 g, \+ J, F       SuperscriptBox[
7 v' k8 n/ F8 x2 {) A        RowBox[{"(",
) e  U: B5 B$ o  n: _1 }$ H: k         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
' l" \: t3 C8 F' M       SuperscriptBox[5 W4 \0 a* `9 A* k8 r
        RowBox[{"(",
% u; x( h/ [) f5 C& ~         RowBox[{5 z1 ^. ^& X2 \0 n
          RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
5 Q- `. A6 A/ v- q  "+",
; Q7 W/ f- `6 w& f) @" N) b  RowBox[{"0.13092706311748484`", " ",
# h/ G7 l, m- e0 [" k; A   SuperscriptBox["\[ExponentialE]", 8 H2 e2 w& u( D9 i
    RowBox[{"3.141592653589793`", " ",
. N6 W4 m0 H* F1 ~0 Q     RowBox[{"(",
, P& C5 q+ c/ ^% ~2 f      RowBox[{
" F( U$ d% B/ O/ V  h  F       RowBox[{"-", $ H$ o' V$ P$ X+ i2 S
        SuperscriptBox[
0 u6 y/ x% P. V0 K6 M         RowBox[{"(",
7 S$ Z7 R9 v1 w& K( s' L          RowBox[{
% `& g8 w4 e8 ?" t5 A/ j' E           RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
$ k# {  {* m. @/ B" M       SuperscriptBox[
# j8 v% k9 O' F        RowBox[{"(",
: ^! ]3 a  i; D4 @# @4 [) @         RowBox[{% g; O# V) I; J
          RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", 5 X# Q1 t% t4 M4 K9 T7 [: {- c$ o
       SuperscriptBox[, U6 j: \8 z9 J7 O5 ?6 C
        RowBox[{"(",
) X" E& T0 [6 z! h         RowBox[{6 h) Q( _9 {% N- p2 |  M
          RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
. ?, j8 O# t6 r$ P( Z% Y# r7 X       SuperscriptBox[7 E- U* v; i4 _& V; }
        RowBox[{"(",
4 h0 p+ O1 m# c, |9 j$ ]( a- R- o7 Q         RowBox[{
1 \+ B5 }! q8 l3 D! m. k9 ^, W3 A          RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",   t/ x& U* W0 J* L. S1 A2 p7 o% s
       SuperscriptBox[
9 {# t4 Q' l( T6 k- W; q        RowBox[{"(", 4 S9 C* S4 m( W0 z$ n: f7 ^9 j! b
         RowBox[{
: ^+ a" G* Q1 T( o* S! r( ?          RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", + e( f. P/ {  ^( L" E/ `  G# ^' ]
       SuperscriptBox[+ b5 e7 F+ t3 [, H
        RowBox[{"(",
, D5 J* d( K% A) k         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
; @' w# q) F3 E8 Y% c/ S- {& q       SuperscriptBox[
) K7 f8 `9 g# x0 W* ~* I6 e        RowBox[{"(", 3 Q8 y: I3 `8 B9 ]# |/ F0 g
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
8 r4 l& ^0 R* I+ e) o; d       SuperscriptBox[
& R5 I9 A: \9 B. y        RowBox[{"(", % n0 E$ L7 k6 Z5 w* ?" i: J
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
7 Z" s- L+ K. \8 e' n  `       SuperscriptBox[; _" A1 g6 H0 F  ]! p
        RowBox[{"(", ) L" u& i5 L8 Z+ E2 }. @0 x. d
         RowBox[{. m& P1 v) j. c6 X
          RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 6 e) M; I8 |5 y+ S% ^! t7 \
  "-",
" U; C4 l9 i9 b  RowBox[{"0.03345934908892623`", " ", . r' O. E, a. K, S, H4 n* ^
   SuperscriptBox["\[ExponentialE]",
4 l, [. Y: K& ]) ]1 h' n    RowBox[{"3.141592653589793`", " ", + A$ v  O9 q: A  c+ E% ^1 r( ~
     RowBox[{"(", " g5 v- s4 @2 {4 {$ X) @. z
      RowBox[{- z( ]( Z  O4 n, Y6 \5 o9 K( k! B
       RowBox[{"-", 9 w3 S1 D) c& H/ C
        SuperscriptBox[7 O) R! o+ C  ~, A3 t* U! C
         RowBox[{"(", . q8 J8 H; r6 V% F
          RowBox[{- [' a4 ?8 r* ?. m6 k+ v3 ^) B
           RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
, z: P3 u6 b2 Z( T7 h       SuperscriptBox[
8 N9 d; [, b( A2 ^$ F1 d; C$ t        RowBox[{"(", 3 @* B, N4 v7 n( F6 g
         RowBox[{, p5 ?/ ]. S6 b# L' m; i& |
          RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
+ @$ G# d; b- c0 n2 x       SuperscriptBox[
5 ]' H+ D* i/ h# q9 o" v% e        RowBox[{"(",
; P( E( t# Q' `) P7 l3 \         RowBox[{& d" s0 o/ ~) W) G5 W+ ]- b
          RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
2 L: e* D% g# q; [0 E       SuperscriptBox[% Y- M( @8 a8 y$ B  F
        RowBox[{"(",
# d' X" p0 o+ `! r0 D; g0 L         RowBox[{
2 f+ D* D/ M2 v          RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", / M+ I8 d4 h+ L
       SuperscriptBox[. C$ D4 i9 X4 e, F& b
        RowBox[{"(", $ K+ u" t$ l! j* _7 {
         RowBox[{
5 h. Y" q! k) v' z0 D4 S: H# E          RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
4 n% l) y" q. |1 p       SuperscriptBox[
( Z; s3 P2 Q  o; C! {5 \1 K        RowBox[{"(",
& j. c- R/ l& d9 _         RowBox[{( V3 P/ ]! W$ i& U; ?. a, q
          RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", ' k+ t" D% M7 {
       SuperscriptBox[
( X7 q; C4 e; W) b3 c" o        RowBox[{"(",
' j# F% v6 y  U  k         RowBox[{
0 e* m. X3 A9 [, V; M: j+ x          RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
" ~. K" m( U" g, g; E       SuperscriptBox[
' S& o- v" N3 s! u/ e4 V4 a. x        RowBox[{"(", ) X$ c3 V$ Z9 u, V- |: h/ k
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", : w& F2 }+ A5 S# _+ L
       SuperscriptBox[8 W/ n1 X# `$ h2 j' r9 ?: h1 |
        RowBox[{"(", . T# S* K6 E+ s' x$ Y
         RowBox[{
  u& [8 w; q! k- O3 T0 E) p          RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ! m! H" c; C2 x* q& \
  "+",
3 j! B  k0 g( D- n. b& h  RowBox[{"0.3961180670900672`", " ", # N, W7 C& s+ c- T/ j, e  j
   SuperscriptBox["\[ExponentialE]", * U* f3 {, x& \2 D, i5 \7 A) x
    RowBox[{"3.141592653589793`", " ",
$ G3 ]* p5 Y8 d     RowBox[{"(", / B( C  c! b. ^) U  \! {
      RowBox[{
) g. x' V2 t% ^& }) {       RowBox[{"-", 4 _/ o* g( x) Z5 [2 X9 z/ \1 V
        SuperscriptBox[
# A4 u) x+ Q6 t5 r         RowBox[{"(",
9 \$ K; y6 l6 K5 q          RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", 5 c% f0 C  G1 s
       SuperscriptBox[
/ H+ @  ]( h9 D        RowBox[{"(",
; z; o6 h8 Y8 ^# |0 E         RowBox[{
- v2 ~, I. s! A* J( H& q          RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
( l3 U; T) x7 D       SuperscriptBox[' R2 w$ b- J# C$ ~3 n% `2 \- @* ]/ m
        RowBox[{"(", ; u/ J* y& Q7 i% O% m" {% X# {
         RowBox[{
+ X5 D: q& P. P8 |, X3 C# R          RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", 1 l/ i) C5 x- ]" W, ?5 Q8 C
       SuperscriptBox[$ g1 @! \2 |3 K5 i: S0 Q
        RowBox[{"(",
0 T* u8 G9 {, P0 s! d         RowBox[{
& }* c- F. O% h          RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
2 N7 h/ |( W: n7 a1 K4 m% p( {, [- v       SuperscriptBox[# y. [3 \# c2 T% e
        RowBox[{"(", & u5 W- Q5 |6 L5 {% q  z) N& F2 s
         RowBox[{) F$ {# }  C! o+ y
          RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
" _0 {- p0 L+ W       SuperscriptBox[2 }9 x9 Y' w2 I, U# i1 r
        RowBox[{"(", / s/ ]/ C( ^2 r( a$ w  O
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
. l3 \8 c& L8 U6 ]) h8 E- t       SuperscriptBox[6 e7 f0 q  ^) y
        RowBox[{"(", 6 u8 N& s2 P/ s4 ~# h% c
         RowBox[{
0 p% @3 L3 K) L4 {          RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
) o6 H- A  L8 l3 e       SuperscriptBox[
8 n9 a) m  b) E* `9 e+ }        RowBox[{"(",
$ f0 R' x2 ~! j* A         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", * R) ?4 x) Y. |
       SuperscriptBox[
/ g+ P9 b/ K$ |0 n# Y        RowBox[{"(",
7 F9 a* P; |# T. n5 y7 N  j9 k6 ~         RowBox[{, c- L% L) g2 V* d" Z" b3 o
          RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
. R9 U. D: L& O1 Y' T% R5 J  "-",
/ D* Q$ v) ]% R6 n( x; t. j" g  _8 Z  RowBox[{"0.1999688587779198`", " ",
2 e: H3 e9 A$ I3 D" C# M. ~   SuperscriptBox["\[ExponentialE]",
* |3 J2 c; I9 T' Q0 X1 o4 U    RowBox[{"3.141592653589793`", " ",
( O  W) c9 Z# m, l     RowBox[{"(",
5 p& l4 M( L( ?! @      RowBox[{8 s, p3 l* b) |' f
       RowBox[{"-", 8 b& N" p! W  c
        SuperscriptBox[6 F$ N0 d" u- F5 d; j8 y; [
         RowBox[{"(", # z" A! E* q  @- d
          RowBox[{. m4 c, [6 {4 g9 z/ k4 a
           RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
% Q& X" B! e9 m' i$ N       SuperscriptBox[# b: n) I! w7 m
        RowBox[{"(", % ~5 A3 i! t, q2 m0 _6 f/ A7 E' H4 ^
         RowBox[{
3 v0 J, s, v* J; a  ]3 k          RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
* Z7 H) J" q; l+ N2 C- b       SuperscriptBox[4 a# p6 S2 K! t
        RowBox[{"(", * f" Z* P0 _7 ^+ ?. o6 ]
         RowBox[{
1 R4 A% v, W6 R- H          RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", # t) }$ C/ f  o9 v, |0 S
       SuperscriptBox[
) z3 z9 q1 _! R% C. `# k% o        RowBox[{"(",
' Z/ u$ T/ w# h7 N         RowBox[{' Y. \3 p) A3 `: @
          RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
9 c+ L9 }1 H' R! n1 f       SuperscriptBox[" D4 j3 l# A3 j( n4 |) n
        RowBox[{"(",
6 l8 m& s# N. w6 Y4 n         RowBox[{6 K+ j, y4 F8 b: h9 A' T: G  J
          RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
8 ~9 E1 E* d4 `- M; G2 x! p& e       SuperscriptBox[
: Q, U1 |6 h& C8 P$ O- \! h& C! g! j        RowBox[{"(", $ C" w4 i  ]- k# P1 @6 [6 R
         RowBox[{( T7 a% C/ @( G2 a6 f" C
          RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 8 @5 b" f$ x6 K) w& f( }
       SuperscriptBox[
- L5 V: [8 n' h) S) k9 N        RowBox[{"(",
3 d( S- q3 L, K; i3 S8 Y1 m         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",   E7 \! S8 a7 N. J, x
       SuperscriptBox[- h. D7 A' Q: N) t+ z1 e
        RowBox[{"(", # c9 X. P. m  P6 X' n
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
0 P5 }/ P0 N8 T3 n& Y       SuperscriptBox[
3 [0 H9 S' C) ]6 A/ ?2 k* f! N# }  S        RowBox[{"(",
" U& X4 q0 J  `1 `         RowBox[{: u; u' E& T+ q! V8 [2 O$ W4 ?% H
          RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ; h- ?0 Q4 E) {: d0 C0 p- }; ?
  "+", ' e: i9 E! X# _. H0 U
  RowBox[{"0.23580523388620733`", " ", ) w: J  a& M6 I1 R! D& f+ Z0 K( Y
   SuperscriptBox["\[ExponentialE]",
$ Y7 Q" j, ~% Y' Y6 g9 u/ w; q    RowBox[{"3.141592653589793`", " ", $ a- G- A& f. ]- E! N3 A6 |
     RowBox[{"(",
: r/ e0 Y( k: v5 t  G/ q      RowBox[{' V: d' Q% [0 y4 {3 r3 @) |5 b7 J
       RowBox[{"-",
3 H% O# ]3 w, R. ~* `' U        SuperscriptBox[, |& S8 [: L( d) U. g2 V1 f& c
         RowBox[{"(", 9 [! n5 c* t3 n) n( [6 X% Y
          RowBox[{7 f) a; I- F3 ]. q8 M. O
           RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", % T1 `& d6 r+ C/ ^7 @. I9 W
       SuperscriptBox[
4 |  r$ }0 u. B" @, g1 ]  @/ |        RowBox[{"(",
) Y+ z, s' Z% P         RowBox[{# C& f" D3 [% {7 @# `* Q
          RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", ( h/ e6 h: X" H1 B$ n2 ^: e
       SuperscriptBox[4 B4 q+ T) O: V( t  S' X) G, P8 n. K" K; O
        RowBox[{"(",
3 @3 _, s8 _) X5 b& T+ Z6 u3 y         RowBox[{
6 p) I( y* B: e8 m0 Y' p# U. G8 Z2 n          RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
8 ]" w  a# j: `* K7 B/ _! X       SuperscriptBox[( y! k8 J( T: c1 Z' J
        RowBox[{"(", 5 R; ?0 U* E4 J) X5 a6 \8 S" z
         RowBox[{
" i- L9 O" E$ [          RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", 4 y! i7 d" O& G7 u- C* k
       SuperscriptBox[
/ s( F; N+ K7 e- |        RowBox[{"(",
2 A6 q1 R0 h8 O         RowBox[{/ Z5 {: K4 R8 a& h0 z0 N
          RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
* y3 S. g" ~( @8 H# X* \: ?; J- O       SuperscriptBox[! S$ C( o4 k/ [8 V! m: }. @$ y2 J1 ^
        RowBox[{"(",
9 ^7 `  ]. }% N! U$ t         RowBox[{% G  F5 b) r* _6 h  }
          RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", " ]1 h- t! ?0 h6 m8 A+ R* m) Z" {* V* N
       SuperscriptBox[
1 |5 s/ d( W  {% v' M        RowBox[{"(", - y. }7 f' a( z  A+ B2 s/ _! t
         RowBox[{
8 v+ J" h5 g$ n4 a# S  |+ ]          RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", : U- L2 g4 `$ i/ h) ?
       SuperscriptBox[
; V' l! i/ o. Z: z. }        RowBox[{"(",   n' s* a, W! O
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
. \) r. l5 W! Z$ U4 M$ k# A4 H       SuperscriptBox[
& v' ?& v8 P; e4 O& ?; Y        RowBox[{"(",
7 s9 F4 v1 k8 K& p1 C         RowBox[{3 ~0 w8 e0 c& x# b) {
          RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
2 J) G' y* X. F( E0 k8 s" S7 h& s  "+", . Z) g# B4 A: B8 q3 S( a2 k; z5 O) N
  RowBox[{"0.6670272593678526`", " ",
+ x+ w% k4 b" [  f2 N# `4 j& y   SuperscriptBox["\[ExponentialE]",
6 H# ?' O" J( r8 G' _    RowBox[{"3.141592653589793`", " ",
" b6 e2 X/ K' L: i     RowBox[{"(", % @3 }5 P6 ^' D
      RowBox[{
7 |+ g& s  b1 f$ a" g2 B8 k- T& f       RowBox[{"-", % q* Z1 m( V- H, k/ M! G; c2 l. b
        SuperscriptBox[
/ ^& M2 _6 h. c' R; F         RowBox[{"(",
1 K5 e8 e1 o8 Z, W6 _0 c$ |          RowBox[{
- f, s4 i" l! h2 T           RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
% _8 W1 g& \4 ?' M4 O       SuperscriptBox[
: Y* _7 r) N# t8 g1 S' r, ~        RowBox[{"(",
) \9 Z, J- x" m) t( A7 i         RowBox[{
" C& U( _" K8 j0 a2 ^' e+ j          RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
# P- ^% v& a" s5 D- w; @       SuperscriptBox[
" Z2 e) x, c" _        RowBox[{"(", " x7 E& f- p/ c" H
         RowBox[{7 X& G3 i, A2 O1 K% ^7 q+ o, D
          RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
4 g3 o: {% B; Q; z       SuperscriptBox[$ h' \& F7 `( h- T, @9 i
        RowBox[{"(",
9 n% K5 y/ L" t) G8 L         RowBox[{7 D) e$ @# D; X( ~2 O5 e
          RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", 4 T/ Z3 T/ Q! a' V4 [1 C3 M
       SuperscriptBox[
' N1 b- y4 I% n" d1 |        RowBox[{"(", : n' y2 F3 G5 y8 _: c; |
         RowBox[{
1 p1 o  s4 M1 D. X' q( y, s          RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", # _9 K8 r9 I9 E/ ?
       SuperscriptBox[
# W  s1 r, F7 Z. }5 u: U  Y        RowBox[{"(",
; ?$ }$ q! s, R( R1 H' b         RowBox[{
8 j; g( F0 g# V( Z8 k" |          RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
3 K# C( g" d* x1 j) \       SuperscriptBox[
- X& I" \! F' z& l  h% Z* p! z        RowBox[{"(",
! ?3 z$ f# s, k  B7 c$ A         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
5 A! n) [' f! m- ?  P) L5 @; x       SuperscriptBox[( K5 r4 K& y) Z/ l& _7 X  n7 r  _) d
        RowBox[{"(", # Q! R# j$ l5 N/ |& E
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
7 a) j, f' S3 y- j! Y5 z* @       SuperscriptBox[) N9 W# D' V4 U* c
        RowBox[{"(",
4 m% q! M" I- O% x% z6 |         RowBox[{
7 S* R$ x% m$ e# G          RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
0 r8 E, N. G5 D$ n( P  "+", 7 K) `+ m/ v1 ^# Z6 ^
  RowBox[{"0.25282438852646905`", " ", ' _2 z& z8 Y* q+ z- @
   SuperscriptBox["\[ExponentialE]",
5 ]: V0 Y( v: P, ?    RowBox[{"3.141592653589793`", " ",
3 d0 q( {/ r+ j6 M     RowBox[{"(",
. f* Y% R2 s+ c      RowBox[{
# P1 P9 Z# t; s% d# q( Q       RowBox[{"-", 3 {& o) h8 E- X+ u0 `# o# H
        SuperscriptBox[% F+ B6 \4 A( A" G
         RowBox[{"(",
  q8 W4 V+ ^' b! B( R+ R& v          RowBox[{
# g  ^. n4 u' H7 H9 J0 R           RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", - ~% h$ ]. ^1 R' L, k
       SuperscriptBox[4 D- b# @3 G5 V+ A; |4 r# q3 U( E) f2 F
        RowBox[{"(",
. n2 O0 a9 `2 V3 G         RowBox[{! U8 [% r$ a$ I9 S
          RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
  N2 N- t$ N& o- _" |0 K2 w$ C       SuperscriptBox[
, u. B. D- n: [3 p1 C  b% u        RowBox[{"(",
0 O/ q+ w: [8 J  A' h         RowBox[{/ r( {: p1 P9 W9 p  Y! B* s
          RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
! u1 Y0 [3 Y# n       SuperscriptBox[
' o% ]7 O1 q8 p+ X: Y- b7 I        RowBox[{"(",
' c2 I6 W0 v, M% F8 F5 @1 u) Y0 p         RowBox[{
# D% R/ Q" X  t* z. r          RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", & O6 O0 b0 W( q9 A0 d- O! r( d' @
       SuperscriptBox[
4 J: x# m. o7 ?  z2 G        RowBox[{"(",
7 m# k  I6 [- J, [9 {) n         RowBox[{
$ e; q9 Y2 P! E2 U9 i          RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
2 k8 ?$ f2 \) J) C       SuperscriptBox[
6 v/ g! V; r% @        RowBox[{"(",
$ J8 @. [# U: Q2 g3 g6 k" U         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 6 I, Z/ {5 O3 D3 @8 A
       SuperscriptBox[& `# Q2 ^4 t6 L$ G5 j& d4 \
        RowBox[{"(",
0 c* R3 E7 h" h' D  y& C& E         RowBox[{
, O% R9 h3 _8 D/ E, d, {( o          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 7 X5 j" Y, N) S) o
       SuperscriptBox[
# n2 W( M6 L  u6 C8 `        RowBox[{"(",
; K; w& O! g- Y! W         RowBox[{6 ]5 H% g3 O0 b$ _+ |
          RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
: s' X" l/ u1 e$ D- Z       SuperscriptBox[4 U" m0 Y1 j/ ]+ s. S
        RowBox[{"(",
$ m, M! V" k9 Q         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
8 h* b* u$ w0 {$ T( Z      ")"}]}]]}], "-",
8 H! n. k2 a7 {: `' d3 e- p* Q  RowBox[{"0.07581214474544527`", " ", / V. C3 d. s; a* ?
   SuperscriptBox["\[ExponentialE]", ( z- O/ y8 N% O1 J1 R3 i) j
    RowBox[{"3.141592653589793`", " ",
! \6 ]* u3 [$ V. j; T1 e( x     RowBox[{"(",
: n; ^% b$ R0 }- ?$ t# @      RowBox[{+ M2 E+ ?+ o# G9 Q1 g$ n, N) i
       RowBox[{"-", " a4 q& {" n5 e% e- q  u
        SuperscriptBox[
& b$ h; A2 C5 f' Z7 R         RowBox[{"(", * u' w3 \$ U8 L3 }4 B' m
          RowBox[{, r/ z( S0 }9 \1 G1 y1 U
           RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", ; V0 W( I# u# v
       SuperscriptBox[3 L. h. ?- I5 G& _" s
        RowBox[{"(",
/ o& o# x/ l+ K6 W' L. j# B0 ~         RowBox[{
0 p* `/ ?9 F7 f2 r5 X2 P' i          RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
# N2 Y3 O3 i) ~" x; j, Z       SuperscriptBox[1 C2 S# S3 Q! S& p' f
        RowBox[{"(",
# q, |. N% W, S. f6 c: X! B  l: G         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
, w* {; p% f2 X- s9 x: C& a       SuperscriptBox[9 h  l' m7 `/ J& x
        RowBox[{"(",
) j$ E( p, E' a; w- E" T5 i         RowBox[{5 _1 k/ ~9 h! ]3 @3 Q. U' L* d/ c9 p
          RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", 1 k8 a6 f- H. D) c* M+ _
       SuperscriptBox[
  w; D1 w' ^1 c2 V( \1 g: I) p0 U* C        RowBox[{"(",
/ C) u4 Q; ~) K$ Z2 I- u* V$ |         RowBox[{' R3 R! u- o; \! t
          RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", 7 z) D0 \( c  F! h1 S. [
       SuperscriptBox[* L) h4 @4 q! l2 _3 p
        RowBox[{"(",
3 ~  L& t1 N( v3 e) X9 D         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
2 H  G5 W5 F9 W       SuperscriptBox[# V0 U8 [2 E" i6 U- d6 E2 h  B9 C( @
        RowBox[{"(",   _& @" S" f: C1 p' I
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
* I) M4 r6 c1 W# m       SuperscriptBox[. b, X5 x! \6 U
        RowBox[{"(", " Q4 S* K2 ]2 a* _( B" v$ M" M7 R# T
         RowBox[{
; Y) ^" h# O; @0 S. }9 l% z$ _          RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", 6 O" b' h1 m& m2 \" G& E
       SuperscriptBox[5 Y3 ~- s& V8 }2 T
        RowBox[{"(", : w* A( [+ G# w9 T
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
9 o( s3 W) N* `/ V4 v8 J      ")"}]}]]}], "-", 0 E3 F% P2 G, z
  RowBox[{"0.10599338351843157`", " ", ( s' m  g( h5 m- P% a, M
   SuperscriptBox["\[ExponentialE]",
2 q, j% L  d2 M- I& I+ Q    RowBox[{"3.141592653589793`", " ",
' B& P2 g8 _* y" a$ q) I1 r     RowBox[{"(", # t% Z) V6 R2 `" O$ G
      RowBox[{$ W- C/ ~# Z! e+ U8 S
       RowBox[{"-",
2 K8 \6 ^! m* p3 E/ ~2 b: U        SuperscriptBox[6 v; M+ e3 Q( z
         RowBox[{"(", 5 |1 V) p1 l' U' V$ j
          RowBox[{$ @# G& v) j, C
           RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
( N2 V: J: v/ R# @       SuperscriptBox[
7 b% L" c  E8 Y4 A4 _        RowBox[{"(", " K% t0 J+ Y; x% C% s. k, \0 ^' Z
         RowBox[{6 _( l3 c( w. e1 B6 d6 v
          RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", / i8 R  r) ]8 c
       SuperscriptBox[
+ P. ^4 \. p8 {: j8 D" u0 v8 @        RowBox[{"(",
4 O- h& ?% t8 `' s; i. q         RowBox[{2 ]- j6 q8 ~$ M+ b
          RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", ! z; U, N/ J! m1 \
       SuperscriptBox[
0 d9 k  `; n2 g. S        RowBox[{"(",
* Q! P) @' Y5 j) k% Z3 Y0 s3 v         RowBox[{' z: r2 \/ k& n: x) q
          RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
2 m5 t! V1 V# P- s% f. b       SuperscriptBox[6 y" v& {1 v- u. T3 r% i" o
        RowBox[{"(", + H. _  E+ C0 y4 g9 J- N: L( B
         RowBox[{. |# C' {4 |$ ]  [7 V# e# f8 g0 r
          RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
9 F. a& ^, H& E+ r       SuperscriptBox[
5 M8 U" S# ^/ D0 B        RowBox[{"(",
  d, R2 j. O  m/ F( ?  j         RowBox[{  P$ n- |9 [3 T0 M, r7 d* A
          RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
) Q6 A& v6 i& S7 J       SuperscriptBox[
0 d0 d8 @6 O7 Q' z& {9 w9 }        RowBox[{"(", - [3 X, I: i( B7 E& O, ?4 L# ?9 f1 T6 d, q
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
: k, @  X/ h& M4 d+ ~* K# u       SuperscriptBox[
4 t1 F; X6 U, ]5 D        RowBox[{"(",
. B  n* a( T+ n, O         RowBox[{
$ z' \( p( d8 x8 H/ ^' l          RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", ) l+ r& ^/ z3 \* v) Q- Y
       SuperscriptBox[% M. G9 o( K, w7 ~7 R. z
        RowBox[{"(",
1 X: O. A/ q5 ^% q6 b' A         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ( i# C& _3 K, K3 ~2 c
      ")"}]}]]}], "+",
$ r7 a0 e: m% q+ N  ?* j2 u, t  RowBox[{"0.500820838606441`", " ",
. g& C" n& s/ i4 t! X- `( W3 F   SuperscriptBox["\[ExponentialE]",
6 L4 ?& q7 M- r    RowBox[{"3.141592653589793`", " ",
5 s7 H% X" I/ L- J* g     RowBox[{"(",
: Y* d1 I7 a) O$ u2 v/ o      RowBox[{
. |1 I8 E( K; ]6 M: N       RowBox[{"-",
8 Q- k# R! x( g4 _* b7 C  F        SuperscriptBox[
" k, A' s  ?. B- h+ \         RowBox[{"(", 7 b2 i$ |8 _! w  j: R
          RowBox[{
/ S: i2 `  @5 u           RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 _0 i! f  Q- c5 U+ T6 w
       SuperscriptBox[
# r5 z3 A* g% |8 N/ p0 Y        RowBox[{"(", 0 g5 A' J2 v1 F7 k) ]
         RowBox[{3 k3 _( l" h9 N% W4 L
          RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", + r0 E' }+ U8 g' _4 d" h/ b/ w
       SuperscriptBox[
) V: P6 I, T# L  o/ m        RowBox[{"(", & ~, u5 B6 Y8 _" n9 ~
         RowBox[{; d1 L6 s. X6 \$ a
          RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", 8 l0 G: f# t4 k6 K2 X" r" i3 s
       SuperscriptBox[! b. a, m. N  L, X. U
        RowBox[{"(",
. q- q; u* B0 v& }- Z- Z& o8 F         RowBox[{
8 n1 u- O( q! _1 O. z6 V- Q9 o          RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
& E9 J7 m! p4 v       SuperscriptBox[
( K( \" m' i$ J" g* ?        RowBox[{"(", . R1 C+ |- x; e$ U
         RowBox[{
8 \* |" ]6 y# n' _) s" ^% K          RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
7 G: H, h+ o( h# i3 Z4 V( W# x       SuperscriptBox[# C: m- i' J! _6 o- {
        RowBox[{"(",
# h0 d% Y* b( {) F         RowBox[{- H  M, N% ]1 k7 e' ?
          RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
( v3 A" @; C) V4 o4 {       SuperscriptBox[
' x9 A: m0 e) G" V% r        RowBox[{"(", # a6 G8 ^5 m( P/ ~3 A+ O( K  B
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ( ^8 L& H  D2 ]& ?7 P7 z
       SuperscriptBox[1 L4 y8 Q6 d' F1 X% k' e0 y
        RowBox[{"(",
  {% {0 f% k/ n' K$ L5 o         RowBox[{
) @7 \" K* y( w/ j7 X          RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", 5 A/ C6 h3 u4 P4 i/ p6 h; {2 t
       SuperscriptBox[
6 K4 P3 S5 ~; B        RowBox[{"(",
' H8 V, G1 _7 ^7 f         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
6 }2 c) x" C) G. Z      ")"}]}]]}], "+",
" w5 J. H& c# }+ B. Z, D  RowBox[{"0.32564305572552416`", " ", # G* V) n3 ^5 E* D6 Q
   SuperscriptBox["\[ExponentialE]", ) @3 Q" h; Q( b' q7 i6 F
    RowBox[{"3.141592653589793`", " ", " {! w( ^! T% D) X6 t
     RowBox[{"(", ) u8 m0 C! F) W# |8 O- U* D
      RowBox[{
6 K& p! ^5 ]0 `* y, a+ p% K4 F       RowBox[{"-", ; G! e0 d8 y8 c9 J  C" t
        SuperscriptBox[8 `$ V0 r9 v9 g2 c- r
         RowBox[{"(",
9 i: l* t4 _, S3 w          RowBox[{
- T* A8 h2 y* `3 q* D9 I           RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 h6 ~  T5 ?- C% ~6 h6 y
       SuperscriptBox[, P! R( y1 t. J3 {
        RowBox[{"(", 7 b. s& P* N8 r1 E
         RowBox[{6 Y5 E* @1 h0 y7 M% O1 r
          RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
. I0 T& t7 ^9 S- R# O+ \+ o       SuperscriptBox[
, l. o# I5 N. K: [; c2 W1 h        RowBox[{"(",
3 j$ R2 [$ y6 b3 F* x! F         RowBox[{# U- U+ Y( O( t& }
          RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
8 G. g' q" Z. \7 y       SuperscriptBox[
" D' {2 o: z1 j6 B        RowBox[{"(",
& @, _$ R1 g2 K9 j/ g! s         RowBox[{* u' ~& `* v+ d9 j# l& C! q, A
          RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
: |7 W5 Q; H6 S8 s  m  V       SuperscriptBox[
( [- e' N  b8 F2 u3 v: {        RowBox[{"(", # o( _. g9 \' n7 T) d( t* i4 i
         RowBox[{+ ]7 E1 s8 k, l& A& f" Z
          RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", ( B, }! M9 s/ f
       SuperscriptBox[
7 I- Z& g' n& L& ]' P9 n        RowBox[{"(", 9 @2 c9 j7 Z8 {9 C5 I& Y1 `
         RowBox[{$ N/ J+ O/ H$ e2 v( j, d) T% `. I5 x, Y
          RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", # c0 `6 C  s' [. `' r
       SuperscriptBox[
( D8 [& p! C# }6 p3 ?" b" p6 T3 Y5 l        RowBox[{"(", 7 c# n  B4 h; ?% [) D* A0 t& l, g
         RowBox[{. t- M0 P2 [8 D$ @- ~1 Y. E/ E
          RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", 9 j2 p% P* m8 U
       SuperscriptBox[
' K; [! [; P8 W/ e3 Z& K        RowBox[{"(",
  l1 w  J; p# F4 [/ L         RowBox[{% E6 H' Y- s: ^1 m- {6 s$ Q/ T* j" }
          RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
7 t/ R- u# g/ `4 Z' x       SuperscriptBox[# @' _3 M7 H) W3 S' Z
        RowBox[{"(", 0 [: b# `& e% M4 w, _1 O% G
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], : X1 T3 T- p9 U$ s; }; R6 I& c
      ")"}]}]]}], "+",
3 c7 e) X; y+ A7 |6 a  K  RowBox[{"0.6665374509702799`", " ", ( S8 J2 L. i# W0 B- D+ N. @
   SuperscriptBox["\[ExponentialE]", 2 Y. O$ J+ q) C( s: ?
    RowBox[{"3.141592653589793`", " ", 9 z& |' q( F' Y
     RowBox[{"(", 9 O5 V/ F2 R% d* I& y' `; v
      RowBox[{! m0 e; |) @. w( C; |. i( o
       RowBox[{"-", : q- S9 K2 }* S/ v7 }/ H/ e
        SuperscriptBox[  \# n5 ]  u4 B4 f
         RowBox[{"(", 2 r8 X# S! L. ^, z7 E
          RowBox[{
. o& t# b) ]3 t3 s& E! x( n           RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
) m9 r& s/ U5 Z; ]' v( F/ W       SuperscriptBox[, o/ l. r. m4 G& |& v4 I$ t
        RowBox[{"(", 5 Y0 {5 X3 j) W8 k0 c
         RowBox[{
5 T  j# D6 i- D- f          RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
( P+ d# G9 m) l% H       SuperscriptBox[6 m* e4 u3 G3 z4 \* V
        RowBox[{"(",
1 G7 o+ b; j/ |         RowBox[{2 X! z1 g% V7 ?) n* f+ E2 J
          RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", " r+ P7 i1 p  c* W# S: E
       SuperscriptBox[0 W) @( ]+ I0 [' L; Q$ U  Y: y
        RowBox[{"(", " |% k/ j, h( ]- l9 [
         RowBox[{* b% R$ _% H8 t$ G9 `0 U
          RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", & X# }7 s) S3 k9 `$ v
       SuperscriptBox[# B; y% A; y* T: |/ O! n9 n
        RowBox[{"(", 4 _7 L+ Y/ L: e& q, s8 i+ r( e
         RowBox[{
! j6 Q% C" J# ~* k' Q: f- p  D          RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", & O1 M9 i9 R, z1 G  _9 K: G
       SuperscriptBox[
" X2 z. L4 C! y5 ]+ v( a        RowBox[{"(", " s! K' b, n8 a+ i! I
         RowBox[{
+ R6 I# l4 y8 f$ L1 x* D) R+ ]( K          RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",   \" c9 Y4 u1 y; {) }
       SuperscriptBox[: I- O$ a9 l4 R4 X% P+ v
        RowBox[{"(", : p1 p! b8 W3 v5 Q
         RowBox[{' q3 |- f2 s; y' {1 ?) Q
          RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
2 b! [3 j( a8 k1 R% N" Z& C' O       SuperscriptBox[
4 V9 N/ m* T! X" Y, Y        RowBox[{"(", ( r4 k" J0 z! I' h
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ) \* c% p) s/ N1 b
       SuperscriptBox[
7 ?8 b! \, T. u7 \! p        RowBox[{"(", ) h- n) [( H, T4 P9 x& }
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 3 c* P1 T3 `7 q. V- {1 t
      ")"}]}]]}], "+",
& V5 J% U7 z  f1 P' f: F* _" P( m  RowBox[{"0.4812237524557292`", " ", 8 T  S6 b) Q1 v! `% b  s' C
   SuperscriptBox["\[ExponentialE]",
5 J, V0 N' }3 G) n    RowBox[{"3.141592653589793`", " ", , r9 |# i& n& T; J" }9 q. A9 n
     RowBox[{"(", - j$ p/ V" g  j
      RowBox[{
  B, O; f* T/ K0 I  t       RowBox[{"-",
0 k, q2 U7 v# Q& [0 R        SuperscriptBox[
: G/ G) ?! ~' ^2 V+ F5 w4 [' }         RowBox[{"(",
8 M; d! l$ A+ M9 R0 M          RowBox[{
+ g+ j* ?% i  F4 S+ ~           RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
( |: {$ ~  Y% m2 u       SuperscriptBox[" Z8 N! R. V+ E" U
        RowBox[{"(", # t' a: ~7 W" k; W' H/ O4 x/ }$ x
         RowBox[{
# J, ^& S0 O6 L) @/ X% K! K9 A, [) p4 L          RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", / ^$ `& G+ O; X& p; [2 G
       SuperscriptBox[0 d% N( A! Z4 z4 b2 }  J
        RowBox[{"(",
# j8 j1 ?* y  {1 z& |) y         RowBox[{/ \  x2 T$ o4 K
          RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", 0 l4 _- O; I+ w' P5 R( _# V; f
       SuperscriptBox[4 x. k5 o* G6 c  V, R+ P5 A5 w
        RowBox[{"(", 2 O2 x; }3 R- ^( F$ R' ^
         RowBox[{2 @0 @/ s/ u/ Z3 T( L/ w
          RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
# U; d8 e2 l4 @, t$ x0 B" m       SuperscriptBox[
. d0 k# U/ j  o        RowBox[{"(",
  V& ?% H3 a* v+ `) N! ^         RowBox[{
9 S- C3 v1 J! l( x% }          RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
( {8 `" d6 z. p2 c       SuperscriptBox[  Z9 G  K' E& }  v) X5 z
        RowBox[{"(",
6 t% K: r, G: G3 `* g2 M. v' N+ ]         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 3 A% w* Q4 Q/ t
       SuperscriptBox[9 i& @6 ?" `: J9 K( t
        RowBox[{"(", % q. Y, ^# u6 m+ P# e5 _
         RowBox[{8 {0 a1 M3 n  _6 k* b
          RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", 0 I# r& X- i( R' L5 h! l% ?
       SuperscriptBox[( f4 {2 n6 k" _/ f1 z
        RowBox[{"(",
7 N8 N9 e0 m% V  U! f; u         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", . Q( ^; x/ D' `
       SuperscriptBox[/ h1 C6 J% z9 Q
        RowBox[{"(",
6 r0 T% Z1 w0 K1 w% h         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 0 x( L4 v; g' b9 s. g
      ")"}]}]]}], "-",
: d8 c2 x" f7 o2 M" \$ }  RowBox[{"0.17602467625404622`", " ",
6 s: j0 z) ~/ e5 E: i5 [- ^" V3 Q   SuperscriptBox["\[ExponentialE]",
. g5 g% |% ?+ [2 ~$ {) B    RowBox[{"3.141592653589793`", " ",
4 p9 N8 z9 E% w1 q, Y     RowBox[{"(",
( y2 f( d/ b# j+ w! U2 H, u  \/ Y      RowBox[{
9 l9 l- d1 S$ J. \& ]6 ~' L! j       RowBox[{"-", ( M0 E$ \  J* J# _: u7 P$ F
        SuperscriptBox[* C1 B) X+ M( G
         RowBox[{"(",
$ a3 g4 Y8 ^0 w          RowBox[{
, N8 |* N8 o, t: L5 R- [           RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
9 a( p4 }- N3 E2 ~8 i$ Q/ R. j       SuperscriptBox[& V1 t9 G. J2 g- |0 t* h
        RowBox[{"(", % S4 l/ ~; ]) ~, x0 k; n4 b/ r: B' [
         RowBox[{, ?; K; a+ M7 s4 N! @
          RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", , j8 E9 p- V8 r
       SuperscriptBox[
" m! N( M( D' |3 k, F) l        RowBox[{"(", - L$ I. w/ ]; K, |/ ?- H, d* X+ n2 i1 g& y; I
         RowBox[{
2 A0 s" m0 J) d# k; p) s          RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", # U4 [0 \$ y7 M: i
       SuperscriptBox[
: Y* b1 K8 r8 P1 w5 ^5 j        RowBox[{"(",
3 x5 u2 V& [$ ?5 Q0 j         RowBox[{. D: C( y  L: {/ n& d! h& ~
          RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
' K1 k9 a7 @+ [       SuperscriptBox[
7 K5 [8 \- f6 e        RowBox[{"(",
* @7 F; V, E! C; w3 {" k6 j         RowBox[{5 z6 s/ L$ c5 g$ ~- X3 L
          RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", 2 X% ^: {# Z8 U5 y: M) d( C8 c) s
       SuperscriptBox[2 o1 @2 N8 p4 O# `1 ^6 N
        RowBox[{"(",
' a$ P; y* T" q4 V3 D         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
3 o* y+ i8 T' [3 L       SuperscriptBox[( N# U' I$ l. F7 G6 f) F) [
        RowBox[{"(", * u6 w" k/ o( @, }6 \) [8 I& v
         RowBox[{7 [5 {# V$ t' M) x1 ?
          RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", " v8 O2 d6 u2 G6 z- z4 i5 i
       SuperscriptBox[
4 B1 f" y/ @' S- t  [        RowBox[{"(", & C/ ]9 n3 u0 ]' @
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
  c* b+ d5 ~6 T  Y& }- I6 G, J       SuperscriptBox[$ y( ?' S$ y% s1 E: r" F  d
        RowBox[{"(",
8 Z/ ^, |+ }; L' R. H         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 7 \* R' ?( z4 S
      ")"}]}]]}], "-",
  r  Z6 \2 K. \! B" G4 H  RowBox[{"0.5945873894818967`", " ", ; b6 X* f, R/ m) m. P1 e7 M/ Z
   SuperscriptBox["\[ExponentialE]",
7 v" X. N5 j; }5 G. f5 J    RowBox[{"3.141592653589793`", " ",
8 j' S* |+ F" [6 ~9 @     RowBox[{"(",
1 A' D5 B# s2 d! ^) ?# Q      RowBox[{$ V3 B7 D, k, }% T3 T8 g* J; A
       RowBox[{"-",
) S1 r2 a. P$ y" t5 j3 R( g        SuperscriptBox[6 F5 g3 s0 l, q4 D+ r
         RowBox[{"(",
: A2 ]# L1 u; W, y7 j8 G          RowBox[{
6 C0 |4 P7 a7 @/ y7 M           RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 R6 P" _0 [5 ]$ C8 K
       SuperscriptBox[
2 Q6 B7 k1 \3 x2 i6 Z' r        RowBox[{"(", 9 ?2 ]% a+ u! C& t6 o  C
         RowBox[{
" |6 ~# p+ u. ]& Y3 x9 j' }7 R* _          RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
) R: ]+ h5 |( E2 x" \# X+ j2 F       SuperscriptBox[7 J9 H" U  t0 H' s9 R
        RowBox[{"(", " e# b; p+ D* ?3 J4 ]  e* g% n
         RowBox[{( \8 q& H" A. Y* j3 S4 t3 L* j
          RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", ! ~9 K( g# g$ Z9 k8 r  p+ D
       SuperscriptBox[
) k1 n' Y* D& V3 O* Y" B! Z        RowBox[{"(",
' Q" d5 b+ U" o, |. n' T         RowBox[{
  \, |0 _% ~0 C$ p: A- j          RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", 2 w: }$ t! O* j  m
       SuperscriptBox[
7 }6 n( p0 k9 |, f) v4 e/ V/ V: R        RowBox[{"(", $ n- K1 }2 g( p4 B
         RowBox[{3 H3 V5 \4 B3 K& E$ U
          RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
9 c$ O' L- w0 w, G) k0 S+ T       SuperscriptBox[
% x+ h' q. j2 C' x. y        RowBox[{"(",
" r+ J2 O* {, q0 a         RowBox[{& J6 i+ y, a. z( v: m
          RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
& {; s. j+ w6 o4 H, b* B) a: T       SuperscriptBox[0 ]* k+ j5 c' |% H9 h* h! q7 c, K5 a
        RowBox[{"(",
- l/ x. k+ W* N- d* G( V3 t. d: `         RowBox[{2 @7 k' i) D% f; l6 ?9 Y; y7 ]
          RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", 6 i/ o& g2 k9 p# _5 J  r2 o
       SuperscriptBox[
/ X7 [8 Z: L8 q' Q$ D) g) S1 p        RowBox[{"(",
) `0 E- u$ Z, m5 a" P) I' s         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
6 ]* l+ ]; E  d/ u+ a       SuperscriptBox[# y) u8 v8 B8 {" \3 D) d
        RowBox[{"(", 5 M/ Q2 x: ]- K6 i0 M5 C* z9 w) O
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
+ N! O3 n4 M8 V: a1 g! d      ")"}]}]]}], "+", 4 V( D: ]! c* [8 z- f: d3 v" |" N
  RowBox[{"0.5252475961933538`", " ", % k' F9 J5 t1 U* t2 a5 B) \: `, P, f" @5 \
   SuperscriptBox["\[ExponentialE]", ! y$ R' T: K- z, Y1 b
    RowBox[{"3.141592653589793`", " ", 0 o0 X: L. Y' H* }0 m- D
     RowBox[{"(",
$ k7 }7 C# K  k, ~# C4 J" i$ X' V; ?      RowBox[{8 m& |  H5 w) E, z& o$ B
       RowBox[{"-", , A- V1 f" r/ |: C1 o; N5 i
        SuperscriptBox[" j. Q6 {% J. C7 X- g3 e
         RowBox[{"(",
) e! T1 T1 j4 `( u  g  \+ s- R7 d          RowBox[{
+ R' |9 O- ]! D           RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", 3 r9 {% c! i& P/ T- c
       SuperscriptBox[6 ?1 X$ s/ J* u5 w
        RowBox[{"(",
5 k8 U% @/ `" N: @. z) ~         RowBox[{! e% P% C# x* R1 y. v
          RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
8 P6 y7 z2 b0 Q6 U8 f       SuperscriptBox[+ n( h# B0 Y) t5 ]9 l! v# u6 n
        RowBox[{"(",
% {- y% _# j! ~5 i& l5 L( t         RowBox[{
9 R+ }* R# t3 f/ i          RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
1 u" [2 }! Z- P3 e2 `. k7 Q       SuperscriptBox[
2 K7 U$ j% c/ j) u& V        RowBox[{"(",
; p2 x4 K+ q: [. ^         RowBox[{
% L  M0 z  t# F1 R& d          RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
, }9 j  I1 R0 g       SuperscriptBox[
( T1 U/ N' W* v. a8 a        RowBox[{"(",
0 f) I, v* E0 T1 e% Y         RowBox[{
/ ^/ q; P* t  }+ S0 v          RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
  f" b% U  c3 }7 u       SuperscriptBox[
0 ?" Q2 @1 `8 [7 z" \        RowBox[{"(", $ G5 ~  k( z) {& R# {
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
: z2 H# E% U: k. M" U       SuperscriptBox[( m5 H* k- K+ n% Q5 e; z
        RowBox[{"(",
/ l/ u: M% n$ q6 r6 i" n         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", & i+ }/ ]* q, B+ e6 l
       SuperscriptBox[! D& Y1 }) {' x3 T3 d
        RowBox[{"(",
2 m3 @7 g; W6 t+ Z: s: ^) n: N' h         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
4 Z! r# T) K5 o" s1 {       SuperscriptBox[$ h, w0 j- e  i: \: {4 v
        RowBox[{"(", : D' ^4 ~) A6 {: e) }. A$ p
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
: b% R3 L5 a4 z6 l7 z0 J      ")"}]}]]}], "-",
6 h: l( i) r; |& x* @& a  Z& T  RowBox[{"0.320472847796449`", " ",
7 o: d+ ^, q  k2 H  U$ ^- P$ v0 T   SuperscriptBox["\[ExponentialE]", 6 _( Z' A: `' F4 ]
    RowBox[{"3.141592653589793`", " ",
% Z) O/ C  I: H" b2 |. i     RowBox[{"(", 1 @: u5 L2 W/ m. M3 Q8 U+ I
      RowBox[{" |. p; G0 ~% u' G7 b) L8 b; ^
       RowBox[{"-",
. ]# r7 a- M& ~5 s6 A; P1 E        SuperscriptBox[
6 _, k: z% p1 N2 T4 N         RowBox[{"(", " @2 [. _% `: x  q
          RowBox[{  ]7 c8 S1 H* d3 \/ i8 e/ N
           RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
# k7 t+ _% ^! X+ J# U6 Z  b       SuperscriptBox[
. q+ h6 i: A+ Y7 x$ a/ w) F; V        RowBox[{"(",
+ d7 l+ e/ B9 A. x  s         RowBox[{  q: T: Q( z: k) k
          RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", , _& d2 h* T5 T3 T
       SuperscriptBox[
3 z$ W3 M8 u( V5 u" @6 g5 H        RowBox[{"(", ) p3 S( ~- y! C! [# e) \
         RowBox[{1 F( u6 d6 n; ^8 o/ ~7 b0 ^
          RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
) v/ z+ C' R/ Y6 h) H9 A+ u8 r       SuperscriptBox[
& F% K, i1 j' {8 i        RowBox[{"(",
6 i& H' B$ ?$ J         RowBox[{+ K& V' P( `& v$ X, X1 w
          RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
/ W* i- o4 K& ~7 J5 }3 x$ e       SuperscriptBox[
2 T! m  ^; y+ Y: J9 v        RowBox[{"(", 6 d1 ~( V! p, h7 g) W( b4 x
         RowBox[{
: I7 P: o$ i+ z1 d' I          RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
' `  I; o4 B) ?- W& u       SuperscriptBox[) j+ d; R$ S3 k+ A$ q: T4 b+ X
        RowBox[{"(",
7 ~0 z* `  l: |) [6 ]         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 4 j8 U; r5 w2 |3 _% d! {6 L+ @2 g
       SuperscriptBox[+ G+ a- c1 l  f0 R
        RowBox[{"(", % p3 j& g8 D* }' ^. h' P0 \
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 1 Y: j& N4 r! `. t% x! y% S
       SuperscriptBox[- j8 d  Q2 H6 k  w+ [% U
        RowBox[{"(", $ h4 f# ?4 q, q+ {) m" k5 L
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", + O9 I  t* B3 _2 i
       SuperscriptBox[% r7 B* g- m0 G/ c: ^% l
        RowBox[{"(",
& |& V# i" m/ H         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
6 A) u+ P4 S' W5 z! `4 l      ")"}]}]]}], "+", & J/ P; b  B: W4 i
  RowBox[{"0.7528674241482847`", " ",
$ A* X( N% W7 g   SuperscriptBox["\[ExponentialE]",
, s& d9 U! x8 `* }    RowBox[{"3.141592653589793`", " ", + m( E! {% M1 `3 _, Z" U
     RowBox[{"(",
+ w3 ?/ @- \& a( d* J- z9 R$ Q      RowBox[{
! {; w3 M8 ^0 n. I' _       RowBox[{"-", ) x# O5 ^# I% l( [2 W" R* R
        SuperscriptBox[
" l) H) k7 v2 G1 z         RowBox[{"(", # Y0 p- H2 q8 H% {  b
          RowBox[{/ U+ ]$ t+ h; l8 s: W
           RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-", . p6 Q0 ^- M! {) `
       SuperscriptBox[1 p. k, k' Y5 {9 p
        RowBox[{"(", $ g" L9 C9 V/ E! l! x
         RowBox[{
1 t9 N% I; o! X+ N8 N: c          RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", / N# V8 F( Z3 R3 Z% z
       SuperscriptBox[
4 ^% G* V* N% N- M% n6 v! Y        RowBox[{"(", 3 _5 X' D4 L; G5 j
         RowBox[{. Y- Z+ C/ ~1 u! w+ g% z
          RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
) ~  l& ^5 r9 |! C; @) E9 q       SuperscriptBox[- K7 ^% K8 Z$ Q! H
        RowBox[{"(", ! B0 X4 C0 m5 P: @1 ~; R8 {
         RowBox[{
0 n- l& ?4 M1 C8 W8 F1 }6 B          RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
% E6 C, f, k( H       SuperscriptBox[
/ s. L6 l, T9 \2 U6 }( T' A        RowBox[{"(", 6 k& c: O: `1 z% S" }$ |5 i
         RowBox[{# w, g1 d* M( A* A: T: K
          RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", ( a& M7 r' T4 g- o
       SuperscriptBox[; D0 ~5 x7 ]" b; a7 i
        RowBox[{"(",
: L% z3 s1 F  l9 S         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
! z( j# ]+ K. j" x8 Y* @       SuperscriptBox[6 T* G& O8 p$ z) E# c/ N
        RowBox[{"(",
4 W* O4 g' K5 T7 j+ W; C         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 6 \: Z& _( P$ x) B" K# y( {" E! _% i
       SuperscriptBox[2 ^% x  o; a6 }( e4 T) W0 R) d
        RowBox[{"(",
3 w  r/ Q6 \) U         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 6 S1 C( N5 M- M& N9 F8 _" n
       SuperscriptBox[3 I) H# q8 V0 N' e0 j; \* L0 P2 D
        RowBox[{"(",
) [7 p- X& l1 P  q$ f: `         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
( `$ W5 S- C0 V8 V      ")"}]}]]}], "+", * e$ Q6 e% r& r# b3 @- w
  RowBox[{"0.02759193650965952`", " ",
. ~8 Z* a) R/ o/ j   SuperscriptBox["\[ExponentialE]",
0 ]3 z2 r! G5 u/ C    RowBox[{"3.141592653589793`", " ",
+ S: D/ t# U9 d6 r4 }! P% p( e     RowBox[{"(",
+ s+ E8 Q! L" y! I      RowBox[{4 G7 B6 T6 K% @& B" B! J/ H- y- f
       RowBox[{"-",
  \$ F6 r9 q( Y! \/ G! |        SuperscriptBox[4 [+ K% I! T( [; J
         RowBox[{"(",
4 V8 T! @. T3 Y# @7 U0 v4 h, s# W          RowBox[{
" ~& c  h# n% R           RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 W+ ]( H" A8 {
       SuperscriptBox[
& @9 _$ O  b- D/ v  w: H( U% J! c        RowBox[{"(",
0 [4 y9 V8 b8 @7 }9 v, N         RowBox[{
: S% ?( i% d* B; u4 b! b! I0 K          RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", 2 ]; I: x+ z  J; w
       SuperscriptBox[6 P1 I4 s7 `3 B
        RowBox[{"(", / E! W5 n! T5 F* q2 R3 b1 h
         RowBox[{
/ y% L& e2 i+ }% W# s/ V          RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
* F9 N8 y4 H% x) a) }4 X       SuperscriptBox[
1 S3 N/ n9 v$ x        RowBox[{"(", 5 P* U$ C- g) y  e5 @0 x) \) z
         RowBox[{* s2 R* L4 L. Z4 V
          RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", 1 @# ^( b8 S2 L, F: U
       SuperscriptBox[
6 g% W5 P5 u2 M: Z: m9 `5 C        RowBox[{"(", 3 V* k. s- j7 c+ c
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
9 w  G6 X1 Z5 d( H8 ]       SuperscriptBox[
2 ^1 B) S2 x- z9 d" w4 A' u        RowBox[{"(", 0 Q' _3 W  e; B
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ' f; U( S! `/ }& i0 k
       SuperscriptBox[
# M. R6 Q  k# P2 t  F        RowBox[{"(", 2 b( w) d6 [* q. ~3 {
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
. Z/ D( W+ R% \. i       SuperscriptBox[
! Y- u2 ]( B3 B' p+ r! D        RowBox[{"(", % k. u$ h+ `% X# N8 H5 m
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", * ?% M9 u7 m4 P/ R
       SuperscriptBox[
$ |  l3 f+ f2 z5 S2 q        RowBox[{"(",
% q! T6 O8 `; x         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
' C9 s7 b+ y; w  m      ")"}]}]]}]}]], "Output",* f" [* d4 b, [4 x( E1 C
CellChangeTimes->{3.577924759875*^9, 3.577924921203125*^9,   B  a' O0 h: D! ~
  3.57795759203079*^9, 3.5779589554964056`*^9, 3.5779621253913965`*^9, 9 P7 u6 D: A& g( ]
  3.5780123515625*^9}]1 E1 f+ {% \9 N; u
}, Open  ]],# x7 j! c$ n3 G. z1 u
3 N4 {; B3 ]; H
Cell[CellGroupData[{7 p- N) V* z5 ~$ t3 z2 z/ S: y

6 Y6 w" ?/ X# A/ b$ H1 P8 ~. gCell[BoxData[  S& y* s* o. f- Q
RowBox[{"y1fit", "=", % \0 t$ \. b2 {/ m6 k' |) G# F/ f4 u
  RowBox[{"Table", "[",
3 Y) u2 a9 I% ^5 L7 D: H   RowBox[{"x", ",",
% ~$ a8 p7 p. Q/ C    RowBox[{"{", * D* ^' q% U, s6 D
     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",! y) t( O2 P+ i% v
CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {
. h. `/ Z6 c5 I) m, E+ z" p  3.5779252768125*^9, 3.577925277484375*^9}}],& B4 F0 |# V$ u# J) [

4 c: C+ |9 o" L( M: ^% u4 RCell[BoxData[
8 L* O3 `- u* H  V: } RowBox[{"{", . }0 y, R6 I8 J: R$ h3 p4 x+ o- l
  RowBox[{
. o2 M3 T# I2 b* q' W* Q  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 e4 m. l' R0 |& O# ~* n# m   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
% J! a" {: x) S' M2 m. `7 B5 b    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
6 O* }8 k4 M( j8 h; f   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
* o4 ?6 j- N1 }5 S( P% T   ",", "29"}], "}"}]], "Output",$ M! }$ S$ o  V# L
CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9, ; a, r  G  ?% }/ U% z- [9 g
  3.577957594916795*^9, 3.5779589579612093`*^9, 3.5779621294942036`*^9, * ^6 d' I+ V' M9 P0 g: V/ Q
  3.57801235340625*^9}]
3 y# u6 q1 D  ~. a  M* A8 [& W}, Open  ]],
3 M+ d3 i6 ^2 E
' x3 S* Q6 E+ o$ l3 J6 GCell[BoxData[
9 f( o3 M) U2 @# u  V RowBox[{"For", "[", $ M+ X% Z& V- a: B0 _
  RowBox[{
" S, |7 {; }: D  r   RowBox[{"i", "=", "61"}], ",",
4 C( M7 }7 U$ D  }  ]   RowBox[{"i", "\[LessEqual]", "89"}], ",",
% M: d! L* W  X  f   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
1 D8 L5 n3 m" q2 D+ ~: D- ^   RowBox[{
  p# W* ?/ |4 f& ?5 V3 H! i    RowBox[{
+ J9 g. j4 t1 k# F( v9 \' ?& k2 h     RowBox[{"y1fit", "[",
1 _5 S4 q4 P0 P( m4 ^& g# P      RowBox[{"[", 7 a+ v7 {" i7 l
       RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
8 b4 l4 N& h" E2 p- s; V! k     RowBox[{"y1", "/.",
+ o9 G2 I* O- B" }( ~- y( k      RowBox[{"{",
7 `# s& x6 t6 o0 v       RowBox[{$ p" g9 ~6 o% e# ^9 ^4 ?
        RowBox[{"x1", "->", 9 f# W; B3 j4 w! |$ r1 S9 u
         RowBox[{"Data", "[",   k8 {. p- n  l6 ?. Q9 P
          RowBox[{"[", / N( k3 A$ z" q# U  S
           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", / [$ J; A, x8 s8 [4 \6 N! g
        RowBox[{"x2", "->", $ }1 L( w' {/ ~( {' w6 z; K
         RowBox[{"Data", "[", . J/ U7 Y7 g% o% }. \: V( Y5 N
          RowBox[{"[",
9 J8 ~; W! {% {4 d           RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
, g+ B, G, r& e, ~$ G        RowBox[{"x3", "->", $ Z4 Q( m% v  F, ^3 r
         RowBox[{"Data", "[",
7 ?# Z* v8 g" X2 t$ E  {! d6 M          RowBox[{"[", ! [% v4 Q3 o" b0 a' `0 F4 P
           RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", : }" Y+ \% G& |5 b: @3 g6 d7 C* ?
        RowBox[{"x4", "->",
8 c' w4 c) \4 r. [! L         RowBox[{"Data", "[", + u% D, }+ Q& ^
          RowBox[{"[",
1 i7 }/ z" E7 n5 I& t5 p) F           RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", & D5 a& M' W' Z' \* W
        RowBox[{"x5", "->",
$ G7 r- ~0 |# |$ r         RowBox[{"Data", "[",
5 i; I! @8 ]/ {/ _+ f  ~* o          RowBox[{"[",
) k$ |; M8 w+ t' f: i. Z- S           RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", , Q4 ^' N4 C" @+ C
        RowBox[{"x6", "->",
/ \/ B# T5 a3 g: S; w& u) z) p         RowBox[{"Data", "[", * h# u) d2 \! D* `5 w" O* a* `
          RowBox[{"[", " M* |2 m* O3 V( m, c+ m$ D
           RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
( g8 |3 }- s7 Y5 |+ N        RowBox[{"x7", "->",
- |, \& x# P9 y, n2 O         RowBox[{"Data", "[", ) t* p; w" [3 }/ T9 p1 Z0 }- H
          RowBox[{"[", ( s9 F, u$ q; e2 h. l
           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 7 j8 P# R0 x8 c! |* T  G
        RowBox[{"x8", "->",
8 L: f1 Q$ U! u9 @2 v/ u9 K4 r         RowBox[{"Data", "[", 8 z0 b, v+ ^$ F  G
          RowBox[{"[",
# E2 q9 G) F% a  d! h, O3 `) B           RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
) i  A) H$ a8 V4 ^1 o        RowBox[{"x9", "->", + w: q" B1 J! B/ ]9 a( @
         RowBox[{"Data", "[", ; [& I& v) k1 I/ W" U3 o
          RowBox[{"[", 8 T( ~' Z0 f' z
           RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}], 7 Y" _( L; [8 U, m% O
  "\[IndentingNewLine]", "]"}]], "Input",+ z, Q+ X& G9 o- j
CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {8 q  ^$ K* M; ~; Z7 R
  3.577925286140625*^9, 3.577925306765625*^9}, {3.577958922517948*^9,
( a$ S* h. f" X( ~, ]7 t; D$ @  3.577958922549148*^9}}],
# ^6 A4 @% t% p9 M3 H5 Q, |& i/ V
Cell[CellGroupData[{
3 V/ o* ?9 w& x) i) K4 ~( v) @4 P( _8 R
Cell[BoxData["y1fit"], "Input",
5 t8 F3 o* k' ]8 ^) x CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
, ~4 h& X7 q8 o( m  3.577925040484375*^9, 3.5779250440625*^9}}]," @. b+ M* ]6 ^7 |9 h* K4 b

0 x. j' Q" u# L4 I* gCell[BoxData[) b" p8 V" p" H, P& Y3 H6 m$ l& a6 x
RowBox[{"{", 8 W' r* b; d- V; ]2 _
  RowBox[{
+ w4 x- W  G0 |6 o& a& M! Y/ ?. [8 g  "0.43193416525930517`", ",", "0.4501634853493982`", ",",
$ ~1 k4 j" [, s# A  e5 c  V   "0.33336034768525247`", ",", "0.4418609896858925`", ",",
: o8 c: F9 z  ]# B   "0.41030378932283024`", ",", "0.516814798191575`", ",", % a* T) s& y" p1 L* I
   "0.4476631213729994`", ",", "0.3016552978696669`", ",",
2 b6 a; r& ^! {; |* a* y   "0.378122167437847`", ",", "0.020339844919720733`", ",",
3 ^7 k  _: }' W5 p; N3 d' G   "0.018745375782087376`", ",", "0.2919925992695025`", ",",
4 V) ~* q& V, F0 l! x2 `   "0.2649067959681263`", ",", "0.16343444284525593`", ",",
6 f0 z" u: L. o) _% q6 K6 z' ~   "0.4182466778551563`", ",", "0.27347752211364934`", ",",
" z/ S, D2 J. q   "0.38554057386385654`", ",", "0.35253160453718047`", ",", " X/ ]1 Z) S8 [
   "0.2054745841100774`", ",", "0.45504377112716676`", ",",
) k/ x" d2 J/ m   "0.1598805094678612`", ",", "0.18662509982279485`", ",", % X. {# A: t: L; y
   "0.10684797493248213`", ",", "0.013349212673286828`", ",",
: e. {( a% z9 C( f! b. S) q   "0.08215836003004297`", ",", "0.2979041599362813`", ",",
% }  C" h$ F2 \4 k6 [; Q   "0.05995976512343641`", ",", "0.3884793499104568`", ",",
( ]" U$ N, c1 S3 C   "0.5361889337034293`"}], "}"}]], "Output",* n6 G: I- V/ l0 B1 K
CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
$ E/ j, e$ Y' l5 g' Y  3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9,   D0 v8 ], h% E
  3.5779621416934247`*^9, 3.578012355546875*^9}]
, @. E5 }. [4 R5 X( R}, Open  ]],
  x9 e' Q% l0 `9 V) U  Q4 S! \
4 A. k2 j, R( R5 [1 }3 ^- G0 ]Cell[CellGroupData[{
: [/ {3 @6 n' t% A: j& T  y7 t! `6 z' |
Cell[BoxData[' }; P9 o7 a  W! t9 N; Y% |
RowBox[{"y1fit", "=", 8 P2 H- y% D, U' J5 l' Q5 O
  RowBox[{"{",
1 _. m  g1 e  g/ [+ h   RowBox[{
# m5 |! x" |: l, |   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& f6 O# V7 b9 J2 [    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # U" o3 R. a! g% t4 W
    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
1 {& G( k. f- [& m1 E2 T4 S    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
1 H& U! V" \$ f, |# q% U& @    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
1 o( `6 F+ U3 l" Z7 ^$ T  j    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",   u8 U: t/ ~( J  d# f! B7 X& ]
    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
4 G4 x3 B% w+ L    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", : d5 V' [3 g' h7 @" s6 P4 b3 v
    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", / N6 A; g7 i) _0 ^
    "0.4319341652593058", ",", "0.4319341652593058`", ",",
) {9 r8 T' Y0 r0 j    "0.45016348534939865`", ",", "0.3333603476852527`", ",",
# R( K( z' H  |    "0.44186098968589294`", ",", "0.41030378932283074`", ",", % F' z* J% u+ s8 \% b7 Z5 G
    "0.5168147981915754`", ",", "0.4476631213729997`", ",",
3 J8 _" m" x4 e  J    "0.30165529786966755`", ",", "0.3781221674378473`", ",",
' {4 L" q; W- s) ^5 K8 {* H1 l    "0.020339844919720775`", ",", "0.018745375782087393`", ",", % s/ Q! Z) l: R( Z
    "0.2919925992695026`", ",", "0.26490679596812655`", ",", . `0 V6 l% R( u/ A3 _/ W3 `% I7 R) H
    "0.16343444284525593`", ",", "0.4182466778551567`", ",", ! t" i" w' ^/ \7 p. O
    "0.27347752211364945`", ",", "0.385540573863857`", ",", 0 w2 ^; ]9 C' t% I/ x5 w8 r5 p
    "0.3525316045371807`", ",", "0.20547458411007796`", ",", / F0 z$ v3 @) n7 W' C, |
    "0.4550437711271672`", ",", "0.1598805094678611`", ",", 8 X" U3 s5 E/ o# }1 j
    "0.18662509982279502`", ",", "0.10684797493248224`", ",", 0 H. f# i  {3 ^9 |* S% {, G. l, r
    "0.013349212673286806`", ",", "0.08215836003004302`", ",",
+ @- a$ A( ?, @$ Z0 F    "0.2979041599362817`", ",", "0.05995976512343637`", ",",
& A, I4 q  \; B$ r5 A    "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",
$ B; ?, `0 B' i! n1 v CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {- z% N& l& T5 T& ^
  3.5779621548286476`*^9, 3.5779621618642597`*^9}}],
6 \, V  n+ d# M* a
' J( z0 _& n5 E7 A6 o8 qCell[BoxData[) D* }- p4 y5 n& G
RowBox[{"{", , d& V$ y" j$ i, o8 h; r/ ^# q
  RowBox[{
) c) r" t9 I. a' @  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", , }8 j# }+ }9 ?: s$ Y, ?$ z' B
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
$ Q+ z) r# ~8 N- v: T$ x$ z    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 7 I# F8 S; f' q8 g" q# `
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
- I- W) D1 T6 d. @   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
0 @: z: x2 X. ]# M( C5 G& h3 j) [  d   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", / s$ @( [7 {7 F5 G+ v* e( T
   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", , i* y' E  u5 R0 X7 Q7 _* R+ m
   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", & D  s' ~" o' ~6 m( J( @3 A
   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 4 z3 Y7 P( R- C6 f+ C2 c7 ]+ U
   "0.4319341652593058`", ",", "0.4319341652593058`", ",", $ _2 w& T. L' _7 f+ @/ W
   "0.45016348534939865`", ",", "0.3333603476852527`", ",", , E% L) e+ b9 u; H. F8 K4 h
   "0.44186098968589294`", ",", "0.41030378932283074`", ",", - S% L3 [# H8 j: I
   "0.5168147981915754`", ",", "0.4476631213729997`", ",", ) Z) k6 {: m- c2 i
   "0.30165529786966755`", ",", "0.3781221674378473`", ",", 5 O" ?% U6 S5 A; W+ T. Z8 D' k% F
   "0.020339844919720775`", ",", "0.018745375782087393`", ",",
2 t/ [* i% @+ B) c: f# I& V   "0.2919925992695026`", ",", "0.26490679596812655`", ",", 4 J" R! F3 z( d( [0 \$ j
   "0.16343444284525593`", ",", "0.4182466778551567`", ",",
% W9 h: J' N* o% O   "0.27347752211364945`", ",", "0.385540573863857`", ",", 7 @, O5 B4 {6 s3 W/ N( G1 p
   "0.3525316045371807`", ",", "0.20547458411007796`", ",", % r* ?+ v, ^9 S  i4 O7 n
   "0.4550437711271672`", ",", "0.1598805094678611`", ",",
. a5 R1 s1 w3 `0 N+ ]6 Q$ Y   "0.18662509982279502`", ",", "0.10684797493248224`", ",",
& O' B8 w9 b# A, _* Y" l% H, D   "0.013349212673286806`", ",", "0.08215836003004302`", ",",
0 d0 c! E) Z" `   "0.2979041599362817`", ",", "0.05995976512343637`", ",",
% i' o0 {5 K, L   "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",
' ]% v% C, B; j0 q6 e( }- E6 H CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9,
' {. i* d1 O# F4 G  3.5780123569375*^9}]+ E; c+ p; i. |$ e" N& I
}, Open  ]],- L/ M( B, _3 l" C5 u

2 o; B& y% s/ f+ Q+ ZCell[CellGroupData[{
, z% o" d! e0 Q" p6 l
) Y/ \2 @5 ]- M$ V; H/ n1 w  ~+ v" DCell[BoxData[0 m  k' {  y/ W! _
RowBox[{"y10", "=", 8 f" J+ u' u9 [5 H3 c! H/ \9 Z
  RowBox[{"Table", "[",
$ X( A1 }* \1 _0 O% Q- b/ b   RowBox[{"x", ",", 8 J4 v: Z; e  W7 A0 v/ ~
    RowBox[{"{", % W& u5 {) n0 F- X
     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
, m6 Q, Z. y1 }. d- b; l8 Q  \* [ CellChangeTimes->{3.5779253628125*^9}],
- O4 E) k$ o- E) l0 U* Y% J# R1 e& q( R
Cell[BoxData[5 l1 d- C; x- {/ |9 s! j6 X" s' g5 W
RowBox[{"{",
7 f6 E7 \0 x' k/ ?) [; c* ?' ~  RowBox[{
: B% b: a4 {5 f/ M3 l  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 6 W5 S( W& o' R- B
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",7 }0 J; h4 a& l2 u5 O2 T. H
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", ; v+ r4 a) I$ Y) N, ^& y; f/ X$ f
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
  u* d3 S& D  U   ",", "29"}], "}"}]], "Output",6 Y$ q0 t- |/ S% I. V6 ?* A
CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9, / x- `0 v5 A# }8 r' d- ^
  3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]
+ T( z. c) |+ z. Z( x( m* Z5 q* x}, Open  ]]," p& Q8 a3 ~3 y* E4 m

% ]! a1 k/ o4 A/ m3 Q- i) F' {Cell[BoxData[: K# i. h* X( _
RowBox[{"For", "[", ( ~8 s! f/ P" g/ {( {
  RowBox[{
' U7 m) r6 _9 a$ m' O' B4 c   RowBox[{"i", "=", "61"}], ",",
9 x1 X9 |9 s& V! F3 g, Q+ ^   RowBox[{"i", "\[LessEqual]", "89"}], ",",
1 @& k1 i9 o% J- }# I9 d% s+ B   RowBox[{"i", "++"}], ",",
& c) i7 a5 y+ `0 I9 I% D   RowBox[{  _+ u' ]$ g; t4 ^$ t9 @% r
    RowBox[{"y10", "[", 9 a* i1 i2 P$ V1 k1 W9 U
     RowBox[{"[",
2 r4 z* c  z2 b( ?: M      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
8 _; g& }) R: Z. {, s  e+ P" c    RowBox[{"Data", "[",
& W: \) c- z1 N( E' \     RowBox[{"[",
' l9 ~3 }' Z  z4 ?' C      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
8 A7 q% K+ E! c0 |9 a# h+ L# X- W CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
$ ]6 g4 P, h$ j3 v' `   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, ( F4 ?, m/ G* X! g/ _! }. G
   3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9},
6 J3 a: F- s  \- _" c2 T& S7 H' i   3.577958922549148*^9}],
3 Z! |6 h7 b; q/ B! G% E3 v# @) X) u# Z2 g% I1 E: T4 y
Cell[CellGroupData[{
1 c6 M* x: z% K6 W. Z' X, M
9 U8 E# m5 \) |0 c4 QCell[BoxData["y10"], "Input",
( |2 k: b2 o1 ] CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
9 q1 t% P' }$ v' z. j: W   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}]," x5 ?' T0 i* N2 D  o2 B4 {& c* w
9 c' V6 Y) s. u- R
Cell[BoxData[
1 u& U0 U: l/ E+ ?% _" M RowBox[{"{",
8 O# ]0 i# V$ d# a- ~9 a  RowBox[{, T: @# }: R0 {5 J$ a  T4 |3 @: K$ Z
  "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",", ; k5 v3 e: a7 G2 c
   "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",", . W1 g6 C: O9 c+ ?% R; R) W+ V
   "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",", 9 W, O' B% S. {. {1 L: F) n
   "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", 7 ~! M2 Y# ^9 K+ v( O3 H
   "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
3 n; k- r! j' E+ E9 ^/ I+ z/ B! O   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",", 0 X' k0 Y! j4 d5 W
   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
' r9 G0 p- B7 j+ [& ]+ r   "0.694935`"}], "}"}]], "Output",
) l- T, i% k/ l3 c- ~ CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, " \  k& E5 f+ U" |- C! s
  3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9,
& O! O' p) l' X8 m7 T( G, C  3.5779621736734805`*^9, 3.57801236071875*^9}]
! i5 A4 U1 M% c" k4 t; V}, Open  ]],3 Q% l" j  Z! k' g* l* t# M+ N

) J0 c, S/ {& ~( tCell[CellGroupData[{" q: L# r6 y+ Y, C; f: n! W( B! j
$ a& V+ o6 l8 A3 z: v+ W; y
Cell[BoxData[
# Q6 y" ^/ U( c7 g& { RowBox[{"y10", "=", 0 @* w) q3 v5 e% z
  RowBox[{"{",
+ n5 H6 C: U: Q" D  ]  N9 c   RowBox[{
4 m( M( i" q+ N  E   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 _9 k. c$ e; ]3 d2 T: s    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * H7 v5 `/ Y$ E+ U4 k! U
    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
4 [) o% }# C( S. w2 P    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", $ ?# z& G/ {2 i0 N5 [" u, }& C7 [9 e
    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
% Z/ r3 Z8 F1 Y" c+ t! m    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
9 r" i- W2 n! \; L: M1 {1 l$ W    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
# o& P1 K' V7 F! I1 a* }0 b4 p5 C# d    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", ! T4 Z5 @% ?) g
    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 0 Y& o) [: d. r
    "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", ' y0 e, O. G8 R8 [
    "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",",
! M2 q; V" M& W5 q    "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",",
+ V6 n1 H: X4 g7 }' s, E5 C    "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",",
& M- G1 V7 U  i( ]    "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",", " [5 k5 S( A9 ?5 p
    "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", , \' e# E( r, S. K
    "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",",
4 h" U" b: ^" ^" s" |2 R' H    "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",/ Z/ S# w2 |3 p4 M9 g9 o
CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],
& N( O1 X) d' t& r0 A. ^: S$ \# u$ S: j
Cell[BoxData[
0 {: o+ I3 V8 f% Y( n; C RowBox[{"{", 5 p, a% b9 }$ M
  RowBox[{- `; ~! b: ~9 K, e4 F% v
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& H5 o+ a4 R) d. O6 W6 v   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
! v7 x9 n# H# g, @    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
! K1 d% E1 D0 {5 d& B# A  D6 ]4 a9 U   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", . Q/ ]# G8 R- A
   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
; _  }2 |' T8 s4 ]9 [   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
: l4 h) g. i9 Y( f7 [( z+ `   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", 2 Q) }' ?  S0 F3 P  \
   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", & D7 J/ }( }# w) w
   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`", 9 K0 e5 g1 F# Q% F# ?6 ]( H
   ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", 6 K- o7 X! \# M, J. w. n% {
   ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`",
: B8 w+ k: g, C1 D   ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",1 [" N% j9 d% d  g& \9 s3 y& x
    "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", 8 a, S( D# \0 J, t3 h. C+ q
   "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", . [, W( a1 k# k5 l) s0 h6 N4 }
   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",", ( z" Y; ]. _$ d8 p6 J
   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
  U5 c9 z. o3 l* {' S% F' ~/ m! V   "0.694935`"}], "}"}]], "Output",2 R5 K8 u9 C9 N# ~6 J
CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9,
6 o& `; f" Q' d/ K# A. y: Y  3.578012361734375*^9}]
. s6 H% w7 M& {! h3 s}, Open  ]],; x0 Q5 N+ d" p5 O& a8 b7 d7 `
2 X7 \( Q4 l/ |8 m! G
Cell[CellGroupData[{
4 u% k- D& h! _, V& F  q
9 w0 P1 A/ d0 e" `, E2 d' `Cell[BoxData[2 O* p3 c  F. N+ t
RowBox[{"p1a", "=",
) Y' q" C' [: f' s3 \/ q& e% m  RowBox[{"ListPlot", "[",
, [& y  d& y% q4 r   RowBox[{"y1fit", ",", " H) ?3 {- R8 m8 W7 N: R8 M
    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 8 K, m. l) Q5 l4 O
    RowBox[{"PlotStyle", "\[Rule]",
  i, u" N9 \3 q  H8 h+ y. }/ C. u     RowBox[{"{",
- x- a, b8 s8 P: N2 P, q# m      RowBox[{"RGBColor", "[", ) B1 _% L* t+ A' ^3 i
       RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", 6 W8 M1 T0 ^) x, B; {
    RowBox[{"PlotRange", "\[Rule]",   s+ I- E, j" w& _/ Q  e- A: P
     RowBox[{"{", 1 I* A, z1 R( E' ?3 k% F7 _& n
      RowBox[{8 p! N4 f: n2 p3 A9 |6 ]! y
       RowBox[{"{",
/ f9 y6 S7 d* u* V  N! Q        RowBox[{"61", ",", "89"}], "}"}], ",",
2 M( _) r3 q# y. `- Z# x       RowBox[{"{",
5 v7 N) {+ D5 t8 ~+ b) _% |& L5 ~# `        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
6 `( u' q5 \3 x3 A/ Z4 G    RowBox[{"AxesOrigin", "\[Rule]", 8 B, m3 w* k( T% L3 i, ?
     RowBox[{"{", / W( Y5 Q! f% f& E
      RowBox[{"61", ",", "0"}], "}"}]}], ",",
+ N4 u# S8 M: m  B    RowBox[{"Frame", "\[Rule]", "True"}], ",",
: v/ [' U: u& M4 O; k+ s6 {" t    RowBox[{"FrameLabel", "\[Rule]",
9 P- ^- d6 h; ~/ e     RowBox[{"{",
5 E$ N: [; e8 a0 d      RowBox[{
6 j% B& y8 P! `6 r0 T      "\"\<\:7089\:6b21\>\"", ",",
6 I( p4 z" ?& v4 U$ z       "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\  O& t+ d. e2 _" J7 v
\:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",
8 V# ^" F5 |% A1 v5 c9 o CellChangeTimes->{, G4 }% @& n% _- [$ ^( u! Y1 `5 H
  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {" T4 C# D& G, |
   3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9, $ B; H& N+ L7 M4 _9 O
   3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {
& T( C9 w  N4 ~/ U0 h0 T   3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],
# j/ p% U0 O& ]% q
9 Z- Q* P+ |$ T0 E( qCell[BoxData[
8 a( L0 P% |" i% P# S* n GraphicsBox[{{}, {},
. ^8 _8 o  W9 Q/ S. Q0 _( l   {RGBColor[0, 0, 0], LineBox[CompressedData["8 @+ P9 ?0 k/ \6 j4 D% b6 Q
1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
% I3 `5 w( Z8 \8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
! x9 b7 n" X" `! e+ |$ fD3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B0 ^- }# {5 \$ O0 f& M# W$ {- f6 ?8 `
1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
3 Q) L0 F, Y. W& A) nC1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
- s' S: i% l$ F' H( w1 @a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
  n' [; w6 N- {; t3 L6 G( g! ZyqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
, l4 e, {( k: }  v* F* ^6 c! \4 ~wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59& Z8 `6 c9 C: o4 t* E3 ~; {
Y6nGQ3sAieueIw==
  M8 E( M& Y2 {6 [+ ~& k     "]]}},( F2 @& f) f- _& ]2 [6 b
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],! J+ S% r: h3 t2 V4 Q
  Axes->True,: r% Q5 ^7 w( k: w# L1 ~
  AxesOrigin->{61, 0},* {# U* J9 K/ N& l
  Frame->True,; t$ }  R4 z6 y, @
  FrameLabel->{
( v" T6 ~" }: @    FormBox["\"\:7089\:6b21\"", TraditionalForm], ! g/ S' Y# Q0 |9 s- a
    FormBox[2 N/ f. u9 k3 ~6 }! T7 |
    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
" ?1 T; T- W+ i/ F5 ]0 C\:ff09\"", TraditionalForm]},
$ _) m6 G! j: F& Y& R, p; ?  PlotRange->{{61, 89}, {0, 1}},
, X; ?/ n* ~1 K, W+ P  PlotRangeClipping->True,
. D. b7 a9 z& l9 G/ x4 r  PlotRangePadding->{Automatic, Automatic}]], "Output",
, N/ E) f; ?- g" d2 r1 N4 l2 S CellChangeTimes->{/ B1 G6 Q: M6 D" H; W, E7 C9 t6 Z
  3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9, % a* z& X) f; z2 g- r# @. i$ [
   3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9, + R. k! F6 b. g/ e/ H
   3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9},
/ K  L! Y5 |1 G  V. c   3.577962187510705*^9, 3.578012396921875*^9}]7 A9 E8 V7 P1 q  I
}, Open  ]],
6 X! p+ H! I& G& w: F" t' R+ D2 t) D* }
Cell[CellGroupData[{* E; v& ]$ E! ?& h& H, X4 m9 w
6 h) B# _+ h. P: [: l2 \4 {8 r
Cell[BoxData[
/ J4 \; t7 h! U% U RowBox[{"p1b", "=", 4 K+ A0 z/ F: G5 A1 Z
  RowBox[{"ListPlot", "[",
8 l" x! o- v, B   RowBox[{"y10", ",",
& X; S9 A% m3 i9 W& H8 y* P9 B    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
, _( g: H4 u2 Z( g4 T/ E; H# }4 n    RowBox[{"PlotStyle", "\[Rule]",
7 N9 g% h8 l" _; Q, K     RowBox[{"{",
0 p6 j) _  n3 {! E& @5 u4 ]$ r      RowBox[{& \3 S; V8 k- \' M0 X
       RowBox[{"RGBColor", "[", ( u/ q4 o$ `$ f
        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}], ' P1 G+ Q$ W5 I2 D0 b
    ",", 8 K4 E0 F( c2 k
    RowBox[{"PlotRange", "\[Rule]",
1 }" I, `# {* F     RowBox[{"{", . y9 o1 w" Y4 C: S' f! t: F
      RowBox[{! C  ^' V& `* i4 c: W* j7 N: _
       RowBox[{"{",
: o$ d# p7 R8 A        RowBox[{"61", ",", "89"}], "}"}], ",",
2 @5 d* d" J( z* ^  K9 \       RowBox[{"{",
& E2 \; _" z1 A/ c7 I  c, b        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", & K! S( D/ s1 B' M5 N+ E
    RowBox[{"AxesOrigin", "\[Rule]", 5 r" F$ v7 f! r! k/ X7 i% [# k
     RowBox[{"{",
& e* a; ^. {% F7 f      RowBox[{"61", ",", "0"}], "}"}]}], ",",
7 s) M6 O5 t& E0 O- j  i3 b% E3 }    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
2 I) x5 N* G" ?" Y$ \( S" q; z CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9,
, f1 P  W% ]3 L  3.5779597764166365`*^9, 3.578012409265625*^9}],+ X7 m1 D3 d+ \* W& r3 o0 i( D, j
* S6 \+ N: J6 S" X* Z; @6 r0 M' L, |0 l
Cell[BoxData[' c$ h( h( E2 d% D6 y( o& K
GraphicsBox[{{}, {},
3 P! G/ l7 Q# I3 `# E2 G   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
6 W# }* k/ x8 _; I* q% j1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ" {% ^; O" A& ]+ _+ \  U; w
/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy5 d9 X( O8 I! B8 w! }: h5 z
GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy, Q) p; f8 D9 w5 D& w& _7 u1 Z( _
GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy9 a6 C  v: L1 ^' w/ x
7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
0 H6 Y, n0 B. U5 a! B6 G+ V- nQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
: R9 ~0 \4 Q, u/ QH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV* g! H: ^5 O, w: p, n
rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
. q/ ]$ o' \9 I4 {0 Y0 JvA==. |, F" [5 E  e4 ?  b
     "]]}},
* Y- |; }9 `2 C. N2 e$ Y; J  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
* K9 z: U2 I* N) x/ {. t. \  Axes->True,
! m3 u; X" {( Y! G% L0 z3 S  AxesOrigin->{61, 0},
$ t- R1 ^) Z& b7 x! [3 ~1 L  Frame->True,. }9 g! J& R5 w% U, J7 A& C. P" |
  PlotRange->{{61, 89}, {0, 1}},, P# ^$ [( [1 e5 V  r/ Q" |- `6 a
  PlotRangeClipping->True,2 n$ P: D1 T" D( Q5 v
  PlotRangePadding->{Automatic, Automatic}]], "Output",
/ M. j# f. B8 u: n% i9 r! K( b CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, ; V4 T0 ^: i% y0 O
  3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9, ; ^4 j+ N" a; ^( c! v* V1 L
  3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]
' }) K+ ^' k/ U  ~! B0 H! j}, Open  ]],
" k' f; Q$ S9 p+ @- D; N5 t* [; A& {9 e5 x4 b; l( _
Cell[CellGroupData[{
$ V9 ?" f5 R$ m* M1 @5 M# i" ]( Z: x- @1 r1 [1 C
Cell[BoxData[
# S, ~, o' X  B# [5 a6 ` RowBox[{"Show", "[",
2 U% s( }0 I7 A) W7 M2 M7 D& o1 X- K  RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],2 T7 j; q/ F- ]) `- |9 R0 z4 V, }7 Q

& f7 w) P; h  S+ z* y8 ECell[BoxData[
2 y* k/ t9 ~* `2 j GraphicsBox[{{{}, {}, * p4 E" ?# S4 ]8 k/ f
    {RGBColor[0, 0, 0], LineBox[CompressedData["
( l; J/ G/ y/ O+ u$ V* q1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn" P. K* X* C, v# j2 j
8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq) D: O0 m. s9 Z2 e
D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B# m% O. R( C  z( ^' F
1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
7 Q4 J$ {+ Y9 W6 t! MC1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
2 g' l: F% t2 O9 f% O4 oa2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff+ y2 j* P9 p) `2 J* Q/ K& P
yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
% ^8 x) e( p0 d) pwrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX597 O; g0 p! u9 W) j: w4 w8 S  T
Y6nGQ3sAieueIw==
& v, ?7 [# g8 \) V/ d8 V      "]]}}, {{}, {},
/ x" B( \2 X- T# ^    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
; R) d; i4 t# @& X( ^: A5 i  a1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
! s4 r  W  ]% `; l" L/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy/ j, _# {8 N: x) v! N+ c
GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
6 M7 G! E7 Y# jGFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
: y5 E8 F& f( W0 B0 W7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
$ o1 @. ?3 h1 H- l) xQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri% c& ~' |3 T! H9 l( ~$ P0 `
H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV: J/ i; t) F2 ]# I5 L! _; L
rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
) f6 {. x( ?# N4 A; k/ Y) WvA==
) ]# e; s: @6 m: K, B      "]]}}},
  e- g# Z+ \5 h) N: [  L% q  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],0 S8 B# o' G. W: I9 T
  Axes->True,$ ~- E3 i7 H3 u* m6 c8 t9 e3 ?
  AxesOrigin->{61, 0},& Z+ j: |* Z2 d9 f. f
  Frame->True,. ]6 e: }$ ^8 h) D. ]
  FrameLabel->{8 `- n& f% V, H2 R
    FormBox["\"\:7089\:6b21\"", TraditionalForm],
9 I5 f- \8 b  L. L* X4 s4 x    FormBox[
$ c" G  Z5 q2 s0 n    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\3 u7 K: O6 p9 ?" u6 S) v
\:ff09\"", TraditionalForm]},9 ~. X5 o% F" v6 w* {9 r
  PlotRange->{{61, 89}, {0, 1}},
. x6 V% F/ Y5 w$ g2 c( F. ?5 H  PlotRangeClipping->True,. m: g/ f5 `: ~' |
  PlotRangePadding->{Automatic, Automatic}]], "Output",0 ]# l! Q! Y- i4 H
CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]
; m/ L/ ~; {4 K/ N* S$ z1 r' {}, Open  ]],
2 E; D7 `( Y3 G2 L1 v* P
4 c1 w, u0 ]2 z0 a7 CCell[BoxData["\:62df\:5408wi1"], "Input",7 {3 j! k8 h4 Q+ `& v) f' t
CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9},
1 _; Z* f( U% e# @/ x3 a   3.577959662349238*^9}],7 f7 v7 V8 J( T( X' q- @

6 ~  |+ O  D9 Y, f9 H9 ZCell[CellGroupData[{: }6 f5 [$ C* j3 T4 m: L( V
! g9 B) F" g' c( X: @, r
Cell[BoxData[  K6 l# ], n# J; \: [
RowBox[{"y1b", "=",
% L1 j2 \- J# q3 e- [1 Z. ^7 t  RowBox[{"Table", "[",
" F: O; Q3 O3 l, v   RowBox[{"x", ",", 9 }: E( h) w" L) U
    RowBox[{"{",
: ]: |9 I) p5 O$ c3 V     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",! }8 E& o+ q0 ]/ [) y7 X
CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
$ ^& x: L/ a: M# q0 e0 x5 |   3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}]," u. e6 s& m/ H1 \; M

! g4 ~  y4 m7 u8 O4 fCell[BoxData[' a4 o/ M3 Z$ u) t$ h) y
RowBox[{"{",
( d# t' c& [4 M0 M! [4 t# P  RowBox[{% ]/ E) c6 H8 w! V" Y
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", / ]4 l3 A. D6 n7 F; Z, e
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",( _0 F9 H' ~1 Z: h8 m: z
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
: u) F2 {1 d3 C5 \& P$ l   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
7 h2 M  F4 q* m$ v   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
. _, K+ k; Y% `0 ^3 `6 T6 F   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", ' Y% q! E$ \7 j8 S
   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", ! s6 i3 `- E, ?4 d! X6 H
   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
; }2 O: \( G" r6 z' Z   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
1 |! C6 w1 w- u$ {6 V  "}"}]], "Output",1 f* E" W, {* s" b/ c
CellChangeTimes->{  R" [$ B! a6 |. T+ y8 n0 K8 n
  3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9},
( H$ H" a+ X: F& d   3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9, / R* m7 r( K+ K; P0 [
   3.578012438953125*^9}]
6 Z6 {# e: {8 m* P: K* h3 U}, Open  ]],  d" r1 O2 c4 B
1 a, t$ F/ u: N" j/ x
Cell[CellGroupData[{+ T, \& z7 r0 v/ A- {3 i

- D* J: a( m# a% fCell[BoxData[
2 j+ f! z- ^  e  e# H RowBox[{"Data", "[",
3 N. A8 z7 a2 J; o% c. Y( }5 h  RowBox[{"[", 4 O2 G9 U" Z% H8 S
   RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",
7 k* R- D1 Z) _9 W) `0 v. |7 e6 a CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
4 O3 D/ V6 s7 A' C$ I0 u5 h  @   3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {
/ \' h; v. Y" g) h   3.577959014090108*^9, 3.577959016040111*^9}}],' T& Y% V& F( [( ^2 b, Z( w

6 {; X) }- @/ I3 D, b/ [$ xCell[BoxData["0.492958`"], "Output",
9 h+ x  C- X' p% F: } CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, - ]4 g3 j7 T' I$ j% {
   3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9,
! T( s9 W4 O& q   3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]! E0 I: I0 W3 m8 W% J6 f
}, Open  ]],+ s9 H  F! t: R' e( M- K

+ `- Q( u% z9 X& {* h6 M( yCell[BoxData[+ Z0 c5 a' B4 M/ s0 }: i
RowBox[{"For", "[", 6 x# e# V2 u4 M4 I% l; d  `8 n7 X) \
  RowBox[{
7 v/ b9 `. N3 d   RowBox[{"i", "=", "1"}], ",", - P9 z8 S$ |9 Z; H3 ~% `+ A
   RowBox[{"i", "\[LessEqual]", "60"}], ",", # ^+ x8 O% C8 R- j3 k: n
   RowBox[{"i", "++"}], ",",
" T/ V& C+ _& n2 G7 ?" f9 ~' |5 S   RowBox[{
6 z: T- z9 b' ]" r' a    RowBox[{"y1b", "[", # ^. n& p! b2 [$ K# x
     RowBox[{"[", "i", "]"}], "]"}], "=", + M6 G! T/ O0 x2 C3 _- [# p
    RowBox[{"Data", "[", % E" h( t- P/ E9 Z! o& y
     RowBox[{"[",
6 ^; H) j1 s2 m  M' A& H7 t; m+ w9 w      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
% I  E0 L9 g5 S- i4 Z1 B/ S' W CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
' R6 Y+ \  a) ^9 s5 `9 t   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, 3 q0 Q' j9 y! g4 C4 q5 g
   3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {( k$ d* }+ X5 h# W* {5 i
   3.57795902089172*^9, 3.5779590227793226`*^9}}],& M4 N  `- r; B4 Z& \6 f
% @( v  ?/ F* a' x0 S0 r
Cell[CellGroupData[{
. W( d4 ~7 I2 x
# k7 q8 ~4 U0 w+ {) a7 ~6 p0 ICell[BoxData["y1b"], "Input",
& D1 l* b, N+ X) b" U CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9},
" E1 E' ]' ]( v, l+ h# M* U   3.577958484172784*^9}],/ @- t- g' x1 Y2 ?2 I# ?* \

2 R( |; z* r7 E- kCell[BoxData[3 ~" _4 J' [  u
RowBox[{"{", 7 d! O/ e; S, q
  RowBox[{- j: v3 Y7 g1 n2 W( ?& T8 _" i
  "0.873239`", ",", "0.464789`", ",", "0.492958`", ",", "0.774648`", ",",
0 g* }: F+ o- W  l' F   "0.380282`", ",", "0.647887`", ",", "0.56338`", ",", "0.295775`", ",", + `1 J5 H  E' j/ e- ^
   "0.338028`", ",", "0.211268`", ",", "0.690141`", ",", "0.43662`", ",",
7 R& N' \' H6 a( C# |% \   "0.`", ",", "0.267606`", ",", "0.211268`", ",", "0.408451`", ",", # s" [7 F7 o! {: h# ^9 E
   "0.478873`", ",", "0.380282`", ",", "0.211268`", ",", "0.43662`", ",",
) @0 f0 h4 g. y; D- ?4 E2 \   "0.478873`", ",", "0.295775`", ",", "0.028169`", ",", "0.43662`", ",",
$ ]; ~. K/ y" f7 q' k   "0.394366`", ",", "0.295775`", ",", "0.830986`", ",", "0.169014`", ",", 1 C& B$ V% w8 s$ F/ B$ s* K
   "0.366197`", ",", "0.309859`", ",", "0.352113`", ",", "0.309859`", ",",
, e% m4 r& N8 M2 p1 n   "0.774648`", ",", "0.422535`", ",", "0.887324`", ",", "0.887324`", ",",
6 c6 @! g  y! o3 l* n7 ?   "0.859155`", ",", "0.239437`", ",", "0.295775`", ",", "0.746479`", ",",
; x/ ?3 E) k) L& D" F   "1.`", ",", "0.549296`", ",", "0.366197`", ",", "0.549296`", ",",
! ]! B" e: f# N  b, Y& k( F8 Z- v' i# V, I& `   "0.577465`", ",", "0.690141`", ",", "0.71831`", ",", "0.521127`", ",",
5 L; H4 l  ?2 ]3 M   "0.929577`", ",", "0.521127`", ",", "0.338028`", ",", "0.380282`", ",", 9 J$ n$ M4 A9 T0 {3 N& s7 L% T
   "0.676056`", ",", "0.591549`", ",", "0.464789`", ",", "0.295775`", ",", + I0 k& ]' n  a
   "0.380282`", ",", "0.211268`", ",", "0.253521`", ",", "0.28169`"}],
0 m1 G9 F) K( N1 [& h6 o  "}"}]], "Output",: @  ~' Q5 \" b, `0 M
CellChangeTimes->{3.57792293246875*^9, 3.5779582549771843`*^9, ; d7 f: o. e1 y; ^% q; c% n4 y. f
  3.577958485420786*^9, 3.577959026460929*^9, 3.5779622288195767`*^9,
; H* \( Y/ s" b6 q, R! y$ p  3.57801244275*^9}]
" K, b! E; C4 M9 O- T}, Open  ]],
( z  c! b# c; M/ U; |2 s5 S+ n; E: f6 c: y( e, ]( C
Cell[CellGroupData[{2 V# X7 [" O( R; J3 r3 L
8 z& c" A; A, l- c& ]5 |
Cell[BoxData[
# Y1 ~- I3 O' N/ A5 B8 E RowBox[{"m60n21", "=", + ~, l& f$ ]- M$ G
  RowBox[{"Table", "[",
1 ^$ W$ _$ P! a: A   RowBox[{
: Y) J& j6 z' x; f    RowBox[{"Table", "[",
: ^$ G7 c! F$ E& ?" q     RowBox[{"y", ",",
' s/ s0 @( K! N; e0 O9 W! Y      RowBox[{"{", 9 n% t2 m( ]+ L/ k$ i* {
       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
% r0 F) N1 |/ y7 F  o    RowBox[{"{",
. ^, U. I- ?6 F* t& W) Y     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
( T& X8 ?( W: c! T! V! L4 Q CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {; a2 [, [+ b% |* q. w
  3.577924052828125*^9, 3.577924101671875*^9}, {3.577962237961193*^9, 2 L1 l6 T" I7 F* O) H
  3.577962240082796*^9}}],. j1 U; {5 x& \$ S

0 W4 N6 n1 n/ c; O! JCell[BoxData[: f/ P0 x6 x' {6 @
RowBox[{"{",
: U$ @' |( q  o  A& G+ |* Y  RowBox[{4 p' D, ?5 Y1 P
   RowBox[{"{",
9 |# C) |/ H, n7 U    RowBox[{# m+ }! C# o* p4 B2 c+ [0 a/ Y. X: W
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
8 \- q# A2 d) K) x& I+ B      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% i7 Q  s# O9 i6 I+ ~9 X; P     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 I' }0 Z( ]8 I: _; A/ Q0 F     "}"}], ",", ; H( X  w+ ]+ W0 z) @
   RowBox[{"{",
4 U$ _% ~% P+ |* O    RowBox[{
: e2 h* C2 [$ X    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! T, u  {' y% N# l3 f) r* e4 }, J      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
+ c) S. d& a" R+ n2 Q% \     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. c3 Y7 d. U; C     "}"}], ",", . r( z3 r( Q2 B) m% ]. W
   RowBox[{"{", : o+ |2 M) T/ Z  c7 o
    RowBox[{3 t0 f+ \3 B4 w
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," d) X7 w4 }) M4 u
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 q1 p2 D! O. F* i" R( {: D* _
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# j+ h1 A; l2 r" X4 g7 ?) W
     "}"}], ",",
+ F0 i3 V8 L3 U; m   RowBox[{"{", : r! G5 ^6 p2 B$ R2 Y+ @+ R
    RowBox[{
* S# E# e* y9 J; z2 i9 f6 f    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- b! \" j" T8 r4 O' N
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 V5 c. N- i% p* M( Q
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' k2 _* |  Q5 {- ?1 k
     "}"}], ",",
2 Z. s; p$ `4 x: @2 u   RowBox[{"{",
5 |7 g* M' L2 x- S7 k2 s% T6 u    RowBox[{
% n1 q6 |* o3 X1 G7 Z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( R( I; S9 P, Y: o
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
( ]& O6 H- ]! D     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 h+ I$ X$ T% }( X- \3 j$ h. y8 \: b
     "}"}], ",", " |3 B" S2 {9 f! C  G' {* v
   RowBox[{"{", ( ~2 n9 O+ q* @  A
    RowBox[{9 z" x, c, K- H  N  i: ?
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! Y  P. a! u3 [+ r7 m1 R      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% {" @! l4 r8 S1 R2 [1 c' C2 W     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
! J& R7 A7 Q# C$ m! a2 [     "}"}], ",",
8 o. D6 i( h: q3 R) _; T1 E4 p4 n   RowBox[{"{",
4 _9 ^" l4 s; @    RowBox[{4 Q. Q' Z$ Q2 K
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
0 g6 H7 h& e. A' a      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
# |$ n; h! C+ }     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# G# k( D& s9 j" I$ N, V# M$ U1 L$ q: S
     "}"}], ",",
, a. v. H% U$ A0 ?' U/ c- G9 X) o   RowBox[{"{",
9 K( q/ K# M/ c4 A    RowBox[{
6 _( W( _9 e% j3 _" |    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' ?. R! J& H3 d' Z. k. R. L  o) l7 h  I      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " [7 C" M% o  X- h
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
2 h4 p8 L0 o( n1 m. X+ {" D* a6 w     "}"}], ",", * j- F! N  S- |; Y
   RowBox[{"{",
- {4 j: M+ }/ s+ N$ O" {- T! \" W    RowBox[{( K+ Y$ h/ M8 f* ]2 R
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," I  r& l! m& f! j$ d: ^
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 P' i8 k( Q9 p) J" A# N" Y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
0 B+ h3 d  e+ W# u6 P' z% _4 z, }     "}"}], ",",
0 J# U# i4 u5 [4 _   RowBox[{"{",
2 i9 w/ K/ U8 \$ T" D+ s    RowBox[{6 j! c+ \3 {5 s9 u# b& n. q
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& `$ e9 U$ y( [
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
/ g( |/ H# ~% q  n  ^: H     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; ^; n* |. }* n3 ^
     "}"}], ",",
! [9 O8 o8 S% Q7 V$ X  b6 w5 o   RowBox[{"{", 9 s0 |4 q% ?# x; M1 e4 f- p
    RowBox[{
, s- o, R( n& _  c/ d7 Z' K# V! O    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  j+ u6 F7 d% z# H- x
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 w2 o" S. [. L, E     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 W$ h& n% I( [2 I* o5 V) A9 @
     "}"}], ",",
' c- h7 l" E' K5 c6 [/ J- B   RowBox[{"{", * c! N# K, [4 f" L( v; k% S' N
    RowBox[{5 ?: o" k' ~" M) B
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
  G# D" Q! s2 M  A. }; n      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) V: }9 t- e: B* P# y% E) Z) A
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ A! ~& {, f0 \4 J2 }" s9 f     "}"}], ",",
' @* l; V* F% I   RowBox[{"{", : W& v8 I# e$ Y" j# {! V
    RowBox[{
6 T5 L. L. J5 w$ {    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" A8 Y7 @! W8 u& ?0 u      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 g3 e7 W% c" h% O2 U0 t
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' q$ E# g# d! x& t' W8 U0 h/ \
     "}"}], ",", 5 |; I1 S, |* u
   RowBox[{"{",
% u* t! c3 X' X# S% A    RowBox[{
: B# Z. w; V) B! t! Q; O) ^2 |    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 n' ~* w* y' |% {
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
* L1 `! d1 G0 b1 b8 q' X     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! x$ D' P, h- k: l0 C: g
     "}"}], ",",
3 Y* h5 C: R5 @# w2 I   RowBox[{"{",
2 u$ U+ i% F5 ~) _7 P    RowBox[{0 }. `# O0 i- J! M9 h; q9 i1 J
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 q% P4 T' g6 ]
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
) _' l: |- _7 X     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: H; ]8 c1 h  N# H" ]) Z+ _4 D     "}"}], ",", ; e- n+ L/ _7 F- h# }9 @
   RowBox[{"{", + @- O5 p; u$ W% X; K6 T5 ]
    RowBox[{2 ^* f5 ]$ E- W3 `
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% j* x' o3 J) K! x0 f- F' b      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 a2 C- l6 n  G2 m4 [( W
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# L* ]( ^9 ^7 X
     "}"}], ",",
' C$ Y/ E. N* [) n4 C4 G   RowBox[{"{", 4 Y0 d) f; t3 A( Q0 \
    RowBox[{
7 I5 }5 d  b4 ]9 C$ j) d    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* g- e& h! ^: ^) V" }7 d2 \# s
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
9 J* ]) o# Y$ @1 `7 l! N, x/ A5 j     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
3 H2 l( k( `8 D. O     "}"}], ",", % E' B9 J& N$ n+ z) M
   RowBox[{"{", ; E8 |$ X6 q# \: |, X! H
    RowBox[{
  E; x1 K! k3 f; T2 F: R/ d    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& z% X5 T) L  `* P
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
+ A  {1 G6 V+ Q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ [+ ~8 [( y7 z; C' e8 h% m
     "}"}], ",", ' ~; `; D- n2 `: F4 ]6 |, G/ [* }$ S
   RowBox[{"{",
+ C- s# g6 R- d    RowBox[{
: @8 H& t! T" u% |9 O+ d    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% [' Y( W7 ^7 Q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; s, r5 Y! ^2 V7 Y: A  ^
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
$ A" k7 |; W- V     "}"}], ",",
) }) ]( \+ y/ q; g/ X   RowBox[{"{", ) K; i$ `, R9 F( }. T( h
    RowBox[{3 s5 o. p+ e1 J3 q
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( l0 O/ l9 `- ]1 v' ^$ D7 h( Z" T! h; `
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
( v% f5 h8 z9 F$ \8 k0 [; P$ \     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 I" V8 q3 `; [( o     "}"}], ",",   q) A2 P: _5 r3 x% F
   RowBox[{"{", & T& q/ O+ L) p% x" X' Y& n
    RowBox[{" [; g  J% G: j: c4 A# G; H5 Y
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% x& A* R$ m$ b6 J' L: Q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " Z' R! V* R/ \% T( l4 Q$ s9 [
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 l7 N' ]# c/ T
     "}"}], ",",
2 [& J: M) `7 h& M% Y   RowBox[{"{", / T8 m; r) I3 g( {- f0 ], L  k
    RowBox[{
- Y8 q3 y5 ~. i! e9 M3 d+ C    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ O" a: U& Y8 I" k) A, M4 e; U& `( H+ M
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 s: L: m; t# K     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 I) P& q/ w: s
     "}"}], ",",
7 i$ p* q+ K. b$ A2 R' _4 [   RowBox[{"{",
2 _4 I! }  i, d5 x) m5 ~3 U    RowBox[{
9 Z1 l& U" ?# h- p    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( d1 N9 F) b5 A+ ^5 a8 L
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / X' y/ f- A5 B& y+ w; C
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- n/ ~3 \* V- g3 o     "}"}], ",", + g4 K' h: m$ F5 q0 i4 ]9 X
   RowBox[{"{", # n' q; g9 o1 [
    RowBox[{
% z' {7 f# }* i: m& A    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
  c% d. T: O9 e5 k      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . l1 Z6 N  o: j) i: Y
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 M& ~. y0 H, _- z1 G3 o" }3 n
     "}"}], ",",
6 @6 X" E5 L5 {1 k9 o, ~   RowBox[{"{", . J( E, H" J! }$ F0 r! B/ P+ S9 C, ]
    RowBox[{5 }$ K" k# e3 i; i' B+ k. Z2 w7 J
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& l5 X2 n% Q& A
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 J8 h* J  P6 z( `$ l% e6 ~     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 _% D+ ?7 C( ]
     "}"}], ",", 1 N" h% x5 t9 R) G# F- c  A7 i
   RowBox[{"{",   B9 z. S* f- G; J' u8 j$ F/ f
    RowBox[{# l/ k) z# q. Z: h0 ]8 l
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 n( ^/ E. l1 N) }      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 M5 H6 [' B; Y  y) }8 w
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; L3 }, E" b  k4 d# U     "}"}], ",",
5 v4 s, s& r) t3 U  T2 Z1 R   RowBox[{"{", 5 F1 a+ s4 ]2 \  E* }: L1 F# m
    RowBox[{
# u0 h3 z3 k, f% i  k- g$ P5 l    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
0 R0 i5 B# f, U      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 A; A# G. z' ?( c+ n
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( p' [; X2 M; X$ C
     "}"}], ",", - ^" a  S4 Y' W' t- C
   RowBox[{"{",
% @, i8 u+ s* c3 T    RowBox[{
' z- L$ @% J& g0 \/ r, v4 r    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  v" I4 S4 V' t/ p3 e
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
9 S$ l- _; a7 w# j     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 V% l# q# E; B' g. `
     "}"}], ",",
4 K5 s1 s3 `. e6 F0 ?   RowBox[{"{",
- f- ?# i2 ^# _, r  c7 j5 {9 l    RowBox[{
" R9 n( b6 r& E7 T. e3 V    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! K* P1 }" H, S: h! Y* P      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 H8 R' c5 J4 L$ a: |- c     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* o6 A) G5 ^7 I. r* x. j5 m     "}"}], ",",
- r* C) j' j3 c  L& E4 P3 A; G   RowBox[{"{", 8 h4 ^. e6 k4 M
    RowBox[{7 l; P& ~1 S3 t) J9 m) l
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% H" t9 C, k4 [3 p8 q4 i; b
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ [# g2 p0 _3 s
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; C0 A7 e! s: U- }7 _! _, Z* F! M
     "}"}], ",", 4 t4 R" E( o& ?+ ]. v) Q6 J
   RowBox[{"{",
4 i# W) W$ \4 B2 ~1 A5 ]    RowBox[{
2 {) Y# b: A8 p, n    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
7 ]# p* H9 {" A  {9 U' a/ T3 l      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % W1 x2 a6 m% F% H) f5 ^
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
! j5 f: ~5 X' G, T3 E! o: w     "}"}], ",",
0 D0 n' m: N! T   RowBox[{"{", 1 U" \8 ?: D1 a7 Z, S4 i  ]9 X
    RowBox[{
2 {4 D# O2 X6 P7 e% o) X    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; [. K) [7 F1 G2 `- Q8 M
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 O6 i' o" V1 Z/ t- A) [     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' v8 o: r, B; k- Y& M
     "}"}], ",",
5 E8 X7 |! S- S4 k" w& _- [( k   RowBox[{"{", , }; G/ l# C% R/ ^2 m1 T3 @
    RowBox[{7 c( @0 E2 y' o
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& e3 b0 q7 M/ e7 z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. o+ o4 h3 u8 @* ]     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; K9 I- Y2 C6 u# `6 t
     "}"}], ",", / J6 B' p; T% j1 F9 L+ s" Y( ~
   RowBox[{"{", 9 |+ B, E0 [1 A" _& W
    RowBox[{6 y1 y; K+ V( F/ z& |
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
8 j0 j; q. y+ ^' x      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 @4 o6 M/ \) H; ?     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; G7 V4 h4 }, l5 d7 u8 T% d3 u0 W     "}"}], ",", ) K6 |' X; d9 b: Z% V
   RowBox[{"{", 2 \9 v' K, H  {2 ^: o7 J4 b5 R
    RowBox[{
) q  j6 S6 v5 k, t    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 M7 g0 A6 @  u( r( O      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
" C) a+ B* P+ e* Q# G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
! u9 \/ H9 n4 ]- E9 R$ j0 N; P: Z     "}"}], ",",
2 q: a1 g1 D, b( \  ~: m/ B1 D   RowBox[{"{", 4 _8 }" G9 H- Y3 W( R9 T
    RowBox[{
: q* ~8 {+ k% u    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% b( Q0 z- h  z/ l" H      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 E- _7 x9 s7 }# ^+ h( I. S     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! I5 h: z- K  k4 R
     "}"}], ",", , K* S" |3 I' R6 n# I3 q
   RowBox[{"{", ) L0 n: W0 ^; _. y
    RowBox[{' P* T0 s  U4 F
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 L0 P8 c* H+ X4 R9 I/ N      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' C5 r% `; R1 }
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  H" V( P8 t+ U
     "}"}], ",",
3 u# F$ d* j' g- ]  W  R   RowBox[{"{", : T" ~2 {( P1 B7 T3 Y
    RowBox[{0 a* a" H" X& n( L
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 W8 S0 D, }" |      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 n/ t8 Z6 W( a# k
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 ]) j# ~' e2 k- S4 e0 r1 N
     "}"}], ",", + x& o$ @1 K2 e6 {# E* Z8 f/ ?
   RowBox[{"{", # i. g3 d) X- f6 F0 v( W
    RowBox[{
8 B3 i% e# I6 P- D    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! f( H% f8 d- A& ^: S
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
) L: {) v; t% r     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 c# Q, p/ }3 |9 ], h/ r2 i3 F
     "}"}], ",",
4 r/ @1 U/ K1 t9 Q$ d7 E; r   RowBox[{"{", " J+ ^+ x% M+ R& ^
    RowBox[{6 ^+ z" b3 g5 @5 i3 S3 g
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 k) r5 ^  w2 {. G/ h
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- o0 B% O: S" O9 s, n5 v     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 A* l. G7 _! x' p
     "}"}], ",",
' z. R" Y& P! c7 D8 u   RowBox[{"{", 0 V3 I" w( V/ ^, Z
    RowBox[{. I4 A, S9 u; Y  w4 L& N; c( S
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 {+ t% S( r$ c  P      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
/ a; h8 L* n. h2 R; }' V     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
8 T3 G0 }3 I+ ]6 U$ P: w7 g     "}"}], ",", # A/ _. z" ]6 z( Q
   RowBox[{"{",
& }' h2 ?6 a0 d0 Z% L) S; {    RowBox[{6 A4 ]. d! A1 R! B
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, [+ F3 @5 _7 Y! t      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 |# i1 {" t: d
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: ^, i6 o; ~2 J8 g     "}"}], ",",
9 z- u8 W9 I" f- g$ v7 P   RowBox[{"{",
, q, l0 C2 g" ^9 y    RowBox[{
3 I5 q. s8 s. z& b/ x. q+ [8 K    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 t. x: v$ `' S9 p
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% K8 ~- t, S) @5 P6 u: j- b     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 v; X6 V0 c- c- E8 Z4 H5 I1 u. I, P
     "}"}], ",",
. ~/ O1 O. I! H% }0 t   RowBox[{"{",
& {$ \0 ~9 k. r( K& o9 @3 d6 u    RowBox[{
. e0 ~1 y# c# [3 w4 S    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
* y4 h. k4 b8 y1 L$ w/ Y% h      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
' O. a+ H  w1 s, x2 n# l2 D. |     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- q- y5 {. v& A' ]
     "}"}], ",", " J. C* m& g) q3 ]
   RowBox[{"{", # v  y' h1 M- e) M* p* h
    RowBox[{
( X! i/ h- c: n8 j( t    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 |  J. y/ y$ S+ L8 ^# B      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
" g* @' A" Q2 p; C! J: ^     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, K! H1 s& A* ~* b) f- y# y
     "}"}], ",",
; Q. g- n; o  j6 A$ m   RowBox[{"{", " A2 d: g7 p* N' T7 Q; o4 s
    RowBox[{$ E' F+ X: e2 u! b* }- s
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 S( H+ v2 c% h; W0 u- h( W+ e; |
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
; j$ d, i: [% |* T/ ]     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; |$ V  [1 [: T' w" p     "}"}], ",",
5 F$ _6 J# r- ^$ d6 r+ J  N   RowBox[{"{", ( u) m+ T% F/ A* @
    RowBox[{; D8 d9 c3 x/ F; ?+ V1 T1 @) n
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 l$ ~4 o0 H- L! w5 u" v      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
, W. q$ I$ g6 y1 p0 s     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' p) l% m! y8 }+ ^* _% ]     "}"}], ",", 3 N6 N) V8 q$ Q4 y6 h, ]# W, g# t
   RowBox[{"{",
$ `' m+ A; \  c( w% `    RowBox[{' V$ ]8 i3 ~* G" i! f& A" L' E
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 H$ f: K2 u# O0 v8 D1 v; \& D/ l      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 M! N2 ?9 ~- l. s* e; y$ E2 j1 o     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: }1 b8 ~4 x7 s1 a- I     "}"}], ",",
. G3 I$ n9 v- [" m2 t0 W   RowBox[{"{",
8 F5 E- r% c; X0 x' O    RowBox[{  W/ l; e* g9 j: i$ w7 f
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; {( H" h: q: e( C$ C( M
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 j9 y$ i  d  R  E: Q; Z
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 j# [# z+ e7 h/ W% v2 f     "}"}], ",",
& R+ T# |: O* y* l7 ?7 v6 g   RowBox[{"{",
, l) D! O& P2 n2 _& v( j$ ?    RowBox[{
6 ?  F7 A0 ~8 t- Y- k( H    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, P" z* a8 j' e  ^* {9 [2 z6 v- j2 }
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + y2 j' x+ f" D6 m4 m7 E8 ?
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 N% R7 g( U, U6 w0 N; N" L% C
     "}"}], ",",
* q+ ]$ Z3 L4 ~* j   RowBox[{"{", 8 h: f. s  d0 \! f. j
    RowBox[{& Y/ K" K) o  Q7 a5 H
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 [7 K( h) C5 E9 R
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
( B3 _% M( i& l' A* p) A3 I     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
2 s* h6 V  h4 E+ E0 H: I4 G     "}"}], ",", 4 X7 g) @" x8 j( ?
   RowBox[{"{",
) _3 p: `! Q" E    RowBox[{1 N$ J( _0 l! c( f" @5 h7 t7 S
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 y; M* k, Q3 D2 f0 v( p; l$ f3 Y      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
# A" {* O$ Y" I. l. n     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* A8 f( N+ \1 D     "}"}], ",",
" m1 F7 {1 m$ C  c  _7 A   RowBox[{"{", + L3 F( o4 `" f
    RowBox[{
/ f# o0 ^% A* E    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: Z/ v3 p$ ?7 z. l9 U7 C      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
+ ?8 U- \" _9 A     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* A: P: V! y& D+ y& h     "}"}], ",", / l3 u; W# E/ ?- x, A! V
   RowBox[{"{", $ t2 ]9 A$ R3 C
    RowBox[{% w3 u, |. J; y% ^3 n
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' |$ e, j; M3 g0 Z4 V( t4 r2 L- S
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
; \1 x# |- H9 {, C+ a# V: J     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 s8 E. I  s! A% k+ {. p3 a0 C& V
     "}"}], ",",
8 ?* _# h( v3 K( L   RowBox[{"{",
0 p9 U5 Y# m3 x; ?& h& x2 C    RowBox[{2 @  ~) V- n. E" E
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 j- Q/ f/ ]0 u5 L' i8 W0 c3 B      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
" w( a4 o7 X- m3 [! u     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) {/ [0 \" O9 c$ c
     "}"}], ",",
  X/ N/ j0 g9 T, \  C" `) E   RowBox[{"{",
6 L+ K6 D6 c# V* v8 T8 Q    RowBox[{; P! p( J/ i% ~' o  |1 B
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
+ \4 _9 t. g" U0 \+ k      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 W; {4 O3 T  J7 t: \
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. l9 A2 o% b9 R) M, }5 H+ D     "}"}], ",",
( `8 I+ e6 ~5 A4 c) j6 n4 o   RowBox[{"{", 6 Y, d5 `9 L$ w7 V2 T0 c" _; C! E) e
    RowBox[{
, Y& U1 w8 \3 L- b& G9 P% |    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 _3 p2 h6 K& A/ k  G7 u$ f( B      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
0 {4 H% j1 @( Q0 L# \; [6 g: ~     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
, j5 a3 Y5 I6 U, K, q     "}"}], ",",
9 F/ I! p2 e  }4 K" L. s   RowBox[{"{", * \, q" ]( S9 ?  e% X3 K
    RowBox[{
. m1 T# P1 s5 f1 C    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- r/ R, N# t# Q3 s8 W
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( f7 b& ^3 N5 h, X
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) ]  q4 b& X% W9 E2 R+ G
     "}"}], ",",
5 Q# ]3 ^. m6 M( g6 e7 l  ~   RowBox[{"{",
' u; P, ~8 Q3 D" Y! ]! V    RowBox[{' y$ e, g; l7 V3 M
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  x+ L+ Z- y/ ?# F
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * k- E9 U2 B$ J( v# s2 j+ H# A
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& @. M: K% D' d% c/ ]$ J, X
     "}"}], ",",
! A  s5 q% q; x: r; b/ |9 _# w   RowBox[{"{", $ t) a" e. V' W! ?4 ?
    RowBox[{
) v% V( N4 {; X, ^2 m% ~" I8 {    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
* i! c" B; [+ m" Q& E0 Y      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 j$ u! ~5 D* V- d     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' i. t8 F( }0 Y* l' V3 m     "}"}]}], "}"}]], "Output",% A3 \0 h7 k3 {7 ?+ \
CellChangeTimes->{
! H" ^- X( F: o  D: n  3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
1 ^: i* G, O4 d0 n   3.5779582609987946`*^9, 3.577958492393998*^9, 3.5779590297369347`*^9,
/ }3 X( l$ s/ R4 ]" J( d   3.5779622422980003`*^9, 3.578012443890625*^9}]! H9 X1 [" o% P$ m0 n6 o/ o( K
}, Open  ]],4 ~$ L) B" B' c2 D5 o5 `) f5 R

& Q4 v2 W7 e. }1 QCell[BoxData[
! ?! f: J3 a6 l+ ^ RowBox[{"For", "[",
# U" h4 T; ?5 f" E  RowBox[{
5 H2 G1 C6 P* r" u$ d   RowBox[{"i", "=", "1"}], ",", 5 \; \! j$ ?6 `3 M6 m* G  N1 a- w
   RowBox[{"i", "\[LessEqual]", "60"}], ",", 5 S, o1 Z) E7 U/ `
   RowBox[{"i", "++"}], ",", 4 B7 ^' C- d3 z& ?) @' [$ V" ]' C
   RowBox[{"{", "\[IndentingNewLine]", 0 T  n- J0 o0 K
    RowBox[{/ O( t3 e& h4 S# r0 N0 J( ~6 \
     RowBox[{% r4 o/ ^6 {" Z  P, q
      RowBox[{"m60n21", "[",
; h/ Y- @. X) D3 }8 C. n' o       RowBox[{"[", 4 u9 k: x! ^# _2 v* ^
        RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", 8 V. v5 v$ D: \& C' K* N
      RowBox[{"u1", "/.",
, f( k) o7 ]' H) z! A$ l       RowBox[{"{",
1 M0 V6 j# M) J7 h        RowBox[{2 e( U8 b# k/ l: F3 [6 B1 @
         RowBox[{"x1", "->",
0 W* p7 _7 x% E9 |2 j          RowBox[{"Data", "[",   v- P: t, ^( Y. Q; ~' u3 p
           RowBox[{"[",
; ^' |0 P% Y# h  K# Q            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", . Q2 T% g+ G5 V" ?/ A# S
         RowBox[{"x2", "->",
4 J$ K/ O9 L. Y- H+ P          RowBox[{"Data", "[",
! n1 v4 V" a2 O! P           RowBox[{"[",   O2 _$ j  m- `# {3 s
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
: q& e1 M( k0 S$ i1 w) C4 d' f         RowBox[{"x3", "->",
( e. a- {/ k  n          RowBox[{"Data", "[", 7 p/ X2 H/ D  x2 e2 T
           RowBox[{"[", * Y, h$ t6 f" |/ O9 X4 A$ T% k# Q; r
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 7 e; {: N3 J1 ?* p) X, B2 t0 T/ k9 Y
         RowBox[{"x4", "->",
7 k8 r: \; r9 @% W4 t# E" Z          RowBox[{"Data", "[",
8 `' C. \2 [* r# \           RowBox[{"[",
2 g" p" V# z2 C6 T2 z6 J+ y9 z) Y            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", , `5 ]* S1 H& y8 _1 s; F) B
         RowBox[{"x5", "->", $ _4 k# C- B  I8 z. K# Y
          RowBox[{"Data", "[", . t% l  t  |' L6 t' p
           RowBox[{"[", " D; V9 S% R" ]6 e& X
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",   M7 F5 x( R- a5 b
         RowBox[{"x6", "->", : E7 A- \" [3 i
          RowBox[{"Data", "[", ) o2 \/ v: |  t% V7 o! Q' X$ j
           RowBox[{"[", 1 P/ I9 Y$ y& v$ F
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
5 X/ ?- b+ G& R. P# M         RowBox[{"x7", "->",
) R+ Z8 I1 u0 b7 W7 Q          RowBox[{"Data", "[",
1 g; ]% X- G) |: h  W5 b. D/ k           RowBox[{"[",
/ U% I; e' g4 C$ Z* O            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
! B# Q( E9 m3 ~6 N% ?         RowBox[{"x8", "->", " i) m! M3 I6 ]) T+ ~9 l
          RowBox[{"Data", "[",
* j  u6 R- U3 Q* q# A           RowBox[{"[", ! A: y, Z% |1 u. R
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ' n  ]" G- E% v8 |0 N  E2 P6 {) N
         RowBox[{"x9", "->", 3 E* j" b$ H" }# }* t
          RowBox[{"Data", "[", : m  S/ t& c, B7 i
           RowBox[{"[", ) @% Z$ b' j  l8 U+ L1 F
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 4 e. d* P) ~9 C( |( Z( c& m
     "\[IndentingNewLine]", 4 W! ?9 G& t2 H4 b5 E5 B* \
     RowBox[{
4 x  K) q8 E2 ], e  `      RowBox[{"m60n21", "[", 5 {: \+ A. U- s3 p
       RowBox[{"[", ( c* a  T' y2 {% P
        RowBox[{"i", ",", "2"}], "]"}], "]"}], "=",   z% w$ g9 _! U6 [
      RowBox[{"u2", "/.",
/ j3 o/ A% f- H/ C& U1 G, {       RowBox[{"{", 8 T1 B( g7 d* [5 |
        RowBox[{
5 L; C' \5 L' [5 j         RowBox[{"x1", "->", . y3 d0 g; F& |
          RowBox[{"Data", "[", ) [; K0 n9 z0 I3 b- }
           RowBox[{"[", # f$ U( l( m( K! ^. X
            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 6 M6 g* c6 ]/ ?
         RowBox[{"x2", "->", ' `# A& h) ~3 v( `
          RowBox[{"Data", "[",
5 U- i- s& y3 a0 v4 @0 l1 H           RowBox[{"[",
' l: _( ]1 A$ ?) U( i( h& A            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
8 c; A% e! C. g& S5 F2 o) ^         RowBox[{"x3", "->", ' }& j! o* `4 R# Z: }8 |. I
          RowBox[{"Data", "[", ' F. q5 `9 `+ l
           RowBox[{"[",
' ?2 k7 b# Y5 Y            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", # H% M* T8 Z5 a2 C. z6 ^/ P% e! R
         RowBox[{"x4", "->",
' h5 s3 K5 _- L5 c          RowBox[{"Data", "[",
+ J- |! f$ u9 e* Y           RowBox[{"[", 4 B+ x: X! b! Q4 n2 \* y* |9 `' S
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
* E) H9 B/ x/ Q- G& J* M. d5 x         RowBox[{"x5", "->", 6 J% F0 ?4 o# R! r( }4 O4 L$ h
          RowBox[{"Data", "[", : s) Z) B* b! w/ w  h5 }, Y
           RowBox[{"[", 5 u+ \; C1 v$ Q7 V/ y2 @
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
1 O8 F6 e, t: h+ V$ p, N, [         RowBox[{"x6", "->", , l/ [2 c  ?* }( T3 i) a+ C5 N
          RowBox[{"Data", "[", " \; }9 V' G: c8 C, Z: y
           RowBox[{"[",
! r( h  q& a" Q, K. p! x            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
  E" H+ z5 Y1 V4 n( [. |$ \         RowBox[{"x7", "->",
! e* y1 w, M  A3 D$ y# A          RowBox[{"Data", "[",
3 F$ |; o: U) X2 V* N5 x* x           RowBox[{"[", % k! e1 y$ a4 r6 D5 t3 x/ E2 z
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
& S% @; {: F5 R5 f         RowBox[{"x8", "->",
. t! X2 h3 I: ^( r/ T: c! M          RowBox[{"Data", "[", 5 O( U: q; N5 P
           RowBox[{"[",
4 ]3 b4 O. p9 L8 U2 _8 e            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ; P$ ~2 ^0 K; ^! H9 u
         RowBox[{"x9", "->",
% g( U: l9 W4 @4 M% m# N          RowBox[{"Data", "[",
, ~5 u' b& Z% I$ B9 y/ c           RowBox[{"[",
* l, {+ y6 H8 x            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", " t" S. E, O( s, e+ j
     "\[IndentingNewLine]",
! T; y1 x0 L: c& ]6 o     RowBox[{
1 h+ r! q0 [4 o, [; {      RowBox[{"m60n21", "[", ) r% E  b3 E. T" ?. V
       RowBox[{"[", ! U' N- z) c+ o: X$ M  R$ \
        RowBox[{"i", ",", "3"}], "]"}], "]"}], "=", * @& {% r' i( ?
      RowBox[{"u3", "/.",
( u+ w0 G! a" o. z       RowBox[{"{", ( T, V9 E8 \* t6 w
        RowBox[{( p8 Z1 K- t1 j. Y; l7 {8 N5 c1 z
         RowBox[{"x1", "->",
6 ^" `! c6 P& `0 J% n          RowBox[{"Data", "[", , m: o$ F9 \  T5 p
           RowBox[{"[",
5 v+ D4 N' x; \* t2 x            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
: F+ z& ^# f' S" @6 a: O9 d% v         RowBox[{"x2", "->",
( t( u- {! v1 f' o' j          RowBox[{"Data", "[",
- z" l& ?$ e! v' W           RowBox[{"[", + G  G5 E/ y4 d  U: n0 J
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", * x0 n  \% s) }$ H# _; j$ v
         RowBox[{"x3", "->",   c3 P& q7 {+ S4 M. k
          RowBox[{"Data", "[", 6 I" l% h( n4 F( _3 W  w0 d
           RowBox[{"[",
7 K# E+ S; M1 Q" M" m  P3 Q7 u) ^            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 4 s* z2 l$ [3 a! z( F1 X2 s: ]/ L$ F
         RowBox[{"x4", "->", 2 v& I8 h" L/ U0 C
          RowBox[{"Data", "[", ; O+ N, X$ F: v7 P* ^6 ]! i8 }
           RowBox[{"[",
2 J' N8 y8 d- o  e4 d, W            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
) h- D# e2 Y+ s/ |8 K9 X  G8 H& ~) b         RowBox[{"x5", "->", 0 _7 `0 D' @. K2 K' Y0 |
          RowBox[{"Data", "[",
% i5 R6 H  T/ @           RowBox[{"[", / J  g3 Z0 x/ q! N. g+ X
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", + |( @. @* ]& c
         RowBox[{"x6", "->", 5 m- l) h. i" Y7 _7 Z) v1 l8 A
          RowBox[{"Data", "[",
* J4 F( U# T7 o, r+ C4 }- r           RowBox[{"[", & w' {* ?1 f6 b) E5 s5 N
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 2 T1 Q, |( ]6 }* `5 e* S
         RowBox[{"x7", "->",
( ^5 T0 o! O3 R$ W% }2 y, _: D          RowBox[{"Data", "[", ; {" r% \  D, W  p+ ?! w0 [
           RowBox[{"[", $ A) A0 \: b7 b
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 4 }( U# f# _( F& R" ], w
         RowBox[{"x8", "->",
6 ]3 j5 `1 q* b  ]+ N! t9 d$ [          RowBox[{"Data", "[",
3 O  l/ U* Q/ n7 R+ t           RowBox[{"[", % y4 j5 W7 F4 K; @4 h
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", + ~* C' O9 |) N4 c$ D1 F
         RowBox[{"x9", "->",
1 J4 f. P( z: V          RowBox[{"Data", "[",
. D9 o/ c" |$ H0 b* N           RowBox[{"[",
) x% I7 d/ N+ z5 p7 {, l9 g$ ]            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
& p" o8 g, {" T     "\[IndentingNewLine]",
3 a$ m+ b6 t6 [8 |$ v     RowBox[{( B- ~% t: m: N$ U8 [& {' {
      RowBox[{"m60n21", "[", 7 Q0 o- Q: u5 W+ q4 y3 U  ]* N3 _+ ^
       RowBox[{"[",
, J/ z, ^- t7 G  Q$ v        RowBox[{"i", ",", "4"}], "]"}], "]"}], "=",
- @9 m/ C5 O6 d) r- V      RowBox[{"u4", "/.", $ j6 I# ]0 G5 x, @$ Q
       RowBox[{"{", - q/ E1 U1 L) d
        RowBox[{1 n$ |! [% A2 B" a0 |3 @+ b8 B# x
         RowBox[{"x1", "->", - D& ^8 m- f5 ]
          RowBox[{"Data", "[",
9 v8 X& l( A4 N$ v5 s) {! |" N           RowBox[{"[", 4 y! y; k4 _; }) w+ |
            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
3 p. |, ]5 k" O; B3 }' }/ m         RowBox[{"x2", "->",
% p' E" l9 H0 h6 P3 V          RowBox[{"Data", "[", # S1 Y1 Z8 o/ u7 ~. y. G
           RowBox[{"[", ; n( e8 j: {% J2 u: [" ]$ a" N
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", , h7 x6 q& U. V2 }) w! z
         RowBox[{"x3", "->", 3 [$ Q5 A; z2 E; `
          RowBox[{"Data", "[",
5 Z. S1 @/ C5 k5 o7 X           RowBox[{"[",
3 F7 d5 i* J2 U) L            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
  H7 {3 g6 t7 `1 R' t6 T         RowBox[{"x4", "->", ) E3 k% F- o. P6 ?( s1 M. N
          RowBox[{"Data", "[",
6 F/ a; J8 K2 P$ \+ _5 @6 m& C           RowBox[{"[",
: l- G: t2 Q1 h# m- U  H            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
" y2 {+ d0 d5 e         RowBox[{"x5", "->", ) O2 C. F$ R& A: n0 p
          RowBox[{"Data", "[", , l% \% B1 }6 U
           RowBox[{"[", / ^' A- n! n; z) k) A
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
. p# e5 L5 X7 |         RowBox[{"x6", "->",
. l; \6 h3 F( ?1 A9 G7 o( j          RowBox[{"Data", "[", ( i" B( T; j7 e4 L0 e* q
           RowBox[{"[", , o( n/ H( Z5 a1 C
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
8 ?0 T) u" {! M! |  T) W  g         RowBox[{"x7", "->", 2 [) u; M5 q6 c: B! d
          RowBox[{"Data", "[", 9 y. ]% L; o' c6 O# l8 R3 M
           RowBox[{"[", / C) B% V: u' ~, j
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
  a' Y0 o+ z" I# o' @         RowBox[{"x8", "->",
% o$ i" L& o' t          RowBox[{"Data", "[",
- o- D: H, p3 A2 c$ c" @- K" n           RowBox[{"[",
3 a7 e6 P5 \4 O8 c( J7 q; W, Y            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
1 |3 q2 x- Y0 B- g: R8 G, ]         RowBox[{"x9", "->",
; V; \& p+ }, Z* _9 F4 Z          RowBox[{"Data", "[",
' o- |8 J2 E( H# G1 o3 }( b( ]           RowBox[{"[", & U* I6 r2 E2 g- F8 G
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
4 S% D7 |7 Y: D& a+ h" y     "\[IndentingNewLine]", / ~: Y/ X5 k, \0 q" `
     RowBox[{
/ d/ }( w1 v  j* t# w  ^# b      RowBox[{"m60n21", "[", 1 P/ r8 B" p, g, ^. @# W* ?0 N: a
       RowBox[{"[", , k3 V2 U9 Y* k& O4 M
        RowBox[{"i", ",", "5"}], "]"}], "]"}], "=", 3 M7 Y  ^0 y0 a$ f5 g4 [! G
      RowBox[{"u5", "/.",
( W: D7 z1 R$ D0 d; n       RowBox[{"{",
( B: b4 C# X# o1 u5 S4 I. d6 S        RowBox[{
) b' N: [. ?8 e* {0 w/ I         RowBox[{"x1", "->",
- T* p! s/ \2 X/ j: \          RowBox[{"Data", "[", * ^  ]( q* m+ T0 P
           RowBox[{"[",
' Q3 R& _6 R+ i            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 3 c. c( b  H! T6 [. {: O
         RowBox[{"x2", "->", 7 L, n7 E  C' |1 p2 s& @
          RowBox[{"Data", "[", ( F0 E- D, E$ z
           RowBox[{"[",
$ W. q+ K) L$ f& x/ E- Y8 R, H7 E            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
5 L. E" b- Y9 H4 G) f         RowBox[{"x3", "->", 2 o) @+ B8 B* X8 O! m) X
          RowBox[{"Data", "[", ' p7 P( Q4 j1 n) `9 L: [6 a" k
           RowBox[{"[", 7 X% z" i! O/ B% l. e( h' |. b( m' }
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
1 Y8 f' q+ Z' H, @1 l$ ~$ y         RowBox[{"x4", "->",
+ I  J# b! Y' h          RowBox[{"Data", "[", * o- d" P1 @' s" b
           RowBox[{"[", 5 q6 Y( K0 `$ \, `1 L
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
1 l0 |3 O; _! K; X6 [# m3 I         RowBox[{"x5", "->",
' p/ Y% j) J; H* p: M- Q          RowBox[{"Data", "[",
; s, D' q$ U7 z           RowBox[{"[", 7 B% p$ l8 b. z, a, E
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ; E3 T3 ^4 w7 f$ s
         RowBox[{"x6", "->",   D* k6 m7 t* ~' R) q, G
          RowBox[{"Data", "[",
: g- T( `! V9 v           RowBox[{"[",
% n- e/ Y+ y3 M7 L            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
- O1 l8 g# E7 x) h. p         RowBox[{"x7", "->",
+ O9 m; s/ J0 @5 E( m          RowBox[{"Data", "[", & T6 k9 i5 L) }) i) {: z: r+ D/ Z
           RowBox[{"[", 2 g- n+ Q* O* y8 }. p( y2 M
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
& Y( r5 m3 `$ y1 ?         RowBox[{"x8", "->", & _, T9 d7 k( N$ X* b' F
          RowBox[{"Data", "[", ) R0 j# S* H4 v
           RowBox[{"[", ( h) V  l& A3 T" Q% p+ e; @4 b  y
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", / T& Z) _: y9 ]. F1 _
         RowBox[{"x9", "->", ( s# U/ Q4 n' D' X
          RowBox[{"Data", "[",
* M8 U) {4 i# s' K           RowBox[{"[", , A3 Z3 X& Q% o  K, P  l$ ?
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
" U$ Z# k, \, P9 }1 @( Q     "\[IndentingNewLine]", 8 h: A$ @1 e, a" y
     RowBox[{
/ I3 A9 T! V3 M      RowBox[{"m60n21", "[", ' m4 S: ~1 ]1 I0 a9 D  ]
       RowBox[{"[",
( J: |' e6 ^: @8 }3 |/ P        RowBox[{"i", ",", "6"}], "]"}], "]"}], "=",
3 h. r8 R  B6 J* S4 D3 g1 o      RowBox[{"u6", "/.", " Q$ ]- B0 F6 c* a$ R
       RowBox[{"{",
% @# \( P  Y4 Z! @; _$ _( a/ |        RowBox[{
. f" \6 r' Z+ H8 R! b. K3 z         RowBox[{"x1", "->", . x6 @) u& B9 k9 z" j
          RowBox[{"Data", "[", ; [3 g5 M; I& Y0 L
           RowBox[{"[", % @$ Y. s* d' p9 d; c& T
            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", # G+ A* }6 d3 Q* [$ S
         RowBox[{"x2", "->", ! N* R1 n- {& c$ F; b. H
          RowBox[{"Data", "[",
- n) y7 u5 _, I3 F& u; v, y           RowBox[{"[", % r# U0 q6 h/ c- W
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", $ _6 w# Z- a6 \/ u1 U7 @/ M; e
         RowBox[{"x3", "->", ( A9 h: Z- P- g8 o% l! f
          RowBox[{"Data", "[", " ~6 f3 w! n' C: M' ^+ x1 U7 y
           RowBox[{"[",
) w3 B# B* O& O' D9 ]            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
+ x- v" o4 f  t         RowBox[{"x4", "->",
& V- S' U* W0 Y" a          RowBox[{"Data", "[", ; I/ Q; j& F9 v9 _; P* }
           RowBox[{"[", / q: K* Y4 [5 w" _- p, ]
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
& n8 N9 q6 U$ j! ~' p8 R         RowBox[{"x5", "->",
4 m1 C% t  k! u" K: y          RowBox[{"Data", "[",
2 e: Z' C( y! \4 Q           RowBox[{"[",
$ f' h! ^8 h! f# _  [* c            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", / C$ o& d+ m: M8 p
         RowBox[{"x6", "->",
( N+ E8 k2 u& Z; x% Z" J' i          RowBox[{"Data", "[", $ [( p/ ~+ l/ x/ {% G5 g0 c
           RowBox[{"[",
  B. r  _1 J$ Y2 S; E7 C3 X# _0 o            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
1 N9 C- ?8 {$ ?! X/ r         RowBox[{"x7", "->", - j' g7 j" E5 `6 g- [
          RowBox[{"Data", "[", + O7 t8 v& z0 n1 Z
           RowBox[{"[", * q# o' W* G2 Z0 m
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
& `% D4 Z. [5 l3 {         RowBox[{"x8", "->", ! P1 E: G( M9 m
          RowBox[{"Data", "[",
0 v- Y/ |: z2 T8 H" w! R' J/ z           RowBox[{"[",
& F7 {$ [+ e  t) V            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ! ~/ S4 Q* |+ y) p
         RowBox[{"x9", "->", , A' n! X3 J" A& L; q0 c
          RowBox[{"Data", "[",
+ L2 q' ?/ C- v2 @# G0 }7 G, Z           RowBox[{"[", ; D9 U  J3 X9 Y- d7 o' L5 Z" ~  l
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 0 C9 j# Y, E: x( K! Z. S: L
     "\[IndentingNewLine]", # k* i' ~7 A: }$ g  j9 l4 h
     RowBox[{
6 A$ Y6 l. z: c; U# P      RowBox[{"m60n21", "[", , m) J2 ^! L" n, r
       RowBox[{"[",
6 Z4 i3 ]' a1 P        RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", 0 D! G* \4 ]9 y4 ]
      RowBox[{"u7", "/.",
$ P6 o& W1 P" V" W. k$ ]( Z       RowBox[{"{", + |& x! G9 Z6 M" ^7 f
        RowBox[{/ B4 B) Q$ q! B5 q  p
         RowBox[{"x1", "->",
2 z& \% ?5 h, E1 `          RowBox[{"Data", "[",
0 t$ e: u( s/ A  B1 B           RowBox[{"[",
% z) |" j, q6 P4 y# _1 @( Y$ \            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ) k0 \& J2 j6 x( Z9 q0 W  U
         RowBox[{"x2", "->",
: ?# A; t  a+ U! Y' a" H: c          RowBox[{"Data", "[", 9 @3 G2 X) n, p/ G/ M3 q  W# l& D" g
           RowBox[{"[",
) x. B+ ~8 e, k, z3 m+ U; f            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
1 G( [6 x! d; l- \         RowBox[{"x3", "->",
' r+ z3 _1 H! Y, Q8 Q          RowBox[{"Data", "[", - q; N: g6 a% H0 r3 I3 a6 K
           RowBox[{"[", 8 a3 g: H' _, X
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
% O6 I- S0 @* f+ ~         RowBox[{"x4", "->", 9 g$ p$ T7 ]3 c5 o5 ^
          RowBox[{"Data", "[", 9 I  Z. {7 S1 T5 y$ |5 ]( t: `
           RowBox[{"[",
* d4 Y* u% |& p; j) r' I7 r            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 0 q. q3 D. r0 E: {
         RowBox[{"x5", "->",
, U# Y% z% [' V$ b! t          RowBox[{"Data", "[", - Y; d" J! x9 z
           RowBox[{"[",
1 ~2 f0 {% X$ M) ^* [. v3 x* F1 V            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", * }: u! s! |- a# k% @0 E
         RowBox[{"x6", "->", & v2 c1 S3 V: X7 N
          RowBox[{"Data", "[", 1 o" F- d4 x2 j( w$ _
           RowBox[{"[", 9 D( `+ {1 g1 L* M4 l5 C
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
( X, q  b3 N; w9 }1 S$ y0 f; H4 V7 E         RowBox[{"x7", "->", ! y, [$ G2 {* @" M& x/ A
          RowBox[{"Data", "[", 1 g+ a0 }( }' q  X6 h: K3 |% C
           RowBox[{"[",
% u. L0 ^5 r1 m6 N! _% u& y            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
( Q. Y' F$ ~. X4 B3 g         RowBox[{"x8", "->",
5 k: [1 E" U1 H. _1 P          RowBox[{"Data", "[", ; A8 h9 ?( {/ Z
           RowBox[{"[", ; I+ U3 u8 G0 p8 j$ H) Y& }& O
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
0 G) o- s; i% u) h+ b' k) G  w2 j         RowBox[{"x9", "->", 9 b: Q% v4 ?0 g% ]
          RowBox[{"Data", "[", * T. S; i: p& b4 M
           RowBox[{"[", + ?$ e8 F# N& s7 n, t2 I
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
' X+ ]* e/ i2 u, `/ P- `. i     "\[IndentingNewLine]",
$ T  w3 n+ ~5 C0 g0 Z5 A     RowBox[{8 S" k& S% Y/ y& j1 |7 L' k2 k
      RowBox[{"m60n21", "[",
; L, `9 u! w0 K, x' K1 w/ w7 p       RowBox[{"[", + f% u/ t% I5 ^6 W1 S' y
        RowBox[{"i", ",", "8"}], "]"}], "]"}], "=",
) P* l  z3 l* g: K0 G+ t) }      RowBox[{"u8", "/.",
( q: A$ x5 B$ r. ?5 c! e       RowBox[{"{",
7 `: E' p4 m% X6 ^4 |# g        RowBox[{
6 s- b  b0 z. v$ {8 j3 w3 @" m         RowBox[{"x1", "->", 8 C% k5 h, M1 |( X: x! m
          RowBox[{"Data", "[", 7 O3 f0 L4 ^6 i( C( e' j
           RowBox[{"[", ( n$ u1 I9 R5 I, b# ^
            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
0 w. ]5 x* P. e) u% M& ?  J$ y         RowBox[{"x2", "->", 0 i" }8 B% e  @
          RowBox[{"Data", "[", 9 Q8 y% q! r; F1 Q0 K
           RowBox[{"[", - h9 n: |0 R0 u  s) K
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
( R* `, Z& H! ?* O3 Z' r* ^2 @- y9 a         RowBox[{"x3", "->",
) `% J% @7 i9 r% v# S! a1 f6 E          RowBox[{"Data", "[", 5 U$ w/ D7 ~$ \5 }3 _+ o* q
           RowBox[{"[", * z/ o' o9 o4 b7 p% T
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", & W9 C/ k. n  N! ]( d
         RowBox[{"x4", "->",
: K/ v+ n& e+ w! U          RowBox[{"Data", "[",
. R0 W2 ]  G+ v# Y( d2 n8 e; j           RowBox[{"[",
; j  [$ w2 r: c+ z( L            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
/ c, A3 P7 ?6 G$ Y3 A7 g+ [         RowBox[{"x5", "->",
3 C# }& Z6 k" p0 n( [          RowBox[{"Data", "[", . |- J# w. M' K. s- ^% r; i
           RowBox[{"[",
  O3 {7 x$ B; Q. y+ T3 l& Q            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
% O. F9 G5 G: D+ c% ~& F         RowBox[{"x6", "->",
) L/ o# y0 P* B  k7 F0 g  B" J* P" E          RowBox[{"Data", "[",   d6 v! H# p4 m9 X* U& z
           RowBox[{"[", ' t2 g1 x. u  K' a6 q
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 1 I: a. d2 |- t5 ]0 X
         RowBox[{"x7", "->",
2 a) Z- b- k+ ]  w8 Q/ G          RowBox[{"Data", "[", - h* T0 I0 R( ]  p  T1 k% D
           RowBox[{"[",   F5 I' [; b1 X( y; _
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", % t1 i# u2 {6 ?
         RowBox[{"x8", "->",
; Y. {+ x0 }) b          RowBox[{"Data", "[", ( U- e/ {: L2 A& B' D
           RowBox[{"[", 5 B. s2 Z+ W2 @
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 4 H# Q$ ?0 ]  f" B4 I5 l9 p9 x$ p0 m: l
         RowBox[{"x9", "->",   `3 l: N+ c4 \) }" U5 Z
          RowBox[{"Data", "[",
! @. _8 A& L) \- ]4 k+ c. W           RowBox[{"[",
: s$ Z2 q9 u- c( n            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 2 K7 d: Z- t7 u( j7 z- F& q8 R
     "\[IndentingNewLine]",
' Q/ |7 s& c' X7 |5 n$ l! |     RowBox[{5 ~! k* r; `8 @) }/ ~
      RowBox[{"m60n21", "[",
" q/ p' s7 u) n. `8 q       RowBox[{"[", # j) ]- _. x( q! }: \' E
        RowBox[{"i", ",", "9"}], "]"}], "]"}], "=",
3 n# ^9 A$ M. [7 P4 h2 U7 B5 C      RowBox[{"u9", "/.",
/ t! c, q) s2 x* @* `0 b       RowBox[{"{", 6 j# l+ r6 c* d" e
        RowBox[{
8 D- S  M! B( {+ G0 Q% \% A         RowBox[{"x1", "->", * t' h' i+ R% g9 E
          RowBox[{"Data", "[",
3 W; {) I  e9 a5 B           RowBox[{"[", - j9 e1 ~+ ]2 t' b8 i1 u
            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 1 b$ e' F& z7 P
         RowBox[{"x2", "->",
+ \$ M0 A8 a4 _# I1 m( b          RowBox[{"Data", "[",
  E, U2 A- J3 Y2 o6 m' C           RowBox[{"[", 7 L9 `1 R  k8 x. \
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 0 x6 Y3 j7 l  ?7 `
         RowBox[{"x3", "->", + v  N) i/ j0 K2 z
          RowBox[{"Data", "[",
9 e! |" p8 w. ?) J: C0 e           RowBox[{"[", 7 Z& d- V+ K+ }* B  y3 Y; J
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", % [) Y; D9 K; I6 i7 `- g8 O5 H0 d
         RowBox[{"x4", "->", . G( K7 |1 T  {0 ^2 [
          RowBox[{"Data", "[",
* z% K, h6 @! ^, E9 P6 L           RowBox[{"[", ; x, N- J  R& j
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
5 K3 I# W6 [  p4 N% I: ]' Z1 ^7 Q+ a         RowBox[{"x5", "->",
9 e" @, S" G$ c# `. F' Z4 M          RowBox[{"Data", "[",
) O- N/ S" f% `           RowBox[{"[", " s, c" ?5 q2 \6 ^
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
" g9 B" h0 X$ G" k4 Q2 W         RowBox[{"x6", "->", ! C, z) O' P9 t1 q) F
          RowBox[{"Data", "[", : x* A! K5 _9 D- @+ y* q* r
           RowBox[{"[", ! H: `& @6 F8 _* n# f
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", * T2 x1 o* E- c7 e' O
         RowBox[{"x7", "->", / F- [5 T# g  I) z; p2 x" F
          RowBox[{"Data", "[", * `, W, p" m, z% O. c
           RowBox[{"[", 4 m  B0 @3 D* g1 u
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
+ Q0 ?' h$ c# ^: v         RowBox[{"x8", "->",
$ U) O6 c- O$ ~          RowBox[{"Data", "[",
5 x* |, u; c! X           RowBox[{"[", 4 J6 P- _3 _8 P$ T  D; i: L
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
: D5 @$ M" r% d, o+ y         RowBox[{"x9", "->",
- |1 P' L4 J) G8 Q* t1 K          RowBox[{"Data", "[",
# b! i% f$ f: A0 k/ E           RowBox[{"[",
9 H+ ?/ K. Z/ S* G, F4 \' ]6 Y            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", - P% O5 t) X: b  A: v' i( e4 q
     "\[IndentingNewLine]",
: z, G' t( Z. k; V* }     RowBox[{+ l: s" c4 J2 D  ], h8 p. q
      RowBox[{"m60n21", "[",
9 f9 H) `! \( B/ o) t7 |       RowBox[{"[", 6 ~' p' r9 m+ X0 l" D$ r# L4 Q. i
        RowBox[{"i", ",", "10"}], "]"}], "]"}], "=",
" _) r% F- X: E" D      RowBox[{"u10", "/.", - n1 Q! N& w8 \
       RowBox[{"{", : r6 a! y6 Q, E0 ~; b: x1 p: r  d8 O
        RowBox[{
: W' C& T7 U& i         RowBox[{"x1", "->",
2 q1 }) B. {* o          RowBox[{"Data", "[",
6 h. |: w: ]6 f2 e) x7 c           RowBox[{"[",
) }) S+ _7 p- y! R6 X7 F9 Y1 r4 T            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
1 h) A/ e) @& F+ M! Q# Y         RowBox[{"x2", "->",
8 _3 X: g6 F4 Q# T" R          RowBox[{"Data", "[", $ M8 }5 A8 v9 z. x; G
           RowBox[{"[", 9 A8 Q5 a2 T3 d9 K% V
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
+ @: u! L8 k3 B8 ?) E         RowBox[{"x3", "->",
8 D* v* ?2 D" h; A1 a4 h: d          RowBox[{"Data", "[",
, @5 i3 n8 a# B/ p9 `7 U9 ]. A. ~           RowBox[{"[",
" }( J& _9 B5 t8 W9 t; C2 P            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 1 `+ ]+ a: x+ n: A
         RowBox[{"x4", "->", * j6 R! }+ d1 U: N
          RowBox[{"Data", "[",
/ z* D9 j- U, D6 c           RowBox[{"[",
) `+ }2 ^( m4 i- @            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",   b- \/ a$ d( s- p( Q0 L, v; ]
         RowBox[{"x5", "->", % C  k# B2 N* S* e9 M
          RowBox[{"Data", "[",
- r) T4 @% T. p3 O           RowBox[{"[",
3 h+ G' W; _$ C, P( U, H            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
9 `9 M+ _6 z% F, [2 Q& ~         RowBox[{"x6", "->", 2 l/ h7 j' N: [+ X# j# G
          RowBox[{"Data", "[", 0 `8 J1 b4 e) ^0 J  x; D* V
           RowBox[{"[",
% T( A. X9 ~% O/ f+ N2 x* d! s            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 8 D; M2 X8 K1 |
         RowBox[{"x7", "->",
+ Z0 y4 G! e( [' V          RowBox[{"Data", "[",   }: H1 S8 v% D0 p0 t1 P4 i7 y( v
           RowBox[{"[",
2 U! O( q4 K& h; m% s: B0 J            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
" N  U8 p- F' F  h         RowBox[{"x8", "->", 3 S) h  E& N7 F/ j+ ]# M4 U5 C5 @2 q
          RowBox[{"Data", "[",
2 a0 R5 @! h( h/ c0 u+ g# C           RowBox[{"[",
5 D& N7 d( t( ~            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
7 W, Q, g/ ^4 r: d. b) a         RowBox[{"x9", "->", : Q" b) l  \! G9 y
          RowBox[{"Data", "[",
; g0 A& v/ U, i! t; p4 `! S- p; S% J: E           RowBox[{"[", 4 r5 ]+ V% F- H1 q, Z! |
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
5 F8 n$ Z7 G% y, B9 k     "\[IndentingNewLine]", , b) u3 D# @3 t  k6 g- l' m# U
     RowBox[{* `* S- e( x3 S9 H* w. S
      RowBox[{"m60n21", "[",
9 h8 ?& A$ p% r* F1 t6 \% n       RowBox[{"[", 6 l/ P3 U5 b+ v$ U8 ~# x
        RowBox[{"i", ",", "11"}], "]"}], "]"}], "=",
& p% O3 e$ q6 q  N: d      RowBox[{"u11", "/.", 1 z" x+ b: Y" d% p) g
       RowBox[{"{",
8 N2 @/ j) V' Y3 j6 V7 s$ ^        RowBox[{. S# a  S6 d% v9 G6 X5 f+ d
         RowBox[{"x1", "->",
" W5 \) R/ V! X# h- }          RowBox[{"Data", "[", 2 I" G4 `! V+ N! ?! D2 Y& C
           RowBox[{"[", 5 B) y) E8 I& a) I
            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
9 d( N% ]' Y6 g9 T+ x+ }, w& T         RowBox[{"x2", "->",
: F: S  P, o) a+ ^          RowBox[{"Data", "[",
5 W& K, O3 |! v3 _  C           RowBox[{"[",
- h5 N, D% ^5 z) v# f/ R            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", * {/ P- J( R% l7 |
         RowBox[{"x3", "->", 3 V: X& `6 z6 Q. m4 C
          RowBox[{"Data", "[",
9 D9 H: W8 U. ]( C           RowBox[{"[",
6 B, w3 B6 ]# M" y            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 4 f+ D% N- h; l7 k! h( v
         RowBox[{"x4", "->", ; {5 [4 ~  v% q. T& X
          RowBox[{"Data", "[",
% M. Z$ _  w8 @* U) E           RowBox[{"[",
+ X! j3 y+ U& ^: M            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
& c! U9 [2 M2 c5 O         RowBox[{"x5", "->", + S. I$ w7 s# N' [' Z
          RowBox[{"Data", "[",
9 O( `8 }0 [: x           RowBox[{"[",
# y9 W* Q% T, Z6 k: \$ r/ D            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
3 c* W. y4 l2 _8 n8 C5 V% [1 P  Y         RowBox[{"x6", "->",
0 o1 {4 B6 L6 s- W6 W6 k/ d. M          RowBox[{"Data", "[",
( r& y6 S) V2 G! M& `$ J+ v3 ~           RowBox[{"[", , L; m4 p6 `) g& E9 M
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", * g9 Y: i3 x* K! i8 g! `
         RowBox[{"x7", "->", ' n$ ^1 r! W* R' P& q6 P0 S
          RowBox[{"Data", "[", ' C5 M! x5 Y" D- @. o
           RowBox[{"[", " L6 L% ~7 u: }) M( I
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
' f4 P9 P  x4 N" B, [$ d         RowBox[{"x8", "->",
, i9 m5 X  P$ d9 f2 j& U1 l( }          RowBox[{"Data", "[", - s/ C" A5 S& W+ o& c! d+ E
           RowBox[{"[", - C% {2 o$ i! f6 y
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", : x/ ?' X( R& ?' r0 z9 A- ?# H
         RowBox[{"x9", "->", $ c4 a9 q* d% g
          RowBox[{"Data", "[", ! J8 H% H" M$ u' q$ u
           RowBox[{"[",
4 c- I0 v# S# S# v! H            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
* p) B" {9 w0 M: Z5 m     "\[IndentingNewLine]",
% w4 s: J7 a2 |9 M0 q! j0 z     RowBox[{7 Y. Z. A$ Q; U* P" H1 O
      RowBox[{"m60n21", "[", - M; w9 k( H/ q6 h+ `+ O' \2 {. x
       RowBox[{"[", 6 s' ]% ?) E+ u/ _
        RowBox[{"i", ",", "12"}], "]"}], "]"}], "=",
% t/ v7 H+ f3 Q% m      RowBox[{"u12", "/.", - @0 G" k) B( D
       RowBox[{"{", & ]2 ?6 m% P: j4 U, `% I  ?
        RowBox[{
5 v6 u+ Z  H, f3 s         RowBox[{"x1", "->", % j+ `* |; u# l  }
          RowBox[{"Data", "[",
, |6 ?" v1 b; W           RowBox[{"[", $ L- w4 `4 h6 F* g8 _8 p
            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 3 t8 \! E  ^' |$ J
         RowBox[{"x2", "->",
% h  G+ N4 k0 w          RowBox[{"Data", "[", 5 ?1 x' |3 y# S2 r6 R5 ]7 P
           RowBox[{"[",
' K& s; h2 P% u, g- @) m            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", # H; ]# P) G2 @/ O: R) \& ]2 G5 W
         RowBox[{"x3", "->",
# _7 W& V; ^6 G; \; Y          RowBox[{"Data", "[", 0 f* R" ^/ N: w9 l
           RowBox[{"[",
) G4 X2 _: S$ y7 t* y: P            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
% `& o  m4 |# G1 m4 P         RowBox[{"x4", "->", : l5 X  [; b. k1 P: p
          RowBox[{"Data", "[", 5 V+ {8 c/ y6 ~; ^( \; f/ }" X
           RowBox[{"[",
9 q* N6 O6 H) j( a2 c            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 3 ~4 E; R5 i9 L" {' v8 H: b
         RowBox[{"x5", "->", + Z9 v9 e4 m: W) V* u6 f
          RowBox[{"Data", "[", 4 B! \0 a+ @4 c4 o- u' p- ]
           RowBox[{"[", / v: z: K. m  [( g) U
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", - R( k. d) ]$ C) [3 I
         RowBox[{"x6", "->",
+ G& \- \: t6 N! R  V8 X          RowBox[{"Data", "[", % O3 q# P# ^3 M6 g: h* w
           RowBox[{"[", ; c: n* g9 U  x- s; I$ W4 N( Z
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
4 t1 f( V- t% x1 i  f3 n; N         RowBox[{"x7", "->",
+ R( S4 ~# v3 x4 H* n% c! T8 I          RowBox[{"Data", "[", # O- {/ F8 H/ q
           RowBox[{"[", ( R! Y9 R. E/ L' [
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
1 w* l' v4 L5 v5 X         RowBox[{"x8", "->",
5 _/ X: b5 n  o8 b. c+ y- Q4 C          RowBox[{"Data", "[",
; d) r$ |; R* ?5 y2 L           RowBox[{"[", 0 u. y7 z3 d+ |/ n' J
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
7 U2 L4 p1 J3 e3 q6 M! ^2 K9 n6 v         RowBox[{"x9", "->", 0 X( i- C0 \# X$ `9 \4 V
          RowBox[{"Data", "[",
6 z0 L" \) j9 v# [# f$ u. d2 q           RowBox[{"[", * L/ F2 ]. X4 q. o3 f7 x" P
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
& V( L0 U4 D) B/ M     "\[IndentingNewLine]", 6 d0 Y9 V) P+ v
     RowBox[{
( |! ]& S# E! \  p( x8 a      RowBox[{"m60n21", "[", . S4 T# M/ L+ }4 z! P
       RowBox[{"[",
! @# ~- }/ ?( u* C+ s( r' F+ c        RowBox[{"i", ",", "13"}], "]"}], "]"}], "=",
2 T8 g& y& m2 l& L- f% |* O      RowBox[{"u13", "/.", 8 r5 V/ Q  K! N9 v: q
       RowBox[{"{", 7 w" }4 l& y3 E" A+ F0 S
        RowBox[{  E" p/ i1 F$ P9 v' W1 Z3 Y  c3 o
         RowBox[{"x1", "->",
: d8 `' Q* h- q          RowBox[{"Data", "[", ) K4 d3 U! T% [5 w( a0 }
           RowBox[{"[",
, u1 _  W! t1 D" w$ c" l! Y- `0 @            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 9 x7 E$ F" e, E6 t- b6 b
         RowBox[{"x2", "->",
8 T' f  `5 k5 w0 v          RowBox[{"Data", "[",
; t+ H) a+ H7 X* a           RowBox[{"[",
; z" e1 o' d$ _  M% R: i            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", / s; z. J$ p0 C! R4 k7 ^
         RowBox[{"x3", "->",
) i/ ]% w+ d0 |1 K3 o- v# r* B          RowBox[{"Data", "[",
5 A+ U/ R- u  G6 S5 G+ Q* o           RowBox[{"[", : [+ Z! T6 m& V% n3 x
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", : q# s4 x5 u# U. Z" _
         RowBox[{"x4", "->", ; \% d* T, A7 K* O6 j) H: D% j1 P
          RowBox[{"Data", "[", 1 p2 _- v3 O" W. w3 l& w1 M- g
           RowBox[{"[",
8 V* q8 Z$ W; `% \+ j/ E            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ( i  d% `1 Q# [
         RowBox[{"x5", "->",
& J# M/ E0 N% [: X1 b7 g          RowBox[{"Data", "[",
5 o8 a# N# ]0 P; u* z           RowBox[{"[",
5 u* d2 _$ \6 z. y" P' b, H            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
6 \" p7 u0 r2 C% F8 |         RowBox[{"x6", "->",
( V2 s- ?" J7 H( {0 p3 Q          RowBox[{"Data", "[",
. p: c9 G; f! _9 n6 ^           RowBox[{"[",
3 u5 x5 V/ Q4 k( M0 C3 s            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", : @: f5 E0 N6 n% ?6 @$ f) s$ [; s  z
         RowBox[{"x7", "->", 2 f! p& Z! A( ^( I& j
          RowBox[{"Data", "[", : d8 {& f, I. L4 }4 x. Z) G
           RowBox[{"[", - X' y4 f/ e. D7 |. [' y
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
# |/ v# K7 W) \2 ?2 J7 N2 O! Q         RowBox[{"x8", "->",
( M* m6 n; r" P8 P          RowBox[{"Data", "[",
; O! v  T# h1 F% E- W! y: F: {9 [           RowBox[{"[", 8 [* N: t& d$ e4 c  {
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
; ~" j  o5 @" ^! j         RowBox[{"x9", "->",
5 ]! [$ G) ?+ j( z3 x          RowBox[{"Data", "[",
$ ~5 j* j3 I6 Y' R3 Q8 i' S& w+ q           RowBox[{"[", ; I  I) W- A) B' q# |/ |. |
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
* [) X0 D5 o: A8 h& j1 x     "\[IndentingNewLine]", . h& `+ U7 F1 ?/ \5 }4 a
     RowBox[{3 V; o7 i0 _% |) Z6 i3 Q
      RowBox[{"m60n21", "[",
) Z8 B7 u$ M* l$ A0 R       RowBox[{"[",
2 B! \" k1 P: p" ^8 a        RowBox[{"i", ",", "14"}], "]"}], "]"}], "=", ) c+ D$ B, y9 |) q
      RowBox[{"u14", "/.",
1 V/ q  p5 C2 P8 q0 g       RowBox[{"{",
4 P" a. G5 K4 o        RowBox[{
8 I- a- `! ^3 U" C/ o& k2 u) C. P         RowBox[{"x1", "->",   S: U* x* x! z
          RowBox[{"Data", "[", : Y, W3 d) {+ ]. f) J: y* b5 @
           RowBox[{"[", ' F. F9 l* ]% D5 c/ X; @- a7 Q) w3 X
            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
( q& L$ r% p$ Q2 K' d         RowBox[{"x2", "->",
, d7 ~! ^3 [" a" R/ B          RowBox[{"Data", "[", # t  u( {5 G& I" D! f, E& E) J2 T
           RowBox[{"[", 5 J" d/ K% M, @" I4 K* q$ B% J
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 6 z% ]7 s- Q8 G; K- @0 m: B& E
         RowBox[{"x3", "->",
3 V' v, V# c8 C  }          RowBox[{"Data", "[", # _% N$ j7 d  K0 e6 z
           RowBox[{"[", - C& L/ ^$ Z3 _+ c' R2 \5 ?! }. V$ g
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", $ l1 ]+ A* r7 d, Z5 ?9 ^/ L6 J
         RowBox[{"x4", "->", 8 a4 x' \' U0 }6 a- ^
          RowBox[{"Data", "[", 2 F2 a. l5 K/ g# ?% h" l6 [
           RowBox[{"[",
* X  A6 G( M! l( G& z, a/ `6 v            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
$ T- b- ~  n$ e4 l8 J# d5 a         RowBox[{"x5", "->",
/ o0 x0 p5 Y, U6 w- ^* i          RowBox[{"Data", "[", ; I% w- ^5 z5 e: r3 I
           RowBox[{"[",
4 l: r9 M. V, P2 v: k            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ; j8 Z  q( j8 t
         RowBox[{"x6", "->", $ E1 u5 b: h) P9 O" K
          RowBox[{"Data", "[", ' C1 p1 P2 j9 \& L8 h
           RowBox[{"[", ' z# l5 c4 c6 @( _' U$ S3 u9 e. s
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", & b2 N# H7 [3 B2 d
         RowBox[{"x7", "->",
$ h/ d) Q: j& S- i: @6 U7 H          RowBox[{"Data", "[", ) C  I7 M( H3 M6 \$ z" ^1 I% `
           RowBox[{"[",
+ I+ b8 L& ^# q+ a6 U8 ?# g" ^            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ' L/ N# Y( x8 f" i( q" l
         RowBox[{"x8", "->",
# z7 f9 D  r' y7 \+ l          RowBox[{"Data", "[", ) a$ d( P: w: e; p! A4 Y/ Z
           RowBox[{"[",
# ?! u4 @' l# j. I8 K            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
' x7 V, l3 O5 Z: V" h( _         RowBox[{"x9", "->",
  R8 J( I' M* I+ n- E          RowBox[{"Data", "[", & R- _! n7 S- M5 X' G) G) f
           RowBox[{"[", & x5 g( [+ i1 |' U
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 2 a* @9 L9 h, e9 L3 G- ?4 n& t
     "\[IndentingNewLine]", / i$ u; c  U& Y7 b2 q
     RowBox[{
" o) \9 [$ L  b* y; T      RowBox[{"m60n21", "[",
; f/ k, [. m' z' Q4 B/ s% x  @       RowBox[{"[",
) \7 v: g* E* g+ U        RowBox[{"i", ",", "15"}], "]"}], "]"}], "=",
/ A4 t3 I' S4 M4 N" Q) m      RowBox[{"u15", "/.",
" u' e7 |6 T$ i4 \5 \1 C, S6 t; @       RowBox[{"{", 6 ~* \4 }" w& j' i
        RowBox[{7 M/ _  C2 [4 Z
         RowBox[{"x1", "->", " A/ \1 x+ ^! u
          RowBox[{"Data", "[",
- [- V" ~/ F* j3 d) J8 h( n           RowBox[{"[", ; A+ L! V/ {0 x  N1 R
            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 7 k- _) d/ H* {% l7 R
         RowBox[{"x2", "->", 3 d- B+ \- l9 c) }6 w1 r# t9 l
          RowBox[{"Data", "[",
% ?2 ?& l) g. [$ \( {/ O0 S           RowBox[{"[",
' |8 I3 s4 ^# m8 H" R( j) i8 [            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
3 ?# M4 D1 O6 n8 L7 V9 o         RowBox[{"x3", "->", : R# t5 ?8 f0 p9 [0 P1 i8 T
          RowBox[{"Data", "[",
. q+ F# Q1 v- X           RowBox[{"[",
. t; q0 s3 b/ q: F            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", " J% O. ~  Y- K8 A
         RowBox[{"x4", "->",
3 E" }# J1 Y, k2 L+ I          RowBox[{"Data", "[", % C( S. \- H1 T
           RowBox[{"[",
  L. X; W/ M4 Y9 Y) v( j8 z            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
6 o7 t2 q+ `. e, Y& q8 V         RowBox[{"x5", "->", ' ~. N, u8 E& M& V
          RowBox[{"Data", "[",
( X9 s7 @5 M; p/ i1 I. p           RowBox[{"[",
' Q# e1 z6 m+ h2 {" h' w6 P            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
; N( m, P/ u: a; ]: ?+ Q         RowBox[{"x6", "->",   ?+ E& \; s( k* C* J# M: E. \3 e$ ?
          RowBox[{"Data", "[",
: N0 F+ R& Z% k1 C/ g           RowBox[{"[",
5 Q. X- e: H; _7 \; E4 E+ {& L            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
, c- F5 K$ U7 l' v# s6 o         RowBox[{"x7", "->",
% s- ~- {1 v/ A' O6 @          RowBox[{"Data", "[",
( g) T! F" }5 z. w           RowBox[{"[", , E% h+ l; U" s+ X
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", . h7 R( l3 b9 [$ z% k
         RowBox[{"x8", "->", 8 w6 b9 e5 O  h0 U, `
          RowBox[{"Data", "[", ( E% H1 F" k; a7 {( u
           RowBox[{"[",
: i% Z& B( \9 ]# J& J$ @7 Q5 `9 g            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", * J! Y: H  a' }# T- E
         RowBox[{"x9", "->",
# q8 ?4 Z" x" n9 @) `- b          RowBox[{"Data", "[", 9 Y, j, G5 p6 C- G
           RowBox[{"[",
. _8 z6 R4 t" a  E. J# E! y            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
2 Q$ s+ ^1 U% a. R     "\[IndentingNewLine]", / P; i6 ~* D5 k! S% i& ?
     RowBox[{' B( f. ?2 ^3 z! k7 J
      RowBox[{"m60n21", "[",
1 }( N' r6 W2 f( B       RowBox[{"[",
! U7 h' }, J8 J: i        RowBox[{"i", ",", "16"}], "]"}], "]"}], "=", 2 R6 \# q+ }- y- l
      RowBox[{"u16", "/.", 0 b1 n% V8 S' u0 z) I/ e
       RowBox[{"{",
# j# ^, H" u4 y! a! E& \        RowBox[{! w) V) @/ B' t  Q: v: q
         RowBox[{"x1", "->",
% z; S( }6 R$ r: r' \          RowBox[{"Data", "[",
" T* W  E# N2 B: t6 ]           RowBox[{"[",
* q: o% ?1 {* l            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 8 G" F- L4 ~4 H5 [
         RowBox[{"x2", "->",
6 }" m; O5 S$ s8 B: i0 Z6 L          RowBox[{"Data", "[", : ]( k$ P* h0 {" d1 A
           RowBox[{"[", 8 C6 e$ T# _% n" `# W" L; M
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
. e- k$ M& J& p# U1 w         RowBox[{"x3", "->",
- K- V0 d& |4 S7 f; F4 G1 T          RowBox[{"Data", "[", & H5 |6 |! W) r7 s8 t, k
           RowBox[{"[", " @; J8 f: Z" E- W
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 6 u' C' U$ u; V4 g
         RowBox[{"x4", "->", . }" Z4 P! j1 D& I
          RowBox[{"Data", "[",
5 @6 }& |8 G$ ]6 N: A1 }  a5 b, J           RowBox[{"[", ) C) o& q9 m3 X1 b: q, e4 f
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ; T* ]6 ^6 |1 H2 l& w
         RowBox[{"x5", "->", ' \9 ^0 S' x; `5 q+ L& q
          RowBox[{"Data", "[", - u' k% R$ f; D1 R# ^  `; v
           RowBox[{"[", 8 R1 L4 ?& y1 \) ?; p! D4 F
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",   `7 q% a! @7 Y5 l
         RowBox[{"x6", "->", , I" m6 y& t5 L- Z7 z6 q5 L$ S5 ^
          RowBox[{"Data", "[", - ?; |  \/ t5 X
           RowBox[{"[", 8 R' T" w" ]" j9 s- D
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ' L  x- o) H9 D; `) s
         RowBox[{"x7", "->", : K& P: W; K2 I" y
          RowBox[{"Data", "[", . J; n$ f9 b; G  u  O
           RowBox[{"[", # A2 V& s0 e7 V+ q. c7 K3 `; ^' l
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 2 n' V( m: Y; {; i" j
         RowBox[{"x8", "->",
8 P, E. R2 T3 M          RowBox[{"Data", "[",
) _% }; ?% Z; y1 O1 p  b           RowBox[{"[",
) ?* [$ s7 B+ F2 z- m: P0 ]            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", - D4 d8 ^6 K" m; ]9 l5 M" U. _
         RowBox[{"x9", "->", ! F$ X. V8 _- x  U$ r  j; ^. Z) w
          RowBox[{"Data", "[",
: H" M6 M2 S, p  K+ j           RowBox[{"[", 8 v% n9 I4 E9 p. F  d
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
2 u: _9 V7 o; k& ~     "\[IndentingNewLine]",
& l% J) \' k" j. l) y     RowBox[{
9 c+ R# W9 h2 Y/ C5 u* {      RowBox[{"m60n21", "[",
, {% U. O# w( J& A" a) B* _, G       RowBox[{"[", 6 |- f( i2 ~$ C/ y/ r
        RowBox[{"i", ",", "17"}], "]"}], "]"}], "=",
1 @- t7 _6 `: A3 C3 S5 `( o# I: z/ L      RowBox[{"u17", "/.", 3 L2 ]9 @# y7 Q
       RowBox[{"{",
& s9 Z* _) |% S) d$ N8 |/ F        RowBox[{
, t& x. a" e5 f; E( J         RowBox[{"x1", "->",
, ?0 H0 g# `* P. R          RowBox[{"Data", "[",
9 f4 n, L7 G, T% H           RowBox[{"[", . F' G* D1 g& B7 h( I
            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", $ r0 e% X7 i  L+ f: A8 ?" i
         RowBox[{"x2", "->",
7 `+ T. z/ t2 k4 ?          RowBox[{"Data", "[",
' _+ t" j2 i. S: Q6 A* C3 s           RowBox[{"[", % J( ^0 [3 O) }
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", , u4 f5 _! B" k& i1 l5 g/ F
         RowBox[{"x3", "->",
  w- Q9 \% S' l          RowBox[{"Data", "[", 3 [3 |# }2 f2 m1 |6 q# ~
           RowBox[{"[",
2 y, C% G9 F( g3 l            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
7 o( T( G; L1 K         RowBox[{"x4", "->",
! Y/ M" s: w& z5 C. v; V          RowBox[{"Data", "[", 5 I* s$ Q# @9 ?$ L2 A
           RowBox[{"[", ! @  h. r* j; u5 A# U! o
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
/ N5 g; z3 J9 z$ w; b* }         RowBox[{"x5", "->",
4 J! Z# k0 a8 h! z% r. q          RowBox[{"Data", "[", ' P5 X  X3 |, B- J) q( I& N
           RowBox[{"[", 5 W2 t1 f+ T; a, R
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
- O# G% G5 s! {6 I- _. J0 ~         RowBox[{"x6", "->", ' `7 q9 i% C7 z% N* w. M# \2 n
          RowBox[{"Data", "[",
% }* s; K- T5 x5 Z           RowBox[{"[",
* @# W4 o' K- V% ], n            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
  ?7 z9 Y5 _4 @, |         RowBox[{"x7", "->", 6 P- `2 @3 I; [6 |
          RowBox[{"Data", "[", 0 x8 m  x/ W% _
           RowBox[{"[",
( z; C# \+ c! x; j) t/ b$ z            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ! J% P- g0 G7 Q$ K5 Y- X
         RowBox[{"x8", "->", 7 ~  H2 I! d3 ~0 J- ~& B
          RowBox[{"Data", "[", 2 [# g# N+ ^7 d, j9 R1 L9 `1 {
           RowBox[{"[", * L# F7 @- e# x3 _2 b! q
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
9 j5 H. c1 m( G2 d         RowBox[{"x9", "->",
: @7 U2 l+ j- V! H- ?8 C+ {% U          RowBox[{"Data", "[",
' C$ v, h" u6 P) I# W5 x, a           RowBox[{"[", - k) J' J6 m! X: a. F
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
0 q4 p% z$ j5 W$ `     "\[IndentingNewLine]",
/ ?% N* d" r- s. C) S0 `3 G     RowBox[{
- G, k% B+ y* |6 E+ @& u) U      RowBox[{"m60n21", "[",
4 T* D, J/ F' Q: J( m       RowBox[{"[", * e1 {! q8 R7 c$ K" ?# i$ A
        RowBox[{"i", ",", "18"}], "]"}], "]"}], "=", & ~; ~4 T7 D" c/ {/ {" T
      RowBox[{"u18", "/.",
5 L! Z- m; c4 u" p  i. W       RowBox[{"{", ) L# g- E5 z9 s0 B6 I8 O
        RowBox[{
; O3 W4 T8 M% Z6 |; c" V+ S         RowBox[{"x1", "->",
+ M5 H: c& j6 z7 J( r# S          RowBox[{"Data", "[",
/ r0 P+ O$ U- @/ j; _; N& A           RowBox[{"[",
9 i3 n# K  b5 V; g; g' A4 D            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
7 ^, ]- `4 \1 V8 Y         RowBox[{"x2", "->",
9 `/ z  I3 `1 n          RowBox[{"Data", "[",
/ R  g' f- y% b+ |           RowBox[{"[",
( O. a+ c5 o. L. u            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", , V$ ^9 g" `; z) U1 V
         RowBox[{"x3", "->", ; z/ R3 b5 t9 ^0 k
          RowBox[{"Data", "[", / e; I9 h  `; ?' p
           RowBox[{"[",
: i: m4 U; u& K            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
) f# g4 i+ b7 S         RowBox[{"x4", "->",
+ p( d) |: q6 ?& U# {          RowBox[{"Data", "[",
  J3 X/ I6 h' K3 R9 W. z8 K6 I  J$ N           RowBox[{"[", : j1 C3 p- F/ n& h' z
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", $ e+ L6 {4 T+ F* X& m
         RowBox[{"x5", "->", & Y. G2 y. u  x4 E6 _$ z4 T
          RowBox[{"Data", "[", " P7 e# Z3 u0 A# }
           RowBox[{"[", $ g+ o2 q0 f% o5 d
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", + W) D3 `% t( ?7 x
         RowBox[{"x6", "->",
! y' i* N7 q- b          RowBox[{"Data", "[", - I) b, {0 D$ z
           RowBox[{"[", ( m6 d" n. A, p' ^; R- A1 H* k/ p
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
. v' G! |0 H* {         RowBox[{"x7", "->",
+ t/ }( ~3 i6 n) L          RowBox[{"Data", "[",
. i2 @/ {5 d/ m           RowBox[{"[",
' U# L8 g* Z' J8 \            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
. i0 X0 |; j" J2 O% a/ K2 |- [         RowBox[{"x8", "->",
: p2 A2 [; m" ~2 s! e6 i          RowBox[{"Data", "[", 9 D5 U! D3 D( b  _4 b9 z
           RowBox[{"[", ) U: U  k$ B$ i2 e
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
$ _* K, p; e) X; F         RowBox[{"x9", "->", / n; J8 d6 x# y, J  R
          RowBox[{"Data", "[",
/ a# @( |( @$ j  I% W           RowBox[{"[", ( T5 x& l) N0 ^
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
8 _( |1 N6 l8 D6 C' J     "\[IndentingNewLine]", * G8 h; C/ `& W* D
     RowBox[{
" K. J2 J3 r, c7 h7 n) ^      RowBox[{"m60n21", "[",
* X5 L$ a% y: }) P( R0 m       RowBox[{"[", 4 y# e' ^  {$ P: g1 Y
        RowBox[{"i", ",", "19"}], "]"}], "]"}], "=", 0 l6 p& @8 ]* `, R1 V. C' }6 k
      RowBox[{"u19", "/.",
6 C" K; t2 Z/ S2 ~' C       RowBox[{"{", ; Q  d1 P$ J1 F
        RowBox[{
% e0 U" M: L6 Y) x         RowBox[{"x1", "->", 5 b7 h% X; Z/ b' _9 a: ~; r( r
          RowBox[{"Data", "[",
2 L8 u! A8 G9 o           RowBox[{"[",
0 i9 r# q- Y2 _+ P' Q8 q            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 6 H1 X, T8 R, o: U
         RowBox[{"x2", "->", ; B0 W7 i9 x. i# ~( M
          RowBox[{"Data", "[", , I) [3 I* A5 ^4 o+ }
           RowBox[{"[",
* d4 q- p9 g; K2 Z6 S# X' r            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
0 Z7 Y* g0 A( a9 \& b. a- W         RowBox[{"x3", "->", * w  `9 G* O' h. S
          RowBox[{"Data", "[", 5 x- g7 u3 t% H# U' b. h
           RowBox[{"[", % o' q2 b7 [/ j  L9 A( o2 O
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
6 R1 K, S$ ^! ?; K         RowBox[{"x4", "->", ' o/ O$ v9 q0 Z; ]) w1 G
          RowBox[{"Data", "[", . z$ ?& y4 u/ p/ D1 L4 F# D
           RowBox[{"[", ( F2 j4 f- @9 k9 r
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 1 |6 @: Q2 {8 y; ^8 S0 Q
         RowBox[{"x5", "->", ; N" s$ q, d( @0 N* j
          RowBox[{"Data", "[", ; O2 s5 e; B5 y" X! _
           RowBox[{"[", . I1 O" v9 o( B2 ]9 l4 |. _7 V$ L
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
0 o! r! a7 S* r$ z$ t8 \* K         RowBox[{"x6", "->", 8 }5 T4 g" t$ T( t. G# K2 a
          RowBox[{"Data", "[",
! q- }: e6 S" g8 B* l           RowBox[{"[",
/ A# W: ~0 y( y; |5 {6 F            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
- V9 U; g* l9 c. u( r" s; N         RowBox[{"x7", "->",
! E5 f$ h7 T& _  w          RowBox[{"Data", "[",
9 R# j4 t) Y; `& }           RowBox[{"[", 6 u3 e, k& I6 q- l, a4 z
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", & z5 J) g! y5 P" l
         RowBox[{"x8", "->",
8 l4 p" u) W" w1 @& e          RowBox[{"Data", "[",
  J. f% e5 F( m) {# A: U           RowBox[{"[",
" R$ r9 _( z4 f$ Q& e            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ' q3 q" ?, W1 `+ o) k4 R
         RowBox[{"x9", "->",
; I( c: K8 N; @5 H7 \          RowBox[{"Data", "[",
2 L5 K2 b2 c" Z0 K" k5 N           RowBox[{"[", 6 j3 U9 w. B* D2 u0 v4 ?
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", $ ?8 U/ a% z( q/ w
     "\[IndentingNewLine]",
# o0 c" o. J& H     RowBox[{
' j' g/ b1 a( }; l% c      RowBox[{"m60n21", "[",
  [2 n" K3 t6 a8 S' C- l  a( z       RowBox[{"[",
4 I9 v; s1 {1 ~5 i% j5 F        RowBox[{"i", ",", "20"}], "]"}], "]"}], "=", ) H) E- P& @, S8 v3 b
      RowBox[{"u20", "/.", 7 s8 b+ n/ U6 C4 ~% y6 Q
       RowBox[{"{",
8 _: C$ ?- X1 S5 @' W# f2 w) \        RowBox[{/ c4 Z; |( A  e$ j; S
         RowBox[{"x1", "->", 3 z# ]( ~9 [" ?7 {: u
          RowBox[{"Data", "[", 1 f/ R4 X3 b1 |; G+ I
           RowBox[{"[",
8 {( A9 k' T% e: H, N            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
& T' I7 m. \: ]; k# O         RowBox[{"x2", "->", ( T* n7 ?" i+ d! |  E; i
          RowBox[{"Data", "[", 9 m) U3 ?  I8 s" s  F5 Q0 i
           RowBox[{"[",
/ P8 T% g8 y0 w+ W. ^, c1 O9 x            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
6 w) @% G: Q2 F         RowBox[{"x3", "->", * f# O1 P5 \# c- S' b& h7 f" R
          RowBox[{"Data", "[", : n) {# z4 Y7 L
           RowBox[{"[",
; K8 [; ]9 C, [/ q. z  f. m            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",   O/ [3 h3 M% Q
         RowBox[{"x4", "->",
+ m) G& }/ Q! f8 X          RowBox[{"Data", "[",
! D4 E6 S: K/ Q8 z6 e* w- l" J7 u           RowBox[{"[", % D* f# P" Z7 ]# q" q
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
7 k2 Z  A* f& j/ Q+ H         RowBox[{"x5", "->", 8 b' W( L0 j( Y
          RowBox[{"Data", "[",
+ b/ M# z& \' l% l: U6 Z           RowBox[{"[",
5 A; B7 h) x5 B5 J! g9 h            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
; M/ s  a* ?1 k; ?         RowBox[{"x6", "->", $ L& }! E8 Y* i
          RowBox[{"Data", "[",
( o: ^' Y# f$ @( {/ j           RowBox[{"[", 5 x( r5 o5 v, o* a
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", - s( m: \( y0 j* }
         RowBox[{"x7", "->", 4 `8 v# Y2 u* K) q" {' D5 _; c
          RowBox[{"Data", "[",
: X% i# `  g+ x) L1 t1 D; e' m           RowBox[{"[", & v: H. X( Y0 m3 z% o: a/ c3 d
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", : F1 X1 M2 b8 l5 t5 I( q, l& J
         RowBox[{"x8", "->",
6 r$ h; k7 y* m& i" I          RowBox[{"Data", "[",
# o" g+ l  z2 t! v' L6 e           RowBox[{"[",
& `  ]6 u" ]2 b# S/ T: h: u            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 8 d$ y* r; @7 t! u; ]6 Q$ j
         RowBox[{"x9", "->", 3 j5 v9 f( f. o6 w4 S% k- q
          RowBox[{"Data", "[", $ O: _1 n/ u3 X& t; S
           RowBox[{"[",
  m: i4 S, Q+ l$ p. A! k" u            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", / [6 c3 I, H9 c& q, X( ^( I
     "\[IndentingNewLine]",
" a6 Y8 [' A; U3 Z: Z     RowBox[{
' T$ p# O" r7 ?( p1 @9 O. p; x      RowBox[{"m60n21", "[",
( q- H# h& _8 g; v4 c3 |6 p: S       RowBox[{"[",
  i& n5 n: l3 l" `. j' z! z/ g$ Y) \        RowBox[{"i", ",", "21"}], "]"}], "]"}], "=",
8 `8 _, X8 D1 a9 [      RowBox[{"u21", "/.",
* I( x) f$ `. s' O       RowBox[{"{",
# I, `; X4 [* t/ C. n& l        RowBox[{& [) o: d8 E; v3 B( j* l6 A
         RowBox[{"x1", "->",
. ^( A6 V+ F; @1 ~: W+ T          RowBox[{"Data", "[", . o! z8 s1 C9 u6 k2 M% Y0 y2 h) o
           RowBox[{"[",
/ U/ t1 f7 q1 l- b" m1 h            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
8 Y: `6 \6 p1 k' [* T         RowBox[{"x2", "->",
# J% \' G' H# V( P: i          RowBox[{"Data", "[", " r+ |2 m9 q0 E( j( N5 d
           RowBox[{"[",
6 F9 m5 @( q1 C8 ?. W: }6 q6 P            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
+ Q  Y8 |! W- |' j/ {: D         RowBox[{"x3", "->", 7 Q3 s' R2 c& [& v3 i; s
          RowBox[{"Data", "[",
; w3 I) u( `2 ?, a6 s8 q. B$ ?           RowBox[{"[",
, d/ U8 w8 B. A; y            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 5 ~9 {, l  q; P6 k' P& ~
         RowBox[{"x4", "->",
8 G5 Q8 E, T4 f4 f, o' Q0 D          RowBox[{"Data", "[",
2 W% [* |  q& ]1 H5 V           RowBox[{"[",
4 z( i1 q& a8 F/ d            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
1 V, V) a! b4 h1 W         RowBox[{"x5", "->", % v4 R( f: K5 J' a0 A" `8 y$ N
          RowBox[{"Data", "[",
7 m" M6 q7 ]! _! L6 C           RowBox[{"[", 7 Q, N3 ~3 x+ f) `1 y
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
6 @/ e8 c; y3 ~3 x' _         RowBox[{"x6", "->", 7 r  E1 Q& k7 k9 L' a
          RowBox[{"Data", "[", & h; y$ b: F' @; A
           RowBox[{"[", % V( H& q. Y4 D8 L3 m' I5 _1 Y3 x
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", + |: q* f7 I6 L  {
         RowBox[{"x7", "->",
7 s- h* R0 @8 x0 M/ Y/ g- m          RowBox[{"Data", "[", 2 i0 i( u2 ]1 ~  F
           RowBox[{"[",
. n; v1 W9 m1 @4 W7 ~            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
. A7 F8 t$ M6 D( L3 v1 b         RowBox[{"x8", "->", % H8 z6 o! v+ A& j# g) b1 U
          RowBox[{"Data", "[", - ~6 z  C5 n; C# Z
           RowBox[{"[",
; @6 I1 ~6 x( R( j! w6 L            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
+ V4 r" E- l$ j- j         RowBox[{"x9", "->",
) {" d% ]9 q3 u; O+ w          RowBox[{"Data", "[",
$ N3 r8 A6 I# @' @1 F& M& R; _( ]           RowBox[{"[", 2 _6 w# p. F3 w& \
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}],
3 T% _- p! w1 C. x' V( z! c; ?% O    "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",) X" |+ w$ q  T& ^  C
CellChangeTimes->{{3.5779241165*^9, 3.57792417728125*^9}, {! l* S3 k- o% M
  3.57792428359375*^9, 3.577924585109375*^9}, {3.577958919491543*^9, 2 V% y" j$ q& Y
  3.5779589224867477`*^9}, {3.5779619825731473`*^9, 3.5779620676400957`*^9}}],
4 Y) G7 b; l) |* z& _1 [
3 _6 u: @3 _' f$ _/ }4 @2 OCell[CellGroupData[{
' g* B# H( ?5 ]0 w/ _: [" u' V  d
4 x/ s) Y) s  P& kCell[BoxData[
) u. a8 m7 B; U RowBox[{"w1b", "=", ' Y* m, ]1 G+ ^3 y6 d* T) P
  RowBox[{"LeastSquares", "[",
; N- V$ R6 ^( K. Q3 F0 L7 Q   RowBox[{"m60n21", ",", "y1b"}], "]"}]}]], "Input",
; X* [5 U8 g; W1 Z  v# l/ g1 I. | CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {# [5 K6 ?6 n8 K: @1 B; I
  3.577924662765625*^9, 3.57792466596875*^9}, {3.5779582865360394`*^9, : R6 `1 `8 x. g
  3.5779582963172565`*^9}, {3.5779622900808835`*^9, 3.577962290377284*^9}}],& l' I) f9 L. C7 X, J

2 |! z8 g; C* iCell[BoxData[; f3 U  O! E. K& X# p$ k+ [# D
RowBox[{"{", : L+ h1 {( b% d! h, v
  RowBox[{2 J# S. p9 f( ^$ K( \2 E+ H
  "0.48228184971363947`", ",", "0.16041393254115022`", ",",
2 B2 t% x" }/ |4 m% J5 ]% c   "0.3741982811661129`", ",",
# b& d, j  j2 e5 H2 j4 v; q7 P   RowBox[{"-", "0.12620581913715245`"}], ",", "0.28831860112966734`", ",", ( W6 ^5 b6 s# Z% L! F7 R  F3 u
   RowBox[{"-", "0.2282993884666894`"}], ",", "0.3207174990295839`", ",", 9 \' O1 j6 J$ O' H
   RowBox[{"-", "0.4666313851213302`"}], ",", "0.27551257162880227`", ",", - W/ W4 H) r; c5 O
   RowBox[{"-", "0.025873988843993667`"}], ",", 7 E. ^8 b: t+ @' w4 i
   RowBox[{"-", "0.1339854044819916`"}], ",",
, V9 v4 G3 {; ~# C9 S- d0 s   RowBox[{"-", "0.15852708848338315`"}], ",", "0.3129687276967983`", ",", , l% p# A9 t, n9 Z& y4 |8 |  J7 G
   "0.45723850991134063`", ",", "0.2954923840077215`", ",",
) k  P% C6 u" ?! s   "0.9125798890455868`", ",", "0.21159052285983104`", ",", 6 D  K, p2 f  Z- \. d6 w8 M- H
   "0.5575503376854456`", ",", "0.6019775648968265`", ",",
. \% v6 L+ l9 u) |) \. n   "0.2361524780938108`", ",", "0.12782130225993923`"}], "}"}]], "Output",
* X+ R+ d0 ?, v; t0 Q CellChangeTimes->{
% c6 C2 N  H, ?/ Q7 Q- v  3.577924621953125*^9, 3.5779246688125*^9, {3.5779582894220443`*^9,
9 m$ k: C3 j% ]& Y" k/ m0 b# k. S   3.5779582992968616`*^9}, 3.5779584995700107`*^9, 3.577959040157753*^9,
) o3 d4 r* m' q   3.5779622919996867`*^9, 3.578012447734375*^9}]( A# ?% O4 c7 y2 d5 B, v
}, Open  ]],
" [+ P" n! E8 ]; B9 S, \% @& o5 W2 g
Cell[CellGroupData[{
9 r5 J- `4 K" L3 @) Y( u
8 [: D& i, O3 `, C/ @; [( HCell[BoxData[( J9 Z; J. M( O- R
RowBox[{"y2", "=",
! q" x* q) J* j# Y0 s  RowBox[{"w1b", ".", . G* O% f8 I" \* S. j1 ^) r
   RowBox[{"{", : ]1 z* o& d) P9 B
    RowBox[{5 I" n# w6 V( V6 \
    "u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7",
# ?- W# p  Q% C4 `) ]" t     ",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13", ) H& Y' w2 u# z
     ",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19", ( ~) W1 g3 F7 Y- L6 p; W/ r
     ",", "u20", ",", "u21"}], "}"}]}]}]], "Input",
/ F/ a% E6 C0 C9 @2 D+ d CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {
$ v& _. x9 V% Q- G, S0 G* T8 ~" K   3.577924897078125*^9, 3.57792491596875*^9}, {3.5779583101856804`*^9, * ^5 L3 l' [) `" [/ k; J3 V* ]
   3.5779583178920937`*^9}, 3.5779623163513293`*^9}],( j* I; t+ S; m
, l3 o6 B7 E; U$ ]4 }1 z
Cell[BoxData[
$ D: l  `, r0 N9 g6 X' U RowBox[{
& j* P' t: U/ E$ Q3 q  RowBox[{"0.9125798890455868`", " ",
. u4 t& B5 D. o9 E: Q3 g   SuperscriptBox["\[ExponentialE]",
/ x0 s( J& z5 O  B' S' c    RowBox[{"3.141592653589793`", " ",
6 Q* }; a, P2 ~5 O  S3 Z* i/ m/ w8 [     RowBox[{"(",
8 K0 D( ^( m0 u& B4 T' \. ]% @      RowBox[{6 r+ Z! |* R+ E- R( A
       RowBox[{"-", $ h& e2 n; f. M3 h! u% i
        SuperscriptBox[' z7 V: F8 Z4 f* e) h
         RowBox[{"(", , I% S: y: v/ |/ U' B6 J) _
          RowBox[{
, W3 i. f  z- e& ~8 @  _: s+ k  I0 N           RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
) S/ A8 ^! ?% n4 d- F       SuperscriptBox[% [+ w; u- a. K; n) n( H! k$ m
        RowBox[{"(", ) t" d) Q0 W6 Y* E3 m
         RowBox[{
7 R+ r& h* |7 A2 d* ~' C8 Q# |! K" V          RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", 5 d4 p" F' y$ l$ S: s
       SuperscriptBox[
) [( M; u$ z) b+ H* \3 f        RowBox[{"(",
$ `/ H3 C, ?& p* N         RowBox[{$ I- w& p3 h* z3 m% c$ l! A3 N
          RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
: Y; X- e8 Y# z% U: }* ?" x3 q. U       SuperscriptBox[
$ P: O3 d9 H7 S6 f" A        RowBox[{"(",
: v7 C3 E1 I" {& N& |  D         RowBox[{3 l8 S  b; m2 x9 }' z5 f
          RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
" l/ _2 i0 q8 p       SuperscriptBox[
: d  S/ M( x1 w( V7 m        RowBox[{"(", ( @4 g8 C' _2 c0 o4 D2 {1 O
         RowBox[{! g* e1 I8 g1 d1 i  z
          RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
0 j2 {. h/ a+ G( i5 J1 B7 E       SuperscriptBox[8 V1 ]1 o9 B4 a% r
        RowBox[{"(",
' G- l9 }' g- M: N         RowBox[{1 R. @) h' E  I( ~
          RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", % H. Y, i8 t, W
       SuperscriptBox[' W8 z8 G; J3 Q) S0 R2 Q
        RowBox[{"(", 8 [& }4 M) J0 C- X
         RowBox[{- }8 |- k$ j4 O$ m1 E8 d/ h0 P
          RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", ) T% f8 r. e# p9 H
       SuperscriptBox[4 F$ K3 _: v' `- _8 b& w
        RowBox[{"(",
: @3 N  Q2 v# K  q6 o7 x( F2 |         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
( `7 L$ i& x+ d9 \2 L8 x6 p       SuperscriptBox[
! [3 D6 c. v4 u4 S2 E        RowBox[{"(",
- ]: D. y: A+ \         RowBox[{8 f/ z) `* J+ Y0 a2 r9 K
          RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
, ?7 N# }0 @. B8 y2 [3 Q5 C  RowBox[{"0.28831860112966734`", " ", , q) Y+ l( u+ B1 m  m
   SuperscriptBox["\[ExponentialE]", , j; j- E! h( Z+ P7 f: m4 ]
    RowBox[{"3.141592653589793`", " ",
; L# m" _( j9 v* N9 |     RowBox[{"(",   S4 k7 o( Q* L1 i8 e
      RowBox[{1 G6 `- d3 {" s) {: a- F
       RowBox[{"-", ! T- d; g# x# _5 G1 `; q: z. M
        SuperscriptBox[
: Z% s3 i- t% g/ E: Q  S         RowBox[{"(",
/ m4 C7 h6 T0 N7 r4 c' f          RowBox[{0 d2 k) P6 U$ H  K( H3 X
           RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 3 U5 y0 Y  u! A" o" L+ r0 l
       SuperscriptBox[
) q& y4 s: d. L+ o& Z$ K! Q3 ]        RowBox[{"(", ' p  ~, y9 j' p/ U6 K6 V
         RowBox[{4 C. s4 B/ Y6 a6 n
          RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
2 N. I3 I, ?  F0 `       SuperscriptBox[: q5 B$ l5 ]: y9 ^+ v) s
        RowBox[{"(", 3 H% a" f( T, T& w
         RowBox[{
1 m6 E9 `% J1 R5 \          RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
' d  z. c. r) S$ F  h       SuperscriptBox[
5 {, T; |( y/ G+ B. p3 X, h        RowBox[{"(",
% Y9 I1 x9 Z  X6 s4 t8 t         RowBox[{
; p1 e; O1 A) E2 J. x6 d6 w, l6 p          RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
  a: T* o% L& F! ?- b       SuperscriptBox[
" U! j) {* H8 F5 [5 ]  X8 _! m        RowBox[{"(",
/ j3 Y& A/ h" w3 e         RowBox[{
! w4 u6 X. l6 _7 V, k: Z7 b          RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", , m7 @7 ^1 m1 {/ b, }; d' O
       SuperscriptBox[
; f& d8 H% W* @5 ]# W, N% E        RowBox[{"(",
5 {: l) j$ a, C+ C* c         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", + e' F+ o$ h9 D& ?* `
       SuperscriptBox[( L! t  A5 f: e( O+ ?
        RowBox[{"(", : `5 c  f9 n( j( q; l6 }- l8 x# Y
         RowBox[{
  t# `" V/ h7 f8 Z5 @$ N$ m# P          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
+ x  ^% k4 K5 W, b' c3 r5 ]0 d( N       SuperscriptBox[. Q* Y) [- p. X9 v  \
        RowBox[{"(",
' p4 `# ~  u& g8 g1 l$ ^6 f         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ; u0 Q+ w& E' J& L4 f1 B
       SuperscriptBox[* D8 x" a! ?0 A% x( p; L
        RowBox[{"(",
4 m  @8 Q- V* d         RowBox[{
& C, ~% G. c% X) k/ A8 @# g          RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
! `% a# c6 W3 t  "+",
7 G5 I$ m+ x' y7 L) C- ]8 J, }  RowBox[{"0.21159052285983104`", " ", 0 `/ O; C4 X  |9 C
   SuperscriptBox["\[ExponentialE]", * O/ y6 W, s. a$ e# t" g6 w' ]
    RowBox[{"3.141592653589793`", " ",   Y8 D' T- W  e% C
     RowBox[{"(", $ D7 B8 E3 ]! E6 A: P; Q
      RowBox[{1 P9 a& \) E( Y0 U7 \. Q6 _  T
       RowBox[{"-",   x1 ^& P* |2 m6 V3 Z
        SuperscriptBox[1 [7 N2 M- _/ [+ e5 k) o& q
         RowBox[{"(",   ?6 _9 o( p) h9 I9 Q
          RowBox[{
2 N9 Z' P6 V# T0 j2 U9 S# A; c9 H           RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", " G% S$ s+ j% }
       SuperscriptBox[' c. J: I% X. `
        RowBox[{"(",
/ _. U  F3 Z; |3 o% f& Y" o2 q         RowBox[{! f: F" q5 o0 D0 U
          RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
0 i0 a5 y! C1 Y3 c& t. n       SuperscriptBox[6 n% P& v3 X/ ]3 t& |* e! s
        RowBox[{"(", 4 l1 `9 e$ Z% S: C
         RowBox[{- w+ M% E5 T. e1 P( o
          RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", * U* P) V5 D/ p3 D* f2 |
       SuperscriptBox[- o% d0 f' k: ^9 E2 o
        RowBox[{"(", $ l' u6 H3 E/ j3 R# I, K. \
         RowBox[{
- k& G& h! u; b, {          RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
) r9 }9 T* E9 I) s       SuperscriptBox[
0 n" r, `$ N: K$ E- w        RowBox[{"(", ( I" I6 m4 y0 Z5 b8 }7 _% [
         RowBox[{
$ d( @1 |1 b7 Y& x          RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
0 [+ a9 E& b+ t, V! A       SuperscriptBox[
, R' N0 V* g* b) Y9 z; B8 U        RowBox[{"(",
0 L: X' j& d2 f, k  ]         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
4 A8 W4 Q8 _5 L4 U7 c7 c  F0 A( |       SuperscriptBox[
, M! G7 H- \" L  e+ M0 X        RowBox[{"(",
1 Y# M- B" ^7 k. b( p         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",   O% |1 d# w) S0 ^: ~/ q
       SuperscriptBox[
' k. a3 ^: m* s        RowBox[{"(", 4 w; |% C4 C  N: a7 V
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ( E& l& y% Q7 r) s+ H
       SuperscriptBox[+ U, p" `1 R/ }4 ~. j
        RowBox[{"(",
$ B" T" o& q7 s0 O5 R  c         RowBox[{2 ~. _% G, p  K5 z  U
          RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 1 k1 w/ k! x" y7 U
  "-",
; t& e, m" A) G  RowBox[{"0.2282993884666894`", " ",
. [0 S! D# V. p   SuperscriptBox["\[ExponentialE]", 5 A5 l: d& g! `0 t$ h: K: l6 K! e4 O; m! q
    RowBox[{"3.141592653589793`", " ", ! F$ Q6 w) N5 B' V/ {8 f- h& j
     RowBox[{"(", " G% D: ^! ~0 Y8 ~5 T
      RowBox[{, P" d4 m% W. _
       RowBox[{"-", $ v+ W4 R( G9 |! `. S( _% T. d! Z
        SuperscriptBox[9 a2 }) W6 A$ M& A
         RowBox[{"(",
& D, n% I. R1 ?' ?          RowBox[{
! M6 @! e: T/ \8 D( b           RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
7 b+ |$ ?$ k7 C0 i8 c       SuperscriptBox[+ r* z' [! v. J: D/ t& V( ?% @0 r
        RowBox[{"(", ; Z$ [) G" ~/ H4 J! ]3 m
         RowBox[{, `& k: N- M! B; K
          RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", 8 I3 O5 W) p) N' P# F# n
       SuperscriptBox[
) B" ^, k- Q* }& h( @9 [( a        RowBox[{"(", 2 E0 h! ^- \. N; o. R
         RowBox[{
8 U% o0 ]$ _6 T. h" I' ~* F# X' s          RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
# \" c4 ]* d, a! c+ p, l1 N& Z       SuperscriptBox[
# G4 f3 f8 t  \        RowBox[{"(", 7 O) ~2 u: P3 x  k# I
         RowBox[{8 L6 a. \" X4 ~+ @9 q
          RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
! W2 M8 G# h' a0 C" t2 p; Y' X       SuperscriptBox[
" s, d6 q4 B5 K6 D1 {        RowBox[{"(",
3 c; n; {5 h3 h/ d4 C         RowBox[{
) _$ w' Q( b, R) w2 x          RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
1 `! V% ^8 q8 b5 T& O; N& h       SuperscriptBox[
* e* u0 r6 r# f' w9 r  A3 J. Q        RowBox[{"(",
) ?) o, H- e% K4 P* p% i         RowBox[{
  _6 i" A- }) d          RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
, h7 j( Q9 s- G8 `3 J( O       SuperscriptBox[
. m  G1 I) }6 Y0 J0 D+ ^4 t        RowBox[{"(",
8 `% R6 C) p  S8 a: _6 r' K4 t         RowBox[{$ B3 M, Z$ W" q! L) |2 L1 e2 r
          RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
! S3 _( O  R$ s* f3 l       SuperscriptBox[9 M3 X9 O0 U1 B
        RowBox[{"(",
/ F6 C+ z& e6 d) x$ V' L         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 7 [! E4 \: T4 L' n/ u1 B
       SuperscriptBox[; f9 D5 d* E/ b/ f" D) ^# }+ @8 }
        RowBox[{"(",
& k* `( b/ Z/ I/ `% g         RowBox[{
4 ~/ V" l6 R; a! X          RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], - e. H( D: U( H" F
  "+", * K7 B0 ~7 {0 C) ^, r
  RowBox[{"0.27551257162880227`", " ", 0 o1 K1 I4 m% m, L% D
   SuperscriptBox["\[ExponentialE]",
6 P2 f- [4 C4 O) s    RowBox[{"3.141592653589793`", " ",
0 S6 F7 e6 a/ `& W8 \     RowBox[{"(",
$ {! V3 }6 h! y/ ?& a      RowBox[{
& N. l' \+ j! V& p       RowBox[{"-", : K4 X5 r5 V' e
        SuperscriptBox[3 A" b: B& T3 W1 a
         RowBox[{"(", & d  N2 O$ B: n6 o
          RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
  N! M/ ]7 N. Z+ ^8 F* x- p, k! G1 f       SuperscriptBox[
$ _# I- |+ w: }: Q        RowBox[{"(", ; d3 B5 K1 b7 O% H
         RowBox[{7 m; @' o) |7 ]% i/ [9 g
          RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", 2 ?/ n; h* a3 p# M( F# Z) B0 s
       SuperscriptBox[
+ q% f( u% x+ _* o        RowBox[{"(",
. W; X, k, y1 {         RowBox[{
# ?/ \* }1 e/ `4 b! ^+ ^          RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
% k5 n1 f" _# x# v6 R6 Y- p( x$ `3 a& W       SuperscriptBox[8 i' n# }, Q: Q+ W: b$ d) N$ u
        RowBox[{"(", ) a' L6 |" G. R# U* z
         RowBox[{/ D9 t! u/ Z0 `' @$ O
          RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", % L8 v  @) t, c/ |1 O% X$ v$ n
       SuperscriptBox[3 t- I: @; ~3 Z3 K! u
        RowBox[{"(",
# v6 V1 [1 X( n8 o' `2 ?4 v  g4 B/ {         RowBox[{8 F% w0 _$ ?0 d  h: a0 p
          RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
9 s- k; I0 \  I9 q% J& Z$ w/ Z       SuperscriptBox[
7 p( z: t5 C4 Y6 B        RowBox[{"(",
3 t7 k$ L& k; f! p5 \  E. Q  v% ~         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 1 k5 ]) M2 k7 V0 w6 s  V3 z
       SuperscriptBox[  E5 w9 V7 A& b
        RowBox[{"(",
. ?* [" K$ D& w) j, S; K/ Q         RowBox[{
* w, n* _5 c6 ~4 t% g8 E1 r          RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", 9 V3 u* i. n; @% k. D: r4 u$ s
       SuperscriptBox[
% o  i. @- _. r        RowBox[{"(", 3 H+ {- J8 |" P* r" j% r. }
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
: ]7 }& n# A' I' j! i1 O       SuperscriptBox[* N" k/ A7 m3 ^; x9 J) [
        RowBox[{"(", & h  Y1 L" n7 L
         RowBox[{
+ T; B3 @$ c* ]) ^9 m: G          RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], + |2 I  e7 Q7 S7 H3 ]+ r
  "-",
6 A7 w, b( C1 V- L4 U/ o$ m  RowBox[{"0.12620581913715245`", " ", . i- H; V7 ?5 `/ E7 g# l/ W, s: n
   SuperscriptBox["\[ExponentialE]", ) D( U' O  Y1 P1 ~# d$ n" O- x0 n
    RowBox[{"3.141592653589793`", " ", 1 W  Q7 L! h1 c
     RowBox[{"(", $ M! p; J/ ]- R1 U
      RowBox[{
5 U, m: D7 Z5 {  d  ]* k       RowBox[{"-",
$ W; J# u+ P& B: q5 H& f3 J        SuperscriptBox[
0 U+ e* X" j. n7 y: \         RowBox[{"(",
) c' i) `$ x# t6 |6 k, U          RowBox[{
9 F/ I& t: N; s- Y" p/ {+ n$ X           RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
+ M1 s, e7 a5 V/ z2 p% T       SuperscriptBox[
$ @) S) D0 [/ k  t        RowBox[{"(",
. f5 \9 `. q" {0 k6 O         RowBox[{7 T' |2 F' E2 t. b  l5 ^3 {1 k
          RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
1 ^( f- C6 ^5 y1 ?       SuperscriptBox[
1 a/ n1 L6 z& m4 H        RowBox[{"(",
7 L$ C# D# B) s! ^         RowBox[{
3 E0 s% }" f" _6 f/ j% f          RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
. K7 z  j  }' G" o8 U1 D0 p       SuperscriptBox[, Z. L' }! r- g2 ~* t
        RowBox[{"(", 5 @8 G7 d9 `9 S/ J) h6 N
         RowBox[{
$ V" e  x& S$ @9 b; w          RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
0 i/ I0 H; w4 q" E: s2 W7 n3 W       SuperscriptBox[, m3 z8 O" {( V, d: Y3 @$ K
        RowBox[{"(", : O3 O, ~; S5 b
         RowBox[{
2 J0 M2 f/ c/ g+ }          RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", $ N7 _) V. v. I6 v
       SuperscriptBox[
* ^) R* x% c" e        RowBox[{"(", + y3 t  a' Q7 z3 q7 i
         RowBox[{9 O# k4 R6 ~. V8 J: t+ U
          RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 7 N+ {. \2 \0 V
       SuperscriptBox[) G- e9 S: I$ q8 w* l3 M4 Q
        RowBox[{"(",
8 V2 f; Z2 e! ]2 z( Q         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
, c; P' `$ k5 Z. P" f% v( B3 |0 A       SuperscriptBox[
& }( x/ `/ U/ J        RowBox[{"(",
# {; ]& z0 z# x4 `) z3 O- C1 x         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 5 N* H* x, F7 W; `
       SuperscriptBox[
" Z/ W' g( H. y8 ~- ~. I        RowBox[{"(",
/ T4 {! ^* j& b. z         RowBox[{8 `4 i. d  ]# ^8 Q* p, ?, L
          RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 4 Y& _7 q+ [* O0 c6 ^& m& A
  "+",
& b" s) r5 r+ k& h; [) w  RowBox[{"0.12782130225993923`", " ", ; M, G4 \; F3 q# g9 F
   SuperscriptBox["\[ExponentialE]", 7 y& N" }8 W+ K9 r) b  d! p9 Y
    RowBox[{"3.141592653589793`", " ",
7 w% U7 o) R4 h1 K6 ~     RowBox[{"(", 2 Y2 a. C8 S- U- M
      RowBox[{3 @. T2 O' u: L( Y  [% p! ]
       RowBox[{"-", ! \: W( S, E  d
        SuperscriptBox[+ b, J" P3 Z, O7 t# z4 u! o6 [
         RowBox[{"(",
; l, a! e6 J+ n          RowBox[{5 m2 h! Y6 c! S! w. z3 i) R
           RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", ' s8 c  r& G: F, k
       SuperscriptBox[
6 L) }+ b* U0 L2 b& |; ^; D, X        RowBox[{"(",
0 [1 J0 k7 v+ V0 w         RowBox[{/ P2 d  E9 p. T7 Z' v; Q6 J' H* A
          RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
1 s% F  Z8 V6 s- {8 u' }$ t7 _8 d       SuperscriptBox[
' p5 G7 q" c( g- d3 o        RowBox[{"(",
/ r' \# Q% T1 A% ~& A/ U& Q- G         RowBox[{: V* ?# a4 A: \3 o- i0 \# o
          RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
# e4 V4 N" S/ l       SuperscriptBox[; q* K# e& \, O3 W! I7 h
        RowBox[{"(", ! `9 I; P9 Y. ]5 r' @
         RowBox[{
8 \/ r1 K7 U1 Q, h+ o+ |          RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
  O) e2 b5 @7 X, A" Y       SuperscriptBox[
4 p* G( {) t3 H: \7 R        RowBox[{"(",
! p4 y* T* x* d: a9 U         RowBox[{
% g, g' i6 S6 e) s          RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
, p! C% _3 e- d$ {       SuperscriptBox[
) o* M! ^* q6 G$ p        RowBox[{"(",
. \& F4 W9 ?% l8 f7 r' }3 V         RowBox[{& Z: n. E/ j( J$ C
          RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
1 K3 u1 g$ l; V$ ^6 R       SuperscriptBox[
0 T/ R  o5 h* u        RowBox[{"(",
, ?$ Z' n4 u9 Z         RowBox[{' m) m1 h/ _# f! K
          RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
* D) s2 |& Q: E       SuperscriptBox[5 ~! K2 o8 K) }, ?% L- ^) g; z
        RowBox[{"(",
: B# L6 t6 M5 _, w. Z5 x         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
( f2 Y" x2 w5 p$ k$ g       SuperscriptBox[2 U8 d) \# r9 t9 t$ a7 i* r
        RowBox[{"(",
& L8 S  ?+ o0 R7 U8 F         RowBox[{* L/ ~9 E0 z7 e  `, h, t& M& q4 g
          RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
, [. T+ h/ l5 R9 W8 J1 Q% q  "+",
3 n" W8 k! m; q% `  RowBox[{"0.2361524780938108`", " ", * N2 a2 J$ ]3 r1 s3 w
   SuperscriptBox["\[ExponentialE]",
; T- Q' P) R6 {/ n: L    RowBox[{"3.141592653589793`", " ", " ?; P, t5 s5 ~' x. f3 d
     RowBox[{"(", - N9 k( A) j' w4 I, a7 w! l
      RowBox[{
  S' \, `! m8 u" f5 ?( `  m0 S       RowBox[{"-", 3 a% x2 m% f: k- g; k* {
        SuperscriptBox[5 s; A2 e9 F: ]) G+ [7 L
         RowBox[{"(",
5 p, v% j# b  B' |          RowBox[{
  h; {# j4 T% E8 p/ D           RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
" L5 d1 ^- M( S) z* N, P1 f5 T; }       SuperscriptBox[
2 d  Y' H& E1 h9 a        RowBox[{"(", ) S0 B9 R9 E# d/ M5 ?  C
         RowBox[{; T+ x- L. \) `+ p, p- \4 j
          RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
* m3 Y+ a6 f1 N, f. Y3 T& Y       SuperscriptBox[
2 F. h# @+ N) T        RowBox[{"(", : s3 m) T, \/ J3 a& Y/ q) x1 h
         RowBox[{
5 f5 t/ R1 x5 \. k9 V: ~8 `          RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
" H; v& F  Z, J" c' V- v: W3 _3 Z       SuperscriptBox[  H; ^% J0 V( j+ x7 y
        RowBox[{"(",
/ R" U/ o3 p5 @/ t         RowBox[{
4 C$ \2 h1 J- C& `/ A& \          RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", " y+ f( \- {/ z# z
       SuperscriptBox[
6 y8 E1 }  T: S: ^0 o2 I* Y% M        RowBox[{"(", ) s, F$ r" s# }, A
         RowBox[{6 c: B+ S- J0 j
          RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", $ n4 M8 x( s( }1 z. L/ q, Z
       SuperscriptBox[
5 i" Z" Z6 p7 Q; F        RowBox[{"(",
' U" M- s3 O% E5 G0 E6 ]4 ?         RowBox[{
# Z/ b( ~! J' `: Z# g          RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", 1 _5 j* X/ b- q, P- ~8 f9 k
       SuperscriptBox[
2 Q/ ]( p- z6 X, _; ~        RowBox[{"(",
0 N: A& O/ f$ A         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
9 I. v- U4 I: ?       SuperscriptBox[
7 `6 S, w4 p( U! {/ ]        RowBox[{"(", 6 o1 z% M9 A1 Y& r; y$ n% _
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
( s2 b% @3 u' x0 P. p       SuperscriptBox[; X! i! c( M, {" x% t& z
        RowBox[{"(",
, T3 ]7 a8 t( [/ I4 k         RowBox[{
; Q, L. p5 F9 d+ w9 @% ]4 w6 a          RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], $ f! w: d4 M" n2 t2 {2 k: N- J
  "+",
0 k  b$ |$ m6 Z9 @9 U  RowBox[{"0.3207174990295839`", " ", , J% `+ Z* A/ u* Z  D6 x8 W" ~
   SuperscriptBox["\[ExponentialE]", 6 B( {+ o( f; ~6 z4 i% J7 d
    RowBox[{"3.141592653589793`", " ",
& h, f' k' V3 {! {, q; V     RowBox[{"(", 1 d8 F& b3 m: l+ S; q. P
      RowBox[{8 o$ w1 t3 t9 P6 V
       RowBox[{"-", 4 r* `3 P  S8 r
        SuperscriptBox[
6 m* C/ o/ E" P         RowBox[{"(", : ]# m0 \8 ]) S2 J! B1 Z- q9 u
          RowBox[{  [7 I; Q  U0 O: Z& F3 E' L
           RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
" S' n3 h" N3 V1 C0 ~, n       SuperscriptBox[( \: U9 T9 Y, d. I. n
        RowBox[{"(",
2 ~( x* g6 Q2 O/ V, i  s- K/ I' j         RowBox[{
5 t2 t9 t# [+ E2 x' |) @' D( J5 {          RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
4 j6 f  g9 x- Z+ a       SuperscriptBox[; y7 i9 I6 @6 v) v- D
        RowBox[{"(", 7 z6 L+ ^; W# B; o5 X6 y) N
         RowBox[{
, B5 k. Q$ @6 H0 ]6 F          RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", 0 n- Y( w6 _6 B
       SuperscriptBox[: u4 a  A& o. Q- ]
        RowBox[{"(", ' L' O$ g$ Y8 d' `7 T8 V
         RowBox[{7 J  D! U0 v% h/ F
          RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",   S  x# `! y0 H  b% v) M% N
       SuperscriptBox[
" x& R; l8 Z* T1 |  j. n        RowBox[{"(",
8 z, Y( f# B9 C" f$ p; J2 N# z         RowBox[{" X: V; T9 E4 }9 m9 h
          RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
4 z1 v0 \! p# g  B( b# S       SuperscriptBox[0 X. R2 y5 e9 F" m, @7 E, N* x
        RowBox[{"(",
  A  r5 S. `7 x/ b7 t         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
1 k: |  _8 f" f& _3 [) e       SuperscriptBox[
& ]7 h! i) g9 J  d        RowBox[{"(", ! F5 s; [& H5 s2 l7 B
         RowBox[{
2 g; e' x( q* n- g- B* M% |6 |& I          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", # S1 w! J0 f1 W7 Y
       SuperscriptBox[, k3 ]8 O+ j! o- P" O
        RowBox[{"(",
( u1 K, L# ]; S" p! r/ `         RowBox[{1 a/ X( ?& G& F( Q4 x9 r9 U
          RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", 3 o" f! y; W# B% X) R$ }$ i% c
       SuperscriptBox[3 ~+ b! }* W5 J5 A$ i) F
        RowBox[{"(",
( h  v& ?; |4 [" d0 @         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], " x1 x" Q* Y# {1 X  p0 l; E$ S
      ")"}]}]]}], "-",
$ Z, t6 w- e6 A! }4 |5 B+ |+ J  RowBox[{"0.15852708848338315`", " ",
/ E- M1 q5 K! l" D' v% [   SuperscriptBox["\[ExponentialE]",
0 K5 @- Y" S% d" B    RowBox[{"3.141592653589793`", " ",
* f5 S! \6 x8 ?3 c     RowBox[{"(", ' ^- ~$ F& [8 U7 r
      RowBox[{! B0 K7 z' S  f3 z% M
       RowBox[{"-", 3 x1 a1 ?: m4 C) L  V/ f
        SuperscriptBox[" [. n* u/ c2 i" B: W5 z
         RowBox[{"(",
/ V7 S* w$ C' @: ~/ `4 i, g, o          RowBox[{
7 P% K5 B. p* M6 ?6 U; p( r# x2 P           RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
. p5 e' G: ?% V! q: p+ K       SuperscriptBox[
( m: @4 S. r4 @! M" _/ m        RowBox[{"(",
; @  O# [- h7 B0 f3 n( ]7 y         RowBox[{
8 S- X" w0 g7 R* b6 `          RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
% N0 @  R, d% s8 I5 i# T( j       SuperscriptBox[3 o* B  Y$ W& T
        RowBox[{"(",
! v" V1 P+ N% e         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", ; G2 W/ Q  h8 B
       SuperscriptBox[
, [3 t5 U$ S- i- r3 `" E        RowBox[{"(",
! z! m6 s% j+ `: n9 J, K         RowBox[{
- {* ]: A: m5 }$ J9 w6 j3 z/ r0 h! Z          RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", & n. T0 M5 H) X% u/ \' N& }3 F- T$ [
       SuperscriptBox[1 }2 o: _4 w6 g- v# T
        RowBox[{"(", ; H+ j' C( y; m" k( I
         RowBox[{" d, u( Z' U8 g! F1 I: V
          RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
- V9 [8 R. \% B" z6 ^       SuperscriptBox[+ Z* x5 n9 B& L' J) W/ y
        RowBox[{"(", / ]2 s3 x- e9 ^3 G1 w/ i
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", & }. l) A7 y1 Q. A3 }. D
       SuperscriptBox[
7 D8 q) {6 A9 i8 ]1 K, B        RowBox[{"(", 1 U0 ]3 `6 v" p6 T( B9 e" w" U( C
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ; r# `( H: Y% A+ g4 |
       SuperscriptBox[
! ^) ?/ {  I4 ?! b- L$ `        RowBox[{"(", ; W; ^+ u- z, i. C. T9 N* O
         RowBox[{
" Y0 U1 l' H9 x& {( h& e& o- p6 w          RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
3 J( p0 f" T7 ^  G4 N       SuperscriptBox[
: _7 ]% y4 Q; y+ H6 i9 G1 \        RowBox[{"(",
, r) ~$ e2 j0 x4 @! V         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
5 B& n* t- |$ Z: f      ")"}]}]]}], "+", : W) M* ^) a  s5 }2 s, f3 Z
  RowBox[{"0.6019775648968265`", " ",
1 ^  t$ P& A! W# Z* U   SuperscriptBox["\[ExponentialE]",
) h5 p9 {! a3 c7 m* L  R    RowBox[{"3.141592653589793`", " ",
4 x/ w* F! N8 N5 Q0 P     RowBox[{"(",
/ W- u4 |+ q  o1 p4 q) D  B7 h      RowBox[{+ Y1 f' ?# t8 A6 E4 d# V
       RowBox[{"-", - F) E3 U4 _$ x# f( M+ l
        SuperscriptBox[0 l7 j/ w5 I6 [* R1 d6 ]6 ?# V
         RowBox[{"(", , K* i. J, a. v# M3 Y' V" ?
          RowBox[{
( {2 j5 t. o3 T/ v7 s( p1 v4 ^           RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", 1 S) O. `9 g, I  p- G
       SuperscriptBox[3 t$ h' `0 S1 k( F. V
        RowBox[{"(", 5 ]% k5 L, P8 V
         RowBox[{4 Y% F3 O( W! x/ P  t
          RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", - }( q2 I: Q+ {# |' ]7 f% V% X: C: `
       SuperscriptBox[! O4 q$ w' d+ j5 z( `" `4 N+ I
        RowBox[{"(", . ~* l4 O, x* m$ \) {' V
         RowBox[{
. y3 i) h! C5 `# M          RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",   A6 e, l8 d9 k( \, q
       SuperscriptBox[/ X+ ~1 e* g2 F. ]- z9 u4 }
        RowBox[{"(",
# M/ B0 |4 O. V2 R5 G$ d" M5 {& s- `         RowBox[{
: @, B1 V$ k4 A' L" ^% h          RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", 2 @( u0 l* O8 W, z( |9 Y% L) O
       SuperscriptBox[' ^: ^; r1 V5 }: j3 u% b, M, J
        RowBox[{"(", : l7 B3 e- A" `
         RowBox[{, X% V) ?5 K) M, j# F( ?
          RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
2 Z4 q0 O9 N; w% V3 V       SuperscriptBox[
- d  M- a4 o0 R( h        RowBox[{"(",
' i" R6 f8 Y/ o7 h4 e5 t         RowBox[{1 z9 w  ^' N9 v
          RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
) Q6 W" p8 P) f, E       SuperscriptBox[; O7 O6 Y+ [* c4 D6 s6 X
        RowBox[{"(", 3 E" y8 m3 q3 x  G2 P  y
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 2 s3 a% t: D5 E' I
       SuperscriptBox[$ E) F& @, U1 ?( Z- L# W
        RowBox[{"(",
3 c7 Y; b7 \3 Z* T& F* b$ v1 Y" M         RowBox[{
% I' _- K0 J3 v; m6 X. y3 u          RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", 6 P" v. j9 l) i& a
       SuperscriptBox[
0 }0 m3 M4 m; f1 _3 C* d6 u        RowBox[{"(", 5 S  ^# V4 x0 q1 l; E! j8 ?
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
9 H0 Q( I4 a3 g3 S$ J; A  |, d: B" v# h/ J      ")"}]}]]}], "+", * e2 h. ^! L$ q  J- E5 k( l. h5 J
  RowBox[{"0.16041393254115022`", " ",   [, S: l& D# V. p/ M  H3 {7 Y
   SuperscriptBox["\[ExponentialE]", 2 m0 Q& N- h0 j# U8 B- }- l
    RowBox[{"3.141592653589793`", " ",
2 U' `( K0 ]& }1 |  A3 o2 [( ^! y" Y     RowBox[{"(",
! ]: Q% V" R6 d) O' Y5 k" }      RowBox[{
* W" `' N& \. Q; }8 A4 n       RowBox[{"-",
* R6 s0 D& \/ l' h        SuperscriptBox[  k7 r6 z! H# f; f4 s
         RowBox[{"(", 6 ]% _+ V: L. l- u
          RowBox[{0 x& u+ h3 ^! }( Y, `9 x) {
           RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", ( F# x; V/ w! d. T' p( }) C
       SuperscriptBox[, L" F' h% e$ M2 r7 q
        RowBox[{"(",
/ {. J$ w( l+ X0 i# j$ r4 D         RowBox[{
9 s5 u$ ?; i/ v* w% o/ @          RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", 5 s2 Q1 \& X: _/ k
       SuperscriptBox[
' G; P1 U! M  E! s0 v% X        RowBox[{"(",
- v9 d' p# Y( t" _' R2 d7 Y         RowBox[{
( @: a" y  h4 v' w          RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
. z% e2 E1 A% y  A3 D( Z       SuperscriptBox[
0 {* }# j& ~4 d; ^0 O  }$ X2 f        RowBox[{"(",
: _+ I- W& }8 L' T" |" M; \         RowBox[{! [; \9 w# o8 A6 ]% Q
          RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", ; u7 y- g6 l& u+ T) ~
       SuperscriptBox[
! m: L: J" }) N, E+ B$ F1 V        RowBox[{"(", & S7 n6 R; A9 b, g, u: u
         RowBox[{3 {8 a( i  ?8 a) S% d) A# p+ ^
          RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", 3 L2 s: e$ e: U  s1 `
       SuperscriptBox[8 `% n5 P+ s8 g$ G  A
        RowBox[{"(",
, n; Y* Q3 z* i         RowBox[{; X7 A( M- [! x
          RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
$ S1 n! O* G6 |       SuperscriptBox[/ R: H) x9 f7 ?8 \, t4 _
        RowBox[{"(", 9 c9 R! W0 D; y+ E
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
& R2 O9 ]9 e* `  O4 x       SuperscriptBox[
9 i  ~2 R' R4 |' K        RowBox[{"(",
' C0 m3 \. {: y/ l         RowBox[{& V* p9 {4 u% J1 t5 ]1 d9 h3 N" Q
          RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", 4 ?& g5 M/ O5 ?. A
       SuperscriptBox[4 p6 k) |. b+ I$ v0 I1 b/ k
        RowBox[{"(",
- ?' S$ r4 o$ z/ e* L         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
1 O6 H6 Z+ c" w. v4 ^6 ?      ")"}]}]]}], "+", : B- v( ]* ~' R7 x5 p* J0 ~' i
  RowBox[{"0.48228184971363947`", " ",
! d* {+ O3 n3 S7 [   SuperscriptBox["\[ExponentialE]", ( Z2 {4 @$ [. N# ~+ G
    RowBox[{"3.141592653589793`", " ", : S9 X( Z( |, A, X3 x
     RowBox[{"(", 6 ]1 }: W  _  q; ^
      RowBox[{& @6 o. J. K, l6 C9 {) C: }
       RowBox[{"-", : g' b& F8 ~$ q
        SuperscriptBox[. N3 p$ Q7 o1 Z* J) n; h
         RowBox[{"(", 7 n) G* v% m6 d; N1 H
          RowBox[{# C7 [/ `1 g3 b( P3 Y  F; M
           RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", & u) J  n7 q( S/ k
       SuperscriptBox[$ W7 G: n2 U* H6 q0 J
        RowBox[{"(", % ]+ G% F7 w$ Q- A  ?
         RowBox[{
( A. r* l! N8 M7 V, T! J          RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
. g# ]9 @8 z$ l# @       SuperscriptBox[' B7 g0 W' I! L- s0 s
        RowBox[{"(",
% F6 m/ t" F0 d/ z" M1 u- O         RowBox[{
+ P- {/ P; E# R          RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", 0 f, p  |* D* ~* w
       SuperscriptBox[) z- W5 l- ]- J8 a7 z7 J/ F
        RowBox[{"(",
5 @. L% \! C( v6 X8 ^8 k8 M         RowBox[{
; ~( O: k7 j& ~5 t* A          RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", 0 f+ E/ J' ]# ~% [* V9 h
       SuperscriptBox[* `% S; H2 T# P# c
        RowBox[{"(", 5 ?% a' d; c+ Z* @
         RowBox[{
* j( H8 `% a% }' _          RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
1 `% c" }3 h6 z2 X, y6 G( |       SuperscriptBox[) M" a8 k9 `$ Z; q% e2 c
        RowBox[{"(",
  I* ^* H8 v3 b: N# `2 `' e1 x         RowBox[{
7 m3 g5 N! e: M1 D# H1 N          RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", ! T7 J1 N8 h1 t  z: z" s
       SuperscriptBox[& Q& u3 a7 _7 i9 Y9 a
        RowBox[{"(", 2 a' M, Y' j2 \, @4 `
         RowBox[{6 A. S! \$ W/ W' H( q6 l5 U
          RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
4 j  i: I$ `# }* q7 \+ V# g' W       SuperscriptBox[
! O! l3 a/ L3 J4 Y4 Q        RowBox[{"(",
5 M' H% c* x3 x         RowBox[{. |4 j. x1 Z! t8 a- ^0 I
          RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", - k9 ^1 T7 U, d6 o4 z
       SuperscriptBox[
+ `! k. |# D! ^9 w* }* B1 [        RowBox[{"(",
2 x3 S  C2 J' b# J0 j  a8 M: \- Q         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
% _6 x6 t' _4 _, Q( l2 u4 V      ")"}]}]]}], "+", 6 P5 R7 J( i; M9 v2 r1 X
  RowBox[{"0.2954923840077215`", " ",
; P) K! p" {5 U# T  l, \+ \   SuperscriptBox["\[ExponentialE]", 2 ^! W9 H; ^" @, ~. |* m! A# P! L
    RowBox[{"3.141592653589793`", " ", % ^  E% G/ s# `" `- J0 r
     RowBox[{"(", * |8 Q$ w, S( K# t5 H
      RowBox[{
# V/ H5 j  u/ e( J5 A% p       RowBox[{"-", : {& z0 x: t( \
        SuperscriptBox[/ a) M; @2 [' S  m
         RowBox[{"(",
( `/ E, \' d6 Y3 }: W          RowBox[{2 Y( k- m5 s+ S1 b1 w% M3 P6 y
           RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", & e( ~! Q$ A+ c) ~$ h$ d! v7 l
       SuperscriptBox[
! U2 B$ l* c9 w% t4 U        RowBox[{"(", " N- m* g6 H/ S; x* ^. j! r
         RowBox[{
* @# [7 G8 P$ P" t          RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", + k( t1 V- A. i% i) g2 V2 q! K
       SuperscriptBox[
3 n- A# t$ r) O' o, @- S' m        RowBox[{"(", ( Z" @/ h( F. x$ D7 y; F4 p
         RowBox[{
+ ?0 A" _( {- A2 ?7 T$ u1 x5 [  R( l          RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", 5 F( ]6 l; r; T7 {" U7 }! ]
       SuperscriptBox[& x4 [1 v5 T( i0 G* V
        RowBox[{"(",
9 G9 L9 S# k8 w: r7 L         RowBox[{
& u) y2 F3 d9 L. Y7 Q, X2 [          RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", 7 A1 \% I! v7 V7 Y( \, l# |
       SuperscriptBox[+ l) i; h( p5 A0 s0 D
        RowBox[{"(", . }! M2 E( U9 R+ L) w
         RowBox[{
; j; L' `' T* T3 t' t          RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", / l8 |4 W) a1 w' X- c% V* H
       SuperscriptBox[+ i& {/ n3 }6 v- c1 S  t
        RowBox[{"(", 5 ^/ U) x$ o6 q& w
         RowBox[{" i, y( \, g* ~: _% X5 f
          RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
& p6 N7 S1 d, v       SuperscriptBox[
! ]5 k( @2 m4 v! K" h' X        RowBox[{"(", - E/ o! `  G- f: a. p& x+ V) F
         RowBox[{
0 c, i- r( T$ g- ]+ _          RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
) r4 ~, w  ^$ g5 V) x/ X7 B) f+ l5 r       SuperscriptBox[
! U" B. O4 J3 q" k        RowBox[{"(", 5 ~7 l3 p) f7 W4 {
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 6 m+ a3 }; M$ Z9 Y. z
       SuperscriptBox[
* d% D3 V' x8 o  C        RowBox[{"(",
7 K% ~* i! s! m         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], # y: U3 v0 ~- M; _9 c7 J+ p4 v
      ")"}]}]]}], "+", " o8 V& l. P9 G
  RowBox[{"0.3129687276967983`", " ", % \$ e9 x1 C0 m8 i7 V/ U7 x
   SuperscriptBox["\[ExponentialE]",
, B5 \3 k9 ]( S3 T0 h" }2 M    RowBox[{"3.141592653589793`", " ",
! `$ C$ r2 k, ?+ r     RowBox[{"(",
: c/ U4 d# f3 g9 j% S, Y# ^      RowBox[{
0 q- l" A6 }; h7 S& c       RowBox[{"-",
- l0 ~! g% i! Z        SuperscriptBox[4 t: \6 f9 ?0 R% y! F
         RowBox[{"(",
' X5 ]8 P  B/ k          RowBox[{; V: |5 y1 t6 o3 t8 X% u. g; }
           RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
9 R2 ^1 [+ _5 \1 R       SuperscriptBox[5 I! s' i; r, c4 L* R. H
        RowBox[{"(", ' O5 V0 R; Y: }8 T$ V
         RowBox[{
9 [( M" i) d+ t1 w5 v" M          RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", " B, U8 ]8 s, H! x. n
       SuperscriptBox[
  |# [3 @* {5 c: O        RowBox[{"(", - M3 F8 Y. |$ _% }! X, K
         RowBox[{% U. x8 T+ l6 g5 }
          RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", 4 z5 J8 f7 o  c& e2 b& ^
       SuperscriptBox[5 `6 F0 }" X4 x- k( z7 }7 `
        RowBox[{"(", . J7 X( X& b3 C0 b' k  S
         RowBox[{" F8 k; f& E3 `2 l3 j& t
          RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
- G! Q/ ^8 r* ^1 N0 w       SuperscriptBox[
# f' R6 k7 ~+ L  A) I        RowBox[{"(",
) C' X& }8 b) W$ R/ l) f- X5 }         RowBox[{
+ M1 T- a- ]/ y1 T+ d5 ^  P$ h          RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", - t7 s9 f& P4 v( F2 }
       SuperscriptBox[1 t2 }; M1 d$ g$ H" g
        RowBox[{"(",
9 W, R6 x# g& ]) K0 p         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",   Z  |" K( u' C# u, O* x; ]
       SuperscriptBox[/ L1 b5 T% o# n) m6 S
        RowBox[{"(",
! {' i) P) L; Q; t         RowBox[{: c) R  y2 l2 `0 Y
          RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
( W+ q6 X& a/ c! v6 M8 y       SuperscriptBox[
8 o8 w% U' M9 m7 I5 j        RowBox[{"(", ( R& c* v' H3 }8 N
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 0 B- n# W$ ^3 t; r# U( ]# L
       SuperscriptBox[
1 U) t8 e! W( ?2 S5 S: [5 O        RowBox[{"(",
4 l* J! {7 Z" g+ w- }; F         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
- |' c, r3 t/ z- t, ?" c      ")"}]}]]}], "-", 2 z& m, E# C7 x- M+ @  l! `( O
  RowBox[{"0.4666313851213302`", " ", ( q  e6 _  x  j  t% f
   SuperscriptBox["\[ExponentialE]",
+ M/ Z  U7 U" z- A/ i4 r. ~    RowBox[{"3.141592653589793`", " ",
( l& ?# H9 x: k6 i     RowBox[{"(",
, u- E+ S9 G  y: o) o      RowBox[{
4 S$ R$ F% X6 |0 b* {) L. e       RowBox[{"-", 6 s( t! I" D% T" u+ N5 }
        SuperscriptBox[
3 c8 D1 I3 t; N         RowBox[{"(",
4 c2 c$ \5 k2 O; e          RowBox[{) `+ {; J6 h% w* f
           RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", 4 ~0 ?. q- I! S) Q+ f
       SuperscriptBox[; V3 q' G- a& j; Y
        RowBox[{"(",
# K5 H1 Y7 t$ Z) b, y! j. S9 c7 E6 G) H, W         RowBox[{/ x. ^7 V) x/ |% P3 |# k
          RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", # j5 A  L: I) T( U2 o
       SuperscriptBox[
9 G+ N0 |% H  H+ a8 E5 Z        RowBox[{"(",
) b8 d* m* ~5 `; ?0 t         RowBox[{
- h4 @+ d$ @; e, u( a* W8 v7 b7 v9 @          RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", ! Z8 r+ F/ o" w2 o2 A
       SuperscriptBox[3 ], V5 K; P) l& @; {6 o5 ?) z
        RowBox[{"(",
- T4 S0 d% a0 x8 n9 }, c         RowBox[{5 j8 l  E9 o& H, ]$ D) `
          RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
4 t9 t6 I6 U4 u: N2 }9 S  N       SuperscriptBox[
( e0 \" x0 K2 M+ n2 w' u3 K' V5 }        RowBox[{"(", - H% d( Z; L$ H* Y: z
         RowBox[{, ~# G0 ]7 T; ?( l( f
          RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", 3 j: r$ j$ L7 c2 L! Y+ t  W7 u
       SuperscriptBox[9 _5 {7 ^& h. a! [9 R& O
        RowBox[{"(", 4 _4 r8 y' @  L, X
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 5 R# f7 Z' e1 S( W' a% n; x7 W
       SuperscriptBox[+ I# Z+ t* `, ?$ R4 V* p( x3 y0 p
        RowBox[{"(", ) f+ h& _" K+ U# D
         RowBox[{  c3 x. r8 I: q( g. f4 ^
          RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
* z4 t, A8 w2 x3 O. ]       SuperscriptBox[
3 I& ~7 d9 U* V9 n# p8 Y0 w        RowBox[{"(", + }: H. Z4 f0 M0 E& s4 O
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
0 T7 B5 _/ f2 u' D5 R       SuperscriptBox[
8 N4 N( `- x3 R        RowBox[{"(", / H) L7 Q$ ^* Q& o# x  t
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], : L0 K$ ?6 G/ Y( W0 N7 Q9 z
      ")"}]}]]}], "+", ( W6 M+ w1 [: {3 R, ~7 U
  RowBox[{"0.3741982811661129`", " ", ' ~4 }( i9 f9 ^% y1 A
   SuperscriptBox["\[ExponentialE]",
8 g% T$ L. O" b* w7 G9 \    RowBox[{"3.141592653589793`", " ",
: G' }& ]+ V& n     RowBox[{"(", ) a' ]8 F6 ]1 P3 m" s5 i
      RowBox[{
- w9 I' A, l* j9 @" v, z- a       RowBox[{"-",
3 M) }/ `  @7 O( e) L        SuperscriptBox[/ d* B- c/ u4 c) P1 T* H, o# D/ \
         RowBox[{"(", , B* q# u  V' E" ~. l! \
          RowBox[{
$ `1 a1 C7 k' e" w           RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
4 F9 N2 S! L1 ?6 E2 s% O5 F3 f" X       SuperscriptBox[
. t8 ]0 C/ ~, H: V1 P- l        RowBox[{"(", $ d7 h% h6 d/ o. F3 m0 S8 C  R0 N
         RowBox[{) a3 ^- ^# F6 b0 D' a9 v& O) l
          RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
. ^# m" C" P& k       SuperscriptBox[
- H# w6 x) Y! V3 x. y/ X) |        RowBox[{"(",
& O2 X+ w- A8 B) o         RowBox[{0 V+ G1 A# S& E4 R, m0 J7 L
          RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", 4 P% c8 X8 d$ M! W" r
       SuperscriptBox[3 {% f+ t, x8 E1 f# a% T. @
        RowBox[{"(", / \7 A; X1 o6 w6 Y; d" e8 c
         RowBox[{& u8 V9 S6 L, m6 b8 Y9 Y6 J1 }
          RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", ! q% K/ l& ]$ H4 n7 G8 V+ R/ Z
       SuperscriptBox[
9 c7 n: {4 [7 ~# S6 Q        RowBox[{"(",
  ^' W4 d+ B8 z! i' o6 \8 J9 ?         RowBox[{
5 [$ e2 @1 ^9 v0 w/ s          RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", 3 x7 Q) H2 V+ J& }1 v- [
       SuperscriptBox[
+ d$ X5 H3 M; \) k        RowBox[{"(",
' b. A8 s/ W/ M; \- I' L         RowBox[{
1 d: g7 F1 W3 ~0 H$ L          RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
+ v; ^+ w# I; p, U; q$ E7 j# C       SuperscriptBox[
4 n0 h" p5 l& x! a8 B        RowBox[{"(",
/ e) W" ]; t8 e8 \/ ~         RowBox[{; H% Y; N- Z7 a! l* S: F4 n: ]
          RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
: Q& f7 y) O, L3 f       SuperscriptBox[
+ D# ~; i' \* |- }        RowBox[{"(", / Y6 K/ J, [" D; C; [: @
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
, @7 ]; f0 e; W9 ?: _* X) V! D       SuperscriptBox[* T4 x4 q- M7 t9 `5 n
        RowBox[{"(", 6 K) ?! R( f) s
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 5 U. ^. H' d- U( }/ D$ [3 G
      ")"}]}]]}], "+",
% I6 j# {% r. f  RowBox[{"0.5575503376854456`", " ", / P/ E. r  U( F: T+ g! F! E# \
   SuperscriptBox["\[ExponentialE]", ) ^6 s6 @; w" w$ |' G
    RowBox[{"3.141592653589793`", " ", 7 \" a9 _- z1 F; \. ]1 C0 |
     RowBox[{"(",
) U: i: i! C, P+ B0 C      RowBox[{0 M8 P' z! q1 s" K! R( f# C
       RowBox[{"-",
) O0 T! f) D3 i! ^) ^8 T" o        SuperscriptBox[- Q( g3 D- G1 q4 t
         RowBox[{"(",
8 J0 X! Z" v! C* ~8 Z4 V, v          RowBox[{
, J% \+ y7 i- b/ r           RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
2 S  X9 N9 \4 f5 M3 @       SuperscriptBox[' y6 ~, M# _* y' v1 x! u& R! ^8 p
        RowBox[{"(", ; q2 P& f9 W$ D; |# {/ [+ |
         RowBox[{
6 j3 J1 [/ e7 J1 Z          RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
1 ^, f2 w, Q; S8 y  T! R# O& H       SuperscriptBox[
& N& L! L$ C/ w6 y$ G( B        RowBox[{"(",
5 ?# k, X6 _) ?) f3 y$ i         RowBox[{  _/ D. {$ X! o$ J2 j" Q
          RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
7 f3 H- ]. @6 r       SuperscriptBox[
& \7 T3 e4 r/ |- u0 Y' Q# k        RowBox[{"(",
6 w  e8 Z9 ^7 Z" j         RowBox[{( K; X( r* d# F
          RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", $ Z/ U: D  y# }3 }9 w% O  M  z
       SuperscriptBox[& E+ y( B. z4 r4 @0 u6 ^( o
        RowBox[{"(",
) h& e& X  V1 @% |1 i         RowBox[{
/ z# {6 x9 `8 r1 n5 q% t- l  N4 J          RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
5 k4 o4 [% E0 u       SuperscriptBox[' p. \& s) \9 O# D# g1 u4 ~4 z
        RowBox[{"(",
7 x5 C/ h% A/ ]3 y( t! A5 l         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", + O2 f& E" r" O' {, Z4 p* g7 ^
       SuperscriptBox[
; t2 C% C9 L( p- J6 v9 [        RowBox[{"(", 7 ?/ i1 R, f2 J
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 5 K  I- O; ~& d
       SuperscriptBox[
. K; d6 t* U5 {' O: ~: X  y        RowBox[{"(", 7 |3 {/ u( i8 k3 T
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 5 {* S; C1 ?. N) H( s
       SuperscriptBox[3 Z+ W& A( m1 Q# [1 N) p2 M7 I2 E
        RowBox[{"(", ! q* h" R: G* _0 @- x
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ( W, C+ w7 z' r2 e+ [
      ")"}]}]]}], "-", + {0 j, z7 b+ a
  RowBox[{"0.1339854044819916`", " ",
. X+ \, O7 K" E9 o  ]% J, Q+ s   SuperscriptBox["\[ExponentialE]", ( ]% x1 X0 j3 C- Z7 w7 L4 p5 d
    RowBox[{"3.141592653589793`", " ", 9 b7 P5 V5 ?, \6 |8 H; H
     RowBox[{"(",
  u% B+ T5 D. b6 h, f) m. |" b      RowBox[{
9 f! Z( r" g9 U% ]) p' |3 n$ l       RowBox[{"-", / G& E. I+ d( {+ D3 F1 e
        SuperscriptBox[
/ X$ }- T) @% S- V1 a6 L         RowBox[{"(", 9 e! w' ^+ K3 }, [; M2 z. a' Z% U
          RowBox[{9 \, g# o. V8 n6 l0 _1 J! ~! R
           RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
# o3 u& ~" S! T) r       SuperscriptBox[" m) G! q1 ~1 ^  G4 s4 U
        RowBox[{"(", * A5 ]- V- v: L0 Y( `
         RowBox[{# b/ G1 x5 w4 S6 T+ P
          RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", 7 ^! T( a& [# v! N
       SuperscriptBox[
3 C6 {+ o3 x$ W  i+ R        RowBox[{"(",
: P4 e( P  k/ Y. n         RowBox[{
6 P( m5 y, K4 U* z          RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
0 L  U8 u1 d* ]' K* I+ ]7 v; w9 u* I       SuperscriptBox[
. p; O1 r. S7 z$ V        RowBox[{"(",   H& q' o+ c) F' X* M
         RowBox[{
6 A' v$ t) }3 C          RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", , L" V8 U0 j% E' J. @; [
       SuperscriptBox[
( g2 }' o* f6 U. w5 l8 I4 S, A        RowBox[{"(", ' \* \8 x  A% t
         RowBox[{
$ d6 a) m, i) K# y! j5 [6 y3 N, P          RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
/ J" k  Y# x: l8 @, }0 o8 F9 s       SuperscriptBox[
7 V& p) @# L% k, s) R        RowBox[{"(",
7 X: d2 o) Z. o, P" Z         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
" }' i" Q5 n, {1 ~       SuperscriptBox[
2 V# Z0 j9 `" `        RowBox[{"(", + a( B- H- q0 \% f
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ; K! Q2 D% r! A+ U; s1 q
       SuperscriptBox[
6 K5 s( }+ y- l2 N        RowBox[{"(",
, m: S7 ?6 d8 z2 Q/ L. ]8 A* P         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
0 ^/ A8 A: p! n6 v       SuperscriptBox[
! D# z# v/ R+ L0 b! @        RowBox[{"(",
" n  [( y' O6 p2 a$ ~         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], + ^) X, t" n3 B" i5 m' q5 Z
      ")"}]}]]}], "+", 0 `% `6 ~# U! G& b" ?
  RowBox[{"0.45723850991134063`", " ", , n& b" ?: T# J& v
   SuperscriptBox["\[ExponentialE]",
, x. k+ D6 a& e' Y, W3 P" V5 I    RowBox[{"3.141592653589793`", " ",
" ^  a- ]- F" _) ]$ ?. b1 D+ d. ]     RowBox[{"(",
2 |1 T0 x2 o" P. w2 E' `8 Z0 ?! c      RowBox[{
8 M0 O# j% v" D3 {, P: \4 A3 q       RowBox[{"-", 8 R0 Q2 L! u0 T) n; Y' ]5 I5 K( M  a8 x
        SuperscriptBox[
  I' v+ t4 F% W8 s+ E         RowBox[{"(", % s. r# _' O4 g; b  r- |
          RowBox[{
2 X9 T4 N1 k5 R. z0 T" s           RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-", 3 ^' O# i! Z! G7 `! ?
       SuperscriptBox[, A! k( ~  \8 K5 S1 n* b* N$ D
        RowBox[{"(", ! u. ^- y2 l, Y. }, M/ h" X
         RowBox[{
' W  A6 [% e# F3 R  k2 |& g$ g$ w+ v          RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
2 ^7 h* b* @* d0 Z  o       SuperscriptBox[& n: j( k% Y6 V8 |, r  Q; [2 o
        RowBox[{"(",
/ D% X+ p/ c6 I5 z         RowBox[{& u/ Z' @7 u3 d% F: S
          RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", : v# U+ R7 u# g! Y
       SuperscriptBox[
2 Y' P9 I4 c, B8 x8 N        RowBox[{"(",
9 R  d+ s" d: `# ?$ z1 n1 R  ~, u         RowBox[{6 d3 z! u" g6 ~9 g0 }3 B
          RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", # b+ Y6 @) ^1 Y& d: a4 Q
       SuperscriptBox[9 f; N3 V% f2 M0 y  l9 ]
        RowBox[{"(", ; w+ }/ H" I) M- E) x6 Z
         RowBox[{. @/ M7 b5 u) d* E& Z
          RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
8 R, V: k9 Q/ Z7 V       SuperscriptBox[  e: g9 c- Y) O: X- b
        RowBox[{"(",
! Z; [: b$ t- N* s         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", : g( O" E: K: c3 v( v, X" y! \
       SuperscriptBox[
4 Q9 H7 Y3 K- ]: W0 D6 e        RowBox[{"(",
) J& l. @4 v6 i* a) T' t         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
- b, O6 Y. V/ j; u5 c       SuperscriptBox[
, U( X# _  P9 l- x  \+ z+ M        RowBox[{"(",
5 O6 g" t. C+ q         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
9 I( s& X+ Q, S% H       SuperscriptBox[
* Z+ e% f( e: l* M3 H- @4 r        RowBox[{"(", 2 w- u% ^" h2 o) p8 F
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 3 a# n0 k+ q# h5 ~# P! o
      ")"}]}]]}], "-", $ m$ ~+ z; v9 e# C
  RowBox[{"0.025873988843993667`", " ", 2 ^' Y5 l. X  y2 V2 b! |
   SuperscriptBox["\[ExponentialE]",
) S3 U! ^: U) {* h$ J( j  \    RowBox[{"3.141592653589793`", " ",
" }; R: B& O, f: t% |     RowBox[{"(",
+ {/ O3 `% `( g0 p% M      RowBox[{' u% ~; o% K6 N6 z# U
       RowBox[{"-", ! e" _4 O, o6 J) z% J  t
        SuperscriptBox[
+ C, q# v. U2 f0 S; X, B         RowBox[{"(", 2 H  |$ C  g3 }# D0 F
          RowBox[{- I% g: ?4 E! Y: m
           RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", , o+ Z8 s. n! P9 `7 A
       SuperscriptBox[
8 P* b) U1 O9 u% e# D% d        RowBox[{"(", 4 K$ M8 A( v6 w
         RowBox[{6 Q* ~& J2 D* M6 g4 P; ?$ f
          RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
* C# v3 t5 a; H1 o3 d       SuperscriptBox[
& A) X* I( O* C        RowBox[{"(",
0 h: I8 ]0 R# y( ^7 \. [) F         RowBox[{
) x# t2 _: L& |+ P7 q7 k: r7 T          RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", " P) T+ n% g; |% v" b
       SuperscriptBox[
$ q5 f, ?  W" F* A6 ?        RowBox[{"(",
) Z+ x$ b/ M1 X- n2 W         RowBox[{+ z1 r( T! N5 `
          RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",   q: F9 y" S6 }+ i
       SuperscriptBox[( G6 g: N& [1 B* Y& f' i0 ~7 v# e# ~$ ~
        RowBox[{"(",
! O* V0 G. c: s7 S: i6 h8 x         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
+ d% X  K" b: m3 W5 Z       SuperscriptBox[6 D1 F9 g" X, `
        RowBox[{"(",
3 i' X1 p; Z3 O         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 6 {7 H# {' U7 V7 v6 {% |. o
       SuperscriptBox[. Y7 P: |$ p1 }0 g: H  E
        RowBox[{"(",
+ Q# |7 c+ O" I         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
4 m2 X1 r/ @. r8 p% _       SuperscriptBox[" v* L* s4 ^+ V( M, n2 @6 Y9 I
        RowBox[{"(", % k! J/ w5 y6 p/ T/ Q* D
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 6 M, _) t+ O2 d, y  f4 Q" h
       SuperscriptBox[
7 t) Z0 i6 N7 g  ]3 P        RowBox[{"(", 6 I2 G- Q7 \. y8 v
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 1 i: v% n/ j' }0 k, w
      ")"}]}]]}]}]], "Output",  x, ]/ V  y( e2 s9 C( H
CellChangeTimes->{3.577924759875*^9, 3.577924921203125*^9,
% @. `- O6 k$ ~3 d0 Z4 l0 I7 q0 s  3.5779583210432997`*^9, 3.5779585060284224`*^9, 3.577959043308958*^9, 9 p! L1 u# z" t
  3.577962317973732*^9, 3.578012448875*^9}]
. `8 x% `! C0 c+ f) u0 _}, Open  ]],
9 M4 q- e2 B( z( W. E; L
" T9 z# z0 r  Q4 U2 z3 ^0 B3 ACell[CellGroupData[{
/ A& z: V$ H' G4 ]& L
4 Y: T; p9 Z" x# i' @Cell[BoxData[
1 k# o2 w, }& J1 e! } RowBox[{"y2fit", "=", : M: b- g9 _- S. O& w
  RowBox[{"Table", "[",
0 l  o3 h" M9 M7 {   RowBox[{"x", ",",
+ H$ \/ [/ p" E    RowBox[{"{", % w; F" ~9 D8 {8 F' ]- g; I2 w4 u& w
     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
* e5 j2 {4 F- c( R; Y" l CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {0 S) [- ]$ q* |! h" T
   3.5779252768125*^9, 3.577925277484375*^9}, 3.5779583246625056`*^9}],
" s: W1 B) s  q# ^% `5 A
5 y6 x2 |- Y# B4 I5 D3 jCell[BoxData[  S7 Y& ~' E! t) J+ i- \2 P. p
RowBox[{"{", 3 v8 {$ d& i9 }) F, |3 C! W
  RowBox[{6 ~/ X( ~0 }) I9 K, Q$ \9 M
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ( i% d7 k8 Y* ^8 t: o$ ~
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",  @. I1 b; ?. Q0 u+ q
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", $ k! L7 o0 T  ~0 _, i# _
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ( T; _. A  n* b
   ",", "29"}], "}"}]], "Output",
7 t5 f, @& B; z/ X) G CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9, 3 Q2 g% W$ H/ d; G
  3.5779583268153095`*^9, 3.577958508118826*^9, 3.5779590470685654`*^9, / e  @9 c5 Q1 X$ P' ^# K% M
  3.577962320173336*^9, 3.57801245028125*^9}]" ~8 i# [6 A* L' F
}, Open  ]],
/ n  W1 t' o  p0 x. V
1 }* B; X6 i# a; `# Y1 h% ?Cell[BoxData[
0 A# x7 ]' Z$ w# _! l/ L/ o RowBox[{"For", "[", - V+ V  g0 E+ g* }$ H
  RowBox[{% H! u# E, b" J$ v
   RowBox[{"i", "=", "61"}], ",",
. |+ q; j6 e' l* J1 [   RowBox[{"i", "\[LessEqual]", "89"}], ",",
" t1 i  H) g: P5 w   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
) N( t# _: N2 R4 w! m- X2 [   RowBox[{4 o3 H9 ?5 ]% N8 {
    RowBox[{1 L) H( N4 g. T& f% v$ K* a
     RowBox[{"y2fit", "[", - l  M9 ^+ n% @( x, W" D) r# Q
      RowBox[{"[",
+ N6 E; o( z' `: L, t! ?6 M* i       RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
" T$ r3 j4 d! \4 K     RowBox[{"y2", "/.",
) i+ Z5 B6 w! b! e5 \      RowBox[{"{",
( P- C; K3 c+ j1 q0 g       RowBox[{
; M0 W1 ]) C4 R, m! _+ `& @- W        RowBox[{"x1", "->", $ h; c3 ]! M8 j7 s0 O' D
         RowBox[{"Data", "[", ( H0 c: Y$ I& J, n) n
          RowBox[{"[", 9 c* r8 d. v, H
           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 8 ]8 }; k8 i# f/ _$ U5 P) k' l
        RowBox[{"x2", "->",
; E9 l2 i& n# p. Q* T1 T1 S* Q         RowBox[{"Data", "[", " z- w4 L' u: N7 C$ U. _
          RowBox[{"[",   k4 Z3 A. i: L
           RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 3 Y5 h  |3 X4 N- M2 w3 e  P; r# B
        RowBox[{"x3", "->", ! A9 h. l* v- [& e
         RowBox[{"Data", "[",
1 N9 N; Y% `: |+ x+ x( ^4 ~8 s: ~" x          RowBox[{"[", 5 ~( N, L& y% g* {- h
           RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", , B# e# i8 f: a* F" ]3 H
        RowBox[{"x4", "->", ; L8 c3 r) E1 O. N, v# m: ^) }
         RowBox[{"Data", "[",
, }2 j& a1 F# D2 c+ x          RowBox[{"[",
. ]/ V" J: h/ Z* ?           RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 7 O0 ]$ d( A4 r$ x% r" j
        RowBox[{"x5", "->", 2 P/ l# Y: n0 R2 w
         RowBox[{"Data", "[",
4 R* A5 k$ w: H+ w6 Z( O          RowBox[{"[",
( u" Y6 }5 L% n' A           RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
2 O$ s& W! A: U! y  @        RowBox[{"x6", "->", + {/ C7 x) M+ V. z+ R' p
         RowBox[{"Data", "[",
" }% c  x+ `: H8 n* X# u7 n          RowBox[{"[",
& U0 }! h: t5 w# Q8 o: v9 C           RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
$ u  g* S# r$ }: S$ y. B( P& N        RowBox[{"x7", "->", + E# E! x, [% s8 V  `$ q
         RowBox[{"Data", "[",
" Y5 Y, B/ h- e& o3 T' q: v5 E* B          RowBox[{"[",
  I& h1 _1 M, ?7 U4 I0 n           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
% h2 l) o, \! ~3 I$ b        RowBox[{"x8", "->",
4 f6 N8 G$ H( |! ]! C; {4 I         RowBox[{"Data", "[",
; m( J, X# C5 Z: B          RowBox[{"[", / o3 Q# q, I3 `$ R
           RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
5 K7 n; ~/ O* e0 M2 X$ y" Y        RowBox[{"x9", "->",
& v9 q& f  H( ^5 F$ S7 V% p' o         RowBox[{"Data", "[",
  m8 {) Z) O) A) t% D6 v. m% j. z* R          RowBox[{"[", & n1 {, v! L2 N
           RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}], 5 h3 g- ], i( }# p2 K
  "\[IndentingNewLine]", "]"}]], "Input",. m$ S5 m( g. W/ ~
CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {) z6 B! i2 u% g8 S3 n% K" Q! T
  3.577925286140625*^9, 3.577925306765625*^9}, {3.577958329919715*^9,
8 T3 t- s2 N) X4 B% B& C  3.5779583326341195`*^9}, {3.57795892351635*^9, 3.57795892354755*^9}}],% G: V: \/ Z# ]. F! y
5 V6 Q' `6 @  s$ _0 S
Cell[CellGroupData[{3 ~" ~8 M% X( K) W4 |7 W# A
6 A% d# }, }. U, p6 u3 j/ k
Cell[BoxData["y2fit"], "Input",0 G. k  L3 u1 _  f& {
CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
8 t9 z, q4 I# V, ^$ r( M   3.577925040484375*^9, 3.5779250440625*^9}, 3.5779583419785357`*^9}]," P7 s5 _3 K! _. g/ ^1 N
" H. d' A7 ]" {; a
Cell[BoxData[5 g. R# f( Y/ H3 y8 D4 Z. F. A& n9 v
RowBox[{"{",
9 K7 }' G* y7 u5 h  k  RowBox[{
# j$ I6 d' R; T- \' G1 \7 s  "0.4853171132859182`", ",", "0.4508635216665074`", ",",
) D. A' H0 s. a, k8 O4 C   "0.3642119241752518`", ",", "0.42852077425595436`", ",", / S# R, x" g' a+ U: B8 S
   "0.4712694272667798`", ",", "0.5257533056184774`", ",", ; m. q6 T8 N9 V  [1 h/ r
   "0.48620658140716133`", ",", "0.41106838915591876`", ",",
5 L  x3 P3 z' _& `# T   "0.5486894206610674`", ",", "0.007731168540073459`", ",", : @2 |) J* L% R' i" d2 P3 g
   "0.013872406140339109`", ",", "0.3956995051659558`", ",",
' Q: |" j/ d( L  f   "0.3663118256142708`", ",", "0.29094217358055163`", ",", . s, e! a  Y0 i6 C1 W
   "0.5453093690736555`", ",", "0.44138898880777927`", ",", ) i- P, b9 t% V: G+ E
   "0.42944922031163496`", ",", "0.43092890556748836`", ",", 7 j6 Q# d/ y" r
   "0.5942402821739969`", ",", "0.330046090785457`", ",",
8 N1 S0 A2 X' P2 x. T7 Y$ R# V   "0.18938658036630585`", ",", "0.4263720292858679`", ",",
0 `; c! V0 |+ P1 s. W2 X   "0.23377136184738775`", ",", "0.02232858193309988`", ",",
4 {# x8 k9 j: M+ f  b2 W   "0.244364200084268`", ",", "0.5562383565309971`", ",",
: n# I' ]  i  n, q! P& z   "0.13114103402954333`", ",", "0.5815052048989465`", ",", " I2 d8 l3 u1 _  G
   "0.4253455966293501`"}], "}"}]], "Output",9 a. [4 ^% q" a9 n7 T- @2 M
CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9, 9 K, ?6 l% j( K0 c% w
  3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9, ; {$ H+ ]1 u; I5 K) V1 A
  3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}]
/ L0 }3 @5 O! r+ W9 J, ]) ^  D6 V}, Open  ]],
6 i1 o/ F3 Y5 P- ?2 }8 a  s: l2 \' ]+ h7 V
Cell[CellGroupData[{. q& L0 Q1 h! r; ]4 Y( ?! ~

8 Y* P& i) X  T9 G5 L4 ~8 H5 xCell[BoxData[
7 E5 N" R5 y7 `# p7 b! }. G1 U RowBox[{"y2fit", "=",
. [; a/ e# `  W% u% }  RowBox[{"{", : g* A  G- H. p5 ?5 P5 R$ z% o  p
   RowBox[{
4 T; u/ W7 J5 t, J# l) ^2 H   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 3 v+ |  [& p, K
    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 K2 \: Y. o+ g1 i8 `6 @3 S
    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", / W9 n! ?  ~% x* ~
    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
' i8 [4 G9 I7 c1 H    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
6 T3 i' G% g9 T* M' p' i    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
7 _7 y5 x- T4 R* Q" _  O. g( y3 V    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
( W- @8 k3 W$ X/ J    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", ) F8 e- `0 Q0 k8 y* j3 E
    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 0 V" ?) J8 d' ]1 @5 p1 |
    "0.48531711328591953", ",", "0.48531711328591953`", ",", 1 c7 e  F2 m# T: l; e; R6 e0 `  ]" @: |
    "0.45086352166650845`", ",", "0.36421192417525217`", ",", - R2 t* }2 k3 U+ D" K' w
    "0.4285207742559556`", ",", "0.4712694272667811`", ",",
4 L" j4 {3 e  l$ X' Z) `2 w# Q    "0.5257533056184786`", ",", "0.4862065814071623`", ",",
5 h1 @! Q) K9 R5 m- [. D    "0.41106838915592014`", ",", "0.5486894206610683`", ",", 8 P+ T* H& H! ]
    "0.007731168540073532`", ",", "0.013872406140339166`", ",",
8 X6 ?% h$ K& o    "0.3956995051659565`", ",", "0.3663118256142717`", ",", ( a( g: Y9 Z# X
    "0.29094217358055185`", ",", "0.5453093690736568`", ",", - c  Q& {/ w' ^; W* X+ {
    "0.4413889888077799`", ",", "0.42944922031163585`", ",",
# r: W7 I6 f9 z    "0.4309289055674891`", ",", "0.5942402821739983`", ",",
; X' q, i. ]. v) f. M    "0.33004609078545805`", ",", "0.18938658036630632`", ",", # W  p" ^6 ?. I7 L: l4 N
    "0.4263720292858688`", ",", "0.23377136184738778`", ",",
  M# t4 {/ T. p( Q6 X# o    "0.022328581933099827`", ",", "0.24436420008426807`", ",", 7 w! s& K8 x& ?. A  s+ L1 S
    "0.5562383565309981`", ",", "0.13114103402954314`", ",",
. h; j' j) A3 Q; E    "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",% ~* M' K  a/ @8 s( Y, }1 J
CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {
% U* Q$ M1 g1 g3 y& U  r) K  3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9,
0 v- c) q) y7 v4 M9 ^  3.57796233957977*^9}}],) m; t. ^- ?# w

" `! m6 l8 U# z3 @( o) KCell[BoxData[) p7 e& z) g9 |. N1 s; j; }
RowBox[{"{", 4 V- A" \+ {9 v
  RowBox[{
  c: M. O8 C: }" N4 u  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 8 Z* N, j% `, h# L: m
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
( j( ?6 o- X& m$ a4 u% }    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", % [. t: i2 I1 M
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 3 L- k7 d4 ^% Y4 T, L. t% f
   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", ! S6 w" ]) G& F  X. @. P+ w! U
   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 8 Z! q, p7 Y- @1 \
   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", 5 `+ Y8 d' j- x" M  P
   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", * b5 W$ u  L% j  @3 Q1 d7 a
   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
4 H5 R1 I. n% }0 P* [   "0.48531711328591953`", ",", "0.48531711328591953`", ",",
2 R- c; i' }. O4 f+ `7 k; i7 Q  C0 c   "0.45086352166650845`", ",", "0.36421192417525217`", ",",
1 ~4 A- i6 f- b- M& o, s, h- D   "0.4285207742559556`", ",", "0.4712694272667811`", ",",
* m, Y/ ]- i1 {2 @6 q1 G7 S8 ^   "0.5257533056184786`", ",", "0.4862065814071623`", ",", , [' s% X& G) ?  P2 ^+ y
   "0.41106838915592014`", ",", "0.5486894206610683`", ",", ' L2 `' ~( _) k* p* V
   "0.007731168540073532`", ",", "0.013872406140339166`", ",", ) \6 p% I% H! y! N
   "0.3956995051659565`", ",", "0.3663118256142717`", ",", 9 H# y) ]. p/ }, g1 r0 F7 K5 {
   "0.29094217358055185`", ",", "0.5453093690736568`", ",", / |/ x* b4 r; W# }% \9 j) `9 Q- N
   "0.4413889888077799`", ",", "0.42944922031163585`", ",",
, E2 o  o/ }: S6 N   "0.4309289055674891`", ",", "0.5942402821739983`", ",",
* y$ V# _. o* h6 a   "0.33004609078545805`", ",", "0.18938658036630632`", ",", 5 G: x5 d1 l9 l+ T/ T1 ?4 I; _
   "0.4263720292858688`", ",", "0.23377136184738778`", ",",
8 t0 R& h6 t9 t0 r/ R   "0.022328581933099827`", ",", "0.24436420008426807`", ",", % f, [0 ?' T" \7 A& A" x! m9 e
   "0.5562383565309981`", ",", "0.13114103402954314`", ",", 1 E9 X! A* G0 `; J4 y
   "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",1 \$ K1 ~) N) ^$ v. R! `
CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9, : r+ v) Z/ f7 p4 w' ^; p
  3.577962342060174*^9, 3.57801245340625*^9}]$ j) c; g# Z' l) y, C/ ~
}, Open  ]],+ A$ X' ~1 R# [% q" D

- [2 O( J& k1 g& XCell[CellGroupData[{# w% }+ S0 H  V, [/ w2 E: }9 g
- x+ y( ~& W$ y& ~# }
Cell[BoxData[
* z' M. b3 J: |: \ RowBox[{"y20", "=", $ l1 q5 S! x: r; P( ~' Z0 O# U
  RowBox[{"Table", "[",
# n- u6 l5 b5 `3 m! k   RowBox[{"x", ",", ! P3 M7 f' ~, x8 P& i
    RowBox[{"{",
5 y" ~* Z$ P* e7 E, x     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input"," l2 L3 j4 [3 ^& Z! k: N0 j
CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],
/ n& q% s7 ]- m7 {8 @$ U( P) P- P) T, G7 ?) ^
Cell[BoxData[' c& U# O+ A, y+ F- V4 ?7 U
RowBox[{"{",
! }& e! c: `  @& t: B6 o4 X4 h9 a  RowBox[{
5 l8 ^! T' Q5 W5 G  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 7 K+ ]( i& K7 f1 ?  R
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",! N! v9 a+ h; ]% Y1 b/ f
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
3 \1 B; P1 B9 L1 k& H4 Z$ w% V  e- K   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", " {1 N4 i  t6 V# C% ]9 Q3 h/ n
   ",", "29"}], "}"}]], "Output",
0 {% M1 t& G' P6 l) P CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9,
7 e* S2 o7 a$ S1 a  3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9,
* ?+ k; e% x: ], U& ?* e5 c) ^  3.578012454875*^9}]
( h" L9 Y' f5 g# F$ K* z' e}, Open  ]],; h' Z8 U9 Q0 L6 y! P. r
: c5 C" z2 V* k+ Y4 G. k7 h9 z
Cell[BoxData[5 s" O+ E: @, b6 b
RowBox[{"For", "[",
5 u& `& d+ Y/ o  RowBox[{
. i& `3 S# Z& O  o   RowBox[{"i", "=", "61"}], ",", - `1 A1 m. x; r7 R1 d, m
   RowBox[{"i", "\[LessEqual]", "89"}], ",", ' o. p. m, @4 P) ~: Q6 j
   RowBox[{"i", "++"}], ",", ; y# D! _7 V  [; I. i6 M! v
   RowBox[{6 u6 l& z; i# j3 O: ~# ^
    RowBox[{"y20", "[",
: O) q2 l: O1 g     RowBox[{"[",
; ^1 ^3 v7 V1 ^( x" d$ Z* ~      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", & V' b$ I6 Q2 x5 D' N
    RowBox[{"Data", "[",
: E2 J, e+ ]- W, E2 ]8 a     RowBox[{"[",
9 ?+ j- Z0 m+ m) f% I      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",2 X0 z: U; T, p, y+ e
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
+ R" \! }( `2 j, h# e* `  3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, $ Y1 _4 F$ k: y) s& `: j. f$ L
  3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {
- b) n& b5 ~& U! c$ b* [" k6 B  3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9,
: n9 K/ H+ t* G& o# X  3.577959058690585*^9}}],
5 }) u/ V/ L; o) |
# \5 |! L+ p  X! U- p/ P; V7 XCell[CellGroupData[{- p( h1 \' [4 p
4 f3 z" ], g+ S1 ~$ w7 Q/ m' Q
Cell[BoxData["y20"], "Input",
! ~3 ?0 E6 B  O/ L6 e6 O2 W CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {* U, t. E, O, b# F8 {2 S
   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9,
/ |3 b' F6 t3 A" o! B* I$ Z! C   3.5779583657841773`*^9}],8 P9 Q0 j0 M6 U- X, \0 U) r
  B/ K# h2 Q( l) U
Cell[BoxData[
- V/ d! t) I4 @5 W# _ RowBox[{"{",
% c6 {9 m' S; q4 R% Y- i. I) v( P  RowBox[{$ |8 t  r6 o6 D, [% U0 e
  "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",", : L% C7 J* _& F' ~) i
   "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",", ; B, b1 y3 e7 U
   "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", 1 q2 n- E( h0 f. D) Q2 b/ h
   "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", . _( V0 B. k) A% k# F
   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
( k# t; P. _/ M% o. ^6 E0 V   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
. \! l( B. v/ q/ y   "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", 6 F. F" y6 T. A: Y
   "0.323944`"}], "}"}]], "Output",0 v8 N7 Z4 V4 x  a0 `
CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, 6 h, m) }( H. O4 w7 O
  3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9, 1 [+ e# p: m" _2 W! c. f
  3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]. [5 X3 r2 C7 x' V) _
}, Open  ]],; V- I+ ~5 g9 b1 {. h
, G- Q5 j4 R3 v8 m
Cell[CellGroupData[{7 |+ m! L7 a9 e" Y6 L4 F% n0 e/ t
% y7 m+ }; m( F" z& @$ p0 {5 m. m. C8 z
Cell[BoxData[) O& G6 C/ }4 k3 B
RowBox[{"y20", "=", - z1 ]# O/ e& q
  RowBox[{"{",
' |4 U% R; h1 h   RowBox[{
' a/ J" ]& o/ \( w5 A   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
( u" L( x; b0 X$ {    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
* `9 c# R: b7 S, ~( Y* i/ G+ M1 K    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
5 f7 R  \2 G$ k/ Y7 w$ k    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", 5 m. Q/ L% x& g1 H' W
    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
6 ^8 L$ v0 g5 g& g- k' B! R" d* Y6 \    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
* N- L- \% r6 F6 j- H4 {& f    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ; S: A$ a4 M; Y
    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", 1 o  T  Q' S: q9 c6 J% S
    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
( t$ N+ ?9 V6 f5 G    "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", + J: f! v' D# G* R, B2 U: \% I2 P  E
    "0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",",
% |  o" W* O) J2 D    "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",",
0 \/ o, v( o( n* M/ c    "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",",
5 _7 J& v" V, A6 v# L- t8 e    "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", $ l7 _9 b. B. n' G( a5 O' E* H
    "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", & ]) X2 o: c: m  x( w, ~( [7 V
    "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",",
( H( C0 ^# W2 Q: |    "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",6 s! w+ L) [; q+ I1 ^
CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],. y9 S0 F4 R1 X; C. \, |

& ~$ e, K9 P. a( i6 o7 y" \Cell[BoxData[+ D& u% T5 r: O2 k, a# G
RowBox[{"{",
& C0 k- R1 Y! A7 z! A3 E  RowBox[{
! g7 i3 _4 i. V7 M' I$ K* A: c  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", . z7 k0 k9 ?' g! ]# X. a8 q! ?
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",# O  r3 k7 M6 e; Y1 b0 i9 [
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
+ y& K; N$ F# T1 }' t$ l6 m7 O( \   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
" a4 z3 }: g  `   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", ! |. H& a. V- J. q
   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 1 Y; F1 O: S+ ?+ m% W/ P
   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
( F1 d  Z# q6 Y6 W   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
! W! A1 _5 g' N1 c: X+ j) N  ^3 d   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`", , T$ ~3 Q7 E9 ?3 d4 i; T4 E3 \
   ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", 1 ^8 G) k% ^2 U1 u8 C$ k2 H2 M/ H2 _4 a
   ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",7 Z/ J3 f1 d$ I- F% c+ ?2 J- y" C
    "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
, X) j) e' m7 f, w( _/ i2 g6 e   "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",   W* n. b5 m& N( o" H
   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",", " O* }4 D+ `) k. m: Q
   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
+ T. H* w1 s' L& k2 C   "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
5 r7 y( W) S+ U2 U7 ?   "0.323944`"}], "}"}]], "Output",
; E# i$ n, P0 q- Q CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9, 2 G9 {5 z1 E. L! u
  3.578012457234375*^9}]
7 b+ l( \8 Q+ W. z}, Open  ]],5 M) i8 [* V4 s7 j& J, ^
. c- E, U3 _/ `1 w  [* M4 e$ _
Cell[CellGroupData[{9 z0 l  K6 x" D* r3 e1 }
/ h" w9 M+ H5 L& {5 ^1 \
Cell[BoxData[/ z9 p9 K; i! z4 u  I6 `, y
RowBox[{"p2a", "=", - N5 y6 n$ W' o; Y- Z( T
  RowBox[{"ListPlot", "[", " g% U3 U) i$ H# ~# {2 `0 g) b8 \! }; l* E
   RowBox[{"y2fit", ",", ! U# V  e5 B  ^
    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
9 I) J6 l# f2 ?    RowBox[{"PlotStyle", "\[Rule]", 2 q1 k2 G& _. {5 f
     RowBox[{"{",
& t1 o4 |8 A2 ~4 H. m! q      RowBox[{"RGBColor", "[",   ]; W0 _; d4 a4 ]6 A
       RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
2 H; Q: t& v3 n& Z4 S0 c  \4 O    RowBox[{"PlotRange", "\[Rule]", & q7 G7 H/ _- R4 Q5 l
     RowBox[{"{",
6 y9 N# V3 F; u8 c  w      RowBox[{
' m% i; p9 I  i/ k0 t! f+ `$ `       RowBox[{"{",
+ u* o. K3 }0 V! k4 B        RowBox[{"61", ",", "89"}], "}"}], ",", ; v% o" T1 ]& I0 p* }, j& ^/ o
       RowBox[{"{",
) r4 t8 {9 \# p! z( {- d! z( l        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
6 x3 V0 w/ }1 [% A7 w    RowBox[{"AxesOrigin", "\[Rule]", ; W0 g, ]9 l1 e1 ^  C
     RowBox[{"{", 8 A# F0 @" i* _* `6 \
      RowBox[{"61", ",", "0"}], "}"}]}], ",",
/ V% m) z  |, U& B2 r    RowBox[{"Frame", "\[Rule]", "True"}], ",",
; l% o- H# F  ~8 d/ }; \    RowBox[{"FrameLabel", "\[Rule]",
& \) ~, f/ d4 K2 G$ h0 [2 X     RowBox[{"{",
7 m/ q) A/ t( y2 ^7 x$ v2 X      RowBox[{! `, W! ^  l1 e: U/ y3 B
      "\"\<\:7089\:6b21\>\"", ",",
/ {- X0 o' p# }) H7 ~  D       "\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\
( u- P7 D  l! s$ r9 ~0 A\>\""}], "}"}]}]}], "]"}]}]], "Input",
% N- b& \1 j) t7 B CellChangeTimes->{
) s2 ^! K0 E7 d; v  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
- e+ h( v- f: v9 Q- C8 Y2 t   3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9, * r1 q8 O* U% Y) Q$ Z! E' b* j
   3.5779585491624975`*^9}, {3.5779592802577715`*^9, ; P- [) c$ {9 I. y9 x5 f: C
   3.5779593014270086`*^9}, {3.5779594039971876`*^9, * _; N& J, M5 A; P/ V8 g7 ]
   3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {# f1 l, S$ `$ a9 y* C4 Q; A# w
   3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9, ) W  R. I; E' w2 u! Y. X
   3.578012920859375*^9}],* |# R: w' Y7 H! l+ d* p

8 e5 M! N: F! [1 OCell[BoxData[2 ^9 g0 B# T, l) P, e% i$ l
GraphicsBox[{{}, {},
+ E4 ^8 o3 n, N7 ]% m6 ]   {RGBColor[0, 0, 0], LineBox[CompressedData["9 v! W3 I) M' M3 j" }
1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
6 x2 ^( J/ I/ Y: ?! I9 S, v2 g2 T/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
& f" \* F5 u+ |$ G! i  k: w9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
" Q) Y2 [  @! X, i1 h6 WofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
- A! x) E' I+ P6 k& EqPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
8 _- y$ k2 O6 V" L. d) E0 T1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
& |# L' K; @, I3 |! T0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p19 Z% [) Q  t* |7 J
sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
' l% Q6 r0 i2 m; F$ F$ B99yxuG0PAHw7nyU=+ Q3 [6 i* b! P1 G. s
     "]]}},
0 P" ]/ q2 Q1 B  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
9 S3 X3 D; T/ W3 X7 P0 Z  Axes->True,
$ `* x* v: o1 t9 O- k" w* q$ y  AxesOrigin->{61, 0},
6 t2 S0 o' f& u: Y9 R7 r/ u  Frame->True,& E9 j2 v' l8 b6 h7 K
  FrameLabel->{& E9 B$ d) I  s7 O( }/ q
    FormBox["\"\:7089\:6b21\"", TraditionalForm],
$ e6 E5 y" x3 l8 Q    FormBox[3 z4 D, Z* w) K1 T( d* C1 x
    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
& r: x; f2 u7 F* @     TraditionalForm]},( ?2 y4 `' Q( _
  PlotRange->{{61, 89}, {0, 1}},1 Z& p+ x- k1 d0 C" t# j
  PlotRangeClipping->True,
7 U$ M1 h5 p" w3 L2 D  PlotRangePadding->{Automatic, Automatic}]], "Output",
$ _1 u7 |; c* e6 O  d CellChangeTimes->{+ j6 o& a9 C& }- E1 B: }6 `9 E
  3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9,
, e5 V4 b( X3 s9 i5 A2 A   3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9,
0 x6 {; K4 v2 S  I   3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9},
, x, K6 V; T( M+ S4 m   3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9, * P7 _  W. \3 F0 f9 _  F* w
   3.57801247209375*^9, 3.5780129225625*^9}]
) {5 X$ q/ s% ^7 ~: H}, Open  ]],
* Q2 C5 }5 U+ H5 U# S4 Q" X/ [# n! ^) v8 g, C
Cell[CellGroupData[{% v5 N9 b, U. B+ f' _# Z, C

3 T) q% C" e7 e. I  R# u; PCell[BoxData[9 @+ p2 I7 \2 B8 H' j) W5 H
RowBox[{"p2b", "=",
5 F% I$ Z; `" V8 }6 c; Q  RowBox[{"ListPlot", "[", - q- B( k6 t) N) }3 z) M. r- b
   RowBox[{"y20", ",", $ ^) z* e) g4 U5 W
    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
9 h# A- z! E! a" S    RowBox[{"PlotStyle", "\[Rule]", * H$ X+ E" y1 f" d4 e6 ?. x
     RowBox[{"{", & H6 D- b  N2 ]1 {: B% b
      RowBox[{/ |8 q& N, c9 \& z+ ~
       RowBox[{"RGBColor", "[",
; c! w7 h3 f& |4 [        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
) ^. W7 I" p7 s- D% a& `    ",",
9 p* q; o% U, a" B! d9 Y    RowBox[{"PlotRange", "\[Rule]",
" Y  h; O  b0 F. t* @+ h& m     RowBox[{"{", 8 }4 b$ Q6 m% ?# ~" P
      RowBox[{7 ?. v0 ^8 q  Y& Q! f4 j1 ?
       RowBox[{"{",
+ }4 M* X$ H5 |+ K        RowBox[{"61", ",", "89"}], "}"}], ",",
. E% |. j7 ^+ A       RowBox[{"{", * [" K) E& S* d! [! _9 }
        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
+ M, f/ I, j( W. `- G) N; A$ `    RowBox[{"AxesOrigin", "\[Rule]",
2 ]$ T: |" j) u% z# z* ^) |) ~3 @     RowBox[{"{", : \' {+ j$ i  l4 X) |# @
      RowBox[{"61", ",", "0"}], "}"}]}], ",",
+ p) A( `' ?, l    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
/ h- W" s$ d% a! h' Y( O; v1 B1 M CellChangeTimes->{
, k+ q; E! `. \9 ]% d  3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9}, % L3 ^+ l( H! @7 f. W# ?
   3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],7 G7 C3 F1 P7 f' Q7 {/ s
  b/ o& c9 j, b1 i3 ^& X! i: i
Cell[BoxData[
9 [, ^) Q# p" f. z1 a" X3 I3 e GraphicsBox[{{}, {},
# N: y; O. G5 K# ]: p   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["5 ?4 P3 Q, Y" i
1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn: X; o# T6 N+ q8 @9 i* E
8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV/ x; S) j8 m2 W$ z' J+ V  Q
c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc$ I* R: V/ B1 L- Y$ E1 N
iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
( ~- W. M1 Q+ M8 w1 i/ U/ zTZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO2 U1 {5 k; U7 r# D  ~# A4 y
fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB% q8 f6 J( q4 Y# W# P: x) d6 Q3 b
TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG3 v, ?- m! J/ h
p0OYg4Fg/tz63VfsAdsCnzU=2 `: E" k3 X- @/ R8 p# C0 u
     "]]}},
6 s7 O5 W& b- B4 G9 `* L  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],6 L5 M% r5 j- }  a$ r) e5 X: y
  Axes->True,2 q! R2 f# k+ U7 V
  AxesOrigin->{61, 0},
5 J8 B7 s- H0 N9 d& d  Frame->True,
- L( ^' n) t+ [, q; ]  PlotRange->{{61, 89}, {0, 1}},
. k3 B0 ?9 y; x  PlotRangeClipping->True,
/ X* H* o" o! T: k: _) F, ]$ ~  PlotRangePadding->{Automatic, Automatic}]], "Output",# I: U, W1 @+ ]7 h! b* [
CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
% e/ g, s% k  S2 @1 c  3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9, , L* @+ ^6 k/ B+ H. z+ E( Q7 z! z
  3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9,
$ J. G' a5 u0 p% i  3.578012484703125*^9, 3.578012925875*^9}]$ C5 F' M. Q$ G2 t" R
}, Open  ]],
0 v% g7 N6 g5 k+ b
6 q0 Q. Z% p0 eCell[CellGroupData[{
4 Z- N8 r) P' Z
2 E  f+ F  }1 s, z5 nCell[BoxData[
  w( W  }0 ^- X4 r RowBox[{"Show", "[",
: W& k! A# T5 i" ?& v$ L9 O2 m  RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],
6 _1 J6 s# n) f& T/ \' @4 I" o& C* J# ]
Cell[BoxData[
: m2 Q  Q2 s- D+ d" w GraphicsBox[{{{}, {},
- K0 U" V3 s% s: f. [    {RGBColor[0, 0, 0], LineBox[CompressedData["( W  B' @$ R, [) i' I, M% h
1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
- _" s# l. C5 e, M4 ?* a$ B- Y4 D% ]/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ6 W) a5 h3 b' I
9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P, y. `; _9 B/ D
ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC3 L& j/ p  D4 e1 a* u& y
qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK! V3 s2 a+ z2 Z! C. _
1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
) H+ H! a  S8 Y3 U- J0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1: z% f7 T* R/ k: E
sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH. ^- R8 C; C4 ?3 c
99yxuG0PAHw7nyU=3 S# y. Z& W& y- x2 o2 I
      "]]}}, {{}, {}, " `# y7 ^- ?( p; ?; x0 y+ G" Q
    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["1 ^( F" f/ ?3 B$ a
1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
- l6 v- l: u' J* F4 ~8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV! ^4 t  G" Y: T1 b" P0 t
c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
  G8 U: \& h% P3 w* N: y0 ciX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk47 c7 K1 _" }2 R" \2 ]2 @$ L
TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
: ]+ ^3 k. x/ g0 L$ R, AfzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
. [5 U6 }$ b6 v( l8 e( DTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG$ s( [3 _& f5 w
p0OYg4Fg/tz63VfsAdsCnzU=  F9 \! H; ~( f; j" p# U
      "]]}}},
, K4 l3 p9 t% X2 z  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],- S3 \/ K" r7 R- e/ \, J5 [
  Axes->True,( `  _# d) ~# I' f5 C
  AxesOrigin->{61, 0}," N" y" @" O0 Z: r
  Frame->True,& d( q0 U3 l: I1 M* X1 e
  FrameLabel->{# Z  O, O1 X( `- U3 _
    FormBox["\"\:7089\:6b21\"", TraditionalForm], / Y/ M" @) x9 b4 t, F" F# P
    FormBox[
- ]/ s0 e, g/ S$ Z    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
& t- v  d1 }! r; r     TraditionalForm]},8 b0 g& F; s( I; c
  PlotRange->{{61, 89}, {0, 1}},0 f, B* o* {+ g( s7 U
  PlotRangeClipping->True,, j" R6 b  `# E' I2 F
  PlotRangePadding->{Automatic, Automatic}]], "Output",) b3 o& v( S. g
CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9,
# a9 R- F& C1 w4 S  3.578012927734375*^9}]
; Y3 F$ ]" Y2 Q}, Open  ]],, C: B! \4 h! T8 S' U% n- \* o
" \% G6 T, a0 [4 W) i" M7 m/ G
Cell[BoxData[; u4 h0 n5 ?3 }# O+ t8 O
RowBox[{"\:ff08", 4 M2 U4 o! v8 F5 y9 x3 o& `  w( Y
  RowBox[{
" |7 }% w" e+ x4 L9 l: i1 Y  "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406",
  P, A0 c& @' h( T/ ]  B   "\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621", 1 i( e3 k* ]9 p4 P
   "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208", 9 N3 ?4 [/ m1 X. s+ s' U. N
   "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0",
8 H& G3 O0 J" j. u/ E# q   ".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\
& E7 \1 Y2 y) y! y, I- c\:4e3a0", ".6224", $ {, L' G/ j4 ]( L. v! _
   "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],
6 f. D  \1 e) |& h2 }4 y   "\:ff09"}]], "Input"],
9 F/ ]- t2 l; w! Y" Z0 v. A! b2 a
Cell[BoxData[  g8 S1 @: ]9 Y. |% Z" R* D. O
RowBox[{"{",
6 `5 X! q8 o  c' C9 I* V1 v  RowBox[{
" w7 F9 J- Y4 u' |0 z7 r1 }  "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",", . p; i4 x" A, y6 B
   "\:5439\:6c27\:91cf", ",", & m3 \, [1 V  C9 }* s2 E1 V
   "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",",
! H% E. P+ J3 r+ _7 \   "\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",", 4 d: ^2 A- ]5 I+ H  K
   "\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",",
9 p9 z) a; {% ~9 y: M: Q( ?9 A   "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",", / D: T( D! [+ X1 u5 N- M
   "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",", 1 B2 l5 Y; o" Y3 G9 T
   "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],% [  K- D6 G, h, G
8 |( e4 H* T4 j5 _" k5 F7 U
Cell[BoxData[" "], "Input",
9 c% ^7 `7 @" c; Q  G CellChangeTimes->{3.577962834553033*^9}],8 n, j1 \3 L" J7 w) F

9 {% G: b" P. v# _# u% W% |Cell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],9 S( F# k* o" A  G

% m' n* a: X0 `2 `/ VCell[CellGroupData[{
" L7 o  y; @7 H4 Y/ f2 K- w! y1 _# T! [  e
Cell[BoxData[' X" R- Z- t, T4 Y  J: P
RowBox[{"y1", "/.", # R5 p; X' a% Y$ l
  RowBox[{"{", : j+ V+ V! c  }$ v/ f' x: `
   RowBox[{, M: m& N) d' @  M4 N
    RowBox[{"x1", "->", "0.7406"}], ",", ' V5 F! \" s: }7 v
    RowBox[{"x2", "->", "0.4621"}], ",", ( w3 p+ F: h4 \8 b5 x( q
    RowBox[{"x4", "->", "0.2221"}], ",",
4 R: M* D! f! K2 A    RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",5 \" K: T8 E" u( Z7 G
CellChangeTimes->{{3.57796267209435*^9, 3.5779627224200373`*^9}, {- c: x1 p6 w: e3 K4 |
  3.5779627663029137`*^9, 3.577962774820529*^9}}],7 l1 E; m6 [3 T3 l% J
* p1 ?6 x8 A' N
Cell[BoxData[
) @) y' E4 I7 o  o1 U. J7 s RowBox[{
/ }( q( y2 g1 O8 V  RowBox[{"0.2286149508637297`", " ", * X3 Z# k, ^: m4 v0 \4 R9 u( T3 `
   SuperscriptBox["\[ExponentialE]", / ~% a) ?& O5 A# v
    RowBox[{"3.1415926535897936`", " ", 5 \7 x/ _$ Y' a2 P# V. r6 G% _, d
     RowBox[{"(", 7 ~* `3 D7 g3 N% k+ _7 h$ X
      RowBox[{
- f# D5 H0 p2 Z- P: ^       RowBox[{"-", "0.17911224641499998`"}], "-", * I$ ?# O' d6 T1 x7 Y7 j
       SuperscriptBox[" |3 z( ]: n  D/ B7 H2 @
        RowBox[{"(",
- y; @% e1 E# r  [) J! b. y# s, \         RowBox[{
7 ]; N- O, d" ^% e$ E          RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
0 s/ l$ P9 x, `$ a0 @' U" g$ d       SuperscriptBox[1 e1 F2 W6 K5 t$ Q
        RowBox[{"(",
+ v  y% H5 g  ?# m* _: s         RowBox[{. h" ?! g9 l3 G" S& Y9 m) k; k7 s& H
          RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", 4 ^% Y- |" x: ^$ n( z
       SuperscriptBox[! J- q) k6 K2 z4 D
        RowBox[{"(",
- ]1 \: R& D- C$ E4 e, t5 `         RowBox[{
' I4 u8 V- v( G8 Q# [          RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
" K: c1 O$ Q& e) a; o3 f9 b$ D       SuperscriptBox["x8", "2"], "-", % v$ v: G' [: k) B
       SuperscriptBox[
: H3 m( b/ c/ p# q6 `, o- M        RowBox[{"(", ; s' z$ M& `: C8 {6 S! H
         RowBox[{/ l* ]3 M5 a+ Z+ U
          RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+", ! q( j5 {' A' \4 u& r6 S: M
  RowBox[{"0.020180806675835994`", " ", 1 E+ K/ P4 \' i/ E2 J2 Y
   SuperscriptBox["\[ExponentialE]",
' ^9 `3 l) t' R/ @1 j, [& o* v    RowBox[{"3.1415926535897936`", " ",
" w$ G& I% o) |' Z9 {     RowBox[{"(", 0 \- |2 I) m1 x+ v$ F( q
      RowBox[{
8 b, _& d% c# M- j       RowBox[{"-", "0.105619387859`"}], "-",
4 e- n( q9 _% _) U       SuperscriptBox[
/ }% J4 e- r9 w" }( U        RowBox[{"(",
6 W' u- a2 Y* b( {& y$ |         RowBox[{  I2 ]; t, S% K2 }9 s% h* i
          RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
9 K) @  J/ \: D# ~" n- q       SuperscriptBox["x6", "2"], "-",
( ~5 b6 Q2 n: b1 r* X7 F       SuperscriptBox[
7 P4 ?6 O9 I' M0 w- m# p4 E        RowBox[{"(",
, K/ f0 D' W. g5 V2 g         RowBox[{
$ j0 @* [& R* b% V; G) }* L+ [5 O          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", " ~3 t; K# N% B$ Y7 D
       SuperscriptBox["x8", "2"], "-",
' J+ C) p7 q& [0 Q0 _       SuperscriptBox[
6 G5 M7 @* _) M% w/ [. J; L0 Q        RowBox[{"(",
1 [" e. J3 u; l' ]( \         RowBox[{& Q/ b  l* e9 V' r4 v1 D2 Q9 I
          RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], + B- G; w" t4 i8 O( L% H
  "+", * i6 q0 D' e2 s# b) y
  RowBox[{"0.13092706311748437`", " ",
& J7 l" W7 _( }1 I3 [( _" \' U   SuperscriptBox["\[ExponentialE]",
  B" q8 [! u5 ?5 V    RowBox[{"3.1415926535897936`", " ",
! E5 v) m) i; c* |; c$ n3 n9 {6 w* _     RowBox[{"(",
- E# p$ I! ~8 p7 g& [+ ^9 p5 y' O/ `      RowBox[{
* r8 n# N5 D$ g2 A$ p- R% C; ^       RowBox[{"-", "0.236605670085`"}], "-",
. ?% O9 F+ S/ C1 n( x! N       SuperscriptBox[
8 q! d" d9 G1 B) H4 d& i        RowBox[{"(", , O4 y6 I- t  z& P: U
         RowBox[{
" m+ v" ]2 i2 s' ^' G+ }          RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
" V0 c! l5 S6 o" V       SuperscriptBox["x6", "2"], "-",
8 g; B# E3 `3 c& c+ O2 Z       SuperscriptBox["x7", "2"], "-", 9 W/ B4 e% R& ]4 A- t% N
       SuperscriptBox["x8", "2"], "-", 9 L( L+ F! d2 G  l; q7 z5 \
       SuperscriptBox[4 k7 T- V- |, ?2 h
        RowBox[{"(",
! L$ K- W. y" u$ [         RowBox[{, m( d  X' Z: N2 L$ N6 y- r
          RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
$ V6 u2 o/ l; |$ n8 U2 L  "-", " [, G  c5 o8 W; i2 W
  RowBox[{"0.033459349088924784`", " ",
, e0 |5 m% o. e   SuperscriptBox["\[ExponentialE]",
+ |2 h! `3 s) E    RowBox[{"3.1415926535897936`", " ", 7 x+ |6 j) b: a- e, A! d* ^8 X! @
     RowBox[{"(",
- ~& N2 k" b% d7 t      RowBox[{
. `5 [' q! l, Q' ]  X       RowBox[{"-", "0.46221081830200006`"}], "-",   K! ]) w! F0 V6 |
       SuperscriptBox[
4 T% P% Z/ b, E) |2 j8 U! G        RowBox[{"(",
3 S6 q3 J0 w! g         RowBox[{2 z2 O$ A/ Q3 q9 b0 q; T" }% R
          RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", 9 }: [3 P: g' R+ h4 l, s+ L
       SuperscriptBox[
5 a* C" ?% ~; u. _+ A        RowBox[{"(", $ y* h+ o8 \6 c& h
         RowBox[{
3 \1 {0 `1 \4 L3 S5 ?' J          RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
$ [$ E: J& P: Z/ N/ _       SuperscriptBox[3 @, P8 n  L8 Y1 l1 G7 a
        RowBox[{"(",
0 K; _: v# ^5 m$ Z+ \         RowBox[{& L) [7 J7 ]3 A$ f# `
          RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
- t. S$ X' Z' h6 c7 [       SuperscriptBox["x8", "2"], "-", ( C2 \6 m/ g3 Q+ u2 c) a( M
       SuperscriptBox[+ \! {* B& ~" ]. U
        RowBox[{"(",
" r0 @/ m! J( @9 m( Z6 n         RowBox[{
% y" D4 A+ d7 {          RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], % Q3 y/ Z- s( R- E; h0 S* z
  "+",
6 Y9 B9 a6 C# k0 f* q# Y! |' Y  RowBox[{"0.39611806709006653`", " ", 2 X8 H! F0 M8 y3 Y
   SuperscriptBox["\[ExponentialE]", 7 D& c/ [) o8 Y6 T( u5 Z
    RowBox[{"3.1415926535897936`", " ", 6 E' W7 v3 N! c* G: J. L- A: g
     RowBox[{"(",
1 y) \1 f% D9 K( i7 B: }) M      RowBox[{9 x; ?; v  R1 `3 P/ r
       RowBox[{"-", "0.5837889295140001`"}], "-",
6 l) J' W; C% I+ R6 ]( L       SuperscriptBox[
0 L1 G! ^) p/ |8 C7 p+ t- R& i        RowBox[{"(", 7 E$ ~$ a0 P) E
         RowBox[{. w. q/ x- v& l
          RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", 4 R1 G2 p' k3 H( o/ @. h6 `! v
       SuperscriptBox["x6", "2"], "-",
* ^( i+ \; h2 q% D) k: F- a0 R       SuperscriptBox[* b9 W: a7 o% `0 [8 K4 L
        RowBox[{"(",
/ O, ~( G) q' B4 p         RowBox[{
: w: J: ?7 R$ C          RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
: G4 s2 q" q7 M* z/ f       SuperscriptBox["x8", "2"], "-",
$ O7 G! C3 U  P+ Q& a; p) R8 t       SuperscriptBox[
& I" M4 n4 z& q; h- z8 G        RowBox[{"(",
1 e) y6 C9 Z" S5 r         RowBox[{$ g# E0 \9 n- a3 W
          RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], / Z1 O$ J: g( v, ^9 `% b; k# C# Y
  "-",
: [5 v- ^( h) A  RowBox[{"0.19996885877792045`", " ", ! g2 A+ }# g; w' R2 C. K% L4 L+ _
   SuperscriptBox["\[ExponentialE]",
1 h9 J5 ~* S+ Y) s! y$ K    RowBox[{"3.1415926535897936`", " ",   R5 T% z, c2 _8 {
     RowBox[{"(", 2 }: ^3 R% Y* R9 G
      RowBox[{
7 D3 q, @2 e6 N% E/ t       RowBox[{"-", "0.19030188470200005`"}], "-",
' i) i8 [: M; L2 a% C       SuperscriptBox[
, ?, h9 i5 X5 k$ k; I; s! q# _* U        RowBox[{"(",
$ Y* ]' `9 ^) _* p% h         RowBox[{2 K$ o: N& i, {9 Y
          RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
2 {6 T2 s6 ^3 g* e$ V+ B- t0 M       SuperscriptBox[
) r, h' X9 `! p& W0 ?        RowBox[{"(",
1 U. h: r* O! b' Q1 Z: S         RowBox[{
, E2 {- V' G  W. F          RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 2 d5 G7 |( D6 m
       SuperscriptBox["x7", "2"], "-",
& c' W6 g' b, j& ^  q/ c& C       SuperscriptBox["x8", "2"], "-", 2 T7 g4 S. P- D, n
       SuperscriptBox[
3 Q7 ^. n3 L" }+ _/ \) d* M        RowBox[{"(",
% ^5 d: P+ \+ ?         RowBox[{
9 z# R& p+ c$ ~          RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ' W2 D  @2 l9 R% I! L& W- c
  "+",
0 {- P; Y0 y; d% M" w/ a& \  RowBox[{"0.23580523388620744`", " ",
! t/ ]+ K  C9 z: m" ?: P9 H   SuperscriptBox["\[ExponentialE]",
: d& t: e% L- e. F    RowBox[{"3.1415926535897936`", " ",
/ @( V4 l+ b) h9 ^: U/ j     RowBox[{"(",
, f, Q) q" f  w- [      RowBox[{
8 A" w2 `8 f% c, p$ C9 t; @       RowBox[{"-", "0.28518780882`"}], "-", * e' |5 b9 `9 p
       SuperscriptBox[
8 }8 b2 o! S- N- D+ f+ A& c5 U4 T        RowBox[{"(", , T. U2 c- y+ B* f! p0 U& ?
         RowBox[{9 P) v/ r& L0 ~" L2 }7 i/ n
          RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
7 t. O( ^: A0 j       SuperscriptBox[- R3 o+ N  a# T2 a; {( {
        RowBox[{"(", , q1 j& }9 x4 \0 q
         RowBox[{. s/ i; ]; {8 ^0 D4 a0 I/ U
          RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
. C( h8 B, S8 Z7 v$ W       SuperscriptBox[; }, r  i0 s; D" B( C5 [0 c7 D
        RowBox[{"(",
5 m% F( P) k( A/ w5 _3 T0 ~         RowBox[{
0 ^( T+ O) e5 \5 {/ u5 u% Z          RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", : v. k" m+ w3 J8 n! o; s: n
       SuperscriptBox["x8", "2"], "-", - G6 F3 F6 Q2 a. {/ B0 h
       SuperscriptBox[
0 Z. V' |- m% _3 K! e        RowBox[{"(",
/ i# V9 W3 y4 z( y. v5 a         RowBox[{$ s5 P$ n- j6 K7 N: _
          RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
6 K9 D( i% |; R  "+", ; s2 r& h9 }9 O$ q$ h' T& S* q
  RowBox[{"0.667027259367853`", " ", 2 s, ~5 d8 B8 H2 Y
   SuperscriptBox["\[ExponentialE]", / K; X+ U2 C  m% K
    RowBox[{"3.1415926535897936`", " ", 2 S  |5 d& p; b
     RowBox[{"(",
; R  J' O+ x! z1 d$ T6 R      RowBox[{
# i: C) q1 j- W. N" w- K  [0 D7 m7 |       RowBox[{"-", "0.11387365200400001`"}], "-",
6 `$ A. p0 B: ~/ [: c4 C0 _3 \2 R       SuperscriptBox[
$ U- z# U- _- p% h6 _" t        RowBox[{"(",
9 B" l3 l3 d$ F( ?         RowBox[{0 C: U- r, `  f1 E* R, z
          RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", ' D! s( c- z$ w* Z+ j' a
       SuperscriptBox[
9 Q9 |) K$ J5 E4 m% c0 ]# T) _& ^        RowBox[{"(",
$ j: _6 {0 M4 \1 r+ H  T1 ~         RowBox[{( z. A. Z4 A4 C. y$ F  `4 n4 k
          RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
8 f5 B1 ^4 V- s' V: Q4 W" l3 d       SuperscriptBox["x7", "2"], "-",
; g; Q" H/ P- f0 ^       SuperscriptBox["x8", "2"], "-",
$ Z. Q6 j% G9 C, {3 L6 N+ Y0 G       SuperscriptBox[$ I- Y. T: r7 n/ f
        RowBox[{"(", 9 I+ L- f5 B6 E& d2 ~
         RowBox[{) @# k' D1 a$ \
          RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
& o+ G) O9 ^& a% v! M  "+", ) N1 }5 r& w& D; g! Q" ^* F' K, K
  RowBox[{"0.25282438852646905`", " ", ; S$ H2 G+ O9 A
   SuperscriptBox["\[ExponentialE]",
$ T0 e" L9 K- g" q. w: e: e/ Y! d    RowBox[{"3.1415926535897936`", " ", + |3 e# v5 m* |: o% L; C
     RowBox[{"(",
9 n& y& h- @4 ?6 m3 E" V* f      RowBox[{* K2 v6 P/ ]3 s. f$ O0 H+ X# U& V! ]- D
       RowBox[{"-", "0.11442644782500001`"}], "-",
+ G/ d6 x# c7 T8 a) s       SuperscriptBox[
, _+ `. Z5 x6 D        RowBox[{"(", " z. ^* _& d2 G
         RowBox[{2 ?* }; f# I8 q& d! N1 ]
          RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
6 z9 _9 o3 I) a$ m0 K& \       SuperscriptBox["x6", "2"], "-", 2 d% W3 P+ @1 V
       SuperscriptBox[6 G1 U3 _) C8 B, n$ s1 L8 r
        RowBox[{"(",
& P" ~& G4 _5 c4 C  \         RowBox[{
' O, n, L/ i2 R. s3 s2 _7 [; H: g' r          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 4 ^/ D. v1 S6 ~: a- D6 q8 X
       SuperscriptBox[
' q! v* m+ `! l( I% C/ d        RowBox[{"(",
! N' p# }) F  n" T/ ]         RowBox[{
$ F) ^* F- B, @2 H: q2 t' Z6 D9 h% c          RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", 5 J& s) L4 U$ ]7 a6 o" B
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
  L2 I# R/ [  I. A1 }  RowBox[{"0.07581214474544536`", " ", ; i3 Q+ F$ ^( U
   SuperscriptBox["\[ExponentialE]", 8 |' |0 u, k" u- [7 ~
    RowBox[{"3.1415926535897936`", " ", . I6 M0 V# e4 e" N" [
     RowBox[{"(", * E, e) V. i& p- b% `
      RowBox[{
1 t" e3 K" Q4 V" V+ H       RowBox[{"-", "0.21008576609800003`"}], "-",
9 Z: `6 S  s. D2 e8 v' [) h. T5 X6 @       SuperscriptBox["x3", "2"], "-",
3 |7 D- H# z: m  |7 y8 T2 ]2 g       SuperscriptBox["x6", "2"], "-",
* L# K2 s6 _* {5 j$ W9 S       SuperscriptBox["x7", "2"], "-",
0 i7 l5 J( v5 U9 K/ T       SuperscriptBox[
6 a) V3 N# H) h  y        RowBox[{"(",
; n% W8 D2 H% \2 h8 C3 l5 j         RowBox[{+ O7 e; c( p) v2 V* l0 Y" U. Q- u8 x
          RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", / Y+ v" }. J$ t3 q0 F7 a5 ~6 l3 U
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
3 A, z$ Q/ M# H4 v# M5 \1 v5 J  RowBox[{"0.10599338351843121`", " ",
# W( [: [6 l, J   SuperscriptBox["\[ExponentialE]", , j3 O! y/ Z# i1 V
    RowBox[{"3.1415926535897936`", " ", 3 [0 y: u: H# g$ P( W8 e2 g/ n+ ~
     RowBox[{"(",
7 g# Z7 e' H% v      RowBox[{
; X- r$ a0 O0 f       RowBox[{"-", "0.4481471925460001`"}], "-",
  n& |  I8 ]$ S8 w9 J       SuperscriptBox[
% Z6 p! `" y8 [/ f& w2 _) I        RowBox[{"(", & c7 W4 K0 V/ X2 w2 J
         RowBox[{
* v1 f) c$ f5 \/ J: y$ J          RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
& \, Z: V% h/ l3 S. _% g       SuperscriptBox[, O, \: }/ @+ N
        RowBox[{"(", - i) @& `! g$ P& N6 h7 E3 E2 I
         RowBox[{
) D1 m4 q- w- k& B6 W9 Y" x          RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", ( `' C4 R; Y; S2 c
       SuperscriptBox["x7", "2"], "-", ' {( S% D" m8 g' o7 h; Q
       SuperscriptBox[6 B- ?. l0 \) Z. g# A( Y
        RowBox[{"(",
4 ?# ?, D4 ~: e# j" o) k: ]: W" Y         RowBox[{3 G& ?0 f9 N/ S5 {
          RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", 1 \* P' a/ Y8 S* o3 q* ]' ]' L
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
& M# U5 Y" L9 N' R  RowBox[{"0.5008208386064421`", " ", ; M- [: @8 |7 r, l0 S6 G
   SuperscriptBox["\[ExponentialE]", * E4 Q$ p( l" c) v0 S9 F
    RowBox[{"3.1415926535897936`", " ", ! V' h' w4 |9 }. M% }
     RowBox[{"(",
7 H1 K0 A" p8 ]2 h* J8 o6 l* T      RowBox[{3 I( o+ v1 O- q' a
       RowBox[{"-", "0.08722659614000003`"}], "-",
, d, u8 R& A' z) i       SuperscriptBox[6 s0 J0 s, c( A$ O7 B  J8 R  }1 z
        RowBox[{"(",
1 T- i. y) B0 u. y4 F) q7 S         RowBox[{
4 H9 {& P0 L# S" M2 N- f% V          RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", * Z9 j; L! A, g1 l# B* W5 x
       SuperscriptBox[
! T6 U+ v6 W) x        RowBox[{"(",
" _0 L7 m7 Z) G- g$ d- }6 r         RowBox[{/ J- P* q  M. _1 j! e7 Y  x  a, Z: g
          RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
$ m0 c4 Z+ O& K/ ~       SuperscriptBox["x7", "2"], "-", - n4 y& _% `$ W1 |6 r# s
       SuperscriptBox[: ^8 T& |) Y$ R0 W
        RowBox[{"(",
& n9 t4 o& k7 S) b6 ?8 |& w         RowBox[{
, B3 T: A+ s. k. a2 |          RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", % @/ h/ o$ r" s1 o8 \
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", # o( W) F) j" _; D: g
  RowBox[{"0.32564305572552343`", " ", " U- ]: C; p' _0 a& v$ G- m
   SuperscriptBox["\[ExponentialE]",
3 j6 e# l" P1 D" J. X    RowBox[{"3.1415926535897936`", " ", 9 D$ B. i# J- G; a: A' h( l
     RowBox[{"(",
6 j0 a2 ?. C. \- u5 K: P# x      RowBox[{0 Y* c# v: C* O: N" B
       RowBox[{"-", "0.23738217000100004`"}], "-", 6 A/ j0 F& g1 [" O& G5 k% D3 |+ d1 @
       SuperscriptBox[
3 t) u; P8 ]. ]2 o2 G* v' x. p        RowBox[{"(",
( n: P9 m, |& T6 w: Q9 n. x: d         RowBox[{; e& h* q, V) u4 y, Z
          RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", " y4 f3 z: Z, r5 }4 V, G6 s
       SuperscriptBox[
5 x" `/ z- c3 p8 X! U        RowBox[{"(", 3 Z8 R  I4 Z. ]
         RowBox[{
  i" p- F. D! E          RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", # \5 K2 p8 I& U8 Y% p
       SuperscriptBox[
* E2 o; u, {8 T+ N        RowBox[{"(",
% O; K" G% F# \; G: O( M  a. s         RowBox[{
, P# H8 F: O, B- b          RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", . w( V6 E6 J/ o8 C" h* f& R
       SuperscriptBox[7 L3 S& a7 {. k& y9 }, Q: b" e1 v8 L
        RowBox[{"(",
( w. e7 C( Y2 v- _2 H& U( x/ F6 e& L, [         RowBox[{
4 I# _5 k4 N: Z. r/ Q3 O: b& a  F          RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", & h; S* V+ F; x% ?' x$ Q+ V
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
* a$ \( j* k3 E* a% }% Y  RowBox[{"0.6665374509702793`", " ", 3 v; m/ v' j3 h" W9 q
   SuperscriptBox["\[ExponentialE]",
. A8 T: O; x6 O3 G1 r, b, M( D    RowBox[{"3.1415926535897936`", " ", % }$ S+ `; U. Y3 K
     RowBox[{"(",
( N) f- v$ g/ i6 ^& h6 Z      RowBox[{
2 ~; T. A* w7 m       RowBox[{"-", "0.19162171876400003`"}], "-", 9 w. A& e: S2 Z# e/ B
       SuperscriptBox[
( \* p8 z( q+ g  x! M" h        RowBox[{"(",
8 A  U( u& G4 s8 O2 K+ ?$ y: v! U* \         RowBox[{
: ?6 \* D' l- Y/ E1 F          RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
" E" k0 t1 p( S1 c. E, D       SuperscriptBox[  ?' I: p3 t1 Y3 c2 k/ E
        RowBox[{"(", 2 r. S- t2 x+ i
         RowBox[{$ S6 q- k0 }- ?$ U8 G/ R& p
          RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
3 [  R6 K. Q3 d+ D       SuperscriptBox[
8 H% c$ w3 l1 r        RowBox[{"(", 8 `" B1 T4 ^' e
         RowBox[{2 p! W3 ]' c/ K
          RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", 9 s# p" {; t0 P5 q
       SuperscriptBox["x8", "2"], "-", , f+ w. u3 L5 W" h" [+ Q( ^
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
, y9 S7 t) V' F4 E* f  RowBox[{"0.4812237524557293`", " ", ) U6 K) N% P7 c4 y# ]
   SuperscriptBox["\[ExponentialE]",
  ]: `4 H  b( V/ G/ ?    RowBox[{"3.1415926535897936`", " ", 7 j9 S1 A# e5 g: I
     RowBox[{"(", ! l# _7 V: N7 N- l- o
      RowBox[{* B; f6 O( v3 V( L8 _8 P& g( |2 u( {! ?
       RowBox[{"-", "0.109748954594`"}], "-",
8 q2 J$ f, Z" I% Z3 U5 {       SuperscriptBox[
; h$ T6 O2 T. _0 ]        RowBox[{"(",
% O9 N# [: z7 p7 Q) w         RowBox[{# m8 s' J; d# i2 X7 x' ^" D
          RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", " ?0 o, K! N! @! k2 o+ `
       SuperscriptBox["x6", "2"], "-",
: Z7 O$ K* c: K- s! ?       SuperscriptBox[
" b9 Z: ^/ Q4 J2 r        RowBox[{"(",
2 ~3 V5 B! ~) ?2 j: o$ y. Q         RowBox[{5 b  E( _4 s7 d- ~5 ?% }
          RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
; a; N0 i' \0 a) L       SuperscriptBox["x8", "2"], "-",
$ [7 _4 r2 z* U! {; K% b       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
2 d* ~- N0 U# M+ ?  f+ d+ A1 J  RowBox[{"0.176024676254045`", " ", & L5 e0 D/ Q8 ~+ b9 U
   SuperscriptBox["\[ExponentialE]", & W0 P- i1 z) N% p9 I
    RowBox[{"3.1415926535897936`", " ", 8 {- d, A# z7 [. x% f% b- ?) X
     RowBox[{"(",
2 o, |/ U% W2 o# r      RowBox[{" T: `2 `) ~* w
       RowBox[{"-", "0.14616677062500003`"}], "-",
. m" ]% \+ d* K9 Z       SuperscriptBox[
" A( q! ~6 g- M/ p4 r1 w* t2 g9 J        RowBox[{"(", : ^1 l- f- D* V; d# q& h
         RowBox[{4 j4 `9 E9 k. K# S, @* o
          RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
  r+ r4 t6 R4 o3 \  _1 o       SuperscriptBox["x6", "2"], "-",
' R4 S7 K: M; {$ c4 ?       SuperscriptBox[
$ q% u5 g' ~& k9 z  J        RowBox[{"(",
6 A% p; R; D! k- p- c4 c! Y         RowBox[{
# V, X! r: J4 k          RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", 5 L: k, K, D* d1 b& S$ p
       SuperscriptBox["x8", "2"], "-",
, J! U6 I; i( x       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
9 B" u( f' j$ _7 X1 _  RowBox[{"0.5945873894818965`", " ",
* s2 x* N' [# {$ i   SuperscriptBox["\[ExponentialE]", 4 w: S4 e1 r8 _) ~
    RowBox[{"3.1415926535897936`", " ", 0 p: J. a, D" E! j5 S  p1 l2 q
     RowBox[{"(",
( h- y$ ^" _' [& M9 W" T) [      RowBox[{7 K9 u; L1 Z+ c! P. ^# @
       RowBox[{"-", "0.10407011464100005`"}], "-", 6 D9 K" |; `& z" b4 R' J
       SuperscriptBox[
5 [. u, n: Z7 v) q  y3 z+ F' x        RowBox[{"(", & p' g+ m& o9 ]0 z* P
         RowBox[{
9 R0 C+ S8 e! y          RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", 7 v* N6 C) [/ e' h" a. o
       SuperscriptBox[& `% P3 e/ b, B& Z
        RowBox[{"(", 6 e: }5 Z+ `/ n; \2 l: j
         RowBox[{
) k9 e% x/ Y  J1 M          RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", 3 \9 `1 g$ S  C0 u- G: E
       SuperscriptBox[
' M" r6 j0 B3 G% R- N        RowBox[{"(",
1 f4 k& o1 R7 p5 Z- |8 X' t         RowBox[{. A: r7 F$ q: f/ S$ Q; v3 Z
          RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", ; R5 J9 ^  h( z$ B
       SuperscriptBox["x8", "2"], "-",   @$ b& r9 N9 i- C
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
) l! W, E0 B: e. o  ~) E  RowBox[{"0.027591936509660075`", " ", 3 t+ y/ [6 K& @, P
   SuperscriptBox["\[ExponentialE]",
9 E0 ~2 S+ u- A4 X  J& a. }    RowBox[{"3.1415926535897936`", " ", 6 L! p" }! Z4 X- W
     RowBox[{"(",
1 O& t! A: @, T      RowBox[{; y: p7 [# G9 ?% }7 y2 x
       RowBox[{"-", "0.31770463544200006`"}], "-",
* D4 U0 G3 N. h" {6 T6 c       SuperscriptBox[- j, s: V# g$ r7 T; d
        RowBox[{"(",
/ q. R% ]( v* w0 X0 v         RowBox[{) P1 F6 s+ j+ ?- @' t# ]
          RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", 9 e2 S" A' Z! Y: H# K8 G
       SuperscriptBox["x6", "2"], "-", ) x0 t6 E5 |0 J! ~: P$ a1 b3 ^
       SuperscriptBox["x7", "2"], "-", 5 Z/ S7 m+ x# s9 b$ x. X
       SuperscriptBox["x8", "2"], "-",   I) B$ M+ B4 U2 h5 Y' Q& J6 k
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
/ U  Q3 r; c5 J' S  RowBox[{"0.5252475961933536`", " ",
5 F; k" ?1 B4 f$ z; M+ l( k   SuperscriptBox["\[ExponentialE]", $ X) e: C' _+ S7 p! @: Y
    RowBox[{"3.1415926535897936`", " ",
/ A6 Y6 w+ R  d9 P! s0 [3 `     RowBox[{"(",
' N; D/ q& _+ n6 ?      RowBox[{
, k# C) O; C2 i       RowBox[{"-", "0.6410867660730001`"}], "-", " z2 r  J& H. T, p
       SuperscriptBox[; p5 N& @. y! _6 m
        RowBox[{"(", & a" {1 [0 d* }7 t" _
         RowBox[{/ U2 f, z2 w# I6 w# k
          RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", $ x1 j# z' ]) {( r3 R% Q6 b8 S, J
       SuperscriptBox["x6", "2"], "-", ! A  |* _+ w" t' K% ]8 g6 g
       SuperscriptBox["x7", "2"], "-", ! Q/ E4 _/ {; M. b6 K5 ~: Z
       SuperscriptBox["x8", "2"], "-",
( u  J" X( Y8 P* ~  I       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", # R# Q/ T  R" a1 k% p! W1 M
  RowBox[{"0.32047284779644936`", " ",
, O5 l- F- `2 L, a   SuperscriptBox["\[ExponentialE]", 9 a2 H0 j! ]# C3 b  N
    RowBox[{"3.1415926535897936`", " ", ( O6 Q4 u- H4 @8 e% x
     RowBox[{"(",
# {/ W: l5 w/ M; g7 O: e% a      RowBox[{4 o* k3 Q7 ?0 x: m
       RowBox[{"-", "0.155663887074`"}], "-",
. c7 I; P& Q- J! x       SuperscriptBox[
0 B* s# K1 K  N% ~  r        RowBox[{"(", # N+ I1 k/ s) p# e' c& P* r
         RowBox[{# F5 T+ B& w2 V9 E
          RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", $ m0 G( p2 B: M6 Q5 M. l; r7 Q
       SuperscriptBox["x6", "2"], "-", : \7 o% P9 Y, C3 a2 b; H% w
       SuperscriptBox["x7", "2"], "-", - Y1 {% C' x6 t1 m
       SuperscriptBox["x8", "2"], "-", $ v/ C( ^! b( j/ H
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", * R7 T7 z# y, r& T
  RowBox[{"0.7528674241482847`", " ", 8 n$ {9 i0 \! F1 ^7 e, u, b/ T
   SuperscriptBox["\[ExponentialE]",
  O  h8 h1 ]% f  P* Q8 w' m    RowBox[{"3.1415926535897936`", " ",
$ Z. u0 A9 X! j* }( z     RowBox[{"(",
5 A/ m; f1 B, W; l      RowBox[{8 n, D# R" w9 _
       RowBox[{"-", "0.14151232428600002`"}], "-", 4 ^; s- d( F8 |4 q
       SuperscriptBox[, g* {/ }: H: `2 T
        RowBox[{"(",
. E: @+ U  d8 q% d* k3 r         RowBox[{' A  `& }0 o0 G0 |) q& f6 N$ @
          RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", 7 F) Q* Z6 O2 x6 v  w( x0 r
       SuperscriptBox["x6", "2"], "-",
4 i- a7 \' Y, J0 \6 K% a       SuperscriptBox["x7", "2"], "-",
* z' ]* ~( H+ ?& i% J6 T       SuperscriptBox["x8", "2"], "-",
& j: M0 ?7 L5 C7 l: G! }: I. _) N( [       SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",
. u) X# B4 ?6 N6 z+ r CellChangeTimes->{3.5779628386090403`*^9}]
; O4 x& u7 c! n, K2 j}, Open  ]],
2 }" |& J5 r8 E3 G
$ I( A0 d) G7 `9 S2 KCell[BoxData[" "], "Input",
6 h4 H! B  C# ~* A3 c CellChangeTimes->{3.577962835879035*^9}],' z. L8 L* f' h1 Y* L4 a* E
7 v2 J; ^  R, P6 }3 K# g+ U
Cell[BoxData["\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\:4e3a"], "Input"],
2 R8 H% P4 e3 K  |2 ]" B6 H: V6 X( i( @
Cell[CellGroupData[{
' S* \; E+ D5 f4 q" t
* y% U5 c& C& c( ?$ WCell[BoxData[
' }9 K+ B5 F; C0 @ RowBox[{"y2", "/.", " A& a( F  ?" u
  RowBox[{"{",
' w7 C7 T( p8 s8 {9 r! o' l   RowBox[{/ q/ \7 m" w, [1 ?7 b0 @0 K* j
    RowBox[{"x1", "->", "0.7406"}], ",",
9 c9 B0 a4 v' ?; Y/ Z( n( y- j. u9 R# Z    RowBox[{"x2", "->", "0.4621"}], ",",
% r  m5 e" k9 I, D: I+ b) F    RowBox[{"x4", "->", "0.2221"}], ",",
/ y1 f3 @: {) a/ ^    RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",( S% u$ Q$ W$ A# s0 b: k+ Z5 k
CellChangeTimes->{3.577962787784151*^9}],- y4 v8 L! o5 K6 M: Z

3 R0 T% A# V; g  s# x8 CCell[BoxData[
' r) w  V  Q6 g4 a/ Z, x( q RowBox[{  t4 W5 m+ [  ?1 x
  RowBox[{"0.9125798890455848`", " ", : y# k& F! D& B4 ^* m
   SuperscriptBox["\[ExponentialE]", 1 N" c+ |$ w9 g" w
    RowBox[{"3.1415926535897936`", " ",
+ D% d4 U. y7 M5 ?$ y3 N! ~6 J     RowBox[{"(",
% v* }( K3 O! N/ w  C      RowBox[{
- K, b  m2 Y9 a& A       RowBox[{"-", "0.17911224641499998`"}], "-",
0 j9 m6 R" O$ O! H       SuperscriptBox[- i; p( w9 R1 ?9 ~7 @& ~
        RowBox[{"(",
  o4 @9 M2 r7 v6 m6 ?         RowBox[{8 L. f( Q! P) N- S1 |, V
          RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", 0 M9 h( v; D8 z$ n5 o4 q
       SuperscriptBox[5 t; x" S  p' ]* O, }% g- ]5 D
        RowBox[{"(", - ~( A- w. u6 c9 h
         RowBox[{
! r. r. _; O' C. P" T* A; D          RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", & J+ n/ c2 G  R1 i! ~+ V  R3 o; \
       SuperscriptBox[
/ A/ _( d& V$ [8 L' k7 L        RowBox[{"(", 9 p" A' J  l- J
         RowBox[{2 i& j# |$ u0 s9 X
          RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
1 _" k' j/ M' B8 t( o6 i/ I       SuperscriptBox["x8", "2"], "-",
* D5 P& o4 Z# Q# W       SuperscriptBox[( X, d6 {# u: I/ S
        RowBox[{"(", 4 ~# h( I  q" g* g2 X* \% I
         RowBox[{: a+ b0 I, j! `; P7 v6 W
          RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
/ E& [2 ]' R0 s3 q) z+ a  RowBox[{"0.2883186011296682`", " ",
' \( S7 f* c$ d' T5 o/ z* ]   SuperscriptBox["\[ExponentialE]", * W0 @! f" w1 k' x) }4 y3 P
    RowBox[{"3.1415926535897936`", " ",
* v, c6 J. f2 b; F     RowBox[{"(",   z- Q% |5 S1 g: p
      RowBox[{+ B: _: s1 s) I" j( b) h' R
       RowBox[{"-", "0.105619387859`"}], "-", ! T, N& }* F3 B
       SuperscriptBox[! O: X& U8 O9 c
        RowBox[{"(", : G* T9 S8 f" y- z
         RowBox[{
3 c- ^1 z+ {+ z: F          RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
- U% s+ [4 I- W       SuperscriptBox["x6", "2"], "-",
1 a) K7 O6 o/ D3 E6 Q. N       SuperscriptBox[# v* H4 H0 L7 b4 @. I* Q& e
        RowBox[{"(",
1 @2 t* ?2 d( \# ~         RowBox[{7 f7 r& Z% z9 P" n! B2 q$ e" K( B/ b0 S
          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", " J" \* A8 F. [2 ?9 e) I* e% C4 H$ Y
       SuperscriptBox["x8", "2"], "-", . ?  }5 J* ]+ D4 c) \, L$ _  n' C
       SuperscriptBox[* O6 z( ]6 g* j5 t9 y
        RowBox[{"(",
# \6 O/ d) g% S9 B! k         RowBox[{+ [1 T7 ^7 |6 R# Z4 }4 M
          RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
1 h& M& e3 U0 }% U  "+",
9 n, [# k) [( o  RowBox[{"0.2115905228598317`", " ", , t" ]6 C$ q) j
   SuperscriptBox["\[ExponentialE]", . D5 D* A, r, W
    RowBox[{"3.1415926535897936`", " ",
7 A3 h" k$ R% p0 S8 r* Q" c) x     RowBox[{"(",
3 G* i$ [3 \6 Y' }; w( o      RowBox[{. v$ A  [4 x$ ~7 U! y; _
       RowBox[{"-", "0.236605670085`"}], "-", ! `  J" z6 ~& w6 K$ q8 P
       SuperscriptBox[
4 }4 Y1 |  `. S: F2 f+ {9 H6 O        RowBox[{"(",
0 E' R9 w6 g/ y. T         RowBox[{
/ o# P7 n0 g4 P0 ?( r          RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
5 Q1 O, Q& k- w& w3 h  b: F: i       SuperscriptBox["x6", "2"], "-",
$ R; E, |  n  `) |       SuperscriptBox["x7", "2"], "-",
" r8 x0 N8 R: X# W+ J       SuperscriptBox["x8", "2"], "-",
3 ^! c8 x! |; c2 i7 A, c* I       SuperscriptBox[- `! Y) ?+ m# p& b% @
        RowBox[{"(",
! B% v+ |8 @' i6 P6 ?         RowBox[{
* }3 z$ ]1 Q& o+ {/ L7 k. ?1 G          RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 0 r9 Y% a8 ?; u, r: t
  "-", # S- K, N( }# r# V$ w' c. [
  RowBox[{"0.22829938846668896`", " ", - z* O- v5 }% P! ?( ~) F* G
   SuperscriptBox["\[ExponentialE]", 7 t) }/ i& ^/ o1 m9 b1 l9 |+ \
    RowBox[{"3.1415926535897936`", " ",
  t+ W) i, w- x. l     RowBox[{"(", , G/ ^$ d9 r! F. ~4 t  h+ B" S: i
      RowBox[{
, {3 m7 h: A/ _! ]5 G       RowBox[{"-", "0.46221081830200006`"}], "-", " f% W" I4 S2 V' p% O
       SuperscriptBox[# ], i/ o( G: h
        RowBox[{"(",
/ q4 a' g! o; t- O! f         RowBox[{6 B; H: N* ?( o3 B+ o
          RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
; E0 I+ u7 ]% a5 S       SuperscriptBox[
# `8 m7 u. S3 e$ k7 _) D$ h( t        RowBox[{"(", ) m1 g' m' ~7 A! G% b/ u
         RowBox[{
" |5 {4 ~# ^2 u8 P+ e$ ?* l          RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", , `$ _+ ?  F6 K& G+ Y- p
       SuperscriptBox[
, m. y8 R/ b. X$ U        RowBox[{"(", : s4 M( c) T$ P) I& O9 m, E6 W5 c
         RowBox[{
/ Y# W9 Z3 k6 _8 j) L- D          RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", # G, J  ]  Q7 J$ W6 M/ w
       SuperscriptBox["x8", "2"], "-", 5 H! j$ r& N9 N7 e
       SuperscriptBox[
3 v# R! ?8 e8 z1 P        RowBox[{"(",
- [  w. d8 Q  Z/ A" n0 C& J) ]         RowBox[{
6 x4 T1 B: ]( Y- l) t) e          RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 1 h9 g$ \+ f" Z! D- `* ?
  "+",
. d" _  k" Z( B! P  RowBox[{"0.27551257162880105`", " ", 6 ?' q7 s# `5 E+ t* O' F7 Q1 c
   SuperscriptBox["\[ExponentialE]",
, [' g9 E& f5 E/ A5 \    RowBox[{"3.1415926535897936`", " ", 7 P* T5 N5 P. l5 L- T& d* ]
     RowBox[{"(", $ A( \5 b: [( o8 r& X
      RowBox[{
5 c# d. p  m1 n/ t% {& g       RowBox[{"-", "0.5837889295140001`"}], "-", 8 B; X  k" a7 l, I
       SuperscriptBox[3 [1 w! o3 K# }1 |# j( }+ m
        RowBox[{"(",
& e. G' l( [0 n0 v# F         RowBox[{
0 S( ?% S: h# Z& X& v3 I4 t$ ^          RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", % Y9 S  E$ R' f! P. {
       SuperscriptBox["x6", "2"], "-", * `/ s! I- a( X
       SuperscriptBox[
5 k( d! N% w. r1 o( `        RowBox[{"(",
6 Q' f/ i4 v! j$ p# S         RowBox[{
6 r) X. h2 B2 M' Z          RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", , G- Z$ }( v( d% k- A9 U3 b
       SuperscriptBox["x8", "2"], "-",
3 y! b9 e/ ~6 [9 O, V9 ^       SuperscriptBox[& P6 I  i: m" Y0 Y1 [/ D4 t
        RowBox[{"(",
. ?) r4 H( C0 c, A         RowBox[{; U* g* i  y; H
          RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
3 O# Q; |$ K' d3 Z  "-", & B  e$ e* T! ]- \, R& @6 o
  RowBox[{"0.12620581913715256`", " ",
) b0 ~  G5 B2 x% A& y" W   SuperscriptBox["\[ExponentialE]", 2 R+ [- \8 s1 y
    RowBox[{"3.1415926535897936`", " ", " z0 k7 @9 U6 t4 z1 b
     RowBox[{"(", ' @6 i3 X, m1 X. z
      RowBox[{6 U3 s6 o: R* l1 `
       RowBox[{"-", "0.19030188470200005`"}], "-", 1 k* N7 Y. l% R+ r, D' T
       SuperscriptBox[7 w# |7 s& y2 C& v1 J* s- G" m' k
        RowBox[{"(", 8 {  d/ P' Z7 z; y
         RowBox[{
+ S, M6 x& s; e; E& V6 j          RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", , G0 H8 L' N: V/ N2 N8 o) l
       SuperscriptBox[( X7 g! e- `7 C* P
        RowBox[{"(", , z" c$ v9 N, y3 C+ @  x# M4 o0 a) {
         RowBox[{( [* e' a0 H* B! _) a. D/ q
          RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
" N# \2 g8 t1 k8 i! G3 j6 a       SuperscriptBox["x7", "2"], "-", ) i2 i% a) D6 a; q; g6 T6 ~
       SuperscriptBox["x8", "2"], "-", . t' D7 F  J% d
       SuperscriptBox[
2 }" b& s1 k/ K        RowBox[{"(", 9 h8 r* n& A/ W% L) l9 p
         RowBox[{
2 U& H) ~0 l0 T, s3 b' |          RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], - ^" r( z( L. |
  "+", ' ^; ~* Z& Q1 E# K1 g# v4 S
  RowBox[{"0.12782130225993898`", " ", 6 a' P( D/ T# b- {9 M9 v
   SuperscriptBox["\[ExponentialE]",
5 p( p( j0 u( m/ G# \* d" ]! ], ?    RowBox[{"3.1415926535897936`", " ", # X- ]- Q& }3 J* x4 ?( ?3 S: `
     RowBox[{"(", , L3 r3 H' I+ t
      RowBox[{- s  t4 Q3 g( u! B
       RowBox[{"-", "0.28518780882`"}], "-",
/ c& s1 {- R: F  c! c       SuperscriptBox[$ V  `5 ]9 _, C7 ?5 X, j
        RowBox[{"(",
; r& |  G, X5 I9 ^3 Y$ U, C6 S: v         RowBox[{
  \; W( L0 r3 r7 |. v: X          RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
; O. A' @, H; _1 H; P7 C       SuperscriptBox[3 M, T% x4 p6 |
        RowBox[{"(",
5 U. Q% S$ B: \         RowBox[{9 R( ]! _6 d5 O4 p1 N
          RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
0 x) l0 K/ z4 H5 m: w$ V' W       SuperscriptBox[
) r( e* e- i. U6 o6 G: {# A& o        RowBox[{"(",
# X$ [  o8 w0 [         RowBox[{
0 s- Y, v+ b4 A/ V2 m$ Y; p+ b          RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", 5 d2 m, Q# Y" O: p/ q& [
       SuperscriptBox["x8", "2"], "-",
4 Y& q$ c! y: Z  S       SuperscriptBox[
, I. \1 f% m$ b( m4 s0 Z        RowBox[{"(", % t+ L/ T' e+ y8 a0 b4 N
         RowBox[{
: Y: h% w. j( g" N6 b          RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
$ q( Y0 L, E+ L: P& |  "+",
) S" x, A; {8 m% x3 I/ b  RowBox[{"0.23615247809381104`", " ",
7 e/ A! j' Q0 s4 M# c. L   SuperscriptBox["\[ExponentialE]",
' v6 ~" M( ~6 C( f2 V; U    RowBox[{"3.1415926535897936`", " ", 6 C! E' t/ N' s3 U+ }) ~7 E
     RowBox[{"(", ' r7 [; I; \7 [3 p" |; F
      RowBox[{+ W* _2 q1 ]+ l
       RowBox[{"-", "0.11387365200400001`"}], "-", 1 A( c/ R" C& z, I; U- G  d# w; n
       SuperscriptBox[: J- m% q( P  E% g2 f* W# _
        RowBox[{"(", : S2 V* V6 y: m& Q4 x
         RowBox[{
1 V+ W( D7 B: V! B8 N" s: u5 ~          RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
& {9 V& S6 H# q1 T! y       SuperscriptBox[
4 z; T' f7 z6 D, t; |        RowBox[{"(",
" [' x; T: j2 c7 n9 ~+ [2 C         RowBox[{& h: \* V# o. }9 ?% o
          RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
9 u; ?) ?. p- i: {6 Q       SuperscriptBox["x7", "2"], "-", # Z' x/ w& @. n0 |* w, {
       SuperscriptBox["x8", "2"], "-",
4 m+ z1 x# M& e! z       SuperscriptBox[0 S! K2 A# ^5 q2 j  E  ^, J
        RowBox[{"(", 1 U# u  c/ S+ x/ E% m
         RowBox[{
. V" k. E1 @4 I- h1 f/ I          RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], : M3 t# J( ?+ ^1 e
  "+",
, h7 d( J  j# N7 E. `) z: j  RowBox[{"0.3207174990295845`", " ", ) c% B$ j: T& m4 ]* V2 w- M: C8 Q
   SuperscriptBox["\[ExponentialE]", 4 M, q1 x( J& g: ~- E# r# v( n
    RowBox[{"3.1415926535897936`", " ", + x" l( K9 O- G8 R' U! T: G3 R
     RowBox[{"(",
, ?& ^8 c0 L9 G      RowBox[{
3 J4 w6 i! i" Y( J       RowBox[{"-", "0.11442644782500001`"}], "-", 6 P- v. P( B( b2 p3 R9 [
       SuperscriptBox[" y( L' H* C( a' e/ T
        RowBox[{"(", ! ]% U; k4 n6 B: ^! k$ `. ?
         RowBox[{
6 a& `- U' t3 ?          RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
6 k- C  I) i1 `4 D) ^: N       SuperscriptBox["x6", "2"], "-",   d3 A  W& C/ J5 Y* t
       SuperscriptBox[. f" ]- Q- P0 E+ f% Z6 [# N
        RowBox[{"(",
* e% X% N, T# M         RowBox[{; k( k3 M" J( |$ C/ P8 {: O
          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
/ R" A6 U. F7 F+ P0 X/ b$ X& K       SuperscriptBox[
8 ]( @* F) z$ Q2 A: I: T" c        RowBox[{"(",
/ Q+ s1 H/ V" R. C3 a         RowBox[{
8 Y* ^! k, y' o/ y0 v          RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
! D6 ]& ?/ b  e9 U8 x1 n       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 2 F2 B2 j9 ^, Z( M
  RowBox[{"0.15852708848338293`", " ", 8 P3 u, y1 P6 ?
   SuperscriptBox["\[ExponentialE]", ( z- f8 S. j% o9 P2 H
    RowBox[{"3.1415926535897936`", " ",
) Q4 Z6 y( p9 X; `( H  p     RowBox[{"(",
7 I: [( }# h: G" ], Z- c7 Z      RowBox[{8 N6 b2 O4 h2 a* }
       RowBox[{"-", "0.21008576609800003`"}], "-",
- E$ Q' i& R4 c8 O, }* m) X       SuperscriptBox["x3", "2"], "-", # b# u9 P. `* S+ t+ T
       SuperscriptBox["x6", "2"], "-",
5 f3 ?$ z2 r, `' n! l$ Q: X& ?% V       SuperscriptBox["x7", "2"], "-",
, `1 l( A& z2 x9 U6 m       SuperscriptBox[( U% n  H0 ~. A9 G, M
        RowBox[{"(", 0 F" ]4 {" O- N, S6 g" x8 s7 L
         RowBox[{
# i/ K  f7 ~# V: Z6 {& [- M2 ^3 k5 Y          RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
. _( Z  {/ g: H( H( J       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
6 B- ?2 ^; d) e  RowBox[{"0.6019775648968266`", " ",
' ~) N2 M; {$ a$ R   SuperscriptBox["\[ExponentialE]", 1 n4 h& {6 m( q6 t7 t4 d# C$ D/ u1 R
    RowBox[{"3.1415926535897936`", " ",
# F! M7 c% u+ g: l& d% o7 h& Q6 w     RowBox[{"(", * I8 F' J# M- |' V' h
      RowBox[{3 j8 e) ]" {+ l( ^! ]
       RowBox[{"-", "0.4481471925460001`"}], "-", : h# N) _# C4 O" |$ J6 X
       SuperscriptBox[$ L3 p3 f/ k5 Q- C2 u2 W- S# m- \
        RowBox[{"(", 2 _# N; |+ Z0 g. y9 }/ g
         RowBox[{% k3 r7 j2 B  g; F# Q6 i4 f
          RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", " Q; j1 e5 [) H4 o, R
       SuperscriptBox[
/ y9 P3 m" H6 |) [) P4 R1 t        RowBox[{"(", ) c: T! n+ r1 H& h7 w8 Q2 J- J
         RowBox[{" J  |  p' ~' F( l
          RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
1 D. O; o* \- Z; m! m; J& T       SuperscriptBox["x7", "2"], "-",
9 W1 V  T" [- S( r0 P       SuperscriptBox[5 I( D) L! l- I6 C+ g+ |
        RowBox[{"(", ) R- ?& U/ s% z9 z% A3 c
         RowBox[{' K% N7 ?( t4 p, O$ J1 g0 W0 h
          RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
+ ~0 O" {. Z9 z0 l3 O       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
6 b- I0 R! ]3 _2 H  RowBox[{"0.16041393254115266`", " ",
9 ?- f- @# O4 h   SuperscriptBox["\[ExponentialE]",
, q0 J0 e' G/ f* F0 y! y    RowBox[{"3.1415926535897936`", " ",
1 [8 Q! }. r, e3 H4 `     RowBox[{"(", 8 N% ~7 d6 G2 ~/ E
      RowBox[{) i, u- o7 O$ V! E+ I1 y& |9 q
       RowBox[{"-", "0.08722659614000003`"}], "-",
- A1 D( W( c7 F" b       SuperscriptBox[% I! n+ ]7 ]7 u( ?0 L4 i9 [6 h
        RowBox[{"(",
2 h/ r2 j3 r  @9 x9 V4 ?         RowBox[{
0 I( V$ [) q5 ?% t          RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", * w; d% M$ Y' v6 Q$ g3 y6 r
       SuperscriptBox[
4 h8 W, K  c& s        RowBox[{"(", : j/ u  J) |3 c- O
         RowBox[{
  [! ~( Z4 y8 ?" V, c5 [          RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
1 ], U) }$ M0 t  n) r       SuperscriptBox["x7", "2"], "-", / b9 j5 C5 x$ l) C* g3 p- n
       SuperscriptBox[
. U: L' z  @1 S1 i, G        RowBox[{"(", 7 z3 q% T/ F2 {, S5 U
         RowBox[{( n3 z) }- H5 C4 o4 l  ]( `
          RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", & i$ g# i7 ?, u  S$ Y5 c6 w* w
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
/ ~4 T- D, S  W- S/ |& _, M) [  RowBox[{"0.482281849713638`", " ", 7 V" t. F* \3 l! E
   SuperscriptBox["\[ExponentialE]",
8 c9 t5 P" P" r8 R    RowBox[{"3.1415926535897936`", " ", % S& ?; P" h- e3 ]; L# @
     RowBox[{"(",
6 ]6 {. B( d; r) u4 E      RowBox[{
* ]) B' {% B6 n       RowBox[{"-", "0.23738217000100004`"}], "-", : @+ P  r3 `" f# ^
       SuperscriptBox[
& t: ^4 X6 {/ ^; I        RowBox[{"(", " V) r7 ^& _: h( t8 @( S/ ?, u& Q
         RowBox[{* a" N) V- p# I, [8 G" T# ^
          RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", , |0 f( A% Q0 x0 o! u
       SuperscriptBox[- h/ [6 p5 u) P# V1 |
        RowBox[{"(",
4 j4 E) q2 V' q' _         RowBox[{
, k( }6 `: X5 x7 V2 H2 M7 H          RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
- z) l! O  D( ]       SuperscriptBox[8 U  ~- r; _5 T1 A% z$ t
        RowBox[{"(",
* u1 u6 t1 T9 g( a' }         RowBox[{+ }# K; v) \, h$ h2 ~9 G- u
          RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
& E( m( U& {5 ~/ `- i/ T$ q; v       SuperscriptBox[
0 j* \+ \1 V' A7 w4 C( ~5 l. n        RowBox[{"(", + t2 _' ?) r* E6 N  C
         RowBox[{
* n- {, |, o, y! K8 M/ p          RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
7 d+ c+ e. L4 w0 c9 h7 I/ e8 J1 z       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
4 m! G  L9 _8 U' Z* w  H  RowBox[{"0.29549238400772093`", " ",
7 A4 e  u' w8 S' x. b/ t# d   SuperscriptBox["\[ExponentialE]",
; [4 o5 _7 C6 r+ {! M# J5 g$ Z    RowBox[{"3.1415926535897936`", " ",
* f9 J8 N, B7 u% D     RowBox[{"(",
5 r) d* V& x- Y% a      RowBox[{
4 \* U/ F4 [) J; D3 Z/ ]       RowBox[{"-", "0.19162171876400003`"}], "-",
( b7 M) e6 J( U- M1 j       SuperscriptBox[( M6 D, V0 D4 D/ S+ r- w9 {+ Q
        RowBox[{"(", 3 ^; `6 N# P" E/ r
         RowBox[{
# |' [) g. r9 k- Q  C          RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", 1 Q# |! |- U* z5 ?# z0 N
       SuperscriptBox[* P8 H( B5 e4 `1 U0 x
        RowBox[{"(",
" u4 z8 u- J* k' R         RowBox[{0 B% M; Z' W* T2 @
          RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", # c7 _+ P1 @' [! k) {& ?  [
       SuperscriptBox[; p& ]# |( Y+ P) j0 f
        RowBox[{"(",
% e0 i9 ^$ b7 P, }$ o         RowBox[{
! b, v/ h5 R% e4 L  K3 H+ K0 A          RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
/ T2 w1 t3 c% \! U& U2 V' j* C9 ~       SuperscriptBox["x8", "2"], "-", 3 g; W0 ^1 Q/ V8 V) \
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
" Y2 k4 \  t- z8 a5 P  RowBox[{"0.31296872769679895`", " ", ( J. @$ I$ [) T9 Y# ~
   SuperscriptBox["\[ExponentialE]", ' D8 h* E* a5 K: K3 m
    RowBox[{"3.1415926535897936`", " ", 3 P+ l" s" J( O7 ]* Y0 T
     RowBox[{"(",
8 S5 J$ t9 I5 [  P6 d      RowBox[{
; H9 O; _8 f9 B* U- j4 @       RowBox[{"-", "0.109748954594`"}], "-", # A( ~4 U2 s" w8 N& @2 h3 p5 p" F
       SuperscriptBox[
: t: ]1 F" F* V: _3 g        RowBox[{"(", 4 z3 T- y! X" I$ u- x7 [& Y: A
         RowBox[{
) J" L3 p1 f1 J  l( |$ V3 x) T/ t          RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
' n6 o: t( Y/ S7 k       SuperscriptBox["x6", "2"], "-", % y/ G- q0 h; m3 y, U8 m
       SuperscriptBox[( S3 B- p4 L$ F4 I/ D
        RowBox[{"(", 3 e9 l" b& J8 i: H# Y
         RowBox[{; Y0 }* w" k" _1 r5 ?# {0 Z
          RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", 7 ~5 Y& m6 [1 G3 t0 I0 g
       SuperscriptBox["x8", "2"], "-",
: b/ b. S$ [- v0 _       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 9 t) K# F1 }& u( @2 X, r
  RowBox[{"0.4666313851213299`", " ",
# h; `2 ]3 h2 Y   SuperscriptBox["\[ExponentialE]", 7 n0 V2 X. ]' g/ W: _( F
    RowBox[{"3.1415926535897936`", " ",
. g1 Y+ v/ h+ y! J- z3 e  B     RowBox[{"(",
! p9 J6 x9 }8 V7 c; v      RowBox[{
0 S; M9 q" h4 `% I7 n2 s. R# B       RowBox[{"-", "0.14616677062500003`"}], "-", - {6 J( q' r+ j* u# O
       SuperscriptBox[" E' A% A; X$ W9 ]3 n+ R
        RowBox[{"(",
8 U/ j5 j  O! _% |  O( r/ f         RowBox[{, b& P* ^6 ^& w
          RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",   `( T5 |$ T! L/ u
       SuperscriptBox["x6", "2"], "-", $ o9 j3 ?3 X1 q0 D* }
       SuperscriptBox[
7 `/ a  a. F) M6 W! H( R# [        RowBox[{"(", ; i3 d4 x0 `+ N
         RowBox[{9 o0 f8 k7 a! J0 I
          RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", ! r# n7 ~" H5 |) T2 |+ h
       SuperscriptBox["x8", "2"], "-",
9 |0 U! N- g% Y+ |- r       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 3 ?9 q. l7 X) u' s5 R
  RowBox[{"0.37419828116611387`", " ", ; a* F8 h7 p& i
   SuperscriptBox["\[ExponentialE]",
: s4 C& W  o( v8 D8 D: y    RowBox[{"3.1415926535897936`", " ", 2 s- _& J6 N$ b3 c! M3 }
     RowBox[{"(", 4 G% w0 A" J9 m) N
      RowBox[{
+ ]: X9 F6 J" ?3 Q9 p! R1 u2 s* ^       RowBox[{"-", "0.10407011464100005`"}], "-", . w: W3 g' f8 W% ?: a+ Y1 J" p5 q/ C
       SuperscriptBox[  A2 Q. Z! w* K; Q' j
        RowBox[{"(",
! [7 }" `7 s/ c9 l1 ~5 O( ?         RowBox[{
* G3 h4 u4 |0 I/ M( a" d          RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
. C) G& U& j' G, g! H       SuperscriptBox[
/ S+ j1 E* g2 K1 D0 E# b/ ]        RowBox[{"(", + u8 f  d* Z( N( l
         RowBox[{
( K4 {& @' j# ]1 V  p          RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", % u$ V: F/ |' _9 s
       SuperscriptBox[
- a' }' D; y, d        RowBox[{"(",
2 `0 k& L! L, `& |' L         RowBox[{$ @- u( N& j: s/ ^
          RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", ' g# ~' Z( o! J0 P* |' Q/ a9 H8 f
       SuperscriptBox["x8", "2"], "-",
& J, F6 A7 _: M" _6 K$ d- Z) P- K       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", ! k% W. \' \0 O; w
  RowBox[{"0.025873988843992612`", " ",
. D6 r) J( D  c7 N   SuperscriptBox["\[ExponentialE]", / T) }. w3 X+ ]; ], c
    RowBox[{"3.1415926535897936`", " ", + H; l# l$ Q! y
     RowBox[{"(", ' ~9 ]. Z+ D) ~
      RowBox[{6 L' ?" Z# H2 W& j6 D" @3 o6 S: i
       RowBox[{"-", "0.31770463544200006`"}], "-",
2 v, k$ H( a0 Q6 a8 q" X       SuperscriptBox[4 ]9 s: d  V9 ?8 [1 }! ?0 ~: l
        RowBox[{"(", ( C8 E5 x( h1 d" J5 w
         RowBox[{
+ t" `9 @2 U/ E; L$ R% H1 `  N          RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
- N+ v$ v" f: Z" e" d0 O9 c       SuperscriptBox["x6", "2"], "-",
# [/ a6 k) [+ z2 S. U' h9 n       SuperscriptBox["x7", "2"], "-", - D( }( y* i+ W0 U6 V) |* Z
       SuperscriptBox["x8", "2"], "-", . }, K0 E1 w" u  z$ s" v
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
; A4 x9 Z+ _  B5 Q  RowBox[{"0.5575503376854455`", " ",
7 T4 n* |9 U( L9 C' B! t! G   SuperscriptBox["\[ExponentialE]", 2 F% A, H/ R% E6 C. s
    RowBox[{"3.1415926535897936`", " ",
* ~" b4 f2 e. s$ j8 k- h* q6 i# l" e     RowBox[{"(",
& f) o( {6 I4 D; c+ e  y% C8 ~  [      RowBox[{
: H5 V) Q& ]# o2 k       RowBox[{"-", "0.6410867660730001`"}], "-",
0 d  s( _2 q9 T0 W8 Z5 }       SuperscriptBox[
( [, I% _6 ~* J        RowBox[{"(",
/ q" }, W& F/ G$ _! u6 R         RowBox[{! S8 a5 C% a# [6 G6 }* x- u
          RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", 1 F# c3 Q* f8 x# K  \
       SuperscriptBox["x6", "2"], "-",
' ^* }% `5 G7 h! A% K, {       SuperscriptBox["x7", "2"], "-",
  ?) |5 I/ }3 p* O+ }       SuperscriptBox["x8", "2"], "-",
' ^& A9 t$ Z( t. c+ V8 {' b  e0 O       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", / s! Q4 J) {( i( N' z8 F) @: a
  RowBox[{"0.13398540448199214`", " ",
/ m( Y- ^  y5 b' U6 x+ m- P  ^   SuperscriptBox["\[ExponentialE]", * k( s$ G2 a1 ?: {3 v
    RowBox[{"3.1415926535897936`", " ",
$ [5 ^9 @: q6 t     RowBox[{"(",
: g9 g1 \2 D) h3 n4 y: n7 R      RowBox[{
8 G4 x9 U% R- j5 e4 y( }; u       RowBox[{"-", "0.155663887074`"}], "-", ) F) R+ l% L4 o
       SuperscriptBox[# P  ?+ R3 l% ^& @7 g8 _" g9 ]
        RowBox[{"(",
6 l6 q9 F1 Z+ x6 Q% r$ G7 E. \9 L         RowBox[{
0 B( `  l& E, U) z6 ?4 Z6 B3 A          RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", 3 L/ b  o4 k  |6 R! i
       SuperscriptBox["x6", "2"], "-",
* [' Q- a. g' X% S       SuperscriptBox["x7", "2"], "-", & {/ \6 I1 H5 X, ?/ p: ]4 {( z
       SuperscriptBox["x8", "2"], "-", ; X) {) @  |: L8 B4 z$ `
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 7 C7 ?5 j$ m: H9 E  |  N; c# J
  RowBox[{"0.4572385099113415`", " ", 3 M- W' Y9 O3 f( N: A( i
   SuperscriptBox["\[ExponentialE]",
- A9 l5 s; p, z5 K    RowBox[{"3.1415926535897936`", " ",
5 L# w6 T4 ~. e3 W     RowBox[{"(",
0 L- a, a( Z6 g1 _      RowBox[{2 |0 R( N$ L9 g4 [- m8 |
       RowBox[{"-", "0.14151232428600002`"}], "-", 4 M* ~5 C+ F" B2 m6 p! L
       SuperscriptBox[
1 D9 ?7 V+ k( U        RowBox[{"(", # b- `( i. t- U* T5 g  n
         RowBox[{
' O- h# X) l0 u  Y9 @7 q          RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", ( q! S5 B4 @4 k) }
       SuperscriptBox["x6", "2"], "-",
! x+ @' \/ N4 K6 d0 q       SuperscriptBox["x7", "2"], "-",
7 K+ ^& c: I6 q2 k* i       SuperscriptBox["x8", "2"], "-", # y0 w: E5 G0 B" h) x
       SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",
8 |" v1 O! }) C' [$ E: x CellChangeTimes->{3.577962841401445*^9}]
  O0 f. X6 Y6 p}, Open  ]]
' m& R- ^$ a$ T( R, s  J},: E3 b& w( [1 C! J3 l. b5 s
WindowSize->{1093, 659},0 Q$ N7 I, W. E" v* G) \& e
WindowMargins->{{61, Automatic}, {Automatic, 15}},9 f+ k# @3 D8 Y4 e/ U9 s% M4 l
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
7 I; ^$ N. x& Z, a0 r! S/ oStyleDefinitions->"Default.nb"/ |0 i, p* }' @! Y' I
]. J9 h$ Y9 D  P0 L7 i2 Z4 x# B' S
(* End of Notebook Content *)
1 u6 A3 v% {% {
3 W9 g( X8 Y* D- I; Z0 ?  j(* Internal cache information *)
( T$ d, Z% h& ?9 s. l7 N% z( K! I(*CellTagsOutline5 r0 c% ?+ p- W
CellTagsIndex->{}
7 L  z( G5 _' x0 j' t*)4 p, j/ S0 N$ x# I2 C
(*CellTagsIndex
$ Y( E* ]' K" n# ACellTagsIndex->{}
  b( _' c0 [$ c; }8 ^! a5 m. ~  ]$ r*)( |; {5 C) e( v4 t7 u1 V: k
(*NotebookFileOutline
$ g! ]) N8 ~; C7 S  i, _: XNotebook[{
& r  B2 E) _: o# a5 z3 }# `9 ]8 A8 KCell[CellGroupData[{
" i- I2 D/ ]6 `3 a6 O+ G$ G: rCell[567, 22, 22639, 450, 1792, "Input"],, W" s  h$ N: Z
Cell[23209, 474, 21281, 449, 1703, "Output"]
1 r( y9 E6 |0 t: ?( y6 U2 b, n( J}, Open  ]],
" R( u4 }' M0 p: J& S+ BCell[CellGroupData[{/ Q$ O; l: g0 y3 r# u" C
Cell[44527, 928, 198, 5, 31, "Input"],( A3 U" x% m: G& N" Y- _
Cell[44728, 935, 53666, 1605, 1532, "Output"]; Y+ O' a; K% w$ o. M( m
}, Open  ]],
% V9 ^8 K- r2 v# eCell[98409, 2543, 614, 16, 112, "Input"],6 ^) s7 V# _( P, ^. Q
Cell[99026, 2561, 667, 17, 72, "Input"],8 P$ F2 o. B8 Z4 E
Cell[CellGroupData[{8 u& J* j! M2 |7 M6 y
Cell[99718, 2582, 885, 13, 52, "Input"],5 F: L; o. b& U; P6 d2 C$ k$ \7 k
Cell[100606, 2597, 935, 14, 30, "Output"],
. O& \0 r! f8 X6 ?& C' ACell[101544, 2613, 932, 14, 30, "Output"]& ~) w2 L2 i7 J+ g5 V
}, Open  ]],' t# w* f7 C1 ^+ ]
Cell[102491, 2630, 4236, 93, 412, "Input"],
2 l* S8 f. A8 W2 |; gCell[CellGroupData[{2 {$ ]5 t* P, s, t: }
Cell[106752, 2727, 90, 1, 31, "Input"],+ `7 |1 a* s0 M, u( i
Cell[106845, 2730, 872, 13, 30, "Output"]" D. _! ?. i/ E3 {9 u) T
}, Open  ]],) |5 S- o1 }/ O$ j+ V; x% E
Cell[107732, 2746, 458, 10, 31, "Input"],
$ M1 B1 n& r( m3 v6 U; \Cell[108193, 2758, 126, 2, 31, "Input"],
8 I4 d' D' g# O0 }/ GCell[CellGroupData[{! O' _7 K! R+ c- ^7 e) Q& S
Cell[108344, 2764, 248, 6, 31, "Input"],
" ~3 |& L# r- K; _Cell[108595, 2772, 1007, 17, 30, "Output"]
, H2 O7 u6 g% q+ b% h}, Open  ]],
7 l! D; ?$ n/ J: e% i" s% xCell[CellGroupData[{) I5 _8 K6 E! g9 e, }0 p
Cell[109639, 2794, 251, 6, 31, "Input"],
! Z4 }; ?, `3 T+ ^; U7 ]6 MCell[109893, 2802, 1013, 17, 30, "Output"]
2 ?* w% \4 ^+ R4 s}, Open  ]],
# j3 ?7 q, B6 i5 g- ?0 Z, QCell[110921, 2822, 1232, 23, 31, "Input"],
: Z& z2 \& ]/ E4 k$ ]4 d& M4 I+ e' C3 VCell[CellGroupData[{, B6 ]7 p& g% m: S- e/ E$ h
Cell[112178, 2849, 147, 5, 31, "Input"],; ?! U0 Z. D( Y4 q7 J, r% j
Cell[112328, 2856, 1979, 50, 50, "Output"]1 V8 F  k+ Z/ B6 o
}, Open  ]],
$ b% ?' N/ n: {& l- o4 {Cell[CellGroupData[{8 l* V% P& B; S% j
Cell[114344, 2911, 195, 5, 31, "Input"],& @0 l  V0 F- s8 K2 w. @& d7 W
Cell[114542, 2918, 123, 2, 30, "Output"]
% @- i6 r* B3 o/ f5 f, k}, Open  ]],
; m: d: p$ e  ~$ N& C3 ACell[CellGroupData[{0 P' X" v, F! D! E9 c% U; ^& |9 x0 x
Cell[114702, 2925, 144, 4, 31, "Input"],
; y! u0 n0 J$ \& k2 pCell[114849, 2931, 96, 1, 30, "Output"]
# R$ ]; o- i0 E  A, T! `0 @0 l}, Open  ]],
6 u' K$ z7 V1 B- e0 tCell[CellGroupData[{
) o6 w& E8 D! h( W0 z1 DCell[114982, 2937, 146, 4, 31, "Input"],# `* H. B% B( ^  d1 _
Cell[115131, 2943, 495, 7, 30, "Output"]
  |9 F/ D; m7 n- g0 w% K; g}, Open  ]],9 M8 O" d9 O: |/ C! K7 n
Cell[CellGroupData[{9 q/ C* b  G) N
Cell[115663, 2955, 144, 4, 31, "Input"],: f. {* M% L8 s: K0 b
Cell[115810, 2961, 418, 6, 30, "Output"]8 B+ v5 v( @7 o. t; G
}, Open  ]],6 Z6 t' i6 ^8 R
Cell[CellGroupData[{
0 I! r: H# v0 z, s' a$ r4 V8 Y! t$ FCell[116265, 2972, 144, 4, 31, "Input"],6 P- y0 g. r+ N8 H" }
Cell[116412, 2978, 549, 8, 30, "Output"]: r$ {- c! y0 X9 T& x) K# d% Q
}, Open  ]],
8 z" ^0 b9 [" f* \# a8 W0 iCell[CellGroupData[{
" z9 i+ @* S5 c% {! r  NCell[116998, 2991, 537, 10, 31, "Input"],8 {2 C0 Y! f( d% w5 p
Cell[117538, 3003, 998, 14, 30, "Output"]/ v, r; o5 A: H' B: x  Y
}, Open  ]],1 V& l& f/ t" s, B
Cell[CellGroupData[{! @# q9 j, o4 c
Cell[118573, 3022, 2321, 55, 44, "Input"],
7 }" l$ {# a0 ?- D4 BCell[120897, 3079, 1541, 38, 91, "Output"]- a* t7 F- B6 f% m7 y% m( Y0 @
}, Open  ]],
. F* [' M. ~5 G8 s0 T. ^8 E- [Cell[CellGroupData[{: c% {& P# m& W* K% |
Cell[122475, 3122, 856, 19, 87, "Input"],
3 ]) N, @  I6 C1 aCell[123334, 3143, 568, 14, 91, "Output"]
- E  v: M) f- j# v5 A, _! c) i, O}, Open  ]],
4 u" ~0 X4 Q+ k2 S; m! {9 [Cell[CellGroupData[{
* `4 m2 k' T+ x. }3 K2 KCell[123939, 3162, 437, 10, 31, "Input"],
- W# W3 i' t+ O8 \6 C# ECell[124379, 3174, 739, 12, 30, "Output"]8 }  L* P9 r/ ^
}, Open  ]],
4 ?: n9 X: c1 b; eCell[125133, 3189, 242, 3, 31, "Input"],
: [& a; U# L, j' pCell[CellGroupData[{
" ]: z: X- ]. SCell[125400, 3196, 109, 2, 31, "Input"],: C0 t8 V: G$ a* Y
Cell[125512, 3200, 323, 7, 30, "Output"]9 n0 S$ w. Y; i# X
}, Open  ]]," B7 ]4 ~5 s, F! h! x
Cell[CellGroupData[{3 ^5 J$ {) j  \1 \2 ]1 S
Cell[125872, 3212, 526, 15, 31, "Input"],( M3 V1 k- N+ v4 q6 j  i  v1 A
Cell[126401, 3229, 1436, 44, 36, "Output"]  G2 C9 F0 J5 _1 k; M7 u/ l" H
}, Open  ]],( w) T5 ]! ?/ V8 A  L
Cell[CellGroupData[{
0 p2 X9 J6 u6 I1 q6 p3 [Cell[127874, 3278, 92, 2, 31, "Input"],
: Y% ]4 p$ i' f3 P: ]& jCell[127969, 3282, 326, 7, 30, "Output"]! K9 \- _$ N; w; R: k
}, Open  ]],+ u0 K& p; z8 n; d& s/ }
Cell[CellGroupData[{
' p1 D: b: [" r1 \Cell[128332, 3294, 388, 13, 31, "Input"],
+ P+ q; w# [1 V$ g; VCell[128723, 3309, 1381, 42, 36, "Output"]
( b; t  _/ k# y. `}, Open  ]],) I+ c+ |8 I, k& p  \
Cell[CellGroupData[{
+ c& W3 g- J/ I' V, {6 a1 v+ gCell[130141, 3356, 89, 2, 31, "Input"],+ C* U- F8 R" _# N! d5 w6 ^
Cell[130233, 3360, 320, 7, 30, "Output"]6 i! m( M; \4 l8 u! E9 J
}, Open  ]],* p* [  x) x5 Q" a9 s& t
Cell[CellGroupData[{4 U6 _0 v. W4 i) i  d' n. Z
Cell[130590, 3372, 387, 13, 31, "Input"],, C+ A- v  _" y9 U6 F9 h  F
Cell[130980, 3387, 1381, 42, 36, "Output"]
  B8 e7 k* J; e" t+ g  C0 _}, Open  ]],
: N# ~2 d- q3 b  L5 g3 ?  Y2 QCell[CellGroupData[{0 M  s4 L8 S) M! }
Cell[132398, 3434, 91, 2, 31, "Input"],
$ L" j" X  D  i: c/ w" ?Cell[132492, 3438, 328, 7, 30, "Output"]5 h1 j: ?5 e0 S* G+ n, B
}, Open  ]],
, e5 Q/ F3 f- y" u5 XCell[CellGroupData[{( m8 o1 @/ J( j5 o7 G
Cell[132857, 3450, 384, 13, 31, "Input"],
1 s; i" G) L6 W" BCell[133244, 3465, 1379, 42, 36, "Output"]
! T! @. U8 z4 ^/ A3 n7 w}, Open  ]],- _/ R  |6 u1 o, D) q. Y
Cell[CellGroupData[{
; i+ ^9 P9 T9 _3 ?Cell[134660, 3512, 93, 2, 31, "Input"],' n$ f, w, |4 ^" T% c
Cell[134756, 3516, 322, 7, 30, "Output"]3 O3 Z+ {) ~1 A8 V# U5 w, ]# R
}, Open  ]],
, R4 a# R1 s4 }2 x4 lCell[CellGroupData[{
/ j. D. y& R- _2 Z( fCell[135115, 3528, 385, 13, 31, "Input"],
5 \5 q/ y' m6 g# v8 Y2 Y. yCell[135503, 3543, 1379, 42, 36, "Output"]$ {0 t2 E" v) Z+ p0 a5 B* i4 T! [! c
}, Open  ]],1 Q+ P9 P: K1 R; [' C
Cell[CellGroupData[{# m) c' O2 T& `! v6 z
Cell[136919, 3590, 113, 2, 31, "Input"],6 f2 V4 M5 ?  J3 r
Cell[137035, 3594, 348, 7, 30, "Output"]0 T5 a$ v2 b& `6 S: w
}, Open  ]],
4 r6 p. E2 V) I4 h# `" l3 E# d2 ICell[CellGroupData[{
) Q8 m$ R: y, oCell[137420, 3606, 406, 13, 31, "Input"],
9 A: Y+ d7 K0 P/ n( VCell[137829, 3621, 1414, 43, 36, "Output"], M  h% ]! L9 B$ F
}, Open  ]],
8 U4 {3 u/ a* R. q% Z& T8 F6 GCell[CellGroupData[{
3 [# P* \6 W6 c8 t9 T1 X2 ICell[139280, 3669, 135, 3, 31, "Input"],
0 \; m5 J7 E* N0 rCell[139418, 3674, 358, 7, 30, "Output"]1 o7 F3 q2 r0 K( F& _0 n
}, Open  ]],
7 ^8 V* w3 \6 H6 Q$ S5 n$ ~Cell[CellGroupData[{5 X, L: y/ ~0 M
Cell[139813, 3686, 430, 14, 31, "Input"],
% R/ g7 o9 d) }Cell[140246, 3702, 1426, 43, 36, "Output"]
, J1 V. i; h1 S1 k+ b}, Open  ]],
9 E. V. m0 H6 z7 ^4 [, nCell[CellGroupData[{
% x! G0 V' Y/ n# LCell[141709, 3750, 156, 3, 31, "Input"],
$ w" Y# C5 K. d* S- _9 I+ @; dCell[141868, 3755, 377, 8, 30, "Output"]
4 S+ p6 R' u2 h* e" m}, Open  ]],& v  J* O! c8 W$ R* |$ K
Cell[CellGroupData[{  U* e+ k( a3 h* T9 [
Cell[142282, 3768, 452, 14, 31, "Input"],
4 b+ A! [/ v" g% nCell[142737, 3784, 1440, 42, 36, "Output"]8 t$ I7 ^) E9 @) Y
}, Open  ]],
! x. G3 S! Y, A7 L* T- QCell[CellGroupData[{
" @0 a2 |. W5 Z1 t$ `- A( MCell[144214, 3831, 178, 3, 31, "Input"],
2 k! z: @& p& r# ?* M: WCell[144395, 3836, 448, 9, 30, "Output"]
1 Z, j! R) _; U! a0 B! O1 k' Q}, Open  ]],
8 Z) k9 u" T2 B& t/ t. wCell[CellGroupData[{/ g% m$ ?8 f" [# s# J
Cell[144880, 3850, 474, 14, 31, "Input"],
+ i6 r' r. }- h' ]( @, L$ rCell[145357, 3866, 1510, 43, 36, "Output"]
4 S( U9 r4 X  L}, Open  ]],
; x) w- m: T& Z9 Z+ u- E9 cCell[CellGroupData[{9 `  ^- S5 G, H% l
Cell[146904, 3914, 470, 14, 52, "Input"],
% M3 B* Z2 k/ C7 F0 C3 nCell[147377, 3930, 257, 5, 30, "Output"],8 q5 t4 Q3 @  H: |7 v: E9 ]
Cell[147637, 3937, 1310, 38, 36, "Output"]3 f  v2 f/ z2 o$ v
}, Open  ]],
/ f) u% v5 w; LCell[CellGroupData[{! j9 A, o2 N) G3 N
Cell[148984, 3980, 520, 15, 52, "Input"],3 p& q' e0 X! H; e& H& X! Y
Cell[149507, 3997, 293, 7, 30, "Output"],, \: _/ _% ]! y+ P8 q
Cell[149803, 4006, 1345, 40, 36, "Output"]
2 y5 M. o: c1 ^; K}, Open  ]],
  `( h" C! d9 G- m! X9 [Cell[CellGroupData[{$ z8 o; j$ Y% O7 E2 x: U; T
Cell[151185, 4051, 520, 15, 52, "Input"],
! A5 x  p: ?4 v6 i4 zCell[151708, 4068, 266, 6, 30, "Output"],' ~. ]. o# r0 p' d* K- E
Cell[151977, 4076, 1319, 39, 36, "Output"]; v" t) d8 Z( F( j; {
}, Open  ]],
8 x( w3 ^7 s$ L' O; iCell[CellGroupData[{
: B( ^  K; g& T, oCell[153333, 4120, 520, 15, 52, "Input"],8 h' _) z& j$ ~+ |5 Q! v
Cell[153856, 4137, 272, 6, 30, "Output"],
/ P* I; l5 C5 ECell[154131, 4145, 1327, 40, 36, "Output"]
$ r: o  S& G% U}, Open  ]],3 T1 r# k. N4 w  z; W3 C( d
Cell[CellGroupData[{
9 q, ^1 [7 J  v6 N( }  U+ NCell[155495, 4190, 520, 15, 52, "Input"],& r& V* I" i2 Z' w2 ~$ H
Cell[156018, 4207, 265, 6, 30, "Output"],1 k9 T/ H1 \) }9 Y, x
Cell[156286, 4215, 1318, 39, 36, "Output"]
: b2 i% W9 J+ R( w4 I! Y}, Open  ]],
# }+ I6 Z8 \# ]7 oCell[CellGroupData[{+ @% D5 ^' V8 H
Cell[157641, 4259, 517, 15, 52, "Input"],, S: ^# h. N, D3 X! y. F
Cell[158161, 4276, 275, 6, 30, "Output"],! [$ w4 k( p( b# X; s4 v
Cell[158439, 4284, 1333, 41, 36, "Output"]% |% _5 V# ]4 U% L: l
}, Open  ]],
" k  j/ R) l$ ]. `Cell[159787, 4328, 381, 11, 31, "Input"],+ t8 W* O$ e: _9 @' |0 P
Cell[CellGroupData[{
; Y6 w% s. y0 DCell[160193, 4343, 573, 16, 52, "Input"],
. A0 L' D8 \3 ]( }! zCell[160769, 4361, 278, 6, 30, "Output"],
5 a% \, T2 g# r  C) v; S/ ZCell[161050, 4369, 1328, 41, 36, "Output"]
8 M  m2 S8 ?6 F9 ]4 ^  f}, Open  ]],
7 X8 f) `( G+ |5 jCell[CellGroupData[{6 r9 I& g/ I$ W" T% y$ j% v" W, T
Cell[162415, 4415, 571, 16, 52, "Input"],9 \$ I. z6 j; C8 {: p* Z5 }1 J
Cell[162989, 4433, 270, 6, 30, "Output"]," n* ]& J* m( B3 y& _
Cell[163262, 4441, 1325, 40, 36, "Output"]6 Q; ~5 z/ c1 k4 T1 T3 _# p
}, Open  ]],
' Q3 }) E6 G& fCell[CellGroupData[{
; c8 J& y: W6 |& J& iCell[164624, 4486, 571, 16, 52, "Input"],
- q& Y! o' S. }  @2 ]/ m! OCell[165198, 4504, 264, 6, 30, "Output"],& S+ T* Q: C6 @5 _
Cell[165465, 4512, 1316, 39, 36, "Output"]2 x: P1 B# B* x9 n( W5 M
}, Open  ]],
- b; Z* p: A2 K) WCell[CellGroupData[{
" j. S6 \' B% d; tCell[166818, 4556, 571, 16, 52, "Input"],
  l2 F, D( B: d" P: vCell[167392, 4574, 271, 6, 30, "Output"],
" G# S; S# C+ S0 f# LCell[167666, 4582, 1329, 41, 36, "Output"]
9 v* z7 I" Z3 F/ ]7 U7 M  |8 X7 _}, Open  ]],. T; S) q! y' R& c# B0 h3 l
Cell[CellGroupData[{7 I- b/ g8 p/ g4 X; ?4 `
Cell[169032, 4628, 570, 16, 52, "Input"],$ K, {( N1 d, G$ X' e& o
Cell[169605, 4646, 277, 6, 30, "Output"],& e1 K/ y4 _7 |& Q2 d
Cell[169885, 4654, 1335, 41, 36, "Output"]+ }1 }+ N3 ?' V! g& V, E; ?' ~
}, Open  ]],
8 O. Z6 G( I6 G( [( P" q( vCell[CellGroupData[{" D3 K: n; A$ e# J
Cell[171257, 4700, 571, 16, 52, "Input"],
4 I( K- L' t! H+ q1 wCell[171831, 4718, 274, 6, 30, "Output"],8 Z! u9 m7 o+ E6 C4 N/ g; {) r' Z' l9 l2 w
Cell[172108, 4726, 1335, 42, 36, "Output"]( ^5 D& l  a5 y/ R
}, Open  ]],
5 r2 m8 Z& k$ F+ q+ PCell[173458, 4771, 104, 1, 31, "Input"],
6 ~! r9 J5 m. n) i& {' rCell[CellGroupData[{
& O' E) [6 R. B+ M+ q8 M4 mCell[173587, 4776, 279, 7, 31, "Input"],
$ |3 d# a: _! L; oCell[173869, 4785, 878, 14, 50, "Output"]/ A* O$ v: c& e! V. @
}, Open  ]],8 H: O: U$ B' |! u
Cell[CellGroupData[{
5 \, t- |1 x6 Q6 S  y/ F! Z% ^+ B, QCell[174784, 4804, 243, 5, 31, "Input"],  X" f; u$ C4 W& B8 u) ?$ R
Cell[175030, 4811, 216, 3, 30, "Output"]9 w' P) J) U2 G% t3 p+ a! t
}, Open  ]],2 y, X. ~6 F7 c  H8 O0 c9 R& i7 G
Cell[175261, 4817, 537, 14, 31, "Input"],
% [2 b* p$ F2 h0 V+ hCell[CellGroupData[{
& C% K  r9 \! m( b3 ~Cell[175823, 4835, 94, 1, 31, "Input"],
0 F6 c- }( w  I( F- }Cell[175920, 4838, 1319, 20, 107, "Output"]) {; l! O' j3 b/ L' C. I
}, Open  ]],
( B+ S/ Y* K% g( _, X& ~3 m  S9 yCell[CellGroupData[{7 g7 B3 D3 h/ D
Cell[177276, 4863, 464, 12, 31, "Input"],
; o& c) v; @2 X: K* ^. Q$ bCell[177743, 4877, 17248, 366, 582, "Output"]
4 n9 h+ N9 L, d* a& }5 D! `}, Open  ]],. _2 |8 O  R( N) O: y5 c
Cell[195006, 5246, 32810, 934, 912, "Input"],
& D2 |$ x% N  h1 N8 Q2 ]Cell[CellGroupData[{% G  G2 L7 a$ s: V
Cell[227841, 6184, 284, 6, 31, "Input"],
; B# Y  J0 b$ n" f: @  m, R. S/ K$ WCell[228128, 6192, 961, 17, 50, "Output"]& }$ a$ Y! E& T" A$ @5 W3 [( B
}, Open  ]],# w3 H4 f3 S# N' o
Cell[CellGroupData[{' s! z6 \% ?$ O* p( {' ?5 f
Cell[229126, 6214, 531, 11, 31, "Input"],
8 `' i( T7 f0 e6 f8 m5 r& Z/ gCell[229660, 6227, 28858, 853, 537, "Output"]
2 m! k7 q3 W1 m}, Open  ]],
4 Q4 G; W$ e% |! u8 _5 ~% `3 V! bCell[CellGroupData[{2 b) i4 X  v5 ^+ {% ?5 K/ ?0 i
Cell[258555, 7085, 281, 7, 31, "Input"],
# G; ~* S: n; P: O$ vCell[258839, 7094, 540, 10, 30, "Output"]/ n' L$ B, ?0 b
}, Open  ]],
1 }* t, \- d: F2 b' @& U) Y2 U) hCell[259394, 7107, 1869, 53, 92, "Input"],
& S$ l+ y2 }' OCell[CellGroupData[{
/ c' X  P8 Y. `Cell[261288, 7164, 138, 2, 31, "Input"],7 v3 h* U# L2 a+ b' n" |4 D- M- P
Cell[261429, 7168, 1122, 20, 69, "Output"]
! l" V5 M9 O) [" h0 M9 u8 ]( r+ |}, Open  ]],  X+ S2 i2 l$ _; L/ V
Cell[CellGroupData[{7 E9 M' y! k0 B: G6 Y( [4 v8 T
Cell[262588, 7193, 1816, 29, 152, "Input"],
3 U5 M% z/ u4 q' q0 rCell[264407, 7224, 1736, 28, 88, "Output"]: q+ \7 O1 S- \0 t
}, Open  ]],) c2 n. i: i/ o8 H
Cell[CellGroupData[{
/ z% f- B) M$ q& {# YCell[266180, 7257, 209, 6, 31, "Input"],
  ?4 x# u3 F; CCell[266392, 7265, 516, 9, 30, "Output"]
/ b3 J3 m% x" r}, Open  ]],! |/ @+ e5 @& u* {3 W
Cell[266923, 7277, 613, 16, 31, "Input"],, o) L' V) ]; @4 a5 v
Cell[CellGroupData[{
7 ]( @( j* A! U* w0 J: T5 `Cell[267561, 7297, 157, 2, 31, "Input"],7 p6 j/ k3 l& O' G% P' X4 _7 r
Cell[267721, 7301, 776, 13, 50, "Output"]# P, s7 _0 l1 ?: X9 p( r& `2 M
}, Open  ]],$ V0 a& L' ^7 c5 A
Cell[CellGroupData[{
9 I8 _! j' C3 i: K% HCell[268534, 7319, 1397, 21, 112, "Input"],
, l  u7 ^  s4 K1 S( ICell[269934, 7342, 1384, 21, 88, "Output"]9 C+ ?$ L3 l0 [0 w. p, ^
}, Open  ]],
- m9 H; ^0 u+ w, W: y5 R' UCell[CellGroupData[{6 u- k# {3 z( C0 B/ v7 h
Cell[271355, 7368, 1208, 30, 55, "Input"],
6 i. A9 O2 _5 }6 Q0 mCell[272566, 7400, 1299, 29, 256, "Output"]8 Q; G( x; l; u5 u$ t
}, Open  ]],
) n4 n8 z3 Y/ Y, h7 k4 ?, zCell[CellGroupData[{
- I3 |1 U. d, [- ]  ?' _Cell[273902, 7434, 829, 23, 31, "Input"],
. _/ x, `! I) JCell[274734, 7459, 1053, 22, 249, "Output"]
: `" o, M+ U3 \/ I9 k) Q* Z}, Open  ]],! z' G5 x8 \- e+ T! u4 z# G$ u. _
Cell[CellGroupData[{  {9 U$ ~" b) |
Cell[275824, 7486, 84, 2, 31, "Input"],; ]8 q2 f: p3 x
Cell[275911, 7490, 1675, 36, 256, "Output"]
" n. O. k, k$ o6 H/ C1 {}, Open  ]],. o6 o% H  O# \8 |6 ~) L
Cell[277601, 7529, 131, 2, 31, "Input"],
% Q/ p: v9 H% y" V7 hCell[CellGroupData[{
8 G5 ?% c/ _# N2 k. m) k9 }Cell[277757, 7535, 302, 7, 31, "Input"],& D$ q4 \/ Y# H% @
Cell[278062, 7544, 935, 16, 50, "Output"]
: h2 I" g5 y+ Z; s7 l; i9 m}, Open  ]],; Y- T$ c6 T2 `: i2 f
Cell[CellGroupData[{2 Q- h% x/ E/ P& X; c$ M- l
Cell[279034, 7565, 295, 6, 31, "Input"],1 p0 s* [- T: G  h- v" n7 _
Cell[279332, 7573, 244, 3, 30, "Output"]
" F2 Q# Y# D9 q}, Open  ]],; O8 u8 D2 u$ E: e
Cell[279591, 7579, 610, 15, 31, "Input"],
$ ?( m9 f: J6 U) W) ^/ wCell[CellGroupData[{
$ n4 m8 N2 y8 y! xCell[280226, 7598, 120, 2, 31, "Input"],4 ]1 ]' q$ V8 ?0 O
Cell[280349, 7602, 1334, 21, 107, "Output"]
% S  c# Y1 h- x2 y! i  A}, Open  ]],, ?5 \3 |' I& d: v3 r  L- Z
Cell[CellGroupData[{; \+ D6 t# J) l
Cell[281720, 7628, 460, 12, 31, "Input"],3 m# A% f( P% [' C) k" ]
Cell[282183, 7642, 17248, 366, 582, "Output"]/ A9 n7 G) _; d5 k8 N" O2 }0 _7 Q
}, Open  ]],
: R3 l5 f* ^" k& `Cell[299446, 8011, 32810, 934, 912, "Input"],  e3 I  ~4 I# H4 ~
Cell[CellGroupData[{
0 M9 D! P# _- R, E" B$ g& U/ QCell[332281, 8949, 334, 6, 31, "Input"],4 c% p" _0 a: i; Q
Cell[332618, 8957, 1004, 18, 50, "Output"]8 C, R! k4 g5 {9 z/ n; x8 j6 O! }
}, Open  ]],4 R; V: \& l3 s4 o3 _( t8 h$ ^+ A
Cell[CellGroupData[{1 q9 D5 G9 A( M. L. Z9 L
Cell[333659, 8980, 559, 11, 31, "Input"]," L  h; H! y7 P9 f- ~% Y, E
Cell[334221, 8993, 28881, 853, 537, "Output"]0 B0 t) X7 M- F9 w
}, Open  ]],1 l3 ~& R# W5 t6 ^; ]/ v
Cell[CellGroupData[{/ q0 I0 m! ?& j
Cell[363139, 9851, 306, 7, 31, "Input"],/ e& [% ^4 l0 \) B
Cell[363448, 9860, 562, 10, 30, "Output"]
; j2 J; n" T$ v7 @6 j2 q1 f}, Open  ]]," P: m4 q, O. k+ W) {
Cell[364025, 9873, 1915, 53, 92, "Input"],
" F% G4 m7 O( X9 s  LCell[CellGroupData[{+ \9 {! m8 f6 b3 D9 K
Cell[365965, 9930, 163, 2, 31, "Input"],
& b- n  `! P; _/ l1 i6 S1 T! w: VCell[366131, 9934, 1139, 20, 69, "Output"]* B9 M9 Q* K. r5 |6 }+ u
}, Open  ]],
; K$ e6 g  x0 X7 tCell[CellGroupData[{
' O- Y' ?5 v8 _% s2 z  dCell[367307, 9959, 1863, 30, 152, "Input"],
3 K! x( j" X! z: z6 CCell[369173, 9991, 1761, 28, 88, "Output"]5 R; r: ~* P! A6 V
}, Open  ]],
- K. J8 F$ P: ^1 t1 LCell[CellGroupData[{' C0 _0 x2 W' O( A: C/ T
Cell[370971, 10024, 231, 6, 31, "Input"],
& R+ `/ ?, x# A8 t: Y& d0 E/ \Cell[371205, 10032, 540, 10, 30, "Output"]
- W5 q, a- K7 ~}, Open  ]],& O4 x; w8 Y2 Z- r
Cell[371760, 10045, 687, 17, 31, "Input"],
6 `, V6 Q2 Q3 m5 t( P: U1 q5 b* M& SCell[CellGroupData[{, p& ~: T& m- {" e3 t! }( H
Cell[372472, 10066, 185, 3, 31, "Input"],
! |1 m* U! \- n# I& [4 }6 GCell[372660, 10071, 804, 13, 69, "Output"]" E  j' z% ~+ Y0 E
}, Open  ]]," @8 L) [& I* D, P& ?" i
Cell[CellGroupData[{0 u% R1 o- p6 u6 R  W- |
Cell[373501, 10089, 1405, 21, 112, "Input"],. a: S& D% k! b& n
Cell[374909, 10112, 1387, 21, 88, "Output"]
2 I& Y5 G8 ^" z$ C3 c0 ]}, Open  ]],' J' G4 |. c6 w- ~
Cell[CellGroupData[{" L& O1 D4 o5 _* M8 u4 c
Cell[376333, 10138, 1339, 33, 55, "Input"],
+ p" h* c5 [/ u, k% k: ~0 M5 wCell[377675, 10173, 1370, 30, 256, "Output"]
7 v0 `# o2 ?  l  W) I# j3 ^}, Open  ]],
+ j6 K. d( D$ P# y3 G+ wCell[CellGroupData[{" Y& o! x* ^# x, R5 f
Cell[379082, 10208, 877, 24, 31, "Input"],/ O7 Z1 M& T( z
Cell[379962, 10234, 1058, 22, 249, "Output"]
& N4 r1 J2 _- A4 @  \}, Open  ]],
& K) d2 _% |' OCell[CellGroupData[{
# ?, e. g0 D' @8 kCell[381057, 10261, 84, 2, 31, "Input"],
3 b7 j) D( g! W. VCell[381144, 10265, 1659, 36, 256, "Output"]
# c) L! A2 w* A8 B/ i}, Open  ]],  t% q# d  A6 J1 X0 D2 ^
Cell[382818, 10304, 509, 10, 52, "Input"],
# _" {7 m! U2 A' Z2 R( gCell[383330, 10316, 530, 10, 33, "Input"],
3 l7 B8 j& J) }, c2 YCell[383863, 10328, 69, 1, 31, "Input"],% q7 t/ Z& i7 l" H
Cell[383935, 10331, 62, 0, 31, "Input"],' [5 M) r& Z1 v( m7 |
Cell[CellGroupData[{3 }# o' T; D3 X, R, B5 f
Cell[384022, 10335, 364, 9, 31, "Input"],
7 ^3 |) G' S8 U2 e* Z$ G" A7 rCell[384389, 10346, 13864, 402, 287, "Output"]
( ?2 P7 x- L5 M: q& C}, Open  ]],2 B/ S. g9 p" E* ^" b) h4 M
Cell[398268, 10751, 69, 1, 31, "Input"]," B% C  u% ], M! e$ ^6 T5 ?8 z7 X
Cell[398340, 10754, 74, 0, 31, "Input"],
% B' Z. f, l0 Z9 j( m, j9 kCell[CellGroupData[{
  E7 r. T4 `) pCell[398439, 10758, 288, 8, 31, "Input"],
& _) v  P, z4 T2 yCell[398730, 10768, 13861, 402, 287, "Output"]
% S' [+ M3 I; {* D}, Open  ]]
5 C/ b& b* @) x' e4 l  Q3 \5 _0 c}
4 |( |& J' {4 L& V2 E8 Q# M1 u]7 Z* O+ @1 N, Y3 ?$ Q
*)
, `: A* ~( X. \0 V. E. p* x& [6 C  x0 J+ H
(* End of internal cache information *）
5 S5 {3 f$ p+ Y' L2 _1 [; j2 V) v- u! T! _1 b( k. M
这个是用mathmatic做的神经网络，能导出最后的权值，就是可以写出表达式，我想用matlab做，却不知道怎么做
作者: 569646632    时间: 2013-8-30 20:15
可能不能导出系数
作者: -___    时间: 2014-2-4 16:33
者。。。。这是神马



欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5