数学建模社区-数学中国

标题: 怎么在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
问题完善一下！或者把代码贴上！
% g2 a: Y; D- o) D" Y5 S1 [4 a. H

---

作者: 琳123    时间: 2013-8-24 13:13

涳夢 发表于 2013-7-30 20:31
. T: j) j4 \1 ^4 S2 X0 v; G神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗

; k1 L: _5 _$ B' P(* Content-type: application/mathematica *)
1 Q9 c" P. P6 e! a
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
( ~: C3 H9 J# s; F2 ?! E
, B$ Y0 V2 K: ](* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
. J! ~& F# a  s' _9 V6 }3 k/ wNotebookFileLineBreakTest
NotebookFileLineBreakTest
1 e# d4 Z3 W4 C& m# }  N0 [NotebookDataPosition[       145,          7]
NotebookDataLength[    423629,      11534]
NotebookOptionsPosition[    412607,      11173]
; a5 k; p2 n' {# h& }NotebookOutlinePosition[    412953,      11188]
4 Y9 N) r# O; \7 a% Y0 X! r; l% z2 rCellTagsIndexPosition[    412910,      11185]
  Y- }" N2 {0 m0 xWindowFrame->Normal*)
" V' U! N1 E1 V" E8 |3 f7 P
(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
3 u- ~( _2 o: ^: D; v% y2 p5 X2 ]/ PCell[BoxData[
RowBox[{"Data", "=",
  RowBox[{"{",
   RowBox[{
    RowBox[{"{",
" r, q, U' [! j( L3 F     RowBox[{
     "0.304348", ",", "0.552818", ",", "0.330370", ",", "0.025823", ",",
% g: x' s6 q% W: o      "0.538462", ",", "0.752072", ",", "0.408943", ",", "0.504532", ",",
      "0.000000", ",", "0.277091", ",", "0.873239"}], "}"}], ",", " ",
' a7 A" D+ @& U8 a* k0 e    RowBox[{"{",
" m' a$ ^3 o. I2 L- p/ I. c: X     RowBox[{
' m9 a- e# R* y9 y+ L. {# z     "0.565217", ",", "0.346857", ",", "0.393585", ",", "0.118785", ",",
6 Y7 D' f$ K* \6 X/ q8 y      "0.349650", ",", "0.370761", ",", "0.413008", ",", "0.502518", ",",
, S% T# J$ F/ t* ?1 g$ e: @      "0.000000", ",", "0.220259", ",", "0.464789"}], "}"}], ",", " ",
    RowBox[{"{",
     RowBox[{
3 t9 s) J1 d4 G6 d3 q6 N! V5 G! O1 U     "0.608696", ",", "0.339186", ",", "0.494300", ",", "0.099338", ",",
      "0.321678", ",", "0.375283", ",", "0.000000", ",", "0.505539", ",",
      "0.000000", ",", "0.899882", ",", "0.492958"}], "}"}], ",", " ",
$ m4 {& ^' v# X" R# b# H3 ~% q    RowBox[{"{",
' }* t2 m! c0 p' H6 x     RowBox[{
1 g7 }0 `" y1 r* m& r* S     "0.521739", ",", "0.334022", ",", "0.355500", ",", "0.025156", ",",
- j- x5 J8 u- m      "0.489510", ",", "0.376790", ",", "0.411382", ",", "0.000000", ",",
6 C3 T2 _, e0 f& N1 y      "0.000000", ",", "0.265607", ",", "0.774648"}], "}"}], ",", " ",
7 u9 n$ R( \) X- }8 L* p    RowBox[{"{",
     RowBox[{
     "0.565217", ",", "0.346931", ",", "0.218229", ",", "0.043639", ",",
      "0.503497", ",", "0.761115", ",", "0.415447", ",", "0.503525", ",",
2 v0 ?6 P# U: j      "0.000000", ",", "0.642226", ",", "0.380282"}], "}"}], ",", " ",
/ I  M! Q3 q& [9 N; X    RowBox[{"{",
# V% u+ w4 b6 O     RowBox[{
     "0.478261", ",", "0.293154", ",", "0.259368", ",", "0.026688", ",",
9 K  A7 [1 ]% }9 s0 g      "0.587413", ",", "0.755840", ",", "0.409756", ",", "0.498489", ",",
      "0.000000", ",", "0.306243", ",", "0.647887"}], "}"}], ",", " ",
$ I; a  R: ]- D7 ?, F( w% h    RowBox[{"{",
     RowBox[{
# i5 j' l7 J9 X: l, K( p     "0.347826", ",", "0.359693", ",", "0.614393", ",", "0.081521", ",",
& {! p- ?/ }! B' x      "0.258741", ",", "0.367747", ",", "0.410569", ",", "0.499496", ",",
      "0.000000", ",", "0.186985", ",", "0.563380"}], "}"}], ",", " ",
    RowBox[{"{",
7 a: L7 `# O8 x2 p     RowBox[{
7 w. ?% c8 ~6 t8 a' e; u2 V     "0.565217", ",", "0.705518", ",", "0.510223", ",", "0.066892", ",",
      "0.244755", ",", "0.748304", ",", "0.000000", ",", "0.000000", ",",
5 U- ]9 @$ \5 Y6 g3 Q1 u      "0.243032", ",", "0.175501", ",", "0.295775"}], "}"}], ",", " ",
    RowBox[{"{",
" r# L  j! @$ e* }, z8 l5 p     RowBox[{
     "0.565217", ",", "0.710460", ",", "0.649730", ",", "0.119897", ",",
      "0.468531", ",", "0.000000", ",", "0.636585", ",", "0.000000", ",",
& ]  h* S2 y( a( o4 W( ?* p9 d) S      "0.766748", ",", "0.147821", ",", "0.338028"}], "}"}], ",", " ",
    RowBox[{"{",
     RowBox[{
8 C6 A( V5 N6 I: F9 t     "0.565217", ",", "0.697772", ",", "0.171587", ",", "0.028566", ",",
      "0.363636", ",", "0.449887", ",", "0.408130", ",", "0.000000", ",",
8 u+ [" p: }, B  J+ U: n, b      "0.000000", ",", "0.352768", ",", "0.211268"}], "}"}], ",", " ",
    RowBox[{"{",
' C8 h9 D6 P7 b( ~     RowBox[{
& |% Y3 Y2 |+ _& {2 [6 V9 ~     "0.282609", ",", "0.660888", ",", "0.460064", ",", "0.110334", ",",
      "0.475524", ",", "0.000000", ",", "0.545528", ",", "0.000000", ",",
      "0.551100", ",", "0.238810", ",", "0.690141"}], "}"}], ",", " ",
5 n% g# X2 a, H$ ~3 u. |7 U% K! }1 v    RowBox[{"{",
! p, a2 s3 Y' S/ V; {/ Q. c     RowBox[{
+ |" g; F5 l0 u% h: h% }$ S" e     "0.130435", ",", "0.682724", ",", "0.258697", ",", "0.019299", ",",
1 W; B  Z* r- s$ ?4 g7 ~' [      "0.510490", ",", "0.420497", ",", "0.535772", ",", "0.000000", ",",
      "0.494866", ",", "0.095701", ",", "0.436620"}], "}"}], ",", " ",
* D- u5 Z7 l% L8 h& b/ H3 a/ ~4 w    RowBox[{"{",
     RowBox[{
( R' O+ ^5 a5 n     "0.347826", ",", "0.697772", ",", "0.108288", ",", "0.022413", ",",
" x6 y3 A0 I  ~) a1 W  D$ R      "0.356643", ",", "0.247928", ",", "0.908130", ",", "0.000000", ",",
4 S3 t7 n# i6 L5 Y/ v      "0.383374", ",", "0.162839", ",", "0.000000"}], "}"}], ",", " ",
    RowBox[{"{",
* `% |. A4 n3 j8 n" S7 t* E6 r" X; l     RowBox[{
8 Z6 x6 @2 B+ y. d2 W' ^     "0.695652", ",", "0.718280", ",", "0.339730", ",", "0.110285", ",",
( ]2 T3 d) j5 ^: R% H) e      "0.335664", ",", "0.000000", ",", "0.636585", ",", "0.780463", ",",
- j+ b  v8 W. X      "0.000000", ",", "0.335395", ",", "0.267606"}], "}"}], ",", " ",
% Q% R* I+ W1 r3 e8 I' Q- g    RowBox[{"{",
% g$ h2 N  u2 ?4 V     RowBox[{
     "0.652174", ",", "0.569711", ",", "0.414297", ",", "0.175398", ",",
      "0.167832", ",", "0.000000", ",", "0.544715", ",", "0.000000", ",",
& Q: k+ T5 ?& g      "0.000000", ",", "0.160483", ",", "0.211268"}], "}"}], ",", " ",
; h7 k  `2 u1 \9 M4 |$ `3 ?    RowBox[{"{",
3 m$ s9 w0 s/ M" L     RowBox[{
% p" E, ]( F: ]8 H3 z     "0.000000", ",", "0.395544", ",", "0.027011", ",", "0.048087", ",",
      "0.496503", ",", "0.000000", ",", "0.452033", ",", "0.000000", ",",
/ y& s" M/ P& Y! J  r4 C9 ?& d' G      "0.278729", ",", "0.398115", ",", "0.408451"}], "}"}], ",", " ",
    RowBox[{"{",
     RowBox[{
  G$ @! S. `; L4 ^" y     "0.608696", ",", "0.425199", ",", "0.012979", ",", "0.000000", ",",
$ G1 ?, ?# B4 s1 H* ?      "0.482517", ",", "0.509420", ",", "0.406504", ",", "0.000000", ",",
" f  Q  M( ]; O/ ^      "0.000000", ",", "0.157833", ",", "0.478873"}], "}"}], ",", " ",
) Z" P; [2 I: M! n    RowBox[{"{",
     RowBox[{
9 v( D; ?" X' z' ]/ Z" g     "0.608696", ",", "0.577973", ",", "0.213587", ",", "0.030889", ",",
$ F7 X5 H1 ~; I& u# c6 `      "0.370629", ",", "0.000000", ",", "0.452846", ",", "0.000000", ",",
      "0.000000", ",", "0.315665", ",", "0.380282"}], "}"}], ",", " ",
    RowBox[{"{",
     RowBox[{
     "0.565217", ",", "0.572293", ",", "0.655012", ",", "0.281852", ",",
      "0.000000", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
+ V0 M- D0 c2 F* J2 F      "0.000000", ",", "0.492344", ",", "0.211268"}], "}"}], ",", " ",
    RowBox[{"{",
0 _2 X5 W, d: {: |$ W5 |- e     RowBox[{
  E4 ^- Z! S" ^3 ?2 Z7 l     "0.130435", ",", "0.562039", ",", "0.331662", ",", "0.032643", ",",
      "0.314685", ",", "0.414469", ",", "0.275610", ",", "0.000000", ",",
      "0.000000", ",", "0.638398", ",", "0.436620"}], "}"}], ",", " ",
    RowBox[{"{",
0 v4 ?& U; H7 I9 ]' k/ j2 b     RowBox[{
     "0.717391", ",", "0.736205", ",", "0.267704", ",", "0.036152", ",",
) @, P6 j( v. @% p! K  v' K      "0.307692", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
      "0.000000", ",", "0.392521", ",", "0.478873"}], "}"}], ",", " ",
. K( }% [, @1 t' H1 \    RowBox[{"{",
4 e8 q6 m: H- u2 F     RowBox[{
     "0.608696", ",", "0.769475", ",", "0.289283", ",", "0.022882", ",",
5 [; z( I$ `3 O! n% X      "0.321678", ",", "0.000000", ",", "0.274797", ",", "0.333333", ",",
      "0.000000", ",", "0.362191", ",", "0.295775"}], "}"}], ",", " ",
0 p2 A; v+ `' q* |% o    RowBox[{"{",
     RowBox[{
/ ?1 w# I4 J" Q& \& M; @3 E     "0.913043", ",", "0.170478", ",", "0.000000", ",", "0.012973", ",",
% Q; b" H1 X/ Q$ Y      "0.293706", ",", "0.000000", ",", "0.000000", ",", "0.672709", ",",
) a( A! R0 A" j9 Z- P      "0.000000", ",", "0.114252", ",", "0.028169"}], "}"}], ",", " ",
; N& w% B  h0 C8 P+ e    RowBox[{"{",
. j7 c0 \- W" c! k8 C     RowBox[{
( m, P: }2 `# }) R     "0.739130", ",", "0.193199", ",", "0.160584", ",", "0.037907", ",",
8 q% }2 m/ Z) w& n6 z) ^- F2 U  u      "0.461538", ",", "0.000000", ",", "0.684553", ",", "0.000000", ",",
      "0.000000", ",", "0.401355", ",", "0.436620"}], "}"}], ",", " ",
8 a: W- ^0 g1 e3 `! O    RowBox[{"{",
     RowBox[{
( x2 Z: O4 h* y  Z' d: m0 D     "0.826087", ",", "0.203969", ",", "0.234619", ",", "0.272240", ",",
      "0.265734", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
      "0.000000", ",", "0.827444", ",", "0.394366"}], "}"}], ",", " ",
    RowBox[{"{",
. Z' L" T7 `; {) M" x1 {: H2 Q# o8 [     RowBox[{
% e0 i4 j5 m1 O# |& w+ X+ h     "1.000000", ",", "0.199248", ",", "0.295044", ",", "0.041613", ",",
, P" p1 `& W# |$ w% [      "0.209790", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
      "0.000000", ",", "0.676973", ",", "0.295775"}], "}"}], ",", " ",
    RowBox[{"{",
     RowBox[{
5 v; g0 F4 x  l& f! j. a     "0.869565", ",", "0.180363", ",", "0.243056", ",", "0.098349", ",",
" v/ e& G1 i  J6 e% O# O      "0.265734", ",", "0.503391", ",", "0.000000", ",", "0.000000", ",",
: O2 j& E% X# s! p! |      "0.000000", ",", "0.331272", ",", "0.830986"}], "}"}], ",", " ",
3 T( o, \0 a4 y) h    RowBox[{"{",
5 E+ N4 [$ {4 |0 }& \7 W! |$ e     RowBox[{
     "0.695652", ",", "0.551785", ",", "0.326201", ",", "0.253608", ",",
1 q  S3 A6 O8 Q* ]      "0.195804", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
      "0.000000", ",", "0.845701", ",", "0.169014"}], "}"}], ",", " ",
  [% e5 Q& y1 _1 c0 ?/ J    RowBox[{"{",
     RowBox[{
4 c, G6 w3 C( P/ t, ]& w  E. J* ~) y     "0.652174", ",", "0.572293", ",", "0.111511", ",", "0.035584", ",",
8 z* K, `. x7 Q5 i, u  m      "0.405594", ",", "0.249435", ",", "0.544715", ",", "0.000000", ",",
      "0.000000", ",", "0.287102", ",", "0.366197"}], "}"}], ",", " ",
' c1 g" S% j& y' g4 K    RowBox[{"{",
     RowBox[{
     "0.652174", ",", "0.562039", ",", "0.336155", ",", "0.014604", ",",
      "0.174825", ",", "0.244160", ",", "0.000000", ",", "0.000000", ",",
1 [4 v, F& s% x; M7 x3 u* U( L      "0.000000", ",", "0.000000", ",", "0.309859"}], "}"}], ",", " ",
7 P% x( R) e+ _    RowBox[{"{",
. ^. x* b, D1 V" e# W) L8 V     RowBox[{
     "0.565217", ",", "0.577383", ",", "0.155870", ",", "0.030963", ",",
$ x: I6 ?4 D2 {2 J      "0.258741", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
6 @: p- `6 P0 }/ _8 `      "0.000000", ",", "0.050059", ",", "0.352113"}], "}"}], ",", " ",
    RowBox[{"{",
     RowBox[{
9 C" q  R4 n& M! L; \     "0.565217", ",", "0.613234", ",", "0.232956", ",", "0.053870", ",",
. m0 J. H$ m$ d9 v6 S, {      "0.230769", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
      "0.000000", ",", "0.254122", ",", "0.309859"}], "}"}], ",", " ",
    RowBox[{"{",
) ]% h, H# }3 J; U* \" H/ O     RowBox[{
5 D7 n2 t8 Y' \3 t     "0.565217", ",", "0.559531", ",", "0.493262", ",", "0.046209", ",",
  U; x5 p' ]6 n2 d      "0.293706", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
( H0 S! y5 Q. c' D3 B      "0.000000", ",", "0.086867", ",", "0.774648"}], "}"}], ",", " ",
) q( O! O) n; L: M. ]/ K# j    RowBox[{"{",
     RowBox[{
     "0.608696", ",", "0.569711", ",", "0.111932", ",", "0.013542", ",",
$ |" [; n, {" \0 a" a) i8 ~7 Q+ D* L      "0.335664", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
      "0.168704", ",", "0.659894", ",", "0.422535"}], "}"}], ",", " ",
    RowBox[{"{",
& v. z& S* O2 r( y" N* B* `     RowBox[{
5 [# H* c6 _! z. A2 C" F, E7 x     "0.608696", ",", "0.564547", ",", "0.329844", ",", "0.202036", ",",
      "0.510490", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
- @. Z! t2 |: b, s* u  C      "0.000000", ",", "0.317138", ",", "0.887324"}], "}"}], ",", " ",
    RowBox[{"{",
     RowBox[{
+ u/ u7 s& b& ?& S  }! A     "0.521739", ",", "0.546695", ",", "0.165788", ",", "0.029431", ",",
      "0.510490", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
8 }. I5 T1 a. `1 t2 |      "0.000000", ",", "0.605124", ",", "0.887324"}], "}"}], ",", " ",
8 M( v1 p( l' |( _    RowBox[{"{",
     RowBox[{
# x1 [9 u' }9 }3 S) A/ n8 R% j8 g     "0.521739", ",", "0.564178", ",", "0.400518", ",", "0.045023", ",",
' z( r" A6 |/ L5 F- _      "0.615385", ",", "0.368500", ",", "0.660163", ",", "0.301108", ",",
( Q- ~. V9 |1 W; q      "0.000000", ",", "0.321260", ",", "0.859155"}], "}"}], ",", " ",
, z7 [8 _# k* w' ?    RowBox[{"{",
     RowBox[{
     "0.413043", ",", "0.551859", ",", "0.544826", ",", "0.230503", ",",
+ B/ J+ S+ Y  c; U' [' J% q      "0.244755", ",", "0.530520", ",", "0.819512", ",", "0.000000", ",",
6 e" T# g; B# c: F. [5 ^6 F  s      "0.000000", ",", "0.595406", ",", "0.239437"}], "}"}], ",", " ",
    RowBox[{"{",
9 b3 t; J7 F- l) ?0 P( A7 x     RowBox[{
- l2 m0 d, {* T0 Y7 W9 E9 f     "0.652174", ",", "0.549277", ",", "0.257578", ",", "0.058688", ",",
      "0.356643", ",", "0.000000", ",", "0.817886", ",", "0.000000", ",",
. b  k4 c. O- z, @3 Z; w7 _1 d1 F      "0.000000", ",", "0.555359", ",", "0.295775"}], "}"}], ",", " ",
    RowBox[{"{",
) {! U9 S( }6 p9 N! c     RowBox[{
     "0.695652", ",", "0.549277", ",", "0.572308", ",", "0.082411", ",",
- Q' D# H& e( j# P/ ^6 q      "0.461538", ",", "0.528259", ",", "0.819512", ",", "0.000000", ",",
      "0.000000", ",", "0.333333", ",", "0.746479"}], "}"}], ",", " ",
    RowBox[{"{",
     RowBox[{
4 a+ m( i% z0 Z+ d+ ]& u     "0.434783", ",", "0.551785", ",", "0.530346", ",", "0.151651", ",",
      "0.790210", ",", "0.529013", ",", "0.409756", ",", "0.000000", ",",
      "1.000000", ",", "0.149588", ",", "1.000000"}], "}"}], ",", " ",
9 w, d6 j0 M: c+ W6 |7 U    RowBox[{"{",
     RowBox[{
& U* M1 y7 Q0 i5 s1 N     "0.282609", ",", "0.531278", ",", "0.321428", ",", "0.228625", ",",
1 j3 N  ?' \7 _9 {      "0.594406", ",", "0.530520", ",", "0.410569", ",", "0.000000", ",",
      "0.757457", ",", "0.493522", ",", "0.549296"}], "}"}], ",", " ",
    RowBox[{"{",
     RowBox[{
# F4 p9 B$ ~; n( z. o: S1 ?) a     "0.347826", ",", "0.705444", ",", "0.109343", ",", "0.072008", ",",
# R. }% I! L, z7 M  @/ X      "0.496503", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
6 G) d( F9 D+ K9 N! j      "0.752567", ",", "0.224676", ",", "0.366197"}], "}"}], ",", " ",
, Q4 b3 X1 m: X% I5 @! Y6 @    RowBox[{"{",
     RowBox[{
: M1 F3 D, S0 o8 W% O     "0.391304", ",", "0.705444", ",", "0.045908", ",", "0.073120", ",",
, B2 o! e: E9 D" m      "0.622378", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
      "0.496333", ",", "0.410188", ",", "0.549296"}], "}"}], ",", " ",
. |0 b) k, M& {3 P8 I8 ~2 \- y    RowBox[{"{",
     RowBox[{
7 n9 ?  P3 j% T$ s1 h. M. S# A     "0.282609", ",", "0.661921", ",", "0.344992", ",", "0.085178", ",",
      "0.293706", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
      "0.000000", ",", "0.668139", ",", "0.577465"}], "}"}], ",", " ",
( W/ [2 k, J; {- A    RowBox[{"{",
     RowBox[{
* r7 M5 ?" S3 M6 }: b- k# N     "0.478261", ",", "0.661921", ",", "0.644209", ",", "0.077296", ",",
. `" o5 ^; {4 |# v5 g# a: k      "0.412587", ",", "0.000000", ",", "0.413008", ",", "0.502518", ",",
      "0.000000", ",", "0.102179", ",", "0.690141"}], "}"}], ",", " ",
    RowBox[{"{",
     RowBox[{
     "0.173913", ",", "0.984656", ",", "0.420753", ",", "0.137022", ",",
      "0.321678", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
% }6 N$ s8 l7 u* F3 G      "0.000000", ",", "0.380742", ",", "0.718310"}], "}"}], ",", " ",
( N) p$ k3 }2 o2 Z) `  K    RowBox[{"{",
+ L; l- u% j5 z# Y     RowBox[{
     "0.500000", ",", "0.984656", ",", "0.288432", ",", "0.047692", ",",
      "0.279720", ",", "0.000000", ",", "0.821138", ",", "0.510574", ",",
      "0.000000", ",", "0.319494", ",", "0.521127"}], "}"}], ",", " ",
; ~1 ^% }4 b- \    RowBox[{"{",
! @, C  c: a6 P% s- w     RowBox[{
$ w( A- p2 K0 l7 W. {3 g# J+ A, u, R     "0.391304", ",", "1.000000", ",", "0.452931", ",", "0.150909", ",",
      "0.342657", ",", "0.370761", ",", "0.000000", ",", "0.509567", ",",
% A7 o* M4 Z0 D* u) o3 N+ h      "0.000000", ",", "0.031508", ",", "0.929577"}], "}"}], ",", " ",
6 t; t- C8 n' c, [- P    RowBox[{"{",
     RowBox[{
     "0.739130", ",", "0.774639", ",", "0.175120", ",", "0.036498", ",",
      "0.391608", ",", "0.739261", ",", "0.408943", ",", "0.553877", ",",
8 s/ v: @- I& z: }5 R7 ]( T: k* \      "0.000000", ",", "0.292108", ",", "0.521127"}], "}"}], ",", " ",
% x5 E9 [. E( ~" t0 c    RowBox[{"{",
/ P$ b% a8 _. g     RowBox[{
+ s2 y# j& }- b  j3 h; V! z     "0.586957", ",", "0.982074", ",", "0.158462", ",", "0.063902", ",",
6 ?; k4 t' Z$ u      "0.321678", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
      "0.000000", ",", "0.329505", ",", "0.338028"}], "}"}], ",", " ",
% s4 D3 H* E4 ^& R5 _    RowBox[{"{",
2 D7 k6 s" y: n5 Q1 P, C# Y     RowBox[{
: l+ {/ {+ I3 l     "0.543478", ",", "0.982074", ",", "0.306872", ",", "0.041934", ",",
! J2 I6 z  _$ \4 W6 e      "0.426573", ",", "0.380558", ",", "0.414634", ",", "0.506546", ",",
      "0.000000", ",", "0.337456", ",", "0.380282"}], "}"}], ",", " ",
    RowBox[{"{",
     RowBox[{
! m$ x+ z  R+ o( [     "0.739130", ",", "0.997418", ",", "0.170143", ",", "0.058268", ",",
      "0.538462", ",", "0.248681", ",", "0.000000", ",", "0.339376", ",",
      "0.000000", ",", "0.766784", ",", "0.676056"}], "}"}], ",", " ",
    RowBox[{"{",
     RowBox[{
     "0.695652", ",", "0.700428", ",", "0.139361", ",", "0.182169", ",",
6 t- i# y3 F! `8 N4 A2 o) l; ]4 J      "0.412587", ",", "0.243406", ",", "0.000000", ",", "0.000000", ",",
# Z3 P+ M' B: f- Z2 Z. v      "0.136919", ",", "0.676678", ",", "0.591549"}], "}"}], ",", " ",
- k, K: V. P6 y& ~4 h    RowBox[{"{",
     RowBox[{
     "0.782609", ",", "0.751623", ",", "0.177646", ",", "0.350845", ",",
( x: l0 L1 o. p! }9 W  d, {# w      "0.412587", ",", "0.502638", ",", "0.000000", ",", "0.000000", ",",
      "0.178973", ",", "0.541519", ",", "0.464789"}], "}"}], ",", " ",
    RowBox[{"{",
) w, C  N0 L- ~4 H     RowBox[{
     "0.652174", ",", "0.751623", ",", "0.355593", ",", "0.039883", ",",
: j2 X5 U" g9 b0 |, u4 u      "0.195804", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
      "0.000000", ",", "0.064488", ",", "0.295775"}], "}"}], ",", " ",
    RowBox[{"{",
     RowBox[{
  J% m1 D  z5 J8 k6 Q4 b2 y# v     "0.521739", ",", "0.679847", ",", "0.152375", ",", "0.030048", ",",
; f" c& E! E4 ^, {( _) |3 u" M/ s      "0.363636", ",", "0.000000", ",", "0.271545", ",", "0.000000", ",",
! x3 f; ?' {; m      "0.000000", ",", "0.463192", ",", "0.380282"}], "}"}], ",", " ",
    RowBox[{"{",
8 ^' L! K' h$ D5 m% A     RowBox[{
     "0.434783", ",", "0.728533", ",", "0.186830", ",", "0.129510", ",",
      "0.195804", ",", "0.000000", ",", "0.269919", ",", "0.000000", ",",
      "0.326650", ",", "0.388398", ",", "0.211268"}], "}"}], ",", " ",
    RowBox[{"{",
  \, N: q8 G" p! c# U     RowBox[{
     "0.608696", ",", "0.606152", ",", "0.158058", ",", "0.090170", ",",
. ~+ E6 C* h  w0 f8 |      "1.000000", ",", "0.166541", ",", "0.278049", ",", "0.000000", ",",
& }. i! R2 ]5 u! \2 N      "0.236675", ",", "0.262367", ",", "0.253521"}], "}"}], ",", " ",
    RowBox[{"{",
     RowBox[{
/ C; z& v! {. {6 F% [     "0.608696", ",", "0.633742", ",", "0.322697", ",", "0.068597", ",",
# `9 F( Y3 \. ?4 V* F. U  b" e      "0.328671", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
- v5 S4 B3 U) Z# k0 K) ^      "0.287042", ",", "0.290931", ",", "0.281690"}], "}"}], ",", " ",
    RowBox[{"{",
     RowBox[{
8 r% A( k$ P% b; M. ?4 @     "0.478261", ",", "0.539023", ",", "0.412108", ",", "0.107566", ",",
% G" U/ r3 w5 }) G: [7 `2 M8 |      "0.237762", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
, p- A/ {! I. j. u+ s8 d8 g/ S8 m* w      "0.000000", ",", "0.380742", ",", "0.507042"}], "}"}], ",", " ",
4 @' }& ]! ^9 v4 ^" N5 y    RowBox[{"{",
     RowBox[{
     "0.608696", ",", "0.551859", ",", "0.176821", ",", "0.076332", ",",
2 m1 |; J7 E* v4 @4 L! {7 n. Q2 X' K      "0.265734", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
' s3 B% |4 y" h, B; }      "0.000000", ",", "0.429034", ",", "0.239437"}], "}"}], ",", " ",
    RowBox[{"{",
- T/ e: }7 [7 S" t% h/ ]6 c     RowBox[{
     "0.652174", ",", "0.551859", ",", "0.033549", ",", "0.018459", ",",
/ k( Q. i' t- J4 T- [$ c3 I      "0.573427", ",", "0.000000", ",", "0.553659", ",", "0.000000", ",",
* j9 F0 X1 r! k' ~      "0.404890", ",", "0.193168", ",", "0.394366"}], "}"}], ",", " ",
2 a0 L, J! d% D; c0 D" i, Q    RowBox[{"{",
% b; t$ ^/ {6 M! Y$ o; Y& `2 q5 n! \     RowBox[{
     "0.695652", ",", "0.595382", ",", "0.277493", ",", "0.100326", ",",
3 d2 t- S: b5 C4 ]4 c8 y& B      "0.286713", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
$ g& R0 V  H) T( B- x% I+ X      "0.000000", ",", "0.448763", ",", "0.338028"}], "}"}], ",", " ",
    RowBox[{"{",
5 k; d7 v9 I/ o3 R     RowBox[{
     "0.565217", ",", "0.559531", ",", "0.422669", ",", "0.078111", ",",
1 R& ?( Y& _3 z; V( l+ t0 X      "0.286713", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
      "0.000000", ",", "0.442285", ",", "0.394366"}], "}"}], ",", " ",
5 d. x1 h! u) K; b: a    RowBox[{"{",
     RowBox[{
( W0 E+ u" P: `; v& p0 z     "0.586957", ",", "0.398126", ",", "0.140619", ",", "0.069116", ",",
+ H- H6 R. V, C! ?7 L      "0.461538", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
      "0.000000", ",", "0.575383", ",", "0.154930"}], "}"}], ",", " ",
    RowBox[{"{",
. V3 d; N2 h5 j( j/ O+ Q     RowBox[{
3 n# m- F( W( d8 @7 @& j5 x6 m, f' O: h     "0.695652", ",", "0.398126", ",", "0.019829", ",", "0.041366", ",",
: Q! d# `) _) v* O- j3 C/ |# I      "0.552448", ",", "0.244160", ",", "0.000000", ",", "0.000000", ",",
      "0.000000", ",", "0.515607", ",", "0.591549"}], "}"}], ",", " ",
: l3 g6 G9 R# w7 X7 G( {7 G    RowBox[{"{",
: l0 `5 d5 G& a; q& i     RowBox[{
     "0.695652", ",", "0.700354", ",", "0.422467", ",", "0.068128", ",",
      "0.209790", ",", "0.000000", ",", "0.000000", ",", "0.500504", ",",
( i: M  A8 ?7 K      "0.000000", ",", "0.057715", ",", "0.408451"}], "}"}], ",", " ",
- }- a9 _0 s: N# U    RowBox[{"{",
     RowBox[{
     "0.521739", ",", "0.193125", ",", "0.210582", ",", "0.110433", ",",
      "0.447552", ",", "0.382065", ",", "0.413008", ",", "0.498489", ",",
) r8 X4 M9 a/ ^/ d" k# i, r      "0.000000", ",", "0.174617", ",", "0.295775"}], "}"}], ",", " ",
    RowBox[{"{",
5 g+ d3 W/ h1 \; R  ^. ^7 ?2 w/ w     RowBox[{
     "0.347826", ",", "0.063588", ",", "0.830527", ",", "1.000000", ",",
- f1 m1 o. E, I% x$ Q& V: z      "0.111888", ",", "0.000000", ",", "0.410569", ",", "0.000000", ",",
" C# o  s  Z( N2 U. ^5 @      "0.000000", ",", "0.667550", ",", "0.661972"}], "}"}], ",", " ",
    RowBox[{"{",
     RowBox[{
     "0.521739", ",", "0.188109", ",", "1.000000", ",", "0.785485", ",",
0 O2 o0 h8 f" G5 g& S, ?/ g" z      "0.342657", ",", "0.373775", ",", "0.406504", ",", "1.000000", ",",
2 l5 l% n4 w. h4 f4 o. E% `      "0.000000", ",", "0.371025", ",", "0.774648"}], "}"}], ",", " ",
    RowBox[{"{",
4 }5 Z$ r' H; Y: `1 r) _9 T     RowBox[{
     "0.695652", ",", "0.188404", ",", "0.088836", ",", "0.059504", ",",
$ o" R8 p7 D  Z( }0 o+ P8 v" w1 ~      "0.706294", ",", "0.376790", ",", "0.000000", ",", "0.000000", ",",
      "0.000000", ",", "0.570966", ",", "0.746479"}], "}"}], ",", " ",
    RowBox[{"{",
8 K7 ^7 [! P9 B     RowBox[{
% `% Q; d& D- t1 I- ~0 q! z     "0.695652", ",", "0.057465", ",", "0.316316", ",", "0.151280", ",",
- @, U' D8 r* F. D  r' ?3 ~      "0.615385", ",", "0.371515", ",", "0.412195", ",", "0.500504", ",",
6 O" k: [0 [5 j      "0.000000", ",", "0.468198", ",", "0.887324"}], "}"}], ",", " ",
8 h7 u$ b$ t( n+ P& E( h2 O% b, i    RowBox[{"{",
! g# Q/ Z* u- \- \. M% u     RowBox[{
     "0.608696", ",", "0.011360", ",", "0.295586", ",", "0.113892", ",",
# @2 U7 T( s4 c  }2 t) S      "0.580420", ",", "0.746044", ",", "0.405691", ",", "0.501511", ",",
      "0.000000", ",", "0.414016", ",", "0.845070"}], "}"}], ",", " ",
4 f+ U2 Z5 |8 D( s    RowBox[{"{",
$ _. U1 z" ]$ [* z* ~0 F4 h     RowBox[{
     "0.608696", ",", "0.364783", ",", "0.130582", ",", "0.020214", ",",
1 V3 W# m& |) d+ s" q. c      "0.356643", ",", "0.379804", ",", "0.000000", ",", "0.000000", ",",
      "0.000000", ",", "0.186690", ",", "0.704225"}], "}"}], ",", " ",
    RowBox[{"{",
     RowBox[{
- r: B& d" c( n     "0.608696", ",", "0.193199", ",", "0.112690", ",", "0.036152", ",",
      "0.636364", ",", "0.382065", ",", "0.409756", ",", "0.495468", ",",
& m* H, S2 t; u; b      "0.000000", ",", "0.442874", ",", "0.760563"}], "}"}], ",", " ",
1 ]; `  v0 J8 T% i, z6 J4 n/ _4 R' f+ r    RowBox[{"{",
- n# N5 B9 U; i3 V& a9 r% ~4 }     RowBox[{
     "0.739130", ",", "0.328932", ",", "0.246779", ",", "0.126520", ",",
      "0.454545", ",", "0.000000", ",", "0.495122", ",", "0.000000", ",",
      "0.414181", ",", "0.686690", ",", "0.436620"}], "}"}], ",", " ",
    RowBox[{"{",
     RowBox[{
     "0.739130", ",", "0.341767", ",", "0.362090", ",", "0.183528", ",",
      "0.573427", ",", "0.413715", ",", "0.454472", ",", "0.661631", ",",
7 |$ e) k# R; M! v6 u; c8 h0 [3 I      "0.000000", ",", "0.244111", ",", "0.633803"}], "}"}], ",", " ",
    RowBox[{"{",
0 z: ]( h6 D: }0 L. d( R- M     RowBox[{
" j! y5 h/ D9 y7 o3 L; a" C     "0.695652", ",", "0.187076", ",", "0.279724", ",", "0.006252", ",",
1 X) A" m* l6 r) j! g5 Q      "0.405594", ",", "0.418237", ",", "0.544715", ",", "0.000000", ",",
2 L: q1 E5 U9 y6 n1 z! I      "0.000000", ",", "1.000000", ",", "0.422535"}], "}"}], ",", " ",
7 j$ b2 B  \" J4 d/ M5 M    RowBox[{"{",
     RowBox[{
     "1.000000", ",", "0.333948", ",", "0.064750", ",", "0.065855", ",",
1 a( T2 v2 _& F9 W      "0.342657", ",", "0.000000", ",", "0.408130", ",", "0.000000", ",",
, A2 T/ s: }, N+ o4 ?$ ^1 B' k      "0.000000", ",", "0.957892", ",", "0.295775"}], "}"}], ",", " ",
  b" @+ y; h# {1 v" e1 r: i3 y    RowBox[{"{",
4 U, n$ p2 V6 h     RowBox[{
     "0.739130", ",", "0.305400", ",", "0.374567", ",", "0.132870", ",",
2 T3 L9 w9 n" v' C: G9 H6 Y      "0.258741", ",", "0.834966", ",", "0.000000", ",", "0.000000", ",",
      "0.272861", ",", "0.266784", ",", "0.309859"}], "}"}], ",", " ",
    RowBox[{"{",
) K7 @8 L; I+ E4 T4 v% ~, o7 @: g     RowBox[{
7 R6 u7 P/ I/ o     "0.826087", ",", "0.151962", ",", "0.360280", ",", "0.221632", ",",
, F9 Y, q( `/ ^' N9 B. ^      "0.447552", ",", "0.584778", ",", "0.457724", ",", "0.000000", ",",
5 ^0 X8 [- O% Y# N      "0.000000", ",", "0.826855", ",", "0.408451"}], "}"}], ",", " ",
    RowBox[{"{",
     RowBox[{
     "0.565217", ",", "0.047212", ",", "0.233154", ",", "0.121528", ",",
  j5 N% Q+ I! P; p, `      "0.314685", ",", "0.417483", ",", "0.546341", ",", "0.000000", ",",
" n7 |3 C& k9 r! R- n8 v      "0.669438", ",", "0.341873", ",", "0.197183"}], "}"}], ",", " ",
    RowBox[{"{",
     RowBox[{
     "0.826087", ",", "0.034376", ",", "0.690349", ",", "0.512380", ",",
5 `; e5 g2 a8 c% z" `& f+ D      "0.685315", ",", "1.000000", ",", "1.000000", ",", "0.000000", ",",
4 L8 Q% e( u5 A& _      "0.556479", ",", "0.412544", ",", "0.732394"}], "}"}], ",", " ",
  L6 S" L, D* H) R/ C$ ]! x; ?    RowBox[{"{",
     RowBox[{
- r* v# d  d# Z) b0 q, y+ ?# h  Y     "0.652174", ",", "0.000000", ",", "0.374417", ",", "0.188075", ",",
/ B5 S! ?5 Z; ]      "0.706294", ",", "0.498116", ",", "0.729268", ",", "0.000000", ",",
& s% u# e- b0 j* D      "0.454279", ",", "0.322144", ",", "0.802817"}], "}"}], ",", " ",
    RowBox[{"{",
     RowBox[{
6 a, ~; O1 z  I( ?, ^: M     "0.782609", ",", "0.180363", ",", "0.237142", ",", "0.054809", ",",
) J, Y1 d+ M2 \4 c1 r6 i) G* R      "0.629371", ",", "0.373775", ",", "0.247967", ",", "0.000000", ",",
      "0.163814", ",", "0.370436", ",", "0.746479"}], "}"}], ",", " ",
2 b/ ^5 b9 l& V! O$ d; G    RowBox[{"{",
     RowBox[{
" O% I: C' O% [5 Q; _2 \- X6 o3 {+ E     "0.608696", ",", "0.169150", ",", "0.368148", ",", "0.393768", ",",
      "0.440559", ",", "0.995479", ",", "0.545528", ",", "0.000000", ",",
      "0.565770", ",", "0.333039", ",", "0.380282"}], "}"}], ",", " ",
/ v( B# o. J2 {3 G" ~3 o    RowBox[{"{",
8 B0 L& Y* i* u; d4 e     RowBox[{
     "0.695652", ",", "0.390454", ",", "0.186683", ",", "0.039439", ",",
      "0.482517", ",", "0.497362", ",", "0.415447", ",", "0.508560", ",",
- C5 \: u% Y& l4 }9 J/ Q      "0.000000", ",", "0.390754", ",", "0.563380"}], "}"}], ",", " ",
" d0 l9 o4 b2 k; \9 r* F$ U2 p    RowBox[{"{",
; S4 W# _  j, E' i# D4 K- Q     RowBox[{
3 `2 b, Q/ _2 Q     "0.739130", ",", "0.428888", ",", "0.082728", ",", "0.070154", ",",
      "0.279720", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
      "0.000000", ",", "0.694935", ",", "0.323944"}], "}"}]}],
   "}"}]}]], "Input",
# i9 l2 |  h- b7 N$ d0 m. W; B CellChangeTimes->{3.5779587825701036`*^9}],

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

Cell[BoxData[
RowBox[{"For", "[",
  RowBox[{
1 {+ V7 U/ b' {8 G/ S/ G! {+ O   RowBox[{"i", "=", "1"}], ",",
   RowBox[{"i", "\[LessEqual]", "9"}], ",",
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
. q; X. N. [. m/ v$ H1 z4 A   RowBox[{"For", "[",
% O% a3 z3 B3 Y! [    RowBox[{
( ~3 ~, S' w" c- z9 E5 Y     RowBox[{"j", "=", "1"}], ",",
% `2 d. K+ S. n2 z0 ]     RowBox[{"j", "\[LessEqual]", "80"}], ",",
     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]",
     RowBox[{
: s' J) Q7 }/ D! j% b6 D      RowBox[{
9 w& Z# D3 Z( }2 H       RowBox[{"CM", "[",
' c! L: @: U: f        RowBox[{"j", ",", "i"}], "]"}], "=", "0.0"}], ";"}]}],
* }9 y  X$ a* B& w9 }. A. N1 N9 C    "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",
CellChangeTimes->{{3.5779132504375*^9, 3.577913285203125*^9}}],
1 t6 G4 ^8 P3 N- l& X% L; c
Cell[BoxData[
5 m4 l: ?& p, c% B% \ RowBox[{"For", "[",
  RowBox[{
$ c7 h9 a' _( W1 f   RowBox[{"i", "=", "1"}], ",",
   RowBox[{"i", "\[LessEqual]", "9"}], ",",
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
% o9 \- o7 U7 n6 H( p. |  i   RowBox[{
1 ]8 n7 |& A' f, k3 x    RowBox[{
     RowBox[{"CM", "[",
7 W' {* I3 H) ~* y, n' ]      RowBox[{"1", ",", "i"}], "]"}], "=",
+ I$ y2 l4 z9 P  a) m9 t4 C& y     RowBox[{"Data", "[",
      RowBox[{"[",
7 ~9 O" z  j2 k* `0 T' ]: W# x       RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}],
  "\[IndentingNewLine]", "]"}]], "Input",
CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {
   3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9,
+ k* g! u6 _* b   3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9,
   3.57791344209375*^9, 3.5779588070933466`*^9}],

, ^$ V+ E7 u% Y% w; i, A0 ?' VCell[CellGroupData[{
7 s9 f7 r+ h. B0 [+ b
, Q, ^! V- g! d/ g/ B, _Cell[BoxData[{
& L8 l  A  ]: J( b: t% ]: H RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]",
* w' _  o5 P+ ~% n RowBox[{"M1", "=", "1"}]}], "Input",
CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {
2 l4 X, f( G% z# p  y   3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9,
7 j" V; m8 ?  g9 y! O3 _   3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {
   3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9,
   3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {
" O: X; e- p/ D8 u1 w5 R; p   3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {
   3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9,
   3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {
   3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {
/ b; o' g/ W9 {* @   3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9,
! K5 w% G; u: ~  R4 y9 M4 S) f   3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
* x/ A% ^" q6 y4 y: M
Cell[BoxData["0.2`"], "Output",
# G4 z1 D! s- R CellChangeTimes->{
  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
$ W. W! j: K  K$ C   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
9 i% D5 K5 B. m4 l5 R   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
0 u0 I. i+ f  k* _5 M9 L6 a   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
+ I7 d( b" }% U- S2 P   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
( I# @5 ~7 C+ F+ m) ^7 L   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
8 V3 Q, u/ e  A$ b   3.577960510686717*^9, 3.578012149296875*^9}],
* J8 i# O( D! g" e2 q) ]0 R6 P
Cell[BoxData["1"], "Output",
CellChangeTimes->{
& b% h0 |  O* x- ~( s  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
$ ?& G7 D- P: Y   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
7 M5 u. ^& ]$ c; o9 I   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
  U9 N. j6 D  V9 v6 D   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
# k$ c6 ^9 s( ?   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
5 q* S' P0 a5 J' d2 q& k* O   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
" V2 _& w, W, C. y1 E: X+ v) ^   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
. q# o7 i( a4 I   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
! a: h1 l) a2 O   3.577960510686717*^9, 3.578012149296875*^9}]
# }: }# T" {  ^/ z}, Open  ]],
) w) T& b) u2 K" B
Cell[BoxData[
RowBox[{"For", "[",
9 A1 S, A3 n) |3 F" \  RowBox[{
   RowBox[{"k", "=", "2"}], ",",
   RowBox[{"k", "\[LessEqual]", "60"}], ",",
   RowBox[{"k", "++"}], ",",
) H0 e0 o$ a; A7 \   RowBox[{"{", "\[IndentingNewLine]",
    RowBox[{
     RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
9 ]5 ^% Z3 K0 h" G7 p# r0 V     RowBox[{"For", "[",
      RowBox[{
2 \  B$ W" g2 @  P6 n       RowBox[{"j", "=", "1"}], ",",
, \5 p% B' A& I8 Y" }       RowBox[{"j", "\[LessEqual]",
        RowBox[{"k", "-", "1"}]}], ",",
       RowBox[{"j", "++"}], ",",
6 h& u$ L- T0 [: K7 `9 [       RowBox[{"{", "\[IndentingNewLine]",
: p. C, h" V! j& J& H        RowBox[{
# B9 ], F' i/ ]/ S3 D& C- L. t         RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]",
         RowBox[{"For", "[",
          RowBox[{
           RowBox[{"i", "=", "1"}], ",",
/ y* ^9 p- P! I& ~" D  j           RowBox[{"i", "\[LessEqual]", "9"}], ",",
5 ^. B# o( ?* ?# a           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
           RowBox[{
0 o* P3 q% a" \  q( \            RowBox[{"r1", "+=",
8 w# P5 o3 l$ p9 `+ l1 X) S" \             RowBox[{
              RowBox[{"(",
; A7 v1 A7 l: n) L) U+ w               RowBox[{
7 P) j  q3 N' q                RowBox[{"CM", "[",
6 p" x* A/ N4 r; p9 P9 ~                 RowBox[{"j", ",", "i"}], "]"}], "-",
                RowBox[{"Data", "[",
5 d$ |/ s3 N! I& h: r. R; s                 RowBox[{"[",
                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
              RowBox[{"(",
" Y( F  @6 |- V7 O% l  n; q               RowBox[{
7 u& L3 S9 I5 }# l6 D8 g* r                RowBox[{"CM", "[",
& U0 A; t: q( }5 l( S- s" N& p+ ~                 RowBox[{"j", ",", "i"}], "]"}], "-",
5 v& c0 l6 Y% n4 n8 e# ]( I- `                RowBox[{"Data", "[",
  H& o9 m2 K5 I) t  y- G                 RowBox[{"[",
                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
1 \! k/ }0 z& E1 t         RowBox[{"r1", "=",
! ^* o; _' `; O$ W6 i          RowBox[{"Sqrt", "[",
           RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
         RowBox[{"If", "[", " ",
          RowBox[{
- H4 ?) D4 }/ h# L           RowBox[{"j", "\[Equal]", "1"}], ",",
           RowBox[{"rmin", "=", "r1"}], ",",
           RowBox[{"If", "[",
1 n: q# H* h% D3 x$ c. Z1 O            RowBox[{
$ q8 w) I7 ~$ {' J9 `, @             RowBox[{"r1", "<", "rmin"}], ",",
8 V# f+ o3 ]3 P( }6 F  }5 U) j             RowBox[{"rmin", "=", "r1"}], ",",
. k. K" Y  p) {/ J& ?! L             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
/ ~+ p) R" g9 {     "\[IndentingNewLine]",
" S6 ?+ b+ L2 I4 I8 A$ Z2 M     RowBox[{"If", "[",
9 J0 ?7 v- D  D- d  h6 _0 v( d      RowBox[{
: o/ [4 Z: |3 `6 H; {       RowBox[{"rmin", ">", "r0"}], ",",
       RowBox[{"{", "\[IndentingNewLine]",
        RowBox[{
         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]",
         RowBox[{"For", "[",
          RowBox[{
" D  R) J+ C# n; C- \, |1 J           RowBox[{"i1", "=", "1"}], ",",
           RowBox[{"i1", "\[LessEqual]", "9"}], ",",
           RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
           RowBox[{
            RowBox[{
             RowBox[{"CM", "[",
              RowBox[{"M1", ",", "i1"}], "]"}], "=",
: o) j- {# u, m6 @0 D. B, }             RowBox[{"Data", "[",
; R) u, H4 o; E: V9 k& k              RowBox[{"[",
+ q# E$ e" j& l' n! l0 m1 c               RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],
8 K% y0 c5 U/ E$ d% V5 S          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",",
( P4 o2 d" m" c7 {& D       RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}],
    "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
4 P8 W) O0 K( l CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {
   3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
" a2 Q6 D+ |1 u: V( p   3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {
   3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9,
8 g; L" r" K# P* m   3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
8 a# h* J* b8 J4 y   3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,
   3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
   3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
0 C4 o1 [% t2 G# C& M8 B   3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
: M# Q8 a: }: x! \* i0 x   3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
+ R/ G' v  g% C$ U   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
# `) G& N) O& X" |5 ?3 Z   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9,
( c% Y2 d7 B) |" M$ I   3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {
8 c- P2 e/ g% q   3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9,
. |3 M( J: y! A   3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {
   3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9,
7 v  u3 ^4 V4 H* _7 H/ k   3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9,
1 e4 v3 X8 @0 I; ~   3.577958821991373*^9}}],
1 s/ p3 m( j+ U
Cell[CellGroupData[{

+ V) S% Z( A* V& \- y  xCell[BoxData["M1"], "Input",
$ i: p( P! v1 q CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
- C* r  d6 l9 R% `) \& i1 z
, F1 u3 D) S: G% K$ XCell[BoxData["21"], "Output",
/ d  o/ |% \- u! y: Q CellChangeTimes->{
  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
8 l" q9 E/ T3 M- c   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
   3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
% D& g: \9 U4 B9 b1 i   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9,
' O$ u' Q5 u4 S' E& \   3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
& ?6 P1 q, W# H  r# W   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
% S* V4 Y7 `. z( u% }5 l   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
   3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9,
" u& J  D. F1 H) W   3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
   3.577960515600726*^9, 3.5780121541875*^9}]
! o5 Z: b# a. z3 d% I; B}, Open  ]],
/ ~5 C/ F1 ^5 W/ R9 N) z( [: W
8 C. J6 w' ?) D. O0 oCell[BoxData[
RowBox[{
& r5 R& Y  z6 X8 k( |! g  e2 {  RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[",
   RowBox[{"1", ",", "i"}], "]"}],
$ j# x6 ^( K4 A. Y  RowBox[{"\:5230CM", "[",
   RowBox[{"21", ",", "i"}], "]"}],
% y3 e# S+ y# u7 }( ]. B  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
" @+ a3 E& }+ E: |9 h\:51fd\:6570u1\:5230u21"}]], "Input",
CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
  3.577960526583145*^9}}],

2 ?9 b( ~) _6 F$ _Cell[BoxData[
RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
  V  b, Z* j" }- C+ A5 { CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
* ?5 o: c4 R+ ?7 B# Q. b2 p7 M- u% x
Cell[CellGroupData[{

  H# j: y8 {- E& FCell[BoxData[
+ S, F0 H7 u! h1 W/ h' j5 v0 x  A RowBox[{"Xa", "=",
2 K7 p5 n% j% P4 H! T3 t  RowBox[{"{",
   RowBox[{
- ], F* p: d3 R: a   "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
    ",", "x8", ",", "x9"}], "}"}]}]], "Input",
CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
. J8 v. T/ ^1 g8 O. g0 ^4 i
Cell[BoxData[
, S. I1 P7 }' p# e7 v. X RowBox[{"{",
- U9 K, E+ U7 S8 }/ B+ B1 ~4 M$ R4 D  RowBox[{
3 I2 N: t9 V& d7 T5 o  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
* ~" G8 I6 |3 C/ L/ e. J    "x8", ",", "x9"}], "}"}]], "Output",
CellChangeTimes->{
  3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
6 _. T8 `8 _  O1 X* Q. q, E. t   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
2 h8 c% i2 ?; ]# e0 x   3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
+ R1 f7 C+ S8 D5 o   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
   3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
   3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
5 ^4 K! F# s; W$ {+ K! e4 X   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
* v1 v0 U5 }! }9 @) C8 z9 W   3.57801215725*^9}]
$ Z5 D. ?& ~& Z6 G: A# D& N& [! U}, Open  ]],
5 e# p! {" b- z, d. ~2 s
Cell[CellGroupData[{
/ C8 |) r' J9 h8 j- K% n
! L* F7 ~: _* k; V0 N7 K( vCell[BoxData[
' b$ J0 K4 D4 R! c RowBox[{"Ca", "=",
  RowBox[{"{",
% V( v: D- m& [' k4 ~! M   RowBox[{
   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
    ",", "c8", ",", "c9"}], "}"}]}]], "Input",
9 I! m1 }8 v% p# U1 Z CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
9 ]0 h1 @% t' E3 r( K& }
Cell[BoxData[
RowBox[{"{",
4 L- b' B! {6 H- F/ h& I  RowBox[{
+ [# Y" a5 m" V; h. K& }  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
    "c8", ",", "c9"}], "}"}]], "Output",
  }2 r( [# Z- y9 w2 A+ ^5 n. |& o CellChangeTimes->{
  3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
   3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
% }+ P. M5 b; h; X# @   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,
9 {6 ]  D6 m6 [; |   3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9,
4 c8 |, @$ x, B; k# E% }   3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
- w' F+ B' \: a# V2 u2 ~4 I) t' Y   3.577961904604212*^9}, 3.578012158671875*^9}]
! _- _  l1 Q5 p& Z}, Open  ]],

Cell[BoxData[
( h3 M% T+ ]' Q) `7 @+ x RowBox[{"For", "[",
  RowBox[{
/ q% `3 ^5 b; T: Y   RowBox[{"i", "=", "1"}], ",",
   RowBox[{"i", "\[LessEqual]", "9"}], ",",
   RowBox[{"i", "++"}], ",",
   RowBox[{
$ V1 J# ?1 T" e( J) j    RowBox[{"Ca", "[",
     RowBox[{"[", "i", "]"}], "]"}], "=",
" O" a" u+ D# R4 m: w0 D) L8 c    RowBox[{"CM", "[",
5 U! _; o  ~9 O: y, o. w* {; R' l+ w     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
   3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9,
   3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
( X2 V# M! G7 C6 ^0 F   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
( f/ X* I2 Q- H  R, F   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
   3.577961906897415*^9}, 3.578012176296875*^9}],

9 z5 N  Q' l& X1 t1 oCell[CellGroupData[{

Cell[BoxData[
RowBox[{
  RowBox[{"(",
: H$ ]; p0 D9 M( u   RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
- ^+ Z7 Y% \4 E/ }: Q. v0 o. i  RowBox[{"(",
" |' ]: y6 D' V- ]$ d$ v   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
, u. G/ T' k9 Z5 U! \) I. X
Cell[BoxData[
5 E5 {# Q7 G! y RowBox[{
: Q$ |- }6 n& |  SuperscriptBox[
   RowBox[{"(",
    RowBox[{
+ V4 W4 @5 J0 J; g7 n9 b     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
  SuperscriptBox[
* u4 m: q' y4 V0 z  Y   RowBox[{"(",
    RowBox[{
& S8 O) E! u/ i4 F0 N% Q     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
' ?2 A6 b: E( J. m  k/ b! i$ _' N$ ?  SuperscriptBox[
$ W3 N: @9 Q3 i$ S4 j4 ~   RowBox[{"(",
    RowBox[{
     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+",
  SuperscriptBox[
) }, _$ @8 N0 L/ i: i" r7 u% }   RowBox[{"(",
    RowBox[{
4 U$ f6 ~/ x( W+ {     RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
; j) V; n9 I! M. t  SuperscriptBox[
: N* D7 H* j: S7 o5 S+ d   RowBox[{"(",
    RowBox[{
     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+",
  SuperscriptBox[
   RowBox[{"(",
    RowBox[{
7 p6 l' O7 X) G8 x8 F. y' J# t% x" j     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
5 t1 l' U% q8 H7 y0 B# ^  SuperscriptBox[
   RowBox[{"(",
$ [$ Z  W; N$ \5 F0 ^, s    RowBox[{
% d/ Q; \. E% f; X5 _" F" u! \     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
+ i7 A6 i# l  P$ B3 b% R  SuperscriptBox[
   RowBox[{"(",
    RowBox[{
6 r* o% o2 Y4 Q& Z" s4 B7 Y  R     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
9 P- Z- ?* b5 T) t$ U  SuperscriptBox[
- _! S/ v, |( W' r( T4 k   RowBox[{"(",
    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
CellChangeTimes->{
  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9},
0 ]$ i4 t; Z( [4 o1 X# U4 V4 K9 A   3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
) Z7 X( y9 b# S! m- \   3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,
   3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
3 |# P. F5 h$ v" O6 g   3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
4 d5 k/ V' x7 }( M! x* j) [# d   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
   3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
7 L  h( n0 s3 {# o   3.5779618537169228`*^9}, {3.5779618846049767`*^9,
   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
}, Open  ]],
4 U5 x$ w' l5 [) G( _) O! p2 P
1 T' y/ Q5 i4 a- K- S' eCell[CellGroupData[{

& q. f! s7 @0 D+ Q% |Cell[BoxData[
RowBox[{
  RowBox[{"Ca", "[",
) w6 ?8 K" G: t2 k   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
9 d$ e: ~# r" V# A) M+ A( l  3.5779616465173616`*^9}],
6 l6 e/ ]2 M! V2 }* r7 B' g
Cell[BoxData["0"], "Output",
' h' Z, A4 X6 w3 r% D& [; ^ CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
  3.5779616484049644`*^9}]
/ s! I0 H/ F2 x, P/ q/ i" c}, Open  ]],
/ Z% x6 K9 ?3 K; d1 U
Cell[CellGroupData[{

  V& R; M/ e" ICell[BoxData[
RowBox[{
& r8 U7 |; Z  X  RowBox[{"Ca", "[",
   RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
# F5 r2 K8 W  Y# r$ C CellChangeTimes->{3.577957376235614*^9}],
2 P- f6 ]5 n: F; H
Cell[BoxData["0"], "Output",
6 Q% F5 t5 p8 T9 @+ r( Z CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
}, Open  ]],
! \, b% S1 K; b; P2 b( J, n; y4 K
Cell[CellGroupData[{

Cell[BoxData[
RowBox[{
  RowBox[{"Ca", "[",
: j! L' b9 A- P3 i4 A. |   RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.5779573112927003`*^9}],

0 }: ^# O  M0 b# sCell[BoxData["0"], "Output",
CellChangeTimes->{
$ `( `4 w0 d# \  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
  d2 T: F2 q" ]$ o9 C   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
0 @' w8 h" t+ s   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
9 |: d) C; j/ o}, Open  ]],
7 y8 n2 W" M/ K) k5 W8 T
+ j9 N; v% `8 |$ w/ j$ n* H& rCell[CellGroupData[{

/ X. q4 t8 M9 A! @2 }& Q3 A6 k) m5 hCell[BoxData[
* V6 [2 W: w1 \" q0 L RowBox[{
% h0 S" i: I  Q1 K/ U% k  RowBox[{"Ca", "[",
   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.577921461734375*^9}],

Cell[BoxData["0"], "Output",
- [! V  u7 ^' v+ ^ CellChangeTimes->{
  3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
2 G* a4 k; g$ M% x: K, h0 Z8 q  e   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
9 D' F' Y: i2 E& s, ^. y' M& }   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]
}, Open  ]],
* s8 r  N' n; x- Q
Cell[CellGroupData[{

Cell[BoxData[
1 {" s$ T6 E7 |+ k4 w( U$ ?% U RowBox[{
  RowBox[{"Ca", "[",
   RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.577957303118286*^9}],
) _1 ^( h+ y& p3 {! X' b; H) u# f
+ i1 j$ P; j: |( CCell[BoxData["0"], "Output",
CellChangeTimes->{
( c8 G: m1 A: i$ _+ W! }7 N) ~  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
, u8 p/ o* v: |6 I. ]   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
2 E& p2 l: m+ z6 s4 K   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
6 A, A7 t. n8 i- e! p   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
: O5 l, ~" l* `3 G   3.577961889378585*^9, 3.577961912965826*^9}}]
% Y! T; G! B% o7 i" S% S}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
9 N; x9 e9 y7 U$ H RowBox[{
  RowBox[{"Ca", "[",
6 w* [) F  m2 y) n+ r   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
  3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
6 y  b' [" Z8 S5 L  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
; ?/ T- I0 w* U8 ?2 D. a" j  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
  3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
  3.577921435703125*^9}}],
7 V3 ?" L. a7 \2 }' [( k/ u/ x0 d* E
+ E& }/ W' c6 xCell[BoxData["0"], "Output",
9 t, B- T( j7 V- u  } CellChangeTimes->{
  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {
, s# l& `: S; z0 s, M6 x( V   3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
/ m' k8 O# K  B   3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
( F/ d7 U" `9 a2 l& G   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
) w4 W% A* c  v# m   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
( s* c# s4 G, ^# ^' f2 W: Z   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
* w( u/ W+ ]) {: L/ M8 O   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
8 Z, [# S; b1 s5 t7 V8 r) y   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

- v( ?/ E. g  B7 B* yCell[BoxData[
% H1 ?+ h% e1 B RowBox[{"Delta1", "=",
0 U2 p- _+ z2 |) b' @6 s, [  RowBox[{
   SubsuperscriptBox["\[Integral]",
    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
   RowBox[{
/ S- F$ ]% R" ], \) r    SubsuperscriptBox["\[Integral]",
     RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    RowBox[{
7 u8 O* y/ `3 j: V* m     SubsuperscriptBox["\[Integral]",
1 K; Q; a+ z0 Y5 C/ v+ ]      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
! y, |$ i, @0 X. t$ {3 S8 E8 ~' P     RowBox[{
      SubsuperscriptBox["\[Integral]",
% x& c2 P- R2 W3 f# P4 H+ V8 Q( t       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
      RowBox[{
7 q( _# l0 V& w: ^5 k       SubsuperscriptBox["\[Integral]",
2 z: b/ J# H5 b( U- W( n        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
8 ]2 ?5 _7 i4 C7 m( ?0 F$ R& i       RowBox[{
        SubsuperscriptBox["\[Integral]",
; ~5 n' T0 \+ i! d5 v  q2 q         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
        RowBox[{
         SubsuperscriptBox["\[Integral]",
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
         RowBox[{
          SubsuperscriptBox["\[Integral]",
4 @4 p! d/ N7 @1 G8 H           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
4 L5 {* P+ t2 I          RowBox[{
$ d! x; g0 K3 y! i. ]6 [5 e' f           SubsuperscriptBox["\[Integral]",
            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
/ Y, K* Q  B1 l. E6 J2 W           RowBox[{
            RowBox[{"Exp", "[",
             RowBox[{
              RowBox[{
9 V) h/ M  }, k: b5 j% L+ e1 d' N* [               RowBox[{"-",
) b2 f( p( n+ V7 c) u9 b                RowBox[{
                 RowBox[{"(",
                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
                 RowBox[{"(",
* g7 V  q- j$ \* P2 p1 m                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
7 N( w4 Q9 _7 L) [8 t( [2 t              "Delta"}], "]"}],
            RowBox[{"\[DifferentialD]", "x1"}],
; }3 l8 S) t1 m0 l9 L. f9 h            RowBox[{"\[DifferentialD]", "x2"}],
            RowBox[{"\[DifferentialD]", "x3"}],
            RowBox[{"\[DifferentialD]", "x4"}],
% M) H1 \( q  j: {0 S0 @            RowBox[{"\[DifferentialD]", "x5"}],
% D/ p2 q* q& S7 |- Y9 T            RowBox[{"\[DifferentialD]", "x6"}],
            RowBox[{"\[DifferentialD]", "x7"}],
# i5 b" X& P; d            RowBox[{"\[DifferentialD]", "x8"}],
            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
   3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
$ }8 H  i$ g7 ]/ D3 e9 Q   3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
4 O+ E4 g8 a. j9 D! s6 m( A( Z/ B  Y: L   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
   3.577918964453125*^9}}],

Cell[BoxData[
! U: p7 n) j9 ^) K7 }% e RowBox[{"97.40909103400237`", " ",
! h2 F* F( m  Y  b! o  SuperscriptBox["Delta", "8"], " ",
  RowBox[{"If", "[",
   RowBox[{
1 h4 r9 `2 y7 o5 N' _9 K9 H    RowBox[{
     RowBox[{"Re", "[",
      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
6 H& c4 n, ?8 I- ~  \0 ^    FractionBox[
) b. @: J0 P* H/ A0 _     RowBox[{"1.7724538509055159`", " ",
+ v! N( C; z* n2 t1 B( ]      SuperscriptBox["\[ExponentialE]",
       FractionBox["1.1102230246251565`*^-16",
        SuperscriptBox["Delta", "2"]]]}],
- _( m+ n8 x% ^6 V# B+ `     SqrtBox[
2 I% Z! z3 c& Q0 @$ P8 A" V  A! L! Z$ c& ^      FractionBox["1",
       SuperscriptBox["Delta", "2"]]]], ",",
4 E& t/ D2 Y& S/ k7 P3 D2 T1 z3 i    RowBox[{"Integrate", "[",
     RowBox[{
      SuperscriptBox["\[ExponentialE]",
# z) B4 F9 ]" y7 W/ `/ p4 P       FractionBox[
) ~: ~" g7 |$ G- j+ Z        RowBox[{"1.1102230246251565`*^-16", "-",
         RowBox[{"1.`", " ",
          SuperscriptBox["x9", "2"]}]}],
        SuperscriptBox["Delta", "2"]]], ",",
9 t. e' x- t- ^% l      RowBox[{"{",
       RowBox[{"x9", ",",
        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
      RowBox[{"Assumptions", "\[Rule]",
2 E/ b4 I4 Z2 ~6 i       RowBox[{
        RowBox[{"Re", "[",
& A# U) G3 z, w         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
     "]"}]}], "]"}]}]], "Output",
9 Q$ Y( a8 I4 }. X/ C" G CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
9 R) e' @5 e+ T- l  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
}, Open  ]],
, m/ \8 T" K5 e& J
  D  S% h+ c# k8 y& q% ?Cell[CellGroupData[{
( f6 G) v( j# t
Cell[BoxData[
RowBox[{"Delta1", "=",
  StyleBox[
   RowBox[{"97.40909103400237`", " ",
. `- r1 X  V6 j4 X# C1 R; G* T- o    SuperscriptBox["Delta", "8"], "  ",
( J" ~& o0 Z8 M% j    FractionBox[
0 D* g. i2 X% |( U0 e     RowBox[{"1.7724538509055159`", " ",
      SuperscriptBox["\[ExponentialE]",
) X' w! u5 Y. j9 C$ H: f       FractionBox["1.1102230246251565`*^-16",
        SuperscriptBox["Delta", "2"]]]}],
     SqrtBox[
& j. s) h- C1 Q% m  b      FractionBox["1",
       SuperscriptBox["Delta", "2"]]]]}],
0 J; x6 R+ W- W# f   FontWeight->"Plain"]}]], "Input",
CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
5 F- W  C) j0 D4 M8 |   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
% f5 L( Q" r; W! j   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
: C6 N* m4 v4 I, f9 e& ]   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
! v0 P2 I9 C$ @% o7 _' F0 d   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
" ^! P% v6 j0 ?0 S$ L
. s) R: T* {' ]Cell[BoxData[
FractionBox[
  RowBox[{"172.65311851642346`", " ",
   SuperscriptBox["Delta", "8"], " ",
   SuperscriptBox["\[ExponentialE]",
    FractionBox["1.1102230246251565`*^-16",
* o7 x. v- J, u* a     SuperscriptBox["Delta", "2"]]]}],
  SqrtBox[
   FractionBox["1",
( Y' w* o# G3 \. H$ {* _# N  g7 ]    SuperscriptBox["Delta", "2"]]]]], "Output",
CellChangeTimes->{
/ I3 l  [4 O  N) h  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
$ K1 |1 R5 ]' C1 S: o8 z& U   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
   3.578012166234375*^9}]
, r6 A5 k' t4 n/ F8 S5 e) s" J6 E. s% E}, Open  ]],

Cell[CellGroupData[{

1 o' A4 W1 _' K& Z3 q1 zCell[BoxData[
RowBox[{"DeltaX", "=",
6 H3 {% H" m& g# U% r  RowBox[{"FindRoot", "[",
   RowBox[{
. z6 S/ @- E( r4 J3 P    RowBox[{"Delta1", "\[Equal]", "1"}], ",",
    RowBox[{"{",
     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
9 ~( c* O) Z, _ CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
: s0 A) y" g; C' g% k, n3 ~- W   3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
   3.57791921584375*^9}}],
) ]$ X2 H* K0 g( p9 f4 A4 N4 h* b
" M  o" y/ O( U! vCell[BoxData[
RowBox[{"{",
1 [5 l$ r$ n2 q  N2 r0 Q5 O: o& i  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
CellChangeTimes->{
( L! k% c, h9 t; {  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
1 q3 ~" c+ D+ m   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
4 H& l) L  e$ Q7 K7 x! i- ^   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
  g$ K) X1 z+ K! g% {   3.57796070150625*^9, 3.578012167703125*^9}]
( Y' J. J2 F+ Z: e% z}, Open  ]],
2 T  @" T: T4 B
Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
4 k# R$ k* P* s7 }  `7 x3 d6 e  3.577960705312657*^9, 3.577960707621461*^9}}],
7 i8 `$ S* b  o* X4 x( [
6 R9 h# U2 \) [Cell[CellGroupData[{

4 I* _" r. @  h) U( |2 Q' j' NCell[BoxData[
RowBox[{"C1", "=", "Ca"}]], "Input",
! D+ t+ N1 k3 R# j/ z CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
( K% V: b. O6 c9 {2 b6 ~0 W
Cell[BoxData[
RowBox[{"{",
  RowBox[{
" _- v: y4 M, L4 z: N- c1 i  "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
' h  g" J: g1 M  b$ U: t) J   "0.`"}], "}"}]], "Output",
* g0 }1 k: u' Z  R; S7 r CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,
: J) Y1 ^" \2 `6 f6 s  3.577960710273465*^9, 3.5780121855*^9}]
}, Open  ]],

  v8 u8 S: _& v# P6 e2 \Cell[CellGroupData[{

Cell[BoxData[
* b. I& g8 ^4 z- v, L) t5 U RowBox[{"u1", "=",
  RowBox[{
5 x5 d5 b) O9 @' j6 k   RowBox[{"Exp", "[",
% v$ A( \; [6 Z& z4 D    RowBox[{
: Q9 x+ G& }5 F/ H, b" Y     RowBox[{
) C8 }  l* |+ e& X5 a) ~      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
3 U; K( \7 S$ a% _/ z! C" ]; L         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
! h5 i. D; \* R: l, [        RowBox[{"(",
" ?* b) C$ L, I1 [, b% K         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]], "Input",
; U6 a8 G; m: F& O, w9 f. q CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
   3.577919193484375*^9, 3.5779192326875*^9}}],
! ?0 t, D& w1 q
Cell[BoxData[
$ |6 q% v$ t. X( ~+ X! G SuperscriptBox["\[ExponentialE]",
6 H" N) |4 w; G# f; {* f3 Y  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
  Z  a/ R/ U' j4 ~6 J2 ~9 [  W    RowBox[{
6 l& ~) u$ B* D7 |* g     RowBox[{"-",
      SuperscriptBox[
2 z. [. n" i9 V( \  ]' h       RowBox[{"(",
9 K4 B( Z( D/ L' S# m6 J6 T( i        RowBox[{
         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
. T6 V3 S: c7 g     SuperscriptBox[
      RowBox[{"(",
0 e9 f2 Q+ n! M$ X3 {+ _. B. G       RowBox[{
        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
  @/ m, |% @% }1 @, _4 k      RowBox[{"(",
# y$ f- I9 U$ [* ?! E' Z& U) q       RowBox[{
6 N/ d% |( s" j4 u6 C9 v        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
, y% O" f( g: g8 Q& ?: n- A      RowBox[{"(",
3 L' V" J: \1 v% f: E$ t       RowBox[{
        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
3 T( O- m/ m% K5 y     SuperscriptBox[
* z! ~$ l) f* A      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
) l% x: W8 I: G      RowBox[{"(",
       RowBox[{
8 K7 h. x7 z2 I* X% ~        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
1 L8 S' @' }$ Y/ A5 y     SuperscriptBox[
7 s# }7 D' i. b$ ~( k      RowBox[{"(",
       RowBox[{
' _3 }0 Q% e* T8 L        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
( m+ G" g2 W: w7 `/ B      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
( |6 t1 i6 a3 m5 y3 p      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
6 }8 O, O  l$ Q7 Q+ Q" R5 E    ")"}]}]]], "Output",
CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
  3.578012187078125*^9}]
}, Open  ]],
4 U  R3 u  ^  W- g
7 ~5 y/ d' S6 ~5 G& W$ i- f4 v3 uCell[CellGroupData[{

) x, a1 x1 n5 ]" m( ~  QCell[BoxData[
RowBox[{"C2", "=", "Ca"}]], "Input",
, j% p" r) {3 ]. q$ {" G CellChangeTimes->{3.57792047321875*^9}],
8 C7 E5 N8 Q! c0 M( b
Cell[BoxData[
RowBox[{"{",
  RowBox[{
. k1 t( k! m1 Y) w* P* u  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
5 o% G: b4 J5 H9 W2 \1 ~" M* Z  "}"}]], "Output",
CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
; {" M7 q* D" t% D# d# U: c  3.5779607401163173`*^9, 3.578012204671875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
RowBox[{"u2", "=",
4 Q2 ~2 a( p5 b  P  t  Y  RowBox[{
   RowBox[{"Exp", "[",
6 {9 T4 n% C) s( r% D    RowBox[{
     RowBox[{
! R. v+ ^$ r" V; @/ w; a      RowBox[{"-",
& h# t5 b6 D. Q7 X, W4 m- z! L       RowBox[{
        RowBox[{"(",
) X0 C; u0 ]+ j         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
2 A# B" M: n$ h/ l. @        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.577920484109375*^9}],

Cell[BoxData[
6 P% O' L+ g. J( y SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
7 ~+ k2 J4 O$ U6 G   RowBox[{"(",
    RowBox[{
( ?7 ?7 ~) [1 b9 {3 T: C% |/ |" q     RowBox[{"-",
! n- C! @. ~8 u4 U      SuperscriptBox[
1 Z5 R! w7 Z  e       RowBox[{"(",
        RowBox[{
3 ~1 w2 ?. a9 V$ N         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
- ^8 u4 q- }, e% _" K% T     SuperscriptBox[
4 \. L$ D% I, k+ _" G1 v' H- b* v+ z2 R      RowBox[{"(",
- G) H0 p5 b  j/ ]5 _/ N2 P       RowBox[{
        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
- e8 K1 o5 g% @% a1 k' Q2 T5 L* E      RowBox[{"(",
. W( G( f6 |5 r  w; \       RowBox[{
& p; X1 n% p5 s1 l% x& D6 ^! D- G        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
- f% o! l3 \" n: W" F     SuperscriptBox[
      RowBox[{"(",
; H3 b5 |  |; V8 [' a0 n       RowBox[{
. `5 K, o3 M( A        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
6 ~% L- t8 A. w' j  P     SuperscriptBox[
+ B! V/ `3 x4 t! k+ z2 H      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
) S" P! J4 A* f7 s" ]& S) [     SuperscriptBox[
: {8 F4 @# t  [% G* p6 q      RowBox[{"(",
/ h6 p' |' R# v       RowBox[{
0 j7 r& ~# T4 i- y8 t* `% G0 Y5 B        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
, B% e& D7 p- e+ [# H& H0 O     SuperscriptBox[
      RowBox[{"(",
& E& ?& ^8 b4 l       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
2 l5 @/ m$ B; B0 D      RowBox[{"(",
7 ~" A! u: l+ k$ P: Z: q& ~) k       RowBox[{
: C: o/ ~  R% U+ a. B* V        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
% `( i0 Z, `6 S- Y      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
) M8 W+ E- a, z: C$ T0 o' Y. d    ")"}]}]]], "Output",
CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
  3.5779607413955193`*^9, 3.578012205484375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
  \2 L1 o3 t* y2 f! n RowBox[{"C3", "=", "Ca"}]], "Input",
CellChangeTimes->{3.57792064125*^9}],
) h4 R9 u% Z8 F% T0 b
# X& [5 Q- ]4 Q. D+ O  VCell[BoxData[
RowBox[{"{",
  RowBox[{
  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
9 L& U& s+ w3 t0 n; p  "}"}]], "Output",
CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
8 O7 C0 f$ O4 y% L/ o! e  3.5779607642027593`*^9, 3.5780122103125*^9}]
  w; b2 q( B  v}, Open  ]],

Cell[CellGroupData[{
6 m5 W1 a( \0 I5 {$ Z  P: [+ F$ r
8 E$ h/ V  v1 Z! jCell[BoxData[
+ p1 j1 M+ r; P# {4 ?3 Z RowBox[{"u3", "=",
  RowBox[{
4 _: W% @2 Y' T7 F5 N   RowBox[{"Exp", "[",
    RowBox[{
     RowBox[{
9 ~' e7 W) E/ H' {; T      RowBox[{"-",
, J: x' O; X8 ]' \" n       RowBox[{
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
+ M; ~6 _3 J3 A  l6 x        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
/ h" |1 h' Y  g* j: I     "]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.57792064921875*^9}],

" _, @. X/ q7 R3 GCell[BoxData[
' ]: p6 B' o# f SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
2 y. x+ h# ?; [$ w( N1 r% Z   RowBox[{"(",
9 o, T1 I% c, q# ~, y* x7 L    RowBox[{
     RowBox[{"-",
4 e  d: A! c, x& U      SuperscriptBox[
  M3 `7 X' ?# e) R$ [       RowBox[{"(",
        RowBox[{
         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
. R1 F$ {6 D: i$ [      RowBox[{"(",
5 s6 T" }. c* p- C- }- [' P+ N       RowBox[{
        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
2 ?2 j1 I3 U: z5 p' T      RowBox[{"(",
) c, J2 F1 x/ W& K+ ?       RowBox[{
        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
# S" j6 P: H) |1 T: N      RowBox[{"(",
3 m) \$ I7 S) n$ p& Y; c: N5 n       RowBox[{
        RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
& F; ?) A' f7 t2 z. L& U      RowBox[{"(",
1 H- g. _, v+ B( c9 s       RowBox[{
& J" N1 c; i& a# l4 h$ J6 }        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
; A$ c2 n. i  H# {2 A     SuperscriptBox[
2 D# }& K* n6 k      RowBox[{"(",
7 e8 K, S1 r/ n3 N       RowBox[{
% t* d4 M0 A  M6 c8 d: w        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
0 Y* G( d1 o4 `/ X     SuperscriptBox[
4 t3 A6 Z9 A* h' }( ?. f      RowBox[{"(",
' ~) b8 s: @2 K9 Z       RowBox[{
        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
! J" `) Z& S( S. ]7 D/ g4 b: L     SuperscriptBox[
      RowBox[{"(",
5 M/ ^% ?$ f3 x: X/ r3 q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
' x( W1 o! v# I- y     SuperscriptBox[
/ y5 n+ Q3 v+ B& M! Z      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
  ~7 e. D; j4 ]% M" r" g& w5 i% Z  3.5779607654819613`*^9, 3.578012211515625*^9}]
, i9 ^& b, H2 P3 ?7 e- f) J8 E- T}, Open  ]],

6 S' |  P8 ?8 [/ p+ E6 j: OCell[CellGroupData[{

Cell[BoxData[
RowBox[{"C4", "=", "Ca"}]], "Input",
CellChangeTimes->{3.5779207559375*^9}],
( k  W; e0 @8 h. {! O2 d2 `
) p+ j# d% o9 k4 u8 M) Y4 vCell[BoxData[
$ v; H4 q6 L8 b" q RowBox[{"{",
  RowBox[{
8 Q0 {7 \1 }+ K- @  T  A( r  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
7 N0 T3 z: D+ |' V# u+ b   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}],
  "}"}]], "Output",
6 i/ S0 n; V) G. k! ?* O) C CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
! w4 B! j9 h6 r/ D+ d  3.5779607861363974`*^9, 3.578012216171875*^9}]
}, Open  ]],
# I0 {/ ?4 c2 l4 ^6 _5 t" s
Cell[CellGroupData[{

/ O& C1 h! O% ?, V4 xCell[BoxData[
3 {& B. m9 I. R8 @: J" Y+ h! V RowBox[{"u4", "=",
' [; ?" C/ f- a4 d$ Q5 ?  RowBox[{
   RowBox[{"Exp", "[",
) s% n: p( J- y. o% ^5 n; t* |1 ?    RowBox[{
+ S$ a( \" B5 z2 s     RowBox[{
6 {7 y; Y# m& M5 d& P" R5 E      RowBox[{"-",
       RowBox[{
: l4 s4 ]- d1 B. [        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
$ ]- [' c+ k$ z' u& p         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
! N0 M* ^/ O* e0 K) z     "]"}], "/.", "DeltaX"}]}]], "Input",
$ u4 o$ Z& H9 e- I1 O" p CellChangeTimes->{3.57792076325*^9}],
* Q2 B! z' j2 ~, _, U4 L3 D
Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
6 s8 Y/ `+ J, U  RowBox[{"3.141592653589793`", " ",
' s4 Q; @1 [2 }   RowBox[{"(",
; {- ]0 l. ?1 R9 {" l    RowBox[{
     RowBox[{"-",
2 h5 `5 S8 i; O      SuperscriptBox[
       RowBox[{"(",
  Z" j! u& K7 Q! E3 Q1 G        RowBox[{
- P7 b4 J8 b9 P6 J8 Q3 @# I         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
$ v6 R8 A7 T2 Y9 G     SuperscriptBox[
. R9 x# E5 q  y7 ~! W9 _/ Y      RowBox[{"(",
! `' V6 v1 J, d6 [/ h% A" D$ c       RowBox[{
        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
/ ~0 o. ]7 I% Y, S* x7 u! ^     SuperscriptBox[
      RowBox[{"(",
" v3 Q0 l* Y$ U       RowBox[{
/ r! r! O2 O9 x3 o: e5 b        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
7 Z0 r! G2 u* c0 `4 P  v     SuperscriptBox[
- k+ L5 g3 [3 S- I      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
; R8 |6 _( V, P0 K' S5 n     SuperscriptBox[
' E' Q# j( C, }4 \" g% {      RowBox[{"(",
; w% D) G% u! f; x" B       RowBox[{
        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
6 A5 G' n, @; x7 F3 ~  Q: B$ X8 s      RowBox[{"(",
0 r2 s. R% ~/ d8 Q8 S2 _       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
2 E. l5 O  X9 N4 n- S/ m3 M     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
9 `' U0 g& J0 a" M& ~* \1 q     SuperscriptBox[
. Z; A3 y  b0 u/ J0 H1 U      RowBox[{"(",
8 v! x8 [) Z* N       RowBox[{
; B5 T" ^$ p/ s! j0 L2 `        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
& r) I2 o2 P% e0 t; y; _( g    ")"}]}]]], "Output",
0 P7 j5 y+ \6 i+ F CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
  3.5779607873531995`*^9, 3.5780122169375*^9}]
) ^# p/ V( n; K- l- x}, Open  ]],
4 W8 H, E- w) z3 R2 g  H; b
Cell[CellGroupData[{

Cell[BoxData[
0 |9 M7 n6 `& A4 X- @0 n* Z7 T RowBox[{"C5", "=", "Ca"}]], "Input",
) l, \2 G) w- j CellChangeTimes->{3.577920860671875*^9}],

Cell[BoxData[
, }0 w3 N+ [' L+ s* e" d/ c, j9 a RowBox[{"{",
  RowBox[{
) E+ [4 T; }, L9 m2 z5 u  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
9 X" ^8 u  k# j% ]- w2 x$ w. @4 K  "}"}]], "Output",
CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
4 P  a$ a) ?& }  q  |2 ~) e  3.5779608137328453`*^9, 3.5780122209375*^9}]
) V- N7 M; A) p3 G8 W- b}, Open  ]],

Cell[CellGroupData[{
( _: w: ~% S" y( k6 G
Cell[BoxData[
RowBox[{"u5", "=",
  RowBox[{
% e4 w$ \4 S! I& M" j% ~  Z   RowBox[{"Exp", "[",
! d6 {, E4 q3 ?. {- z( d* J    RowBox[{
& C2 l% V0 s$ i3 a$ B     RowBox[{
      RowBox[{"-",
" ~; d) J7 P8 U. R' e# D       RowBox[{
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
/ p, r& z. W+ O$ |( p7 t/ l        RowBox[{"(",
' K3 S: X5 T: h9 H5 h& C) s% B         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
$ p3 z6 y& u9 }% W- C) g8 j     "]"}], "/.", "DeltaX"}]}]], "Input",
$ o  u7 b  {* M8 G6 o5 o; B& B CellChangeTimes->{3.577920869375*^9}],
2 ?: ]: j% I/ ^: t3 e+ d, x! M
Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
/ ]5 B2 N+ o+ x# a2 n  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
8 f* C& k' a5 b. s/ z        RowBox[{
         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
( O" H% j' M! Q. R     SuperscriptBox[
' D5 B$ c* b, s/ N      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
: F& p2 w# j. R     SuperscriptBox[
  c" I$ \* \7 A. P" {8 S1 Z      RowBox[{"(",
       RowBox[{
- k8 U6 F$ ]- V* ~. a. D        RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
& o7 P% }- N! w. I# f! S      RowBox[{"(",
       RowBox[{
9 ]9 A! w% p  O* U" M" {5 a        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
' @8 a9 o: B5 R5 n3 {     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
$ B! w7 {5 _/ _7 ?. c) d      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
$ f& k8 [4 i1 T1 L$ p      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
3 d% W: X* X* J/ i      RowBox[{"(",
9 ?. O% h( T$ t/ ?, @) m- ^, y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
  }6 @2 G% ?6 x& V( D7 ~4 B      RowBox[{"(",
" I3 n; c$ F$ q% {5 ]       RowBox[{
- L! W5 a- N6 {, w0 h% B/ L9 b        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
  3.577960815043248*^9, 3.578012221953125*^9}]
}, Open  ]],

4 X' m9 F# W( h. m% tCell[CellGroupData[{
7 L$ H* h1 x' \0 f( U, G) e5 @
Cell[BoxData[
+ i3 \0 i6 ?3 s0 @& [% ~ RowBox[{"C6", "=", "Ca"}]], "Input",
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],

Cell[BoxData[
) T+ }1 C2 u" |! N# @* x1 u RowBox[{"{",
  RowBox[{
  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
- I8 u4 j" @; ?) R( r/ Q2 y   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
, E" X7 p1 [7 q" p9 l6 L1 B   "0.494866`"}], "}"}]], "Output",
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,
   3.5779608373044868`*^9, 3.578012227359375*^9}]
}, Open  ]],

0 _3 k) _1 D" c! [# \  OCell[CellGroupData[{

Cell[BoxData[
RowBox[{"u6", "=",
  RowBox[{
   RowBox[{"Exp", "[",
    RowBox[{
  s7 y# S+ s' \; b     RowBox[{
  Q6 ^, Z6 P" z; E* q; X5 m3 l$ ], j      RowBox[{"-",
% L. B7 I- [" w: o: c8 K4 J) n: b       RowBox[{
: J+ e; a$ \* v, }6 k        RowBox[{"(",
9 W/ _$ M, X5 F# j( p. e; T& j( S         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
; v2 v- i! q( `% p        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
( B7 `! ~4 ?7 w6 }8 X     "]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
3 J. Q! p( u/ K9 r& e& f
: a( C; r; P* |) q8 ?* ]' UCell[BoxData[
* L- m/ T0 }2 S6 S SuperscriptBox["\[ExponentialE]",
2 P! I+ O6 L* F6 l4 n8 L  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
" ?. u0 u- w7 R. j; \    RowBox[{
2 E& T5 j. z9 i7 G6 ]. n5 s     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
* ^6 k+ w; c1 n3 _        RowBox[{
5 G7 o- y* I$ B$ J6 o% s5 f. H         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
" N2 O0 j. ?* d4 I     SuperscriptBox[
      RowBox[{"(",
, ^  z0 f& o8 J4 p       RowBox[{
2 n  G* d2 ~" g. p, @/ H1 K$ S( c        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
; O: ]- k' W( m" p; h1 j" i     SuperscriptBox[
      RowBox[{"(",
* M, g  X; r$ Q0 g8 m& m; f" C- [& x$ L       RowBox[{
        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
! A" E; e" P" _2 p/ U/ f4 c" M! {     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
+ E+ j/ x( Q' {. h* Y      RowBox[{"(",
# h  E/ Z0 U+ m; Q4 J       RowBox[{
$ h- W0 O! d# l& k- `7 y9 n        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
" I9 ?- H! b) a5 c  |6 l3 @0 `      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
# i) b0 [7 V1 O$ P  m1 e      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
2 ~1 B  E& i* C# R( n5 s     SuperscriptBox[
      RowBox[{"(",
* b0 `' y+ p1 v6 A       RowBox[{
+ _% L  l% h  ^" u% [: K) p2 c# [        RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
2 \( f$ i5 K3 f, |8 p" C1 N    ")"}]}]]], "Output",
( L& T/ R# N0 C CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
8 q8 I" c1 U6 J: a  B9 H: o  3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
, z+ w( G$ c) j0 I: w}, Open  ]],

6 ?0 q& x: N' F5 y9 q+ @, r4 hCell[CellGroupData[{
4 c* l  s: {9 U2 D1 k, y! T
$ E( d) j0 l" \9 W; m% m8 V/ PCell[BoxData[
+ X+ H9 D& J. |3 W RowBox[{"C7", "=", "Ca"}]], "Input",
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
$ Q9 b' F8 k1 n! L0 g6 A  3.577921316125*^9}],

$ _) U" E. Y. \8 x; hCell[BoxData[
+ }6 \. @& i, r! @7 I RowBox[{"{",
  RowBox[{
  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
) i, U. r9 R  R/ x   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
, w; S3 p0 A" {/ ]0 Q" F& i, r* e4 h  "}"}]], "Output",
/ m$ a6 K8 Z) k1 H  [. N: @: [ CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
0 |5 G6 B2 w# c: c) Z. f/ m  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
* X8 Y% c1 a6 M3 x, P/ A% ~}, Open  ]],
; d1 G4 ]& G" i" L$ a3 {( K6 x& m
Cell[CellGroupData[{
9 q! H7 T5 F+ E* C: N" Y- X
Cell[BoxData[
RowBox[{"u7", "=",
  RowBox[{
! i4 [  t( E) L! f   RowBox[{"Exp", "[",
    RowBox[{
     RowBox[{
( {  D4 w8 k% f' }1 k      RowBox[{"-",
       RowBox[{
& k: r5 L0 P  O6 A        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
; t; X* y9 j! t- l0 f. x2 F2 S        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
+ X1 @2 D  t4 x! i+ e1 I/ a: q/ s4 ^     "]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
  3.57792132028125*^9}],
8 E" f+ X- f; y9 ]+ G
Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
' t+ P0 l* a% ~5 _# @$ g# c  RowBox[{"3.141592653589793`", " ",
5 k' n  N5 f8 T* v  U   RowBox[{"(",
    RowBox[{
     RowBox[{"-",
% M' ]0 w: w0 {4 A- L      SuperscriptBox[
0 Y) D6 g9 q/ w  F/ `" D       RowBox[{"(",
        RowBox[{
5 {" {0 y! H' o. a: I+ d  \8 x         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
" y4 B2 f+ G& ?     SuperscriptBox[
6 d+ I$ P+ {& ?9 U3 e      RowBox[{"(",
       RowBox[{
8 h/ L6 d  v9 J! @2 X) V        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
8 x( I5 p: }! w2 h8 E' ?' @     SuperscriptBox[
: z7 f; c2 O3 @! b8 u      RowBox[{"(",
7 x/ u2 N' r, q( z$ Z. M       RowBox[{
        RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
8 I# ]& \" ?6 v       RowBox[{
        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
0 r; A! x" n! `      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
( }% g; D/ o: _' ~  I7 d     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
; h, }& u1 b, P: K     SuperscriptBox[
      RowBox[{"(",
: @7 N8 W' I# a* M3 o       RowBox[{
        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
( q% g# }9 u' P& l2 Z1 i      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
$ [) y; z9 P! G; A! b3 _      RowBox[{"(",
& q' ]* @7 D! N" I" E) f7 E7 A# Z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
$ O; `7 L! X( q- T: s+ E    ")"}]}]]], "Output",
& |, n8 g+ X" m( n# T! z6 w CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
+ m! t$ [. T4 L" U  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
$ ~% X: v8 c. H! l+ h  3.578012251359375*^9}]
4 B  R6 P; ]: d4 b0 S- N' X$ k+ K}, Open  ]],
, G4 f, P; K9 ?9 l4 O6 l% Z& C: r
* C8 \7 C3 r/ x. c2 W/ OCell[CellGroupData[{
6 }; X1 u8 u# N: i
Cell[BoxData[
RowBox[{"C8", "=", "Ca"}]], "Input",
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
& a7 A( v* @6 E  3.577921316125*^9, 3.57792141421875*^9}],
8 Z0 T* {9 P* z* |5 n: t
Cell[BoxData[
1 C. f# o0 T- J8 V1 D5 p5 B RowBox[{"{",
  RowBox[{
: {; j: R! C: \2 {0 {% e, E  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
. K" h9 c8 |5 C- R  "}"}]], "Output",
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
$ Z, I+ q. u3 k' j/ G  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
  3.578012260515625*^9}]
}, Open  ]],

+ {8 U! e6 g2 x; g. KCell[CellGroupData[{
$ |7 R$ ?2 L- Y# h4 ?
Cell[BoxData[
RowBox[{"u8", "=",
: h% ?! r' N% N0 l6 l# {7 o$ ^& e8 K  RowBox[{
& B2 z) j. y, Y  ^# F) c   RowBox[{"Exp", "[",
    RowBox[{
     RowBox[{
# {+ y" a! r) N; B+ V      RowBox[{"-",
       RowBox[{
9 e7 Q1 V% i7 S. T# @$ q        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
) j$ K* U& [& x        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
4 O1 `- ^# q; i& Z1 I! R4 C  3.57792132028125*^9, 3.577921416921875*^9}],
, {" Z+ W. p1 R# r
Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
- Y4 S1 O1 r. M4 K) z: L     RowBox[{"-",
6 w( @- I( ~& J9 K! \      SuperscriptBox[
       RowBox[{"(",
        RowBox[{
         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
4 l8 }7 T! d- l9 W9 V/ D      RowBox[{"(",
' f  x* M, Q; N, M- K       RowBox[{
, R$ z/ X  ^- F  B& m( X, G  H        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
! {* D" B) S$ y      RowBox[{"(",
+ V5 O& {/ P7 ~& U* T0 \# f3 h       RowBox[{
0 }, N& v0 @* o0 l        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
- [) _& [# _7 B     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
' `) k- I  n. K% k) A# J+ O     SuperscriptBox[
7 u( c! O& B0 U      RowBox[{"(",
: c+ h+ X3 y: Q( ?; c1 Q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
9 Q3 H! O6 q6 S% Z0 D3 H% L      RowBox[{"(",
, h) y( u3 H1 v$ Q+ W! a7 \       RowBox[{
8 b8 m, ?9 l. N8 R6 a9 u- A        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
- |- u* N( u% R# F     SuperscriptBox[
" Y% X6 E4 z& q. D; |- N      RowBox[{"(",
, J4 E' i3 l3 R+ S       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
  3.5779608945565863`*^9, 3.57801226165625*^9}]
}, Open  ]],
' T" z$ N% V+ `
. ^+ i- a& r: q1 m8 Y& r: i/ b; v$ xCell[CellGroupData[{
9 J; S/ H4 ^. w. Z; \) o9 c
Cell[BoxData[
! j# B6 f5 L& e RowBox[{"C9", "=", "Ca"}]], "Input",
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
- j' o7 L  R. N6 {' g5 s, [6 G  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],

Cell[BoxData[
8 p, L1 A1 r. A1 h3 X$ m1 ~  U! S RowBox[{"{",
! O  G5 F0 u9 J+ j9 d0 J  RowBox[{
  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
/ ?& r: I7 _, V8 j! w   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
8 |/ I. u7 l% y% e4 P) l  "}"}]], "Output",
& p$ Y- e/ Q  J' ?# r# l CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
  3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
  3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
  3.578012268234375*^9}]
+ R- W4 G6 T3 M6 k% J+ v}, Open  ]],
1 g" ?% m& O  U( `2 _2 T" k' n
! y! N+ m, c5 n* yCell[CellGroupData[{

Cell[BoxData[
RowBox[{"u9", "=",
  RowBox[{
; d- Q7 O' N6 u, ?   RowBox[{"Exp", "[",
    RowBox[{
; p6 I9 D1 J# }/ L4 _4 K2 m     RowBox[{
! W: n( G: }- b+ U* S: f7 @      RowBox[{"-",
2 v8 X* Z) \' p$ }: e       RowBox[{
2 k0 w2 ]# U1 ^, T8 s0 B        RowBox[{"(",
7 K" P4 s3 }4 V         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
% }" _2 j: ]) W* H     "]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
2 V+ j. m( l+ s* ~6 z' b8 C  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],
5 T& a9 L# R+ V* F4 y
Cell[BoxData[
" s  L' f; d, i SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
     RowBox[{"-",
/ u+ B6 Q! W/ k& k" @. s3 G: u! c      SuperscriptBox[
) A, P+ Z+ |' P- I# Q       RowBox[{"(",
        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
6 T) Z2 ~# {9 j6 s     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
3 O' e, g" m$ {/ F+ O% d+ ]* i        RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
) |$ \3 }8 v: Y. b# `      RowBox[{"(",
       RowBox[{
- r4 j/ a; J  @" a& o# Q        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
7 [' \0 m* I" W2 w" a4 C$ L2 l     SuperscriptBox[
4 a: f9 T6 ^/ ~0 Q; s      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
" @3 x9 q5 Q  k8 ?7 P# N( H     SuperscriptBox[
      RowBox[{"(",
" [1 Y5 {0 o( k, a/ L. U       RowBox[{
; u8 @+ ]- ~1 p        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
5 y) z! N" |" ^- s5 j, J2 h     SuperscriptBox[
! }6 K, u# F! o! K: f  X5 w$ i2 \6 ?      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
) P$ T# d4 [4 Q1 F0 z* n9 D       RowBox[{
        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
' y0 L* P' k! I9 y& Q$ }       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
4 e+ O5 O. M4 E: M6 i      RowBox[{"(",
; O0 Y$ F* j% }4 J$ }- H/ u) k9 g       RowBox[{
        RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
1 I) {( m+ B, F+ J0 g+ W    ")"}]}]]], "Output",
4 `3 J+ S+ Z; V  O. D CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
. [! o+ R$ o( ]' I% H2 \  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
1 O3 \+ o% {& |) a  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
# `/ t9 X5 Q3 |& J& ?) k- n  3.577961530421959*^9, 3.578012269125*^9}]
1 d" M, x; c, d}, Open  ]],
2 U8 m* l6 L3 @' w+ c
. w0 s9 }% r8 G& u8 R- H$ UCell[CellGroupData[{
  G" g' j; x( {: z! f* ]
Cell[BoxData[{
) f5 f$ c9 j6 ] RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
RowBox[{"u10", "=",
2 ]. I! @: m6 _6 {- c( w0 t% A6 P7 U  RowBox[{
   RowBox[{"Exp", "[",
    RowBox[{
     RowBox[{
: K% B6 M1 `  I: R      RowBox[{"-",
! `, F* a# a. U       RowBox[{
4 M0 l! }( O: _# J        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
, O& \* P. C: _+ p. B8 M: r4 y2 e7 }         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
/ \& ~! i, f8 X3 {5 w; i) t     "]"}], "/.", "DeltaX"}]}]}], "Input",
% `2 A' [4 z' Y/ G% ]; | CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],

Cell[BoxData[
RowBox[{"{",
5 l* E$ f! b2 L6 I' b' F  b! v  RowBox[{
  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
" R) L/ y% n! I! O2 Y, o1 j" N6 X- x
Cell[BoxData[
! V9 }/ {& Y/ X0 B! p SuperscriptBox["\[ExponentialE]",
3 L8 P9 V2 [( Z, D# G8 z  RowBox[{"3.141592653589793`", " ",
  [6 d' c5 S5 g+ F& Y/ s   RowBox[{"(",
    RowBox[{
7 v  ^( W# s5 o' B+ L     RowBox[{"-",
$ J$ h- l) T6 ~6 X$ g5 w& z      SuperscriptBox[
# R7 P7 h/ {6 t5 W       RowBox[{"(",
( H8 ]6 a- X) w" [' q1 u        RowBox[{
         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
      RowBox[{"(",
6 l6 z) U( N: D: z; g       RowBox[{
( l1 }" l; x: A6 L) Y9 N        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
3 R; _2 o7 g0 u     SuperscriptBox[
& L1 `- c* B' F! O' U8 d      RowBox[{"(",
       RowBox[{
) \/ y1 g3 Z' ^! l/ {3 b$ E        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
8 z! t9 |8 @- g% \      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
0 R5 R; m6 @: P& ^$ a5 j      RowBox[{"(",
+ r, A2 m2 m( x  M& E3 k       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
# Z/ m8 k# S5 n1 d1 U6 j     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
& F5 j  E" J9 {( _; L; B+ B, I; \     SuperscriptBox[
( c( L1 d1 i- v( i# d( M5 A; z      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
8 G1 m1 ?! @" e      RowBox[{"(",
; [9 q: v  k9 f# s       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
, M' x, a) [& T    ")"}]}]]], "Output",
8 g4 M% V( A3 W CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
8 [: b$ O4 H+ Y! E! z RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
8 I% \; b7 W, p1 ?  _2 _- ` RowBox[{"u11", "=",
  RowBox[{
   RowBox[{"Exp", "[",
    RowBox[{
( w/ I1 C1 r- z% C0 J. x0 S     RowBox[{
      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
( I- x# `& Z) ^) C7 f8 I2 h( A         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
. P+ u- B& S7 G1 W& n" a        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
1 h) r- }2 _7 l2 y4 [0 Y1 S& N     "]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
4 z3 K8 g! ^: d, p- \, k  m' Y  3.57796154237158*^9, 3.5779615434011817`*^9}}],
- d% h; ~; Y1 w
- |9 a& v, g% \, yCell[BoxData[
RowBox[{"{",
  RowBox[{
6 N3 M0 {# \6 ~/ n9 {$ ]6 A  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
  "}"}]], "Output",
CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
/ K9 N, R% J; s/ R" I! L* r+ N: f  3.57801228203125*^9}],

( a+ z3 t2 @! Q3 i+ I2 _Cell[BoxData[
& m) T# A& L7 Z- y" \; [ SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
$ Y- B7 P2 U( n  Q   RowBox[{"(",
3 r3 Q: e. @8 P: f+ [4 H9 X    RowBox[{
# o2 I/ U9 v  @     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
3 o: K$ d8 k8 Q8 B        RowBox[{
         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
      RowBox[{"(",
! |/ r- S# p8 j       RowBox[{
        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
3 V: [' D8 t3 q+ ?! i6 I- ]     SuperscriptBox[
      RowBox[{"(",
6 g0 O( V! v3 A' N+ y! H       RowBox[{
        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
. G1 \. d9 ^) E# [3 |* [     SuperscriptBox[
      RowBox[{"(",
- ^- A# `2 G& j       RowBox[{
' |9 n, u4 ]% ~/ l7 I        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
& f. [1 V0 S' }, I# z& K) Q  |0 ?       RowBox[{
        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
5 c3 z8 e8 x# J% G     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
9 f/ a# F" M: n* C7 f3 g# b+ a0 M3 u      RowBox[{"(",
8 W. [) [. ^) W  P! x9 J/ o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
" x) Z% p6 \) Y% v/ p( g! L3 N. c     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
: w6 G. J5 x, y7 x, p      RowBox[{"(",
% p. X" d* P& c6 J' F$ R       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
% M% M- |5 a4 o1 }2 {8 \    ")"}]}]]], "Output",
. K4 ]/ E1 K: y. y CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
- u' G$ A/ t5 r  3.57801228203125*^9}]
5 H5 |& b1 B% z  h% H' g}, Open  ]],
2 P: e6 ?6 c1 l- p3 a' J+ l
Cell[CellGroupData[{
$ ~; ?8 i3 [" \, z- Z% ]
; s/ Q2 z3 `5 e3 mCell[BoxData[{
RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
RowBox[{"u12", "=",
  RowBox[{
   RowBox[{"Exp", "[",
    RowBox[{
     RowBox[{
      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
  3.57796154237158*^9, 3.5779615576284065`*^9}}],
$ ]" @' a2 c4 \% z; C/ \$ ~: N
Cell[BoxData[
+ ?; ^. y7 X; o0 g/ R RowBox[{"{",
  O- ^# @* m+ _3 L, Q  RowBox[{
% S) V0 `" g2 ~: U  "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
5 A1 h9 Q7 E/ A% U* ?  "}"}]], "Output",
CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],
" D, i5 F2 g: Z; t8 w5 M5 w
Cell[BoxData[
+ P+ j( v6 Y8 N# H1 G% u SuperscriptBox["\[ExponentialE]",
0 A/ O2 R2 Q5 R/ Y( L# [9 r  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
+ F; U! B& U, I     RowBox[{"-",
      SuperscriptBox[
8 X$ Q9 W; T' j       RowBox[{"(",
        RowBox[{
         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
# z! M* o* _' S8 c     SuperscriptBox[
      RowBox[{"(",
! Z3 w+ r- p0 H' u7 k       RowBox[{
: B" q1 U0 z; _6 s% S        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
% g/ |" A) c( r; R. O) `( T" }      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
9 K; a3 s2 v' H' r: j+ z; T( ^     SuperscriptBox[
. b% M2 r1 m  y; j7 p8 x) p      RowBox[{"(",
/ C9 h3 `  {" u       RowBox[{
        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
/ `/ t; e$ U( \5 ^% x: F$ O      RowBox[{"(",
1 T  e  J& n1 y  z% g% B       RowBox[{
        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
( i8 L0 R* q# ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
/ s0 K$ q% t# Q' {% N. f4 z      RowBox[{"(",
$ Z2 T5 ?+ H& |0 k1 y# Y3 q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
/ i* B% ]2 t+ s2 _7 D     SuperscriptBox[
      RowBox[{"(",
9 p/ O; {* g' G' e; }3 b" `       RowBox[{
+ M. u1 }( J+ k        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
# t, l; U# l1 u+ c! t     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
6 X/ @, M1 v3 m" S8 X. T% }}, Open  ]],

$ W. Z  @" S9 S& Z2 [  Z. u, A9 R( KCell[CellGroupData[{
; O: i( E: p! i* W0 N
Cell[BoxData[{
: f7 C" j) b/ y+ ^4 A4 N6 e+ U" Z RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
, E1 G3 L) \4 s* t6 {/ D) W RowBox[{"u13", "=",
  RowBox[{
, N" c# p* L8 E& h3 p/ T* l   RowBox[{"Exp", "[",
$ W: w" t* L2 v0 M# {5 }7 U    RowBox[{
     RowBox[{
      RowBox[{"-",
' w" `* B/ r/ n       RowBox[{
        RowBox[{"(",
$ M, C% i  @  N         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
4 Y  I8 V" x6 c, ~) O        RowBox[{"(",
) F$ @4 I' p1 p. d         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]}], "Input",
, G: B% ]6 V  H( B! I9 o) C CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
  3.57796154237158*^9, 3.5779615599684105`*^9}}],
  I& s( E, z- g6 E
7 N7 h/ \0 a+ `+ m% kCell[BoxData[
RowBox[{"{",
  RowBox[{
' ?- u3 y  E, X& d& ~* v  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
  "}"}]], "Output",
CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
) Q# o* }7 |3 `8 n
" i+ ~. \' i& eCell[BoxData[
( p- _' R* \" ?( x/ [& ?. d- ? SuperscriptBox["\[ExponentialE]",
* w7 ~. g2 _6 O* h9 ^  ?* ]% j- `7 L  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{
         RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
; P0 e! e1 [7 U8 D: Q8 I      RowBox[{"(",
       RowBox[{
( |( R9 k. F7 i8 T) \        RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
3 e1 N/ I: }) ]" u1 c     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
( I8 W0 N' C4 H8 M        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
5 e* g5 N0 a0 P     SuperscriptBox[
      RowBox[{"(",
8 q, ^4 L- a, M- Z2 s. e       RowBox[{
        RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
7 R/ [+ @: j7 [$ s7 B1 y" \      RowBox[{"(",
' C9 m' [9 y8 H2 l       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
, X; H) ?* e$ q6 [6 i0 i. P      RowBox[{"(",
       RowBox[{
7 g7 y: M  \# g* ~# ~0 D        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
0 b3 m$ u; ~* `9 ]  d1 x     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
5 ^0 U9 t- G2 W      RowBox[{"(",
! g7 |% d- G$ l/ t; x5 K       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
5 u; X( J/ O/ n( s: {  x    ")"}]}]]], "Output",
+ s' [) U  f) H- v4 ] CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
0 K1 \. K5 K! `4 G; ^! r}, Open  ]],
4 E2 @# k' [( M: [8 J7 Q
" A7 z" B  l) ]. m5 t/ HCell[CellGroupData[{
' Q, D, O% T- b
& c  y5 }- c3 e$ k2 CCell[BoxData[{
RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
RowBox[{"u14", "=",
  RowBox[{
& y4 l% D( r. R0 I) [: m   RowBox[{"Exp", "[",
- a2 T$ n  i6 l9 R" o" U    RowBox[{
     RowBox[{
      RowBox[{"-",
$ }& ?5 P' G- X( r6 U       RowBox[{
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
  J6 ~0 t4 `- |! r2 G     "]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
  3.57796154237158*^9, 3.5779615663176217`*^9}}],
7 Z' _. a6 J  i4 l) j& o
) @* G" \( F' x% W$ h, dCell[BoxData[
RowBox[{"{",
1 W/ z& U' D- }  RowBox[{
; W8 Y8 Z* S: o7 b  o& \  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
: _  D# _' I3 t% P+ e/ s/ p   "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
  "}"}]], "Output",
) O* i( c  A0 r' L. r5 b/ ^ CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],

Cell[BoxData[
7 ~! u; }/ o0 r' y) S' U SuperscriptBox["\[ExponentialE]",
2 X; {0 J. F& D  ]3 ~0 s, j  RowBox[{"3.141592653589793`", " ",
1 T0 m+ `. _% c( b( U- F1 L   RowBox[{"(",
' D8 [- h) a1 K; g. }! x& x4 t0 Q    RowBox[{
     RowBox[{"-",
% u) O' h7 j- G+ u  \, q. X      SuperscriptBox[
       RowBox[{"(",
        RowBox[{
9 Z5 _0 a4 d% O+ y( x         RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
. H5 X. `" v. c/ f; h! S     SuperscriptBox[
6 W' X  ^2 C; p3 E      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
  @* Z( F" I% U7 |4 Z! c$ a1 ?- g       RowBox[{
; E6 E9 N5 Z" i# y        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
" z! s6 F2 U: h3 \- f- A     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
& E' s, m. i' \4 w     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
' s' e  X0 D( p# b/ \     SuperscriptBox[
. W+ w5 }4 K! \; W: t: |$ H      RowBox[{"(",
& P$ T4 m2 B1 r, ^# B  B5 |       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
: R8 e. e8 T8 W! z+ }5 B3 L: s     SuperscriptBox[
0 Z( M& [8 b; P; Y      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
2 p) i4 _( D+ K}, Open  ]],

Cell[CellGroupData[{

4 [8 r' g* S( x1 u$ ]Cell[BoxData[{
, ^1 O) g8 H' ^& h RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
RowBox[{"u15", "=",
  RowBox[{
6 K$ C4 B' X$ s+ e   RowBox[{"Exp", "[",
    RowBox[{
: u) Y$ l: R* o* h2 [' B     RowBox[{
1 W6 Z, T9 L$ \( N7 T1 I; j- B      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
# J& O1 i% A% A% j( R         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
5 a" _5 h: }- Z" d! {         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
# g( D/ `: H) q, z$ Y     "]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
5 D- e: l9 M- H  3.57796154237158*^9, 3.57796157098203*^9}}],

5 n; L3 D* I0 F: H6 z: D( l# K  m& XCell[BoxData[
+ B1 \* ?& [$ n( k# z RowBox[{"{",
  RowBox[{
+ L6 P8 O# a2 x7 g' G& }  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
0 Z! n* O0 @5 U0 L, }  "}"}]], "Output",
( [: ?/ G# c! Z( } CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],

Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
! D" `) ^# Z( _) {' X  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
2 J  g1 {* _: z+ ?+ n     RowBox[{"-",
: r9 R' v: ?% C- V! p      SuperscriptBox[
       RowBox[{"(",
( B  @" r6 i" v. P+ k/ {0 G        RowBox[{
$ @2 ^5 b' q$ o% s5 z( I$ a         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
' C% B5 X5 `2 a: v& J( a  n5 {: ~     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
5 [( T$ W1 ~' b  ?. Y0 W        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
, n- L$ w4 w" M1 K( A       RowBox[{
        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
  E) S$ v  N& o: ?      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
4 m# z9 C" `: G+ }- x, w     SuperscriptBox[
      RowBox[{"(",
: l# a; a( l! u7 ]0 f       RowBox[{
/ b9 \/ C& U, e        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
; |; ?* @/ }! d2 g+ ?      RowBox[{"(",
  }' e. }! r' e) N; v( V       RowBox[{
& P: P7 c- b1 X9 z        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
1 d  H4 M0 w& r' E! v9 |* x' k     SuperscriptBox[
8 i; U. w' u* Y' i8 {1 @      RowBox[{"(",
/ A5 D1 m- r( X0 a; e       RowBox[{
        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
3 i; ~; A+ C# @3 r; z1 b      RowBox[{"(",
) f+ N! C# e% o% [5 o+ ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
  W, ?  j, A' F      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
* {) H* G5 T$ ^$ J CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
' D0 V: ]$ e1 E# B) x. N) ?}, Open  ]],

Cell[BoxData[
) h& E5 s+ p6 F0 B0 Q. W RowBox[{"For", "[",
) J* Y) e3 F5 c! R% w# G  RowBox[{
   RowBox[{"i", "=", "1"}], ",",
% ^0 h$ y% G! U% M1 N   RowBox[{"i", "\[LessEqual]", "9"}], ",",
0 i9 }3 I6 B; A2 m6 H+ r) a   RowBox[{"i", "++"}], ",",
   RowBox[{
/ S9 N8 v, x$ h4 B- E+ X9 x% ?, H( g% J    RowBox[{"Ca", "[",
& C& g4 b  L! r: h6 q& K1 `     RowBox[{"[", "i", "]"}], "]"}], "=",
0 x$ [+ J# S8 T! s    RowBox[{"CM", "[",
     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
5 E7 a- h8 ~# s RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
+ D, P" T, @9 n) D4 Q! [& ~ RowBox[{"u16", "=",
  RowBox[{
* n, I+ Q: F6 B# L   RowBox[{"Exp", "[",
    RowBox[{
     RowBox[{
      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
2 e& H6 [* w$ X/ e, e0 p( {/ h: Z         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
& ^; @: ?- W! C' `     "]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
, @3 D& g* M% K% q9 K- f7 C" R. r  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
( R5 A, h1 r1 W( w6 g  3.5779615751004367`*^9}}],
9 ?+ z* J5 H* t
Cell[BoxData[
2 g& N+ S5 k, q% x1 |8 E5 ^. ^% s; } RowBox[{"{",
& m+ \, F1 h$ g8 x( f6 T( X: I% i  RowBox[{
4 c6 S# A& P) z: p# F/ Z! ~" k7 \  "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
$ g; {" H. p( u9 M! v. g# u  "}"}]], "Output",
5 d7 t1 G- m* p1 D1 ?7 M% d CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],

Cell[BoxData[
  M! F8 [. B# X$ u% s4 `5 r; K SuperscriptBox["\[ExponentialE]",
) s+ T3 O4 u% E! X5 V1 u  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
2 L& a! b# y# d( B+ l( u+ S    RowBox[{
6 G8 a, x- @+ h* a5 l/ ]- J7 v     RowBox[{"-",
3 O3 |( O, @, N4 ~" ?2 d      SuperscriptBox[
       RowBox[{"(",
3 B6 k" r5 q2 g        RowBox[{
4 Y9 E+ y) W& B4 c& G/ s         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
) W+ C8 ^8 T9 Z+ L        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
6 [3 a4 ]3 M" k9 B2 u+ R2 r      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
9 e$ E! W: I2 e7 c3 ^. z     SuperscriptBox[
2 t* h7 p* v* I7 O, |. O      RowBox[{"(",
; U- c* F* Z$ W! x2 M- H       RowBox[{
0 \7 b( l- E* Z# a        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
( U$ q( A$ Q9 r  x        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
1 _4 k5 M$ A: \- s/ G1 J      RowBox[{"(",
* |2 [, X" E& `- w       RowBox[{
; E& S) M+ ]- A+ P; r& R' k        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
# y/ ~! |! A$ A/ m7 _     SuperscriptBox[
/ z9 K3 F! U% B. [7 k      RowBox[{"(",
8 U  |# \$ U9 I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
9 l1 J* A$ W: j% N      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
, ~! A1 d. G6 N+ J CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
# P7 B% R, \4 {# j+ p) k8 d}, Open  ]],

  x/ I6 _  m2 ]; `Cell[CellGroupData[{
1 u' [5 c3 y( ~$ F/ J4 t
Cell[BoxData[{
RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]",
! r+ Z2 @6 H% W RowBox[{"u17", "=",
& i' u" ]" n+ K6 e( y  RowBox[{
   RowBox[{"Exp", "[",
0 s; A- J8 W# n" ^) g    RowBox[{
     RowBox[{
! q) {* M* l" n) b      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
. v5 c9 k, a! W6 {     "]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
  3.577961578953644*^9}}],
1 K" t1 e; H! }7 Z- A
. b/ G8 ^+ D6 UCell[BoxData[
; r/ h8 i' e# [ RowBox[{"{",
  RowBox[{
7 k, e( [- M$ Z/ D3 K! K: K  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
  "}"}]], "Output",
, x6 }4 V# z3 {; y5 P  B* d CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],

Cell[BoxData[
! Y4 r4 C& E& u9 x SuperscriptBox["\[ExponentialE]",
+ a2 L' Y8 p+ i. [2 J) [, x, q; @  RowBox[{"3.141592653589793`", " ",
6 W, A- w6 l9 I$ e   RowBox[{"(",
( W5 a2 G% f( u  D! M    RowBox[{
2 o+ d1 P- U: I  k0 e  F% B; x) h     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
5 _) C# ]# p  g        RowBox[{
, m0 c( O/ ]0 E6 k4 ^/ ~         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
1 M' [3 I3 w+ t5 o1 I5 ?% M     SuperscriptBox[
      RowBox[{"(",
/ i& ^# J! Y0 H( @1 |- O3 Q       RowBox[{
        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
( Q0 ]6 D- Z/ ?  t$ W     SuperscriptBox[
' M& i7 r: H# r) S      RowBox[{"(",
       RowBox[{
& i6 @  Q6 Z# G9 d/ L' H        RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
, r7 m: _; S- T; Z      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
7 Q- S4 M' k% R. y* R& v- u     SuperscriptBox[
# E  e- O( s- d( I      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
$ w1 N; C  {0 H' k9 N     SuperscriptBox[
      RowBox[{"(",
7 M# \4 L$ y2 w; t% N8 ?1 V/ D       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
% i. s# H2 G3 t7 `: x2 [7 r! P* D     SuperscriptBox[
      RowBox[{"(",
8 w( z3 h& m5 s. c/ ~' _) r       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
' q0 k4 u# j7 U/ Y9 P        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
8 r1 ^: {+ m( Z  }  n, z- |' X    ")"}]}]]], "Output",
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
1 w: c: e6 q( n- o}, Open  ]],

" i$ Y* d, P$ Q+ P* D% G! c- m( ^Cell[CellGroupData[{
; ]9 n" p- ]' [9 y) X7 O
Cell[BoxData[{
RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",
$ _, Y  f- s. s9 v. N! U8 ^9 } RowBox[{"u18", "=",
  RowBox[{
   RowBox[{"Exp", "[",
    RowBox[{
5 J9 C; q' a6 z- q7 D     RowBox[{
) c  \. ]2 i" F/ o5 |# A      RowBox[{"-",
' `- T& y, [1 V  d+ x       RowBox[{
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
2 ?" ?9 N' d5 K4 K) O     "]"}], "/.", "DeltaX"}]}]}], "Input",
& ?5 ]& \6 [! S+ s0 e& g CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
' D* `" E0 o% Q2 @0 t2 K  3.5779615828848505`*^9}}],

, l8 C) W+ z, W3 C" ]4 G$ oCell[BoxData[
RowBox[{"{",
  RowBox[{
  "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
  "}"}]], "Output",
, ~- x+ ]1 }( M CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
4 A2 ^6 I: b! {/ o" N2 R; ]
! b( W6 n, V9 Y  \+ \Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
; P  R# Q! E. P/ V    RowBox[{
     RowBox[{"-",
      SuperscriptBox[
/ C" I3 M5 T# N       RowBox[{"(",
        RowBox[{
         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
6 u3 B7 W. f) o6 M     SuperscriptBox[
      RowBox[{"(",
9 N3 y" X/ J* r$ V3 l       RowBox[{
        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
+ U7 Q! H: B* U" N7 g, P# T     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
& b2 \: ?  X6 r" u8 {0 l        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
" q, p1 S9 ]% \% c, x  |9 P+ S# `      RowBox[{"(",
* q; [2 p8 ]7 V$ t5 p3 Q! a" Q       RowBox[{
        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
7 q1 V0 y4 s! O; y5 E+ ]- g6 h7 S      RowBox[{"(",
* [. F/ S: ^  W       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
$ w* z% i% _# }, [( r     SuperscriptBox[
, Q+ W5 k4 `) C/ e! I- ~; v- M      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
: ]+ y  f5 d% o  V# b    ")"}]}]]], "Output",
CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
}, Open  ]],
- ^$ p, p; g( P, t# J. R- c+ {
1 B& g5 ^5 h8 Z0 L" X$ l+ tCell[CellGroupData[{
. n7 o3 g. z; }" N* J. ^, @* c
Cell[BoxData[{
RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
RowBox[{"u19", "=",
3 q1 X5 x) O7 t  RowBox[{
   RowBox[{"Exp", "[",
" k: z; a8 @4 f8 D  R; }) u+ X2 q    RowBox[{
0 V7 j! o+ p1 `8 U     RowBox[{
) x1 f* p* o$ y& e: ^8 u3 {      RowBox[{"-",
% m( W4 j1 \3 }( G) I5 u       RowBox[{
; Q6 o, v# |3 q- R- K        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]}], "Input",
  h& }+ f' j: A; w' K! f, w CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9,
3 \% ~) P2 Z6 n" N  3.577961588890861*^9}}],
) v+ H0 i2 k& Q! X1 @' H6 u
Cell[BoxData[
RowBox[{"{",
  RowBox[{
: I+ q9 M$ U0 ?+ }0 q3 n  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
# i* x  V7 ^; J( ^6 Z   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
  "}"}]], "Output",
6 P5 r& w2 J( ]9 I4 k* V CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
% a# c$ A7 E) c. p+ h+ e
Cell[BoxData[
" ^1 u. H$ f1 L. U: X9 K SuperscriptBox["\[ExponentialE]",
& |$ l$ ]. Z* i: V+ A/ ]* n* d0 C  RowBox[{"3.141592653589793`", " ",
4 \1 z( q0 n; \0 ?   RowBox[{"(",
    RowBox[{
     RowBox[{"-",
+ ~: w" o" w  n  O. o- Y      SuperscriptBox[
* n$ |2 M/ `6 ~: v       RowBox[{"(",
! T/ j/ G. Y$ t8 G; J& A8 ^        RowBox[{
! V8 e. ]0 }$ I; J5 z$ X         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
: v* n4 I( m* t4 d% I+ v      RowBox[{"(",
       RowBox[{
: k2 q  u0 S6 V. a6 o# `; K        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
3 s- m4 C# M6 B. |& Y& A* J      RowBox[{"(",
       RowBox[{
! b4 U: a2 R1 m: i        RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
) A' |$ j* W  I  v+ N+ I9 |+ g$ a      RowBox[{"(",
; f# h5 s9 P+ E9 N0 C5 ~0 X8 e       RowBox[{
        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
" i0 H& l" P, h8 O! p; P4 L* Q      RowBox[{"(",
& j. w  u8 s7 D7 X; i       RowBox[{
        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
9 d% M, k8 Q8 n9 T$ ~7 O( w4 q+ P     SuperscriptBox[
7 m. U" v/ m$ B, F- `      RowBox[{"(",
' F/ e  k- ^) M. T0 z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
8 c7 n7 g3 v$ a2 {4 O4 g      RowBox[{"(",
7 J5 `2 a. X- {& b( x( H       RowBox[{
" y3 z; t( n; Q0 L: v        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
6 C9 R! u, N& \     SuperscriptBox[
      RowBox[{"(",
; |# I# S) v& s. P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
5 b1 d& q/ S  Q' |9 Y: K- Y    ")"}]}]]], "Output",
CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
}, Open  ]],
% u; ?. A4 X) w( ^/ b8 h1 G
: ]4 p8 @' h% }7 ~Cell[CellGroupData[{

* r4 Q: v, f, ^2 I9 N# L' g/ nCell[BoxData[{
7 x+ I& C4 A/ e( g+ J! u. k RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",
  V0 j  v# Z( F* d RowBox[{"u20", "=",
3 q9 A0 S. \7 F- p  RowBox[{
   RowBox[{"Exp", "[",
% d" @$ [3 F8 u    RowBox[{
; v- F" x! w  t2 |1 e     RowBox[{
2 y9 s" _8 {. i9 _, I' h      RowBox[{"-",
       RowBox[{
' E  ?$ x" u( g        RowBox[{"(",
# j& D( X# ?& a. q7 J% z# R6 h% T3 h         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
1 }( K  A, d) l6 n( }3 o* f         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]}], "Input",
3 Y0 c, h8 |$ R; {4 g* n CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
; _: T, `, F+ u1 M2 q! }  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
  Y# j$ ^# D/ _9 E( [( ]  3.57796159382047*^9}}],

Cell[BoxData[
# a" E* Q# {% h  Z/ m  K RowBox[{"{",
  RowBox[{
1 Y6 n! k0 ]0 I1 D: Z  S  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
$ d. U' q" X  e7 B& U4 j" b   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
7 s9 ~5 k3 d9 q  "}"}]], "Output",
CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
- P/ E3 i3 T  N" g! p
) k3 q2 Z5 Q# _+ l1 \) GCell[BoxData[
: i: ~3 r4 G7 ~3 f; G# B, X; u SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
2 X) t2 a- w* q6 _  q    RowBox[{
     RowBox[{"-",
      SuperscriptBox[
1 k6 M6 W7 k! F# L; O  A7 D* o       RowBox[{"(",
) F2 b- f) L3 T! x        RowBox[{
         RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
( S2 a3 w! H% E6 y1 ^- A     SuperscriptBox[
$ o" U3 s6 c- N      RowBox[{"(",
! P6 c  R5 q/ g1 J$ B       RowBox[{
0 i; ^- e# l/ D        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
2 L7 M$ [% K, ?9 A8 }5 R. r       RowBox[{
        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
9 J) n: q# W8 j+ p7 i$ \      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
* J% J1 V4 y! j. e+ G6 e9 t     SuperscriptBox[
      RowBox[{"(",
6 h4 ]* L- l+ n. M: r4 F! f       RowBox[{
        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
3 E! Z. l8 P+ }% L- x     SuperscriptBox[
      RowBox[{"(",
4 M  r! P6 `: S+ _6 O# Q" ]       RowBox[{
        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
/ F, a! G  P7 n1 B7 Y4 g" T$ n     SuperscriptBox[
      RowBox[{"(",
$ ]0 `& f  Q' n       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
! C" m1 r) |$ v' c0 m     SuperscriptBox[
# m# D" j5 b: `# e% Y6 i      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
7 ~$ ]1 _2 q9 C- o% w* V     SuperscriptBox[
( l) C. V3 g; Y0 |      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]
}, Open  ]],
6 Y1 ^* l  G. ]: j; B! J* t: p
Cell[CellGroupData[{
/ r6 @6 ~: M8 [& ?0 b7 Z7 }1 |
Cell[BoxData[{
RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
* F1 R- G; e3 r& U6 s; W+ I RowBox[{"u21", "=",
  RowBox[{
: T4 G: S1 v8 z9 B   RowBox[{"Exp", "[",
5 b. p' }- |/ t0 }    RowBox[{
+ x; G+ h+ w2 Q: s     RowBox[{
* V/ r2 x4 c; ^0 u      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
3 Z3 {: ]# S) H3 l4 w3 x0 K( B     "]"}], "/.", "DeltaX"}]}]}], "Input",
  a0 g3 w; o, Y4 | CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
  3.5779615991556787`*^9}}],

; L) \6 }  ?9 G) ]1 w7 M6 V& mCell[BoxData[
8 a+ {0 V! w( m, M2 i, q" E RowBox[{"{",
, A1 X% I& W( S  RowBox[{
4 F6 Z$ x3 m, k% ?& ^9 u; |- T% [  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
; W0 [" n3 B% ~( V, j0 {; z& b2 r' N   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
4 O" a$ p2 q' g, f$ t/ W  "}"}]], "Output",
CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
1 x5 X. {: R/ Z7 D$ c: y& ^9 l4 W! v
1 t: J! y: r7 Y* C4 QCell[BoxData[
% q) R4 E$ o$ B4 e2 h SuperscriptBox["\[ExponentialE]",
: v+ e# ~9 d/ Q5 \* C% h  RowBox[{"3.141592653589793`", " ",
' \5 T. s( K9 V7 l5 q! `) s   RowBox[{"(",
    RowBox[{
     RowBox[{"-",
# N3 B+ b' a$ _      SuperscriptBox[
       RowBox[{"(",
        RowBox[{
. w- `, ?: T& \) O! K         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
5 i/ i  m! S3 T      RowBox[{"(",
       RowBox[{
% k* R6 [7 N0 {& a        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
: T& `4 I6 m% E  w7 b        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
: g* Q0 Z8 \+ b$ K" l: H' a% c2 d     SuperscriptBox[
' k+ R& q- Y( ]; D4 q6 |6 r$ \      RowBox[{"(",
       RowBox[{
' ~4 ]0 p$ j7 f$ N3 z6 H* g0 l3 r        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
! W5 ~& Q+ E. E: [( D     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
- y4 ?6 e/ l' i" L; g; @        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
3 `+ N* R+ m5 b# g( i+ v# i% R      RowBox[{"(",
: N2 r2 g$ Q" a       RowBox[{
% Q! p' y( m, z. \5 S        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
! J7 l9 M2 R+ P9 _        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
6 n! _: \; Q+ j6 M       RowBox[{
" M1 C7 p4 N2 o3 p( |: ^" C6 D        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
0 e7 H  P! d3 u3 i9 Z$ Z    ")"}]}]]], "Output",
CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]
! G2 Q+ q" O8 v* e+ T}, Open  ]],

7 T* M* C0 W& e  O, A8 BCell[BoxData["\:62df\:5408wi"], "Input",
CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
  S6 G* O/ j2 H. @4 q7 [
Cell[CellGroupData[{
0 ^! o/ [# C2 X' s! O) J# N
0 G+ b" S3 j) Y: hCell[BoxData[
RowBox[{"y1a", "=",
  RowBox[{"Table", "[",
) F6 m& a$ ~* d0 C8 ^( j0 G   RowBox[{"x", ",",
    RowBox[{"{",
     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
  3.5779226649375*^9, 3.5779226810625*^9}}],

Cell[BoxData[
RowBox[{"{",
  RowBox[{
$ p/ x' Q3 a0 Q  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& _% N+ n% x) b   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
7 v; [  Q& F9 b* ~0 n# n+ Y    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
! T. _# L6 G6 b+ @   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
2 a. u" L3 K% B: K" d   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
. k" W) ]6 C4 W   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
, i8 E7 s$ o% E   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
8 F8 F" `) r  D$ W8 f+ a" h   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
  "}"}]], "Output",
8 B/ J/ P4 T* \ CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
}, Open  ]],

$ D' `2 I" B8 f$ e2 q5 w/ z3 ?  O5 uCell[CellGroupData[{
" |' ?+ x8 v3 z5 _( v& p0 p
Cell[BoxData[
8 P% a9 U+ \0 v, I% f RowBox[{"Data", "[",
6 L9 s; ]* H8 m  RowBox[{"[",
3 d: [  |( h' S4 ?   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
; u3 [2 `6 A* M! ^2 q# [( i CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
3 {& p% j5 {' Q' c- I$ U4 C4 p( f% l+ ^   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
: I- P( V4 J4 g
Cell[BoxData["0.899882`"], "Output",
CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
- A5 o4 g% z! c2 {& G& t3 w1 \   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
   3.577961929080654*^9, 3.5780123419375*^9}]
: C: w; x- [& h) M2 ?* ]}, Open  ]],
& t8 L8 g& f" R: k
: G0 f- Z) t! y% P) o, u0 u4 U1 Q) ?Cell[BoxData[
RowBox[{"For", "[",
0 x1 P) G7 f: R: w( [. e, O4 ^7 G* y9 R  RowBox[{
   RowBox[{"i", "=", "1"}], ",",
   RowBox[{"i", "\[LessEqual]", "60"}], ",",
   RowBox[{"i", "++"}], ",",
   RowBox[{
    RowBox[{"y1a", "[",
     RowBox[{"[", "i", "]"}], "]"}], "=",
* o0 a# r9 [$ q* k& z" x% l2 x    RowBox[{"Data", "[",
     RowBox[{"[",
      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
0 W) J& ~! v& t$ K4 X3 G6 ?9 N   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
   3.577922923203125*^9}, 3.5779588839702806`*^9}],

Cell[CellGroupData[{
( ~; r5 R! c; t- {& f- J  K
1 u9 h+ J3 k$ rCell[BoxData["y1a"], "Input",
CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],

Cell[BoxData[
- u7 l$ b0 q! B( K$ s" H3 a RowBox[{"{",
  RowBox[{
6 }. ?6 Z& P9 A  "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
% w% E1 U; z7 m+ p4 d   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",",
   "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
; {+ B- _) z. y- R$ k   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
2 g" K% l4 S4 P, R% A   "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
   "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",
   "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
; l7 h( z( W* P   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
8 g" n2 `# I( s6 F* L( e3 O   "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",",
   "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
( H9 b- w! i, u# F   "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
( ?- c$ t5 X3 _# w" W- p8 K. e$ N   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
1 A7 n5 r) p9 F5 a) b& V   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
( X% y% e) f5 d* y: v- j   "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}],
  "}"}]], "Output",
CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
) `9 q0 F3 U5 B. N+ i) c  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
0 v+ l2 P: a, |' I8 \7 {}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
RowBox[{"m60n21", "=",
/ v9 {; f* `" p  F% d" \& A4 S  RowBox[{"Table", "[",
" t( B: B& K9 V9 w' v$ C   RowBox[{
- H" _) @2 {8 X    RowBox[{"Table", "[",
     RowBox[{"y", ",",
" V8 k9 N6 }% a, b, g      RowBox[{"{",
       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
    RowBox[{"{",
     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
. x# Y  Q2 J. W1 p( r8 u CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
# ?# u) N0 N" A1 b9 c  3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,
  3.5779619706547265`*^9}}],
3 G9 c+ _" F1 o7 s' W; o
Cell[BoxData[
RowBox[{"{",
  RowBox[{
   RowBox[{"{",
7 w4 S6 t- ^" g, A3 B    RowBox[{
6 h4 R' I! ^- y6 m* F' t    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 W1 K9 l# U6 S      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
  |9 Q9 [5 T6 L6 n' n2 U; V     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
   RowBox[{"{",
8 p! w0 I! d4 }% @* y9 w  n) E    RowBox[{
: m  \0 ?7 Y) P    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' {3 T0 }5 {8 V& o/ C3 w9 Y8 H      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
" [3 }. h: R3 L4 x5 ?     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
! Y& }) v+ f% P- j, ~! q0 r     "}"}], ",",
   RowBox[{"{",
4 m- ]" g+ p$ `. S0 v    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 N7 I" r# }1 a: B8 i# C% c     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& O/ t6 v6 O$ S; T& O) m2 ^     "}"}], ",",
& E: L$ u# Q1 n+ I0 @- l( N+ X9 D   RowBox[{"{",
* F6 R! G- ~" `0 l; c) K6 i+ B4 R6 T    RowBox[{
5 G9 K' q2 m9 c    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! ^  i; n6 e3 I. ~6 f, y: W7 _) U      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 I$ |7 W; o7 r* e% U+ h" N% G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# a! y5 w6 `, D% S     "}"}], ",",
3 ~7 E! y8 I1 U3 E1 l   RowBox[{"{",
    RowBox[{
- A1 H* x- p) ~* q    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- f) @2 a' q1 c: M     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
% I1 `' F3 \& M( p! q   RowBox[{"{",
% |$ @7 P; Z, f  z) I2 A; N    RowBox[{
5 a: U$ V6 r) U- C5 n4 v    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ o0 h$ T( m+ Q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ Q; M+ T9 b9 Q; B     "}"}], ",",
% E2 V* v0 C: x6 r! q+ w9 L* r   RowBox[{"{",
    RowBox[{
: t% V( b- \: k0 T/ c    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
1 K$ o! |% `7 H7 W: m1 N2 F6 w      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 b/ ~' j. D: H     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
5 w0 }! f0 s# k! x1 u9 l; W     "}"}], ",",
" S1 {! u' |. |   RowBox[{"{",
. U2 t7 s( A" Z; l! x    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
; V( \4 P# S, B7 q4 r8 c     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
( i  u5 n1 r6 x& V2 J7 n+ a7 `2 N: H   RowBox[{"{",
  R+ O# V, R+ j! S! J    RowBox[{
  M& [  j* }% {1 u: v) T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 `! Q/ K' l) {+ R$ j  z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
! |' j' P; ~' W9 P* V     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
& I9 q/ o1 K, C- _' G$ l8 j5 a   RowBox[{"{",
% z: ]5 d, O3 E. K# y( N! w    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; r: r) m  f8 X& D2 Y  V# W* _/ V     "}"}], ",",
" U$ S+ P& d" Z   RowBox[{"{",
/ D; ^5 @! q  c: b& ]# q    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: T* C. c5 l1 W2 F      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
+ \4 C! `! ^- y$ w4 X8 s   RowBox[{"{",
    RowBox[{
" [4 Y/ E, E; E2 L7 k9 _  w    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 q1 c1 G6 }# L& E% A& q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 u0 }( W, \5 V5 Z' l2 }/ A5 `. V     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 d! p( O0 ]6 Z( a' a     "}"}], ",",
   RowBox[{"{",
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
# r5 u! `0 e. K. U* J$ ?7 S     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ d& G; F; v5 @. M; r     "}"}], ",",
7 J* {2 C: E6 b1 S' f- T   RowBox[{"{",
7 B6 q) P  l( P* z, m    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
1 |: D; H. h3 H; d' O( X      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
5 V5 g, |/ g. h8 p3 M5 n. |     "}"}], ",",
7 l$ J& Q/ ^% `: o   RowBox[{"{",
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
; c9 Z. b7 P4 j* U     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) x( s: @6 R+ t, V     "}"}], ",",
7 v$ V6 }8 L" T! }0 p2 s   RowBox[{"{",
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& x! q  D) P* F, `6 l      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: a' R: Q/ Z+ U$ P; R     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
   RowBox[{"{",
. ~2 [2 X0 ~& q! j5 }    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) ?- x2 S. E. T1 o! s; y6 A) [  t      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ M7 k7 d5 z3 I, @0 o/ e6 [$ g0 m     "}"}], ",",
4 J  L' S3 J2 ?9 m   RowBox[{"{",
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- l& v: e7 y$ q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
   RowBox[{"{",
3 ~- \/ k# A9 v, b' q2 k: w    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ D8 i+ O& R+ @+ x* v6 o      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; X& l4 w5 m  v* t+ Q! x+ P1 Y     "}"}], ",",
   RowBox[{"{",
. w9 M" U- s$ g) Y$ g; \: ?    RowBox[{
2 ~1 `- v# j! L6 N9 A    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 a( ~5 X3 k- \% s% I4 x7 ?: j9 ~     "}"}], ",",
   RowBox[{"{",
* Z' v& o, b1 e' U9 ~) h$ J    RowBox[{
& W: G; z) u. U/ V- k. Z: g    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
# |, i4 e+ T! W* Z* x4 h     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ f8 {  F" `# o+ A$ @# p, t     "}"}], ",",
   RowBox[{"{",
' I9 r; k; j$ Y    RowBox[{
, r' u4 u9 k. |& M2 N    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ ?' v1 t1 U( ^. `8 k- ]      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 X/ F2 l+ T, C) I! }9 P" {, S     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: o& E9 r( w, M  S7 k5 Z     "}"}], ",",
   RowBox[{"{",
    RowBox[{
4 p' [+ T3 A! p    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
   RowBox[{"{",
    RowBox[{
% B9 s" A: @$ J    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: n. t. {3 I" g9 D  O3 T$ Y      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
) l0 ]% y  G) I! l; _     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
0 p3 A0 N9 E' ?; `: |# Z0 O9 V& C     "}"}], ",",
   RowBox[{"{",
    RowBox[{
" w7 W* k4 H, v+ k% _    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
8 h2 \" b* N" q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 u7 I4 V2 i) N' k     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
   RowBox[{"{",
    RowBox[{
2 U* T8 w$ s: e8 p    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 X& t& l' {% J      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 i5 j$ [, k, t$ r0 U0 Z6 ~     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
( x& q. l3 {. @  a& o     "}"}], ",",
# e$ K/ @* h' s( ^7 _' J- |/ x7 |   RowBox[{"{",
& [9 Z* U) M  d5 Y    RowBox[{
: Q6 \! @  l4 X5 P% V9 ?    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- l' L7 G% M$ I     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 s) {0 T! j8 h" A) h/ D; U5 L     "}"}], ",",
   RowBox[{"{",
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ X' h$ d" G9 U2 `      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
   RowBox[{"{",
    RowBox[{
4 F* E" M" N0 u8 {3 O! X2 [    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 c4 p; h# i, A  Z$ B, L      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% w2 Q* w2 p4 n4 T/ \: r2 X     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
9 ^5 u, o& K5 K  J, I# Y   RowBox[{"{",
    RowBox[{
: R) y6 h; Z, ~    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
7 R; U( U& b! [9 G      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; p2 |, b. k- ~8 j     "}"}], ",",
& f; f3 t. s6 H, ~9 _8 o, b, k# a   RowBox[{"{",
* F, @* F' m: t. i& i  C    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, `1 h" r5 j* @" L: B& E      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 i8 E. \* C7 [     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: J/ K! L$ @' O# X1 v( Y+ P     "}"}], ",",
   RowBox[{"{",
  V9 M$ z% P  f  H    RowBox[{
$ R2 W  @8 N9 d    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
$ U3 F; a4 V; P3 m/ I1 `. m     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# o" h; q" |) |0 I: S     "}"}], ",",
   RowBox[{"{",
7 L9 b! y, v$ x7 I+ x% g; h  m    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# u2 @3 Y6 a3 @, S     "}"}], ",",
   RowBox[{"{",
    RowBox[{
( S) m: s7 v& Y) ]+ O* T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' B5 H3 X; A1 T5 U4 q# Z% r# l     "}"}], ",",
; h, E, V5 l3 O   RowBox[{"{",
3 ~( A5 \3 k! ~$ L8 n: U, t    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
6 h5 I5 e3 ^; j- T- ^   RowBox[{"{",
    RowBox[{
1 P+ E" g$ J6 h    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 z+ X2 E5 ?, k$ u: ?3 ^0 g      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
; C( n  [7 r! r6 d     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
   RowBox[{"{",
  E. K( t8 O3 P3 H" G    RowBox[{
' F2 ~% L6 _5 N( b! y$ B    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- u. L) a! }) Y$ P3 r% w      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 a* l- d* q/ B8 V% A4 v0 v     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
) W7 ^+ ^1 c0 }) P9 q$ V   RowBox[{"{",
    RowBox[{
# i9 @  M9 D2 q; Y  s4 T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 J/ c  i8 n$ j6 T: J1 g      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
- C' `# l$ ^, }. o& t   RowBox[{"{",
* a& J6 U$ R6 R: n    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; x5 }/ o. F% F1 J      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
7 m- _, D9 ?5 E7 \7 N     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) \  o3 _/ j# s! b     "}"}], ",",
   RowBox[{"{",
, n6 b: n7 G% P+ @% Y4 |    RowBox[{
+ e+ {# E3 W7 _) u) i    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. |% h& M* \: N- M* O! s% C, V     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
   RowBox[{"{",
6 {' |: T) l4 Z" \' }2 u2 P" x, N    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 K, U6 ^+ T* X3 a      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
4 l0 K$ U0 B7 i) M$ f) S6 M: [     "}"}], ",",
0 S8 K& T1 F- ^7 l) \   RowBox[{"{",
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 l2 j1 Y5 N+ n/ L0 w  I     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
   RowBox[{"{",
( F, U( a; F/ `/ J    RowBox[{
2 ~/ [7 S' `8 `0 F    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
$ g" m" z9 x$ Y8 `2 @     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
   RowBox[{"{",
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
8 C! H8 s5 O# m, Z; B: ]      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 D9 L! ~  h  R% ?     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
1 d& e4 \* t5 \8 j0 x7 M  {     "}"}], ",",
   RowBox[{"{",
    RowBox[{
7 W. ^( J# r& I+ G    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
+ G8 r8 w3 |5 u* E- A( Z. C! T: q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
   RowBox[{"{",
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" q- B0 Z/ w0 T/ d      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
( U& o4 R8 M/ U     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
% d7 G1 W8 J. u# d  L9 ^     "}"}], ",",
) D, g  m" ~& E; W9 r   RowBox[{"{",
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
8 l8 u" Q; D7 |- k7 ]6 ?9 N, ~: g      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
' B! {6 k. I) P+ ]! U& M. Y, I; D     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
   RowBox[{"{",
    RowBox[{
3 t" j- M$ w5 W    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 c* S1 f  A! p+ g; l$ M     "}"}], ",",
   RowBox[{"{",
9 E. \8 M) S8 Z9 i    RowBox[{
3 \/ S  Z6 J! r    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
. d- g3 a& j2 [- N$ i/ f   RowBox[{"{",
    RowBox[{
2 t$ o* U& I- N3 X    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% S( b2 [- ~; w8 o& e9 F0 n      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 O0 m1 L3 C+ T/ a; r: q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' i  V$ U: s/ W3 d     "}"}], ",",
   RowBox[{"{",
6 @; q& m; t3 U6 O4 o3 l7 P' g    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
/ P) a, K+ |' B     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ z/ p, Q2 X( w     "}"}], ",",
   RowBox[{"{",
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
+ [! K. P" `8 Y4 O+ X/ `: B( h   RowBox[{"{",
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; F2 J0 _; C( E) u# i) L& d5 E( O3 u      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) y3 P. S  t( Q! P4 Y: v     "}"}], ",",
" G/ P5 J2 ^. P   RowBox[{"{",
7 K4 Z6 `$ F9 j4 f2 n    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- Q5 r& f* u+ Y4 E7 F" o/ n     "}"}], ",",
/ i  S8 K) A! H4 o1 \$ x   RowBox[{"{",
2 Q  p0 J5 ]) x  `    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! {+ |" y( g$ |) h6 F0 x      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 T: k- J2 ]! h7 t+ j     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
9 H5 U$ C- P( e: C' f% \' A2 p   RowBox[{"{",
4 Q; z: \  z' i/ P. T2 c) {    RowBox[{
' e$ N8 O7 H* T  @' [  i- _& D    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
   RowBox[{"{",
    RowBox[{
  e( Z; N" j5 w3 ?& k    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
; B' D1 v2 p* i7 [& G1 v& Q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
  H+ i* c/ i- e3 _8 p& T     "}"}], ",",
   RowBox[{"{",
    RowBox[{
1 ~0 ~, x/ ^/ ^1 D7 O    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 e: w0 ^8 A8 @$ O' n9 ^      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
9 w5 o: V7 `' w* G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) C, J5 m1 ~. k" L9 W- b. ^  G9 ^8 s, M: d     "}"}], ",",
4 c4 z7 q6 k! I* F   RowBox[{"{",
    RowBox[{
0 \" A6 H% o* p9 h6 c% @    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" d' C3 T+ S: F* E# q; W0 e      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 B& k8 r7 p  E% |     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
9 Z% r3 N4 \3 m' P- U- K   RowBox[{"{",
    RowBox[{
. I; \3 \! s+ n% W' B    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 d' m; D# d9 P( Q9 w9 P8 G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}]}], "}"}]], "Output",
6 e+ u* G. g0 p1 F( {8 q0 B# B CellChangeTimes->{
! R% B0 P7 t9 \+ f  3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
   3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9,
; ?. e6 y' ^3 X; T0 p2 g- @   3.5779619748823338`*^9}, 3.578012345453125*^9}]
' z, G7 e( m0 I, n2 L9 R' {8 S}, Open  ]],
7 J2 h) |' V: }% E# p! T
Cell[BoxData[
RowBox[{"For", "[",
' g+ w' S7 i% ~  RowBox[{
# E1 n# v. C+ c4 G, b   RowBox[{"i", "=", "1"}], ",",
   RowBox[{"i", "\[LessEqual]", "60"}], ",",
   RowBox[{"i", "++"}], ",",
   RowBox[{"{", "\[IndentingNewLine]",
    RowBox[{
! v& F: d$ f1 R     RowBox[{
! G. |1 D4 E  @* T" k  v      RowBox[{"m60n21", "[",
  Y1 j/ \! W2 i& c4 J       RowBox[{"[",
        RowBox[{"i", ",", "1"}], "]"}], "]"}], "=",
7 ^8 X: t9 |' x- b* l4 V      RowBox[{"u1", "/.",
       RowBox[{"{",
        RowBox[{
. J7 `+ G$ K, @, ~" A         RowBox[{"x1", "->",
          RowBox[{"Data", "[",
           RowBox[{"[",
/ i2 `5 Z9 o! @+ n9 `! @0 P0 D1 K6 v            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
) u1 z  b8 d8 g9 g         RowBox[{"x2", "->",
9 q; l0 E* m; B# Q8 w2 g          RowBox[{"Data", "[",
           RowBox[{"[",
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
+ r" @! m5 X- E) ]2 B3 e# t         RowBox[{"x3", "->",
& U/ j+ @: M3 {5 P% F          RowBox[{"Data", "[",
           RowBox[{"[",
4 v4 [& P$ E$ f- x! u9 b8 U/ ]' m            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
( B. Q4 @. l: [$ F* C         RowBox[{"x4", "->",
( k1 Z" N0 Z- r8 l. H2 t- _          RowBox[{"Data", "[",
; D8 I2 G* K% K7 v3 ]& O           RowBox[{"[",
1 ?4 T6 _# D  ]% ~            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
         RowBox[{"x5", "->",
          RowBox[{"Data", "[",
+ d, W# _( y9 U: _' I% `5 d           RowBox[{"[",
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
         RowBox[{"x6", "->",
+ c5 Z  d5 g) \$ \2 b( B0 o          RowBox[{"Data", "[",
+ v& M! {9 }& P7 x, q$ {2 Z/ J. t           RowBox[{"[",
( j3 y# Y3 q  u3 R! \            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
         RowBox[{"x7", "->",
          RowBox[{"Data", "[",
           RowBox[{"[",
6 G* A5 [7 g5 Q" ]! ~            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
         RowBox[{"x8", "->",
; h+ u  f4 \7 X          RowBox[{"Data", "[",
           RowBox[{"[",
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
- }3 S2 a6 B" ^. l% x         RowBox[{"x9", "->",
1 H4 e& }* Q1 T! l9 [4 Z; k          RowBox[{"Data", "[",
           RowBox[{"[",
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
& B" J' P( E* P& U     "\[IndentingNewLine]",
     RowBox[{
      RowBox[{"m60n21", "[",

---

作者: 琳123    时间: 2013-8-24 13:13

涳夢 发表于 2013-7-30 20:31
神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗

(* Content-type: application/mathematica *)

# A6 \9 {+ R7 O4 w$ u7 H1 E2 x4 a(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

* S! k/ v2 K( e7 `/ l(* CreatedBy='Mathematica 7.0' *)

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

Cell[BoxData[
RowBox[{"{",
8 y9 z4 H2 v! S2 R& h' m  RowBox[{
   RowBox[{"{",
% w* H+ k% s( S# c4 o    RowBox[{
    "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
     "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
     "0.`", ",", "0.277091`", ",", "0.873239`"}], "}"}], ",",
/ G( i- R1 N$ T3 g- T0 R+ w   RowBox[{"{",
    RowBox[{
    "0.565217`", ",", "0.346857`", ",", "0.393585`", ",", "0.118785`", ",",
( N1 P* P5 b4 y. Y     "0.34965`", ",", "0.370761`", ",", "0.413008`", ",", "0.502518`", ",",
0 A& p. |# |$ v( E* q3 Q     "0.`", ",", "0.220259`", ",", "0.464789`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
3 p" N, x/ {* J, l% c    "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
     "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`",
+ z* c! n, o' i- r+ i' ~     ",", "0.899882`", ",", "0.492958`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
    "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
     "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`",
! e  Y( @5 p3 a; Q! @- x+ T     ",", "0.265607`", ",", "0.774648`"}], "}"}], ",",
7 P3 Z. T9 P3 W; M# O8 I   RowBox[{"{",
    RowBox[{
" z' `$ r$ Q3 [  Q/ q6 B    "0.565217`", ",", "0.346931`", ",", "0.218229`", ",", "0.043639`", ",",
     "0.503497`", ",", "0.761115`", ",", "0.415447`", ",", "0.503525`", ",",
$ c5 K& `  z+ u5 F* B     "0.`", ",", "0.642226`", ",", "0.380282`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
& O, o: D# y( s. F% l0 t" X) m9 R' V: x' l    "0.478261`", ",", "0.293154`", ",", "0.259368`", ",", "0.026688`", ",",
     "0.587413`", ",", "0.75584`", ",", "0.409756`", ",", "0.498489`", ",",
     "0.`", ",", "0.306243`", ",", "0.647887`"}], "}"}], ",",
   RowBox[{"{",
/ B( \5 c+ Q: p% S  ^    RowBox[{
$ U5 b6 N) O6 f' |3 _+ R# p9 U    "0.347826`", ",", "0.359693`", ",", "0.614393`", ",", "0.081521`", ",",
     "0.258741`", ",", "0.367747`", ",", "0.410569`", ",", "0.499496`", ",",
     "0.`", ",", "0.186985`", ",", "0.56338`"}], "}"}], ",",
# H0 h2 s) D. p# P7 g4 h: ~/ {   RowBox[{"{",
    RowBox[{
7 O8 Y, `/ R% w% e5 Z+ Z    "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
     "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`",
' V. L6 d! ^* {2 S- C     ",", "0.175501`", ",", "0.295775`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
' P. q% e$ w! G& q. ]  v6 [    "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
5 D3 B4 `& f/ L- P; u- I: g7 m     "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`",
     ",", "0.147821`", ",", "0.338028`"}], "}"}], ",",
* z/ |5 |# o. r  V% \4 I3 c3 T   RowBox[{"{",
    RowBox[{
    "0.565217`", ",", "0.697772`", ",", "0.171587`", ",", "0.028566`", ",",
     "0.363636`", ",", "0.449887`", ",", "0.40813`", ",", "0.`", ",", "0.`",
     ",", "0.352768`", ",", "0.211268`"}], "}"}], ",",
( D) z( ]' O; x   RowBox[{"{",
, F) A2 N& k3 ?    RowBox[{
* }; t3 Q- `! @! N5 o    "0.282609`", ",", "0.660888`", ",", "0.460064`", ",", "0.110334`", ",",
     "0.475524`", ",", "0.`", ",", "0.545528`", ",", "0.`", ",", "0.5511`",
2 t/ |( P+ z# d9 Q% L3 k6 }     ",", "0.23881`", ",", "0.690141`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
    "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
     "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
" K8 O% |2 n2 g     "0.494866`", ",", "0.095701`", ",", "0.43662`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
* l3 Z" Q4 [( K4 g    "0.347826`", ",", "0.697772`", ",", "0.108288`", ",", "0.022413`", ",",
     "0.356643`", ",", "0.247928`", ",", "0.90813`", ",", "0.`", ",",
2 |+ C% r$ A- v" I     "0.383374`", ",", "0.162839`", ",", "0.`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
6 M) c: w! E2 W# q+ L3 L    "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
     "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`",
     ",", "0.335395`", ",", "0.267606`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
  c; p7 w3 @: P  C- i    "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
     "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`", ",",
0 w' Y* {; ?) ~) a$ v/ l     "0.160483`", ",", "0.211268`"}], "}"}], ",",
   RowBox[{"{",
5 x) }2 ~# e, D/ a" d+ O6 z    RowBox[{
! ~7 k1 H9 Z* @8 @    "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
8 A7 D6 k) w3 z* s% f* n' `     "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`",
     ",", "0.398115`", ",", "0.408451`"}], "}"}], ",",
   RowBox[{"{",
) w0 \8 p7 c8 m" ^    RowBox[{
    "0.608696`", ",", "0.425199`", ",", "0.012979`", ",", "0.`", ",",
' l  f! @" M  q& `  C- Z     "0.482517`", ",", "0.50942`", ",", "0.406504`", ",", "0.`", ",", "0.`",
     ",", "0.157833`", ",", "0.478873`"}], "}"}], ",",
+ x# L" j8 ?" z8 n8 H, J( h   RowBox[{"{",
% J1 w- ^& W; u    RowBox[{
    "0.608696`", ",", "0.577973`", ",", "0.213587`", ",", "0.030889`", ",",
* B3 W8 h2 J; {     "0.370629`", ",", "0.`", ",", "0.452846`", ",", "0.`", ",", "0.`", ",",
+ B! @. h- I4 j% g* R     "0.315665`", ",", "0.380282`"}], "}"}], ",",
2 y; D1 l- k9 o: J! Z8 \8 X* [   RowBox[{"{",
    RowBox[{
7 e) h5 w- N$ m, ^    "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
     "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.492344`",
     ",", "0.211268`"}], "}"}], ",",
   RowBox[{"{",
& u4 q) `5 r. D4 j8 c$ Y/ p6 u% b    RowBox[{
, [) F1 u! B$ p+ m! Q# {    "0.130435`", ",", "0.562039`", ",", "0.331662`", ",", "0.032643`", ",",
     "0.314685`", ",", "0.414469`", ",", "0.27561`", ",", "0.`", ",", "0.`",
     ",", "0.638398`", ",", "0.43662`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
    "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
' \& R0 N# b( i* {6 W; ~$ `7 d     "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
4 r/ N5 L3 H8 F1 Z  f6 ~     "0.392521`", ",", "0.478873`"}], "}"}], ",",
  b' l& a* }6 t; R2 r* S" F" r   RowBox[{"{",
- k. u" W5 O8 H7 U: k1 R0 ?    RowBox[{
    "0.608696`", ",", "0.769475`", ",", "0.289283`", ",", "0.022882`", ",",
     "0.321678`", ",", "0.`", ",", "0.274797`", ",", "0.333333`", ",", "0.`",
     ",", "0.362191`", ",", "0.295775`"}], "}"}], ",",
   RowBox[{"{",
7 c" N: p# g9 f4 T! t- Y    RowBox[{
1 \! Y. w. y; d: h7 o* w- a    "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
3 y4 y; E* e! _/ j4 o4 d     "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`", ",",
  [  M; l+ Q; a( n* s     "0.114252`", ",", "0.028169`"}], "}"}], ",",
5 \7 w8 j/ E# \1 X* U0 [   RowBox[{"{",
: z8 F1 M% Y/ ^1 z/ o7 ]: t8 s    RowBox[{
    "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
     "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`", ",",
' y2 b+ F- |  o7 O- G     "0.401355`", ",", "0.43662`"}], "}"}], ",",
2 [/ \" f9 a' N+ e   RowBox[{"{",
- o5 E# \5 j1 W& O4 G7 I  a9 O7 p    RowBox[{
    "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
' U2 h3 P" l* [1 Z     "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
0 |# P5 S6 A3 g  G  }% L, @     "0.827444`", ",", "0.394366`"}], "}"}], ",",
3 X, C* ~. e& C: y8 T$ L5 t7 ^5 Z- @   RowBox[{"{",
    RowBox[{
    "1.`", ",", "0.199248`", ",", "0.295044`", ",", "0.041613`", ",",
& l% [- T/ N1 D( H1 b8 c/ o$ ~     "0.20979`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
" v' g8 l, y' x+ z+ J( Q$ o     "0.676973`", ",", "0.295775`"}], "}"}], ",",
# y# @& Y3 {  G: S* F7 m" M   RowBox[{"{",
    RowBox[{
! k, h  F* D7 K2 j    "0.869565`", ",", "0.180363`", ",", "0.243056`", ",", "0.098349`", ",",
     "0.265734`", ",", "0.503391`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
( ~: ?9 {% ~1 K, b     "0.331272`", ",", "0.830986`"}], "}"}], ",",
   RowBox[{"{",
- Q* y% Y. a% T, O, j    RowBox[{
    "0.695652`", ",", "0.551785`", ",", "0.326201`", ",", "0.253608`", ",",
     "0.195804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
     "0.845701`", ",", "0.169014`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
' o" i6 J4 Z- G% V; h6 v, `  w    "0.652174`", ",", "0.572293`", ",", "0.111511`", ",", "0.035584`", ",",
     "0.405594`", ",", "0.249435`", ",", "0.544715`", ",", "0.`", ",", "0.`",
     ",", "0.287102`", ",", "0.366197`"}], "}"}], ",",
   RowBox[{"{",
& D4 ?( D+ G9 x( \" d$ A2 C    RowBox[{
) I9 }- D6 q1 a' Y- }/ [) z    "0.652174`", ",", "0.562039`", ",", "0.336155`", ",", "0.014604`", ",",
8 p. R( e! K3 B- H, F     "0.174825`", ",", "0.24416`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
" |/ @( \1 a; o     "0.`", ",", "0.309859`"}], "}"}], ",",
5 M' d- _5 g+ U8 k  h( C3 Y4 r" \# Y" z   RowBox[{"{",
, N, M  Q8 ?- j/ m( ]    RowBox[{
1 o: t. D0 G! |) A9 B+ Y5 H. A. M* ^    "0.565217`", ",", "0.577383`", ",", "0.15587`", ",", "0.030963`", ",",
     "0.258741`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
     "0.050059`", ",", "0.352113`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
    "0.565217`", ",", "0.613234`", ",", "0.232956`", ",", "0.05387`", ",",
     "0.230769`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
     "0.254122`", ",", "0.309859`"}], "}"}], ",",
   RowBox[{"{",
6 b0 b' \3 T- \7 Q3 r/ X6 V6 u* u    RowBox[{
- f! g# Y  q' \3 b" x    "0.565217`", ",", "0.559531`", ",", "0.493262`", ",", "0.046209`", ",",
     "0.293706`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
( Z2 J- e# U7 ?; F+ A: r3 x" e     "0.086867`", ",", "0.774648`"}], "}"}], ",",
3 J, Y3 N! o6 u  F# J; s/ J   RowBox[{"{",
  P/ `3 J. E, g% a' \/ h, O    RowBox[{
0 Y( C" Y) A1 C6 r' i/ q8 s    "0.608696`", ",", "0.569711`", ",", "0.111932`", ",", "0.013542`", ",",
     "0.335664`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.168704`", ",",
     "0.659894`", ",", "0.422535`"}], "}"}], ",",
2 n+ x+ d/ g& l# u3 w3 e   RowBox[{"{",
0 X' c% \; q: |# e1 w( ]    RowBox[{
5 C: k, \2 z" ~( ]( ]  l    "0.608696`", ",", "0.564547`", ",", "0.329844`", ",", "0.202036`", ",",
9 R2 N, e* @* f- F0 |     "0.51049`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
% J4 G( d, _$ |/ `! T     "0.317138`", ",", "0.887324`"}], "}"}], ",",
   RowBox[{"{",
. c$ D7 z; ?2 z- ~0 \    RowBox[{
    "0.521739`", ",", "0.546695`", ",", "0.165788`", ",", "0.029431`", ",",
! o0 H  v$ F; @: S     "0.51049`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
     "0.605124`", ",", "0.887324`"}], "}"}], ",",
+ Y  U6 ^/ a: \! u- O, \, q   RowBox[{"{",
, O' [& c& |* O8 b$ h0 F6 O. V    RowBox[{
1 J% ^/ Y% d( s6 f9 s1 l    "0.521739`", ",", "0.564178`", ",", "0.400518`", ",", "0.045023`", ",",
# t1 \9 d2 W# I8 w$ r     "0.615385`", ",", "0.3685`", ",", "0.660163`", ",", "0.301108`", ",",
     "0.`", ",", "0.32126`", ",", "0.859155`"}], "}"}], ",",
   RowBox[{"{",
& l5 z2 j* q. K" S    RowBox[{
    "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
     "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`",
, F7 C6 m7 ]8 T5 A  Z     ",", "0.595406`", ",", "0.239437`"}], "}"}], ",",
% a0 O* l6 y% E' {0 v7 h4 w   RowBox[{"{",
    RowBox[{
    "0.652174`", ",", "0.549277`", ",", "0.257578`", ",", "0.058688`", ",",
     "0.356643`", ",", "0.`", ",", "0.817886`", ",", "0.`", ",", "0.`", ",",
& J: P" j% }9 k5 @     "0.555359`", ",", "0.295775`"}], "}"}], ",",
- i" \7 t" O6 s   RowBox[{"{",
; X# U( f3 N1 M    RowBox[{
    "0.695652`", ",", "0.549277`", ",", "0.572308`", ",", "0.082411`", ",",
     "0.461538`", ",", "0.528259`", ",", "0.819512`", ",", "0.`", ",", "0.`",
     ",", "0.333333`", ",", "0.746479`"}], "}"}], ",",
, f3 ^# H& o+ D4 h, l9 V2 o   RowBox[{"{",
    RowBox[{
    "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
8 d  D% u4 P" ^, C  b     "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`",
, x* O# L" ~4 s7 U. ?7 o     ",", "0.149588`", ",", "1.`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
    "0.282609`", ",", "0.531278`", ",", "0.321428`", ",", "0.228625`", ",",
( B5 ?! S2 \0 p) y     "0.594406`", ",", "0.53052`", ",", "0.410569`", ",", "0.`", ",",
, H7 J9 W3 K( E) }( L     "0.757457`", ",", "0.493522`", ",", "0.549296`"}], "}"}], ",",
$ {: G9 Y* Y2 ^0 u3 |7 C0 l2 h   RowBox[{"{",
    RowBox[{
    "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
     "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`", ",",
, |" j, _$ }5 }; F     "0.224676`", ",", "0.366197`"}], "}"}], ",",
, M+ S  L8 g) l$ d" E   RowBox[{"{",
    RowBox[{
* H+ d  B: [( i! p    "0.391304`", ",", "0.705444`", ",", "0.045908`", ",", "0.07312`", ",",
* J/ r- |- E* N2 f4 V: Q     "0.622378`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.496333`", ",",
- e0 b$ J$ l/ w0 C" N     "0.410188`", ",", "0.549296`"}], "}"}], ",",
* H* Y; @+ j8 N+ `" @3 }: b   RowBox[{"{",
    RowBox[{
    "0.282609`", ",", "0.661921`", ",", "0.344992`", ",", "0.085178`", ",",
     "0.293706`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
     "0.668139`", ",", "0.577465`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
! ?5 u$ z$ U. h  t( y4 O& A    "0.478261`", ",", "0.661921`", ",", "0.644209`", ",", "0.077296`", ",",
     "0.412587`", ",", "0.`", ",", "0.413008`", ",", "0.502518`", ",", "0.`",
     ",", "0.102179`", ",", "0.690141`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
    "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
     "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
     "0.380742`", ",", "0.71831`"}], "}"}], ",",
2 g( U3 d( B* s5 }   RowBox[{"{",
0 r3 w+ E) c% d4 L    RowBox[{
8 R: }2 W, ?( E* @0 }. a( p8 f9 K    "0.5`", ",", "0.984656`", ",", "0.288432`", ",", "0.047692`", ",",
     "0.27972`", ",", "0.`", ",", "0.821138`", ",", "0.510574`", ",", "0.`",
     ",", "0.319494`", ",", "0.521127`"}], "}"}], ",",
7 c) e* `; X. j/ t# d; u; B( ^/ l   RowBox[{"{",
    RowBox[{
+ W  l, @+ m+ P' K' d2 d* j& T2 F    "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
; q9 L9 G* H( U+ f. G" V5 R     "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`",
3 T$ W, w% y7 O) y     ",", "0.031508`", ",", "0.929577`"}], "}"}], ",",
. v2 F+ z6 T! y! B4 F' a+ U) {   RowBox[{"{",
' M4 Z, \* F6 S, R- k4 {+ s    RowBox[{
, Y$ t) Y; J: k/ ^3 P- X    "0.73913`", ",", "0.774639`", ",", "0.17512`", ",", "0.036498`", ",",
     "0.391608`", ",", "0.739261`", ",", "0.408943`", ",", "0.553877`", ",",
     "0.`", ",", "0.292108`", ",", "0.521127`"}], "}"}], ",",
' M6 \9 D- C% l6 s0 H2 _  E) r   RowBox[{"{",
    RowBox[{
    "0.586957`", ",", "0.982074`", ",", "0.158462`", ",", "0.063902`", ",",
     "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
     "0.329505`", ",", "0.338028`"}], "}"}], ",",
  F) c* Z$ |# [# e  Z+ W   RowBox[{"{",
% H7 `7 ^/ ?- h- }; h  O: d    RowBox[{
1 e: v7 T0 O/ v5 K) ?7 Q3 [    "0.543478`", ",", "0.982074`", ",", "0.306872`", ",", "0.041934`", ",",
* P* Y6 M  E  N* O" V     "0.426573`", ",", "0.380558`", ",", "0.414634`", ",", "0.506546`", ",",
5 m6 a8 r! f, p+ {! Y5 ~     "0.`", ",", "0.337456`", ",", "0.380282`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
    "0.73913`", ",", "0.997418`", ",", "0.170143`", ",", "0.058268`", ",",
4 w/ Y" E+ i: f: t; d     "0.538462`", ",", "0.248681`", ",", "0.`", ",", "0.339376`", ",", "0.`",
# {' ^" t' K( t     ",", "0.766784`", ",", "0.676056`"}], "}"}], ",",
2 ?" ~8 u* o% g" }; g- b   RowBox[{"{",
+ B' q0 z: A1 l/ V; y0 V5 K    RowBox[{
7 T  t7 {' K. Y+ |    "0.695652`", ",", "0.700428`", ",", "0.139361`", ",", "0.182169`", ",",
     "0.412587`", ",", "0.243406`", ",", "0.`", ",", "0.`", ",", "0.136919`",
     ",", "0.676678`", ",", "0.591549`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
    "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
- d% t( ]# k4 ?     "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`",
& q* `3 N* g) y     ",", "0.541519`", ",", "0.464789`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
    "0.652174`", ",", "0.751623`", ",", "0.355593`", ",", "0.039883`", ",",
     "0.195804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
     "0.064488`", ",", "0.295775`"}], "}"}], ",",
   RowBox[{"{",
4 t) p# k8 [' x5 K1 M' M    RowBox[{
    "0.521739`", ",", "0.679847`", ",", "0.152375`", ",", "0.030048`", ",",
     "0.363636`", ",", "0.`", ",", "0.271545`", ",", "0.`", ",", "0.`", ",",
* _; t% b! k" L( O     "0.463192`", ",", "0.380282`"}], "}"}], ",",
5 |; u0 ~- f* U, b) j' t9 q2 D   RowBox[{"{",
4 F7 Q+ @% [1 H* @1 N7 c2 ?    RowBox[{
) [- w4 f7 P$ S/ o( a4 P    "0.434783`", ",", "0.728533`", ",", "0.18683`", ",", "0.12951`", ",",
: ~3 I0 i" L: T0 Z8 U8 w$ ]' r     "0.195804`", ",", "0.`", ",", "0.269919`", ",", "0.`", ",", "0.32665`",
2 V: L& u" q. R% S6 X# u- t. H" b7 D) h     ",", "0.388398`", ",", "0.211268`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
) o2 \; W) i% E  ^    "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
     "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`",
; m9 e: [5 C6 K4 ~% w$ H, _     ",", "0.262367`", ",", "0.253521`"}], "}"}], ",",
   RowBox[{"{",
! ]8 E' Z/ I* Q4 O    RowBox[{
5 P$ @7 o7 g4 Z4 ^$ K7 `; m    "0.608696`", ",", "0.633742`", ",", "0.322697`", ",", "0.068597`", ",",
9 X5 ~' c" e& \- Q& [( {0 ]- V$ J     "0.328671`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.287042`", ",",
     "0.290931`", ",", "0.28169`"}], "}"}], ",",
; k: W7 f: e$ ?   RowBox[{"{",
    RowBox[{
    "0.478261`", ",", "0.539023`", ",", "0.412108`", ",", "0.107566`", ",",
     "0.237762`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
     "0.380742`", ",", "0.507042`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
    "0.608696`", ",", "0.551859`", ",", "0.176821`", ",", "0.076332`", ",",
7 B6 w" w  z( s- q7 \3 ?* [/ ?     "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
' W2 ]- Q/ y% i9 W; ^: C  {     "0.429034`", ",", "0.239437`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
! ^* f' }1 T. M2 m    "0.652174`", ",", "0.551859`", ",", "0.033549`", ",", "0.018459`", ",",
     "0.573427`", ",", "0.`", ",", "0.553659`", ",", "0.`", ",", "0.40489`",
0 J# e/ {7 p) w7 E' i* q2 s2 U5 l) J. t     ",", "0.193168`", ",", "0.394366`"}], "}"}], ",",
7 M, b+ z! c2 H, C* r   RowBox[{"{",
8 |) c2 k+ N7 C* r) d* W3 {) m    RowBox[{
: m1 v# m/ f  W4 Q! e& w. J    "0.695652`", ",", "0.595382`", ",", "0.277493`", ",", "0.100326`", ",",
     "0.286713`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
/ ~5 A7 _6 z, m/ ~" t/ o     "0.448763`", ",", "0.338028`"}], "}"}], ",",
! P4 X. }2 a7 p; B' q   RowBox[{"{",
/ m2 r. q3 d: B    RowBox[{
3 w8 T+ p; M$ n+ C    "0.565217`", ",", "0.559531`", ",", "0.422669`", ",", "0.078111`", ",",
( S: y: J/ z# U8 v' Z" s- G     "0.286713`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
5 x! D5 p/ S7 d4 ]( n6 Z! H' T  A     "0.442285`", ",", "0.394366`"}], "}"}], ",",
* W! o% w- }/ K# X   RowBox[{"{",
    RowBox[{
    "0.586957`", ",", "0.398126`", ",", "0.140619`", ",", "0.069116`", ",",
! ^* s( u  N0 r, v7 q' M6 @     "0.461538`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
4 C! C4 l1 E4 P7 H$ }6 c5 [     "0.575383`", ",", "0.15493`"}], "}"}], ",",
   RowBox[{"{",
+ p: N7 a. @- {9 T, S  E5 A    RowBox[{
7 u# ]) K( C) Z( c! n# F    "0.695652`", ",", "0.398126`", ",", "0.019829`", ",", "0.041366`", ",",
     "0.552448`", ",", "0.24416`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
* }+ o4 }) {- |  q/ T* M     "0.515607`", ",", "0.591549`"}], "}"}], ",",
9 w* S$ ?% t: u0 j$ ?! o( v   RowBox[{"{",
    RowBox[{
    "0.695652`", ",", "0.700354`", ",", "0.422467`", ",", "0.068128`", ",",
     "0.20979`", ",", "0.`", ",", "0.`", ",", "0.500504`", ",", "0.`", ",",
     "0.057715`", ",", "0.408451`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
    "0.521739`", ",", "0.193125`", ",", "0.210582`", ",", "0.110433`", ",",
  Z" [. C/ h  l3 k. p     "0.447552`", ",", "0.382065`", ",", "0.413008`", ",", "0.498489`", ",",
3 n+ J) l0 r  _3 Q4 N! A     "0.`", ",", "0.174617`", ",", "0.295775`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
    "0.347826`", ",", "0.063588`", ",", "0.830527`", ",", "1.`", ",",
     "0.111888`", ",", "0.`", ",", "0.410569`", ",", "0.`", ",", "0.`", ",",
     "0.66755`", ",", "0.661972`"}], "}"}], ",",
! G4 u1 z2 z0 Z7 ~7 K# i   RowBox[{"{",
8 [8 i$ \6 U, k. \: i  O    RowBox[{
9 F, G' S3 N: F7 W    "0.521739`", ",", "0.188109`", ",", "1.`", ",", "0.785485`", ",",
     "0.342657`", ",", "0.373775`", ",", "0.406504`", ",", "1.`", ",", "0.`",
* g3 m8 j6 K0 Y     ",", "0.371025`", ",", "0.774648`"}], "}"}], ",",
9 y$ R, j  H& E# G   RowBox[{"{",
    RowBox[{
$ s$ n) x1 }1 k! K8 }    "0.695652`", ",", "0.188404`", ",", "0.088836`", ",", "0.059504`", ",",
     "0.706294`", ",", "0.37679`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
" i0 Q! b1 J/ }  j7 `, P     "0.570966`", ",", "0.746479`"}], "}"}], ",",
: k. u/ I; Z' P7 v: x! s   RowBox[{"{",
$ f9 W0 b1 ~7 s" X2 \- [" J8 `    RowBox[{
    "0.695652`", ",", "0.057465`", ",", "0.316316`", ",", "0.15128`", ",",
     "0.615385`", ",", "0.371515`", ",", "0.412195`", ",", "0.500504`", ",",
     "0.`", ",", "0.468198`", ",", "0.887324`"}], "}"}], ",",
   RowBox[{"{",
- ]5 }' T) U0 P    RowBox[{
& b9 P- d, O  n* b    "0.608696`", ",", "0.01136`", ",", "0.295586`", ",", "0.113892`", ",",
) F2 f4 q4 {* l( P. q9 u' Q     "0.58042`", ",", "0.746044`", ",", "0.405691`", ",", "0.501511`", ",",
     "0.`", ",", "0.414016`", ",", "0.84507`"}], "}"}], ",",
! _3 b1 Q! @# l- ?$ S% v* z/ }; Z   RowBox[{"{",
# Y$ C. t. a+ B  f    RowBox[{
: k% k$ @+ J9 x2 g4 O    "0.608696`", ",", "0.364783`", ",", "0.130582`", ",", "0.020214`", ",",
     "0.356643`", ",", "0.379804`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
- X: j( t; r0 r" r7 g     "0.18669`", ",", "0.704225`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
# t( [3 g1 b$ v2 X    "0.608696`", ",", "0.193199`", ",", "0.11269`", ",", "0.036152`", ",",
; q6 ?2 m  M! U" _( t  _# [  |1 L5 O     "0.636364`", ",", "0.382065`", ",", "0.409756`", ",", "0.495468`", ",",
     "0.`", ",", "0.442874`", ",", "0.760563`"}], "}"}], ",",
   RowBox[{"{",
7 O$ ~+ G! l& w. L    RowBox[{
1 ?, o/ g. G7 b% f- c: b    "0.73913`", ",", "0.328932`", ",", "0.246779`", ",", "0.12652`", ",",
* F% E2 m% x0 m* P  U: N' M, \" C     "0.454545`", ",", "0.`", ",", "0.495122`", ",", "0.`", ",", "0.414181`",
     ",", "0.68669`", ",", "0.43662`"}], "}"}], ",",
9 \5 E# d* W$ Z1 R   RowBox[{"{",
( \, O, K! k7 s( o9 |3 `    RowBox[{
    "0.73913`", ",", "0.341767`", ",", "0.36209`", ",", "0.183528`", ",",
1 h- ^+ `* J: u0 Y# C0 g     "0.573427`", ",", "0.413715`", ",", "0.454472`", ",", "0.661631`", ",",
7 H0 h. u" H. Y* k8 W$ ~" H     "0.`", ",", "0.244111`", ",", "0.633803`"}], "}"}], ",",
6 a, ^; e* ^- S   RowBox[{"{",
    RowBox[{
    "0.695652`", ",", "0.187076`", ",", "0.279724`", ",", "0.006252`", ",",
     "0.405594`", ",", "0.418237`", ",", "0.544715`", ",", "0.`", ",", "0.`",
     ",", "1.`", ",", "0.422535`"}], "}"}], ",",
: l1 v0 G* q- [0 Z% a9 ~" g   RowBox[{"{",
9 a! d) \* Q6 P, Q, d    RowBox[{
    "1.`", ",", "0.333948`", ",", "0.06475`", ",", "0.065855`", ",",
. x* F3 c% q- @1 F, q" l. F     "0.342657`", ",", "0.`", ",", "0.40813`", ",", "0.`", ",", "0.`", ",",
     "0.957892`", ",", "0.295775`"}], "}"}], ",",
   RowBox[{"{",
, q* |7 u+ V( P* b    RowBox[{
* r; c/ e* A" I. O) i( M    "0.73913`", ",", "0.3054`", ",", "0.374567`", ",", "0.13287`", ",",
) U1 S# C/ E; i9 S" W     "0.258741`", ",", "0.834966`", ",", "0.`", ",", "0.`", ",", "0.272861`",
     ",", "0.266784`", ",", "0.309859`"}], "}"}], ",",
3 g+ B% h0 W, [  ]! G) N   RowBox[{"{",
    RowBox[{
    "0.826087`", ",", "0.151962`", ",", "0.36028`", ",", "0.221632`", ",",
& C2 n9 `" j. S5 o; }     "0.447552`", ",", "0.584778`", ",", "0.457724`", ",", "0.`", ",", "0.`",
! P( b; N$ l% j' y     ",", "0.826855`", ",", "0.408451`"}], "}"}], ",",
6 u! c  n! ~0 Q0 z   RowBox[{"{",
    RowBox[{
    "0.565217`", ",", "0.047212`", ",", "0.233154`", ",", "0.121528`", ",",
     "0.314685`", ",", "0.417483`", ",", "0.546341`", ",", "0.`", ",",
     "0.669438`", ",", "0.341873`", ",", "0.197183`"}], "}"}], ",",
5 d' s5 [% o5 H! R9 i% d3 e   RowBox[{"{",
! x( z0 E1 t1 Q& }8 V! e$ [5 ~    RowBox[{
7 c' z, u% P" m' d4 S/ R' K    "0.826087`", ",", "0.034376`", ",", "0.690349`", ",", "0.51238`", ",",
     "0.685315`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.556479`", ",",
     "0.412544`", ",", "0.732394`"}], "}"}], ",",
5 b6 i6 h/ [2 U. D: s   RowBox[{"{",
- O# {; D5 u  y5 T, {& w9 W: x* q4 F    RowBox[{
    "0.652174`", ",", "0.`", ",", "0.374417`", ",", "0.188075`", ",",
     "0.706294`", ",", "0.498116`", ",", "0.729268`", ",", "0.`", ",",
     "0.454279`", ",", "0.322144`", ",", "0.802817`"}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
1 C" K! Z) Z9 r6 B+ b! @( O    "0.782609`", ",", "0.180363`", ",", "0.237142`", ",", "0.054809`", ",",
; c7 S  E3 q; V     "0.629371`", ",", "0.373775`", ",", "0.247967`", ",", "0.`", ",",
     "0.163814`", ",", "0.370436`", ",", "0.746479`"}], "}"}], ",",
   RowBox[{"{",
0 Z9 Q. `3 A1 b% Q( j+ s. i3 d$ X    RowBox[{
; `0 ^9 r- M" Y  R    "0.608696`", ",", "0.16915`", ",", "0.368148`", ",", "0.393768`", ",",
4 j+ u3 p: d) [( D" U( l     "0.440559`", ",", "0.995479`", ",", "0.545528`", ",", "0.`", ",",
     "0.56577`", ",", "0.333039`", ",", "0.380282`"}], "}"}], ",",
   RowBox[{"{",
1 E1 x. i7 n; n, P+ k0 M$ B3 @/ B. K    RowBox[{
    "0.695652`", ",", "0.390454`", ",", "0.186683`", ",", "0.039439`", ",",
  U& r0 w8 _  A* H: o     "0.482517`", ",", "0.497362`", ",", "0.415447`", ",", "0.50856`", ",",
$ y4 t% Q: h& u. X& s2 g     "0.`", ",", "0.390754`", ",", "0.56338`"}], "}"}], ",",
. R7 K4 T; }  e5 R) m& o- L( D   RowBox[{"{",
( P, q, h6 Z# u* V$ [& ?# |3 }" N# T    RowBox[{
8 Q5 z& S/ ]% G: ?: R    "0.73913`", ",", "0.428888`", ",", "0.082728`", ",", "0.070154`", ",",
     "0.27972`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
9 T' a5 N7 q- g6 Y4 {     "0.694935`", ",", "0.323944`"}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.57795879182092*^9, 3.5779604974578943`*^9,
  3.57801214396875*^9}]
}, Open  ]],

Cell[CellGroupData[{

- W7 j1 _2 m, `% J$ n( O8 BCell[BoxData[
RowBox[{"Array", "[",
  RowBox[{"CM", ",",
   RowBox[{"{",
1 k  [% V  s5 h: `    RowBox[{"80", ",", "9"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.577844235859375*^9, 3.577844291953125*^9}}],
7 d4 A5 }1 V7 P
Cell[BoxData[
# r. s- [8 c3 h5 J& Q/ n* l; R RowBox[{"{",
- D# s$ m) ^6 ~( H  RowBox[{
, K' ^! _7 s1 b$ l   RowBox[{"{",
. G# h. J3 Y0 d* e" T; d5 k    RowBox[{
% S9 R6 M: `. o; f- r     RowBox[{"CM", "[",
      RowBox[{"1", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
- v7 ]( H& x2 d( }2 C: l) l      RowBox[{"1", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
$ `2 a2 m( B: D# U. y      RowBox[{"1", ",", "3"}], "]"}], ",",
+ A9 f* F! D0 x8 B2 H     RowBox[{"CM", "[",
) {1 r: @0 [# ^, _      RowBox[{"1", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
* z, r/ Y# W8 y* G      RowBox[{"1", ",", "5"}], "]"}], ",",
$ ~3 i6 K" i) d0 Q: a     RowBox[{"CM", "[",
- R9 v( Z( o5 i- B      RowBox[{"1", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
( R" d0 V: M  e( x, U      RowBox[{"1", ",", "7"}], "]"}], ",",
  I; b) n# c3 h) N4 T5 J' w     RowBox[{"CM", "[",
( o/ V" C7 y  N& f      RowBox[{"1", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
: W* O2 v; K- q" \      RowBox[{"1", ",", "9"}], "]"}]}], "}"}], ",",
' c) h! _. J% U9 H7 A+ O0 D& T  c   RowBox[{"{",
2 \, y8 d4 S" |6 I; T7 z* u    RowBox[{
     RowBox[{"CM", "[",
      RowBox[{"2", ",", "1"}], "]"}], ",",
, W( |4 N) \2 K, r* \. U) \     RowBox[{"CM", "[",
% b- N: [% H, t2 M, z: U, T1 L      RowBox[{"2", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
5 v) H4 h7 d' \6 h  F- D+ m" E      RowBox[{"2", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"2", ",", "4"}], "]"}], ",",
" g; {. j$ i, V$ d3 ~  D, a     RowBox[{"CM", "[",
6 L% t) c1 L, W1 K4 A      RowBox[{"2", ",", "5"}], "]"}], ",",
0 Y$ V3 r8 m0 }     RowBox[{"CM", "[",
0 m* s8 G. z1 v6 Q! p  I- k      RowBox[{"2", ",", "6"}], "]"}], ",",
# \1 g" S/ W( v0 {     RowBox[{"CM", "[",
, h1 w. p3 }4 j6 g4 X+ k' c% g7 S      RowBox[{"2", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"2", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"2", ",", "9"}], "]"}]}], "}"}], ",",
! f& l& X* e% ^1 J8 q   RowBox[{"{",
( t9 g$ _/ ]6 ?9 H' U( n" r    RowBox[{
) l- E5 d6 i7 e, F     RowBox[{"CM", "[",
      RowBox[{"3", ",", "1"}], "]"}], ",",
& A' @( o: C  Q% @) ~6 e     RowBox[{"CM", "[",
      RowBox[{"3", ",", "2"}], "]"}], ",",
, ?  Q: g% W/ ^+ N' f     RowBox[{"CM", "[",
4 Z6 J& F$ p# ?  I- j$ p      RowBox[{"3", ",", "3"}], "]"}], ",",
, C4 s4 }( s" p# e" T     RowBox[{"CM", "[",
      RowBox[{"3", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
! h$ P( z, e) X- E      RowBox[{"3", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
5 r/ M9 o6 v3 f2 B+ g2 y6 L; a1 N/ b      RowBox[{"3", ",", "6"}], "]"}], ",",
7 `3 D9 z8 ~5 J     RowBox[{"CM", "[",
      RowBox[{"3", ",", "7"}], "]"}], ",",
6 [* b, m" E  ~% F' S     RowBox[{"CM", "[",
8 [3 T6 _' L1 ]; i4 D      RowBox[{"3", ",", "8"}], "]"}], ",",
3 ]7 L# |- s; e+ U% i5 \4 \1 z     RowBox[{"CM", "[",
& _8 x, Q3 g8 V& S      RowBox[{"3", ",", "9"}], "]"}]}], "}"}], ",",
9 I# k9 c' l  J; }/ L2 u4 I4 F, W   RowBox[{"{",
    RowBox[{
     RowBox[{"CM", "[",
      RowBox[{"4", ",", "1"}], "]"}], ",",
) c7 w% L: }2 v# o' N2 G2 H5 T     RowBox[{"CM", "[",
      RowBox[{"4", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
$ B4 B# H; h! Y( u0 \) R- ^) |      RowBox[{"4", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
1 W1 Q9 v( P" m3 d, L9 c      RowBox[{"4", ",", "4"}], "]"}], ",",
' p& w6 V1 d( L/ Y     RowBox[{"CM", "[",
      RowBox[{"4", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"4", ",", "6"}], "]"}], ",",
8 h8 `% V  L6 g     RowBox[{"CM", "[",
      RowBox[{"4", ",", "7"}], "]"}], ",",
' F* S; ~3 _" O8 A$ z2 P" B     RowBox[{"CM", "[",
  S- R0 q/ E$ c& P' j, B  E' I      RowBox[{"4", ",", "8"}], "]"}], ",",
2 D/ |0 p- D! g# I& |     RowBox[{"CM", "[",
4 n. k, Q, d" w      RowBox[{"4", ",", "9"}], "]"}]}], "}"}], ",",
( ^2 \% e$ N4 w! v& S( d& l% f5 v3 C   RowBox[{"{",
    RowBox[{
     RowBox[{"CM", "[",
      RowBox[{"5", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"5", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"5", ",", "3"}], "]"}], ",",
; q! T: e: F2 A# W$ V; o2 _* g     RowBox[{"CM", "[",
      RowBox[{"5", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"5", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
" P/ W" o: N* Y# W0 C) Y      RowBox[{"5", ",", "6"}], "]"}], ",",
) M( Y1 f& f' P3 @( m+ p. U     RowBox[{"CM", "[",
      RowBox[{"5", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
8 I- ?  p- }; y      RowBox[{"5", ",", "8"}], "]"}], ",",
! ^5 [0 D& P; ]  ?     RowBox[{"CM", "[",
      RowBox[{"5", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
3 F* o+ o# t& c% J$ @( {  r$ G    RowBox[{
3 `# x$ z/ `- w7 a     RowBox[{"CM", "[",
, c/ w* X3 _9 b5 [      RowBox[{"6", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"6", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
$ y1 g! a  {4 b# g# I      RowBox[{"6", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"6", ",", "4"}], "]"}], ",",
2 A7 W& u5 I) _5 L     RowBox[{"CM", "[",
( {- _# ]. t9 {5 E      RowBox[{"6", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"6", ",", "6"}], "]"}], ",",
) i) U5 K# S9 x0 Z     RowBox[{"CM", "[",
      RowBox[{"6", ",", "7"}], "]"}], ",",
+ @8 I3 I9 |' D9 B( ?     RowBox[{"CM", "[",
! K, B1 m" z) O# V! a      RowBox[{"6", ",", "8"}], "]"}], ",",
/ @' \8 Y6 x: {: g2 L- [     RowBox[{"CM", "[",
5 D9 e5 b' r2 [" o3 `# |      RowBox[{"6", ",", "9"}], "]"}]}], "}"}], ",",
! G; A# `" N) Z  x+ J. g+ @   RowBox[{"{",
6 e  ~7 Z: Q! r    RowBox[{
     RowBox[{"CM", "[",
      RowBox[{"7", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
. R2 \7 \0 ?7 x% F& L2 m; u7 c2 H; o      RowBox[{"7", ",", "2"}], "]"}], ",",
7 i; K! |! N; }3 R     RowBox[{"CM", "[",
      RowBox[{"7", ",", "3"}], "]"}], ",",
6 l3 x) ^, N/ {7 g& Q, \     RowBox[{"CM", "[",
( j! ?$ ?& `! t+ x( [& h& K      RowBox[{"7", ",", "4"}], "]"}], ",",
7 x# x; ]' R8 n2 O# O3 h- o: J     RowBox[{"CM", "[",
9 [9 Y: `% ]. T      RowBox[{"7", ",", "5"}], "]"}], ",",
& c) p1 k. M6 t$ L6 W5 l     RowBox[{"CM", "[",
: `2 o9 D* H' B3 a: ]- [      RowBox[{"7", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"7", ",", "7"}], "]"}], ",",
  F% V6 O/ c, T+ f9 D# n0 }     RowBox[{"CM", "[",
      RowBox[{"7", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"7", ",", "9"}], "]"}]}], "}"}], ",",
7 ~* w9 c4 D; o' [4 v   RowBox[{"{",
) o, D9 I$ z$ g  ~    RowBox[{
3 T! g. D! n* z. Z& m     RowBox[{"CM", "[",
4 }! d# V8 l( M- C) n9 R      RowBox[{"8", ",", "1"}], "]"}], ",",
9 r' U: f" |8 F5 |0 R4 S     RowBox[{"CM", "[",
, V% Y7 h* F- S& w( w! S      RowBox[{"8", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
1 ?& |0 b. H# i/ Z' W      RowBox[{"8", ",", "3"}], "]"}], ",",
4 |* ^* }5 X% F     RowBox[{"CM", "[",
$ O" R( M& i# _      RowBox[{"8", ",", "4"}], "]"}], ",",
4 L: s7 G+ X7 D4 U% u. @. w  F     RowBox[{"CM", "[",
! i6 b) a7 U* L      RowBox[{"8", ",", "5"}], "]"}], ",",
# Z( g& ^6 I' T  x7 h& i, E     RowBox[{"CM", "[",
      RowBox[{"8", ",", "6"}], "]"}], ",",
% ~/ W/ K3 l5 z3 f/ b+ C, \     RowBox[{"CM", "[",
      RowBox[{"8", ",", "7"}], "]"}], ",",
. \+ u! T6 L/ R, n7 ?; ~     RowBox[{"CM", "[",
      RowBox[{"8", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"8", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
) ]" R5 d, b* E' l+ N5 g" y+ I) C     RowBox[{"CM", "[",
      RowBox[{"9", ",", "1"}], "]"}], ",",
' J) X7 U# T/ F- j  T! y     RowBox[{"CM", "[",
      RowBox[{"9", ",", "2"}], "]"}], ",",
. P# o. q5 y( J% s3 z     RowBox[{"CM", "[",
% b2 Y# o: F9 N( |' K      RowBox[{"9", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"9", ",", "4"}], "]"}], ",",
: |$ ?! W9 Q+ `, o$ l     RowBox[{"CM", "[",
      RowBox[{"9", ",", "5"}], "]"}], ",",
/ ^( P3 H  a, a( [" j     RowBox[{"CM", "[",
      RowBox[{"9", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
( f: Y/ p& e; y/ V& Z4 x# {/ B      RowBox[{"9", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"9", ",", "8"}], "]"}], ",",
. l$ o2 A- H9 U     RowBox[{"CM", "[",
# \/ t. i2 `/ A+ Q0 X0 b      RowBox[{"9", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
     RowBox[{"CM", "[",
      RowBox[{"10", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
6 R/ v+ T1 Q9 N5 e! A      RowBox[{"10", ",", "2"}], "]"}], ",",
3 R/ _7 k( ~  b* C0 n) ]- a+ I5 e     RowBox[{"CM", "[",
      RowBox[{"10", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"10", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
; R2 v) D" u- ]. h! m- C      RowBox[{"10", ",", "5"}], "]"}], ",",
! l8 _4 e) |& f% i% C7 C     RowBox[{"CM", "[",
; y. h. K' k, @1 A9 b9 A      RowBox[{"10", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"10", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
8 t! p7 l" @, L$ ~8 O/ l. G, s      RowBox[{"10", ",", "8"}], "]"}], ",",
$ M8 @5 x) z/ d1 I% ?) @2 q     RowBox[{"CM", "[",
0 W2 G* z+ f( n. |! ~9 s6 w4 R      RowBox[{"10", ",", "9"}], "]"}]}], "}"}], ",",
: n' R) T# H4 @7 L   RowBox[{"{",
    RowBox[{
. e) n6 u4 U( e     RowBox[{"CM", "[",
      RowBox[{"11", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"11", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"11", ",", "3"}], "]"}], ",",
( s7 [+ n  _* K8 s; Q+ N     RowBox[{"CM", "[",
/ k' V# n+ d! D+ A6 Z6 c      RowBox[{"11", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"11", ",", "5"}], "]"}], ",",
3 f0 Z& C2 W( q9 C( L) C' p4 O5 E+ o     RowBox[{"CM", "[",
      RowBox[{"11", ",", "6"}], "]"}], ",",
! b  H  N4 B1 G# I: ^6 f4 j2 R     RowBox[{"CM", "[",
      RowBox[{"11", ",", "7"}], "]"}], ",",
# y. ?0 X: y8 g: x. H( o& J     RowBox[{"CM", "[",
      RowBox[{"11", ",", "8"}], "]"}], ",",
, Q" s$ k# \: m) A0 X6 d8 c     RowBox[{"CM", "[",
      RowBox[{"11", ",", "9"}], "]"}]}], "}"}], ",",
! i1 h; Y7 F3 O  p$ ~' k9 y* c   RowBox[{"{",
# {  Y; q6 X9 G    RowBox[{
     RowBox[{"CM", "[",
      RowBox[{"12", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
' U* R2 ~0 G% s' l2 Y6 u      RowBox[{"12", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
2 N, t$ Q6 U+ b9 [) n  Y2 m      RowBox[{"12", ",", "3"}], "]"}], ",",
; q7 l4 v5 a# M. C- Z     RowBox[{"CM", "[",
) p; j( c5 x* W( Z0 N  d$ x* o8 M      RowBox[{"12", ",", "4"}], "]"}], ",",
9 D5 N, ?' y! e     RowBox[{"CM", "[",
      RowBox[{"12", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"12", ",", "6"}], "]"}], ",",
/ p9 J  f$ Q7 ?$ f4 X% Y2 k     RowBox[{"CM", "[",
      RowBox[{"12", ",", "7"}], "]"}], ",",
- y/ s! c' ]* p0 }7 I2 M     RowBox[{"CM", "[",
# j$ b* x2 r* D/ h) p. p3 ?% Y. G( V      RowBox[{"12", ",", "8"}], "]"}], ",",
! o3 ]( T+ F( Q% L1 X5 z" Z     RowBox[{"CM", "[",
      RowBox[{"12", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
     RowBox[{"CM", "[",
      RowBox[{"13", ",", "1"}], "]"}], ",",
- _" E0 M8 s# ^3 h! W     RowBox[{"CM", "[",
% s+ Y. D' I, ~2 f: m& V      RowBox[{"13", ",", "2"}], "]"}], ",",
+ I' H7 S& O5 W3 A1 O1 T; ~; M     RowBox[{"CM", "[",
      RowBox[{"13", ",", "3"}], "]"}], ",",
4 W5 o, d1 ~: F  p, d     RowBox[{"CM", "[",
. {4 E+ g% d1 \) ^# ]      RowBox[{"13", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
2 s4 ]' W3 b  S4 ^      RowBox[{"13", ",", "5"}], "]"}], ",",
9 U* O5 l/ u, W     RowBox[{"CM", "[",
" z" q- h" T, F  e/ A2 ~      RowBox[{"13", ",", "6"}], "]"}], ",",
1 B# D$ `6 b9 ]" L% U* f     RowBox[{"CM", "[",
  t1 b; ?8 x2 h4 e      RowBox[{"13", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
1 g7 @+ s. Z( A8 U, i2 h5 [      RowBox[{"13", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"13", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
5 q! W( i5 S" k, @9 X) q    RowBox[{
! m6 y2 h7 B2 f% }( s     RowBox[{"CM", "[",
8 r  f( d- U5 e/ j# f      RowBox[{"14", ",", "1"}], "]"}], ",",
) \- |. `' Z: Z0 I# N6 ^     RowBox[{"CM", "[",
5 S7 L$ N' e! V# d      RowBox[{"14", ",", "2"}], "]"}], ",",
0 C, G, p1 O8 K' G7 b. G     RowBox[{"CM", "[",
      RowBox[{"14", ",", "3"}], "]"}], ",",
0 I7 v. D1 i" ]+ B: s' U) Z; Z* U     RowBox[{"CM", "[",
      RowBox[{"14", ",", "4"}], "]"}], ",",
9 a% T, q+ I  _; m- _     RowBox[{"CM", "[",
5 M+ p( [- `2 a( E7 f  P1 v      RowBox[{"14", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
" U2 W# P. `+ u" w; H      RowBox[{"14", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"14", ",", "7"}], "]"}], ",",
4 l! j' W$ G  h, a# p     RowBox[{"CM", "[",
      RowBox[{"14", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
1 X# E% M9 F+ [# q: N      RowBox[{"14", ",", "9"}], "]"}]}], "}"}], ",",
' Z* }- V2 n! o( O8 @5 n. L9 J   RowBox[{"{",
    RowBox[{
     RowBox[{"CM", "[",
8 C  n; `; x4 j, N# f7 g& C      RowBox[{"15", ",", "1"}], "]"}], ",",
1 ~3 ^/ X/ I  L% ?9 \7 h4 |     RowBox[{"CM", "[",
- Q3 g* T9 ?4 p, Y9 l      RowBox[{"15", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"15", ",", "3"}], "]"}], ",",
* Q- d4 ^: [' Q7 b. K& s# l  P) k     RowBox[{"CM", "[",
      RowBox[{"15", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"15", ",", "5"}], "]"}], ",",
2 K" y! P. i  z# K4 }     RowBox[{"CM", "[",
) I& G3 H$ R1 U% B" E; F1 u+ |9 k      RowBox[{"15", ",", "6"}], "]"}], ",",
  ]' t2 {: T3 w3 u( F  L( N4 v     RowBox[{"CM", "[",
      RowBox[{"15", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"15", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"15", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
     RowBox[{"CM", "[",
      RowBox[{"16", ",", "1"}], "]"}], ",",
$ Q! J$ E; M0 a     RowBox[{"CM", "[",
      RowBox[{"16", ",", "2"}], "]"}], ",",
+ o" f# Q$ D( {' ?% U) y     RowBox[{"CM", "[",
      RowBox[{"16", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"16", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
' m4 x: m6 |& T- b! p      RowBox[{"16", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"16", ",", "6"}], "]"}], ",",
7 x% C6 i: S: a; f     RowBox[{"CM", "[",
" y9 M$ d% o2 U" r3 a1 q0 o1 V      RowBox[{"16", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
* n( w9 C+ d& u8 @5 F" l0 A      RowBox[{"16", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"16", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
     RowBox[{"CM", "[",
, i& X9 q$ L1 S) l      RowBox[{"17", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
* r6 E& w( }$ j8 C0 I6 K      RowBox[{"17", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
5 z: N( c2 R. s" d" v4 r0 ~      RowBox[{"17", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"17", ",", "4"}], "]"}], ",",
. V  \* s( N) t+ F5 v     RowBox[{"CM", "[",
  J% _8 w6 g, o5 `/ d3 X      RowBox[{"17", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"17", ",", "6"}], "]"}], ",",
( L0 A6 _- b7 l     RowBox[{"CM", "[",
      RowBox[{"17", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
5 }" r- V; j0 a; ~      RowBox[{"17", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"17", ",", "9"}], "]"}]}], "}"}], ",",
, m# u- p2 q+ F( m   RowBox[{"{",
    RowBox[{
     RowBox[{"CM", "[",
! |+ W$ K) T9 K8 r% k' D8 V* \      RowBox[{"18", ",", "1"}], "]"}], ",",
' B. P" u2 @; \, H* _0 n     RowBox[{"CM", "[",
      RowBox[{"18", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
) B6 F7 O) ^" l, d# O4 @) x      RowBox[{"18", ",", "3"}], "]"}], ",",
  Y$ m4 l8 S# D! R3 U     RowBox[{"CM", "[",
; F& t! q* p, O) P5 |      RowBox[{"18", ",", "4"}], "]"}], ",",
$ z6 v0 H; c9 f/ w, O     RowBox[{"CM", "[",
      RowBox[{"18", ",", "5"}], "]"}], ",",
$ x7 q9 ^3 P7 ]4 A! }. e: r     RowBox[{"CM", "[",
      RowBox[{"18", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"18", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"18", ",", "8"}], "]"}], ",",
+ u/ g; ]3 C2 Q* m' @' I* Y     RowBox[{"CM", "[",
      RowBox[{"18", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
) f) f" N8 l9 B) K  U    RowBox[{
' ~2 Z: L4 H! X$ H0 e     RowBox[{"CM", "[",
# |6 Z/ a1 l& T7 x% a! x      RowBox[{"19", ",", "1"}], "]"}], ",",
( \( G- A/ |% e: f7 m6 @     RowBox[{"CM", "[",
      RowBox[{"19", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
5 E" X! f6 l/ ?( M: [      RowBox[{"19", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"19", ",", "4"}], "]"}], ",",
* J9 R0 ~9 b) v     RowBox[{"CM", "[",
$ K3 w8 P5 `3 {, n. e5 _      RowBox[{"19", ",", "5"}], "]"}], ",",
5 h2 B( f  K6 {     RowBox[{"CM", "[",
      RowBox[{"19", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"19", ",", "7"}], "]"}], ",",
- d2 h$ @# C1 Y2 j8 r: T0 @     RowBox[{"CM", "[",
      RowBox[{"19", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
- x- O8 s& H; M      RowBox[{"19", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
8 A" h' [4 Z- ~- N& i" e# f0 Y     RowBox[{"CM", "[",
9 M7 h; l7 q0 r! w      RowBox[{"20", ",", "1"}], "]"}], ",",
7 r4 p+ ]3 P6 T  c6 ^     RowBox[{"CM", "[",
0 x* \' Z* Q3 r# _) K7 L      RowBox[{"20", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"20", ",", "3"}], "]"}], ",",
4 n% e4 d6 R6 A! {+ {5 u     RowBox[{"CM", "[",
      RowBox[{"20", ",", "4"}], "]"}], ",",
0 m# u! M# `$ j  f, h4 S1 ]1 ^0 J     RowBox[{"CM", "[",
% Y5 t; x9 X0 q: A9 ?- E/ F2 k      RowBox[{"20", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
- O1 o3 O# c& f. {/ r( r+ y7 c      RowBox[{"20", ",", "6"}], "]"}], ",",
& q+ i  L2 L; i8 n! n+ S     RowBox[{"CM", "[",
, n: m8 @2 j3 ~& h8 ~! B% t' I      RowBox[{"20", ",", "7"}], "]"}], ",",
/ W- A) t# k1 T) I: S     RowBox[{"CM", "[",
- U8 |+ e) K2 B' ~# u      RowBox[{"20", ",", "8"}], "]"}], ",",
* }8 V9 Y: O, `4 v     RowBox[{"CM", "[",
$ g" O8 t7 h& }; n      RowBox[{"20", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
2 W( H' E; }( Q5 R  C, Z3 ]    RowBox[{
     RowBox[{"CM", "[",
6 b0 r. T" m; w      RowBox[{"21", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"21", ",", "2"}], "]"}], ",",
7 Q: d+ k# i! l3 h7 J     RowBox[{"CM", "[",
      RowBox[{"21", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"21", ",", "4"}], "]"}], ",",
. E/ `- k6 `) i# n( P     RowBox[{"CM", "[",
$ @% E7 g9 q" a. s& @' R      RowBox[{"21", ",", "5"}], "]"}], ",",
$ G" E5 d* S5 m, e' m     RowBox[{"CM", "[",
      RowBox[{"21", ",", "6"}], "]"}], ",",
5 y( G. }- k6 J% D; q. Y     RowBox[{"CM", "[",
      RowBox[{"21", ",", "7"}], "]"}], ",",
+ V& c8 G" \' V6 J. W     RowBox[{"CM", "[",
4 N& r! n6 V* ^" O) D4 N, O$ ~  Z      RowBox[{"21", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"21", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
/ Z' {0 T# M# B( o1 h    RowBox[{
     RowBox[{"CM", "[",
      RowBox[{"22", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"22", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"22", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
9 H. s1 }; M' I( i, D* d! `# m      RowBox[{"22", ",", "4"}], "]"}], ",",
% M0 o: V+ O! j% M4 h8 v3 N     RowBox[{"CM", "[",
! x) b! m0 m8 K: y4 C( s      RowBox[{"22", ",", "5"}], "]"}], ",",
! ]7 i1 K9 R5 I! E- D     RowBox[{"CM", "[",
      RowBox[{"22", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"22", ",", "7"}], "]"}], ",",
; r3 V" U; c4 O% w, ~7 J+ ~     RowBox[{"CM", "[",
      RowBox[{"22", ",", "8"}], "]"}], ",",
* \0 ]' L2 N$ W     RowBox[{"CM", "[",
      RowBox[{"22", ",", "9"}], "]"}]}], "}"}], ",",
" v5 C# W, f5 W6 K   RowBox[{"{",
, q2 l: h# g) I( ]$ S    RowBox[{
2 B' r- p4 K5 U: S" E$ b5 [     RowBox[{"CM", "[",
      RowBox[{"23", ",", "1"}], "]"}], ",",
2 U- M0 m; Y! u/ B* I     RowBox[{"CM", "[",
      RowBox[{"23", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
" z! ^* T& A8 i% `/ Q# T7 T# g      RowBox[{"23", ",", "3"}], "]"}], ",",
. T" \; F3 L# X/ I0 X     RowBox[{"CM", "[",
      RowBox[{"23", ",", "4"}], "]"}], ",",
. u& P% j$ m+ ?5 O3 e     RowBox[{"CM", "[",
      RowBox[{"23", ",", "5"}], "]"}], ",",
; |7 ?. z' l9 E! ^( I1 i     RowBox[{"CM", "[",
      RowBox[{"23", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"23", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
2 _; b! n* J' r! X/ d" J      RowBox[{"23", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"23", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
4 R; [/ a; r6 c0 r* S3 \) f    RowBox[{
+ u1 r2 C* c/ d. I; A- z     RowBox[{"CM", "[",
      RowBox[{"24", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"24", ",", "2"}], "]"}], ",",
6 k/ U; x6 ^! [2 m- p( Y. E* P& V     RowBox[{"CM", "[",
/ I& S3 F% Q) E6 Z      RowBox[{"24", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"24", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"24", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"24", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"24", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
% }1 N8 F; J. U. T5 w      RowBox[{"24", ",", "8"}], "]"}], ",",
6 {: X* C0 J. u8 L4 x     RowBox[{"CM", "[",
3 `7 L) ~$ x9 d      RowBox[{"24", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
4 w; Q" ]# ~3 C" {4 |# v$ X     RowBox[{"CM", "[",
9 f/ z6 j& g4 y" d      RowBox[{"25", ",", "1"}], "]"}], ",",
8 l0 n# O: F: q1 r& u" |& ]     RowBox[{"CM", "[",
      RowBox[{"25", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"25", ",", "3"}], "]"}], ",",
& W7 Y& {* Q8 g0 J% w+ N     RowBox[{"CM", "[",
9 G  h4 w; c6 ~' B5 ^* ~7 x; H% x      RowBox[{"25", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"25", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
. f% Z0 S4 l" a      RowBox[{"25", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
7 M3 j/ T" u; K" F5 Y. o      RowBox[{"25", ",", "7"}], "]"}], ",",
7 a, F, }8 O' G     RowBox[{"CM", "[",
  i% x5 K: B5 `! a      RowBox[{"25", ",", "8"}], "]"}], ",",
0 J7 |, O" s, Q/ e* i: Q+ K0 o     RowBox[{"CM", "[",
      RowBox[{"25", ",", "9"}], "]"}]}], "}"}], ",",
5 e( |" n3 T% E   RowBox[{"{",
    RowBox[{
     RowBox[{"CM", "[",
: e; V/ y# V8 I+ M& V      RowBox[{"26", ",", "1"}], "]"}], ",",
# U: I3 S& L. c' L$ s9 \% U     RowBox[{"CM", "[",
2 o8 y/ O9 @; v! E  P      RowBox[{"26", ",", "2"}], "]"}], ",",
. H. n2 e+ p/ l     RowBox[{"CM", "[",
- P" J, R' m" @& C      RowBox[{"26", ",", "3"}], "]"}], ",",
0 B, U# a: m) r' z     RowBox[{"CM", "[",
      RowBox[{"26", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"26", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
4 ]$ r/ {/ ]5 h8 p' R; o; r      RowBox[{"26", ",", "6"}], "]"}], ",",
3 c; S6 J2 I; w! E7 {     RowBox[{"CM", "[",
4 V6 p/ q2 C0 m3 e      RowBox[{"26", ",", "7"}], "]"}], ",",
/ p+ S  ^2 I( G) ?2 b     RowBox[{"CM", "[",
      RowBox[{"26", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
5 o5 U) v! S6 ?3 G  N      RowBox[{"26", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
$ D2 }. M- i' ?7 N, H, ~! b    RowBox[{
9 p' d0 E0 I6 a$ J3 ?* z     RowBox[{"CM", "[",
) o" s. u) c4 n1 X' B, f      RowBox[{"27", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
9 f3 O. [9 {( {5 h8 }      RowBox[{"27", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
4 e% v# P; u+ x5 x      RowBox[{"27", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"27", ",", "4"}], "]"}], ",",
: \0 Y  e# w: F1 V* `     RowBox[{"CM", "[",
+ C( v" h5 ]: I' z) X1 B1 W$ a      RowBox[{"27", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
- w3 E8 y! a/ w8 q      RowBox[{"27", ",", "6"}], "]"}], ",",
; ]" L, Z" A8 Z+ K     RowBox[{"CM", "[",
      RowBox[{"27", ",", "7"}], "]"}], ",",
- t5 X0 U. e4 W7 J( q     RowBox[{"CM", "[",
1 c9 `+ ~  A5 f' ?1 X. `6 m      RowBox[{"27", ",", "8"}], "]"}], ",",
3 S+ v0 s: ?& J8 f3 p     RowBox[{"CM", "[",
      RowBox[{"27", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
     RowBox[{"CM", "[",
& c" b" Q* B( f. M& g      RowBox[{"28", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
8 b7 b9 D: l$ C% [  C      RowBox[{"28", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
6 D. s9 @4 O4 y) g0 n3 G) F+ d. M      RowBox[{"28", ",", "3"}], "]"}], ",",
; g5 `& N) [4 C4 L; L     RowBox[{"CM", "[",
% q3 C: p* [- Q  c% ?" g9 p      RowBox[{"28", ",", "4"}], "]"}], ",",
8 P* Z& @8 x3 J     RowBox[{"CM", "[",
      RowBox[{"28", ",", "5"}], "]"}], ",",
. y2 ]6 |# @; n) F0 I6 q     RowBox[{"CM", "[",
3 }4 n9 B" U3 Q7 I2 S/ k0 w7 E5 @      RowBox[{"28", ",", "6"}], "]"}], ",",
8 L0 A" t: d' u+ u: {! _  L     RowBox[{"CM", "[",
      RowBox[{"28", ",", "7"}], "]"}], ",",
! W* I* [) J7 L  l2 |: Z5 H0 o     RowBox[{"CM", "[",
# v' b) M8 x1 G( ~% I      RowBox[{"28", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"28", ",", "9"}], "]"}]}], "}"}], ",",
! @& E( ?6 w/ l& G3 |! I) b& R- P   RowBox[{"{",
    RowBox[{
4 e$ Y( u# ?& R$ C) }- f- P     RowBox[{"CM", "[",
      RowBox[{"29", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
! m1 @. o" W8 K, ?' ?, Q/ x      RowBox[{"29", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"29", ",", "3"}], "]"}], ",",
/ w& E* p0 J6 g  X* z     RowBox[{"CM", "[",
      RowBox[{"29", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"29", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
* O5 C" Q# g- o& Y      RowBox[{"29", ",", "6"}], "]"}], ",",
& ?( Z  ^0 W# Z3 ^2 l* i/ t     RowBox[{"CM", "[",
      RowBox[{"29", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
4 y  H9 _2 T) M9 |. S4 R) z6 i      RowBox[{"29", ",", "8"}], "]"}], ",",
1 i1 M0 d2 e; J' q, h     RowBox[{"CM", "[",
& B' J* r9 j' w: W( g; d, U      RowBox[{"29", ",", "9"}], "]"}]}], "}"}], ",",
3 D; F3 Q. H+ H; \0 m4 B1 Z; g   RowBox[{"{",
    RowBox[{
3 B* {4 n/ {5 E( J5 _# v     RowBox[{"CM", "[",
: e& q' V+ S! d: `+ v8 s      RowBox[{"30", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"30", ",", "2"}], "]"}], ",",
: ~$ L) u. @. O0 q     RowBox[{"CM", "[",
      RowBox[{"30", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"30", ",", "4"}], "]"}], ",",
8 Z: g$ g2 P2 k$ B2 @. J5 h0 y     RowBox[{"CM", "[",
$ u5 b$ h0 S$ e- ?, b* L      RowBox[{"30", ",", "5"}], "]"}], ",",
  b/ V/ d* X) F% F* y     RowBox[{"CM", "[",
& g5 |6 L% M/ C  K$ l" h6 l      RowBox[{"30", ",", "6"}], "]"}], ",",
$ ^" G: u( \8 S2 y2 X& m+ Z     RowBox[{"CM", "[",
% J9 ]# t; y  A$ Q      RowBox[{"30", ",", "7"}], "]"}], ",",
/ J( D' Q0 i# }8 b4 G. D0 `. }! z! o5 G     RowBox[{"CM", "[",
      RowBox[{"30", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
% M* ]1 \% C/ R6 Q; H6 D( N% @      RowBox[{"30", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
     RowBox[{"CM", "[",
0 o% r: a4 Y9 a: j      RowBox[{"31", ",", "1"}], "]"}], ",",
  O/ k7 c: e* r' m! ]9 O2 h( ^3 h     RowBox[{"CM", "[",
      RowBox[{"31", ",", "2"}], "]"}], ",",
" t! o7 L6 [6 w7 ?4 q     RowBox[{"CM", "[",
      RowBox[{"31", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
3 s0 b) ~/ u; S  D8 P2 }      RowBox[{"31", ",", "4"}], "]"}], ",",
$ G' ]7 O2 A, `- W$ n! r     RowBox[{"CM", "[",
5 R/ q( d1 g% @1 ~' a      RowBox[{"31", ",", "5"}], "]"}], ",",
; R& t' m8 |' D$ H9 y     RowBox[{"CM", "[",
& `! K9 _5 P# P: P! A      RowBox[{"31", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"31", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"31", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"31", ",", "9"}], "]"}]}], "}"}], ",",
" U* K5 u. q) H7 K" Y   RowBox[{"{",
" P' H  u2 `3 m- _    RowBox[{
     RowBox[{"CM", "[",
% q6 b! X' L. u; Z4 J      RowBox[{"32", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
* v8 H3 i# `2 d( p' w0 l+ U      RowBox[{"32", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"32", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"32", ",", "4"}], "]"}], ",",
8 E/ Z: q- S  @+ x4 Q& q     RowBox[{"CM", "[",
# T+ x* g+ K3 i, K* d/ x      RowBox[{"32", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
& j/ d/ H  H# u/ g+ B  W- ^9 T      RowBox[{"32", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
8 C  X; ^: L3 w4 S+ Q9 {8 `      RowBox[{"32", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
" Y- x3 f! D. [% d5 a/ H      RowBox[{"32", ",", "8"}], "]"}], ",",
/ }6 I2 O/ `/ h+ _     RowBox[{"CM", "[",
      RowBox[{"32", ",", "9"}], "]"}]}], "}"}], ",",
& L$ Z( f8 Z/ F( d, b5 Z   RowBox[{"{",
    RowBox[{
     RowBox[{"CM", "[",
/ [" |; [6 L! X      RowBox[{"33", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
5 j6 ^+ K$ f0 U      RowBox[{"33", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"33", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
4 z0 C% t! n5 `. K, s; K7 K1 ^      RowBox[{"33", ",", "4"}], "]"}], ",",
* a1 i8 M  P; j( \     RowBox[{"CM", "[",
: }1 j# Q- l9 [      RowBox[{"33", ",", "5"}], "]"}], ",",
% k9 O. B! {  ?* v$ W7 G8 u     RowBox[{"CM", "[",
      RowBox[{"33", ",", "6"}], "]"}], ",",
$ K' O. B! q% E0 H' f" b& Q     RowBox[{"CM", "[",
8 o3 m. P0 A* O* G/ T/ T2 v      RowBox[{"33", ",", "7"}], "]"}], ",",
6 n. ?3 L. v! h. Z9 J: v     RowBox[{"CM", "[",
      RowBox[{"33", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
1 G# S/ e% ^( ~: r# y      RowBox[{"33", ",", "9"}], "]"}]}], "}"}], ",",
+ f; |3 A7 I4 ~7 O* H* j$ o# Q2 [   RowBox[{"{",
    RowBox[{
/ Y3 \7 v4 Z5 c9 v     RowBox[{"CM", "[",
3 z* u$ b5 p" z/ w6 A# ]" Y      RowBox[{"34", ",", "1"}], "]"}], ",",
6 H9 V: h! @5 H2 ~     RowBox[{"CM", "[",
# }3 b& a: ^+ h; T% Y* x+ e0 }5 V; u      RowBox[{"34", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"34", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
8 r/ H+ j2 s: b5 t2 x% S% _      RowBox[{"34", ",", "4"}], "]"}], ",",
; t* |& p: T6 c! y& Y4 M     RowBox[{"CM", "[",
) c$ k7 E7 o. B5 i      RowBox[{"34", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
; h/ m8 H% E$ r: s& ]( D9 w2 ?      RowBox[{"34", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"34", ",", "7"}], "]"}], ",",
" O5 p# {$ k' M& a6 E     RowBox[{"CM", "[",
      RowBox[{"34", ",", "8"}], "]"}], ",",
2 |5 L) S" q" p1 v) c: i: E- B* l     RowBox[{"CM", "[",
      RowBox[{"34", ",", "9"}], "]"}]}], "}"}], ",",
4 M7 j& ^2 O3 x$ l   RowBox[{"{",
    RowBox[{
     RowBox[{"CM", "[",
* `; K* A. y* e  Q, T5 W! I      RowBox[{"35", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
3 s1 M% r* }" o5 d$ Q/ d      RowBox[{"35", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"35", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
1 u$ t# p( K) G% r) M) a, V      RowBox[{"35", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
4 ]9 [0 @: o  [! b      RowBox[{"35", ",", "5"}], "]"}], ",",
& g: d4 p5 a3 M1 u/ M$ D     RowBox[{"CM", "[",
      RowBox[{"35", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"35", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
" [  }$ I" C. v6 @) G5 [! ~      RowBox[{"35", ",", "8"}], "]"}], ",",
) Y: Y/ j# M, N5 B- a' e. t     RowBox[{"CM", "[",
0 n, o( D0 B/ G7 b1 {: _. P      RowBox[{"35", ",", "9"}], "]"}]}], "}"}], ",",
- D; o0 C" s+ X. P" i! o3 c2 M/ b) ^   RowBox[{"{",
    RowBox[{
     RowBox[{"CM", "[",
1 ?: g/ a- o8 F4 W+ C/ A8 `      RowBox[{"36", ",", "1"}], "]"}], ",",
  o' y2 i$ _$ Z4 F7 p     RowBox[{"CM", "[",
      RowBox[{"36", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"36", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"36", ",", "4"}], "]"}], ",",
' X/ Z4 W( ^7 v2 h     RowBox[{"CM", "[",
      RowBox[{"36", ",", "5"}], "]"}], ",",
+ h& W1 u  G, `- j2 L     RowBox[{"CM", "[",
6 c1 I0 |8 h3 u/ F5 [6 }7 I$ i8 V      RowBox[{"36", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"36", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"36", ",", "8"}], "]"}], ",",
  |" i/ z5 l5 s! p     RowBox[{"CM", "[",
      RowBox[{"36", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
     RowBox[{"CM", "[",
      RowBox[{"37", ",", "1"}], "]"}], ",",
  R5 n* H& g5 Z9 P: M$ w2 p     RowBox[{"CM", "[",
      RowBox[{"37", ",", "2"}], "]"}], ",",
5 _- |6 }# V5 U/ s: `5 O     RowBox[{"CM", "[",
; W+ a% q" ~! b, }9 @      RowBox[{"37", ",", "3"}], "]"}], ",",
4 X8 w9 o' F  r6 M4 g4 Z     RowBox[{"CM", "[",
      RowBox[{"37", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
5 N8 \; C; b: D' o7 Z+ S2 U' P' R' ]0 m      RowBox[{"37", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"37", ",", "6"}], "]"}], ",",
" j8 L! K" S2 |# q     RowBox[{"CM", "[",
- W  `; s% k- `! d* P; B      RowBox[{"37", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"37", ",", "8"}], "]"}], ",",
1 A# B0 j) G3 x  \     RowBox[{"CM", "[",
      RowBox[{"37", ",", "9"}], "]"}]}], "}"}], ",",
8 |# |  W1 p) v! p* `   RowBox[{"{",
, U+ ?3 }1 k1 l$ k    RowBox[{
2 r3 ?  Z) G/ S- i6 i$ t     RowBox[{"CM", "[",
      RowBox[{"38", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
: ~  M: k/ I9 t3 ~9 P8 l7 A      RowBox[{"38", ",", "2"}], "]"}], ",",
. l# q8 W) n9 M/ k* w  X* K     RowBox[{"CM", "[",
5 W& D' y2 ?0 W3 h, P7 I: Z) H- e      RowBox[{"38", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
6 n9 V, j5 ]  @3 }3 ^      RowBox[{"38", ",", "4"}], "]"}], ",",
+ \  m% h& ~8 D3 [. G3 m6 r; ~+ V     RowBox[{"CM", "[",
      RowBox[{"38", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"38", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"38", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
% e2 x3 P3 r: A& J      RowBox[{"38", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
5 n6 v9 Q; T: c  N" t      RowBox[{"38", ",", "9"}], "]"}]}], "}"}], ",",
  g0 s0 D- k$ R  M  E   RowBox[{"{",
    RowBox[{
/ k1 j* Q- C( F, k& i) |3 |7 f, f     RowBox[{"CM", "[",
, z9 f( `# O- l% R- O      RowBox[{"39", ",", "1"}], "]"}], ",",
+ }! t, T7 `6 c' q0 r     RowBox[{"CM", "[",
% s  p8 C$ G4 @5 h8 _  f5 h      RowBox[{"39", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
# T3 B* u' Y2 S3 O) e      RowBox[{"39", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
9 B" W" j' K! S0 o      RowBox[{"39", ",", "4"}], "]"}], ",",
& m. P/ \$ l$ |  S0 U" r     RowBox[{"CM", "[",
( \2 ~7 i  c7 M# v) I; |  S      RowBox[{"39", ",", "5"}], "]"}], ",",
1 N6 n5 u, L* g1 Q  \     RowBox[{"CM", "[",
8 o6 _+ T5 X# Z5 X      RowBox[{"39", ",", "6"}], "]"}], ",",
* O: q. |' }' y     RowBox[{"CM", "[",
      RowBox[{"39", ",", "7"}], "]"}], ",",
& T, V& X2 h3 o9 ^; G3 y5 K     RowBox[{"CM", "[",
      RowBox[{"39", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
- `' {' m1 d+ c1 b      RowBox[{"39", ",", "9"}], "]"}]}], "}"}], ",",
( l6 W: U  I; r   RowBox[{"{",
# b1 T6 X6 }9 h. S* y" H5 Y    RowBox[{
) _- E, p  Z0 @! G! @     RowBox[{"CM", "[",
1 x" W8 W! r8 \* B/ F" T& I( m      RowBox[{"40", ",", "1"}], "]"}], ",",
# W- c/ b6 O7 n4 X, F! D" ]  X     RowBox[{"CM", "[",
, V, m4 P* E' ]  ^1 p6 F% ]5 {      RowBox[{"40", ",", "2"}], "]"}], ",",
( p' T3 h2 \  i/ J2 K# S* x3 H     RowBox[{"CM", "[",
      RowBox[{"40", ",", "3"}], "]"}], ",",
9 T) ^9 I& e- n% W- J5 u     RowBox[{"CM", "[",
# N/ F4 `: J) \      RowBox[{"40", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"40", ",", "5"}], "]"}], ",",
( n; E: M" ^$ I$ L$ B, e5 m     RowBox[{"CM", "[",
      RowBox[{"40", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"40", ",", "7"}], "]"}], ",",
) o- y  m& Y  B, G6 k: K2 |7 R3 r/ ~     RowBox[{"CM", "[",
7 C+ D" b8 z. q+ u/ k! E/ W      RowBox[{"40", ",", "8"}], "]"}], ",",
% d6 @4 y8 z' x. K# J7 `$ U; S     RowBox[{"CM", "[",
' d) I4 H6 R* L; ~) i3 m      RowBox[{"40", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
     RowBox[{"CM", "[",
      RowBox[{"41", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
1 y; x* ]2 w! Z1 b+ M      RowBox[{"41", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
; e1 _5 D+ d4 c0 e, V$ a      RowBox[{"41", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"41", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
) s5 c/ @) n: M6 d9 `  ^# |$ b      RowBox[{"41", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"41", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"41", ",", "7"}], "]"}], ",",
/ ]' A+ [) p6 B5 b8 z3 |6 m     RowBox[{"CM", "[",
      RowBox[{"41", ",", "8"}], "]"}], ",",
* u$ F. j+ y1 ~0 M* c     RowBox[{"CM", "[",
% j- ~$ x9 M2 k. _, d! s9 q5 d      RowBox[{"41", ",", "9"}], "]"}]}], "}"}], ",",
0 F7 A4 u( n1 U1 _; E. X, z' P! c   RowBox[{"{",
+ X2 c1 ?7 Y5 g) W2 _7 P0 O: |    RowBox[{
& G7 N- b5 E" O5 w2 i0 J     RowBox[{"CM", "[",
      RowBox[{"42", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"42", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
/ C) s' ^6 p$ N5 U      RowBox[{"42", ",", "3"}], "]"}], ",",
" d9 w0 b8 S- W, g     RowBox[{"CM", "[",
      RowBox[{"42", ",", "4"}], "]"}], ",",
# `0 |% p9 \" }2 J0 Y7 W; F  G     RowBox[{"CM", "[",
      RowBox[{"42", ",", "5"}], "]"}], ",",
3 D/ \! o  t" @" J) o+ w; c3 M     RowBox[{"CM", "[",
3 T" V5 ^7 g" l* [; C      RowBox[{"42", ",", "6"}], "]"}], ",",
& m4 }. P7 a) g* {: l- u, w     RowBox[{"CM", "[",
" O2 N  S  P2 N' i5 n7 ?      RowBox[{"42", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
& T; J- e7 ?7 X+ X; ~, D      RowBox[{"42", ",", "8"}], "]"}], ",",
9 U$ @/ a4 t( T     RowBox[{"CM", "[",
      RowBox[{"42", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
6 S6 [; \; w' t; |; s     RowBox[{"CM", "[",
      RowBox[{"43", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"43", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"43", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
- s8 Z3 L3 Y0 D- t% E( \6 N      RowBox[{"43", ",", "4"}], "]"}], ",",
7 v* |8 @7 t' P: \, n" g, n     RowBox[{"CM", "[",
% l- ~$ q; o* ~3 c. V9 q1 e* e: o; B5 M6 i      RowBox[{"43", ",", "5"}], "]"}], ",",
# ~$ n% A8 H6 i7 S5 O3 {     RowBox[{"CM", "[",
/ I" t5 b/ U' N. `3 `; A" `      RowBox[{"43", ",", "6"}], "]"}], ",",
  {* W% O8 ~/ ]2 k$ z1 ~2 J     RowBox[{"CM", "[",
      RowBox[{"43", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"43", ",", "8"}], "]"}], ",",
, Z- ^! f' t& ]9 o     RowBox[{"CM", "[",
8 W, i0 ?7 \- F6 m9 B- |( m/ @8 R      RowBox[{"43", ",", "9"}], "]"}]}], "}"}], ",",
3 U6 {5 I; {  `" O1 r9 n   RowBox[{"{",
' x' L2 Y3 _  J! L- e( C; @    RowBox[{
     RowBox[{"CM", "[",
9 r+ C' a7 Z- \      RowBox[{"44", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
' v# c5 d/ V8 K2 g3 K5 e      RowBox[{"44", ",", "2"}], "]"}], ",",
" d5 ?4 b% N& V0 S/ E! s     RowBox[{"CM", "[",
9 b( z6 q8 n& A/ \1 C) F. F" q$ w      RowBox[{"44", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
1 q* P' e0 q$ Y5 d( L      RowBox[{"44", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"44", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"44", ",", "6"}], "]"}], ",",
4 a/ ?7 X: G* V  l, v     RowBox[{"CM", "[",
      RowBox[{"44", ",", "7"}], "]"}], ",",
" s( c& N/ d! O) t! L& F5 O     RowBox[{"CM", "[",
- A% j, n4 x) ~5 S  d      RowBox[{"44", ",", "8"}], "]"}], ",",
+ Z! a& i4 c* V     RowBox[{"CM", "[",
& ^5 x3 \. @6 L0 t% d      RowBox[{"44", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
     RowBox[{"CM", "[",
      RowBox[{"45", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
  }7 \  H" l8 _# z& E      RowBox[{"45", ",", "2"}], "]"}], ",",
; i" v3 T1 L* ^0 y* z7 |2 P: [6 @1 `. E     RowBox[{"CM", "[",
      RowBox[{"45", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
; U9 N% a' s' D" u# Y      RowBox[{"45", ",", "4"}], "]"}], ",",
8 W6 d, \4 E; a     RowBox[{"CM", "[",
: {+ i- J: P+ T" J5 R      RowBox[{"45", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
# O7 n. O+ V# a; D  ]0 g' g      RowBox[{"45", ",", "6"}], "]"}], ",",
" c1 O( Z. r$ J, l- R$ K     RowBox[{"CM", "[",
      RowBox[{"45", ",", "7"}], "]"}], ",",
( Q% y" }/ x8 r9 ?- A6 @) _     RowBox[{"CM", "[",
      RowBox[{"45", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"45", ",", "9"}], "]"}]}], "}"}], ",",
  Z# |$ K* q$ t   RowBox[{"{",
& r& e- h& ~2 ~( g4 E    RowBox[{
     RowBox[{"CM", "[",
$ J* y. ~  V" V      RowBox[{"46", ",", "1"}], "]"}], ",",
* W# R5 i+ N- r     RowBox[{"CM", "[",
      RowBox[{"46", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"46", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
7 m, {% X! k# s- w0 f* B- h! H      RowBox[{"46", ",", "4"}], "]"}], ",",
7 ^) x, I+ z/ V+ N! T' o     RowBox[{"CM", "[",
      RowBox[{"46", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"46", ",", "6"}], "]"}], ",",
0 b- p, ?- X& z" X) Q7 L- s     RowBox[{"CM", "[",
      RowBox[{"46", ",", "7"}], "]"}], ",",
0 l8 d  Z! A% y: |     RowBox[{"CM", "[",
      RowBox[{"46", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"46", ",", "9"}], "]"}]}], "}"}], ",",
/ O" J* ]; `8 @   RowBox[{"{",
    RowBox[{
/ z5 {0 u& [; d+ _  g     RowBox[{"CM", "[",
      RowBox[{"47", ",", "1"}], "]"}], ",",
" @' b2 {7 p3 T0 N- A" f5 e  C     RowBox[{"CM", "[",
      RowBox[{"47", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"47", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
6 o0 ~# N8 G: f      RowBox[{"47", ",", "4"}], "]"}], ",",
. `- t2 t" ~2 z* @. d/ i& F+ f0 s     RowBox[{"CM", "[",
      RowBox[{"47", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"47", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"47", ",", "7"}], "]"}], ",",
' o( F1 }9 J; `, D% l     RowBox[{"CM", "[",
      RowBox[{"47", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"47", ",", "9"}], "]"}]}], "}"}], ",",
2 z! n; \, z3 M  [2 _   RowBox[{"{",
5 H% C" t  W6 S) m4 }    RowBox[{
! Z, s1 P5 ~0 ?6 y& D6 y     RowBox[{"CM", "[",
      RowBox[{"48", ",", "1"}], "]"}], ",",
+ @% f& U, P, x     RowBox[{"CM", "[",
      RowBox[{"48", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"48", ",", "3"}], "]"}], ",",
  }0 _# U) T) L% c: l     RowBox[{"CM", "[",
      RowBox[{"48", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"48", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"48", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"48", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"48", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
$ x' ]; t% E2 }6 d      RowBox[{"48", ",", "9"}], "]"}]}], "}"}], ",",
( e* f% [( f  S9 w9 S  H   RowBox[{"{",
( f9 D; I5 B0 d' l9 F/ H    RowBox[{
( ]* \$ k  `( _% U: V     RowBox[{"CM", "[",
6 e4 Z, m9 b0 k8 Q      RowBox[{"49", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"49", ",", "2"}], "]"}], ",",
" e+ \6 e/ K+ @     RowBox[{"CM", "[",
! N! F) C- q& U7 ], Z: z) S      RowBox[{"49", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
. l" c. Z- w, O& g      RowBox[{"49", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"49", ",", "5"}], "]"}], ",",
( h& Z$ F6 Q2 g( [) L/ z     RowBox[{"CM", "[",
      RowBox[{"49", ",", "6"}], "]"}], ",",
  {+ v) _. P, t1 X+ W4 T) x/ T" T     RowBox[{"CM", "[",
6 Z' z) h1 `) w9 m$ M$ D! P      RowBox[{"49", ",", "7"}], "]"}], ",",
2 p8 y* a, |( Z7 J, u0 C5 K     RowBox[{"CM", "[",
0 {7 W) _* O9 s# f# W7 v- v      RowBox[{"49", ",", "8"}], "]"}], ",",
1 Y; \# W! ?' i3 P: J     RowBox[{"CM", "[",
      RowBox[{"49", ",", "9"}], "]"}]}], "}"}], ",",
: p2 @) T8 B1 |2 G   RowBox[{"{",
    RowBox[{
& T6 |& U& L+ Z2 F4 m5 ^     RowBox[{"CM", "[",
  f! k. j$ f; e$ a# c; t      RowBox[{"50", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
) j3 g% q; l# z4 Z; Q) i1 Z: L! L      RowBox[{"50", ",", "2"}], "]"}], ",",
$ _1 ^) \' {1 c* Z; z$ R) K9 v     RowBox[{"CM", "[",
2 u" x) `5 }9 A3 n" ^4 e% H      RowBox[{"50", ",", "3"}], "]"}], ",",
, D# c$ x$ F# o& J4 C     RowBox[{"CM", "[",
      RowBox[{"50", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"50", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
5 Y5 v) }! W, L9 |  W1 B3 s" z7 @2 b      RowBox[{"50", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
* z4 t; x1 d& D' t+ y      RowBox[{"50", ",", "7"}], "]"}], ",",
0 h- E" R( {- q5 d$ |! ~/ ]     RowBox[{"CM", "[",
      RowBox[{"50", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
6 @5 F3 h' [" M      RowBox[{"50", ",", "9"}], "]"}]}], "}"}], ",",
- ?( o  \5 k/ X  G; N, i   RowBox[{"{",
    RowBox[{
. `/ r, L( ?; S; y     RowBox[{"CM", "[",
  C* y# x2 f, h! G0 w6 \- \      RowBox[{"51", ",", "1"}], "]"}], ",",
- o7 E3 G* Y; L) }( U6 E& m     RowBox[{"CM", "[",
, f! z, d, |" ^- p9 x) |      RowBox[{"51", ",", "2"}], "]"}], ",",
6 I0 r) a1 k# A" a     RowBox[{"CM", "[",
      RowBox[{"51", ",", "3"}], "]"}], ",",
8 o3 W8 B0 y7 E. O4 j     RowBox[{"CM", "[",
      RowBox[{"51", ",", "4"}], "]"}], ",",
5 d" r- C/ R( i/ `* Y     RowBox[{"CM", "[",
      RowBox[{"51", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
) i- J$ ?% e! x$ {      RowBox[{"51", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
2 g) m. F7 ?0 w& Z7 B) r      RowBox[{"51", ",", "7"}], "]"}], ",",
) X* g) U$ {7 i5 |1 a; \) l$ k; _( i     RowBox[{"CM", "[",
      RowBox[{"51", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
) c( i4 {& u) _5 N# w      RowBox[{"51", ",", "9"}], "]"}]}], "}"}], ",",
; M* ]! k' G# F) r/ n( K7 G   RowBox[{"{",
    RowBox[{
. ?' t* i3 n8 _1 ~9 N# W     RowBox[{"CM", "[",
      RowBox[{"52", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
/ V% z/ ?+ ~. A6 y      RowBox[{"52", ",", "2"}], "]"}], ",",
; \' A; W+ J0 ^4 |  g     RowBox[{"CM", "[",
      RowBox[{"52", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"52", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
6 Y, k% j3 o2 p5 ^8 a' t6 I3 ~0 z      RowBox[{"52", ",", "5"}], "]"}], ",",
& ?7 t; D' i& S: a     RowBox[{"CM", "[",
      RowBox[{"52", ",", "6"}], "]"}], ",",
9 H( r0 @: [/ {. _' L) ]     RowBox[{"CM", "[",
+ v7 ]/ n( S( w! O; X$ Z1 M      RowBox[{"52", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
1 p+ b5 g9 {9 N3 X+ Q' D      RowBox[{"52", ",", "8"}], "]"}], ",",
: {  _1 b) q# b1 P4 r: `$ }& `& e     RowBox[{"CM", "[",
3 r9 E4 B( t" W, r1 Q6 c      RowBox[{"52", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
     RowBox[{"CM", "[",
8 q' E: M: X9 H9 _% R6 u% i) e      RowBox[{"53", ",", "1"}], "]"}], ",",
- b  A6 [& p5 m5 w+ C( a% k     RowBox[{"CM", "[",
      RowBox[{"53", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
( w& K7 ?4 {! i9 v" g      RowBox[{"53", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"53", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"53", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
. g. z5 m# l+ d9 X      RowBox[{"53", ",", "6"}], "]"}], ",",
0 _; Z3 P, e$ t/ r) j+ B     RowBox[{"CM", "[",
$ C4 o3 R' b( X# ]8 k      RowBox[{"53", ",", "7"}], "]"}], ",",
4 K( R8 u! G) e% P     RowBox[{"CM", "[",
5 I( }' p) L4 v! z      RowBox[{"53", ",", "8"}], "]"}], ",",
/ ~' g% R8 x0 Y$ B; I+ R9 g; Q) A     RowBox[{"CM", "[",
, X% T) {' O$ c4 D6 _7 v; q      RowBox[{"53", ",", "9"}], "]"}]}], "}"}], ",",
, z+ X7 n3 d3 B3 @& p- E   RowBox[{"{",
9 d+ a. O, I7 z8 S0 D    RowBox[{
     RowBox[{"CM", "[",
) {: H6 O( J7 n- G  f6 Z      RowBox[{"54", ",", "1"}], "]"}], ",",
% z5 ~, e0 @: `, f5 h9 D     RowBox[{"CM", "[",
" C! g* r  Y3 k$ g      RowBox[{"54", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
  X$ z6 X2 H. h# D! k) a      RowBox[{"54", ",", "3"}], "]"}], ",",
: `  w4 S4 U) P5 K" S" o& a     RowBox[{"CM", "[",
/ Q! i/ ~* b+ M% A7 I, Q      RowBox[{"54", ",", "4"}], "]"}], ",",
% c7 W8 k3 F4 C% a9 q+ p2 g     RowBox[{"CM", "[",
      RowBox[{"54", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"54", ",", "6"}], "]"}], ",",
/ S* H$ I) c, O& A3 [1 |- I     RowBox[{"CM", "[",
+ d% A0 ~; o4 Q  a# R# _. U      RowBox[{"54", ",", "7"}], "]"}], ",",
1 M  v0 U% O4 K' |6 q     RowBox[{"CM", "[",
/ I( L/ @) q* Y2 G! K2 S/ E- Z      RowBox[{"54", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
! P, O0 c0 w( V( l; c4 t  M: v# E      RowBox[{"54", ",", "9"}], "]"}]}], "}"}], ",",
* l2 d8 O' v4 \   RowBox[{"{",
6 p1 F! Q& m; _2 m* S    RowBox[{
     RowBox[{"CM", "[",
) ]" P9 J3 v; e9 p      RowBox[{"55", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"55", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
- N9 S) W2 \$ y0 N: w+ p      RowBox[{"55", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
% V4 E( N  t1 f+ s: Y/ F      RowBox[{"55", ",", "4"}], "]"}], ",",
( j, N4 K' M. T     RowBox[{"CM", "[",
      RowBox[{"55", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
# T2 _$ {) H0 H: e. N$ t/ w      RowBox[{"55", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
- e% n3 J0 ~4 ^- P- |$ Q/ T5 g      RowBox[{"55", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
- _6 j+ Q, j: Q! c' s8 G      RowBox[{"55", ",", "8"}], "]"}], ",",
. H. F% V/ j: _+ x; e2 I5 m+ |     RowBox[{"CM", "[",
5 V) W! I3 [$ P$ h; u+ p! V1 q      RowBox[{"55", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
& K+ @3 T  ^/ }9 `8 f     RowBox[{"CM", "[",
      RowBox[{"56", ",", "1"}], "]"}], ",",
" |3 A* J" g, u     RowBox[{"CM", "[",
      RowBox[{"56", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"56", ",", "3"}], "]"}], ",",
& X2 D- W- `+ H0 q1 V3 ^+ X5 l* S: M     RowBox[{"CM", "[",
      RowBox[{"56", ",", "4"}], "]"}], ",",
. P) r' y4 X/ s# z; O4 j1 H     RowBox[{"CM", "[",
      RowBox[{"56", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"56", ",", "6"}], "]"}], ",",
. y# B/ J: r! N3 O     RowBox[{"CM", "[",
& v0 Y. S8 U5 l- M. L      RowBox[{"56", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
, p  J3 D/ G5 |" |2 h; g4 M      RowBox[{"56", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
, O9 {8 @% l* o+ m      RowBox[{"56", ",", "9"}], "]"}]}], "}"}], ",",
4 v. A3 b, U/ [4 a   RowBox[{"{",
    RowBox[{
     RowBox[{"CM", "[",
' K/ h/ }6 a# M: t7 q# o      RowBox[{"57", ",", "1"}], "]"}], ",",
$ M# u- v$ c+ Q' U/ i- ^     RowBox[{"CM", "[",
7 a+ O( Z, Z; m2 I) |8 ~2 l  n      RowBox[{"57", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"57", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
  e/ P: ]7 L# j" s5 i      RowBox[{"57", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"57", ",", "5"}], "]"}], ",",
, D; r4 d, }" n  P% |5 S     RowBox[{"CM", "[",
      RowBox[{"57", ",", "6"}], "]"}], ",",
' B% c3 p7 `) U! o     RowBox[{"CM", "[",
. W9 J7 ~& M* H* F      RowBox[{"57", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
3 X# V9 @* L4 O1 Z      RowBox[{"57", ",", "8"}], "]"}], ",",
/ l, p4 o0 k* n! l! a* }4 N: ^     RowBox[{"CM", "[",
3 B9 D: b  b& E      RowBox[{"57", ",", "9"}], "]"}]}], "}"}], ",",
! `( \* u# n2 {. d+ Q  ?8 b7 ]   RowBox[{"{",
* l& x- v. [0 N2 B8 f0 t6 @    RowBox[{
  q- p6 H. _% M+ d     RowBox[{"CM", "[",
      RowBox[{"58", ",", "1"}], "]"}], ",",
6 Y  I. s2 j" k" G: n& G     RowBox[{"CM", "[",
      RowBox[{"58", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
8 I5 Z& j8 o3 w& n' L) }0 Z      RowBox[{"58", ",", "3"}], "]"}], ",",
& H8 ?0 x  v% Y     RowBox[{"CM", "[",
      RowBox[{"58", ",", "4"}], "]"}], ",",
( |7 R: V! k1 H% f; K- K' J     RowBox[{"CM", "[",
      RowBox[{"58", ",", "5"}], "]"}], ",",
2 G% I; Y* s6 u( q6 M8 C  X     RowBox[{"CM", "[",
3 M! o2 @5 E! \: k  z      RowBox[{"58", ",", "6"}], "]"}], ",",
, i4 K" y+ G, m- p+ U     RowBox[{"CM", "[",
: g5 `' a1 Y4 Q/ M# w/ E      RowBox[{"58", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
6 A8 R8 V8 e8 Y. h* z      RowBox[{"58", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"58", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
7 b7 n" n2 Z) r) c    RowBox[{
, |) J' z% M2 B  A0 g# ~& D) B     RowBox[{"CM", "[",
      RowBox[{"59", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"59", ",", "2"}], "]"}], ",",
4 R# v9 \! t1 b9 J     RowBox[{"CM", "[",
3 ^4 F; |+ P2 ?9 q      RowBox[{"59", ",", "3"}], "]"}], ",",
$ ]9 ]% y3 l/ j     RowBox[{"CM", "[",
      RowBox[{"59", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
. z- R5 y" z& y( Y      RowBox[{"59", ",", "5"}], "]"}], ",",
% y: Q, J! J# ^) P0 Z* W" Y/ z     RowBox[{"CM", "[",
      RowBox[{"59", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
% U- V" R) m/ L# P" G+ Y) L0 t      RowBox[{"59", ",", "7"}], "]"}], ",",
" \  h1 f1 A! b     RowBox[{"CM", "[",
) Q' u8 l0 r: c; _/ H2 ]      RowBox[{"59", ",", "8"}], "]"}], ",",
6 S1 p1 ~9 U, F4 L' u& i$ t     RowBox[{"CM", "[",
+ z; N9 C. \! p; ]      RowBox[{"59", ",", "9"}], "]"}]}], "}"}], ",",
7 v3 F0 g2 ^" X1 ^7 q( n   RowBox[{"{",
    RowBox[{
* u# {# a' J6 e- v+ c- q- G4 S     RowBox[{"CM", "[",
      RowBox[{"60", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"60", ",", "2"}], "]"}], ",",
7 j! b; F, i- c- _     RowBox[{"CM", "[",
' }' s% @! e) r& x      RowBox[{"60", ",", "3"}], "]"}], ",",
% E' i1 |, E- E# A) ^' J2 {2 d7 `) m     RowBox[{"CM", "[",
4 F9 Y7 V1 B1 a8 r      RowBox[{"60", ",", "4"}], "]"}], ",",
% R/ V% ]6 E) v4 F2 q3 K     RowBox[{"CM", "[",
" O. r2 Q& y% f% E* j( a# l      RowBox[{"60", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
% I8 b+ ]% b1 n0 B; n      RowBox[{"60", ",", "6"}], "]"}], ",",
, B/ K6 G3 W9 V/ _; ]8 E3 v     RowBox[{"CM", "[",
4 S( n/ ~4 j+ Z/ V5 r1 P: u      RowBox[{"60", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
7 P0 x4 X) i) ?& `      RowBox[{"60", ",", "8"}], "]"}], ",",
; e' p! Y4 \. c  s0 I2 T     RowBox[{"CM", "[",
( Y" l( h* ]4 u' O1 f" r' d: Z      RowBox[{"60", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
) V4 L( o9 t* L$ |    RowBox[{
! d9 H& ?2 L) Z, M" ]: O& i6 ]" v     RowBox[{"CM", "[",
. J# t5 K0 y/ B* Z* J2 c2 V# Z      RowBox[{"61", ",", "1"}], "]"}], ",",
0 r4 y* L2 w. Q, {$ b! W: R     RowBox[{"CM", "[",
) l; w2 a8 a5 Z) a& o; l      RowBox[{"61", ",", "2"}], "]"}], ",",
1 a( r1 E- T$ |: k8 _+ G- f     RowBox[{"CM", "[",
7 a. ~% _$ A2 P# ]) u/ e* [      RowBox[{"61", ",", "3"}], "]"}], ",",
# [* G. \5 v6 ^7 y" a     RowBox[{"CM", "[",
      RowBox[{"61", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
- j& Y  J1 i' H6 G7 M; h      RowBox[{"61", ",", "5"}], "]"}], ",",
% L$ P: n* l9 t5 {! Y$ q     RowBox[{"CM", "[",
) E: v* m$ m+ Q' {- o# z, M      RowBox[{"61", ",", "6"}], "]"}], ",",
& Y$ ~% s, H! M6 R. g     RowBox[{"CM", "[",
      RowBox[{"61", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
; C, T5 V% H7 {! p      RowBox[{"61", ",", "8"}], "]"}], ",",
( X4 c6 ]: x# ?' d6 J     RowBox[{"CM", "[",
& v8 I$ R/ I; [) [6 \      RowBox[{"61", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
8 u$ W" Q6 F: [    RowBox[{
8 g5 M, l% C; D6 B     RowBox[{"CM", "[",
      RowBox[{"62", ",", "1"}], "]"}], ",",
3 C7 K2 j3 e& D; ?- M+ Y3 n$ Y6 F     RowBox[{"CM", "[",
4 R8 E. `1 o% A$ d      RowBox[{"62", ",", "2"}], "]"}], ",",
& N; o. l) c, J; @     RowBox[{"CM", "[",
      RowBox[{"62", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
9 f8 M2 E) V$ J      RowBox[{"62", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
% L& i6 o0 S4 s' j9 ~/ r      RowBox[{"62", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"62", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"62", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"62", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
: n. ]" U- c# ~$ C7 ]5 i, \      RowBox[{"62", ",", "9"}], "]"}]}], "}"}], ",",
! X( f6 H/ r- G( r   RowBox[{"{",
5 H8 q. l2 A: P! Z, P! ]    RowBox[{
% S' S8 z, p2 O1 C     RowBox[{"CM", "[",
      RowBox[{"63", ",", "1"}], "]"}], ",",
* a4 W& x9 w  ?) D( P  F: j     RowBox[{"CM", "[",
2 |& b' k/ r0 [5 M6 V      RowBox[{"63", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
6 d! |2 ~  y4 `      RowBox[{"63", ",", "3"}], "]"}], ",",
& A' u  ?% M/ @     RowBox[{"CM", "[",
      RowBox[{"63", ",", "4"}], "]"}], ",",
3 m+ Z/ k0 c2 @4 U9 H. J     RowBox[{"CM", "[",
7 V/ s3 C9 v6 N! N) q      RowBox[{"63", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
, b: q- Z3 i! Q, Q# L  o  {      RowBox[{"63", ",", "6"}], "]"}], ",",
0 q3 |; I! ]8 i4 ?  g     RowBox[{"CM", "[",
9 W' ?% }) p: G8 A( g      RowBox[{"63", ",", "7"}], "]"}], ",",
' U7 i. L) X! j/ K9 |     RowBox[{"CM", "[",
1 n0 K4 v# E( v( ]' q      RowBox[{"63", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"63", ",", "9"}], "]"}]}], "}"}], ",",
: @: X+ K% ]) d' q/ g   RowBox[{"{",
2 P# k3 ~/ n, m- B/ ~, A# m( K' H    RowBox[{
     RowBox[{"CM", "[",
1 j7 d0 i6 j& o4 Y      RowBox[{"64", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
) I3 W5 Y  d9 `9 v      RowBox[{"64", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
9 i8 g) N* T9 ?6 l2 d9 B5 ?( n      RowBox[{"64", ",", "3"}], "]"}], ",",
  c' c" i' v2 f     RowBox[{"CM", "[",
0 x; p% a6 Q' @: w) t      RowBox[{"64", ",", "4"}], "]"}], ",",
# u" S; M4 n1 H- y8 v; ]     RowBox[{"CM", "[",
) w0 e# M1 }! I4 p, T; W* m& S      RowBox[{"64", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
3 ]; ^6 [8 o4 C7 ?1 D2 G      RowBox[{"64", ",", "6"}], "]"}], ",",
+ A3 p* O2 d$ W' U' j9 m     RowBox[{"CM", "[",
      RowBox[{"64", ",", "7"}], "]"}], ",",
0 w/ l( M: D0 b3 N  O     RowBox[{"CM", "[",
, C3 y  ~8 X' {0 M/ `3 f# \) [      RowBox[{"64", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"64", ",", "9"}], "]"}]}], "}"}], ",",
" O/ P* q' ?- s   RowBox[{"{",
    RowBox[{
: d2 N7 ^( H* Q8 @2 R     RowBox[{"CM", "[",
      RowBox[{"65", ",", "1"}], "]"}], ",",
- C" p# u4 r) K! |     RowBox[{"CM", "[",
      RowBox[{"65", ",", "2"}], "]"}], ",",
  K: w+ a7 G' R! Z9 b/ c     RowBox[{"CM", "[",
      RowBox[{"65", ",", "3"}], "]"}], ",",
) S6 n% S$ Z# \" l1 @2 H     RowBox[{"CM", "[",
" X" e2 E/ v5 M. D0 [) ]; m      RowBox[{"65", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"65", ",", "5"}], "]"}], ",",
) D- A0 n8 v- |4 q, i0 W" o! r1 s     RowBox[{"CM", "[",
      RowBox[{"65", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"65", ",", "7"}], "]"}], ",",
' b) l4 W4 ~6 ~5 l6 v, e4 c     RowBox[{"CM", "[",
      RowBox[{"65", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
2 c4 k+ N; J! U* b9 i5 h& Z' a  h      RowBox[{"65", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
" [+ n0 c( S! P% k    RowBox[{
. ^- j; P. }* h( r3 r1 y* g     RowBox[{"CM", "[",
      RowBox[{"66", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"66", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
! ~! I# l- B5 M! T) Q9 ]      RowBox[{"66", ",", "3"}], "]"}], ",",
- a1 _# r+ [# i/ ]7 T$ ~% N! W5 p5 G     RowBox[{"CM", "[",
      RowBox[{"66", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"66", ",", "5"}], "]"}], ",",
/ O! T' w2 k4 f' f& {! [     RowBox[{"CM", "[",
' ^! q3 n$ ^/ k      RowBox[{"66", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"66", ",", "7"}], "]"}], ",",
. q" r4 i- Z" [& B     RowBox[{"CM", "[",
) _3 ]. Q# f, U1 D; k% [( V$ z      RowBox[{"66", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"66", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
8 F+ I; H1 m& o$ Z- ^    RowBox[{
     RowBox[{"CM", "[",
/ L4 X  C4 f' c- k, q/ o% |: a      RowBox[{"67", ",", "1"}], "]"}], ",",
! _. j" N) J* Y, X' ~' ?     RowBox[{"CM", "[",
8 |& a0 f: E4 I8 D9 J  P6 C      RowBox[{"67", ",", "2"}], "]"}], ",",
; t' z* ]3 [. G& ]2 z     RowBox[{"CM", "[",
      RowBox[{"67", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"67", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"67", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
: K* O9 A; @, ]3 Y: z$ Q1 h      RowBox[{"67", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"67", ",", "7"}], "]"}], ",",
) J: r& `4 F3 [! x: q6 L     RowBox[{"CM", "[",
% @3 Z* S8 ]* A$ v( `      RowBox[{"67", ",", "8"}], "]"}], ",",
# K& W2 u% G$ |7 ~1 F& I0 |3 q: V# _     RowBox[{"CM", "[",
& I! h6 l1 t3 w      RowBox[{"67", ",", "9"}], "]"}]}], "}"}], ",",
) B; r; r8 B3 e) O, \   RowBox[{"{",
6 a5 ~# W" n. \6 o: J2 Y    RowBox[{
     RowBox[{"CM", "[",
      RowBox[{"68", ",", "1"}], "]"}], ",",
+ h; u' _/ N$ Z( w; l2 h     RowBox[{"CM", "[",
* I6 ^( C% L  V$ A      RowBox[{"68", ",", "2"}], "]"}], ",",
8 p# @+ {2 W" o9 o" _' ]! Q     RowBox[{"CM", "[",
) Q( J4 b$ t( d9 r      RowBox[{"68", ",", "3"}], "]"}], ",",
& D2 Z, w0 Y% h& p6 b  i' m7 y     RowBox[{"CM", "[",
. C. q$ l$ k9 ~, ?7 A! ~6 A      RowBox[{"68", ",", "4"}], "]"}], ",",
" y3 S# z3 C* d7 v, u" n1 p     RowBox[{"CM", "[",
7 l- x( @# G* i' x+ J      RowBox[{"68", ",", "5"}], "]"}], ",",
5 @" K) ^) b6 T2 x/ G     RowBox[{"CM", "[",
% K) R3 G% Z! E. e      RowBox[{"68", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
( ]5 g* ]4 ~$ r& R- w      RowBox[{"68", ",", "7"}], "]"}], ",",
$ q/ K& e& `" K4 _; H8 A* Y$ h     RowBox[{"CM", "[",
4 p* }! v4 B& @* A) z      RowBox[{"68", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
2 Y; o2 i& r  q- m      RowBox[{"68", ",", "9"}], "]"}]}], "}"}], ",",
: V  Z3 a/ W: r/ H   RowBox[{"{",
9 u0 V) ^( V9 ?: F7 a) Q    RowBox[{
9 v, C( y9 r3 B& H/ d, j     RowBox[{"CM", "[",
      RowBox[{"69", ",", "1"}], "]"}], ",",
! U: [1 O% l, v* A) t     RowBox[{"CM", "[",
      RowBox[{"69", ",", "2"}], "]"}], ",",
5 |1 k4 F& J* Z& u: @     RowBox[{"CM", "[",
      RowBox[{"69", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"69", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"69", ",", "5"}], "]"}], ",",
7 v& \6 c5 N  Z% O8 v     RowBox[{"CM", "[",
3 G, {: v" @1 q! a3 V      RowBox[{"69", ",", "6"}], "]"}], ",",
9 ]" b1 a* r! n- V, s     RowBox[{"CM", "[",
$ K7 g1 [2 H$ M      RowBox[{"69", ",", "7"}], "]"}], ",",
- k/ ^! \4 l! s" ?+ f     RowBox[{"CM", "[",
5 y/ f  I. Q, C$ F0 k/ |  I      RowBox[{"69", ",", "8"}], "]"}], ",",
4 l7 ~- R% m+ \" u" @6 g     RowBox[{"CM", "[",
      RowBox[{"69", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
     RowBox[{"CM", "[",
: \2 ]6 F: E" g9 ]5 T9 e+ J" y! P      RowBox[{"70", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"70", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
* H, y* T; C- Y3 k      RowBox[{"70", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
0 g  d) b: P8 v* }5 K      RowBox[{"70", ",", "4"}], "]"}], ",",
3 l/ n0 M! g! T$ Q. f" l; k     RowBox[{"CM", "[",
. d0 S, W, t7 A1 a: c( V      RowBox[{"70", ",", "5"}], "]"}], ",",
& }1 n8 b, O0 p  ?     RowBox[{"CM", "[",
      RowBox[{"70", ",", "6"}], "]"}], ",",
+ |) K& W5 F! G7 F- h# q/ _! y     RowBox[{"CM", "[",
. X$ D, k9 }: N/ N( w      RowBox[{"70", ",", "7"}], "]"}], ",",
3 [- p& n) m. E7 ?     RowBox[{"CM", "[",
. m2 E6 E) q) W$ q+ a. k7 O      RowBox[{"70", ",", "8"}], "]"}], ",",
2 }! D/ z' Q3 N% c3 j     RowBox[{"CM", "[",
5 Z5 v( W+ p2 C! g* O! L! g      RowBox[{"70", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
4 L# `" _( e7 O     RowBox[{"CM", "[",
      RowBox[{"71", ",", "1"}], "]"}], ",",
+ c/ K0 H0 }, c; w# p     RowBox[{"CM", "[",
      RowBox[{"71", ",", "2"}], "]"}], ",",
% H2 W: C; Z+ C/ m0 w+ |# T+ P4 N     RowBox[{"CM", "[",
      RowBox[{"71", ",", "3"}], "]"}], ",",
; E. U7 A  P5 C3 K     RowBox[{"CM", "[",
      RowBox[{"71", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"71", ",", "5"}], "]"}], ",",
' b! D8 D# i; q0 e9 g* h     RowBox[{"CM", "[",
      RowBox[{"71", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"71", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
2 G8 S5 k5 A* i* Z% ?8 a      RowBox[{"71", ",", "8"}], "]"}], ",",
( y4 z) E$ u* r' s  d$ b* x4 j& j6 p     RowBox[{"CM", "[",
      RowBox[{"71", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
% P) W) n+ h/ v& G8 b' }. d! I6 I    RowBox[{
     RowBox[{"CM", "[",
! Y: L& b. I! |5 ~+ @      RowBox[{"72", ",", "1"}], "]"}], ",",
; e5 Y: M& D  R! o     RowBox[{"CM", "[",
- j- H3 k$ Q1 y4 k. V7 d! [      RowBox[{"72", ",", "2"}], "]"}], ",",
/ ?; f( \" c: Z     RowBox[{"CM", "[",
: x2 |# G. r2 V7 C- q$ r% o      RowBox[{"72", ",", "3"}], "]"}], ",",
$ X# D$ }9 L: T; W1 J6 Y/ \7 ?     RowBox[{"CM", "[",
      RowBox[{"72", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
# l. H' f. {) q+ r& l2 K      RowBox[{"72", ",", "5"}], "]"}], ",",
5 ^' n- Z3 q8 E1 m0 ^     RowBox[{"CM", "[",
      RowBox[{"72", ",", "6"}], "]"}], ",",
4 K, D2 |8 _# ~0 V     RowBox[{"CM", "[",
      RowBox[{"72", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"72", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
; i* ~* [2 W6 r+ _      RowBox[{"72", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
3 g) c3 m! V, z     RowBox[{"CM", "[",
1 ?0 I) d( x. K2 ~0 x      RowBox[{"73", ",", "1"}], "]"}], ",",
1 s% o# V+ J- J6 Q% w( h     RowBox[{"CM", "[",
      RowBox[{"73", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
$ W" b2 @' y) C4 p9 x0 M      RowBox[{"73", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
2 R8 v3 u) l7 D      RowBox[{"73", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
' ?1 x: H/ p. f2 I3 B9 ^$ J      RowBox[{"73", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
" i( a! v9 u) K, d1 `9 T, [      RowBox[{"73", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"73", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
0 p+ k9 j) c2 E& I' M# @4 c0 u& s3 c$ c      RowBox[{"73", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"73", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
    RowBox[{
     RowBox[{"CM", "[",
: m/ B6 f; z. X5 I% t- J& C( y      RowBox[{"74", ",", "1"}], "]"}], ",",
5 O$ r: \3 S  i) p7 r     RowBox[{"CM", "[",
) l0 ~% C6 E$ p( `      RowBox[{"74", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"74", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"74", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"74", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
+ v; A- O. `& E6 d" U6 X" I      RowBox[{"74", ",", "6"}], "]"}], ",",
4 q- q3 ?$ E6 v0 Z% ^! V; k. P     RowBox[{"CM", "[",
, O: k( c) j  Y: \      RowBox[{"74", ",", "7"}], "]"}], ",",
0 R$ T" [& c% L9 c4 O     RowBox[{"CM", "[",
' k+ O0 v- I& w9 Z7 @! a7 |      RowBox[{"74", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
* H, y4 Q/ A/ r) c2 _7 {, ~. H- J      RowBox[{"74", ",", "9"}], "]"}]}], "}"}], ",",
9 T6 P2 ]7 T  [   RowBox[{"{",
    RowBox[{
     RowBox[{"CM", "[",
9 K9 h3 ^  k& y7 N2 z      RowBox[{"75", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"75", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"75", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
4 Z6 _4 `' i6 }! c0 A: ~( z& C      RowBox[{"75", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
* k; c1 l& i0 \4 ~      RowBox[{"75", ",", "5"}], "]"}], ",",
' |) m3 D4 i4 G9 o. f; X- B     RowBox[{"CM", "[",
4 N) [5 z" j# m! f. ?      RowBox[{"75", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"75", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
1 E5 m/ h' J& G. w& T; \! Z      RowBox[{"75", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"75", ",", "9"}], "]"}]}], "}"}], ",",
# ^4 x7 d2 V  T' ^   RowBox[{"{",
    RowBox[{
4 o5 B2 P/ {$ J: h+ R     RowBox[{"CM", "[",
      RowBox[{"76", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"76", ",", "2"}], "]"}], ",",
) m. J& x, a/ W     RowBox[{"CM", "[",
" ^, Q8 Z! B7 u9 z      RowBox[{"76", ",", "3"}], "]"}], ",",
2 i; v0 v# {- L0 c9 H" o+ w* c: D; A     RowBox[{"CM", "[",
      RowBox[{"76", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"76", ",", "5"}], "]"}], ",",
% ~5 L. H& ]1 g# k4 ~     RowBox[{"CM", "[",
+ r, s- o5 f* y" D2 u3 o      RowBox[{"76", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"76", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
: p) I7 n4 G) q7 R5 `      RowBox[{"76", ",", "8"}], "]"}], ",",
+ z2 e2 r, H# O2 m, w     RowBox[{"CM", "[",
      RowBox[{"76", ",", "9"}], "]"}]}], "}"}], ",",
$ W$ `3 K* N2 k# @6 ]5 Z$ \1 B   RowBox[{"{",
    RowBox[{
- b9 o2 w  `% t+ D1 }; M6 u; h! e8 K     RowBox[{"CM", "[",
3 Q+ {* ?: M( j# o  {1 D      RowBox[{"77", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"77", ",", "2"}], "]"}], ",",
) a( c% d& t) b0 D/ d& L     RowBox[{"CM", "[",
* \4 n8 J5 E* c- ~, `      RowBox[{"77", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
9 V; L+ |. L0 q: e8 S4 C# |) S      RowBox[{"77", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"77", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"77", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"77", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
' b8 g2 Q( {' e( \) }" O      RowBox[{"77", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"77", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
. \, R4 w  L4 ^( o8 i    RowBox[{
4 g  E8 N% \$ x' H     RowBox[{"CM", "[",
3 }2 b7 J2 a5 y      RowBox[{"78", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"78", ",", "2"}], "]"}], ",",
* T, l, R! X& b: n     RowBox[{"CM", "[",
* L3 @2 l  s& ]0 E8 f: F0 [' r      RowBox[{"78", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"78", ",", "4"}], "]"}], ",",
9 z9 {9 e3 \- _$ x: J8 o9 M% R     RowBox[{"CM", "[",
! I; E. ?3 o; v, }- X; ^" |5 n1 U  k' }      RowBox[{"78", ",", "5"}], "]"}], ",",
/ \2 s! O) c1 k' s, [9 F) u' ~     RowBox[{"CM", "[",
" X/ [" O+ \, N- Q- {      RowBox[{"78", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"78", ",", "7"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"78", ",", "8"}], "]"}], ",",
) Z' n! N$ \% Z, Q/ Z; j* I) Q     RowBox[{"CM", "[",
. L7 o: E1 i& ?2 f- F      RowBox[{"78", ",", "9"}], "]"}]}], "}"}], ",",
- g* }1 L7 _4 {6 H8 ^8 ^% D; K( Y   RowBox[{"{",
2 U0 m% Y, s9 a$ f8 f( \    RowBox[{
     RowBox[{"CM", "[",
* u3 M, ?/ t* W9 J; E7 A) K      RowBox[{"79", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"79", ",", "2"}], "]"}], ",",
+ }2 i' R6 o* p# b     RowBox[{"CM", "[",
      RowBox[{"79", ",", "3"}], "]"}], ",",
( t5 \7 B6 Y+ G7 t! L$ T     RowBox[{"CM", "[",
      RowBox[{"79", ",", "4"}], "]"}], ",",
8 ~& Y6 M* m; R( O% N8 H     RowBox[{"CM", "[",
/ @- n; _. a1 K0 {      RowBox[{"79", ",", "5"}], "]"}], ",",
0 w! p1 ~- c- h% d  N% ]     RowBox[{"CM", "[",
      RowBox[{"79", ",", "6"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"79", ",", "7"}], "]"}], ",",
8 o: D" T1 L3 @0 N, B5 N3 m     RowBox[{"CM", "[",
# z3 W& J6 I/ N      RowBox[{"79", ",", "8"}], "]"}], ",",
     RowBox[{"CM", "[",
      RowBox[{"79", ",", "9"}], "]"}]}], "}"}], ",",
   RowBox[{"{",
" b/ f; \2 Y; K- b% v5 b. P    RowBox[{
2 v# M; [3 f: H     RowBox[{"CM", "[",
( K- {) D. m) e# |6 e6 p" E! X      RowBox[{"80", ",", "1"}], "]"}], ",",
     RowBox[{"CM", "[",
  {, ^. M: P9 a; O8 Z/ L      RowBox[{"80", ",", "2"}], "]"}], ",",
     RowBox[{"CM", "[",
. S" R# n! @* ]/ W% U* x( r      RowBox[{"80", ",", "3"}], "]"}], ",",
     RowBox[{"CM", "[",
0 h) D  i  ?  y& n      RowBox[{"80", ",", "4"}], "]"}], ",",
     RowBox[{"CM", "[",
3 ]' @- z: ^7 m0 |  r+ \' k8 c      RowBox[{"80", ",", "5"}], "]"}], ",",
     RowBox[{"CM", "[",
4 B3 f) N& @, v: o      RowBox[{"80", ",", "6"}], "]"}], ",",
; a& I! {& k4 ~7 b     RowBox[{"CM", "[",
7 Y7 b9 x2 D( D% E* f      RowBox[{"80", ",", "7"}], "]"}], ",",
, F6 j( ?/ V5 ~5 E* B) I( m     RowBox[{"CM", "[",
      RowBox[{"80", ",", "8"}], "]"}], ",",
" ]. J. C! b$ f& x( w     RowBox[{"CM", "[",
      RowBox[{"80", ",", "9"}], "]"}]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.577844244140625*^9, 3.57784429425*^9, 3.577847845125*^9,
" @1 |5 j$ y6 z: `, P" Y  3.57791322703125*^9, 3.577957088820712*^9, 3.5779605002346992`*^9,
- p: |' J; p1 s* C+ r- @1 G9 ^  3.578012145828125*^9}]
  V3 d' m" d  J7 V/ F}, Open  ]],

Cell[BoxData[
( a1 L  s* L: d. E; y! G RowBox[{"For", "[",
& |7 e/ _  {; q0 m1 \9 i  RowBox[{
1 t1 ?0 k( V4 m; c. e   RowBox[{"i", "=", "1"}], ",",
   RowBox[{"i", "\[LessEqual]", "9"}], ",",
5 p" d' s8 S% D8 B3 U4 M0 P+ n   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
   RowBox[{"For", "[",
$ k! Y5 n& v4 `4 T1 [7 Z    RowBox[{
     RowBox[{"j", "=", "1"}], ",",
5 ?' B/ r! M, |! F2 O4 p     RowBox[{"j", "\[LessEqual]", "80"}], ",",
6 x' H/ N) D8 ~8 H9 Z! ^# g     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]",
     RowBox[{
      RowBox[{
       RowBox[{"CM", "[",
        RowBox[{"j", ",", "i"}], "]"}], "=", "0.0"}], ";"}]}],
    "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",
3 A" h8 ~' g+ k8 g+ S1 Q! j) k, O CellChangeTimes->{{3.5779132504375*^9, 3.577913285203125*^9}}],
1 O; H( v" y1 \, e
( z, c# U- d0 YCell[BoxData[
RowBox[{"For", "[",
% p9 S& Q0 Q* U  C  RowBox[{
: j8 @* r1 |' b+ {1 T  r   RowBox[{"i", "=", "1"}], ",",
' |1 b* g2 x$ @7 |7 d7 V3 X9 G   RowBox[{"i", "\[LessEqual]", "9"}], ",",
6 L* D( x. b" W0 K5 ~   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
   RowBox[{
# F# T& w9 {  S! _* g8 x5 A' H    RowBox[{
: h, ~4 Z+ ^3 K) K' C# C0 s     RowBox[{"CM", "[",
      RowBox[{"1", ",", "i"}], "]"}], "=",
     RowBox[{"Data", "[",
      RowBox[{"[",
2 ~  Q0 ~' r4 y: n7 N$ ^       RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}],
0 z# q, c2 d$ m6 C" g- G  "\[IndentingNewLine]", "]"}]], "Input",
CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {
! D( Y' A: c1 R3 T3 J4 j7 F   3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9,
: P" K* J. l4 \* D% S5 c8 u8 x   3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9,
   3.57791344209375*^9, 3.5779588070933466`*^9}],
  L% _1 T5 l+ u8 s
& y8 a% P$ H  @5 Q3 ]6 pCell[CellGroupData[{
$ h5 ~# u! n# }2 P
Cell[BoxData[{
RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]",
; A+ s# Y, S- D8 D7 E RowBox[{"M1", "=", "1"}]}], "Input",
CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {
   3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9,
1 y# |8 A1 ]/ H$ e; Z( |. k+ ~( `   3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {
   3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9,
4 p% ~3 _% l5 X( d6 ?& t( O3 I   3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {
# m$ a6 e% c7 M  W5 _   3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {
   3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9,
% R9 j% d  R# |* b   3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {
   3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {
   3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9,
' }# |# b7 k1 m% Y   3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],

Cell[BoxData["0.2`"], "Output",
CellChangeTimes->{
( K  \( u0 A& [* m; B1 ^" ~  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
6 G  S, K; a- y% W1 A% B   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
; i& h5 A+ N- g* s" X% S   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
% K! V% T$ V3 D1 i6 K4 S" }   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
$ u1 k; {" |. u: s1 v; f   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
9 C3 M" |2 k, ^! u6 V: k0 u. ^8 [( s   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
& }: q) c& [6 k# ?8 X   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
+ W: F) U8 J  h: h$ B6 Y   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
+ H; F7 t& q4 L9 ~8 B   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
7 I' Z6 g# r/ x) N% `9 T   3.577960510686717*^9, 3.578012149296875*^9}],
- ^9 d) p3 g  X9 s
$ L0 i& n) N+ ^9 mCell[BoxData["1"], "Output",
CellChangeTimes->{
+ U1 m  ~2 o7 `: P  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
) w3 P7 F* Z; {% O, @( z$ @: S   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
8 K" u- Y. u; P! F/ @   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
$ M0 b' p( a! D7 r% m( i   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
. D: X( T! j" R" g, G  y   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
- Z, ^* C% _& Q5 h   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
   3.577960510686717*^9, 3.578012149296875*^9}]
2 U5 X; E/ x: V/ ~}, Open  ]],
6 L: f# E' l( z# }1 S; ~  |
Cell[BoxData[
( |% w8 U9 A; J9 D) D! n% |: S RowBox[{"For", "[",
# b8 `: i0 r- H7 J& W  RowBox[{
   RowBox[{"k", "=", "2"}], ",",
& f9 @7 E3 Y2 q: p6 f8 l   RowBox[{"k", "\[LessEqual]", "60"}], ",",
   RowBox[{"k", "++"}], ",",
$ i% C% \+ M: p5 K   RowBox[{"{", "\[IndentingNewLine]",
    RowBox[{
. f$ ^" G2 B6 g$ `! A  g     RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
     RowBox[{"For", "[",
  X$ x9 i7 v' T      RowBox[{
       RowBox[{"j", "=", "1"}], ",",
/ G4 ~! J% Z% F; q) u3 O# `' z; {: }% e       RowBox[{"j", "\[LessEqual]",
' K' G. ^6 @- M0 z2 a) M        RowBox[{"k", "-", "1"}]}], ",",
       RowBox[{"j", "++"}], ",",
. O3 o. q9 ?$ I( A( T3 q       RowBox[{"{", "\[IndentingNewLine]",
        RowBox[{
         RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]",
: r1 @" {" t+ X; Q' t" m         RowBox[{"For", "[",
+ d# E' l+ p  w( R) C6 ~- S          RowBox[{
3 H: M7 ?, ]/ b) a2 p           RowBox[{"i", "=", "1"}], ",",
- V0 x; x0 O' ~3 U           RowBox[{"i", "\[LessEqual]", "9"}], ",",
           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
# }) E& G/ }  P1 f0 a           RowBox[{
. H! z# k; C. V* y* O            RowBox[{"r1", "+=",
             RowBox[{
              RowBox[{"(",
" K3 T* ^" N3 k. Y. u               RowBox[{
! A/ h* V2 U1 x. f4 `' @' G                RowBox[{"CM", "[",
                 RowBox[{"j", ",", "i"}], "]"}], "-",
                RowBox[{"Data", "[",
. P( u: O" K. n" J                 RowBox[{"[",
                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
              RowBox[{"(",
+ y: ]: y+ i. U" C) [( \2 C1 x               RowBox[{
7 o- d& s' A: U% ]                RowBox[{"CM", "[",
# m8 A7 G$ _/ Y/ O- r/ M                 RowBox[{"j", ",", "i"}], "]"}], "-",
4 b. {/ m3 i: @, u: j; l                RowBox[{"Data", "[",
4 {! r1 l; ^+ p$ |3 S                 RowBox[{"[",
* w6 h% d4 ~. u9 R3 r                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
! o2 x9 I  P) C$ B. ]5 D0 u$ z7 S         RowBox[{"r1", "=",
          RowBox[{"Sqrt", "[",
           RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
" o* K0 V6 m1 z8 A         RowBox[{"If", "[", " ",
3 }- p5 S, ]. J7 o9 Z          RowBox[{
           RowBox[{"j", "\[Equal]", "1"}], ",",
4 J+ T! m0 B* Z+ S0 `5 V           RowBox[{"rmin", "=", "r1"}], ",",
           RowBox[{"If", "[",
; {" I& J1 E* I8 r4 |% O            RowBox[{
% O+ Y1 }5 Q9 d3 Y             RowBox[{"r1", "<", "rmin"}], ",",
             RowBox[{"rmin", "=", "r1"}], ",",
; e9 O$ K4 a4 H4 O+ L             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
$ e  O3 e8 G2 @; T        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
+ ~! m3 n) e0 q% L     "\[IndentingNewLine]",
     RowBox[{"If", "[",
      RowBox[{
8 `# e' @- P: n+ t, e: C       RowBox[{"rmin", ">", "r0"}], ",",
       RowBox[{"{", "\[IndentingNewLine]",
3 c) u7 P% d# p2 w, @        RowBox[{
         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]",
/ ^) @5 z7 E  c* Y5 ?         RowBox[{"For", "[",
          RowBox[{
2 }: h, {- n+ B+ e6 A5 Y! P9 P           RowBox[{"i1", "=", "1"}], ",",
           RowBox[{"i1", "\[LessEqual]", "9"}], ",",
7 k3 I$ ^' s: J; S           RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
0 ]% G: e& A' X6 F. ~6 O           RowBox[{
            RowBox[{
8 w# q% q3 S; u# v7 Z             RowBox[{"CM", "[",
              RowBox[{"M1", ",", "i1"}], "]"}], "=",
1 q  c3 @6 V* P0 h* f5 a             RowBox[{"Data", "[",
. g. X4 L" A' O, _# l2 q7 l              RowBox[{"[",
               RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],
          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",",
       RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}],
    "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
; B3 Z% v. @$ ?; ]8 r9 t CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {
6 `3 n" b: E2 v* {# u   3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
   3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {
& g2 I0 r0 k3 \- W1 d; R; t  `/ ?   3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9,
/ j) q. P: |( r; t8 M) V( w0 c, X   3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
   3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,
   3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
   3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
  y; w# U/ R6 s# ?   3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
   3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
9 X% t; c8 O, T$ Q   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
, T2 ~; e1 q5 V2 E+ T3 i2 ^   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9,
5 S  Y1 L+ }8 s- a   3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {
   3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9,
( W3 f* h+ ?; |% f. j* Q3 n   3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {
  a# R) Y% @% V* ^( E" f   3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9,
   3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9,
   3.577958821991373*^9}}],
2 v. C8 t8 e* H$ I' p) b
' R+ D  U$ C( p5 iCell[CellGroupData[{
+ j7 W$ I7 v7 [8 m' T; C
" C1 T7 ^! G1 B0 z* \. ICell[BoxData["M1"], "Input",
CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
. \) l0 u' g3 K
$ `/ V* t! t( }5 G# _/ |Cell[BoxData["21"], "Output",
% V& u4 j3 ?, _! }' |# w' J CellChangeTimes->{
  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
, P. R% w  {9 u/ s7 u   3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
" f" v/ ?3 [# ^2 R4 Y6 N1 {   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9,
# l. N0 O* n. k& J$ x( N( C( ~. T8 Q   3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
% \7 q& T  W! I6 P" c   3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9,
   3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
# r! {, T- @% {   3.577960515600726*^9, 3.5780121541875*^9}]
; \+ d9 T0 g; F# i  T, q8 [" d" C}, Open  ]],
9 F$ ^4 Z, L) {/ w
Cell[BoxData[
RowBox[{
  RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[",
/ A( O& g# X" g   RowBox[{"1", ",", "i"}], "]"}],
  RowBox[{"\:5230CM", "[",
1 L5 N) M6 o" l# l  Q, W7 p2 t   RowBox[{"21", ",", "i"}], "]"}],
  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
& `& i* w/ o4 C6 N\:51fd\:6570u1\:5230u21"}]], "Input",
4 w* e* \1 E8 z7 N: p; h) y! Y CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
7 f# X& ~" t1 ~! V8 l5 ^  3.577960526583145*^9}}],
5 g% ^; U3 K; w% r/ y: E7 E
Cell[BoxData[
3 \( m6 H+ m9 S5 n RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
9 C# M8 c: y: K0 @! R  n0 P" B
Cell[CellGroupData[{
& r, R5 k* C0 n& b- E0 M( g
Cell[BoxData[
& m3 C- D8 v' A$ N4 ? RowBox[{"Xa", "=",
" j6 l7 L0 _4 z6 j& e3 f! ?0 F  RowBox[{"{",
9 n/ R+ P1 ^: R: b: M8 Y# i: M; p5 l   RowBox[{
9 P! A, a  F  I1 ?9 v   "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
' s9 K6 S1 L; u, H+ _! p1 H    ",", "x8", ",", "x9"}], "}"}]}]], "Input",
CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
% p6 _* r. n- h  a
# k6 T' k6 {) M# g, rCell[BoxData[
RowBox[{"{",
0 K# V0 d  C, h' w  RowBox[{
  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
, `- ^( h9 l9 L, u    "x8", ",", "x9"}], "}"}]], "Output",
CellChangeTimes->{
2 W- X7 D$ f! D. b3 E+ I  3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
* `9 `! a. u# B3 K- R- C& u   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
* Z- h% G1 Y. N: R   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
& S5 k, H5 q/ b   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
   3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
! k) l; D; Q' X; V1 F$ H   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
   3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
   3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
' h& F( y+ P* d6 q3 X   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
   3.57801215725*^9}]
}, Open  ]],

Cell[CellGroupData[{
. V' |% y8 ?# X% ^1 Y& m
4 Q1 w' k8 F" Q* y$ E7 l& aCell[BoxData[
RowBox[{"Ca", "=",
  RowBox[{"{",
   RowBox[{
   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
    ",", "c8", ",", "c9"}], "}"}]}]], "Input",
3 y) K, M. }& I3 V CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
# Z* Z4 t7 D, o+ ^
* L- L3 c9 y( Y0 [Cell[BoxData[
RowBox[{"{",
  RowBox[{
$ ~; u( u: ^' X. a$ G  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
    "c8", ",", "c9"}], "}"}]], "Output",
CellChangeTimes->{
% V+ P7 o. O0 X  A$ K1 |& u  3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
( \+ J9 Q, p1 u5 N   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
   3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
8 I- m) x8 l" g/ ~& F   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,
' @  }7 ]! M, j& A" V   3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9,
) f2 V: ^( L9 o2 E   3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
/ b9 K9 G; C+ l& r   3.577961904604212*^9}, 3.578012158671875*^9}]
+ l; Y' f5 k, V; f+ d}, Open  ]],

Cell[BoxData[
# F4 N" Q' j: R$ e RowBox[{"For", "[",
  RowBox[{
   RowBox[{"i", "=", "1"}], ",",
   RowBox[{"i", "\[LessEqual]", "9"}], ",",
. K# l7 M/ c3 w. f   RowBox[{"i", "++"}], ",",
, g8 i% J( M7 n, q5 V+ l8 c5 |7 Q   RowBox[{
) y3 M) ]$ _  e; I- w2 e- R2 K    RowBox[{"Ca", "[",
, A$ K5 D# E( w& D. D1 ?     RowBox[{"[", "i", "]"}], "]"}], "=",
    RowBox[{"CM", "[",
     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
   3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9,
   3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
, G3 T! ^" @- Q' I) N( S; A, v% u   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
! C9 H& Y0 Z* p   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
, \6 X7 ~9 d0 C$ T2 P   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
   3.577961906897415*^9}, 3.578012176296875*^9}],

Cell[CellGroupData[{
: u! ~" p" D( |" S
Cell[BoxData[
RowBox[{
  RowBox[{"(",
# m: d0 f6 }/ d2 ~+ c( G8 p; ^1 p   RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
  RowBox[{"(",
   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],

* m1 K& X7 V! L2 L7 jCell[BoxData[
% b) x9 n9 D  i4 }) E1 O0 ^ RowBox[{
) B/ C7 _3 L, }5 u% N  SuperscriptBox[
' o4 a9 J' g8 d* G5 {8 _   RowBox[{"(",
    RowBox[{
     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
% |' i  x0 B* d3 O  H  SuperscriptBox[
   RowBox[{"(",
# X& N7 v9 F( J0 |3 V    RowBox[{
( t2 W* r, M, b. L" g( k- p* R6 s- x     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
& B0 w& A' u& p7 A- u8 c  SuperscriptBox[
, n' O9 }( G2 K/ ]6 ?' ~+ W   RowBox[{"(",
$ p: U. @) I2 e    RowBox[{
     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+",
% O  V' B9 |+ I  SuperscriptBox[
   RowBox[{"(",
    RowBox[{
3 o2 v& E" P, h% y  j) P     RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
7 ~/ \& _: w% g  SuperscriptBox[
   RowBox[{"(",
    RowBox[{
4 g* V* A" u: C; Z% \, |( X     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+",
  SuperscriptBox[
, K' P" `% A1 Z4 c, u- p3 x   RowBox[{"(",
' r$ D7 }  s( t- ?/ I" ?    RowBox[{
! S9 n* @. B7 d     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
9 [! R! w; f: u( C  SuperscriptBox[
   RowBox[{"(",
    RowBox[{
     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
, t1 s0 ]: z- B1 e2 l: l7 I  SuperscriptBox[
+ j7 G) S% P/ a, Z   RowBox[{"(",
    RowBox[{
7 E* t! l& x, T: E8 N8 ^1 o) p) w     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
( n' p- F! {. O' J  SuperscriptBox[
4 z0 b4 f5 o& y9 B   RowBox[{"(",
    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
CellChangeTimes->{
  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9},
* n6 b& \6 W! Y6 @# [5 s9 B1 w   3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
   3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,
2 f" s. b7 G" V7 q/ {, ~$ t2 g   3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
1 q6 |  N- k$ N" |+ a* f2 T   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
3 V' b9 M6 I7 Z7 m+ Z' ^# N" K7 K   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
% D- h, _" q; c, d  u2 v; C   3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
) P) H" y: Q- G8 `7 ^& ]1 a5 M. Z   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
/ V1 F7 T4 s1 k) W1 u+ v   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
" J* V5 j2 K7 i. {/ R. y7 W   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
4 F7 g+ g0 S# [  p   3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
2 A: @; g1 _4 l) v  Z3 P, U/ ^   3.5779618537169228`*^9}, {3.5779618846049767`*^9,
( E; z: |. R" n3 J   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
}, Open  ]],

3 d/ T. h4 g$ z3 z  ~Cell[CellGroupData[{
! c4 k% |8 M$ c( f9 T+ G  ^
; |3 s1 n  C- h# t  ]4 PCell[BoxData[
: a8 x# u, y) i, z RowBox[{
, z' Q! Z/ ?; N% s4 S  RowBox[{"Ca", "[",
   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
/ D/ K6 f4 J. z3 e- d* U, e4 n  3.5779616465173616`*^9}],
0 ^5 D4 P+ z) t9 ~" p0 w3 ?
Cell[BoxData["0"], "Output",
' W+ F2 @; R% R+ w( e. c2 }+ i CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
  3.5779616484049644`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
RowBox[{
* ^: M8 i5 X* s. G4 U  RowBox[{"Ca", "[",
   RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.577957376235614*^9}],
6 i' H' j" {* q, M. C9 N) I1 b
& u( k7 C% C& R8 P0 NCell[BoxData["0"], "Output",
# y" b, t9 D- [' h7 {& M+ o CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
}, Open  ]],

, Z* g, N4 @/ h/ \7 S& z$ U  wCell[CellGroupData[{

2 F4 l8 [/ t7 TCell[BoxData[
RowBox[{
  Z- |/ |, Z& g; |8 W3 G& O9 E( @  RowBox[{"Ca", "[",
   RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.5779573112927003`*^9}],

, J. `1 m2 G+ k- FCell[BoxData["0"], "Output",
CellChangeTimes->{
  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
/ r* c8 a2 T( Z& f# j$ N( ^# I# R# e   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
' D6 I! I' M% W8 a" D   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
" ]+ P: |& T9 T3 s! ]4 H   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
}, Open  ]],
& F, q% u  L; k) \
! Z2 K. [; n1 RCell[CellGroupData[{
% t, ]; K) J2 L4 ]
Cell[BoxData[
RowBox[{
( R/ u- Z7 j/ M; l( |  RowBox[{"Ca", "[",
   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.577921461734375*^9}],
- E) R3 l/ ?& ~8 ~
Cell[BoxData["0"], "Output",
. A; [3 y" d9 Z8 z CellChangeTimes->{
  3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
' y- R5 A. ]) g; ?! d2 H4 R   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
8 Y0 A- z1 T- c; }+ a" w   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]
}, Open  ]],

3 k6 \7 }' U7 d+ ]6 d( |( zCell[CellGroupData[{

6 Z. L9 ?1 l4 p8 F3 v. W8 xCell[BoxData[
RowBox[{
  RowBox[{"Ca", "[",
# X; s( y, S& A$ i$ E   RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
5 r5 Q* U  A4 ?) y; g' d4 f( k CellChangeTimes->{3.577957303118286*^9}],

: R9 k: S. z$ D/ I+ rCell[BoxData["0"], "Output",
7 J7 V* L3 K! ]0 h- s4 q2 D CellChangeTimes->{
  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
$ ?9 p2 I; C' j. [# y5 P: L   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
; R# {, V4 E: n( x& Z* {   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
   3.577961889378585*^9, 3.577961912965826*^9}}]
# z" u# j* A1 D  f/ n: j- i}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
RowBox[{
$ t/ I: l, Y# J* i4 K  H) C  RowBox[{"Ca", "[",
9 p1 A: R' }9 Q2 N" Z& ~+ z   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
  3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
8 R  l; P& Y/ ^( x& g  3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
  3.577921435703125*^9}}],

: a# O9 J! Q' U  E& iCell[BoxData["0"], "Output",
2 z1 k" w4 w" b: M. f% ` CellChangeTimes->{
8 v$ K0 A# ^. R# O( k5 y, p* k  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {
   3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
   3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
+ u* Q; ]7 m$ u" J% f   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
& \) R( r, j  Y) E3 S# k   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
. n7 Q$ g0 f8 h) u" D8 B8 n9 ~' X/ y   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
- Q' X) n/ k0 ^4 _ RowBox[{"Delta1", "=",
3 Y3 B0 t9 b* ?  RowBox[{
6 q# j/ T, p0 F6 ]   SubsuperscriptBox["\[Integral]",
+ i1 P$ r4 y0 ]& Q+ A5 V; _    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
   RowBox[{
    SubsuperscriptBox["\[Integral]",
9 }+ b/ v9 P/ M+ D% A. y( b8 ~, V     RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
# l6 R5 |' W* w4 _& k! x    RowBox[{
     SubsuperscriptBox["\[Integral]",
7 W2 E! Q+ Y+ }: U6 \2 B! U; e      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
2 B! T+ M3 P$ M8 o' M& f& R     RowBox[{
6 T4 E0 }$ X* W      SubsuperscriptBox["\[Integral]",
8 `  C2 G* q" P       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
" I9 M0 B1 D" z8 y; U/ Q2 a8 u      RowBox[{
       SubsuperscriptBox["\[Integral]",
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
0 k( b! {6 n6 S       RowBox[{
        SubsuperscriptBox["\[Integral]",
; G  S0 f+ l* F% A         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
        RowBox[{
# l9 y" x4 U7 v  M: l         SubsuperscriptBox["\[Integral]",
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
% D- a# Z' L% M* j: h3 |$ D1 h+ ?         RowBox[{
* e" |3 I6 p: Z6 \          SubsuperscriptBox["\[Integral]",
           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
          RowBox[{
           SubsuperscriptBox["\[Integral]",
* V2 _6 i5 n: ~3 g' y            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
           RowBox[{
            RowBox[{"Exp", "[",
$ L+ T' N  [: t             RowBox[{
* H- t! G4 e3 T- ~" z; K& H% ?* l              RowBox[{
# c4 \, ?. F5 U6 I3 [. @               RowBox[{"-",
                RowBox[{
                 RowBox[{"(",
; v* i$ ], p( H, A                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
& {5 `. w0 Y$ O" x/ _; z                 RowBox[{"(",
% ~# f3 Q0 @" H0 C" V9 H7 Z  f                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
              "Delta"}], "]"}],
& Q4 p3 m8 N8 J# ?4 z. U            RowBox[{"\[DifferentialD]", "x1"}],
  x9 I  }. D; q+ i            RowBox[{"\[DifferentialD]", "x2"}],
            RowBox[{"\[DifferentialD]", "x3"}],
5 O' \: {' j) m! G4 o            RowBox[{"\[DifferentialD]", "x4"}],
& u6 y8 L( L; N: \& g; t1 W            RowBox[{"\[DifferentialD]", "x5"}],
            RowBox[{"\[DifferentialD]", "x6"}],
            RowBox[{"\[DifferentialD]", "x7"}],
            RowBox[{"\[DifferentialD]", "x8"}],
' \0 y7 a& t' J" S, u- V' z$ u            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
! Z* O+ D, l! s; |7 i5 l   3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
. h5 g+ w/ E/ C, d0 L6 B" A   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
& N4 }# o, E, d3 J) l4 @   3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
. g) s9 |$ a* M% M& B& k   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
/ |  j$ ~) X. c% `$ K* m   3.577918964453125*^9}}],
5 m# y/ X" u. b
Cell[BoxData[
RowBox[{"97.40909103400237`", " ",
5 T* ~+ ?' g# a3 p/ T# j  SuperscriptBox["Delta", "8"], " ",
) J$ Y; d9 o2 j/ K/ y  RowBox[{"If", "[",
1 \& V1 A1 v8 Z1 w: u: f/ |0 ]   RowBox[{
    RowBox[{
0 Y' M( v6 d4 t, k/ V0 C) L, D     RowBox[{"Re", "[",
      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
6 G( f# A' [9 E9 L; {$ \& D& k    FractionBox[
     RowBox[{"1.7724538509055159`", " ",
  t+ h. H. T! R      SuperscriptBox["\[ExponentialE]",
       FractionBox["1.1102230246251565`*^-16",
  F* K! d. H' v& V& T. N2 j3 c        SuperscriptBox["Delta", "2"]]]}],
( L- F+ B" D4 \: J8 T. a7 {0 ]     SqrtBox[
7 A, Y: e5 J2 b      FractionBox["1",
       SuperscriptBox["Delta", "2"]]]], ",",
    RowBox[{"Integrate", "[",
% v' U6 Q: T$ e" u     RowBox[{
      SuperscriptBox["\[ExponentialE]",
% z) O- P8 J& u' D2 s& S7 S       FractionBox[
* c# f' v7 B; \! m' G6 B        RowBox[{"1.1102230246251565`*^-16", "-",
         RowBox[{"1.`", " ",
          SuperscriptBox["x9", "2"]}]}],
        SuperscriptBox["Delta", "2"]]], ",",
      RowBox[{"{",
       RowBox[{"x9", ",",
        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
+ z: V) h4 i. d      RowBox[{"Assumptions", "\[Rule]",
/ F' ~9 F* Y3 t' S7 G       RowBox[{
        RowBox[{"Re", "[",
         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
     "]"}]}], "]"}]}]], "Output",
CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
# K; |; n4 ?: k  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
* m% y& q3 E! p. K- i& o  t! y  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
5 \' I# N! B" n+ G9 X  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
7 }9 e  }" Z  c  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
# E. q; L( |3 d}, Open  ]],

8 f+ v+ ?1 j& q2 f& C0 @Cell[CellGroupData[{
/ O( A& p" A1 d
Cell[BoxData[
RowBox[{"Delta1", "=",
; Y7 V+ r5 l9 c& D. v  StyleBox[
( G9 @0 S8 [& D: @+ K5 A   RowBox[{"97.40909103400237`", " ",
7 {+ E" r% W7 `) R4 k: G+ l$ D* [1 A    SuperscriptBox["Delta", "8"], "  ",
1 I2 v* X8 D3 d3 b1 M    FractionBox[
     RowBox[{"1.7724538509055159`", " ",
/ @: w. m6 p5 I# k5 Q- V- e# w      SuperscriptBox["\[ExponentialE]",
  g3 S  M% W% n) M5 Q$ a( Y3 {       FractionBox["1.1102230246251565`*^-16",
3 z3 Q" @8 t" ?( c) _7 Z        SuperscriptBox["Delta", "2"]]]}],
6 k# V  B1 m' j1 Q4 y: s7 P, c, ^     SqrtBox[
      FractionBox["1",
       SuperscriptBox["Delta", "2"]]]]}],
' K1 |( k/ b* V$ K   FontWeight->"Plain"]}]], "Input",
CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
, _$ n4 ^" l. R+ @. R, k' s+ j   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
& P& g; B" J& I" ~   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
* s0 [, Y5 @1 U9 Y7 y! p. p4 B   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
1 D/ q: Y5 N" g4 r* [   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],

Cell[BoxData[
8 l$ V) H0 n5 e" J- P# h- J FractionBox[
3 E" Q% @. U6 `4 ?  J  RowBox[{"172.65311851642346`", " ",
   SuperscriptBox["Delta", "8"], " ",
6 L3 X& F  T1 j0 c( \   SuperscriptBox["\[ExponentialE]",
! [/ S9 a& ^+ X    FractionBox["1.1102230246251565`*^-16",
     SuperscriptBox["Delta", "2"]]]}],
8 D% R3 c) K) N: l+ s/ H/ `  SqrtBox[
* C" Q/ c; f- g6 j) `6 F" s   FractionBox["1",
' f5 p; x0 d1 S6 ]- ^$ r    SuperscriptBox["Delta", "2"]]]]], "Output",
, a, ]! D; x1 Q! C+ t" D1 G CellChangeTimes->{
' w! v9 \7 k- X% \6 ?- r( r  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
3 F$ v7 u, J; H) r0 I- P   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
/ _" ]" \  o( q0 y   3.578012166234375*^9}]
/ s7 ^& k; H, F. e7 a' c}, Open  ]],

* H7 G3 @; }/ ]# CCell[CellGroupData[{

, r( l" h- @/ kCell[BoxData[
RowBox[{"DeltaX", "=",
9 T% Q$ {- @5 v. f3 J3 r4 l# O8 u  RowBox[{"FindRoot", "[",
   RowBox[{
- q! v* w# D( H9 Y& a& t    RowBox[{"Delta1", "\[Equal]", "1"}], ",",
    RowBox[{"{",
     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
1 a+ X0 I" o1 m8 t2 F0 S CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
6 `: Q/ X( r  v! h   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
$ R. T# o% M. ~0 f/ f2 J5 b   3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
. C$ y/ w% T) O  p/ x# u! p   3.57791921584375*^9}}],
# p  n3 [! s. c/ k
6 V9 Y1 {- m6 ^9 Q% F: q, @Cell[BoxData[
RowBox[{"{",
0 u0 e! _* `$ @# |6 ~  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
CellChangeTimes->{
( S/ _5 B2 k1 K  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
+ D. R% |/ \7 c% {1 @   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
, a/ m8 e# C! e   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
+ n$ x& P1 S( e   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
! Z$ P9 P* F# `  h  m   3.57796070150625*^9, 3.578012167703125*^9}]
}, Open  ]],
& e& Z3 F3 s$ U3 ]' ?
Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
  3.577960705312657*^9, 3.577960707621461*^9}}],

, g" ~% l: \* V! d  P( cCell[CellGroupData[{
/ f% B7 h" K* [- P9 [) R/ X
  p0 M$ ]5 G7 B) @7 QCell[BoxData[
RowBox[{"C1", "=", "Ca"}]], "Input",
+ {% X7 @/ ~6 Y' `$ A/ J" u CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
% V! G1 P2 R/ D& d  j9 x( g( o
- R" _- _$ ?# M! \Cell[BoxData[
1 v6 @; f5 j; r7 k& n! s RowBox[{"{",
$ _1 ^! j2 @4 J/ l' S  RowBox[{
0 U9 b& M' `* n" T! s  "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
   "0.`"}], "}"}]], "Output",
; d7 n$ r/ y3 q/ E( Q4 Q& k2 S0 ` CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,
3 R6 ]! W( W$ _, s  3.577960710273465*^9, 3.5780121855*^9}]
}, Open  ]],

Cell[CellGroupData[{
  F' Z2 ^; E6 i6 z
Cell[BoxData[
5 [: E% Q; X+ X9 q7 M- b RowBox[{"u1", "=",
( Q* S' \( R  X5 n; G  RowBox[{
   RowBox[{"Exp", "[",
    RowBox[{
     RowBox[{
1 o8 {4 k/ g4 h' O) E1 K      RowBox[{"-",
. V1 \0 T6 B: e, T: Z! N$ ~       RowBox[{
        RowBox[{"(",
/ j% o, M2 V& D& P& x6 g' t- Z* {# D         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
" n  u8 @/ o9 m5 ~( f5 B6 b   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
) o: I# T. A8 @   3.577919193484375*^9, 3.5779192326875*^9}}],

9 x4 w/ g! _, ]- M1 T, ]+ cCell[BoxData[
SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
( g* Y, h+ y; y; N$ v& q   RowBox[{"(",
    RowBox[{
     RowBox[{"-",
* d9 G! W3 _: }+ m      SuperscriptBox[
       RowBox[{"(",
        RowBox[{
' ~: Q- R" K$ ^6 z/ r         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
3 v! ]+ b. g! |& j" b     SuperscriptBox[
      RowBox[{"(",
  o1 c& N9 W  S0 ^& @2 I# o       RowBox[{
6 J0 g/ I  g: A  B9 d, I        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
5 h) U  Z/ A/ n      RowBox[{"(",
( W$ ^; T0 g) _( x, v       RowBox[{
  J2 X8 I* u9 ?  d; V& {7 _; j8 t        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
$ G' o% Z% h6 |2 t& [        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
& c4 S; E! ^6 \- a& v9 r     SuperscriptBox[
1 S, z  H0 @" v8 J- o# o' h      RowBox[{"(",
  r) ^7 Q4 D3 a* O2 p( B       RowBox[{
        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
- l4 L- {2 e% L: V2 U     SuperscriptBox[
      RowBox[{"(",
3 Y6 O6 Y9 h# A4 X       RowBox[{
        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
" w; |4 V+ g/ ~5 k% K  z2 y/ ?     SuperscriptBox[
' {$ x- p+ ~6 @( I. v      RowBox[{"(",
7 Z" ?  f- j  e; p- a9 A: b       RowBox[{
- n" n2 m  P, ?" j) q" [5 W5 ~. o        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
8 |8 E: p7 r3 x1 z- j; V     SuperscriptBox[
      RowBox[{"(",
0 i: G& n. y2 P6 r2 o       RowBox[{
        RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
' T& G5 @3 ?+ C6 l4 S% N' ?      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
+ ~, k& \  |/ [6 B1 K    ")"}]}]]], "Output",
CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
  3.578012187078125*^9}]
}, Open  ]],
+ H& R+ X0 Z5 W" Z  |+ v+ ?. q/ o2 \3 D
Cell[CellGroupData[{

  H4 k* L( n4 sCell[BoxData[
RowBox[{"C2", "=", "Ca"}]], "Input",
CellChangeTimes->{3.57792047321875*^9}],
9 g2 o' {1 F) c1 b" p8 E7 ^3 ~* x
Cell[BoxData[
1 m+ B6 [1 m  c% M6 |' j% b6 ] RowBox[{"{",
  RowBox[{
; H" Z$ ^6 y3 ?' }' \; W  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
' s- D8 r% t, c2 G  p9 F5 u1 ~4 y   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
  "}"}]], "Output",
$ Z: x& e4 Q8 C! c, e! ~ CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
  3.5779607401163173`*^9, 3.578012204671875*^9}]
1 j: P+ X( `# d9 u" l; k6 |. z8 B}, Open  ]],
7 |& M+ n/ C+ C6 }( b9 ?
7 t6 l4 f$ ?( c  t+ TCell[CellGroupData[{

Cell[BoxData[
RowBox[{"u2", "=",
9 ?$ m8 J$ h: Z" W7 H; I& J  RowBox[{
   RowBox[{"Exp", "[",
: d. u1 e3 B7 i    RowBox[{
     RowBox[{
& a6 d2 A8 ?* l+ |      RowBox[{"-",
       RowBox[{
8 W2 n, s# @. f. }' s3 U& N7 }        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
( @0 m, D# f" B4 S5 p, U% C% ~, }        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]], "Input",
% y4 p; O5 e4 F8 ^ CellChangeTimes->{3.577920484109375*^9}],

. a8 w1 P. D3 ^0 N6 {- [Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
/ E4 [( K! A$ q# D3 r  RowBox[{"3.141592653589793`", " ",
9 _& d; Q6 [; v& p) b  v! q# R   RowBox[{"(",
    RowBox[{
& W, W5 T0 p' _     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
  l4 V: F2 U) i  t' c6 q        RowBox[{
% w" ]( y3 _' c9 {8 r) n7 p         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
  M2 F/ V" Y5 e3 A6 b        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
" O; z: U* w5 i% [& w: [2 P$ x; O9 _       RowBox[{
- Y0 R. b+ ^9 A- R, M8 e& O        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
6 z) x: w: y1 @/ N8 [     SuperscriptBox[
2 `' v& {! T- k$ x/ y* `      RowBox[{"(",
       RowBox[{
& g( w/ v$ X2 ?& ^1 o        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
0 k& ^, A# b9 f4 A* T4 x9 N     SuperscriptBox[
7 j, k& n+ ^- f2 {+ V9 N5 N6 J      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
; k/ w# q. ]' _3 G: M7 w% a     SuperscriptBox[
      RowBox[{"(",
& G- ~* H$ H' {& q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
7 \( t. R8 ~' H3 p9 v5 L" c# G. }- V     SuperscriptBox[
/ k8 r1 a  t, O& [4 w2 p' j      RowBox[{"(",
       RowBox[{
" p% z5 D) n; S& J; y) D/ m) b        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
  j7 e( [$ y, {     SuperscriptBox[
# u  q: e  I  ?, s      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
' V, d% F' O% w& d4 t    ")"}]}]]], "Output",
. r6 `  z0 R' ]' f/ K* t; u7 l CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
4 G" d8 T7 {2 U6 G- h  3.5779607413955193`*^9, 3.578012205484375*^9}]
& v$ @% i: l: |! O5 _- G6 }( e}, Open  ]],

) h6 C2 k& x0 A9 b$ {2 g; @1 VCell[CellGroupData[{
9 p0 ^* {$ b# o) q& |
+ E$ w, }2 o! w6 ^  D; CCell[BoxData[
! q' h1 P- K; J' |; y RowBox[{"C3", "=", "Ca"}]], "Input",
CellChangeTimes->{3.57792064125*^9}],

" w" m+ k4 M0 G. g+ P5 m1 [  gCell[BoxData[
1 W. C/ C1 M3 ^  ^5 v RowBox[{"{",
  RowBox[{
  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
  "}"}]], "Output",
& i- q; J& _8 ~4 |" B1 z1 R CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
  3.5779607642027593`*^9, 3.5780122103125*^9}]
$ U! W9 [# V" x; \/ \; o4 b8 x}, Open  ]],
+ p5 P) I# x7 `  a, e" B' P& \& V
' p  V; _6 }3 V! ^# xCell[CellGroupData[{
* A  A8 }+ u  P8 A0 {5 m
Cell[BoxData[
2 @  U$ p" T. D' G( t& L RowBox[{"u3", "=",
- x: o% w% y. E9 g  RowBox[{
6 U: M# Z' r, Q( I   RowBox[{"Exp", "[",
7 U. q7 Y$ J" m) S( J+ d" Q    RowBox[{
3 `2 u* v8 v) j, F     RowBox[{
/ Q1 A# n$ W0 [/ u7 {6 ~* z      RowBox[{"-",
; a# ]! X6 w3 Z+ P3 |       RowBox[{
" ^, J" L6 c8 t  w0 z! E        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
6 i9 l$ w& k$ m; s) ?* J         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
1 i; Y0 D0 q  }: \1 N, K     "]"}], "/.", "DeltaX"}]}]], "Input",
+ B7 k2 z; |' A3 V; \. J CellChangeTimes->{3.57792064921875*^9}],
1 Z' _& ^% M& a0 K% I# `
1 s  Q- ]; J0 r! aCell[BoxData[
SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
6 B6 M8 p  e# X& J" F6 U  y2 r: V" y   RowBox[{"(",
* v5 k* v- P% ]5 t" z0 q* J    RowBox[{
# z4 ]0 [$ N* `; [! V! c     RowBox[{"-",
4 T  V7 |+ X1 k# A, W9 o      SuperscriptBox[
. f8 p, [3 m8 L4 _. H% f: p       RowBox[{"(",
* }3 G: R+ |: b( P1 O# h" P        RowBox[{
. v7 [) f$ v( r6 j6 O         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
      RowBox[{"(",
+ G7 ^3 \! n. \- l+ r: p" p       RowBox[{
5 X7 k# f' @- [3 \2 b' \# T8 R4 G        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
$ y7 o5 J. ]1 c' J/ A6 W- v7 I       RowBox[{
        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
& T" O9 _7 F- N' N     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
! E/ P1 v0 z( c5 x: K; P4 a# `        RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
1 V# G! H- ^/ r. g2 ]7 J     SuperscriptBox[
# o& L+ j1 H# j8 o      RowBox[{"(",
       RowBox[{
1 H6 a- _( C1 k; z7 ^        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
: U5 p0 }$ E1 `     SuperscriptBox[
# }$ k' s" W) t      RowBox[{"(",
2 J3 X+ R2 I  @1 J       RowBox[{
' E! _6 ^! z: J% T$ E        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
. Y$ `. ?& p4 T( J  b1 k; D6 v     SuperscriptBox[
      RowBox[{"(",
  j4 i3 r" k$ U' B3 D  J1 Z; d       RowBox[{
        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
( ^+ E( v. k$ m2 f1 @       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
1 ^0 P; x2 y0 L! [, Q9 O7 t. ^! }     SuperscriptBox[
6 ]8 [6 W1 [  d" n0 S: a      RowBox[{"(",
. R( x9 L! o6 ]1 @! l       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
  3.5779607654819613`*^9, 3.578012211515625*^9}]
+ U! {' q! h" q) y7 z, X. m, j  l}, Open  ]],

Cell[CellGroupData[{
  U- c6 N8 R# S* a
& W- p0 t6 P+ L& |- GCell[BoxData[
( q; [! ^. g3 x! ^$ D RowBox[{"C4", "=", "Ca"}]], "Input",
' d$ I, a* K' d' V- S1 l  }7 o: ? CellChangeTimes->{3.5779207559375*^9}],
& V" L' _) n8 u* ~- o, J
Cell[BoxData[
RowBox[{"{",
  RowBox[{
+ }( v" \' N( R" K  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}],
  "}"}]], "Output",
CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
3 }; w+ ^* B: j% h/ u6 M  3.5779607861363974`*^9, 3.578012216171875*^9}]
, i! N# O0 N9 M3 M9 U}, Open  ]],
1 J( c( X/ T! [9 J+ K
/ N8 O  K2 T- A1 {Cell[CellGroupData[{

Cell[BoxData[
RowBox[{"u4", "=",
3 V# u- z: }3 n. y" I4 P. p  RowBox[{
   RowBox[{"Exp", "[",
0 |2 o6 }: ^. A1 z9 G' N6 Q    RowBox[{
     RowBox[{
      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
' u' f7 g( C( ~        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
5 B- y6 x6 K$ c1 ?; y. L. x% ?     "]"}], "/.", "DeltaX"}]}]], "Input",
! D9 I4 S  @& M# P( K CellChangeTimes->{3.57792076325*^9}],

! b! Z, |# g* M, zCell[BoxData[
SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
! D( w. I+ f6 Y   RowBox[{"(",
5 L* t! Q8 F  i  v, Q1 ~    RowBox[{
8 K8 J  {/ ]! b+ F0 V     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
* {7 q& @" A, x. l# \6 {4 B% R        RowBox[{
( u, n- S8 p' D         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
" j" r+ p4 ~; t* y) N9 H1 I     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
7 w4 A0 z, ]: _8 q6 ]& G       RowBox[{
9 [9 S7 ?" u: T& s" }! @* y  _        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
& S4 g% Y0 q  _6 U( T/ L      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
6 v* W, o# d* s+ F       RowBox[{
  V- l# u. n) a" _        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
* g, L) O7 O- }$ W1 I      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
) c* \! f" H7 K" {& n      RowBox[{"(",
7 E! l$ _9 {+ k+ ]& K. S       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
9 [" F; ~7 |$ l& ]" b$ n0 R6 O     SuperscriptBox[
      RowBox[{"(",
5 L  W0 I0 W, |       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
) F7 t4 E9 W# b9 U4 V0 `% Y     SuperscriptBox[
# n& |6 |8 L. u8 |      RowBox[{"(",
% t  ~, N( p! o+ h7 a# q       RowBox[{
9 @1 P7 H' @+ V5 F: S        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
& D* Q# S( ?" K CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
3 t4 t' m) U) h) p( f* K  3.5779607873531995`*^9, 3.5780122169375*^9}]
: l5 o$ |' F! V6 |  ]6 i* m0 u}, Open  ]],
, O0 m" p3 F' b! J+ n6 {# e
Cell[CellGroupData[{
) ^5 Z* B6 d1 r+ ?! k. m0 ]8 o
: `0 l6 k1 H7 @# v+ oCell[BoxData[
RowBox[{"C5", "=", "Ca"}]], "Input",
. q$ q! V. t& W; \' f* P1 c! J  q CellChangeTimes->{3.577920860671875*^9}],
' S# z" ^$ V6 L+ S, a9 u9 ~  B/ P
5 R' g9 a' L7 L' A3 t8 |& L! v' |Cell[BoxData[
RowBox[{"{",
% w' w7 H' y' e6 X3 q2 E% R( `  RowBox[{
  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
# m8 i: U' {9 e3 {+ T; t- \$ T  "}"}]], "Output",
9 ]4 e4 o0 |6 K& z3 B! @ CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
9 _4 U& o: p" ?- F; R  P  J& a  3.5779608137328453`*^9, 3.5780122209375*^9}]
}, Open  ]],
% m0 z- c- z* u/ X
- C& k$ K9 f; G  J) mCell[CellGroupData[{
& y/ x2 G) _, G
Cell[BoxData[
RowBox[{"u5", "=",
7 M' l! U! V1 V/ @2 ~" d5 c4 m7 |6 b% S6 P  RowBox[{
   RowBox[{"Exp", "[",
    RowBox[{
     RowBox[{
      RowBox[{"-",
       RowBox[{
. H8 b- \% `4 @+ b  f        RowBox[{"(",
! n. C( e: f& |8 L, m9 I         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
+ i+ M; C! a; ?! {         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
( S. R6 R- |/ w4 A+ I  a     "]"}], "/.", "DeltaX"}]}]], "Input",
2 l& K2 a# E9 F% n5 L CellChangeTimes->{3.577920869375*^9}],

Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
* [& M4 T/ O+ u6 Q8 l  RowBox[{"3.141592653589793`", " ",
. M. b+ h; P4 P5 e5 D   RowBox[{"(",
* \" ~0 ~* D1 g9 p2 I    RowBox[{
     RowBox[{"-",
# A- U& p$ ]5 K( ~, w' `% L      SuperscriptBox[
% }5 ^/ [, m! d       RowBox[{"(",
        RowBox[{
         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
# u+ U" k3 Y+ p5 G/ ?( K- ]% o      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
* E0 m& m( z8 P# I( D     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
: B! p: b( c1 p4 X0 C" u$ L: y0 H     SuperscriptBox[
3 p3 f5 l: c$ t# f6 j/ I- Q$ [: ~      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
% ]. h5 b2 N) t+ R2 f" N) j5 G. k, R       RowBox[{
5 |5 |6 ?+ x6 h        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
- V% I  X- U6 T8 a6 W     SuperscriptBox[
: v! i2 Z" S  g3 ~* G      RowBox[{"(",
9 p  _/ c; ^+ j; l. s1 N0 q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
9 M. b3 c% o% D" M, {4 C; M      RowBox[{"(",
       RowBox[{
& x) |( p( ~6 d! j4 z4 P- o" E% d1 @        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
2 ]; |3 `" V$ o      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
5 n1 z" L) _/ j3 _# A# ?" Q# f     SuperscriptBox[
: W7 C/ H. w& D. V6 Q& y* }      RowBox[{"(",
6 Q& R2 s4 j0 D5 x" L% M9 ^       RowBox[{
- e- `2 ]6 E) Z- t        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
9 t* d3 g3 ]' ]; Z1 a9 s+ E  K    ")"}]}]]], "Output",
CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
. N/ z3 q) Z3 T& \: `  3.577960815043248*^9, 3.578012221953125*^9}]
! Q4 x; |! N- Q1 G}, Open  ]],

$ b$ ?- j/ {% X3 ]Cell[CellGroupData[{
2 s7 g$ E( k2 O7 x, ]
Cell[BoxData[
RowBox[{"C6", "=", "Ca"}]], "Input",
- W0 S. X. ]- y% D& }8 i2 L# L CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],

  \( s5 o/ Z$ ACell[BoxData[
RowBox[{"{",
4 L2 [0 f: d- [2 J/ Z" X  W1 n  RowBox[{
  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
! Z& D9 v  H9 H9 u# ]! z   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
+ U8 z  h* z( K( l   "0.494866`"}], "}"}]], "Output",
5 ?, R7 O# c' M9 t8 C3 n! Q  R7 p CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,
   3.5779608373044868`*^9, 3.578012227359375*^9}]
- r/ O+ ^6 M) l1 q2 P}, Open  ]],
" i4 q0 K+ F8 S; K6 D/ [! M
Cell[CellGroupData[{

Cell[BoxData[
RowBox[{"u6", "=",
  RowBox[{
   RowBox[{"Exp", "[",
& K# j+ H0 \4 L! s: h' ]+ i    RowBox[{
     RowBox[{
      RowBox[{"-",
% C5 l% V# y6 k/ R% e       RowBox[{
        RowBox[{"(",
7 j( M. l2 _- v1 ]: _+ D         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
. r9 [% v. z" D7 x/ n9 t2 k) K         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
5 h! P5 V( z0 }8 L$ q! y. q  T     "]"}], "/.", "DeltaX"}]}]], "Input",
/ E! u( F$ }5 V- t# [1 S, c4 J CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
( J; u1 y: y8 \# X% l, r
Cell[BoxData[
5 @. D2 K& y" ?$ T1 N SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
0 Y4 T, b% {7 A. V0 u; t! t" D% z    RowBox[{
     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{
( y/ Q( o1 R: ?2 @; W% ~( M         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
+ Y7 p$ O% W6 F7 b  O2 \8 `     SuperscriptBox[
0 Q( B! @, ~6 @2 B4 [; R      RowBox[{"(",
/ e& \! [1 D3 p& C       RowBox[{
0 A8 P2 ^/ c* X3 ~6 P, J! A        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
6 C$ q7 Q' q5 w* X$ n2 ~+ U      RowBox[{"(",
0 ~# b5 R* h4 E. N4 a  A       RowBox[{
" J9 o0 N4 W3 @% ]        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
) z: `( f& `; Z' O5 m) R     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
5 p9 q6 A% U1 v        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
0 i/ }, ?: K* ^4 b* d, P      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
9 R" J9 C% K, u6 e" b4 }( G& E      RowBox[{"(",
1 F; ]- W  p0 M       RowBox[{
1 G; ?2 `: \0 T, m        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
' `7 l/ ?- ^" g! ]4 |5 g     SuperscriptBox[
      RowBox[{"(",
' t2 z  T$ m0 A3 O6 Y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
/ g% Q. ^8 L# O6 Y' D' q2 q" A     SuperscriptBox[
) B: q9 p8 E' J      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
2 c, V' X3 P* L2 q    ")"}]}]]], "Output",
0 U, X& K: Y- ~, h4 D* \& ] CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
5 B+ o& h4 n; m& M. ^7 L5 W7 s) n  3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
- s1 o! m: U, G}, Open  ]],
; R9 e5 I$ c) t% L# e
Cell[CellGroupData[{

* l8 o" n) @& ^' O4 ZCell[BoxData[
9 P) b0 d! h  T1 H! g7 U RowBox[{"C7", "=", "Ca"}]], "Input",
0 e+ q, B# r5 x3 [% Q CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
% b1 N! F7 x0 Z/ D' d  3.577921316125*^9}],

- b8 @+ ^4 h% {# Z/ a* g5 [. C, A% _7 e  pCell[BoxData[
RowBox[{"{",
9 {+ W% Q( {/ N4 B) q8 D  RowBox[{
: p7 F- r! a! Y" b' \9 |4 F" J8 z/ o* z8 C  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
  "}"}]], "Output",
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
+ H6 C& ]/ S8 c1 G! T2 D0 u  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
}, Open  ]],
9 R; I5 B- I# P9 D
2 _9 X' P  a" RCell[CellGroupData[{
: P1 F: Q: \+ g( a
/ }; R6 z4 s0 b9 I/ KCell[BoxData[
RowBox[{"u7", "=",
  RowBox[{
   RowBox[{"Exp", "[",
) y# r4 g; i0 a    RowBox[{
     RowBox[{
      RowBox[{"-",
9 K5 B6 C3 Z% x) Q/ c1 T/ x       RowBox[{
        RowBox[{"(",
: U: n& }, R9 O  J$ K) X         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]], "Input",
- s: @1 G( \$ w CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
; A2 i3 ^" Z$ v5 X. L! B$ o  3.57792132028125*^9}],

Cell[BoxData[
8 {& \/ L9 A* w6 W4 Z SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
# U. g# y+ }" l) d   RowBox[{"(",
    RowBox[{
     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{
1 U" c7 S- |. `; O! ~' L& _$ k5 r6 M9 Y         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
, F0 E2 u/ S4 x4 O( v. I     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
3 y0 ]! }6 `# A7 i        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
1 a6 H# _: S# J2 R      RowBox[{"(",
% ]5 I5 ]" M( L" z/ y! u       RowBox[{
- \( _- U+ t0 P+ s' X% ^' C        RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
& L: X8 g; `/ _! Y4 B       RowBox[{
5 h& M1 X+ e1 u$ K7 I        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
3 C: Z) @; G" Q) U% a4 q8 K     SuperscriptBox[
      RowBox[{"(",
8 p! w) k3 n- \       RowBox[{
        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
5 ?$ J3 z1 }8 @4 T) @: _     SuperscriptBox[
; m2 G1 k6 O; {+ F9 P      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
! q6 d& t' g7 m% ~2 h& C        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
& [' K0 Y9 [& u) M     SuperscriptBox[
      RowBox[{"(",
! ?$ s. A% [2 A4 K       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
+ o; J- e6 O1 o  3.578012251359375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
RowBox[{"C8", "=", "Ca"}]], "Input",
+ h3 v( U' D9 x CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
6 w/ ]* X2 o4 ]" ]6 u  3.577921316125*^9, 3.57792141421875*^9}],

Cell[BoxData[
RowBox[{"{",
  RowBox[{
  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
; j' F9 |6 y- l# X6 D* S  q   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
  "}"}]], "Output",
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
% E4 I1 y* C& }  \( t- Y  ?  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
/ Y, k) k* J3 _: Y% _; ~  3.578012260515625*^9}]
  Q6 y2 M. L0 K0 ]) k# N9 R}, Open  ]],
- J! {' I' O2 h
Cell[CellGroupData[{
3 ~; F8 ~2 O. }+ ^/ u( H7 r
Cell[BoxData[
9 N4 u5 A: L: p. g RowBox[{"u8", "=",
" h( H. }0 c' N  RowBox[{
: w: C& o. s( B0 W   RowBox[{"Exp", "[",
; T9 K# q. @, Y) h* S: {    RowBox[{
     RowBox[{
. p8 y, A+ b+ y0 m5 U      RowBox[{"-",
: G% o6 J) W0 X+ b       RowBox[{
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
; f& o; M1 [2 b* Q) l" g        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
+ A( ?0 E# B. }) L     "]"}], "/.", "DeltaX"}]}]], "Input",
6 ~# ?2 Z6 p% O+ }. y: G CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
: ^8 ]. [5 A) s; I( ?5 F  3.57792132028125*^9, 3.577921416921875*^9}],

Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
  b. Z' ~; Y, z" ~& a) r2 t  RowBox[{"3.141592653589793`", " ",
& z. \8 f9 p2 P7 p6 h- T  X  U   RowBox[{"(",
    RowBox[{
7 B1 f3 Q' e! @- h! @# f     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
0 u. L- w9 j% h- F# D: R        RowBox[{
         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
% K  w1 p9 b) ~, R9 f6 o2 E1 x     SuperscriptBox[
      RowBox[{"(",
$ c+ x8 i% V6 Z5 i& j/ ?       RowBox[{
        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
) V/ @8 E; J, d1 v9 v" \     SuperscriptBox[
      RowBox[{"(",
! f' C- Y  D# b) o0 h  a       RowBox[{
; b, H! l8 [$ v$ ~( y  M; d        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
' ]% S, j+ D& k9 J9 Y9 S3 F     SuperscriptBox[
9 z* ]; S1 E4 v+ K& \- \/ X1 @      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
1 O% b* `8 [, e0 Q7 |  q3 F     SuperscriptBox[
5 ]! D2 H" b$ x$ U/ p5 h      RowBox[{"(",
- I" F4 _0 S$ T1 u+ U( _       RowBox[{
( J( y3 l; E1 Y: R        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
* V( S; x  z) q& ?! h" q. w      RowBox[{"(",
" I4 _/ A( v/ n! d' P: x' [       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
! {! l7 G; }- ~7 K3 c        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
1 H, Z* }) }. W( v      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
! A; ^' J0 p  a3 D- _# e. }  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
# S1 z' ~( W3 g8 E  3.5779608945565863`*^9, 3.57801226165625*^9}]
4 o% P5 _3 Z0 m( y0 i# n}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
RowBox[{"C9", "=", "Ca"}]], "Input",
& b( Y+ b0 T5 V, I, Y8 [# H* ` CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],

  h( [) n$ M" F, ~0 c+ W5 Y2 z. r& C, MCell[BoxData[
) z) u5 ?# j0 u1 g) e4 w RowBox[{"{",
  RowBox[{
+ L+ J8 I/ Z& c3 ]3 f3 _- m* {8 Z% r  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
  T; w6 d0 y1 C/ r8 [3 e  "}"}]], "Output",
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
3 }: X5 V: j; \: B  3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
  3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
- k6 B5 U( i+ E5 `" D! M1 ?  3.578012268234375*^9}]
}, Open  ]],

Cell[CellGroupData[{
& ~2 y& ?+ H. A
2 Y- |5 |6 V0 u, y! |1 q- rCell[BoxData[
RowBox[{"u9", "=",
  RowBox[{
   RowBox[{"Exp", "[",
& M9 S0 p4 i' _! P1 z! g    RowBox[{
     RowBox[{
      RowBox[{"-",
& Y5 U$ |6 U/ c; q3 [5 k( N       RowBox[{
1 G$ s( `( O; s5 F* R# d2 g* t7 k        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
  _' ?) O( \+ D; G% u, j7 ^        RowBox[{"(",
  z2 M/ U& E" ~* l! p/ z         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
& n: p8 {' \+ U) C     "]"}], "/.", "DeltaX"}]}]], "Input",
$ u7 g2 ~5 `3 R1 [0 P+ I8 M CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],

4 I8 R( A: h) {Cell[BoxData[
  Y/ c" x- y+ l% |% Z6 h SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
8 D" t  Q. i  i4 R" n     RowBox[{"-",
      SuperscriptBox[
( g! s/ t/ P+ m! d# h; F       RowBox[{"(",
# G4 _& s# @9 L) D        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
) I4 F, d; N  ^. x     SuperscriptBox[
0 S5 G! v, d+ t7 l3 d      RowBox[{"(",
       RowBox[{
! j  u' {. s! \, u+ F) E& ?        RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
8 D! l1 V) k/ g4 ^4 Y     SuperscriptBox[
0 L! M! \* E, j* H- F$ E3 n* t      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
: ~  y  C( |9 Z. B1 j! u1 ^* h# j      RowBox[{"(",
       RowBox[{
  V! ]) c: O3 R* P; s$ c        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
- d' {* Y/ w- v& ~, G3 ]. q      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
& l/ l6 e" l& O4 X: k9 ?      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
1 Q# F$ D( V8 w) U# Y1 c. K2 B9 u      RowBox[{"(",
" F; Q- z3 l2 @) M1 q& ?( T       RowBox[{
        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
- Y8 C6 f3 h6 E  \) M     SuperscriptBox[
      RowBox[{"(",
8 P* u0 }9 p" ]% {1 L5 Z3 B       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
, W6 c: p7 {, w: F/ W3 `: @( F9 N      RowBox[{"(",
       RowBox[{
( Q0 k- _+ D3 f% W        RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
! @& V3 t& l% O CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
: v! C( x7 V5 i: \  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
) g1 ]6 T! c3 I) `1 I0 Z2 s% T; w  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
" ?  i. a7 B) U9 ^  3.577961530421959*^9, 3.578012269125*^9}]
5 H+ G: I( u- c7 @8 A% E8 Z}, Open  ]],
: F- [+ g( R7 b3 _7 z
0 l/ X: z/ B+ \* h3 G$ oCell[CellGroupData[{

Cell[BoxData[{
& X2 L. p" w0 j. N RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
3 G) O3 c' |+ ]9 D1 Q# Z RowBox[{"u10", "=",
  RowBox[{
   RowBox[{"Exp", "[",
7 D9 ~  |8 a+ _& l$ n4 k    RowBox[{
1 O7 a2 o7 Z- u& U7 i     RowBox[{
      RowBox[{"-",
       RowBox[{
) ?3 \5 y* V+ c! C" o; q        RowBox[{"(",
1 ]& K& r5 z2 c         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
" \: s* b, d- |0 _* O! d- s        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
& x, s+ P9 I' t* ^) [: M; W5 y     "]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
* g- s( \1 d5 A* c8 n  z
Cell[BoxData[
RowBox[{"{",
) [% p8 U' `) K. C- M" f  RowBox[{
  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
  W8 F4 S* p; p" V. o, u8 i4 ?1 U   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],

Cell[BoxData[
# m" n0 o9 D% z; N; g9 I* W SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
     RowBox[{"-",
      SuperscriptBox[
: M$ s1 n( T. p% L5 u; ]' Q( n2 S7 V       RowBox[{"(",
0 }# v% p; J4 F2 U" `1 ~        RowBox[{
         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
% H  K/ R7 Q2 _        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
/ A! i8 r0 t6 w1 v      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
: y7 f, u1 w9 N" G9 w. A$ q     SuperscriptBox[
      RowBox[{"(",
3 R3 q" A) P2 r, A6 `       RowBox[{
9 N7 R. z# ^! k* d        RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
! b# u7 G6 X: d5 H     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
" \; _, B# W) @3 L8 M& Q0 f     SuperscriptBox[
: H- {9 x+ F4 ]      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
" f, ^, E5 L* q2 X4 y& G+ ]      RowBox[{"(",
# }/ ^4 G2 H  D( i8 r  `       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
7 B! [% X& [3 t     SuperscriptBox[
( T0 b0 E" _9 }9 o# E& U3 Q* f      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
* k! V% {. F" l% F      RowBox[{"(",
8 a+ t( e) g2 j% O, ~9 W& x       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
2 V+ V+ |$ ^+ ^/ {9 J CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
9 Q$ v! S8 ~: D5 V3 W" p}, Open  ]],
+ ^' n5 w6 c4 k7 u1 G# y
Cell[CellGroupData[{

Cell[BoxData[{
9 N. u$ a' X) ?! }2 T RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
) J4 H/ h' q' r9 E( G RowBox[{"u11", "=",
  RowBox[{
   RowBox[{"Exp", "[",
    RowBox[{
1 f' T. i( x. T. G     RowBox[{
      RowBox[{"-",
       RowBox[{
6 a/ O' F* }' }' s. @" D* ^9 E        RowBox[{"(",
4 N7 `) c+ m0 y7 ]8 ?* e         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]}], "Input",
) G; ^9 a2 e1 {9 u6 \( Z% U5 A- Z CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
1 M: z$ Z; u, v& ]  3.57796154237158*^9, 3.5779615434011817`*^9}}],

Cell[BoxData[
RowBox[{"{",
  RowBox[{
8 @2 ]9 y$ h* O& R! P$ ?( H  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
  "}"}]], "Output",
CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
  3.57801228203125*^9}],
6 F2 B3 `# ^. f& G; I
Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
: z* X3 k/ p- V% N' V0 a; h8 [  RowBox[{"3.141592653589793`", " ",
& d  C7 Z* `( o: X- h   RowBox[{"(",
    RowBox[{
     RowBox[{"-",
      SuperscriptBox[
1 N: l" a/ U' b* F2 j1 j- T. U       RowBox[{"(",
. B5 O6 w( ?  Z# ?1 O) ]7 M% P        RowBox[{
( \4 ]7 U( Q+ `( R/ G         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
& O4 M7 A+ a7 x4 k! q0 j/ g6 `# n  i  H. j% _     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
8 H+ B5 n1 S1 |7 m- ^; A        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
# d. n; P+ ?4 E" v      RowBox[{"(",
       RowBox[{
- Y& A! N: T& j1 w/ }6 {8 S        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
2 d( U& D$ L! n* a     SuperscriptBox[
      RowBox[{"(",
# S( p) @. L0 k/ U" Y3 @& @       RowBox[{
+ ~- W& o' V! u% v0 h        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
4 m$ U) m8 d) M% Q1 `8 P, Y     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
& k$ D1 [  o# ]6 D3 y        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
5 W* }5 ~% L0 j" O      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
6 c8 C4 m) V% E0 O( @       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
2 M+ z! _# D1 l; c( Z     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
0 _( h; d  b5 r      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
/ `: o1 f, ~( j! a    ")"}]}]]], "Output",
CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
  3.57801228203125*^9}]
5 r, J- E4 r! f7 K( F$ W; M7 I}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
RowBox[{"u12", "=",
  RowBox[{
+ d) M; x! P+ G6 ^   RowBox[{"Exp", "[",
    RowBox[{
     RowBox[{
# k1 E9 c) V5 L( k      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
5 @4 P% B) ?+ ]; \2 q1 `+ n8 g        RowBox[{"(",
/ P6 N; ]5 O* P         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
' \, n/ _, _" a/ U     "]"}], "/.", "DeltaX"}]}]}], "Input",
4 r3 M# [1 c. N; k CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
  3.57796154237158*^9, 3.5779615576284065`*^9}}],
2 G/ B+ w; r( s3 \1 L* Q; ~
Cell[BoxData[
0 y+ {3 T, P+ X- N4 ]. [ RowBox[{"{",
+ p3 g; P+ a0 |2 P- O9 W4 t7 H# ^  [  RowBox[{
. L0 N" ^3 f9 n/ u/ k  "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
. Q  O* V. M' J' @. O- w7 |5 g3 @   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
) Y! ]) V9 o3 I4 c( j" I4 V  "}"}]], "Output",
  N7 R8 |9 Q% E1 @# Q0 C  ? CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],
. C# t% r" h6 k1 ^" {& A$ U0 A
, b" r. s' y* H5 OCell[BoxData[
SuperscriptBox["\[ExponentialE]",
9 m+ I* E' D8 D  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
- `* Y7 M6 |+ Z4 Z     RowBox[{"-",
      SuperscriptBox[
  g6 M7 }0 i0 W4 q/ O3 }       RowBox[{"(",
        RowBox[{
         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
  {( f% O+ \" Q% s      RowBox[{"(",
       RowBox[{
+ l' \" F! k* Q* v; Y        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
  }  g5 E8 o7 A) t# A     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
% _4 Y9 g5 {! N, h: ]- w5 f" N     SuperscriptBox[
$ `- \  ^3 n' x+ R& ?5 `      RowBox[{"(",
- K. A7 ]5 {: a& H- J6 I       RowBox[{
        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
6 y: ?8 Z( C: w9 f     SuperscriptBox[
1 o( t+ h& `9 N( }: ]      RowBox[{"(",
       RowBox[{
9 X: g: p# N% i' k3 F        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
/ B6 b: t) I4 f' t# G5 H# C     SuperscriptBox[
' W- a( i& o2 o4 L) H      RowBox[{"(",
4 |" p, H. J. b$ a2 y$ B, w       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
5 q& ]6 E& `* G     SuperscriptBox[
      RowBox[{"(",
, b/ k8 o; j  g9 F- N( k4 o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
: l8 M& C% z6 ?" n/ b     SuperscriptBox[
+ b% U; |2 i5 T4 i      RowBox[{"(",
/ R* f+ q& N3 o0 e7 D" k+ K       RowBox[{
+ Z( ]! c, O; e3 o- g        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
  @( j# q/ E. l6 ?: Y- k' b     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
3 u2 j4 D3 Q0 h) T2 W  H$ z RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
& w3 i' I! E# _- Q0 ] RowBox[{"u13", "=",
  RowBox[{
; l" y7 X6 S; k* A2 k5 U   RowBox[{"Exp", "[",
    RowBox[{
     RowBox[{
, K- D5 k( `) I      RowBox[{"-",
       RowBox[{
8 a6 H! \0 z- k  y, z; u        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
4 F( V9 w) m9 B        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
8 M! ?: @. {6 h% w+ _# R5 {/ x     "]"}], "/.", "DeltaX"}]}]}], "Input",
7 a7 k9 A8 h. C1 t! y2 p CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3 b$ f4 e7 \4 Z* R  3.57796154237158*^9, 3.5779615599684105`*^9}}],

( u* y) s. ~  a! y( S+ ^Cell[BoxData[
RowBox[{"{",
% n) \7 ?4 b& v3 N* f* b  RowBox[{
% W2 E# F7 x0 [2 U6 {& b5 W  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
- F- }1 ]' S7 s% B$ w   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
7 |  \! T& v! i# a/ a7 v# \' j8 X  "}"}]], "Output",
. e0 A: Q- A& L6 A CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],

Cell[BoxData[
6 n; W/ G, Y, ?# e& _  K* \ SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
3 Y; a# b& w" ]2 S* [- j, j   RowBox[{"(",
" @5 z) T" m& N3 n    RowBox[{
9 ^* z' F4 i+ t/ m; e# J" v% @     RowBox[{"-",
/ b9 f/ g, L, G+ R! g5 t      SuperscriptBox[
       RowBox[{"(",
        RowBox[{
) L( O3 }7 N/ L6 |* l5 _% M( z         RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
8 T8 O5 s% h0 J2 r6 Z6 q# U     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
. l7 ^+ X/ h$ y7 l       RowBox[{
( R5 N8 d) {9 y) d        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
  F/ g9 N. i7 u* d# l8 [        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
2 x% z) j2 ~7 I) m" C% n8 I       RowBox[{
) O5 }' [. |5 v, U6 ]& u# M5 b; z        RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
9 F6 }- d. a  E% [     SuperscriptBox[
      RowBox[{"(",
! C3 ]% x7 p  [" |       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
/ k$ `6 Z* B7 k! }# L+ t     SuperscriptBox[
2 E# x; a# g' w; ~( a      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
7 a9 c; y9 r3 D9 ?( e) ?    ")"}]}]]], "Output",
8 k7 D" w& i, F3 S CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
}, Open  ]],

- r% F7 Z, R6 o- L! h) bCell[CellGroupData[{
2 q0 J' p4 b2 r9 T
Cell[BoxData[{
3 t/ B5 a7 n1 k1 P8 K RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
* M! B0 u: S' t; B3 [8 M4 c RowBox[{"u14", "=",
, R0 O: h5 ^  y4 V6 \4 s0 X  RowBox[{
8 b# C4 s0 `: S7 ?   RowBox[{"Exp", "[",
    RowBox[{
     RowBox[{
      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
; A& R6 y4 X% a0 Q         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
) i0 f3 M- b+ G7 r( [4 {8 t1 X  3.57796154237158*^9, 3.5779615663176217`*^9}}],

Cell[BoxData[
RowBox[{"{",
6 d# z: k) f% y2 Y, [9 j' I7 x. A0 f  RowBox[{
2 T  R  n5 m5 O3 m  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
   "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
  "}"}]], "Output",
CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],

Cell[BoxData[
( c, {$ V1 W: R* |% O4 d SuperscriptBox["\[ExponentialE]",
* h  B- b. Q& m  RowBox[{"3.141592653589793`", " ",
& d6 r6 w# }) I6 T   RowBox[{"(",
    RowBox[{
     RowBox[{"-",
      SuperscriptBox[
# j: u  ~2 Y* Y% A- P       RowBox[{"(",
        RowBox[{
- S3 h* c. Q& O         RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
1 K' |% \$ N' x+ j" [/ F0 `/ j- |( @5 s8 L     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
( C/ M  n  [& F     SuperscriptBox[
0 A- U$ Q& D" K7 P! ^      RowBox[{"(",
1 j! l  m, F+ s3 B5 e: g% ~       RowBox[{
        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
6 d/ a7 J0 k; t# Y3 `! k     SuperscriptBox[
+ I8 ]9 c+ `# |. q* v; o      RowBox[{"(",
9 K- F1 K" S+ o$ t       RowBox[{
$ m' T( Y$ u8 R0 j        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
9 t& D! c% @- Q     SuperscriptBox[
      RowBox[{"(",
4 ]* Z, l$ v, S* {! P9 m       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
! }* f; O* O& E- w     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
' W0 F$ E  x& T8 C2 g      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
- r6 r$ @' e9 T% o     SuperscriptBox[
      RowBox[{"(",
* ?$ o4 w4 Q' _+ O* _7 X# e) e; M* }) C       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
, B$ G' N: `7 l2 h! Y* Q    ")"}]}]]], "Output",
2 n0 z# S& `: q CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
' I# K: {( I  g! f' m# O& g}, Open  ]],
$ K( K8 B9 U: v: A9 `. d
/ n6 a# n# O. eCell[CellGroupData[{
2 n1 `" O1 m0 Q9 Z5 I* U
Cell[BoxData[{
. g$ E' x8 X6 K! G9 d RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
RowBox[{"u15", "=",
  RowBox[{
   RowBox[{"Exp", "[",
    RowBox[{
     RowBox[{
      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
$ }) k* l8 E% g  3.57796154237158*^9, 3.57796157098203*^9}}],

Cell[BoxData[
RowBox[{"{",
  RowBox[{
  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
; x# i3 @0 Q0 @& z6 E  "}"}]], "Output",
5 B+ m( G. J& a2 h8 `! z CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
  x+ S8 J) m" g" A- K& J8 @
Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
0 ^( ?2 R. [, s1 a9 N  RowBox[{"3.141592653589793`", " ",
; S$ B  T4 T, w9 [, K   RowBox[{"(",
4 {$ V$ y# X) [: w! f9 X( n    RowBox[{
     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{
         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
( w; s3 Z; d5 T5 g& w; K& f+ m/ j( {      RowBox[{"(",
# ]5 E* X7 t' D' ?       RowBox[{
: [* M5 ]' J' G6 R        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
' A. l) F5 j6 l  g" E$ p  ]' |     SuperscriptBox[
9 p+ k7 }: l1 R1 a- y      RowBox[{"(",
4 r/ {/ m4 `3 ~  q: I$ O1 a       RowBox[{
  q0 U0 m" i2 S) Z& F% L        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
0 Q/ l. P4 w. v: D+ T; p% D/ D     SuperscriptBox[
      RowBox[{"(",
. _8 n' r" \  V6 F; k& A8 x       RowBox[{
, q$ J6 U) ]- t$ ?) R* t3 w        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
4 T- e( [; _$ F2 e: t        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
( \% H* l/ X8 M4 C1 D1 l       RowBox[{
        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
. u$ {* n6 m; z* ~! P) L. v' B     SuperscriptBox[
! T4 H* |0 e+ Z+ U) Q) U, c      RowBox[{"(",
* d; b# j% d( I4 Z2 b& T       RowBox[{
        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
# F+ N7 `7 Q0 H; `6 `2 ~     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
/ r( T- Z4 o+ \! {     SuperscriptBox[
6 c; R% {% P- g6 y2 ]      RowBox[{"(",
8 W+ K. p4 m- l" {7 V3 y1 O       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
: C5 R2 s) u8 ? CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
}, Open  ]],
* t. W0 P- G$ n7 r$ Z
) T6 \( V; ], h2 @6 [2 k! K4 eCell[BoxData[
RowBox[{"For", "[",
% u0 _( r6 m6 A! ~& w. J" t; ?  RowBox[{
   RowBox[{"i", "=", "1"}], ",",
. |8 p1 X  E: |3 p   RowBox[{"i", "\[LessEqual]", "9"}], ",",
   RowBox[{"i", "++"}], ",",
   RowBox[{
2 G  A% Q: P0 W0 p: ^' A+ D    RowBox[{"Ca", "[",
     RowBox[{"[", "i", "]"}], "]"}], "=",
# G  b( I% k. O+ W    RowBox[{"CM", "[",
     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
" ]: ?) {8 d' Q6 e4 H CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
8 u2 I2 T4 K* E; Z$ m  I
Cell[CellGroupData[{

Cell[BoxData[{
RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
RowBox[{"u16", "=",
) [/ ]) }3 m( r/ @9 @  RowBox[{
4 Y8 n- E& d9 {- f7 x$ H* K   RowBox[{"Exp", "[",
4 ~: H: z3 U3 X' @% ~( v    RowBox[{
     RowBox[{
, s+ y* e2 I6 d# ?6 o      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
# U% x0 [3 a6 K8 A" J8 Q0 D        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
  3.5779615751004367`*^9}}],

Cell[BoxData[
RowBox[{"{",
0 W/ V/ d2 }1 m  RowBox[{
  "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
* Z. [/ q( F3 V. n   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
  "}"}]], "Output",
CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
2 e# O7 l" f# H- b) b
Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
! a2 `+ p4 A. I) Z  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
3 h3 {$ _+ i: Y9 A5 m     RowBox[{"-",
8 _  _  l7 S" J1 K. r3 D1 K% g  O      SuperscriptBox[
       RowBox[{"(",
+ O5 @4 D( a1 W% q$ h" O        RowBox[{
2 L* l5 ?7 ?: X( [4 ~( f! Q* |, {         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
7 N$ E1 U/ G1 {: W5 t6 I     SuperscriptBox[
      RowBox[{"(",
0 _' E% ~! z0 }5 [9 |; e       RowBox[{
        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
: `- c' F: F5 v2 ~     SuperscriptBox[
# @; I: s% \" [9 c( r; O3 H7 h, l      RowBox[{"(",
       RowBox[{
1 w+ M- z6 ]$ A# P) T        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
' A# W# }8 S( c% _& ]! h      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
3 [/ B# o- Z6 l6 J8 X     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
, D" Y. n$ M# w$ _        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
2 y) C3 w1 A: ^2 F" Q7 g9 d% Y     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
  }4 |2 V6 F. u1 o2 X+ z        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
. A+ G9 X" _& U( v# h8 W       RowBox[{
        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
8 ~& p- y7 U0 p4 D! I% F: L      RowBox[{"(",
! v, Y( s+ H1 b0 V$ i% g; P, U       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
  I+ s% ~  p0 f7 [8 ~     SuperscriptBox[
; w; g# m2 h8 q: q, L4 j5 V      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
* q1 p* ^) `$ @/ Z+ D' [2 G CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
4 O; g) _  }8 E! F, t- } RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]",
RowBox[{"u17", "=",
7 B; f' W+ V) d8 O2 k4 C  RowBox[{
' O* }' ]% c# X/ [1 R: B   RowBox[{"Exp", "[",
1 K) p1 u" C% z  \8 f    RowBox[{
3 Z; c1 e7 m7 r; y+ z$ K3 V     RowBox[{
      RowBox[{"-",
& I" l* K. \; r       RowBox[{
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
& o) S( O# a+ W/ A        RowBox[{"(",
) b# @  W+ o( M3 W         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
4 j0 m, W* Q( X     "]"}], "/.", "DeltaX"}]}]}], "Input",
% C' C) U0 ~# t CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
* B# S8 a2 K# c2 U9 n5 V  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
  3.577961578953644*^9}}],
; C. q* G2 Y. }, T" F: U6 S  t
Cell[BoxData[
3 L* N, v0 h, ^) d( J RowBox[{"{",
  RowBox[{
. j, P, I  e; L. E! _  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
+ E; a* T" Z1 A, e2 a   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
  "}"}]], "Output",
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
; ?# d) Y! {' n
/ W# s) M0 I; [1 K7 |Cell[BoxData[
4 R8 ]: v+ ]2 B SuperscriptBox["\[ExponentialE]",
: c" A5 n  y/ f, ^  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
     RowBox[{"-",
' P5 z8 z9 m- ?0 i      SuperscriptBox[
3 h- D  K- I' H/ ~0 K       RowBox[{"(",
        RowBox[{
, ?2 b) P& g# G  T         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
' }1 I9 l: i! N$ I5 y      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
. y; q1 C" A- G! h- P      RowBox[{"(",
       RowBox[{
4 g1 E" o. Z+ ~0 @4 w# P        RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
' s, d3 r4 u3 \       RowBox[{
  b0 B: w- p$ ], y) A" k+ |6 \        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
. X. v% w+ L8 h+ S7 R$ r; j3 Z      RowBox[{"(",
       RowBox[{
6 x6 V, G: f0 {% l7 y, I        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
; o( f+ K* l/ q     SuperscriptBox[
& k0 c& s, z' F" h& Y! M6 C      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
5 g% r+ j; d! e0 m) Q, i      RowBox[{"(",
$ K; t6 ^* [2 S5 u* o% \       RowBox[{
' W) w+ v0 z8 u! R( ~1 l        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
- U, x# m  C9 z' R    ")"}]}]]], "Output",
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
  i4 ^& Q9 C! B  j  Z9 P}, Open  ]],

8 I' l# U  p! H9 L5 C4 wCell[CellGroupData[{

Cell[BoxData[{
3 a5 H' w+ A+ a) s" R; B/ e% m RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",
RowBox[{"u18", "=",
& j( K1 W2 X# }# E( f# P1 b  RowBox[{
   RowBox[{"Exp", "[",
, C& ~' a8 _3 _  G- v$ E8 N% m    RowBox[{
     RowBox[{
( c+ q, H, U7 k* O; y      RowBox[{"-",
2 E7 i( w% e' a# Q$ k& n5 Z, g# _       RowBox[{
! {$ Y$ h, N7 W4 |: [9 s, }        RowBox[{"(",
+ a$ g! a5 K' I6 h! C& l# z9 [         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
  t* S- B6 Y  D9 p  n2 `. `' f' t' t        RowBox[{"(",
% J0 b: J( K! m; ^         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]}], "Input",
( [7 V: H2 g4 b6 z" d$ `* W CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
6 \5 y+ [* l3 |, J8 r8 K6 P  3.5779615828848505`*^9}}],

Cell[BoxData[
& e  m) H& s, | RowBox[{"{",
# L3 T  s$ a# l) W' M. H  RowBox[{
8 \6 ]7 j9 r9 ]5 a# q% \  "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
  "}"}]], "Output",
4 n3 q* ]. k; f) ?: p0 P CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],

0 I/ ^: T' p3 V$ yCell[BoxData[
SuperscriptBox["\[ExponentialE]",
7 K6 i6 l5 Y9 ~, q) L; p) h' m7 F  RowBox[{"3.141592653589793`", " ",
  X- L4 ^) L# y  `# L8 \* T   RowBox[{"(",
    RowBox[{
     RowBox[{"-",
4 h0 Q5 ]+ c( W4 ^1 r! E% X* f5 e* _$ n      SuperscriptBox[
       RowBox[{"(",
% J5 s- k. g1 f' q8 A        RowBox[{
         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
/ ]9 ~; S% M+ D! S( s: Z, b     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
: ~) n) l+ i4 t, r/ C6 ~' ~        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
1 F+ D! O* i- F! E- }5 n# b1 A     SuperscriptBox[
: r0 p5 g! g, K. o& u$ ^# _      RowBox[{"(",
8 o, c' i+ [# T, a       RowBox[{
        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
$ ^; J% o( p1 l7 A% f( q% p      RowBox[{"(",
" y6 }. H4 [2 N- @       RowBox[{
0 |# r/ U! Y' s" B4 s        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
; o1 z! y2 a, M" ?' K) m       RowBox[{
( E0 M4 p0 b; ?' u7 B8 E        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
$ g7 Z* u1 U, O9 S# ^1 h2 ~; i5 k     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
* [4 s* }! _$ G7 ]* s1 w$ i5 n     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
. Z, ~0 m  c) O6 o7 G, K     SuperscriptBox[
      RowBox[{"(",
# h) b$ L3 ?0 g       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
9 K) [/ i: W9 N' Q" L" Y7 k     SuperscriptBox[
/ j& i# Y! p# [0 c$ s      RowBox[{"(",
6 z: p& o4 U; n8 ?  S/ L% `) z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
. B. W0 [7 {' w3 V6 g8 i( R    ")"}]}]]], "Output",
6 [* E, s- t( q5 t  X# A' J* F+ H CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
}, Open  ]],
" B5 b* I+ Y5 ]1 \
Cell[CellGroupData[{

% d) `8 y6 @% a: k" t1 U1 v/ k6 jCell[BoxData[{
9 l4 i  s- I" \( B- E RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
RowBox[{"u19", "=",
) _8 a# V" L' a9 i. N. C  RowBox[{
   RowBox[{"Exp", "[",
    RowBox[{
; A# _  [" r  y5 Z1 s- t" X) L     RowBox[{
      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
3 r& w: A- J8 |" R, E) V6 ]9 P1 R         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
9 t3 J" ?7 w( _2 ?/ R  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9,
  3.577961588890861*^9}}],

0 a. H. u' L7 s5 j1 `' M8 ]; ~% iCell[BoxData[
; f+ O9 W) B" w3 A) G9 k/ V RowBox[{"{",
% S. D/ r" i% ?+ r& L2 D  RowBox[{
  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
( {, g$ A8 u/ \1 d" D) ?* \1 S6 F   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
  "}"}]], "Output",
$ Q( y0 u8 r6 }5 l6 e CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
2 O' L& s( Q) Q3 Q0 o" R
Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
. H5 \' N4 o" Y" a/ H4 p  RowBox[{"3.141592653589793`", " ",
/ Y( U  c* e! }) I   RowBox[{"(",
    RowBox[{
, W( w" `  C/ Z' k. n/ S0 s     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
+ X8 B" M$ f. j& d) m: r: X4 ]1 D" g        RowBox[{
/ A; Z, D2 P' [         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
( B- h3 p0 q9 g' c3 Y3 V1 N     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
) P) q2 a+ V+ L0 M- T, H     SuperscriptBox[
' F+ D* k0 s0 ^5 w% T" [      RowBox[{"(",
0 l) L% W$ w1 H/ w* E1 P# f       RowBox[{
        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
. a2 a) P/ b* H+ f8 f8 m" L" [" @9 x      RowBox[{"(",
3 Z: n  r6 B- M) a       RowBox[{
; t$ u$ G; _3 Q$ x9 K        RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
% R, a- C, n9 f8 D, ]- K' F     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
/ Y# X$ C7 W$ h; [. ^  Y      RowBox[{"(",
5 B$ }* s5 t% n% x2 C       RowBox[{
. }; K  D& S4 k7 V, [9 u        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
( g& L  n7 \- x1 h     SuperscriptBox[
      RowBox[{"(",
2 A2 Q4 n6 C: B3 p9 K       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
1 n; v7 f7 `, M4 _     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
+ N6 N. V  U* [1 M4 w! u7 `     SuperscriptBox[
: n4 J4 @5 e8 n$ E  F5 J$ `      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
4 Z7 c6 J8 v4 a& J0 o, V# W$ k8 T    ")"}]}]]], "Output",
CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
+ h) O6 ]/ P: h( z}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",
RowBox[{"u20", "=",
( U: c1 M% O* p- w3 P  RowBox[{
/ j# M0 w% b: c) h7 F   RowBox[{"Exp", "[",
' M" ?% J$ q3 U" O5 Q    RowBox[{
     RowBox[{
& [+ N0 f% D/ O+ x! L7 h      RowBox[{"-",
       RowBox[{
& z4 \7 n, [! A        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]}], "Input",
! I; X. p- ?2 a3 G: l: M9 F CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
  x7 b5 l! M- Y* f! J! r4 @  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
5 _: j- v9 p4 ~& |  3.57796159382047*^9}}],
, M. _! _1 n+ R
7 A$ U6 h6 ?7 G& BCell[BoxData[
/ {$ H- k* Q3 ^ RowBox[{"{",
3 Q! t, `; j# |) |( D  RowBox[{
. K# w/ S, V$ k  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
  "}"}]], "Output",
CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
# O% F5 U* v2 \' p* D+ |- x5 b
. Q% k( [6 ?" |1 LCell[BoxData[
9 f  v: Y% w. s; [ SuperscriptBox["\[ExponentialE]",
$ _3 c9 L0 M: G6 f2 ^  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{
# @: l  W* L( g/ g2 F# }         RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
) z: p5 V# y& Y- A" X/ r      RowBox[{"(",
       RowBox[{
2 Z* w  H' N# A- Q  G        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
- a1 f; ^/ g/ Z; }. f  Q, [     SuperscriptBox[
      RowBox[{"(",
' k0 }4 G; E/ y$ Z' w  ^       RowBox[{
: B: T9 r' j, z/ h" H$ a        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
' g8 v4 C8 v9 n! X$ x' q     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
" H7 Z0 T! v$ p. u# W' t5 \6 n        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
, o8 W, H" n' Z- @, u/ S2 s     SuperscriptBox[
  M# s9 r6 r# P" t% O3 v7 ^/ R      RowBox[{"(",
4 w1 ?- ~  \- u; \       RowBox[{
        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
+ R9 Y- g4 T5 e$ @1 U; V      RowBox[{"(",
       RowBox[{
) t* C7 _/ d, _0 v        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
% y, }9 S0 Q6 [2 o7 x     SuperscriptBox[
      RowBox[{"(",
" ^9 s0 B+ G, y# q+ h) a       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
8 l& l' ?+ T, V      RowBox[{"(",
" K0 l) l  x# ^& e- l0 c       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
7 t7 K0 v5 A$ |: b2 Q. [& w0 v+ K      RowBox[{"(",
6 R' L  P) {6 U$ B/ B; ?! ^$ Y       RowBox[{
        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
2 {- k. Z7 T* D% B  G4 i. A- S    ")"}]}]]], "Output",
9 Q; S) [9 x4 e3 m+ A4 f6 C7 B CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]
}, Open  ]],

! n3 L6 I  v' x8 u" hCell[CellGroupData[{
7 ~0 S+ g( [+ j
" w( e5 L% E: ^$ Z0 {* m* fCell[BoxData[{
( o1 a5 c* l  f! |- q: i% O RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
$ m$ D2 q7 ?6 ^4 P7 h9 S) S" [ RowBox[{"u21", "=",
  RowBox[{
   RowBox[{"Exp", "[",
    RowBox[{
( \) K; c) R4 d0 e     RowBox[{
: w# K! {( c; l9 f" l      RowBox[{"-",
. |) ?+ q8 ^1 Y1 c6 r. }       RowBox[{
2 T* e; @' g. f        RowBox[{"(",
2 {! A" v4 V, s* {% p- H         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
% m6 n. ^1 y/ Z6 c' y         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
* J! N8 h% l1 z$ Y0 t2 x/ ?& V- R     "]"}], "/.", "DeltaX"}]}]}], "Input",
* K6 o& K' M( _+ g& p$ j- u CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
* @4 _/ J$ |5 I- l% O& l0 Q  3.5779615991556787`*^9}}],
. W/ {, E( T' }% m0 \
Cell[BoxData[
RowBox[{"{",
! L# X1 E9 w3 G& p" t$ Z$ V  RowBox[{
  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
! Z, _- Z; x% z0 G6 z  "}"}]], "Output",
CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],

, ^) V5 D* F' ^' [! N* vCell[BoxData[
2 b9 J! X5 w( J" a* { SuperscriptBox["\[ExponentialE]",
$ `5 ?0 I1 Y) C7 F; s  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
& M# j% y/ t- K0 G2 U) J# ]     RowBox[{"-",
$ f' D0 p6 F9 Q      SuperscriptBox[
( V9 e1 m6 G, F/ e# j; G' g6 {       RowBox[{"(",
        RowBox[{
         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
9 G' {: i  A  q0 [' e      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
6 I4 M6 s' W% J3 w# v: L     SuperscriptBox[
8 O; {$ @2 Z$ {5 \) P# ^6 g7 q      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
/ t0 L$ _% p( v+ I/ n      RowBox[{"(",
; a- m# ~- I# c; R; X! x( _       RowBox[{
        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
% O, C2 T* u& `- e     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
* n3 P' b( {% x2 z$ Q3 i" x     SuperscriptBox[
3 K- A. g* T6 i. }7 }      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
/ }; D. r/ I# a0 x0 E1 f0 p: _     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
- o! T: s/ A1 w- i! X     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
3 L' F7 [) P+ p  Q* k% V3 a    ")"}]}]]], "Output",
CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]
}, Open  ]],

Cell[BoxData["\:62df\:5408wi"], "Input",
CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
; H2 S9 H( A( w/ Q6 y
Cell[CellGroupData[{

# j9 Y% ^7 Y- C  X- C0 @; QCell[BoxData[
RowBox[{"y1a", "=",
! K1 M" A% j2 z) Y- T3 |  RowBox[{"Table", "[",
6 G; V8 A  y& a  h   RowBox[{"x", ",",
0 v+ A: l7 y  V4 T    RowBox[{"{",
. y; n# @  A* O  ]     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
) w2 ]* y7 z8 b5 d  3.5779226649375*^9, 3.5779226810625*^9}}],
( K7 g0 w' x9 O/ ~$ J  ~# ]
Cell[BoxData[
RowBox[{"{",
  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 o' I( B5 K/ j, G8 X% H   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
  b' Q; x& k6 p   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
7 l% u' q8 }) B: [7 V" k& b   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
5 y* j  K" V9 h- ?( s  "}"}]], "Output",
+ C- L" X% @+ G" V5 Z CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
# S/ h2 w- Y. b' h" `: s  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
4 F% j1 c4 V2 h7 U}, Open  ]],
' u  d( D0 ?$ R9 Y8 t# J
7 ?6 q# Y. A1 L* Q6 sCell[CellGroupData[{

Cell[BoxData[
RowBox[{"Data", "[",
  RowBox[{"[",
  m; S' S& L9 ~) \   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
8 ?- z" l% _8 e1 s CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],

Cell[BoxData["0.899882`"], "Output",
# d( O% [* S# f( [5 S1 V CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
- k/ `) J# \/ G( B5 d% B   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
5 A2 z/ l- J9 W! I   3.577961929080654*^9, 3.5780123419375*^9}]
}, Open  ]],

Cell[BoxData[
0 q/ }- x0 H5 M7 g2 t, ? RowBox[{"For", "[",
  F* I. j# Y( Q8 z+ _  RowBox[{
/ h8 @8 U8 K5 R% F7 ~9 r   RowBox[{"i", "=", "1"}], ",",
% H3 g( w. F/ f- `" ]   RowBox[{"i", "\[LessEqual]", "60"}], ",",
* F. `7 A6 w7 B" S6 M8 f   RowBox[{"i", "++"}], ",",
1 r7 j2 u/ D/ i+ T' h6 B: i7 n   RowBox[{
/ P) @4 _3 j/ R5 B4 Z    RowBox[{"y1a", "[",
     RowBox[{"[", "i", "]"}], "]"}], "=",
    RowBox[{"Data", "[",
     RowBox[{"[",
3 H9 c- L8 k: _# y3 j) v1 S      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
' b' B+ A& Z" t   3.577922923203125*^9}, 3.5779588839702806`*^9}],

; e* y3 T1 |0 L- N, b) QCell[CellGroupData[{
! [& y3 g7 ?7 l3 A+ `* ~4 r% @& r
8 }6 k8 {" V( v' f: j1 \Cell[BoxData["y1a"], "Input",
* G1 R$ n) z; P0 P9 ?$ a CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],
2 a) z2 b- d  l/ Z# ]: D' Q
Cell[BoxData[
: z9 S) q( O' r' w* h RowBox[{"{",
; E' y, A( c8 f  RowBox[{
  "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",",
   "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
2 [$ e/ n) f0 t" K   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
   "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
: w: C3 I8 f+ ?, \: c  S: ^   "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",
. f- E" R. H6 l, U  n0 Q8 d- s   "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
1 s, n+ a# t7 i  O0 h   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
( p' J- {( x4 l6 G3 q3 J" |) {   "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",",
   "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
   "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
6 _; E. D6 q! s. B( s4 h5 j   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
   "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}],
5 \2 H  p8 c! ^+ ]  "}"}]], "Output",
$ U5 O9 C9 k; b  {7 J: W. o CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
! ~8 q: s. v7 m- G( u, k$ o  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
  M  |2 o! W4 z7 D- q9 N}, Open  ]],

Cell[CellGroupData[{

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

Cell[BoxData[
5 H. ?/ i' l. G! X! q RowBox[{"w1a", "=",
! R( D, S0 H2 G2 i4 V% p' i. T  RowBox[{"LeastSquares", "[",
   RowBox[{"m60n21", ",", "y1a"}], "]"}]}]], "Input",
' ?- x% n* b9 k CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {
  3.577924662765625*^9, 3.57792466596875*^9}, {3.577962074644508*^9,
  3.5779620748317084`*^9}}],
3 r8 x0 t9 l2 V* I' X! k
Cell[BoxData[
RowBox[{"{",
8 O5 G! f! A9 _# p  RowBox[{"0.32564305572552416`", ",", "0.500820838606441`", ",",
4 |: Y% L- u/ v3 ?# k   RowBox[{"-", "0.5945873894818967`"}], ",",
4 |' N7 O  y. C! _" m) q8 J  E' k   RowBox[{"-", "0.1999688587779198`"}], ",", "0.020180806675835994`", ",",
   RowBox[{"-", "0.03345934908892623`"}], ",", "0.25282438852646905`", ",",
   RowBox[{"-", "0.17602467625404622`"}], ",", "0.3961180670900672`", ",",
   "0.02759193650965952`", ",",
   RowBox[{"-", "0.320472847796449`"}], ",",
   RowBox[{"-", "0.07581214474544527`"}], ",", "0.4812237524557292`", ",",
$ B/ @. s8 a; X  Y3 Z( [: E   "0.7528674241482847`", ",", "0.6665374509702799`", ",",
, A& D2 {6 L6 X. A: I   "0.22861495086373018`", ",", "0.13092706311748484`", ",",
   "0.5252475961933538`", ",",
3 e6 o+ ^6 x+ Y$ r   RowBox[{"-", "0.10599338351843157`"}], ",", "0.6670272593678526`", ",",
+ a/ r9 V5 M! I/ f* Y   "0.23580523388620733`"}], "}"}]], "Output",
CellChangeTimes->{3.577924621953125*^9, 3.5779246688125*^9,
  3.5779575884583836`*^9, 3.577958952875601*^9, 3.5779620806661186`*^9,
$ T1 z6 o3 _2 Z/ g/ @$ ~, \  3.578012349875*^9}]
! B' T3 [! J6 @! z8 r0 a}, Open  ]],
6 O/ K# d  ^$ T$ p/ h
Cell[CellGroupData[{

Cell[BoxData[
* [3 T0 h  d0 B; g RowBox[{"y1", "=",
  RowBox[{"w1a", ".",
   RowBox[{"{",
    RowBox[{
1 ?$ j) w+ c; f' Q* j2 n" V' p    "u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7",
' O2 O8 k! \+ j0 E     ",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13",
) R% Q( v: @" }3 e# G& ^     ",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19",
" L& M: @2 s* `2 t3 I- [1 @     ",", "u20", ",", "u21"}], "}"}]}]}]], "Input",
CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {
$ t- D( o8 L& t  3.577924897078125*^9, 3.57792491596875*^9}, {3.577962095642144*^9,
  3.5779621231449924`*^9}}],

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

& [7 T4 [0 x# J& R& ~" fCell[BoxData[
RowBox[{"For", "[",
  RowBox[{
" R) ?9 b/ c, ]% h* J   RowBox[{"i", "=", "61"}], ",",
) o6 R! _' n5 [& H3 T- d   RowBox[{"i", "\[LessEqual]", "89"}], ",",
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
. ^& Z' G* M) W   RowBox[{
    RowBox[{
     RowBox[{"y1fit", "[",
      RowBox[{"[",
8 e/ |4 F6 i2 o- `/ b. x0 L       RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
- l1 _! f, o0 `) U- h( D5 _, ]     RowBox[{"y1", "/.",
      RowBox[{"{",
/ ^  e$ R% y0 q# U       RowBox[{
8 r5 }5 N  E' Y% }6 k        RowBox[{"x1", "->",
         RowBox[{"Data", "[",
          RowBox[{"[",
           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
        RowBox[{"x2", "->",
         RowBox[{"Data", "[",
3 A3 x- o% |; ^6 j          RowBox[{"[",
1 {# f, n) _3 G' i5 N           RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
& W& E" ]; z7 `* I( _1 {        RowBox[{"x3", "->",
         RowBox[{"Data", "[",
          RowBox[{"[",
           RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
- o7 o5 F$ b- b" x: t& p7 G' W        RowBox[{"x4", "->",
         RowBox[{"Data", "[",
" z- H' D$ D0 G# J3 R          RowBox[{"[",
  D5 _( K6 l4 b% C           RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
; [  Y# v% @) ^' D- l        RowBox[{"x5", "->",
2 O# [+ K* \( s  g$ `# q* r         RowBox[{"Data", "[",
          RowBox[{"[",
# S8 v1 F3 K- V7 S: ~  B/ B           RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
        RowBox[{"x6", "->",
         RowBox[{"Data", "[",
( X& h0 C' P% z+ V          RowBox[{"[",
! O% X+ b. C( x           RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
        RowBox[{"x7", "->",
         RowBox[{"Data", "[",
          RowBox[{"[",
% _" v( c" h, C           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
6 z8 y  @4 |7 ?9 C9 v        RowBox[{"x8", "->",
7 [- x) A1 Z' p0 ^2 ?" f" ~         RowBox[{"Data", "[",
. l. V$ s) I" V          RowBox[{"[",
& R1 a6 h# G" j0 w7 R           RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
        RowBox[{"x9", "->",
         RowBox[{"Data", "[",
( x/ i1 b4 A/ ^' m          RowBox[{"[",
           RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
  "\[IndentingNewLine]", "]"}]], "Input",
# ^3 C+ ?) K1 j' i+ G9 G CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {
  3.577925286140625*^9, 3.577925306765625*^9}, {3.577958922517948*^9,
  3.577958922549148*^9}}],
1 J7 z  ]/ ~/ W- z
Cell[CellGroupData[{

" M  A3 |0 p7 |0 R* I. f! aCell[BoxData["y1fit"], "Input",
CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
6 A4 u2 F, ]: m% H$ C: o7 w  3.577925040484375*^9, 3.5779250440625*^9}}],

7 p' `6 b2 {/ H3 o7 D1 g( \: QCell[BoxData[
RowBox[{"{",
1 r* S& b' }0 |, C  C  RowBox[{
% L9 o- A* h8 k/ G% |- X  "0.43193416525930517`", ",", "0.4501634853493982`", ",",
+ x. `7 E" f3 \7 J   "0.33336034768525247`", ",", "0.4418609896858925`", ",",
6 ~  f' y2 x; x" f3 L! D   "0.41030378932283024`", ",", "0.516814798191575`", ",",
5 i. ]) _  @% ~$ C" O2 R   "0.4476631213729994`", ",", "0.3016552978696669`", ",",
   "0.378122167437847`", ",", "0.020339844919720733`", ",",
1 @# Y7 O( g7 F3 n9 r% A   "0.018745375782087376`", ",", "0.2919925992695025`", ",",
8 f9 v3 U) L. I3 M3 C   "0.2649067959681263`", ",", "0.16343444284525593`", ",",
2 R4 B+ c5 ?, Y* q0 {2 j) u" B   "0.4182466778551563`", ",", "0.27347752211364934`", ",",
   "0.38554057386385654`", ",", "0.35253160453718047`", ",",
   "0.2054745841100774`", ",", "0.45504377112716676`", ",",
8 \3 o0 x" u1 z' h' f  _5 M   "0.1598805094678612`", ",", "0.18662509982279485`", ",",
   "0.10684797493248213`", ",", "0.013349212673286828`", ",",
   "0.08215836003004297`", ",", "0.2979041599362813`", ",",
   "0.05995976512343641`", ",", "0.3884793499104568`", ",",
   "0.5361889337034293`"}], "}"}]], "Output",
0 X: E4 z" O& J CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
  3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9,
* ]$ F5 h8 K7 q1 |) E  3.5779621416934247`*^9, 3.578012355546875*^9}]
1 a+ w0 U) R5 G# Z4 p7 H! C}, Open  ]],
7 M/ ~, R6 C( s5 Y' n
Cell[CellGroupData[{

Cell[BoxData[
RowBox[{"y1fit", "=",
  RowBox[{"{",
   RowBox[{
' H9 |# r' h' }9 [   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
$ o# B4 l4 r3 e, l- `    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
' e( t& J' ?; ]+ r/ }. F$ f1 H    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
$ K7 F* r+ e. _0 h0 G    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
4 a/ c5 |0 ^; ]% v    "0.4319341652593058", ",", "0.4319341652593058`", ",",
    "0.45016348534939865`", ",", "0.3333603476852527`", ",",
2 H" x# k+ w, d0 \    "0.44186098968589294`", ",", "0.41030378932283074`", ",",
) e1 v( E2 f; t1 M, V6 G+ @% l- \    "0.5168147981915754`", ",", "0.4476631213729997`", ",",
    "0.30165529786966755`", ",", "0.3781221674378473`", ",",
# e! u; R% q: [) o/ n% ^! q    "0.020339844919720775`", ",", "0.018745375782087393`", ",",
4 W: }+ X8 n4 ^& @6 |- \/ [5 m    "0.2919925992695026`", ",", "0.26490679596812655`", ",",
- A% s( B: X  |# G& B2 T    "0.16343444284525593`", ",", "0.4182466778551567`", ",",
    "0.27347752211364945`", ",", "0.385540573863857`", ",",
7 W& z( E5 |# z( r. o4 j% j9 l1 N    "0.3525316045371807`", ",", "0.20547458411007796`", ",",
    "0.4550437711271672`", ",", "0.1598805094678611`", ",",
/ a/ z0 H& k- }; M/ L0 t    "0.18662509982279502`", ",", "0.10684797493248224`", ",",
    "0.013349212673286806`", ",", "0.08215836003004302`", ",",
    "0.2979041599362817`", ",", "0.05995976512343637`", ",",
" ]! U/ T% E3 W( p    "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",
CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {
4 O, C2 B( f& h7 v! e( G+ X) b  3.5779621548286476`*^9, 3.5779621618642597`*^9}}],
6 Q( }. w- I8 F0 k5 ?% R5 x& d
; x) p4 ~; z9 S6 u, eCell[BoxData[
/ g) H; s5 y1 b' d* L9 }+ @' \ RowBox[{"{",
  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 G3 x! H& f7 P$ }& K   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
: D# }" B  p8 ]( d& Z+ [    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
0 n3 `6 C  c9 p2 z8 ]' F   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
; ~+ u7 E3 c0 n9 \' {6 A2 u   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
$ B; X4 Q1 o  l$ B% ~) e( d, S) j   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
- J% _3 D, H& J/ @. ?3 z   "0.4319341652593058`", ",", "0.4319341652593058`", ",",
   "0.45016348534939865`", ",", "0.3333603476852527`", ",",
' n) q1 E" T, q' l  A( k8 A- x, ^   "0.44186098968589294`", ",", "0.41030378932283074`", ",",
4 x( C; V. ~2 E, f; a   "0.5168147981915754`", ",", "0.4476631213729997`", ",",
% b3 P+ X  t* E  g. ]! [& v/ S* e   "0.30165529786966755`", ",", "0.3781221674378473`", ",",
   "0.020339844919720775`", ",", "0.018745375782087393`", ",",
   "0.2919925992695026`", ",", "0.26490679596812655`", ",",
0 p0 l7 Y1 }3 S) v   "0.16343444284525593`", ",", "0.4182466778551567`", ",",
9 E# d: w! G7 r   "0.27347752211364945`", ",", "0.385540573863857`", ",",
9 A. l, s! R+ b/ y' z   "0.3525316045371807`", ",", "0.20547458411007796`", ",",
   "0.4550437711271672`", ",", "0.1598805094678611`", ",",
4 [' m& N4 R- B3 z. H& ^   "0.18662509982279502`", ",", "0.10684797493248224`", ",",
   "0.013349212673286806`", ",", "0.08215836003004302`", ",",
2 u. O# f- s& {1 O. K; l/ T   "0.2979041599362817`", ",", "0.05995976512343637`", ",",
   "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",
CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9,
  3.5780123569375*^9}]
' e! Z8 t, b4 q}, Open  ]],

4 T! s$ Q5 G# F, pCell[CellGroupData[{

6 P. g: s# v2 H1 s- j1 qCell[BoxData[
/ `# X( p) x! K( l! G, u RowBox[{"y10", "=",
  RowBox[{"Table", "[",
   RowBox[{"x", ",",
4 @8 u8 G% P4 ]- ^    RowBox[{"{",
     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{3.5779253628125*^9}],

Cell[BoxData[
RowBox[{"{",
  z3 k4 D9 m  }5 `# K  RowBox[{
2 a+ k" v! l7 ]) P# _  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
/ B. @7 C9 @5 I6 D8 N: \9 Z    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
   ",", "29"}], "}"}]], "Output",
CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9,
  3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]
$ d" g# ?1 X( V}, Open  ]],
* F1 ?1 a8 f7 v& e3 G# e
  y; M7 _# O( v. v- `3 a6 UCell[BoxData[
RowBox[{"For", "[",
  RowBox[{
   RowBox[{"i", "=", "61"}], ",",
" Q& d  N* \$ u0 X' B& [   RowBox[{"i", "\[LessEqual]", "89"}], ",",
" ]0 p) t9 Z7 [/ r# @   RowBox[{"i", "++"}], ",",
   RowBox[{
( A8 e" I+ H" z2 L) ~, K& q    RowBox[{"y10", "[",
5 k) ]8 o  Y7 F# M" u' E& w+ a     RowBox[{"[",
9 ~6 ~, l! x+ Y, E0 }$ L7 O7 a      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
    RowBox[{"Data", "[",
) v# B, h) Q: ^  L" a/ j0 ]     RowBox[{"[",
/ |$ M3 g: K9 V, ]1 e      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
* Z/ _$ O' F+ E' Z  Q1 k& _4 {3 T. ? CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
+ g4 y- @1 I9 I$ M' f5 t9 k# e. [   3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9},
# {9 b7 C; |! ]$ ~; n3 N% P6 e   3.577958922549148*^9}],
/ t+ J) _* v5 V: D* U1 _
Cell[CellGroupData[{

  ]& _5 D  B  V1 [: ACell[BoxData["y10"], "Input",
' n) e1 i. a9 n/ b CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],
0 g, @. T% i5 w
Cell[BoxData[
! u) ]% O2 U$ c( D- u1 f* Z: [ RowBox[{"{",
  RowBox[{
2 {9 A, z& W7 ]% T+ N7 B  "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",",
: y8 G7 g7 ]- Z- S   "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",",
   "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
$ E5 x! {3 l  K2 M0 E; m7 z  q   "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
   "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
   "0.694935`"}], "}"}]], "Output",
CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
  A5 X7 ^6 Q: C! G  3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9,
  3.5779621736734805`*^9, 3.57801236071875*^9}]
4 N+ T# q$ Q" K, h3 |0 j}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
! ~: z4 d& o: v: i% H# v% g RowBox[{"y10", "=",
+ d( `: I$ i, n' T& K  RowBox[{"{",
( F( b# G- h- n" t   RowBox[{
, v& R) ?2 B6 R$ H8 u   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ ^- E# N; ~2 Z* P! s    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
* O  H$ [4 A5 f; I" I2 ~6 a    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
6 X- {6 v5 o: o: L2 |2 d" a: |    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
# i5 H# S% N: H) o    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
7 p! ?. T. w' ^( Q    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
6 _: j& l  V1 F) O$ c1 h" |* D" v. m    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
2 W" H' U& M3 {. C, e4 i    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
+ k' J' j6 D, i- h% u- Q; Q+ J2 T    "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",",
! V4 x  Z, ^( J" [( A- Y    "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",",
    "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",",
# @9 \# F/ X- d5 U# b    "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",",
* a- t$ i, d. ~4 E) u5 J    "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",",
    "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",",
: _8 w! |) R# ?- _' h3 B    "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",",
    "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",
CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],
" Z6 V& b, ]! c3 o" k! a) L/ I! c
  j' O9 k6 Y, U9 e* M( j3 }Cell[BoxData[
5 x3 ]* @8 H$ ^6 ^ RowBox[{"{",
) b* Y5 z% Z9 l) f9 b  RowBox[{
4 ]: n. A5 O5 c* d$ w  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 X. n2 v. U" `9 _$ b# j   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
7 J* n( C; J" m4 ]' o' p   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
0 }9 ~5 y2 _9 K" |& l- g   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
# h: x4 b8 K2 i* t   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`",
; i; R- Y( }0 K& B1 \. [   ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`",
   ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`",
: n1 i' R* x& J* Y9 }   ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
    "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
   "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
# _) U" R- r. H* `% O; B0 F   "0.694935`"}], "}"}]], "Output",
CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9,
  3.578012361734375*^9}]
5 v$ i3 B+ b1 G) N) Z}, Open  ]],
; I+ u* _2 ]1 g- ~1 l" B- j
Cell[CellGroupData[{
1 |( }. k4 F7 c! H7 t' j! ]
Cell[BoxData[
RowBox[{"p1a", "=",
  RowBox[{"ListPlot", "[",
   RowBox[{"y1fit", ",",
    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    RowBox[{"PlotStyle", "\[Rule]",
     RowBox[{"{",
      RowBox[{"RGBColor", "[",
3 ~# y. t* ~) X! s       RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
    RowBox[{"PlotRange", "\[Rule]",
) a! p/ [! b7 ?8 w+ K     RowBox[{"{",
      RowBox[{
2 S8 d4 P% T1 u4 O: Z       RowBox[{"{",
        RowBox[{"61", ",", "89"}], "}"}], ",",
       RowBox[{"{",
3 y: t& o9 H! q( v        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    RowBox[{"AxesOrigin", "\[Rule]",
     RowBox[{"{",
& T6 C" y( }  }& w  Z3 g      RowBox[{"61", ",", "0"}], "}"}]}], ",",
0 ?% V1 D- {; v2 m& t; h# A    RowBox[{"Frame", "\[Rule]", "True"}], ",",
    RowBox[{"FrameLabel", "\[Rule]",
& D( T! ]8 q, u" K2 l7 P) J8 S3 W% g     RowBox[{"{",
      RowBox[{
3 {% B' R/ R. @' u3 \      "\"\<\:7089\:6b21\>\"", ",",
       "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
\:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",
CellChangeTimes->{
  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
   3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9,
2 }$ H  k8 M$ h- b/ B, r   3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {
5 O! o# ^7 m+ O- j; n   3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],

Cell[BoxData[
GraphicsBox[{{}, {},
6 w4 x1 U! D5 u5 C   {RGBColor[0, 0, 0], LineBox[CompressedData["
% J$ K4 U8 u$ Y1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
# X, s1 h+ R' N4 q, NC1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
* Z0 Q! ]% }1 HyqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
Y6nGQ3sAieueIw==
  _! c6 C: I; {' L. s: C     "]]}},
% O) t  z0 @1 l8 c+ A  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
9 V8 D/ `7 h% W6 U/ F1 w  AxesOrigin->{61, 0},
  Frame->True,
- I/ q/ `$ w2 f! F  FrameLabel->{
    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    FormBox[
    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
2 e0 e1 u$ f* d\:ff09\"", TraditionalForm]},
& }8 |* \2 K, u( F6 ]7 c  PlotRange->{{61, 89}, {0, 1}},
1 p' N! ~4 ?1 b  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
$ x. }. y* W$ F$ ]; x5 F+ }  R CellChangeTimes->{
8 ?- W  h) ~5 G2 P! F$ J! z  3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9,
   3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9,
   3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9},
9 g5 X) \, m5 D4 S) M   3.577962187510705*^9, 3.578012396921875*^9}]
}, Open  ]],

Cell[CellGroupData[{
$ d$ C8 s9 h$ O1 K$ U9 U- b
Cell[BoxData[
7 `5 r2 I3 i* _2 S% B& r RowBox[{"p1b", "=",
  RowBox[{"ListPlot", "[",
1 F1 n. r: F9 z3 ]+ `7 a   RowBox[{"y10", ",",
" |1 U5 r- F# f8 x    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
1 L9 D: G- J* p- Z; d+ {/ s1 W    RowBox[{"PlotStyle", "\[Rule]",
     RowBox[{"{",
$ p$ x3 a1 S, f. O% H      RowBox[{
       RowBox[{"RGBColor", "[",
        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    ",",
1 `; ?6 H4 `4 v9 R$ Q    RowBox[{"PlotRange", "\[Rule]",
     RowBox[{"{",
# J. f1 M; D0 Q# c( l      RowBox[{
       RowBox[{"{",
        RowBox[{"61", ",", "89"}], "}"}], ",",
       RowBox[{"{",
        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    RowBox[{"AxesOrigin", "\[Rule]",
     RowBox[{"{",
; A- S+ |; G0 S. h* c  {: A" _      RowBox[{"61", ",", "0"}], "}"}]}], ",",
    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
6 n, r/ @# [  @  ~5 I& x CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9,
  3.5779597764166365`*^9, 3.578012409265625*^9}],

  u; E- e; W8 O! O* ?Cell[BoxData[
GraphicsBox[{{}, {},
% o) d! H6 t3 g8 [/ Z4 {/ R7 @   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
5 I* ~0 [2 [( v8 S" @/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
7 x" e6 Q3 a0 s7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
, p2 K! u0 E. ~$ X1 `* QQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
% e* n: b3 Y% j) h5 IH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
9 D% [  h/ @) H7 g* ?" I* U/ Y. n1 drQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
vA==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
' O0 \+ s  w$ i9 a! F  AxesOrigin->{61, 0},
" A( u3 ~  Y$ V5 b7 v  Frame->True,
  PlotRange->{{61, 89}, {0, 1}},
- l3 e4 x1 ~+ N. ~  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
  3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9,
  d9 q  _5 J) F* Z) Z8 _% ]  3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]
}, Open  ]],
- e1 a  U; {: ]2 J% J0 }; s! |* l
Cell[CellGroupData[{

Cell[BoxData[
* }3 x* @# H  c- c6 \" S+ r# ^ RowBox[{"Show", "[",
$ |: ~- n: C9 V+ e1 A3 x; t  RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],

Cell[BoxData[
GraphicsBox[{{{}, {},
+ y* O0 F- ~1 H- c/ D# W    {RGBColor[0, 0, 0], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
0 J) m$ T' Z' @6 U8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
8 x. j# d  b' t8 s% VD3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
$ J* o1 C1 V% F/ }1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
, B- y4 _# u9 UC1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
: g) U7 n: l6 s( Y+ S# E+ vyqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
- B- t8 I( W% C! v9 |, \& Z$ wwrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
Y6nGQ3sAieueIw==
8 @, l  x/ o$ o! B$ f/ ^2 r, r      "]]}}, {{}, {},
, u6 p  x# J7 ~( c% k% R3 b    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
' w2 w: P% S' t$ X5 z( [+ n/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
. ~# z8 L3 D5 Z$ k2 {GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
( ~" t9 K& }" Y! K5 |( [# S+ OGFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
, {9 m* l) y. t9 x2 l  {" e' n% WQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
' o4 e! F9 j% NrQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
' q. X- B: L* r7 x8 j3 ^vA==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
& f; y. W. S+ G: ~  Axes->True,
/ p6 A/ ~1 q9 H4 ~* W7 n) S  AxesOrigin->{61, 0},
1 V0 l# l7 n  _8 u6 k  Frame->True,
2 M% W+ ]# m7 Z3 N2 z  FrameLabel->{
9 _! V- m' n' p- }( B! f# E! W    FormBox["\"\:7089\:6b21\"", TraditionalForm],
1 ~; G; \: I" A6 f    FormBox[
4 J( d8 h+ P6 ?. A, C    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
; V2 X( P5 T* l4 F3 n" v$ g" S\:ff09\"", TraditionalForm]},
0 m$ |1 f: T* V" ?- {# e  PlotRange->{{61, 89}, {0, 1}},
) I/ f6 V. B! d8 A6 l7 O  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
% G1 X0 C0 }# |# C  ]" q1 h CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]
# g5 R7 z  Z* C2 Y! T; |}, Open  ]],

Cell[BoxData["\:62df\:5408wi1"], "Input",
CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9},
   3.577959662349238*^9}],
0 L# j2 ~7 s+ r3 W/ m$ r( \, b+ C/ H) J* h
: [) k- B, o3 e% xCell[CellGroupData[{
" a! E0 K& y  {- ^# D
) C# p7 A2 @9 V) FCell[BoxData[
RowBox[{"y1b", "=",
$ i5 Q! d7 d/ N4 q' @  RowBox[{"Table", "[",
   RowBox[{"x", ",",
4 K0 U0 X$ L9 p$ N; B    RowBox[{"{",
+ [1 o) c5 k- ~     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
' F0 u% @. l" u8 q& f; D" S   3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],

Cell[BoxData[
0 `, E  e" e: r& e; {. k RowBox[{"{",
  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" V5 }8 D$ k! d8 i   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
4 ~9 I; a4 a4 ^( b$ J2 `9 f9 \$ d    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
; |: i4 w5 P0 }& M  I- |7 K- R   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
+ l$ t2 R" ?# d4 |5 g; ~" _   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
# k8 {# g- N5 F1 R. X2 z/ ~# l: o   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
  "}"}]], "Output",
; l" X/ X/ C4 w0 }& G, t CellChangeTimes->{
  3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9},
/ d; j: b2 M8 M' \7 B   3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9,
! l9 @! B; I; v. i5 z9 N5 L' S- u   3.578012438953125*^9}]
( r# ~) H9 O. }( n8 r. v. i}, Open  ]],
$ U0 O, Q$ {: Y" r/ t& d& |
% N, |  U: g8 a; ^# ZCell[CellGroupData[{

Cell[BoxData[
RowBox[{"Data", "[",
  RowBox[{"[",
; ]6 D* A& z# Y# n/ M   RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",
CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
7 f( x, W9 R0 v3 }! |" w8 f" ~   3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {
9 I3 |/ [2 ~8 d9 I1 D1 y$ }! q8 z   3.577959014090108*^9, 3.577959016040111*^9}}],
0 F# p5 [) D, ^1 o( Z0 K1 C2 z3 ~' Y; D  u
' k7 t, A3 k- _. L: E+ s3 ^Cell[BoxData["0.492958`"], "Output",
& ]2 B$ z* ^  O9 {6 y7 Y CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
   3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9,
   3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]
}, Open  ]],
0 k! v, d2 w& @1 _; Y) U
Cell[BoxData[
5 V' ^4 s& H. }: D. A RowBox[{"For", "[",
+ Y, l" o5 p& P  RowBox[{
   RowBox[{"i", "=", "1"}], ",",
( X& A2 Y, w. s) s3 E+ i, s   RowBox[{"i", "\[LessEqual]", "60"}], ",",
   RowBox[{"i", "++"}], ",",
* L; ]; l, ^7 A+ d  A& ^   RowBox[{
: r; N6 L' Y; y3 [9 r    RowBox[{"y1b", "[",
; }" w: K8 q, ?1 i2 X$ X+ o/ K3 Y     RowBox[{"[", "i", "]"}], "]"}], "=",
5 v2 G( j3 N) s4 ~$ ?; @( c    RowBox[{"Data", "[",
- M6 {$ J# B: e) r  l! o5 V     RowBox[{"[",
      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
   3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {
   3.57795902089172*^9, 3.5779590227793226`*^9}}],

" m  P- Z# E6 B9 S$ r) \Cell[CellGroupData[{

Cell[BoxData["y1b"], "Input",
CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9},
   3.577958484172784*^9}],

  o+ M; z: e$ X. d9 s0 Q* @Cell[BoxData[
0 ?4 y" E: X% b4 Y RowBox[{"{",
+ C; `/ C- v) g  RowBox[{
  "0.873239`", ",", "0.464789`", ",", "0.492958`", ",", "0.774648`", ",",
" u7 `* o4 n. ?/ ~; M7 A  D; p   "0.380282`", ",", "0.647887`", ",", "0.56338`", ",", "0.295775`", ",",
7 H6 r8 N/ V; y3 n1 w" ^6 b4 @   "0.338028`", ",", "0.211268`", ",", "0.690141`", ",", "0.43662`", ",",
2 [" P: _& S( q8 m  z   "0.`", ",", "0.267606`", ",", "0.211268`", ",", "0.408451`", ",",
   "0.478873`", ",", "0.380282`", ",", "0.211268`", ",", "0.43662`", ",",
! ?: f$ F1 R% N   "0.478873`", ",", "0.295775`", ",", "0.028169`", ",", "0.43662`", ",",
5 ~& B+ \! o: o5 m9 m8 s1 h1 `   "0.394366`", ",", "0.295775`", ",", "0.830986`", ",", "0.169014`", ",",
   "0.366197`", ",", "0.309859`", ",", "0.352113`", ",", "0.309859`", ",",
" z2 t8 }6 O2 o( R* H2 T3 `) \   "0.774648`", ",", "0.422535`", ",", "0.887324`", ",", "0.887324`", ",",
   "0.859155`", ",", "0.239437`", ",", "0.295775`", ",", "0.746479`", ",",
" L/ W8 k, Y, ~6 r6 ?* ~* d   "1.`", ",", "0.549296`", ",", "0.366197`", ",", "0.549296`", ",",
1 i/ X" {- g% _# R) ~. T   "0.577465`", ",", "0.690141`", ",", "0.71831`", ",", "0.521127`", ",",
   "0.929577`", ",", "0.521127`", ",", "0.338028`", ",", "0.380282`", ",",
- D5 Y) ?0 u+ E/ u% S% O4 j& d   "0.676056`", ",", "0.591549`", ",", "0.464789`", ",", "0.295775`", ",",
   "0.380282`", ",", "0.211268`", ",", "0.253521`", ",", "0.28169`"}],
  e1 b8 @% ~5 z0 E: Y  "}"}]], "Output",
CellChangeTimes->{3.57792293246875*^9, 3.5779582549771843`*^9,
  3.577958485420786*^9, 3.577959026460929*^9, 3.5779622288195767`*^9,
$ u' F3 n8 h5 ^  3.57801244275*^9}]
}, Open  ]],
, }$ d( M0 N+ H
Cell[CellGroupData[{
$ K' g) C/ t7 N  R
2 @5 F! k3 w: z; rCell[BoxData[
8 O8 e! X: C5 x; M4 z7 q. s: S& N5 ^ RowBox[{"m60n21", "=",
4 W  b: ?2 b' \7 |* `$ k  X  RowBox[{"Table", "[",
# j, G7 M! d- |1 [9 b$ v   RowBox[{
    RowBox[{"Table", "[",
# S9 c, S8 m0 t4 |* o2 [6 ]8 q, [     RowBox[{"y", ",",
* j# N0 l7 F! i- z# G# P" N% P# I$ S      RowBox[{"{",
" O9 Y6 Z% w- S+ I       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
    RowBox[{"{",
$ j7 ~0 o+ U4 `+ ?7 O9 L# I' \     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
% Q4 Q9 Q4 Y& O/ `% F  3.577924052828125*^9, 3.577924101671875*^9}, {3.577962237961193*^9,
& {) u) g; i: [  3.577962240082796*^9}}],

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

Cell[BoxData[
RowBox[{"{",
+ `4 }/ h# A+ V2 \8 J! |  RowBox[{
' Q# ~/ ~) b! U% l7 V, W  "0.48228184971363947`", ",", "0.16041393254115022`", ",",
; ^7 P9 c) N5 U/ ~) N   "0.3741982811661129`", ",",
   RowBox[{"-", "0.12620581913715245`"}], ",", "0.28831860112966734`", ",",
. n& r+ r$ L. o% w5 n( ?7 k' C* D) P   RowBox[{"-", "0.2282993884666894`"}], ",", "0.3207174990295839`", ",",
  W$ V* d- |9 Z# B2 q  b5 i4 h   RowBox[{"-", "0.4666313851213302`"}], ",", "0.27551257162880227`", ",",
! S: c! p; h4 c- C/ u7 b  e$ p0 P+ R   RowBox[{"-", "0.025873988843993667`"}], ",",
   RowBox[{"-", "0.1339854044819916`"}], ",",
   RowBox[{"-", "0.15852708848338315`"}], ",", "0.3129687276967983`", ",",
   "0.45723850991134063`", ",", "0.2954923840077215`", ",",
   "0.9125798890455868`", ",", "0.21159052285983104`", ",",
   "0.5575503376854456`", ",", "0.6019775648968265`", ",",
! S: R, V: O2 {. G! E6 ?: I2 F' u   "0.2361524780938108`", ",", "0.12782130225993923`"}], "}"}]], "Output",
/ w/ _) V5 W. g$ l: Q5 h CellChangeTimes->{
  n' U3 a% {! ~+ s  3.577924621953125*^9, 3.5779246688125*^9, {3.5779582894220443`*^9,
   3.5779582992968616`*^9}, 3.5779584995700107`*^9, 3.577959040157753*^9,
/ H4 x/ R# v* D0 |6 l   3.5779622919996867`*^9, 3.578012447734375*^9}]
/ M0 t+ Z9 V7 q2 _% A" C& O}, Open  ]],
2 R/ h* r. o. Z; k
) j# P6 i- H& \4 t' d0 ?& fCell[CellGroupData[{
" U# r+ l3 a- d" _3 r, m" T) N9 @
; `+ ?- m, ]' H& Y( K/ NCell[BoxData[
RowBox[{"y2", "=",
( R8 @  P' S  O0 G. u  l7 T$ W  RowBox[{"w1b", ".",
   RowBox[{"{",
8 P/ V7 S8 I+ x, L9 x, r! i    RowBox[{
- c: e8 @  ^7 D    "u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7",
  V) I# Q) ~) o     ",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13",
9 ?; O' H) V& y     ",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19",
2 i# T" [2 x# ?/ J: R. l9 S/ R" Z5 l     ",", "u20", ",", "u21"}], "}"}]}]}]], "Input",
CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {
) E) i! Q* ]+ U   3.577924897078125*^9, 3.57792491596875*^9}, {3.5779583101856804`*^9,
2 n9 t, d  g% {2 d7 U6 T   3.5779583178920937`*^9}, 3.5779623163513293`*^9}],

1 j# w" M5 J9 {% ^9 RCell[BoxData[
8 j/ W, h, M/ P3 g) w RowBox[{
6 u8 L6 y! }  J. y7 h7 R% a+ W  RowBox[{"0.9125798890455868`", " ",
/ i& F6 P- C9 B* @7 ~- U0 f$ ^) o   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.141592653589793`", " ",
4 y# h' l6 w! ^+ R  @     RowBox[{"(",
      RowBox[{
$ {6 k/ t! y0 V3 v  H3 Y/ x       RowBox[{"-",
        SuperscriptBox[
! g: W5 }" h5 _  n         RowBox[{"(",
4 _% n0 m# T2 i6 B0 P( w          RowBox[{
           RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
       SuperscriptBox[
* w8 t+ Y8 m  |" M) }! O, [        RowBox[{"(",
6 t4 o; B. F3 y, \9 e         RowBox[{
2 U1 a" p" g( T5 O          RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
3 @0 p( b4 P0 E9 h/ ?( l          RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
. Z+ _; y- C3 R* O6 ~        RowBox[{"(",
         RowBox[{
; Y) @" d; s- W$ d          RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
4 @! v- N) I2 D5 N- [; X" |       SuperscriptBox[
: m+ {  a; Y3 n" |: K& T% p9 M        RowBox[{"(",
* w% _# R9 |; F         RowBox[{
3 r. j4 X3 j" M* C( @          RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
% g% ]9 E, O; X       SuperscriptBox[
) ~$ `+ g5 B8 C) G' ]; F! L4 A        RowBox[{"(",
" B& p  Z; Y0 L9 r         RowBox[{
2 O1 z$ h& y1 B% e* F, _0 m/ v; d+ R          RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
6 Q/ ^  J* M, A* N       SuperscriptBox[
+ P( b3 D1 t7 ]5 x) N" c        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
' g: f+ v( R: U9 J! j       SuperscriptBox[
6 j, y; ~6 s/ v" o/ s/ Y! A        RowBox[{"(",
; d9 H2 o) g8 Y         RowBox[{
          RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
  RowBox[{"0.28831860112966734`", " ",
7 v, ~+ m4 z4 w# E   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.141592653589793`", " ",
& D9 m- @2 D4 j6 d/ K  K/ j; a     RowBox[{"(",
" O  \6 y* K, }7 N' g, d$ k. \      RowBox[{
       RowBox[{"-",
        SuperscriptBox[
         RowBox[{"(",
          RowBox[{
           RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
: Q+ w; v: A# k) G! X7 v: E       SuperscriptBox[
6 @; m7 `& Q* p$ Y5 u        RowBox[{"(",
) \9 l/ _  {% a" u; Z         RowBox[{
          RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
0 X- \. W& x6 [4 W) I- }/ Q          RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
! q7 \; S6 |6 K' ]. I9 Y         RowBox[{
          RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
* X4 m3 u/ D" Q0 n% j$ t; `& `       SuperscriptBox[
        RowBox[{"(",
2 c& q, R" I! B         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
0 y  X* E) N4 q1 m       SuperscriptBox[
0 P6 D8 X4 x6 ]3 Y3 ~" S9 w        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
: ~( n7 y1 z7 M- b8 E. Q( n         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
; G' R; H7 r- V3 W" j- `. x       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
  "+",
  RowBox[{"0.21159052285983104`", " ",
, N7 }1 q( k+ n6 [, x  b- a( t6 N   SuperscriptBox["\[ExponentialE]",
- e( y7 l$ a9 i1 U8 H; _3 w    RowBox[{"3.141592653589793`", " ",
$ Z! q$ P' w5 d% g) L     RowBox[{"(",
4 }' l5 p$ @5 u& S$ x      RowBox[{
0 r6 ^! V2 f, Q+ G, o9 D: P- {       RowBox[{"-",
        SuperscriptBox[
         RowBox[{"(",
$ C$ J8 A, u& {# v" u          RowBox[{
) G5 s1 a6 N( Y# N: k5 |           RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
       SuperscriptBox[
! ]" M* M) B3 u  f3 w        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
0 L8 }6 `. S& S         RowBox[{
          RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
0 M. F/ H( C7 _       SuperscriptBox[
        RowBox[{"(",
! E  X$ P/ ?+ o3 Z& d! U         RowBox[{
1 V+ q  v" o( y+ U          RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
. a. F# C: z$ X# Z       SuperscriptBox[
        RowBox[{"(",
+ _. K: g& o: i! u# m. i' J- u9 F/ ~         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
0 f+ _* i5 C; `+ O        RowBox[{"(",
$ b5 \6 z7 C5 r/ c1 P2 [" E         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
4 e5 l2 Z" B/ M8 p, Z  R       SuperscriptBox[
        RowBox[{"(",
( d/ X" I7 y: Y" A) m) F         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
7 n  I/ z' @( g8 F       SuperscriptBox[
0 g7 ?( d7 \4 i        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
  "-",
  RowBox[{"0.2282993884666894`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.141592653589793`", " ",
3 K! }, R4 G( r( N     RowBox[{"(",
* x2 H6 F0 ?! R4 p      RowBox[{
! q4 B) l" Q  |+ O5 x$ y4 C       RowBox[{"-",
/ w. x& p$ ]3 g( P; _$ j        SuperscriptBox[
! ^; o5 S4 A7 q$ f9 R3 X: A         RowBox[{"(",
          RowBox[{
$ M8 a4 L& Q; h, V, H           RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
- w" x$ c$ K# |# E# M       SuperscriptBox[
" D+ [0 j1 y0 q6 r6 N5 u' F/ T( ^        RowBox[{"(",
2 Q9 O$ c6 S! K: r  v7 v         RowBox[{
          RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
  [2 h( ~5 L0 A" l       SuperscriptBox[
        RowBox[{"(",
! P- Z- w, ^' }         RowBox[{
          RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
' ?* t. ]  M* S7 C0 M! S+ l       SuperscriptBox[
2 z' O5 \7 S9 G- s7 |! L7 M7 S        RowBox[{"(",
         RowBox[{
% X5 z( w2 z5 J4 ~; ]$ U5 z          RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
       SuperscriptBox[
% N0 k- d) L, h        RowBox[{"(",
         RowBox[{
$ a/ \+ Q' h3 M6 ?" F          RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
/ x& f' L9 |5 z0 E5 `, _       SuperscriptBox[
        RowBox[{"(",
! f* D$ i- g% r6 ]1 G" G  V% X         RowBox[{
          RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
) @; J. ]9 V5 K! u" K& i6 t# m: d/ Y" m       SuperscriptBox[
  i% @( `" k+ O& ^        RowBox[{"(",
         RowBox[{
& O2 z3 A" J$ M* U2 i/ c) F3 R          RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
4 Q! h+ `: w6 u: H. i" q4 C, L       SuperscriptBox[
! W5 l2 L! x' n        RowBox[{"(",
: c6 Z, i& l+ Q; Q/ d+ t- F; J( s( t         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
# j; v$ f% h+ P! q- w; i& l6 X* s+ v         RowBox[{
          RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
! e" }, B3 f+ g& E" z0 y# p6 s  "+",
9 \8 l) B$ V' |7 x1 |+ ?7 z  RowBox[{"0.27551257162880227`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.141592653589793`", " ",
     RowBox[{"(",
      RowBox[{
9 G; O4 s+ W* Q2 t  Z       RowBox[{"-",
' O) ^& `( ^6 W        SuperscriptBox[
, o  }0 N+ g, V         RowBox[{"(",
! y. V2 {1 l* S) X7 S  ^- I          RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
, Z/ C* f3 m& D3 ~% Z       SuperscriptBox[
        RowBox[{"(",
5 b0 [% P, |# T. o( [         RowBox[{
          RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
6 p9 V1 S4 z3 i% c, g) F( W6 u       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
% P, b5 x( p8 I7 r* m       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
       SuperscriptBox[
; m3 |( \6 C8 d& H; D8 I+ \        RowBox[{"(",
7 }( S) D, L' a" a9 ~. T9 T& Z         RowBox[{
0 o, `5 Z0 h5 h$ l: N          RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
8 F; w6 h' ?5 ]# `% ~4 j6 H       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
+ d! s. n9 W5 a6 @  Z# r       SuperscriptBox[
  k7 U4 j* J2 r        RowBox[{"(",
         RowBox[{
$ i3 u' Q- }, K" o          RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
/ w0 w5 Z9 D' V  y6 r) _       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
, F0 Z# v3 N% ^" G& B       SuperscriptBox[
        RowBox[{"(",
: L! V; Z: d# B6 R% I. |* {         RowBox[{
% a1 [) V# F- |2 n4 g6 Z          RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
0 b& |% x6 }# e- U7 c( }9 F& A  "-",
  RowBox[{"0.12620581913715245`", " ",
   SuperscriptBox["\[ExponentialE]",
3 E$ t5 W, e0 R. h& W1 h! O% V    RowBox[{"3.141592653589793`", " ",
  L  ?2 ?% x$ K" Q  E% Q& I     RowBox[{"(",
      RowBox[{
2 a0 T5 H0 Z- y4 l9 O9 Z2 r       RowBox[{"-",
        SuperscriptBox[
. b( ~8 y/ t7 `         RowBox[{"(",
& O! O. m& p/ f! i" R          RowBox[{
( x) O0 |: s% V7 s) _           RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
0 z" e4 X9 R1 \. D       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
  ]8 t0 t5 r( M7 H) r7 {3 a          RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
+ g8 [2 m' o- v: O* G7 a       SuperscriptBox[
        RowBox[{"(",
  V/ t0 ~1 ^- W: g* a$ s         RowBox[{
, M5 v) p2 x4 [* s) D+ _& ~( K% y          RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
  z/ L% f' m, N- j5 d       SuperscriptBox[
* Y4 [# O; e3 l$ v% t        RowBox[{"(",
+ R8 i8 A- v4 ^6 [! Y: @         RowBox[{
          RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
       SuperscriptBox[
* a& Z8 A3 {! I- n) D. p% U        RowBox[{"(",
3 w- A8 [/ B0 ?2 K2 Q3 k+ y, O, y         RowBox[{
$ \& E  m% ^. ^: g9 M          RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
  A/ b3 D' H1 p2 k) M4 @& b' X9 L- f        RowBox[{"(",
         RowBox[{
8 _) T- _- r9 t/ _          RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
5 f7 t0 {/ r" `. J       SuperscriptBox[
( L* \# Q3 y7 W' Y" a0 ~* V0 K        RowBox[{"(",
% s: j5 N, K: \& d( O. g. H         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
. m+ d" p' z9 H: ~$ w1 I2 e( b" a; p       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
) m7 g: Y( ?" c% E3 R6 N       SuperscriptBox[
% q$ s' a% W' m/ G        RowBox[{"(",
: R( s- C) m$ a4 D3 V. B         RowBox[{
          RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
  "+",
' j* u3 G8 o( W  RowBox[{"0.12782130225993923`", " ",
   SuperscriptBox["\[ExponentialE]",
. e' X* q+ f  D7 y# [# |: `    RowBox[{"3.141592653589793`", " ",
2 z! V% S9 @. U% `     RowBox[{"(",
      RowBox[{
       RowBox[{"-",
        SuperscriptBox[
# @4 j% b+ @- g2 A, W2 g4 ?         RowBox[{"(",
          RowBox[{
           RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
" c4 ^" M  O0 l8 j: `- e% X          RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
* @) _! B3 m/ Y, Z         RowBox[{
          RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
3 D  l) U1 Y( Q3 v       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
- E/ s# q) C, q; k5 g          RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
$ W) Z% Q$ `. j/ M9 ?, i- S4 |       SuperscriptBox[
        RowBox[{"(",
# ~! u+ G) X2 n5 d9 ~         RowBox[{
. o3 \8 F5 Z' d0 Q8 [" F          RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
! C! s3 R) }: }2 D# Q         RowBox[{
. K# a- Z, G) t" i0 Q! F          RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
5 t; W; G; P2 F# C7 y6 U        RowBox[{"(",
; \* I; L- a( N3 ]$ A         RowBox[{
* C- B7 w: s/ O) {          RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox[
  t# t6 E. I1 `1 O        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
7 ]6 P- H- Z: {) m+ A: J          RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
5 K( B2 ~; M$ @5 b: P. i; s  "+",
3 q; n0 `  e; m% j  ]1 j  RowBox[{"0.2361524780938108`", " ",
   SuperscriptBox["\[ExponentialE]",
- J' R- {, X; g! p    RowBox[{"3.141592653589793`", " ",
     RowBox[{"(",
      RowBox[{
; @5 G! m9 V1 q& S2 r       RowBox[{"-",
        SuperscriptBox[
. {" k5 {/ ~% ^' h2 W$ I( b! b( A. Q         RowBox[{"(",
6 s' d' V, u4 D+ j          RowBox[{
( n& a& q' A0 i9 H, s) W7 G0 X( j           RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
       SuperscriptBox[
" n6 i# r( d; b& s  M. u' C        RowBox[{"(",
         RowBox[{
" ]; _0 B( {% j* C2 L( o/ [          RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
       SuperscriptBox[
7 J) x- X! g5 b9 I        RowBox[{"(",
         RowBox[{
, E' I2 d* h/ i: C          RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
6 v. e) F, g0 f0 g% c4 L       SuperscriptBox[
7 W7 [. F" P# V3 c4 Q2 B4 {        RowBox[{"(",
         RowBox[{
5 S0 r, `% t0 }          RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
       SuperscriptBox[
: O9 }' |6 Z* I, I        RowBox[{"(",
; p1 f& O; w) V, U) }$ x, U4 u         RowBox[{
0 x: z" i% }9 T          RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
/ ?! Y$ D0 L0 T, w4 b$ ]/ @, O6 F       SuperscriptBox[
) A: t. W8 s$ w  q0 o        RowBox[{"(",
0 m- Z$ A4 c; R6 ]( Z         RowBox[{
6 M- J6 J8 g% r4 e# K          RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
. p# T7 s) x, O% T/ v' g       SuperscriptBox[
        RowBox[{"(",
6 n' J% M5 B, v. ?9 Z  I         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
* w: |5 X9 t, _7 `/ v$ R       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
  "+",
  RowBox[{"0.3207174990295839`", " ",
; v) u/ \/ @/ O  ~   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.141592653589793`", " ",
     RowBox[{"(",
% n: o6 u% h3 E  A      RowBox[{
       RowBox[{"-",
        SuperscriptBox[
         RowBox[{"(",
% j7 ^7 C0 k& l) s          RowBox[{
           RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
2 s% k/ O5 o# |) {- H       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
6 Q: o  [* w2 ?. X# S7 V       SuperscriptBox[
        RowBox[{"(",
0 {: z0 j7 F5 \  A! a         RowBox[{
          RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
% s; I9 f- B0 f       SuperscriptBox[
4 R6 n4 E: B3 F+ r5 K        RowBox[{"(",
/ h+ k' l! D! g- S5 m$ x         RowBox[{
& G) y6 D9 Y& a" O5 c          RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
/ b9 o4 a: I8 L       SuperscriptBox[
        RowBox[{"(",
% `1 m# Q8 @; H8 M; c" c/ ~, |         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
4 \" ?3 J& o5 ]' ~2 I       SuperscriptBox[
+ O1 J7 B) T) S# q, q        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
$ a- }" R2 w# e0 x9 t' P' f0 ?         RowBox[{
          RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
" r3 e+ E$ t* u/ ^$ i& d         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
8 U# q( q4 l; w      ")"}]}]]}], "-",
  RowBox[{"0.15852708848338315`", " ",
   SuperscriptBox["\[ExponentialE]",
9 B3 Y9 _. k3 q    RowBox[{"3.141592653589793`", " ",
     RowBox[{"(",
      RowBox[{
       RowBox[{"-",
        SuperscriptBox[
         RowBox[{"(",
          RowBox[{
           RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
       SuperscriptBox[
5 M: W! J" A9 m! {1 v1 z3 \        RowBox[{"(",
2 k* ?/ m7 S3 T0 X1 `# O; ^         RowBox[{
! r  U3 c; f3 v1 {! n8 F7 J* v          RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
& u/ X2 m( _& g; h  v; m       SuperscriptBox[
, @- a8 Y) R3 V. M  @0 x        RowBox[{"(",
4 M0 U  n/ S$ n7 W         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
: R# _5 k; s1 b" R; X       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
$ l8 ]- I& i3 }: s9 A$ B       SuperscriptBox[
+ k) q& S) }$ d        RowBox[{"(",
4 |; n9 Y" U, u8 B2 s( j( J         RowBox[{
          RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
. f% ?/ f* N! I, H        RowBox[{"(",
9 b" o& p2 E/ ?) r& C         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
  @' ^' X. |! A+ i        RowBox[{"(",
3 ?3 p* I: [' |" j2 f" u$ x         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
9 R2 v+ E6 R- E       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
      ")"}]}]]}], "+",
  RowBox[{"0.6019775648968265`", " ",
0 x3 i7 ~3 @, h8 \0 P" _  l9 H   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.141592653589793`", " ",
     RowBox[{"(",
      RowBox[{
: R* u, M3 K3 g7 g4 J3 G       RowBox[{"-",
        SuperscriptBox[
         RowBox[{"(",
          RowBox[{
           RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
       SuperscriptBox[
        RowBox[{"(",
1 J, X* M$ v  C; P         RowBox[{
! `9 _$ s2 \: I6 b6 Y: u          RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
+ u+ I! ?1 D4 i' P5 s         RowBox[{
/ r- S3 {& y1 D9 J          RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
( R) `& P/ m4 v* O- t       SuperscriptBox[
% r. X4 o# @' k7 ~        RowBox[{"(",
1 N2 S  Z) K* r+ }$ [1 ~, t         RowBox[{
          RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
" Y% R7 V  y: L3 r       SuperscriptBox[
* Z0 U- f; a1 ~: i7 J" z        RowBox[{"(",
         RowBox[{
! M+ H" D8 Z0 `6 _& p9 c; E          RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
2 Q, Y4 y4 Y) O3 }* @( E& a7 j        RowBox[{"(",
# G$ m, N$ y+ p# B- V1 Z$ G         RowBox[{
1 Q! x0 L& I- |9 s& @  M( i% K          RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
1 x9 b% C0 B3 o: i6 N4 ^       SuperscriptBox[
4 o8 Y, `9 {  q% i, `        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
8 S* ~4 R" P/ m: ?       SuperscriptBox[
) F3 \7 d% G! ^( c) ?& H5 ]2 q        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox[
  Z- _# K9 q- ^0 S/ K) K        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
) y7 H) a6 s8 ]      ")"}]}]]}], "+",
  RowBox[{"0.16041393254115022`", " ",
   SuperscriptBox["\[ExponentialE]",
6 Z; q0 I$ |" X' v5 Q% t    RowBox[{"3.141592653589793`", " ",
     RowBox[{"(",
      RowBox[{
9 ^" i& @. e: W       RowBox[{"-",
* O* J: F( ]6 J' F" \" W& G% Z        SuperscriptBox[
8 L& l3 W5 ]4 w* [: R2 l         RowBox[{"(",
$ q. M, J- ]) c: n8 r+ X          RowBox[{
2 i/ W$ i/ X: [           RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
  u5 |1 U2 S  d0 h       SuperscriptBox[
- f2 C2 B1 W: o8 B) W        RowBox[{"(",
         RowBox[{
* ?* q8 m- G6 C3 N          RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
8 }, \7 \. f5 p: s) B2 L( h4 L       SuperscriptBox[
        RowBox[{"(",
5 y, _7 l8 P* C6 {) h/ p; {         RowBox[{
          RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
9 K: P, j+ ?; u2 I# d         RowBox[{
. j& X0 I  X; i% G          RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
& L. O. @9 T& Y  H       SuperscriptBox[
0 _# E; J' r2 `2 U3 ]        RowBox[{"(",
         RowBox[{
* H% `! @% m. I+ B          RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
! B$ Z3 `( \) C  }3 _6 u6 u, C          RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
' [  ^7 f& e" g# }5 Y+ `6 L       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox[
! `2 j' O2 S) D$ E' j1 g* Z        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
' `) q1 ^6 c0 Y- e3 o# ^+ ?       SuperscriptBox[
  ^, r$ g1 ~* f        RowBox[{"(",
9 g$ O2 W- Q* Y0 h+ N8 ?% Q         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
9 `8 P  u- F- G" v1 Y      ")"}]}]]}], "+",
  _1 ]! U8 l& \0 F* A" x  RowBox[{"0.48228184971363947`", " ",
7 Q  J2 m  l" Z: r1 Q: s; L; n   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.141592653589793`", " ",
     RowBox[{"(",
6 h- \! A3 E% n. \. g6 {      RowBox[{
+ h+ d! `- y, P5 U/ p" V: Y       RowBox[{"-",
* I% [% N* c% C9 q& H) J- O        SuperscriptBox[
, Q9 R' q% d  c. u% T! s         RowBox[{"(",
, J0 g$ t) t; |          RowBox[{
% ?/ w4 ]: N* ~: s% e3 s5 x( e$ L           RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
# d. ]" x4 @6 Q$ G8 F       SuperscriptBox[
        RowBox[{"(",
! y8 R! F5 \7 ~  v: @4 [! k         RowBox[{
& ^" }4 Q4 E" W8 Z          RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
       SuperscriptBox[
% Z# @" D! h9 Z, ]- e/ X        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
+ y7 G6 Q+ E  v# i       SuperscriptBox[
        RowBox[{"(",
5 C) [8 c5 T- D9 a/ ?: }" k) H         RowBox[{
$ d5 \: O+ b% a) P; c4 T: ^          RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
3 |9 t% d( ^& g; V         RowBox[{
7 A# e; X" e' Y/ A* T2 c          RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
' C" g/ r/ h, ^5 q9 t3 W       SuperscriptBox[
* X5 j+ [0 R+ I. C- n        RowBox[{"(",
         RowBox[{
/ q! a; L" k# r5 y5 M5 z          RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
9 a; h" U& k4 |0 h- H         RowBox[{
          RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox[
1 ~& e9 |7 Z* q$ @9 @9 E' p        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
9 S: y) B+ u% X+ ]      ")"}]}]]}], "+",
  RowBox[{"0.2954923840077215`", " ",
4 O) d/ O; b5 x+ E5 t6 ]; W( K: Y   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.141592653589793`", " ",
7 _( b$ n/ ]) f' I: |     RowBox[{"(",
      RowBox[{
% ^- M& n! y  N" J3 u, _       RowBox[{"-",
        SuperscriptBox[
/ u+ U7 F$ t- j2 i2 h5 b; }6 ]         RowBox[{"(",
          RowBox[{
* C$ _6 Y9 T' x& G: g7 e# @           RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
& h5 k9 x3 |* Q, L! H       SuperscriptBox[
! o- z5 c6 W5 `+ x) C0 g% @        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
# ^  L) ?/ C; o9 {       SuperscriptBox[
+ d' b* @( n0 i& p8 i6 Q        RowBox[{"(",
         RowBox[{
6 M) A+ _1 u* c- j! @# {          RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
- j4 E4 L  J3 ^- y9 ^0 U4 _. x       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
- w( Z) l0 Q/ y3 W+ b# B       SuperscriptBox[
6 W# M) r: O' H1 A" q# z0 v        RowBox[{"(",
         RowBox[{
& m; h9 Z; ~5 M1 m! r& [          RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
8 e  j* v$ \* N, I$ ~$ {0 W/ b         RowBox[{
: c9 i, W2 ?2 K4 K          RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
& z- w7 [4 W' i! g* M       SuperscriptBox[
3 V7 a5 `! ~$ C9 N        RowBox[{"(",
         RowBox[{
! }7 P$ e* h9 c! v          RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox[
: b) z+ D9 S. f$ X( U        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
      ")"}]}]]}], "+",
1 u2 e( v4 B4 Z( \, M% W# T  D- T  RowBox[{"0.3129687276967983`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.141592653589793`", " ",
/ a# O$ ?8 ~" m0 a8 B4 _     RowBox[{"(",
      RowBox[{
       RowBox[{"-",
        SuperscriptBox[
         RowBox[{"(",
          RowBox[{
           RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
       SuperscriptBox[
& v8 _$ I! A" l5 [* z$ y        RowBox[{"(",
         RowBox[{
8 @5 ?' u/ M0 h& l, A          RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
0 q6 c5 v2 ?! S       SuperscriptBox[
* @5 w! k7 o+ a) W" P0 t. ]        RowBox[{"(",
" y: b) J0 z3 t/ O2 \  P+ x0 H' ~         RowBox[{
          RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
! X9 j+ g4 F6 p% O9 m' e9 h  ]         RowBox[{
: F( u9 B/ t3 Z# d7 K          RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
       SuperscriptBox[
5 c# U; f6 w6 j* m% g% m! \        RowBox[{"(",
         RowBox[{
5 l, p% R# ^0 _: h) a- B          RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
$ n  j8 T$ S- m$ v3 [9 _       SuperscriptBox[
7 T; p. I8 S4 G- j2 r: a        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
5 `$ v7 y0 c( j: G# B. [       SuperscriptBox[
3 ~0 ^* _; s1 a' d5 p        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
; R" i- l1 {$ k& F7 y       SuperscriptBox[
: k* k' y8 Q. j- t) p        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
- e8 m+ _& g. g# B3 O/ D- q       SuperscriptBox[
        RowBox[{"(",
. a6 ~+ Y* A3 e, A         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
      ")"}]}]]}], "-",
: T+ p7 c; N3 q  RowBox[{"0.4666313851213302`", " ",
   SuperscriptBox["\[ExponentialE]",
- q$ z! z9 b) J1 |& K    RowBox[{"3.141592653589793`", " ",
     RowBox[{"(",
( z  ]! o: f4 {1 p# P      RowBox[{
       RowBox[{"-",
        SuperscriptBox[
' T2 x" B9 Q3 q         RowBox[{"(",
  ?( s( a0 G  E* \          RowBox[{
* \) n) a" K: A8 f. {3 {" K           RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
; l8 X# b) J3 l0 x0 T       SuperscriptBox[
4 Z+ b" v2 }" o% d6 M( `+ s" ~        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
- F6 b+ W! \0 M3 `# d. d1 k         RowBox[{
/ K, B; D( c2 K# e/ v          RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
- K/ i9 E6 j0 x; ]! E8 m. M0 b       SuperscriptBox[
        RowBox[{"(",
; u0 X; _8 S2 s; [6 a* `         RowBox[{
          RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
. Q) T- p9 X& d1 J/ E% l       SuperscriptBox[
" F# N; S3 R9 a; s8 m. i- Q        RowBox[{"(",
4 |4 S0 _) f; n& y  e! I$ a. e# z         RowBox[{
$ K7 t' j5 p; b+ B* J* o          RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
* {' h8 ]& w  S+ Q: T( a( ~        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox[
9 \- ~$ [  C+ H. x" M: z1 y        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
2 G3 ?9 F% M, I5 D       SuperscriptBox[
        RowBox[{"(",
! S2 V# t1 f" ]  x         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
      ")"}]}]]}], "+",
  RowBox[{"0.3741982811661129`", " ",
" u  S0 q& x; r: ]/ ~   SuperscriptBox["\[ExponentialE]",
/ J4 I. @; _2 N) \    RowBox[{"3.141592653589793`", " ",
     RowBox[{"(",
      RowBox[{
       RowBox[{"-",
        SuperscriptBox[
         RowBox[{"(",
0 Z0 b. Y/ e9 G# R6 E. j# ]" ^          RowBox[{
           RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
$ ]. ]! g& w9 i1 _) F' f       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
       SuperscriptBox[
  L1 x0 i- B0 \2 x7 V        RowBox[{"(",
0 k$ ^: w  `, z, o         RowBox[{
* k3 |' m, N8 }  }4 q" M9 @! o8 t# A1 G$ v          RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
# F2 N: w, q, J5 X       SuperscriptBox[
$ J$ b. s" I) P        RowBox[{"(",
, Q9 j* n# Z- j9 R" C& t         RowBox[{
7 S* g( W! R( B) S  t          RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
  i3 @# u' j1 ]  `         RowBox[{
  x. O, c8 J# n) [          RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
& _. N$ k4 i/ I          RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
/ g$ H5 p8 t* g) z$ \5 F       SuperscriptBox[
1 s7 T: _' S5 F3 j* d8 U8 f        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
) {7 d# b9 i9 s) m. Y       SuperscriptBox[
$ z( j- @  {( G8 [        RowBox[{"(",
' T5 n9 B% m0 W         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox[
% a! y$ S$ I$ s# ]  Z        RowBox[{"(",
6 G0 \) t% ]" W         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
6 X/ ?0 D4 [5 c1 {, `      ")"}]}]]}], "+",
& V0 z6 ?0 G. c: {  RowBox[{"0.5575503376854456`", " ",
5 g) f2 Q" o% `; e1 g4 K5 T; P   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.141592653589793`", " ",
     RowBox[{"(",
5 o1 L9 f7 }  O  n2 ?0 Q      RowBox[{
. t; J1 q2 O/ ?% b       RowBox[{"-",
        SuperscriptBox[
         RowBox[{"(",
          RowBox[{
           RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
       SuperscriptBox[
        RowBox[{"(",
+ s; A. t) I4 W8 M, O' W! F         RowBox[{
          RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
- y; T% H7 t4 d" C- j       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
# V! Y* g& {" _( e8 S7 ~          RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
  z" A" b3 M" S- _; K3 Y  y2 l6 L        RowBox[{"(",
* f+ X3 Y3 k1 r: J, m7 V         RowBox[{
          RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
       SuperscriptBox[
3 z( G3 s5 x) [! m* w        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
4 Y! }* a' s5 Q" B        RowBox[{"(",
: d0 ^( m& ?# q( |, ?# W         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
" @" h5 r4 Z/ L  z' \- G       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
- x( e5 ~. C( |1 F& Q  S2 j       SuperscriptBox[
        RowBox[{"(",
  {* ~) F7 r6 G4 g1 t( Q. ^* N* Y         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
      ")"}]}]]}], "-",
  RowBox[{"0.1339854044819916`", " ",
   SuperscriptBox["\[ExponentialE]",
4 U3 F7 v  ]5 p6 f) n! o0 ]    RowBox[{"3.141592653589793`", " ",
0 n6 N! m5 P: |; g$ e; `     RowBox[{"(",
: D/ w$ v0 e, a0 {! w7 g      RowBox[{
+ d' b) T* o; M& L       RowBox[{"-",
        SuperscriptBox[
4 h7 Y- B# H* S) l- M, w" h         RowBox[{"(",
. {+ h  }$ ?/ J  w. q3 }8 }/ E          RowBox[{
' d3 c+ X- G/ q( Y# G- w; @; G4 n           RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
* w7 W" {. j& F1 y/ w8 c4 g& p& {7 {       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
! M& \  {9 @4 q          RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
' R. \& N5 y* e1 P5 Z1 l       SuperscriptBox[
% q& m/ X, q" m6 Y" M        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
       SuperscriptBox[
; c+ ?( A  x& H1 p1 {  f/ y' N        RowBox[{"(",
         RowBox[{
) I8 h9 K+ \. X. z4 y2 @* {          RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
2 C, R& O- s8 x8 q" _0 Z       SuperscriptBox[
        RowBox[{"(",
, X6 _2 {' T, v         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
( b, S$ U( J8 n8 E) B       SuperscriptBox[
        RowBox[{"(",
, a1 O0 `- {9 j) V4 ]         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
3 M. _# ?8 x0 M. m" M. H) A0 b% ]       SuperscriptBox[
9 O7 O) u; `& x9 O( s        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
      ")"}]}]]}], "+",
  RowBox[{"0.45723850991134063`", " ",
) V6 i/ L+ G$ q2 `8 b6 i$ S, G" g- I   SuperscriptBox["\[ExponentialE]",
, _1 S2 _( r0 K    RowBox[{"3.141592653589793`", " ",
     RowBox[{"(",
: U/ |0 R9 P3 Q, |& L      RowBox[{
# a. I0 |2 u2 W- q       RowBox[{"-",
8 j; ?" C1 X# ~# W  L. y5 V3 p        SuperscriptBox[
         RowBox[{"(",
          RowBox[{
2 k, L0 R6 M: Q, x  ]* v5 n) g  N           RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
       SuperscriptBox[
        RowBox[{"(",
  L" E0 I& n# \" T: A         RowBox[{
0 u6 H+ j* h( @; U7 w% e# q( P          RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
       SuperscriptBox[
1 y" j6 `5 A3 @9 m, m$ H$ j        RowBox[{"(",
         RowBox[{
2 ]' M# a/ q* w, C" B- `8 W          RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
# x4 ^7 F* `  |! R" W       SuperscriptBox[
! a( T0 Y4 d/ b) X6 W) h0 a        RowBox[{"(",
. ^; n0 l# }' j3 L5 d$ n0 u7 J         RowBox[{
/ n# i5 m8 w/ P/ g+ |4 a          RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
. a" X, O. \! F. t8 |       SuperscriptBox[
        RowBox[{"(",
5 J$ x( J. Z# z4 Q5 d         RowBox[{
) o. |2 ~/ L4 ~1 p( b5 [' d          RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
3 U" T3 k5 ]9 g* p, ^* T5 v        RowBox[{"(",
( j$ B/ o2 P) @/ |, w         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
0 P* X  V, A( ~& b. k# a+ x% F       SuperscriptBox[
  O! Z  M& j5 n9 b5 }        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
0 M, h8 j+ E, I* L  e! K- J       SuperscriptBox[
, _* o+ k( t9 S' V6 U+ k+ u        RowBox[{"(",
2 D+ j% Q+ G3 O! `         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox[
: w  w' U$ X# p5 O        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
5 S- Q( P; R" t/ }& m9 C# F8 J      ")"}]}]]}], "-",
  RowBox[{"0.025873988843993667`", " ",
   SuperscriptBox["\[ExponentialE]",
, C: o2 L4 p/ }: ]  r: v    RowBox[{"3.141592653589793`", " ",
     RowBox[{"(",
      RowBox[{
       RowBox[{"-",
        SuperscriptBox[
4 H& p3 R. ~6 a) x5 b         RowBox[{"(",
          RowBox[{
  m5 U+ q7 r( i/ B3 {6 F6 ?- ]1 l           RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
       SuperscriptBox[
6 y0 j& _4 L2 Y' T3 n        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
5 V! ~- Y' S# S          RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
, M; m6 H: O  L        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
: a7 X9 ~6 V0 F9 @% e% i/ B       SuperscriptBox[
8 v' e5 e' i) P, I* }, P        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
7 H* e9 ^+ F) i) n+ k" R1 o  v1 }         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox[
2 q0 a8 E. |1 J7 F        RowBox[{"(",
$ K' ^+ G  H3 p         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox[
3 v, L7 x. C. q$ Y7 @        RowBox[{"(",
; A$ g8 K- {& Q/ ]* p  I( S2 ~         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
      ")"}]}]]}]}]], "Output",
" B, v- Q& E0 Q CellChangeTimes->{3.577924759875*^9, 3.577924921203125*^9,
$ i) t9 i& E# p: P7 E5 C7 v  3.5779583210432997`*^9, 3.5779585060284224`*^9, 3.577959043308958*^9,
  3.577962317973732*^9, 3.578012448875*^9}]
}, Open  ]],

: B+ T' j1 O- l- ICell[CellGroupData[{
/ |$ Z+ y( d5 v, C
Cell[BoxData[
0 `; m+ |8 C  U6 g( h8 G0 m RowBox[{"y2fit", "=",
  RowBox[{"Table", "[",
2 G, L% L& \0 n4 z; @7 [* Z6 `7 ^  l0 E   RowBox[{"x", ",",
# _4 m5 g, P1 U0 k    RowBox[{"{",
     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {
   3.5779252768125*^9, 3.577925277484375*^9}, 3.5779583246625056`*^9}],

2 K$ u# W: h4 ]: a, H: `Cell[BoxData[
$ v# ?' P- C- G1 K  w RowBox[{"{",
2 d0 Q( \6 K" q4 w& d  r5 m  RowBox[{
, U7 \6 I% @, O4 o4 y+ A, ~3 a  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
4 X' T. r$ ?" k; }3 _: z8 Y( K+ b   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
8 }' k* ?" W* m( H) s+ }2 P    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
   ",", "29"}], "}"}]], "Output",
CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9,
  3.5779583268153095`*^9, 3.577958508118826*^9, 3.5779590470685654`*^9,
  3.577962320173336*^9, 3.57801245028125*^9}]
4 W5 T( e& y9 R9 f4 }, g9 v}, Open  ]],

$ h9 J4 u& N4 j) F$ \$ @Cell[BoxData[
RowBox[{"For", "[",
  RowBox[{
   RowBox[{"i", "=", "61"}], ",",
   RowBox[{"i", "\[LessEqual]", "89"}], ",",
3 F0 V0 u( r. W   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
   RowBox[{
$ c9 P# U( u- p    RowBox[{
     RowBox[{"y2fit", "[",
      RowBox[{"[",
       RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
     RowBox[{"y2", "/.",
. `1 }" }# d% ~' A      RowBox[{"{",
       RowBox[{
        RowBox[{"x1", "->",
' m7 H5 |& z) Q8 Q0 f         RowBox[{"Data", "[",
          RowBox[{"[",
3 a0 G8 l1 J4 S  [2 B3 C  B           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
" y0 Q: A7 k# \" e        RowBox[{"x2", "->",
2 [' L% s/ f% V1 G5 W) s5 [         RowBox[{"Data", "[",
          RowBox[{"[",
: T8 d0 X# K9 T5 l! M8 f4 ]  O4 T           RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
( D) X. f5 H- [0 i$ f/ D4 U7 p        RowBox[{"x3", "->",
         RowBox[{"Data", "[",
. n& d- W, i9 q4 G2 V' w+ i          RowBox[{"[",
           RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
        RowBox[{"x4", "->",
         RowBox[{"Data", "[",
+ W/ ]/ n0 u% S3 D& Q$ c          RowBox[{"[",
! X7 l8 p+ Q' @/ v9 M$ s% n2 l           RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
! z) e3 m- O( Z3 U! W& O( \# Q        RowBox[{"x5", "->",
9 v  ?% E' P2 E         RowBox[{"Data", "[",
, f$ h+ {: Z- z. p          RowBox[{"[",
) o  Z: b8 o' @5 @; g           RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
- ?/ ~3 l  {0 ?        RowBox[{"x6", "->",
         RowBox[{"Data", "[",
  Z# \. I! X# |          RowBox[{"[",
           RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
        RowBox[{"x7", "->",
         RowBox[{"Data", "[",
          RowBox[{"[",
           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
        RowBox[{"x8", "->",
/ S% Y# G1 g4 P- K# N         RowBox[{"Data", "[",
9 g# Q" c! r" R$ @' e' A% S, V( x          RowBox[{"[",
& ^9 S3 v! N$ B7 {  k9 d           RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
        RowBox[{"x9", "->",
         RowBox[{"Data", "[",
          RowBox[{"[",
& v; y* X& L+ Q& X' N4 g! `           RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
% h2 L/ N6 e: \( V% B/ K4 p3 ^  "\[IndentingNewLine]", "]"}]], "Input",
5 Y3 N+ X! a- k4 R' [1 [# S CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {
  3.577925286140625*^9, 3.577925306765625*^9}, {3.577958329919715*^9,
2 P8 c6 R, L& j. w) m3 S* T  3.5779583326341195`*^9}, {3.57795892351635*^9, 3.57795892354755*^9}}],
7 Y& \6 }& w2 c
Cell[CellGroupData[{

1 I1 a& k6 _2 X" bCell[BoxData["y2fit"], "Input",
CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
   3.577925040484375*^9, 3.5779250440625*^9}, 3.5779583419785357`*^9}],

Cell[BoxData[
: J  _' ?* S* g8 v8 i/ k; l RowBox[{"{",
3 A- |9 {/ f& W& @  A. k  a# V  RowBox[{
  "0.4853171132859182`", ",", "0.4508635216665074`", ",",
  @3 }" u9 Q8 b9 d$ A, e   "0.3642119241752518`", ",", "0.42852077425595436`", ",",
" s, I, w! C( C/ `) V   "0.4712694272667798`", ",", "0.5257533056184774`", ",",
3 c' p. c% d3 C+ [& t# L: s   "0.48620658140716133`", ",", "0.41106838915591876`", ",",
   "0.5486894206610674`", ",", "0.007731168540073459`", ",",
7 N7 A. I, y4 U7 _   "0.013872406140339109`", ",", "0.3956995051659558`", ",",
3 s1 g, C7 s3 f   "0.3663118256142708`", ",", "0.29094217358055163`", ",",
   "0.5453093690736555`", ",", "0.44138898880777927`", ",",
; i4 l% v8 K2 V( u# N/ o1 K   "0.42944922031163496`", ",", "0.43092890556748836`", ",",
   "0.5942402821739969`", ",", "0.330046090785457`", ",",
   "0.18938658036630585`", ",", "0.4263720292858679`", ",",
8 z2 _* W# m' b6 @, d; C. v( _% }   "0.23377136184738775`", ",", "0.02232858193309988`", ",",
) r3 {% h) a" W. e" i3 D$ r0 F; x9 T   "0.244364200084268`", ",", "0.5562383565309971`", ",",
' m0 Y, I, ?* U) L: c7 G' p  W   "0.13114103402954333`", ",", "0.5815052048989465`", ",",
   "0.4253455966293501`"}], "}"}]], "Output",
/ N8 K- }9 D  [ CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
8 F8 a8 Q- u) M" H1 x  3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9,
3 z3 w1 L0 K# r2 a& `- \3 t; G  3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}]
}, Open  ]],
! [: w! b5 ^: [* }. D# m; D- ]
* V5 u. S4 ]+ }" u7 HCell[CellGroupData[{
' A$ M( h" R: B
Cell[BoxData[
RowBox[{"y2fit", "=",
  RowBox[{"{",
6 }  E9 K5 M# @   RowBox[{
   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% O: R$ ]9 N7 E    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
9 s6 R+ ?0 ?. ^; C2 ~2 J    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
2 p4 H3 n; M+ K; j& b    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
6 O6 m% @; {" |( q( M    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
4 `. U: \. J$ c/ |+ y" e    "0.48531711328591953", ",", "0.48531711328591953`", ",",
    "0.45086352166650845`", ",", "0.36421192417525217`", ",",
    "0.4285207742559556`", ",", "0.4712694272667811`", ",",
8 p3 O& E% D6 `, t/ k6 n9 ^9 k  B    "0.5257533056184786`", ",", "0.4862065814071623`", ",",
    "0.41106838915592014`", ",", "0.5486894206610683`", ",",
    "0.007731168540073532`", ",", "0.013872406140339166`", ",",
. N. p( y/ Y, X  L    "0.3956995051659565`", ",", "0.3663118256142717`", ",",
, ?- X) w/ q+ U% V3 {! i    "0.29094217358055185`", ",", "0.5453093690736568`", ",",
    "0.4413889888077799`", ",", "0.42944922031163585`", ",",
. a4 H. X" I! E. P, z2 ]" G5 X    "0.4309289055674891`", ",", "0.5942402821739983`", ",",
    "0.33004609078545805`", ",", "0.18938658036630632`", ",",
, V0 R1 s$ g* w2 R5 x/ n    "0.4263720292858688`", ",", "0.23377136184738778`", ",",
    "0.022328581933099827`", ",", "0.24436420008426807`", ",",
+ x# U- |8 B  I5 ~+ w; N    "0.5562383565309981`", ",", "0.13114103402954314`", ",",
    "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",
CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {
  3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9,
  3.57796233957977*^9}}],
$ z5 |4 r3 F" ~) g
Cell[BoxData[
RowBox[{"{",
4 i# y! c0 G, n8 \8 M5 c0 m! ~  T% x  RowBox[{
- ~2 Y" |' o% ^; I) H( \" V  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
- g. e0 Y+ X1 u+ n! S, c4 e   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
: e- G$ O) S, k/ m; \0 Q% ^- y/ {6 c   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
7 I  t: L7 }9 l* h: W" X# {" l   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
& t' \# b6 G, T" ~   "0.48531711328591953`", ",", "0.48531711328591953`", ",",
# O" _' L+ T& l   "0.45086352166650845`", ",", "0.36421192417525217`", ",",
   "0.4285207742559556`", ",", "0.4712694272667811`", ",",
) c# W& G6 F, B, v" ?% x* S   "0.5257533056184786`", ",", "0.4862065814071623`", ",",
   "0.41106838915592014`", ",", "0.5486894206610683`", ",",
. [6 w: L0 r' X1 R2 i, p& a   "0.007731168540073532`", ",", "0.013872406140339166`", ",",
   "0.3956995051659565`", ",", "0.3663118256142717`", ",",
   "0.29094217358055185`", ",", "0.5453093690736568`", ",",
9 u: k# B4 \" e. L   "0.4413889888077799`", ",", "0.42944922031163585`", ",",
   "0.4309289055674891`", ",", "0.5942402821739983`", ",",
4 n2 d# @$ v+ w& m   "0.33004609078545805`", ",", "0.18938658036630632`", ",",
( E+ h+ F$ `4 `* g1 q   "0.4263720292858688`", ",", "0.23377136184738778`", ",",
) K: F7 p' B) j! ^* p   "0.022328581933099827`", ",", "0.24436420008426807`", ",",
   "0.5562383565309981`", ",", "0.13114103402954314`", ",",
  R( H" [0 ]% c) r( G   "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",
CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9,
2 C+ I" v% m; H2 L, c5 {  3.577962342060174*^9, 3.57801245340625*^9}]
* X3 p4 G& y. g- X! M9 g0 v  o}, Open  ]],

Cell[CellGroupData[{
* k+ z9 v3 k6 N5 V6 b
" ?, u  j" n$ A8 f( |Cell[BoxData[
RowBox[{"y20", "=",
  RowBox[{"Table", "[",
1 E! j# {+ _5 Y' z   RowBox[{"x", ",",
% s1 |3 z' F! H4 W: v! W; f' a4 G    RowBox[{"{",
     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],

Cell[BoxData[
RowBox[{"{",
  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
  M1 I. @" q" ^0 C" ?    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
" h. y; F/ H% f% b  c8 N3 x   ",", "29"}], "}"}]], "Output",
CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9,
$ w+ w0 f2 K: S% E0 Q) X  3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9,
  3.578012454875*^9}]
3 c# {  X1 o! E: x( H}, Open  ]],

Cell[BoxData[
' F' m% i# f" h2 ^) g RowBox[{"For", "[",
0 X# y. G) l$ F8 T, D  RowBox[{
. x/ b+ ^: v4 s$ b, z2 h   RowBox[{"i", "=", "61"}], ",",
   RowBox[{"i", "\[LessEqual]", "89"}], ",",
   RowBox[{"i", "++"}], ",",
   RowBox[{
  e% m' w0 q; E% A2 c    RowBox[{"y20", "[",
     RowBox[{"[",
. b7 b2 V' C8 v! [3 N9 t  L      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
    RowBox[{"Data", "[",
     RowBox[{"[",
# A" @: m7 j+ u/ y1 I. [      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
9 C" k7 O. K4 F! B% W4 g0 n  3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
  3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {
* i( o' h5 |& F" ]  3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9,
: o- V! V; |& m  O) t5 ^4 O) n  3.577959058690585*^9}}],

Cell[CellGroupData[{
7 U0 ?4 c8 ]# d) S7 a+ r
Cell[BoxData["y20"], "Input",
6 O$ o, ?! A* c1 f& g CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9,
   3.5779583657841773`*^9}],

Cell[BoxData[
RowBox[{"{",
  RowBox[{
' c, A  D$ O2 n  "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",",
6 H& [4 X8 J* x# n6 S  I4 [   "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
   "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
5 E9 A8 @  M2 k% `6 p. O# I   "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
9 }6 ~- a$ N) |$ p) C8 S   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
   "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
   "0.323944`"}], "}"}]], "Output",
- ^' o9 z# f1 R8 n CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
6 g% {0 u4 a- h3 g  3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9,
# A: d" G4 @+ k/ O* G  3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]
}, Open  ]],

" r# d: W- Z% p' q+ kCell[CellGroupData[{
" z5 }! u8 R  j: W
- n: K! ~0 n) ~4 o* P4 _Cell[BoxData[
  J+ m" |6 Y! N$ Z% ? RowBox[{"y20", "=",
  RowBox[{"{",
   RowBox[{
   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" `* E3 i0 {  z$ _    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
: q$ t6 o8 v" V0 |; O    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
" J, f/ i6 I' u+ b    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
: c9 U/ V* i5 f( Q* ~    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",",
    "0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",",
    "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",",
    "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",",
  \9 \7 E4 }) n7 v! l1 m2 r    "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",",
+ r) d* G" h( F2 D    "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",",
    "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",",
    "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",
CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],

Cell[BoxData[
# Z: K* U" ^. y. W1 H RowBox[{"{",
  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
6 q1 J2 O" z: w) D. O8 d9 S1 T    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
2 o( K6 D4 h/ e' a) C7 X9 U3 h   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
) [* e1 Y/ N: b) J  G( l: Q   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
1 W* d( \) e/ X* O* x   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`",
   ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`",
   ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
    "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
   "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
5 a7 ]) _) ^' b" x2 Z   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
4 ?; ]) r& F; Y2 H7 V/ j3 l* s+ `8 {8 k   "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
; M9 B4 `  M# `- D  @   "0.323944`"}], "}"}]], "Output",
# y/ @2 T, H$ Q1 L; X+ a CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9,
1 u+ A- l7 k& _6 u4 A8 o) D  3.578012457234375*^9}]
}, Open  ]],

Cell[CellGroupData[{
# j7 I- l' I. i9 f; q
Cell[BoxData[
, e1 D7 u" p" a* k$ H- p0 @* W# } RowBox[{"p2a", "=",
  RowBox[{"ListPlot", "[",
+ n3 {1 b- f" c' x$ A   RowBox[{"y2fit", ",",
    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    RowBox[{"PlotStyle", "\[Rule]",
     RowBox[{"{",
7 \- Y4 j* r0 `2 M      RowBox[{"RGBColor", "[",
       RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
$ N! C4 F4 t2 Q3 N- V! g- p6 l    RowBox[{"PlotRange", "\[Rule]",
     RowBox[{"{",
      RowBox[{
: w* |% ~8 ^" C3 P0 _; R! ^       RowBox[{"{",
0 V3 Y/ w; p2 y4 G        RowBox[{"61", ",", "89"}], "}"}], ",",
       RowBox[{"{",
3 a) ^1 h% I' y+ S# C) ^3 T( g! t        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    RowBox[{"AxesOrigin", "\[Rule]",
/ X9 C+ I8 T. t. p3 o0 y4 l) k5 ^$ h     RowBox[{"{",
4 C7 p3 M' V5 E" L+ n, c      RowBox[{"61", ",", "0"}], "}"}]}], ",",
; m. z3 v- E. o3 I    RowBox[{"Frame", "\[Rule]", "True"}], ",",
' \6 j/ g+ e; z2 Y5 I# Y, Z    RowBox[{"FrameLabel", "\[Rule]",
, t( [* A1 k) ~1 [     RowBox[{"{",
% h% @4 A5 s' L# c+ k- z5 x) d  i2 f      RowBox[{
      "\"\<\:7089\:6b21\>\"", ",",
/ _+ X& k0 p+ X: [; C       "\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\
\>\""}], "}"}]}]}], "]"}]}]], "Input",
+ P" A2 |/ W7 k+ C CellChangeTimes->{
  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
: \/ U. }; I: d( k   3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9,
   3.5779585491624975`*^9}, {3.5779592802577715`*^9,
   3.5779593014270086`*^9}, {3.5779594039971876`*^9,
   3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {
   3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9,
   3.578012920859375*^9}],

6 A  U% J* A' M8 Y$ DCell[BoxData[
# X: I- J7 |) q: f6 v GraphicsBox[{{}, {},
   {RGBColor[0, 0, 0], LineBox[CompressedData["
3 I4 ~  w/ b% e# K1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
- h: V' r, _+ ]1 D. T2 G/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
, k% Y7 }/ _6 B% |ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
" v$ X) o$ R' O2 n99yxuG0PAHw7nyU=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
# }7 ]: m( X1 u# `% X  L9 {  Axes->True,
  AxesOrigin->{61, 0},
! j4 J* f! ^! }1 t  Frame->True,
( x0 U6 C4 A) n  FrameLabel->{
    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    FormBox[
# @* z6 X- F' C! m- r    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
0 A' e( S8 R! a% Q     TraditionalForm]},
1 e# ~; i9 }& }9 K  PlotRange->{{61, 89}, {0, 1}},
4 x5 F# c6 |( m' ?, \  H1 d) \' q  PlotRangeClipping->True,
" w7 ?4 w0 A4 [7 y  PlotRangePadding->{Automatic, Automatic}]], "Output",
* I! a( ]0 ?1 r9 C9 W% t$ @ CellChangeTimes->{
  3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9,
  X$ F; i. W( E% M( @   3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9,
   3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9},
   3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9,
   3.57801247209375*^9, 3.5780129225625*^9}]
}, Open  ]],

7 a, z9 j3 U7 xCell[CellGroupData[{
- J) _; x' Q# A: N: g! Y
* f! Z' c/ X0 I1 w% Z/ F9 ~Cell[BoxData[
; U) U0 p/ j" S. w5 W+ n6 E! @+ ~ RowBox[{"p2b", "=",
( c9 K5 _7 p- }% O  X  }. U$ n# l2 |; F  RowBox[{"ListPlot", "[",
   RowBox[{"y20", ",",
  H7 R) t$ r& w* b, U) q    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    RowBox[{"PlotStyle", "\[Rule]",
5 L2 u" ~7 N- B" j" ~! _( }# {( f     RowBox[{"{",
      RowBox[{
       RowBox[{"RGBColor", "[",
        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    ",",
    RowBox[{"PlotRange", "\[Rule]",
7 W$ B" ]- w# A% o     RowBox[{"{",
' P9 N5 I$ a+ i$ P( x9 a+ B( a      RowBox[{
       RowBox[{"{",
        RowBox[{"61", ",", "89"}], "}"}], ",",
9 z" m  V* R8 L       RowBox[{"{",
; E4 {3 D& f  E7 `+ [/ q        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    RowBox[{"AxesOrigin", "\[Rule]",
     RowBox[{"{",
      RowBox[{"61", ",", "0"}], "}"}]}], ",",
& k, P& s$ n& b' F    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
CellChangeTimes->{
/ r1 o9 Y0 x; N- R0 I- s# J! y: @  3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9},
! R3 R0 E% P& ?8 v% k: h9 ]% f8 h9 ]   3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],
# O4 P) q. d' G- K# r$ F. E$ M+ b
Cell[BoxData[
1 O6 s$ j9 H; z1 C& m5 @ GraphicsBox[{{}, {},
6 H2 \. n2 u$ S: G' Y0 r2 w) @   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
) n+ N6 i# `% c$ \5 xc/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
/ D: U3 {8 _' t  uiX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
9 a4 l' g5 [8 KTZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
  G+ \# Q: m4 HfzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
! c" o' Y! S0 k0 x( t2 K9 t& E* DTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
p0OYg4Fg/tz63VfsAdsCnzU=
8 y: Y, a; T  w' t1 E; s3 f     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{61, 0},
! A2 Q6 Q5 m: Y$ z  Frame->True,
  PlotRange->{{61, 89}, {0, 1}},
' C& ?; ?5 Z+ J; Q3 {. \  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
  3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9,
# H  f' H6 v! I: k9 i$ n  3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9,
  3.578012484703125*^9, 3.578012925875*^9}]
}, Open  ]],

Cell[CellGroupData[{
! F" v/ z: I& h: E
Cell[BoxData[
3 c1 T- R, _* Z* } RowBox[{"Show", "[",
. i3 G+ D% x) q4 p  RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],

Cell[BoxData[
GraphicsBox[{{{}, {},
    {RGBColor[0, 0, 0], LineBox[CompressedData["
# c+ p4 Q0 r" {# G& n0 b( X1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
# K" o9 a5 a+ A4 S- w- sofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
" |* X+ A1 e- r5 n- A1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
( T' n( K4 E# _4 e* V* AsPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
$ K( I1 S5 o4 q( U: Y% K99yxuG0PAHw7nyU=
      "]]}}, {{}, {},
    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
9 Q7 ?, p: v% x/ z1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
6 r% ~8 z& |3 F- L6 uc/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
* |. k7 g: `. M8 ^: v4 T: OiX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
4 Z2 |! u! |" l! h% cTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
1 v, t4 e1 N0 T* q; ~% m* Vp0OYg4Fg/tz63VfsAdsCnzU=
8 G5 Q7 s# `7 ^2 @% @( a      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
4 G( Z0 f* [& D, y$ w  Axes->True,
  AxesOrigin->{61, 0},
  Frame->True,
  FrameLabel->{
# H7 K" i) ?& E    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    FormBox[
    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
     TraditionalForm]},
8 K5 e; A, V& ?0 R( v% E! Y  PlotRange->{{61, 89}, {0, 1}},
: p0 n9 Y4 E3 O+ r& d6 F* x! y  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
$ S3 I6 d/ q8 o; |) j. v8 {( K& g CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9,
$ _6 v0 e9 A) d0 c6 {8 T. Y! O! o  3.578012927734375*^9}]
}, Open  ]],

& i" f2 Q7 L: G' {1 }* U+ R8 q: OCell[BoxData[
% C! M; R- `; R  [7 }0 E RowBox[{"\:ff08",
* b# S, L- A* d; T  RowBox[{
  "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406",
   "\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621",
6 f: b) ]$ I2 Q& d9 T% O7 |* q   "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208",
  Q& `5 G) x3 G5 i   "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0",
+ k4 w# Q; N0 R* t+ L6 k/ s   ".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\
+ z6 s4 u0 c" i( A, i\:4e3a0", ".6224",
   "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],
5 _. ]# P, ]: \0 J, z1 N   "\:ff09"}]], "Input"],

Cell[BoxData[
) l6 g8 y7 ^/ @" O RowBox[{"{",
* h1 f8 Z) {5 }  RowBox[{
3 ~0 E3 J: S) Z2 K  "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",",
/ A+ k' a% s: @  Q) J1 a   "\:5439\:6c27\:91cf", ",",
0 u' Z) M7 b" O1 F  ?   "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",",
   "\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",",
   "\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",",
   "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",",
   "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",",
   "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],

" a; b+ [; b4 mCell[BoxData[" "], "Input",
CellChangeTimes->{3.577962834553033*^9}],

Cell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],
1 D+ E9 d/ Q" r5 A
Cell[CellGroupData[{

# s7 ]: U  d, P0 b# yCell[BoxData[
RowBox[{"y1", "/.",
  RowBox[{"{",
   RowBox[{
/ f! f3 h' l7 G4 |6 @* W; P( A# W    RowBox[{"x1", "->", "0.7406"}], ",",
    RowBox[{"x2", "->", "0.4621"}], ",",
9 L& V8 E, p0 c: z9 k- ~# J    RowBox[{"x4", "->", "0.2221"}], ",",
- |2 ?! p8 ]# R) c    RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",
5 a9 s9 b4 ^5 d CellChangeTimes->{{3.57796267209435*^9, 3.5779627224200373`*^9}, {
( |7 U4 C; o/ J' r! B8 K  3.5779627663029137`*^9, 3.577962774820529*^9}}],
: M4 j/ L4 V4 v' i2 ?
& m# ?, {- ?% G" e  S! w  U* l+ V. [Cell[BoxData[
RowBox[{
  RowBox[{"0.2286149508637297`", " ",
* m4 @8 O3 ]* [" G1 S   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
      RowBox[{
4 I; u' N- |: L+ K: d; ]       RowBox[{"-", "0.17911224641499998`"}], "-",
: O) o' a) u3 o, i% I9 {       SuperscriptBox[
& z8 W0 J4 O) P/ m& x' S        RowBox[{"(",
; S5 q' X$ b; X3 Q& T         RowBox[{
! j& f$ G+ x) J9 I6 b) `' k          RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
1 S6 ?; k! v  y& ^0 W/ ]       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
4 @( O* k  u% i& u; b, T3 m/ J, b; l0 k       SuperscriptBox[
        RowBox[{"(",
7 z- z& E4 H/ A% Y         RowBox[{
1 Y; @9 F, e3 y          RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
4 x9 Y5 C6 T8 L- o$ O       SuperscriptBox["x8", "2"], "-",
+ q5 ~, r& \$ I       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
& g# J# M) H+ ?% m          RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
: e" k6 P+ B2 Z; _  RowBox[{"0.020180806675835994`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
      RowBox[{
$ _* x+ G% [( P% W       RowBox[{"-", "0.105619387859`"}], "-",
% ~0 Y' ^8 E4 z) D6 E; j       SuperscriptBox[
1 x7 Y6 y. n0 O. _        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
/ q5 F8 d8 E& M7 ~( t, P6 S. H9 D       SuperscriptBox["x6", "2"], "-",
       SuperscriptBox[
0 ~: [# x9 C; v  X* s7 \/ |        RowBox[{"(",
         RowBox[{
8 C5 }/ e7 h7 C( Z1 C6 G          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
! ?7 O. x- ?7 i! M9 Y- D& }       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
  "+",
& R! N$ Z) ]4 A+ l; l) q  RowBox[{"0.13092706311748437`", " ",
   SuperscriptBox["\[ExponentialE]",
3 A# r  [7 t. K) z' y! _. l  E& f" V    RowBox[{"3.1415926535897936`", " ",
6 y- Q8 F$ Z) b7 ]- O+ s5 |. x     RowBox[{"(",
      RowBox[{
! l2 B2 F4 U) B; S( L1 a$ H6 x3 w9 ^       RowBox[{"-", "0.236605670085`"}], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
+ B- U, p, |+ w% n7 `( U: s: @' f       SuperscriptBox["x6", "2"], "-",
       SuperscriptBox["x7", "2"], "-",
       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
9 A/ @# {( r3 }$ v+ w         RowBox[{
          RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
  "-",
1 d0 l& u% ]' }  q/ k8 C8 `  RowBox[{"0.033459349088924784`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
: D7 H* v# J6 K& V4 E( ]% P     RowBox[{"(",
) K$ V! f2 f- a3 U      RowBox[{
       RowBox[{"-", "0.46221081830200006`"}], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
( u; Q" |; J* Q$ \3 d& q          RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
+ U# h  j8 s0 Y6 A! k$ O          RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
  ?0 |- Q% t7 \0 r3 {/ U* d       SuperscriptBox[
        RowBox[{"(",
4 i, T5 ], z* F( l. d         RowBox[{
" r2 K4 G* G* y# W. {; y3 _: f          RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
% e7 N7 d& {9 N4 ~3 e8 ], p6 C& A         RowBox[{
: i) A2 D0 u& ?  @- _          RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
" B$ B' g9 L( v# [  "+",
& }% w3 P6 i. o( H2 F( f) s) O  RowBox[{"0.39611806709006653`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
      RowBox[{
/ T, s, C( H( F       RowBox[{"-", "0.5837889295140001`"}], "-",
9 ^  D( e8 ~1 P& G1 W: A3 i       SuperscriptBox[
        RowBox[{"(",
  ^' W. E1 V* m4 W" ^5 M- Y' _         RowBox[{
          RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
6 p; f3 j2 H8 m3 Z' F  x, o* g       SuperscriptBox["x6", "2"], "-",
& M" M6 e9 G  Z- x: x! U1 x       SuperscriptBox[
        RowBox[{"(",
: u- A1 U- A+ r9 o: s5 z         RowBox[{
          RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox["x8", "2"], "-",
0 {) E9 I/ S+ S  G1 k; ~       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
3 ~6 Q$ x: k0 s1 {3 D' q( L/ C  "-",
  RowBox[{"0.19996885877792045`", " ",
' D5 v3 x! k) _- b   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
! i; x' Z! d9 O' ]$ O     RowBox[{"(",
9 e3 F6 ~' O+ j8 ^5 l, u& O- d6 ]7 }      RowBox[{
. y: p0 A1 N( u. {$ n8 G       RowBox[{"-", "0.19030188470200005`"}], "-",
$ S) L5 e) x8 e       SuperscriptBox[
        RowBox[{"(",
2 q6 ?3 q! F8 i  I$ T         RowBox[{
" Y( N+ k* h  D" S1 H  b! ^' r          RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
4 W* G/ Y, ^+ W2 u( v( ?7 o       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
3 b/ Z. t8 S& w8 A( E% [" I: y! R          RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
; t& x  g9 u/ J7 l* P8 b8 S; E       SuperscriptBox["x7", "2"], "-",
       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox[
( |" H" G. C3 C2 ]* G  ]5 }! S        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
  "+",
  RowBox[{"0.23580523388620744`", " ",
   SuperscriptBox["\[ExponentialE]",
6 V& G0 ?4 V- [. q7 _    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
* L* l6 K9 u- w5 L7 P" I- S      RowBox[{
       RowBox[{"-", "0.28518780882`"}], "-",
: [5 A7 P- P% l, f4 h) j5 X       SuperscriptBox[
        RowBox[{"(",
. w1 r9 m+ U' K         RowBox[{
          RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
  P' Y# g8 C2 {3 n" m: ?       SuperscriptBox[
6 U; h. D, f9 X5 }. o$ U  a        RowBox[{"(",
9 o6 g3 X' S0 G( B& R         RowBox[{
          RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
/ {* b3 ]7 S+ f' \; X3 R        RowBox[{"(",
+ S1 g/ y7 Z  Z7 E7 T1 i         RowBox[{
          RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
7 {5 G1 M% b( U' x7 d       SuperscriptBox["x8", "2"], "-",
! ~9 M- r4 p5 N8 a& M       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
7 }7 `9 i! b, q, S          RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
  "+",
) j5 E; `; z4 O- T  RowBox[{"0.667027259367853`", " ",
& @5 D) N. Q% e0 M; b   SuperscriptBox["\[ExponentialE]",
! F4 W9 M. {  E0 f! N8 n8 |; K    RowBox[{"3.1415926535897936`", " ",
$ L& V3 l, i: x8 f! ?: J+ p  @  Y     RowBox[{"(",
      RowBox[{
       RowBox[{"-", "0.11387365200400001`"}], "-",
% _& m  o  v9 d$ t. L$ q( p$ H- l       SuperscriptBox[
/ u/ ~/ H# t, @- t4 W        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
  v# O$ q7 T  `/ Q          RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox["x7", "2"], "-",
8 l* S( f: l+ g( z       SuperscriptBox["x8", "2"], "-",
- P8 Q4 O. u( ]6 f( x       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
4 ?# c- d3 q" B! O          RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
  "+",
0 G: g9 i6 g# n4 ?7 X6 a  RowBox[{"0.25282438852646905`", " ",
   SuperscriptBox["\[ExponentialE]",
5 p" E- b" C: o# D/ O    RowBox[{"3.1415926535897936`", " ",
- [4 r* D2 E/ m  F1 M9 N" y5 {     RowBox[{"(",
# x8 z0 O6 L" V  @      RowBox[{
       RowBox[{"-", "0.11442644782500001`"}], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox["x6", "2"], "-",
       SuperscriptBox[
* u; z$ T6 L( Z9 q        RowBox[{"(",
, @6 s# Q! A5 K$ K         RowBox[{
! e" G5 K0 K7 `5 d9 B) G          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
$ T, h& Q" Q% S. ?       SuperscriptBox[
3 I* s1 G$ f' X5 l4 @9 g        RowBox[{"(",
7 T% k; w' W- d. J1 L         RowBox[{
          RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
  RowBox[{"0.07581214474544536`", " ",
* Y' D4 G* K( u2 o   SuperscriptBox["\[ExponentialE]",
$ Q! L  s; S* {$ b' d% ]) o- j4 G    RowBox[{"3.1415926535897936`", " ",
1 r7 z6 j0 n( m9 Z# u+ D     RowBox[{"(",
7 k6 U9 v0 X6 A8 u1 V% h      RowBox[{
) W& ?. I8 `6 i2 W- U' Y& B       RowBox[{"-", "0.21008576609800003`"}], "-",
/ ~+ F& K7 L7 {* i       SuperscriptBox["x3", "2"], "-",
- w$ H/ u# A$ k9 S: R9 A5 ?       SuperscriptBox["x6", "2"], "-",
       SuperscriptBox["x7", "2"], "-",
/ v2 s& b: x5 I% x       SuperscriptBox[
' M; U/ X) W8 o: a        RowBox[{"(",
7 e" v' S; U: \  t         RowBox[{
          RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
+ g0 `" m5 _, p( K' s9 |% k* _       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
& Z8 ?5 V  M' ]/ A  N! e( ^6 ?  RowBox[{"0.10599338351843121`", " ",
+ Z: w; g1 ]. J) C   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
! t  Y5 [3 D+ f     RowBox[{"(",
      RowBox[{
       RowBox[{"-", "0.4481471925460001`"}], "-",
6 m% W, A7 ~5 L: I       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
- p/ Y0 _' h' E3 P* q          RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
! Z% |; {7 O4 j3 _  x/ s+ q          RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
- ~! u4 u# e, t% t       SuperscriptBox["x7", "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
) T1 g' C3 J) @8 P. {/ j+ R         RowBox[{
          RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
, `0 {2 b. Y4 p0 w2 @; y. q. ~% n       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
3 m: z( Z4 Q$ ^  i3 d+ y5 V2 B4 \  RowBox[{"0.5008208386064421`", " ",
: \! e( L% c1 V( _   SuperscriptBox["\[ExponentialE]",
4 U' m6 o' |2 g1 t0 G3 u# V    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
  @+ T# X" {0 z      RowBox[{
6 T5 `8 k5 E$ b; `! N       RowBox[{"-", "0.08722659614000003`"}], "-",
       SuperscriptBox[
        RowBox[{"(",
6 i1 X" k; \9 D/ C) U5 h8 _: I         RowBox[{
8 W# y6 s7 a0 }          RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
. Q3 k. k8 r" k% w       SuperscriptBox[
2 H8 V& ?0 i( `* F' g5 j. Q        RowBox[{"(",
5 G2 i/ o; L# _+ Y4 f; s* l( T         RowBox[{
* J4 K% O6 g" q. s          RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox["x7", "2"], "-",
& W) E$ {7 y5 ~3 O6 u: E3 y2 e       SuperscriptBox[
        RowBox[{"(",
" O9 D/ y! ^, N: X! n- ~" r         RowBox[{
          RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
  \0 z' N2 r2 ^& n$ [8 g" j5 x       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
  RowBox[{"0.32564305572552343`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
+ Z9 v) b( W) O3 e. I/ E     RowBox[{"(",
      RowBox[{
       RowBox[{"-", "0.23738217000100004`"}], "-",
9 o1 W! P1 n3 O% k. F; w5 }       SuperscriptBox[
9 c' e: C9 L& T" x, G, R3 l        RowBox[{"(",
+ ?. D6 n+ y1 H# u         RowBox[{
' `* H) n% |" i; E# t: }: e          RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
- ~7 ]: ~1 g, }7 a, n       SuperscriptBox[
        RowBox[{"(",
* U% i* F# Q' m/ F, d# n         RowBox[{
          RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
) ?8 j* r2 _' N8 S9 H& _+ W# z       SuperscriptBox[
% p3 t/ Y' S& B: w$ o, E9 O. w        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox[
+ l5 E- b% h6 K# J& q) P: k        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
/ r6 I5 g2 ?* n$ d0 |9 ^4 T9 B: x       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
  RowBox[{"0.6665374509702793`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
! Q5 ~2 e7 F4 J1 p      RowBox[{
       RowBox[{"-", "0.19162171876400003`"}], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
1 n/ Y" T+ W. l6 R          RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
* I$ G3 a* _; _. \+ D; P       SuperscriptBox[
        RowBox[{"(",
- O( U; f$ i' S9 |" `         RowBox[{
/ v8 \' q' o8 W  A- O          RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
# {8 p% U  l- u2 ]& D          RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
; b& I  ]$ {$ e1 T% ~; K* Y       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
* x6 ~1 S2 I4 ]8 h0 M( d* G+ x1 v  RowBox[{"0.4812237524557293`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
+ J' A' S# ]7 t) ?: a1 C- T     RowBox[{"(",
      RowBox[{
       RowBox[{"-", "0.109748954594`"}], "-",
       SuperscriptBox[
        RowBox[{"(",
: X1 |& O; l) r1 U0 E: h         RowBox[{
0 z& ~$ u8 p# z: U          RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
5 b6 M0 E! j6 g/ u% W       SuperscriptBox["x6", "2"], "-",
* R+ U8 s) z7 \  h/ j" ^* A       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox["x8", "2"], "-",
; l6 @5 j4 n% ?4 |: K3 t8 g2 J0 A       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
) O" [9 P$ ~' b1 g  RowBox[{"0.176024676254045`", " ",
   SuperscriptBox["\[ExponentialE]",
; \. ^2 m% k" ]% o, c6 n    RowBox[{"3.1415926535897936`", " ",
2 Y& @2 x$ \1 J) @7 G  \( ]     RowBox[{"(",
7 C, X  X2 a0 Z2 H      RowBox[{
       RowBox[{"-", "0.14616677062500003`"}], "-",
       SuperscriptBox[
# p2 Y  S/ B" u6 d: c        RowBox[{"(",
, A5 F0 R  F) W9 C         RowBox[{
7 Z: K  W' _$ U8 a' N: I          RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox["x6", "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
% f7 N# P1 N& M! {0 Y+ l         RowBox[{
. R/ p* L. z* z& W  T& ~) R0 d          RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
. V; c# ^  U3 B0 p3 l$ m       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
  RowBox[{"0.5945873894818965`", " ",
   SuperscriptBox["\[ExponentialE]",
. x- c- b* T- z    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
      RowBox[{
       RowBox[{"-", "0.10407011464100005`"}], "-",
       SuperscriptBox[
" Y3 B. q: c$ L4 {        RowBox[{"(",
         RowBox[{
  N; u5 p0 Y) H6 B1 R          RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
% ^; b" T8 u8 B/ W8 y       SuperscriptBox[
! j% S/ h7 ^0 u% C' o2 _+ v        RowBox[{"(",
         RowBox[{
6 V) y/ r6 o3 y/ D% Z# v/ G          RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
6 Y7 @. X$ [+ i2 @8 x) R       SuperscriptBox[
        RowBox[{"(",
9 ?% j/ e& |0 M# {$ V! l7 }         RowBox[{
+ N, m; o2 m+ o% A8 y* g1 y1 M          RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
: L8 p6 h  k0 `& ~       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
  RowBox[{"0.027591936509660075`", " ",
   SuperscriptBox["\[ExponentialE]",
- I9 y6 }# v% w. c0 |! a    RowBox[{"3.1415926535897936`", " ",
# _; g. x+ s. h4 W+ W  s     RowBox[{"(",
6 x7 t1 z# x) n/ s" h$ g2 b      RowBox[{
       RowBox[{"-", "0.31770463544200006`"}], "-",
       SuperscriptBox[
        RowBox[{"(",
+ P0 O7 P2 B6 l! P5 ~& R         RowBox[{
          RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox["x6", "2"], "-",
       SuperscriptBox["x7", "2"], "-",
       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
  RowBox[{"0.5252475961933536`", " ",
. {3 x7 l1 M6 ]   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
      RowBox[{
1 p3 U. L, y, n7 X7 V. o! Q  n       RowBox[{"-", "0.6410867660730001`"}], "-",
       SuperscriptBox[
        RowBox[{"(",
1 r5 T0 v% w3 E* ^& A8 m7 K6 ]         RowBox[{
0 U- d) G( I' [; k- j  K- W+ M" r          RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
/ j% I9 G9 Z) m) q( j       SuperscriptBox["x6", "2"], "-",
0 M' ~; n$ m+ }5 F, F: v4 U+ {0 R       SuperscriptBox["x7", "2"], "-",
       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
  RowBox[{"0.32047284779644936`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
0 b6 t0 x% M" J: m' W$ z" [4 d6 S     RowBox[{"(",
5 k* F2 e* |* Y) i3 E      RowBox[{
# v. w' ]4 `" `& @! [       RowBox[{"-", "0.155663887074`"}], "-",
$ Y" c8 F2 i! h       SuperscriptBox[
; e; Q( k( O% {7 E8 S9 h: P) Q" w        RowBox[{"(",
7 L! }. A* |# q         RowBox[{
          RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
1 W5 I- S, a' @4 T( s& b       SuperscriptBox["x6", "2"], "-",
       SuperscriptBox["x7", "2"], "-",
- y: a  F8 c7 @; x: @0 H/ [       SuperscriptBox["x8", "2"], "-",
" ~) J% H, X$ o2 }0 k& C       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
2 h. A: t4 v) r" q  RowBox[{"0.7528674241482847`", " ",
/ y9 f5 O" w8 l  P, v: r7 d3 |   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
      RowBox[{
* {% T6 p/ E/ x( r* z       RowBox[{"-", "0.14151232428600002`"}], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
) w( E8 j, _, o5 g6 E       SuperscriptBox["x6", "2"], "-",
; j/ A4 Q: N# S# U       SuperscriptBox["x7", "2"], "-",
       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",
CellChangeTimes->{3.5779628386090403`*^9}]
}, Open  ]],

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

---

作者: 569646632    时间: 2013-8-30 20:15
可能不能导出系数

---

作者: -___    时间: 2014-2-4 16:33
者。。。。这是神马

---

欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)

Powered by Discuz! X2.5