数学建模社区-数学中国

标题: 怎么在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
问题完善一下！或者把代码贴上！
- y9 s6 n5 f; C4 f

---

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

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

(* Content-type: application/mathematica *)
9 h; c7 ]7 q. m/ U* D
(*** Wolfram Notebook File ***)
- d' O4 r4 a: B(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)
9 G1 ^: {& d) ?; t0 q) W
  l% G3 P; G# z& g) ]3 R(*CacheID: 234*)
(* Internal cache information:
7 K) G. V0 k' V  b5 {NotebookFileLineBreakTest
' w. A# Q( {6 A4 y6 INotebookFileLineBreakTest
5 D1 y2 B  E  {, L) i) ?7 f6 ~NotebookDataPosition[       145,          7]
5 K) Q6 H6 t# kNotebookDataLength[    423629,      11534]
7 J( y9 T3 I; C# QNotebookOptionsPosition[    412607,      11173]
2 f" p3 g7 w1 `& B' y0 S, l- L2 fNotebookOutlinePosition[    412953,      11188]
CellTagsIndexPosition[    412910,      11185]
9 p' y/ R5 H& W; W* n$ hWindowFrame->Normal*)

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

Cell[BoxData[
RowBox[{"Array", "[",
  RowBox[{"CM", ",",
- \' }( }1 V$ M' U4 o1 A+ `% z6 K   RowBox[{"{",
    RowBox[{"80", ",", "9"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.577844235859375*^9, 3.577844291953125*^9}}],

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

  v' n2 C1 J- w7 t! m' I. lCell[CellGroupData[{
7 G1 d# ?: O2 f0 ]7 A( C' K
" Y$ @( I$ b! j' pCell[BoxData[{
RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]",
RowBox[{"M1", "=", "1"}]}], "Input",
CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {
   3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9,
   3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {
- P% \; [- `# d- p8 A% d   3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9,
9 P, O9 ^3 D* w% t# @6 Z   3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {
' R* s$ F& ^$ F  @7 c   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}, {
* }4 P; U9 f; F6 c) e! U: i   3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {
7 v$ T. ~2 \& P1 f   3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9,
   3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
6 f5 B" D6 D0 N! T. I, ~
) ]4 j8 M' o" d0 }+ pCell[BoxData["0.2`"], "Output",
CellChangeTimes->{
  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
. ?2 o4 ?  m7 h4 G. J   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
0 {( E" u; p9 D9 T. p, g9 f   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,
   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
. E9 H$ a& J2 F# ?   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
) r- s5 X7 f6 s, h% }+ m   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
   3.577960510686717*^9, 3.578012149296875*^9}],
( u* U8 b, k+ z, s: j
* r, j$ r, {9 m* ICell[BoxData["1"], "Output",
CellChangeTimes->{
  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,
0 Y8 F  V+ \: ^7 j8 K; M* ^   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
% b5 c/ q) N4 K   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
" P, R( E, t, i5 V   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
1 q! |' U( d# I( g   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
% W( [" Q; }& p. v' @3 A7 ]) B2 l   3.577960510686717*^9, 3.578012149296875*^9}]
}, Open  ]],
8 T' Z1 N# k! |" ?% Y5 n
Cell[BoxData[
2 ^2 Q  ^2 l4 E; m# e) Q9 a# W RowBox[{"For", "[",
  RowBox[{
   RowBox[{"k", "=", "2"}], ",",
   RowBox[{"k", "\[LessEqual]", "60"}], ",",
" p$ G5 [3 }% u7 V" }; |9 v" Q, N" m   RowBox[{"k", "++"}], ",",
2 ?+ L$ f: s* J; g. s- ^5 f   RowBox[{"{", "\[IndentingNewLine]",
    RowBox[{
5 M, n; ]8 s, ]0 w% G     RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
     RowBox[{"For", "[",
      RowBox[{
       RowBox[{"j", "=", "1"}], ",",
       RowBox[{"j", "\[LessEqual]",
        RowBox[{"k", "-", "1"}]}], ",",
       RowBox[{"j", "++"}], ",",
) P0 s' t/ ?8 e, G7 S8 M3 Q7 O/ a       RowBox[{"{", "\[IndentingNewLine]",
        RowBox[{
         RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]",
         RowBox[{"For", "[",
' x5 B& n" i- E% G" |9 L  z          RowBox[{
           RowBox[{"i", "=", "1"}], ",",
           RowBox[{"i", "\[LessEqual]", "9"}], ",",
$ [+ n3 A6 ^9 H: g% L2 d           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
           RowBox[{
8 j0 g  Y; q7 H) w! R$ r! \0 V            RowBox[{"r1", "+=",
# @+ B- h* L+ T5 Z             RowBox[{
              RowBox[{"(",
. G2 H& t9 x* R& q/ `0 ]6 {* I& S+ ?1 C               RowBox[{
0 _7 K( g6 b2 ~1 o3 _' e- n                RowBox[{"CM", "[",
# ?% r- m! B% b, V, D6 [                 RowBox[{"j", ",", "i"}], "]"}], "-",
                RowBox[{"Data", "[",
- d- X4 L8 O7 i, ?                 RowBox[{"[",
+ ^; z% }) {  F& t                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
9 K9 {( ^/ Y/ J6 v* |. y              RowBox[{"(",
               RowBox[{
7 t$ A* i" u. W' ?* {                RowBox[{"CM", "[",
                 RowBox[{"j", ",", "i"}], "]"}], "-",
                RowBox[{"Data", "[",
                 RowBox[{"[",
                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
         RowBox[{"r1", "=",
3 r7 I' a  P1 X4 {' H& u/ m          RowBox[{"Sqrt", "[",
           RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
4 G- t3 l4 w, f$ m         RowBox[{"If", "[", " ",
          RowBox[{
8 f, n( a. U0 m" I) y1 ^           RowBox[{"j", "\[Equal]", "1"}], ",",
, |0 A% G" ], b3 y9 h- V" t           RowBox[{"rmin", "=", "r1"}], ",",
           RowBox[{"If", "[",
            RowBox[{
             RowBox[{"r1", "<", "rmin"}], ",",
- i+ @5 w: h& A+ Q' X             RowBox[{"rmin", "=", "r1"}], ",",
             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
     "\[IndentingNewLine]",
     RowBox[{"If", "[",
      RowBox[{
$ N1 m' Z! l5 l- a       RowBox[{"rmin", ">", "r0"}], ",",
, S2 n/ r8 P1 ^) A+ t       RowBox[{"{", "\[IndentingNewLine]",
0 p4 m8 F$ y7 Y- }4 ?0 y6 t/ ^: e8 j        RowBox[{
4 d; Y$ p" Z, z7 ]: {% U         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]",
  S% [# @$ y/ B+ x6 r" R         RowBox[{"For", "[",
7 L, o9 R% u$ B2 P0 E! x! g          RowBox[{
           RowBox[{"i1", "=", "1"}], ",",
           RowBox[{"i1", "\[LessEqual]", "9"}], ",",
, S3 _4 R% y; n! L( e6 D# P" E3 b" S           RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
0 f- @7 _! \8 h" q1 X+ d           RowBox[{
            RowBox[{
             RowBox[{"CM", "[",
              RowBox[{"M1", ",", "i1"}], "]"}], "=",
& Q5 g' n+ k9 u; |1 @             RowBox[{"Data", "[",
  Z3 c! Z% g2 i* ~5 T: ^9 }8 Y              RowBox[{"[",
( i5 w+ K5 d- p7 g& j- n               RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],
          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",",
& {6 e0 h2 f+ z! `" T4 C( y       RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}],
    "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {
   3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
5 \) X% f$ N9 F, s& I+ O   3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {
5 j; G; A" _& R! D( A   3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9,
   3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
9 b( d: ]: c. h- F# n   3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,
   3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
6 z5 j: W) z2 L) T- z& G/ ~+ r   3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
   3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
   3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
; _5 }, |& _3 G8 ]; @: Q% i; ^/ R   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9,
   3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {
   3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9,
8 z/ ?: `( m- O3 N   3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {
   3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9,
   3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9,
   3.577958821991373*^9}}],

Cell[CellGroupData[{

Cell[BoxData["M1"], "Input",
% _# h4 k) q; [) i9 A+ L CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],

' O# r' b* h- }* J  YCell[BoxData["21"], "Output",
  s' H3 Y) i- Q* Y3 h1 i7 G CellChangeTimes->{
  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
   3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
% A5 f/ b; s, N. F- l: J+ E# n# s   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
) ^! p7 T* s' o, u* P' @   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9,
   3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
+ N2 @- T  {" G, k   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
   3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9,
7 [" b7 U5 A, E% V) K7 O   3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
# m" |7 u8 k0 x9 ~0 J6 Z   3.577960515600726*^9, 3.5780121541875*^9}]
}, Open  ]],
- b. |2 K- X' e/ `  M+ T, b$ q' C
" B7 h3 w. w$ r0 dCell[BoxData[
. o4 ^6 R  q0 ^+ u2 }+ C' y2 p, u$ t( G RowBox[{
  RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[",
7 B  z$ g9 l* A. f   RowBox[{"1", ",", "i"}], "]"}],
  RowBox[{"\:5230CM", "[",
   RowBox[{"21", ",", "i"}], "]"}],
  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
\:51fd\:6570u1\:5230u21"}]], "Input",
CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
) e* k7 M9 u! j6 h' A  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
  3.577960526583145*^9}}],

Cell[BoxData[
RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],

/ J0 B3 t2 x# m2 W7 SCell[CellGroupData[{
3 P$ H) O1 @7 r2 h5 e! h/ R
Cell[BoxData[
RowBox[{"Xa", "=",
  RowBox[{"{",
1 e9 _  K$ @7 |& J1 Y3 X7 Z   RowBox[{
4 H# V1 W. |( L. f: T+ r' K' N   "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
5 a$ F* e& s# @0 [9 a    ",", "x8", ",", "x9"}], "}"}]}]], "Input",
CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],

Cell[BoxData[
RowBox[{"{",
' a$ ~0 r5 \1 ]2 o4 {% j5 V  RowBox[{
& e' {1 S4 ]& M6 T  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
    "x8", ",", "x9"}], "}"}]], "Output",
CellChangeTimes->{
  3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
( c# \' ~& ~; _   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
3 [( f) f/ _  |1 C9 o   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
5 S) }: f) T6 R9 n, Y) y: L! E$ I& y   3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
. z& B7 k, M# V3 F" S7 k. d   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
, x( W+ L9 `! ^* A/ |; E8 i   3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
" Q' b, Y# m  `5 W: G   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
   3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
% f" K0 p6 s/ d& Y9 I: M   3.57801215725*^9}]
- |- q9 k9 b& d3 ^}, Open  ]],

Cell[CellGroupData[{
! e: L7 O( [- @! j. G1 i/ l& h
! ]" c$ a& C0 A. H; [) JCell[BoxData[
RowBox[{"Ca", "=",
  RowBox[{"{",
2 z8 P& a6 m3 O( X1 n0 T   RowBox[{
7 D4 N: ]# a- R8 G; Q4 c   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
    ",", "c8", ",", "c9"}], "}"}]}]], "Input",
CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
/ u6 T& U) N" M9 f0 b# W) }/ _
1 V# b& |8 l, kCell[BoxData[
RowBox[{"{",
" l5 D3 i, _3 N/ v$ E% F  RowBox[{
. s' Z# i; e: l) J8 _5 f  r: d  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
    "c8", ",", "c9"}], "}"}]], "Output",
CellChangeTimes->{
  3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
# Y- B7 L6 p7 C) w* X! i* G, y' {+ c) d   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
+ M/ L# @& I& t7 e# o. u- Z4 \   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
   3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
' T  @0 F9 e% }$ {" @   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,
) B3 ~/ m% x5 A- m) m& `; c   3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
5 }1 l" y, e% Y/ t5 b# t" b   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9,
   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,
   3.577961904604212*^9}, 3.578012158671875*^9}]
}, Open  ]],

3 ^. o3 O5 q6 D' E9 O: iCell[BoxData[
RowBox[{"For", "[",
  RowBox[{
   RowBox[{"i", "=", "1"}], ",",
   RowBox[{"i", "\[LessEqual]", "9"}], ",",
   RowBox[{"i", "++"}], ",",
   RowBox[{
    RowBox[{"Ca", "[",
- R# R) l/ y2 C0 m  I, Y     RowBox[{"[", "i", "]"}], "]"}], "=",
( X7 S6 |. K0 v    RowBox[{"CM", "[",
     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
5 o4 [1 E) \/ ?4 u- d$ j CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
- m- d! K# N6 A5 G  b   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,
+ u; `, E5 u# w" t6 r   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
& a) U1 W( B+ z7 Z& ^% r. x   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
. M/ R; }( T! r% d% p. D/ j) m   3.577961906897415*^9}, 3.578012176296875*^9}],

Cell[CellGroupData[{

+ ?. x4 s" j4 @& f3 lCell[BoxData[
9 V) t7 n" e" n3 n3 N% d4 J8 \ RowBox[{
  RowBox[{"(",
8 d1 x$ ?4 f9 O1 _, i& J   RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
  RowBox[{"(",
5 `5 T0 S$ ]3 R0 _6 t2 d* A) m, X   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
2 q$ Y# e# _4 X' j, G: D" {
0 ?( L/ p5 K& W0 j' m* MCell[BoxData[
6 e( |8 T8 {& o7 m9 |3 a' w RowBox[{
3 x+ i3 J7 c4 [6 Q# s  SuperscriptBox[
   RowBox[{"(",
    RowBox[{
     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
9 O; _, L3 \. ^) ]" {7 ]  SuperscriptBox[
4 u* X9 b7 H1 y; p& r5 i4 l, c$ Z   RowBox[{"(",
7 {& h" l7 N: Y% c7 u) N    RowBox[{
4 c6 l, Y$ c. n. Q4 A  S     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
  SuperscriptBox[
& n% u: D+ C7 |, U7 u   RowBox[{"(",
) e4 b4 d1 S* S' z  y& I# ]    RowBox[{
     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+",
  SuperscriptBox[
   RowBox[{"(",
: o5 }4 Y0 s, ]    RowBox[{
     RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
1 ]. ]- P% y# y; r6 ?; N/ h7 ^  SuperscriptBox[
   RowBox[{"(",
7 l# l1 W! |: ?: G2 J( T    RowBox[{
     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+",
7 C0 }7 A# l% J: f% `  SuperscriptBox[
6 b$ {/ `/ H4 \  j0 ~   RowBox[{"(",
    RowBox[{
+ Y" M8 E! Y) P2 W$ E% T     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
9 B* `& t* A2 K% A) d, n  _  SuperscriptBox[
   RowBox[{"(",
' t& e+ N+ u; D; D0 j    RowBox[{
     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
4 s- h' ]3 e+ D: f9 I4 U9 m  SuperscriptBox[
; O% V, K! F5 w  Q; B* v6 V   RowBox[{"(",
    RowBox[{
     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
  SuperscriptBox[
+ k. ^4 e$ c( s3 _, R" O) o   RowBox[{"(",
% v8 `7 _$ K: _! k4 P    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
8 \, `5 C6 B1 K% c% D CellChangeTimes->{
; J& p- \0 w* u8 P, n  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9},
0 k" Z( D. \! N$ f( ]% N  o   3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
   3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,
. T/ q9 U) K8 j+ Y" F   3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
, L5 N( [( T# t   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
   3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
& }4 [; H! L: d% A7 G! U   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
8 ~, M' ~' h, H2 V" ^& L" s6 O6 H   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
4 l* ^7 L; s3 x   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
  D% J1 H& {3 D7 s% X" J) Q   3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
+ T& x" ~) _& f2 ?! Y$ A3 \! b   3.5779618537169228`*^9}, {3.5779618846049767`*^9,
   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
}, Open  ]],
8 V' q4 C: D4 T5 w( y
/ `3 x' `4 |9 R; eCell[CellGroupData[{
/ K7 ]2 q6 r4 g# H& Q- u7 K
2 y. j+ a2 o& o8 |; a9 o% ^& TCell[BoxData[
RowBox[{
  RowBox[{"Ca", "[",
   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",
9 A8 P# \+ g2 h: D4 {* X CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
4 P$ l' M2 o; X: Q  3.5779616465173616`*^9}],
8 @. F3 E( M! j0 n6 W
% x) `$ T/ L3 E& m9 Z3 n4 f8 L5 w- SCell[BoxData["0"], "Output",
5 {2 v: q3 j" V# u4 F! A: l CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
  3.5779616484049644`*^9}]
) E( t1 |2 Q/ I, B}, Open  ]],

Cell[CellGroupData[{
1 o8 P& k) @8 v" {9 b4 S$ d5 S
# k4 s' W: t: H, \% xCell[BoxData[
RowBox[{
# \4 I9 \. b/ D  RowBox[{"Ca", "[",
, n2 ?2 m, J& D; n   RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.577957376235614*^9}],
& c% D( S9 b" ]# y2 L$ T1 S3 z9 Y3 b
* z- i- k) u0 T1 i* P0 m: H4 ^Cell[BoxData["0"], "Output",
: R6 V: R3 n( d CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
}, Open  ]],

7 A" O' o. q, y5 [" ?6 qCell[CellGroupData[{
" V5 `# E. M+ M8 v% y4 Y
" M7 o( O/ J; j( ^1 pCell[BoxData[
RowBox[{
7 [( i2 ^* Z& n; m! W: c( C& q6 g  RowBox[{"Ca", "[",
   RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.5779573112927003`*^9}],

Cell[BoxData["0"], "Output",
+ ?$ N2 W  V2 P% m CellChangeTimes->{
4 f5 }* j; t7 v; k  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
& @6 j9 B0 x# K' R0 c* H- d   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
6 ^: g# U9 i8 s% _8 p7 o' o# A   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
2 ^' t  S5 I- ]: e+ d" Y* i8 X% \( _}, Open  ]],
  {7 ~4 |4 q" X
Cell[CellGroupData[{
0 \  J' G) |! {+ @' e
Cell[BoxData[
9 v8 W) \$ h, u' r$ ^+ z* ^* t RowBox[{
  RowBox[{"Ca", "[",
3 a! w! o( C+ C" M* V; @2 p! @   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.577921461734375*^9}],
" U* t' e2 i9 M) O
) {+ E; Y5 T* x# G2 MCell[BoxData["0"], "Output",
5 w2 `3 C" ^0 k( e5 f# s+ N CellChangeTimes->{
" {3 Z+ I9 j$ k  3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
( d" X5 e; x, V2 ?   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]
}, Open  ]],

) C" U* q( M. i8 M( u* f% m) ^" w9 ACell[CellGroupData[{
' i; u& ]" }- ]7 B
8 _. z& `8 ~7 n1 b- d1 dCell[BoxData[
3 U$ u- ~9 Z- |0 H RowBox[{
  RowBox[{"Ca", "[",
   RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
2 A- v5 I$ n) a, q. Q! a- \3 V; j CellChangeTimes->{3.577957303118286*^9}],
# j0 Y" x7 M% e5 j4 m
9 L! e# V0 _1 y0 x  {% qCell[BoxData["0"], "Output",
CellChangeTimes->{
! O& D6 C# k( D0 e  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,
4 V4 D+ H' k: ~& `. Z. o, P5 ?% w: }   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
2 [% G7 @: K! j* H: |, T$ T1 X   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
6 F3 p" `" a" `  n9 ^   3.577961889378585*^9, 3.577961912965826*^9}}]
}, Open  ]],

Cell[CellGroupData[{
: V2 ~7 H* Q& g6 @
: o) g( x8 ~; U8 CCell[BoxData[
RowBox[{
1 b, J+ O- e+ g% q2 G  RowBox[{"Ca", "[",
4 L3 ^: K6 A+ q" ~" E1 w   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
$ j0 K% o5 Z- }! C' {  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}, {
  3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
  3.577921435703125*^9}}],

* @4 V' a  D; XCell[BoxData["0"], "Output",
; a  c% I7 }7 m2 Q CellChangeTimes->{
  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 R  P. _0 f* n  {2 y' \   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
+ D& [; Q5 Z/ ]$ l   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
' F4 L! R8 j/ l* T; X' i   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
( [) ?& Z; l- d+ d$ I% e4 [   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
- v4 ?$ }/ R' R( A( |2 f/ z}, Open  ]],

* R' B" R8 |" }4 T0 N) j1 J: n1 aCell[CellGroupData[{
! ~. c& I. ]* R# v* m
Cell[BoxData[
RowBox[{"Delta1", "=",
  RowBox[{
   SubsuperscriptBox["\[Integral]",
    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
   RowBox[{
    SubsuperscriptBox["\[Integral]",
     RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    RowBox[{
     SubsuperscriptBox["\[Integral]",
      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
     RowBox[{
9 c7 p7 _+ g& i4 o      SubsuperscriptBox["\[Integral]",
       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
      RowBox[{
9 r& a3 P" Y. x! k- g* ]; s       SubsuperscriptBox["\[Integral]",
3 a. \! g4 G5 k6 l        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
       RowBox[{
        SubsuperscriptBox["\[Integral]",
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
        RowBox[{
" X: Q7 o) L+ i* v2 f         SubsuperscriptBox["\[Integral]",
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
         RowBox[{
          SubsuperscriptBox["\[Integral]",
; E6 M* ^* h) _8 r; _0 y           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
          RowBox[{
           SubsuperscriptBox["\[Integral]",
            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
           RowBox[{
            RowBox[{"Exp", "[",
             RowBox[{
              RowBox[{
               RowBox[{"-",
                RowBox[{
                 RowBox[{"(",
                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
6 _% ?- |$ g6 G  C0 t9 u                 RowBox[{"(",
                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
/ L' I% m# w/ h+ O+ \0 `* Q              "Delta"}], "]"}],
            RowBox[{"\[DifferentialD]", "x1"}],
9 z" M! A0 z4 U0 P' S$ o            RowBox[{"\[DifferentialD]", "x2"}],
; |! O7 ^9 x# ]/ g: v) e; f; B            RowBox[{"\[DifferentialD]", "x3"}],
" z/ {" n4 a9 P4 r' T            RowBox[{"\[DifferentialD]", "x4"}],
/ V* j  I- L, L* p* G            RowBox[{"\[DifferentialD]", "x5"}],
            RowBox[{"\[DifferentialD]", "x6"}],
            RowBox[{"\[DifferentialD]", "x7"}],
" m1 ]/ I( I4 @  g) _$ X            RowBox[{"\[DifferentialD]", "x8"}],
            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
. A' R2 e7 K9 G, B1 p( f/ g 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, {
" L0 A! ^7 L) }  Y/ _2 A   3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
' |0 ~) _- ~5 N# K, p   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
  P1 p5 H/ E" \! a: t) Y8 e' ~   3.577918964453125*^9}}],

8 w5 w& D+ z  O$ PCell[BoxData[
RowBox[{"97.40909103400237`", " ",
: M  L2 Z( H% |+ ]. N+ T  SuperscriptBox["Delta", "8"], " ",
8 F( I. E) g& u) u: j  RowBox[{"If", "[",
   RowBox[{
    RowBox[{
* A# p7 ^; s+ E2 f: M; U& O     RowBox[{"Re", "[",
      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
    FractionBox[
     RowBox[{"1.7724538509055159`", " ",
      SuperscriptBox["\[ExponentialE]",
       FractionBox["1.1102230246251565`*^-16",
        SuperscriptBox["Delta", "2"]]]}],
     SqrtBox[
3 ]0 Z+ r9 x$ J' _: `" e7 G: S      FractionBox["1",
       SuperscriptBox["Delta", "2"]]]], ",",
% K* G& M9 N/ [. X+ I    RowBox[{"Integrate", "[",
" V% O. g  C- z  a1 m: z  i+ e     RowBox[{
      SuperscriptBox["\[ExponentialE]",
0 l: {3 G" b3 U' ~. i( M       FractionBox[
        RowBox[{"1.1102230246251565`*^-16", "-",
         RowBox[{"1.`", " ",
2 _& S+ A- l; Z" S% j% a          SuperscriptBox["x9", "2"]}]}],
4 d$ I3 o( @( p/ @        SuperscriptBox["Delta", "2"]]], ",",
      RowBox[{"{",
/ e" [/ o+ o" {: K( Z# o       RowBox[{"x9", ",",
' I' q! a, b6 U- H. M0 e% A        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
6 Z4 U2 h1 b8 Q$ R2 ]      RowBox[{"Assumptions", "\[Rule]",
# o* v5 A4 w) A1 n       RowBox[{
        RowBox[{"Re", "[",
) f9 G/ D/ V/ M4 S0 d3 I7 e! A         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
1 J/ c1 g+ {2 C; W     "]"}]}], "]"}]}]], "Output",
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,
$ S5 ^) b- K) t+ t! w  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
3 _5 W+ \# J: a6 k/ z2 c}, Open  ]],
/ b/ L. i2 H" y! {5 j9 |
Cell[CellGroupData[{

Cell[BoxData[
' @; \8 N6 p; R RowBox[{"Delta1", "=",
  StyleBox[
+ i9 N8 R( b4 N3 P9 ^) f6 j   RowBox[{"97.40909103400237`", " ",
    SuperscriptBox["Delta", "8"], "  ",
    FractionBox[
0 H  M3 u4 W3 s- I9 ^8 R0 H     RowBox[{"1.7724538509055159`", " ",
; B* ]5 t! N; h! p      SuperscriptBox["\[ExponentialE]",
0 }; @* V9 {% n; o6 C3 ^       FractionBox["1.1102230246251565`*^-16",
        SuperscriptBox["Delta", "2"]]]}],
4 s- g4 U4 Y! x+ O) V; @: @     SqrtBox[
      FractionBox["1",
       SuperscriptBox["Delta", "2"]]]]}],
   FontWeight->"Plain"]}]], "Input",
CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
( F9 j" ]! r2 [6 ]* Z   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
5 Z7 g& e5 `; s! c! f
; G$ U7 v2 p( z& oCell[BoxData[
( T% e8 x, L9 O8 \. R5 z FractionBox[
2 r+ e1 X! o9 _+ D: O. l  RowBox[{"172.65311851642346`", " ",
, r0 f$ o( z& [" E9 g   SuperscriptBox["Delta", "8"], " ",
/ b# a9 ~% G; e: N# t) Y7 o4 Q   SuperscriptBox["\[ExponentialE]",
    FractionBox["1.1102230246251565`*^-16",
- I. V7 }: D6 e     SuperscriptBox["Delta", "2"]]]}],
, o& ~% C. V/ r7 }; _  SqrtBox[
. \! g: g2 a. l! g   FractionBox["1",
4 K6 u1 B+ c$ Z+ a0 i0 h- _- c    SuperscriptBox["Delta", "2"]]]]], "Output",
/ d7 ]3 h- N# r CellChangeTimes->{
  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
   3.578012166234375*^9}]
8 v$ G; l- [  w5 M. Z: X# h}, Open  ]],

. C+ T# L( n9 r4 DCell[CellGroupData[{

, d) m2 U7 B  |3 I+ }. X4 n, aCell[BoxData[
RowBox[{"DeltaX", "=",
  RowBox[{"FindRoot", "[",
# B+ S2 |; N6 [( m! r   RowBox[{
' b/ ~$ F& g" P7 _( [7 G3 t) S. X    RowBox[{"Delta1", "\[Equal]", "1"}], ",",
    RowBox[{"{",
     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
, Z5 a" T" N5 @# z# X# T2 V CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
% i5 q* r) I7 E% T) ]3 h   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
   3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
   3.57791921584375*^9}}],
8 i9 {# S# W$ N; N$ v  I
% Y( @' M+ C2 R2 ^, v: h  ICell[BoxData[
RowBox[{"{",
, ^1 ?8 C7 A' I/ R  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
7 W8 r5 b! R, n$ |8 I* n CellChangeTimes->{
  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
' s0 A+ w* q/ B0 A   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
* x- n1 B: O; k3 A   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,
1 c2 p# @. q+ n+ l* u   3.57796070150625*^9, 3.578012167703125*^9}]
: j' c8 i8 x& g& c8 m}, Open  ]],

Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
: ]. }" i/ R# N% d- A( E2 n+ h CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
' T" M# G$ `! p/ Z2 B  3.577960705312657*^9, 3.577960707621461*^9}}],
$ r4 ^4 Z- ]6 ]! g% |
Cell[CellGroupData[{
( i2 D* k( ]& k) K5 P1 [
6 y: I6 M4 P* SCell[BoxData[
1 F1 w. M# I8 H2 b+ J RowBox[{"C1", "=", "Ca"}]], "Input",
CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],

Cell[BoxData[
RowBox[{"{",
  RowBox[{
  "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
3 V& s' w# F  v) f   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
5 q& w. N* ]' b3 h2 t   "0.`"}], "}"}]], "Output",
! m( l0 g) @/ }3 E' |+ l CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,
  3.577960710273465*^9, 3.5780121855*^9}]
+ f! A, _8 A5 B. ?( w}, Open  ]],

* Z' I  S& A! X" ACell[CellGroupData[{
& N  l/ D- S2 G7 q. I7 R
Cell[BoxData[
RowBox[{"u1", "=",
  RowBox[{
   RowBox[{"Exp", "[",
    RowBox[{
     RowBox[{
8 [" R0 j# y) B6 l& |0 n      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
. E$ }2 R) |& B1 P        RowBox[{"(",
- y- }3 X6 T% u+ j: \4 I* y         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]], "Input",
" Z. R& F- Z( }# D) u- j) I  r, Q1 k CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
   3.577919193484375*^9, 3.5779192326875*^9}}],

: Q, a" p2 g1 R* iCell[BoxData[
; l! h$ n8 T5 z* R3 a SuperscriptBox["\[ExponentialE]",
1 N4 d) z: q* g) W& g9 k( k, e  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
- A* B4 }( Y* U' W6 Y     RowBox[{"-",
+ g3 _$ y; w, `" {- V; ]9 g. f      SuperscriptBox[
       RowBox[{"(",
        RowBox[{
* |; b2 @% L0 a8 z         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
% q7 ^# J+ f$ A- ^* o4 O% ]7 V% {     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
2 T3 n% u7 [6 r' n9 ?       RowBox[{
        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
& U1 m% I" e' f2 M' E8 [      RowBox[{"(",
/ |; I3 z' f( F) [2 Q0 G       RowBox[{
  t1 F) W& E/ g        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
; I, @# \. u1 Q# Q: {0 x4 \     SuperscriptBox[
      RowBox[{"(",
! D2 J* W* s7 K2 t- g+ r       RowBox[{
        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
; q# A0 h3 p7 O2 w7 ]     SuperscriptBox[
2 U) g  |# b3 ~      RowBox[{"(",
( b9 _" U4 a, Z2 ?& r/ z8 v       RowBox[{
        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
4 I- g) G( i( Q9 Q3 E       RowBox[{
        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
4 @' d4 `! w+ J7 Q0 g     SuperscriptBox[
- A  S: I) P7 Y% W- H      RowBox[{"(",
( |5 O- z9 r2 _8 b4 i) K/ v* a1 l9 {       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
8 s+ T* s6 g/ |0 u# Y, J6 l    ")"}]}]]], "Output",
, D% ~' r  ]" z: Y4 I CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
, J! c/ h, Q) D# w3 R  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
  3.578012187078125*^9}]
}, Open  ]],
  o) V( e3 U/ P, m9 `% V
Cell[CellGroupData[{
7 a& E: l# Z: _! f# ?% H9 T3 Q
Cell[BoxData[
RowBox[{"C2", "=", "Ca"}]], "Input",
1 M% b, |' m+ o/ E4 d CellChangeTimes->{3.57792047321875*^9}],
  e$ i- p* M% k7 \- W/ _% b
0 J9 N$ L# r6 s# [$ O, u; fCell[BoxData[
6 K! V" x6 d, `  J RowBox[{"{",
  RowBox[{
- N! Q+ h4 t( [- |+ z; Y! j, o  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
0 ]6 Z4 m& Z7 W9 _- I  j   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
- I; U0 k4 b9 E0 g5 D1 h) c; Q) a  "}"}]], "Output",
CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
6 E2 K5 h' m' y4 e8 i: P  3.5779607401163173`*^9, 3.578012204671875*^9}]
}, Open  ]],
& s5 @6 K1 f$ _) d: i
3 T7 u+ N' W, ^7 SCell[CellGroupData[{
2 d  I9 `0 c0 c
4 P; M/ c5 R; k: Y, c* ?Cell[BoxData[
6 N$ ^8 J, Q$ L2 X  G RowBox[{"u2", "=",
  RowBox[{
0 Q5 k# r. g4 q8 D# u8 A   RowBox[{"Exp", "[",
8 @( j9 n. U9 I! G' ]' t    RowBox[{
' s2 G5 e7 Z6 e     RowBox[{
7 o( e. A& I& w' V      RowBox[{"-",
8 p; Z' c0 Q  R       RowBox[{
        RowBox[{"(",
7 C4 U1 a8 G5 ]3 F5 g9 x         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]], "Input",
( |# V8 c9 {3 p- D CellChangeTimes->{3.577920484109375*^9}],

Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
& y' l! X' Z+ U+ u! J5 q; @  RowBox[{"3.141592653589793`", " ",
2 m; h  Q4 O: K* u& N   RowBox[{"(",
    RowBox[{
4 X; F# R& c) r, e$ _9 o     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
  t9 C# k, \$ O7 P/ u& i0 p: l        RowBox[{
: `! ?4 i" W3 {0 g         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
' t. `0 @& K, d4 g     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
* h6 j8 Y2 l' o% g) R        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
* X% n" \; q6 A3 r     SuperscriptBox[
      RowBox[{"(",
9 _0 O- a" A& ~" l       RowBox[{
' u  l4 t4 A3 t, ~$ y        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
! d; Z; X8 D, C7 m$ ]$ Q      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
7 l4 f& h7 t- w      RowBox[{"(",
       RowBox[{
0 L* c; G* w) A5 P) \& {; p        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
* H) Y1 _4 d: |! B     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
3 x1 m; g7 [: V; d: \       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
* a( T: V$ d' `: y+ s5 t6 O* j5 F% t     SuperscriptBox[
% V: S+ C: z- F: N! L5 Z5 v" V      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
" f4 ~8 k8 I9 ^* I     SuperscriptBox[
$ a( I6 {5 f$ M      RowBox[{"(",
' Z4 k6 Z4 A/ [/ N) f       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
/ |2 x) Q# f# `5 D& Q6 H9 w3 X    ")"}]}]]], "Output",
/ {, Q0 p" k4 r/ ]7 a& z3 } CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
! Q. Q/ i, {# W. u) f4 a  3.5779607413955193`*^9, 3.578012205484375*^9}]
' \4 e' L( K4 n# A' P& H8 |; U}, Open  ]],
" m. h6 @* q* j" ?9 C( i: X
, k" X+ Z/ k0 N$ g! }4 U# uCell[CellGroupData[{

. L# u8 d1 s* U4 g% A; [$ j1 B6 PCell[BoxData[
RowBox[{"C3", "=", "Ca"}]], "Input",
CellChangeTimes->{3.57792064125*^9}],
( h- w" V" `6 e+ x+ g0 Z
Cell[BoxData[
3 r4 H+ |: K& W) @9 D RowBox[{"{",
  RowBox[{
  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
" F1 h# \; A! |6 t" D2 h* ^. _   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
2 Q" \+ B8 M; b' s$ @- a  "}"}]], "Output",
CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
  3.5779607642027593`*^9, 3.5780122103125*^9}]
* r% T! D! O  m3 l4 N+ g7 v, K0 j3 D& \}, Open  ]],

) q/ D6 z5 c! R3 D) L# T( hCell[CellGroupData[{

; Q$ Z$ {" L' h% V3 W: L8 H* hCell[BoxData[
) }8 N5 q, O+ D RowBox[{"u3", "=",
  RowBox[{
   RowBox[{"Exp", "[",
$ |4 }# g! {' a7 B2 b    RowBox[{
" f) \7 E; z! i1 E% D. C; n8 h3 X     RowBox[{
      RowBox[{"-",
: P: B4 J1 k8 l  F" C8 E" l       RowBox[{
# c( W% b/ i6 q3 A' j2 e  t1 c; H        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]], "Input",
) Z2 P5 |4 l8 O. g! o3 V CellChangeTimes->{3.57792064921875*^9}],
1 Y, v" F! r+ B( {+ w1 t: m: d
6 l) E: g/ x$ D2 @/ qCell[BoxData[
SuperscriptBox["\[ExponentialE]",
. R. a" N- V& i# z* L9 s8 J  RowBox[{"3.141592653589793`", " ",
+ y* P7 u, o/ F1 Y$ v! F   RowBox[{"(",
    RowBox[{
     RowBox[{"-",
; s: b4 h/ B3 @& S& b' A: O+ r5 c      SuperscriptBox[
       RowBox[{"(",
1 c* r3 ]& q3 i- c  m# A        RowBox[{
5 g1 o6 T  k+ o6 ~( L& |         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
% J& r9 V* k( z* t     SuperscriptBox[
  i/ Z! X4 K/ X+ D- A+ f      RowBox[{"(",
- T8 R$ @9 B3 G1 v       RowBox[{
, O1 S( M5 Z! M7 [        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
4 v8 m5 w  ?9 |) |1 @- V     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
$ L7 Y! a+ V( P' H6 v2 \- H        RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
, Z1 _" L5 m4 ?7 E( m. D     SuperscriptBox[
9 |& |% i2 K. U4 Q1 x. E      RowBox[{"(",
       RowBox[{
% B/ v6 C( }. ~: T        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
5 c; Q4 p) v8 ]2 `4 }( T, t' u       RowBox[{
0 t$ J6 o& ?  z/ {; W        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
+ r- O" J# D3 k$ I: I1 q     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
$ O' J. V+ Y7 L, K( Y% L1 L) e" w( ]     SuperscriptBox[
      RowBox[{"(",
1 c% Q* C# n0 V       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
6 I8 |# T& i+ H$ [" @. M CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
  3.5779607654819613`*^9, 3.578012211515625*^9}]
}, Open  ]],

Cell[CellGroupData[{

6 s) T% A2 `8 p0 hCell[BoxData[
* k3 c7 f7 G1 t4 s' a9 M RowBox[{"C4", "=", "Ca"}]], "Input",
CellChangeTimes->{3.5779207559375*^9}],
) T2 K2 |/ f- A6 T
Cell[BoxData[
$ ~3 }5 ~! r5 T' ]8 a+ I! w RowBox[{"{",
" A9 u- b4 q* r  RowBox[{
  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}],
/ V, ?  w" i5 m3 }  "}"}]], "Output",
CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
  3.5779607861363974`*^9, 3.578012216171875*^9}]
}, Open  ]],

9 T+ V% {8 B- ^. a! Y( {  m( }! }Cell[CellGroupData[{

; o3 H$ G/ X7 }# P0 Y3 kCell[BoxData[
RowBox[{"u4", "=",
  RowBox[{
, T: L1 z" p( {0 x   RowBox[{"Exp", "[",
- g8 o- @" }/ m3 u3 j7 _! x    RowBox[{
+ i1 m5 r6 o2 ~( L2 W     RowBox[{
" F& e* C) [! c# @+ ?/ ^& x      RowBox[{"-",
       RowBox[{
# l" S# A( T  y9 L        RowBox[{"(",
& v3 `# b- \. n) B% `2 `4 }         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
% `6 @( a+ E+ j/ `$ F     "]"}], "/.", "DeltaX"}]}]], "Input",
3 }) T. }+ H5 m% C  w& b CellChangeTimes->{3.57792076325*^9}],

4 \. U1 |; J$ N3 s7 o1 ^# g* A+ [Cell[BoxData[
0 A6 t& n+ U+ w& K SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
$ O" o) D& R9 P: b! b    RowBox[{
     RowBox[{"-",
! X5 s7 ~. f3 }  D      SuperscriptBox[
# j5 R2 E$ y5 w" b       RowBox[{"(",
        RowBox[{
5 j, {4 X0 `6 h- R, g; ]' {6 Z         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
; ~0 e2 H+ `/ i' ]$ x& L" ]     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
# l  p6 C0 E3 E! R: T     SuperscriptBox[
' J% s. B2 l/ ]6 J0 o, s9 m. L# R1 Y# Z      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
5 N/ x- A  O, m( j1 M. k) s       RowBox[{
3 ~' m3 {4 i9 Q% n! K: n        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
2 @: k  h  @4 I" f       RowBox[{
        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
2 `4 I! P" e/ G     SuperscriptBox[
. z- j4 E# o+ p7 y5 m      RowBox[{"(",
0 t: \- O" D& t       RowBox[{
& d4 Y" u' K9 ^, q# C        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
6 n( b1 K6 m* k+ e, \& Z     SuperscriptBox[
9 `4 G& }- J8 v$ w9 R8 Z" }) }      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
1 O; S! {9 E) x8 V      RowBox[{"(",
- F4 J2 T$ J2 Y+ u9 ?       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
' D. f& o: S! B0 M9 d, z  B# K  e     SuperscriptBox[
6 B/ f" m4 |# G# g  _  B* ?% V      RowBox[{"(",
       RowBox[{
, ?3 M9 r! s4 q8 z        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
' r' C8 S. n7 Z4 T  m    ")"}]}]]], "Output",
- h, h+ c) R, _; W, x5 Q CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
7 T* ~7 Q2 m1 C* ~  3.5779607873531995`*^9, 3.5780122169375*^9}]
" `1 [* i0 D# j" w1 j}, Open  ]],

/ R/ {. r8 S+ mCell[CellGroupData[{

* D. P6 Z6 w5 vCell[BoxData[
RowBox[{"C5", "=", "Ca"}]], "Input",
# v  F& K7 c' m, V: m CellChangeTimes->{3.577920860671875*^9}],
7 |0 q9 u0 r9 @- ]
Cell[BoxData[
RowBox[{"{",
  RowBox[{
  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
  "}"}]], "Output",
/ X) r3 H% u6 e( @ CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
  3.5779608137328453`*^9, 3.5780122209375*^9}]
}, Open  ]],
$ c  G# h  v0 f
2 @" K/ y5 W. H9 wCell[CellGroupData[{
; H: e3 V. d5 n" h0 H
+ n6 i4 b5 C: a- E" j" g, n% sCell[BoxData[
RowBox[{"u5", "=",
- M3 y5 |  H. ]' G' i  RowBox[{
9 {; t1 ~2 \6 v6 U  a& h; f   RowBox[{"Exp", "[",
    RowBox[{
/ V! B) l( ~2 H) Q( l% a0 N     RowBox[{
5 P+ \; O+ \3 w. N* o5 E6 ?9 k$ `      RowBox[{"-",
  r6 B3 @6 ?0 c8 K0 G8 ~& j4 Y1 B       RowBox[{
" F9 @" _' p5 v( i        RowBox[{"(",
! r' q, [$ K" e, u8 ]$ ?         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
7 N; b& R( A: ~        RowBox[{"(",
3 N3 W* N1 d2 b; y/ ]9 a! _, q5 a: [4 j         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.577920869375*^9}],
7 ]# `& r# u; a( z
Cell[BoxData[
% V( Z0 l) R3 {* e6 A2 r2 e, a SuperscriptBox["\[ExponentialE]",
3 h7 O; o  d1 ~- Y3 E  RowBox[{"3.141592653589793`", " ",
7 a# {7 X! R# ?( J6 e   RowBox[{"(",
    RowBox[{
     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
; G/ z% }. X! S        RowBox[{
7 b- w, H& o& n  A) g; q, S         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
0 ]. M( N% f& B. S  r      RowBox[{"(",
       RowBox[{
+ o1 C& M& O1 d5 k. P! |. q3 J        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
3 Y9 g8 O% w3 o     SuperscriptBox[
' F) f9 a- O7 w3 M3 }9 Y+ u      RowBox[{"(",
8 E7 a+ X) g7 z; ]8 J7 S       RowBox[{
) T- |, F8 F" }5 O3 r2 }3 U9 w        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
8 U( `; Q! m  p  F5 ?      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
; ^) H8 H: ~# T: a6 N5 h       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
& ~7 W0 B/ [" m8 j     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
$ z6 }. x  s0 I- d        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
2 W* U. K3 @, R% B2 s2 J     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
$ s1 j6 I# K& Y     SuperscriptBox[
# ?% b0 J' X$ A3 P: N) v  `      RowBox[{"(",
       RowBox[{
* G. R9 G' |6 c# J7 z1 k' I. b5 U        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
" J  z  H% Y; j& h+ Z1 W( w  \ CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
  3.577960815043248*^9, 3.578012221953125*^9}]
2 d, @' Q& ?" `}, Open  ]],
2 T$ E4 O3 E" e9 j5 y
Cell[CellGroupData[{

Cell[BoxData[
RowBox[{"C6", "=", "Ca"}]], "Input",
  M  G4 n$ C! F" d- k8 ] CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
- b, v1 S0 ?2 |4 |# b6 i0 w" t
7 X$ E- q" r6 K. u! d: n( Z0 @* |Cell[BoxData[
1 ]2 v5 s/ a# H) i8 S RowBox[{"{",
  RowBox[{
( i8 F& C/ M1 R$ o  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
   "0.494866`"}], "}"}]], "Output",
, l  `$ V* c- u, E: o. a CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,
6 O7 v2 F0 G7 P- c6 l2 V   3.5779608373044868`*^9, 3.578012227359375*^9}]
}, Open  ]],

" B: x& o- B7 g) O0 m2 YCell[CellGroupData[{
  H9 E; N3 g9 G* D2 v6 ]1 S
6 G9 t, s0 b5 Q* E/ W7 ECell[BoxData[
; m& s# Y- v! o, v: B  G/ H RowBox[{"u6", "=",
  RowBox[{
5 n! U* k% A/ _+ C  K" L   RowBox[{"Exp", "[",
    RowBox[{
& c7 C$ F' P0 C$ Q. u( ~! v     RowBox[{
      RowBox[{"-",
" F# i) a- q- A& D8 r5 `  B: i       RowBox[{
( ^# z; @1 k2 V. z; x9 L        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
$ @: ]# \! a/ A+ S2 N3 k        RowBox[{"(",
$ B6 \$ |) p# E* _0 F" @         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
0 u) v! I& A: n) _6 o     "]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
! Z; O/ ?% G  p( O9 _
( h2 }; M5 b+ T4 u3 Q4 p/ PCell[BoxData[
2 {9 }$ I# k2 S, ?0 \  ]3 R' J SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
/ L  W" @7 u4 Z+ A3 G    RowBox[{
     RowBox[{"-",
  _" h$ w. q6 q; U1 t0 e5 T      SuperscriptBox[
2 f( n; t) h0 a- W3 j# j4 P( Q       RowBox[{"(",
% h; k  |" E4 d        RowBox[{
5 V5 O* z% ~" \8 \6 f         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
7 y# E  [9 ^) @9 P3 P( A- G      RowBox[{"(",
2 u6 G: Q: @  g* F6 `' o       RowBox[{
: ^" k2 v+ I, X& b9 ~* H        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
# v+ K3 f  K4 q, R6 Q8 t     SuperscriptBox[
% U* H$ F# a$ T& r, ]! P2 x* R      RowBox[{"(",
$ O  z" }% `+ m% h. `# G* W' Q  J0 J       RowBox[{
7 I3 ?" T4 O- y9 n" E        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
9 g" k. Y' Y9 M6 o        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
) m3 x- u4 ?. K7 s/ I  \      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
" a( b, y5 P. t8 y9 D2 L       RowBox[{
        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
$ C3 ?( V2 E  ]- Q: }  ]9 i     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
' w% r0 ^1 H9 B9 `" M) K/ S/ ]     SuperscriptBox[
, x4 w1 [4 B  r# ]! b$ d$ r& W      RowBox[{"(",
; @) U, y: y8 p% t0 H1 k; K' x       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
* H1 v4 {1 J3 U+ c6 ^     SuperscriptBox[
: h8 y2 v+ B, K/ t  S- P* y      RowBox[{"(",
       RowBox[{
% K& R5 I0 I! a# K        RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
- G" s: [( r& b: |: J    ")"}]}]]], "Output",
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
6 U1 i/ M' x9 ^- \' ^! ]: t, [  3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
}, Open  ]],

" }9 E3 f, A* k; uCell[CellGroupData[{
+ O# k  m/ {* V# H: U3 M8 I) g
" N% l+ O3 C% Y  tCell[BoxData[
  z) |& o7 M/ X+ N; N- { RowBox[{"C7", "=", "Ca"}]], "Input",
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
  3.577921316125*^9}],
: G7 R3 s3 ^. c
Cell[BoxData[
# G0 r9 U* @4 D. {0 [" S/ j2 I* n1 s RowBox[{"{",
  RowBox[{
; D0 x0 U3 s$ l6 x! U. 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,
& Q6 }2 j3 D3 I! E2 V- i, `5 Z% X  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
RowBox[{"u7", "=",
" R' V, {* F  M  RowBox[{
6 B2 w7 }8 C# E8 k# y) p   RowBox[{"Exp", "[",
    RowBox[{
8 P# d* P' L+ _3 v3 L+ M- ?     RowBox[{
2 ^" _" W3 g  l. z      RowBox[{"-",
( M; V2 E0 r; L7 h: m+ [+ h       RowBox[{
        RowBox[{"(",
, W6 |- @2 c" D; P/ D( G         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
. L& g9 N: h# f7 V        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]], "Input",
. A$ H; r1 v  G. d' \+ | CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
" w( l8 h* v2 @* B' ~. h  3.57792132028125*^9}],

Cell[BoxData[
# A# _7 g: E2 h" A- w SuperscriptBox["\[ExponentialE]",
# Z% Z/ Q3 s& V& `) {# S$ B  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
5 s$ A3 G7 y, w* _; }0 E     RowBox[{"-",
* O% R% z6 e2 ^3 v! l      SuperscriptBox[
       RowBox[{"(",
4 A* l0 R  u5 L, z        RowBox[{
# C! `1 R- N1 T4 Y8 q3 g5 p         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
' c, H8 L6 B/ r0 F      RowBox[{"(",
       RowBox[{
1 k3 {2 ]$ _7 Q/ q1 @) \2 ~        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
6 Y0 t9 G" V1 r) Q1 ~5 X! O      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
) ]1 B1 x8 y$ |6 J. z: k! B' D        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
4 K" l2 g* a, |" }* j% o      RowBox[{"(",
) B, o5 z+ x/ I0 u3 q; D3 V; c       RowBox[{
        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
- k: {/ n0 ~- }3 P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
3 T' a; Q1 y5 z. p      RowBox[{"(",
       RowBox[{
  t" f( T- E3 }2 q3 P4 E        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
0 K+ X" h* H& t% s& r, ?1 J. a% I     SuperscriptBox[
8 ^3 w8 A; c% @4 K# P      RowBox[{"(",
       RowBox[{
( J' p2 [  e' O6 f        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
8 M. f6 b5 L1 Q1 x, M      RowBox[{"(",
+ S0 \% Y  t% Z7 o& `9 {       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
1 r6 ]( Z8 e: Y* K+ ]4 A) R CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
' @! v) C, v- E( W1 v  3.578012251359375*^9}]
}, Open  ]],
3 o1 w: {. ]# o1 J% s4 s
3 t, S# ?* A& ~- ?Cell[CellGroupData[{

Cell[BoxData[
0 ]; a/ V2 y' v8 i" _/ z. {# x+ X RowBox[{"C8", "=", "Ca"}]], "Input",
  N( @4 l! @+ p: Y CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
$ U; }" u& c3 d; k  B  3.577921316125*^9, 3.57792141421875*^9}],
8 g* ?& r% J2 h9 g5 X. b# o
- j& q# |: I2 D; t: b) ~Cell[BoxData[
3 M1 y, R# b" X. G  I RowBox[{"{",
' {2 r6 q; S* U5 J/ t( a" N  RowBox[{
/ g9 l* X8 z( v4 u  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
8 h4 ~* C, Z! y; l( M2 j# X   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
  "}"}]], "Output",
; V8 ]2 U5 ]6 s' A3 i9 X CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
% R% t9 @8 z6 [* t3 N  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
, O5 X- _  {( H7 J+ i  3.578012260515625*^9}]
  X3 o- M. q! ?% Z7 }4 k  T}, Open  ]],
( R5 D* U5 n# C: \7 b
# T* |# y& [7 k' O3 D: u4 KCell[CellGroupData[{

6 y6 q# P& f/ i( Q4 E6 C% t# TCell[BoxData[
4 Z4 v. R0 |) z( Y: [! x+ k6 l RowBox[{"u8", "=",
  RowBox[{
- a% \6 c& b3 e7 Z6 `  x1 W( \. z% t   RowBox[{"Exp", "[",
! r/ u$ S( G8 A( S$ ^4 l9 I    RowBox[{
     RowBox[{
      RowBox[{"-",
# k/ r. O& l' @# ^) @" A       RowBox[{
/ ?2 z$ e7 e* Y& J. S) {        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
! X! @3 S9 `, }5 X2 o0 p# p        RowBox[{"(",
1 g) j; a4 [! i- @# ]1 M         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
( J/ N! Z) n8 ]/ z. `* K7 G     "]"}], "/.", "DeltaX"}]}]], "Input",
, s3 k1 p' y6 }8 @! b CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
5 n* `% {4 N0 e: \  3.57792132028125*^9, 3.577921416921875*^9}],
' B8 R( p6 t% _% f" @8 k0 }! |
Cell[BoxData[
$ D  f& m7 F8 @9 r4 i2 n, Z, k% R SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
4 X. k/ B, b: k9 ~( s3 d   RowBox[{"(",
* u2 T: q6 `: U$ \1 O) v+ j    RowBox[{
     RowBox[{"-",
: g8 J! O: Z1 W8 d+ d# r      SuperscriptBox[
       RowBox[{"(",
        RowBox[{
         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
* ^  ]) r- f  `0 v        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
) L, b& T9 K! w' |" F5 Y      RowBox[{"(",
  w! X/ ^1 q% C8 z8 I6 E       RowBox[{
        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
9 R5 I, X' e6 L* l      RowBox[{"(",
       RowBox[{
* [6 |" t- P  `( w3 r        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
3 K0 V' Z4 J+ a$ F. h  m' |0 C     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
9 j* e  x' a& S! B     SuperscriptBox[
      RowBox[{"(",
9 m# S- {; ^1 x# G       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
+ L* c. o% k7 _+ v# [$ Q7 C9 A1 j     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
9 d5 x6 V8 p9 c9 c* Y" X     SuperscriptBox[
! a; v) H: P5 P6 F3 C- U      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
* ~+ v9 ^5 d' M( a# P2 v      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
  n8 F% p0 I' t, M& T$ L# W CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
9 i/ _. D" ^" A5 w6 u4 H8 U  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
  3.5779608945565863`*^9, 3.57801226165625*^9}]
}, Open  ]],
/ P& c" S. i7 o! t- ?
Cell[CellGroupData[{
% {  m" O( X/ ]* P* `" H
Cell[BoxData[
6 H  I: {$ D" H" s" z+ ]! v RowBox[{"C9", "=", "Ca"}]], "Input",
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],

% P: w: X9 H8 M/ w8 k9 t: _- o) T+ mCell[BoxData[
# z9 ^& T- X" c2 D RowBox[{"{",
  RowBox[{
5 x3 o  O- E) G. j) c  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
  "}"}]], "Output",
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
9 E5 h! q+ ?6 n/ l3 w5 i  3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
2 Y- i0 K8 u7 c! O. g/ l! N  3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
  3.578012268234375*^9}]
  e( y0 k' W9 b# j; S) }; u}, Open  ]],

Cell[CellGroupData[{
( e5 H# m6 g4 S+ u& @. p
Cell[BoxData[
RowBox[{"u9", "=",
  RowBox[{
2 D: S; Y7 ^$ [# L( w. h$ O   RowBox[{"Exp", "[",
    RowBox[{
5 H. R$ n: F; t2 {0 @, M* P7 x     RowBox[{
2 j! p, R1 R- P5 ~) F      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
, [2 ^3 H9 c4 c         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
; @7 x; k- X3 ]8 M        RowBox[{"(",
2 t) G/ [3 G! ?  W         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
: Z0 \: V1 I4 N9 S7 @* f! U  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],

Cell[BoxData[
9 D) P; p$ Y+ w- N0 E SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
$ G# G9 V0 \' y# U1 ?2 V0 I1 U     RowBox[{"-",
; a2 U. @1 D( ]      SuperscriptBox[
1 [6 n$ O6 H1 ~# m! n! @# g8 Y- m# u       RowBox[{"(",
" S. z& }0 Y, ?8 p/ ^* R. |4 I) p        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
( V- v1 D; i  b; H      RowBox[{"(",
       RowBox[{
9 O8 G9 k; w$ P# G* l        RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
& x6 Z1 G& P$ }# d     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
$ N& v9 b+ r6 j5 d# w+ L; z  s; j        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
1 |: x+ m0 ?* z8 e+ o5 ?' U     SuperscriptBox[
. L; u) Y+ c, v. V      RowBox[{"(",
9 I6 b9 A2 P0 z+ z9 o% j! K       RowBox[{
        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
' [6 o% e/ X0 C  a# |8 N     SuperscriptBox[
      RowBox[{"(",
7 ?5 G% H: ?) b& L6 G( o7 K6 J; F       RowBox[{
& `! D2 x/ g* G+ Z        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
1 \! {4 i  g0 l       RowBox[{
7 |) F8 I7 v! E: p        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
  _5 m0 ?& W' c' \- ~7 c. e     SuperscriptBox[
      RowBox[{"(",
& N' o' E# {, k1 H% [       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
1 E6 u: C, q! [) ~     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
0 r% r+ w# g- i2 n5 e0 g# S CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
9 Q9 f6 A4 \/ G6 Y# d  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
  3.577961530421959*^9, 3.578012269125*^9}]
}, Open  ]],

/ r/ a  V5 D/ ~* ]Cell[CellGroupData[{

1 `: n3 b/ a$ t- M6 cCell[BoxData[{
! u. _1 @6 W' {0 a RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
RowBox[{"u10", "=",
- ?. h/ t' c. W4 j9 c# l# Q' a  RowBox[{
   RowBox[{"Exp", "[",
    RowBox[{
5 R$ i! t2 H; A! Y, a, V8 _' R! k     RowBox[{
" w; N! B  |& [. U      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
8 r7 M' B5 G1 Z- R+ t! V         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]}], "Input",
4 [" {) q# c* O9 ? CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],

. {3 w7 u/ m. Q1 H. a/ y  @1 ^Cell[BoxData[
RowBox[{"{",
  RowBox[{
! z5 a/ j: ?. L/ `9 t- u0 t, c1 G  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
% ]3 e6 a2 ~9 P/ G   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],

Cell[BoxData[
! j3 z3 \- B/ B: K" E8 V6 C) }& ? SuperscriptBox["\[ExponentialE]",
6 b$ A. H0 g+ F6 e6 P7 e/ S  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
( J1 ~5 g8 z$ V, Z7 C    RowBox[{
9 D4 K$ c( L3 h2 n" E3 u1 \     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{
% e! S2 v: l/ i7 A2 V! b/ O  G9 @         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
! C- @& t  @: e7 T( b! y) u. X     SuperscriptBox[
      RowBox[{"(",
, m# O8 M! L5 k       RowBox[{
# B0 R5 O, `: N        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
8 _! s1 F. O* p# p& m     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
0 [7 {: }: c! ?' n$ B9 P% F7 {        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
6 Y1 I: M' H. ]; H. p2 _     SuperscriptBox[
      RowBox[{"(",
7 S% @2 u. _5 e/ X+ B" H' G; U       RowBox[{
3 |% I& x9 B8 S: B" c+ z5 k        RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
* e- Q: s# E5 @) s! Q$ x9 N. @# F       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
7 b& }7 B4 h. Y9 K+ [, E. Z     SuperscriptBox[
      RowBox[{"(",
( h) {/ p! Q+ X+ c, ?( W6 x& `       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
3 r0 B0 v) B: b: P: O; T) a3 `: ~     SuperscriptBox[
+ L+ r3 c( Q  N0 D( Z; y) `      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
8 _4 l. e, @0 Y     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
% R+ a7 q% k6 h     SuperscriptBox[
& }( B( N1 }% j5 o, r! S8 V      RowBox[{"(",
3 u% Y/ P0 s- ?9 j       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
; ~- k" D4 g* w  }    ")"}]}]]], "Output",
; t1 N  U3 w8 _, b CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
}, Open  ]],
! Q" Y5 l2 K# ^. Y' i" R, U
Cell[CellGroupData[{

Cell[BoxData[{
RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
RowBox[{"u11", "=",
4 `9 f8 u: x# z9 {4 s. D! u1 A  RowBox[{
$ V( Z# |, F- E- M) Q8 F5 |   RowBox[{"Exp", "[",
  b2 w) V1 q) N9 o3 M    RowBox[{
' n) r$ T- y; {, D# b5 b, V7 z     RowBox[{
      RowBox[{"-",
( {* k0 ^3 y( n+ m: Q       RowBox[{
        RowBox[{"(",
* U1 L% v% W2 Z, s! \* d- P0 w         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
* C, @( u8 E+ |* x: e; G* f% d9 c         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]}], "Input",
1 n. f; J2 l0 B. K; Q# ]) W CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
  3.57796154237158*^9, 3.5779615434011817`*^9}}],

# R3 ~" T2 Y) Z6 t$ R% mCell[BoxData[
RowBox[{"{",
+ s; @0 N) A0 u) q1 r7 |5 A3 Z  RowBox[{
' u- @5 e, P4 K% ?1 v  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
' Q3 Z' i" g' [; y8 `9 }+ U1 c   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
# R8 B1 u) R; O) f4 k. U  "}"}]], "Output",
/ Z9 S7 J0 T/ G0 u. }3 Q, l CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
  3.57801228203125*^9}],
: G* S0 ^# \' E7 N! ^
' {; H+ ?1 n9 T6 X3 s1 B% L8 bCell[BoxData[
" v$ M6 B9 u9 P7 R# {2 ^1 i& h0 c/ [ SuperscriptBox["\[ExponentialE]",
' i+ Q$ f5 Z! f/ C" V, I# l  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
$ w3 c" m; ~, O/ m4 T     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
- \2 Q7 C5 d( W  Q5 Y- d( G; o$ a        RowBox[{
         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
      RowBox[{"(",
8 p! E3 ^3 ?1 X8 \  t' \       RowBox[{
        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
6 M/ b3 P  L! V" x1 \* e( H. N      RowBox[{"(",
       RowBox[{
+ l3 R: |( Z, u7 X; w! p  Z* N" e1 n        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
% d. e( m% P( r' z: U( E% R        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
1 {! N" Q; D' d      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
6 L+ f$ G( O7 m! @      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
6 B7 z4 G" X0 j$ ^! P) K, H' b     SuperscriptBox[
8 h* e5 Q$ W% p8 v7 I8 t: ~      RowBox[{"(",
. X8 U/ ~# d0 ?+ h  A9 q' b$ ~       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
2 i/ J8 x( ^' Q" D6 W9 y) x      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
+ d  y5 B$ c" a7 x$ F6 s5 I     SuperscriptBox[
      RowBox[{"(",
$ e  M' e' g9 r8 F       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
, u1 Z( f9 b, I8 h. b# Y CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
  3.57801228203125*^9}]
% e8 @0 y. n9 q! S# W1 ]}, Open  ]],

3 d0 S3 _5 U/ o! D1 @+ Q7 kCell[CellGroupData[{
. o" C1 A) i7 ]
Cell[BoxData[{
/ |6 G/ G7 X/ D2 { RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
RowBox[{"u12", "=",
  RowBox[{
5 b5 |7 q! O5 r9 q/ i2 D   RowBox[{"Exp", "[",
3 h  S9 s8 @0 k! @- m    RowBox[{
/ |+ p5 M" d! g6 m     RowBox[{
+ W4 g9 h5 {; l! w      RowBox[{"-",
) q3 ~7 w5 Y- C3 s, P       RowBox[{
# e9 A0 N- k1 d7 v( w1 ]        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
) Z& u5 {6 l4 H8 H0 V8 D" B* V& k        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
, i* X5 ^, L# }% o     "]"}], "/.", "DeltaX"}]}]}], "Input",
& C7 T: C4 u) q% k" i CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
  u7 ^& i7 x" k% `! T" q  3.57796154237158*^9, 3.5779615576284065`*^9}}],
* h0 w9 a; }2 R; l
Cell[BoxData[
RowBox[{"{",
  RowBox[{
  "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
  "}"}]], "Output",
7 i' _5 b" E. e CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],

+ {8 b, L/ p1 N  ECell[BoxData[
. f$ I+ H( W9 W3 h& k. D SuperscriptBox["\[ExponentialE]",
  g5 L! V5 P/ z+ `! W+ D( Y7 Q  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
+ V7 A: ~7 T- ^& N& ^/ p2 w    RowBox[{
. A* q7 }4 r0 r5 U* y9 Z# t& a     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
( ?* @9 E7 S" T  s; j, W        RowBox[{
         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
      RowBox[{"(",
. {# j) w9 y0 B0 o" J' p       RowBox[{
        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
/ [+ J0 Y9 ]9 P3 K     SuperscriptBox[
2 N- w! o4 X* s; r2 q) O8 w, y      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
6 Q  {  L" X; ~) I. Z0 j. E7 h     SuperscriptBox[
      RowBox[{"(",
" w7 [: v3 t# Q1 j       RowBox[{
        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
9 ?/ z* M, g4 j& Q- j, W! V' d     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
: ^* g4 m  S8 d  t# m' _5 @2 Z      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
$ l7 g+ ?% {, |! V( }2 x1 n7 ~        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
1 M5 `& P$ \7 c' d$ D2 Y6 t, w' l/ p       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
$ F  H& h" B3 r2 ^; L" E3 M) G7 D    ")"}]}]]], "Output",
CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
}, Open  ]],

Cell[CellGroupData[{
/ m' Y2 F. O% a" v# y
2 X. w# Q0 s1 i0 o3 M7 U* b  d3 j' b8 P) ACell[BoxData[{
RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
, N# x, q1 q+ t$ ]; ` RowBox[{"u13", "=",
  RowBox[{
   RowBox[{"Exp", "[",
    RowBox[{
     RowBox[{
      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
. f. _1 ]" W7 U  L6 ^         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
+ w, I0 {/ h. N5 K         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
( l2 h3 _& E4 ]# g" n  3.57796154237158*^9, 3.5779615599684105`*^9}}],

# F- S$ X& r; x* _7 r9 o$ _Cell[BoxData[
RowBox[{"{",
  RowBox[{
/ `; S% x* H. i0 x7 P& u  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
  "}"}]], "Output",
9 ~8 H. r5 `; }& B; E9 I3 ] CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
) m: Z* U( t; z) m/ f
Cell[BoxData[
" Z# q2 o4 U  M" l3 W4 t8 B8 _3 H0 w8 R$ G SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
0 L3 O4 X! i- E+ J; P' t   RowBox[{"(",
    RowBox[{
  \8 G) c" B6 {: ^     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{
! i8 m# y9 K0 g0 ]: @         RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
( s8 L% u! \9 ?7 D     SuperscriptBox[
; b& v. K8 F5 {6 ^      RowBox[{"(",
       RowBox[{
2 m  G# P1 \1 W7 {        RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
4 K# y  q8 J4 |4 |* d7 `      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
. ~) F( m0 O8 ~7 `     SuperscriptBox[
      RowBox[{"(",
( ^' F: c' n7 h2 r5 k+ X6 p  V       RowBox[{
        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
& N4 K; R& |: b9 F% K! ]2 G7 V     SuperscriptBox[
! K* F. k6 {- G$ r" I      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
; O7 E/ O2 f  {, w4 j      RowBox[{"(",
& [2 A5 y1 B( o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
' x4 S6 @8 s0 ?8 T; ~     SuperscriptBox[
  p* E9 D( N. |- _* R      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
0 A2 {9 n& [% p5 X$ Z5 C     SuperscriptBox[
2 R! J( [' ]6 I5 o- M2 I      RowBox[{"(",
; d" x) Y* C  G  [+ ~  d& }. p       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
3 G, Q, K! ?* y8 Q1 ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
& k% |4 ^  D6 Z6 F    ")"}]}]]], "Output",
CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
}, Open  ]],
% i" w3 E5 C3 r2 E* b1 _
Cell[CellGroupData[{

& z. B7 E& V% c) A$ |7 w1 TCell[BoxData[{
* h. c% K* r# q6 D, I0 @! p+ Q( A RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
" O5 I9 ]( H7 w* R- }. b RowBox[{"u14", "=",
7 i6 a/ I: G% F3 I' J: Q8 K5 I  RowBox[{
7 Q. ~1 k( {; F   RowBox[{"Exp", "[",
( P" u' L: b. v    RowBox[{
. Q% q9 _, H. G% r) R4 ^# C' `     RowBox[{
      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
0 e* m6 Q$ J& n% n/ t* t3 a/ `) q         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
& X3 u* s; C% A7 k         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
  3.57796154237158*^9, 3.5779615663176217`*^9}}],
% r1 i2 b' R# u* d
Cell[BoxData[
4 D3 Y# [5 R8 F RowBox[{"{",
  RowBox[{
' j& K/ z0 v1 j$ B6 i  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
* V& f- J: M: M) a; u   "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
  "}"}]], "Output",
) ?0 v. R  Y, B  h- Z# K CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],
/ u) V% i2 P9 X6 D  J( J8 ]
Cell[BoxData[
$ y7 d) _2 d5 B0 G$ p; n. z SuperscriptBox["\[ExponentialE]",
& @; t" n- y8 w7 f3 n1 c/ q; d  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
# H  N9 ]4 g- H- q, m5 u     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
* W. ?" v- n+ a+ y% V( o' t        RowBox[{
         RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
  t6 F2 T7 h& w7 k& b2 n- b! _     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
' C" Z/ g& k) a' J2 u        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
5 T' ^% z! a7 U( a( }0 ^6 }) J4 U     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
) x2 h9 B9 j' L6 r      RowBox[{"(",
       RowBox[{
# J. T# P; l# U, N8 H. d/ O. b* S        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
4 Y) M( x1 S, q+ U" b7 G      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
" \9 s; |4 Q. _( v     SuperscriptBox[
3 _  v7 N* S+ i7 D# r9 [      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
7 F/ ^8 v4 L% J* v8 h      RowBox[{"(",
# E4 B0 c2 {: ~$ k! `8 ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
" U% q5 @4 R: a" G# Q) h, }     SuperscriptBox[
# ^) A, a/ {' _' U$ A* h      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
. S4 t2 o6 h9 {- i3 ~, r7 g* ?9 k    ")"}]}]]], "Output",
- ~/ h% |- M2 P6 i6 y CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
/ C6 T/ l5 ]; E  {6 E& H8 ?}, Open  ]],
+ ?' d9 b: c! }" m* a- S1 w
* v* }2 }# ~9 YCell[CellGroupData[{
4 o2 V! K7 P; N5 \  k- ^& s; K
( r0 r0 q6 J! i) f' Y4 n5 ACell[BoxData[{
RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
& b% M+ n! K" ]- b RowBox[{"u15", "=",
  RowBox[{
  i9 y, U% y: `) O$ q; K4 I, q   RowBox[{"Exp", "[",
    RowBox[{
3 J2 z5 W! y3 {; G. ~( J! x" P     RowBox[{
      RowBox[{"-",
       RowBox[{
  D5 g& _: i$ s4 n! P8 D2 u        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
/ K; n3 e" }% c. o+ W        RowBox[{"(",
' F3 e* `( g5 H* E$ f         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
+ w  l" \. u# }/ L, e+ n( h7 r     "]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
) T6 C, W' z2 D7 q2 \4 B$ T/ m) J  3.57796154237158*^9, 3.57796157098203*^9}}],

* F$ r  ]+ g( j7 z0 K8 f. ZCell[BoxData[
/ o! X* i$ I. H RowBox[{"{",
  RowBox[{
  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
  "}"}]], "Output",
CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
2 C4 o8 b: |6 D  s! R
0 M, `4 F4 @0 M. }! MCell[BoxData[
2 [/ K7 ?: t: T2 J3 q SuperscriptBox["\[ExponentialE]",
8 l2 N' S# m1 b3 F' k) W9 S3 n  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
     RowBox[{"-",
5 r/ R7 y. j+ ~+ q0 w      SuperscriptBox[
       RowBox[{"(",
' Y% L) r$ ~7 i! q7 y        RowBox[{
         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
: t! J6 ?" Z9 B6 _" ]+ {# l      RowBox[{"(",
       RowBox[{
6 p# b- z* A  `+ y! I  N% c        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
, b5 X; ~8 E* o7 R( B( Q: Q3 H: O6 [7 p      RowBox[{"(",
3 p8 n$ @# o% ^9 F7 \2 @: P       RowBox[{
+ r$ I" ~& I- ^        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
4 i  t: @+ w0 x# ~% @     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
- w$ [4 k" V: o6 t        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
5 R; N' B" p: i4 s: k2 d3 E3 {      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
3 |) l  I* j: n4 u     SuperscriptBox[
      RowBox[{"(",
% l# k; V$ o7 \. G       RowBox[{
) ~' I  X" u9 r) p' t        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
1 z) b2 X! c3 q" M     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
( F% _! T- z8 ]7 ~! w% I: L: K        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
( X+ i4 m/ a6 g, ~' A3 K' ?) K1 Y     SuperscriptBox[
% n! i6 }6 w( y      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
* W: |" R9 k$ o" ]$ |      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
* q7 R! R  k4 d    ")"}]}]]], "Output",
CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
$ b4 X# C" }/ @. |! E( Q0 z}, Open  ]],
2 a5 d0 A6 w& m- V5 U
Cell[BoxData[
RowBox[{"For", "[",
  RowBox[{
   RowBox[{"i", "=", "1"}], ",",
4 R3 H6 Z% z3 a/ Z' d8 d$ m   RowBox[{"i", "\[LessEqual]", "9"}], ",",
1 ?  I( F0 M' P! e+ D   RowBox[{"i", "++"}], ",",
   RowBox[{
    RowBox[{"Ca", "[",
     RowBox[{"[", "i", "]"}], "]"}], "=",
6 D+ ^/ e3 t/ Y+ M3 [# d    RowBox[{"CM", "[",
6 _0 i: |: w( }     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
2 g) B" s( d+ I; E
Cell[CellGroupData[{

, X7 n' P; O' T: WCell[BoxData[{
RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
RowBox[{"u16", "=",
$ ^/ F: Y$ t; ~- d% I8 m  RowBox[{
# F" y0 s" w5 A5 [1 z/ x/ h  f, f) |+ f   RowBox[{"Exp", "[",
    RowBox[{
  G3 N+ i! S% }5 G, o) k4 p' e     RowBox[{
      RowBox[{"-",
       RowBox[{
; f; _6 ?" k/ V1 e- R        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
7 h6 z- |8 n* y' g- N# P2 c; _        RowBox[{"(",
8 |0 k. X+ i6 b' `/ E" \% }% f         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
* Z3 V- p2 {3 _  r     "]"}], "/.", "DeltaX"}]}]}], "Input",
5 e* h, `5 X" `( [& U' ~. m/ f CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
  3.5779615751004367`*^9}}],

& F% A+ Z- t8 h1 ~; J  `9 u3 ]Cell[BoxData[
RowBox[{"{",
1 B  L+ }, A! D1 {& R  RowBox[{
' v6 b$ l+ d+ ~2 z& c& [  "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
, y' N. M6 x1 q! b, V  S# N0 \$ `   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
4 H: O; g/ j- H; K+ N  "}"}]], "Output",
CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],

Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
     RowBox[{"-",
* h% H4 G& W. w) u, q; P- ]      SuperscriptBox[
       RowBox[{"(",
2 J1 u( ~% N+ E; q/ u4 {( K' }0 D        RowBox[{
         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
4 l) B" O3 m9 u+ A2 o- z        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
& r+ H* R1 ]% z- P2 g9 W     SuperscriptBox[
$ |4 z5 G1 }9 T2 U5 c      RowBox[{"(",
$ y) m/ a7 p2 O# @7 f4 n6 n2 I       RowBox[{
" ]1 n# A% E% B. ]7 f        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
5 a! x! a7 L4 C% Q       RowBox[{
        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
5 j/ l7 N. F( O; w     SuperscriptBox[
6 t, X7 g& p5 G! C      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
- \6 ^" Q/ ^! M  x% N     SuperscriptBox[
4 G4 _, ^& H" N) J1 m      RowBox[{"(",
       RowBox[{
" J3 n: k0 E( [, G1 @0 f        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
" n% `$ _% M5 `( y  H( k     SuperscriptBox[
      RowBox[{"(",
! h0 x, W8 A( j  S$ l" E. k       RowBox[{
4 E6 x4 o5 k* i        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
/ @3 R9 W& f' h. m     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
, \  u# ~) d% O- P      RowBox[{"(",
, d0 @6 a: y" W( x       RowBox[{
        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
8 [  Y& P9 O- J$ h CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
}, Open  ]],

Cell[CellGroupData[{
- Z9 ?+ r' N6 W8 ^& A" W
Cell[BoxData[{
RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]",
. D: d. @/ h; B8 |6 p+ o0 Z4 m RowBox[{"u17", "=",
: d& ]2 L6 a! k  G5 s8 W  RowBox[{
   RowBox[{"Exp", "[",
    RowBox[{
5 Y0 x& ^# f2 S4 G+ j     RowBox[{
      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
  p9 O. Z. N0 P8 }+ f        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
+ Y0 R) ]" \, x9 K/ D  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
  3.577961578953644*^9}}],
- [3 H# c  F$ r$ m
Cell[BoxData[
RowBox[{"{",
  RowBox[{
  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
  "}"}]], "Output",
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
+ u$ v1 `5 T# @% J( S0 z6 b
/ M/ `9 l( ^3 d9 {7 K/ sCell[BoxData[
/ F/ C" X7 d& n& Z2 n4 Q6 l' p! w SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
! b, F% E& E/ S  h: U0 T, e   RowBox[{"(",
' Q5 s0 C7 L) S  s! h    RowBox[{
     RowBox[{"-",
      SuperscriptBox[
9 Q6 R5 n6 f  z       RowBox[{"(",
2 G7 n# _6 R! w- i0 z        RowBox[{
         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
9 K4 V) l: v( I; q      RowBox[{"(",
' b( }6 N0 d; n5 h( t       RowBox[{
        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
7 V( y' Q5 @2 E! ~2 K      RowBox[{"(",
0 ?- h1 [: F. T& m1 ?5 p" n       RowBox[{
. i% T1 ^) }+ L+ |7 c7 |. m3 v! X4 u  f        RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
% R; z! L' c9 l      RowBox[{"(",
       RowBox[{
$ u. }, h% @8 x% n        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
! l7 F& Y1 h0 V; S+ F8 Y* c     SuperscriptBox[
      RowBox[{"(",
6 I6 {4 _, D' U( O       RowBox[{
        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
. c. B* a1 ~. Z6 i6 T) Z      RowBox[{"(",
  T6 p' |& H6 V  L' x       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
( z, j( _4 K% y/ i2 t1 S0 ?      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
( }( F! k, S" S' O6 i     SuperscriptBox[
0 D' J9 C5 W4 \; e" |- W      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
/ k3 i4 E1 j# ~% U1 X, @0 } CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
}, Open  ]],
. _1 i, C6 t+ o( z9 O+ n
0 _! b5 X4 b' i- d/ @Cell[CellGroupData[{

6 q% C- O6 o& l4 z! A! f' F( lCell[BoxData[{
RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",
  b# |9 {% n9 }1 b RowBox[{"u18", "=",
  RowBox[{
   RowBox[{"Exp", "[",
    RowBox[{
     RowBox[{
0 R( o& c6 o8 ?' S) h; s6 G      RowBox[{"-",
       RowBox[{
! y1 p" Y" G; p        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]}], "Input",
, I% H. I( z4 Q. g! ~* K9 H! i( N CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
! y8 R2 e, x1 [  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
  3.5779615828848505`*^9}}],

Cell[BoxData[
RowBox[{"{",
  RowBox[{
  "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
3 o  z6 n' G1 I8 a$ I   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
  "}"}]], "Output",
) c* R3 Y0 I/ N) A/ | CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],

Cell[BoxData[
  x3 m( p% R* s9 a3 F& u" D SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
# @+ a( g: b1 t7 t   RowBox[{"(",
    RowBox[{
& U- r8 I$ X7 |! W) t     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
7 l- L* e: ~$ ^1 C        RowBox[{
0 a: g; R3 E5 u' b8 e         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
: O0 w/ ], g7 ?! v# |      RowBox[{"(",
       RowBox[{
* v) D, ]  X6 S: w* m5 N6 _! F  r4 \0 E        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
0 i7 W) Q. u% V$ x% l" Y        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
, ^/ o5 d8 k$ o. `2 L& s     SuperscriptBox[
9 n8 N' D, [0 V7 Y) W: M* I/ \' y# h      RowBox[{"(",
/ q5 y/ d$ r* p0 e  s8 O, E, j( d9 p       RowBox[{
& Y3 Z5 L6 X( e; e. ?4 e7 n8 o        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
! S0 {+ }  X& I! _8 W" L) ^+ i+ p      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
/ O9 i) u/ p7 ]2 `: p( c      RowBox[{"(",
+ V7 @7 `' H5 ~, z; n- u' o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
! O9 I2 g% f$ |4 W2 i+ W! ?     SuperscriptBox[
; ^, D  }& E0 W8 M% @! h0 A, P4 Y      RowBox[{"(",
& o3 s4 y- g7 k" E       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
$ X/ m4 N- ]) I5 n) e+ J     SuperscriptBox[
      RowBox[{"(",
, Y, P0 [7 S: I2 E' z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
" O5 N" L0 n4 j, Q6 _    ")"}]}]]], "Output",
! x% P# R; e2 v6 T$ ~/ E CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
! B  k% k+ g- e0 P+ k* j" K. X}, Open  ]],

Cell[CellGroupData[{

; A, X" L3 D! z, p7 BCell[BoxData[{
RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
4 |6 O( r/ L, o4 \6 U, Q: \9 X  [ RowBox[{"u19", "=",
  RowBox[{
2 }% o* J2 D; @2 I& n   RowBox[{"Exp", "[",
    RowBox[{
     RowBox[{
      RowBox[{"-",
, z: X; C) j: x. ~       RowBox[{
        RowBox[{"(",
8 c! {" a5 H6 N( v4 j1 S         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
0 p! U! v6 Q6 }& A9 H     "]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
( Y7 A2 a8 h( o# k4 G# h  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9,
/ B9 H* F" v' _. ]% D/ h6 w0 X. h1 e; B  3.577961588890861*^9}}],
' D  n; U+ s( w8 D5 m
6 ^9 C  i( D& j, b3 rCell[BoxData[
6 g. Z; i& Q' y# x RowBox[{"{",
& ]; n) A9 n3 s; q  w  RowBox[{
  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
& y2 [: _( L) k   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
' h/ M( z3 a/ K  "}"}]], "Output",
CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],

+ ^  Z! V) K1 d  L. P9 RCell[BoxData[
SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
1 I" [- [. s" v0 v) M# n' J   RowBox[{"(",
& u1 r4 L. y% B& B    RowBox[{
0 d1 v9 I8 `# R% E     RowBox[{"-",
1 m; v) ]6 h+ R+ M      SuperscriptBox[
       RowBox[{"(",
        RowBox[{
! T  \" r& M0 P. g# r         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
# p2 {% J7 ~5 b6 f$ K: I( `      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
; C0 a' d- d) S: V( i      RowBox[{"(",
       RowBox[{
+ B( v2 s/ y6 f        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
5 x; ?1 `* j) j9 d. a9 w1 g" F     SuperscriptBox[
      RowBox[{"(",
( Y  l) |* Z% o( X5 E9 Q. _       RowBox[{
; u! c+ V8 y7 a8 x        RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
& c8 R3 L4 v( S: Q, s      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
3 H4 @) N2 {% L/ [        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
4 w  V! |" s; ?+ W     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
1 }- o3 `/ P2 A5 d      RowBox[{"(",
# I. D/ U% y) i# x: x       RowBox[{
        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
9 O, y# E/ K' E. f7 b     SuperscriptBox[
3 r6 ?, ?3 k& K( [      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
}, Open  ]],
. m1 v; g. v7 o
Cell[CellGroupData[{
/ |3 ?) v3 G0 U/ N' l3 Y4 D
Cell[BoxData[{
RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",
8 Q- j1 h- k. J$ a2 x6 S- N- Q9 F RowBox[{"u20", "=",
  RowBox[{
   RowBox[{"Exp", "[",
    RowBox[{
. F: G  x0 n0 J. R- B  \1 E( p1 Q     RowBox[{
      RowBox[{"-",
; p# I+ D* U0 u* ?; |6 {       RowBox[{
- |7 x$ R( D" K1 l. H$ U, R        RowBox[{"(",
3 G  H) O3 g$ G: t         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
! m( e0 h* a1 o         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
% x/ R' H9 o% p; m0 }7 C- F/ b     "]"}], "/.", "DeltaX"}]}]}], "Input",
! b4 V8 Y9 v, A CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
! {* v/ L! n3 A  P" \7 f  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
  3.57796159382047*^9}}],
1 c5 h. l1 z  _& x) a
Cell[BoxData[
! i4 I$ T* g  {8 W4 f  i RowBox[{"{",
& I' O. D( O6 o5 r$ Z8 q; E  RowBox[{
1 D/ j3 V' s. l  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
4 a, _: i' m# X; B   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
  "}"}]], "Output",
CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],

Cell[BoxData[
/ `! Q1 Q' X7 w* ] SuperscriptBox["\[ExponentialE]",
! ]# _' |# C& }0 \. {' ~2 _7 O8 \  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
6 }' w9 l7 v  c; `7 o- w! p     RowBox[{"-",
/ o# {7 O: ?: Q9 W8 H9 e; r6 `      SuperscriptBox[
       RowBox[{"(",
8 O6 E1 o5 F% g7 t        RowBox[{
         RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
: C% P/ C& f, c& W2 n, s      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
0 E* ?- M1 C; B3 X     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
9 K+ B2 L3 c3 l        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
3 p5 i% x, u; d- D# Y8 \, `     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
- z2 ]& y( _7 V! Z        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
: L6 s5 ?( @# e! Q      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
% y& O9 z+ ]& W# L       RowBox[{
        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
3 k& U4 }1 T) p8 U" y! A     SuperscriptBox[
      RowBox[{"(",
/ P- Q) G+ O) c* p       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
0 e/ J% o, `' G+ H7 a" I     SuperscriptBox[
: y+ G1 Y5 T: ^8 H; V# w      RowBox[{"(",
9 t$ w6 `& N/ r       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
+ K. t3 y0 e6 C! s     SuperscriptBox[
      RowBox[{"(",
3 s7 c2 O  c8 j; n7 ~/ g       RowBox[{
* ^2 V" N6 ~( H+ p* t( u        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
8 _; X3 m* t. Y. |( v  P    ")"}]}]]], "Output",
CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]
5 N" h: Z! [# @' J3 ?7 ~}, Open  ]],

# Z6 A# Y9 u% p8 MCell[CellGroupData[{

: d" M0 d3 p: o6 \5 y1 b' U2 z$ Q7 cCell[BoxData[{
# R5 z6 f5 _4 L' ?" L RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
* }' @4 B8 {2 j8 L2 H5 k RowBox[{"u21", "=",
  RowBox[{
   RowBox[{"Exp", "[",
    RowBox[{
) J1 y& |; I1 P6 V     RowBox[{
# p: Q! g! p- \& Q; T. O      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
: a0 V0 s( I3 n! F% i  q& y         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
! E7 d3 Y: b! E) z8 f8 B7 d         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
5 y" R( s  e, ~  C  3.5779615991556787`*^9}}],

Cell[BoxData[
RowBox[{"{",
  RowBox[{
  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
  "}"}]], "Output",
; h4 ?2 [. k% ~. K6 _6 P  v* _3 D) H; u* z CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
3 h- l) c$ I, H
! L, s5 ?* ^. |- T/ h7 ?: L4 ?Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
5 s9 h* y! y. [3 s. o" }/ E  d   RowBox[{"(",
    RowBox[{
; z6 N, e: _  S) i# o3 f     RowBox[{"-",
( l( j2 s, j/ C. @$ t2 R$ y      SuperscriptBox[
0 M5 I) c0 V7 ~, x9 q! E       RowBox[{"(",
        RowBox[{
         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
! r( R- d0 K/ X) }' J        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
# x; P/ K8 x8 q     SuperscriptBox[
" [$ w1 T- K" G& R2 R: O% f. z      RowBox[{"(",
5 U, x4 |! Y/ U       RowBox[{
0 M' A6 {; I5 U7 a; i- i        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
+ V: ?$ @  f* x  i     SuperscriptBox[
      RowBox[{"(",
- I. d3 |, Y" K/ _; I1 f' x9 a       RowBox[{
3 C; u* H3 r5 L        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
' z" d& A7 Q/ z: A1 N( [; g7 i" `     SuperscriptBox[
' u2 ?& Z) e2 Z2 e2 _9 S9 i7 F  K      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
/ n1 ?# {1 N4 J1 `: I     SuperscriptBox[
1 T$ G: P8 F5 z: |; E( |% d      RowBox[{"(",
/ N; x; Q2 `) L+ E8 t       RowBox[{
* Z+ P/ F) R" {$ z" N6 D4 E; m/ |        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
  W; c& I# l# }# G& ^! i. i      RowBox[{"(",
2 N0 y# B- U' J4 C8 w( `       RowBox[{
! q2 K) x5 D0 N: K5 G        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
7 K) ]  o7 j0 ~     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
! ]. n8 v4 ^. ~+ \. O! z     SuperscriptBox[
; y& ~! n# L( i) }( F+ q      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
3 O2 P  i) ]) v- g, B- ?4 Q9 M    ")"}]}]]], "Output",
; Y4 P! W  L* ^+ v5 \3 i* K CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]
6 x3 c, ?) b$ c+ {( C6 r! n}, Open  ]],

6 F: Z9 u9 E- Y# q7 s* b' H0 K; @; I; p4 DCell[BoxData["\:62df\:5408wi"], "Input",
CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],

! b2 B6 I# f% |; }Cell[CellGroupData[{
- e" c! Z' g3 z$ z5 z
& B0 Q% y7 N# F4 A2 pCell[BoxData[
RowBox[{"y1a", "=",
7 z3 [, J. R/ ~/ b* t# i  RowBox[{"Table", "[",
0 Q0 w$ T. D4 M7 f# F   RowBox[{"x", ",",
    RowBox[{"{",
* [, O( u/ ~& Y     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
' a3 o0 M6 r* Q- v( `1 b CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
; N" i, ^+ T- O8 D0 W  3.5779226649375*^9, 3.5779226810625*^9}}],
, {0 @" J5 j6 }3 J( [( I' s& d2 I) b
0 U. c6 }8 h: Y  e: F! ?$ M. u% aCell[BoxData[
RowBox[{"{",
  RowBox[{
6 v  E) Y0 B3 x, B% U# \  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ f: \9 U6 K) y3 s5 H! {   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
. e2 R$ d+ m" I' f- v" X9 j    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
4 A4 A, b2 J3 t" C   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
" U, w3 |# R& A$ N   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
5 v7 W/ D' b9 {, W   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
: {) O( ~  Z. q   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
7 x; d1 W- h+ O   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
  "}"}]], "Output",
; P: Q- L; Y& B" Y. l CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
}, Open  ]],
# o- u7 O  }# U' v
Cell[CellGroupData[{
, Q4 g" ~* J( E$ y$ ~
Cell[BoxData[
2 k: J  h: v/ u+ l% p3 @/ X RowBox[{"Data", "[",
3 D/ H4 q' |3 j5 _$ m, D  RowBox[{"[",
   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
6 P: S( R+ e; s) Y4 I6 R+ J% m+ E2 a   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],

% z! a' |7 |8 o/ E. fCell[BoxData["0.899882`"], "Output",
' e+ u: t9 i: H; M6 l  \ CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
# E( e$ c) s, H( W, a   3.577961929080654*^9, 3.5780123419375*^9}]
}, Open  ]],
; M8 a5 F. I  X
Cell[BoxData[
RowBox[{"For", "[",
* ~& a2 m# M9 l% c" r8 [- ?  RowBox[{
   RowBox[{"i", "=", "1"}], ",",
( r! v8 F- t& w7 }5 N# e* f2 ~. }   RowBox[{"i", "\[LessEqual]", "60"}], ",",
' t0 V4 n2 U% E   RowBox[{"i", "++"}], ",",
/ g8 T+ w! p; c/ |   RowBox[{
; ]9 o# _5 j+ p6 B3 Y0 @    RowBox[{"y1a", "[",
     RowBox[{"[", "i", "]"}], "]"}], "=",
    RowBox[{"Data", "[",
     RowBox[{"[",
/ ]4 O- k2 F7 {. n      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
4 N9 j! \! i9 \3 E: h   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
   3.577922923203125*^9}, 3.5779588839702806`*^9}],

Cell[CellGroupData[{

) r. @+ u9 s2 w; q% qCell[BoxData["y1a"], "Input",
CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],
5 A. S$ D% n, j- O0 x; C) C: L
Cell[BoxData[
RowBox[{"{",
  RowBox[{
2 Z' E4 `4 F/ Y; q  "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
; }& Z- N; c& G   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",",
   "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
2 w, `1 j1 o$ C6 E$ h   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
   "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
   "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",
' r9 Q5 U' [0 \# M1 ~( F; f3 _6 f   "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
' O6 g# @! s2 C" z+ P   "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",",
   "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
6 r+ |' T1 {# T   "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
. G1 C& X% `& y- @   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
6 H# c- o' z* E$ o4 [   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
* u  A6 O# Y- e. C3 Y; I- I" M   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
( g& Q4 z- H+ @* T* ?8 K  S   "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}],
  "}"}]], "Output",
CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
  ~3 [8 |* u. e' _  f! q  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
- l) T) N8 u, z, F  ]  N}, Open  ]],
7 m- I2 K6 B8 |
Cell[CellGroupData[{

Cell[BoxData[
RowBox[{"m60n21", "=",
  RowBox[{"Table", "[",
1 n  i& _9 w) v6 M% H   RowBox[{
    RowBox[{"Table", "[",
     RowBox[{"y", ",",
      RowBox[{"{",
       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
3 M! W, _, |2 W, k& m    RowBox[{"{",
     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
2 @# U, Z- g: X' i CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
3 T$ f/ u9 N0 U  3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,
8 c! L1 l7 w, G4 _+ N" W# ?* I  3.5779619706547265`*^9}}],

' ?8 |, G- j) P' q- cCell[BoxData[
, s/ t7 z: [$ }4 j RowBox[{"{",
, |! r& F0 _0 d4 O" t& J  RowBox[{
( Y/ E# K1 F# m0 D, g7 Y- {   RowBox[{"{",
% T. t9 x/ f" k3 u  O5 J, ~, \    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
. l1 \9 b) ^; `1 {      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- O8 i: L' W. _) I0 Q  q* |     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
" W$ |1 G; X8 Z5 X; k- e- x2 J   RowBox[{"{",
, A2 i5 w4 d/ _  g    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
3 r* v; v+ v  s- E% _7 b% a     "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"}],
% R8 k3 H/ _* g. D0 D1 H1 F2 {3 {! c     "}"}], ",",
   RowBox[{"{",
' W' ]! t8 {8 U% }    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 _% J2 R  o3 v4 Q  P. v     "}"}], ",",
   RowBox[{"{",
( }! Y' C& m0 T) g5 \6 N    RowBox[{
1 v3 L  m- m3 q+ Q2 K7 }6 Q4 `7 ?) X    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
# d, ^" v* H( g6 C* h     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. d1 N! G; ?' p     "}"}], ",",
   RowBox[{"{",
$ C/ m4 q0 Y. F$ @" L    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
8 [$ B+ i  Q1 V. U1 h. A& s     "}"}], ",",
/ L5 F: ]) i6 I, l( c- I   RowBox[{"{",
, [: J0 U! Q* x  }" L' `4 }, j. \    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
4 T; m7 A  t6 l" h5 n* x6 \      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
/ W/ J& ]  A. Q7 O$ U- _/ Z6 z     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' z1 B7 e  ~  {  c4 t     "}"}], ",",
8 T3 d0 p# J/ N. l$ z   RowBox[{"{",
9 K  ]- V7 p% o* h2 B, e9 ^    RowBox[{
; A: i4 B" t) {6 N9 I    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- h- m6 a9 }( y; w; C' e     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
" W9 ]# N# j" O' y: j2 Q     "}"}], ",",
   RowBox[{"{",
, U4 x1 j3 f) q0 Y3 Q# L0 ^    RowBox[{
  p. J4 |# W& n6 F1 D* ^    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
( F- R* I2 d* i0 e  Z5 g     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
   RowBox[{"{",
" a1 r& [  N; U+ U8 L& ]/ z    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. e' U# X9 [* _6 k1 D     "}"}], ",",
   RowBox[{"{",
8 N) v. U! r, v" w- r    RowBox[{
9 L( |# Y, _  m0 o2 u6 U/ j6 F    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 p4 ^5 l) N) }/ t: c& g4 L% l" B     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
8 N6 i- |; f( ~: }   RowBox[{"{",
- ~: G4 A7 c, }5 d5 R8 l, v    RowBox[{
3 c  {/ u5 h" G    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
' e# M) |* Q( Y) |5 S     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
   RowBox[{"{",
6 D! i7 h/ B" z1 A    RowBox[{
' b' F7 W6 O. c5 G6 w8 E    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 T$ {! J% q$ h1 E6 g      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
# q4 l; A7 h0 E0 I) q  [9 P     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* b! h4 z9 Z" i" k9 l* b, C2 [2 `     "}"}], ",",
   RowBox[{"{",
' t3 ]4 a- }/ U  s    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) I8 D6 q9 a: v* q$ F* o      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
, n4 ?9 Q* [: ~/ }, Y. W8 J! |     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
   RowBox[{"{",
    RowBox[{
* a1 [1 I4 {) A: }' N/ |, E    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
8 I9 S# X9 s* g( y9 Z, a2 R   RowBox[{"{",
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: v+ t+ j( M% R% h3 E; b      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 T6 d1 Q. ^! c' R( p* \     "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"}],
     "}"}], ",",
, g+ I$ K& Y, a% J   RowBox[{"{",
6 P& F8 ?7 d8 O# ]+ S5 `( L; n# D: [    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
7 `8 R" V% s3 I     "}"}], ",",
+ d; `9 {2 A6 p3 R   RowBox[{"{",
, u$ K) [; t7 w! T/ [' Q: S    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
7 g& e1 Y8 H# \0 K2 h) h5 W  m$ n# q# c      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
, C6 d) U& ^( x9 ~     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
   RowBox[{"{",
    RowBox[{
: F4 V" u$ I- h" N- {4 m, i, b1 z% K    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
4 |1 S9 N* T" }      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 n6 S2 @% v) k* b3 R6 [     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
( Q) S% N! `3 B- X, F   RowBox[{"{",
    RowBox[{
8 Y! `! y# b% I1 K, U$ O    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
8 P  O5 }/ i: p0 X, U     "}"}], ",",
   RowBox[{"{",
, U2 S% r! e4 B: T, w& U7 z    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 j0 \5 g( x; D( x. w3 y  a      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
  ]( V! z) k" q* x3 z) T. z4 t     "}"}], ",",
- Y+ Z1 a0 X" s2 m* A3 s   RowBox[{"{",
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& ~4 {9 v: d# t- Q$ k      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
3 `( N7 o8 s  ^* i, p  L0 ^5 X     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: F% P0 o# a: h4 `     "}"}], ",",
   RowBox[{"{",
; \7 S3 c1 ?3 L# k; c    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
  r" x6 Q% S4 C     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
2 H& t) v" m- ?& d: L: }$ ~     "}"}], ",",
% ]8 r6 y8 M: A9 p4 d! j   RowBox[{"{",
    RowBox[{
* S- i6 C6 u% k7 L' z! X! a    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
9 B+ a; O: n; K" ~: j     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
3 ]! _0 E+ @8 ]4 ~* z9 Z   RowBox[{"{",
    RowBox[{
% l+ K( B$ \/ W    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
7 z* b* e4 g$ h; P$ V0 _1 m. T     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ \; p( O4 O5 n6 I; B. f     "}"}], ",",
$ q1 Z! P+ m$ H   RowBox[{"{",
1 G$ K2 I7 x# e% u$ _    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
7 b' [! W% {' T! ?% Z5 X      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 ?  O" P- N, A( x2 N0 B, I9 U6 D9 K     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
/ ~3 f7 g8 H# k   RowBox[{"{",
    RowBox[{
5 e0 j# j" |+ |1 E    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
1 j9 N6 [0 o6 p6 O4 U" h. `      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
* C1 g3 \3 e* b( t     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
   RowBox[{"{",
9 `  h7 H7 K/ E% X1 ~+ T1 [    RowBox[{
& s1 i' R% t5 g/ @3 R% W) b    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 s! X# U4 k" R$ o6 ~     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# F0 x% S$ W* r" `# B     "}"}], ",",
   RowBox[{"{",
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
; ?- W5 I6 L* W& {1 A" a' a, D     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
8 Y! E0 O6 R; o1 x   RowBox[{"{",
1 q2 V( `; ^$ G" B    RowBox[{
" r  Z6 f" X( S8 y; j5 J$ T9 \/ x8 j    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
7 L$ h- @9 ]) L4 J" R8 E/ q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. r2 W; w9 v: [# P% L. e     "}"}], ",",
" q6 p. x; Z. [5 L6 C   RowBox[{"{",
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- m+ h4 \2 b$ j      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
0 Z3 _* f8 v3 _! n" ^5 J( c   RowBox[{"{",
  U1 i+ C, n0 X  L& k& _: E4 u    RowBox[{
, b" p! b+ E! e2 m3 b# n2 k    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 `# {0 X! l, ?5 M. P      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
0 n3 Q+ ?* F( ?0 U8 y     "}"}], ",",
7 L" }* g6 p1 r( P   RowBox[{"{",
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
* k) S: h( [6 Q) S: c% a$ _8 a      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- W( @: a; b( X" q% j$ K( Q8 y( F     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* U, D5 a/ B1 J     "}"}], ",",
   RowBox[{"{",
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& e' B6 Q/ `4 i& \  E& l' U0 M     "}"}], ",",
& n6 `! Z3 Q0 C& ^8 J9 ^   RowBox[{"{",
    RowBox[{
8 f8 Q8 N+ e+ k# E3 B7 c    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ `' q4 C  G4 ^  D      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
3 S( f2 i3 _  R" g     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
  G' r3 J' V- p2 ]* p   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[{
2 K% @! g1 q8 ~1 a4 c' Z. G% d' J    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
  j# A+ {  L5 e8 W      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 D5 _" ?% f4 T" H$ X" v. Z     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
5 m, _. a# {, a   RowBox[{"{",
0 b( k) h( \- e/ u+ v* D$ y% e. a9 l0 @/ g    RowBox[{
; A5 z2 t! i- _2 _# v; B; v    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
/ a% m5 e. k- w( j5 b4 D! b9 j   RowBox[{"{",
    RowBox[{
6 ?  W$ B! Y+ O    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 J; \) x5 v, z* h* I5 c      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
3 D1 Q6 A, N5 L0 M: U     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
5 M% p3 m) f( M8 n+ X; l   RowBox[{"{",
+ O0 I+ L, S6 c3 p    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
* g# r0 m' A2 [( ~5 l# t( @' ?. w: B      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
( |, P& z6 h; C9 J     "}"}], ",",
+ @/ q6 }% C7 ]/ G" t   RowBox[{"{",
    RowBox[{
6 O, [4 U9 n7 E    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: b; H0 x( Y4 H      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
, s8 a3 `# R) `/ W  l# O( C% Z$ A! g     "}"}], ",",
% k* h* {$ A% r   RowBox[{"{",
    RowBox[{
; H7 T5 _8 n5 ~" ~% C. M- _5 W$ a    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) n8 |4 U- v3 _$ }3 `0 \6 x      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
6 V" B& c" R) ?5 v) X   RowBox[{"{",
    RowBox[{
8 U2 T0 g6 K" n    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
0 o& {; Z/ R- S      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. o1 i& b- y, U# c* E     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
% ]; q3 h' v. E, u1 @* p     "}"}], ",",
6 l7 X0 l- _% H9 [4 T& y/ g   RowBox[{"{",
+ r% b8 @* j  G    RowBox[{
- G' P* I0 O* u! x# L    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
) x; S5 J" G7 X     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
2 q) G2 s$ j! R   RowBox[{"{",
$ H# |) Z& Y: N5 M4 X( U7 i    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 @! E8 l2 B5 u9 ~2 [     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
   RowBox[{"{",
) ?1 p- O+ o4 c6 Z' q- N    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: C$ e2 W+ H9 ?! c/ `     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
   RowBox[{"{",
* M  F1 `1 x% m2 m    RowBox[{
  ]5 X  q% P! }/ n0 W* V1 s  m    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% {3 N  i2 \3 p$ C) n/ e( g7 k      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 d/ W* a# A1 p% Y7 t# J/ Q, j: Y8 D     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
  X  k! y, X& w/ g9 J     "}"}], ",",
   RowBox[{"{",
; m2 F2 C3 q4 Y, H    RowBox[{
$ Z; B0 t. _+ }8 N6 j    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! K# ~5 T6 f- F! H/ @: {2 o) f      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. [+ u' o1 q7 h7 S' m* s5 n     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* w9 B) o0 e" b( i     "}"}], ",",
! c: x% W' p( Y8 o   RowBox[{"{",
: P0 P7 P" x4 y4 ~1 A    RowBox[{
& ^0 ^# Y$ J/ G# P/ {  T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
' S4 T$ C) A9 h+ v5 H     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
, R4 ~1 Q4 |  o9 P  F0 \9 E   RowBox[{"{",
    RowBox[{
+ C; N3 l6 `2 t    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
   RowBox[{"{",
    RowBox[{
0 l5 E6 E/ ~3 G  q& n" |& O    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
   RowBox[{"{",
4 ~+ _3 l% ^- y1 p    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! {8 C, |2 u0 D0 o3 o- Y      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
/ H& \# d3 @9 k+ [     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; p+ P1 _- m( _9 u3 R: _  S     "}"}], ",",
   RowBox[{"{",
" m6 Y3 M. C# [8 l% q6 F    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 o4 s, R! \% T  k+ \      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
, b4 a# O. e* ^     "}"}], ",",
' A+ E! ~% N, J( m& \   RowBox[{"{",
4 l% I/ O# ]6 A    RowBox[{
: r# B! @: ?7 Y1 O0 o    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% i) Y# ?% ]) T$ g- x" f3 q+ M      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
" B' f  E0 |3 t4 j" k8 I* P   RowBox[{"{",
    RowBox[{
7 a3 g" g" l0 Z9 N& \- ?    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ Q$ e% y! U( Z; p2 _      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- J" m. p- b2 l     "}"}], ",",
1 l8 [& E+ Q4 i. A/ Z$ Y% A   RowBox[{"{",
    RowBox[{
! y! m% L4 `9 V* Y, C2 ^! W3 O1 Y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
8 q; r6 d/ K! M; Y3 e! E      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
( \* B5 \: N$ n7 ~, E: _     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; L+ t; y- p! l5 W     "}"}], ",",
   RowBox[{"{",
6 S* K1 |0 ^, s7 p+ X" ?    RowBox[{
5 Y7 `0 u# n) m" C    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 L/ }" R# l0 c; }4 I     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
, ?( S9 ^2 t& Z* M4 H+ @% E+ h     "}"}], ",",
4 v/ R" c- U7 C, H: X& o' z$ Y/ x   RowBox[{"{",
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}], ",",
   RowBox[{"{",
4 e- J5 w* d3 H& r4 {9 m% E    RowBox[{
( F, |9 a; {9 Z9 b; y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
( C& f$ O3 z* w5 d/ ^! P, r* p; L" E      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
     "}"}]}], "}"}]], "Output",
, P% w# F+ n2 O2 G CellChangeTimes->{
  3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
   3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9,
+ H# s2 }. i  k; v  e& Q) r   3.5779619748823338`*^9}, 3.578012345453125*^9}]
}, Open  ]],

5 v: t; z% s$ Z4 a$ WCell[BoxData[
RowBox[{"For", "[",
  RowBox[{
& E0 s6 A% A3 h1 j! `: D   RowBox[{"i", "=", "1"}], ",",
6 `: Z( E, c$ T4 i: i   RowBox[{"i", "\[LessEqual]", "60"}], ",",
   RowBox[{"i", "++"}], ",",
   RowBox[{"{", "\[IndentingNewLine]",
    RowBox[{
( K% r- }& V2 U5 M% K: k     RowBox[{
& U+ j- m. p% s5 n      RowBox[{"m60n21", "[",
       RowBox[{"[",
        RowBox[{"i", ",", "1"}], "]"}], "]"}], "=",
      RowBox[{"u1", "/.",
' |# A3 ~7 b# e% p       RowBox[{"{",
0 q6 u" V& T0 g; p9 E        RowBox[{
         RowBox[{"x1", "->",
          RowBox[{"Data", "[",
! R1 k0 K( p& M, u           RowBox[{"[",
1 S7 p( x. Q! w' s            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
         RowBox[{"x2", "->",
" a  A2 ~* X' V" y          RowBox[{"Data", "[",
2 k8 J. F. d' F- I6 \7 ~' N           RowBox[{"[",
" D/ A7 t" ?# A            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
% W/ B* |  [8 I+ b# {1 o6 I% m, W         RowBox[{"x3", "->",
; _4 ~) j0 w' ~4 P8 T+ I          RowBox[{"Data", "[",
( \' |3 v( C8 z5 S5 c           RowBox[{"[",
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
         RowBox[{"x4", "->",
. y4 W' d: Q6 O* W: Z          RowBox[{"Data", "[",
' ]9 v/ |/ |. R2 X3 t/ y           RowBox[{"[",
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
+ D4 t( o  v( w: Q         RowBox[{"x5", "->",
4 ?- o% m8 B$ S7 O) V5 T) w          RowBox[{"Data", "[",
           RowBox[{"[",
& m) W: F6 h- t7 B# K            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
" l1 J. |9 x* }4 l% ?1 R         RowBox[{"x6", "->",
  Y5 }0 o' ^, g  s! B8 X          RowBox[{"Data", "[",
% O. A0 @( ~6 u! ~           RowBox[{"[",
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
* w5 }" n# v- l' V( L# h         RowBox[{"x7", "->",
( \  o- w- _% L6 h          RowBox[{"Data", "[",
           RowBox[{"[",
( J$ Q7 t+ T! {' t+ o            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
" a: {! L5 [. b         RowBox[{"x8", "->",
: ^- `, n% [7 N3 D: s$ K4 q          RowBox[{"Data", "[",
' ~# `; n0 z% F1 |* [: f           RowBox[{"[",
6 E5 \. x7 k% N: b. j1 b" {6 V: _            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
+ r( w6 c8 ]  }4 h7 a, b         RowBox[{"x9", "->",
          RowBox[{"Data", "[",
6 y" C9 e% }/ O$ W4 |           RowBox[{"[",
% a6 L/ h' F& U+ i# g& m* O            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
     "\[IndentingNewLine]",
: Z, Q" v. o/ O     RowBox[{
      RowBox[{"m60n21", "[",

---

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

涳夢 发表于 2013-7-30 20:31
$ T, e1 H1 Y  r- [; b8 ~神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗

8 k0 e8 G# z: {* \(* Content-type: application/mathematica *)

$ i( ^" `" [* a4 l" x$ J(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

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

Cell[CellGroupData[{

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

Cell[BoxData[
RowBox[{"For", "[",
! ^; R% ^9 C% e' C& J3 ^8 D  RowBox[{
   RowBox[{"i", "=", "1"}], ",",
7 r9 `  ?. E8 Y4 b. |+ N   RowBox[{"i", "\[LessEqual]", "9"}], ",",
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
   RowBox[{
    RowBox[{
$ a* }5 f7 B4 t2 p+ Z. R% q0 R2 @2 c     RowBox[{"CM", "[",
. p. W  D/ X, u; G) ]; S9 Q      RowBox[{"1", ",", "i"}], "]"}], "=",
; I& ?: A: [% g9 Y     RowBox[{"Data", "[",
7 \& U" B- @% f  D8 v" K" c      RowBox[{"[",
       RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}],
' d2 m; B! {* i* s+ H  "\[IndentingNewLine]", "]"}]], "Input",
' \. t( j3 n" |7 D' K CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {
1 f8 T3 `3 q: D( e. X   3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9,
9 a5 Z5 G0 q6 l- ?7 F% N   3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9,
$ R( F' }& Q4 ^, C  [5 e   3.57791344209375*^9, 3.5779588070933466`*^9}],
1 G+ h' X& o2 n) O; ?* @+ n
- ?' G0 M5 T" ~Cell[CellGroupData[{

Cell[BoxData[{
RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]",
2 @: M6 [) T$ ` RowBox[{"M1", "=", "1"}]}], "Input",
1 Q5 z  ?/ a2 \ CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {
5 B# o7 M/ t& I! f   3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9,
8 L* B+ `! t5 A. K; ~   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}, {
: |6 d$ {1 R0 _' t" f   3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {
1 L* R1 _! _$ Y5 G! W0 v   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, {
; j4 g! |0 o6 b; K' s   3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9,
2 b2 b! k+ `2 Q) q6 B+ X   3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
5 N7 d8 P; d1 f; g6 x/ X) B- K
% |4 Z/ S1 F8 {5 @& |Cell[BoxData["0.2`"], "Output",
5 o* b9 w3 _5 Y7 Y& r CellChangeTimes->{
  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
+ d, p; X0 W1 t/ X' g   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
( X0 N$ W7 ?6 U# E2 W5 s6 G: v   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
" H( z1 C* Y5 p. j1 ~   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
6 T1 c' E* ^, C   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
# e( D( q7 e0 o, l. N   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
1 D0 D% {& N% t) o3 C+ e3 f. q   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
8 l6 f9 p7 f3 P" M" ~) T" D   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
   3.577960510686717*^9, 3.578012149296875*^9}],
4 ~. p3 v: R6 C/ [+ A- B+ G  R9 p
; e1 ~' G& j; |$ ~# B  x7 RCell[BoxData["1"], "Output",
CellChangeTimes->{
- K3 t( X1 p$ D5 z4 }8 h3 B: Y* d  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
3 V7 F( @' _) B8 Y1 {2 [, D6 w0 R2 k   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,
   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
2 d. R6 B6 {7 {8 [. S+ R   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
8 B/ w0 x' w' H4 E   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
   3.577960510686717*^9, 3.578012149296875*^9}]
}, Open  ]],
' G9 h% N4 K# g* p: F' {# y
+ v. q+ Y4 j2 kCell[BoxData[
' }" }# X2 _" a6 T0 I RowBox[{"For", "[",
0 l& f4 ~) p* K  L8 U  RowBox[{
   RowBox[{"k", "=", "2"}], ",",
   RowBox[{"k", "\[LessEqual]", "60"}], ",",
   RowBox[{"k", "++"}], ",",
   RowBox[{"{", "\[IndentingNewLine]",
4 F. R  T# }0 w    RowBox[{
* ~+ A  k9 o8 c9 `9 g0 F/ Y     RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
     RowBox[{"For", "[",
+ a# u& q! A# D( j' p/ H      RowBox[{
$ ^( d9 e2 w& f6 |, R1 [5 l       RowBox[{"j", "=", "1"}], ",",
       RowBox[{"j", "\[LessEqual]",
        RowBox[{"k", "-", "1"}]}], ",",
) Z: H2 P+ {2 @. J       RowBox[{"j", "++"}], ",",
       RowBox[{"{", "\[IndentingNewLine]",
        RowBox[{
         RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]",
         RowBox[{"For", "[",
4 n9 Z1 x6 @/ `+ j3 Q( \* w6 T2 Q! D4 j          RowBox[{
           RowBox[{"i", "=", "1"}], ",",
           RowBox[{"i", "\[LessEqual]", "9"}], ",",
           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
           RowBox[{
  }  m! q) W" Q' s* Q            RowBox[{"r1", "+=",
             RowBox[{
              RowBox[{"(",
               RowBox[{
                RowBox[{"CM", "[",
                 RowBox[{"j", ",", "i"}], "]"}], "-",
  r% H8 ?" m  p: C                RowBox[{"Data", "[",
                 RowBox[{"[",
" M! f6 Y8 a0 ^7 f                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
: ?" x8 R1 c. b              RowBox[{"(",
! p' F5 ~4 m, u/ H0 G               RowBox[{
0 ?" `9 M. o2 R                RowBox[{"CM", "[",
                 RowBox[{"j", ",", "i"}], "]"}], "-",
' K% x$ i( I6 _6 y& H                RowBox[{"Data", "[",
                 RowBox[{"[",
                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
3 f  a# `5 m9 G# Z$ E         RowBox[{"r1", "=",
; B- b8 M( _. ~& w- u4 P# ^2 f! H  v8 u          RowBox[{"Sqrt", "[",
           RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
         RowBox[{"If", "[", " ",
) |) i6 s& z/ a& c' h          RowBox[{
           RowBox[{"j", "\[Equal]", "1"}], ",",
4 m: K/ O9 D( Q; H! ~           RowBox[{"rmin", "=", "r1"}], ",",
; P6 U( l# y8 r3 S5 k; y           RowBox[{"If", "[",
, N- \! C" w  X1 m, j$ D: C( D            RowBox[{
             RowBox[{"r1", "<", "rmin"}], ",",
; K# A4 t* l, _" |) S" w             RowBox[{"rmin", "=", "r1"}], ",",
             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
5 ?9 t0 Z2 F6 ], @        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
7 b/ D, k# j: X/ `/ ?# [3 O     "\[IndentingNewLine]",
     RowBox[{"If", "[",
      RowBox[{
       RowBox[{"rmin", ">", "r0"}], ",",
       RowBox[{"{", "\[IndentingNewLine]",
9 X1 F6 U9 u6 M, R8 X4 N8 |        RowBox[{
$ E: l2 A  z1 B- o% F2 p         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]",
0 G# z* l; P! J7 f8 O  X; F' [         RowBox[{"For", "[",
& y; {. }- i# d: M- [% ?# v2 ^          RowBox[{
           RowBox[{"i1", "=", "1"}], ",",
           RowBox[{"i1", "\[LessEqual]", "9"}], ",",
+ C+ n8 }! [' K. u( _           RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
           RowBox[{
3 f+ t  I; V, S  d  O            RowBox[{
             RowBox[{"CM", "[",
              RowBox[{"M1", ",", "i1"}], "]"}], "=",
; L* ]- r: f  `8 @/ e; g+ K) v% a             RowBox[{"Data", "[",
: d: R  T. o: `: L7 }4 v              RowBox[{"[",
               RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],
# k/ |0 u( T# O          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",",
0 r9 T0 h0 F5 X  |0 X       RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}],
    "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {
* O( X" C* j: S/ l% U$ n% X   3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
   3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {
/ A0 e0 i/ W6 g8 _5 ^. H, l   3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9,
( k% [2 d9 v* t; T5 U   3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
  Q% r/ B! C3 K/ _1 [+ c1 b! N2 b   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,
   3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
* u: M3 x5 Y0 v+ M. ~- C" `, l) U) ?   3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
% c5 I7 ?; c) E7 c4 y8 _* D% x' b   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
6 w  _: Z' Z, {: f- Z) l, w. x   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9,
   3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {
% R+ X- H, K# A% x   3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9,
8 A9 v! z, u3 X3 g   3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {
& [! C5 P) h. F% Z% d   3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9,
. I" d/ |" r( v% ^$ W# j7 ]   3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9,
5 n6 [" ?) w' m& ^   3.577958821991373*^9}}],

+ n( _' [9 o6 tCell[CellGroupData[{
! j' R4 n- r: V# E
$ D1 T4 R9 z+ K" gCell[BoxData["M1"], "Input",
; u+ {# W2 }7 A8 L: p CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
& D. X" J& @# B& ?6 j
/ Q2 @, N! }2 t5 B9 ~8 p0 a3 ICell[BoxData["21"], "Output",
CellChangeTimes->{
  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
$ |% P  V+ Y7 |+ x   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
   3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
: z. \- Y( D  L- M   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
7 S: I+ O1 G8 s' ^   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9,
   3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
; J. C5 q% V; n$ q   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
+ i% x; w! S$ }/ d7 _& f   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
   3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9,
! T$ e. H' N# ^   3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
0 w. V3 v: k( E) \   3.577960515600726*^9, 3.5780121541875*^9}]
- Z& _$ I" H9 L7 v- q! F" m4 r/ K}, Open  ]],
8 Z/ X/ E/ R  z
5 `$ g/ U4 K* @0 z1 MCell[BoxData[
6 e, p& B+ w8 s. X; U  l RowBox[{
  RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[",
   RowBox[{"1", ",", "i"}], "]"}],
( s8 V1 S! z+ U+ ^. g8 T2 @  RowBox[{"\:5230CM", "[",
   RowBox[{"21", ",", "i"}], "]"}],
/ V) J8 p- h. U2 Z  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
\:51fd\:6570u1\:5230u21"}]], "Input",
( m, R; f3 C; B. D' T' ]  O CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
' T. T" j3 n; C2 \7 h  3.577960526583145*^9}}],
5 `/ f( F4 U" y
; M4 N& k! d  V/ O1 e) M6 tCell[BoxData[
7 Q' t; z( Q& r% a9 i+ _- r. O% T RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
. ?$ j  F% [" C* n CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
2 b, R; I7 g; v( l) ?
0 R! D; T0 z5 nCell[CellGroupData[{

Cell[BoxData[
RowBox[{"Xa", "=",
  RowBox[{"{",
   RowBox[{
1 P* g* H. v5 z0 |8 M   "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
# U2 k+ H  G" T# O9 r1 [/ _    ",", "x8", ",", "x9"}], "}"}]}]], "Input",
CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
. k% K0 c. E; \7 Y" p" v
+ u5 q' n" u% }1 q9 Y! FCell[BoxData[
2 A; P% ^# T, h# I  { RowBox[{"{",
+ O6 ?' X! m* \- m  RowBox[{
* M9 t9 {( y, j  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
    "x8", ",", "x9"}], "}"}]], "Output",
% e- U1 \0 y, l0 l CellChangeTimes->{
  3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
+ R, ?& a% M1 [5 z' M   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# b" {( n# Q: ~$ f   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
0 P4 ?8 x8 J, S( ]" W: u$ K   3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
  T: @/ s* }# b2 S* v' g3 s" [   3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
. E/ I1 R! _; I: @   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
   3.57801215725*^9}]
) o& }0 O$ c4 C5 z( V}, Open  ]],
0 i. n6 q# e% h# R" \
# f, S* @1 c2 Z" G4 Q6 C, N: lCell[CellGroupData[{

7 H) R* a: Q" ?7 i" }Cell[BoxData[
RowBox[{"Ca", "=",
  RowBox[{"{",
   RowBox[{
   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
    ",", "c8", ",", "c9"}], "}"}]}]], "Input",
  U! ]3 s9 R( X4 \$ p' U CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
' L$ q8 O3 [/ g  ^$ ^: l
. n! Q" ?! F% C: DCell[BoxData[
RowBox[{"{",
  RowBox[{
  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
" \4 m  m9 S6 F* \$ `    "c8", ",", "c9"}], "}"}]], "Output",
CellChangeTimes->{
( i/ g0 h+ \1 m  3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
3 L' u( z7 t1 ?$ z# ]( v   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, {
   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,
   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,
/ Z/ t( W' C$ r4 ^5 N   3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
7 A- S" p+ a$ {6 x# ]* ~7 Q) ~7 h   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
   3.577961904604212*^9}, 3.578012158671875*^9}]
5 x' m, A) ]0 q  d: f}, Open  ]],

( f9 Y$ b% _% v$ j% h! dCell[BoxData[
RowBox[{"For", "[",
: V( N& f3 O  ]) k0 T) S  RowBox[{
4 p0 A7 o. u9 s* \, I; d# ]9 ^1 f, r& ^   RowBox[{"i", "=", "1"}], ",",
; |# g: W, j* f! x4 z7 r   RowBox[{"i", "\[LessEqual]", "9"}], ",",
   RowBox[{"i", "++"}], ",",
; \( B! R! G$ Z   RowBox[{
) b) S+ {% m( v; [3 o    RowBox[{"Ca", "[",
     RowBox[{"[", "i", "]"}], "]"}], "=",
    RowBox[{"CM", "[",
     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
! r5 t* T( j$ C) {9 ] CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
  ?# f# g6 P" i8 a4 B% C9 b   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
; K6 p3 n' z0 I+ F' A  U   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
& A7 p- `( f% b* b& m   3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9,
   3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
% e6 }/ G5 g- T. I   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
( Y$ y( q7 S7 V, I' y   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
4 D) q( I9 \4 e5 G. O   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
   3.577961906897415*^9}, 3.578012176296875*^9}],
, r- t) C, q1 @; S1 Z; |8 U$ h, w
Cell[CellGroupData[{
! t! a: I0 A( E
Cell[BoxData[
RowBox[{
  RowBox[{"(",
   RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
  R) t5 K0 S; u+ F+ S- _  RowBox[{"(",
   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
  g( s7 S% X* [7 K% s4 r$ s
- s; H) m' e0 o0 _1 ACell[BoxData[
7 @. ?" U5 c8 k4 g2 F RowBox[{
  SuperscriptBox[
# T- e7 R" M8 h% b   RowBox[{"(",
    RowBox[{
     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
  SuperscriptBox[
   RowBox[{"(",
    RowBox[{
2 o. c/ j) K- x- y7 ^, N4 g7 r7 i     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
  SuperscriptBox[
   RowBox[{"(",
# b7 a7 \3 Y" F% e. Y    RowBox[{
3 G4 G  d; q) v( V- ?1 Q     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+",
  SuperscriptBox[
" G) T- T# c3 w8 ]7 ?- e6 q: U   RowBox[{"(",
    RowBox[{
     RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
  SuperscriptBox[
5 K% _' l% D1 ]; g$ X* U   RowBox[{"(",
9 R1 _- V+ c& d* i6 J4 s    RowBox[{
5 x* _! S9 E4 M* Q  o: G     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+",
  SuperscriptBox[
   RowBox[{"(",
    RowBox[{
; H1 p/ }6 A  P     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
6 C' O2 `: e  F! x. V! Z% s  SuperscriptBox[
   RowBox[{"(",
    RowBox[{
     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
  SuperscriptBox[
   RowBox[{"(",
: @$ t' K. D! z8 I9 z    RowBox[{
7 n; Q3 @4 I! Q     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
  SuperscriptBox[
4 {  E) G- a8 I& J5 }" a( ~   RowBox[{"(",
% Q: @: V8 V6 o1 @  B- d; G1 D: z( W    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
8 X3 B" c  d. M1 {0 c7 p4 D) x/ } CellChangeTimes->{
) Q7 b+ H" a2 B  k, d  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9},
   3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
   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,
$ `( Z5 w2 c+ t   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, {
( \0 B, z" T# g6 W3 Y7 y9 K) S' q, h   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
) v9 \  `& P8 t6 c. M1 _   3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
   3.5779618537169228`*^9}, {3.5779618846049767`*^9,
* y; X, E/ _' Q  H   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
( ^  \# u1 h; z+ T0 Q) R  m( l4 v}, Open  ]],
0 j3 ~9 Y- Q3 A  A
) @0 U4 W& M( T% M. u8 ^/ @  A$ eCell[CellGroupData[{
( N: o/ V6 F0 c6 U
2 _  [% z( o2 e  ^1 g0 ICell[BoxData[
, d/ s! x  @- Y5 y, z RowBox[{
  RowBox[{"Ca", "[",
2 E; l, A& W- D+ C8 ]   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",
( n  R9 h3 J1 A- C. \ CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
  3.5779616465173616`*^9}],
  J* @+ ~0 _0 W  w$ ?' B! N
5 D4 s* r. [2 K: G' F; t; fCell[BoxData["0"], "Output",
8 ]! O5 V6 {7 I; \4 N; v CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
  3.5779616484049644`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
  q8 e  w+ R2 Z% D RowBox[{
, Q4 z+ r2 I6 F  RowBox[{"Ca", "[",
1 z# T+ T. w1 x) ?& y3 \1 Z! k  v- c, T   RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.577957376235614*^9}],

Cell[BoxData["0"], "Output",
3 F: M. W/ }0 h$ S5 {3 A6 c CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
4 {$ Y4 f1 `6 `- i( Y$ B, e- B' k RowBox[{
  RowBox[{"Ca", "[",
1 V+ q2 k/ J3 {, ~   RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.5779573112927003`*^9}],
" K+ q3 p( x; [( L- ^; ?5 W  N
Cell[BoxData["0"], "Output",
CellChangeTimes->{
3 Q1 A. b) D+ E0 [+ \  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
, J& m8 L# ?6 S  y% K3 v6 g( P   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
5 }- ^; C# g2 V   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}}]
}, Open  ]],
0 |5 ?! [7 j4 I6 e2 j
Cell[CellGroupData[{
2 T$ ], @0 k4 ]7 @' x* {$ m
: x6 s4 Z1 @7 m# ~4 n% ECell[BoxData[
3 z5 J& k3 p0 F RowBox[{
  RowBox[{"Ca", "[",
: m) @1 `1 N$ l! L3 c! j   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.577921461734375*^9}],

8 U, c' V' o4 Q6 sCell[BoxData["0"], "Output",
& \9 U! |4 r, `1 z; t CellChangeTimes->{
6 F- G0 z+ V; \* A$ ?  ?- h  3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
7 r) f$ v- i$ ~! Y) e   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
) A: d9 m) F# t' E3 x5 E7 ?   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
3 l. P* m8 t' ~) \! f   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]
}, Open  ]],
/ j7 Z, S' c0 j. K9 M! k
- c/ F$ z0 a; Q& [$ R% k  S" n$ E) R1 CCell[CellGroupData[{
3 m( N+ e1 b8 p2 h
% M: f+ y1 }* X: H; \# O/ ?Cell[BoxData[
RowBox[{
  RowBox[{"Ca", "[",
   RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
5 N3 e# H* i! _* c CellChangeTimes->{3.577957303118286*^9}],

; T7 c9 R1 I" B6 k4 F8 C; N; W$ VCell[BoxData["0"], "Output",
CellChangeTimes->{
0 B9 P2 c5 w) R/ T5 K  Q  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
+ H. s/ ~; d3 j) y3 b% M   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
& g. P1 j% b& z   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
1 k. Z5 T1 K; v. |* w0 g0 y   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
& @2 n) y5 `! ^5 W5 o2 W1 r  ?   3.577961889378585*^9, 3.577961912965826*^9}}]
1 d+ v! m  i% |+ X0 J! j0 J% Z}, Open  ]],

  u" w* v/ l/ s6 C: x& |Cell[CellGroupData[{

! O* }; R% d: i; O7 _9 p" a+ ~Cell[BoxData[
) w# \) P. u1 m5 k1 K* h RowBox[{
! d" i+ B8 s9 m/ Z3 z  RowBox[{"Ca", "[",
   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
( m+ l# j) i" w4 T" ]) B CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
' d9 l' P2 H3 [5 b  y+ y  3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
' c% N3 g+ }$ Z& Z  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
) f* g/ N+ n! \' R+ _5 c3 A  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
  3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
  3.577921435703125*^9}}],
: y) K8 f* k8 d5 O9 O& _- [; `2 a
& z- P3 H2 G8 ]. T1 FCell[BoxData["0"], "Output",
CellChangeTimes->{
  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {
   3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
* y# t3 o% a# g- W; y   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}, {
* |8 o# K* P0 s/ x$ y7 X" l   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
: E2 c& \1 w! }5 m$ w7 K   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
, ]& R& F. w* x( m   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
6 J4 Z: n0 |+ x  u7 X   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
; r2 {3 v8 d, J}, Open  ]],
* X) K! x9 c$ }9 ?% g3 J. F: v
( O7 J7 r- v" p7 J% c6 r) J3 NCell[CellGroupData[{
4 W' z  j6 I! X5 w9 d
4 e; K+ l  f0 f5 q* yCell[BoxData[
RowBox[{"Delta1", "=",
  RowBox[{
# J% V- _7 X" K+ e   SubsuperscriptBox["\[Integral]",
3 W6 D5 G. `9 x! a; A- r' \    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
, `9 y6 w% z3 f+ X" e5 \4 d9 y8 e   RowBox[{
    SubsuperscriptBox["\[Integral]",
     RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    RowBox[{
* {6 [+ K: w2 R: E- [" {     SubsuperscriptBox["\[Integral]",
6 o7 I" q5 S  L# S# J      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
5 x6 x# g( m3 ]) z8 {     RowBox[{
      SubsuperscriptBox["\[Integral]",
       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
      RowBox[{
       SubsuperscriptBox["\[Integral]",
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
       RowBox[{
        SubsuperscriptBox["\[Integral]",
. X4 @2 F, f9 j7 |/ C2 N8 T5 t" m3 c         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
! Z1 V5 Q$ @, |        RowBox[{
         SubsuperscriptBox["\[Integral]",
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
, j5 k0 B2 E8 Z         RowBox[{
          SubsuperscriptBox["\[Integral]",
' l. j# I* Q& ^2 O2 C           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
+ s" I9 |, y6 Q$ l# S( f          RowBox[{
           SubsuperscriptBox["\[Integral]",
            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
3 `2 Y0 M: @: j5 D9 ]' _, T' G& E           RowBox[{
" f! J( [" f, l3 x            RowBox[{"Exp", "[",
             RowBox[{
              RowBox[{
               RowBox[{"-",
                RowBox[{
                 RowBox[{"(",
! U4 y" Q  n3 O4 m1 _                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
/ e- t/ V  L% e& g& O9 ?3 ~                 RowBox[{"(",
2 u) ~) i6 f# x6 ?. Q9 A9 e4 G                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
              "Delta"}], "]"}],
; [6 _$ w2 \: m  p; f" B            RowBox[{"\[DifferentialD]", "x1"}],
! ~; ^6 N8 h  T) [. m9 m            RowBox[{"\[DifferentialD]", "x2"}],
& z- W" Y. O' v( R( {            RowBox[{"\[DifferentialD]", "x3"}],
            RowBox[{"\[DifferentialD]", "x4"}],
            RowBox[{"\[DifferentialD]", "x5"}],
$ r7 P) [, p% I9 P) L            RowBox[{"\[DifferentialD]", "x6"}],
            RowBox[{"\[DifferentialD]", "x7"}],
            RowBox[{"\[DifferentialD]", "x8"}],
            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
) l& ]+ H% E% S1 Z2 C4 T CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
. p4 m' D7 V( `( q' w- d   3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
4 ?% R- L1 G( P- i4 M   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
& W- k6 k& f; H5 k   3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
   3.577918964453125*^9}}],

( f% C/ c: g1 a2 a: zCell[BoxData[
) e, O8 I* w! \& I7 Y RowBox[{"97.40909103400237`", " ",
  SuperscriptBox["Delta", "8"], " ",
  RowBox[{"If", "[",
   RowBox[{
    RowBox[{
     RowBox[{"Re", "[",
0 A3 Q( W' M9 |/ p6 v      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
- T/ t/ U7 P6 b# e$ L    FractionBox[
     RowBox[{"1.7724538509055159`", " ",
      SuperscriptBox["\[ExponentialE]",
+ ?# C1 E! V/ \       FractionBox["1.1102230246251565`*^-16",
% Q  N5 ^' u: j, I: _% V' q        SuperscriptBox["Delta", "2"]]]}],
* A. o% b" o9 q1 n+ J6 v     SqrtBox[
      FractionBox["1",
       SuperscriptBox["Delta", "2"]]]], ",",
. E. o4 J# b# w; z) {    RowBox[{"Integrate", "[",
0 H5 d( P! K6 O( g' e1 t     RowBox[{
      SuperscriptBox["\[ExponentialE]",
( A! |% h4 C# j8 |/ T       FractionBox[
5 X7 Z- l- x( z  C+ c. N        RowBox[{"1.1102230246251565`*^-16", "-",
         RowBox[{"1.`", " ",
$ f6 }; U$ D# v" f          SuperscriptBox["x9", "2"]}]}],
; P! G% {( F. }) N8 U: M3 B# ?        SuperscriptBox["Delta", "2"]]], ",",
      RowBox[{"{",
       RowBox[{"x9", ",",
        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
      RowBox[{"Assumptions", "\[Rule]",
1 f- F5 m. |/ p/ d! e& }* c       RowBox[{
2 ]5 H9 g  `4 d        RowBox[{"Re", "[",
3 N) D# F/ Q- _( w0 E8 C- y         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
     "]"}]}], "]"}]}]], "Output",
CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
& Z9 Z/ C, U* F& i+ M, S% v  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
) E- W2 l, A/ Q# m  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
! `( v, {. ?0 l, Y  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
3 g* P) V9 \5 p# H/ s  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
1 I- l6 I: S2 ^) H6 Q0 B}, Open  ]],
9 v: s5 y' A* n3 C3 K0 M
Cell[CellGroupData[{

3 P( J$ R1 W7 y; A  {$ ]6 ICell[BoxData[
2 v5 j3 N; X: N, K RowBox[{"Delta1", "=",
* r6 W3 K, b3 S0 T; U  StyleBox[
   RowBox[{"97.40909103400237`", " ",
    SuperscriptBox["Delta", "8"], "  ",
    FractionBox[
     RowBox[{"1.7724538509055159`", " ",
      SuperscriptBox["\[ExponentialE]",
       FractionBox["1.1102230246251565`*^-16",
        SuperscriptBox["Delta", "2"]]]}],
9 e) {3 B. Q; U! d* p2 b     SqrtBox[
      FractionBox["1",
       SuperscriptBox["Delta", "2"]]]]}],
   FontWeight->"Plain"]}]], "Input",
: @6 l' g1 C5 n: e3 i+ S CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
- X- h/ ~/ y/ |0 l; }   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
3 q( x0 d# K9 ~2 w   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],

Cell[BoxData[
' I4 K' M5 C# w3 _( v* N FractionBox[
  RowBox[{"172.65311851642346`", " ",
   SuperscriptBox["Delta", "8"], " ",
   SuperscriptBox["\[ExponentialE]",
% K; K6 ~* t/ g$ }    FractionBox["1.1102230246251565`*^-16",
0 {1 M3 P  v8 e/ q6 D1 l     SuperscriptBox["Delta", "2"]]]}],
2 B$ g/ x8 l+ `' q4 ?+ N  SqrtBox[
$ y2 g: a0 L3 P, A) ~   FractionBox["1",
% ~$ w0 J3 z& N: [  f    SuperscriptBox["Delta", "2"]]]]], "Output",
, w; U5 g/ _, I$ [ CellChangeTimes->{
3 |, c3 c" J0 h6 M7 T& h: B  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
1 K' M" q( H8 a) w# S9 j   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
( S. `- G: E+ P0 _2 I4 e& ]   3.578012166234375*^9}]
3 D0 H$ o) C% f0 {- x}, Open  ]],
1 _+ c. W& I$ b* ^
Cell[CellGroupData[{

% w. `+ C* _. ACell[BoxData[
" }& v) A9 P( h& y: t& k& e RowBox[{"DeltaX", "=",
  RowBox[{"FindRoot", "[",
   RowBox[{
    RowBox[{"Delta1", "\[Equal]", "1"}], ",",
0 O( Y9 x1 i2 I  R) H1 L    RowBox[{"{",
* D/ z! h, m+ M$ g( B; n! e6 Q     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
8 t5 D- B1 K- y: }2 r( _   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
9 h: c" w* E1 M  g" D   3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
   3.57791921584375*^9}}],

Cell[BoxData[
% G6 ~5 c4 e1 c- X) K6 `, ~ RowBox[{"{",
  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
CellChangeTimes->{
8 r& x+ T+ @  Z/ B% d  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
/ U, n; b: u2 u0 W: _   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
6 G% M5 m+ q2 U1 X8 P: d4 n2 I   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
) T: z5 n! \8 f, I/ D   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
' U4 Y7 B/ L7 Q/ }9 G6 \   3.57796070150625*^9, 3.578012167703125*^9}]
9 k, A2 O+ X4 T: b+ ~2 k9 j7 g/ L}, Open  ]],
$ Z' H. Z" n: [3 I
Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
; J* D* V5 K6 K- O9 y$ t\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
: Q$ O+ D, F+ Q7 C: B  3.577960705312657*^9, 3.577960707621461*^9}}],
; T9 v8 t! P5 y% S" N  s& |
Cell[CellGroupData[{
$ o' G1 I; n6 t( x+ U7 J
Cell[BoxData[
5 m$ J. X" p' n% ^ RowBox[{"C1", "=", "Ca"}]], "Input",
0 w7 r: ?8 D5 \ CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],

0 ~0 R7 q" T/ y5 KCell[BoxData[
RowBox[{"{",
  RowBox[{
* y) f4 Q% _+ |) Z  n6 R! q8 ]  "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
   "0.`"}], "}"}]], "Output",
# p9 f% _5 ?+ \) U CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,
6 o& y5 T6 S/ _( G  3.577960710273465*^9, 3.5780121855*^9}]
}, Open  ]],
$ j7 y& i. j) J
/ j8 v0 R7 Q1 GCell[CellGroupData[{
8 G2 ~( r0 ]+ R: S, h
6 c; i" ^3 |) T6 W1 m" _8 uCell[BoxData[
RowBox[{"u1", "=",
  RowBox[{
9 v: X! I1 z& y   RowBox[{"Exp", "[",
' V3 r" k9 o: g; Z6 L9 G    RowBox[{
. |8 w& A0 J5 Y1 ?4 ]" d" ], S7 l8 c; t     RowBox[{
% u: ^+ e& s8 {9 Z      RowBox[{"-",
, u7 J9 b# {* r8 B       RowBox[{
& J! F3 K+ f2 k; [        RowBox[{"(",
( l  G3 {  g5 {9 {/ r  R  r" b         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
- s& z6 n% j3 c         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
+ y* x& C7 Q1 ~& B& c' ]   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
5 ^2 A1 [2 W6 A   3.577919193484375*^9, 3.5779192326875*^9}}],
9 H0 c5 f# j6 R
Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
# z! S4 ^: k# A# `' A   RowBox[{"(",
    RowBox[{
     RowBox[{"-",
- g# t$ V0 A  X5 ]% {. A* q% h      SuperscriptBox[
3 o: X5 Z6 t( a2 @" N, {       RowBox[{"(",
        RowBox[{
( E. y( E; N! R- V         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
; l2 v/ t) a7 k, L# Y     SuperscriptBox[
' r& f' y0 t5 r6 F  q! x      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
# m* S/ m6 t8 _3 A       RowBox[{
        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
3 E: G% j/ p4 B       RowBox[{
3 |8 r" a8 I: x5 D        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
- {, T- B6 m* B9 p7 G" |0 }     SuperscriptBox[
      RowBox[{"(",
+ n- E! r5 l! h* x3 ^. h       RowBox[{
$ E- ?) A. o8 K6 A        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
0 ?8 C) N( h; O0 o7 d3 Y1 Z     SuperscriptBox[
      RowBox[{"(",
, n: k/ ~; ^% D" Q" {# v/ s2 }       RowBox[{
8 R+ L. A1 w( n. t: K1 h5 `/ U        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
" i, m( ~/ R8 X& Y! V' Y* y     SuperscriptBox[
      RowBox[{"(",
+ x  c4 D' q* w9 K       RowBox[{
2 l" Q2 g4 u0 C+ [9 U9 a8 E        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
  F( o* c7 K: A0 n/ @- J     SuperscriptBox[
. ?3 U! F  s5 |' s# p# a/ [      RowBox[{"(",
8 u& m4 {3 _3 `3 @& x       RowBox[{
$ _# ]& k) j* X2 F  A; z        RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
4 S! m4 [( [3 o9 L: z     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
% S4 e, {. C" p5 Y- _. {6 y CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
  3.578012187078125*^9}]
4 z/ E- `# }' u}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
RowBox[{"C2", "=", "Ca"}]], "Input",
: @# P9 @9 n2 @9 w& n: ]5 e CellChangeTimes->{3.57792047321875*^9}],
# {9 z4 q8 _6 G/ o  p& h
3 v: F" n- N! a4 d  p" \3 N; GCell[BoxData[
" i! Z9 W  d6 Y: H; s+ i( x RowBox[{"{",
! h% B( ?: Q+ i9 t- W. G  RowBox[{
  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
  "}"}]], "Output",
CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
3 s" {% w* L" C) A) j9 r  3.5779607401163173`*^9, 3.578012204671875*^9}]
}, Open  ]],
0 l, p$ _- V0 M! x( d# b: f
$ N+ a" s- R, o# \Cell[CellGroupData[{
) C+ e6 ^4 H& y% h! T3 |( D9 N$ `+ |
! ~2 [$ b1 ?, h3 C  qCell[BoxData[
RowBox[{"u2", "=",
  RowBox[{
   RowBox[{"Exp", "[",
, b* p1 u( }& b& U$ m. ]    RowBox[{
$ `. c6 e9 H- D. o# J" b! y# x     RowBox[{
2 W' `! d4 E' y0 K' ~      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
$ B1 v$ H/ L: X% k         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
) X% [6 L$ \9 W     "]"}], "/.", "DeltaX"}]}]], "Input",
! \$ V) i; D8 t+ X) G0 P* D7 C CellChangeTimes->{3.577920484109375*^9}],
. @% n8 q" q: z+ E
Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
$ Y9 m2 p9 w4 {   RowBox[{"(",
3 J: C$ m+ q! q, v% `    RowBox[{
     RowBox[{"-",
      SuperscriptBox[
. `) {. B0 D1 D8 S  ^5 b       RowBox[{"(",
0 Y, o6 b2 R) u1 n3 g) u! C: c) N3 ?        RowBox[{
8 g! g7 o9 J* S7 G# ~         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
# A) L. _) S' \) p0 n/ X     SuperscriptBox[
1 u+ Y2 L- p. D/ Y# D      RowBox[{"(",
       RowBox[{
2 @9 V5 p5 |! D' ]" c        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
1 ~/ c9 n8 A7 B, N      RowBox[{"(",
  t7 Y3 L' {9 l- _* ]7 `6 A2 c5 i       RowBox[{
        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
" R+ l! j: w) {0 T  y- e     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
+ d1 j  _. Z0 C8 y        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
# @1 m# S8 w, y6 i& J6 z* ?        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
/ U2 q$ q0 k& }; x0 @/ s- [       RowBox[{
+ \2 {1 A2 H& r6 ^* @! g/ g" b2 I        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
6 z$ g. Q2 o: }9 {     SuperscriptBox[
4 }# K, t/ h$ H  F+ P% z1 b      RowBox[{"(",
# |1 `+ ^- S0 j3 g& I. a       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
* x- t9 [  }2 x- @7 E     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
3 E# `* Z% I! y7 o; B, @% V. E       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
' G$ F; v1 B6 H; i" Y8 R' S    ")"}]}]]], "Output",
CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
  3.5779607413955193`*^9, 3.578012205484375*^9}]
6 Q! u4 ?9 h* W  h8 P; i2 x$ V}, Open  ]],

/ E8 _  b2 Z( `% g- MCell[CellGroupData[{

Cell[BoxData[
9 p' ?) f9 n1 Y1 L$ d RowBox[{"C3", "=", "Ca"}]], "Input",
CellChangeTimes->{3.57792064125*^9}],

Cell[BoxData[
' b6 h9 ~9 o$ z1 D5 B1 j, G RowBox[{"{",
  F) {3 |0 B3 |+ f2 s  RowBox[{
  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
' U# ?% p( u+ E; t; f2 n$ n  y& C+ l   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
9 U( Q9 y* S" m5 `! B  D  "}"}]], "Output",
CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
  3.5779607642027593`*^9, 3.5780122103125*^9}]
. p! d. y% N% w! g7 X9 s}, Open  ]],

8 m7 |# w; K$ x- ], R/ X, ^Cell[CellGroupData[{
% w9 B# A& I& F- \0 y& l% e# A. {
4 u  s  i7 K& _Cell[BoxData[
; D% `  W/ y- U, r# h1 d RowBox[{"u3", "=",
* q+ x! m) j" t' q; F  RowBox[{
! C0 w1 V- i$ V) a+ Q# S" T) ]' A9 f   RowBox[{"Exp", "[",
" h* S) j% Q+ ^    RowBox[{
     RowBox[{
      RowBox[{"-",
       RowBox[{
3 e0 j! s# l3 I- ?6 g) u        RowBox[{"(",
" C2 x- v4 \( z. p( u         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
+ W# P+ K3 R4 s1 C8 j         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]], "Input",
4 G& @) I' }; r% j; g. q CellChangeTimes->{3.57792064921875*^9}],
+ A1 B4 H, {3 y" N; H6 U
' N2 G* }+ \7 X; t- k9 h6 XCell[BoxData[
SuperscriptBox["\[ExponentialE]",
8 u+ S( }5 A) v3 A& f! W$ E  RowBox[{"3.141592653589793`", " ",
" ]* f* o& E+ {   RowBox[{"(",
    RowBox[{
: k9 i! i/ I' r1 [2 C     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{
         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
      RowBox[{"(",
+ d. D, @! ~$ I  P1 b5 G. M2 p       RowBox[{
, e: C& k7 u8 t% Y) N; V3 _        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
" _" _- x# V% v+ `  Q     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
4 I; Z* _- G, n8 l        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
. T4 i0 |) w  u1 g4 d; \; ^  k. h! _      RowBox[{"(",
% \2 @5 x$ j  l* x" u, e/ d6 b; p       RowBox[{
        RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
: ^0 R" O8 p" ~$ G9 b0 `! L     SuperscriptBox[
      RowBox[{"(",
  i' s& o3 a5 F; o2 G6 @2 b       RowBox[{
        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
* g* \. R7 L2 k* i! n+ y- g     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
  s4 Q# P( }& K1 P, D4 B0 r      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
# b, y6 W5 \  b* v     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
7 m2 R& z4 Q: u2 u* K% |    ")"}]}]]], "Output",
: L# }) T$ O8 v! m( c3 S CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
! X, M( i! J" @& L2 ?  3.5779607654819613`*^9, 3.578012211515625*^9}]
' S* _- S  q8 r$ j. D( L}, Open  ]],
/ Q0 d7 ]: A8 _+ v+ Y* V& @
Cell[CellGroupData[{

Cell[BoxData[
RowBox[{"C4", "=", "Ca"}]], "Input",
CellChangeTimes->{3.5779207559375*^9}],

( D% \9 @, I% o$ y0 o5 E4 {Cell[BoxData[
' q& H4 T6 h3 C, a8 ^' _7 E& E0 N! k RowBox[{"{",
% u. \7 s" y1 O& }- u  RowBox[{
  "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.5779607861363974`*^9, 3.578012216171875*^9}]
' ~" T5 f1 u/ M7 g6 w4 F; b  y' \}, Open  ]],
6 i. b( }2 M1 L* @0 H
Cell[CellGroupData[{

) g% h( o! L; u% t, P' P) A8 yCell[BoxData[
RowBox[{"u4", "=",
# N, O2 E  }' C$ u8 f2 |2 |  RowBox[{
   RowBox[{"Exp", "[",
    RowBox[{
     RowBox[{
' J! k  O, G6 Y2 A  J# C9 h. A: l      RowBox[{"-",
- L, J3 ?1 O# \0 d! @& W       RowBox[{
- l( {& m- R8 ?, H% u        RowBox[{"(",
" [+ {1 l2 K& P. [         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
0 }) E0 E* G/ l0 @- `4 a        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.57792076325*^9}],

: G  [+ k0 q# w0 [% _7 k& sCell[BoxData[
) f" I4 h) W, L) l1 C- q SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
& Z  Y) @6 X6 b    RowBox[{
     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
4 s+ f. ^- w8 x% x) D0 z        RowBox[{
- c2 ?0 h1 c, r8 H4 q         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
9 ~: x' \- I- z* @- v+ h1 N        RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
+ `, v. ?0 o& r     SuperscriptBox[
      RowBox[{"(",
; P! u6 m' d3 [       RowBox[{
* Q" Q. m3 k, i* ^- t- |        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
/ ]8 V' I+ n/ G& w     SuperscriptBox[
( G2 `% {8 ]/ ?3 R) @5 c      RowBox[{"(",
' A& D& s& ?1 @) g9 j       RowBox[{
# o$ M3 a- Q- ~# o# }- a$ y        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
+ |  E5 A0 F# c. A# S5 m     SuperscriptBox[
: P' y1 I4 x0 I! ^' k4 z! s- T      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
% r6 b( t& ~' F- i( d$ O        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
8 v) s3 e8 I( A     SuperscriptBox[
0 z' c; G- o+ w( f      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
( ^, z! p/ W# v6 m       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
9 \* V( s& ?1 v/ E. I     SuperscriptBox[
5 @# A2 V' F& `6 j7 a, ]      RowBox[{"(",
7 A: n3 z5 `, d# _% W, U" Y- e       RowBox[{
        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
* Y7 ^' M9 @$ ^# F% z& w, f  Y CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
& U* [3 h) ^* A, b, L& @  3.5779607873531995`*^9, 3.5780122169375*^9}]
}, Open  ]],
! ^' e7 j+ E/ F
Cell[CellGroupData[{

Cell[BoxData[
RowBox[{"C5", "=", "Ca"}]], "Input",
- w- L/ q3 m, V( @! \0 D+ n1 A CellChangeTimes->{3.577920860671875*^9}],
- {( ^. q: r  [6 w' b) I  [' `
# `+ k/ V" K1 j+ WCell[BoxData[
; e% m' [; u, B( M4 J5 i/ x RowBox[{"{",
1 G  M! \! i3 w  RowBox[{
9 c- T0 f2 H0 A2 ]+ @9 w& e  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
" J1 f1 G" u4 a% d7 \   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
8 n+ V# N- O4 F! m+ J3 t6 ^+ y  "}"}]], "Output",
; I: e, Z2 F- k' W8 C% j0 { CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
# _& Q" b' v: e. N1 ^8 y8 t# @  3.5779608137328453`*^9, 3.5780122209375*^9}]
}, Open  ]],
) B* a9 E9 y& O1 x! j8 u
$ @, [% L6 O& J% k# X: t4 [8 LCell[CellGroupData[{
6 U+ I: P8 `% ?1 l4 E
Cell[BoxData[
0 G& R3 w' T" S  H( j RowBox[{"u5", "=",
  RowBox[{
   RowBox[{"Exp", "[",
    RowBox[{
     RowBox[{
, D6 O9 ?$ H1 F  m: s7 n5 q# e      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
. k4 }, K# ?. u& z3 d9 E         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
! j' w7 E) a) }) P& L/ w2 P        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
& Q* w6 V9 x7 t# a* D( n: y     "]"}], "/.", "DeltaX"}]}]], "Input",
9 d7 p; G) O1 H9 y/ e9 i CellChangeTimes->{3.577920869375*^9}],
) e& S  r# e  Z8 ~! P
. N3 q+ q6 r: l1 [9 G9 kCell[BoxData[
9 Y& m& |9 o0 B: B' C# Z. \ SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
     RowBox[{"-",
: C& g: g6 o9 x; \      SuperscriptBox[
  E. t- e) x0 E+ l       RowBox[{"(",
& P. m6 A+ `$ ?( I: \! V        RowBox[{
/ S6 `: |& ?& J8 ]( _- G         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
1 E3 R- K7 ^8 ^" `0 W5 L     SuperscriptBox[
. F6 v, Q8 b% x4 C+ P4 V      RowBox[{"(",
) D7 O# @, W) X: ~) z) g& _       RowBox[{
        RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
0 _/ Z# V6 ~1 {. e* i) r3 i     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
% ]4 L" R6 L" F3 H' G) F        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
. P, P1 b3 j4 s" q      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
" m0 q% @; o3 s! k     SuperscriptBox[
+ S" L2 E/ Q$ F% y+ e0 C      RowBox[{"(",
0 i5 s7 _% Q. q: _4 a% F" G       RowBox[{
6 `# E+ |* I: l        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
  3.577960815043248*^9, 3.578012221953125*^9}]
% ?( p6 D5 p8 q" `0 Q}, Open  ]],
5 z5 K6 W+ m5 \* q
) m& g0 M, o0 P0 @  k: cCell[CellGroupData[{

0 s" Q7 S; z2 Q+ Q5 uCell[BoxData[
RowBox[{"C6", "=", "Ca"}]], "Input",
% Y% y& |' _" q. O) S CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],

Cell[BoxData[
, ~# b) r5 A/ x% L! f0 q RowBox[{"{",
4 F. d0 V4 D4 _$ V  RowBox[{
7 R1 Y2 J6 B7 ~9 O8 S( I$ m  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
   "0.494866`"}], "}"}]], "Output",
2 ]0 T5 v  b8 E2 f CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,
   3.5779608373044868`*^9, 3.578012227359375*^9}]
) M6 }+ I  H+ P}, Open  ]],

$ d# k. W+ K5 Y# b& L  \8 V8 ACell[CellGroupData[{

Cell[BoxData[
7 k9 D. J/ q: ~- T* L RowBox[{"u6", "=",
+ W0 W$ B) X4 D1 a  ^! X8 f  RowBox[{
4 v/ w7 x4 H' O/ }5 [* R   RowBox[{"Exp", "[",
- `- f3 E  K+ z7 g. L$ `5 `    RowBox[{
; Q7 [# ^9 {7 x* Q: ?     RowBox[{
# A; I: Z. D1 g# P( v      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
( n& [' V- x) V9 ~4 `3 p3 r         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
+ g# m! {- R" v8 l! s4 G         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
! E) t0 w5 n' r' ?) `* d: d     "]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],

Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{
         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
      RowBox[{"(",
" R5 G5 c! h. I7 \       RowBox[{
        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
) O3 p/ F( l% `+ ^; v      RowBox[{"(",
9 ?1 {$ t; W3 @1 D$ w% K' W       RowBox[{
        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
7 J; ^2 W* G1 X6 W/ _1 z! u. o     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
/ ]! o3 a% |$ s. C3 Y6 v     SuperscriptBox[
      RowBox[{"(",
$ Z* p( t6 ]/ |       RowBox[{
; n7 I1 n- e: y) _' T        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
/ N5 e! J- N) \) i/ C0 O1 c     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
& T- ]8 H7 e; N7 I) y       RowBox[{
        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
0 N7 \' t( N2 d& w: d      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
1 U1 U% R- w/ [% ^* D( @/ Y; n     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
% m  {' o9 E& n! {$ G9 x        RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
) P; `) ~% |2 I; `    ")"}]}]]], "Output",
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
  3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
}, Open  ]],
0 R# n; v/ ]4 E0 a! J7 \
$ d7 p- f! c/ r0 r, \3 B7 S/ uCell[CellGroupData[{
4 B3 ^& D7 j' ~7 [8 H8 m8 b# T
Cell[BoxData[
RowBox[{"C7", "=", "Ca"}]], "Input",
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
  3.577921316125*^9}],
6 s* ?  ^8 q4 J
- g) G2 C) G( d- D% E3 ]/ K" r0 ^Cell[BoxData[
RowBox[{"{",
  RowBox[{
& c" Y; f  H4 v) B  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
# a0 h6 H4 D: K1 ~( o   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
. u# `6 }; }' J* e' q  "}"}]], "Output",
2 _$ _! {. x  L. {0 q CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
3 U4 r% b4 X/ s; H; D  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
# T& k4 W5 v1 d! Z; Z}, Open  ]],
* Z+ ~( T+ |7 B' d$ l- Z. @, r
Cell[CellGroupData[{
1 E: s: J5 h/ Z/ [& U+ f
Cell[BoxData[
* w. J, X. S. s3 U, W2 j RowBox[{"u7", "=",
  RowBox[{
   RowBox[{"Exp", "[",
+ G0 U0 x' ]* ~, H1 i0 Q    RowBox[{
     RowBox[{
      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
% Q; s2 d& u9 q5 d' S         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
( |8 Q% l$ o$ x! d0 a3 M        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]], "Input",
) q( p2 D: w$ \6 F+ F CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
" |, X* D- r# L4 H( s  3.57792132028125*^9}],
! ^8 o( H; s# {
Cell[BoxData[
* N) n. c: m  x; q SuperscriptBox["\[ExponentialE]",
4 [8 I- j- \7 M% O, x4 C' g  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
/ i2 j' {4 M2 ~: }    RowBox[{
     RowBox[{"-",
      SuperscriptBox[
& T- T: @/ D4 k! o       RowBox[{"(",
3 _& X! M2 R  U+ w        RowBox[{
  f; ^* n8 M! C0 ~5 |+ W# I% `) q         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
; J) s! F/ N, ?; l: n0 Z     SuperscriptBox[
      RowBox[{"(",
, P' F! U8 v/ B       RowBox[{
        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
3 N/ T7 Y3 K, @$ z     SuperscriptBox[
      RowBox[{"(",
0 L% D. f  L( f5 V       RowBox[{
        RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
% E- N, O, X' }        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
. j$ }5 s7 S2 P1 ?7 `# R        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
* T) H/ p9 w8 `/ M& l! W     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
0 D1 N: Y; P$ v& K+ S2 X0 V     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
" Q) _/ v  K3 X- q( h* ?        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
& K* M4 Z7 W) V7 O/ j7 T       RowBox[{
8 {- @& d. e0 ?0 U4 k+ g        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
) u0 z! g8 ]5 g- X7 W6 b. m       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
) a* r2 d, T/ B* J' w, |7 c    ")"}]}]]], "Output",
2 x& T$ \2 m0 |0 ~5 S& F; g4 w CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
  3.578012251359375*^9}]
) s4 v" W- I' V( o0 F$ B- _& z}, Open  ]],

* _5 a$ t; S# \9 X0 P, FCell[CellGroupData[{

9 z# @! D* {# K- W; Y; pCell[BoxData[
$ s8 P4 f! H  {; C RowBox[{"C8", "=", "Ca"}]], "Input",
2 ]1 W+ u7 D8 p- n CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
/ R% U1 F, U% O0 q  3.577921316125*^9, 3.57792141421875*^9}],
( F2 ~( E' o6 K* d  ]7 Q- n3 s( l
Cell[BoxData[
; A; X- S% `. d9 J" z0 ` RowBox[{"{",
  R' x! T9 e$ m7 K2 F/ f, Z6 m0 k  RowBox[{
. z" e+ l" m+ @, ?  p. h% q9 }9 e  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
$ d# l' D, `' Y. s5 \( I3 r" c6 P- z   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
  "}"}]], "Output",
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
. O' I4 q& z  E3 v  3.578012260515625*^9}]
}, Open  ]],
& o$ v  e  ]3 x% Z- j% k/ G, w
! c2 L& X! o; b% b* `! C( }2 BCell[CellGroupData[{

9 z* N) @5 W* j1 B' d+ W9 Y! `Cell[BoxData[
% N, b3 z$ j9 b! g: z( h. L! F RowBox[{"u8", "=",
7 Y$ }2 D+ G. ]9 H* P' S0 C: W  RowBox[{
   RowBox[{"Exp", "[",
2 F# F' _' i9 i% t' ]    RowBox[{
+ ~0 v, J' V) ~. U9 a7 |     RowBox[{
+ H' Z* t; w5 ~( x. O      RowBox[{"-",
; h( o' ^' Y% d2 y% c# ?       RowBox[{
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
: [' X) w& o- \* n5 r4 o; p- S        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
  3.57792132028125*^9, 3.577921416921875*^9}],

Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
9 c3 K* S" ]4 H  RowBox[{"3.141592653589793`", " ",
- m$ J5 A3 [5 Z& W   RowBox[{"(",
3 e8 n1 v5 P+ t2 a    RowBox[{
/ T% C# R, E# l- N( a$ D     RowBox[{"-",
9 M2 j- }; Z" G; o      SuperscriptBox[
- [' K( f: N6 J7 D       RowBox[{"(",
        RowBox[{
7 J5 k- |5 I3 P( T6 A$ W( q# v         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
+ T! a8 I" |6 \3 G7 p     SuperscriptBox[
      RowBox[{"(",
  m, F$ Z* Q+ _; h! G       RowBox[{
        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
" p. C0 s) r7 o- S       RowBox[{
        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
" f$ @3 T9 r& [: G) `; h6 N. _       RowBox[{
4 ]3 V1 a" t* n        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
6 H# H+ x) ~; m1 V3 @5 D- `; g     SuperscriptBox[
" u  X- w7 J1 Q2 g7 p/ E      RowBox[{"(",
0 K1 s& B) I! R! g; f* x; e       RowBox[{
        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
2 u& e2 j1 h& p; r, g9 v" n3 u! Q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
' l6 f! f; Q. e$ [7 f     SuperscriptBox[
      RowBox[{"(",
3 {1 T/ P% t( s# _( f( T  a6 C       RowBox[{
! W2 O8 j6 ?/ M6 ~  u& h        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
, `5 S& G, W+ l$ Z, {     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
, z' |: l* B) v     SuperscriptBox[
, N! W0 d: ?, X      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
' ~+ r% A) v' }! f; S6 E* Q2 R% c    ")"}]}]]], "Output",
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
* P# ~/ r7 a( W+ i) P9 x" X  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
  3.5779608945565863`*^9, 3.57801226165625*^9}]
3 Z0 _3 j3 j4 n0 |3 f8 K}, Open  ]],

1 s: ^# q' G- a4 m+ vCell[CellGroupData[{

; p9 p) |. `" j, f& n; cCell[BoxData[
2 Z& |4 A% e3 E% t RowBox[{"C9", "=", "Ca"}]], "Input",
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
0 \# I4 k! U2 F* D4 A- ^  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],

Cell[BoxData[
! X) r  V  c9 e$ w+ E2 b* n7 O RowBox[{"{",
% R" e0 X* \3 B2 z6 ^  RowBox[{
  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
* U5 G9 |8 y5 O0 @9 t   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
  "}"}]], "Output",
+ _8 E1 b( U# ~, Q- `2 s+ F1 ? 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,
! H5 g! n6 ^, E( }* n( r  3.578012268234375*^9}]
2 G  @8 _1 [* a% X! E# R. H9 A, p* J}, Open  ]],

Cell[CellGroupData[{
9 G! b$ d+ u! l$ z" `
Cell[BoxData[
RowBox[{"u9", "=",
  RowBox[{
   RowBox[{"Exp", "[",
3 |; i8 h; @- c7 x1 {    RowBox[{
     RowBox[{
      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
3 Y" k& t6 P9 c0 m, B( Y        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]], "Input",
) j8 a) @( n% k) u; K CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],
' J" h2 l$ a: x' q+ p
Cell[BoxData[
6 l9 e$ b6 R9 D* a SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
8 o; g6 I! O5 j) i! |8 R" t% w   RowBox[{"(",
( ]1 ?7 U: X8 B6 l    RowBox[{
; {. m( I- z/ y) N0 W; W9 R     RowBox[{"-",
      SuperscriptBox[
! m3 {3 L2 k' @5 o+ A# b$ Q       RowBox[{"(",
        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
/ k4 \, X9 c5 q9 @5 u2 y% W4 e3 B     SuperscriptBox[
" f" I7 J8 k  f* E- m      RowBox[{"(",
       RowBox[{
8 V  B% R2 m6 e! `+ W% n$ @2 r4 C4 R; A        RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
1 X8 m8 L4 Z0 Q7 r- T& f: x     SuperscriptBox[
      RowBox[{"(",
. C6 W" p5 G' k! j/ w0 A/ h       RowBox[{
        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
3 O( X% Y8 ~' {      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
5 J0 q$ ~8 u2 C/ K      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
1 F6 O, i! s, r% w. W       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
' K* i% E) L: c- L. X& e     SuperscriptBox[
' y+ x3 y# X$ ~) ]  p# Z      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
, t: q' O; Q* R5 F: L9 h      RowBox[{"(",
3 a- l' r: E( Y9 A: l: {       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
6 `* y- ?) B4 h5 t: x& b, C      RowBox[{"(",
  w! K9 C/ e' h5 g5 V) w       RowBox[{
- e" }- [# ]+ K5 K; f9 b# B        RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
! x; W- B. j3 a! @% c( ~$ X1 u4 G    ")"}]}]]], "Output",
" H$ g1 q  u/ j! a  S  A6 X0 a CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
, U+ q5 B# _; z1 A  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
  3.577961530421959*^9, 3.578012269125*^9}]
) ?% L" K  o$ Z7 m3 g  K9 t! r1 h}, Open  ]],
7 [; t: H* P9 C/ P# L  H* \7 v
Cell[CellGroupData[{

Cell[BoxData[{
1 @4 W; F2 A6 a4 w3 T1 s; Z0 Y RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
& s8 \4 r& m3 V8 Q RowBox[{"u10", "=",
  RowBox[{
; _" v  }' i# d* w! Q* c9 W   RowBox[{"Exp", "[",
    RowBox[{
2 E! u& r- _" ]  f' R0 U$ e' \     RowBox[{
. \7 S" w2 Z" B$ ?- U: N9 B      RowBox[{"-",
7 ]1 X4 H' Q5 E* d/ q; h) p       RowBox[{
$ c" y& L# @5 s" O/ V! B        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
9 n( X* x0 c! H% k. W; C+ ]        RowBox[{"(",
. s* d: y. @* d4 S         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
7 ?% x1 c( ^0 B' I5 U3 i     "]"}], "/.", "DeltaX"}]}]}], "Input",
% b2 ?! B; c/ \: ]$ S( \: }- O CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
6 C7 K$ r; @2 L  t2 R1 M$ e
7 h6 m! O5 t& e8 o! V" eCell[BoxData[
RowBox[{"{",
  RowBox[{
  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
9 w7 v+ [0 p3 A8 D: ~   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
( @  u3 R% @% Z# P
Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
+ o- P# E& b" _* x  ^   RowBox[{"(",
( a. T& \- b7 u- A    RowBox[{
# e: u# G9 c% S+ ^4 f     RowBox[{"-",
      SuperscriptBox[
0 ~3 ~/ K" Y. P  y3 T. P# b       RowBox[{"(",
        RowBox[{
         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
+ T0 \" J- O1 f" D7 U. A     SuperscriptBox[
5 G+ n" p9 Q  ?# w2 B/ H      RowBox[{"(",
6 m( K1 @9 a. P4 j$ ^8 J3 c- ]       RowBox[{
        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
+ u$ }' i* }9 N5 _6 r8 r     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
8 ~3 c( O7 X+ L+ z  Y* ?      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
2 _8 h! v+ R0 D+ W" I( `# e      RowBox[{"(",
% X+ T9 n3 {1 I6 c3 O3 X  ^) U" K       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
+ k$ L& t& a# l# H      RowBox[{"(",
1 d5 \( y  d4 K3 H- D       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
4 x' A& Z8 D5 n, f, ]     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
# m) h- W+ \- x* {5 M: Q      RowBox[{"(",
. ]6 [. I- D* Z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
4 P6 b! b$ W' [# s' L    ")"}]}]]], "Output",
CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
}, Open  ]],

5 m" L( `1 b% a) v4 cCell[CellGroupData[{
: ?- V( f! O; b8 p+ t5 @; l
Cell[BoxData[{
: w" E) Q. z6 `  s" j RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
RowBox[{"u11", "=",
) G1 A* x5 E4 a4 f0 H2 K  RowBox[{
4 x4 f! T3 l' u: d, w4 I   RowBox[{"Exp", "[",
5 u' Q8 a, v% D  D    RowBox[{
  o* a% D6 {# ^  ^- x     RowBox[{
: z. I! M9 ?- N# J4 ?      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
/ K& `; i5 F' t$ t3 [) z& B         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
! _0 }8 g2 E# |$ Z        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]}], "Input",
- @+ W+ ]5 K/ H9 |/ l7 Z CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
  3.57796154237158*^9, 3.5779615434011817`*^9}}],

Cell[BoxData[
RowBox[{"{",
  RowBox[{
  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
  "}"}]], "Output",
1 Z' i6 S' O5 C  j CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
  3.57801228203125*^9}],

. }) x% F8 {. @7 _/ ICell[BoxData[
7 j% c5 ~; ]! v SuperscriptBox["\[ExponentialE]",
* D0 _  V4 ]1 C8 |8 ~. [' D  RowBox[{"3.141592653589793`", " ",
) v3 r7 ^: Q. M9 G! Y   RowBox[{"(",
% Z6 W$ M& B  A' N+ W' }  n( k( [    RowBox[{
0 ]; q' R% _6 K- f- p; z     RowBox[{"-",
      SuperscriptBox[
( C' }4 Q3 k0 s4 c2 w3 I& r       RowBox[{"(",
" _5 c' V# I. I& D% l: w$ Q# ^        RowBox[{
         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
2 |7 J' e; `! c) ^( Z: k     SuperscriptBox[
      RowBox[{"(",
9 f# q" V7 Q5 p5 y       RowBox[{
% b  |$ H8 I) P) Y8 n" H5 Z9 ~        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
" R( F" s+ a: I' N: x        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
' [" r5 a* a/ U5 G      RowBox[{"(",
) W% N5 V0 w1 o: x$ }$ T3 X       RowBox[{
        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
/ N7 N3 p* [5 H      RowBox[{"(",
  B3 N4 t) b# g* b4 d" i       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
! K6 D+ ~: u1 E8 b( c& q     SuperscriptBox[
      RowBox[{"(",
8 c% ~& A! ?. z5 u; @       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
8 k6 A. Y* L9 S! O& O: ?/ o      RowBox[{"(",
$ Z9 a8 P0 P: S2 |# V       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
6 i% ?- t3 l6 U( c9 }" f       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
  T  b8 d8 f8 h/ b1 Y4 y    ")"}]}]]], "Output",
' c  \! b, F" @: i CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
+ j' K" D; w, D  v  3.57801228203125*^9}]
}, Open  ]],
- V, X+ j0 f) y/ G& E
Cell[CellGroupData[{
: U" l; w* Q" F: ~! y* F
. |9 {. ~. F0 g8 }! d6 T6 MCell[BoxData[{
9 m, k: g1 ?8 ?% G/ ]2 M  f RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
RowBox[{"u12", "=",
  RowBox[{
   RowBox[{"Exp", "[",
" }; b. h9 r& d3 }" ?' m    RowBox[{
6 B" P% R: J1 w$ g" Q% N     RowBox[{
      RowBox[{"-",
) |: ~3 l% m* p! |3 Z       RowBox[{
% H! m& o$ t  |) \7 c: u- Z2 @% m        RowBox[{"(",
& x+ Y( C1 d  v6 _/ Q  h( N         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
: C2 `/ R2 b3 ^" I, L% \        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
/ H8 q/ d! y& X7 |" g" C     "]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
9 R% Y5 `5 o3 F. m8 ^) ^  3.57796154237158*^9, 3.5779615576284065`*^9}}],
: i! D* L' T4 @6 T" H
Cell[BoxData[
RowBox[{"{",
0 e7 W$ x4 ]( `  RowBox[{
  "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
  "}"}]], "Output",
CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],

Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
* B) @. \7 t  u! u# C. S( W. s   RowBox[{"(",
    RowBox[{
. @) W$ v! @  u; t3 w     RowBox[{"-",
      SuperscriptBox[
+ u) }- L1 n9 s- l2 b, M       RowBox[{"(",
        RowBox[{
         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
, W9 D. V7 j3 v( u      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
! H, E# ^& I7 C- U: H     SuperscriptBox[
8 h* T" Z- ]3 P# W! L8 p' c      RowBox[{"(",
: m! G$ |, e, t       RowBox[{
        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
! L5 `* J; k8 k4 J: h% P      RowBox[{"(",
9 P$ s; R3 E" w0 F# ^" j: a       RowBox[{
        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
8 v; |$ L) x7 a      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
5 a1 x" E) ?2 i5 V$ x        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
, L7 c: K/ \# m) `7 V- g+ M7 w     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
}, Open  ]],
$ i! _7 M; s' X( x0 s6 [
( I- _" A4 B4 ]& W% ]) y1 pCell[CellGroupData[{
: u% C- C" V3 H& o) r& Z0 w& `( {
Cell[BoxData[{
RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
RowBox[{"u13", "=",
. J5 s5 z: y7 \3 N" G  RowBox[{
% ]% c) w3 e: v; N   RowBox[{"Exp", "[",
    RowBox[{
     RowBox[{
      RowBox[{"-",
+ n  T* G: U* x, L3 ?' Y; K       RowBox[{
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
3 c5 @( V* w' E# `! g     "]"}], "/.", "DeltaX"}]}]}], "Input",
7 H  @4 c4 [0 O5 G( [& E; ~1 L CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
  3.57796154237158*^9, 3.5779615599684105`*^9}}],

Cell[BoxData[
RowBox[{"{",
  RowBox[{
  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
/ p, E; Z' M& ~0 ]; Z, l   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
* Z" P" c* J* H& i/ h  "}"}]], "Output",
CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],

Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
0 ~. _" i  ?- y+ J2 q4 L  j2 w8 R  RowBox[{"3.141592653589793`", " ",
  B( G4 Y, z" T2 T   RowBox[{"(",
    RowBox[{
  {7 M. B% E& S: ^1 W# G     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{
+ T* q' O% c" F9 K( c7 Z7 P         RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
8 d! D2 t* ]. T9 R4 Z" |      RowBox[{"(",
" G7 U4 v3 d# R! U- c0 h$ ^       RowBox[{
; o& t3 i# h+ R/ o9 J& |' d4 C, F        RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
, @7 c2 U9 Z* ~/ n      RowBox[{"(",
       RowBox[{
1 d2 j5 m: L: H4 J, H/ V; B        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
1 i4 s8 N5 K# ?5 w( i; r     SuperscriptBox[
/ U; y2 A9 b7 p( K2 O  f/ }. p      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
, s( L" Y; t- I( W# g1 ~       RowBox[{
        RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
3 b& B: t4 z( |9 |+ q0 e+ i     SuperscriptBox[
% j& p* }2 D2 z0 p3 V! z      RowBox[{"(",
, D, t4 }# n8 c  N2 z/ n! F       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
+ b+ S0 f7 u% u4 O     SuperscriptBox[
, t# W$ Y1 U; F, ]: j+ K4 j% {- X      RowBox[{"(",
$ D' b' g2 J1 o9 l; v$ y       RowBox[{
1 u& E% L7 ^3 i( c6 u        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
7 S0 i# {; j& k/ G      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
, @+ g! [$ ?. g. B- d7 H' m      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
1 v1 |2 s! i5 `0 i3 H    ")"}]}]]], "Output",
CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
}, Open  ]],

Cell[CellGroupData[{
8 W- R9 {; \! t
- z2 E1 N7 O! y5 Z% [% d2 v: [Cell[BoxData[{
RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
) \" P8 ]( O# i/ f1 V4 J% O RowBox[{"u14", "=",
  RowBox[{
) S) O, g4 T7 F* N; P   RowBox[{"Exp", "[",
    RowBox[{
0 q- F! l# `7 v# F! m4 x! r     RowBox[{
4 B5 J! l4 |* f4 j      RowBox[{"-",
       RowBox[{
8 @. F1 T# @; Y" @        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
0 I$ _' _9 d, E: A; z+ z         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
7 S9 v; D2 u1 j$ E# W$ C9 X+ a  3.57796154237158*^9, 3.5779615663176217`*^9}}],

6 ]+ a+ W3 P0 b9 P3 UCell[BoxData[
- j+ X/ I! c9 z  H; z1 K/ c RowBox[{"{",
  RowBox[{
  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
6 R' b1 I, U6 x5 t# p( J$ [! K# e   "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
, F' i! N# J. r, E  "}"}]], "Output",
, R- o3 m; W8 N3 P CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],

; ]1 ~; J) D( O. H; N( S% @Cell[BoxData[
; l( f" Z. p. `8 _) l7 b6 `& U. ~ SuperscriptBox["\[ExponentialE]",
0 u4 g2 D% A9 p1 C! t) ^  RowBox[{"3.141592653589793`", " ",
( m" {$ i( P1 {! z9 e* e  Z   RowBox[{"(",
; ?1 d! F+ D. y( V: T    RowBox[{
6 U+ }( N  Q  m% c     RowBox[{"-",
0 r7 w* p6 h6 w      SuperscriptBox[
       RowBox[{"(",
        RowBox[{
  m9 v/ S& {3 E! F         RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
* c$ {9 N; N6 P6 u      RowBox[{"(",
, s" F& ~% n1 t. g* }       RowBox[{
        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
; d" y8 j7 r  B% X1 w0 n" H6 X4 v        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
# X- g9 O" J; R8 l2 J8 @' V     SuperscriptBox[
      RowBox[{"(",
4 _& k* H/ K3 K       RowBox[{
$ h: M6 E' R7 @        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
% `6 p6 \  i* Y; R, C      RowBox[{"(",
5 Q/ f7 I  W5 K: w       RowBox[{
        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
  u. F% |5 A& H, `; L1 o: O     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
( T5 ?1 k) ?6 _/ g2 i, G      RowBox[{"(",
. d* ]8 k$ c. }0 ]& O' F7 c       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
# O' m  ]3 b7 C. w9 d- c4 |     SuperscriptBox[
7 O; s# C# ]- v. ^4 j      RowBox[{"(",
5 K6 c8 @0 n4 h  e' B       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
8 ~! i# l6 p5 f, d. P}, Open  ]],
) w- |& e* {  L, h3 o. I
Cell[CellGroupData[{

Cell[BoxData[{
- `* ^$ |3 G: ] RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
- ?6 j) a  l  m$ h6 @ RowBox[{"u15", "=",
  RowBox[{
   RowBox[{"Exp", "[",
" a! |7 E- z6 Y+ `: ?6 n" Z) w, C    RowBox[{
8 M8 ?" k4 L: b# Q0 _8 s' _     RowBox[{
      RowBox[{"-",
       RowBox[{
  ?3 \7 U# @" n1 s% q  H        RowBox[{"(",
+ L; ^$ Q4 }+ h) ^         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
* F0 u' |2 d/ ?- J        RowBox[{"(",
  _7 t9 x7 T2 j; U6 e         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
& ]3 M2 x2 a4 G( I6 S4 b+ A# @! p! Q9 v     "]"}], "/.", "DeltaX"}]}]}], "Input",
0 {5 Q0 u8 ~: T6 Y; ]( v2 L+ ^ CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
' p5 a2 k; I9 Z) a  3.57796154237158*^9, 3.57796157098203*^9}}],
4 k9 C/ P0 Y6 A# U$ D2 J2 L. P
8 `# I1 C( V3 t0 o3 Y, CCell[BoxData[
3 ?  \9 ^1 \" U' a# G RowBox[{"{",
  M* v: N: u3 X2 \+ q% L( Y8 y  RowBox[{
$ E7 V6 S' k% ], b- u. D  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
7 s2 J: n; [6 X2 z1 P+ N   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
( U; \$ m6 }' ?% @  "}"}]], "Output",
' F" n) R. N8 z$ I+ i. c5 W  n4 } CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],

Cell[BoxData[
4 `* H* i8 U  |6 V" }5 X# f SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
# Q" r( n8 ]9 V& v% u  E7 I8 }# D     RowBox[{"-",
      SuperscriptBox[
8 B/ Z( A' ^0 r4 V4 a! r" F- c) _       RowBox[{"(",
, s1 m+ B/ m# O5 [9 L. f) Z        RowBox[{
         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
: V8 K! B  b0 M9 |, M4 q; N* O      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
' o3 g# O0 B  v5 m      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
$ N0 `" |% k' @6 F/ a     SuperscriptBox[
. O1 X* u. g9 }+ S% ~1 q      RowBox[{"(",
3 s8 ]: c8 ?: M, `; W% r       RowBox[{
        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
. m; m4 A% G; L! B' A     SuperscriptBox[
  Q4 c5 |& U: k. X      RowBox[{"(",
5 r- p( ~( u& U  G" J9 f8 B       RowBox[{
. Y' e. J7 F9 z; T2 Z        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
; a+ y7 q9 o( `* b. Q& j1 r     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
$ n2 B4 |8 s* Z, I$ N. g; V        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
+ \# g$ A' t& {! E  b) S; |) G4 ?     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
% _/ @5 J9 N, Q6 E1 c      RowBox[{"(",
, K# X; a' }7 z; j1 w       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
5 e' A& M% X$ a9 U6 _8 y  g2 k    ")"}]}]]], "Output",
CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
}, Open  ]],
$ R, e. e3 L- s) v# H3 k8 c
Cell[BoxData[
" Z2 Z7 x" l8 C8 W- Y% _ RowBox[{"For", "[",
  RowBox[{
   RowBox[{"i", "=", "1"}], ",",
1 x/ M) Z* K* L   RowBox[{"i", "\[LessEqual]", "9"}], ",",
8 z3 [0 _3 m1 A& O, a; b* i2 `   RowBox[{"i", "++"}], ",",
$ M# G/ r+ X. f   RowBox[{
    RowBox[{"Ca", "[",
  F, m9 D+ t8 N& ?" F' M2 O     RowBox[{"[", "i", "]"}], "]"}], "=",
! @5 m" B; b9 g) {3 T3 j* B    RowBox[{"CM", "[",
     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],

; T5 W; ~& v$ n1 W# B' `Cell[CellGroupData[{

# s9 h' K9 F$ Q4 I5 WCell[BoxData[{
RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
: o( a6 I% H6 `2 B RowBox[{"u16", "=",
) g- ^, y$ _% z4 [1 a  RowBox[{
   RowBox[{"Exp", "[",
    RowBox[{
  H, H) f/ K9 ]+ I4 d7 k1 {' D. g     RowBox[{
      RowBox[{"-",
       RowBox[{
8 [  v5 K2 j+ v7 F- T0 z: j" S% y; S        RowBox[{"(",
+ [) s& F/ H6 n& O% S' C% R) i         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
- ^( n; I/ \" H) ]7 E9 a         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
' l) a( R. f+ O4 ?5 U  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
  3.5779615751004367`*^9}}],
' G$ a) H5 n* U. z5 T
Cell[BoxData[
RowBox[{"{",
7 y6 {1 Z5 I" [" h$ h3 R( T. g% _" w& h5 B  RowBox[{
  "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
. z& t4 ]  t; e2 B   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
9 i  H# k& G+ [2 e: J( C  Q  "}"}]], "Output",
CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],

Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
  ^9 K  g- q5 L  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
1 r& k9 g+ t- _. p     RowBox[{"-",
      SuperscriptBox[
- A+ F5 G7 X0 z0 I2 }, W- l6 J& t       RowBox[{"(",
        RowBox[{
  k5 Z/ Q+ L- x' @/ c8 d: y         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
: h6 S' m# G  l( w     SuperscriptBox[
' I+ c& d/ O# }4 t' G0 C! n      RowBox[{"(",
       RowBox[{
1 P% V, J: M5 o3 @3 U        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
4 u  J& L+ P8 c: G0 \     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
% v, u! p( ^" [& @5 y        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
( Y+ Y, c/ w7 w: O9 m4 ^: j      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
: l$ m1 [, i1 L# c. k     SuperscriptBox[
      RowBox[{"(",
' t7 L4 f& [4 W3 J7 P6 x( |       RowBox[{
        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
$ s4 e2 Z3 T( g! K: _: \8 C3 h     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
2 U6 K3 `7 T8 e* f        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
2 F  U' s5 p# J/ U     SuperscriptBox[
2 \* N: [; ]4 @2 f% q' q9 `      RowBox[{"(",
3 I  S- M7 ^! K! R% g7 D  [       RowBox[{
9 J$ S- V8 a' v: g/ u8 u0 V: I        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
& \( u- j( [8 J& Z5 J$ ?/ f. ^      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
: Q- N+ K8 b! a$ x6 q8 i6 X* q     SuperscriptBox[
      RowBox[{"(",
: S* G* H/ L- H' O, R! J# Z       RowBox[{
        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
  n3 `8 f5 Z( F( ~ CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
: r9 C( N; z. l3 K}, Open  ]],
/ D5 f2 s5 l4 c9 J0 d2 u' F3 [/ B
Cell[CellGroupData[{
  ?3 _9 C- Q% v
$ b' y: {! S5 Y5 Y4 E. g/ tCell[BoxData[{
RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]",
" `( T" O1 t% m/ ~" ~+ j+ {' K RowBox[{"u17", "=",
  RowBox[{
/ F1 Z8 U) f1 H) q8 x2 e   RowBox[{"Exp", "[",
& o- r0 ?6 i3 X% _    RowBox[{
     RowBox[{
& U* |; q1 ^) l6 M) p- d      RowBox[{"-",
       RowBox[{
& Z( m) I0 h9 x        RowBox[{"(",
/ k7 G/ b, r0 ^: Z1 f         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
3 G  R, o$ R/ {6 y0 z0 q" e, e# u6 p        RowBox[{"(",
3 H& K! W0 G, O         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
. u' R% I8 v- z5 I$ y2 F     "]"}], "/.", "DeltaX"}]}]}], "Input",
- x; y9 f- x  a2 l6 |2 W CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
% Y- K% o, S6 D2 K2 E( c6 Y0 e  3.577961578953644*^9}}],
) U/ L4 q! o# b. h
Cell[BoxData[
RowBox[{"{",
' I9 ~$ X* P. [3 x1 i# `3 v5 ]  RowBox[{
9 P3 W" t+ `* E6 {4 B  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
' i2 T% C" R) j  v5 ]: o  t: N% {; M   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
  "}"}]], "Output",
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
) X! h7 Y# {# e( P5 q: \7 }: w( ?
Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
+ S0 V1 O' u6 j/ F9 X9 h  RowBox[{"3.141592653589793`", " ",
+ `! w' p( x/ k4 g$ i+ D2 Z   RowBox[{"(",
" \4 T  b! f# L- c    RowBox[{
     RowBox[{"-",
      SuperscriptBox[
5 [& ?  X0 k" P& V       RowBox[{"(",
        RowBox[{
% F" ~# R8 l1 h( @1 I" i; Q: X7 f         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
/ K  H! N1 r+ }/ a     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
% a5 z; O) v  g2 S/ E        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
' F  o: ?" K; X     SuperscriptBox[
& }2 R( {6 d/ V$ M3 g' W, C* u3 `      RowBox[{"(",
/ G7 F' k+ C0 B/ ~       RowBox[{
        RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
; ]+ D. k5 }0 |6 R# G8 R- {, f      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
" H, s! e4 O$ E& f8 U        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
7 M# s/ B) X6 F" \' Y      RowBox[{"(",
/ W- u! W1 W* Y! d       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
$ ~: D& Z; j$ z4 h     SuperscriptBox[
7 ~" v9 }0 O" s. E2 I      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
/ W- l- j4 P7 z6 t, z  p- {+ [5 l% K CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
}, Open  ]],

3 w4 M1 A( y' r$ c3 ~+ {Cell[CellGroupData[{

Cell[BoxData[{
! b( i( T  p( g, W, z- g+ {& k  O RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",
; L7 x$ ?% p9 S# c RowBox[{"u18", "=",
  RowBox[{
1 ^' I) X- P) i3 F/ v3 c$ t   RowBox[{"Exp", "[",
    RowBox[{
# C* }# @/ @' e% a     RowBox[{
      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]}], "Input",
! f  ^9 E5 s4 ~$ {8 ?) s: V  @ CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
! u2 A3 K  }# R  T  U  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
1 I0 `9 _4 H, e7 v. w: ^! o  3.5779615828848505`*^9}}],

Cell[BoxData[
+ S' h1 N, h. r6 Y: C5 }3 j RowBox[{"{",
  RowBox[{
9 v+ m( q- b! b/ G0 t5 z7 G  "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
) M  g& j- i- k7 Q* [7 o   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
' M, C' ]: \- h8 j% L+ r+ B  N  "}"}]], "Output",
CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],

: }: b* k( R" y* t. d- m; r5 \Cell[BoxData[
7 u7 B/ q/ P# L3 t# N) C1 S: @ SuperscriptBox["\[ExponentialE]",
1 a# s( a' L" l% `& V7 ?  RowBox[{"3.141592653589793`", " ",
( N9 @+ ~% v1 F4 C. G; Z8 V. w   RowBox[{"(",
( f. b2 A, U; r- r' Q4 f    RowBox[{
) W+ \6 S' w+ U8 y3 T     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
! l8 W0 [% R; u- \5 l        RowBox[{
         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
7 k: [5 o8 |0 s" |& p% d     SuperscriptBox[
      RowBox[{"(",
7 v1 J- G9 a' M, N/ E9 K       RowBox[{
8 Z' Q& o& F9 e* g& O* a. ]        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
* a( Y% j: H. [. M3 z     SuperscriptBox[
      RowBox[{"(",
7 ?. E9 t6 [+ a+ O+ m: w! Q       RowBox[{
        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
# C7 d' D( j* K& I2 T        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
& {* F0 j- a1 c( O. y# E& {) u       RowBox[{
        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
5 n" U( M* ]0 n& [# e4 g2 j     SuperscriptBox[
/ ?. q  s, G, w+ o5 t' U$ }      RowBox[{"(",
# w( Q  F( J: R* _. A; {       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
4 P1 r7 ?; F, T  Q1 I     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
/ j9 D6 b2 y0 e0 |2 q5 S      RowBox[{"(",
- E" r* C# R& R: ?2 ~$ }1 _       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
4 k- t# N# |/ H& Y! }- i      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
$ V) r  `0 ^- C9 S. Y/ r/ `+ F    ")"}]}]]], "Output",
CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
}, Open  ]],

Cell[CellGroupData[{
( T$ y! C! V' P
" C. I% V( [7 e$ X) ?2 zCell[BoxData[{
/ g7 c! J: }! e# [$ C" s RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
3 W! s& B8 G7 q, v/ I6 e7 i  w* U RowBox[{"u19", "=",
! S5 c: d( q! }4 U' K+ _3 f  RowBox[{
   RowBox[{"Exp", "[",
    RowBox[{
     RowBox[{
6 }! X$ w7 @6 U6 Y0 X9 `# |      RowBox[{"-",
6 {- m4 v- Q0 f' ]: f       RowBox[{
- y, q. Q, ~3 Y& q) J! H0 ]7 G        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
' o& m3 y5 l6 a5 Q3 H. k2 Q         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
* c6 ?. a0 B+ T+ B+ ?     "]"}], "/.", "DeltaX"}]}]}], "Input",
/ o6 c! g; `7 I' k7 \4 `& L CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
/ Q) `8 `$ P% a9 Q  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9,
+ a7 G: z0 T0 ^$ d. ~) v  3.577961588890861*^9}}],
  D4 E0 P6 K9 d& O* v5 K2 c: J6 i
& K7 u9 X9 o4 r2 i, qCell[BoxData[
RowBox[{"{",
' f+ B/ W1 z2 |  RowBox[{
& A1 M( q2 {4 g0 J  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
: u0 r2 e7 G" s( l$ J  ~2 x  "}"}]], "Output",
9 N6 O/ H1 R) e4 i( F CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],

Cell[BoxData[
SuperscriptBox["\[ExponentialE]",
  RowBox[{"3.141592653589793`", " ",
0 m; m% U$ ^7 H$ J! Q6 j7 f   RowBox[{"(",
    RowBox[{
     RowBox[{"-",
      SuperscriptBox[
5 o. n: I$ K# w# H3 E( f       RowBox[{"(",
- r; ~0 j- ?! J+ ?. H" n        RowBox[{
         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
% d1 U3 w+ G3 T2 m3 K     SuperscriptBox[
5 _( ^0 h/ m6 ?* A' T2 x      RowBox[{"(",
       RowBox[{
5 }; o6 u5 C1 |- w. w        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
/ C3 u  y! ]0 M6 i3 T2 o2 I; H. u       RowBox[{
( g) W4 o+ F& p3 s/ t1 f        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
/ m1 x) Z5 d6 h7 j5 b     SuperscriptBox[
. T, m; L) U1 p+ u      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
0 ?1 X4 q3 n) \! v$ ]     SuperscriptBox[
* W- e/ R4 @2 W- k  b      RowBox[{"(",
       RowBox[{
( @6 c; X5 S, Z0 U        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
     SuperscriptBox[
' p3 ^# x8 k1 X2 t) Y, N      RowBox[{"(",
: c6 B$ F, n7 S1 I. K  ~       RowBox[{
7 Q) ?* ]; e; I" \7 v- K$ k: I        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
: W  w8 G" l( Y     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
8 W! A/ k* G# _. t- Y9 m9 J" v. `     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
% y' d7 {, M+ k/ O     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ")"}]}]]], "Output",
* ^9 f1 M& R- r1 y CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
; V; @5 D% }1 d}, Open  ]],
: r1 a$ D- e( i; B5 a6 ]9 k
Cell[CellGroupData[{

Cell[BoxData[{
& q6 `4 x! I( |2 [ RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",
/ C) ^7 s6 L# ~. b RowBox[{"u20", "=",
  RowBox[{
  o. r! _& c- c" f2 @   RowBox[{"Exp", "[",
4 i+ N7 ?" l% J    RowBox[{
     RowBox[{
  r; d8 }2 \8 D5 ~$ d# K      RowBox[{"-",
4 r, @- Q& m9 K: C( j/ |3 Z       RowBox[{
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
# T% D* N. u( \* Q5 y        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
     "]"}], "/.", "DeltaX"}]}]}], "Input",
" k: a# z7 W; T CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
' g; J* r7 Y$ C9 E8 a1 g  3.57796159382047*^9}}],

Cell[BoxData[
RowBox[{"{",
  }% }3 q& T0 ?0 w2 K/ F  RowBox[{
; q* \; M' b8 t1 p  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
& |) Y$ R; F) P5 P) i4 M  "}"}]], "Output",
# j& o2 }2 V: Q CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
7 ~1 s8 K, k' ]- q- W- r% i
Cell[BoxData[
0 r8 t! H( R; y; {5 H SuperscriptBox["\[ExponentialE]",
( q" q% T& I1 h/ [' ~- K0 e  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
    RowBox[{
+ `1 f, U6 r; w6 @, u     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
5 K0 t( C1 L% V& e, w( v        RowBox[{
         RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
9 _. f  Q5 k' M) ~; X; P      RowBox[{"(",
       RowBox[{
# T7 M5 q) x+ \+ J3 S        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
7 C5 y' Y! V7 l- M, r       RowBox[{
        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
# ]3 ~2 _( K4 k' c2 W1 v7 o; N" a. S     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
% y! h6 C7 p$ z% q$ ?     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
, S) j2 d& Y0 a" \      RowBox[{"(",
9 l/ V% t! i* l4 o5 f+ G       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
5 e, w' l7 C' M6 X9 w% N$ k! }- j     SuperscriptBox[
      RowBox[{"(",
4 W+ O/ Y% m! k" f0 L, |       RowBox[{
, D' Q9 V, X% _$ t7 ?! n# J, A        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
3 a. p7 R$ B  N9 h1 m    ")"}]}]]], "Output",
2 A" ?% v8 b! p% V. o+ L8 U CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]
}, Open  ]],

- B  D* n. Y9 [" D2 M% w9 H$ U$ `Cell[CellGroupData[{

Cell[BoxData[{
/ F9 D  Z% V" g+ i: w RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
RowBox[{"u21", "=",
  RowBox[{
   RowBox[{"Exp", "[",
    RowBox[{
     RowBox[{
      RowBox[{"-",
       RowBox[{
        RowBox[{"(",
+ W* b/ S4 e: s1 b  H" c+ M+ K         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
        RowBox[{"(",
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
! H; `+ r+ X2 p: F+ }  I+ t     "]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
4 |( Q  i9 |$ T- Z# z5 Z9 z  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
9 o( U, B3 E; C  3.5779615991556787`*^9}}],

( C' _  M! v: ^& p  ECell[BoxData[
4 z& |/ H$ U& O3 ?- u' T RowBox[{"{",
  RowBox[{
: R' C' Q7 d8 u  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
  "}"}]], "Output",
CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],

Cell[BoxData[
% ?; k) W1 f) w4 _8 B SuperscriptBox["\[ExponentialE]",
# W: [4 {! ~5 R* G  RowBox[{"3.141592653589793`", " ",
   RowBox[{"(",
$ Q/ N; x  V, W4 H9 p  h    RowBox[{
     RowBox[{"-",
      SuperscriptBox[
       RowBox[{"(",
        RowBox[{
         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
     SuperscriptBox[
      RowBox[{"(",
) |8 z# q/ e" U" S, H       RowBox[{
        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
* ]4 D( x4 }! t4 |8 `  ?( c: F/ }8 f     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
" p3 `& S3 \% c# k6 a        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
, P1 s+ n% B/ I6 d# i1 `        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
& b& i- |+ @2 h- ?! b) M2 h     SuperscriptBox[
      RowBox[{"(",
2 K* ^* P) t0 s- Q       RowBox[{
        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
, a% Q; _: c3 Y8 P8 j     SuperscriptBox[
      RowBox[{"(",
       RowBox[{
1 Z/ g1 W. h% J$ a5 Z: c5 m        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
; i) o; K! i# N' y5 t9 T# o# f$ O1 @6 c     SuperscriptBox[
      RowBox[{"(",
$ K% c/ i4 n' j& i  c       RowBox[{
' E/ l  E; F& T, G/ G        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
     SuperscriptBox[
      RowBox[{"(",
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
     SuperscriptBox[
! n+ e2 ]6 m( g" K1 B      RowBox[{"(",
" Q* K0 j) b5 B9 T6 b7 x       RowBox[{
        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
* i) F2 T2 Z4 n/ h0 P8 C( W    ")"}]}]]], "Output",
, H% F6 D' L8 m, ?& x CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]
4 X0 D& x$ [: t* [# q# U8 C}, Open  ]],

* M+ T5 G6 b0 t$ @( z- ECell[BoxData["\:62df\:5408wi"], "Input",
CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
1 ]7 K' A0 K2 I9 y
Cell[CellGroupData[{

Cell[BoxData[
7 r+ i/ g6 A" O RowBox[{"y1a", "=",
  RowBox[{"Table", "[",
8 P2 G3 {. b" q6 o: |# k   RowBox[{"x", ",",
    RowBox[{"{",
0 a* g7 E# `/ g5 T% ]     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
  3.5779226649375*^9, 3.5779226810625*^9}}],

Cell[BoxData[
2 x' \  ]' a" j5 w; f RowBox[{"{",
  RowBox[{
9 T6 c- h9 Y1 y! ?, m  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, W( J+ O5 ?8 h1 z, h2 x, L   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
3 t0 o0 o/ m0 H, U+ U5 Z   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
; h( C5 a7 P  b- @   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
( k# K4 O. h( H8 K, D   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
# a; f/ c+ f- ]  "}"}]], "Output",
CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
+ d" [0 r) ^" e+ H1 F, b: Z( ]6 Z  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
}, Open  ]],
! @! e; a+ ?6 s/ u" ]7 k  v" f
Cell[CellGroupData[{
' k* K7 Z% i4 D7 t
Cell[BoxData[
RowBox[{"Data", "[",
5 ?; ]( M3 e  p) [  RowBox[{"[",
7 u% J- [$ |' h. d" q   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
* G7 R) a9 I5 _) J. Z CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],

9 [% A9 m2 R" Y# KCell[BoxData["0.899882`"], "Output",
CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
   3.577961929080654*^9, 3.5780123419375*^9}]
}, Open  ]],

; ~2 H* V' u: p6 r7 M& YCell[BoxData[
1 y! i6 Z# `! s& ?, } RowBox[{"For", "[",
  RowBox[{
   RowBox[{"i", "=", "1"}], ",",
9 G6 W% f9 G8 K- j9 F: [* o   RowBox[{"i", "\[LessEqual]", "60"}], ",",
   RowBox[{"i", "++"}], ",",
   RowBox[{
% T- p) n4 N# y: g$ K& t! }. c    RowBox[{"y1a", "[",
" g6 @2 A) g$ n& ~/ v# R! P7 Z     RowBox[{"[", "i", "]"}], "]"}], "=",
    RowBox[{"Data", "[",
! U* s( m# D' H" i) Y     RowBox[{"[",
      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
   3.577922923203125*^9}, 3.5779588839702806`*^9}],

Cell[CellGroupData[{

+ {0 a, _, A1 _( w, f$ q7 NCell[BoxData["y1a"], "Input",
' B; X7 e: |$ X' M! Y4 K; L CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],

! H' j8 L! P( J# fCell[BoxData[
RowBox[{"{",
  RowBox[{
  "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",",
( m' }9 }/ e5 H   "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
   "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
   "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",
4 e- x/ _7 v' Q% l4 r( ~   "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
5 Z6 g% S, W% i+ v, }" o# D7 S# C   "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",",
   "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
/ H) s; R6 w+ R$ ~; \0 Y   "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
0 {- }9 P# W! V9 c  @  r; e+ c$ k3 j   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
+ v9 ~. L3 Q2 p& K+ j- @5 }7 Y   "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}],
' B; P6 o: F- r9 S& J) m  "}"}]], "Output",
+ v8 D5 Q) t) X1 y) G CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
" `' @" Z0 v6 o  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
}, Open  ]],
. Y9 L0 l( _  x
! X$ P" ~1 K! d6 |Cell[CellGroupData[{

Cell[BoxData[
# C3 H$ [" O' |8 T' y; W RowBox[{"m60n21", "=",
7 y  r7 p& B5 w" u  N! G) d7 q& z  RowBox[{"Table", "[",
   RowBox[{
* k3 |# c) u; U    RowBox[{"Table", "[",
- d& n2 x* q0 N8 X% K     RowBox[{"y", ",",
$ a# J, M/ s  c- ?5 H5 F3 }      RowBox[{"{",
2 Q4 r; e( h8 v( t* w1 P       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
/ d4 |7 d# B' a6 Y1 u5 N: J" i    RowBox[{"{",
: t8 X- [( q* G9 l8 O: X     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
! ~! P+ t9 a2 k$ p; ^+ G  3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,
* D) E( a; q! r2 L, ^: ~% K  k  3.5779619706547265`*^9}}],

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

Cell[BoxData[
5 h8 B4 Z, q9 S  Y4 R: G RowBox[{"w1a", "=",
# m1 e( u  F1 i8 z. A6 W  RowBox[{"LeastSquares", "[",
' H( u& G; M* h! f   RowBox[{"m60n21", ",", "y1a"}], "]"}]}]], "Input",
; D; W  j% I7 Q  l. {$ Q' J CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {
  3.577924662765625*^9, 3.57792466596875*^9}, {3.577962074644508*^9,
  3.5779620748317084`*^9}}],
3 y) H$ Q' x# W3 M
" ^+ X% v/ o5 F4 S3 n8 {1 ICell[BoxData[
8 n2 n- Y6 \! _1 {& m7 R6 h9 z RowBox[{"{",
, M  U/ x0 u% \3 w* s6 W2 N  i  RowBox[{"0.32564305572552416`", ",", "0.500820838606441`", ",",
   RowBox[{"-", "0.5945873894818967`"}], ",",
5 t  A  ]) g" N9 \  v  x! o8 r   RowBox[{"-", "0.1999688587779198`"}], ",", "0.020180806675835994`", ",",
   RowBox[{"-", "0.03345934908892623`"}], ",", "0.25282438852646905`", ",",
   RowBox[{"-", "0.17602467625404622`"}], ",", "0.3961180670900672`", ",",
0 }. V5 D, H9 C( p   "0.02759193650965952`", ",",
2 x# Y: @4 z+ G! b* `   RowBox[{"-", "0.320472847796449`"}], ",",
   RowBox[{"-", "0.07581214474544527`"}], ",", "0.4812237524557292`", ",",
) q- r7 Q7 G0 L, `( [! f7 w   "0.7528674241482847`", ",", "0.6665374509702799`", ",",
2 r: x% S. s+ v, i: p+ C5 Z   "0.22861495086373018`", ",", "0.13092706311748484`", ",",
   "0.5252475961933538`", ",",
   RowBox[{"-", "0.10599338351843157`"}], ",", "0.6670272593678526`", ",",
   "0.23580523388620733`"}], "}"}]], "Output",
CellChangeTimes->{3.577924621953125*^9, 3.5779246688125*^9,
  3.5779575884583836`*^9, 3.577958952875601*^9, 3.5779620806661186`*^9,
  3.578012349875*^9}]
}, Open  ]],

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

Cell[BoxData[
% Z7 i- k% I" Z, |/ H RowBox[{"y1fit", "=",
  RowBox[{"Table", "[",
   RowBox[{"x", ",",
    RowBox[{"{",
     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
$ p8 E  |7 e7 C: u' x; H7 H6 c CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {
) x* k9 E- \& T' J  w# d; w  3.5779252768125*^9, 3.577925277484375*^9}}],

2 z0 l0 q. ?) k5 F# u! x; O% JCell[BoxData[
7 ]( F$ z- ]3 F0 J8 G1 P RowBox[{"{",
9 e  C9 C, _( I- k! X7 g1 R  RowBox[{
' {- [/ l4 X1 l+ A3 e  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 l! P# x" g  U* H# {2 f# f   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
+ W2 ?$ X' o. x    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
   ",", "29"}], "}"}]], "Output",
CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9,
  3.577957594916795*^9, 3.5779589579612093`*^9, 3.5779621294942036`*^9,
6 f9 D1 y. A. A2 A: D# e  3.57801235340625*^9}]
7 L" O( H* a- f2 _( N5 n5 V}, Open  ]],
$ m5 }- I: l. O! w# \% y+ s* d
Cell[BoxData[
RowBox[{"For", "[",
  RowBox[{
   RowBox[{"i", "=", "61"}], ",",
4 T5 M# G, d% ?; \6 \1 B/ {; l! l   RowBox[{"i", "\[LessEqual]", "89"}], ",",
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
   RowBox[{
  ^; B6 X+ T& G# W1 y    RowBox[{
     RowBox[{"y1fit", "[",
% [" k% S1 F' v      RowBox[{"[",
       RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
' z! M, i+ B3 W2 B( e     RowBox[{"y1", "/.",
+ N7 H- i, K7 m, L      RowBox[{"{",
       RowBox[{
1 B  d' x5 y3 h" U- t6 O        RowBox[{"x1", "->",
         RowBox[{"Data", "[",
0 I( i$ @, z; S1 |( B' Q; p          RowBox[{"[",
( G- k" i. x7 J) Y" m% f8 e           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
3 Y0 m. M7 G6 X, i$ R3 M+ o- M3 H        RowBox[{"x2", "->",
         RowBox[{"Data", "[",
1 O, B  T4 a7 ?" ~; i          RowBox[{"[",
           RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
        RowBox[{"x3", "->",
         RowBox[{"Data", "[",
          RowBox[{"[",
$ U; A# e! y1 @, U& G           RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
3 k; D$ w! T4 W% B6 g        RowBox[{"x4", "->",
" b" R# M% e& V! H  Q* u         RowBox[{"Data", "[",
          RowBox[{"[",
3 F" U. H* p+ h& G1 B7 O# F1 J           RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
- r9 y9 W( J5 v        RowBox[{"x5", "->",
         RowBox[{"Data", "[",
          RowBox[{"[",
* @+ @/ N3 X7 ]  x! S: m0 f$ |           RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
- `/ C# |9 i: ^) f) Q) G! Y- I. {        RowBox[{"x6", "->",
         RowBox[{"Data", "[",
          RowBox[{"[",
           RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
" t  N% e8 [! ~' q! p        RowBox[{"x7", "->",
6 x8 h9 j% n6 X         RowBox[{"Data", "[",
- e# \/ y' X" d          RowBox[{"[",
/ {6 N9 h8 A' B           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
6 G, b/ ~1 ~% Z3 ^        RowBox[{"x8", "->",
/ j' Y: Z  Y4 S8 P6 t2 U7 _- B         RowBox[{"Data", "[",
          RowBox[{"[",
           RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
1 F; \& ^4 t7 ~& ?8 a        RowBox[{"x9", "->",
         RowBox[{"Data", "[",
          RowBox[{"[",
           RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
- ]) ?0 r% D; V6 c2 v  c! r" ~6 @8 x  "\[IndentingNewLine]", "]"}]], "Input",
CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {
  3.577925286140625*^9, 3.577925306765625*^9}, {3.577958922517948*^9,
  3.577958922549148*^9}}],

Cell[CellGroupData[{
( k( x2 v. |; }5 Q: l
Cell[BoxData["y1fit"], "Input",
( S  H. A7 Q' d4 r CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
  3.577925040484375*^9, 3.5779250440625*^9}}],

Cell[BoxData[
RowBox[{"{",
% ?4 O# c& x. r8 j  RowBox[{
& P- h# E3 T8 K" l1 P! I  "0.43193416525930517`", ",", "0.4501634853493982`", ",",
   "0.33336034768525247`", ",", "0.4418609896858925`", ",",
, t  u7 ^" ^6 W  q  `# s. |   "0.41030378932283024`", ",", "0.516814798191575`", ",",
   "0.4476631213729994`", ",", "0.3016552978696669`", ",",
   "0.378122167437847`", ",", "0.020339844919720733`", ",",
   "0.018745375782087376`", ",", "0.2919925992695025`", ",",
   "0.2649067959681263`", ",", "0.16343444284525593`", ",",
0 r2 q; m! X0 E& U0 d   "0.4182466778551563`", ",", "0.27347752211364934`", ",",
   "0.38554057386385654`", ",", "0.35253160453718047`", ",",
4 D8 s: f, s- C  K. ^/ I+ ]% o  h   "0.2054745841100774`", ",", "0.45504377112716676`", ",",
9 Z% }- m- ^6 ~' h% ~7 S   "0.1598805094678612`", ",", "0.18662509982279485`", ",",
$ z, ^  \) Z5 F4 x# ?2 |* z   "0.10684797493248213`", ",", "0.013349212673286828`", ",",
   "0.08215836003004297`", ",", "0.2979041599362813`", ",",
. F2 l7 \% G+ `) Y& X+ O  i" p   "0.05995976512343641`", ",", "0.3884793499104568`", ",",
   "0.5361889337034293`"}], "}"}]], "Output",
5 w- r: p9 |1 e& g CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
5 e. I* _% f/ d  3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9,
  3.5779621416934247`*^9, 3.578012355546875*^9}]
}, Open  ]],
% I' {# e' A, ]# i; U% k
Cell[CellGroupData[{
& B  F% A. q2 H; ~- P! r) \
Cell[BoxData[
RowBox[{"y1fit", "=",
' p  d8 I( i; f0 ]0 J4 g7 V! e* _  RowBox[{"{",
0 L9 {" U9 E, K4 e9 G   RowBox[{
   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; f( A  W2 E, h4 [. n    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
) J8 q7 N2 t( U1 `& }    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
) C  i  {, g9 y& K# U2 _  e( A) g    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
5 `4 ?9 s; c* z  U: F: O    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
! n9 n. N5 e) t0 m9 S6 H% }    "0.4319341652593058", ",", "0.4319341652593058`", ",",
$ i3 V" b3 q/ @: N9 l) ~    "0.45016348534939865`", ",", "0.3333603476852527`", ",",
, v8 I3 O1 E% G# s1 q    "0.44186098968589294`", ",", "0.41030378932283074`", ",",
    "0.5168147981915754`", ",", "0.4476631213729997`", ",",
    "0.30165529786966755`", ",", "0.3781221674378473`", ",",
' f) _! ]# R4 k    "0.020339844919720775`", ",", "0.018745375782087393`", ",",
* s; ^0 F" Y8 p$ p3 @    "0.2919925992695026`", ",", "0.26490679596812655`", ",",
1 E: ~/ {2 O( K# S    "0.16343444284525593`", ",", "0.4182466778551567`", ",",
. [6 \, j" _- p* O    "0.27347752211364945`", ",", "0.385540573863857`", ",",
% ~7 K5 {4 p' G7 a9 S" ^    "0.3525316045371807`", ",", "0.20547458411007796`", ",",
    "0.4550437711271672`", ",", "0.1598805094678611`", ",",
' S/ k# Z4 e3 O' P1 Y    "0.18662509982279502`", ",", "0.10684797493248224`", ",",
    "0.013349212673286806`", ",", "0.08215836003004302`", ",",
) K: ~/ ^2 ?4 t1 u6 D    "0.2979041599362817`", ",", "0.05995976512343637`", ",",
( F7 ~" _! b0 L% J1 I# `+ F    "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",
CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {
; X* i! u) y$ F$ u  3.5779621548286476`*^9, 3.5779621618642597`*^9}}],
5 H6 P1 Z& h, L$ {6 r
Cell[BoxData[
RowBox[{"{",
) ]/ C# O6 `4 i& h  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; G( ^+ v+ u" u3 T: K4 \0 o; R5 J& j   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
' D! y% D- d% b$ B/ p' I: F    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
0 ]( n. a; J, C# R1 U   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
1 L, \, b; {' P9 w   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
* A9 S3 V9 r  N* F2 ^   "0.4319341652593058`", ",", "0.4319341652593058`", ",",
: X: i$ _* Y/ o( H1 ]; A! h   "0.45016348534939865`", ",", "0.3333603476852527`", ",",
   "0.44186098968589294`", ",", "0.41030378932283074`", ",",
   "0.5168147981915754`", ",", "0.4476631213729997`", ",",
   "0.30165529786966755`", ",", "0.3781221674378473`", ",",
   "0.020339844919720775`", ",", "0.018745375782087393`", ",",
   "0.2919925992695026`", ",", "0.26490679596812655`", ",",
   "0.16343444284525593`", ",", "0.4182466778551567`", ",",
   "0.27347752211364945`", ",", "0.385540573863857`", ",",
: R: n: y) N. R. F   "0.3525316045371807`", ",", "0.20547458411007796`", ",",
3 c( x8 M  A4 Z. B4 s   "0.4550437711271672`", ",", "0.1598805094678611`", ",",
1 u3 E) I& x2 D/ N   "0.18662509982279502`", ",", "0.10684797493248224`", ",",
) B5 l& L' [1 u- S3 I4 H   "0.013349212673286806`", ",", "0.08215836003004302`", ",",
1 H& k9 q) @* p$ Q8 {   "0.2979041599362817`", ",", "0.05995976512343637`", ",",
! ]; G" x" c1 |9 o: v   "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",
CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9,
  3.5780123569375*^9}]
& r& r. r0 [: z" J: S. L6 [5 L, G}, Open  ]],
# F  ^/ b8 `; ^% I9 h
1 _& {- K9 n3 G2 M: w6 f) m. HCell[CellGroupData[{
( d% X" C! q! w9 I) i
Cell[BoxData[
RowBox[{"y10", "=",
4 [) S: O4 L4 |( r) Z2 l: ^  RowBox[{"Table", "[",
* C3 J4 s2 J. W8 I) K( \2 [% e( v   RowBox[{"x", ",",
8 i9 \$ x" i0 z% G    RowBox[{"{",
     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
& q- |" F. Z! Y# c: [0 f CellChangeTimes->{3.5779253628125*^9}],

9 ^& c. y) r, t% a" s) N# Z' q' c# iCell[BoxData[
RowBox[{"{",
  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, e9 e8 M2 A7 e/ |   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
# s2 D! S/ c& f- h  U. E   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
6 G1 ^+ R' E. T0 Y1 H$ l   ",", "29"}], "}"}]], "Output",
  t! N0 g7 C& b! `9 }6 R& H( { CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9,
  3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]
}, Open  ]],

Cell[BoxData[
+ D5 t5 K* P6 n' @5 e8 K$ y  L RowBox[{"For", "[",
  RowBox[{
   RowBox[{"i", "=", "61"}], ",",
! h1 d: K2 y- a5 A* M   RowBox[{"i", "\[LessEqual]", "89"}], ",",
   RowBox[{"i", "++"}], ",",
% |" O" @0 B6 r$ f   RowBox[{
' T- t/ z$ v5 r2 m. R" R    RowBox[{"y10", "[",
     RowBox[{"[",
4 i+ H+ E& h% r  X+ t  s      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
7 O: y0 N8 y/ z' p% R; c$ b3 q    RowBox[{"Data", "[",
* c. E6 j! w+ a0 W     RowBox[{"[",
      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
. Q  P+ G% K1 n9 c1 ]$ y   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
3 [% v' \8 e$ C+ Y+ u   3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9},
* L* J" D2 @: Z) w7 E9 h   3.577958922549148*^9}],
- n9 w6 _* F1 D$ G6 U
! c3 v, c: T8 R- n/ nCell[CellGroupData[{

" u& V& e6 g3 L) \Cell[BoxData["y10"], "Input",
5 [. ^- R  z5 M% U( i CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
$ Z: q$ J; k9 h8 c& g! n   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],
9 b% b( g7 x( [9 i
Cell[BoxData[
1 B5 o: V* D7 ~# Z RowBox[{"{",
6 v0 |6 ^3 d  p( P  RowBox[{
7 U! y, y; f& X3 E  "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",",
  ^6 t( R( R, A! u; Q' @# w( r: W   "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",",
0 |8 ~# x* J, a4 h0 K   "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
   "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
( P5 w; a% h; _1 d1 o' n   "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
0 a# l0 C, g' |3 }9 T# o   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
2 \& X  w& y7 [/ _: O) t   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
2 ?* S4 T2 [) _+ \# J' w* u# G! G$ A   "0.694935`"}], "}"}]], "Output",
CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
2 s" O* [4 k& o$ s% R# @  3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9,
0 }9 O$ s# O+ Q8 C( T# C  3.5779621736734805`*^9, 3.57801236071875*^9}]
}, Open  ]],
2 R) J- Z' G$ \; F1 T) j
Cell[CellGroupData[{

Cell[BoxData[
RowBox[{"y10", "=",
; G: t+ |- x+ b  RowBox[{"{",
) I; q: c0 F# I/ b   RowBox[{
4 C8 _2 s' ]+ j: o8 Z9 v   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 B3 b$ N/ D6 u$ m    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
$ l' f  _7 A: U+ F7 n3 B3 z    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
. [- x8 ~( r/ v2 L8 ~& B    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",",
5 ~9 t/ G8 k, r. q9 J( S' G    "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",",
. V: K/ o* O4 f; g    "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",",
' {, U5 j; p/ s- z. y    "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",",
    "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",",
9 [' G3 n/ k# z+ y+ X. \, Y  G    "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",",
) m* T+ j) K- @6 u7 ?( A    "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",",
. g) K" e+ ~# N' C' w7 ?# t1 A    "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",
2 j+ g: x$ L- h" T" l/ G7 K3 [1 H CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],
4 s2 a& I& Z1 L
0 l2 a2 i- o3 B/ @" ~* D( }% v+ gCell[BoxData[
3 i, t9 n, ]. Q" V% S RowBox[{"{",
. O0 K4 w+ |8 v- `9 `8 ^6 `  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 ~- [2 w* L+ \1 r. d   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
* c& Z. b0 N5 I& r   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
9 |2 r+ ]( u% w! k   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
- A9 Y( V1 j9 t+ P" J$ T6 M   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`",
   ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`",
   ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`",
/ q6 P4 o1 O& o$ g6 [# `3 f4 v   ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
    "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
3 [7 X4 S( e) U% R! r   "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
5 L% B% J: F' Q0 Z6 c0 l, l- }1 {$ K   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
7 z+ h/ k1 M0 V/ m; D   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
   "0.694935`"}], "}"}]], "Output",
CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9,
  3.578012361734375*^9}]
4 K$ r8 G: ?2 o* I}, Open  ]],
; Y9 p0 N5 L4 ^+ {- n0 V' z( h
7 l; l- \' c$ O- E6 q7 X+ lCell[CellGroupData[{
! ?- A/ F! W) J) E/ c0 z3 e
Cell[BoxData[
; E) R/ f) E9 `1 z RowBox[{"p1a", "=",
  RowBox[{"ListPlot", "[",
   RowBox[{"y1fit", ",",
5 V. V+ K3 Q. R# q5 I. _, g    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    RowBox[{"PlotStyle", "\[Rule]",
; y2 ^9 }) O  A0 M& x     RowBox[{"{",
, G9 P$ |7 @! F7 T3 P, B+ v      RowBox[{"RGBColor", "[",
       RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
+ Z, W% b  K1 W! r/ V* ]- W& |    RowBox[{"PlotRange", "\[Rule]",
     RowBox[{"{",
      RowBox[{
       RowBox[{"{",
' _* d0 ~, s. _2 s        RowBox[{"61", ",", "89"}], "}"}], ",",
+ w& G- x. U' C) i& t8 r       RowBox[{"{",
        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
3 i# g+ n$ ]& A* Y0 c    RowBox[{"AxesOrigin", "\[Rule]",
     RowBox[{"{",
' @* W, p; G. \( y0 {) V; \      RowBox[{"61", ",", "0"}], "}"}]}], ",",
5 K, d( E) n, R: y8 `    RowBox[{"Frame", "\[Rule]", "True"}], ",",
5 y6 G1 u! ^- f8 A1 u; h. U    RowBox[{"FrameLabel", "\[Rule]",
7 r3 V' t. F! Z     RowBox[{"{",
      RowBox[{
5 o7 Q; \$ o2 `; q* A# o      "\"\<\:7089\:6b21\>\"", ",",
       "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
, o( @9 ?$ j" U# v6 T  F, z: h\:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",
CellChangeTimes->{
  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
2 `4 ^* W3 A; P+ h: `   3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9,
   3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {
   3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],

/ `# R" v: i" T9 xCell[BoxData[
% C! C; u- i+ T8 Z! P. Y" o GraphicsBox[{{}, {},
   {RGBColor[0, 0, 0], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
" R( y. f, V5 ?5 R1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
8 W+ m( h+ f( w# }! d% E% \yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
+ m7 _' }: u6 Z7 _wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
8 ~8 l" N5 j" e/ ?Y6nGQ3sAieueIw==
     "]]}},
. U! @& G2 w/ O' B* L$ }0 A  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
# X' f  q9 n7 U2 x9 p  AxesOrigin->{61, 0},
8 H; V( D3 ]$ n. t' H0 U  Frame->True,
  FrameLabel->{
    FormBox["\"\:7089\:6b21\"", TraditionalForm],
! _) u* g  T& y7 u    FormBox[
    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
! B2 W: E/ R; C1 N\:ff09\"", TraditionalForm]},
# B" _2 K) x+ ^' |# g1 i5 @  PlotRange->{{61, 89}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
/ m" O# w! V# y CellChangeTimes->{
3 \/ `! c' J$ x. {( y1 q  3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9,
6 _0 }9 V, c) q7 R5 S8 v   3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9,
* z; ^% b8 N" f6 \3 e; z   3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9},
/ N4 u  i" O/ D3 X, N   3.577962187510705*^9, 3.578012396921875*^9}]
}, Open  ]],
. a& I6 `7 J0 a
Cell[CellGroupData[{

/ R  L, L; A. [0 _8 GCell[BoxData[
RowBox[{"p1b", "=",
  RowBox[{"ListPlot", "[",
   RowBox[{"y10", ",",
    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
# z9 T4 h$ L% }+ C    RowBox[{"PlotStyle", "\[Rule]",
     RowBox[{"{",
      RowBox[{
2 N% _( }) Z2 A       RowBox[{"RGBColor", "[",
        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    ",",
    RowBox[{"PlotRange", "\[Rule]",
7 N  A) {2 x* ]- C- l6 g     RowBox[{"{",
8 f' P  k3 S+ M9 G% E  p, L1 \      RowBox[{
, a, M: i8 E5 d: \, r       RowBox[{"{",
8 ~5 G  H! Q0 G  l" x5 }        RowBox[{"61", ",", "89"}], "}"}], ",",
       RowBox[{"{",
        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    RowBox[{"AxesOrigin", "\[Rule]",
4 E4 |4 ?! U. u3 Y9 y" c     RowBox[{"{",
. w4 c# G& J: r0 T      RowBox[{"61", ",", "0"}], "}"}]}], ",",
    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9,
  3.5779597764166365`*^9, 3.578012409265625*^9}],

Cell[BoxData[
5 k+ J& [6 \' T( g( G" v6 s GraphicsBox[{{}, {},
" \2 [& X  S" w   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
* p) {* P4 I- d2 F1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
2 d& ?0 Q4 ?( _" }  c0 [GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
9 O6 J1 P$ U# v7 I4 f- W7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
0 o# O6 {$ F: ~' u9 v, w  V( BrQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
( K& U& ~4 G* w$ ~4 v8 MvA==
     "]]}},
4 z! l9 q; X! t7 ], T! h7 C5 c5 |. w! I  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
2 T* [" l8 `+ r  Axes->True,
  AxesOrigin->{61, 0},
  Frame->True,
  PlotRange->{{61, 89}, {0, 1}},
  PlotRangeClipping->True,
# D/ f& B; [2 f/ p/ ~: V; O  PlotRangePadding->{Automatic, Automatic}]], "Output",
CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
5 w' B7 h" E* r8 ]' x' v2 X# b  3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9,
  3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]
- k6 w. m; y' x' a7 b0 ]; Y& Z0 p}, Open  ]],

Cell[CellGroupData[{
, ^4 J" E6 ?/ @$ j  {* _
/ V2 G) E! O& ~$ e2 X$ m( QCell[BoxData[
RowBox[{"Show", "[",
  RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],
/ g' N8 ~" d. N; S7 g7 a
Cell[BoxData[
GraphicsBox[{{{}, {},
( b9 e" S4 _" u. ~) }    {RGBColor[0, 0, 0], LineBox[CompressedData["
5 |) `. i' T8 t0 z, g1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
6 P3 W( s- R9 B% i% d( c8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
- E- k8 V  T. m) I1 O1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
Y6nGQ3sAieueIw==
0 U' i: P2 c1 y$ @      "]]}}, {{}, {},
, S) x4 W+ T3 a  C) R- `    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
! x  ?# S; S: a4 [3 b/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
; Q+ c$ [  c7 w& D/ fGwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
  v9 W7 k4 e: I5 D5 K" E7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
9 O* t1 k# c. a1 u$ \" U6 M% ?rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
, [! J6 O+ g# r) n$ ~3 D, d# jvA==
      "]]}}},
! q2 b8 c3 j0 {7 x* y0 c  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
( [, J6 C9 s, a8 \% }7 W  Axes->True,
  AxesOrigin->{61, 0},
" S& a$ y) x1 }2 ?8 Z  Frame->True,
- @2 U5 d* Z: y1 j" I  FrameLabel->{
: q, _! q6 G, [* C" N1 ^2 O$ S    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    FormBox[
    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
9 A* W( G% R* G- o7 b1 u\:ff09\"", TraditionalForm]},
  PlotRange->{{61, 89}, {0, 1}},
  PlotRangeClipping->True,
- X2 F8 m! H; c* g( L6 s6 r  PlotRangePadding->{Automatic, Automatic}]], "Output",
CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]
- M3 Q: _6 j6 a! f}, Open  ]],
7 I3 ~, n- U( d& g, @+ j% n
Cell[BoxData["\:62df\:5408wi1"], "Input",
CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9},
   3.577959662349238*^9}],
5 J+ `9 q$ u) z6 P% _
Cell[CellGroupData[{

, t; u+ U! ?: h- @Cell[BoxData[
8 m1 N% G, P9 o RowBox[{"y1b", "=",
8 b/ Q+ y  x$ r2 t" ~, o+ D( F  RowBox[{"Table", "[",
% X9 e' g3 E, S   RowBox[{"x", ",",
    RowBox[{"{",
     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
- i( @+ Y6 w4 Z1 t3 J: i9 M8 e CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
   3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],
4 H+ A' l* }. e1 L' o
Cell[BoxData[
' i1 @. }* F# [0 w RowBox[{"{",
  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
6 O" Q& ]( i# }4 N) o! v    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
   "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", ",",
! x' v( Y3 v& v; s- c   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
9 f2 F3 l+ {6 i# k" v5 Y9 a) d   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
  "}"}]], "Output",
CellChangeTimes->{
  3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9},
; B' S4 \- l# n* w/ Z0 b   3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9,
' M" M/ |! \& u   3.578012438953125*^9}]
}, Open  ]],

2 N2 {* r# V4 R6 B! PCell[CellGroupData[{
  M- T" d2 I$ a% c' D* S8 b
Cell[BoxData[
RowBox[{"Data", "[",
  RowBox[{"[",
   RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",
% M2 V: J3 V8 T CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
   3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {
/ _, E& c7 k% E: t   3.577959014090108*^9, 3.577959016040111*^9}}],
% N/ |: N: I) P4 z! X% B* P
Cell[BoxData["0.492958`"], "Output",
  s" P. x* R7 T" y( } CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
3 `5 M4 w% ?, }; O9 b   3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9,
( n, O& y# [; D# V0 p, w) |   3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]
}, Open  ]],

+ u/ v. p: \" eCell[BoxData[
RowBox[{"For", "[",
8 C" c4 J% l" r5 L  P  RowBox[{
   RowBox[{"i", "=", "1"}], ",",
8 P! S& c2 {+ o3 o% _. |$ ~   RowBox[{"i", "\[LessEqual]", "60"}], ",",
( `, z. ~) g- n  B  v  g   RowBox[{"i", "++"}], ",",
9 ?  W7 _6 S  P# ^2 a   RowBox[{
    RowBox[{"y1b", "[",
     RowBox[{"[", "i", "]"}], "]"}], "=",
    RowBox[{"Data", "[",
' Z, C& O. J2 {+ j2 L' f* C     RowBox[{"[",
2 U$ a" Q8 i& |% W/ T      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
1 o% L# s; I% g* F0 G CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
1 q% \$ R$ |# D6 q5 v/ n& l! B) |) S   3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {
/ W& h% K- T" t: j/ A" d   3.57795902089172*^9, 3.5779590227793226`*^9}}],

Cell[CellGroupData[{

2 @3 e! S" ~; {9 R" }Cell[BoxData["y1b"], "Input",
CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9},
   3.577958484172784*^9}],

Cell[BoxData[
1 X8 R( D0 H7 e" e2 m RowBox[{"{",
  RowBox[{
  "0.873239`", ",", "0.464789`", ",", "0.492958`", ",", "0.774648`", ",",
1 @( ]4 w# X: m* Z1 e5 F4 ~   "0.380282`", ",", "0.647887`", ",", "0.56338`", ",", "0.295775`", ",",
   "0.338028`", ",", "0.211268`", ",", "0.690141`", ",", "0.43662`", ",",
& i" Y) B/ w8 a6 {/ H. a/ q   "0.`", ",", "0.267606`", ",", "0.211268`", ",", "0.408451`", ",",
( Q3 ?2 g  k$ W' p$ x0 @8 Z5 N   "0.478873`", ",", "0.380282`", ",", "0.211268`", ",", "0.43662`", ",",
   "0.478873`", ",", "0.295775`", ",", "0.028169`", ",", "0.43662`", ",",
. y8 n' g. Q; }0 Z   "0.394366`", ",", "0.295775`", ",", "0.830986`", ",", "0.169014`", ",",
. c" A7 ^4 O: S9 b   "0.366197`", ",", "0.309859`", ",", "0.352113`", ",", "0.309859`", ",",
' k/ _0 v; t: F: }- z% K; }0 n   "0.774648`", ",", "0.422535`", ",", "0.887324`", ",", "0.887324`", ",",
   "0.859155`", ",", "0.239437`", ",", "0.295775`", ",", "0.746479`", ",",
$ @. E+ `1 B- `, U! `3 [   "1.`", ",", "0.549296`", ",", "0.366197`", ",", "0.549296`", ",",
   "0.577465`", ",", "0.690141`", ",", "0.71831`", ",", "0.521127`", ",",
4 n, j" v4 R. k8 Z) ~' k& H. Y   "0.929577`", ",", "0.521127`", ",", "0.338028`", ",", "0.380282`", ",",
  r/ C5 C$ ?9 a+ ?$ y% S( b$ n' o1 q+ o   "0.676056`", ",", "0.591549`", ",", "0.464789`", ",", "0.295775`", ",",
- C9 S" E; t5 r$ ]) L. b% S. F. q   "0.380282`", ",", "0.211268`", ",", "0.253521`", ",", "0.28169`"}],
  "}"}]], "Output",
) f, F% f0 T3 O6 \0 ? CellChangeTimes->{3.57792293246875*^9, 3.5779582549771843`*^9,
* j- C, @; _# Z  w  3.577958485420786*^9, 3.577959026460929*^9, 3.5779622288195767`*^9,
  3.57801244275*^9}]
" C# ]( @+ @* P0 S5 N/ h- d- z& ]; r}, Open  ]],
% [4 N1 r3 i2 G5 L+ S5 }. R
Cell[CellGroupData[{
; v% C% o1 f2 d  ~- o7 n  ]  b
Cell[BoxData[
  E  }& k3 O, R" J) q RowBox[{"m60n21", "=",
  RowBox[{"Table", "[",
# _5 o7 g: h; @% X& A   RowBox[{
    RowBox[{"Table", "[",
     RowBox[{"y", ",",
) f+ I( b$ W" j, Y$ E      RowBox[{"{",
+ b" d7 p8 F& @$ N# F       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
6 ?; I$ C! Q8 ]4 a# X! H    RowBox[{"{",
: Y7 m9 r& u/ K8 A  ^8 t     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
  3.577924052828125*^9, 3.577924101671875*^9}, {3.577962237961193*^9,
; H9 q( D3 u3 m  3.577962240082796*^9}}],

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

Cell[BoxData[
  K1 D* D/ J: h+ j+ I RowBox[{"w1b", "=",
: n8 l% O; u. t7 B- q9 `6 V* }  RowBox[{"LeastSquares", "[",
   RowBox[{"m60n21", ",", "y1b"}], "]"}]}]], "Input",
CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {
  3.577924662765625*^9, 3.57792466596875*^9}, {3.5779582865360394`*^9,
# I1 [, |$ i% I  3.5779582963172565`*^9}, {3.5779622900808835`*^9, 3.577962290377284*^9}}],

8 {- J. a$ a* C7 d4 k! cCell[BoxData[
4 b7 t) m+ R$ ~7 |8 F* [ RowBox[{"{",
  RowBox[{
  "0.48228184971363947`", ",", "0.16041393254115022`", ",",
   "0.3741982811661129`", ",",
4 N7 d; t2 y5 U! K3 L; M- v   RowBox[{"-", "0.12620581913715245`"}], ",", "0.28831860112966734`", ",",
   RowBox[{"-", "0.2282993884666894`"}], ",", "0.3207174990295839`", ",",
5 M+ f6 J3 Q5 @, A5 y0 a   RowBox[{"-", "0.4666313851213302`"}], ",", "0.27551257162880227`", ",",
% R( j! P' O( j1 ^% n   RowBox[{"-", "0.025873988843993667`"}], ",",
0 V2 x% b" P( E, F   RowBox[{"-", "0.1339854044819916`"}], ",",
6 n3 ?+ z! h* c5 K* z, E   RowBox[{"-", "0.15852708848338315`"}], ",", "0.3129687276967983`", ",",
   "0.45723850991134063`", ",", "0.2954923840077215`", ",",
   "0.9125798890455868`", ",", "0.21159052285983104`", ",",
   "0.5575503376854456`", ",", "0.6019775648968265`", ",",
8 t1 L7 e9 V" m# ^( p   "0.2361524780938108`", ",", "0.12782130225993923`"}], "}"}]], "Output",
CellChangeTimes->{
  3.577924621953125*^9, 3.5779246688125*^9, {3.5779582894220443`*^9,
   3.5779582992968616`*^9}, 3.5779584995700107`*^9, 3.577959040157753*^9,
   3.5779622919996867`*^9, 3.578012447734375*^9}]
) ^* m1 N6 ~8 C}, Open  ]],

' ?$ k9 o1 h* j$ _- s( U# A) JCell[CellGroupData[{

7 N" y4 L( H  U0 w; U4 WCell[BoxData[
/ U: f/ v$ ^7 `2 {( y  A RowBox[{"y2", "=",
  RowBox[{"w1b", ".",
   RowBox[{"{",
    RowBox[{
    "u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7",
/ n1 \2 x6 L! n2 ?% V# v. p     ",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13",
     ",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19",
     ",", "u20", ",", "u21"}], "}"}]}]}]], "Input",
CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {
! z% G9 Y0 N$ D# G( e   3.577924897078125*^9, 3.57792491596875*^9}, {3.5779583101856804`*^9,
   3.5779583178920937`*^9}, 3.5779623163513293`*^9}],
& J$ r; @3 p" ^# F
! V% u' D% W7 [0 Q/ pCell[BoxData[
! Y- [7 W( @; b+ g9 Z7 g  O RowBox[{
/ i9 c0 |/ L( r  Y  RowBox[{"0.9125798890455868`", " ",
# c) d* D$ W" M5 Z+ R   SuperscriptBox["\[ExponentialE]",
: t6 o3 P8 ^. X; k) F, Z    RowBox[{"3.141592653589793`", " ",
( ]' s. o) f5 m( \' X     RowBox[{"(",
) U& s1 K- b: h5 m      RowBox[{
$ u& ?" n- c$ V' S7 b2 T       RowBox[{"-",
        SuperscriptBox[
) n( w8 R2 A' Y2 M         RowBox[{"(",
          RowBox[{
6 x% {8 x9 ?& u           RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
8 I: A1 g/ [1 f% U! b       SuperscriptBox[
& Y9 }: F- a2 A) W1 V5 b  z        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
       SuperscriptBox[
' E4 c& |9 m# c, L% P. o$ I        RowBox[{"(",
2 _9 j% |( V( z+ {6 C4 D! w         RowBox[{
          RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
% D1 D) y  p5 Q% F* Q4 O2 R; l          RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
* J' g  k1 A3 n# |) p       SuperscriptBox[
        RowBox[{"(",
2 e) D7 A: t" N/ j' z         RowBox[{
          RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
! ^( I/ x: Z& c: Z5 z; M; d, v        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
2 p2 B" Q- E' u+ M  G3 r3 D/ w       SuperscriptBox[
        RowBox[{"(",
' O' i8 Y) Q5 G4 Z  A3 H5 H( r         RowBox[{
- U4 I7 ~/ i( P4 ~          RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
2 e3 o6 Z. P; @* {$ c3 ?       SuperscriptBox[
6 F: K# D/ \/ K( u: c/ l        RowBox[{"(",
0 V: l5 G' j; e3 m  T- B         RowBox[{
          RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
4 K/ C% E* @6 {1 u  RowBox[{"0.28831860112966734`", " ",
   SuperscriptBox["\[ExponentialE]",
( I* u; p: `/ g# x    RowBox[{"3.141592653589793`", " ",
! i# U/ X" n9 e% y4 ^     RowBox[{"(",
      RowBox[{
       RowBox[{"-",
        SuperscriptBox[
/ h5 I5 V- ~; E' I9 p& f  R3 X         RowBox[{"(",
          RowBox[{
           RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
/ U# r5 K( P7 `* H! ~) C          RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
       SuperscriptBox[
! r1 I, a' c' U, l, _/ c        RowBox[{"(",
         RowBox[{
; j. T4 [/ T$ u: l8 F, k$ r4 U- w          RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
( r% N; L: ?; Z) y% O6 F       SuperscriptBox[
        RowBox[{"(",
6 j  S' @, l9 K% X4 s, {' f8 C         RowBox[{
          RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
( ]% I0 C5 p1 ]% t  Y       SuperscriptBox[
8 {' P) h: m3 f2 V( Z' L2 i        RowBox[{"(",
6 d1 a4 Z1 B; O! B         RowBox[{
          RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
5 T( i  h! h  ]* j% d8 }4 w       SuperscriptBox[
        RowBox[{"(",
1 X8 F2 c6 y0 A; k         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
) P$ ~3 @8 ?! y/ R         RowBox[{
          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
, s/ B6 n8 G( A. n$ w  y! X& G       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
1 D8 Z8 Y0 p9 _- y0 W6 o         RowBox[{
          RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
5 Q/ _' X- j' ^/ w  l: e) o  "+",
) w. Q% O6 k# s) c* Y5 {0 K7 q9 t* q  RowBox[{"0.21159052285983104`", " ",
3 Z; s2 d) _" J9 N3 i1 C" b7 k   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.141592653589793`", " ",
0 e. c3 w: [/ m/ B" k     RowBox[{"(",
      RowBox[{
2 b: {! z0 z8 D       RowBox[{"-",
4 Y3 N" _) I  M# L6 q+ c        SuperscriptBox[
         RowBox[{"(",
7 ]# I" L5 J8 k( H; S! S          RowBox[{
* t8 L/ K! Y1 h1 H           RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
7 Y( I: s3 X9 |# v3 K5 Q       SuperscriptBox[
/ S8 n. f& W0 K- H: r% V        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
) v+ s: v+ c. h$ H' d' |2 s/ v9 m8 C          RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
! u1 ]5 [# ~+ c. V* v        RowBox[{"(",
/ l: T) I( [8 u+ B. K         RowBox[{
. @" d4 A# g) F6 R% }! P          RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
/ g) W: X6 z% a$ H, A4 p- ]       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
) e% K9 B+ Y# A. h/ D6 A0 x3 H5 ?       SuperscriptBox[
% X% i$ Y: y# ~        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
3 y# Q# U$ L* i- A5 c( j       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
/ \6 r! g8 x$ P7 G$ E* g       SuperscriptBox[
        RowBox[{"(",
5 w  ~7 S9 K$ n' r         RowBox[{
7 X7 J* L3 D9 ?          RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
  }$ T" `6 L& t& u- N. ^  "-",
  RowBox[{"0.2282993884666894`", " ",
! |$ N2 {$ `, X   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.141592653589793`", " ",
     RowBox[{"(",
& E; z' X$ H# a, o) k      RowBox[{
       RowBox[{"-",
        SuperscriptBox[
         RowBox[{"(",
          RowBox[{
           RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
       SuperscriptBox[
& V, G# i. n, |% F5 S% S        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
1 \% T# d) ^1 E$ y         RowBox[{
8 F- A8 b' g- p) ^0 p          RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
8 C1 Q) j9 [/ ?' o9 o/ Z       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
5 ]) ?, Y: m$ e" N3 g: z  ^, H* W          RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
# j/ O- [: |# L5 V( H- \6 ^       SuperscriptBox[
        RowBox[{"(",
% K, I/ |0 b( V. ^, y7 A         RowBox[{
( ~9 |: k5 K, ~1 r; J/ \          RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
5 G( r2 ]6 l, D8 E7 `0 \: C% r       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
3 j5 }& p9 A- m8 \2 P$ f( {0 s( _. g          RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox[
1 q; P* C3 x$ p        RowBox[{"(",
* f* o! G, X; E' M# H5 C4 I         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
; u/ G, T# K0 r3 B0 q) ~5 ]       SuperscriptBox[
8 G# H' d/ K  s        RowBox[{"(",
& Z  H/ o" o! e/ _! Q         RowBox[{
          RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
  "+",
  RowBox[{"0.27551257162880227`", " ",
4 [$ B9 f6 J2 y7 p+ R   SuperscriptBox["\[ExponentialE]",
' |5 h, S7 ^& {) s- \: J  z    RowBox[{"3.141592653589793`", " ",
# a  X* b& _( k& ^1 A( d# d. x0 c     RowBox[{"(",
# S0 D( O8 G' N+ ~- U" A5 e1 J      RowBox[{
0 ^) }! C6 b3 C' I4 _/ C       RowBox[{"-",
        SuperscriptBox[
         RowBox[{"(",
          RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
0 f" A) W5 |) q  r0 Y       SuperscriptBox[
. G. ^9 d. E7 w) Z        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
5 w4 p! g( x7 {9 b# w        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
# G: Z4 Y) r0 V9 @       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
0 s+ `; V9 D3 q& h+ Q; [          RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
4 f7 ?$ M) J! c5 K/ H/ O2 b       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
6 s2 S# L& a5 E  x- ?       SuperscriptBox[
$ ^: P8 [* A* ~( M7 m+ k  S        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
* w8 E. n: [. V( |       SuperscriptBox[
" `- F# A" Q1 ^3 C% y        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
4 A- Y* Q1 h8 L; Q       SuperscriptBox[
* t# |9 E8 L# d# h/ Q% L        RowBox[{"(",
         RowBox[{
1 n2 V. D% R8 F' S1 J, c: q0 T# v          RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
  "-",
/ a( T0 j( D& j: n5 q* e- u6 `3 h  RowBox[{"0.12620581913715245`", " ",
   SuperscriptBox["\[ExponentialE]",
; W0 {* N. q- u$ k    RowBox[{"3.141592653589793`", " ",
9 |- v- ^2 p9 ^5 E     RowBox[{"(",
# |+ \7 `# m7 \+ E      RowBox[{
+ P- a# a2 f9 t0 J$ [       RowBox[{"-",
        SuperscriptBox[
         RowBox[{"(",
          RowBox[{
* h7 y. S- `& O% z/ R- N3 g+ l           RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
       SuperscriptBox[
7 ~1 L; U" Z# m4 x: r        RowBox[{"(",
         RowBox[{
9 n% l  n# c! \7 o1 O9 L8 k          RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
       SuperscriptBox[
7 H* }3 z: |# p. z7 D        RowBox[{"(",
         RowBox[{
" \) y: o% O3 Q3 \% G( ?          RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
4 S9 w7 P% l% z* p, [  H9 H5 A* ?/ m) M        RowBox[{"(",
6 U2 I6 D# O! U: Z( s9 C/ n         RowBox[{
          RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
8 ]- z0 c" K' e$ X# @) m         RowBox[{
          RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
" o! ?$ J3 h, I/ L0 ~' I/ |8 I       SuperscriptBox[
        RowBox[{"(",
6 {! {$ C/ ^3 e% ?: f% N. i         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
( M2 }9 N; z  E       SuperscriptBox[
+ |& U5 Z; p: ~% U        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
0 S: Q* Z- a/ U4 G7 `/ a  "+",
  RowBox[{"0.12782130225993923`", " ",
) l' B$ `3 E: i7 s5 p   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.141592653589793`", " ",
     RowBox[{"(",
) G  i% g" x* c9 \: |9 q      RowBox[{
       RowBox[{"-",
8 |) Y$ o* h0 E' l5 u* B7 \        SuperscriptBox[
  n3 t& \3 S; J' z         RowBox[{"(",
          RowBox[{
           RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
       SuperscriptBox[
        RowBox[{"(",
/ G' m  Y% I1 |         RowBox[{
          RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
) `, u+ L, q( I       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
+ I- ?$ _- K5 K: h) l          RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
9 l8 p5 A! h/ t       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
% X3 U' h' L0 h' w. n9 b0 I6 I* ^          RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
7 z0 N- V' A8 t+ h2 u: x7 X6 _       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
7 T8 m. P  A! Q. p" I        RowBox[{"(",
) Q" s, |' \2 c         RowBox[{
" J$ K, o* L: }! L          RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox[
  @, R  @* i. _# g  G- w        RowBox[{"(",
* k& {6 m; G/ e+ K         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
, I* `/ ]* V' n4 n2 n6 L/ l! D7 U       SuperscriptBox[
$ K% m$ w. a! a2 W+ i9 ~        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
  "+",
  RowBox[{"0.2361524780938108`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.141592653589793`", " ",
0 i, A& f3 m* Q) `     RowBox[{"(",
      RowBox[{
       RowBox[{"-",
; y2 e- m' F' x; V8 Q( y        SuperscriptBox[
6 W4 o( Q( E; T) _, ~5 `4 V         RowBox[{"(",
2 ]/ R7 G1 }+ }' h/ G          RowBox[{
           RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
4 X$ B7 c# ]6 C% k0 Z- T2 ^       SuperscriptBox[
        RowBox[{"(",
' |" w- o# {% t" r6 E! q5 `  `: s         RowBox[{
          RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
, f4 ~2 f' b6 w: H+ s         RowBox[{
          RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
9 C) k  P% h% h" X. V        RowBox[{"(",
         RowBox[{
! U. I7 P- \( W& Y          RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
& w) o2 S0 s! y2 M6 O       SuperscriptBox[
6 f) d2 i% r" \) Y1 {        RowBox[{"(",
" H0 o) l( y8 f9 o         RowBox[{
7 I0 ^7 z9 L/ S0 e, I) V          RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
/ o/ u9 |8 u8 V9 d. ~3 `7 V5 G7 O        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
3 y' V( U$ v2 H: u# P, a       SuperscriptBox[
        RowBox[{"(",
) o3 i7 ^5 r0 L' A& M) S6 s         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
! O8 O7 W3 h6 Z7 m* l, L9 w4 ]       SuperscriptBox[
* j, \; I4 p: ^! Z% }        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
$ Q; n* m) w. _& }3 h2 }       SuperscriptBox[
  ~( {+ ]6 l0 x7 E7 w        RowBox[{"(",
1 U" q- {0 H2 V+ j7 m7 v3 S         RowBox[{
          RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
2 ~$ o$ m% t; ^& l; ^' F+ v  "+",
  RowBox[{"0.3207174990295839`", " ",
   SuperscriptBox["\[ExponentialE]",
: d7 S7 Q- ]8 n# m6 p0 `% w    RowBox[{"3.141592653589793`", " ",
% o9 Q# D: e% _8 B) G$ ]% a     RowBox[{"(",
1 |; G$ {0 W% Z  h; p( k9 C- P      RowBox[{
' ~  L/ K) J6 E       RowBox[{"-",
        SuperscriptBox[
( W" j) W* V$ s4 K         RowBox[{"(",
          RowBox[{
! N2 @& j* c5 b           RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
' h% F) E+ P0 K       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
) g% A  D+ m% Y  t4 K* W9 K       SuperscriptBox[
3 O# V" G8 ?  ^4 M# }        RowBox[{"(",
         RowBox[{
; s  s7 w! v7 i8 }4 w6 P* X          RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
) d1 \4 e2 H6 u7 H4 C       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
: c* G! q- {! C% e2 O0 _/ b          RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
       SuperscriptBox[
& Z2 |1 h2 ~0 G8 r' V" V        RowBox[{"(",
# O/ g; |3 k4 \3 f% y) x         RowBox[{
          RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
8 Q. ?8 C/ y( `7 q! f         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
* r- v8 Q, m8 a7 O& T/ w8 X) x$ T       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
. C7 _0 L* T6 p1 i' k2 X9 ^          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
7 A0 [8 q  H) D# \6 W# q          RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
+ Y/ H% B* ]* H; y  Y( g( y         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
      ")"}]}]]}], "-",
  RowBox[{"0.15852708848338315`", " ",
' p3 c6 t: e( f; B   SuperscriptBox["\[ExponentialE]",
, S# v! v# j1 E+ l4 `6 K    RowBox[{"3.141592653589793`", " ",
     RowBox[{"(",
      RowBox[{
       RowBox[{"-",
        SuperscriptBox[
         RowBox[{"(",
7 E  M7 F5 ]) a- S( a/ U2 _; A          RowBox[{
           RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
       SuperscriptBox[
" k4 Y. N4 C2 K; @( k- S/ ^- ~9 H        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
7 ^3 J' Q! C+ w; F# j" @( W8 f  r       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
0 f5 D  E# S$ ]- s# N& A. D- [          RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
9 T2 |# t6 U1 h' x' F' E, u6 W       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
$ Y' q' X7 X- @8 H  F          RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
9 ]; L0 w, ]4 h' [6 t2 b, s8 ], A; P6 j         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
/ C( w5 X0 ?- ~3 ~1 U          RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
/ A' S( j: ]& y  i5 p2 ~       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
: p2 r" m4 P% A5 r% \      ")"}]}]]}], "+",
  RowBox[{"0.6019775648968265`", " ",
   SuperscriptBox["\[ExponentialE]",
$ q" n, j7 d& J: e9 z: R    RowBox[{"3.141592653589793`", " ",
     RowBox[{"(",
      RowBox[{
       RowBox[{"-",
        SuperscriptBox[
         RowBox[{"(",
  E' ^; ]) G6 Y8 q3 a          RowBox[{
           RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
       SuperscriptBox[
$ W4 W: {7 ~4 x        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
1 l0 T: o7 d1 ]       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
* [5 e  E1 B! K) Q6 T$ l       SuperscriptBox[
9 N" }6 F/ y* ~. X7 h        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
       SuperscriptBox[
' c7 E4 g. X' |- J" c" p        RowBox[{"(",
4 z* y& V2 @, f) {: f( L4 ~         RowBox[{
5 D1 \& e4 q3 I3 y# B1 Z1 c6 Q5 ~          RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
4 Z8 C# g2 P9 C3 D6 V9 |       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
* J9 m, k9 s- e+ N1 I        RowBox[{"(",
. j( b# N8 c+ {- p% |         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
: p! z& N8 O) L% {         RowBox[{
          RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
& b5 }" P5 @4 ]2 v       SuperscriptBox[
+ R: N( _# s$ {5 O5 N% I" s' Y" D        RowBox[{"(",
; N* c: B$ Y3 I) N8 T: H         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
" T+ o# \5 H' F4 d/ W      ")"}]}]]}], "+",
  RowBox[{"0.16041393254115022`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.141592653589793`", " ",
- t1 b7 A  J; \$ w: y  y) n     RowBox[{"(",
      RowBox[{
1 J' E! C/ c) Z( I       RowBox[{"-",
5 x4 a7 g3 e  c5 a        SuperscriptBox[
         RowBox[{"(",
          RowBox[{
' R+ j; k2 j; ]2 R6 M           RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
, `# c5 |" a7 R! y! U  |) W% K       SuperscriptBox[
0 y% b/ |3 a: V' `+ g+ Z        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
( c/ g2 B  B( W1 r% y/ e( \       SuperscriptBox[
0 ?+ g5 J  ~8 @2 D) ~        RowBox[{"(",
' V% z) z8 R9 C6 U# p* c         RowBox[{
          RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
/ p# t) M" ?6 G, ~: a6 `, @, N         RowBox[{
          RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
       SuperscriptBox[
/ e- i$ x1 b6 v1 {8 p; O9 [8 n( ?: D        RowBox[{"(",
' }+ }; B3 k. L& f: W: f         RowBox[{
          RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
* N; @  ~5 K" I8 z# A, A       SuperscriptBox[
3 p( z5 P* u3 f        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
* b: J0 Y) X2 @+ D, k9 o        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
* E# z' O/ [/ U, q          RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
# L/ F; S+ z& Q- w- O         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
      ")"}]}]]}], "+",
  RowBox[{"0.48228184971363947`", " ",
   SuperscriptBox["\[ExponentialE]",
7 G+ J4 }% \( g, E" Q0 j. V7 U* A$ c    RowBox[{"3.141592653589793`", " ",
     RowBox[{"(",
      RowBox[{
" i  d, S; F% {% ^+ z4 j( L5 t       RowBox[{"-",
        SuperscriptBox[
3 R% I7 Y1 A( k) U2 G+ x8 n         RowBox[{"(",
          RowBox[{
           RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
- r3 U9 ?/ `$ R* s       SuperscriptBox[
" b3 N; o1 R; G" ]        RowBox[{"(",
* E0 {' Y; Z% I9 R  z  R/ |. t         RowBox[{
! |0 ]- r( E* M! z) K          RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
. b5 h2 r0 J) m6 D& D       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
4 {2 ~7 |. T0 w/ E5 @4 \          RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
6 C4 Y, I: d- ?6 B; N$ }& J7 R; m       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
7 h0 F& D! n4 a4 x          RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
       SuperscriptBox[
( Q/ c$ n" _7 @& h* Q  D9 l# O- H        RowBox[{"(",
- i% n3 \) Q- S8 A         RowBox[{
          RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
( i2 J8 Y* F- ~( P2 F6 \5 w        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
: r4 d: ^- \9 V# a/ _7 Z       SuperscriptBox[
2 J- B- X) T5 C& F% j8 w4 v        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
5 w' ]- v+ B, y       SuperscriptBox[
3 s# a9 |1 b5 P, L$ U5 L+ b        RowBox[{"(",
         RowBox[{
2 R1 m% B. i2 Z          RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
, |; i1 r8 P% l5 Z6 m1 ~) u       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
2 e1 l. s( X& v      ")"}]}]]}], "+",
: T5 U7 G4 s( K, K% y2 }+ x/ f  RowBox[{"0.2954923840077215`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.141592653589793`", " ",
* O# s9 Y& F! ?$ }; D, L8 e7 C     RowBox[{"(",
' G5 A# U. Q  Q5 L, Q& E      RowBox[{
       RowBox[{"-",
' `6 d/ V8 Y, i& o* X        SuperscriptBox[
         RowBox[{"(",
# t% E" W' B4 ~* I( z& K" c          RowBox[{
           RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
7 {7 s" y4 I3 q0 Z2 k3 h/ {       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
: T. `9 K2 [. o2 t          RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
4 n! _9 T+ a7 S: n       SuperscriptBox[
8 d" Y6 P9 C% `# ~! W# g. g        RowBox[{"(",
, ~& U5 y+ j" X, G! K         RowBox[{
. [1 Y+ R/ [3 j2 I0 ^* L1 J$ d! V          RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
1 V+ ^8 Z% d0 K, R; }+ K" _       SuperscriptBox[
7 s; `2 f+ B9 ^) d3 K        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
+ Z  ]; t; }6 v. g( \8 ]       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
4 j9 `, W9 V% z" E- b: J) ]5 X/ K        RowBox[{"(",
- I  ~- i! P" D- _) B( c& n         RowBox[{
          RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
+ |! g: L4 u4 ^/ {* u$ u        RowBox[{"(",
         RowBox[{
, M3 G0 ^% @& Y( [4 g. T- |          RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox[
2 h2 {) R! M4 o3 Q" B        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
( d6 L: o$ v! L' S; y       SuperscriptBox[
! D( Z% D9 _% f4 U# X        RowBox[{"(",
' a$ v' A/ h% P' _+ d$ ~         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
& J- n7 X1 j' ?      ")"}]}]]}], "+",
4 X& u' Y2 l8 o  RowBox[{"0.3129687276967983`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.141592653589793`", " ",
: _# W! J; l; W1 y( p     RowBox[{"(",
2 D% z4 {5 a$ w7 m      RowBox[{
       RowBox[{"-",
        SuperscriptBox[
         RowBox[{"(",
          RowBox[{
$ s/ A5 U- K! x# D: j. L           RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
  T$ V) ~; a% |. f+ r1 E+ T         RowBox[{
          RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
' b8 c7 a- W8 v. P9 J       SuperscriptBox[
        RowBox[{"(",
, `9 n" o& ?' x: f         RowBox[{
          RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
8 {9 D3 K  r$ d) |. `$ B0 b. T$ D, n       SuperscriptBox[
9 E+ ?' |) {/ H/ w3 p" A        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
& X( {7 R' T/ v# j       SuperscriptBox[
        RowBox[{"(",
7 u" z% D# h0 V( \' B         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
7 p; M% K! F9 q       SuperscriptBox[
        RowBox[{"(",
+ c' N$ G  b4 i         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
0 C4 ^( U: o( m+ j      ")"}]}]]}], "-",
  RowBox[{"0.4666313851213302`", " ",
& Y3 G6 W; _7 Q% j   SuperscriptBox["\[ExponentialE]",
, }& u3 v3 a. L6 U: c0 i- I9 i" H    RowBox[{"3.141592653589793`", " ",
     RowBox[{"(",
      RowBox[{
       RowBox[{"-",
        SuperscriptBox[
         RowBox[{"(",
          RowBox[{
           RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
       SuperscriptBox[
( L" C' H0 w; i- k7 P0 Q6 `        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
       SuperscriptBox[
+ E4 @; D0 H% M/ S' E6 E3 U+ T! X# f$ L8 B# b        RowBox[{"(",
& z" F, p; ~( w( i; T/ t8 [- C+ @         RowBox[{
          RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
1 `. q( Q# Q* N! e       SuperscriptBox[
" K2 s3 d' G, A1 ^# l8 {        RowBox[{"(",
' T6 U; H/ ^) x9 }         RowBox[{
, m" A" W/ f$ |1 v) s          RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
8 c2 j- v8 ~* a4 n3 k, ]       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
0 K* b: D# D: q) L, G2 A          RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
$ J6 t4 P- _  L0 d( D       SuperscriptBox[
% k8 x2 W& l9 X. b4 U& y4 x/ R7 U        RowBox[{"(",
. R9 m3 U% d% s- Y2 Q         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
7 x; X. R6 r2 N3 k8 f         RowBox[{
& `) x" m1 Z6 n7 p; S- `- v$ o          RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
  }/ Z! g* N: }  q5 i* [4 f       SuperscriptBox[
; ]' u; S1 V9 G$ I        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox[
7 b6 n$ w' Q( K        RowBox[{"(",
) o' k9 y- V4 x8 ?         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
; H9 _9 O' w# F% [      ")"}]}]]}], "+",
  RowBox[{"0.3741982811661129`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.141592653589793`", " ",
     RowBox[{"(",
      RowBox[{
       RowBox[{"-",
; [: h  H; A* }5 a; O# j( j        SuperscriptBox[
% M! b% v- u# N: J5 K; E6 j" {         RowBox[{"(",
) y2 h/ c2 u0 X          RowBox[{
           RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
( S: X. K- M6 ], z2 o/ T          RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
5 s! {1 k) S: v: ~1 K+ m) \2 r       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
1 m: K# Z) r% W, s8 V7 z       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
! ^( T2 v: L, e- @       SuperscriptBox[
3 B# L9 M  j& [% D        RowBox[{"(",
, u- [; r! t( K9 F" @5 R5 L         RowBox[{
! f0 i0 m: d7 D" @0 |# ^          RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox[
5 k& E% M$ Y8 {& j+ u3 F8 K        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
      ")"}]}]]}], "+",
  RowBox[{"0.5575503376854456`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.141592653589793`", " ",
     RowBox[{"(",
+ b7 N& u: K, Y2 _2 L1 \; o      RowBox[{
       RowBox[{"-",
        SuperscriptBox[
         RowBox[{"(",
          RowBox[{
6 W( W4 L$ J1 b* E* C/ T5 B           RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
       SuperscriptBox[
, u1 H4 @* ]5 T: H& Y1 c        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
; E) J% ]! e* Q1 g         RowBox[{
          RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
9 n2 p4 I/ H' d5 I$ c0 f, u8 F        RowBox[{"(",
         RowBox[{
- A/ V7 T7 T; d' K- Q+ V          RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
       SuperscriptBox[
9 W* |, K0 d0 _' Y% Y0 i        RowBox[{"(",
0 m* U* m7 h7 R% |         RowBox[{
          RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
2 I" S, k% `; `1 W8 I        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
9 k9 K" V/ S6 S/ u+ B. I       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
# `# T5 Y3 D' {2 G! I( {       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
" r% @9 m6 {! w: l: z         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
  g& P2 Q7 Y! e/ k      ")"}]}]]}], "-",
  RowBox[{"0.1339854044819916`", " ",
/ ]2 i/ [) ^% I- l* X/ h5 H5 F   SuperscriptBox["\[ExponentialE]",
' x6 b* O7 }: G( A    RowBox[{"3.141592653589793`", " ",
( L1 O  d# j" |" [! H; p) e" i     RowBox[{"(",
0 x2 Y+ p. x$ W, d      RowBox[{
       RowBox[{"-",
& ?8 L: m) _7 C0 |# E! z        SuperscriptBox[
, U; j/ A* j1 s+ _7 `& m         RowBox[{"(",
7 ]9 g4 a7 l1 z0 Z% O* |          RowBox[{
3 D" x$ C5 d2 W. W/ t           RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
7 S) n. _# o- l/ t9 F. x          RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
$ R, ]9 U) N# A+ ^% L6 ^5 I* W) E         RowBox[{
          RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
0 S0 G; c5 }9 S% `7 Z# v/ Q! \! L6 L        RowBox[{"(",
- @4 G& I+ |  i; U         RowBox[{
  i8 D8 ^1 Y. R7 ^          RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
; B' [# [+ ^" S2 x& f1 U. {       SuperscriptBox[
$ _; C6 N( l; R9 L7 J/ H        RowBox[{"(",
# ]7 x* r% Y8 l! H: e3 L         RowBox[{
          RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
+ v$ f) @, y$ C; A4 S/ z* F+ X       SuperscriptBox[
/ ?; E$ }$ x# I        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
. p+ ~1 }& p$ p# s; T3 I       SuperscriptBox[
) T4 ^* a5 N$ P' K        RowBox[{"(",
0 q" i& k, r% z         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
/ `/ }! j! |9 S; q" a% g# L% [       SuperscriptBox[
" K  ~$ f' h' x. H/ \        RowBox[{"(",
! }0 e/ Y3 q. g% U0 T/ T         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
! ?: g' g' H7 N& P0 U      ")"}]}]]}], "+",
. `- R2 N/ [6 l) J8 Q% p7 f# t  RowBox[{"0.45723850991134063`", " ",
5 F9 B/ c; {$ y9 U0 R8 q; h   SuperscriptBox["\[ExponentialE]",
  R, J( L5 }! o    RowBox[{"3.141592653589793`", " ",
) v4 ^; R2 k5 C! ~     RowBox[{"(",
      RowBox[{
       RowBox[{"-",
        SuperscriptBox[
         RowBox[{"(",
          RowBox[{
           RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
9 N; R1 V3 p: d5 b3 s! j; \       SuperscriptBox[
6 q2 m9 j( M" E- K; r$ l        RowBox[{"(",
5 y4 p7 [" o( J" B  S! \         RowBox[{
          RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
  A/ F/ O& _. B, E5 J       SuperscriptBox[
9 f1 t2 e$ t- b& @2 Y* p  e        RowBox[{"(",
% @  O2 E$ l; F  j9 T         RowBox[{
) q: b, G2 x# h0 c          RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
& {. z9 W+ Z% ?4 R# H" b+ c        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
2 g2 P( {8 ~! T       SuperscriptBox[
: X2 `1 n* J& Y- l9 s        RowBox[{"(",
         RowBox[{
! M2 M# L& P# u* S          RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
* I& @/ V" s. ]- M) H" {        RowBox[{"(",
6 F- o  N$ I% e% i0 [         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
( ^/ K! g  Y+ O  K5 e       SuperscriptBox[
        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
- A8 v: I& h4 |- }' V2 s       SuperscriptBox[
# z2 b" [. p! Y7 e# O        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
) w/ d& r5 n9 ~8 j; m2 c      ")"}]}]]}], "-",
  S7 O3 e2 ~% o. \- S  RowBox[{"0.025873988843993667`", " ",
+ n- M) ?+ r' p' Y% f& O0 p   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.141592653589793`", " ",
     RowBox[{"(",
      RowBox[{
1 t( ?6 G+ s* x/ |& F4 N* [8 J       RowBox[{"-",
0 j, s: L8 ?  y) \        SuperscriptBox[
         RowBox[{"(",
          RowBox[{
           RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
       SuperscriptBox[
5 l' ~2 {" \! t% M9 \1 S/ r! p; i        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
9 _0 S1 N. e. U6 U8 T0 R8 c       SuperscriptBox[
, D- k1 h, V- K) p+ z) L$ d        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
$ v2 a; J5 w0 ]       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
$ c, J2 X+ B8 b; _  T8 `% u         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
       SuperscriptBox[
( S4 ~/ a7 z% I3 U' v        RowBox[{"(",
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
4 ^! ]) T7 F+ ^" t' R8 B  I& G+ C         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
, V& o, k$ k7 L       SuperscriptBox[
5 Z$ l6 `& F  X/ U1 d        RowBox[{"(",
! N4 ~) `% I: j* O) K0 @         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
, d5 Z) t- w( w% l# E       SuperscriptBox[
" Y( g) y+ a" g; V; [        RowBox[{"(",
" z9 d- Q; I3 x) u) i         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
      ")"}]}]]}]}]], "Output",
CellChangeTimes->{3.577924759875*^9, 3.577924921203125*^9,
  3.5779583210432997`*^9, 3.5779585060284224`*^9, 3.577959043308958*^9,
  3.577962317973732*^9, 3.578012448875*^9}]
! [+ X/ g1 u( k" Z}, Open  ]],

4 y& E' z: L. ^1 \3 p, ICell[CellGroupData[{

Cell[BoxData[
RowBox[{"y2fit", "=",
& j: F2 s- l' D- F( l' f) h# H  RowBox[{"Table", "[",
) t) t$ H" Z7 L! I; ^   RowBox[{"x", ",",
% q& o, \* j* T! K" W) T) @    RowBox[{"{",
8 T5 `. l) p2 v0 h8 [     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {
% C- }5 p0 ^. d+ w& \2 y0 @  ~   3.5779252768125*^9, 3.577925277484375*^9}, 3.5779583246625056`*^9}],
' `  ]/ b& G2 _  f
Cell[BoxData[
RowBox[{"{",
  RowBox[{
  "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", ",", "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}]
}, Open  ]],

, b) Y# [4 Q$ D3 d: ICell[BoxData[
( s# A" [- Q  s RowBox[{"For", "[",
  RowBox[{
0 ], e* s9 a) {+ \& m  L" E   RowBox[{"i", "=", "61"}], ",",
7 |* [# i  |. J3 r5 O   RowBox[{"i", "\[LessEqual]", "89"}], ",",
1 I) Z8 {* k( }+ P! v' S   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
2 z7 E! M0 |: K: ]; p. z) a   RowBox[{
    RowBox[{
     RowBox[{"y2fit", "[",
      RowBox[{"[",
       RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
     RowBox[{"y2", "/.",
0 a  h/ u2 v. t& P" n      RowBox[{"{",
# }% T! }: x3 ^" l- n; s3 F       RowBox[{
        RowBox[{"x1", "->",
( W: U; |0 ^* k3 W1 l' t( I% \: y         RowBox[{"Data", "[",
          RowBox[{"[",
           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
" [2 V; C& q2 M4 I# n2 }        RowBox[{"x2", "->",
5 ]" E' F, g5 T! d% f. R         RowBox[{"Data", "[",
          RowBox[{"[",
" U& F# t4 m0 M3 n% S           RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
5 ~3 ]8 e; m$ p- _0 k( C        RowBox[{"x3", "->",
         RowBox[{"Data", "[",
          RowBox[{"[",
- G! C" c/ u6 X8 S8 W           RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
5 T  y  {* b' s! m, q( o        RowBox[{"x4", "->",
. h  D- f! k0 G1 n  O) u4 o         RowBox[{"Data", "[",
  \( Z9 J0 e5 x/ Y          RowBox[{"[",
           RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
. \( y9 O9 f1 F        RowBox[{"x5", "->",
         RowBox[{"Data", "[",
, N/ z& O: v) }9 L8 r: S; T          RowBox[{"[",
5 X% q2 H1 r- u! a+ v- M5 Z           RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
        RowBox[{"x6", "->",
         RowBox[{"Data", "[",
$ _  I1 y5 q- [5 A% N3 I) g          RowBox[{"[",
           RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
. x! I0 U0 }3 O% g        RowBox[{"x7", "->",
         RowBox[{"Data", "[",
  x2 I7 Q) U) i: Y0 P- q- ?) P          RowBox[{"[",
           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
! ]: I( j' H4 S: ]; o2 Q( @; Z        RowBox[{"x8", "->",
         RowBox[{"Data", "[",
          RowBox[{"[",
           RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
' h; g* G0 r( n        RowBox[{"x9", "->",
$ W2 \7 w, O( i; F# L% P         RowBox[{"Data", "[",
, Y) {) L, k1 Q0 R5 ]          RowBox[{"[",
           RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
  "\[IndentingNewLine]", "]"}]], "Input",
5 d5 A5 b$ P9 P; _' v' y7 ^ CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {
, U' S3 _7 B, O/ m8 L( N  3.577925286140625*^9, 3.577925306765625*^9}, {3.577958329919715*^9,
4 T( u# X* J. s2 r9 C  3.5779583326341195`*^9}, {3.57795892351635*^9, 3.57795892354755*^9}}],

  a6 j% p: u2 D4 JCell[CellGroupData[{
/ q/ a5 m% z; {6 I( H
  h' @+ T4 M- TCell[BoxData["y2fit"], "Input",
) l4 x& m& ]* k! @: H$ d CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
( V( s, u3 g/ c! v8 m   3.577925040484375*^9, 3.5779250440625*^9}, 3.5779583419785357`*^9}],
/ o3 d( }- A8 m8 o& `- ~; z/ @' V
' q) y# d, j1 F. V' r5 U1 C2 Q7 kCell[BoxData[
/ Y& t- F# {! l. |  k RowBox[{"{",
6 \1 w) u" f+ m" \6 c  RowBox[{
  "0.4853171132859182`", ",", "0.4508635216665074`", ",",
* V! X, O" L, o" y! X   "0.3642119241752518`", ",", "0.42852077425595436`", ",",
' H/ Z# m$ P5 k! X1 Q   "0.4712694272667798`", ",", "0.5257533056184774`", ",",
   "0.48620658140716133`", ",", "0.41106838915591876`", ",",
   "0.5486894206610674`", ",", "0.007731168540073459`", ",",
   "0.013872406140339109`", ",", "0.3956995051659558`", ",",
   "0.3663118256142708`", ",", "0.29094217358055163`", ",",
   "0.5453093690736555`", ",", "0.44138898880777927`", ",",
3 o# c3 E( t0 Y( r5 O" ?% n2 p   "0.42944922031163496`", ",", "0.43092890556748836`", ",",
   "0.5942402821739969`", ",", "0.330046090785457`", ",",
( \. l2 K9 |- q" j   "0.18938658036630585`", ",", "0.4263720292858679`", ",",
   "0.23377136184738775`", ",", "0.02232858193309988`", ",",
   "0.244364200084268`", ",", "0.5562383565309971`", ",",
   "0.13114103402954333`", ",", "0.5815052048989465`", ",",
   "0.4253455966293501`"}], "}"}]], "Output",
CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
" f, }7 m( q4 c3 ?" H/ b  3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9,
" ^3 s! U' T9 P$ x& S7 g  3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}]
3 z% y7 c/ a9 z3 H6 d}, Open  ]],

( P" F0 H! L5 r" ~3 w2 Y7 Y6 SCell[CellGroupData[{
% z: K6 h1 n7 X, p
Cell[BoxData[
RowBox[{"y2fit", "=",
  RowBox[{"{",
! n: ~$ Y9 T. \- ^1 M5 z" L   RowBox[{
   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
) s3 ]. k* `  o3 c' N3 ?    ",", "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",
    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    "0.48531711328591953", ",", "0.48531711328591953`", ",",
& Y( @4 t2 m, T& w8 s+ I- E0 s0 Y    "0.45086352166650845`", ",", "0.36421192417525217`", ",",
! s  O+ a- _" q: K1 U; H    "0.4285207742559556`", ",", "0.4712694272667811`", ",",
# b5 k' Z# U6 r3 G6 Y    "0.5257533056184786`", ",", "0.4862065814071623`", ",",
    "0.41106838915592014`", ",", "0.5486894206610683`", ",",
2 f) n- u0 I( i! P6 I    "0.007731168540073532`", ",", "0.013872406140339166`", ",",
; q2 x  G1 H' e+ k& t( D    "0.3956995051659565`", ",", "0.3663118256142717`", ",",
    "0.29094217358055185`", ",", "0.5453093690736568`", ",",
    "0.4413889888077799`", ",", "0.42944922031163585`", ",",
9 P7 ~5 E" y6 Z- T2 [. k9 J    "0.4309289055674891`", ",", "0.5942402821739983`", ",",
    "0.33004609078545805`", ",", "0.18938658036630632`", ",",
% J* h; v8 C# z' F  M) l    "0.4263720292858688`", ",", "0.23377136184738778`", ",",
    "0.022328581933099827`", ",", "0.24436420008426807`", ",",
    "0.5562383565309981`", ",", "0.13114103402954314`", ",",
3 s; ?% r9 R# O/ d% @' V4 q    "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",
) x$ c# b( u' u: c CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {
8 H- q5 ?6 t9 g  3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9,
  3.57796233957977*^9}}],
  p6 c( o1 X6 t9 H1 F1 y! f
Cell[BoxData[
; g# @! T! k" H+ j2 r3 Q2 W7 K3 V+ K( A RowBox[{"{",
3 h0 P# V, p0 q, `( C  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
  |/ R0 L; m. z# [& F( o2 Y    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
. v- Q0 e7 r7 @4 {4 U   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
. I3 O2 t: a& z% C9 x. ^. H. ^   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
$ {: J% g1 n1 F% y# I8 m8 e0 y   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
' a1 Z, k! j8 Y/ C   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
- {& d( k+ I1 I& g   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
   "0.48531711328591953`", ",", "0.48531711328591953`", ",",
2 b* p8 v- K+ O9 t  s   "0.45086352166650845`", ",", "0.36421192417525217`", ",",
( f. q% V6 z! X" D   "0.4285207742559556`", ",", "0.4712694272667811`", ",",
   "0.5257533056184786`", ",", "0.4862065814071623`", ",",
& S# z8 H" ~+ |! X( I: K' F7 c   "0.41106838915592014`", ",", "0.5486894206610683`", ",",
" B3 \  |! U, e" ?5 c9 Q   "0.007731168540073532`", ",", "0.013872406140339166`", ",",
4 W& g/ b3 F, S; C   "0.3956995051659565`", ",", "0.3663118256142717`", ",",
9 s7 x# @3 r! @  C   "0.29094217358055185`", ",", "0.5453093690736568`", ",",
   "0.4413889888077799`", ",", "0.42944922031163585`", ",",
   "0.4309289055674891`", ",", "0.5942402821739983`", ",",
/ `; ?* P0 l& Y; D3 F0 T   "0.33004609078545805`", ",", "0.18938658036630632`", ",",
/ d  ^( R4 W" j3 v   "0.4263720292858688`", ",", "0.23377136184738778`", ",",
   "0.022328581933099827`", ",", "0.24436420008426807`", ",",
   "0.5562383565309981`", ",", "0.13114103402954314`", ",",
   "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",
( k+ a$ J$ h3 V5 W+ e- j CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9,
0 N! b: q! `" h8 n3 g* o; J7 b  Y  3.577962342060174*^9, 3.57801245340625*^9}]
}, Open  ]],

8 U0 l" [& `& l- J, l7 l0 \! NCell[CellGroupData[{
  D9 t0 B' u# W# @
- n- a2 @: n2 E2 g8 g. {' VCell[BoxData[
RowBox[{"y20", "=",
  RowBox[{"Table", "[",
0 o. h7 q2 K  B: P3 j   RowBox[{"x", ",",
  Z' w' w/ P2 H    RowBox[{"{",
     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
  b5 F- |# t# J7 A CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],

2 ^7 o2 K  I2 R" G: |, [Cell[BoxData[
RowBox[{"{",
  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 c% F2 A5 s) s) q  o' y   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
1 N& H  k$ h6 j! E0 C    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
3 S( u7 D) X  h+ F* G   ",", "29"}], "}"}]], "Output",
  `- l& A9 X* a% W0 _3 [ CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9,
& g" Z' T% ~% k$ s- r  3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9,
" _% }+ b# `) ~7 n  3.578012454875*^9}]
$ J7 d. A2 s) W) [& S1 v}, Open  ]],
0 M' D- C# b1 Z1 b$ S. b
Cell[BoxData[
, h& ?9 r' l9 X  o6 @+ X RowBox[{"For", "[",
* l; G" \6 t) L  d2 X8 l. Z  RowBox[{
   RowBox[{"i", "=", "61"}], ",",
8 _+ _: C, x' ~+ B% ~, K   RowBox[{"i", "\[LessEqual]", "89"}], ",",
7 ^' ]& _% D; s; H& R8 T0 x" V# A   RowBox[{"i", "++"}], ",",
. `7 D" {1 Q& K# O# r1 |3 a2 J   RowBox[{
, l- q+ l- o$ \: ]& ~( P    RowBox[{"y20", "[",
     RowBox[{"[",
9 K& e$ n4 u  Q7 [0 B      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
& K  m: q0 r& z! S. g# ]1 f    RowBox[{"Data", "[",
% h5 Y  {/ Q( L* c  U7 D" l. q4 `     RowBox[{"[",
      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
! v3 e- U# [. T' A: L0 i! s% E+ W( W CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
  3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
  3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {
  3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9,
  3.577959058690585*^9}}],
' U7 S8 x3 i8 t! g* q2 M4 N
Cell[CellGroupData[{

Cell[BoxData["y20"], "Input",
CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
. w- Q& M& c4 R" P2 ?2 }   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9,
   3.5779583657841773`*^9}],

Cell[BoxData[
, y/ Y* h. V' ~. i3 ]/ ` RowBox[{"{",
; Q- N7 V1 l$ v- ^, J; v: E  RowBox[{
  "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`", ",",
+ r1 Q8 S2 g. p- g) m. q   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
% m/ I" h% C: L   "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
; F0 c6 T$ @7 z  I, T( U1 H   "0.323944`"}], "}"}]], "Output",
CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
7 m* _. _6 c8 [/ A' A  3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9,
( J: N) p( V- i: ^% ^  3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]
" j% h# w& Y' Q' \}, Open  ]],
7 p  D  P, X( R7 G- z
& Y# u( v# i. I+ x% G, k$ aCell[CellGroupData[{
0 S. U( Q' W! L/ M) h* r
5 z# c8 ~" v8 t$ A3 L/ oCell[BoxData[
2 i: I' D: k, n3 p RowBox[{"y20", "=",
) ]" u2 T0 p/ V- ?' Y  RowBox[{"{",
   RowBox[{
8 H  X3 L" H3 E0 E5 t   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ {$ z0 F; R) H( D0 E! [    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
& R! c4 z' M6 u5 C! l1 Y: n    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
: o! I: d, b+ {7 ]    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
2 ^. i0 P. E/ G. X$ Q- _8 B    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
4 v4 {  Z, m# I& O+ U    "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",",
) b) q) N* \9 h7 t" h    "0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",",
4 F1 z* k& O6 C  @6 r% n0 J8 N    "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",",
    "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",",
    "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",",
, _: Z7 O$ J- b" {1 o( H    "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",",
    "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",",
    "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",
0 l$ G* _$ t; H. L+ R1 x6 z8 v1 n CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],

Cell[BoxData[
RowBox[{"{",
* ^3 ~/ m: u/ f" o  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
( _/ p: ^1 k3 z+ m5 e   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
( Z1 ?/ Z2 L1 v9 I  @1 Q   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
; ?& Q- O- ^6 m3 r; b" p   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
6 v$ s( Q( ^% P' i( T7 k   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`",
3 w' X3 h+ _! F1 `5 ~0 A5 k   ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`",
   ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
    "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
3 b/ X- _. E$ @" [9 M$ k7 w   "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
7 H$ U$ E5 q8 x. ?   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
- j5 _* F4 A6 s# F   "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
* Y5 q# G5 Y1 D9 a4 I0 a8 d2 f3 l7 C   "0.323944`"}], "}"}]], "Output",
4 u- r0 D7 w5 b/ H! H4 H8 R, t CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9,
  3.578012457234375*^9}]
' ^/ g$ r/ j, x, Z2 z}, Open  ]],
3 G" ]$ A, o' j0 H
) C: s/ z* }( _# y9 N4 D/ bCell[CellGroupData[{

Cell[BoxData[
RowBox[{"p2a", "=",
  I$ W9 ~! L1 ]* p$ h7 W  RowBox[{"ListPlot", "[",
   RowBox[{"y2fit", ",",
    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
& W# S- C' Y4 D) X    RowBox[{"PlotStyle", "\[Rule]",
     RowBox[{"{",
! @$ h$ \" P# t      RowBox[{"RGBColor", "[",
  k! ~1 V  Y( V& w( }* Y       RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
    RowBox[{"PlotRange", "\[Rule]",
     RowBox[{"{",
) n: p) K7 f) ~' |% h      RowBox[{
* z: N' }$ \! z+ Y) ~       RowBox[{"{",
        RowBox[{"61", ",", "89"}], "}"}], ",",
9 @2 C# p3 B) a. v$ b       RowBox[{"{",
        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
5 f  b! X/ B  z6 |3 n2 p    RowBox[{"AxesOrigin", "\[Rule]",
9 {* v7 R. X2 K     RowBox[{"{",
6 u, h" c- |1 q; B' \      RowBox[{"61", ",", "0"}], "}"}]}], ",",
. f1 X# I% @6 g2 i% l6 ^3 K! y: g8 N    RowBox[{"Frame", "\[Rule]", "True"}], ",",
4 _0 z# z  m7 W/ w. g, Z4 _    RowBox[{"FrameLabel", "\[Rule]",
( a6 O) V7 L3 s8 M4 ~     RowBox[{"{",
      RowBox[{
2 T  ]' I. [! Z/ i      "\"\<\:7089\:6b21\>\"", ",",
       "\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\
2 q, C, f8 O, K3 h\>\""}], "}"}]}]}], "]"}]}]], "Input",
' l9 V6 G% [& f+ C+ z. p CellChangeTimes->{
  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
   3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9,
) [0 s/ k6 g+ _, m   3.5779585491624975`*^9}, {3.5779592802577715`*^9,
( N( P6 m7 R) U; D9 H   3.5779593014270086`*^9}, {3.5779594039971876`*^9,
" \7 B- a1 B: T5 i$ Z   3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {
+ M+ c: M) M* f, Y; K   3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9,
   3.578012920859375*^9}],
9 m5 `& i% o' M; S* t
Cell[BoxData[
GraphicsBox[{{}, {},
6 Q4 T! E* s. v# K$ x   {RGBColor[0, 0, 0], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
8 t* q! n9 H* b+ b4 I9 f0 @ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
) N! f/ U8 o% x% U4 }0 V0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
; A/ C# m; W2 [3 _" C1 c# v7 K99yxuG0PAHw7nyU=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
: m/ X6 d: y$ g- D' o+ D. m  AxesOrigin->{61, 0},
  Frame->True,
1 s8 \( Q$ _" _! c: O  FrameLabel->{
    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    FormBox[
    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
% w# }$ ^& s! N5 J$ w" ~     TraditionalForm]},
$ p, \& V, n+ B+ j" M  PlotRange->{{61, 89}, {0, 1}},
9 _+ T4 p/ U) V. F7 A  PlotRangeClipping->True,
( M& a1 T& k% O8 G7 s0 a7 C  PlotRangePadding->{Automatic, Automatic}]], "Output",
CellChangeTimes->{
' a7 e1 D+ a& Z7 v" m3 u  3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9,
   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  ]],

Cell[CellGroupData[{

Cell[BoxData[
* t" n* G" E1 a- N) b/ _ RowBox[{"p2b", "=",
5 X5 m% q  A9 |( Q- h+ i  RowBox[{"ListPlot", "[",
   RowBox[{"y20", ",",
    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    RowBox[{"PlotStyle", "\[Rule]",
4 E6 f. x, r9 [& G: b     RowBox[{"{",
      RowBox[{
       RowBox[{"RGBColor", "[",
# `$ y9 Q& ~/ M        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    ",",
, q5 ?8 I8 v) K* o1 e    RowBox[{"PlotRange", "\[Rule]",
/ t+ o  |( J: k1 v' g1 C# w( v2 g     RowBox[{"{",
      RowBox[{
' u3 I/ _$ L3 |& @; @" y       RowBox[{"{",
2 R6 n) _( O4 S9 T  a( |        RowBox[{"61", ",", "89"}], "}"}], ",",
       RowBox[{"{",
        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    RowBox[{"AxesOrigin", "\[Rule]",
     RowBox[{"{",
' R5 x- [  d% K0 N      RowBox[{"61", ",", "0"}], "}"}]}], ",",
1 j3 u% @. D1 {0 ]3 M% z# w    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
- B( g7 j! N- k6 A, a5 ~ CellChangeTimes->{
4 V+ S0 _3 x  [2 \  3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9},
& g/ A$ }( J" g% @   3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],
, f2 P2 P! W, W+ u( C; C
$ w0 z% I5 d3 s' g$ x, Z1 @+ fCell[BoxData[
GraphicsBox[{{}, {},
$ q: @, E3 @0 ]   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
, b3 o" t$ O+ M7 i& Q3 E& {; T, bTZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
9 k$ [9 }) t% ?/ ~& wfzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
! l$ E' W% N3 @$ {  H$ {p0OYg4Fg/tz63VfsAdsCnzU=
     "]]}},
3 l% r5 R4 y) v! e* q9 E8 w& s  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{61, 0},
  Frame->True,
  PlotRange->{{61, 89}, {0, 1}},
. i8 ?& G6 k" S3 v2 O/ |  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
  3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9,
  3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9,
, ~) N6 x+ S, P- R# u* z  3.578012484703125*^9, 3.578012925875*^9}]
% |$ Z  H! o( P; L3 s$ K* p}, Open  ]],
3 n9 R- W0 ~& y
0 l4 T. _" y2 K" L$ UCell[CellGroupData[{
* L2 I; S/ v7 a% H' R2 D
Cell[BoxData[
RowBox[{"Show", "[",
  RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],
4 Z& ^% b# W: x- u
0 h  n1 J0 y- a6 YCell[BoxData[
( v$ l& C. k, f7 U GraphicsBox[{{{}, {},
    {RGBColor[0, 0, 0], LineBox[CompressedData["
! H# f" J3 r& F* K; v1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
! v0 ~- h# X( v4 `. i5 y2 O/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
/ V0 @: M2 y6 D0 F. g+ y1 h4 K9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
) [1 [* L# [. R- x7 i/ U7 BofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
1 M) @- W. p) d) s' H3 V0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
  G& S$ Q! w( {2 U99yxuG0PAHw7nyU=
" U" O* |2 r. a) X! C* P% R% n      "]]}}, {{}, {},
6 T! R7 ~3 K  ?; i8 D    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
) i+ O- m) ]: K2 A! K1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
. v) a  w7 ]) Z$ b8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
; `, d: P+ z0 F8 I& BTZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
8 c& ~' X5 N* ~+ j; B2 o- zp0OYg4Fg/tz63VfsAdsCnzU=
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
+ i/ [9 f/ m4 I  N( i  AxesOrigin->{61, 0},
! Z( Q  r; @9 C  q  Frame->True,
! R) B. }; |# r3 f4 D" R  FrameLabel->{
9 |. U+ \) L; Z    FormBox["\"\:7089\:6b21\"", TraditionalForm],
# H( ], d" u( \) {  k  ?    FormBox[
    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
$ E  A# h) e1 W" F& r* S     TraditionalForm]},
; a9 a* h* k+ u$ O6 _  PlotRange->{{61, 89}, {0, 1}},
& |7 T! T3 ]& ]6 a$ U" r  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
7 M3 y' A. T( n; }: c' [: S CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9,
  3.578012927734375*^9}]
0 ^# N3 {$ W2 n5 Z0 J5 p% b* [}, Open  ]],
% j3 n3 `1 ^4 Z& D3 {$ r2 W
Cell[BoxData[
RowBox[{"\:ff08",
2 ^( R* [+ ]% `0 {  RowBox[{
  "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406",
   "\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621",
   "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208",
, t* F/ t/ q# Z1 f' ]5 }8 d) P   "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0",
   ".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\
\:4e3a0", ".6224",
   "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],
" T! X4 w$ e! @3 z5 [% t   "\:ff09"}]], "Input"],
  G3 u7 ~- y/ h1 j
- ?2 @# Q* L+ ^% @8 X+ h" RCell[BoxData[
  ]9 z0 v- s" D& ^3 b RowBox[{"{",
* k+ Y( A- H  }# a5 s  RowBox[{
  "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",",
0 _6 k0 J  ?+ P5 C. o2 O" w3 o' W   "\:5439\:6c27\:91cf", ",",
   "\: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", ",",
6 L! l# z/ E. Q# W$ }   "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",",
   "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",",
$ P! Q$ N2 N8 j  y* ]' ~1 H   "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],

! K0 i  ~, q' y& l4 Z. wCell[BoxData[" "], "Input",
; v& ]- g. R$ f% g CellChangeTimes->{3.577962834553033*^9}],

Cell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],
! B  Y- D. P6 Y0 g: G
Cell[CellGroupData[{

Cell[BoxData[
RowBox[{"y1", "/.",
! {7 |. a& g4 l  RowBox[{"{",
   RowBox[{
    RowBox[{"x1", "->", "0.7406"}], ",",
0 @  G) ^* E- Z" J7 V    RowBox[{"x2", "->", "0.4621"}], ",",
) n; g2 z) w3 h% S( j8 x    RowBox[{"x4", "->", "0.2221"}], ",",
/ x9 c# ~& _- {5 k8 N* {+ t7 j    RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",
3 w4 A9 W2 b/ U, o& \' q CellChangeTimes->{{3.57796267209435*^9, 3.5779627224200373`*^9}, {
  3.5779627663029137`*^9, 3.577962774820529*^9}}],
- d1 `" a$ R$ ]. f  j: \
Cell[BoxData[
RowBox[{
  RowBox[{"0.2286149508637297`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
4 q( f5 Z& l4 }4 K  K: D! W$ A      RowBox[{
! l. f1 o$ ]% S       RowBox[{"-", "0.17911224641499998`"}], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
. x5 F% ^3 D. k          RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
* c& x' d  Z5 M( d( L- u          RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
3 U. G" ]! r5 l8 i8 A; T       SuperscriptBox[
& a% F* I" U( E; o- p4 B        RowBox[{"(",
9 i+ J$ b2 S# c4 ~         RowBox[{
          RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
. a  H  T0 E. r$ d0 ?       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
7 @; M  o, x9 e( J- ^& I         RowBox[{
          RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
  RowBox[{"0.020180806675835994`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
& Y+ |- a* h) B7 i! t     RowBox[{"(",
      RowBox[{
       RowBox[{"-", "0.105619387859`"}], "-",
" H3 X8 a+ Y) Y       SuperscriptBox[
, e. o; n( I; L# }0 ]6 I! e        RowBox[{"(",
         RowBox[{
: x0 I/ _; R0 Y! [          RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox["x6", "2"], "-",
8 e3 @& G5 w' S       SuperscriptBox[
& E3 Y- I* F; m; J        RowBox[{"(",
0 g6 J! v! b8 T6 c         RowBox[{
          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox["x8", "2"], "-",
6 U+ h2 ^+ I' C/ k' Y* ^9 ~( i       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
3 t7 x4 Q+ N. w+ T1 w          RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
6 |) U0 G7 k' V/ \" R  "+",
: s0 p7 ]: k$ c6 |; a6 j  RowBox[{"0.13092706311748437`", " ",
$ i0 Y; d9 g7 l1 K% Q2 T3 `   SuperscriptBox["\[ExponentialE]",
# B  v" i# c3 l0 V% N6 D    RowBox[{"3.1415926535897936`", " ",
3 G1 s) h* t, c* `  p$ h# u6 m     RowBox[{"(",
" A- n* c( t. s. |      RowBox[{
) O. r3 q3 x3 O8 z& E' C1 e6 F       RowBox[{"-", "0.236605670085`"}], "-",
2 Q' a) q, f( t. n; C& T5 y       SuperscriptBox[
0 z0 k5 N4 R0 J: e        RowBox[{"(",
$ S( h, L( h! g+ b         RowBox[{
  [! b! y! A' c; I; e          RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
! r8 E1 j1 \- V       SuperscriptBox["x6", "2"], "-",
2 O# n( [- R5 M4 A" G. a7 O8 k, ?       SuperscriptBox["x7", "2"], "-",
) X4 F# K( N0 r) L6 @4 k% L' W2 u       SuperscriptBox["x8", "2"], "-",
2 @! X8 g2 K. `" O# \6 N1 j. `" q* s       SuperscriptBox[
        RowBox[{"(",
: ^4 {$ e8 p. P: h9 B6 u) W1 h         RowBox[{
3 [* N( _0 i* p, W/ ?          RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
  L8 K4 N* v  E8 {# ~  "-",
: K6 O( w' Z% m  RowBox[{"0.033459349088924784`", " ",
   SuperscriptBox["\[ExponentialE]",
9 t  d3 \& y  R    RowBox[{"3.1415926535897936`", " ",
: Z2 y( |" i, D     RowBox[{"(",
, v3 U3 U' y. @0 m; a8 [      RowBox[{
       RowBox[{"-", "0.46221081830200006`"}], "-",
. I9 v7 d# o  u) b6 O. u6 c' |6 o       SuperscriptBox[
! Y3 k6 z5 O0 z$ R: B0 @+ L" i        RowBox[{"(",
* g7 x3 f* b: p) F- z         RowBox[{
          RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
+ o/ R. s( L9 D# R        RowBox[{"(",
         RowBox[{
2 K7 ~9 c: d; [+ v$ A          RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
$ v5 I7 S$ E, V       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
- q: l# J  G; D' T2 y0 s       SuperscriptBox["x8", "2"], "-",
( F2 w; s0 R  L% v" \$ o       SuperscriptBox[
        RowBox[{"(",
$ B5 T* Q% E7 k& Z  R# }         RowBox[{
, J( q5 K  q( U+ K% z2 H" z          RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
& Z; `* {) ]9 x  "+",
* Z" q! V% a8 q' W  l. l: ?  RowBox[{"0.39611806709006653`", " ",
   SuperscriptBox["\[ExponentialE]",
7 b  C- J0 m7 F* f: d1 m1 S: @. F    RowBox[{"3.1415926535897936`", " ",
: n6 H, f- B2 r     RowBox[{"(",
8 L# v/ v( T9 ^: M* J      RowBox[{
       RowBox[{"-", "0.5837889295140001`"}], "-",
. j% s8 i& T5 P+ [7 O9 I( K       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
0 j4 z3 D4 x1 c9 b& F  g          RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox["x6", "2"], "-",
       SuperscriptBox[
2 T! P- k0 K8 f6 S' Y8 k* ~; j        RowBox[{"(",
6 K+ j. V) w; \' d* w         RowBox[{
: u4 n" O# @/ \: `          RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
/ p# y* |7 F( ]: Y) x( ^       SuperscriptBox["x8", "2"], "-",
. L2 {  ?1 Y8 F3 I3 H2 M. Q       SuperscriptBox[
* S; M' y* M9 H4 }# d        RowBox[{"(",
         RowBox[{
5 T3 `) Y8 ~& Z4 b& ~5 W          RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
  "-",
: f0 Z" P: @0 ]5 D+ _! a% v  RowBox[{"0.19996885877792045`", " ",
. |) ~. N* _8 _+ K- s- ~   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
3 ^+ l6 B. n: Y$ ]5 ^7 T' |3 S" f     RowBox[{"(",
' j% I! X( Y3 F, T      RowBox[{
" n" h' o! C9 }       RowBox[{"-", "0.19030188470200005`"}], "-",
       SuperscriptBox[
8 ]% I$ E+ G3 o% N2 S% c: ?) U        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
! ^! H5 W5 g" ?. g        RowBox[{"(",
( {9 m' |9 j; q* j! P         RowBox[{
          RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
, D5 ^6 e# i/ `  B       SuperscriptBox["x7", "2"], "-",
0 W: `* ^) R) I3 i% C       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
% k" O) X9 m/ Z% L         RowBox[{
          RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
  "+",
$ B. T# d! @% _& e  RowBox[{"0.23580523388620744`", " ",
, C" h7 |* x5 |/ b5 ]   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
$ h+ w4 D! q  S     RowBox[{"(",
& R; M( x# q- h3 W) R0 c$ B" [      RowBox[{
       RowBox[{"-", "0.28518780882`"}], "-",
* ]$ R. r) @9 ^" W( _( S, n$ r8 l( r       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
1 Y! E- S5 d4 f9 @7 d+ i' M+ o9 S          RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
8 `1 z  Y( _9 I7 s- q/ B          RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
' W/ N: T' `- g: {' ~       SuperscriptBox[
        RowBox[{"(",
+ R! G. }, h% ?4 Z; s/ d6 b         RowBox[{
( u6 Z/ o+ w& H          RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
& l$ g7 W5 C+ a  h2 P+ W0 r& C       SuperscriptBox["x8", "2"], "-",
9 b5 [6 }; Z5 o* b  }       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
/ }# K- c/ R% }! Y0 ~, B! f          RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
' X7 u/ y. Q; Z- u4 W# X8 j  "+",
" ~7 A/ f  ]' G  RowBox[{"0.667027259367853`", " ",
   SuperscriptBox["\[ExponentialE]",
- Y  @  v" M/ ^  {' A1 B9 b* Y    RowBox[{"3.1415926535897936`", " ",
0 c. v& I5 k6 \, O. ]0 P     RowBox[{"(",
; q) X  p* u) t      RowBox[{
1 U, N3 u/ O, j% d( x" w3 A       RowBox[{"-", "0.11387365200400001`"}], "-",
' [, @7 u& l6 Z! L) L       SuperscriptBox[
( `! M/ P$ y. X  l        RowBox[{"(",
         RowBox[{
% q( z3 ?. F2 c) P# I0 b( h          RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
4 \4 R0 S; a5 Y4 K: a- ^$ f        RowBox[{"(",
) ^: r  J  s7 }         RowBox[{
% \7 D; q4 Y% s* O5 r9 n          RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox["x7", "2"], "-",
; n  R' L' P( e8 a* O3 Q       SuperscriptBox["x8", "2"], "-",
! Q5 s  m8 ~' u1 i       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
  "+",
; r! C* h, y5 j" i4 @) W4 [  RowBox[{"0.25282438852646905`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
8 G1 f2 M) u: R( L7 G% m& V     RowBox[{"(",
) _3 t/ ?& h! g      RowBox[{
# s- t( }9 X% s+ N/ k       RowBox[{"-", "0.11442644782500001`"}], "-",
2 S9 y+ S* D& o       SuperscriptBox[
" E* _* r6 z2 m3 e" P        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
4 J& k# [! z; u1 S3 J       SuperscriptBox["x6", "2"], "-",
       SuperscriptBox[
: g; A( J. e- q6 K# C2 I+ m        RowBox[{"(",
         RowBox[{
6 d. M9 N& `; E' R8 }+ d3 A; A) k: \          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
% Z/ D% j  {- N, [1 ~" }6 X       SuperscriptBox[
( Q" J& J/ z2 T+ l: ^6 [        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
  RowBox[{"0.07581214474544536`", " ",
( f% N5 Z1 x$ B2 A4 l   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
( r4 d; h% p- q- Q, e6 U" s9 P, T     RowBox[{"(",
, S: {& e' |  W% P      RowBox[{
  k. n+ ~- r  M0 P2 R1 i  ?       RowBox[{"-", "0.21008576609800003`"}], "-",
       SuperscriptBox["x3", "2"], "-",
       SuperscriptBox["x6", "2"], "-",
       SuperscriptBox["x7", "2"], "-",
       SuperscriptBox[
, }5 q, E2 i# W2 H6 F        RowBox[{"(",
8 E- d8 \1 K& ]# a3 ]* s         RowBox[{
          RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
  o! P1 y$ L( b0 n  RowBox[{"0.10599338351843121`", " ",
   SuperscriptBox["\[ExponentialE]",
: g  A6 R' X1 |. u6 D3 i+ Q    RowBox[{"3.1415926535897936`", " ",
" b% z+ r4 F9 ?/ K     RowBox[{"(",
& O2 {, D8 ?: x      RowBox[{
       RowBox[{"-", "0.4481471925460001`"}], "-",
# m% E/ E5 \% R0 F8 R1 l  Y  E       SuperscriptBox[
        RowBox[{"(",
3 @1 f: n4 x2 F         RowBox[{
          RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
' I; b7 x  k- b        RowBox[{"(",
, d' S/ k! s  B1 H' b- u$ n         RowBox[{
6 @: i- z- l2 X) K" }          RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox["x7", "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
6 b: @3 |6 @+ K6 ~# V+ u9 M$ L         RowBox[{
          RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
; l, [2 H. `/ \6 \' Q0 M0 N- W  RowBox[{"0.5008208386064421`", " ",
   SuperscriptBox["\[ExponentialE]",
0 _3 Y. V) v- k' f3 B8 a    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
      RowBox[{
# ]6 G2 C8 ~$ J       RowBox[{"-", "0.08722659614000003`"}], "-",
' c+ G2 }% m5 a       SuperscriptBox[
% u7 }, }" d4 ?3 B$ U        RowBox[{"(",
         RowBox[{
+ H. c! E  D# |; B$ V          RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
2 a+ B: e% v( G* F3 P2 b          RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
1 c# f! t$ H+ C! L8 T( s9 Z       SuperscriptBox["x7", "2"], "-",
       SuperscriptBox[
# i/ J" L% p, S2 \        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
  RowBox[{"0.32564305572552343`", " ",
+ j. L, `3 H8 g* y   SuperscriptBox["\[ExponentialE]",
8 {; _1 P0 ^4 a2 U    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
      RowBox[{
5 S1 C( M% W- |( d+ Y0 x       RowBox[{"-", "0.23738217000100004`"}], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
9 Y5 x8 `6 y1 @8 |/ P        RowBox[{"(",
/ q8 h0 A6 K) A% p         RowBox[{
. E+ Q' a0 B3 h          RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
0 S+ G$ ]7 D$ k3 [- V       SuperscriptBox[
        RowBox[{"(",
( J0 h/ b1 x) y8 J7 G         RowBox[{
0 I1 O7 f, c! B          RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox[
9 E$ U; i' o$ a$ ^' E( U7 j1 }, Z7 D        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
  RowBox[{"0.6665374509702793`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
4 b4 \0 T, ?* \  \' Y* c; f; q      RowBox[{
       RowBox[{"-", "0.19162171876400003`"}], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
3 q' j% K  `% z# ^+ H         RowBox[{
          RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
2 ?# m/ r$ M3 {' X) k         RowBox[{
          RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox["x8", "2"], "-",
" s. E: Y; _6 {" O$ Z       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
; v5 Q; I1 \1 S( s  RowBox[{"0.4812237524557293`", " ",
) `' G6 P6 C) [7 D$ D$ l   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
+ x: N8 a6 K  g- i" E7 N; g  c     RowBox[{"(",
      RowBox[{
/ ?3 @  N! D9 `; m! m1 k/ Y( v       RowBox[{"-", "0.109748954594`"}], "-",
4 [: W" @; C( ]7 `0 j, H9 c: E( O       SuperscriptBox[
        RowBox[{"(",
: |6 O. I7 D' V% @2 q  ]/ M         RowBox[{
6 T  W+ z" ^; i* s" M/ T0 S( x          RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox["x6", "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
# H2 R6 }6 K- p6 M- x# x       SuperscriptBox["x8", "2"], "-",
7 F6 Z4 n' w7 t! z) n0 L! c       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
! Z( i5 v& u/ O  RowBox[{"0.176024676254045`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
2 u% i& T( ?0 M/ p  G9 a4 j      RowBox[{
. C: m# p  _& r" l3 q# Q- k. E, b  ]       RowBox[{"-", "0.14616677062500003`"}], "-",
       SuperscriptBox[
        RowBox[{"(",
# o/ M2 m" z+ J/ d6 z0 U# p         RowBox[{
          RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
' M, r  c0 a9 Q& k6 u$ I/ _       SuperscriptBox["x6", "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
% {" u- t: ]- `" J$ U/ x         RowBox[{
          RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox["x8", "2"], "-",
) D% n5 Z2 ]$ J& H       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
  RowBox[{"0.5945873894818965`", " ",
' Z: Q# ?" k7 e. T* g# u   SuperscriptBox["\[ExponentialE]",
7 Y3 t; m9 {7 B/ Y, f/ N1 k    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
      RowBox[{
) |. a+ H2 {8 Y$ D, Q       RowBox[{"-", "0.10407011464100005`"}], "-",
' D  y0 A9 X; U) b  d; j. s; i0 A       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
( [# T9 c  j1 f7 k, q          RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
$ N! `" Z7 O" S# [7 c% x- C7 Q        RowBox[{"(",
5 P9 E; r! E- q7 s( _         RowBox[{
' b0 j- w6 `  e0 h          RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
; W1 x6 b" ^+ r6 n" g7 ~+ }, |4 D: }8 V# E       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
  RowBox[{"0.027591936509660075`", " ",
2 ?7 X( H5 F2 @# T9 Z   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
/ o# V- P' j  t0 F9 A      RowBox[{
       RowBox[{"-", "0.31770463544200006`"}], "-",
, c9 l+ i6 @( _+ {0 t       SuperscriptBox[
" r( b2 I1 E  x/ Y' q: j        RowBox[{"(",
         RowBox[{
$ U4 b/ B4 U6 c1 f" ?( ]- A8 F' g, z          RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
+ T# p  l. f0 J$ M7 T! e       SuperscriptBox["x6", "2"], "-",
       SuperscriptBox["x7", "2"], "-",
, T4 k6 A8 e, _; _1 g# T; F3 E       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
  RowBox[{"0.5252475961933536`", " ",
4 ?3 k- L% o2 F8 w* u% W& g   SuperscriptBox["\[ExponentialE]",
' S" Y/ W  ~* p1 }7 j. b. C2 x    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
: u$ r2 M% X4 ^  t      RowBox[{
% G" G, E  e+ ?7 I6 }4 x' U9 w: T       RowBox[{"-", "0.6410867660730001`"}], "-",
4 a1 d+ V& [8 @; A2 u& a       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
" [% w# M8 o) r3 R* e6 C          RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
1 j1 ~9 T$ e7 _: o% H, y       SuperscriptBox["x6", "2"], "-",
# U* `& ?9 m. q# J3 n5 j       SuperscriptBox["x7", "2"], "-",
' w( P, {; c6 `6 k4 G) e) k2 {- I       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
  RowBox[{"0.32047284779644936`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
  q$ o. x9 A6 L/ r$ N     RowBox[{"(",
5 Z/ P) e& y  x      RowBox[{
; D, I2 Q$ o2 _* w1 [; H: g) k, U       RowBox[{"-", "0.155663887074`"}], "-",
       SuperscriptBox[
        RowBox[{"(",
5 o5 s# K/ a+ `( f: s" a& x1 J         RowBox[{
  L8 N5 y5 C& ?0 i' c# B- c- D! @          RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox["x6", "2"], "-",
" j- ?4 O/ \# `5 n       SuperscriptBox["x7", "2"], "-",
       SuperscriptBox["x8", "2"], "-",
+ D1 M7 F, v0 b6 T       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
  RowBox[{"0.7528674241482847`", " ",
. Z& D' a- G6 g% ]" Q' X   SuperscriptBox["\[ExponentialE]",
$ ^: m* @* i( R. c) c    RowBox[{"3.1415926535897936`", " ",
0 Q  ~2 n7 U1 a1 [* o5 P- Z! }     RowBox[{"(",
5 l, ^7 f8 B( f* h* K      RowBox[{
       RowBox[{"-", "0.14151232428600002`"}], "-",
( R9 V3 d3 _8 r0 q* l4 z       SuperscriptBox[
        RowBox[{"(",
: ?- u3 T- j& J8 G& j, I         RowBox[{
- |2 n+ a, I* [          RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
. @3 i' N0 |  p) S+ l) i- `" `) n* @       SuperscriptBox["x6", "2"], "-",
       SuperscriptBox["x7", "2"], "-",
       SuperscriptBox["x8", "2"], "-",
' Q4 {" a* J& X+ I       SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",
CellChangeTimes->{3.5779628386090403`*^9}]
& k4 V) a2 |7 @) x5 Z}, Open  ]],
. f  A' o/ Z& C7 e+ R- y
Cell[BoxData[" "], "Input",
* n% b4 g6 Q- |% U CellChangeTimes->{3.577962835879035*^9}],

Cell[BoxData["\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\:4e3a"], "Input"],
4 y2 f7 y; G% H8 j: l# N
Cell[CellGroupData[{
3 o7 g' d& ~' s1 y
Cell[BoxData[
RowBox[{"y2", "/.",
! d) S. W% t! z6 o; z7 x  RowBox[{"{",
   RowBox[{
6 n1 t$ s9 ]) {+ Z' M2 y/ a$ `    RowBox[{"x1", "->", "0.7406"}], ",",
+ a: r' ]" n# ?: t    RowBox[{"x2", "->", "0.4621"}], ",",
, t; v% G. f2 H+ Z* j1 o    RowBox[{"x4", "->", "0.2221"}], ",",
    RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",
CellChangeTimes->{3.577962787784151*^9}],

2 ?$ s- ^  B: [8 y/ ^: P# m" \9 UCell[BoxData[
" e* U/ c( {1 T- H1 a RowBox[{
+ l1 m8 {; z) u  RowBox[{"0.9125798890455848`", " ",
# A& S( F4 n! V; e  X  m   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
( g" w; h7 Z2 A/ o      RowBox[{
       RowBox[{"-", "0.17911224641499998`"}], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
8 w9 {- G7 h3 Y       SuperscriptBox[
        RowBox[{"(",
' b! ]% J  \( V         RowBox[{
: }) L" H/ @4 d( J" s          RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
& v  z! r: D6 F. p' L$ p' |4 v$ r       SuperscriptBox[
1 O) R# V' ^" x0 d        RowBox[{"(",
" p7 q+ _5 ?4 l7 A5 ~) B5 n         RowBox[{
# n2 c3 _2 I% f6 F# g3 T( ]          RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
' g, _9 ~0 [  ], G1 m8 L       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox[
$ J' W9 M& E) d5 }4 h+ I0 S        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
  RowBox[{"0.2883186011296682`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
      RowBox[{
! }. x. C5 m1 t1 {/ A( c- F7 x       RowBox[{"-", "0.105619387859`"}], "-",
       SuperscriptBox[
! ]& d. v0 I% f        RowBox[{"(",
! }8 L; ^# J% O" R! X, j         RowBox[{
          RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox["x6", "2"], "-",
& T0 p1 e0 R. p& `       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
. {. y1 M7 ]! R# N4 [! h6 q          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox[
, m! K% f* l, m+ g        RowBox[{"(",
         RowBox[{
( P. M! D' W9 k" P& j6 L' P          RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
3 V8 W- P7 E5 G: U" P  "+",
  RowBox[{"0.2115905228598317`", " ",
) @$ g, c% n# a2 O1 ?   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
. `+ P8 O9 n9 D; I( B, ]* i      RowBox[{
       RowBox[{"-", "0.236605670085`"}], "-",
: P# K# E& B; S8 u       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
" x8 j4 N. g% K       SuperscriptBox["x6", "2"], "-",
/ c. B7 d+ |2 u- q- U       SuperscriptBox["x7", "2"], "-",
       SuperscriptBox["x8", "2"], "-",
9 A. \( X# {& j+ R# y5 {/ H7 m       SuperscriptBox[
        RowBox[{"(",
5 A$ @$ o* p  ?+ o3 x; T* l: Z         RowBox[{
          RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
  "-",
. \6 r  R$ v  M: Q4 O! z% B0 P/ g  RowBox[{"0.22829938846668896`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
) E0 _/ N# C- k     RowBox[{"(",
5 Z7 r" F# V. o4 k8 T      RowBox[{
% h1 L1 ^' o  [2 e: r       RowBox[{"-", "0.46221081830200006`"}], "-",
4 r9 ^. K5 w2 V' f       SuperscriptBox[
7 I' K% h& U# U9 w$ X' U' j' ?        RowBox[{"(",
9 z( o; F  t: Y. t7 I         RowBox[{
6 y6 J7 {' v. `3 W          RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
+ [( s& R+ p9 o# P1 u5 V* N          RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
" K( [+ b6 F7 \$ u7 v  m& `        RowBox[{"(",
         RowBox[{
( w  r( G: _9 n  `& E          RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
* {; ^: b4 x+ ~# P4 g- Y  _       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
* Z8 p: N. A8 o3 i$ j2 w          RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
4 `5 V" }4 y2 ]% ^  z  "+",
  RowBox[{"0.27551257162880105`", " ",
   SuperscriptBox["\[ExponentialE]",
$ l* v# [" n& t% k# ?. h- j+ k    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
& i+ A. t/ F  P8 `% u+ Q      RowBox[{
       RowBox[{"-", "0.5837889295140001`"}], "-",
) m; D' U9 Q4 I2 v$ K       SuperscriptBox[
9 ]4 e! H) Y! S        RowBox[{"(",
. K7 c- R& I8 r" [8 L         RowBox[{
          RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
) y& f  x4 W2 V; [0 z% f& o5 R       SuperscriptBox["x6", "2"], "-",
! c8 R3 q3 x& b% c       SuperscriptBox[
        RowBox[{"(",
' d7 Q: o, l5 q7 n0 Z3 u: [% B         RowBox[{
$ P3 O, Y7 ~  e2 d/ [          RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
) ?7 w7 d: A' A; Q' J; _& m       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox[
& F7 N/ |' U. T& |2 q- I        RowBox[{"(",
$ L% M1 i. |! ]$ x) Y0 D* Z         RowBox[{
          RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
# Q! [' T: R1 W' T: X( k  "-",
+ w9 f: k5 C5 Z( S6 T& q1 @  RowBox[{"0.12620581913715256`", " ",
& k5 l7 K1 L; ^# E& H   SuperscriptBox["\[ExponentialE]",
3 r% c# z- R5 r    RowBox[{"3.1415926535897936`", " ",
) i. x3 X3 \& F2 R6 d' t% n2 F     RowBox[{"(",
      RowBox[{
; Q/ j. R" N$ `7 a       RowBox[{"-", "0.19030188470200005`"}], "-",
4 r& }2 C" m7 V       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
" R/ L; k: q" w          RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
. X! {- F% e, x+ P/ Q1 @       SuperscriptBox["x7", "2"], "-",
       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
- @: z0 x6 q2 b& }5 U          RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
  "+",
2 {  U5 \$ `1 z1 c  RowBox[{"0.12782130225993898`", " ",
   SuperscriptBox["\[ExponentialE]",
+ P- B+ j7 C% P; X. `  \! d    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
      RowBox[{
& d( L7 R- o9 `6 T, {       RowBox[{"-", "0.28518780882`"}], "-",
: o: @$ x! G: O& K4 Y9 d6 Y# f! ]# P( w       SuperscriptBox[
        RowBox[{"(",
% S" P; m7 W9 j2 i! O; F. g) f3 k         RowBox[{
          RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
: r$ J0 g9 m/ R       SuperscriptBox[
        RowBox[{"(",
) q1 S# R; d; o! C. O& t         RowBox[{
2 L8 M( _* d7 k' ^+ q! Q          RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
: y8 J6 t# e8 a+ ~7 X       SuperscriptBox[
0 T7 U0 B2 p7 k  w        RowBox[{"(",
4 f0 u; l- r/ s, g% _" _         RowBox[{
4 l  O- ]1 B3 ?          RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
& O2 ~8 [. s/ f+ }' c         RowBox[{
  H% {2 E# ^% h$ V, Y* E3 _          RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
; B7 W' H2 X; a9 T1 _  "+",
* B7 n* L9 J& M+ T, n  RowBox[{"0.23615247809381104`", " ",
, h4 j2 J8 v- M" M- L& N+ \3 f* Y   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
      RowBox[{
8 \9 ~9 x% H, T4 x: J3 D3 ]       RowBox[{"-", "0.11387365200400001`"}], "-",
' x. Y; D; Q$ T, O: i4 U       SuperscriptBox[
6 Z# s9 z. U% Y1 t  [) Q0 A2 O        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
8 F9 t: c9 O/ e0 s% \, b        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox["x7", "2"], "-",
9 Y9 p. Y( Y( t% b. D3 f9 r       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox[
" e; y. K* _1 B5 W6 }% ]        RowBox[{"(",
! [, g, N. N! y, v: z) s         RowBox[{
$ Y$ s: B0 h; V* X* v          RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
  "+",
  RowBox[{"0.3207174990295845`", " ",
) V0 l# |* H% `% W% `   SuperscriptBox["\[ExponentialE]",
7 r% D1 [) M" Q0 ]0 V    RowBox[{"3.1415926535897936`", " ",
( h/ c" ^& u* i     RowBox[{"(",
+ G% I8 R) `' `  D9 u& ~8 y      RowBox[{
$ z7 O) h) e$ ]% r' J       RowBox[{"-", "0.11442644782500001`"}], "-",
6 m8 ^  e8 M5 T       SuperscriptBox[
3 T5 D0 g0 d: f        RowBox[{"(",
+ |) M+ y2 T* }         RowBox[{
          RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
, R0 S; U" D, Y' i- H  w. n( k* ]3 K       SuperscriptBox["x6", "2"], "-",
1 N! U4 ?' R; z4 P       SuperscriptBox[
        RowBox[{"(",
1 _3 ~* ~  w- H         RowBox[{
          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox[
% \4 S, W$ m  V7 o7 E, u' d, s        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
! b) t! d* t; e% l       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
  RowBox[{"0.15852708848338293`", " ",
   SuperscriptBox["\[ExponentialE]",
2 F7 c& y2 T% @" v: S    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
1 i. ~5 Q2 ?) g' s( f, i      RowBox[{
  u& i# i% \7 A  v/ ]       RowBox[{"-", "0.21008576609800003`"}], "-",
       SuperscriptBox["x3", "2"], "-",
& o/ S' l. J3 N6 o       SuperscriptBox["x6", "2"], "-",
, U$ }- ]4 z6 Q1 s% `. ]       SuperscriptBox["x7", "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
, M; s- L) B" F8 o  h9 f( Q( Q% f         RowBox[{
          RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
  RowBox[{"0.6019775648968266`", " ",
% `2 X. a# n. O0 j0 Y   SuperscriptBox["\[ExponentialE]",
3 B0 b, Q' I9 h# S( Y" o+ x" }    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
, p. r1 D! v4 [1 ^      RowBox[{
) A) Y( M2 Q& y2 K3 S. n) J       RowBox[{"-", "0.4481471925460001`"}], "-",
6 H: c, e' o7 O) ?6 ?, L$ O       SuperscriptBox[
' ~0 w' |3 z) @+ A) ~+ }% S2 B        RowBox[{"(",
+ o6 ^9 q3 y4 |  F, R         RowBox[{
/ N) z8 O/ t+ O& Z! \          RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
; q8 f0 V# I% V) Q# U4 u4 R       SuperscriptBox[
* S. R9 Q- @- C% y+ N! M' \        RowBox[{"(",
         RowBox[{
. `0 E5 I5 b* s* u1 x" y8 n8 H          RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
% s+ `& [; f+ e# A& _( u       SuperscriptBox["x7", "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
% m; g) d6 k+ `3 t1 A. v         RowBox[{
          RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
( D: I' K$ v+ Q2 u9 x0 ?) O; m       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
  RowBox[{"0.16041393254115266`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
5 C$ P7 @; Q! {. ~      RowBox[{
       RowBox[{"-", "0.08722659614000003`"}], "-",
       SuperscriptBox[
        RowBox[{"(",
4 r' b. y- n. [: t; V         RowBox[{
1 `0 i) }2 u# _5 t8 z          RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
+ ?( Y0 v! g& z  V# p       SuperscriptBox[
1 E) p3 U, C) w& t5 T* z' b        RowBox[{"(",
         RowBox[{
7 x1 a1 w: K$ A; C& z" V          RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
* K5 y; j7 y; j) p       SuperscriptBox["x7", "2"], "-",
       SuperscriptBox[
7 P' W' t% h3 i+ `" n        RowBox[{"(",
         RowBox[{
) _& u" z9 G8 q* L$ x- f/ ^6 W          RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
; M# U  k& J7 N4 }       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
8 N) N$ Q$ }' J  RowBox[{"0.482281849713638`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
( ~: V" \  e) m+ O4 z, q8 R& I5 [      RowBox[{
       RowBox[{"-", "0.23738217000100004`"}], "-",
       SuperscriptBox[
8 X7 M( f! W% d+ o2 L$ |' n        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
- v/ y# v2 P1 d! O4 z. P       SuperscriptBox[
) c- G1 _7 T5 V* Z# {" }        RowBox[{"(",
         RowBox[{
' Q% N9 l) y; d3 W          RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
4 L  h3 s7 ~9 H$ S       SuperscriptBox[
0 {9 V! k  B' ?2 P/ r        RowBox[{"(",
3 T* f& \. S1 H- \         RowBox[{
          RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
! A7 ~: L0 a' P. o; D* s; _) X          RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
0 J. ]% A4 [/ i; S  RowBox[{"0.29549238400772093`", " ",
7 u: Z+ y( D8 ^5 _   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
% W2 g' h  L1 y) w. @     RowBox[{"(",
1 R. o% c+ q3 b% W$ X0 U; \      RowBox[{
       RowBox[{"-", "0.19162171876400003`"}], "-",
       SuperscriptBox[
        RowBox[{"(",
* L7 l- z9 F" T2 e$ c" F         RowBox[{
          RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
( H, w8 ?; v3 K2 P1 I8 ]) a3 F       SuperscriptBox[
        RowBox[{"(",
# c8 S- ~& E7 F6 G7 c3 R' Q; O7 n3 D         RowBox[{
2 x+ H+ a5 F# t  s& @' s3 x( S* H9 W. g          RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
, ]# H% Y  X1 R2 Z4 @- f  q        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
+ F" ?7 ^1 ]; p       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
( \+ Q. z3 t9 U0 U" e, A" Y4 {  RowBox[{"0.31296872769679895`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
      RowBox[{
       RowBox[{"-", "0.109748954594`"}], "-",
       SuperscriptBox[
" j4 C3 e: W9 y/ V        RowBox[{"(",
         RowBox[{
( \9 e: z5 ?2 [5 H: q          RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
4 {0 E' c/ V8 G7 b( d! k       SuperscriptBox["x6", "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
5 _9 Z8 i+ Y& G, l1 j  o          RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
+ v6 O7 e) d, v4 R       SuperscriptBox["x8", "2"], "-",
0 L! @2 y% _% p* X. H* k1 B. }       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
  RowBox[{"0.4666313851213299`", " ",
% n/ X! _0 T: O$ U! J- j$ m# x   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
0 @( ]: z' G, G' A     RowBox[{"(",
" q: m! g7 I8 I) }3 ~7 ^      RowBox[{
       RowBox[{"-", "0.14616677062500003`"}], "-",
3 N4 ?9 G  ]0 N9 M8 t       SuperscriptBox[
1 G! D; S) M5 N" B- |        RowBox[{"(",
         RowBox[{
# Y" k' R6 @2 I$ h          RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
4 I$ j" Z5 Q& j  f" g' X       SuperscriptBox["x6", "2"], "-",
       SuperscriptBox[
0 ]9 A6 q- K( B1 @" \: h        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
8 J1 N, A! J, G       SuperscriptBox["x8", "2"], "-",
" K, f( j' u. T( O! E6 M  K# ]       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
% I. s  n; N+ f; F  h, t6 g  B2 E  RowBox[{"0.37419828116611387`", " ",
) `8 Q: H. |  P6 q, g   SuperscriptBox["\[ExponentialE]",
5 v* ~# j% T7 v+ ^+ y8 X9 a" k) R    RowBox[{"3.1415926535897936`", " ",
2 [" D0 I* p; o# t, l: L5 ]# [) A( h     RowBox[{"(",
$ q4 r! u9 n% D/ m" H      RowBox[{
1 F$ z' Q" e9 ^$ F, n* Q6 k+ }; x       RowBox[{"-", "0.10407011464100005`"}], "-",
9 o6 Q1 ]6 ~) l9 O$ M( ^       SuperscriptBox[
$ ~  L1 g4 s, E1 {0 T        RowBox[{"(",
. L1 x' Y7 R( I6 a2 o2 n         RowBox[{
          RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
0 l, P% d1 z$ k7 c         RowBox[{
( g" U# T  c6 ^0 J3 a; b          RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
- f0 O5 V7 Q  C7 f) x2 q/ H       SuperscriptBox["x8", "2"], "-",
" |! ?' l8 n' d5 c       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
  RowBox[{"0.025873988843992612`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
8 D/ g& f, `# M( b3 I8 W9 u4 |- x* v     RowBox[{"(",
      RowBox[{
0 `/ J7 m$ k/ K! ^       RowBox[{"-", "0.31770463544200006`"}], "-",
) h% T5 [3 c6 l1 i0 V' L$ s$ G       SuperscriptBox[
) R# G) ^! {9 b4 s# O' ~: Y        RowBox[{"(",
$ y4 J4 `" u8 ], B9 e9 Z5 V' Z! Y1 N% U         RowBox[{
, x, |7 \4 @, }. V# D5 f0 V          RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
: H7 O" x7 t' H( v1 w" M       SuperscriptBox["x6", "2"], "-",
       SuperscriptBox["x7", "2"], "-",
       SuperscriptBox["x8", "2"], "-",
' R# M4 G1 Q1 ^$ V; e2 ?       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
  RowBox[{"0.5575503376854455`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
4 p+ z" l( g" y1 f1 {, u% H1 [      RowBox[{
       RowBox[{"-", "0.6410867660730001`"}], "-",
       SuperscriptBox[
        RowBox[{"(",
- K( x5 S9 A/ t. m         RowBox[{
          RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox["x6", "2"], "-",
       SuperscriptBox["x7", "2"], "-",
. l/ [! P  e/ {       SuperscriptBox["x8", "2"], "-",
! E$ {" @3 s. ~: c       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
! N: u" i6 a+ j; w1 @% i  RowBox[{"0.13398540448199214`", " ",
   SuperscriptBox["\[ExponentialE]",
    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
7 h0 E% W$ E; n* g      RowBox[{
1 r0 z4 j  B$ \2 K       RowBox[{"-", "0.155663887074`"}], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
          RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
       SuperscriptBox["x6", "2"], "-",
       SuperscriptBox["x7", "2"], "-",
       SuperscriptBox["x8", "2"], "-",
       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
  RowBox[{"0.4572385099113415`", " ",
   SuperscriptBox["\[ExponentialE]",
( o$ J1 e( L5 k4 w, r9 O+ |3 g    RowBox[{"3.1415926535897936`", " ",
     RowBox[{"(",
/ ^- k6 }4 U! G8 E      RowBox[{
       RowBox[{"-", "0.14151232428600002`"}], "-",
       SuperscriptBox[
        RowBox[{"(",
         RowBox[{
" y! J  w1 `" M, h8 w          RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
- |3 p% Y- K9 D1 w9 y8 V0 ]       SuperscriptBox["x6", "2"], "-",
       SuperscriptBox["x7", "2"], "-",
       SuperscriptBox["x8", "2"], "-",
/ y5 O; v- x7 a* \" E6 i& ~+ f; o) E       SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",
CellChangeTimes->{3.577962841401445*^9}]
# G# F# D- u2 g4 s}, Open  ]]
# I& A/ V* `: l8 x},
7 W4 S4 F  ^6 m8 A: Y. b) D4 oWindowSize->{1093, 659},
WindowMargins->{{61, Automatic}, {Automatic, 15}},
8 |: j% D; G- w8 bFrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
$ X* H4 B' N2 m(* End of Notebook Content *)

* i% B6 f+ I7 G+ F& B1 f/ w% Y- o(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
/ ^. K7 I' _3 T' T$ b* }* YCellTagsIndex->{}
*)
' o2 q' v+ ]+ J(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
6 E. f. _! Q) K9 r6 |2 G" v: {2 \Cell[567, 22, 22639, 450, 1792, "Input"],
Cell[23209, 474, 21281, 449, 1703, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44527, 928, 198, 5, 31, "Input"],
Cell[44728, 935, 53666, 1605, 1532, "Output"]
}, Open  ]],
Cell[98409, 2543, 614, 16, 112, "Input"],
* v+ e& d4 H0 z0 e6 t" |Cell[99026, 2561, 667, 17, 72, "Input"],
Cell[CellGroupData[{
  t" M, a) h/ S  }* _# X1 I) w  cCell[99718, 2582, 885, 13, 52, "Input"],
Cell[100606, 2597, 935, 14, 30, "Output"],
' T2 f9 A; Z% V8 ?7 g0 }, k  O( F+ \* {# qCell[101544, 2613, 932, 14, 30, "Output"]
! R0 @& l. W7 |# Q}, Open  ]],
Cell[102491, 2630, 4236, 93, 412, "Input"],
! l. i! ]1 U* X6 i- i2 pCell[CellGroupData[{
3 I& G2 d+ j7 h# I1 J! NCell[106752, 2727, 90, 1, 31, "Input"],
Cell[106845, 2730, 872, 13, 30, "Output"]
1 O/ i- E9 n: ?2 ~" a6 H# O2 D}, Open  ]],
2 b, E! d- s2 oCell[107732, 2746, 458, 10, 31, "Input"],
Cell[108193, 2758, 126, 2, 31, "Input"],
Cell[CellGroupData[{
$ I; }0 m* j& s! e- yCell[108344, 2764, 248, 6, 31, "Input"],
! N1 _% U; A" r( {( _. a7 zCell[108595, 2772, 1007, 17, 30, "Output"]
# A! f" e* ^" g) F}, Open  ]],
: `- N) ?  N- D' i  \# d# _  uCell[CellGroupData[{
9 ]: u. ^. d( v; x  x- d+ |Cell[109639, 2794, 251, 6, 31, "Input"],
Cell[109893, 2802, 1013, 17, 30, "Output"]
}, Open  ]],
9 ]/ e' M4 y. `8 T/ L* R0 t6 u/ tCell[110921, 2822, 1232, 23, 31, "Input"],
6 R2 F' I2 W$ L2 V+ ~6 kCell[CellGroupData[{
( a, o! V  v" w' ]* k4 H0 L. _5 J0 `Cell[112178, 2849, 147, 5, 31, "Input"],
Cell[112328, 2856, 1979, 50, 50, "Output"]
! A& O5 @' K% [& N}, Open  ]],
- A3 Y1 F) o! aCell[CellGroupData[{
Cell[114344, 2911, 195, 5, 31, "Input"],
Cell[114542, 2918, 123, 2, 30, "Output"]
6 x0 Z+ R1 S1 x9 k}, Open  ]],
Cell[CellGroupData[{
Cell[114702, 2925, 144, 4, 31, "Input"],
1 F/ ?3 j  [  h( M! j2 e+ cCell[114849, 2931, 96, 1, 30, "Output"]
}, Open  ]],
' r; V' z: L! G3 [Cell[CellGroupData[{
Cell[114982, 2937, 146, 4, 31, "Input"],
5 H5 m, e: V' F, h- W8 gCell[115131, 2943, 495, 7, 30, "Output"]
; r/ H6 |+ l# L6 C}, Open  ]],
3 M0 v" t& `% U4 G% OCell[CellGroupData[{
Cell[115663, 2955, 144, 4, 31, "Input"],
Cell[115810, 2961, 418, 6, 30, "Output"]
}, Open  ]],
2 `/ B6 x4 x* t' |) p5 ECell[CellGroupData[{
Cell[116265, 2972, 144, 4, 31, "Input"],
- V7 S% w  Y$ d- k+ P) l) RCell[116412, 2978, 549, 8, 30, "Output"]
}, Open  ]],
. z) n$ o  }+ @' sCell[CellGroupData[{
7 E) x0 w) ?) k$ Z1 _+ LCell[116998, 2991, 537, 10, 31, "Input"],
6 x1 i1 Y/ B! ]9 v6 U+ i" j7 E- h! X' aCell[117538, 3003, 998, 14, 30, "Output"]
9 i; t( [. M) Q' U- }' o7 u, w}, Open  ]],
( {5 h" E2 d6 T, M* j4 e/ YCell[CellGroupData[{
8 Y" E$ u' T( S5 g+ F9 WCell[118573, 3022, 2321, 55, 44, "Input"],
5 j! D- M7 l. R3 A$ p4 |Cell[120897, 3079, 1541, 38, 91, "Output"]
# q0 g! h5 _) V}, Open  ]],
Cell[CellGroupData[{
2 l) l8 ?4 \. }6 ]9 zCell[122475, 3122, 856, 19, 87, "Input"],
) u+ J) Q4 l" f: v; l2 a% o1 r) YCell[123334, 3143, 568, 14, 91, "Output"]
. b% a3 P+ y0 ^5 m; @0 X}, Open  ]],
1 B; T* A8 S+ E: kCell[CellGroupData[{
) _# q1 o: k/ UCell[123939, 3162, 437, 10, 31, "Input"],
Cell[124379, 3174, 739, 12, 30, "Output"]
}, Open  ]],
Cell[125133, 3189, 242, 3, 31, "Input"],
; B1 _5 E4 h+ ]' Z1 E0 u& wCell[CellGroupData[{
* S% h' t7 {. ^/ z, VCell[125400, 3196, 109, 2, 31, "Input"],
Cell[125512, 3200, 323, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
% [  A# l3 z: U' c" S+ X, P1 SCell[125872, 3212, 526, 15, 31, "Input"],
Cell[126401, 3229, 1436, 44, 36, "Output"]
}, Open  ]],
5 l+ k3 f; F! Y$ }, a, y" E% gCell[CellGroupData[{
Cell[127874, 3278, 92, 2, 31, "Input"],
' g' y; S. J) @, D: `1 WCell[127969, 3282, 326, 7, 30, "Output"]
! M7 _& z% I3 c}, Open  ]],
  `3 ?7 D0 w7 N7 NCell[CellGroupData[{
! M6 V: a4 A( qCell[128332, 3294, 388, 13, 31, "Input"],
% N" `6 e* \0 N, f' W6 m( L( MCell[128723, 3309, 1381, 42, 36, "Output"]
}, Open  ]],
. u, o$ X0 O- }3 `% t# qCell[CellGroupData[{
" x, K/ f7 j: q/ a6 {+ D: xCell[130141, 3356, 89, 2, 31, "Input"],
1 v" f9 \% u5 p8 \0 ICell[130233, 3360, 320, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[130590, 3372, 387, 13, 31, "Input"],
+ m* d& A) K0 r1 p' f1 lCell[130980, 3387, 1381, 42, 36, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[132398, 3434, 91, 2, 31, "Input"],
) `4 `8 ~1 m- U! dCell[132492, 3438, 328, 7, 30, "Output"]
}, Open  ]],
0 C1 d1 \/ f7 ~! u7 n6 CCell[CellGroupData[{
Cell[132857, 3450, 384, 13, 31, "Input"],
Cell[133244, 3465, 1379, 42, 36, "Output"]
( V' u9 C+ A$ X# A$ w( C& Y+ K& k  Q}, Open  ]],
5 V. a3 o  D4 `+ Z" {/ zCell[CellGroupData[{
Cell[134660, 3512, 93, 2, 31, "Input"],
Cell[134756, 3516, 322, 7, 30, "Output"]
}, Open  ]],
9 Y+ e3 B# c8 \# |) e/ LCell[CellGroupData[{
! P. ]6 j5 G) v- W$ ACell[135115, 3528, 385, 13, 31, "Input"],
Cell[135503, 3543, 1379, 42, 36, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[136919, 3590, 113, 2, 31, "Input"],
Cell[137035, 3594, 348, 7, 30, "Output"]
9 Q  b1 M) b3 U3 I}, Open  ]],
) m: V( x, j# C* d# g' WCell[CellGroupData[{
Cell[137420, 3606, 406, 13, 31, "Input"],
Cell[137829, 3621, 1414, 43, 36, "Output"]
}, Open  ]],
Cell[CellGroupData[{
: P2 S3 k& @& j  b9 ?& DCell[139280, 3669, 135, 3, 31, "Input"],
% ]/ o1 m* [( S; fCell[139418, 3674, 358, 7, 30, "Output"]
}, Open  ]],
2 [% i+ n7 D3 @4 uCell[CellGroupData[{
Cell[139813, 3686, 430, 14, 31, "Input"],
" x! ~7 A$ V; c# T7 VCell[140246, 3702, 1426, 43, 36, "Output"]
! Y. [2 j8 m+ M# {5 E}, Open  ]],
Cell[CellGroupData[{
Cell[141709, 3750, 156, 3, 31, "Input"],
Cell[141868, 3755, 377, 8, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
5 {' J3 [- e% W% a$ l- Q9 }- T/ P+ MCell[142282, 3768, 452, 14, 31, "Input"],
Cell[142737, 3784, 1440, 42, 36, "Output"]
8 i) `5 e3 v, I9 H, O0 T}, Open  ]],
Cell[CellGroupData[{
Cell[144214, 3831, 178, 3, 31, "Input"],
& s# B5 T# M1 C; j4 X+ l0 X5 TCell[144395, 3836, 448, 9, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
; R8 `2 N! x: Y& K3 T8 J0 t) DCell[144880, 3850, 474, 14, 31, "Input"],
Cell[145357, 3866, 1510, 43, 36, "Output"]
+ _2 B) u& e# c9 G( l9 m0 Q1 x$ E}, Open  ]],
Cell[CellGroupData[{
Cell[146904, 3914, 470, 14, 52, "Input"],
Cell[147377, 3930, 257, 5, 30, "Output"],
$ k# c0 E3 ^4 b6 j! H4 zCell[147637, 3937, 1310, 38, 36, "Output"]
}, Open  ]],
/ K6 N: `' T+ @. gCell[CellGroupData[{
Cell[148984, 3980, 520, 15, 52, "Input"],
Cell[149507, 3997, 293, 7, 30, "Output"],
+ `' t6 D4 W$ p* }Cell[149803, 4006, 1345, 40, 36, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[151185, 4051, 520, 15, 52, "Input"],
Cell[151708, 4068, 266, 6, 30, "Output"],
9 e# i" D2 Z$ R2 |Cell[151977, 4076, 1319, 39, 36, "Output"]
$ }4 q. N  F$ A, y+ B}, Open  ]],
Cell[CellGroupData[{
; k7 h; U. Q' L" GCell[153333, 4120, 520, 15, 52, "Input"],
Cell[153856, 4137, 272, 6, 30, "Output"],
Cell[154131, 4145, 1327, 40, 36, "Output"]
; e* j$ l* h; T3 C5 r}, Open  ]],
  u8 V! D7 l3 X9 c$ E# [5 jCell[CellGroupData[{
0 Y! `) ?' r* j( a5 G( Y4 V, uCell[155495, 4190, 520, 15, 52, "Input"],
Cell[156018, 4207, 265, 6, 30, "Output"],
Cell[156286, 4215, 1318, 39, 36, "Output"]
; t4 n, e: C1 j3 f, c}, Open  ]],
' A' Q9 _8 u) o) l1 _4 SCell[CellGroupData[{
Cell[157641, 4259, 517, 15, 52, "Input"],
Cell[158161, 4276, 275, 6, 30, "Output"],
+ s7 g0 w5 h- S9 K( X) ]Cell[158439, 4284, 1333, 41, 36, "Output"]
}, Open  ]],
0 }  g! o" v7 {8 `5 ?1 t" SCell[159787, 4328, 381, 11, 31, "Input"],
Cell[CellGroupData[{
% b# s9 P: i3 H- A8 PCell[160193, 4343, 573, 16, 52, "Input"],
( M% I; y4 K  {Cell[160769, 4361, 278, 6, 30, "Output"],
Cell[161050, 4369, 1328, 41, 36, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[162415, 4415, 571, 16, 52, "Input"],
Cell[162989, 4433, 270, 6, 30, "Output"],
% u. e$ z" U3 V% Z! s& UCell[163262, 4441, 1325, 40, 36, "Output"]
0 ]. x( J1 T/ R1 O$ X7 a}, Open  ]],
5 k$ C( c4 ~3 ?0 h$ o( X" ]- U7 ^- NCell[CellGroupData[{
$ J3 G: {' p! s6 S% i* sCell[164624, 4486, 571, 16, 52, "Input"],
Cell[165198, 4504, 264, 6, 30, "Output"],
Cell[165465, 4512, 1316, 39, 36, "Output"]
}, Open  ]],
% C3 \- N. v: `! }( @# }; E3 JCell[CellGroupData[{
Cell[166818, 4556, 571, 16, 52, "Input"],
Cell[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"],
Cell[169885, 4654, 1335, 41, 36, "Output"]
}, Open  ]],
2 g; {( U7 _8 y% K/ Y: dCell[CellGroupData[{
Cell[171257, 4700, 571, 16, 52, "Input"],
Cell[171831, 4718, 274, 6, 30, "Output"],
Cell[172108, 4726, 1335, 42, 36, "Output"]
1 j$ g2 j) x6 a  Y! C' e}, Open  ]],
/ I5 ], \+ w0 n1 F) ?' C, lCell[173458, 4771, 104, 1, 31, "Input"],
  g$ ?' f0 g3 R; r3 W  ^Cell[CellGroupData[{
0 M7 X6 I8 ]4 I% k! u: S! G) @# dCell[173587, 4776, 279, 7, 31, "Input"],
Cell[173869, 4785, 878, 14, 50, "Output"]
}, Open  ]],
. g0 u0 Q  A) m8 Q5 ^( eCell[CellGroupData[{
Cell[174784, 4804, 243, 5, 31, "Input"],
! T* C0 K& N2 Z& H1 wCell[175030, 4811, 216, 3, 30, "Output"]
}, Open  ]],
$ ?/ q+ @" K4 H( {3 s. q, h( rCell[175261, 4817, 537, 14, 31, "Input"],
" P7 n; n" m' ^* q+ m" ?Cell[CellGroupData[{
" z$ V) c$ v& ?: u( yCell[175823, 4835, 94, 1, 31, "Input"],
Cell[175920, 4838, 1319, 20, 107, "Output"]
( O1 C( K5 ^# @' y0 N) G, j* n}, Open  ]],
Cell[CellGroupData[{
Cell[177276, 4863, 464, 12, 31, "Input"],
: A- \, m, {+ L' s2 e7 M  d$ KCell[177743, 4877, 17248, 366, 582, "Output"]
}, Open  ]],
Cell[195006, 5246, 32810, 934, 912, "Input"],
/ Z1 L9 f$ D. B0 UCell[CellGroupData[{
$ U" q2 M) J1 }" `, x* Y' E; ^Cell[227841, 6184, 284, 6, 31, "Input"],
1 D6 V' Y' X4 j% h6 n3 iCell[228128, 6192, 961, 17, 50, "Output"]
# {7 H- k' p) H, v9 d' j' T}, Open  ]],
Cell[CellGroupData[{
* y- F: K8 C1 u1 V( P2 b' _Cell[229126, 6214, 531, 11, 31, "Input"],
3 M2 u) q) S( Q" }Cell[229660, 6227, 28858, 853, 537, "Output"]
# t0 d$ h' z( S! ^' q}, Open  ]],
Cell[CellGroupData[{
& m1 t$ H# R, e/ Q. k+ UCell[258555, 7085, 281, 7, 31, "Input"],
2 l( n: e& J$ `0 c" xCell[258839, 7094, 540, 10, 30, "Output"]
4 ]6 q/ O6 V8 o}, Open  ]],
; k3 H* X" R9 ACell[259394, 7107, 1869, 53, 92, "Input"],
* H& }5 B0 a, l# {$ WCell[CellGroupData[{
Cell[261288, 7164, 138, 2, 31, "Input"],
Cell[261429, 7168, 1122, 20, 69, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[262588, 7193, 1816, 29, 152, "Input"],
Cell[264407, 7224, 1736, 28, 88, "Output"]
+ B- e, \5 N) {4 t; o}, Open  ]],
$ v6 o! w/ f( Z0 P5 MCell[CellGroupData[{
Cell[266180, 7257, 209, 6, 31, "Input"],
) F, Q- M# a: s; R1 j) uCell[266392, 7265, 516, 9, 30, "Output"]
}, Open  ]],
, q" B. W, L4 _7 w6 wCell[266923, 7277, 613, 16, 31, "Input"],
Cell[CellGroupData[{
Cell[267561, 7297, 157, 2, 31, "Input"],
Cell[267721, 7301, 776, 13, 50, "Output"]
}, Open  ]],
( q+ W# }- s. y6 j7 @Cell[CellGroupData[{
Cell[268534, 7319, 1397, 21, 112, "Input"],
Cell[269934, 7342, 1384, 21, 88, "Output"]
1 G! Z# m/ v/ L9 I6 X}, Open  ]],
9 ~  Q# z( h" i7 w8 lCell[CellGroupData[{
& E( l, X0 ?% `/ zCell[271355, 7368, 1208, 30, 55, "Input"],
* @% U5 O+ J. i/ q& `1 C7 f8 iCell[272566, 7400, 1299, 29, 256, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[273902, 7434, 829, 23, 31, "Input"],
$ q( t3 N! f7 U6 h( [6 Z9 |Cell[274734, 7459, 1053, 22, 249, "Output"]
( q8 n$ e+ `' C+ F! g8 G& |7 m}, Open  ]],
Cell[CellGroupData[{
Cell[275824, 7486, 84, 2, 31, "Input"],
Cell[275911, 7490, 1675, 36, 256, "Output"]
}, Open  ]],
Cell[277601, 7529, 131, 2, 31, "Input"],
Cell[CellGroupData[{
, Q1 L, Q, X: I9 V) w1 X9 A* DCell[277757, 7535, 302, 7, 31, "Input"],
Cell[278062, 7544, 935, 16, 50, "Output"]
" Z; ?+ Z3 K+ y- {) m3 V: Y8 C}, Open  ]],
Cell[CellGroupData[{
. ^1 c  h( j; e8 }Cell[279034, 7565, 295, 6, 31, "Input"],
9 f4 ^/ _/ }8 E# H4 n, M/ Z* s$ H5 jCell[279332, 7573, 244, 3, 30, "Output"]
8 r) N! n! K' f% A. M/ B}, Open  ]],
Cell[279591, 7579, 610, 15, 31, "Input"],
Cell[CellGroupData[{
Cell[280226, 7598, 120, 2, 31, "Input"],
/ T1 C1 h0 I& t7 A9 _6 bCell[280349, 7602, 1334, 21, 107, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[281720, 7628, 460, 12, 31, "Input"],
" R* Q# ]8 u- h  |) gCell[282183, 7642, 17248, 366, 582, "Output"]
}, Open  ]],
Cell[299446, 8011, 32810, 934, 912, "Input"],
Cell[CellGroupData[{
% U" P, {( O9 D% ?$ _5 l& f' N  G- nCell[332281, 8949, 334, 6, 31, "Input"],
  X( b" n5 N9 ^3 K9 A+ ICell[332618, 8957, 1004, 18, 50, "Output"]
8 v, ^: ]% @" E( p4 s}, Open  ]],
' A' r1 C  h# b" S+ X; {Cell[CellGroupData[{
- b, R) w6 ~8 t0 I# H* cCell[333659, 8980, 559, 11, 31, "Input"],
Cell[334221, 8993, 28881, 853, 537, "Output"]
9 @& d! o$ u: b! b7 `}, Open  ]],
Cell[CellGroupData[{
1 s" _$ I- l7 y* ^Cell[363139, 9851, 306, 7, 31, "Input"],
# b8 M- C; I0 H. R" NCell[363448, 9860, 562, 10, 30, "Output"]
) F3 E: ~3 ^# N7 n2 Z}, Open  ]],
Cell[364025, 9873, 1915, 53, 92, "Input"],
+ D& U  k0 ^# v/ g; u; ECell[CellGroupData[{
Cell[365965, 9930, 163, 2, 31, "Input"],
& S0 m# I2 O$ r  W& Q, |, V/ I5 i' E* uCell[366131, 9934, 1139, 20, 69, "Output"]
}, Open  ]],
; D' }5 [# g( V# X8 G" b1 LCell[CellGroupData[{
Cell[367307, 9959, 1863, 30, 152, "Input"],
: l  a8 A: t* V3 H, m& x1 ECell[369173, 9991, 1761, 28, 88, "Output"]
9 E) l: [/ a) N: |3 N' \}, Open  ]],
" o. h; D6 J: nCell[CellGroupData[{
! ^4 m# X- N' d% t  b7 v: xCell[370971, 10024, 231, 6, 31, "Input"],
Cell[371205, 10032, 540, 10, 30, "Output"]
}, Open  ]],
Cell[371760, 10045, 687, 17, 31, "Input"],
6 {; ?! c3 h4 J; s1 C7 @: P/ OCell[CellGroupData[{
) W* F  a& n! E. K9 x9 P/ GCell[372472, 10066, 185, 3, 31, "Input"],
. m+ w* ~* d8 v, d& JCell[372660, 10071, 804, 13, 69, "Output"]
}, Open  ]],
: ^; w, ~/ l* q6 M3 c# W" S/ X6 FCell[CellGroupData[{
Cell[373501, 10089, 1405, 21, 112, "Input"],
Cell[374909, 10112, 1387, 21, 88, "Output"]
6 y* C8 l& }, G, {/ u9 J) {# W}, Open  ]],
Cell[CellGroupData[{
* L. q2 o+ t5 i* z, ~; f3 nCell[376333, 10138, 1339, 33, 55, "Input"],
Cell[377675, 10173, 1370, 30, 256, "Output"]
7 i; b+ t  n# t}, Open  ]],
Cell[CellGroupData[{
5 }- w0 u3 S  O1 ?3 l2 |$ TCell[379082, 10208, 877, 24, 31, "Input"],
Cell[379962, 10234, 1058, 22, 249, "Output"]
: l4 f3 t( o1 h}, Open  ]],
0 P( V9 R# r3 b  nCell[CellGroupData[{
8 q. }: k3 D! N2 sCell[381057, 10261, 84, 2, 31, "Input"],
Cell[381144, 10265, 1659, 36, 256, "Output"]
& _5 Y$ {6 y. g7 o! b}, Open  ]],
Cell[382818, 10304, 509, 10, 52, "Input"],
Cell[383330, 10316, 530, 10, 33, "Input"],
- U5 M; V6 E/ F& \( T; `Cell[383863, 10328, 69, 1, 31, "Input"],
Cell[383935, 10331, 62, 0, 31, "Input"],
Cell[CellGroupData[{
Cell[384022, 10335, 364, 9, 31, "Input"],
2 \( ?# g6 m( ?' \2 c# R% j) U0 y1 [9 GCell[384389, 10346, 13864, 402, 287, "Output"]
) g$ i8 p, U. Q7 R9 Q6 o}, Open  ]],
7 q7 c2 R3 h$ ?. r$ V0 ]Cell[398268, 10751, 69, 1, 31, "Input"],
( W& [& ^8 [& v5 \5 [Cell[398340, 10754, 74, 0, 31, "Input"],
- v( w; f7 B6 j, M" W1 j& \7 yCell[CellGroupData[{
Cell[398439, 10758, 288, 8, 31, "Input"],
Cell[398730, 10768, 13861, 402, 287, "Output"]
: M) ?' N$ v, A8 l3 c$ r}, Open  ]]
}
]
*)

(* End of internal cache information *）

这个是用mathmatic做的神经网络，能导出最后的权值，就是可以写出表达式，我想用matlab做，却不知道怎么做

---

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

---

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

---

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

Powered by Discuz! X2.5