数学建模社区-数学中国

标题: 怎么在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
问题完善一下！或者把代码贴上！7 \; n% v4 _% Z1 q# f; E3 j0 J
作者: 琳123    时间: 2013-8-24 13:13
涳夢 发表于 2013-7-30 20:31 # R* A, n. I& r' Z
神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
: A% o2 C3 @7 @
(* Content-type: application/mathematica *)$ X, A' B' Q: e" y6 Z1 J

# `& i! s" q. K* U(*** Wolfram Notebook File ***)
/ Z. g1 I+ n( b(* http://www.wolfram.com/nb *)
1 M9 P; F5 h- h; n
; \4 b1 a. h: X* `7 L: h$ {8 U(* CreatedBy='Mathematica 7.0' *)2 o, {5 K: G% }" w' @
$ r) n) V. r3 @4 d/ G
(*CacheID: 234*)3 n9 c, Y- e6 V9 Z; |
(* Internal cache information:, Q  G9 P& |+ i* {* |
NotebookFileLineBreakTest
+ O' t1 m. F  ?/ a+ Z" ?( ~0 YNotebookFileLineBreakTest" ]6 ]" f" v$ @. B: T# F& m' Y& M
NotebookDataPosition[       145,          7]
7 t" S& s9 v* N+ hNotebookDataLength[    423629,      11534]
9 x' f4 E- b- |' o9 H) s- ^NotebookOptionsPosition[    412607,      11173], j" m. `: T# q6 }
NotebookOutlinePosition[    412953,      11188]
$ o2 j4 C: [' R& S! YCellTagsIndexPosition[    412910,      11185]! q  D! G/ R6 }1 ?* Z  k6 }' `1 g
WindowFrame->Normal*)
6 {( r/ Q/ p; w
3 i- X" O% T! d9 W" o5 [6 S8 a(* Beginning of Notebook Content *)& p# Y1 }0 j1 V# _
Notebook[{* v& ?3 X& |3 a$ K, N7 @$ \

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

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

, Q$ U, _, {9 I5 b; C  dCell[BoxData[4 }, ]. v+ U& W- x# |# z2 h/ {
RowBox[{"For", "[",
' q$ `5 U5 z4 O# j  RowBox[{
9 ~2 ~* j8 s5 e/ a7 L   RowBox[{"i", "=", "1"}], ",",
3 L' O7 Z. n+ y# ?* V  @' o   RowBox[{"i", "\[LessEqual]", "9"}], ",", " ?# ?* `1 {3 ?
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
% t5 c5 b6 b; u   RowBox[{"For", "[",
" s3 z' M& a$ p1 a& c    RowBox[{) \" S# l$ ^0 }3 N$ ]8 w. c
     RowBox[{"j", "=", "1"}], ",", & F( P- U& _* v4 r
     RowBox[{"j", "\[LessEqual]", "80"}], ",",
+ w; ]9 p  M- r) c3 Y: t     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 4 [% }) p8 v& b6 v- g2 K. ]& x: u
     RowBox[{
8 @- x- {8 W/ V, Y# j1 c5 p$ Y      RowBox[{
8 O6 p& i& f* V2 w7 l* q, b       RowBox[{"CM", "[", $ _/ K: X! Y, T
        RowBox[{"j", ",", "i"}], "]"}], "=", "0.0"}], ";"}]}], 5 r! t7 J- P- [2 K) l
    "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",: l& W: ^4 ~% C0 U' B* Q
CellChangeTimes->{{3.5779132504375*^9, 3.577913285203125*^9}}],
6 S- u, l1 u4 ^- m, L
9 g  z, |7 @& @Cell[BoxData[0 U  w  E! L, L" ~4 d
RowBox[{"For", "[",
& ~, i3 T5 E9 w% w  RowBox[{
6 Z+ Z6 Z8 c) p4 Y* x- e   RowBox[{"i", "=", "1"}], ",",
8 {4 H+ p2 ^, a+ ?   RowBox[{"i", "\[LessEqual]", "9"}], ",", - P5 L" K1 t( A# Y" v
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", * p, f& x% b9 S( o4 B. n2 i
   RowBox[{
3 j7 n. w% Z' B' P4 Z$ R8 W    RowBox[{
9 p: B9 c% V& _# }$ S- V% j     RowBox[{"CM", "[",
! Y0 E' d' H3 Q& K" J" n' t3 Z* X      RowBox[{"1", ",", "i"}], "]"}], "=",
& K3 Y' n: X  u9 N/ w3 |, D9 I     RowBox[{"Data", "[",
3 U0 r' \4 `7 j. @      RowBox[{"[", " i: P( K" \8 z& a
       RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}],
+ m- b- j0 R! V8 J  "\[IndentingNewLine]", "]"}]], "Input",
) T- @+ |3 |, m CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {. w% |0 a5 M/ D: u- k- R8 W1 d( n
   3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9, ! [' Q8 `1 w' ^& M& @9 z, k
   3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9, . [# A8 v% Y# E1 z6 f
   3.57791344209375*^9, 3.5779588070933466`*^9}],) i. U7 B1 O$ V7 O

1 a4 @* e! ^$ B6 |' Z  cCell[CellGroupData[{% ?, o3 d; r4 ]

0 O# ~, o; h1 }  ?: d& W% d/ qCell[BoxData[{# X" ?) c, T3 K7 o( g8 A
RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]",   l* c1 t2 a& n
RowBox[{"M1", "=", "1"}]}], "Input",- J3 I. Y% G- R1 V- Z" S" x5 f
CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {
1 i1 [& T1 Q4 a   3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9,
& f5 W3 \1 T0 u2 u   3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {
  `2 z6 `* m& \   3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9,
& m% c# M2 O3 M3 a  ^7 ?9 T   3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {# F& u! y$ `$ T4 p6 R+ V
   3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {
+ V. o9 u7 h0 S1 k. e) f   3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9,
1 E% Q# g9 B, a$ f$ [   3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {
  A4 S8 U. E, m3 N" X) I* g$ N7 w   3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {
  u3 z4 X: V! ]- g7 u   3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9, $ I6 ~9 O7 M6 \2 d
   3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
6 {5 N' `& j& m9 Q, h
1 Q" o6 u; D2 lCell[BoxData["0.2`"], "Output",
9 D; g5 l, q' m) _+ \' c  \& b CellChangeTimes->{
9 m( }/ I. [( c# @* L! }7 ^& J  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, % n- M6 W3 Y3 z8 G% f
   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {+ k5 `8 r: Z* {  G4 b
   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,   b" d$ s: ~  Q3 w3 s, i" J, g
   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {  q0 L/ H" S# }, p& F' G
   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
, }" X- F9 ^: \4 f) [   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {' G. J/ A% H/ a4 c& `
   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, $ c, _( e+ ]+ m" H$ T% w& }4 g
   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {3 ]" t" i6 |- ^5 S9 A
   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, / H" X% Z( [# o( B4 [
   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, 7 Q; j. m* ~' T8 o/ W9 [
   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, - R9 h, m( d5 l+ K9 _9 ^/ i9 Q4 ~5 w
   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
" ?# J% H# q4 A" E7 w8 n   3.577960510686717*^9, 3.578012149296875*^9}],
  c; b% m( D2 y8 \4 I6 ^1 K+ g% Z4 U
Cell[BoxData["1"], "Output",2 c/ ?! U) ~3 \9 E5 k
CellChangeTimes->{
( s8 a$ A+ V, \, G4 v' A) Q  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, ) ^7 Q( n: n& M/ ?$ e0 {
   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {  j* p9 |- ^5 l8 ^" U( R% E( k% z! j
   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
# g( C6 z3 i+ ?# l) i" h; ]   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {; F5 |0 u" L+ m) B
   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, 0 e2 ]& f- W8 H  e/ `: e3 k
   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
1 O5 E/ {2 u% e7 W* N; C- U   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
& s1 G/ h! O3 t: ]! {+ J; v7 i   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
  p9 `! F5 m1 F. m   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, : m" p, P% H; F& V$ m
   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
7 P, X0 b* C# Y0 T4 `   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
, Y4 ~6 A* P4 ?; H   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
# K  v9 l  f7 `1 v+ u   3.577960510686717*^9, 3.578012149296875*^9}]
6 p5 C: x& X& P5 W  s. I/ o0 {}, Open  ]],4 {8 [$ Z4 m4 R; g  d$ t0 _
- e2 c) Y/ t1 R  j) d1 d- O8 P
Cell[BoxData[
. @! |# S% T& I9 `# l8 o' e RowBox[{"For", "[",
" Y6 a, C  W/ T5 P+ y% p2 Z  RowBox[{
" Y" k. J' h, K5 c& g   RowBox[{"k", "=", "2"}], ",",
( O7 q) D1 q% ]% _) @   RowBox[{"k", "\[LessEqual]", "60"}], ",",
# z) t# M8 Y$ I* u6 L& ?* E: V   RowBox[{"k", "++"}], ",",
) H+ }, ]+ {9 w. |; C; o   RowBox[{"{", "\[IndentingNewLine]", # q, N: Y! J) V. h. O
    RowBox[{: E) w* y/ y" t8 B' o
     RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
& T4 C" \) J+ h( F: R     RowBox[{"For", "[", ( w8 ^% I) S  {& P0 d  m- Y( E( J5 T
      RowBox[{
+ U9 s4 N9 p% ?) B. N+ H+ i       RowBox[{"j", "=", "1"}], ",",
( L& t& U6 E  n& D0 v  @       RowBox[{"j", "\[LessEqual]", * l  M4 t; L) X! A$ V9 [* t
        RowBox[{"k", "-", "1"}]}], ",", . Y: W9 v; l0 C* p) I. I
       RowBox[{"j", "++"}], ",",
/ I+ w, E5 {' H" g       RowBox[{"{", "\[IndentingNewLine]", 1 @3 S/ b) P" M1 O
        RowBox[{# t7 p4 h# U# r7 y+ K
         RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]",
; g0 y, I6 T, Z7 u" a: r0 T         RowBox[{"For", "[",
& n6 ?! R( [! s          RowBox[{$ g# d$ D. {0 L
           RowBox[{"i", "=", "1"}], ",", 7 o7 V# Y( N- {+ Q4 [7 n
           RowBox[{"i", "\[LessEqual]", "9"}], ",", ! J' I, z8 H7 t/ p3 j1 P
           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", . e5 r4 F: u, q. J
           RowBox[{0 B/ o! v/ ]; L" u/ G
            RowBox[{"r1", "+=",
$ B1 B+ V# G6 ?& X) d, W             RowBox[{
/ o. w$ |7 Q1 h+ b5 h: {              RowBox[{"(", ) R# d; E$ w8 l2 {4 j) C6 {
               RowBox[{
0 }) b0 [# _9 g0 n$ J                RowBox[{"CM", "[", 0 w# B& R! ~! L/ z. a
                 RowBox[{"j", ",", "i"}], "]"}], "-", & ^- Q% L$ K% C$ C. Q, T* T( N' w
                RowBox[{"Data", "[", & t0 A( d7 v5 R" L: M( ^
                 RowBox[{"[", ( x8 F* c- s0 q" X! T
                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
1 S3 s$ A0 \" Y              RowBox[{"(",
4 a1 u0 X5 }+ K8 D! z               RowBox[{
, p. M" Y4 k  m/ {                RowBox[{"CM", "[",
5 P4 o+ T, o7 N" }# S" W. G                 RowBox[{"j", ",", "i"}], "]"}], "-", 0 Q4 `% K( m: h1 L4 |& j1 |
                RowBox[{"Data", "[", 0 p( N/ f$ o! _" @+ I7 k' P0 R* x
                 RowBox[{"[",
3 M3 u' I, `, n3 M. I  \                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],- M8 e, I" E3 A0 I
           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
- |$ U2 X. J% X8 b' R5 c         RowBox[{"r1", "=",
5 C3 e/ p1 x' i3 x$ T; K. L4 @5 H          RowBox[{"Sqrt", "[", : c: ]7 I6 Q* T2 h, m' A
           RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
: V. }4 I: r- A. S, @* A         RowBox[{"If", "[", " ", - R/ E$ N1 u7 O8 q1 H" c1 R" d2 h5 q
          RowBox[{2 N% F8 B/ w( D: ]  P
           RowBox[{"j", "\[Equal]", "1"}], ",",
, T1 Z. g) A  K; v7 f           RowBox[{"rmin", "=", "r1"}], ",",
! f* o% R0 p( U6 O; L% U) X" T4 O* l8 S           RowBox[{"If", "[", , s- I& z. Q4 B) c: |4 t0 x
            RowBox[{' V) e2 W2 m9 [) n9 X
             RowBox[{"r1", "<", "rmin"}], ",", 7 _5 S+ K8 J$ i" h! d
             RowBox[{"rmin", "=", "r1"}], ",", ) A) v6 k" o) D- ^2 z" \
             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}], 6 O8 y( U5 I2 C- q$ D
        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
) {! p* L* C! s6 X+ t% A7 Q     "\[IndentingNewLine]", 6 B1 x5 B3 T  g9 s* a% K/ ~/ Y4 u7 P
     RowBox[{"If", "[",
) [8 ~! x1 L8 W: l: t! ^$ X% x+ _      RowBox[{
* l( _; c# f2 Z7 ^3 d8 m       RowBox[{"rmin", ">", "r0"}], ",", 0 Z) H  @- a/ w4 g% ?
       RowBox[{"{", "\[IndentingNewLine]",   {  T% V) e5 {
        RowBox[{  m8 c1 |" _7 h+ x) a( W
         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]", 0 [) e! X6 ^* s0 T( _/ B
         RowBox[{"For", "[",
; j5 s6 Q" q$ ?% v          RowBox[{1 i& |) ^0 O' s5 {/ B; e
           RowBox[{"i1", "=", "1"}], ",",
5 j" Z2 N+ R# T$ p           RowBox[{"i1", "\[LessEqual]", "9"}], ",",
& F- S! Y4 Q4 k  c2 Z           RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]", 0 a6 m: R) V& c; k6 v
           RowBox[{& p7 [7 Y' u) Z+ s% U! O- _& S: e
            RowBox[{2 j7 |* v% c& g" g" i; m4 c
             RowBox[{"CM", "[", . Z- p' [' Q% G+ A, @
              RowBox[{"M1", ",", "i1"}], "]"}], "=", 1 g( s& ?5 g9 k4 j' B0 F: ~
             RowBox[{"Data", "[", 1 F7 v; B$ t, q/ ~6 R
              RowBox[{"[",
# X- m. _- V% c9 D6 Y9 n               RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],
9 g; p. S& `% c2 H          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", * r4 J, F! q! ^: ]$ t
       RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], 8 f" d4 `2 l, ^- m& v
    "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",$ w  n( r) A/ ~7 Z( a/ q+ ?8 w; z0 l
CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {! E' Q4 T5 O6 o9 ?
   3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9, 2 ]" Z. ^' ^! k% Z0 J
   3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {! m4 o6 x4 j  G
   3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9, ) c: n3 J# B! ^' |2 E6 }! k5 e
   3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {0 P9 v" q1 Z& J: \# ?
   3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9, ( S9 y. n  N. Z3 X( n
   3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {9 ^4 g( [* `9 q9 y8 p1 G' K
   3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
9 K  Q4 N0 H! l1 M' }   3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {8 D  w. t' e. g& w
   3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9, # @* D0 K! u: P. F# x) H
   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {8 R  G2 G0 d  H6 \- \( m
   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9, 4 i- J# Z5 S; r+ r9 z! g
   3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {
. ^# a0 t( ~0 [1 i   3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9,
+ A, c6 b9 @4 {+ L# \& }   3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {. ?- h1 J) }) l
   3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9,
& {# E/ W: x! I- @   3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9, 2 ^1 R& b& r4 q1 s. D7 ?( G
   3.577958821991373*^9}}],
' a$ m5 D  u6 n( g) I/ k8 g7 t* n2 s. l9 E6 P
Cell[CellGroupData[{
; [$ X! B/ e' o6 R7 s! W
' o5 h' |' U! o9 xCell[BoxData["M1"], "Input",1 _+ Z. a: f0 k: U* I3 c) ]4 f: K, L
CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
9 r, i. r$ Y! U. W- P
6 k% z. L& [, KCell[BoxData["21"], "Output",9 G; g# r7 P1 m# D3 B* Y! y
CellChangeTimes->{5 C. L. D* {5 _) v2 e8 j' R
  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {& q+ n  q' }& m4 C
   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
! z  O9 x5 p8 `$ u' V/ s) h/ b   3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {# b* N  A, U" J
   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
, b) Q- b6 X, r9 m$ Y   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
9 s, g& s% N, v* v+ Z   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9,
9 F% r& ~3 \: m) [) A   3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
* r, M2 ]. b# d, e9 ^" |4 i   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
" ?+ A4 ]  _* G   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9, ) O! X" ]" |0 X( v% G4 L
   3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9,
3 R( Z  D5 |( a' r   3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9, 9 @& j- P% @9 h" L9 }
   3.577960515600726*^9, 3.5780121541875*^9}]
! g" Z" }8 U; A! _}, Open  ]],+ ?! g1 c" L! M3 ]0 w
' [3 _* Z1 H# l2 a  c, {2 U2 c* v
Cell[BoxData[
3 O1 c. ]- {( a5 H5 ?. w; Y0 q5 R RowBox[{
" c' p" S* S! u# s& A+ s+ p  RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[",
1 w* r8 w" c5 J! w4 c. I   RowBox[{"1", ",", "i"}], "]"}], " ~/ V8 b& h- U+ V: D4 p
  RowBox[{"\:5230CM", "[", , N6 x8 `) u/ o8 X+ @* D
   RowBox[{"21", ",", "i"}], "]"}],
, j+ S& s$ N1 N8 p; {  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\% @: i; y6 o5 e# n% n
\:51fd\:6570u1\:5230u21"}]], "Input",% K' }( K& O: e4 t% S# @& R+ M& w, K9 H* `
CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {0 p( y/ K; U  x8 I; s" y% C
  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
3 w7 `5 f8 v4 r! q" K* ]  3.577960526583145*^9}}],' x8 l. e/ S( d" _

6 j& Q( k7 V# \% \+ S8 z2 p2 fCell[BoxData[. Y7 i6 ?( `+ p  |
RowBox[{"Clear", "[", "Delta", "]"}]], "Input",# j9 A: [, p( k/ h; @
CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],! ~) I# i  }: R* u: S; i
. G+ {& K2 V4 ]# J5 b8 A, f( Z( s$ Z
Cell[CellGroupData[{$ t. R1 [1 m" |9 W" C9 W; @4 ]6 _
6 ^5 z- D& C9 i" f
Cell[BoxData[. v3 t8 @6 }+ H& U) x4 c7 X# [
RowBox[{"Xa", "=", 9 a7 b8 C+ x9 A7 ?5 r4 z) B
  RowBox[{"{", ( A: _. f  s6 x6 v* y) W
   RowBox[{9 x1 n5 h* p% K3 f
   "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
- d! v! v; b* O- J0 N  s    ",", "x8", ",", "x9"}], "}"}]}]], "Input",0 @9 ^) O' W3 `, O
CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],7 S# D1 \8 }; K  u; ?  |# G3 @$ h# S

" J+ ?! D' u7 Y& N9 I7 cCell[BoxData[$ \; Z! H8 _* f6 x' ^3 h6 {
RowBox[{"{", 4 D: |; O% a) z; Y
  RowBox[{
* L$ l+ a& e- |# v, w" U  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",& o2 f3 [8 n: M& U
    "x8", ",", "x9"}], "}"}]], "Output",
: W' q6 K/ T) b# d! n' G CellChangeTimes->{8 a1 [* ]8 Q1 @" m8 `2 @
  3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
5 @/ Q1 Q1 v! c# t0 V   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9, . Z: o/ K8 e; z
   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9, 1 L. o9 m8 c9 ^
   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, ) L1 M# K: U0 R; {7 ^  W
   3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {1 R2 q5 X" d7 O( A7 k
   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
8 D8 K' C& m. J9 B7 ^( H7 J   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
4 A/ P) N* M/ b   3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {+ D+ E  J/ I! `) Q4 g$ I0 x
   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {$ ~' n9 V% h% ]4 Q& F; g% p$ B5 T
   3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
6 `( [( _$ g" W+ q/ v* b   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9}, 0 @, h$ M9 d4 Z
   3.57801215725*^9}]/ \0 v- |0 m" I3 b
}, Open  ]],
- A- H. R: U+ ?3 n' ~* f& B5 V+ [/ G4 @2 L
Cell[CellGroupData[{
2 B7 x' b3 E2 S; h" {+ x- L
6 S  a" C7 N( v  }. [Cell[BoxData[' J" @" Q+ b; Y1 U. @5 L0 r
RowBox[{"Ca", "=", & Y4 Y, C4 x$ p9 m
  RowBox[{"{",
- M6 k5 c; ?) `/ R+ f2 y   RowBox[{  k$ L- u3 W/ Z' ]$ N" f- R$ e
   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
6 w" f7 Q& Y& I2 x! q) s/ y    ",", "c8", ",", "c9"}], "}"}]}]], "Input",% U& S. v$ c# k4 ~3 k+ ~2 |2 O
CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
& x( `! Q$ ?! i/ r. w! c0 [: |* [
( p* B5 e4 Q! m( `Cell[BoxData[( S0 R& L3 X0 A# L4 W" E$ X
RowBox[{"{",   [0 f+ p2 u+ @6 P3 }
  RowBox[{
3 T: F! Z- n$ G2 [: i4 C" M. C  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
" J) u( F9 d8 G7 G4 V8 M    "c8", ",", "c9"}], "}"}]], "Output",
6 f5 u" r+ y# U  W1 n- P. Y' m! {1 \/ c CellChangeTimes->{2 W, s1 Q8 W2 N) M7 i3 m" Z. R
  3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
6 n0 e! l8 ~/ d% }) ~0 S4 s   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
2 J1 U5 G3 X/ A  N7 M   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, 5 H' A3 @6 t2 }5 S* ]1 b
   3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
8 t- |. ^& T- q9 V  Z8 T   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,
' R( D, u. t2 H/ i( V   3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9}, ; G% r% P7 X6 @
   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
& ^1 `8 m, Z( j& l. g   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, + }2 W& I/ I2 m/ |6 i3 ]8 e
   3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
6 N. N* M% I& s& z% S! E   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
8 A3 \; @4 I, E6 u8 h: E( j. E9 R   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
8 K# A0 Z5 f8 `% p   3.577961904604212*^9}, 3.578012158671875*^9}]
& O8 \0 M7 Q+ [+ p, y, [& r0 [! _  ?}, Open  ]],
2 m+ w  B6 q4 S( M& u: b) Y1 p: e8 C$ ^) q& @: E) M$ Q! V, u' l5 q5 m
Cell[BoxData[0 C$ ?4 D% N" o$ V3 l6 u8 o
RowBox[{"For", "[",
. v# d( s3 p/ I/ v  RowBox[{% u& ~7 J# G, q' @
   RowBox[{"i", "=", "1"}], ",", 6 T0 v1 c3 Z1 Y5 S2 ^
   RowBox[{"i", "\[LessEqual]", "9"}], ",", " K2 }/ a0 a6 G4 k
   RowBox[{"i", "++"}], ",",
+ J5 @  g, _1 b; g/ m" U+ S   RowBox[{
' {6 r- C" e9 ]9 O6 S* u  L: I' a    RowBox[{"Ca", "[", ) \# D$ b  }) n8 \/ E# s3 K
     RowBox[{"[", "i", "]"}], "]"}], "=",
$ s2 p. a  n3 {) H8 {; }) j    RowBox[{"CM", "[",
- r% [# w# U% o( u     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
2 k: Y9 x) Z, a* S  N8 k; J CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9}, ) r) O% E2 s, {( w
   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
6 j* k8 z( a: B1 F+ F$ N   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9, 3 ?2 _) D0 t6 [
   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9, / z+ ^! M7 W/ U% p/ {
   3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9,
" ~$ V6 a5 @  _# ~1 B3 B! K" s9 a   3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, 0 Y2 Z# X3 e! Z' r3 x9 m7 {% W
   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
5 R' r6 W4 ~# S# {2 l- ]( K! ^$ H   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
1 K, C5 |/ v8 V0 B( P   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
; s# K1 g* @; I, x   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
5 l' |% X2 l: K" x- e: a* N( _& i   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {) M- F3 K1 d* O/ D; H
   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
$ j0 A. l; ?. E0 u- Y   3.577961906897415*^9}, 3.578012176296875*^9}],
" X* \/ w- I# ?
0 C. g7 m' r. G0 ~/ ], QCell[CellGroupData[{
1 F0 H# G* q* @/ X+ F; V3 U  v& C6 F  K# _0 m3 A8 v
Cell[BoxData[
0 x$ L6 C! S1 m! G/ O, j, | RowBox[{3 l+ I% w; W+ W# v) S; ^& E  L
  RowBox[{"(",
' S! ?  z2 e6 D% q" |: Q& A   RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
  y( z7 I' }* [3 h  RowBox[{"(",
; c; o' }& F. [) _   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
1 n6 S+ y" `- _1 o% K$ z5 |
& H% H. K3 w+ ]5 k, ?( iCell[BoxData[# p6 F0 O1 T; l# I  d
RowBox[{
3 I( Y+ E3 `' X) f' u( t  SuperscriptBox[
" W9 _; ]! |4 s- H   RowBox[{"(",
& O* s3 w6 N9 Q4 {, U6 w. P    RowBox[{
' q. C$ G& S* Z; D. F7 [; L4 i2 P3 R     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+", 6 Y& Q6 _. y' r, F& ~8 a% n0 S
  SuperscriptBox[8 S8 W  i4 |% W$ U
   RowBox[{"(",
9 v: G5 f; t, c( }1 d* i- H    RowBox[{: o$ p# y$ n2 l2 q6 ~( o
     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+", 4 v  _3 b; m( c7 m6 ?  J
  SuperscriptBox[
! F5 U/ Q9 O( G  T- {   RowBox[{"(",
, }) m( c: D0 S+ o/ L6 m! R    RowBox[{5 G9 i4 S$ d7 B# S7 S3 z6 B5 @
     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", ) X* R4 g0 ^! M# d" F
  SuperscriptBox[/ x) X4 V1 n9 X7 c" e4 _
   RowBox[{"(", # F/ a" q5 W8 C
    RowBox[{/ g8 ]7 W9 n( [& `
     RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
# A+ Y, ?5 F: m) k7 Y, L  SuperscriptBox[
8 }! u8 E9 P- F+ ^5 V0 F2 f5 [   RowBox[{"(", * K' t3 }4 M, Z2 \* k$ D
    RowBox[{- m- E# L7 Z. @+ s: [
     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", ; w$ N1 k* Z. b
  SuperscriptBox[6 [& p& O# `1 S
   RowBox[{"(",
4 v8 A. L/ I% S- x    RowBox[{' [, @2 F+ b* f: h5 |9 g( v: x
     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
' k. K# E7 h" @  a% _0 N" d  SuperscriptBox[8 x% r. ?8 p9 E" b( {  R: c. o/ }
   RowBox[{"(",
" W: w" d- K9 f' p3 W    RowBox[{
$ w( N8 W. Z) B5 r' G     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
  U6 B% h  |" T' u% ~1 J  SuperscriptBox[
# C2 O, l: L" N) ~2 r2 |   RowBox[{"(",
! L" R6 A' g$ H2 q& n    RowBox[{; @) }3 t$ j3 W
     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", * e1 a0 c* B/ }! b, z/ T5 _
  SuperscriptBox[! x% S0 i! L! X
   RowBox[{"(",
6 u  r6 x- L* a# d; j8 p6 {    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
% t3 [. X2 K' Q" {. n( M# X- c' p CellChangeTimes->{
8 Q3 y# S: l& n1 b. t+ V; q/ M  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, ) f; E% O: c9 n1 k* R3 N
   3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
# _5 L4 s" m7 e8 Y" P' Q- |   3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,
5 `# p7 W* u: ]) O& ?# z   3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
$ J) ?1 E7 Z0 n7 _) ~% k   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, 1 e1 r9 l4 `0 {% c# t' f; s9 T
   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
) c1 O* C. b$ R  N. J3 K/ O   3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
, U8 A! \+ @0 A% B   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9, 8 Y/ ^' C- ^; ^. t+ Y) w7 M
   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
! r. t; p  i' @; [, ]. s$ I2 [; P   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {2 n! W) Q3 n$ K
   3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, * z4 b/ p' q4 _+ }/ [7 Q
   3.5779618537169228`*^9}, {3.5779618846049767`*^9,
4 _6 t5 [- ~( Y; Q) N. `8 }, A5 W   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]# M4 t8 o' Q9 S- f7 F
}, Open  ]],
+ J# x' a& ^( i' W8 ?
: M3 e8 o% h, a# lCell[CellGroupData[{
- _  [+ e: h* I3 Z
6 I% Y- k) n+ r& kCell[BoxData[
( A5 D8 j% ^" `) _% z1 E- n RowBox[{
/ f! b7 {. ^: }2 o- ^0 P: e  RowBox[{"Ca", "[",
% D# M2 k, q& x) [5 J" f+ F" s   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",4 d5 c0 @9 [! q
CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9, 7 @1 T8 a3 }5 X7 g3 @7 Y. f
  3.5779616465173616`*^9}],5 y2 k) G; T0 M& ^/ O9 S
9 S6 c/ a" \8 F
Cell[BoxData["0"], "Output",
8 @% F  o. j" y( }, F CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
: L  O: I9 c# x; g  P  3.5779616484049644`*^9}]2 O) ~% `. U! L: W
}, Open  ]],* D5 l3 v3 j0 m4 u& M! w2 A0 ~
: {2 a- Y  b' ]  m* {$ ?9 g* V
Cell[CellGroupData[{
( q+ a4 p& w9 t8 r
( n# ?. R- o, j$ f+ sCell[BoxData[
5 ^1 F. y) f4 C) o- W# E RowBox[{. {% q: L4 u; S
  RowBox[{"Ca", "[", 6 ^# g+ B- q: b; B
   RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",8 r5 ?/ ^3 h& J4 V. x
CellChangeTimes->{3.577957376235614*^9}],
6 Q- B1 M2 M2 j3 o2 Y" m" [' ~, k$ S0 ]: K  X  @2 x
Cell[BoxData["0"], "Output"," Y9 C- n8 ]' F3 n1 S/ M9 [: ]/ g
CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]* p  g, w* N, B5 h
}, Open  ]],
8 p; f! k5 A6 I% Y$ @1 t! B5 |2 [) C/ P6 v
Cell[CellGroupData[{
7 M( Q/ c0 z. p- }  y2 b# M4 P2 l" Q8 V, f* j7 P1 b1 R  r
Cell[BoxData[
. F0 v! p* W$ m1 `* S RowBox[{
/ f) f$ w. V4 E& k8 U' C  RowBox[{"Ca", "[",
/ }1 H+ y& V' N: E+ C   RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
: y9 q  H* H4 C# E3 V CellChangeTimes->{3.5779573112927003`*^9}],
. @( l8 u( O" n0 D; u# d8 U
: |" H1 s7 z' J$ r; X" G) GCell[BoxData["0"], "Output",
6 x) C7 F, `9 v CellChangeTimes->{; p. z% N. v& o' l( e9 z% C2 F
  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
' t( W9 S* l% J$ ]! r8 f% _  M   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9, / q( I  G/ h# V1 o" N' p2 z
   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},   w) w9 `/ S5 y/ b9 t' i
   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
3 m, a0 G: j& `7 x% j   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},   n8 _+ `# {2 N! ^# g. D) |
   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
# Z% u% m- m7 L- }1 d3 {}, Open  ]],
, a: U! H& F% p- i1 g3 v$ p( M# g5 }7 E% M' ^4 t
Cell[CellGroupData[{: J, [3 u7 o' A' Z% s0 L+ S1 ]3 Y/ Y# i
, w3 Q& G, |3 Z7 |2 q5 |# s5 o
Cell[BoxData[
% ?9 e8 D; I6 e. M* M' Q RowBox[{
( X( D: D+ b% j  RowBox[{"Ca", "[", 3 @& S' l  j& H9 B7 M8 C6 l  k  O+ [4 `
   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
, m# K. X( X! ?9 f CellChangeTimes->{3.577921461734375*^9}],2 W) `! H6 y6 _# p5 J

# S, t9 f( X: ^, G. D, P5 cCell[BoxData["0"], "Output",4 W3 I; B9 |! X  w/ L
CellChangeTimes->{
6 _4 c$ n6 P8 e5 p  3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, - P. Y0 R2 Z8 p: z) {: i$ A
   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9}, : n" \1 ~( s6 ]
   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9, . a1 d' Z- k8 M- s2 ~8 J
   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, 8 X+ v7 s" X* V* P4 d! @7 q& j$ b( s: @
   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]
* u7 n5 d# X6 F% ^: y}, Open  ]],% O# m. c  b$ a' Y2 [  D
0 P& H( Y- n9 t+ d( z* v$ t' g9 h
Cell[CellGroupData[{
" v+ r5 ?5 H& x3 g0 q6 n/ t$ }  N' t' {* E( g
Cell[BoxData[
# E2 K  g7 a8 n) }" L RowBox[{
* H& z! @/ i; J" k  RowBox[{"Ca", "[", 3 k7 v* H2 {( y# G5 ]( R4 T
   RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
$ j) G6 X0 x4 ~( \8 ]% j( N7 ?& { CellChangeTimes->{3.577957303118286*^9}],+ S0 y3 Q8 R0 G7 s- w' F

5 u2 Z; i' U1 c8 e1 h  |& W; OCell[BoxData["0"], "Output",
$ m$ |; {, ^: t4 O  N8 g1 Y CellChangeTimes->{
4 @, Z0 }% {5 _2 a  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
" B! Y6 D& @; L9 ?# h. }  ]   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
, q  T. }" E( z1 [9 g. H   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
0 p6 w1 F- d9 x5 z. F2 W; o   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9, 6 [* o  c; C7 J/ q
   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
* G. D8 w6 q% S# b" d1 x. R  p: E   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {/ g$ F: Z6 U4 [9 p4 I
   3.577961889378585*^9, 3.577961912965826*^9}}]6 h, ]& }0 h1 y% F
}, Open  ]],
9 y' q/ C- _6 v
* |" ?2 E7 O* g( @& S3 X4 l3 iCell[CellGroupData[{0 C; B& c. c3 k% K

; R/ u2 l! `  n+ _5 _Cell[BoxData[
* ~0 S5 f% B) D8 l4 @/ z RowBox[{9 n1 ~2 b; [# r
  RowBox[{"Ca", "[", 5 [* x/ ]' D* ]1 v  X
   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
) D' p: {# T: Z4 X' R0 k CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
3 U1 D' ^8 I5 _  3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
1 ^8 h$ d5 G$ S- y" _, _  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
, p( A* W% y, W8 y) g( c# h  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9, 2 w* T2 _/ j( X4 ]. f
  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
+ a  J" ]1 @2 `1 T4 s! y  3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
2 r& {3 O) S3 Z  3.577921435703125*^9}}],
6 X3 ^  a9 N% m  m; L
# p8 U4 h7 ]8 W) Y8 U. P/ _Cell[BoxData["0"], "Output",1 F' |/ x! d" Z3 I2 N- v/ ~+ W+ _
CellChangeTimes->{
, R0 G/ s) [& K$ ~  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {+ K+ n# B( Z. H: ?- Q( }
   3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
; n5 \& W! R! h: i  }1 L   3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {9 Q) L$ P' q2 j0 A. M& F2 M% V
   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
0 F. r7 @0 m; O/ b, Y   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {( H; s6 J; p! I, j
   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
8 ^- t  k) Q% Y8 I! Q9 v3 ^1 o   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9, 1 Z( y5 l( M. N8 {
   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
* |( Y! o- r' t4 L' a   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {" s9 I' x+ R8 Y6 R) f9 I$ H6 h% g
   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
6 [' h, L! V0 z! i3 E( V   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
' Z$ ?: Z! g$ ~4 O/ G   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
; m( @9 g9 `9 _# h; U3 I' k& Q   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
- M% i- H! R: ]: k}, Open  ]],
1 ?3 Q- \1 I" h6 O- r6 ^/ X: r9 ^: z4 N4 d, ~
Cell[CellGroupData[{4 ]) m2 W1 v2 z0 f. d  p+ }
0 d5 K4 D, R; W& N' i: |
Cell[BoxData[/ x" H- \9 ]: `5 l8 B+ F' ?
RowBox[{"Delta1", "=",
+ b( o$ s! X5 Y- c  RowBox[{
" f3 w3 ^7 m8 x! p# b7 d4 k" y   SubsuperscriptBox["\[Integral]",
/ q' u: F/ T& u  J/ A: k5 C: w    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 5 Y3 J2 e# }# P" {" R
   RowBox[{/ Z1 Y; t' K( n8 T. C
    SubsuperscriptBox["\[Integral]", $ @" ~1 {/ W4 M4 Q
     RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
6 I* v/ j2 c+ a6 l  i, ^7 ~; S    RowBox[{" _- m# s6 r' c9 w* x. h: K8 _
     SubsuperscriptBox["\[Integral]",
% d+ @' b9 a3 P6 E      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
2 z" z* A& T% j* Q% j: l3 L     RowBox[{' j2 s3 z' b' ]+ ]# w
      SubsuperscriptBox["\[Integral]", . e9 P/ I7 x) H8 u
       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], , r& m7 C- \- \+ R  n+ A
      RowBox[{8 M; i" P( |% [) V9 B
       SubsuperscriptBox["\[Integral]",
) |/ v1 w6 g& T        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ( E; T3 t0 M2 s( i6 [  s
       RowBox[{; U# D% _7 m, Z& ]  Q
        SubsuperscriptBox["\[Integral]",
; k; q$ C9 B- Z         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
9 ^% |- a$ }6 h        RowBox[{
) w. u! j3 K" \0 n$ n8 t0 V         SubsuperscriptBox["\[Integral]", $ k- ^0 V! w. `" [
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
# u: E; q/ ?4 n: l2 y/ V" h2 s9 I         RowBox[{% |5 }0 T& l& D+ p; P7 n1 \, N
          SubsuperscriptBox["\[Integral]", # q+ E: h: X# F& H; p
           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], , x# C% w3 l) c- z3 i
          RowBox[{/ {! A4 k! q; _, `0 ~2 d3 e
           SubsuperscriptBox["\[Integral]", , m7 l- @, _) V( r
            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
  f# _3 l' d! G           RowBox[{
$ L9 x  w/ \( q% _! W1 f2 c6 a            RowBox[{"Exp", "[", # g+ P" M) ^; h
             RowBox[{. e$ u; A) A/ u
              RowBox[{
+ x# t, p6 t2 C3 |               RowBox[{"-", 8 a7 A/ K, m" S4 B; \
                RowBox[{/ `% j& V6 k/ s0 Z8 z8 B# b
                 RowBox[{"(", , c* Z2 x0 g- `* }2 m
                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 2 y9 ?  O7 E. ~" c  c3 \' h' g; \
                 RowBox[{"(", / }8 N7 ~& {6 K
                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", : E1 d, J7 R" x( ?+ f
              "Delta"}], "]"}],
& f/ @9 s. ]; z+ H0 v$ h+ B            RowBox[{"\[DifferentialD]", "x1"}], $ _6 }; R6 z, D. Q) B, M' ~! H
            RowBox[{"\[DifferentialD]", "x2"}],
& i7 W6 L) ?" Q$ ?            RowBox[{"\[DifferentialD]", "x3"}],
0 G0 u3 [' A2 p7 H! a6 j  H            RowBox[{"\[DifferentialD]", "x4"}],
, u) J' j/ q6 ?6 |" V: v" Y            RowBox[{"\[DifferentialD]", "x5"}], ) Z" d' \; k. R" }/ `$ [
            RowBox[{"\[DifferentialD]", "x6"}],
; e6 F7 p9 \, K            RowBox[{"\[DifferentialD]", "x7"}],
* @" s/ _4 x; b' z8 B            RowBox[{"\[DifferentialD]", "x8"}], 5 z9 ?* o$ H6 \' d9 E5 S  p
            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",( x2 x* K* v0 ]' r8 r, o
CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
% e1 c, [% E' j: q' `3 x$ e1 a   3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, 5 ~! P  {% B8 D3 Z! \
   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {1 Q+ `$ |; W; k! Q" m4 {$ P' B
   3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9, $ A4 L  i5 V( {( `. r9 A
   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {4 y# t8 @1 W! _7 s4 j7 R
   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
/ r2 o$ j6 u( Z- ]+ M) u. E" }   3.577918964453125*^9}}],' I" R  n. V& k; q; l- K

: J. n# Y9 W, uCell[BoxData[! U+ |7 c& k" J- D
RowBox[{"97.40909103400237`", " ",
! A; @8 L6 d( s  SuperscriptBox["Delta", "8"], " ",
# W* E' T" @' r9 ]  RowBox[{"If", "[", 0 C# q6 G1 y' J$ }
   RowBox[{! d  _+ G4 }+ a
    RowBox[{
% P$ A# q  Q1 Y- D     RowBox[{"Re", "[",
" T8 c( ]  I2 v4 G- `      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",", ; ?  J5 X" T8 x, m9 X* A! H
    FractionBox[
% T, s( W% `% w4 K4 {     RowBox[{"1.7724538509055159`", " ",   t" x& N/ D  \4 Q; L/ p
      SuperscriptBox["\[ExponentialE]",
' B) ?3 P+ `1 ^       FractionBox["1.1102230246251565`*^-16",
6 m8 V" F) y; y. \5 s" `9 k- k        SuperscriptBox["Delta", "2"]]]}], , v$ W8 @& m  s5 @# h( L
     SqrtBox[
6 ~' t, Y+ c; N7 K; f4 T8 f- {; P# n      FractionBox["1", 6 l9 a/ A- ^# `' B& @$ F6 s
       SuperscriptBox["Delta", "2"]]]], ",", 2 T: G8 V6 l) r( I1 Q/ S2 X
    RowBox[{"Integrate", "[", & M+ O2 T9 }/ ^, `$ t
     RowBox[{8 Z" G4 u) y8 w- l
      SuperscriptBox["\[ExponentialE]",
6 d: B* T  O7 M9 O* c       FractionBox[: e0 Z; v( S& h8 Z
        RowBox[{"1.1102230246251565`*^-16", "-", - c8 P6 D; j: D9 z" U6 r. a4 W
         RowBox[{"1.`", " ", : p" s# Q: T1 X& i
          SuperscriptBox["x9", "2"]}]}],
. d) x: S( J# E        SuperscriptBox["Delta", "2"]]], ",",
6 E4 ^' t# @% C; {( `% [! {      RowBox[{"{", 5 h/ L9 S$ d) c9 k
       RowBox[{"x9", ",", 7 B' E+ S0 [: h% [  v% l
        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
( R: Q: z2 ?7 _4 c+ X. b/ P0 ^. W" i      RowBox[{"Assumptions", "\[Rule]", ! ]$ e; }0 J1 A6 U& w" ~( t$ I
       RowBox[{
4 A6 t) O- d. h% c- a6 g        RowBox[{"Re", "[", 6 Z! `3 U$ m2 O
         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
$ |5 e4 M* n' X8 r6 s+ a# u; T     "]"}]}], "]"}]}]], "Output",4 P$ A9 p; K* k8 ]# Y$ U+ ]+ m
CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, % T1 |9 L+ c' ?3 z6 m# ~
  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9, ! I6 g+ X" h7 K: v0 y
  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9, " B* z0 C+ j1 s" \0 }
  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9, 0 b' \2 _% L5 M; B
  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9, - e3 s% N; z$ L9 a) W  O5 s! d# W
  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
! e6 m4 }- n$ ~  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
8 L8 [. A- F2 r}, Open  ]],1 M0 D# {5 e. E0 ?$ G/ o: p; n/ ?; b
7 {/ g4 X$ M! M5 n* o% W- p. U+ i
Cell[CellGroupData[{
6 y) o- u# h0 ^" e% Q
7 }# K" U2 X2 jCell[BoxData[
( T9 ]* Q6 R+ E# z) ~ RowBox[{"Delta1", "=",
# _4 D# j, D; K9 d7 b1 G  StyleBox[4 I2 t! I3 G" t5 }
   RowBox[{"97.40909103400237`", " ",
' k4 {/ r6 `% ]2 S% T/ e4 F. Z    SuperscriptBox["Delta", "8"], "  ",
9 p( E$ W7 Y2 r( K4 Q0 r. s    FractionBox[
2 h" I& ]$ c. G$ V     RowBox[{"1.7724538509055159`", " ", 2 W1 M+ u# n) D9 D  |7 }9 S2 b
      SuperscriptBox["\[ExponentialE]",
# j) f/ E; j% ~  |) ?$ H8 l% ^       FractionBox["1.1102230246251565`*^-16",
  z3 F7 c2 @) X% m) L        SuperscriptBox["Delta", "2"]]]}], 3 b* t6 Z" \! W; A& E
     SqrtBox[' b( |& \* l  P
      FractionBox["1",   ^# b- H$ o( q
       SuperscriptBox["Delta", "2"]]]]}],6 P7 k% W" M2 t" {" e) T6 r
   FontWeight->"Plain"]}]], "Input",. Q2 Z- G% q; w. Q: T7 A" V
CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
+ Y9 B* ~" K3 g  {6 _   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
% y1 A8 Q& L1 D5 i   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {8 A" v& F  Q7 ~: i3 B  ~' ]
   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9, % B- x# \2 p" b. z1 r
   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
6 \, N9 D/ A1 w2 D   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
6 |7 `+ p% v9 U6 J2 T4 Y; c. ~+ u0 ~+ P! [& `
Cell[BoxData[
; n. [+ I5 U2 n5 F# _4 p, ] FractionBox[5 [. r5 ]6 A( b" b' C- A& \
  RowBox[{"172.65311851642346`", " ", 6 e* w1 ~9 S. N7 e, h$ p
   SuperscriptBox["Delta", "8"], " ", / D% g& V* O7 }/ L; ~# w' q, }- O
   SuperscriptBox["\[ExponentialE]",
8 ?4 d& `* T  B( x/ p) `+ d    FractionBox["1.1102230246251565`*^-16", / ]/ V$ R  r  O& ~6 o
     SuperscriptBox["Delta", "2"]]]}], ) P4 v" w4 y! I
  SqrtBox[9 u  J2 X7 O4 G2 o: q' i
   FractionBox["1", # B. S/ E8 N! U
    SuperscriptBox["Delta", "2"]]]]], "Output",
) {- a6 p' F$ G8 I/ k CellChangeTimes->{
$ E( {# U$ }% G! A! T- K7 Z+ E3 \  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
7 r" v( C, a) C3 E' C% I   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
& R' l. I" p+ q: w; ~+ }8 A   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9, ; j3 }4 V" |) g1 p, ^5 J9 I
   3.578012166234375*^9}]
, z3 A9 h' f* ~: e! {3 ?}, Open  ]],& p- F/ Z# D7 ]; x) Q% |# D
1 x* f- R# u% Z% q9 R' f7 q$ T
Cell[CellGroupData[{( R& ?' R" ]/ A% x, c2 ~

) Q, P& E" Z: r/ [$ r4 mCell[BoxData[" K" k7 G1 `0 [' B* P# g7 ^' d# B
RowBox[{"DeltaX", "=", % x5 Q7 Q- a- x% ^; W' {2 Q; f
  RowBox[{"FindRoot", "[", - f* s# `) Y$ D/ p8 M
   RowBox[{! Y, c' D4 l& t, y" p1 `0 N- V
    RowBox[{"Delta1", "\[Equal]", "1"}], ",", 1 @- Z- i7 k0 o. c( i5 ]# c4 W
    RowBox[{"{",
1 H' H2 r$ j5 _9 k( E( @     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",5 z5 S) n3 W: L9 f1 Y- Z1 t- ]2 n
CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
, D: }  k* R. L1 ^2 @5 L* u; C   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
/ P+ L" {( L5 X& I$ ^+ ]   3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, 8 X$ n  j6 `/ i' {
   3.57791921584375*^9}}]," d3 s' G, J5 X

) h+ V, ?1 ?- SCell[BoxData[
8 E' q$ C2 K4 _9 | RowBox[{"{", # `* i& q5 f+ G% w, j/ b
  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
0 f' m  l2 E* S- R: ?- u$ F+ v, g CellChangeTimes->{: G6 ]5 x% j% k; E, R4 @/ U+ U6 e
  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9}, + A0 \2 [3 n. a  z- L) B3 |7 m
   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, 3 i! _* `: q) n* i
   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
+ Z- E1 U2 y5 M1 _   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
' Y+ Y7 b) Q+ D& b* }. k   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {& U* N) z' z" ]/ K. F; R
   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, ) P5 H+ I0 G5 l" I
   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
# N# X9 O9 x. O- d   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9, ( R& ]( B0 U% z. {4 I, x+ t
   3.57796070150625*^9, 3.578012167703125*^9}]3 b' i% p! h8 Y3 l8 H
}, Open  ]],
: N0 L5 D# R& A; E8 i
; m- ^, }$ n5 E7 T% W! @( ZCell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\# |4 \3 {/ \2 x$ X& U* }; R
\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
. j0 @1 }: v  k; w7 v" a6 \, h CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {- H: q4 J- ?& \  m; F" k* K  O
  3.577960705312657*^9, 3.577960707621461*^9}}],: Q6 a* s4 X  S4 ~) t! J

! s, Y" {$ V( @' T8 e0 o( a# sCell[CellGroupData[{% M8 l- y! Z! n
) C' c0 J+ D- Z  p; e/ J1 o" K
Cell[BoxData[
- l$ Q! t+ G  [, V, F/ k RowBox[{"C1", "=", "Ca"}]], "Input",  Z) }4 x( h% x% Z7 Z( {; S
CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],$ w, _: B9 @& @6 }! k

. q" x, n: J7 T% l: z( @Cell[BoxData[4 M- M; Y. S7 ^/ ?: f
RowBox[{"{",
, q+ q% f; w0 u4 L% O/ P( g  RowBox[{9 _4 ?4 S) g3 l+ ]8 n# W9 t! ]. q
  "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
& y3 K; H6 w1 `$ f, O: }   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
8 y. K  w7 p3 U8 J2 R) M   "0.`"}], "}"}]], "Output",0 I% A- r! k  B/ h
CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, % b! G0 E" H6 X5 K1 O1 W1 p
  3.577960710273465*^9, 3.5780121855*^9}]6 e3 S+ c/ `  @) k
}, Open  ]],/ Z- }4 B4 w. E" h* w6 A; g7 E

7 o% r" h# L' L6 xCell[CellGroupData[{5 J/ G2 q* y2 L3 V9 N
. K! Y5 ]$ i% N$ ~  U# L- d2 K2 g
Cell[BoxData[
8 o$ B1 r1 W6 R" R; ~) K) d% \ RowBox[{"u1", "=",
( s! Q) i$ [- T  q  RowBox[{
2 Z- L) }6 t2 g6 \( K   RowBox[{"Exp", "[", " ^6 c+ w% }; h# `% F( \/ u: [- _
    RowBox[{: b( q4 Z: S+ o
     RowBox[{# ^9 L8 ^+ I' F$ q7 `! P8 p
      RowBox[{"-",
2 f; Y4 O# |7 B5 M3 i2 r! y       RowBox[{
3 P6 K% [3 b9 z- M% `, ]* E0 g& ?        RowBox[{"(",
/ n; y" \0 O: \) d$ D) W, o         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
0 f3 j4 U* l* k- A% Y7 A# E1 C( ?        RowBox[{"(",
' E! ]# y' D4 G1 c/ l7 Y         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
3 T2 ?+ J' G4 w# l4 q     "]"}], "/.", "DeltaX"}]}]], "Input",8 M8 q$ b# E$ E- ?* o. H( c# g
CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
  m: i1 ^9 t1 q4 _  M3 D& S   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
" U9 t8 E: O. ?5 E& A, e; _; x9 c   3.577919193484375*^9, 3.5779192326875*^9}}],' z7 u' P* s4 n5 i) C& G

0 M; }6 w  Q8 b5 r4 BCell[BoxData[
( f+ y3 a2 D/ z! G* b, Z7 i8 J: Q SuperscriptBox["\[ExponentialE]",
8 w  c' A* V. O% X$ O9 A  RowBox[{"3.141592653589793`", " ", 2 H& l, z+ m# d% n$ H/ f
   RowBox[{"(", 4 [( j. P5 b3 _3 E& u$ ?4 Z
    RowBox[{9 t1 N/ s( s  @* n
     RowBox[{"-", , A: U4 \" K7 x( J( b2 ~. s
      SuperscriptBox[. S5 n! e! U$ a. j' r, P
       RowBox[{"(",
$ C5 \4 L& P" r# _        RowBox[{
5 D* c) C2 ?: F  p* ?7 g' }         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
. U; A6 k+ T3 c% X. Y     SuperscriptBox[
$ h; q' u4 w- q; u7 J! Z" d! t      RowBox[{"(",
5 |  E$ }$ v0 b3 r       RowBox[{: `  K. y0 B/ v) e' c5 I5 Z
        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", % H+ y9 V/ n  L4 k" U8 J2 P$ P
     SuperscriptBox[: |9 u( ]+ s$ v% ]: t7 H
      RowBox[{"(",
3 h% [4 |6 P. G+ U2 v. T; T       RowBox[{  P+ }. D8 ?2 q6 w+ G$ B
        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
$ p6 W- |/ }7 p0 L& Z! J0 h2 [     SuperscriptBox[) \" a8 Z8 j5 Q, n) r3 v+ d9 L' n7 h
      RowBox[{"(",   J, D1 ^4 k4 l5 s. D+ ?) a
       RowBox[{. B2 g- D( M" o6 G" Y; A& r
        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", 1 M% H4 ?' r" D4 ^; c
     SuperscriptBox[$ K! \" r' k7 |  m4 Y
      RowBox[{"(", - M3 f2 a7 ^0 S1 ]6 }
       RowBox[{) o3 x; G& z7 \* L4 T6 |0 C
        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", ( h1 D7 U; y0 D; h, a# a
     SuperscriptBox[" ^& J) p) H7 u( @# J9 E/ p$ v: W
      RowBox[{"(", ' `8 o3 n' P! T! v# |4 ^, W/ @! [
       RowBox[{
  ?8 ?! N2 M8 _# @4 x        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
; Y- \* W+ c! a* n7 }     SuperscriptBox[
$ {: B+ X6 y, N! G  r      RowBox[{"(",
% [+ h( Z' g2 [       RowBox[{1 U; X, _4 t2 ^: d3 P4 x! `, Z
        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", 8 P- d% x( j9 b+ J0 L
     SuperscriptBox[5 W/ T. d) d1 ~+ ^
      RowBox[{"(",
& _4 `  w0 k9 ~       RowBox[{7 l5 @0 n4 Z$ B9 D* G( R
        RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
4 r. t/ a6 w0 L  K+ o6 [8 l     SuperscriptBox[
8 d0 P6 ~1 J, ]# Q/ {9 x( w. O      RowBox[{"(", 3 X& ]3 a: S: R3 N6 @
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
/ ^& D) v) Z; R3 X    ")"}]}]]], "Output",) N0 @" }& S$ O7 B2 H) T& J1 Q
CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9, $ ?3 Q* D, \7 m; L
  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, . W: y% i0 d. H
  3.578012187078125*^9}]% B) \# C3 b( N
}, Open  ]],
4 E. V  t7 a9 ~( W0 K4 Z9 l
* l3 o3 e0 L' O) C+ @7 T* ZCell[CellGroupData[{
3 d. R" b$ q4 p7 T1 ?3 w. Y+ m+ Y# e! _3 K: z8 F
Cell[BoxData[* W* u) M+ r1 G6 z, ]
RowBox[{"C2", "=", "Ca"}]], "Input",% I0 V$ F+ @6 F& m; w% S1 }
CellChangeTimes->{3.57792047321875*^9}],
. ]2 A* i, n- T7 E  t8 L. {: m/ V
Cell[BoxData[6 s$ }8 P( e# e8 L; R4 j) x
RowBox[{"{",
5 O2 z/ {- I" G# |* r# y  A+ r( x5 S  RowBox[{
! `; h% a" a  w) [$ `" W8 _  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
# [! M! H% p" H7 g2 A' T! |" l   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], + v, v# x" I) @0 {/ Z1 w
  "}"}]], "Output"," m0 e! l4 r  @
CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9, ) p9 Q( V: \+ Q& x
  3.5779607401163173`*^9, 3.578012204671875*^9}]7 w& G0 p, r& w; e
}, Open  ]],
+ o% \3 }) k* `5 ~
1 H, V/ U" Y1 b( O" j4 VCell[CellGroupData[{
8 a0 p; @. Z$ w! u
  \- L1 F' [+ J, h" d- E( P2 [( _. P9 ]Cell[BoxData[- R  H' |8 d: p: d$ y9 i
RowBox[{"u2", "=", ! n) c6 \. z5 p: h. l
  RowBox[{; J! n5 O$ y5 o
   RowBox[{"Exp", "[", & a' I5 c6 N9 {4 S8 D6 Y& e: H1 u
    RowBox[{
$ v% [+ [$ A% H7 G6 B     RowBox[{* x1 R) r% c& q0 [4 j% u# N
      RowBox[{"-", 4 N( ?0 C2 q, D. F0 w$ j" O
       RowBox[{
+ y# ^% d' N7 P. Y        RowBox[{"(", 9 B3 `$ V/ O! M9 H
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", % r4 B6 m% ?1 z, k/ X& X9 E- o
        RowBox[{"(",
2 w2 h1 j7 x6 i& v# r2 Q7 x         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],: b+ a4 `2 u* \
     "]"}], "/.", "DeltaX"}]}]], "Input",
& l: d# t5 L( S( T5 z  f4 j0 P  ~ CellChangeTimes->{3.577920484109375*^9}],
5 s$ H9 H5 g# L% n5 I% ~: p# c9 t5 ~5 ^5 `
Cell[BoxData[
% m( p% M/ k* _2 H5 I# w- A! M SuperscriptBox["\[ExponentialE]", ! }3 _+ j1 t4 m" ?: u
  RowBox[{"3.141592653589793`", " ",
8 @5 j2 t5 _3 k8 Z+ o) }4 V( ?! J   RowBox[{"(", & c) }5 s7 x$ A1 x+ L
    RowBox[{
' `% y7 j+ A1 A' L# `$ e8 e1 t7 y     RowBox[{"-",
+ E# [* ?% g3 Z+ E2 r, X      SuperscriptBox[
6 P' s* G& {! X2 Z1 @8 c+ F       RowBox[{"(",
4 x4 E. @6 Q: i: |        RowBox[{
0 Q* o& S3 B2 h( Z6 e9 g$ X         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
* w. M) a& s9 S1 o: T$ H- U) C9 {: u     SuperscriptBox[
3 H4 t# t: b+ D! d9 a9 D      RowBox[{"(", : u  l4 Y& P( H  R, K: l( Y: d* N9 \
       RowBox[{
+ g, t6 A7 p) A- Y        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
4 h4 |* Q9 u* X# R$ L! N     SuperscriptBox[
5 W% w& D; |, o6 Q8 t+ j) A      RowBox[{"(", ; J& ]! a2 r9 i$ h- ^3 A' U6 a
       RowBox[{, D1 x$ @* z0 J
        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
% C$ d/ {9 M! G& f: ^4 N     SuperscriptBox[
. B, P8 c7 ]4 G) }8 A      RowBox[{"(",
$ ^7 @3 x5 e$ Z1 [       RowBox[{3 E+ K- `; H% t6 D
        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
2 l3 j$ W6 Y! v; y     SuperscriptBox[
9 R3 P# N! w9 ~      RowBox[{"(", 8 R5 F  v; [4 G
       RowBox[{
8 \% d0 K0 P8 P2 y" m+ o/ }        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
) q1 F" T3 J$ y" k( _4 j     SuperscriptBox[8 G( W0 ?- [3 A$ o% N
      RowBox[{"(", + \, d- P+ Y( ~3 E# j
       RowBox[{' H) p6 j1 W7 u& t
        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", + `  l9 z! r$ {+ d2 w  C
     SuperscriptBox[. [# Z1 s& d. C( _
      RowBox[{"(", ) G/ b; x; B: P) D5 d1 t
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 0 a% R( M8 b7 i7 M1 V% c3 |
     SuperscriptBox[1 V# x1 e- O) u9 D! q. a' M
      RowBox[{"(", " N' R6 P7 b+ Z( I: N9 E: s3 |" r
       RowBox[{: g$ ~7 l; R- I6 I: y( ^
        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
6 A) U* k6 f8 Y  v( Q     SuperscriptBox[
* B* n" Z0 |/ _8 r2 _" E      RowBox[{"(",
, x. w  ~4 x6 e9 k8 V5 @       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
7 f7 ~, c' k, |- ]7 |    ")"}]}]]], "Output",
5 I% T6 f$ a# r% w. X' } CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9, 2 _( x+ T5 C2 C  ^% n7 o' i4 s: G
  3.5779607413955193`*^9, 3.578012205484375*^9}]% _' X0 P5 D! t0 o# p
}, Open  ]],7 E) d2 W; g% f( P$ {. U5 L0 B

5 R7 l+ y/ S: G) Q/ tCell[CellGroupData[{: a! n1 r+ }% j
7 j: l. z# A& b# ?
Cell[BoxData[5 W' \% [7 v# V1 w# J
RowBox[{"C3", "=", "Ca"}]], "Input",
( s# J" z# f, \& B CellChangeTimes->{3.57792064125*^9}],
% m, \4 N' ~0 r# `: W4 g3 C3 \5 @3 U7 J6 `9 Z5 F* y: V$ Y/ Z1 o! w
Cell[BoxData[3 q! o  `* y1 `" N
RowBox[{"{",
2 A6 R& _* G; K. f) S  RowBox[{
$ b7 g: O$ b  ^+ s  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",", 5 T4 b* b% r) M2 h
   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}], / E0 p6 K) F) O& g5 [3 d* E
  "}"}]], "Output",5 ]1 i- q3 n. ]  b4 {* A8 U
CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
) l' Q% l: e. J6 H2 D; Z  3.5779607642027593`*^9, 3.5780122103125*^9}]9 J# z( P! M  f9 ^
}, Open  ]],5 q/ r% D5 H" n8 R" k
6 O+ c6 a7 x* ?/ B
Cell[CellGroupData[{
' Z& m- k" [7 v/ h. g5 c/ P! ?, p; ^" P/ A' U) @1 @) k2 _
Cell[BoxData[
# q9 L7 S6 }& j, D2 w2 J1 y4 Y0 K RowBox[{"u3", "=", ( `" v+ i  x/ Y$ ?
  RowBox[{
8 ?8 y8 z. C+ q8 K0 p. U   RowBox[{"Exp", "[", 6 w# A4 a5 J2 R4 d3 e
    RowBox[{3 r4 p$ I1 D1 ?. E: X/ {+ }
     RowBox[{
3 v& D' h4 r% o' e0 x& d  ^& Y      RowBox[{"-", * U4 S) ?" s8 U! `* f
       RowBox[{
" g+ u! d' P( e        RowBox[{"(", 2 f# W) Z1 u% U1 s2 U" l
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 5 i+ c% R! r9 S. }" o- x
        RowBox[{"(",
2 v$ g+ }% f9 i2 L) y         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
) @: ?7 @4 j& }8 q, [7 e* I     "]"}], "/.", "DeltaX"}]}]], "Input",0 d# \4 u% {8 G# R  u) p" @- `: H, W
CellChangeTimes->{3.57792064921875*^9}],
; O6 [5 C, Z! h; H% Y
- ^- T4 I* g* S/ ?Cell[BoxData[; B" W* J9 }1 D! ]6 k
SuperscriptBox["\[ExponentialE]", ( \3 J% X" q* L! |
  RowBox[{"3.141592653589793`", " ",   h4 o$ U0 l. s9 p& i
   RowBox[{"(", . k6 _8 j+ ^; _0 N# ~8 `1 |) I) }
    RowBox[{+ ~+ l3 f$ i" Y4 i0 a
     RowBox[{"-", % _9 ~0 |* j. e3 Y3 p' f+ ^
      SuperscriptBox[; L  F* L0 x. |8 O# |
       RowBox[{"(", 1 e9 I. @% d7 A/ N. c
        RowBox[{" }( E* D9 I2 F
         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", : o6 h8 E4 [& C- O2 U2 j* c+ w
     SuperscriptBox[/ u# J3 U0 S4 U# \1 o+ n/ M
      RowBox[{"(",
2 m9 T# K3 s% d       RowBox[{
! v* L. V9 W6 M+ d        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", ) [: r9 C" ^7 t6 K* ^* q
     SuperscriptBox[
# P5 j& T: I+ x$ N* [6 s      RowBox[{"(", : D: i; Z6 ?0 K$ I# @
       RowBox[{, _4 L  R( @, I! ?
        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", 4 [" u5 M% A2 W5 I, N% ^
     SuperscriptBox[9 ^9 y9 Q4 q$ c- g/ `8 q" F
      RowBox[{"(",
2 `/ Z2 H# w' K: ~       RowBox[{
0 f# d0 M! T% M& L! t/ x        RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", ) z# L1 ^4 Y, z9 F) ^2 h
     SuperscriptBox[
, j4 o7 |; z) p9 t      RowBox[{"(",
2 |" A1 M' Q7 T2 l, Y       RowBox[{) x+ d) `2 m8 x# d6 X% t; N
        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", 9 |4 s1 ]1 m& ?+ e
     SuperscriptBox[3 ?# s6 o5 Q6 E& v& c
      RowBox[{"(",
: \& r) P3 e+ T- g0 X$ q# ]% \       RowBox[{
; T, {: c; f5 Q9 J( R3 `9 \/ L6 |        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
) B' b- o* n) F* Z     SuperscriptBox[
3 v$ m8 V: W( @0 I- m1 m      RowBox[{"(", / e- n+ K* S  g( [
       RowBox[{3 b7 m0 R9 Y6 m& E) c
        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", 3 ]# x9 ], m. \6 h2 B# M( J- M$ Y
     SuperscriptBox[
- H% O0 Q* ^/ _1 ^6 J/ c* J4 j5 j      RowBox[{"(", & y( c0 J( f& a: m; Q
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! t  T: v2 S$ [) W
     SuperscriptBox[
& C3 b6 w4 k. T      RowBox[{"(",
% @' Q/ R* J( a) q* }4 }  X1 o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
, e$ x4 S) m8 H0 g0 Y5 ]: M- j    ")"}]}]]], "Output",
& `7 Y- m# s' _  Z CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
' l' _$ X- X" A( ]# j3 G$ l% q: z7 m  3.5779607654819613`*^9, 3.578012211515625*^9}]9 G( e' J& s& _3 w2 z0 |2 A
}, Open  ]],
6 g4 ^3 @) [: a  u( b
1 c( Z( v  g& K. u  ?# E8 ^4 ECell[CellGroupData[{
0 p1 ]1 g& x" [; g  _! t- Y3 q7 g0 M% Y8 b7 O
Cell[BoxData[4 H- r5 B4 Y* _0 `  q" n
RowBox[{"C4", "=", "Ca"}]], "Input",
% |# g9 H7 B, U  C3 U3 [1 |! L/ m CellChangeTimes->{3.5779207559375*^9}],$ J7 b( q6 C( j8 w; G9 l
" L, l% o. D8 v6 R
Cell[BoxData[2 s: w3 A4 W0 e. ~- X# r! H0 w& b
RowBox[{"{", # N( |" v1 D( O  {8 G1 T
  RowBox[{
, P: X# _- M- ?6 x) l  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
& X$ x3 q, S$ u" A, B; ~0 m   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], & g0 |! i; n( j$ c
  "}"}]], "Output",
" D! n& ^! M; W4 _" Q7 f+ y CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9, 1 v) _# }' Y+ J: O+ \' X. @
  3.5779607861363974`*^9, 3.578012216171875*^9}]9 W" @& v/ M% J3 O: j% g7 I
}, Open  ]],
* k. _& e+ A& x9 o* T! G0 I, i3 u: o3 z$ r, y' l! J
Cell[CellGroupData[{3 {. J2 v6 d) B% }

* r0 @; I3 T8 s3 o! ]Cell[BoxData[- r, l2 e+ T1 \9 m/ j& t* W4 P& B
RowBox[{"u4", "=",
; H+ `: V- e! i8 k+ M  RowBox[{
& |8 `6 U. ^* A, q/ Y* b- [   RowBox[{"Exp", "[", 6 j; l* n: R3 J* {* U/ s
    RowBox[{; D, {+ \. S" Y" t/ o
     RowBox[{
# M" b% {& L2 y, x) q3 W      RowBox[{"-", 4 a" b# ?1 u. s$ E: |
       RowBox[{9 ?6 H; n/ _) i$ H- N! ]
        RowBox[{"(",
! d$ o( h! |( ^         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
  N" t$ B- O, l  }  C6 Z& D        RowBox[{"(", 0 \  H1 A  e- x! Z% C) e% |
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],+ _1 N6 y& V2 B% |! N
     "]"}], "/.", "DeltaX"}]}]], "Input",
4 l+ y  a6 }0 [. ] CellChangeTimes->{3.57792076325*^9}],! L! k1 M( K+ z/ b7 v
* \& a4 t0 k$ M
Cell[BoxData[/ Z9 U; l9 A: p& n
SuperscriptBox["\[ExponentialE]",
* a' G1 P! K- P3 I9 g2 {0 o1 N  RowBox[{"3.141592653589793`", " ",
4 z/ @/ `6 S, N$ H9 R) I! C   RowBox[{"(", " @  t! e% R+ A
    RowBox[{
# R5 h, }* P- n8 z     RowBox[{"-",
7 ^. i9 o0 g1 j2 ~      SuperscriptBox[
5 a$ p% H2 z4 V$ [& f' K$ _, w       RowBox[{"(",
1 g+ t$ {- E2 R9 M8 n' l        RowBox[{
4 u( [5 p3 N$ E. t         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ) J. {# z) ]# [1 L  ^
     SuperscriptBox[
1 Q0 _0 Y- ^2 X$ M' Y2 T" N      RowBox[{"(", * l8 L' G+ _  c7 y3 }* S
       RowBox[{
  R* |) g0 C0 `0 z  f        RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
+ }4 Q% Y/ g6 c: K0 A7 S     SuperscriptBox[6 T4 H9 n1 A& N/ B4 l; V
      RowBox[{"(", & f; `$ O; d$ Y2 }2 Z
       RowBox[{0 u* Z" E3 e3 [: z  W
        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", / d) |+ }8 H; o% U0 M5 M, m
     SuperscriptBox[
6 O5 u/ A  ~" |; \% ]  K1 Y; V      RowBox[{"(", 4 S- {( i! q- G
       RowBox[{
% I9 q" h4 d  \9 s        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
8 k! `+ Z5 m$ a$ ]* T( R7 P     SuperscriptBox[
4 }% B2 I! r/ P$ g" Y      RowBox[{"(", 3 w' |4 c) l2 D2 ~4 J+ p
       RowBox[{
' r9 ]/ P  q( ~1 i        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
* c# l$ w/ Y- [5 e" f     SuperscriptBox[
6 d4 i1 |' }  b' E( D3 i; ?" q% n      RowBox[{"(", 7 q" F$ D; u4 q( r2 F# w! G/ b
       RowBox[{' I7 e: Z9 w% g% S- D' l' k
        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
, e" Y3 t+ F, @8 K2 J     SuperscriptBox[) }, {2 |4 ^" `7 v7 {
      RowBox[{"(",
) `, r) a1 M/ O" m3 t7 u3 S       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
( T7 U9 {4 q& K6 ^! G* X4 [# Z6 h$ m     SuperscriptBox[3 o4 _( {" v. E2 I0 P# Y6 E
      RowBox[{"(", % S- a; q9 {) G9 a" l5 Y
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
2 _  m1 C; D7 s& T' u     SuperscriptBox[
, K' Z% H0 h0 m9 Y      RowBox[{"(",
7 b$ a! R8 A! I+ T: D: o       RowBox[{, \5 X9 H7 y7 x. u6 w! ?
        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], 7 }; H7 w0 A2 Y) F
    ")"}]}]]], "Output",
( q, X" w; }. P CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9, 3 h% ^" o: t8 S/ e0 N. c2 N
  3.5779607873531995`*^9, 3.5780122169375*^9}]( L0 J9 n) h2 e9 n: h* |; K
}, Open  ]],
3 C; ]# h2 D9 G4 Q, H1 ]. n
. d( v, `0 ^* a6 M& Z! \6 W6 |Cell[CellGroupData[{
# I) o4 y& M& J1 A4 H
& D, H' r; X7 X, V) iCell[BoxData[7 Z3 Q9 A/ }2 C3 H' f
RowBox[{"C5", "=", "Ca"}]], "Input",$ V$ o1 v2 T+ P
CellChangeTimes->{3.577920860671875*^9}],) q) \7 r8 C7 ?3 O7 U: C' i
6 `& `. H8 F, {( x6 P2 ~+ r# y7 f
Cell[BoxData[# v6 L+ M. i2 s: L
RowBox[{"{",
6 D3 V2 a/ P- A$ a; P( M  RowBox[{0 P, w4 d) {. r! L" C# v9 Q
  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",", 8 M3 [2 B; V1 w$ S
   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}], $ V; d, y8 @6 }' Q$ _% _  Y0 N
  "}"}]], "Output",
2 k7 S4 X" k& Q CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
& h' f9 E  L: k; N% t8 A% r4 ^  3.5779608137328453`*^9, 3.5780122209375*^9}]9 {* U3 d6 M/ ^$ ^( e4 ?- L) s  ]
}, Open  ]],* v: Q$ U  k; M* c3 ~
' ~6 Z+ w6 P; V; R! g1 I4 H
Cell[CellGroupData[{
* z# r* _  \$ m7 ?/ ]% f
, ^" S- u: Q! u1 xCell[BoxData[5 X8 O4 T- U+ a0 e* j/ J
RowBox[{"u5", "=",
8 D6 `8 Y  `) K8 Q. _# Y  RowBox[{9 `% J- Q$ C" v: J" l, j
   RowBox[{"Exp", "[", 9 E7 h9 ?- @* U8 v( U9 y2 H
    RowBox[{
3 n1 }* s" r; E/ ^) d' ]     RowBox[{7 a$ f7 A  M: q* c6 M, U
      RowBox[{"-", ) f4 s' `* F* g$ u" v7 {) [
       RowBox[{8 h0 b9 ^( K+ V6 V
        RowBox[{"(",
- y% o' @5 G; K' Z% F         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
. L5 S- X) o( ^% |, ~9 t        RowBox[{"(", . ?, b8 m4 t+ k4 Y% o
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],: D+ j$ d0 @+ _: @$ w/ D
     "]"}], "/.", "DeltaX"}]}]], "Input",% @3 X% l  G& ~7 G- m7 L
CellChangeTimes->{3.577920869375*^9}],
0 g: V  i2 s& R6 @/ ?' B/ e& Y5 r+ e" v1 b
Cell[BoxData[- l; ~9 @9 ?" P' G, v
SuperscriptBox["\[ExponentialE]",
, t; w% h3 j  C" R+ \; y  RowBox[{"3.141592653589793`", " ",
. W& K! y8 P& ~% S+ `   RowBox[{"(", $ m) |- I5 t" v. Z4 ]1 t
    RowBox[{
& ?& g9 o6 H1 {" K     RowBox[{"-",
0 w( S! ]: f$ K* {, E' g1 B$ ?* d      SuperscriptBox[2 A; r9 ]) B0 J0 t
       RowBox[{"(",
$ S1 o" a8 L: B- D        RowBox[{  x) P+ L# ~7 \4 U+ |% u: [( y3 b
         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
8 K9 D! A6 J+ n( X     SuperscriptBox[
) L- z. ?: q1 K3 N      RowBox[{"(",
: ^( C2 o  O0 `  X! v+ m9 C       RowBox[{+ a8 x, q) R) x) Y4 L# b! M- n) h
        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", 8 N- l* s# u7 Q5 [# C7 O
     SuperscriptBox[& d) d" s: y( y4 a5 |2 j/ i
      RowBox[{"(", 6 }+ `  f  T" T& F. v, O
       RowBox[{- @. i$ b4 V" ]
        RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", 2 g0 H, i" `. @+ D" v4 ^
     SuperscriptBox[( j7 J# H* O& ?) d* \) L. |
      RowBox[{"(",
: C& \5 j4 U0 O% t3 l) g       RowBox[{- _0 ?! l( c9 |# a: |- I4 u4 r
        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", ! {) |3 b; }( J& T' b* {
     SuperscriptBox[* c! u" ^9 p5 e) h9 `) R# I
      RowBox[{"(", ' g8 J1 ?- p& g
       RowBox[{
$ ?" Q: \8 v, s0 O& q3 I3 k! W' m        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", 1 Y, j+ W. N7 D2 p: h0 `: M
     SuperscriptBox[
) C5 r: Z8 H; r' K      RowBox[{"(",
# ^) W  x: D; @" Z1 \, L# k       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
3 ?3 D$ R0 h/ g+ @3 |3 q+ Y! a     SuperscriptBox[" D% `' G, o, @5 `
      RowBox[{"(", % c; ]4 H- L* j
       RowBox[{+ _3 h0 ?+ u9 u% A
        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", ) Y  D1 a" Q# N& ?5 f1 r
     SuperscriptBox[
4 D0 t0 j5 I" y) j; g) y. K      RowBox[{"(",
" {" H+ i; M8 n0 }% ^4 Z9 U       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 9 f0 ?, D5 j: M% ?7 S$ \
     SuperscriptBox[" v$ j0 n$ W+ e9 E
      RowBox[{"(",
- }* a+ i0 i1 @9 k! v( z+ N& T& s       RowBox[{
- ?! T+ P6 F3 _        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
% j9 H4 K! |4 _  D3 f' u7 Y    ")"}]}]]], "Output",; z5 ^: D1 E* h& h# p
CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9, ' z: C  k6 s* F' l8 J% U8 s
  3.577960815043248*^9, 3.578012221953125*^9}]9 e  i5 O6 Z8 H% R/ c) V7 K
}, Open  ]],& Z' `: {) `6 Y1 ?7 c
' G  P  a  t% V& @3 G9 S
Cell[CellGroupData[{# m3 [" U, d2 Z$ s' _
" N% S( r2 S6 Z
Cell[BoxData[( `" b8 G  p% c  f9 o, I. w5 d7 e
RowBox[{"C6", "=", "Ca"}]], "Input",' z% R' ~4 [3 h0 ]7 }
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
3 ]. L) m5 a: R- z& G2 z
3 V4 {! k' n' u/ D2 h/ O1 H- \Cell[BoxData[
$ |9 r0 D8 W( Q9 k RowBox[{"{",
/ z- \; t6 X! u' l) E  RowBox[{. B" e. h# ]; f- _9 z/ j
  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", % o# J2 A# F/ \3 [
   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
% J) Y" D! q0 Y9 i7 r   "0.494866`"}], "}"}]], "Output",& W2 m5 P" R. b# U
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,
; x: f) r" F$ I  Y% K   3.5779608373044868`*^9, 3.578012227359375*^9}]
3 K5 ]- \8 R- r% B9 }) k: ?}, Open  ]],
0 c" F/ Q) H. J( h+ F- U) \
- k. d6 W% a$ e$ W  _Cell[CellGroupData[{9 t4 j, S3 r. w* n8 a1 n
9 K( T; P5 _8 w5 H; h1 Y4 H4 i- {' d
Cell[BoxData[4 Z9 C0 @: ?, J- a% ?7 P
RowBox[{"u6", "=",
% q0 ]1 L2 L& J0 G9 t! K  RowBox[{) C8 H/ f5 C) ]3 [. X) Z' D$ r
   RowBox[{"Exp", "[", 7 Q' L1 S- g% X' t
    RowBox[{
0 |: }/ w- H" f0 m# R# S     RowBox[{/ O# ?% H: u8 d
      RowBox[{"-",
  I; u" k' e7 [) g, P       RowBox[{" m2 j* K: k+ v: g! h% s' p1 N
        RowBox[{"(", 4 k8 O8 O, `7 z  m1 V9 n9 d
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
: S$ s6 S" Z& b% u1 ]        RowBox[{"(", ' ~. s1 t) ?' I' b  z: u( F
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],2 f# }1 V1 u0 i+ h
     "]"}], "/.", "DeltaX"}]}]], "Input",
4 t- g  |9 c, [5 N! k CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],9 t/ n& Q& U2 p7 W; x+ {

5 |& w) {+ L7 Z" Y1 QCell[BoxData[4 s" w" a0 R6 ]& t3 `0 Z
SuperscriptBox["\[ExponentialE]", " V. c' a$ Y. n1 K' H
  RowBox[{"3.141592653589793`", " ",
/ q' S( u" `; t& l  s7 H3 O4 R- v   RowBox[{"(", 9 {4 i  r3 O4 p5 v# V* Q
    RowBox[{7 x7 L9 {1 x; l) k5 V1 q4 x
     RowBox[{"-", 0 q& I1 T+ u; J  Y4 L2 x% u9 e
      SuperscriptBox[: }4 \/ C6 N1 L0 y# a7 D& F# Z. V+ x
       RowBox[{"(", 1 b. X# q5 q' f; N1 ^2 ^4 s
        RowBox[{$ N% l5 u/ y3 a' C& {8 A
         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", # g! S1 R# i: C3 r1 o  A
     SuperscriptBox[
$ ?5 N* w# Y$ w0 N' p  _6 Y      RowBox[{"(",
1 b/ n4 z  k; T- j% U% R/ ?       RowBox[{
0 w; T  g( x" f  r& e  ]) u        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", 3 [1 c! l! D0 Z2 q5 q% q* A
     SuperscriptBox[' h8 e' p& W0 z) Z: E
      RowBox[{"(", " N' t; |7 p) S# b, X2 o
       RowBox[{  m7 @5 m9 P8 x
        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", * ~; U% S1 V  H8 B
     SuperscriptBox[  _* W  R- T- K9 v$ ~, |
      RowBox[{"(", : D4 r7 z: A' F/ T3 t$ [- _. O
       RowBox[{
- U, W+ S: ]* |        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
3 |! p, X' ^! ~, Z     SuperscriptBox[2 \! M4 t5 ]8 D9 p; \8 j
      RowBox[{"(", 2 _* L5 h1 M6 w# _( R* ]2 K/ Y; r% P( m; _
       RowBox[{3 r& p! Z* ?8 \3 T. c8 @
        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
8 G2 P, x% Y" C  ]7 d5 v     SuperscriptBox[
7 G" E# `% ^% p3 z' _1 t      RowBox[{"(",
- t. U; _6 V+ d. _, V# B' ^# d1 ]       RowBox[{" N. m& b9 \9 a6 Z
        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
  T! L2 C  u  d4 Y. l     SuperscriptBox[
& b! S/ V1 j7 v$ W5 T      RowBox[{"(", ( A6 {: ^* o2 J2 C& R
       RowBox[{
% o" K( o- D8 R/ L0 G        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", ( {- V+ {) J6 c4 \% i7 c! |
     SuperscriptBox[+ [" d2 u0 O8 n- U! }  u
      RowBox[{"(",
7 ^) a* Y2 t; f* }5 l7 e       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", # O/ i7 I) b( d1 J5 v0 `
     SuperscriptBox[8 w3 g- m8 X& O* ^
      RowBox[{"(", 4 N8 y* v* L: P: k2 n" S
       RowBox[{
; u. o) o6 ~2 y. A  \        RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
$ ~6 H. I+ O' v; J8 }' T5 A    ")"}]}]]], "Output",# m! n/ }8 u5 t2 N% {8 K
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
3 e9 g0 w! T0 b+ u$ J- w, H  3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]4 ], N/ x+ g9 P  l
}, Open  ]],! N% o1 v' V* ?5 {7 [/ a4 J

! b3 n7 q- H& e6 w% A1 \Cell[CellGroupData[{& W8 `% `2 E9 n1 F" \) L
  v5 F8 u# t* M0 Y* w
Cell[BoxData[7 d3 _2 Z  I3 Z2 B# B/ {; m3 X
RowBox[{"C7", "=", "Ca"}]], "Input",8 \) Z, B- A4 V& X, w
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
: Q, {( H) }+ r" P$ P7 ]  3.577921316125*^9}],; v8 F, l, Q3 q: f
/ |' q% m8 W' _7 e' F' o
Cell[BoxData[
" w1 h+ l" l7 Y1 e+ E. d RowBox[{"{", & l8 Z  x4 Y$ I6 W0 C/ ~
  RowBox[{
$ O; n- ^& ?8 M% i  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",   P* A! a; y# z" o* d- q. K& ~' y( d/ i
   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}], ; H  `+ m8 D. |' _* Y: F, J, x( b$ ]
  "}"}]], "Output",
! P$ I6 S1 N( J6 u CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
: o. D4 ]0 {8 ^+ t: A  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
8 R0 k8 `% g9 p9 C1 n}, Open  ]],4 g/ Z; c1 k' x1 k: \
  A2 p7 L9 K  _- ?
Cell[CellGroupData[{
+ m& Y" P% ^7 Y; |7 T9 Q6 M, E' `( l) S/ l; L6 a, e
Cell[BoxData[
0 Z- g- @# ]1 t RowBox[{"u7", "=",
- z5 S- d; k# H. a7 t) f9 m( E1 Y  RowBox[{+ b8 C/ q+ J% V/ |) i' S
   RowBox[{"Exp", "[",
* a2 _" H% p' W* ~7 X8 s( l+ }    RowBox[{
) V) ~3 |* _; L5 ?" B( p: k2 Y     RowBox[{
, A) g$ y/ ~* A1 l* Q* d      RowBox[{"-", 7 d8 {5 I/ _' R5 a* R
       RowBox[{
& ]- e& `1 [, R9 l        RowBox[{"(", & s, k% j6 S* X; I: e- ~1 W
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", , Z8 o! j9 {8 K! N
        RowBox[{"(",
# m! ~" j; r5 G- n         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],+ S2 f$ C+ J& ~0 L# d( C) V$ G9 a
     "]"}], "/.", "DeltaX"}]}]], "Input",
  H, p3 J7 G1 I8 }3 H CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
! @0 O; ^; x$ F  3.57792132028125*^9}],) ?. O  _4 h; @" t

  P. c5 X2 b+ P0 QCell[BoxData[
" V2 f; X+ U- T+ |3 g: H7 g. o. B4 i SuperscriptBox["\[ExponentialE]", ! {* g7 L9 y9 E. y9 g, p4 e7 [9 T
  RowBox[{"3.141592653589793`", " ",
! e+ c* y" V! N   RowBox[{"(", ' q0 \0 m  H/ ?3 c. V
    RowBox[{
  J  O% P2 F+ ^     RowBox[{"-",
3 k0 J% \% l+ A7 I      SuperscriptBox[
7 @+ B& b, E& G; R       RowBox[{"(",
' e' F5 n9 w. s1 f6 ?" ?) ?        RowBox[{
+ i$ O* Y* t' w( U! N! K         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
# s: D' u: Z1 S, f' y     SuperscriptBox[0 n$ X3 q0 ^8 W( u( o
      RowBox[{"(", 7 ?& I  h8 Z/ h9 g" r) \
       RowBox[{
1 h- Q7 |" O) u: p" {: O        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", " Q& Y( g- H1 x' x* @! g
     SuperscriptBox[8 X: f- O0 A/ b& x' g' o! A
      RowBox[{"(", ) P  i: m; r+ Y# ^
       RowBox[{
- X4 m2 u; H  R" F' e7 E! [, T        RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", . p8 [% o7 }5 L% O: t1 `
     SuperscriptBox[! F: |5 ^+ \3 g8 M$ n9 Q( c: p
      RowBox[{"(",
2 G- B: t. P5 O       RowBox[{* G! \& s5 z6 ?" q* P& o
        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", 1 u( G7 L/ K7 q9 V
     SuperscriptBox[
- P! |- S0 h5 O      RowBox[{"(",
- x( L7 `% Q) _0 B& G       RowBox[{- s* J' \1 u/ v2 b' F# ]+ o! L3 V
        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
7 d3 l, x( q$ k$ e  H! |0 f     SuperscriptBox[0 J( C9 [$ b+ D3 l4 M4 G* K# c+ \
      RowBox[{"(", 1 T. ]4 r, @0 S1 g; e  a' Y) x
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ' r# w3 N& a4 R, s3 _6 _5 L
     SuperscriptBox[
* H" ~. {% B  X7 V7 e      RowBox[{"(",
% h' v* H0 s3 z; h! i* f       RowBox[{% K9 Y8 f7 d7 L/ M
        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
* F1 ?+ z& X7 G) Y     SuperscriptBox[3 u  ~+ @2 I7 \9 g" F4 G! c
      RowBox[{"(",
, x+ g' {8 V7 J       RowBox[{. H5 R- M6 L( D9 Q. p* x. c
        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
' g; c& [/ ^3 o6 S1 f+ j4 N     SuperscriptBox[
  _0 J- H. g- r1 {      RowBox[{"(", 2 W* d6 t! D6 N/ A
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], & X9 k# `* m% Z( j- L0 }: z
    ")"}]}]]], "Output",/ _3 d+ y( y4 n/ Q) _( ^' F  M' S+ Q/ E
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
. d, [* {# o1 Q; B5 e. V  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, + g& s6 {* l1 K5 v5 I  U
  3.578012251359375*^9}]8 y- @5 f- t* P! O  B5 T
}, Open  ]],6 n% q$ [& F! f/ r0 |9 V
' {$ x& V6 G1 E9 Y4 I/ \8 a
Cell[CellGroupData[{' g$ Y2 }2 g/ J8 B  p9 W
& Y& r7 B# c# E+ X+ L2 h
Cell[BoxData[/ D% Z+ T' Y3 @
RowBox[{"C8", "=", "Ca"}]], "Input",
6 [$ j0 O  Z, q( Z% _( q3 c7 d! w7 R CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
5 c- {$ z' p0 C- b' a  3.577921316125*^9, 3.57792141421875*^9}],8 R% {  @: V. `) J

) g2 X' e5 a  Z1 w) C0 B( I  dCell[BoxData[
8 l3 U$ s" Y  ^# @1 n6 ~- z" R8 F RowBox[{"{", : V3 Q5 r. [+ c8 D
  RowBox[{
9 {1 N1 q4 z/ B8 w0 i  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
5 t5 ]9 R1 b  q  c, E6 H   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}], 0 S$ s3 {2 @* {/ C* v- m4 z2 J" n9 @
  "}"}]], "Output",8 C" y5 I3 t8 p, I5 }8 g
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
/ `7 Y+ P2 ]$ y8 S  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9, - ?( G; T1 |4 `0 d5 f7 ]
  3.578012260515625*^9}]
) }; Z& o/ j/ Z( {' _, C}, Open  ]],) v5 R8 y% t4 I6 l

+ ]: ~* G2 d9 g' w/ T7 pCell[CellGroupData[{
. K# d1 @1 x, c! M
  i, o5 L9 X# q* e4 SCell[BoxData[
1 W; U  A7 n+ C, y6 v0 l6 A RowBox[{"u8", "=",
( G( Y- }2 O; |  RowBox[{8 A5 M9 K# Z! R. J
   RowBox[{"Exp", "[",
! n" U0 C! f: ]" t1 l" c# h    RowBox[{
1 {8 c' F5 K2 M7 e0 }     RowBox[{- L. F% R8 k3 m# C! c/ a! E" e) w
      RowBox[{"-",
6 q9 Y9 N" }8 f: H7 R2 `       RowBox[{, q0 p! y% `) \( y1 X, w. B
        RowBox[{"(",
7 \) `* g8 z3 f         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
. p4 i8 [2 R2 @6 c! B+ [0 y        RowBox[{"(",
4 V$ _6 q" _8 d5 ~' C         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],+ Q. L5 R, J0 x/ s+ c3 P. c
     "]"}], "/.", "DeltaX"}]}]], "Input",
7 W2 W2 C! x% J  c/ R* W- T# s CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
3 b9 x6 ?- c. Q$ S  3.57792132028125*^9, 3.577921416921875*^9}],
0 O2 l/ {" i" ?2 h7 _# n" q0 k7 ?0 C( r2 r; ?8 z2 d/ A; Z5 x
Cell[BoxData[4 \1 p* p' D+ V, o, u% g5 i
SuperscriptBox["\[ExponentialE]",   |% g. j1 Q' F2 p
  RowBox[{"3.141592653589793`", " ",
4 z4 m5 l: \+ ^4 s! r. _   RowBox[{"(", 1 O9 {9 K# Q$ e" c/ O( w
    RowBox[{- B& ~% e5 N! h0 Q4 @5 A: Q
     RowBox[{"-",
8 `; e) c3 |6 D: Q      SuperscriptBox[
1 K8 e. U- b$ U6 B9 c       RowBox[{"(",
" R6 p- ?% ]; K7 M5 ]9 M8 P        RowBox[{
" V, c0 x, }/ ~" m+ e1 x  o+ B: |' Q0 H+ e         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", 4 [& p9 Q4 K4 M
     SuperscriptBox[
. ^- N" [& q. z6 M: S8 L      RowBox[{"(",
! o# j/ N2 f% `0 I' v  x& v! P       RowBox[{( q6 m+ Z) v9 E& M3 P6 g. V. E
        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
' m/ x+ v( ~1 ]& w0 T7 j     SuperscriptBox[+ |; f+ ^! B4 d6 w$ }! o4 p2 E; E
      RowBox[{"(",
7 q5 A" U1 g- _$ S       RowBox[{
8 M: [" _4 A6 f2 p; s3 U, \        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
9 x- c& P9 X( p8 w     SuperscriptBox[& a  M. N5 U: c+ Y/ w
      RowBox[{"(",
0 n: T% {; `" e! F9 u0 V8 u       RowBox[{* l0 @! V4 T/ \+ u
        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-", ; Z% |. \# Z; M  R: R- l
     SuperscriptBox[
; D& T8 Y6 D: ?5 m      RowBox[{"(",
/ H4 i: W2 R( Z       RowBox[{
; `7 _- q( |# ]8 V8 d        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", - L' i7 X3 r# t8 W0 ?8 W
     SuperscriptBox[& O6 b$ {% ~+ V% Y; S
      RowBox[{"(", ! p" X4 e, f% c5 u* `. q
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",   v9 Y3 h* W5 M2 f3 o9 A1 T# C
     SuperscriptBox[2 l" P% x8 K- m. Q
      RowBox[{"(", $ {+ p# S: x. |
       RowBox[{5 o# a$ p" R9 ?# ?8 O
        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
" P  M+ X4 ]. E+ }: P) c     SuperscriptBox[2 U* t& A: ^' M5 I7 @6 c, T: V
      RowBox[{"(", ! T) x- `  \, k1 K
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 9 ^9 {% l! r) Z
     SuperscriptBox[
% U9 V# x; v# y3 k+ s      RowBox[{"(", % p! d2 {2 k: B& Z1 m  o. L2 p
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
1 g5 @4 {8 `2 W# N; x    ")"}]}]]], "Output",
7 v" ~7 b& X) q) k4 l) m3 M) F, Q) {' l CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
- P/ X4 K0 [+ f' F, V& {  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9, 8 [0 ?( ]' z1 g: ^
  3.5779608945565863`*^9, 3.57801226165625*^9}]
4 @, J8 r; J( f# n- o}, Open  ]],5 Q/ V9 f& Y, X: \

2 U+ e' X0 ?& gCell[CellGroupData[{
3 {/ W+ }; Q; d8 ~6 H9 q# w" }5 L! x- z( W
Cell[BoxData[- X( i% w$ l) ]1 l5 K( f( O7 S- n$ j
RowBox[{"C9", "=", "Ca"}]], "Input",& T; J* W! F; w. m
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
, C2 Z: N" @- ?  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],& F8 M5 H5 K, n

0 J' K. w& V4 m& k# @% h! O6 bCell[BoxData[& Q+ f& o* \) _1 J: r! P+ P6 a8 |
RowBox[{"{", ( F' O0 b/ Z. `  N5 v7 h
  RowBox[{
; q8 @% a  s  m8 l: Y5 y  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",", . ]6 }1 [5 D( q
   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], / M7 l/ B0 ]# Q, O* `: ~$ a- _
  "}"}]], "Output",
$ r# V# T2 v; x* ], Y  w- d0 y4 A+ L CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
, B  K( U% W* i0 @4 x- h' B  3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
2 {* D/ K0 @8 D7 y7 {1 N1 F  3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
2 s& w2 Q+ n8 e% u( T6 X  3.578012268234375*^9}]
% O7 ]( v9 u5 O# q}, Open  ]],
8 R; A' h) W" ]1 g4 W+ O9 i. T8 z; _
Cell[CellGroupData[{2 }! {7 D% _7 n. n  h% I2 }1 u# x
6 Z/ A8 ^9 k# Y2 w# K1 W2 a
Cell[BoxData[5 S8 ^- e% R; x" H2 L
RowBox[{"u9", "=",
6 A! i- U4 R. ~( d  RowBox[{# I0 Y' S9 N6 m% [9 z" N# v. h
   RowBox[{"Exp", "[",
( H( d0 ?8 @& e1 k; B" @8 _# X    RowBox[{$ k* t# Q" e, T" d7 `$ |
     RowBox[{4 J1 w8 g5 d9 L! z: I% G, d. M& j
      RowBox[{"-",
8 c! A$ f# t* ^0 Z( E0 @       RowBox[{
& L; R: I9 g5 H- u- ]  _        RowBox[{"(", 7 A. A( b+ u8 B2 F/ a5 r, _6 \
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
1 n% a4 Q( N9 L2 X& @: @7 [' A        RowBox[{"(",
+ ?5 A) G: S4 H! e- A; u         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
# s& c0 G  t: n8 M; N. a     "]"}], "/.", "DeltaX"}]}]], "Input",4 Z% M" E5 S* J& K8 A0 V
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, ' N0 l; K4 \, l2 f7 u  m
  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],: U) {4 h4 U7 r% Y- f( D

" _: b, a0 ]6 K' d: b6 Y1 ]: m8 o, mCell[BoxData[6 S, l* ?/ u3 B  q1 y# B
SuperscriptBox["\[ExponentialE]", ( r2 `7 A) p' @% V  `" G
  RowBox[{"3.141592653589793`", " ", % q6 W" a, Z$ M& F
   RowBox[{"(",
, C( d  ?$ {& _8 t/ ?    RowBox[{0 R8 ]* G# \( b. D) u/ `  _, Z4 V
     RowBox[{"-",
* B8 {1 Q4 T  N* e& f6 X* i; O      SuperscriptBox[
" C; S/ o6 g1 w/ [       RowBox[{"(", ; c# y& }, w! u
        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", 7 o: A$ X! U2 t+ z
     SuperscriptBox[
5 L& o! C1 _- g) i% e5 }- D) E      RowBox[{"(", - [3 t  T: |! b( s2 d% ~
       RowBox[{
) \: k7 y7 {7 ?% u) y: s        RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", ! i& b7 J. W$ p
     SuperscriptBox[# [7 y# K# w' m  q
      RowBox[{"(",
! V# {0 o) b, y: \       RowBox[{
6 p9 P* r' F/ \0 h4 G2 s        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
' b% R- ~" b  |4 \8 T5 P     SuperscriptBox[
) F7 c5 P# A% K7 n      RowBox[{"(", + F( O2 G. L- G$ C) b
       RowBox[{( ~& b( J- |' \. F2 m6 A$ ]" F& `9 b
        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", % l* }/ U/ j) x6 K: z- _; W
     SuperscriptBox[6 Q9 B" {* e$ v4 n% I4 X* w6 i
      RowBox[{"(", * \! Q7 k$ C% E8 r8 p: {8 H# [
       RowBox[{+ s. B6 c7 X  s+ y/ T
        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
2 Q5 }  J. q7 l     SuperscriptBox[; ~& Q  n; S. f
      RowBox[{"(",
" R' U2 v% X4 R2 h       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", " [2 {" W0 X# x2 j+ h
     SuperscriptBox[  K; J. L" g, v. Z4 u
      RowBox[{"(",
- }1 u0 N) @0 {       RowBox[{
) R4 w0 s9 v* a, ?) l; y        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
0 T2 v+ B* v7 k2 Q/ q: O     SuperscriptBox[, L3 V8 k4 e4 |2 v5 x$ O
      RowBox[{"(",
* Z+ w5 p' ]( ~% ^0 r' ~7 Z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
& ^/ B/ V, s2 u     SuperscriptBox[4 r' K* H/ F5 a' ?2 \# `, `# k
      RowBox[{"(",
( @$ l& P0 Q1 Y7 G" v       RowBox[{8 G5 H5 m3 q. d7 q
        RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
5 |" C1 A9 D/ d* ?( Y9 m( J    ")"}]}]]], "Output",
  r+ c% P% D8 o' _4 o2 ~ CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, ( k* u- B: D+ k; A: ~) u3 _% v# H
  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
  Q3 ]% t  m. Q& W6 [& d! s7 I  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, ( ~/ J1 W0 D( l. y) T
  3.577961530421959*^9, 3.578012269125*^9}]
& W5 w9 H% }3 v: E& W/ f& K9 K}, Open  ]],( K. }4 J) }9 {8 o, Y
; d8 y5 ~! m! Z6 P  ^7 O
Cell[CellGroupData[{
% p, o* H! x8 o, X. T5 S: T! d9 B5 B* }( q
Cell[BoxData[{
; d) a+ N. l  B9 O6 Y RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]", % k2 J  ^$ H; i  W' y: {+ K
RowBox[{"u10", "=",
: c6 X0 J8 Y* J$ ^- ]/ w+ z  RowBox[{
8 W% s& i& A0 Z0 [   RowBox[{"Exp", "[",
  n  m" a2 c! M9 d: v8 H9 ^7 L    RowBox[{
* _9 R; R  A- c# D, m/ b     RowBox[{: i, J4 n+ |, h! e9 x) c% X
      RowBox[{"-",
/ k- d, t$ z1 P1 x+ ]       RowBox[{7 g" l$ m1 @& `( s& T
        RowBox[{"(", - \2 n3 x6 r) G$ \
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", # G; k! o7 c$ Q) f5 X6 n3 p
        RowBox[{"(", & s( ?8 @, [* b' n
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
9 M! X6 a3 c3 N9 v# Y# }2 r, }     "]"}], "/.", "DeltaX"}]}]}], "Input",
! U6 n: ^% P& _; r. f CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],5 r. L9 L9 X( N1 B5 r

- O; b* G- p, h" BCell[BoxData[3 T* X( g' m3 a) ?0 T: o3 J4 R
RowBox[{"{", 6 _8 x4 x8 E' l. X5 K3 m
  RowBox[{" K9 U! Q- U; ?4 |; }0 O( o
  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", ! J# g3 i" A, ~
   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
6 K2 I: }& [' W; y2 Q CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
  ^  K9 w6 e, ?; B( S- [; A3 B  {$ W6 `9 X
Cell[BoxData[
- ]1 ^' T( v+ S& g SuperscriptBox["\[ExponentialE]", 6 }! }& p5 F8 W$ g5 f
  RowBox[{"3.141592653589793`", " ", 3 d" _. s- \' E, W( d7 S
   RowBox[{"(", # W* k* H7 n7 n! y4 w- l
    RowBox[{. Q3 H  y- `& x4 U) f7 |
     RowBox[{"-", " Z2 l5 {) ?  c1 V% d8 Y
      SuperscriptBox[2 K: H( x3 `* v& |1 b5 ]
       RowBox[{"(", + ~2 H+ |. Q/ }8 P
        RowBox[{
2 s5 }& F# V5 q0 F         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
! V/ S$ V" ^0 J9 g% E, B     SuperscriptBox[
* _/ C9 ?6 V2 k+ h, c      RowBox[{"(",
- S. i4 A3 g. x% [& V$ c' f       RowBox[{( b+ V# K3 j" O! W' Y6 l
        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", - Q; s4 M: t/ r+ c* A; R* u
     SuperscriptBox[/ R6 h0 g8 p' z
      RowBox[{"(",
- O4 e8 y4 P" [       RowBox[{
% [/ z0 m/ c4 T' Y( \( T; B% S        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", 2 t6 _7 \, t2 l
     SuperscriptBox[
. M1 N3 |7 M- \* t5 O" V: J. J  v      RowBox[{"(",
' m/ R0 |( c: n6 ]( j# H       RowBox[{% K* f1 m! J5 r' Z: G
        RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", 6 K# {2 _4 p, z
     SuperscriptBox[
1 n6 ?) ]  P8 B4 I8 r# i7 e% f0 A      RowBox[{"(",
; n- [7 m! H: B8 c) S       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", 8 _* o* V+ d' o* |( B' b
     SuperscriptBox[
8 I, m6 T) u# X$ h, @" \      RowBox[{"(",
/ ^6 N% j! ~! T/ [& h       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
" ^5 g9 r' X, D( {# U     SuperscriptBox[
; r: ]9 H& k7 ~* y8 O2 z$ C      RowBox[{"(", . w+ Q- d6 R: D1 V
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
9 J* b% h$ P; u( l9 q     SuperscriptBox[$ i- W0 Z$ c6 J) P
      RowBox[{"(", 0 O6 J$ i; ^0 o" P4 M# f5 [. w
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", $ X* F/ u8 f" ^4 |' O& w
     SuperscriptBox[
: {0 ^* A+ }) o& }- D. S5 [, ~* H7 `      RowBox[{"(", ) h, S1 S/ m# f. W  c
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
9 b5 x( A8 Z$ p    ")"}]}]]], "Output",
* u' f9 [6 |# t CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]6 i( ]# T! x: \' x) K" j& b6 A
}, Open  ]],
5 c5 J- a- Y' `6 R% r! O4 ^9 Z* U" r! {# |' o0 c
Cell[CellGroupData[{
3 \0 O- B! U  ?) J; ~# Q5 `: b  X) {  v) X) o7 ?
Cell[BoxData[{5 T# ], }! i8 h7 Z, r
RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", 1 A. p2 P$ K; L. K
RowBox[{"u11", "=",
* x8 ^0 {( }* f5 q5 e7 B  RowBox[{% Y  T0 ~+ ]: T: M2 P
   RowBox[{"Exp", "[",
( X; p8 ?* t7 Z( h, C% p" k. r    RowBox[{
: m. r  E& Z/ m! T% l7 z' L     RowBox[{
" }- k. Z( _0 L- I- D. _5 ]! d      RowBox[{"-",
4 y2 ~8 U/ G! [- X: _       RowBox[{
1 n# H0 E% W# y% D        RowBox[{"(",
4 M* m, k' R7 p6 |5 A         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
& w" t3 I0 ^8 t, O2 V        RowBox[{"(", 0 G( t6 v  v. a7 k3 q/ Y* J4 W
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],& Y! Q. L6 D2 b. q) ?" g- `
     "]"}], "/.", "DeltaX"}]}]}], "Input",
, ~3 h5 h1 l5 n; x4 C CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
: g4 ]: K& O4 {) j1 s  3.57796154237158*^9, 3.5779615434011817`*^9}}],2 Y6 S4 O2 q; ]) f8 R
4 L$ u$ r! }' h6 y2 d8 u
Cell[BoxData[
! \5 a! v9 \3 F  d RowBox[{"{", 3 F$ H/ j  G. o; K
  RowBox[{
) T$ ^6 R! |( b. Q" i% |% Q  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", ' o0 P; G6 N. o  j2 t. \
   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], ! O& v1 _# [, I5 f8 M* V3 u
  "}"}]], "Output",% g6 w$ C' c# v
CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
3 t- R( Q9 z  i1 o* _  3.57801228203125*^9}],: x* H! i0 G  N' p

6 T; k; m9 j" K- c" |7 A5 ECell[BoxData[
% t: w: Y: \. P; I, ~ SuperscriptBox["\[ExponentialE]", ' {" K, y% L1 e
  RowBox[{"3.141592653589793`", " ",
7 c8 S/ v; ^+ S# n. S  h   RowBox[{"(",   y6 n1 K# |9 K1 |5 d8 m
    RowBox[{
% X5 V" N1 M5 V& G8 Y$ V     RowBox[{"-",
) P8 @1 W. }- V) S# U4 Q  f      SuperscriptBox[  |, S# ?# s4 g) F1 s
       RowBox[{"(", 1 X9 U' a6 O9 j4 Z9 d* @) N
        RowBox[{0 v, k; h2 ?5 ]! C: X
         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
/ V; m1 i( b) I( |     SuperscriptBox[1 V9 i* i, Q9 e& L+ o
      RowBox[{"(", 5 e2 Y' c' o; L+ R) c" z9 F: V: M
       RowBox[{
! W9 B6 b1 s8 e% |, w        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", & }. X: V9 R/ D
     SuperscriptBox[4 w; h4 y: i( K1 c) `5 @
      RowBox[{"(", % X! l9 ]' p4 U1 I5 S+ ?
       RowBox[{
7 }  X8 [8 L  ?        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
( l( O2 \; X+ m" J, |! ~     SuperscriptBox[2 ~3 P9 `7 w; Z/ E. L- }  D7 ^
      RowBox[{"(", 0 W# l# E5 d+ E( h' I
       RowBox[{) \% c% _7 s. V( Q( ?: S
        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", $ X5 M6 {* w+ L0 \. n
     SuperscriptBox[
$ @: ~+ I6 y) M  }" G2 G      RowBox[{"(", ) d; C/ M- t! W% z! N2 E
       RowBox[{
; c7 i4 L& y5 x        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
; O* B  Y$ C0 U8 G7 R1 [     SuperscriptBox[
8 Z2 I4 t! F6 }( ^+ E; }$ r8 R/ Y& g      RowBox[{"(",
' D$ Y+ z$ a2 N  N4 a       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", + q: C( t! Z: q' H3 a4 m/ a3 p
     SuperscriptBox[* z1 I% B4 N2 Q) B
      RowBox[{"(",
0 K1 N, }2 |& \+ a4 k       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 4 _6 P3 A" |" x* n: \# ^
     SuperscriptBox[
. ^$ X0 O$ N* F# J! q" l; X  [- @      RowBox[{"(", 3 X( Q5 {$ ~$ ^0 A3 \$ ^
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 3 O$ ~; H6 C: ?$ A: G. i. ]
     SuperscriptBox[
1 @% ]* ~( K; M. l' `2 W# G4 N      RowBox[{"(", + k* G9 F, S8 o) ]4 v/ Q9 B. d- ^
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], - i8 p4 V7 g& C; m! r$ B" N
    ")"}]}]]], "Output",
' K; o. v; M& F) J CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
% [: u* |  {5 |9 f$ J: S0 P  3.57801228203125*^9}]
# m+ A0 ^( t9 w! m}, Open  ]],
& J$ N% M) u' r- X! f* n: v8 j; e% c+ E3 t. ~5 O
Cell[CellGroupData[{* x( q! n! c( f; b0 J
1 L9 |1 H3 F8 `: ?# A2 {
Cell[BoxData[{
/ Y- M6 Q" o; k+ l. B& u4 I; y RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
9 f6 i  u- g+ Q$ {- _ RowBox[{"u12", "=", $ }# i# y. F) Z* U
  RowBox[{1 W( s( v. l( A8 u2 u- g# T+ F
   RowBox[{"Exp", "[", , f% h8 g) U7 q- c# h
    RowBox[{3 h% g. w8 M- c7 }  m# _- `& ~" }
     RowBox[{: h1 W. e4 W+ J
      RowBox[{"-",
4 l4 G" m, [! t2 H6 t; T% L9 X* d       RowBox[{
9 E# i$ L$ a* K7 R        RowBox[{"(",
: Q; T, X9 T5 c+ g  \$ @. }2 }         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 5 D5 @$ e, R9 [- L7 ]4 P
        RowBox[{"(",
% B- ?* o8 J! S# Z         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],& T) u4 i  m8 }' b& a
     "]"}], "/.", "DeltaX"}]}]}], "Input",
' [: J. N9 u7 t CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {! k9 k  B( C' W7 V2 L
  3.57796154237158*^9, 3.5779615576284065`*^9}}],: X6 O- f2 r: Q2 {$ j! ]

# b% q% x8 h- h4 _9 ?1 kCell[BoxData[- C2 N+ z0 S1 Y4 c; s4 @
RowBox[{"{",
2 D: j( S% G* S; E9 D  RowBox[{& J: \, N3 X$ @! ]9 k
  "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
5 |% s* F/ e0 i   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}], 1 G# J+ N- S0 a8 _
  "}"}]], "Output",
; X7 i, s' U# u! ] CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}]," D- I% g- K# w9 y2 M

% @+ J! u) }$ Y7 `- HCell[BoxData[$ j+ n: t0 @5 j  e
SuperscriptBox["\[ExponentialE]",
9 @9 v6 t! s: D8 [+ {/ Z2 u  RowBox[{"3.141592653589793`", " ", ; m) J4 U7 o' J
   RowBox[{"(", 2 M, k9 q. y# B" T& w1 R7 f  d# l4 H
    RowBox[{
6 i" e: A2 s# b  u; t* ~     RowBox[{"-",
+ o* B* |: W$ z      SuperscriptBox[
. \: w+ c) A; m9 a& C1 N' s       RowBox[{"(",
. f0 r$ }& b( d" p; f/ [! g        RowBox[{
# g  n! z- u/ P0 C+ ?6 v         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
/ x/ r, i) j) Y     SuperscriptBox[
0 I$ {3 V% ?* j$ a9 w2 C% F: n* M      RowBox[{"(", - c. D: J, f' i, X# ^. {2 B
       RowBox[{  {3 Q/ \* N9 R. w) X4 v
        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", : B6 A4 w1 C" c
     SuperscriptBox[
% w, `( O$ s7 P3 `1 O4 Q3 W      RowBox[{"(", / c* ~) `8 T+ k
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", . Q3 |+ }" f" s9 l$ }9 x; Y" h# E0 `& n
     SuperscriptBox[% N3 u7 V& \0 I% V; {! I" e
      RowBox[{"(",
! a, j  P' m$ N3 P       RowBox[{
7 s# z. _4 O6 G6 G% ]! l$ M& y        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", 5 Q0 G2 s2 X* _( u9 F7 n8 u
     SuperscriptBox[
0 p$ |" _/ [0 p3 u9 R      RowBox[{"(", $ ~+ Y3 H* a5 @1 I
       RowBox[{( ?3 X' A5 D0 K' X- ~% Z+ K; ]; y
        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", : c9 C4 P6 d2 h* w5 H
     SuperscriptBox[6 v( x% f, q0 \9 D
      RowBox[{"(",
3 }% `7 S; H. R       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
8 N2 `9 M5 k; f9 I% ~  S' s     SuperscriptBox[  v/ }+ G( P; I) j* F1 P
      RowBox[{"(", ) c. d( M- L# V! X+ m
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
4 t; h: S7 l! |     SuperscriptBox[$ P6 l6 H2 @8 r( ~+ e0 g
      RowBox[{"(",
' a7 K2 Y+ y7 e6 {2 o1 u       RowBox[{
8 h6 a, E4 s* V        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
' v/ W2 i, k  u! p1 l     SuperscriptBox[
7 f( q3 k, @% |      RowBox[{"(", / p3 R" m3 j! w# V1 B, H0 @; ]$ G1 h
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
9 V$ K' @1 e) s! \( u    ")"}]}]]], "Output",
4 B( Z  `) l: }4 z' Z CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]. o1 Z' o$ D- t' [6 H( l/ z- \
}, Open  ]],
1 Y& v3 k# N6 H4 Q" a9 o$ e, W5 n/ Z- K5 p! ]& G& {: t
Cell[CellGroupData[{
9 L9 B4 _& `3 \- Z" b
# j3 N# H1 o2 m; FCell[BoxData[{
2 Q; W* y5 F7 u RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
* l6 {9 U- a: E* Y7 h RowBox[{"u13", "=", * x. u3 k( b/ L/ Y) [/ o4 u
  RowBox[{! b' B9 D/ R3 _0 o: m' k- i
   RowBox[{"Exp", "[", ) J* |/ s1 ?# u
    RowBox[{' l7 z$ G9 f6 `; a: G, t+ E  H
     RowBox[{
/ b0 V, b- B/ }& o$ b      RowBox[{"-",
/ V' b! q/ r/ S- h       RowBox[{7 N# [' Q! \  i) N  ^) ?- i: U
        RowBox[{"(",
$ I! H  o" r! m% E2 A* a. G         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
2 \8 D9 S; a2 ~* }. w. ^        RowBox[{"(", , m1 t  {. E/ q! b$ z  h: t" `5 a% [
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
: T' g9 c) }  F- ^4 M( j/ x4 q     "]"}], "/.", "DeltaX"}]}]}], "Input",  O" o* C6 _( M
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {* J1 x6 f% s/ G+ y0 A0 w+ ]
  3.57796154237158*^9, 3.5779615599684105`*^9}}],* M5 N3 S5 P/ `3 `! g9 L# }
- O6 t1 D1 p4 [2 g5 g( I- y
Cell[BoxData[* Y1 ~5 z+ Z: _* |; D
RowBox[{"{", 1 ~4 _; L9 z7 z
  RowBox[{& U8 o; L( W2 O; m' B2 \8 V$ V% ?
  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",", 3 o& [8 w5 h) ~- z7 ]/ K
   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
6 i" x! d8 C' i: P7 j  X  "}"}]], "Output",6 r' |6 J' d- d9 R3 d+ m4 {% p$ f0 {. _+ B
CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],) p. N, Y, P( X2 v* M! [" E( m9 z
, K7 W. U/ H0 F7 z& l* L% i& G7 I
Cell[BoxData[! z. g4 Y6 D1 o& X" R/ }
SuperscriptBox["\[ExponentialE]",
% C# p" ~0 S8 }7 G' G- }' c  RowBox[{"3.141592653589793`", " ", " d% f5 F/ s: X6 x9 R# v
   RowBox[{"(",
0 s! G8 B# r. `4 `* e    RowBox[{3 S3 j1 W: o# I
     RowBox[{"-",
  A7 d/ J' M+ \8 h7 A      SuperscriptBox[+ [' Z/ z9 w* `7 N( i6 Y  T
       RowBox[{"(", 0 W2 J7 P9 q' h' b" Z2 v. r6 t. _, @
        RowBox[{7 ?+ V6 p; o. t) N
         RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
) J( ?. x! R; B! \4 _3 S     SuperscriptBox[
; l0 e* _( T6 ?! T      RowBox[{"(", 0 J1 s* f6 |; |! ^1 Q; ~
       RowBox[{4 U: x- H( k* ^' e% }) J
        RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
! U3 r" Y4 N& a7 L+ @; o' s  X# D     SuperscriptBox[
1 s. |+ H  I( E4 a( r0 k- Z      RowBox[{"(",
. B5 M* z7 s# B8 B& }% [) Z/ c       RowBox[{
; ~. m/ a- E7 _& I. f        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
8 z7 ~- e8 a% n+ F8 m2 t     SuperscriptBox[
& q3 x' m* M. k, B. ]3 G" T3 N      RowBox[{"(", * p& Q) h9 m$ q
       RowBox[{
4 a3 L: w3 S: [! q  e- f        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", 1 _3 y  T, L% a! W: K4 {
     SuperscriptBox[6 }7 R, j8 O1 z4 k
      RowBox[{"(",
$ V& Z* A5 }, a& @       RowBox[{+ y8 y$ [% N; p/ @, n7 h, D" x
        RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", ( f" v; d& ]4 u# o
     SuperscriptBox[
$ U# i% M& X' Q7 l# ?* F      RowBox[{"(",
  i0 G3 N" j2 p       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 0 C8 K1 t' h4 w1 S' g7 \
     SuperscriptBox[! p' L: |; ]& j3 W  ~- r$ A+ j
      RowBox[{"(", ; h; h7 [6 `  q1 ?) K# d  @. K3 ?
       RowBox[{4 D6 @7 j3 F9 D& P: J$ v4 X3 ?3 r
        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", * q# \0 K/ ^2 m9 s6 M
     SuperscriptBox[
$ \$ Q7 V" j% F6 H1 c2 d( D' n      RowBox[{"(",
$ F' a- f' \* j       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ' ~' C. r: W! D4 C2 W% L
     SuperscriptBox[0 W' h, H' [/ Q9 F
      RowBox[{"(",
' [5 i4 \: D0 r2 I. M+ X2 i. Q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], % N% h" q( H. A3 y; n0 N) g
    ")"}]}]]], "Output",8 ~! M2 f7 U8 h& z
CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
% e" r4 S4 d, m5 U5 [7 I}, Open  ]],
5 o5 s; C' Z" N) b9 Z9 a" [( h/ U% a2 S
Cell[CellGroupData[{
" b4 b. \* y7 H, ]& p
% f) w2 q, x. Y+ ECell[BoxData[{
- q- p  R. I4 o5 n RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]", 2 n, s# o( c  z! ~/ M
RowBox[{"u14", "=", * F$ f7 ?: ?- U% e  u" J0 U4 A
  RowBox[{1 j) O/ d8 s  D1 J- _% `( o
   RowBox[{"Exp", "[",
4 G. ]. Z" W8 j4 @. I* I    RowBox[{
+ |: q, a: z$ y6 p5 B* T8 h     RowBox[{. y4 f- ?+ W( L3 s1 E& `& \& s
      RowBox[{"-",
! @1 B2 E* L& n0 D; I/ W$ Y       RowBox[{
$ z* o6 o9 u9 }  ]* a- b+ Q) m4 `4 N* t        RowBox[{"(",
; S  c0 y+ L* {4 l& [% ~% B         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - D: ?! H( f" I6 W* H
        RowBox[{"(",
5 _9 j6 o$ D3 g2 v; e5 K         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],( t* Q% j9 O  a" m" w# r( [; Q" s
     "]"}], "/.", "DeltaX"}]}]}], "Input",
6 U# a9 V) }. I* m CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
) G" a1 l. O7 I$ E+ a5 k; U  3.57796154237158*^9, 3.5779615663176217`*^9}}],, y7 Z  N6 Y0 j7 R, ^( y/ ^, }% I
) J! _) J9 ^+ C4 l& |" T
Cell[BoxData[9 A7 q0 H" N. c! l0 w) _
RowBox[{"{",
6 V9 r% w+ O* ~9 y1 T  RowBox[{; m$ P! U6 B9 J2 ~9 D2 r' n" b
  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", 1 `' c2 o$ f  H+ |2 T
   "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 9 u% n* }6 h5 `4 H
  "}"}]], "Output",
. A/ m! Q8 U3 x6 W3 X CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],
1 T6 U( O! U( M* p8 I; v& w# w
* Q2 z! n9 M; YCell[BoxData[: F/ w  B* B' X8 b4 T/ B
SuperscriptBox["\[ExponentialE]", 8 v, g9 w; o% o8 K' L: y9 m2 k
  RowBox[{"3.141592653589793`", " ", 5 ?6 C; L) f) u+ p! i0 U
   RowBox[{"(", / h; x: F" M9 b
    RowBox[{
: t  m* ^6 c6 s: I1 o- l     RowBox[{"-",
: k6 B/ z- k' g) {5 \* A      SuperscriptBox[( b& x- \8 V0 O5 o! m8 O2 R
       RowBox[{"(",
. |, w/ Y6 V5 R3 A4 Z        RowBox[{% s$ K$ S0 F6 F% t+ r/ b: N
         RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
  d: w: U4 r  C8 m. f& N     SuperscriptBox[' p0 [; C: Q2 l3 z. S3 P6 b1 B
      RowBox[{"(",   n9 Z" g; i4 ^4 h. D! y2 q  g  m
       RowBox[{" ], B( N- K: G' C, \6 F
        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", 7 w9 P3 E: n# o+ r" D: @; d/ c
     SuperscriptBox[
* y0 D$ T) e" r      RowBox[{"(", 2 l0 o3 N5 }6 w1 }
       RowBox[{0 p2 N+ r4 L8 ]' d) A% G! X
        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
2 U, ?: @$ p5 T  @6 l" _8 L5 U% x     SuperscriptBox[
+ H/ K/ m3 X% K0 [; v      RowBox[{"(", 8 O3 _. h, [! p- n8 b& ^! S
       RowBox[{
; M. H0 G6 _7 H2 l5 g$ S/ x        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", + ^! ^! U8 D. r/ k
     SuperscriptBox[. J- O) U6 |) g
      RowBox[{"(", * b+ v+ ~. T3 a& ?
       RowBox[{. m9 b; ]* n1 i/ o
        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
2 f. Z( J$ K% P0 y1 O     SuperscriptBox[
# m' A5 }3 y! J1 z3 Z( l4 U# k      RowBox[{"(",
) Z. O+ _6 o9 n& p, |/ ^" T8 ~       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
6 q# q, J7 K6 X) o     SuperscriptBox[/ U0 }! ]( h; M' t3 ]0 @
      RowBox[{"(", # X) [; P/ q# i% n% w
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
  O" |$ e* e3 V0 V( {  m8 `. m     SuperscriptBox[
/ C1 S( B5 x4 z# z0 e      RowBox[{"(",
" }  C" k+ j- q! U5 k" u5 y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 9 R7 @( F. K2 _/ C7 u5 c0 r
     SuperscriptBox[+ f7 a7 x$ G8 w/ g0 B3 C2 l. R
      RowBox[{"(",
% H- C5 b3 Q/ S$ {) W# ?, a; E       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], * i7 m( l- N2 N: ]6 ]
    ")"}]}]]], "Output",* K9 O  ?% }' r6 j3 |, i
CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]! x2 ?0 O9 p, B4 e, U
}, Open  ]],
9 Y+ R5 H4 f) V
. B) n5 ?. k4 d  JCell[CellGroupData[{$ e' p5 C% z% N; r
0 M3 h/ E! B& ^, d
Cell[BoxData[{- U9 S' N! V/ `5 C
RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]", % E7 j! G$ R1 N% v; {4 P* [& [
RowBox[{"u15", "=", / o. i  a, J' M- G( c% w. e
  RowBox[{3 Y$ r. m8 n5 g' h' K  D- W  i
   RowBox[{"Exp", "[", ; A1 H; q4 X9 r) J4 x
    RowBox[{
6 `/ B  y$ z# g) @+ I# m0 C/ \  I     RowBox[{
, E3 V  S* f5 e* @: X      RowBox[{"-",
$ ^0 a1 Q+ W: R; b       RowBox[{' `+ f( T5 S; B6 G# {
        RowBox[{"(",
: ^- g6 z; u# p3 g         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
1 |/ U: c7 P" o0 Y4 j( {, S        RowBox[{"(", " [. a4 m. M7 o) |% G
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],. T# D, h& ?# v2 f; D/ L  d- u0 o
     "]"}], "/.", "DeltaX"}]}]}], "Input",
! s& T7 `( T- Q# z CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {' B; _! ^4 \' G% [5 b8 U! _7 X7 t
  3.57796154237158*^9, 3.57796157098203*^9}}],
1 d3 b( N" g/ k+ k
- g# _* t: v+ a2 N- K  I+ UCell[BoxData[5 t# g% k/ D7 h+ \- q. S
RowBox[{"{",
/ O( d. ?# f! t: r$ h/ {  RowBox[{8 k1 J0 p- v' i
  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
# G8 d, i* ?' ~6 `1 W3 |: W) @* o   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
0 S6 H. i5 N. `5 A0 w& t5 }, u( R  "}"}]], "Output",5 p8 N! ]+ Q, c; j
CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
# B1 p; H: D7 ~
. B- _/ d- z( b2 q; u3 b) ACell[BoxData[9 {4 t/ Q6 p4 P% ~) h" C" e
SuperscriptBox["\[ExponentialE]", + y  o- f5 a6 y+ [
  RowBox[{"3.141592653589793`", " ", 3 v# O& J" G7 ]9 j- e
   RowBox[{"(",
' P! R: U0 A: i    RowBox[{
+ I. t: t# j( {: @" t     RowBox[{"-", 1 i& `8 n2 K# J# Z4 Q6 e
      SuperscriptBox[
8 Q" [6 X3 a0 T: K+ G+ A       RowBox[{"(", 9 B" V: D$ y8 k5 N- c8 c( T
        RowBox[{
$ Y$ Y9 _2 h7 `. r( [& c6 t         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", 3 N# }3 n. g- K" n6 z
     SuperscriptBox[
; c- {, V2 o1 g+ {4 Y      RowBox[{"(", ) O2 y5 z8 a+ N' z9 f7 R* }* Z0 D. R
       RowBox[{
/ u: t9 S+ X4 t        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
4 i- N. u. F+ c$ N  S     SuperscriptBox[0 E' I7 _; W8 U" y) L) e' w
      RowBox[{"(", . t4 ]. f; \: n5 w/ {# L
       RowBox[{
! `$ c) {" O9 u: p. D+ G6 o        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
8 D: w8 Y0 }/ K/ W" \     SuperscriptBox[
$ x; S4 N% B2 s% Y+ Q8 {! m" @! Z7 J      RowBox[{"(",
* [9 b4 H4 i  A' _6 p$ v       RowBox[{
' ~  ^; G$ c& e$ h8 `        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
0 S9 @! N' s. @2 i     SuperscriptBox[: z6 r+ S6 P( z: ~
      RowBox[{"(",
( I6 s  P7 T; x; l+ o* e# @       RowBox[{7 C8 r4 g. v7 z
        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 5 c' I$ f- Z! g; I# l5 }
     SuperscriptBox[
% _, D8 D6 X; e' h5 J% `! m      RowBox[{"(", + B8 [3 m! N  Z" E+ {
       RowBox[{" b! v' o3 O  _+ r0 r
        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
1 q9 K2 A, x' g9 Z  f- R5 Q     SuperscriptBox[
- F; Q0 U- X) P; |7 Z      RowBox[{"(", 5 d! D- O( M5 C3 _
       RowBox[{
& f' `" g) z2 h0 h        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", " q* u3 P+ c0 E# D( I* C
     SuperscriptBox[
' Q3 [8 Z. A' T) e/ N3 E& R. K      RowBox[{"(",
2 n$ N+ X; J! y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
6 j$ Q0 i; C1 G/ K- t3 M3 x, _; J     SuperscriptBox[
+ q- j  f* M3 u4 V+ R# H% p- O1 o; X      RowBox[{"(",
# K; _4 |) T0 S* W       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
: o: D: e8 }. b$ t! j8 `2 C    ")"}]}]]], "Output",, m; [: S$ ]$ t
CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]/ z: Q1 ?5 _0 M
}, Open  ]],; n: w3 P1 m8 r0 i" F
, g" r' T8 A* F; M5 q
Cell[BoxData[) \; o  V; [; }8 P1 b. H7 j/ }# z$ P# A
RowBox[{"For", "[", 7 Y6 J6 g# Z/ A4 Z( r& A
  RowBox[{
0 ]2 P3 m9 o4 R! H2 D   RowBox[{"i", "=", "1"}], ",", / U; }( I, _) Y5 y2 |
   RowBox[{"i", "\[LessEqual]", "9"}], ",", " x1 l* b5 C# x. ]
   RowBox[{"i", "++"}], ",", 7 ^7 u: L+ A9 ?; Z. @6 X" F! {
   RowBox[{" S2 R/ z/ q8 M& x% p
    RowBox[{"Ca", "[", 7 F* p2 m8 Y: R! P0 l
     RowBox[{"[", "i", "]"}], "]"}], "=", 9 y( j7 f3 w' ?
    RowBox[{"CM", "[",
  \2 s$ N3 l# ~  f1 c     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
9 v( I1 [. T5 F, J7 K% I3 y: ^ CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
! L* u, k9 a* T( x# \! h0 N$ i* ^9 F
Cell[CellGroupData[{( ^& O3 H# o* {; j1 k8 C1 i
0 V: C) E: X8 d( h& e; h
Cell[BoxData[{' q' W, w/ h7 K! q  [
RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
  o0 |- M. C& b1 B. C5 S; r/ ~ RowBox[{"u16", "=",
( G3 k/ v( P8 H! t9 U  RowBox[{9 L5 s9 \5 h( i7 @$ w
   RowBox[{"Exp", "[",
- z; n6 F" F. Q( [* v: Z    RowBox[{7 @) G2 K) c6 m; a0 j5 T
     RowBox[{
0 d; Z5 w$ m- W# b5 u* e      RowBox[{"-", 6 m& e0 E' a1 V& p
       RowBox[{
, p4 g0 `) O3 Z$ q" D' g        RowBox[{"(", & ?4 Y3 _; J$ j; `
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
  f7 k! C; t0 T! V- Y# E        RowBox[{"(",
( w! V% z. [! q1 k, f2 m         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
* K( b0 @$ [" y# i( A& M( [, b7 W     "]"}], "/.", "DeltaX"}]}]}], "Input",! M' V3 A5 d1 w# _
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
2 o- [3 e  x* E! s% ~$ ]8 Z7 e' N" o  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
, v$ I  o& J1 g5 G. _5 Y8 |  3.5779615751004367`*^9}}],- e) j: ?' m4 G: w; q1 u# ^
3 A7 g: u) b9 \0 I
Cell[BoxData[
2 [; `; d$ A1 u5 q  C; A( Q, C9 O% ~* w RowBox[{"{", . B/ {0 E8 E" k& C; z/ T. B
  RowBox[{
. ]% k, M$ x, r' s( w  "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
% C: ?$ V& ~: Y  e   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}], 6 _+ K  p7 _) l1 z! \  }
  "}"}]], "Output",  Z* D- }5 z% ^4 P. p
CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
! V: V! w( j) ~* D% X% R' \5 }. \4 s  ?4 ?( C
Cell[BoxData[
4 P; M: ~, o$ Z SuperscriptBox["\[ExponentialE]",
9 i+ g& h' C, k* w  RowBox[{"3.141592653589793`", " ", + ?2 y* E: A4 I  D, [9 E
   RowBox[{"(", 3 [+ b& B. M# X( L; E# d
    RowBox[{9 p% l3 a7 f. i$ Q5 ]5 T' I7 |' M
     RowBox[{"-", 9 r0 k0 B' p+ V9 C  q2 ?6 N5 p
      SuperscriptBox[0 f% R- y3 E/ I. G
       RowBox[{"(",
6 h5 E: f0 E. ~5 u) d* o        RowBox[{9 V( |$ v: m" O2 ]  L/ N
         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
8 p1 I! c* T6 k, C     SuperscriptBox[. `% k6 K' O  c. I
      RowBox[{"(", ' M' [' }$ u( F  S9 p, T% U
       RowBox[{1 ]/ h3 Y6 [3 |, e5 `. E
        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
1 w6 t6 L1 p4 D9 l# y, a     SuperscriptBox[
( `. j& T' z% ^0 a      RowBox[{"(",
% @, r9 \/ `, F1 z( }       RowBox[{
! ^8 _/ i- p8 X6 ]; H* m8 E        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
/ b; X; ]1 A$ I8 Y, a     SuperscriptBox[
! c- T$ D" f# q/ e$ B      RowBox[{"(", / u# l1 w. I! P( p5 Q; f
       RowBox[{
1 P5 m9 p* P9 L. R* R  l( w        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
2 U) L" Q, p8 a! r6 s+ p8 {" X     SuperscriptBox[( V# n3 R5 P- c9 Q6 C6 u& `& V. b
      RowBox[{"(", 3 p+ I5 z/ k, x) h* U' v
       RowBox[{) v9 P' _/ F9 L% Z
        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", ' H! Q) Y7 N& D& _; V: a
     SuperscriptBox[) x8 D; Z% k7 a7 @% k6 w6 ^( r' l0 e
      RowBox[{"(", ; d) f& Y" Z- g1 x: L8 K: j" L
       RowBox[{  n. f3 a+ _6 f
        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
8 ^& \! B7 c! a     SuperscriptBox[5 j: c1 k8 K; S% Z, R9 i
      RowBox[{"(",
; z9 C* b7 L2 L! m7 H: \       RowBox[{
  x. j0 Y0 a$ M; m8 Y; A2 p        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", 2 v2 L2 S( O3 w$ @, p" y
     SuperscriptBox[
5 G2 |* X, c) m8 i5 d      RowBox[{"(",
0 {& B6 n; T0 D% I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
5 I# c4 M2 I5 ^3 T* x2 x$ t     SuperscriptBox[
& V: a( i* [5 c5 C  i. M! \      RowBox[{"(",
  R$ ?0 }! J  V5 G% U7 z2 D       RowBox[{
8 \% d, i3 }/ w" v) l        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",; K6 c* Y, @: Q: g' ^+ \& Q; i, n
CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]! C8 N- N0 o* c- b
}, Open  ]],; B; ?& Q- G) b! ~  p7 i

1 U2 Y: c6 v( v0 g5 h/ dCell[CellGroupData[{
! t2 v' ^) ^3 G, Z& h' m# E. u% q
2 j6 D: a% J) Q$ m7 wCell[BoxData[{5 K4 m6 U5 t4 n) O6 z1 i
RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", + F5 j: d" E% [, G
RowBox[{"u17", "=",
  R* l8 Z$ g1 e: d  RowBox[{
* w3 B# p, K2 Y& b4 @   RowBox[{"Exp", "[",
' C$ j" T% |$ A    RowBox[{
* e3 \$ s7 B7 ?. l9 x     RowBox[{
9 ^. ^9 G. D) e  A; C      RowBox[{"-", , l2 w) M( u0 w2 `
       RowBox[{: Y) U& }/ G3 H& n: u, D
        RowBox[{"(",
/ j% P: ^* [8 `# Q! d6 G# e         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", . A5 x7 h9 D3 _4 n% k! b! Q
        RowBox[{"(",
8 U2 h# h) T5 r/ K' ?         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],: I' s' \  v5 R. l' c4 i5 v# [0 C4 ~1 c
     "]"}], "/.", "DeltaX"}]}]}], "Input",
& M' Q0 r) m* I) w1 _9 j CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
, r2 L0 z$ E9 z" `  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
: ]+ g, d- }. h2 w9 q  3.577961578953644*^9}}],3 D% f: A* e4 @

) u3 r6 e$ z7 {+ n: ]9 dCell[BoxData[
! y: J4 m4 H2 ]  Q* u RowBox[{"{", + ?$ W" E4 I9 [) m3 d1 c
  RowBox[{
% T6 D' j/ k. x$ y  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
. p3 b1 v( R, c6 t   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], 7 S) ]/ i9 n& _9 ~
  "}"}]], "Output",
5 t. ?; {6 J1 |+ j; G2 ]3 G CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],' ?" t4 \# T. C& ?

: h! J9 z/ U6 Z  O& mCell[BoxData[
: x8 r$ J% r# q, c) `0 K6 h- s SuperscriptBox["\[ExponentialE]", * E/ F) ]  \: k2 B$ l% z5 H
  RowBox[{"3.141592653589793`", " ", % O0 T" v4 W3 S" S
   RowBox[{"(", % m2 C: G' H5 b/ Q7 ?
    RowBox[{' l, ^$ c+ O5 h8 }" m1 J
     RowBox[{"-", - R- ^/ w3 u: M
      SuperscriptBox[
% ~+ ~: \+ z. ]# @' q& c0 Y       RowBox[{"(",
( h; |4 b' }; Z4 e) x! f2 f4 b1 U+ m        RowBox[{
  w0 k' b( @; |; w' D% q         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
) I% K* e. i/ i) O) G( ^     SuperscriptBox[
( T4 i* n* F/ |. ~( G  M$ S+ S) Y# |8 H      RowBox[{"(", 1 E+ i  k! F1 n$ {& f4 W
       RowBox[{
4 v; N! d+ a: s) E7 r! J        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
0 G3 a, U  z% I     SuperscriptBox[
1 m$ `7 W, w# Y8 M" J      RowBox[{"(",
  _1 ~, i% m6 i3 Q! J+ Q, V       RowBox[{
7 n" w- ?% ?1 M8 y' z7 ~        RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
3 R8 U4 Q. _. b$ {     SuperscriptBox[
4 K2 X/ F% G! E$ y/ r" i      RowBox[{"(", . w& n) S$ O( H  K1 [! Q
       RowBox[{
  `1 p; J5 q8 A0 k5 C        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", & x2 ?- h+ p0 M. Y; C
     SuperscriptBox[; G2 E9 D! X4 y9 b1 l, M% b2 W# v
      RowBox[{"(",
  e7 }+ E  k# S0 |- C5 [       RowBox[{
- K! o2 S4 ?8 d7 W        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", ( J+ T& f/ ~# k6 v7 y
     SuperscriptBox[- E  D" X2 [: L$ I6 y
      RowBox[{"(", + w" U5 C. Y/ t8 W# Y, D
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
9 \* W/ G6 ]5 p' z( P1 \9 M% e     SuperscriptBox[- ~/ i: E$ H) ~' a0 A/ w
      RowBox[{"(", * A) P% a/ Z8 E: \# a
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
1 L( q" y+ x' a4 V( t+ g     SuperscriptBox[
7 O# r0 q. k+ j. }7 F      RowBox[{"(",
: `& {( b: e( W       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
, z. ~& T5 X' |: n5 f8 ]! ?# a     SuperscriptBox[
5 A5 d2 O, ]: t% ?) s- e; g) L      RowBox[{"(",
+ s+ ^: f- q* B       RowBox[{
! i- ]! }& E+ }- X        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
( ]2 t; a  G8 K    ")"}]}]]], "Output",& _+ F. K, q# \
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]: r4 _. G# f; D' S
}, Open  ]],
. ^# m) I, f0 g6 R" L' s) i9 a4 o/ B1 R8 u9 |7 E( R0 x, z4 X) @
Cell[CellGroupData[{
5 F2 a8 B% R! l4 E, ?) P9 f6 L( j" F& d3 [
Cell[BoxData[{, q) [1 M+ n  w
RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", 5 o  l9 t- e, `( G1 m" t0 \
RowBox[{"u18", "=", ) D' F1 d( `7 c
  RowBox[{
) V0 b" G; L, g9 {4 ]: f   RowBox[{"Exp", "[",
; M* ?* E: f7 z" C1 {" }; @5 C; U9 {    RowBox[{, b' R4 ^& A4 P+ H
     RowBox[{
' M$ K, D! N) Z% B  X0 t9 x      RowBox[{"-", ! B3 j, B4 q' [& F) t1 z7 y7 ]9 J
       RowBox[{- l: c! y' r  v. a; E& {7 z
        RowBox[{"(",
2 X& Y, @* V0 ~         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
8 u5 ^/ r- D6 ], c9 g; R7 m        RowBox[{"(",
7 V% V7 Z) P5 z/ k% x         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],) Y% V8 z4 ]' W, r9 O5 B- t. X
     "]"}], "/.", "DeltaX"}]}]}], "Input",
6 I$ j# @* `# J  j5 T+ P8 \. i CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {: E. X/ y3 d4 [3 }, |# Q
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
1 [( ?+ Z% O7 F; ~' [# w3 j2 }  3.5779615828848505`*^9}}],) V- A0 ]6 c# Y  q% _

2 P3 k( Z7 _, t) _+ T7 f6 {( KCell[BoxData[& }  i# P! L/ y$ }) S: M: G3 }
RowBox[{"{",
$ o! l* c  Y- O3 u2 S( s  RowBox[{( W7 T0 t; O" I! ~
  "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", ; H/ L) f  [# ?1 v
   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], ( k; M5 e0 O  L/ u* h
  "}"}]], "Output",
7 y: w: D, w1 ]% J/ Q$ J CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
: W6 v+ h5 H) L! l8 B* d
! q7 h; U+ ?8 R, ]Cell[BoxData[$ I6 G, P0 p/ q: _: R
SuperscriptBox["\[ExponentialE]",
  m% r8 p# L& m7 C9 Z! F  RowBox[{"3.141592653589793`", " ",
4 Z! V! Z% r* @6 l; B   RowBox[{"(", ) d6 o+ @3 o# ]: I5 ]2 K; c9 B
    RowBox[{" M; i' E% \5 x
     RowBox[{"-",
$ A  E0 T- l0 ?4 D6 K$ p" I1 v      SuperscriptBox[% u5 |/ p5 N9 e) Y2 W' q& u2 M( X
       RowBox[{"(", 1 q# K; D: T$ j
        RowBox[{* @# Y- E$ Z0 [5 D6 w8 e* w
         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", $ i. v: ?- T+ g$ x) M/ F$ }8 W
     SuperscriptBox[( `. z2 @, k5 V9 I2 l* Z
      RowBox[{"(",
4 b8 i8 j( ^+ H' Z       RowBox[{
& U, i7 `9 e; u        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", 6 z- \( }. Y- j% K6 I$ [7 V
     SuperscriptBox[- L4 }3 s. F& ^& m
      RowBox[{"(", " N$ M; u/ B3 k! x* E) J
       RowBox[{& ^. F$ @/ F5 D5 T
        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", ' V" f" z$ X% n. K
     SuperscriptBox[2 K% G. C9 `/ g1 w
      RowBox[{"(",
$ _" w4 }0 s8 P  _! C* U( A       RowBox[{
& L( U* `6 s) a! d& C% k: S        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", ( @: p( S- z  I9 T) |3 b" f6 A2 C
     SuperscriptBox[4 }0 Y. _4 W8 ?; d6 l0 B3 Z
      RowBox[{"(",
( B3 i3 w" ?& m* g0 J0 m4 `; P3 F" v       RowBox[{+ W1 N, H7 G8 L9 M. R9 e) T
        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", ; Y5 C" g8 d5 |/ ^. R+ T
     SuperscriptBox[8 z- c- v4 q& }" Z4 i; E
      RowBox[{"(",
0 n2 n8 c4 Y4 z" p9 H/ Y7 y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
# S# Y3 l* [$ i! k' c2 V     SuperscriptBox[" q; K: t' A  m2 A2 ^' u) @" Q
      RowBox[{"(",
: B8 r" E' g; L. H$ g; `# z5 O       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", " Z. c- A3 d8 W9 _
     SuperscriptBox[3 R4 B% n4 C* u/ ^0 C+ T% b3 q
      RowBox[{"(", " J  ~$ s* F8 A$ p3 O) e2 z
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
) |/ v0 C0 A6 q, \' x9 z8 N     SuperscriptBox[
1 c& `4 p: }& \      RowBox[{"(", + L( ^$ e' `/ P: S$ I% }1 X
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], * l( U4 |' |; F3 K
    ")"}]}]]], "Output",& W% e& E* A9 ^$ N3 |/ N
CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}], ]0 |- X4 a2 c
}, Open  ]],) G7 A" i2 L6 O2 [
+ F5 u6 O* Y; F- N% S: j9 r/ \% s
Cell[CellGroupData[{* H4 n* _, ?. a# O

' n/ z7 m7 Q# ?) ?Cell[BoxData[{3 \/ L) h* E. ?' r2 N! J  ?" {
RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]", 5 J4 L5 U2 }& Z, {8 _
RowBox[{"u19", "=", 5 E6 J3 {! w2 I4 X
  RowBox[{
/ ?  D) q$ H! S0 j3 _   RowBox[{"Exp", "[", * E( M: g; t0 @. p/ [
    RowBox[{8 w# k7 _+ A1 p+ }4 j7 E  H
     RowBox[{
, u, G, O% _  S0 Z4 m3 s) l      RowBox[{"-", . p- F8 _( P9 Y$ ]0 @8 \# l
       RowBox[{
# H0 j7 t0 C% R! {4 K        RowBox[{"(",
; q0 m$ v! O3 x, l2 s; [         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
* t2 m, o/ Q- D" X/ d        RowBox[{"(",
! L8 G# I! W6 L# L+ w; D9 g% {! a         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
  d# h5 I* j$ E( v/ ?     "]"}], "/.", "DeltaX"}]}]}], "Input",
' H" a2 d: @; G. e9 I5 t3 ^( W CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
( _2 u  N3 f$ S  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, ) M; j3 r' [5 I3 a: ~' r/ t
  3.577961588890861*^9}}],' ?, k2 o. X$ M1 g* F0 o1 z

0 _/ }6 u+ Y. ACell[BoxData[
- P  F  S, W8 O5 X, y! }' \ RowBox[{"{", # t( x$ J$ H; G5 ]$ K6 R/ e7 @) t
  RowBox[{
  {7 M: T+ H# z  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", $ V% D% }, L% O% Z) a
   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
7 r$ c7 s6 o) t8 Z  "}"}]], "Output",4 B9 o: u. ^- Q* I
CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
- a- _. S% u4 s& i/ x* F8 p
6 F2 z, l2 y; u+ s2 N: y* G* ?0 FCell[BoxData[
- Q9 B* f+ }( ~/ Y: \; y+ C  K SuperscriptBox["\[ExponentialE]",
! _- w  g' M" U- C) a& l  RowBox[{"3.141592653589793`", " ", ! V) S; `- w0 n0 p
   RowBox[{"(",
8 O, I% W" L! m+ }  n' k    RowBox[{1 I! L* G1 K- u( Y
     RowBox[{"-",
$ a, B3 Q3 x& t5 e  D) ]# s      SuperscriptBox[
2 y  w- M; s3 a5 |% x& z$ t       RowBox[{"(",
: k0 W# W2 L5 D  L- A" P! }6 u        RowBox[{
4 F5 E* e  s/ T: O% A7 a/ [         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", : d" R+ \4 p! @
     SuperscriptBox[5 s. @5 B  L( |  e
      RowBox[{"(", / j4 K' z* H7 t% [5 Q
       RowBox[{7 q" ^! F0 W2 \6 [
        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", 9 @  E1 V3 [- K% Z3 t
     SuperscriptBox[
3 @3 P1 t4 X  h$ Q      RowBox[{"(",
( I( Z4 `, J& L8 y6 u' R       RowBox[{/ L! J& y0 B  z6 q+ f1 z
        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
6 }9 ~. G# z1 a9 Y8 U8 b( L3 U     SuperscriptBox[
; g  C9 ^, I/ ~/ ?9 h9 C      RowBox[{"(", " w' E8 ~4 ]( ]: k1 J
       RowBox[{. z! F( r% ^  j$ A4 R% g
        RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", ) S, B9 R" n% E" T! u
     SuperscriptBox[8 ^, l. t3 T% Z; G
      RowBox[{"(",
2 J5 z" y1 S3 r3 G+ O       RowBox[{# e7 S; J  o8 U! @$ ~+ {
        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
" B, H6 R! _: H8 D     SuperscriptBox[+ i3 U1 K/ j1 G& h
      RowBox[{"(", + O% n9 h$ _8 H, `
       RowBox[{+ ]* l+ h( {/ w1 L0 i" L
        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", 4 o/ h# o0 d" x  W+ V* ?1 A
     SuperscriptBox[( U. L. L+ c% L$ f" f8 z
      RowBox[{"(", 8 {8 F0 D* i6 H4 F( a- B- I
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", - @: R% |4 X. f0 S$ M
     SuperscriptBox[8 Z% B3 _# m1 f1 C2 }- C: v0 _# \
      RowBox[{"(",
) N1 y+ z/ b  z* x1 m       RowBox[{
. U: ]2 @, f; {& g        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", 8 n% T: W1 Y* a' q! D& C
     SuperscriptBox[; ^' E6 h5 m' m  Q1 y
      RowBox[{"(",
5 c6 }: \3 K% J( l6 Q/ |& `       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
; z3 [8 V+ J! s    ")"}]}]]], "Output",* e# X! L3 o" e# s- z! C8 p) ~
CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
7 j" A: g( q) I. [( h0 p# S}, Open  ]],
# p( {$ v7 _& Q. T$ `$ h- _1 m0 d9 M& p5 A
Cell[CellGroupData[{
# u6 M4 h7 b$ _5 z5 h
4 _$ e$ F9 T3 E- r& uCell[BoxData[{/ Y+ Q# u7 O2 d1 L
RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",
# i6 z/ q0 u6 a! x RowBox[{"u20", "=",
; V9 T1 C% J6 q/ c/ A9 |  RowBox[{' Q9 K+ a* L; u- b  E7 X0 v  ]  U' F
   RowBox[{"Exp", "[",
; C- \) W+ h0 p9 g; a9 }) t1 q# f* v    RowBox[{
) Q  z( Y8 T3 z4 U     RowBox[{
, v+ ~! n2 J! h% r6 F' i5 K2 X      RowBox[{"-",
/ l) ~; F7 O4 Q3 v& h8 _       RowBox[{/ p8 f# D( X2 M
        RowBox[{"(",
- T2 I( L5 X$ P+ ~( l4 P         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 6 q8 g6 Q, m1 |' D% a; K
        RowBox[{"(",
  f" A& R9 `* y( k6 E         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
3 G+ k, f* N/ N     "]"}], "/.", "DeltaX"}]}]}], "Input",6 ~! q( o% Y1 m0 Z$ q; J  t" ]
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {& m+ ~5 e9 ~2 P! O& ?
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
* h6 ]. P0 C# Q7 M* }. k! o, X  3.57796159382047*^9}}],# _' |, s6 _( U+ ^% E; R

$ Y& k% l% [* }* f! A4 ^Cell[BoxData[
, _, C% W; [) ^$ [5 z9 f. D RowBox[{"{",
4 l7 K0 f" E+ @* ~: J: J  RowBox[{' D9 Q6 v; y! b$ f( w
  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
3 H3 l( l$ Y- h3 n5 b   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
/ s! ^9 x$ y5 j/ x  "}"}]], "Output",- h$ _0 ?" N! I0 |1 [2 }% m4 _6 Y
CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],; e% t3 `( K! n4 Q/ C

6 e# _2 r. }8 ?, n) B7 mCell[BoxData[
* f+ v- w5 S/ R: A* x' x SuperscriptBox["\[ExponentialE]",
) @5 u) u/ F) Y/ {  B6 i  RowBox[{"3.141592653589793`", " ", : N4 b# A, h" t8 X& G9 \7 W
   RowBox[{"(",
5 ~% e7 @" F. ?# @/ o    RowBox[{
, ^  N- e3 t- ]* G, K     RowBox[{"-",
- G$ a" D! p0 K( c( L/ a  i      SuperscriptBox[( D# X+ z/ m0 u* }% j+ o7 a
       RowBox[{"(", * k1 @2 ?9 {+ w
        RowBox[{
! U: @: s" U& m1 a0 N& \( N         RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", 1 L2 L$ Y7 V$ T3 Z0 O
     SuperscriptBox[
0 v7 G' d0 i; d; o- {1 B      RowBox[{"(",
, D/ s1 F8 \" o* u1 Y       RowBox[{8 z3 {4 w% Q: n) N; ^
        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
8 l! K  f" a6 ?     SuperscriptBox[
4 `% ?8 O, z. C5 X2 Q      RowBox[{"(",
* b% c# j+ O% G* w- a, ^2 E       RowBox[{
  \6 W/ f2 B$ [) J4 P9 M        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
8 d2 j( l/ y2 Q, m- G     SuperscriptBox[
9 V+ U: d  C! K& D7 `1 b, _$ T      RowBox[{"(", 0 B7 H! p0 A' e& N4 |9 e
       RowBox[{
9 i4 A  K9 X* r. c- h1 `6 @        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
: m( j# c' _! L$ g! h     SuperscriptBox[; X8 D; t1 r$ x- W1 }! u8 q3 I
      RowBox[{"(",
0 l; i* d( Z1 S6 v7 F/ t       RowBox[{" q+ a+ ~, O( Z/ L
        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
- H, w* O& I; B5 e  K     SuperscriptBox[
8 p7 x+ g% L! O% w0 u, K" z5 a# K) [7 w      RowBox[{"(", 6 c7 R+ }2 b7 C$ z, l) m4 e
       RowBox[{
9 w  g: u% t6 j& O& I        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
& g) U6 }# C5 C' k0 `3 l     SuperscriptBox[
" O. @' u- _: m. l2 ~      RowBox[{"(",
5 Y3 F: T6 u3 M8 T: `       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
# R; |% W# p$ Z$ R( g5 {     SuperscriptBox[- p3 R- a. d1 v9 J8 \' i# C; s, ?
      RowBox[{"(",
7 X8 i2 n* g! h8 C- H7 y+ C; L       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
, q) Q* V  V- Z     SuperscriptBox[( g* s: J* x! y( F- x7 u
      RowBox[{"(", 6 m0 k; K& ~1 D' I
       RowBox[{. r4 E: w/ T  n! i
        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
2 @- m8 J, }5 M5 q5 Z: y    ")"}]}]]], "Output",
9 f' D/ Z% D2 ?) E* s( q% W: W# {- @ CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]
, U- J* L) |5 P; Y- n, p5 j}, Open  ]],8 o% S4 V! g. ?; P

5 o; }+ j; n% b% i; F+ f1 kCell[CellGroupData[{# p7 k  O, R8 I8 j- |$ p
7 X4 u% C) a4 Y+ F. S
Cell[BoxData[{
! b  T! ?: Q2 S* K4 ` RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]", & ?3 p) k  B; \, O
RowBox[{"u21", "=",
% [" ?! R6 T/ Y  RowBox[{6 \  y1 B# s( o- f1 N$ w
   RowBox[{"Exp", "[",
7 W$ k, p9 w9 r2 b0 |1 }  o+ m    RowBox[{2 _0 R, J: s! T6 I0 Q& @- k
     RowBox[{
8 \! h+ J( U2 R6 c      RowBox[{"-",
. r( i$ m& G* D& N( g6 J       RowBox[{, M" z" K& y; t$ X4 s
        RowBox[{"(",
! ^2 D! z/ t7 |3 t         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",   W" p2 g' L' O' y# i
        RowBox[{"(", ; O1 q- b4 g1 i3 F) v
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],  N& L2 A' p$ t2 c. h, l# C
     "]"}], "/.", "DeltaX"}]}]}], "Input",6 K! a# r8 P# r/ S
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {1 V; ?+ R+ \3 Z4 K( F; K
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
$ B8 Y; ]- z" n  3.5779615991556787`*^9}}]," Z4 |# v# J+ I* y  K

- I2 K  O- d5 S: T3 _Cell[BoxData[
3 @: y+ E8 Y  B6 A0 Z: n RowBox[{"{", 8 s' K6 f( v* z2 O
  RowBox[{
( T: ^- L' V4 A0 r2 B% L3 `# e  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",", / ?; F; ~4 G- |
   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}], 5 d+ x1 {9 n* Y% G) y) Q- M# ]
  "}"}]], "Output",
4 C! x6 q+ P9 z0 Q6 \: m" a CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],9 E' G; e4 R7 O9 ^- J) w) C; W$ r" L

6 {# r# [4 y6 x2 R. H* a( A0 uCell[BoxData[
+ c9 n) j5 Z9 q- R& h SuperscriptBox["\[ExponentialE]", : f# Q, N1 E( t; {( O! e: O
  RowBox[{"3.141592653589793`", " ", 5 |6 W9 Z/ z7 S6 Z2 m" \0 U4 |
   RowBox[{"(", ' ]% o  B8 u2 e, ~' Y
    RowBox[{
6 E- w; g0 [6 P6 F     RowBox[{"-", 4 L1 m9 G8 K: R* p/ n2 j* ?: M
      SuperscriptBox[
, {6 L/ G; q' D8 F       RowBox[{"(", 1 O/ ]0 Y; v* N- o
        RowBox[{
' v* I0 m. b: S& F1 X0 U         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
9 \" F- [. e% q9 l- K% p     SuperscriptBox[, _1 P; C& Y% r
      RowBox[{"(",
9 d7 ?* P" H3 r, `  M. V# Y       RowBox[{
$ b/ R# D6 n: t: {6 U; Y2 c        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", * K! r3 A% Y" }  N; L
     SuperscriptBox[( _5 j: a: ^" h; @1 K+ G
      RowBox[{"(", / h* ?( `) y' _  ~8 U: X
       RowBox[{
# @) ^2 U/ b. Z/ v        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
3 f( A3 I4 W. D8 E+ k5 |     SuperscriptBox[, q' O( _8 w. Y4 g9 g
      RowBox[{"(",
4 u6 G! I! k7 ]0 i       RowBox[{; K) J+ n- q: \1 N3 ^( ~" r
        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", - h8 F" k# j/ r8 c. }4 y+ p9 l: j
     SuperscriptBox[" S6 L6 s; ?, ?7 Y( y
      RowBox[{"(",
1 l$ X! y/ j( y1 i$ q: O$ g       RowBox[{7 @! X0 |3 g/ q( @0 O) f! ~& @
        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
- _( A7 M; E* b% V6 E     SuperscriptBox[, S1 V! M1 g, C
      RowBox[{"(",   L2 S) v4 F  Q* H+ C) P# F  c" o
       RowBox[{
/ J( U. J' B6 {+ H% u$ r' r        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
: p# @/ q9 ?( m) M3 H5 p! M& K     SuperscriptBox[
( Z5 i' B2 j# n" b- k      RowBox[{"(",
8 d3 ^" @  r2 Q# k; u% l/ R       RowBox[{$ k5 O+ W. r6 p& n. T- ~
        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", . E2 u/ ]) x$ D8 }2 y9 I5 V% H' h
     SuperscriptBox[, N: |! {. i7 U
      RowBox[{"(", / q+ u* S8 t5 I6 ?: E) T9 l
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 6 \" q* e3 L# _7 m7 m
     SuperscriptBox[9 [0 a1 W  ]0 Y) q
      RowBox[{"(",
5 V, A; ~7 O, n' _, ~3 H       RowBox[{$ ?* C/ U' ^% d- Z6 f" t$ v
        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], * C7 [0 M# C7 d7 h6 _, W
    ")"}]}]]], "Output",, J1 q! \% [7 T0 _$ j
CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]
/ e- T1 k# [, k* e) J# `3 O}, Open  ]],3 l! u1 Z# P; i* e$ _, K/ }& D3 X

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

, V) c" b0 A( E# e/ CCell[CellGroupData[{. X6 D8 v8 k: D: S8 [+ k& u

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

1 ?' O- F. V5 `; {Cell[BoxData[( C, n# z# [8 Y; t  m: E
RowBox[{"For", "[",
6 y# U% T& A2 B, J1 @4 e  RowBox[{; L4 Y% @' n# u$ K6 P9 \
   RowBox[{"i", "=", "1"}], ",", & o+ p- Y' A% y* Z! |2 B
   RowBox[{"i", "\[LessEqual]", "9"}], ",", $ ~3 W- v: S2 }) s' `/ s6 C
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", ' X2 h' a3 I; Z. F4 u8 D
   RowBox[{"For", "[",
/ T. X, ~3 w# d, i/ x8 V, J    RowBox[{
' b8 _# z* l- I" d     RowBox[{"j", "=", "1"}], ",",
* L# o% F+ T3 Z5 A% b     RowBox[{"j", "\[LessEqual]", "80"}], ",", # N! A/ m% k/ T9 U; Z( J
     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", - b6 }+ O7 W* Y* H5 s
     RowBox[{& n+ j2 h  S! G# q( @; g  ~5 q1 R/ U
      RowBox[{
( s5 z& ]! z! z       RowBox[{"CM", "[",
. A/ ?+ Z* S/ M% k        RowBox[{"j", ",", "i"}], "]"}], "=", "0.0"}], ";"}]}],
9 c, d4 a! P  ^% p    "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",2 C0 F  a+ g9 y7 R' N
CellChangeTimes->{{3.5779132504375*^9, 3.577913285203125*^9}}],  J- ^1 G1 J2 ^% n

/ G3 F! W  I! I' z% I7 |& q( O' HCell[BoxData[; `, \' a( T' b; k# i/ P) u
RowBox[{"For", "[",
2 ^2 p* U0 N4 i- I: o  RowBox[{" P; I% w! H2 V2 s
   RowBox[{"i", "=", "1"}], ",",
: k2 ~/ m" L9 G& y0 n   RowBox[{"i", "\[LessEqual]", "9"}], ",",
* }% S* X% Z7 O: ^; o2 [   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", ' H. z5 M% v) W- s$ Y3 {/ A8 J$ D
   RowBox[{
) _2 G. h* I- c. b+ M4 |5 S    RowBox[{; I* p" {! O2 t5 T' o$ k
     RowBox[{"CM", "[", % F3 B& x# V5 Z" [
      RowBox[{"1", ",", "i"}], "]"}], "=", 8 e' W* n# t5 {- L
     RowBox[{"Data", "[",
% X& `* e4 s4 _2 _, k0 l. ?      RowBox[{"[",
4 u1 ?# i2 b) ]1 h       RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}],
% l( `5 R' i- o+ p  p% D  "\[IndentingNewLine]", "]"}]], "Input",$ @  O! ]: p) D2 ^& j  V
CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {
% M/ m3 W2 V$ S   3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9,
$ u7 s& M; ~9 O6 V' h. U" U) G   3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9, 6 Z! d; K9 l' ?( u
   3.57791344209375*^9, 3.5779588070933466`*^9}],
& G1 t* W" v( }, |  q4 B) L5 z- E
Cell[CellGroupData[{
7 R2 U: E8 P' B) P) K  K, J3 @( k
7 d% Q! B. S" |! S/ u7 t. q# ACell[BoxData[{- c1 o1 o; ~  h! d$ `  Z5 C
RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]", $ ~& E, _* j1 a/ x9 G# E; g1 O# r
RowBox[{"M1", "=", "1"}]}], "Input",& \! j. q- S9 Q! j1 [+ ]
CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {
+ t5 p3 b) @& r; D# G3 p   3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9,
7 T  R% Y/ U  {  _" H# C6 i   3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {3 h: c+ K3 y: H# S4 V* T) R+ J
   3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9,
9 J7 X% x3 W; _+ v% k; c   3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {
- G. M/ P! |+ ~0 }3 K& u) @   3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {. w0 y4 J8 x- c/ l+ Z, s
   3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9,
; W1 |! W6 ]& k0 u% ~; R2 W   3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {, u+ n$ v  A. z
   3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {2 R3 Z( ^  F- a5 a" ^- p
   3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9, 4 y0 [7 J, \0 [4 ~8 i. D& I
   3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
, A& M0 t" @/ q) q/ m" m( ~  M" x8 w$ ^+ x+ e( v. X
Cell[BoxData["0.2`"], "Output",
5 s. I2 ?) Q! B) ?" `' y' T CellChangeTimes->{
8 _+ R( r& K8 x( a9 c  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
9 L/ h9 i. L/ J+ n' O( ?2 T   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {% {  `# K8 [" P. R' b1 l* ~3 a- w3 B
   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
% f2 W, u' Q* o  R   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
9 z' F. O7 v, Z" \# C" h6 `   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, 8 Q+ u0 C2 a2 Z
   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {* [& c8 P% g6 J0 V. P" [; }9 O, H
   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, 5 E6 |( R4 b1 X/ A3 |
   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {: i, M( ~/ ^* G4 |2 ^/ C
   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, : Y; c* `5 E  \9 [8 Q
   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, ' d- ~! l! ^, q4 T  F& Z2 y
   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, $ s, B6 a7 ~) Y
   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, 1 n! z7 d' C0 M5 l- V8 _
   3.577960510686717*^9, 3.578012149296875*^9}],: {, d. c) X; B1 o

, P/ i7 [  H3 c& Q# k! cCell[BoxData["1"], "Output",
' U, A" l- J7 v+ w CellChangeTimes->{
5 ^7 m$ G2 P$ b* h  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, . ]2 o2 }2 ~5 G  Y' O7 ?- ?
   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {- |9 L) ^& c1 O+ f! k
   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
# D' [" L5 e% @' }" b6 `   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {! a6 `& O5 w6 X" N
   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, ; U1 o0 _# z$ F( i6 |8 [5 M9 q
   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {1 f2 B* f" u( q. z- U9 e) i
   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
' |5 G9 {6 I) g! d- @# L   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
' r7 a$ I( ?2 w6 C' F7 Z3 D7 Y) d   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
2 ]; }1 p5 F/ h5 }# n   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
1 S9 G$ f) E/ U. J5 L( m   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, ( F- ?# w( I, e& a# N
   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, ! A( S  I4 V8 x" ^& M* p
   3.577960510686717*^9, 3.578012149296875*^9}]' k+ ^0 `' d5 |8 m* L
}, Open  ]],2 y% E& v# H+ z, v! L

. E7 i* B: F6 |8 W3 pCell[BoxData[
$ i: f! Q; ^' g) `1 T5 t' J3 ?  n% z RowBox[{"For", "[", & M& q( u" i+ T! D* f3 ^
  RowBox[{
! R. T7 T# ~* S0 k$ J7 D# L/ O3 Q   RowBox[{"k", "=", "2"}], ",",
9 r0 s- ~% z  z0 Y% Z3 T/ M   RowBox[{"k", "\[LessEqual]", "60"}], ",", 3 J6 A4 E+ {  `8 x
   RowBox[{"k", "++"}], ",",
: V" N: X) W% z% ]+ O   RowBox[{"{", "\[IndentingNewLine]",
9 y6 n) `1 y+ G% t& `# V" O    RowBox[{( M, L. c- r' v. M! ?  |  S
     RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
. K. f7 T/ l" ~, j, ~     RowBox[{"For", "[",
; H+ h, U4 t: L      RowBox[{
& l0 m7 m: e9 u+ d( F       RowBox[{"j", "=", "1"}], ",",
; a: b. A; e8 V3 t& a4 r. J  ]" G       RowBox[{"j", "\[LessEqual]",
6 @9 [, }& X* L# o        RowBox[{"k", "-", "1"}]}], ",", 6 A$ H% l: B- w2 i7 X1 t
       RowBox[{"j", "++"}], ",",
; ]0 A' h# B3 b" ]6 y+ U       RowBox[{"{", "\[IndentingNewLine]",
) j6 Q, |( M9 `* M        RowBox[{4 q( I2 M2 l5 P. m* i) W5 l
         RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]",
+ R% @/ S+ g, J& ?# K         RowBox[{"For", "[",
7 m  M# j1 Q2 s' T  L          RowBox[{
9 I! G9 y2 `" l" Q; L           RowBox[{"i", "=", "1"}], ",",
1 w& m5 D7 Z/ b: V+ D           RowBox[{"i", "\[LessEqual]", "9"}], ",", , w% ~6 r$ @7 r) A; l; Q0 T
           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", ) J* ^3 h7 D# @) w. H8 S" ]
           RowBox[{
; w2 ^2 l( p9 f- L( h- q) _/ d            RowBox[{"r1", "+=",
' Q6 O& z9 }( x$ B) {' x0 ^             RowBox[{
; c4 J( f7 U$ N6 j$ k" P              RowBox[{"(",
- e; H, B! Z/ o! b& s               RowBox[{
/ X; u8 Z" G8 `1 X" c. \                RowBox[{"CM", "[",
2 n/ h8 Z$ g- b$ B' H. V                 RowBox[{"j", ",", "i"}], "]"}], "-",
; n% [% I! S- Y! T0 x4 K$ [% P                RowBox[{"Data", "[",
- m* z& C( N1 Q1 M2 x2 d, F/ N                 RowBox[{"[",
* I$ o+ i7 }0 g& J. [: ]                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*", * D. p) V$ _3 C# W3 x
              RowBox[{"(",
8 R1 {+ ~8 `7 \/ k' h* a  H8 ?               RowBox[{
1 L/ r5 k( j6 s                RowBox[{"CM", "[",
1 \3 _0 U* \- s% s$ D5 m  V8 E                 RowBox[{"j", ",", "i"}], "]"}], "-", + H7 e5 ?9 F; E7 c/ j  ^8 B; k
                RowBox[{"Data", "[",
* V/ q+ J8 r- q3 T+ t: ^                 RowBox[{"[", " S7 A) K0 {# X' n0 w
                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],' Z+ Z* i$ U) ]; v
           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", / O6 M. @5 n, X2 Q& o: q8 {
         RowBox[{"r1", "=",
1 @/ ^$ K7 ~- U" x. N0 h- l8 U          RowBox[{"Sqrt", "[", . U6 j4 K% K& a
           RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
! Z: z# ~! q5 Z/ B% U0 {         RowBox[{"If", "[", " ", 6 U; X1 O9 H4 n; |
          RowBox[{0 ^2 _' k. |3 N# n0 ^
           RowBox[{"j", "\[Equal]", "1"}], ",", . }/ Z) O7 X2 p# O' U) Q2 F
           RowBox[{"rmin", "=", "r1"}], ",", 0 D1 Q2 Y# w  a+ Z1 d% t
           RowBox[{"If", "[",
4 |+ P- O9 [' q' H, Q' @6 f7 x            RowBox[{
! z- O" U+ U' p5 H             RowBox[{"r1", "<", "rmin"}], ",",
; z9 e1 m6 n$ F1 r8 H             RowBox[{"rmin", "=", "r1"}], ",",
& ]6 {  }; V+ I* l             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],   Q/ \0 h* R2 \5 w! z
        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";", 0 S: u4 V' E( s
     "\[IndentingNewLine]", / Z; u8 `  U; N! [
     RowBox[{"If", "[",
* n4 o& c; N; Q2 R      RowBox[{2 w8 `+ C3 p" m0 ~
       RowBox[{"rmin", ">", "r0"}], ",",
8 b, R& u  u3 _1 T( |% Y3 H       RowBox[{"{", "\[IndentingNewLine]", $ U. k/ I" }! ]8 a
        RowBox[{
1 A1 o$ S3 j& }# h9 j         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]",
) i# U* }, H' S         RowBox[{"For", "[", ( {6 y! u9 x( ?# E7 ^4 k: |
          RowBox[{* E+ O6 W0 V5 x) t7 Q+ [
           RowBox[{"i1", "=", "1"}], ",", . p' K9 G, ?' \, \# f; L7 q% T
           RowBox[{"i1", "\[LessEqual]", "9"}], ",",
) e6 O2 e2 G5 T           RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
! c  j! f. H. j8 L/ |% K: ~+ |           RowBox[{) a$ ~& V5 B0 D( J3 C
            RowBox[{0 Y) u6 r3 j: V  n, G
             RowBox[{"CM", "[",
1 @) w1 s  o8 Z* E! L              RowBox[{"M1", ",", "i1"}], "]"}], "=", 9 g0 F1 z' {; D9 w
             RowBox[{"Data", "[",
$ h8 z/ U2 r, I2 t: c! P' p              RowBox[{"[",
  \5 k  g5 S& F- ^               RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}], , L+ R& X* q) h% h: C5 h; P
          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",",
( \6 j& K0 d2 o       RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], $ {  ~: |1 {9 A$ `
    "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
8 o& i: A) ]: K% D! j9 G& w CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {
* F# _& a+ F' V; t& V- L. {   3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
2 @1 K" c* w6 }, [   3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {
( E6 S4 y% u5 @0 c1 A   3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9,
" i8 ]* W9 v; o& k4 [! i   3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
- G8 J0 {# ]+ {/ @   3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9, 7 J6 @5 {7 K0 W. u- E
   3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
  k, m# R: w4 {7 K4 M4 W+ Q   3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9, 7 R  v" y' C- h. ~3 I& q# {6 |- E' |
   3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
; b8 }- g2 p8 i0 x/ |   3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
, n& j; s, q9 m/ I   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
9 A$ e- H! O4 N   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9, 1 b  A& U) l6 r7 y
   3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {  s; X. J1 A+ x
   3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9,
5 Z2 I- v4 v2 B/ z4 i4 W2 j   3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {( b! r; J3 B# O0 V& x2 v4 R3 r
   3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9,
$ b5 I2 t; j  ]5 k" Q8 g   3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9,
9 k' ~7 t# a3 x6 d6 [   3.577958821991373*^9}}],& Y" \; M. i- l

9 F, _1 M! a7 |2 c" uCell[CellGroupData[{
, @! Q1 E4 s% N; ]+ N- H" B8 z4 P6 ^* h. C2 L/ D9 a
Cell[BoxData["M1"], "Input",5 J, S0 d8 a- C/ G7 [. X4 o
CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}]," l) M1 K( \( g) i
5 F* Q; q% }3 _4 n+ o0 G0 I" g
Cell[BoxData["21"], "Output",7 K; E) a6 S! [. O; B
CellChangeTimes->{3 x/ O/ Y3 i7 l
  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
4 y& e' F6 ^7 K   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9, 5 W  q& f! l9 t1 c
   3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {3 g; D& H8 r! i& ^8 E2 [; r. N
   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
5 w3 U2 \% U2 Z4 r( v   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {8 Q* X  I; X: g5 |/ }4 z. j7 Z) E
   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, 9 P: E2 Q0 [5 A! G; \; Z3 P' c% u" ~, X
   3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {6 V4 ~9 j" n) s
   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9, 2 y7 N2 K1 w- {  f$ z. I
   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9, - u- J! \) P2 T" G9 U9 S( Y
   3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, * j! X8 w: ]" }8 |9 s; d
   3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9, 4 E7 t5 J# c6 x6 v1 a# V
   3.577960515600726*^9, 3.5780121541875*^9}]- ?1 s8 d% S2 t8 b7 r/ G
}, Open  ]],2 b4 A! n4 ?2 l' ?" h
; P( `& a' k; F4 N0 O
Cell[BoxData[
. u7 n- _& N2 e9 }( G, E RowBox[{
- d$ ]' x5 m- k- k& _  RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", 3 C& }/ _* G4 B
   RowBox[{"1", ",", "i"}], "]"}],
4 l+ k2 f9 J9 D& B( o- a0 S  RowBox[{"\:5230CM", "[",
" y5 \: O+ K( J" X   RowBox[{"21", ",", "i"}], "]"}],
' |, f2 f/ I+ l2 f% ?% x; r% l  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\5 {4 [; ~; a' N+ v, P* {6 l5 }1 X( r
\:51fd\:6570u1\:5230u21"}]], "Input",
3 V) p% O, I0 s* s) D9 C! q2 _ CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {* n4 }# t* O: O* J) Z6 R
  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
2 [* n6 J" S3 V+ \- M1 [  3.577960526583145*^9}}],, ]% Z8 R: p7 B% J
& ?1 L* y3 E5 S1 z
Cell[BoxData[5 ^! O% J; \- O1 J) Q; @' L" w
RowBox[{"Clear", "[", "Delta", "]"}]], "Input",0 s7 s4 i' H/ z1 K+ Y8 F
CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],- b4 D, D! y% t* _4 T( c

( k1 A! A, v6 }7 K) oCell[CellGroupData[{
/ s+ R, Z! ]! ]$ h2 p, G6 H1 s
. _! l( V; W- a+ Y- \* NCell[BoxData[
/ X! B& o+ E1 H% s/ } RowBox[{"Xa", "=",
& \6 E7 ~* l4 o8 i! n( S; h  RowBox[{"{",
1 H8 N1 `* E5 h  v5 [; g; g   RowBox[{- v& w6 I8 Z. @, a4 q0 p
   "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ! d' m2 L2 s2 U# A# A+ y
    ",", "x8", ",", "x9"}], "}"}]}]], "Input",
* }: K) n0 ]8 A; Z CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],8 P) X* `% H4 r0 H7 ~
+ C5 \& M) B  Q' x
Cell[BoxData[
+ S! z, G, m. x# W" y8 y$ @ RowBox[{"{", ' w: o% N# m+ m- R" B
  RowBox[{) B2 f8 E) M! T5 E2 D- H( f) k
  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
: [- V9 y+ m6 C4 o, D    "x8", ",", "x9"}], "}"}]], "Output",
' i, K( X2 Y6 w: f* y6 S. R CellChangeTimes->{
8 ^- m2 n$ d6 `. I3 }  3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
+ {7 D; a  C5 s; o( _% |! k   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
9 S! z5 D% d  v6 h# P   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
% M; f1 S- d) x: `$ ?( t: Y   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
" t7 n! F' M- W2 g   3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {' V- [" Q. f5 `! K0 N" A6 I
   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9, " [% a3 X7 f9 \5 o
   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
/ h5 f9 @' e! Z( g. X1 p$ ~. ~) S! E   3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
+ F/ L- o  [7 ~' @3 o" I2 ^5 ~   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
  {/ m/ O" T2 K2 ]0 ^6 ?$ Z& y   3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
" o- ^  [" x* @   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
4 x; h# s5 E0 N0 R# Z; p2 i   3.57801215725*^9}]( \& M( q8 K. l9 O) d1 Y
}, Open  ]],
2 n+ A7 b) M  M5 j$ P4 V
+ ]* L' I$ W& A& {Cell[CellGroupData[{0 v2 v) x" V6 d: u# E

# |0 B1 D- H0 M- a5 _Cell[BoxData[
) J, o! c! V  F# Q# c6 s) r* ^9 [ RowBox[{"Ca", "=",
# @8 N; t# k+ z7 {0 L4 _9 I  RowBox[{"{",
5 Z$ p) U9 T* L! S   RowBox[{9 @# ]( M: N# B9 Q
   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", - e/ g+ x# u4 s( B
    ",", "c8", ",", "c9"}], "}"}]}]], "Input",; q9 ]) \+ f+ k4 O
CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],. [9 H; P; l1 W/ Q# C
1 X2 ?/ |) j- b- b
Cell[BoxData[
+ j4 ~# c$ {; U$ q8 w5 A0 N RowBox[{"{",
0 z% V" D& \, e, `+ |  RowBox[{# X2 k* U) f% a. b
  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
+ B+ s8 I! C: T- ?6 D; |* q6 @: E    "c8", ",", "c9"}], "}"}]], "Output",
0 T0 m6 c" r6 m$ \ CellChangeTimes->{
( A6 t; a7 J3 h, v5 _1 a% n  3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9, 7 W: Q$ o! E4 E4 W" @
   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9, . j( E4 J9 }  M
   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, ) a& b& U5 d$ K) o8 x" E% q" @
   3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {0 R  f4 _- e2 W8 |" X% }7 `! v
   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, , B* _! M3 a8 x. l: k' e2 D  c# D
   3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
6 C+ r) [; {9 z! X8 p   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
% T( v- C1 ]' P2 l; O$ T   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, 0 ~: Q5 J( A- E! U
   3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
) S: R6 k6 {3 [1 ?1 d0 Q- m   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
8 W0 @% `" e$ v+ G+ O   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
+ w. `2 z* ]+ `4 ~' g) }   3.577961904604212*^9}, 3.578012158671875*^9}]; |% @3 @) k' a  f
}, Open  ]],
5 L1 r) i( i+ o0 G; U, ]* L$ u2 T
Cell[BoxData[
% j4 }, r' @+ ^* Q1 X- y RowBox[{"For", "[", $ ?/ k. A% ]$ o% O* l% ~: w
  RowBox[{, C/ Q9 J4 b- M! T0 G4 |6 J
   RowBox[{"i", "=", "1"}], ",", ; T; K; L5 R1 ~
   RowBox[{"i", "\[LessEqual]", "9"}], ",", 0 G4 w/ V$ I/ D, K
   RowBox[{"i", "++"}], ",", ; x7 m! Q9 |( O  u5 ~; o
   RowBox[{
4 }4 D# \' |# b6 d9 g" \! f$ W$ _    RowBox[{"Ca", "[", 4 V4 j; I/ {& a4 |4 V8 z
     RowBox[{"[", "i", "]"}], "]"}], "=", 1 A+ R- i% V# Z" a7 d5 A
    RowBox[{"CM", "[", 2 b/ D7 \# i2 A/ }% D, X+ P
     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
- o, |. l7 O- F: { CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9}, 2 @* K" |8 ]5 Q) B8 r1 l
   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
6 _# r0 M$ X- T9 L% c7 D   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,   T9 @' i( H) _; y7 e5 j$ e" n
   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
# m6 G/ A' t+ D! D) g   3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, ; t7 C- A8 n* W* l$ G9 }3 W
   3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, 6 X3 _. k& K4 L# n' {" m
   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
2 H& v2 {3 G- o5 D" r& L( O   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9, , P( H5 s9 e7 P  c* i& `
   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9, ( j" T; S! l( a" q9 s5 D8 j, w
   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
% T3 L6 b  ?+ y& u4 f8 @   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
% H5 v) k9 P4 H4 E. h   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,   Y. s' T/ R& B8 d. Y
   3.577961906897415*^9}, 3.578012176296875*^9}],
$ O  L: A0 p' f  W* j8 ^
) s4 n' k; k8 e$ N) C4 mCell[CellGroupData[{' A9 G* }/ G' J: K$ {+ x, a3 {! c! d

2 }; n7 }! W6 ?7 h$ ACell[BoxData[
, v. Y# N0 ?# r% A% G) ^ RowBox[{
4 q; M7 l/ R) L( }( s$ k  RowBox[{"(",   O! \1 c8 I1 ]6 b. v8 I
   RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
) S( k6 g" ?5 V- H, z  RowBox[{"(",
1 E, `+ Y* J$ y. G# h2 L   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],9 E9 Y# B" k8 w6 i) o, W
" X) N8 w! L" v$ y& \1 e
Cell[BoxData[- a! {; n, d& k% x  a
RowBox[{
: B7 [2 E: k3 b  SuperscriptBox[: b: a+ p" G! U& w
   RowBox[{"(",
9 G( }9 `3 P( }' M    RowBox[{
+ I4 Q0 E" T3 o/ z. o$ n     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+", 5 A# j0 X! s6 g! P
  SuperscriptBox[
3 x% T0 x4 ~+ I8 q' t% q- p   RowBox[{"(", / p/ p* e7 Z: k8 O2 F. C- w
    RowBox[{- @0 a7 x# X* q7 c! l( M# j
     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
6 l% ]  c8 B6 [- W8 d" |/ ^  SuperscriptBox[4 D, J( |- X6 f, P4 v; D3 S
   RowBox[{"(",
! }' ]5 X$ o4 h: ~, h* a8 G    RowBox[{& L6 }( b3 k; g, y; `7 {
     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", + B: ]" M; u' o9 E
  SuperscriptBox[
: }6 M6 y6 D1 [/ }- B/ U. @   RowBox[{"(",
3 M3 Q) h, A2 p* A$ o# i/ f    RowBox[{" n( J5 D$ ~; f6 o  R+ t) b
     RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+", 5 n7 [8 p) \- h5 U  v! i
  SuperscriptBox[
2 ]* X% N7 V! c+ @9 P   RowBox[{"(", ( X- d2 l' {2 g9 G
    RowBox[{
5 f4 k2 g. D$ q$ G( M( H+ d     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", # i$ a3 H5 w" e) F6 F2 y: M
  SuperscriptBox[4 X# L: k3 ~! l
   RowBox[{"(",
5 z' V! A- q% X  r! |    RowBox[{
  o! P! w, J0 P" e0 b; b     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+", ; W4 b7 e& ^6 T" u4 D' H8 I4 \
  SuperscriptBox[
! r5 P6 y. }% D1 k2 c   RowBox[{"(", 0 @! e5 h- ?/ l" |# U1 M) S
    RowBox[{, N9 q9 K1 ~& k: z
     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", 6 ~! ^7 m0 `2 q
  SuperscriptBox[
0 w6 _* `7 U* b2 W. ^   RowBox[{"(",
0 c! d- O  ~0 ^" W- R) i    RowBox[{
4 U; G% V( G& u, S" M     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", 7 m' {) n: e$ w: u
  SuperscriptBox[/ W; c% U# i7 r# F
   RowBox[{"(", & t( _( x: J7 \4 A9 F9 V
    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",8 a# g/ D, \8 e) t
CellChangeTimes->{
9 Z, q! J% e% t  N0 c2 l' p+ x  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, 2 n7 Q( a' E2 p3 a% M- u. s
   3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9, , a. u) ^* A5 f+ O3 a- n# c4 a
   3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, ; ^( F: F3 @2 _
   3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9, ) c! H' D8 X6 z" d' v! M7 U& j
   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, ( z% O8 G8 x* {% b. \
   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
6 O+ P5 t* |, S   3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {# |& e1 Q- s( E7 J, `# E0 _0 _( B
   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
3 h  I* v9 z, i* {/ j/ f. E   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {# M  X- ~7 A& T# `9 A3 t. p
   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {5 l4 p' v) r! y9 C  W
   3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
! u8 x* J6 k# e- `. d& x, L$ s# Y( l   3.5779618537169228`*^9}, {3.5779618846049767`*^9, / u9 v3 q% L& g- ~& M, X4 ^
   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]0 n( z2 G0 Y( ?5 l
}, Open  ]],
3 Q, W& _4 m: Y
: L: ?/ i2 I# H( B$ e  iCell[CellGroupData[{: |: @+ ?! s* b' V" C' D* N- o
* p; a! J& `: V& ^! b1 V! ?2 C$ y
Cell[BoxData[" c( W! u* H8 l+ E8 O
RowBox[{
  x. D. z- {9 M8 Y  RowBox[{"Ca", "[",
  a& B: R6 ^3 B+ W5 G4 {  V) L   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",
4 c/ A, V3 M" r6 V4 J CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,   r' j/ x5 Z3 `3 \7 Q0 Z& k
  3.5779616465173616`*^9}],
* N; z3 B+ o; ^- S' z, \6 L- o9 a8 A( H4 J* A9 f: Y  x- k
Cell[BoxData["0"], "Output",
5 @- u0 x+ I! n3 W( w' T CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
7 Y7 }; f, F" J  3.5779616484049644`*^9}]
1 C- l/ L1 L4 W  `( w9 K$ i" O0 B}, Open  ]],
8 ]% z' Q$ i: w/ p' Y* ?+ E& u' m; V6 C7 h, z1 c/ ]
Cell[CellGroupData[{1 E1 d" L8 r  A
5 p5 v5 K/ d0 W7 J4 H
Cell[BoxData[9 Y9 F# g. [# }7 [2 `
RowBox[{" F! l+ R( N% @0 _# u
  RowBox[{"Ca", "[",
( g$ Q! j# o# P   RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",8 P( e4 ]* C. g$ y6 w1 B* T' R" J
CellChangeTimes->{3.577957376235614*^9}],8 e& d' X" n9 x* M) Z) `+ P
( b. {" s4 H' `5 M: F$ y
Cell[BoxData["0"], "Output",7 [% j, U0 E1 v4 C" z
CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]0 E8 G; [, ^3 k$ ?3 M0 R
}, Open  ]],. u% l- @) T! z& {5 f: V% a; z
$ d& z2 t# M, }" T1 J; f: ~! B+ }
Cell[CellGroupData[{# }8 a0 A9 N- h, ^! e

5 |- Y6 L9 u2 |" v0 _# v! {Cell[BoxData[- \' L  d! \1 O, n  g1 x% j- X0 [
RowBox[{
6 t+ C7 b; X" G8 b9 Z6 T/ I7 ?5 E/ N  RowBox[{"Ca", "[",
, ~" {2 j) S/ p) j/ V   RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
- O, ~2 j/ X8 d; c" d( {! `& s CellChangeTimes->{3.5779573112927003`*^9}],
; |$ [( C# V3 h. B4 y2 y
* A+ u! |" T# s4 M7 p' h4 f2 jCell[BoxData["0"], "Output",: k' P5 v6 o  y- X2 P
CellChangeTimes->{- c: N( S7 m. ^$ B% S5 t# n
  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
. q! T2 k. m/ D  U9 l$ V+ Y4 v   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
1 ?2 b) t# {: [: h   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
  _" F. r- [0 f+ Q( U4 Z8 F8 @   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9, 3 ~2 X2 ~! W+ g6 W
   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, ; P2 F$ y% ?' ?* V
   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]! I$ L/ N2 b: \8 F6 ^2 F
}, Open  ]],
) B+ F9 b0 x- `( N1 J8 K2 B  G& N5 h; u% H) M# |! }) E
Cell[CellGroupData[{/ Q+ E% v+ d) A( V. W' v0 c
, e5 S5 B1 s) B: Q4 b
Cell[BoxData[+ h  S/ j) U7 J0 p0 P4 q- o3 e! y
RowBox[{5 m# J6 v' G" u( e
  RowBox[{"Ca", "[", ; P  W! V6 r) m, I* N& j
   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
: ]9 c( D3 k3 ?' m0 z CellChangeTimes->{3.577921461734375*^9}],! ?6 h/ W+ P1 T2 O
5 @( W; t' y$ ^% L7 o* {
Cell[BoxData["0"], "Output",/ G. H( ?5 b4 y+ P+ u1 z! z. o) ]: d
CellChangeTimes->{; g; K( ]0 h  F: g1 Y
  3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
" O& I6 A6 n4 p6 b" x0 e   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9}, 1 d, K/ u/ |4 d! e) n
   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9, 4 `4 Y' ~# b; h
   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, 7 D0 @. e, }1 e% I  k8 D
   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]
1 u, A# l6 O; C2 u}, Open  ]],
! m/ P# |2 a  m0 i7 n% X# z- H# |8 h7 s. j( q
Cell[CellGroupData[{
1 i& X. N" _# A3 r3 B" l' S/ G* j  Q+ ?7 C- [4 k0 |& B) {9 C
Cell[BoxData[
3 ~( \: ~$ O- b: g9 X  |7 g# N7 {& l RowBox[{
. `4 B1 V% b8 j6 ~& W6 m  RowBox[{"Ca", "[",
, `$ S/ c* y: }$ v9 N8 l   RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
, t, B: T' ~7 N7 ~0 _2 G3 ? CellChangeTimes->{3.577957303118286*^9}],8 f0 c0 I; @# Y( j
. o1 T/ t% k8 U4 e
Cell[BoxData["0"], "Output",, U# |, q4 ?$ T; {( a( e- A
CellChangeTimes->{
  ^* C  m  c) @' |3 @) A  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
3 o' v- b- j& v+ j  k   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9, 3 b$ V( Q# l! r% s& M
   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
" ?  k# U) Q7 `1 d4 L8 N/ ~   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9, 4 k( p' }1 A: L' l
   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
( k- v+ e% J) d   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
$ _0 w$ R7 |; D" `9 X/ y1 |   3.577961889378585*^9, 3.577961912965826*^9}}]; @7 K/ z: {# d1 h2 c, Q2 I
}, Open  ]],
" o* U, ^( _1 T& ~7 `5 N! H8 k
7 t2 u, J, o+ k6 u8 F/ D+ `* sCell[CellGroupData[{  l* @/ [5 s& _6 X+ o
! ~2 A5 J4 ~4 k( k. e) n
Cell[BoxData[
2 A. T" x9 W! ]9 j9 |  i RowBox[{
8 _) [/ B' a' }  RowBox[{"Ca", "[",
4 `& ~! x/ V8 W( @3 T! ]1 n   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",2 u7 a* w7 u! O6 [
CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {. Z: d0 X) g0 y
  3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9, $ ]+ s0 c& `& V3 M
  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {. [& A. f* Y6 s) u: l( S/ A
  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9, 5 J5 O  k6 X1 B0 D+ N) T
  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
8 r- k* y3 y. m$ a" H1 g  3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9, ) Y4 K0 k. ~5 g7 q" a1 F/ ]" w
  3.577921435703125*^9}}],4 I3 p) Y# z4 x
& g  {5 w' ~" C) E
Cell[BoxData["0"], "Output",
4 n; M0 [; `; `: P3 O& q2 _ CellChangeTimes->{
- \" B3 k+ k# ^9 p0 p  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {9 l+ e: c' f+ U- `  m3 ?$ ^' z' H3 H
   3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
$ \) s4 d- n: t. o. D" e3 }$ F   3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
$ C- b+ a# y8 E6 K; T. M   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, 7 p! j) @4 Z  ?+ H% a  {& O+ u
   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
% V1 o" n- C# ?   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
' D. [& h: Z) ]   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
  G8 U" c' @1 `   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9, 8 W* z9 g% d+ w  ^/ H
   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {6 H, I6 U* Y1 B
   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
* L; r6 @+ r5 A* ], v$ C* P   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {" \) H  W8 ^0 d; K: J- c  Z
   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, ' I& }# b" w/ ?; L
   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]+ x- ?. i: A9 y# T) W9 ^; F4 A
}, Open  ]],/ J. u: P# k# a8 _- b# c2 T
2 w  }( s$ X+ {4 _
Cell[CellGroupData[{
) k& [! q: g# ?3 R" j' G0 _. E# f6 d* @; a5 x; j
Cell[BoxData[# Z8 b) h; m" E: h' B  i/ X
RowBox[{"Delta1", "=", : M6 s% }6 I8 C$ R) _
  RowBox[{$ ^$ L$ t8 J  U2 U- K! F5 q* D
   SubsuperscriptBox["\[Integral]",
6 n) v/ y+ J+ `1 D$ T. G    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], , g8 ]* g, Y! b
   RowBox[{$ b& u1 M' A" G7 `" U% f  R3 X/ s3 M" D
    SubsuperscriptBox["\[Integral]", ) y0 v: G5 m: ^7 Y& d/ z
     RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ) e/ d8 a# d6 I7 I0 X* k3 i7 S
    RowBox[{
" }0 l8 {  }+ l# }$ q     SubsuperscriptBox["\[Integral]", 1 F# V% F( s4 h
      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
- l/ x' p0 o( l2 V3 Y' N) E3 }     RowBox[{1 r5 O2 O  K6 U% i
      SubsuperscriptBox["\[Integral]", . F  T" P0 m8 R4 k! q/ b$ E8 n4 w- G
       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],   @* ]+ Q( F' M
      RowBox[{8 d9 t# c, B4 ]( Q: I1 D) s) s
       SubsuperscriptBox["\[Integral]", - @. E' Q" y  O. i6 }* r1 r4 I
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
/ d4 \' t& ~- n3 v: \. {       RowBox[{
/ w9 m- {% ~& P' j- E2 i1 Y        SubsuperscriptBox["\[Integral]", * v+ o- m% g: M
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ; K1 C4 w" t, t" n7 |5 O
        RowBox[{2 m9 f7 U2 D: h4 Z
         SubsuperscriptBox["\[Integral]",
3 {% h  F; T7 Q6 c          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
' F( v# Y4 }) [  _+ c; w$ N         RowBox[{( ~. ]8 a6 E" X, c( Q8 r
          SubsuperscriptBox["\[Integral]",
1 ~8 N! V$ r4 J. a# c5 T+ m9 ^' p9 M           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
5 Z+ T% e9 L* h( s3 ~          RowBox[{- b! E/ k% E; s& ?! I
           SubsuperscriptBox["\[Integral]", 8 c* L0 \! M$ h  r' \
            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], , r' V, E$ ^: C7 k3 {% I# r
           RowBox[{/ D9 k/ n" V# {; S' P8 p
            RowBox[{"Exp", "[", 7 V7 f# t, y/ q: o/ O; M0 c6 |
             RowBox[{: V9 o. O1 x/ E' |+ E7 V+ q2 a
              RowBox[{
! `$ r4 T! O7 c4 H5 `8 ]; H0 d               RowBox[{"-",
3 L" g* _- O- ?# h                RowBox[{" h& t0 m! j" v3 c3 U. q
                 RowBox[{"(", 6 d' K% d! y6 H) R7 L
                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
. o4 L; T$ j  \3 m$ A) V                 RowBox[{"(", * j0 w1 |; V/ F7 G
                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", 0 `. [( @9 }! G
              "Delta"}], "]"}], ( n3 k: w4 Z4 y" Z
            RowBox[{"\[DifferentialD]", "x1"}], ' r6 }. y; }8 |$ d
            RowBox[{"\[DifferentialD]", "x2"}],
; }" y5 D1 b. C            RowBox[{"\[DifferentialD]", "x3"}], & f- l0 K" O' H$ b
            RowBox[{"\[DifferentialD]", "x4"}], 9 i& K, Q, S) f% K; U9 n8 _# ^
            RowBox[{"\[DifferentialD]", "x5"}], ) K8 x7 I  G8 g6 \6 Z
            RowBox[{"\[DifferentialD]", "x6"}], ; M& S1 n/ R0 R* q( \7 P$ i$ O
            RowBox[{"\[DifferentialD]", "x7"}], 4 q3 a4 Q) N/ L
            RowBox[{"\[DifferentialD]", "x8"}], " O3 F7 a& q$ y/ ]- ]2 |
            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
  A$ ~) C; ^( ]4 a& O CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
* W7 M% r# d! x2 l  g0 N$ U   3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
! G3 c% ~* n* ?   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {9 C0 J6 m9 K# W( Z% v% r
   3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9, . [, E$ e2 I5 ]8 C; X$ t4 U  \5 D
   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
8 j1 F  H* G8 h   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, 0 M1 Q0 _& [* }4 b: n
   3.577918964453125*^9}}],  @; c8 J5 F% j" z! L

* _% L3 X; l9 `7 |7 lCell[BoxData[# K2 H) m& D4 h+ p
RowBox[{"97.40909103400237`", " ", " w% B* l5 J+ o7 J9 B
  SuperscriptBox["Delta", "8"], " ",
" _6 r+ u) [! u  u1 l' z  RowBox[{"If", "[", " z# d7 o3 {  C4 }7 U. i' ~; J
   RowBox[{& P& _6 F* E# [+ L+ c
    RowBox[{5 ~$ j5 @# _1 G2 [. d, V# p
     RowBox[{"Re", "[",
) S0 y4 S# a$ d/ D3 W4 o  @      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",", 1 a% j3 \+ b& _2 u" n
    FractionBox[
/ H( t  v" }( T6 m# m: g/ M3 g& y     RowBox[{"1.7724538509055159`", " ", 6 Z: _$ }2 W/ I) _! ^  G
      SuperscriptBox["\[ExponentialE]", " k8 K" |8 }. ]6 s7 @& z7 ]
       FractionBox["1.1102230246251565`*^-16", 0 w' Z6 C# T  j* B( B$ P
        SuperscriptBox["Delta", "2"]]]}],
8 [; V( W' E; \# H6 s     SqrtBox[$ B* S: O5 v4 A
      FractionBox["1", ' I7 ~& ^2 x% {/ M& b" i
       SuperscriptBox["Delta", "2"]]]], ",", ! G* D1 W3 z. B
    RowBox[{"Integrate", "[", & c" B- o  V# d% I/ I) r( x
     RowBox[{
1 c  \7 \7 y1 }, ]5 y      SuperscriptBox["\[ExponentialE]",   B, \' j* d, q
       FractionBox[& G& \  s6 ]0 S1 C' O
        RowBox[{"1.1102230246251565`*^-16", "-",
0 c: k/ e" H1 g5 n9 r         RowBox[{"1.`", " ",
! g% k3 o, k. r8 X# Q% x          SuperscriptBox["x9", "2"]}]}],
) w$ |* v( ~/ x/ l        SuperscriptBox["Delta", "2"]]], ",", " v% }0 w$ L  p; X
      RowBox[{"{", 1 q! k$ p5 c7 E. ]
       RowBox[{"x9", ",", & F" H0 D8 L9 R' L: n
        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", ; ]' |8 C- [5 T+ B/ z
      RowBox[{"Assumptions", "\[Rule]",
1 s, J9 n2 [# c       RowBox[{* o+ G6 K4 b: P7 j+ g  ]& L( A9 y5 k4 I4 m
        RowBox[{"Re", "[",
2 m' K8 u( R& q6 z& W( {         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
9 ^; G) a. P+ T" w9 x2 \     "]"}]}], "]"}]}]], "Output",
+ v% G4 ~# x2 U# W7 L5 g CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
, L! `( E1 K; \& D, ?: ]% f  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
% E2 }* C, E0 n) q8 M% N5 a  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
5 J. q6 y" d6 U  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
, L: `0 [% B7 j" }  d  n- _" ^  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9, 5 `, L8 u. Q5 B4 h
  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9, ( ]: S: `: `& t* w8 h/ z- q
  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]* h5 s  F2 l3 W- D( ?: ]
}, Open  ]],. k1 E" u; d0 V
* V3 J2 _" B# I& E- q1 f0 z" w. ~
Cell[CellGroupData[{% k2 w" N7 k; f$ Y
- k1 o" g$ R0 d- ~1 Q6 a
Cell[BoxData[; U3 G' i( ~# ?; u' S; g
RowBox[{"Delta1", "=",
& q0 i# A6 y* L) Z  StyleBox[
6 ~* W) g+ ^. k$ t   RowBox[{"97.40909103400237`", " ",
5 h% |/ t1 i& u# H( @    SuperscriptBox["Delta", "8"], "  ", + ]: a( J* A; [
    FractionBox[
6 M  y7 T& `) j  _" q$ G     RowBox[{"1.7724538509055159`", " ",
7 m* q2 N& r. l/ ~& W; x4 D      SuperscriptBox["\[ExponentialE]", ) O3 H; }7 @1 S" x
       FractionBox["1.1102230246251565`*^-16",   y6 L& d% v% D% |. f
        SuperscriptBox["Delta", "2"]]]}],
2 W" i0 e$ I' J; o; p3 F! ^     SqrtBox[
7 b4 V8 s" J! l0 d4 h6 F      FractionBox["1", ) ]: [5 b9 V  y0 {
       SuperscriptBox["Delta", "2"]]]]}],
. |# ~( I8 M& ]6 o, O  m5 d9 x7 ?   FontWeight->"Plain"]}]], "Input",, @6 q! Y7 S; ]
CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
1 V4 Z* h) v! l' |- b   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
: A& R8 r' `7 `& s1 F) F2 ^   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
5 ]% X7 j# M0 G. c( v! @   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
# X4 ^' d0 F- C: M+ F   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
* I& @% u0 \( }/ {+ o   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
0 {8 \) I: b) h
6 d- v) p) V. ?7 [3 A1 q' ACell[BoxData[& K' a+ I# ?( E& v0 Z5 c4 {0 P
FractionBox[5 D$ C2 ]$ \7 \3 X
  RowBox[{"172.65311851642346`", " ",
! [: e- n" `' @* a   SuperscriptBox["Delta", "8"], " ", 3 H. N) C5 P* v- G  G: W
   SuperscriptBox["\[ExponentialE]", 9 \4 a* n. [$ W9 x7 E& S0 \
    FractionBox["1.1102230246251565`*^-16",
" p' z5 b" t: X, Q$ e- x     SuperscriptBox["Delta", "2"]]]}],
- O/ W+ I1 H# [1 A8 A3 v& {" G" E  SqrtBox[
1 q* v  `9 V8 z) I5 r/ D/ P   FractionBox["1", 0 x+ s6 G3 M; R* \
    SuperscriptBox["Delta", "2"]]]]], "Output",/ V) L9 k/ [1 z& n. L+ O0 Z& x3 o
CellChangeTimes->{
/ {" o: ?; u* F. {0 H, V( X  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, 5 ]5 @% a- I, Z( H2 s# t2 R
   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9, $ a, W( h6 x9 k5 l- T
   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
( I) ]0 O# U$ v1 g8 M* a   3.578012166234375*^9}], ?- D" y, {. w7 s8 C/ @3 q1 U  a
}, Open  ]],
1 U) u/ P$ I. t  _( w, T
0 i4 D$ P) A/ M7 C  iCell[CellGroupData[{  y2 H+ d  i+ k- b

; D9 v5 h- @0 T1 D) aCell[BoxData[: ?7 o( V/ R0 @+ w' |8 C
RowBox[{"DeltaX", "=",
5 |4 L+ o) m7 V/ v' F+ }  RowBox[{"FindRoot", "[",
4 U- A( V* {6 u; W! y   RowBox[{
9 v" D( a& L0 e' k- j    RowBox[{"Delta1", "\[Equal]", "1"}], ",",
2 v4 M, n$ I# Z    RowBox[{"{", 8 p; e: x7 s& [6 c. a. |+ h
     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
' T% M! Y5 r3 k. A, U! ^1 G* M CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {( [6 T/ E2 h' Z1 P
   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, 8 x& i0 j' b: B) {; o, u) F9 ]
   3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, 8 b5 F0 C) S" r6 n* S
   3.57791921584375*^9}}],; T, U) F. n9 A

' t" k1 ~7 Z- j7 s0 ^Cell[BoxData[
5 H3 x2 V3 Y; t( k5 A5 ]6 @7 @! r% H RowBox[{"{", - I" [+ q" q0 c& S8 C3 E" N& v
  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
, M- n" S6 S4 ^) ], N+ B CellChangeTimes->{$ o5 E6 a5 z4 f! K2 @6 G
  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
3 a5 B2 M4 X& y( m, j1 I; r   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
  d6 c0 ~; W1 q. Z; ^" [7 l0 m* y   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
% w) h: Q7 K* v1 J1 T   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
8 d% U1 J+ O5 ?   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
6 h3 Z; f" Q; \& l% o/ V& m   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, " F. R3 w& g% R; [
   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
7 b+ |6 V" F% m" q( [1 `   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9, 2 i! _& M( y0 {6 D; ~. Y
   3.57796070150625*^9, 3.578012167703125*^9}]
: W: u) ^' ], l) S7 H+ ^}, Open  ]],5 _8 @$ n+ T* B2 K6 `: z8 O& h

7 v) [* ^% L' k2 G. U" ~Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\: d, S4 X: Z7 g- G# n% C
\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
* C# c$ s0 p  X. R8 e" n9 R: F6 ^ CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {  F5 Q, z) ]* A( P
  3.577960705312657*^9, 3.577960707621461*^9}}],
! N* ?* S; p% G. f! w. |$ J9 N
" m$ `: g* L0 |3 n' nCell[CellGroupData[{
" M, {5 V6 p( v$ x- @5 h1 a2 x8 |# E) Q# j, l5 l- H
Cell[BoxData[8 g3 {& S( k, z, @7 G
RowBox[{"C1", "=", "Ca"}]], "Input",4 F$ p. E4 a5 ?9 C/ w
CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],) c$ s) O# E9 B( @4 |7 c; r
$ m5 q$ V9 B4 X2 m9 |/ ~3 t7 P
Cell[BoxData[
6 o, h6 w+ m5 N* N$ _( Z9 l6 O RowBox[{"{",
6 V- R5 J/ ^8 h6 m! g# b  RowBox[{
! v) G  V" X/ ^' E5 G3 z- V  "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
- ?$ i6 o3 H' A; Q, ^   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", 6 X8 c8 P0 I2 `5 v. x# N; \( s
   "0.`"}], "}"}]], "Output",% |1 {- i" g% L% x5 `% ?# A
CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, ; n5 y2 Q3 V' l% X
  3.577960710273465*^9, 3.5780121855*^9}]
, D! ]" \' l, U2 \. h3 V}, Open  ]],
8 K" t% ]2 g1 h$ d3 n- w# G0 l8 G" t" J/ {" i4 a2 ^
Cell[CellGroupData[{
# ]5 k4 `# }; A* Y/ b% K% r2 b" S; R6 ?; g1 d* x9 v
Cell[BoxData[; g; ?/ K& [7 E
RowBox[{"u1", "=", 1 E+ Y2 r5 }+ G% f% ?9 K
  RowBox[{% j9 J6 p* `% F* F
   RowBox[{"Exp", "[", . s$ o1 f& o8 |- w: [
    RowBox[{7 B2 c, p# M; E! M) t6 s* h! Z* ?
     RowBox[{
8 j# [+ N6 M& |9 B1 R7 o      RowBox[{"-",
4 w0 T7 o7 Q( ~+ |. `5 B       RowBox[{  o3 ]3 r$ Y! [
        RowBox[{"(", $ d. f* D! o* k2 k5 ^& Y6 W
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 7 w  t/ q$ F" ?8 \9 N
        RowBox[{"(", 5 C$ i1 y0 K$ D' ?$ j
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],( c! M$ G: [+ i# t0 v1 v
     "]"}], "/.", "DeltaX"}]}]], "Input",
4 d1 s9 n8 E- B7 ^/ {2 Q2 Y CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {' a6 G+ N5 x3 u0 A# h4 u7 g
   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {3 L1 Y" K$ G4 E- h. E1 r
   3.577919193484375*^9, 3.5779192326875*^9}}],
. Y5 m* g( ^1 m: D1 Y6 Z
0 [: `; `& Z) WCell[BoxData[( D2 U: t9 e# Q' Z% g
SuperscriptBox["\[ExponentialE]",
) @( a& w' F+ D7 q4 B  RowBox[{"3.141592653589793`", " ",
; n  S* t4 }( x2 P; K1 D   RowBox[{"(", , e3 P" V. Z7 l8 v7 @$ Q- p
    RowBox[{
0 ]) c/ y. F3 i" V4 }: {. X7 _" c     RowBox[{"-",   _6 P* o0 O9 _1 |" W( t9 F
      SuperscriptBox[
  z5 d$ F: M0 t5 w9 q       RowBox[{"(", 1 g5 P+ V0 o3 ?& D7 h
        RowBox[{5 d6 ?& G4 K" C, ?' Q& u3 P' x4 Q
         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 J( o+ o% K; o  K) K, |0 F$ o
     SuperscriptBox[
7 X; \7 k* I) _2 B, Y2 c$ T      RowBox[{"(",
$ B. ?" P  m  Z6 v/ D       RowBox[{1 [( s2 W8 q2 k5 g* ]$ L
        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", & n, z% v4 u0 K5 L
     SuperscriptBox[& W/ ]* i2 u  q, R; |% Z" u! T
      RowBox[{"(", - [/ x4 \, J# Q1 b
       RowBox[{
+ l; s9 S4 y6 d) ?5 u        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
/ ]3 g* s9 ~! ^% e  k1 s     SuperscriptBox[: A+ r9 o1 h, `# q& @  s
      RowBox[{"(", / x7 T7 N: D: P' [
       RowBox[{9 G  d. H& P9 c9 W6 F
        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
2 k0 h' N  b/ {0 ~) Y7 B8 d, p     SuperscriptBox[
# X2 V3 T0 P) R      RowBox[{"(",
+ Z3 t5 A' u5 h+ V& |0 c0 h' j       RowBox[{
; d& K6 A! _# d: j6 E) B        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", * m* \: D% m9 H5 n
     SuperscriptBox[
& X$ a( ~9 L7 E" J4 e! c      RowBox[{"(", ; a3 U3 ]2 w! Y. e: g- h
       RowBox[{  Z  ~' T# s. f" A' l/ H
        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", # R2 e* D; E% q/ m# H6 k) d( W
     SuperscriptBox[! L$ M) k1 I& M
      RowBox[{"(", ' v3 D; V4 L6 K/ w; {! C
       RowBox[{/ F* W, Y5 u! c6 E: D; Z8 M  T7 r
        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", : ^8 k9 w1 X; F9 Z: m6 w3 }
     SuperscriptBox[
$ {; |* N2 ?9 l8 p) W      RowBox[{"(",
2 n$ p# M2 F5 |4 V" h' x/ N( j6 l/ V       RowBox[{( l7 n+ k& X8 \+ x
        RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", 8 F0 H3 {* J. B. v4 W
     SuperscriptBox[
. t5 c5 R) e) @7 n; J" F      RowBox[{"(", ; ~! \9 v0 g1 @  T  h/ ]/ t
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
9 `( @: D2 T: u5 ]* L    ")"}]}]]], "Output",
& H$ \/ r2 R# @+ _ CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9, . a0 r) ?% }0 M0 ]
  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
# ~5 B. x* D/ Z2 Y  3.578012187078125*^9}]
, H; Y/ M2 z( `3 }8 j  R# B  e}, Open  ]],
% I( }& {- A0 R+ l; V! a0 [' w+ u$ J/ a0 T8 S- S. r4 l# t
Cell[CellGroupData[{5 r' n: a+ I3 Y

/ `# C: b7 E# B. q( f( N2 [) C, C! hCell[BoxData[6 Y5 B0 g1 G: y/ Q+ _. Z: E
RowBox[{"C2", "=", "Ca"}]], "Input",
; u% |, _; T" k CellChangeTimes->{3.57792047321875*^9}],
) V& w# t4 h* d3 J2 s  p
5 m9 P9 M# b! p" r  l( X. D* M$ t; \Cell[BoxData[4 j2 F2 ^/ ?+ M8 @6 U4 G1 E$ h
RowBox[{"{", + V* v1 A. j# J( O9 e0 w8 d
  RowBox[{' p# q4 w5 b: U
  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", ) S' a( m$ j$ @0 k
   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], - X9 r, m8 D& e& ?( S4 N% b" G
  "}"}]], "Output",( L  D) k9 k5 \4 g7 ~
CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9, $ ?7 R1 k" G& `* T' m
  3.5779607401163173`*^9, 3.578012204671875*^9}]
1 j1 u* ?4 [2 v3 |+ G/ w}, Open  ]],0 I  c* N1 k9 l* N) |0 l. a+ [0 c
" A- o4 ^# P. L  a9 C
Cell[CellGroupData[{" t& H8 A4 z) a" z3 @

2 K& L5 z1 [6 o7 R( DCell[BoxData[, H; T0 B* l6 m5 G  h; n
RowBox[{"u2", "=", 5 _" U' O  D$ Y5 g/ _5 S, ]
  RowBox[{
  s; O( \% |$ s2 t  i; t   RowBox[{"Exp", "[",
( s) ?' e' X1 G& O( l    RowBox[{4 d. y6 t" w' I4 d  Y
     RowBox[{- k1 U" q  K& Y* f9 e
      RowBox[{"-", ! G6 E( w" K! i) K& G9 M1 o
       RowBox[{
& q, h3 S& e+ I6 X$ F4 K1 x        RowBox[{"(", * a  c( f! O& G3 l1 v" I) {
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - R; W# n) I: Z$ Z0 x1 m
        RowBox[{"(", 1 {% i" M  h' U7 u" h
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
$ m" w2 L5 v$ V! V% G' U- |  M     "]"}], "/.", "DeltaX"}]}]], "Input",
; m4 C9 v/ V  _: y. H! V; I. S CellChangeTimes->{3.577920484109375*^9}],+ s& A( \. D$ n. U$ p: ?
0 j* k& ~# t5 o! t9 e0 k$ s6 H* t0 I
Cell[BoxData[: Y! M/ ?3 Y4 ?' H
SuperscriptBox["\[ExponentialE]", 3 t8 }1 s4 a6 H3 {/ u
  RowBox[{"3.141592653589793`", " ", 6 Y0 Y1 t6 x  Q. z+ N; N; R
   RowBox[{"(", 9 }) V: P2 i) ^& w
    RowBox[{) N1 z- n( v! C% J
     RowBox[{"-",
* \; c# D' I' K, [      SuperscriptBox[
6 b' h7 ^" F; g; J6 v       RowBox[{"(", * |2 F6 m) F0 ?' @/ O! v+ d7 j* B
        RowBox[{
( c. ]( B2 j6 O* N& r         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
! Y) I9 r4 S, Y4 Q: l     SuperscriptBox[
2 S4 V% @& t) x( Y  v3 f      RowBox[{"(", , }; Z) h3 W9 i
       RowBox[{3 l" m/ s# {( }& Z
        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", : P+ q( c4 u% P
     SuperscriptBox[
* P0 i" s- F6 p  X% x      RowBox[{"(",
$ K" u2 s5 A! @6 Z( A4 ?! r       RowBox[{% q5 L/ S. Q9 E6 h' d
        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", * a/ ~# g& t$ w7 ~5 V: R. x
     SuperscriptBox[
, e$ W0 z% c- X, v  H      RowBox[{"(",
3 l4 j8 m! d9 Q& W       RowBox[{
/ j( G' c9 P; A8 Q        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
$ b7 A5 @0 N& I6 b! |     SuperscriptBox[6 u- i: _& J7 x3 q: c1 h$ a
      RowBox[{"(", 2 @7 Y% ?0 U. _! k8 A9 f* {
       RowBox[{
8 G/ v5 g' j2 t* b; p# R4 v        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
9 F! o( t7 o5 E2 f1 Y7 l; F     SuperscriptBox[* E; c! O- `7 R6 X' F) |" F
      RowBox[{"(",
9 }+ z8 p& Z7 C7 o       RowBox[{
, R" d2 x/ ^. t4 q8 K- ^        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", + z' i, ~% o9 h, i: \1 Y+ I
     SuperscriptBox[
) X! }9 l) \+ b% B0 q' n      RowBox[{"(", 2 {& e0 n& }, V# ]4 R
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
- ^; I. ~6 q' q8 m' n     SuperscriptBox[
+ ?2 t; R! b* g% n% J9 m- k      RowBox[{"(", 1 z, w( m1 ?6 c7 O5 E7 u- ^
       RowBox[{9 _/ V2 g6 q; l) }% Y
        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", ! G2 L! O; n2 b0 l1 I2 K
     SuperscriptBox[4 E4 U9 f( m4 ?2 _
      RowBox[{"(", ( I# A+ A5 D( D7 W* x. t" s
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
( a$ g- t! ?, ~  Q. z    ")"}]}]]], "Output",* _/ X: F  H% `! s$ x/ G& W, o7 `
CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9, $ s/ d, s5 v, s7 y& y. {" w
  3.5779607413955193`*^9, 3.578012205484375*^9}]
3 M  P/ j" a$ i3 ~2 I  A7 e, n}, Open  ]],
' W; g8 T1 ~' m4 l( Z
. W* T8 c5 n3 K7 b2 z) sCell[CellGroupData[{
: n2 ^! O- V" @  T) t' e7 n* ^9 k& k
7 V7 m" r- T$ T2 l! w2 a# w8 _Cell[BoxData[/ X& ?$ F2 y4 A& t! ?
RowBox[{"C3", "=", "Ca"}]], "Input",! Z9 g3 J' O# m# ?
CellChangeTimes->{3.57792064125*^9}],% E1 r$ B, _* r+ f. Y6 Y
1 n( l& a- ^; N% n
Cell[BoxData[
" }. }2 V- c3 M" t( ]! k' t" N7 g RowBox[{"{",
7 O2 r% R; X3 R0 a" x$ h0 D$ i  RowBox[{
$ C" \7 B& ?* \  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
2 b6 L: U" p: x   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}], 9 m/ o2 @" N3 B, h
  "}"}]], "Output",
0 A5 U( q4 f9 x CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
$ u1 B0 e3 P- k" M0 p1 Z% N% U  3.5779607642027593`*^9, 3.5780122103125*^9}]
5 f" c7 b2 D$ c5 ~  `}, Open  ]],: n9 I! b2 c6 z/ |
& G* K( b: J3 ?
Cell[CellGroupData[{2 Q3 R9 i. t4 t5 j3 U% B

+ |* H& Y0 u' wCell[BoxData[+ B$ i6 b4 _( {
RowBox[{"u3", "=", 9 T: r, h& x7 l/ R- k. e
  RowBox[{. u' [* v& J( W% `& f9 e# m
   RowBox[{"Exp", "[",
2 B% T6 M9 M  f6 A& z5 I: q% M    RowBox[{
1 \9 }% v( Z5 D; t% x1 o; Z     RowBox[{3 `0 J. i3 ^4 |" J/ x
      RowBox[{"-",
' s% s! W0 d8 B! J! B0 p- T2 \0 d$ h       RowBox[{
" l+ {3 g8 F2 }/ ^' z. e+ J, L        RowBox[{"(",
: ?+ ?+ R0 z' \         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 2 ]- c. U, X- d7 u4 s/ v
        RowBox[{"(", % X! U  j) c0 S+ d* H& m8 u
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
/ Q" ]& _5 O5 m     "]"}], "/.", "DeltaX"}]}]], "Input",& V5 r4 `, X! y
CellChangeTimes->{3.57792064921875*^9}],4 w( k* [' N# J7 f3 a
" g6 l" g% O1 }$ I
Cell[BoxData[& Z& T1 e! {* J4 T. B. S3 a7 q: L' L
SuperscriptBox["\[ExponentialE]",
; ]( m: @7 H7 s% `) p1 ]  RowBox[{"3.141592653589793`", " ",
$ W+ @/ e* f* ^* v   RowBox[{"(",
! Y6 @7 g* o! O. i& o    RowBox[{
4 A" d' `1 h7 t. C$ I! ~" k     RowBox[{"-", 0 I( L+ S/ j  S) g2 M# {
      SuperscriptBox[' _0 N! W3 o7 q( E# y
       RowBox[{"(", & n1 I& k, P$ T) c9 a1 c! `. q5 o
        RowBox[{
# f9 W$ O4 w( a* }: A1 a" V         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
# \& c/ q! n5 S6 p- l1 m" N* l     SuperscriptBox[3 V, M# A1 W8 c4 w2 Y) `
      RowBox[{"(", 7 `- I( y5 B% F* e0 ]( q2 `
       RowBox[{8 B4 z, A# g/ G4 \: M: U: n( M
        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
+ u  ?( @3 e: T( W) e# J' Y/ m6 v* A     SuperscriptBox[
* l! x! O7 f+ [( d" s      RowBox[{"(", - C5 o3 q& Z' e" d0 e( B" V$ r8 }% ^
       RowBox[{
7 C8 D/ w" a; D+ f* X; D9 g: p* a        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", ' f/ j4 {. O  f1 D+ v; F
     SuperscriptBox[. j% P- d/ w( w; @$ Q
      RowBox[{"(",
8 Q- D1 C5 |" w* o; q3 _& b       RowBox[{
9 t  |4 G1 L. q! E0 J4 t        RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", 5 y4 B( p$ M: o, G
     SuperscriptBox[
6 z9 t9 {3 S) @% n7 `" n7 A7 h/ N      RowBox[{"(",
: }" r0 B+ d4 ?1 @* J& Y       RowBox[{
8 N% H5 a$ `. T        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
1 s& E+ f- u3 m9 x+ H6 E" |     SuperscriptBox[  y: u& h5 w, y5 t
      RowBox[{"(",
. q% L% Z5 Q; ]9 {9 r       RowBox[{
$ h# I7 W9 v* s" K0 w! _4 L        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", 4 d* }7 l0 n- T5 G" n* n2 s
     SuperscriptBox[% J( y3 Z) ~5 X+ r) R/ {
      RowBox[{"(", , l/ t$ n- {5 `- u" X" ^2 n
       RowBox[{
4 C* ]5 R! f1 j4 Y% F4 Z        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
+ s! G) C. [  |7 ^     SuperscriptBox[" C8 l4 y( O) B! P0 B7 I
      RowBox[{"(",
+ Y, `' \% a5 b& K1 D% p       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
8 z2 m! U) @: ?2 V/ Q1 O$ W5 Z+ V     SuperscriptBox[
3 q! G  [: z/ [5 V9 N' ~      RowBox[{"(", ! p- k' I1 @& X4 x8 O4 L  c- r
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
  S" s5 v) B+ \1 P1 K    ")"}]}]]], "Output",
; U0 s; r1 T/ P# x9 V CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
( l7 @1 `# D; H% v( l/ Y  z+ B  3.5779607654819613`*^9, 3.578012211515625*^9}]
* L8 s# j9 N3 k. S2 C}, Open  ]],
+ U/ \# E8 \* s& d% Y( s. s0 r" D" t+ y" V" i+ n* T) ^2 B
Cell[CellGroupData[{
- t. ^6 y' L3 R- b6 ^/ S
/ }+ C: u* E9 ?+ N' aCell[BoxData[
3 ?  B& Q+ C" w- d6 F& [# | RowBox[{"C4", "=", "Ca"}]], "Input",
9 W/ L! b6 g" @7 J CellChangeTimes->{3.5779207559375*^9}],
$ u: N0 ?4 [2 \* _. N7 g9 r
' v5 g( M/ @5 z' ~/ `# {# p1 wCell[BoxData[
. m& w4 \  b1 u# l1 q9 Z RowBox[{"{",
( J# R1 O7 s* V; s  RowBox[{, T$ q0 N6 Z: [. S1 x( ?9 \4 s
  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", 8 u$ M9 K/ d. a/ B* r% |0 x* K
   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], & O- m/ k, |) {' L  k+ m
  "}"}]], "Output",( H" s4 _9 L& I$ G8 O8 `
CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
( \9 i8 Q# c. T7 J& B% i  3.5779607861363974`*^9, 3.578012216171875*^9}]
' n, L( q% H; C0 r% R6 n" |}, Open  ]],5 v  }2 Z1 G  f/ ^4 ]) `
3 w& L$ }. {5 l0 o
Cell[CellGroupData[{1 h8 Q; m2 A. Q& y2 p7 _+ m. U# O
+ w- i  {7 \4 \2 V3 y8 x
Cell[BoxData[
/ C+ k' K6 v% u% F RowBox[{"u4", "=", 4 H: j# C: R+ O* @
  RowBox[{
  T- V1 R1 X6 O/ s7 T   RowBox[{"Exp", "[",
; r3 d# P1 w8 V: {+ t& ~, U    RowBox[{6 o9 v- T. d, W9 Y  j: U5 I% G; j& K
     RowBox[{
# L0 {# y" f# ]7 I# v# y' J, k      RowBox[{"-", 3 E2 S( q6 \; |% K4 j3 e0 e
       RowBox[{" o3 O. M5 t) V0 R) j  e: Q
        RowBox[{"(",
. S+ V1 B- j% d! F+ U. g         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", " Q6 H9 T+ O& a. ]2 v
        RowBox[{"(", 0 v+ x# e! A0 V; k* s
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],$ |! v4 Q( E, ^# A" O; Z
     "]"}], "/.", "DeltaX"}]}]], "Input",
' J2 z7 ?* Y3 U5 ~4 c  L( l CellChangeTimes->{3.57792076325*^9}],
0 A' c0 e4 z# i# \8 X
" y6 n/ r, K' j3 n$ B  N! aCell[BoxData[% q3 b3 U6 w/ T& K2 l+ t( v9 u; q
SuperscriptBox["\[ExponentialE]",
& s: ]' v0 u9 N5 Z9 d% l! ~  RowBox[{"3.141592653589793`", " ", 7 G/ R) M5 A1 P; }" a
   RowBox[{"(", 8 G  B3 P9 k" o3 B% ]! y. h
    RowBox[{9 L. A1 T. K" V- H8 B
     RowBox[{"-", * V0 Y: {( R; l- K" Q' Q
      SuperscriptBox[
0 J/ y+ L. m. F# t7 T* E; G8 ~       RowBox[{"(", $ D9 H) Y& l0 d% }6 |, |
        RowBox[{6 h/ f: a& R6 b! T  D3 U8 l( m/ Z
         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
) I4 T. V; O' _' ~& ?& ]     SuperscriptBox[. ?# F$ {. O# _" H& W: G4 a7 a$ j
      RowBox[{"(",
4 P9 I5 B/ Y9 u9 S3 x8 B       RowBox[{
! e2 A1 J" o2 z( k        RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", : \+ D$ }! w6 K# \  ?0 d
     SuperscriptBox[
' C" n. V* m3 [$ C+ _# o5 f      RowBox[{"(", 9 t* W) q1 P3 ?  x
       RowBox[{
, Y+ Q3 z) s2 u        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
& t# K  j" U! `0 H- }     SuperscriptBox[
$ q, H: L- Q6 }      RowBox[{"(", * ?$ u4 m1 ]( a3 o3 F, d# w
       RowBox[{  f( C& s( k- j8 @1 w1 i# s' \
        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", ( l, i, B7 }. n6 F4 d) T( z0 e& ^2 v
     SuperscriptBox[
9 t" F( r4 H' g! F2 k      RowBox[{"(", 4 `; b; {% `* W8 A" ?
       RowBox[{
8 P( s$ ^9 }$ {' V, H) Z& D        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", / _6 @& i- i% {. P, L
     SuperscriptBox[) O6 A2 T2 b. _
      RowBox[{"(", 5 {( T0 Q1 f' M/ f' j% Z+ f
       RowBox[{
2 U, d+ O+ V3 ?        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
1 M% _3 ^* Q) M- ^     SuperscriptBox[" P4 `2 g) u! M
      RowBox[{"(", 9 A' [% T& b( T8 }: d' ~, V; |
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
$ ~- F2 P8 k& S6 R9 o( [& N     SuperscriptBox[
. M. J( k  ~$ m( _      RowBox[{"(", . N4 ^4 W; n0 @6 j" @) m$ y" v
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
9 ~- k; O3 ^: ~' e/ d% i     SuperscriptBox[" {; P+ V: Q8 A+ S+ {  X0 |. a' E
      RowBox[{"(",
7 ~4 f; w+ t0 J' s& G( ~' P* n       RowBox[{9 t; T6 ^: k8 F5 I! ?
        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
( S/ Q2 e. _0 h1 ~    ")"}]}]]], "Output",
6 z& \, |, o% }- {- x6 M: @ CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9, ! Z1 A- m4 \2 ]) O/ Z) G* S# W0 H
  3.5779607873531995`*^9, 3.5780122169375*^9}]" e+ O: z, {5 S8 Z6 u/ n& X$ o
}, Open  ]],
; I- m! D( A, s. e4 z
- m% W$ o- B* R( ?+ w( S' x+ ^Cell[CellGroupData[{
' W) k( ^7 g0 R, E) d5 a! n
. X7 n% }! w% q" ]* @Cell[BoxData[, O, S) o  e! u  C# Z9 j! D
RowBox[{"C5", "=", "Ca"}]], "Input",
; s: ~) d, e3 y; J. u CellChangeTimes->{3.577920860671875*^9}],. P/ M+ a/ U+ W. w6 q* K, W. q' g

9 w2 w; S, Y* ?4 I" ~Cell[BoxData[
! D- m/ K4 p+ x" U' ^* J! z RowBox[{"{", * @, R: y' b! h/ C
  RowBox[{, I1 V* x; H: B' K
  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
1 l' j( V$ n1 S' D   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
+ C% T5 |8 r" S" S  "}"}]], "Output",# G2 n4 e2 ]" ?- b+ l
CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9, 7 R9 i; w- N7 E; V6 P/ v2 I: ], U
  3.5779608137328453`*^9, 3.5780122209375*^9}]
& Q+ I; `+ B% G; d! U}, Open  ]],) D) n9 i9 e  U0 p$ i* e/ q

2 T: p/ P# u# X  u5 M8 r" M. j- BCell[CellGroupData[{
* k( r2 M0 d  S7 F
1 k, v+ }& ]' i; I$ wCell[BoxData[& k/ E  w3 K* F$ G. r' R
RowBox[{"u5", "=",
- V- K* _! m4 \! [0 H! b% `  RowBox[{
2 q* S5 Y0 w! T. E1 ]0 S5 n  Y   RowBox[{"Exp", "[",
5 c! M$ T" V7 }    RowBox[{, }6 R& h0 B$ a9 Q+ R
     RowBox[{/ f1 P  ]0 Z1 I; |, C, i
      RowBox[{"-", % }  w0 F' j; _" l
       RowBox[{1 }; o& h  Q( z3 @9 V7 O9 }
        RowBox[{"(",
3 E$ _+ I0 L3 ?: i3 ?: h( q         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 9 w+ V  I- D" g. ^% r% z1 p
        RowBox[{"(",
) Z& H" n; g! \( G/ H1 }0 s         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],# C2 p. q1 _5 j. s
     "]"}], "/.", "DeltaX"}]}]], "Input",
: c& H- D9 `8 a2 _ CellChangeTimes->{3.577920869375*^9}],
1 R! o  w( ^5 G3 T( s+ q' J3 k
6 M! j; p3 v4 _9 D0 \& ^/ i" pCell[BoxData[
3 q- Z1 `: `  ]. S SuperscriptBox["\[ExponentialE]", # O( q. d5 ]0 X
  RowBox[{"3.141592653589793`", " ",
( _* l5 q9 |; Z3 \   RowBox[{"(",
- s9 u( h0 m" |  o3 f' e8 J1 G/ l! C    RowBox[{$ K9 q' d) H) E7 Q0 {( j4 C4 A1 E/ J
     RowBox[{"-",
" d6 ^/ Y* N+ [$ e      SuperscriptBox[. b! o% [, d; v1 f  L; z
       RowBox[{"(", ' m, B$ M, V8 x* Z8 t
        RowBox[{& }- K" S& d: J! Z/ s
         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
) o3 {3 b5 S. S1 `     SuperscriptBox[
  i6 W% ]4 P- G9 I      RowBox[{"(", : A9 W/ U- a, |9 V' [! v* }% v
       RowBox[{5 a/ a+ y& I- T; W) r2 W
        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
/ q3 C' D/ |' L' c/ K7 j# @9 M* C     SuperscriptBox[
4 Z9 {" }, h4 l" I7 c+ h$ i      RowBox[{"(",
5 {* o+ H4 G/ Z2 |" C+ u       RowBox[{8 H9 v1 q' {( \) B# T; a
        RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
0 |* m: [. t0 z$ j( T8 o     SuperscriptBox[: w% C8 S- L. k8 o8 j9 L
      RowBox[{"(",
5 k9 ^% q9 p7 e1 l, ^% N       RowBox[{
/ S. t! i; U) V9 {        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
% A9 u: l# B" t  X' S7 x     SuperscriptBox[, [# e" e2 P: B0 R$ c3 I% y
      RowBox[{"(",
7 I& ]) b5 k+ `0 d7 k3 j       RowBox[{
5 A% U! W& E, {3 S3 ]        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
* u$ D" ?' i1 Y  [# Y$ b7 c( G     SuperscriptBox[
! o4 C6 w* d  u* t8 s      RowBox[{"(", ( ]3 ]* j+ A% P  l
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", , S# G2 W! O" _) b
     SuperscriptBox[/ S: A& Q- t+ h* a, k+ |4 C- \
      RowBox[{"(",
8 x1 n/ i& j0 l+ K       RowBox[{3 U' ~  P! U. _4 K; j
        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", . j5 Q" q2 y- m5 v/ ], d
     SuperscriptBox[
2 f6 I5 }) V' m9 h1 ?. j1 h      RowBox[{"(", ) q$ b1 G7 W3 B0 ^  `
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
% n6 W; t4 f! q& g     SuperscriptBox[
3 f) @- p; R; i+ J      RowBox[{"(",
( W0 ]& c9 u: j% A2 v* v       RowBox[{9 _9 E+ s$ Z/ V
        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], $ x& z0 w1 |# l% J# y
    ")"}]}]]], "Output",$ W% J$ j! O$ }9 b0 ]; E  ^; {
CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
. m, y2 k: R; [1 Q. ^2 o9 Y) A2 {+ E  3.577960815043248*^9, 3.578012221953125*^9}]
; H1 U$ F; F9 T& T}, Open  ]],
9 ]/ l* i8 {! {/ {; _0 e( a; h" a# ]! ?
Cell[CellGroupData[{
- b$ j/ s8 ^' W( f5 a3 V* L( F. |; I# P& R' N( y$ d- {
Cell[BoxData[( x& ~- J# e# {! q* }( F+ U4 d
RowBox[{"C6", "=", "Ca"}]], "Input",
3 c2 g% f' x! J" I1 B CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
! L& l2 B' k2 N6 u6 p) ~/ [$ E$ t- {6 W  z
Cell[BoxData[
5 ~9 x/ K" ~( i* S7 O RowBox[{"{", + g7 z5 o% D; p# D9 `" h
  RowBox[{
' M* w" C( O0 |! ]& A  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
5 u3 p5 ]% h/ E! p: e   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
+ \% N2 P2 m- i   "0.494866`"}], "}"}]], "Output",7 w2 n. C( U' S) b" Y
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,
2 X3 p( c9 Q, i; x   3.5779608373044868`*^9, 3.578012227359375*^9}]
) ^4 N7 ~$ R) Y) y}, Open  ]],7 y/ v6 \  y6 x- ~
7 c$ w- e, `9 l- F5 I2 q
Cell[CellGroupData[{
1 s+ ?! n, s( O
/ s0 Q4 W( W3 h" P& B6 RCell[BoxData[
+ g9 h. c0 X; o2 Z! R+ a9 t& f RowBox[{"u6", "=",
/ ~( i6 J7 ^; |/ z! G& U: A  RowBox[{4 t: Q1 `/ t% X6 L
   RowBox[{"Exp", "[",
- S# ~4 {$ d1 ~: J5 s    RowBox[{/ X% h: T4 b/ [# I4 D# V( t6 E5 W
     RowBox[{' r8 C: q: L  ~  f  H1 K7 J
      RowBox[{"-",
8 V) i* h% k) L/ g3 N; F3 E       RowBox[{# u5 h# t! z- G0 H* Y/ L
        RowBox[{"(", * w' O$ F5 B% e, q7 X2 D6 P
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 @; N0 L) w' [& \' J6 ~, v- j
        RowBox[{"(", 5 V, ~. @/ I( R0 O/ F
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
7 K0 ^2 J* ]) N* c     "]"}], "/.", "DeltaX"}]}]], "Input"," S6 h9 b1 J1 f8 {4 M3 v
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
& g) @& T/ ?# l2 V# g, V" |/ v% C! j- g# x7 y$ N
Cell[BoxData[
" X' c, K' z& F SuperscriptBox["\[ExponentialE]",
4 P2 ^' i. n8 K( i6 F  RowBox[{"3.141592653589793`", " ",
- a. w, m7 o% k; o3 C   RowBox[{"(",
: k/ J) u8 P; w  ~/ H    RowBox[{
8 `7 ^8 \. L# z- h! x     RowBox[{"-", $ r1 [  E& z& H- q0 m( E8 x( U+ A
      SuperscriptBox[7 c2 R/ m) x. w5 f
       RowBox[{"(", 0 K- _4 ^/ B% S
        RowBox[{
" E  \0 w" e; H" s' _         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 R9 k) ^1 w9 D# Z' a& o$ _8 F8 B, T
     SuperscriptBox[
9 G7 d# _0 H; m/ R      RowBox[{"(", / O# S* Y; M9 U7 H9 f
       RowBox[{
  s2 f, u5 q( E        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
' x3 Z" f) E# f$ g& ]6 G     SuperscriptBox[8 a4 f* P/ p" w/ W, S2 p* l
      RowBox[{"(", ; ]( H/ \: `. I0 H8 B8 m
       RowBox[{
4 c  V  O  g+ E; F- f9 A: U        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
) {' o, l8 i4 {8 B- x9 Y/ k: [3 Y     SuperscriptBox[! l3 X& j; j$ r, B. ^5 `" J3 j
      RowBox[{"(",
2 R# ?8 x0 A" _; F" Z  q       RowBox[{
# m% p$ _. a" s3 d- K        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
8 ^( ~2 v" U% {3 X- ?     SuperscriptBox[+ g  d5 F( i1 Z7 G/ m9 Y% |- P
      RowBox[{"(", 6 T$ B9 T% b9 ^
       RowBox[{
2 S) m8 I6 I. K        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", ! w, q9 ^) x' f# p2 F6 ^9 I
     SuperscriptBox[; K" E1 D! n' ?9 o7 j+ o' v) j4 |2 n
      RowBox[{"(",
3 C* F. S8 e$ D1 \# a1 G$ F* v       RowBox[{
; b3 @; Z; o6 _- g8 D% W        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", ( \- z5 `; V- T! y# H7 g/ k
     SuperscriptBox[  t" V# w, N& E" ^% g
      RowBox[{"(",
1 a% e. ?8 m, U1 I/ o: `       RowBox[{
  n4 Z3 s. u8 w) i+ T7 q+ @9 t        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
# J, Z% g" }' F     SuperscriptBox[3 s* C2 Q; b. O6 D3 y' J
      RowBox[{"(",
! n. p5 q/ d/ V$ H       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 2 T9 g% i/ |. m' P! i" v6 \' M
     SuperscriptBox[( F! r3 ~, @# D3 }) z& R
      RowBox[{"(",
, S4 S' X- ~7 j# ^       RowBox[{
3 F6 `7 }+ u9 k5 j6 K4 ?: g        RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ! v! I% ?7 ~: T
    ")"}]}]]], "Output",; y" p; u/ M5 N1 V
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, - Y  }. o5 r5 ^
  3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
) K7 U7 P. U, ?6 m& O0 v}, Open  ]],
; j. |9 T6 f& y, X9 |2 j9 X# a! }; F: X- O% ~* Z
Cell[CellGroupData[{
' i1 @/ l: ^8 Q: V' v$ q7 X0 o! c. x
Cell[BoxData[
. V+ s5 m2 O' J3 D1 |" U RowBox[{"C7", "=", "Ca"}]], "Input",0 u' Q9 F" ~8 p
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
0 a/ V. I; I  z4 ^* ?  3.577921316125*^9}],# P* I; i4 e! {( U

* d$ V! W! Q" G# T6 dCell[BoxData[; G1 a% e9 i3 |) G9 C& f$ J* S
RowBox[{"{",
+ n/ B# X1 f# B" U  RowBox[{% k7 r3 ]% m1 N" V8 n9 r; Y
  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
8 ]3 W: B3 O$ w/ o7 ?0 @   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
' `6 J5 ~% k8 A+ X2 n" P  "}"}]], "Output",) w2 {3 |% D! H4 |! l& H; |! [
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
9 g) b" i, v$ u9 p9 D  V  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]$ @: ?1 d/ e: J  G
}, Open  ]],
; q5 R: F) `% I7 c  n2 U/ {6 X$ H, Q7 e' d4 f
Cell[CellGroupData[{
! w: _% o+ [( ~1 c. |$ \
) `; V+ T+ c7 I( q/ ZCell[BoxData[
8 X2 x5 |1 V7 S; F/ Q RowBox[{"u7", "=", 0 X& J* V6 R/ m7 p
  RowBox[{
" h1 }5 g, m* A4 [   RowBox[{"Exp", "[",
" @, h+ e; R( M# g  E    RowBox[{0 M, \+ I4 B/ k
     RowBox[{
% {0 |+ R9 R0 @; n: _! Q      RowBox[{"-", , g7 V& c8 G+ W' ?
       RowBox[{
2 L: X6 t. ^8 h$ m        RowBox[{"(",
/ T+ v) w6 ~: a& G, d         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ' q4 c( Y: y# u6 B6 Y
        RowBox[{"(", ( z0 Q" Z: X( T% B( j+ I3 U
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
3 s4 a% Z8 f! C7 s3 \8 `  d     "]"}], "/.", "DeltaX"}]}]], "Input",
! }/ m6 r" E1 e, g& p6 r CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
& Z# \& k( ~! v- M5 l& R; R. T5 Z5 j  3.57792132028125*^9}],
# B  J4 G7 I; n# T* ?2 M; ^+ M( e* S$ {% Q
Cell[BoxData[
  w. ~2 [+ y+ e) t) ~ SuperscriptBox["\[ExponentialE]",
" Q% |# n$ R: r; t2 V9 `& Z  RowBox[{"3.141592653589793`", " ",
! Q" ]2 ?7 l3 Z% ~   RowBox[{"(", 7 _8 g( {; `2 g  O
    RowBox[{
4 N4 M' O6 J" p) l     RowBox[{"-",
" F' m' o7 g- d      SuperscriptBox[$ @7 |) u6 F1 `0 F, O5 h) h
       RowBox[{"(",
& U) K2 @% j- q$ ?* A! s6 y        RowBox[{1 Z# x; g- H$ X0 U$ K$ p" I
         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", " N" `4 Q* s, |  l
     SuperscriptBox[
' p8 Z" [( Q0 H5 i: F      RowBox[{"(",
) R- _, Y, ?. K4 o! p) n8 T$ V9 }2 h       RowBox[{
2 g" I/ E3 Q2 P& B, V7 L        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
8 w( ^2 f5 f; n3 q$ R1 N- C     SuperscriptBox[
8 y' t  S' t( `. |, k$ M% i      RowBox[{"(", & Z/ ^: [$ W, f/ v' a# g% l3 ]
       RowBox[{
- n! T0 v, H- ~- f& R& g* T) |; T        RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
; f$ E* I$ u7 A3 V     SuperscriptBox[3 Q$ W; k4 g( X4 i% E3 ^3 ]: J+ z+ y
      RowBox[{"(",
/ ?; F! E3 w( M# X       RowBox[{
3 o; L/ l$ ], p4 `4 ?$ c        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", . d5 o8 L4 L" [; f) W& P6 ]) g
     SuperscriptBox[
) `# U7 a! e% l% [* r( e- W' C/ X      RowBox[{"(", $ t& t) T; ^! ?" ~6 H5 C
       RowBox[{
0 J( f3 B) _7 F        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-", 4 c8 y3 W. o+ S( N
     SuperscriptBox[3 a! j9 k2 U9 b$ A
      RowBox[{"(", 5 S$ P+ K) Q, L3 u5 {1 e
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
% q" I' H* L0 K5 a! Z+ L3 o2 S     SuperscriptBox[. G& `7 _5 g6 F, v
      RowBox[{"(", . x, k- Q6 r# x( ]( F
       RowBox[{+ R/ U0 ~( Q, E2 l: q/ P+ q  C
        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", * Q- H; [3 B4 G" @* K8 i
     SuperscriptBox[
; O4 ?; I9 L5 ^. i( x% N0 D      RowBox[{"(", 0 X+ Z( }: F0 W1 U. K( p
       RowBox[{8 w" B3 s3 k& K9 ]* S2 T! M7 O
        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
& ]/ J+ Y- H" r& f; z/ `  n: |& n     SuperscriptBox[8 `$ t' m) I2 f" n: N4 t1 \
      RowBox[{"(", ) y% ]8 K; X* P; r. H2 H
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
2 C) c5 y# w. k# g# z6 f    ")"}]}]]], "Output",! X" G1 y) ~4 P
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
' i0 b1 d2 n% l% ^  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
! K& H, G! C- |3 Q" G$ P  3.578012251359375*^9}]4 l3 I2 f% ?9 V) `; C  c% d! C: J
}, Open  ]],
9 j, i/ w7 a+ f1 A: j5 j% c( V. r0 I; R0 N3 H
Cell[CellGroupData[{7 ^# V# |9 m  c
/ s  X6 o7 t. l( [9 y0 d7 E
Cell[BoxData[1 I3 {5 V2 ?, p1 x
RowBox[{"C8", "=", "Ca"}]], "Input",! ?& |) G5 H% x- N
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 7 s0 \& t- r( S: G) W  m! L; ?" a$ S
  3.577921316125*^9, 3.57792141421875*^9}],+ N- i% i" _$ q/ p
9 l9 g/ F$ E( h* y, Q
Cell[BoxData[* r( U4 d( @& x
RowBox[{"{",
" N" L6 F# B, l5 h1 C0 ^( v9 ]" N& _  RowBox[{
  U5 K1 W7 \* f6 m5 E  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", / Y5 ?0 B3 K4 b" i/ ~  O
   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}], + L$ G9 G7 ?6 ~' {8 V
  "}"}]], "Output",
8 V& _. [4 W! e: E! O2 H% W6 F8 d CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 4 c0 Y2 `! |3 V, N/ M" r' d% M% N/ Q9 G
  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
8 P* r8 P0 u4 w  3.578012260515625*^9}]' U7 a7 Z) n: i! [! `
}, Open  ]],6 y: Y, k2 v2 X8 f" e% Z/ J9 I
( D% v- b3 W4 i( o* O
Cell[CellGroupData[{2 S+ p6 r, S: \; ]" h
! `3 x. h* m4 A+ d* [& Y$ J
Cell[BoxData[4 x* H' F& W! r* {
RowBox[{"u8", "=",
; b$ c# z, B$ g  RowBox[{) W) e9 v7 E4 }4 u  W* c
   RowBox[{"Exp", "[",
+ a4 b: [' e" w: p9 k; U+ V3 X, [    RowBox[{
% B" t' ^* x3 u3 `     RowBox[{
6 G! _( Z/ B* q; m      RowBox[{"-",
4 h8 \* l+ H# A- O       RowBox[{, `# p+ `/ H9 ?. s
        RowBox[{"(",
% j( D% H6 q; H' y$ I         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
; k8 i1 c9 c" q4 l, U2 ^+ q        RowBox[{"(",
1 }+ k# d4 D9 @: A2 |         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
( V% a' ^2 w! c4 D1 R$ r6 g9 N     "]"}], "/.", "DeltaX"}]}]], "Input",
3 k' f7 I2 l6 G. S3 P CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
7 K5 X4 f( d' F( U  3.57792132028125*^9, 3.577921416921875*^9}],
+ G8 `) z4 r! ~/ ~# K  \' J9 m2 |4 Y4 v6 V0 v+ e) O
Cell[BoxData[- T1 ?7 q9 Z3 l1 c9 j7 h
SuperscriptBox["\[ExponentialE]",
" g+ K$ K5 t/ i/ ^9 M  RowBox[{"3.141592653589793`", " ",
& \5 j8 k# W& l4 o0 s1 d+ n/ J   RowBox[{"(", 2 r4 x8 {/ s9 ~" f4 R+ e
    RowBox[{
  B* P( Y2 I# y$ X% ]     RowBox[{"-", ' t4 U9 f5 j6 |4 J# l1 |
      SuperscriptBox[2 X+ A! l" v0 t( j5 h& R" T
       RowBox[{"(",
& j& q0 z6 k7 y& @: E5 o- ~        RowBox[{5 p$ x3 O  o7 V$ e7 E4 c* W
         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
2 U' ]9 q& }6 v5 L     SuperscriptBox[% J: g1 t. h, t, n4 H
      RowBox[{"(", % a. ^3 i9 x5 c' R% A
       RowBox[{
' O. `1 T0 F# ^' I        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", ! q' j" [$ r: c' d6 u/ h
     SuperscriptBox[. F: i4 T8 }, w3 z
      RowBox[{"(",
" T+ V) r1 b0 p$ |  W$ ~: ~       RowBox[{+ |" E5 n8 T6 D0 w% x% b- m
        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", + N$ I" ~% Y0 W1 v3 Z* e
     SuperscriptBox[5 g8 q7 E1 H/ ^# L
      RowBox[{"(", 6 W3 @; n. v9 N% Y
       RowBox[{
9 m+ Q) B, I. q7 N8 n1 ~8 S9 W        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
5 I/ @. k0 L6 g  U1 ^( Y     SuperscriptBox[: X) K1 [: s) Q. u* Y
      RowBox[{"(",
2 A; _% E) l7 x) m+ Q% ]       RowBox[{
  H& k5 ^3 }) D5 C; V2 A3 E7 r        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", # O2 `8 r6 `: g: `
     SuperscriptBox[$ Q6 T% ]. d7 O! B( Z, ^; a! ]
      RowBox[{"(", + r  Y5 e( B2 _# b
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
; J) i) P1 O  [; U! s' t. D) ]& C" h     SuperscriptBox[* c- e5 H' _$ b
      RowBox[{"(", 2 B- t0 \7 X. t2 E3 @& D
       RowBox[{
: n7 ?( i% s3 |- |+ A: \( l7 s        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
7 K1 j( a0 @  ^! U     SuperscriptBox[  ]( N1 X" P8 ~$ \6 S4 T& G- `* [
      RowBox[{"(",
2 Q& X; w: Q( |       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
; o. B) q1 e) w1 {5 j8 V: M) f& F     SuperscriptBox[# |  @6 p  O' `) l+ ^# l9 a
      RowBox[{"(",
$ f! O, F. S" T/ q# _  m3 x7 c" P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
4 ?$ V: `, ]1 d, m4 Z+ Q    ")"}]}]]], "Output",
" S/ ^2 i0 R2 o+ L" V4 [7 T7 R CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
6 h+ m: _; `- K5 T" v% v! Y; S  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
1 Q0 n4 Q4 o) Q: s  d6 K6 [( ^  3.5779608945565863`*^9, 3.57801226165625*^9}]
9 F5 J9 ^# T! W% {/ ]}, Open  ]],
# Y) e, T  Z( I% _5 f. k; c. L5 M- {
6 B, ^6 v; g: B" F" a3 nCell[CellGroupData[{& q7 z3 l0 Z) W8 K6 Q$ M/ @
! F, K+ g3 y0 R9 i" X  n- U  |4 r. j
Cell[BoxData[
4 H3 s4 ~1 x( S5 W$ R7 O RowBox[{"C9", "=", "Ca"}]], "Input",
7 {1 N% W* w  y5 k7 A CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 5 t2 j$ s2 {4 O* w
  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],: k9 h. O; P7 r& q

) n' t) H& q: t% V5 s+ f( U; ICell[BoxData[1 n4 x; ]8 Q0 Q0 ~/ S% s
RowBox[{"{", 5 h  |0 v) n% g: f0 y- Z6 T
  RowBox[{
% P& C2 O$ Z# R3 F, Z  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
4 f. {' ]! l' L5 {  L, |   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], # v' J' A5 h9 y
  "}"}]], "Output",1 E& K0 k; P$ J" K: z
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, & U2 k' G; ?* Y% C! e
  3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
5 C8 o; B) U+ W0 w0 ~, [  3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, ; v6 c" X8 W$ i2 a5 ~' B  T" E4 y
  3.578012268234375*^9}]- i% m( T5 F( e( m
}, Open  ]],
4 p+ c1 j- v$ G" `5 i2 \1 O/ j0 E
  J1 O) j& C. Q. r2 E/ zCell[CellGroupData[{/ n+ |: o* N  x( m, r, }  h1 L; O

  L3 |% @/ E' @1 b; K8 FCell[BoxData[
: q, S/ Q6 D! V" P RowBox[{"u9", "=", 1 z* H# Q+ N. B
  RowBox[{
- S3 x' h9 N; l) E/ t" k   RowBox[{"Exp", "[", 2 q5 n) U" |& y
    RowBox[{
! f& h' P+ _+ r- T     RowBox[{
" P3 m& l3 Q( H' e      RowBox[{"-",
; G# ]3 N8 \! g, p       RowBox[{
4 n" g* G6 X; J2 h* {        RowBox[{"(",
7 q  a, e6 T# J1 E* m9 W3 Q! D6 R         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", * y, s: B7 U0 s7 D- {
        RowBox[{"(",
8 k/ t9 C8 ]/ R7 z1 z4 ?" g1 r         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],  S8 c6 C& n  k- I4 T2 s8 |0 Z0 N
     "]"}], "/.", "DeltaX"}]}]], "Input",% ^, e% n* P" m  @& J& F; w, D
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
$ D) Q  Z- G3 \2 h7 D  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],) F; j4 O# Y7 M, P4 l# q9 ~9 K

+ @- i1 k; \9 s7 ]5 z# UCell[BoxData[
& X! u9 Z8 z2 z' E9 N+ }6 o SuperscriptBox["\[ExponentialE]",
5 _% r1 }+ l& S/ c# ?  RowBox[{"3.141592653589793`", " ", $ I5 k' z7 ~2 _. r: K7 t
   RowBox[{"(", ' x) }' d2 ?1 h" M! I* v' u% L
    RowBox[{
$ O! S* C1 v. ^) }5 Q) P' l     RowBox[{"-", ) \9 T( R5 c; W1 R7 P
      SuperscriptBox[& ~! V- l7 w$ ?
       RowBox[{"(", 5 _# b- S7 _& M
        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", ) g" ]" ]$ B/ x7 p9 J8 M
     SuperscriptBox[* J( U0 U& L  L" U( ^* J
      RowBox[{"(",
: B3 S, P) i; D! g) M/ g7 ~       RowBox[{
5 F$ c& \$ B7 S" i: |        RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
. {7 f2 ?! w6 U     SuperscriptBox[
- L& D! }# L* S( x7 p' w8 N& M      RowBox[{"(", % C( D7 b; h' t" p
       RowBox[{) }0 i1 f. I5 t4 H$ V( @
        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
' D9 n1 ^# N0 m. X; f; ]     SuperscriptBox[
, @  r( F- D0 B      RowBox[{"(",
4 @2 V. [/ T( n; F       RowBox[{# f5 T) {$ }( P( L) ]" w- H
        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
( D0 k2 [6 B9 T4 c& B( \) D1 a, x     SuperscriptBox[
# W$ \+ S, l  Y0 Z( Y' x4 x1 g      RowBox[{"(", 4 ~/ G, \( s8 ^: y; X0 e5 c2 T, c
       RowBox[{! ?; f: e) d5 E* o1 U2 t
        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
6 g3 N" ^0 @9 F2 z9 a& x     SuperscriptBox[  f) t& w  H: r5 V
      RowBox[{"(", $ T6 B6 t! _" O$ K
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", / G. G+ M, B/ a* |* v6 I: @
     SuperscriptBox[) L0 K7 o# q! r' v: a0 y# W
      RowBox[{"(",
0 P9 H! O# D/ g# p+ s8 v- `" a       RowBox[{
- _0 d& P% G, X1 A8 x  B        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
! }% u6 y8 p4 q1 m' g5 [     SuperscriptBox[
; s% ]' Q' Y; U% J6 M      RowBox[{"(", 9 d' L7 i5 j# `: a
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", + W  l8 k9 ?1 m% k1 ~
     SuperscriptBox[' J; X. h5 R: \% X% {
      RowBox[{"(", 2 E! y% v$ _* x) |1 s& z7 F
       RowBox[{
, d! o' L* [( A1 S6 p        RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
2 r# H7 r: n- x    ")"}]}]]], "Output",
' {7 v, i! o2 r1 k7 t5 | CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, ( V( p7 K- }0 \* m% M
  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9, & |1 T8 Q3 A) l( i& w
  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
+ d; m1 G4 M+ Y7 m3 r- o! T" ]: l  3.577961530421959*^9, 3.578012269125*^9}]
/ t2 j, S- R5 z+ ]}, Open  ]],
! \# a* @! s5 A
) I2 [7 l- X! {$ x# Y8 C. `Cell[CellGroupData[{
% Q2 ^' w( Y  J6 U* b
, Z  T4 X. t. NCell[BoxData[{
( c0 u9 J4 {+ R1 ~) ^ RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]", $ B( |+ ~" t- A) e1 l, s
RowBox[{"u10", "=", ' D+ O, |  C% }/ d5 |; R
  RowBox[{7 p0 O; H% P/ k* m
   RowBox[{"Exp", "[", # ^0 c5 J8 q" v$ D* }; a
    RowBox[{) X% s7 `: {" L9 P
     RowBox[{
- {- F" S4 d$ ]! i& E      RowBox[{"-",
# e+ H1 s, b% |4 N4 J       RowBox[{
" `: ^  m5 T6 E        RowBox[{"(", 8 _+ T, c, ^9 S! s$ K
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", * K, [* N! F+ V% S3 t2 k1 Y3 N! I5 X
        RowBox[{"(",
# n% @  ?  }( i$ v" k9 C5 ^; C+ p2 n         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
5 M5 V% \* m' p! A! n9 U     "]"}], "/.", "DeltaX"}]}]}], "Input",
& E' z* ?; Y5 k5 \( O& e) G9 y CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
5 U& W  o0 {# o' \
  _0 j# ^. s0 ~" LCell[BoxData[
0 z5 [# D: N6 U  K* y) w0 b RowBox[{"{", " |  H- E# j: T0 u/ I3 h
  RowBox[{3 d/ g7 i/ S0 r1 f, _% G: W
  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
, i+ n! ?5 Z3 N- A0 P2 w   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
% @5 z: R5 _/ G' ~7 g2 A  C CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],5 B. p$ ]$ t3 H" Y

6 Q+ W- y6 P7 oCell[BoxData[6 A0 l: ~$ L  r2 U4 ]" ~
SuperscriptBox["\[ExponentialE]",
  J* ^) e# ~" K, n8 H) Z" n) m  RowBox[{"3.141592653589793`", " ",
& p" A5 i" [4 Z1 E% N$ t7 Q   RowBox[{"(", & x& @8 ~: `7 p' O7 S1 ~" n
    RowBox[{, m' S, M! I+ J8 Q
     RowBox[{"-",
' B! t! b9 m5 U$ A$ M6 N$ C* l      SuperscriptBox[, }9 Y2 b$ u& J
       RowBox[{"(",
1 _3 S" _- ^3 q* ^9 [% a6 W! [0 {: w        RowBox[{$ o4 z8 t+ r0 h  G1 l
         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 r2 N) z3 M8 I/ C0 z
     SuperscriptBox[
& `( Z0 H5 F+ O" W! o      RowBox[{"(", * \  c5 \/ o6 k# h8 S6 _/ Z& g
       RowBox[{! f3 Z, V# z5 v- {% j1 Y
        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", 2 \! h  m* S8 Y9 h/ a& c0 W
     SuperscriptBox[
! }) L- W. o" {/ E/ Q      RowBox[{"(",
7 P2 r- N  Y' |( V# t4 W! |9 t       RowBox[{
5 U8 k6 k  o; u8 ^% p/ {& N        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
8 I4 U" R9 H/ ?& ^     SuperscriptBox[/ B" W  a% S6 R( r5 _
      RowBox[{"(", 9 Y* j3 O: a" K/ B: a# ~
       RowBox[{
# _# J7 J/ n; e0 }        RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
# L- ^# D  P; N3 O  G     SuperscriptBox[' }$ q3 ?$ ?. \9 w: Q5 B7 ?
      RowBox[{"(",
0 z0 o( H* p4 t4 u, ]& U       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", ) l- s  B$ h# R9 E
     SuperscriptBox[
2 _1 [. q9 W: U; M2 f      RowBox[{"(", 8 P$ s0 Z# F/ u1 }. n
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", - P! I7 I) |" M. ]/ Z
     SuperscriptBox[4 I  u! z2 b* H/ R1 R# N, D3 n
      RowBox[{"(",
% A$ }& |, e  O, s& b       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
: Y# K% \6 f# O( g- l4 i     SuperscriptBox[+ l! s  ~- Q4 ]5 b
      RowBox[{"(",
5 K4 ]4 m3 R% G; V; W2 ~3 j0 h       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
  x8 H$ A5 }1 q2 W- ~0 T     SuperscriptBox[& z; y5 v/ U8 ?1 z9 O! ^
      RowBox[{"(", 0 B+ {* }3 K! K  i$ n7 h# B+ v
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], , [2 Q' Q( B: \
    ")"}]}]]], "Output",
; A  }5 ~; [! s! ~ CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
: H, Y( K! T2 |" n' `}, Open  ]],/ ~, y- {. I$ g- e8 b
* b9 f$ z7 p) |. |: S& x
Cell[CellGroupData[{1 V- V3 _+ O; S1 b

( v% ~- @3 c$ \% r& h5 cCell[BoxData[{
, \' a# g2 ~9 r1 f) K& \+ m RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", 8 f/ T: p9 v  i. Q' c
RowBox[{"u11", "=", ( ?( z2 t; P* H: N' h+ `: j1 g3 }
  RowBox[{1 P9 a* C3 ]( |3 B- t3 j7 X
   RowBox[{"Exp", "[", 8 u" q3 M' J) t" P0 r8 h3 r6 A
    RowBox[{
2 p. m; J' R- K" p, D6 h# i     RowBox[{/ H- G6 r1 ?/ ~4 s# w/ u
      RowBox[{"-", . j5 \) o# w6 f& x! t
       RowBox[{) {0 F9 b8 a8 ^! y
        RowBox[{"(", ( A9 j3 [0 C  \% z1 ?0 ?. Z( j3 X; ~
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", % t' o9 V7 E! H, p+ ^7 @
        RowBox[{"(", + j; U% i; w6 E, J' E# r
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
9 G" s9 S$ @' R& T9 s9 k" L( u( Z     "]"}], "/.", "DeltaX"}]}]}], "Input",
, i6 z) E' d! T, o CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {0 I4 C+ t( O9 Z( Y8 L: c
  3.57796154237158*^9, 3.5779615434011817`*^9}}],
. ?& u& o! h3 n2 n4 o6 e4 |% d9 o- y0 V% @% y' N4 p, u' L
Cell[BoxData[
- s  ~9 ~, u' q: D1 c1 ? RowBox[{"{", 8 ?2 ?2 g0 X6 @
  RowBox[{
" P  o0 r6 q3 k' K  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
6 ~8 j, j/ |) E' n   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 7 m( D, a' I9 B7 q6 ]
  "}"}]], "Output",8 X3 P9 o& K7 J: y) x* U
CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, 9 [( Y. `8 I+ s7 }
  3.57801228203125*^9}],  }2 ]2 J" v+ {

, F* v& ?; Z3 B7 ^- ECell[BoxData[
. S, |# d* b9 s2 o0 n SuperscriptBox["\[ExponentialE]", ( `- {5 }2 T7 I1 v! H* k
  RowBox[{"3.141592653589793`", " ",
; D! y- I* V2 T1 i0 U6 m( H# I   RowBox[{"(",
7 G9 ^" ]7 d1 i0 R+ U. {( r    RowBox[{
1 e5 K9 x% Q( |+ z, E0 `! V4 N0 U     RowBox[{"-",
; f+ e; g: [+ i7 u; f0 z: z$ M      SuperscriptBox[5 h5 u7 b+ Z" D
       RowBox[{"(", % d1 q( u) Q% }# Z/ j4 s
        RowBox[{! D+ G8 U4 f: W" D5 p6 b+ P
         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
* ?# f, e+ i+ y8 }% F# I     SuperscriptBox[
( G! L$ d7 B) E# p" @2 K      RowBox[{"(", 5 {: i, ]' F% d" u: v  F
       RowBox[{
7 U8 _; {$ U1 V, e. ], M2 C5 k        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
% ?, E, R) p# p     SuperscriptBox[$ a  R' v3 Y. R, }2 j% I1 s
      RowBox[{"(", / D0 s) H) z4 ~' [" s! q
       RowBox[{7 g1 b3 g# e& e  n
        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
/ L  ^4 l- _. h$ ]     SuperscriptBox[3 h) }* j# r$ i
      RowBox[{"(", ) t; o1 B& N: k* t. ^
       RowBox[{
( ~& E" z0 }4 N: g        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", ' A) U. b; a7 g( ~2 A# `3 x
     SuperscriptBox[
7 C( u$ s$ `# ^/ k) \6 H' H: L      RowBox[{"(", 2 b8 Q; b7 n+ n) }9 `, f$ J
       RowBox[{
$ D: K% L. ]0 h' {" A9 A! T: y        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", # [8 e# S  J7 b9 S: L" X
     SuperscriptBox[
& S& I) l; N* A% t6 W      RowBox[{"(", / f7 }+ D: H5 n. R% ?1 `
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 8 H& j* j' S/ S; @5 T
     SuperscriptBox[6 E8 p- }3 N" l5 E  ?8 M
      RowBox[{"(",
( X5 X! Y) ^, K: k( ?       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ' C. X% ~& d9 t
     SuperscriptBox[3 k" p1 y& {. f! T1 I1 U
      RowBox[{"(",
5 E7 C' H1 R7 |4 F5 {2 z9 x$ }       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
7 I, [5 m4 w; i! r& \  S     SuperscriptBox[; Y6 S$ b' g0 S9 S) ?  j9 T
      RowBox[{"(",
; \  S- G  }9 }2 e( }+ X9 E& H; }       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
7 e& O; L) Y2 S2 @' ]    ")"}]}]]], "Output",7 O1 r2 F3 R2 `8 S. T5 i# N4 l
CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
1 V/ ~8 D, b. b1 h/ S- G  3.57801228203125*^9}]+ [* Y7 }! T  y9 a, |# J
}, Open  ]],0 t1 U+ R( J; A2 f0 K

3 ]7 P# p! W! c! W) k- |: L0 y# J3 mCell[CellGroupData[{# I- l% s5 q& v. E# E7 P9 Q
# B4 i6 S: h! W: ?! i
Cell[BoxData[{
/ A# f. h% W) M' [+ `/ g RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
3 B1 }# Q1 v  V1 W RowBox[{"u12", "=",
% T# x3 q( K4 r. Y6 D* b  RowBox[{2 L  c" a  Z; X' C4 o) N* a5 b7 o* V
   RowBox[{"Exp", "[", 3 D- l! ]: Z) a& i- s$ ~
    RowBox[{
$ ~! j; }/ S+ M/ h& e     RowBox[{
3 _. X+ b. |2 ?9 E4 s$ N' l      RowBox[{"-",
5 D' j) e7 \$ V( ~& v       RowBox[{
( g! `3 @3 O7 y1 M+ S: k2 F. E        RowBox[{"(",
& g- ]  T. s6 [4 _/ n2 T, B         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
" T8 ~3 ~: K6 @; l% W3 G4 d        RowBox[{"(",
3 e2 M6 k# v) `9 S4 ^6 l         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
/ ^' t' G" C$ i8 ^' i* K/ _( ?     "]"}], "/.", "DeltaX"}]}]}], "Input",
" R2 f! V( |; i CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
7 m9 T0 M& p" G1 J  3.57796154237158*^9, 3.5779615576284065`*^9}}],. b2 @9 j- h! j: P# e
% B0 r; R6 g5 K) F
Cell[BoxData[
3 D  H1 B7 N: C, L% _- g3 |  F RowBox[{"{", + Y5 J8 h$ P8 r% Y. T' O1 e
  RowBox[{6 P# C1 j" V8 R, e$ R3 ^5 ~
  "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
' F0 _7 E2 G  a) s' p+ [/ h   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}], * j; U% x$ I6 j+ F; F( T4 p
  "}"}]], "Output",' ^# E' }/ c- E8 M
CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],. z  L7 X' Z8 r" O* T
1 V8 x3 D6 {: U/ m& L
Cell[BoxData[9 w, o2 t- ^1 D- |
SuperscriptBox["\[ExponentialE]",
8 I* _. m4 Q# V+ Y0 T  RowBox[{"3.141592653589793`", " ",
- N) I, G3 a6 T! Q0 K& Q   RowBox[{"(", 2 M. J. P* y) ?# W" H. Y
    RowBox[{
1 {5 m6 R$ W3 A- w$ ?6 _( s9 }     RowBox[{"-",
/ x, H* G5 k% @3 P5 y( ^( g; V      SuperscriptBox[
! i4 Q  ^" @5 i: k+ y, o7 O5 s       RowBox[{"(",
  b6 O8 N; F% J) v! K- g) l+ W        RowBox[{3 D' L" i% G8 k+ v5 U9 b; a/ E# o
         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", / g3 T0 ~1 m% n! K2 x+ q
     SuperscriptBox[/ ^( O7 R; y: X
      RowBox[{"(",
6 v% s& u5 b8 h) l4 S       RowBox[{
9 A5 }% b: c2 ^. b2 _; T+ X        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
: A+ E- b0 P+ s+ o9 `* ]/ f     SuperscriptBox[+ x6 W+ E3 l7 {) I
      RowBox[{"(",
) N! ~* p% h5 Z2 I- H       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
8 E7 F- `6 `; Q0 [5 N' Z$ j) n" V7 @- P     SuperscriptBox[
8 A# k3 V) W! s% V% \4 J      RowBox[{"(", 1 k' H/ f9 _7 X5 a- \
       RowBox[{
4 Y% W  c. m/ o1 |5 D        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", 8 l: p: L) x/ c8 _* V* f
     SuperscriptBox[
# Z" M3 a" \4 c      RowBox[{"(",
; A& f* B8 h" T0 V' _       RowBox[{
* e; X7 x, s5 @& ?9 G6 k) j        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
2 C5 M. z8 r9 v5 r' P& z% a, s     SuperscriptBox[. Q+ O1 a/ x+ e2 Q- g( T
      RowBox[{"(",
) w/ b* r* _3 E2 V       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
) q; x  w4 ?0 w! ^     SuperscriptBox[
# E1 W9 u- w1 y. {, r4 h6 f( u) d* c      RowBox[{"(",
; E# E5 {3 O5 `7 M8 x( S       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", - [% L/ y/ O$ @# t# l2 m
     SuperscriptBox[
% W; C+ x5 ^& p! O* |      RowBox[{"(",
; {# k( ^! d* F# b1 I/ i# F       RowBox[{
0 L, y4 n3 H' H* t3 {( u$ L4 H8 y        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", . E3 z% w; B) q0 O* B5 B! J* S9 z, ^
     SuperscriptBox[
. ]/ Z# f; D' _      RowBox[{"(", 0 R, L/ V' E0 N9 l
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
9 p, O$ y, B/ W; S8 r; r    ")"}]}]]], "Output",
  M. _, Z! e9 ]) B) v7 m: i3 F0 j CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]4 \4 k) N% l5 h6 Y* B. Q
}, Open  ]],1 g8 H, T  s! c" S
4 U' r; e$ S" d! I! c0 }
Cell[CellGroupData[{' f. \( ?- c( ^4 V

, p6 ]3 ~6 M3 ~' N) D. |& i' D  W. TCell[BoxData[{4 x! K/ D* [: m0 I
RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
4 M/ j* A% K5 }3 p/ h RowBox[{"u13", "=", 5 n# T0 i3 k6 c3 d2 D/ A1 z
  RowBox[{) h8 d! `0 A: k9 k1 v6 p
   RowBox[{"Exp", "[", * G" V3 v, v7 ~; ?5 e' q
    RowBox[{
6 I- q9 Z, \# G0 a# e3 g' L     RowBox[{
( R1 [( \5 z% |      RowBox[{"-", ; O' _6 o4 N1 k1 X+ x0 U' b
       RowBox[{
9 l% n, E% a2 R$ t7 {        RowBox[{"(",
& B; q" n1 g2 u, L  i         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 6 G$ B$ J; i& `1 t7 p+ ^5 A
        RowBox[{"(", 9 J" s9 ?  k1 d. @" I3 \
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
/ l0 r3 s0 l& ~+ ^  ^5 t     "]"}], "/.", "DeltaX"}]}]}], "Input",
$ w" [# z' o9 [, @2 \ CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
0 i7 |; }: D: ~/ `- V  3.57796154237158*^9, 3.5779615599684105`*^9}}],
7 U% s" K- u4 Y9 s+ a- u( a, k: p- G2 B& v& x0 w/ p! W& Z
Cell[BoxData[: M& ^9 T1 I- G9 i' k' R3 Z
RowBox[{"{", / C$ J# g/ O: y8 [' H, C
  RowBox[{
1 X% J5 j5 u2 X  \' p  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
$ C" a9 i1 y" |   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
' y6 U7 N$ s0 k- k' V# F- I/ p  "}"}]], "Output",
- k# ^* K# F7 S" @) W3 @ CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
. k" O: ^1 C4 f3 n8 a# q! N/ Q) e
! x; m7 s' x+ g& I  g. oCell[BoxData[5 ?3 P; p( j" U; X, B% l
SuperscriptBox["\[ExponentialE]", . O7 Q4 I  }3 s( |' @- c
  RowBox[{"3.141592653589793`", " ",
  a8 F# m( t$ ]/ J4 c   RowBox[{"(", ( Z- V( [; _. x# m3 @8 T
    RowBox[{4 [# T8 l, q8 u
     RowBox[{"-", 4 L7 M' _& ^7 G" R
      SuperscriptBox[
( [% s& a7 X3 z+ [       RowBox[{"(",
( [3 {8 Q& U9 j, q/ {( Y1 {        RowBox[{
5 p5 I7 p& R: N+ [8 j         RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", + G: H4 R/ L8 L$ h( {
     SuperscriptBox[
& X& c5 Q4 K# g8 t- C      RowBox[{"(", ) K4 b# w  \8 @0 T$ U* C' B
       RowBox[{. O2 j" e% i2 s" N  E
        RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", 2 w1 k' s8 K; I1 K. J1 \
     SuperscriptBox[
7 h) O% Z9 L) \! q      RowBox[{"(",
* F! S, w. i8 ~& Y       RowBox[{
8 O' m8 R) x: u" h7 ^5 M        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
+ ~4 Q  I3 S. u! q5 Z- l* h7 O     SuperscriptBox[# n+ I( d4 ?0 x* I: @1 `# a
      RowBox[{"(", 3 @1 E4 R' @; c$ b9 M
       RowBox[{
7 m2 W, ?& [( f        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
6 \1 `. p- W' O3 F5 j$ f7 R     SuperscriptBox[
6 @2 v4 _- o+ G$ d" x; A8 h; z9 K      RowBox[{"(", 2 O2 W6 S; |' N5 i# j4 c: S2 M1 O
       RowBox[{* Y, a9 Q7 d' {# z" s
        RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", 3 B' _5 Z/ ~' c/ O, g4 O
     SuperscriptBox[
* _! ]& U3 E, B      RowBox[{"(", $ R* U8 X% k$ \2 s
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", " a7 _* o3 ?2 J( b! q* L! j: ^* M
     SuperscriptBox[3 Y' S: B& Q% N& u% ^, n) t
      RowBox[{"(",
" I" q4 V1 P  l1 O/ b& E  c       RowBox[{' N4 s; `4 c: O+ b: I
        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
, ~( E. {2 G% X; n6 |% L( d2 T, l; f     SuperscriptBox[
- u' q4 `+ v# I" u      RowBox[{"(", 4 R& E$ O, v2 F1 F' E1 C' Y
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", & @0 M9 D  k4 j( q  T
     SuperscriptBox[( Z/ P2 Z% p- O, i0 F) E
      RowBox[{"(",
2 J4 W' J1 h( u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], & ?1 c! x/ C9 |1 r8 E' C% I
    ")"}]}]]], "Output",! ~# v" X- Y- N3 h
CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]9 a9 J9 L# y8 f- S
}, Open  ]],
  M2 ^9 G4 e: L: Q) F" ^; q/ ?9 V! t* \
Cell[CellGroupData[{
  v- ?+ _9 e: f3 N7 e! N8 ~, m2 w: L* J5 T
Cell[BoxData[{
$ p  b$ T1 g$ Y; t& b6 | RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
) q$ s3 K6 x8 o1 P RowBox[{"u14", "=",
) n8 A7 Z# F; {+ W' m) Y  RowBox[{
; w& p+ i' {9 R* N4 j   RowBox[{"Exp", "[", + N- i, L/ F! t) M+ U2 w6 B
    RowBox[{  O# ?1 k4 O* E
     RowBox[{7 O9 }9 h$ I" _* }
      RowBox[{"-", + @& T% a4 f) H! L, ?) |
       RowBox[{
! m9 O( @" [' ^        RowBox[{"(",
; D$ U( n- V7 j3 u5 }' F         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ; H$ J* I, ^5 ^
        RowBox[{"(",
* }1 P, _2 G" k3 t3 h% M         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],3 C% c& e4 X0 ?) C- Z$ U  I
     "]"}], "/.", "DeltaX"}]}]}], "Input",
# @- F5 O4 S7 G CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
! }5 ?3 q+ V# V4 m1 j  3.57796154237158*^9, 3.5779615663176217`*^9}}],! [5 m* y/ q- k$ m% ?
2 i& o: u: Q! U- V; ~0 y
Cell[BoxData[
! b: I/ w( A% U0 _# a! e RowBox[{"{", 3 X# \+ k  }! I( D' k
  RowBox[{/ I+ o  E5 {9 Y3 U
  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", " a  M  H# a* l) I8 R
   "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
; @2 @- }# z* G! d) d' r- W  "}"}]], "Output",
1 D# V6 a; F& ?2 S9 f CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],# P% t- D; F& ?; ]) q- s  a

, t( b3 a$ A% F# w* RCell[BoxData[, k0 H2 w' u3 ^( N# h0 g+ H/ R, D
SuperscriptBox["\[ExponentialE]", ! f9 C0 }- B# T! Y* x
  RowBox[{"3.141592653589793`", " ",
: ^8 K, V9 X4 M4 U0 |   RowBox[{"(", ) v; R4 M/ M- B+ I: G4 {2 C( P& I
    RowBox[{  i2 j! N  R9 t8 @% D' H
     RowBox[{"-",
- h' d- C0 w  O; }7 r5 C      SuperscriptBox[
+ C9 d! n$ U. L2 d       RowBox[{"(",
2 o& }2 z5 E0 [        RowBox[{
- C5 h: N9 s5 L5 S- a         RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
* o7 X/ t2 O$ J1 r& }     SuperscriptBox[7 C  w6 W8 h' r8 Z0 f8 [; r
      RowBox[{"(",   r8 a( Z" |1 }* A! @
       RowBox[{0 g4 [" ~5 m& T4 R6 ~$ w) k
        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", " C$ U% L' T" T$ q4 `
     SuperscriptBox[
6 X' ^+ i$ A7 `# |' l4 N      RowBox[{"(",
5 L. E  Z$ ?+ @       RowBox[{
- |5 w/ N$ o2 [2 {& g        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", $ d: x2 F/ c- S8 A
     SuperscriptBox[
0 L6 P1 y' n* j& S3 b7 _      RowBox[{"(", % O6 D) X( {2 X. m* m# e
       RowBox[{; e6 f3 V; i) k6 p; Y5 [8 C
        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", $ F- z9 g4 N. |: `
     SuperscriptBox[
8 e0 K5 c$ Q3 ]7 M5 G% ]6 N      RowBox[{"(",   X) i4 o3 t* o+ s1 z
       RowBox[{
* z; D4 Y7 \7 a. _$ D* \+ L        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
4 ^: ~; V  ], I: g/ N' b7 ?1 u     SuperscriptBox[
# V% t0 h" U% i3 {; }5 H      RowBox[{"(", 3 U) [$ u$ s9 u8 @
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
4 B2 K  O( U$ O$ G, S5 b8 M- Y( k5 Y     SuperscriptBox[, e* q' ]+ G7 H
      RowBox[{"(", " x% }; z) I1 k, f0 k' e" g
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 1 R( n- d- o+ N2 E2 M0 }. O% v" S5 |
     SuperscriptBox[4 c# B' i$ L7 d' ~
      RowBox[{"(", : r- Q5 c, P& Y5 M* e% B# _0 P( \% f
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 3 H2 C1 a6 I% W( u" m9 Q
     SuperscriptBox[- Z. `8 ~$ E) G+ Z
      RowBox[{"(", ! ?: t" C: L  S$ j1 e7 P8 p- G
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], - H: Y2 Z0 d& j" A8 E# `+ i& V2 l
    ")"}]}]]], "Output",8 d* C- D+ i2 k' d) B' }2 S
CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
$ z+ l1 ^) ~# n+ L& |" Z}, Open  ]],6 A. B) ?) w. c/ e% g
  n7 B7 j! S# M8 a* ?+ o* u7 c# c7 g
Cell[CellGroupData[{
4 O1 J, `, z% u4 R: R6 `1 Y/ X) R+ k) ?# t
Cell[BoxData[{
1 E8 h8 v$ n8 ]2 D# L RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]", % J% L: E: ^; l/ L
RowBox[{"u15", "=",
2 O/ B6 I$ w; C$ K8 s% a! y  RowBox[{
" x4 ^4 V1 s) s" J, M   RowBox[{"Exp", "[", / E$ D9 E5 I5 p3 J0 U
    RowBox[{
% ~) A/ r( O6 [( U0 Y- j, q4 k     RowBox[{
6 d9 q+ P, t5 M$ m* c) E      RowBox[{"-", , d3 N, ]' \) j1 f) h( V
       RowBox[{, F2 k4 ~, T! j* r
        RowBox[{"(",
5 F0 ^% d- u7 b         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
8 A: y3 W/ ~- c8 S7 R        RowBox[{"(",
7 c4 L; k% G5 z         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
! K0 {1 ^; |2 t' r& H3 `     "]"}], "/.", "DeltaX"}]}]}], "Input",% p. A: W% }+ ?
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
4 v4 D% j$ _  w7 r! u4 V  3.57796154237158*^9, 3.57796157098203*^9}}],6 f* g3 m  @* w1 y' |  H: H- o" N
0 V) [, d/ j8 u, i6 o7 t" o& p1 a
Cell[BoxData[+ e* e6 q3 |0 C3 T3 N* x6 ]
RowBox[{"{", 6 @. c. o1 ?; X. `( }8 l
  RowBox[{
% {* Y' W5 G; [8 |( U  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", & q3 M3 K! r) \. w4 c4 C+ P
   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
8 @. t6 R* U) V1 B; D  "}"}]], "Output",
) i: {2 d4 I9 v* r( a( z: ?  W CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
+ C! N' P  Q. K& Z+ E6 h/ [  e9 r3 b! P
Cell[BoxData[
7 b' d4 \, B+ d7 a7 R! j* n7 P; ?$ I SuperscriptBox["\[ExponentialE]",
6 {- J- g7 C0 o/ A/ n4 V  RowBox[{"3.141592653589793`", " ", ( c0 ?/ h4 ^8 ^3 n
   RowBox[{"(",
% R# F) m& o5 r4 M& z" S9 y1 ~    RowBox[{% I8 S9 N' N: F6 n" ^- A- t
     RowBox[{"-",
8 \1 r7 A+ @% [& p      SuperscriptBox[
6 g* Z: s0 c% ]( h       RowBox[{"(", ' q* y' _( g3 c2 T
        RowBox[{
" `& G, T  n% ?2 H; {+ Y/ H/ @         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", % O& p& m) m8 Z, m# @: V, e
     SuperscriptBox[" F6 h2 Q$ g# Y- `9 m% N/ L
      RowBox[{"(",
. `" H8 p; m/ [9 y       RowBox[{
3 w' {4 O3 _: y( X. B8 F        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
, U; a: D: V  K& a! r% M( |, N     SuperscriptBox[
" Y) b! k5 C. ~4 b* R% P      RowBox[{"(",
! t; W1 J9 u$ V2 Y* X' V       RowBox[{+ G) k. M: r: P4 G
        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
- X4 j, [# z! _5 c7 z# {0 @     SuperscriptBox[
3 {0 s# L3 S5 Y8 G: g7 O$ u      RowBox[{"(",
0 o' U6 P; L  N       RowBox[{
9 O) U  `- e( b        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
- D8 D: P! K4 T8 ^/ J     SuperscriptBox[/ @: V3 R- G% f+ l4 z, D
      RowBox[{"(", 6 E- Q# `4 Z' q/ C1 @
       RowBox[{2 g- B3 e) d9 x8 P. b: I
        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 0 s( z+ S  ~: J6 c5 C2 ~
     SuperscriptBox[( J$ v$ T) N$ K& z
      RowBox[{"(", 3 R  _( i: \/ h/ x$ _) l# ~/ p7 m
       RowBox[{
+ U3 {8 q4 ]: f" ^. o        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", 2 Y/ E) P& K4 y9 h* j
     SuperscriptBox[7 w0 Q+ w" y) V4 ~4 U4 B* {
      RowBox[{"(",
) P# y0 l' U* ], w5 Y% r7 ~       RowBox[{8 s# j* j6 ~7 W
        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
9 z* r) u1 M! }& L( x5 M     SuperscriptBox[
! z" |, j/ E1 t- d) x3 U+ F/ P      RowBox[{"(", ! Z$ T: {2 P$ i! P
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
  }: @1 j* C# R2 C) W     SuperscriptBox[
1 T1 d; U; [) y      RowBox[{"(", 6 W& }8 e7 X- ]7 p; M$ O% U
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], % k6 D' Q% v: d/ |3 R/ y8 W
    ")"}]}]]], "Output",
5 u& O! U7 D; \5 ~+ Y# W CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]- @$ I' X+ G+ R
}, Open  ]],  t8 q( h+ _$ i
  C, n- J# c4 }) _5 O' _
Cell[BoxData[
8 f0 [$ C/ f2 K7 i! A4 U- K: h RowBox[{"For", "[",
. @4 f1 f3 t6 \4 i9 L/ w  RowBox[{* l8 m, J" R& y8 Z! ~) [
   RowBox[{"i", "=", "1"}], ",", 4 d! v4 P! X( q
   RowBox[{"i", "\[LessEqual]", "9"}], ",", 3 m# m  H9 }7 D# t  D
   RowBox[{"i", "++"}], ",", 0 j/ v2 p1 h. T5 `
   RowBox[{+ O' l# q* s; u9 P9 @$ D% w
    RowBox[{"Ca", "[",
9 n( m% H: W. X9 W& L- h     RowBox[{"[", "i", "]"}], "]"}], "=", . u4 i, o4 s% _* g+ k
    RowBox[{"CM", "[", 7 u. v0 U3 G0 \0 j5 E' A
     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
/ ^; w5 m/ Q. R& K CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],$ a- S  |$ d+ g. e& ^4 E: n9 W
" m! t5 j" }3 h: l8 L( H2 W
Cell[CellGroupData[{* R. M0 G- Y, j( {3 [* J( H

, c/ _. V4 e) ]: x# aCell[BoxData[{
0 ], s2 i6 l1 \( e7 m% J, i RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]", 6 u# z- u) j' X' C/ w6 a, m' l
RowBox[{"u16", "=", / U9 B5 w: `* P7 n# S& s) F
  RowBox[{
; E) p  B7 ]' G% R+ L   RowBox[{"Exp", "[",
/ j3 F0 R) s1 k! P) g# @    RowBox[{
8 f" T4 \" C' N' I: K     RowBox[{
& `! u4 i$ F0 R2 T4 s/ _      RowBox[{"-",
& ~5 ^! j( a5 D# r) ^! O3 V       RowBox[{9 y3 `- ^. V2 L, d! L- j% p
        RowBox[{"(",
8 B, S$ q8 R& ?) C  [3 T* X         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
7 S" F1 w( V- s" w( w: s$ a+ w        RowBox[{"(", $ E$ x9 u$ s& I2 m$ M5 |! c
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],; c% s/ M8 T- B7 C, o" o
     "]"}], "/.", "DeltaX"}]}]}], "Input",! |% e7 r- X( l' X! o
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3 v; C1 V+ w0 K) F/ a8 Q  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
! i2 |; Y4 X( t' k; Q' E. l0 ~, p  3.5779615751004367`*^9}}],! Z1 o4 @8 n! N8 o3 I  o

; k6 o. z- z+ u. c$ [: R$ E. S0 JCell[BoxData[
8 \4 ]# T1 {! [) M, m RowBox[{"{",
6 j, h1 G. X4 p2 M: D! e  RowBox[{
+ r5 X+ f( g& T, A" t4 Y, O  "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
" B3 s+ S: e6 W: a1 k  f   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
5 @+ t% \# z' q5 u3 Q! j4 V  "}"}]], "Output",
/ T" b- H) [' j5 E CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],7 x/ `' w. N5 H8 s* [, K

' e0 c- D& C0 I" m7 r# SCell[BoxData[* T( K. m0 X2 Y% y# O% h
SuperscriptBox["\[ExponentialE]",
4 R( Y2 K7 O: c4 V! L& ?  RowBox[{"3.141592653589793`", " ",
: O& Z; {6 W6 m' {3 s* W4 o$ I. ^   RowBox[{"(", 1 U5 q- h% @+ F. R
    RowBox[{
3 K: x5 H3 J0 ^* T, h' U4 ?     RowBox[{"-",
5 }: }$ y3 ^( C      SuperscriptBox[( d; n% K" ?7 K2 A; J
       RowBox[{"(", 5 p! u8 V' |  H6 l% |1 Q: Z
        RowBox[{
# `) N& d# i& c& g9 g4 M+ O) m         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", , }  h8 Q6 g8 p: \2 p
     SuperscriptBox[$ i  _5 ^: e+ m) a$ o* B: Q
      RowBox[{"(", & X3 P4 R3 u# M* N* N
       RowBox[{
9 r5 L/ P& e  K' C        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
; w" u8 x2 E! I% w* y     SuperscriptBox[
4 ]3 R5 ?+ B' H      RowBox[{"(",   E. g- \2 K8 `5 c3 u! c9 \# C
       RowBox[{1 ]' s4 [/ o# D  I/ o7 M
        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
: f8 {0 u$ K: L* C1 A     SuperscriptBox[
/ y7 E8 W' J! y      RowBox[{"(",
$ j, q' i7 ^6 |9 W4 N       RowBox[{; n& N+ P( E3 o  C6 F+ v: d: _3 g
        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
9 e4 Q1 O0 G* }/ G  ^2 s     SuperscriptBox[
- @/ b. t4 Q* @! e' {      RowBox[{"(",
$ V, G/ Q5 U7 W2 V; g! f3 A% K       RowBox[{+ [# u. J1 Q6 a+ L6 |6 H$ ?! n4 |
        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", # F, F) t. N( B( F% ]' {. F- T5 W
     SuperscriptBox[2 H1 O- i7 Z# z$ Q5 P, N- l7 M
      RowBox[{"(",
. V' f1 e1 q8 M. C7 C# ]       RowBox[{
' N& r0 w7 r4 i$ n- Z2 V! g        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", , X% z  c- v6 b6 N/ ~# {& U; ~( G
     SuperscriptBox[
" G4 N) x  {2 @- r, ^      RowBox[{"(",
7 e! C7 m8 s- S: F       RowBox[{
  }0 S/ t2 s9 V4 g! M        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
- }$ X; s, i# `% j     SuperscriptBox[
+ A# o- r3 A( M+ `0 i# Q      RowBox[{"(", / J) z1 d+ H% ]. D! D4 E& o# v( w
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
8 H$ m" t* R: e# ~" N( Y     SuperscriptBox[
" i. L8 R9 W) v. s2 S, {/ T      RowBox[{"(", 5 Q- ~  {) F3 W) r( r0 Y' h# h% F
       RowBox[{7 u0 {0 z( W# y) `$ O
        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output"," u5 z2 \" @2 D. Q" V
CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
' `) l  i  P+ Z2 x3 N$ G}, Open  ]],) }% j4 ]3 {: H* h

2 K8 ?* r; W) I5 y/ X' VCell[CellGroupData[{+ [# n1 z' ?: h$ l

( D+ z. U: G7 e% N3 Z# V0 ICell[BoxData[{
' y2 P, G$ @$ Z+ u2 |4 @) ^ RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", 9 x! Y3 A% W+ H# i3 S7 P4 L
RowBox[{"u17", "=", ( m3 m+ e" H& t- G/ I) }8 u" `
  RowBox[{
' @+ o9 ^" T3 G( d1 k/ }1 U   RowBox[{"Exp", "[",
' j& s, v/ C5 h9 ^* [    RowBox[{
! @* z8 I- ?/ c" ~% L     RowBox[{7 [9 [" N, E$ s1 s# Z  m. Y
      RowBox[{"-",
# B' l, U, V' b& w% v       RowBox[{
! K$ O- L. O. i0 `) G+ [        RowBox[{"(", * |1 [( w+ U' W
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 9 `5 m) D# G/ \3 N( f
        RowBox[{"(", ; o: n% V8 H0 y
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],- Z& f2 r; ~% ]2 T
     "]"}], "/.", "DeltaX"}]}]}], "Input",/ f3 R, Y3 D$ a! N* S4 ~; q+ f
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {2 ^5 Y' @( t* _8 t+ E5 e% ?8 D
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, # P( I6 k1 d0 E' O# l; o, D4 A
  3.577961578953644*^9}}],
$ q1 E: z$ e, h/ x4 G) M/ H' g3 ^5 ]% ]
Cell[BoxData[
! n, c2 Y% f3 ?% _" l. w8 @% r8 f RowBox[{"{",   l8 f* C  y+ O
  RowBox[{
  d3 ^; p9 H3 z* S" z3 l- u0 p  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", # R9 R; k5 [  x: E
   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], $ d5 i% Z" z9 b
  "}"}]], "Output",$ l$ r' d, F6 }; w; O- [
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],$ _1 s, H* A6 }. _

: }( R$ |2 J) i" o6 }Cell[BoxData[
0 J  V9 P7 Z6 t! R1 ` SuperscriptBox["\[ExponentialE]", . S  X: ^; }( I/ P& F+ R* R
  RowBox[{"3.141592653589793`", " ",
6 C/ t, o" C( J$ j9 L   RowBox[{"(",
/ g2 c" ]8 }. |) t' ?! L$ l9 p    RowBox[{
$ A# p& O' p9 y2 S! U% a' q5 `     RowBox[{"-", " ]( G# i; O5 k* `; V
      SuperscriptBox[
5 |& }2 m) J- d2 K       RowBox[{"(",
& m4 K: o  ~, v        RowBox[{
# |/ v' p/ ]% r6 M% S: M         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", 9 b! P- I" _1 J# @) n
     SuperscriptBox[: B, U2 k. t2 O% k* {
      RowBox[{"(", * h" W- ?/ f- g- l; \5 U  Q
       RowBox[{5 m$ y9 W/ d9 ]2 M
        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", : n% U# N3 k8 U$ K6 Y
     SuperscriptBox[
3 }. l/ H+ h& Q, w% c( Q      RowBox[{"(",
/ ^6 T$ [9 E9 V5 u& ?       RowBox[{
, Q3 f* K- Q# p7 b1 D5 u/ E        RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
& }& q. d4 x( ]- B- L* x7 W5 g8 }     SuperscriptBox[
/ [+ t# ]5 R6 u# Z+ e      RowBox[{"(", * k* `+ W9 \. ?" v+ l% K* S
       RowBox[{# K# z, {6 ^( s2 Y8 w( {
        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
+ X! C0 d/ x# c0 i$ v     SuperscriptBox[
5 I1 m9 H# z6 l4 R, c* Y      RowBox[{"(", ; g8 {+ J4 w  `  W
       RowBox[{
; r6 D$ C4 {% q+ l        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
1 e+ e& ~8 i5 X/ R' q. V     SuperscriptBox[7 w% Q* c5 ~4 t- a6 U- o1 [1 X
      RowBox[{"(", 9 o& h+ S" O( y0 Z9 X  ^
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", & c, K8 ~0 P  I
     SuperscriptBox[
* {  k& q. t; U. k$ T      RowBox[{"(",
5 E" @) y3 w; `+ f6 l, Q9 c2 d; X       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
/ T+ d  @* B+ d+ W7 H2 J6 Q* d     SuperscriptBox[
+ _1 e% ^8 H+ |+ Q      RowBox[{"(",
3 O5 K! U3 {$ n       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
( }& L1 t, t3 p* a     SuperscriptBox[. m1 I2 a- j, {7 f$ E* R. G
      RowBox[{"(", 4 e( B3 q" H9 b
       RowBox[{
/ R& x4 w' ^. j        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
& w) z+ X- j% w# C- v. @    ")"}]}]]], "Output",) r% |/ G: X) R2 g- R$ w" a: z& ]
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
/ I1 x# e( s7 g' f4 e5 ?}, Open  ]],7 ?6 h! }- m2 a( D

5 N8 W. c) Z. T; lCell[CellGroupData[{5 `9 W9 z% g1 R# P  \$ S
2 I' w0 i+ b7 R/ B' ~+ b' a- t4 }
Cell[BoxData[{( e  R# @+ i# \0 S: u) G9 b
RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",
7 P4 H7 \2 e) o8 c+ D RowBox[{"u18", "=",   m/ p1 w  T( c2 o6 v2 \! u! @
  RowBox[{
5 {# v/ v6 A9 }, p  S   RowBox[{"Exp", "[",
# @7 R9 U+ S: ~  H: w$ I    RowBox[{  g# G2 P, h2 o! W
     RowBox[{
3 P3 s" L9 a" G) E( d  r* q      RowBox[{"-",
% ?( k3 k" G! i( _; A4 U       RowBox[{% T3 C7 X; l5 r: A7 j( `0 [0 c2 p
        RowBox[{"(", ! w3 F6 r3 `6 }2 m- _) q
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", . P" @8 x$ J- t$ B
        RowBox[{"(", # g4 i( g$ E% y6 k+ k" `& o
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
% t0 {! V( _6 i9 h$ u+ K, t1 z     "]"}], "/.", "DeltaX"}]}]}], "Input",
. H! g! {2 R  t4 D2 Y CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
8 x  v2 m6 L: X; c  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
7 l$ l# i& i+ M2 r# o  3.5779615828848505`*^9}}],
+ e5 B9 M3 O2 V% M8 \. t, @" l0 `$ @; }; q2 u
Cell[BoxData[
* }1 q' v  J6 } RowBox[{"{",
# N) E$ {- K( `( z# e  u  RowBox[{+ j& ^  U7 ~! E* Y
  "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", 4 k* ?5 G- y3 J8 S' ]
   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
, Q9 a7 w, ^6 o  "}"}]], "Output",
" y8 \4 ]6 s$ z5 D, d# H CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],& @' N- [- g# a* M1 A5 w
* s: _4 ^3 I0 S' T# ]2 N1 R, M
Cell[BoxData[
& e; b6 }; T1 @% Q, \4 } SuperscriptBox["\[ExponentialE]", , v" x$ t- m, R/ S, f* y
  RowBox[{"3.141592653589793`", " ",
. P) Z2 H, G' u, R+ J0 B& u. H   RowBox[{"(",
5 H* _8 s& [" |. f6 m( o; f, O    RowBox[{* R$ D& \5 H3 X) V) ]
     RowBox[{"-",
+ r+ ]7 @# R, l; R% j- X- I      SuperscriptBox[
* e/ V2 i3 S7 S7 w. `       RowBox[{"(", ( ?( v; j3 t# _. c1 I3 {
        RowBox[{6 K- c; A1 W; u' {0 w4 q
         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
8 ~: t& V% z, o0 b     SuperscriptBox[) i( I! Y9 f. ^) u5 K
      RowBox[{"(", ' p9 Z: m. U2 J& I. k
       RowBox[{
' C7 L' o% I) K* ?6 N        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
$ K1 S; S! }! B/ H& F) G% a     SuperscriptBox[! r) }5 D% z8 a" o( s
      RowBox[{"(",
1 X. s/ k& J# B1 D+ i       RowBox[{
( c. ?; P1 m1 }- g  ?  }        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
' O! ], _! o- x     SuperscriptBox[
  {) t; ?9 `* y1 q* |& v      RowBox[{"(",
. N6 T6 ~* y7 {0 g  v2 g8 h; a2 `. X       RowBox[{
" p6 ~3 G6 a7 l) B        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", 4 [5 z% R; Z' W  o/ B; B
     SuperscriptBox[5 h" ~; k1 r; w! Y$ ]
      RowBox[{"(",
# T3 S. f; ?  W; |6 O       RowBox[{
7 P* v+ \, ?/ u+ Y6 ~4 d* o        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", & @! ^- A  o3 N" ~& j0 g
     SuperscriptBox[
) @! R6 o! }8 T" c- R      RowBox[{"(",
1 C# I+ J, P1 i$ `& D: U( L       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 8 j6 Y  j% f' m, Z; v8 x
     SuperscriptBox[
/ Z5 y* D! L. a5 ~) `# w      RowBox[{"(", 6 l7 q  X; _& X8 {7 y! \
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
5 s7 }! r3 C  j- s     SuperscriptBox[9 s3 L* {, H5 n9 S: J# D* v
      RowBox[{"(",
) V& A1 ~( }% [+ h/ b       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ) o+ f* Q5 g/ h' p5 V0 r! L9 V9 L
     SuperscriptBox[
( I' k6 g. }, l0 {8 D      RowBox[{"(", # i) c- K4 f' |  o  l. L9 J' q- L
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], % I; l0 G* S7 u( e0 ]
    ")"}]}]]], "Output",1 H$ o, y; K. e& {" a
CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]: j8 n1 `7 G. a. [: S! b6 h
}, Open  ]],5 I: t8 H. R, F- ^2 e) f. c' m
& S3 @7 @( T9 i  t
Cell[CellGroupData[{% f( B* ^% G* u! u4 {% ]( G" `
) t$ Q# T8 y2 p" c! o! v8 `7 K
Cell[BoxData[{
6 W; D6 `! E/ y! T0 e RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
9 f  Y( V  T& G( q$ x/ @/ h2 u RowBox[{"u19", "=",
& _0 l, r$ \1 h' G* y4 R! w  RowBox[{! V- q6 H0 n; g( @
   RowBox[{"Exp", "[",
% u# H; J+ m& `    RowBox[{8 D; V, {1 M, M4 p4 Y6 l9 `
     RowBox[{
3 s/ o$ N. e" O) p  \      RowBox[{"-",
2 U) q, A: j% o; ~       RowBox[{/ s' Z0 ^2 x3 g
        RowBox[{"(",
, B( F3 i, f) u         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", . P- b- C; ^/ n
        RowBox[{"(", ! S- s( [- @" o
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
$ G. m6 Y6 b% M1 u  ?6 a  T1 n     "]"}], "/.", "DeltaX"}]}]}], "Input",
7 z/ L/ \% c: q) x. A3 j0 ^ CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
+ k3 |  k& O1 o, R! Y& N& U& k  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9,
* r$ i& m2 j# k7 x1 s  3.577961588890861*^9}}],
' E1 h2 ?. F5 u% |( s) W  @9 z  Q$ J4 t
) ]/ U  B$ ~% F  u" ^* pCell[BoxData[
( B+ |( K: m" R+ y+ Z; H& B RowBox[{"{",
9 e* l& H$ G, M. J  RowBox[{
% A9 |) [9 z0 A; n% M1 J0 _/ ~: U6 {  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
9 d4 ^, R0 W5 `' O   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
" X8 O' m) j. U7 c, a7 L& x6 e) n  "}"}]], "Output",
5 v- ?2 ^4 H5 t3 X CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],% |/ [3 ?9 q: \0 l/ |; q( @
+ B( U7 t+ {6 i, U
Cell[BoxData[
5 J1 p4 y1 W, t6 }8 E SuperscriptBox["\[ExponentialE]", ! O2 a+ d, g$ K  u  _6 u
  RowBox[{"3.141592653589793`", " ",
) g% ~3 g2 l* W7 A) `) ^4 t   RowBox[{"(",
6 W* C* i1 o' K    RowBox[{& k1 l- H* B3 X# c) E% U
     RowBox[{"-", - m! v& n8 f# S) u0 }- k
      SuperscriptBox[% {; ~3 O% ?+ x' C' w9 o) z
       RowBox[{"(", . N$ ]9 Z+ A2 m( H/ N7 n! X. c, E
        RowBox[{- x* E  P% x) n$ Q
         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", # O5 G! h. ?1 u+ ]2 x* G
     SuperscriptBox[( k; ^. ?. p3 y) C  c
      RowBox[{"(",
* B- r) N) k( J       RowBox[{1 R- N% ~: h, Z; O) D
        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", 1 a4 S8 \% B" G8 d( B' `6 N
     SuperscriptBox[( D+ v) l& R  [! ?) w- Y
      RowBox[{"(", ( ^7 C4 x3 s' n- M& U% s
       RowBox[{" m. q8 O" W5 k  {( U
        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
0 Y9 ~$ w' m1 R9 g3 R" h     SuperscriptBox[! ~+ }: W/ f- }9 S* v2 k6 [
      RowBox[{"(",
9 X- ?! [) b! a6 z4 y       RowBox[{
/ w' ?+ E. r% l& l        RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
" L1 b& y6 i) S% r6 s9 _2 E& W7 r2 I     SuperscriptBox[) v5 }% q8 y4 r$ t" s3 {) h
      RowBox[{"(",
/ U7 A( [7 Q4 Z& z# L2 M       RowBox[{
0 V" e5 I1 Q+ h6 b$ x( c1 a/ K        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
2 k2 `* I. f$ |9 w: j: r     SuperscriptBox[
+ g* {9 Y4 c9 A! U      RowBox[{"(",
! k5 q0 @7 A+ N& @9 ?) N& S       RowBox[{* R+ @' |0 ]) |3 n6 _
        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
) w7 ]+ w+ i: H4 h3 A8 }# r- i: D     SuperscriptBox[* `5 I% N: i6 a$ P/ V2 w
      RowBox[{"(",
; |& a% n/ V" k6 H7 z9 J- |. c       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", - B! Q% k# c3 ~3 Z  x* B- g
     SuperscriptBox[
) x! C# g; w" g! ?      RowBox[{"(",
8 F2 p% Z+ c. ?% @( t       RowBox[{
3 ?4 @  \1 l3 L' X' J# ?        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
( Q; A5 d1 ^4 o! F     SuperscriptBox[# f" r  ^# r3 j; k9 x# l
      RowBox[{"(", ! J; J' Q  q7 z
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
3 J- Z5 p% l$ w( F6 i3 W. ^    ")"}]}]]], "Output",
7 \' B$ l0 }! m0 b CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
  \- a' x. z$ E}, Open  ]],
5 }3 |- s4 ^& D! b% l& b* r6 q( j+ ~* n% b" \4 y! s, r
Cell[CellGroupData[{! {! F- U' g5 r: [1 V, G
/ J4 f& o7 _( E& q# g! h
Cell[BoxData[{' P+ L# {0 o  V" i& D0 f
RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", 2 w+ g2 u' Y3 a/ {: Q: a( G3 D( Q
RowBox[{"u20", "=", 5 H9 Q  E' W. s# {' [9 d
  RowBox[{& y& L! G6 Z# R6 d  `4 ^! O9 Z, u. a
   RowBox[{"Exp", "[",
8 p; _% J( J2 a! Z  c) |, ]    RowBox[{
( U$ \2 \: N: S     RowBox[{
' @3 d7 x8 T& H  J: A      RowBox[{"-", , u7 u4 H5 O2 {* q: Y2 A
       RowBox[{
9 i5 l$ c/ ]! D: a" O  D: |4 W) [. m% b        RowBox[{"(", # ^7 d) h3 _* i/ L
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
# l& m9 L. R4 u  n        RowBox[{"(",
% B  ^) l% S% Z: m' {         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
4 P9 I! k  K/ j  i     "]"}], "/.", "DeltaX"}]}]}], "Input",+ d2 m0 Y2 U) p
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
1 q: l9 y2 H& q6 s  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
) [' B& J7 [8 u, Z7 _) w  3.57796159382047*^9}}],
9 [5 V$ ^; t' d+ h; f6 L) v0 S) b- d/ h$ f
Cell[BoxData[+ N% r( f3 _7 f: \1 ^) d" H/ }$ F
RowBox[{"{",
7 f8 s: `$ J# F1 H/ e  RowBox[{4 }- @& E# u  K3 l& D6 ]! @! @3 z4 u
  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", 7 e) Y  g/ }8 g
   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
) J/ j# Q) c$ ]# w9 n! o  "}"}]], "Output",9 Z* J8 s8 H0 i0 y) j
CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
; L) ~0 l' q! o# U( t* a0 Z
' y" T8 r+ [! r, [Cell[BoxData[
5 U0 w% j9 y( ?% i. \ SuperscriptBox["\[ExponentialE]",
1 p7 c5 i) d8 G) G  ^1 [  RowBox[{"3.141592653589793`", " ",
$ q- T1 z4 T$ V8 h% A$ g   RowBox[{"(", , n, K5 P9 |1 V9 m( g; M& |
    RowBox[{
; V( a4 J  o0 j- c( A8 u  w     RowBox[{"-", . R! w9 `3 r0 w' K( |
      SuperscriptBox[0 e1 P- H8 c/ l1 L0 f
       RowBox[{"(", % D, O! k6 P5 A, r* T5 C
        RowBox[{
: `  M( Z+ G  L$ q* }* C         RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
& f3 r( J  T1 q4 S5 K5 ^( e     SuperscriptBox[
8 Z, h0 T: J; H& Y4 H      RowBox[{"(",
- W/ `$ k  Q: h; y+ a, f2 `' S% s       RowBox[{
% H, G; Y: A, V' G3 U9 {; N: z        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", 3 I7 k# K* ]5 T" b
     SuperscriptBox[4 m  g1 @) u, R, U' i5 l
      RowBox[{"(",
+ }7 Z7 w- N7 L8 U5 u       RowBox[{3 C! a, e$ b- C6 @
        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
# }8 T8 ?9 x0 t     SuperscriptBox[& `" c* y2 d$ V* m8 F0 k' \
      RowBox[{"(",
) d6 }/ B7 y" y& @$ T5 e, \8 U       RowBox[{/ q9 w, h( m% G* N9 K! }
        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", ; v) ~6 L! c& e  c9 ~9 N1 b
     SuperscriptBox[
; |3 ]5 M! W- _      RowBox[{"(", 1 E/ q% D9 D& K* q$ J$ B0 q: U1 u& Y
       RowBox[{
$ d. L" S3 s. M2 ^" Z8 Q2 c        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", : s6 m% K% a  }0 Y) C. b- ?
     SuperscriptBox[
" x2 |" v8 z$ P      RowBox[{"(", , u/ o3 q% a% Y3 ?* Y+ p
       RowBox[{; H9 V4 \: v: R# W
        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
4 m: Q4 K( e; X) e. l7 U9 z     SuperscriptBox[, Q: e4 n8 ^2 f3 K
      RowBox[{"(",
- I# W9 Q% w/ B5 B0 D- A6 }       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", * V4 r( z% M5 u% h7 f
     SuperscriptBox[
* G' o! M0 s5 O$ C) N; B      RowBox[{"(",
: g# K7 k. ?, b$ r       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 3 Q. b3 w$ d& S- i' r0 P
     SuperscriptBox[2 i2 h6 I( [2 N/ v# m1 M* Y+ c, v
      RowBox[{"(", 0 ], L! J1 I. Y6 A5 k
       RowBox[{
6 h* _: Y  [. m4 Z% A5 E        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
, @' P" a: J4 X8 W: S% [  J    ")"}]}]]], "Output",2 M: a6 \/ F9 a2 \+ S
CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]+ I7 G# v1 x) _( `$ ?9 p/ O, |, i/ _
}, Open  ]],0 N" O! g% ]5 [
' R8 N- a  {8 c
Cell[CellGroupData[{. S( l6 L# x: z$ Q+ C2 O
4 K6 N, T2 H( E. K
Cell[BoxData[{4 a2 K( B" \1 F$ G: L) V
RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
8 n2 d& E5 N7 a; ]( f' d RowBox[{"u21", "=", 1 w# F8 T  H$ d, ~
  RowBox[{& J7 n/ p' u3 t7 K  S( }# |
   RowBox[{"Exp", "[", $ e6 m* J& R* g; z: {" ^
    RowBox[{
" A  S! b# q4 K5 G: N) Q     RowBox[{
. ^) X4 g+ N$ U) _, ?3 s* l      RowBox[{"-", ( P! R: p+ N" p3 ~; g4 ^: U! C
       RowBox[{
. l5 e# P" ]5 K# O$ ?4 C. h* |        RowBox[{"(",
" h% r9 T5 M5 l         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 1 a; `3 r$ ~% L* h
        RowBox[{"(", * J" `/ H" x! O+ T, ]  b3 P
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
/ V6 Z5 W- Z$ B! n4 v" o     "]"}], "/.", "DeltaX"}]}]}], "Input",
5 H, M7 H7 l$ @8 h5 A CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {1 a: u3 Z4 x# }4 d
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9, 8 z) W8 T  q* a4 H8 a: h1 c
  3.5779615991556787`*^9}}],
, J3 H: h: }  ?) K# ^8 }$ T
* u2 Z6 m8 ~- K0 K5 E: c$ nCell[BoxData[# y# Q+ V5 z! L& r, z- D7 D' J  M
RowBox[{"{",
2 n9 Z+ F, L: V) f  RowBox[{
* `1 W; b$ k% \8 k& M& p" @! {  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",   P6 @! a- n% i4 K  h# I/ Y
   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
1 [' J0 Q8 S$ R, |6 [  "}"}]], "Output",  z* M" A. f0 g- |+ _
CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],+ l$ p1 K" j+ L7 q' x

1 S% g' Q, k7 m$ G$ H! S9 LCell[BoxData[3 H2 O: [1 f/ D' @/ L' c1 D
SuperscriptBox["\[ExponentialE]", # l) C$ Y: D+ l# |0 i6 K
  RowBox[{"3.141592653589793`", " ",
+ `) d! V- d, [* S) g7 B: T: F, Q% q% Z! y   RowBox[{"(", # {( |6 @* y  ~/ J  T
    RowBox[{" j: C6 U5 m/ l: @; M
     RowBox[{"-",
" S8 R3 o* V; ]# K) n' H      SuperscriptBox[
3 ~* f$ l. a+ ^3 F       RowBox[{"(",
9 p0 G- t. h8 X8 y        RowBox[{
! M. _1 A$ B" [/ c2 \         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
6 Z; @' h1 Z' s9 t7 a, K; D     SuperscriptBox[
1 x4 j% w. L5 t$ `. e$ C4 W6 R      RowBox[{"(", ( @8 K" g5 P( [- [& f
       RowBox[{
8 H6 i3 b8 r* H& b8 T- n* }- k        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", - ~3 o) M8 P/ U
     SuperscriptBox[: I$ a9 f/ h1 k& |2 ^& x' A
      RowBox[{"(",
0 a' P. N: N, a4 ^; D0 n       RowBox[{' ?- c, |! B2 o+ ~) u
        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", % b1 v5 v/ C# E; B# M, w# k- q, _
     SuperscriptBox[
  J7 z3 w9 g! j5 T1 Q& M; y      RowBox[{"(",
% d$ ^& [8 S4 V8 g+ N2 B/ Q, Y       RowBox[{
, a7 Z( a8 d9 l8 L6 F        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", 4 D) x+ f: C3 @7 b
     SuperscriptBox[0 ^) t, H* _* @3 E+ c
      RowBox[{"(",
: |  e' g' w+ y; T       RowBox[{
' F6 D: o( U5 u, `8 |        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
: F# l$ i1 r3 ?2 I2 D! h     SuperscriptBox[
# r5 E& B- g6 m7 i& h      RowBox[{"(", / w: l. `6 k" W: C6 v) j5 z
       RowBox[{
8 _/ j: C: R0 u( F1 x! ?0 u        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", 7 y0 G: U5 A& F5 O7 X
     SuperscriptBox[2 W3 Q8 k, y% a/ y; P  W% G8 e
      RowBox[{"(", 4 R; D1 u9 C. D1 ~& d5 O8 H
       RowBox[{
0 k% \# i9 O2 @1 M) n2 z        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
+ @# M9 n3 x3 E3 o8 b3 {     SuperscriptBox[
, U' ?& z& p3 U9 X; L2 T      RowBox[{"(", ( k$ a- w% J0 w) v3 Y& r% i/ e
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
  n# n, i2 Y3 Z! L& Q) K1 e8 H* V: u( z     SuperscriptBox[
8 ]  D) h1 |  G4 L. C# X2 D0 s9 |      RowBox[{"(",
& x1 D- u& b( R" ^       RowBox[{6 r" D! b2 N7 K# Y7 U, R
        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], : L4 U* f( Y- `- Z8 ^. Y" Q- Q
    ")"}]}]]], "Output",
1 p7 l' N8 R1 J6 {8 \: A CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]$ r0 k3 {0 Q) Z/ x. ~# s/ U
}, Open  ]],
+ J! f4 @  R3 U3 a8 V
& H4 {3 ?1 m( U) `  _* W8 p7 LCell[BoxData["\:62df\:5408wi"], "Input",
) m2 q/ ^5 |% q  n; M CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
! i  q4 J" u& {4 u
+ i7 D/ ~( ^- p/ F/ w* wCell[CellGroupData[{
; Y2 ~; N$ ]' C8 r4 w0 [# L8 ]5 g4 @8 ^+ v2 n9 j* z+ S
Cell[BoxData[
7 c: w  d" l) E RowBox[{"y1a", "=",
! C( S1 ]1 ]7 B& L" p  RowBox[{"Table", "[", 1 Y9 O8 x: f1 \& L  w
   RowBox[{"x", ",", 8 U: H* R0 _7 ?" P
    RowBox[{"{", - a( {  x% f2 A7 I% |- ~: i: k7 G
     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
& r" R+ p) X5 Q( I4 G; _2 _ CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
. H4 |4 t* y, I9 s. G  n+ X# z4 K+ a  3.5779226649375*^9, 3.5779226810625*^9}}],( G0 Z' p+ w$ h% Z$ Z
4 g  e3 y; j9 X1 x
Cell[BoxData[8 Q7 M$ G# d" {. E+ |  r& e
RowBox[{"{",
5 e$ {$ p' _4 P2 g4 O% P  y  RowBox[{) [; o! G/ v8 o& Q: l
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 2 f2 z; F1 j) }( ^
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",& H7 ~8 _6 W( c* s* h7 S1 {
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
+ w) M% d! ~2 F4 c2 A, m4 l   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
1 R9 ?/ k- Q6 i' j/ d- `) ^   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
" f( E) y2 Y4 H- ]2 b   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", + z) h- M8 U/ G
   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
6 o$ ~0 U- i! U6 r, f" D6 E( Z" _   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", ; Q% e! _" A5 t
   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
; Z, ?7 O" b. @- a' a$ `) A  |8 z5 _" G- h  "}"}]], "Output",% k! v) _" ?  P* f3 t; t6 k: R
CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
. S0 U/ w, K; {4 P: W1 D  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
- H) h( L- a- A, J}, Open  ]],
( ]; N2 O) Y9 r% W! ^' u
! n' Z" h$ @  Z, a6 eCell[CellGroupData[{
8 K9 X- v! F  J# O( O8 _# P7 p) [% @" T, e/ E* \
Cell[BoxData[
& E8 {0 s5 E3 i# U5 U# c RowBox[{"Data", "[", 8 y* a$ H1 H( [& [, h* E
  RowBox[{"[", 0 ^' N4 D" `+ V
   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",. u" C! a" b5 J# {' u
CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
8 w$ i' c8 T" t   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
) q) Z9 D' }5 k9 `+ D2 V. G) G
' d0 _, L$ G0 S. R) Z' ]8 r" ICell[BoxData["0.899882`"], "Output",: i' @$ c" Z/ A" D: j
CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
1 b3 i9 K# W$ S- M: d   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
/ {5 |2 z. ]- m# t, {5 F   3.577961929080654*^9, 3.5780123419375*^9}]
9 u& X- E. v' u0 ?5 d  R}, Open  ]],
* x3 {! V7 [# L6 T3 Z1 W& [6 |# V0 ^8 ~7 _: G- U9 K0 P' i
Cell[BoxData[
2 \' e( n% _0 J1 D RowBox[{"For", "[",
8 L# N. p. t' ^$ @  RowBox[{- {9 N  T9 t* d  R9 F! N/ |
   RowBox[{"i", "=", "1"}], ",", % u0 m( E3 D3 ]7 D! X3 D+ Y
   RowBox[{"i", "\[LessEqual]", "60"}], ",", ; Q$ M8 Z# u/ Y
   RowBox[{"i", "++"}], ",",
- I& l3 S# M; `0 w) n3 g   RowBox[{
* p- r8 N$ v+ Y8 ]    RowBox[{"y1a", "[", 3 ]$ C/ s& t" B- c# {( \# `# e0 W
     RowBox[{"[", "i", "]"}], "]"}], "=",
) F) T, W4 X- a4 Z6 I( f    RowBox[{"Data", "[",
% Y* L- e+ y' Q/ k     RowBox[{"[",
+ d7 G0 V  ?7 {6 }% `      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
2 B& ^% _5 S5 o: Y8 L; T; | CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {$ ^+ ]1 ~; n" l1 |& r
   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
& p6 m3 M- `% D1 U. {: a5 ?  z4 `   3.577922923203125*^9}, 3.5779588839702806`*^9}],. ^! g9 a3 ?' Q' a/ A+ c0 d

4 S$ t; e" V9 |* c; ACell[CellGroupData[{) D9 I/ H6 b2 ^8 S

0 w) u" E  Z6 C& O& e' d8 L2 DCell[BoxData["y1a"], "Input",
, }) R4 }5 ?9 F9 z& W CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],
, ]+ J, j' M; }7 M, r; U" P" n& G" z8 w# ]5 w, o; Y! K) T
Cell[BoxData[
' R6 F7 M/ m- E( y0 p RowBox[{"{", 5 [% K7 O. v- Z7 ?
  RowBox[{
# O* S# ?# A" e  U" \" W5 k. H  "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",", 8 w+ A; J; u" p. ^& {: y0 ]5 |
   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",", 0 g- D) n2 t% M5 K
   "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",", 3 ^, V  o  y) n" L9 X/ b( j7 I
   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
1 i8 {, t" j7 ^  }   "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",", . C5 o$ ]0 D/ ?: g: P) M
   "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",
+ ?3 O  P, |! l" i9 L: g, g   "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
) a' e. [, L6 {0 x) q) c* r   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
4 t! K' ~$ _7 P/ p$ ]0 _   "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",",
& q5 z- v3 P* Y2 o1 e3 u5 `   "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
& [0 u% \# q  L3 p, f   "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",", ! C8 U3 T# ^  x4 Z! D* l5 M
   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
. X% i0 B8 C8 S, L( W# u" m, W; H   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",", * t: V8 c) N' R9 a- s6 E
   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",", ) H7 M, B9 F/ |( |
   "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}], 9 v+ ^  |% S* L9 h6 d8 }
  "}"}]], "Output",6 J0 N5 @/ ?% j1 N; l" [2 y6 T2 l
CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9, ( ?/ \. w' K7 y; `/ K
  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]3 y, n& R3 ?% X3 A* b2 a: R
}, Open  ]],* D  I0 e9 \$ x! j
/ l+ @; V1 w- I  I
Cell[CellGroupData[{1 C$ Y3 ?5 o: U  e, E6 q
) \% P0 X: L' N7 ]6 K/ S% G% B
Cell[BoxData[7 A) Y2 B0 v/ h$ s. y
RowBox[{"m60n21", "=", , |+ M$ N: u* ?- o3 N; f
  RowBox[{"Table", "[", 1 Y5 a: ~4 i& H4 w* ]/ [) ]
   RowBox[{7 ~3 G! B) ?& `% ^8 g
    RowBox[{"Table", "[", : W. D6 J* J( j- M1 {
     RowBox[{"y", ",",
' o. M) w1 x& j- b      RowBox[{"{", 8 Q; L/ ^7 a4 k
       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
7 I' }4 Q5 ~1 a+ k3 C) M4 G    RowBox[{"{", 8 n; r  H+ ~8 N" ^% j, _
     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
( E/ x& c! p; y& Y CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
/ ?; O# @9 M8 E+ v. [9 u  3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,
  x0 d2 w3 b# Q) F  3.5779619706547265`*^9}}],
  E& @" M, Y5 c; Z. C0 J* m
! k- m  g# K/ S8 D2 q9 ZCell[BoxData[/ X: \1 o2 t) U6 q. F) r
RowBox[{"{",
: d$ _9 Q# \2 R) a  RowBox[{6 p: Z" W* k4 Q1 b' h8 h/ n
   RowBox[{"{",
- r% x! I7 F2 x1 c% [    RowBox[{
, r! V1 P0 ]1 v) |    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 w" I" h0 a& f7 w. A1 n3 @
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
; Y0 l9 \, I- N0 f. o6 I     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
4 Z) m, F: X: a     "}"}], ",", $ \3 K+ j" b# b% U5 S& s1 X1 X
   RowBox[{"{",
+ H+ ~! q3 v1 t1 h1 f. Q    RowBox[{2 c. a  a& m) E
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
* }. c1 {, X! `5 W      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( C- |9 ^' e" ?, S7 t' Z6 [
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- G5 E% D+ a9 f- o7 z# a4 v0 u1 y     "}"}], ",",
& h! y& k  j" T5 \3 T   RowBox[{"{", : w+ V/ N1 n9 j$ d$ t: p
    RowBox[{1 L* g0 B- X4 n, Z2 L1 Q2 J* p
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: R2 z5 G9 a$ `+ z  g2 m% K      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + B3 R5 z- t% j5 u% ^0 _6 w
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
, n1 v# C4 Q5 p3 l: F7 I6 v     "}"}], ",", 5 }* x% C! {/ a- e) @# m* }
   RowBox[{"{",
+ [3 H' x+ r. n% p' y! B/ {    RowBox[{9 B7 H' L* _) Y. C9 ~  M3 E* i
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 m. ]/ s4 n; {# L' S. h      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 m0 F' X7 p- o3 T     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
7 K. g  F  D4 L/ ]' V. Z9 r. D     "}"}], ",",
: j$ s4 w  M$ H4 R/ k) w6 U5 W$ K   RowBox[{"{", * \8 S# A, E1 m7 B9 H! ]# Z; t
    RowBox[{! ~/ R& a+ v' F. O3 I+ Y
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 N$ v) e) M- a+ @/ A' t
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . g; a+ W! P5 y; J/ f9 {0 F
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ Z- Z9 i; x' [, H9 I! E- {     "}"}], ",",
* w3 a# |5 z2 ~9 O( q. R3 x   RowBox[{"{",
9 C9 e$ K; ?+ d* O$ G  r    RowBox[{: x0 X. G& Y( }$ V! J
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 E+ {0 f9 j# G7 L8 a% B      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 S5 u8 c4 `; P  D6 [- ^" m     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
2 e# {- V1 i0 @& V9 Q( b     "}"}], ",",
; S* e& @0 H+ H8 g+ F# y1 u   RowBox[{"{", 5 o1 M2 I/ X' O- L' i' y
    RowBox[{9 w9 A( O0 y1 a' y5 S4 K5 p7 k
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 N8 w. \6 p" K; \( Y- z5 k      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
9 ^* @$ V/ ]0 T, f% m8 u/ y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 C6 @+ o8 |5 w' q- b
     "}"}], ",", % p; ]; t/ {7 N: |: T5 h
   RowBox[{"{",
7 q, U/ H( E+ k! ~" y8 X' |2 l3 z    RowBox[{
' A, s6 n9 `5 b: s" m8 N3 H    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, T5 s; l1 F$ A  v; h" F      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " a3 O/ a. B  ?1 [  a; L
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
, I; l& w3 E' ?; c* ~$ z     "}"}], ",", & w0 C! W  C0 r  l' ]! R; w  d& v
   RowBox[{"{", 2 Q# T- |; C3 j# U1 z$ I
    RowBox[{
  {8 x' @* L* W! D    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
8 Q* H5 u6 Q- `+ p. m# r; t      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: `9 Y0 C3 A2 |     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 a. S$ X- L4 |+ r: B3 ?
     "}"}], ",",
5 H5 B7 @; j! e, ?   RowBox[{"{", 0 \0 f6 T; I: ~2 m& [
    RowBox[{
! v. }6 _5 H, E& }& j    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& ~* F' O$ d+ b; }  p# N; `. P
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
$ s3 {7 m" T* R, F; n" V6 i     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 R% j; [0 E8 d/ u  I3 o% K  x     "}"}], ",",
4 F5 h/ ~+ L% i5 ?  y0 u( R9 Q   RowBox[{"{",
( l- |) L! v8 e  F! k- Y# n    RowBox[{: h2 ~) S' a6 ~) ^) b. ^! W$ g# t
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
  Q; c! A  x8 y5 ]* d6 h/ H1 A* W/ i      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , n, P6 B) T; I7 c& l. f; S
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. \6 l% w8 n( G6 m* t5 ]0 h
     "}"}], ",", 4 @1 C) r# E: t" i. ?+ Y/ W' N
   RowBox[{"{", 9 T+ a& j) I' {7 L' O
    RowBox[{
$ _1 `3 M5 Z6 t0 [' o  Q' g    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 z2 W+ I" o& n6 L: n
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 p4 E  S9 `# Y( v- O) U+ k* e
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' \- m. k1 ^& @, F: R     "}"}], ",", 0 K4 A4 G! @! s- Y
   RowBox[{"{",
0 u2 z. v3 g& ]7 h% y    RowBox[{
5 g& b$ X$ ]( b& y$ k0 s    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 Y+ f; O- \  a9 n& q
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 S& U( L& X* K4 B; ]' E6 s% b3 d9 }
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 `6 H- h; }% B3 y/ ~" a: a
     "}"}], ",", 0 C( ~: f! ?6 n. N' q
   RowBox[{"{",
0 t5 K4 J- @: ]    RowBox[{' D: B. n' P# Y
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 u6 [+ Q2 J9 v2 x      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- d. N8 {; I$ S/ L; {; S2 ~; O     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
5 o7 r& e( p$ c2 z7 V     "}"}], ",",
8 t( C3 Z  Y5 T( I- I  Y   RowBox[{"{",
. g+ z2 ?7 z5 P8 q# o2 H8 o    RowBox[{4 z4 E( N/ c& ]
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 X0 T- v  X8 u" D! W" [5 N5 r      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 R2 m0 Z8 B: ^( b: m) O' u2 j     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
5 {0 \& O. k# h8 w8 }! C5 y4 H     "}"}], ",", 7 n6 O; S$ O* K7 `$ H
   RowBox[{"{", ! w8 `" G0 y) r9 O$ T
    RowBox[{
4 R8 `0 Q! z- q& h7 d3 v  l& g    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' u4 W5 |. e& ~) {5 i      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 ?6 X1 R. s1 C( ?3 d9 [* `$ A8 s
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
% F6 \1 t0 j7 ]( u- j- y+ h     "}"}], ",", + t( Y4 w5 K8 I& j" `+ J" r) S
   RowBox[{"{",
( v  ~+ m9 g$ B: Y    RowBox[{
8 j- t, o5 e' A    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
4 }1 `3 A3 R, m# L' E1 S1 g      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
# E1 n9 @4 r0 @% q* M/ V6 w, {1 c: e0 n     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. n4 q7 r8 ]0 q  S
     "}"}], ",",
0 Q7 @4 p( m9 R2 }. h   RowBox[{"{", : M3 v  y* g2 F( i
    RowBox[{
4 A/ C7 y; Q0 q    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 \7 R, T# ~) U" [9 x2 M3 q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
+ M7 |+ Z7 w; s7 `) H     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 I4 Q( K: b+ x
     "}"}], ",",
% {8 V$ R! Y% _   RowBox[{"{", 5 O: I- t" l2 z5 x0 l
    RowBox[{
1 a& q; {) s+ t" }$ K5 o' W- J+ t    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
# s+ t' U: @9 N; {+ G      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # J  c+ ^9 d4 U( g- @
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
2 v+ _1 [1 G$ _* J. X" m     "}"}], ",", 1 T0 u, u0 _8 T2 ]% W0 f
   RowBox[{"{",
3 j1 r+ k& w3 q6 |* E3 k' M    RowBox[{
$ v- K. n+ f$ r    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 W5 L& |, _; Q& j- n" v- ]
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
& w+ e9 V# x: B3 w* a& R0 ]     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: ]& o- B- M  @; _* g+ n
     "}"}], ",", ( r: V7 n  O+ Y- ]
   RowBox[{"{", ( I7 }- H# t  N! H' Z
    RowBox[{
3 }( f# }% {; c! i/ M    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
* |! e1 u6 \# d- `      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ [. n% F7 D( [3 n; \' \0 B4 a9 c
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; {  K% m0 V3 d- Q2 T# l     "}"}], ",", 5 c1 y- ~  \( v8 K% _* B. _( a
   RowBox[{"{", ' c% I$ `4 F$ t/ G8 c  x
    RowBox[{
3 L! ]7 r' Q9 c. P& S1 x0 \    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 C5 Y7 \6 J9 ]$ T% v      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( I9 R2 X' J0 P
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. k6 H1 q8 u' b/ h( H8 T
     "}"}], ",", % }! C2 F* l7 q7 G5 w. u
   RowBox[{"{",
: F: E3 S1 f8 q: s    RowBox[{
8 U) [$ d6 ^1 H- s) r, l    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 j0 T3 ^! j6 j4 F7 |
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 J8 j  X7 N' p. T- C, q
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
, T* R. F: _0 U- h4 Q* E4 W5 D' @     "}"}], ",",
* \& t% a) a; c% A+ f   RowBox[{"{",   Z$ W8 J% Y: n: L( {, a
    RowBox[{: O+ @$ D- t7 B, u: ~- a
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% r( [$ X- V  C0 e! T4 N! ?      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 m* {; D! H7 e$ x0 p6 P6 I
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
5 a4 m2 D8 S( b7 k: |5 R# I2 F     "}"}], ",",
$ T) {2 b0 L1 F, O8 }   RowBox[{"{", 6 w, J8 G+ ~5 \' E# K
    RowBox[{
- E6 Q+ v: E4 K3 w, w/ [% {2 p4 ~0 _    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- x+ Q8 J# u5 U9 t      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + M0 l& d) g+ X; N
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* P5 C' @3 V. m5 \     "}"}], ",", & e. E$ z1 \3 E$ O
   RowBox[{"{",
4 L9 T( ?" s# g# z1 p    RowBox[{$ q* H& o/ d% [( J+ W  i: X
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 X& Y( R3 M) k% @9 p$ A* O      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 i& B5 e4 Q4 Y4 e! }9 W6 Q; b
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
  f3 x/ }* r* |9 Q: u, P% n- ^% t     "}"}], ",", 2 P: E* C8 H' ]  I, _" |
   RowBox[{"{", 1 Q2 W( b3 N) S3 Y8 h
    RowBox[{! g" C" v4 N0 l4 d
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
( V4 N) {6 w+ ^8 P! |      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + N1 E, s, _, o% ~" }- Q' k
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 T1 ?/ D+ P" \
     "}"}], ",", : G. h* y4 V1 y7 j% v7 {; B! m7 Q
   RowBox[{"{",
% w2 R: D( e5 X4 @+ M    RowBox[{1 t9 c0 Y. K! u2 n2 N. V
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, y- Z' P5 i" t4 M' S" `      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 `& w; e$ i2 h0 r! w, k, \
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 p1 V. a/ g# l, d, i! m+ z# q+ y% ?: X     "}"}], ",",
7 `6 \" C$ `0 R& |+ `9 J, c! B   RowBox[{"{", - J# ]6 f' i- f! p+ ?
    RowBox[{) D2 ?& g0 y2 Z6 g5 l
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 t5 k/ \! Y3 s% J# u      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; M5 j; o- Q) z6 ~0 @
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 [8 D( J# I( |5 S6 \     "}"}], ",",
# s5 S$ X) o0 W  c) b4 m* i   RowBox[{"{",   \7 S0 H( U$ U% H' N7 Z! H& k8 F
    RowBox[{
; a. V1 b& d2 A* k  j' Y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ m" F6 ~' {" ]& y# [/ x
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
& X: a( a9 ^) y5 P     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& e4 p4 Y' K! F5 C4 N2 U1 m     "}"}], ",", & h" p) ?/ g6 J$ Z
   RowBox[{"{",
! L. {4 w" q, E    RowBox[{
' Z3 x3 v- Z" t$ }    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 ~# P- L8 Q) A! ~9 u+ c( M
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - P! ?1 J+ ]: H4 a8 Q
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- g7 M% f4 U$ q
     "}"}], ",",
/ j, T7 w' O% G1 f, }0 I   RowBox[{"{", 8 J2 J6 v/ I* s3 }  b: [' D
    RowBox[{
* o4 d$ n% e8 p. D' p    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( ~4 W1 |8 }0 W9 u# Q; B  h- J; _
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 [+ ^( U+ e' M( O2 A     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
0 O( s. [% ?# C: X: Q5 }! r( `# n. ^     "}"}], ",", ( X6 Y1 c& I6 _6 l6 p: k7 r
   RowBox[{"{",
/ o, |8 q; h' Y& I8 D+ K5 ]    RowBox[{
/ y% M" x( p: w* c    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: M  Z* v' _9 g# E0 O2 P: c      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ ~  _! S  h: u1 ]9 Y: F' s. D
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
$ b1 D4 w- L4 V) W! Q     "}"}], ",", 3 V6 z! _" J! Y3 b" `( d
   RowBox[{"{", 3 k& t. O4 D/ }! C
    RowBox[{' P9 ]* \  A& S) {8 o$ [" I
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. n) Y2 @. I. {2 @- s( b
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 B! \8 |/ z- \$ J5 a: i0 ]
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
3 F9 ^) N. s4 }& |$ q     "}"}], ",",
; T+ K5 e6 P: `   RowBox[{"{",
& v# A$ Z! B3 i9 [1 p& ?/ d3 d) U: ^    RowBox[{0 B8 X5 d; v/ J* H9 }
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
( V3 K) X4 C/ _* b% ?) C! x, q8 b      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 |0 n9 k. `9 h  e
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
1 \4 z  r: d+ t) ?- S     "}"}], ",", 5 P" p7 ~5 W' {& h9 X( M# a
   RowBox[{"{", 1 W' Y" L$ Y8 A9 \/ m% u
    RowBox[{2 g" H" S4 u! K' S
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," y0 S9 o4 l! D# R. R6 d5 x
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
( s! M. s% L' L% b     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
  a5 a9 I, l. o* ^2 l     "}"}], ",", ( `" k4 L  E7 i2 R$ L
   RowBox[{"{",
7 Q: B- A/ b' k5 Q. a: W/ r5 ^* E    RowBox[{
( G+ K$ E% m  i3 |: K    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' g" A+ {: a; W" `; S      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- \+ K9 ^( ~% D% n- q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' W- w2 f& I9 D. O$ K
     "}"}], ",", ) ~! |3 J+ n5 `: x' c
   RowBox[{"{",
( N1 G5 S: F" @, O    RowBox[{* M3 d+ ]1 P, f) `7 q% p2 _
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 \. z% d1 F; e7 b3 Z  O' h
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ `& B; j3 Y8 t4 g6 ]
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% |4 v8 N" G, X6 \: H
     "}"}], ",",
! O9 V# i& Y6 i   RowBox[{"{",
- W2 d: o0 O8 d/ t' ]( {    RowBox[{
/ R- `6 U& i+ W1 n    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 q6 E4 H' E7 d# D      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% t( _: \& O4 n     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# F1 J+ q8 O6 N, K* ^3 A
     "}"}], ",", % e3 B# `# E- b# A+ |7 a
   RowBox[{"{",
1 S7 Z5 w) n1 f1 K2 F- J! v    RowBox[{
: f/ }2 m' w- f0 h% @    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: e" Z' E" F9 [* H! J8 F) |
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   X' K' m/ b. s
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 [( f: Z) H% Z/ d$ Q, j
     "}"}], ",", ' J7 M' E$ m6 K9 O4 q
   RowBox[{"{", , p: ]5 ], O( E$ n# z/ m! ~- ^
    RowBox[{
/ S8 t1 b' |/ `6 t4 v' ]    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: r9 |$ j: S2 d2 e
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 q7 K) G* [/ l; y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 P! H1 H% V0 N+ }
     "}"}], ",",
1 q9 z9 r# e1 U   RowBox[{"{",
6 p! h; K9 i  ?4 S9 n6 W7 v# x    RowBox[{& K/ e6 H  Y, w& O9 d' z
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
# k  F* P9 d. s0 ?/ E1 s3 t2 }7 Z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
( l* H" K; }+ i% s, b     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- [( s3 N  _6 m0 c4 n
     "}"}], ",",
3 [, x* J6 ~5 @% Q8 F0 i' O1 [   RowBox[{"{",
! Z0 F4 c( _0 h, ~    RowBox[{
" s1 K+ M9 z# a2 a: s0 ^! G  w    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 O" ]2 U8 a" Y. _5 K0 s7 v      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 |  l( e  _6 E8 g
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 n  J0 z/ |- |8 o
     "}"}], ",", 5 N  g4 R1 ~6 r; N" Q( i  M  X
   RowBox[{"{",
/ W3 l0 m* P- A6 d1 O! I$ j    RowBox[{$ E7 ]/ I8 E) U$ p9 o4 d7 @
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' H* y3 X# U. t' t7 i) \: j' \
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. a: `% i: `8 V  ^! y# k1 m     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ }; [  C- \4 Z( k" u5 W" W
     "}"}], ",",
& `2 K; g) g) ~) d$ b   RowBox[{"{",
# x; {8 a) N, @! i+ W9 k    RowBox[{
3 q# I2 B# {0 v" s: j# j$ e# G: q' j/ t    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 x; H- i6 _4 y) D7 j' H9 v8 R
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , K& l# j- y6 d+ j% N+ d; A, m
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; M, T& ]3 |7 U1 I     "}"}], ",",
+ }) W3 G3 u% y# V( c4 R% }. W2 |" h4 B   RowBox[{"{", 9 a' u: j9 D( f" F5 n" k) C1 A
    RowBox[{: ^) b$ }' k8 [. c
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 J/ Y7 _, h8 S; b2 k, }9 k
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' E7 S9 x5 {; y9 S! W
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  ~9 U3 |0 v& ?$ g5 H/ c, u- J: u
     "}"}], ",", 4 l' ?1 V8 C4 n' _
   RowBox[{"{",
0 F( t) B  \: |6 M2 R    RowBox[{
4 E2 t, E* p' D) H" Z4 L    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
  |( j4 a7 a" y5 j      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - z) |) E$ V7 e% I5 G1 M8 M
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) x6 V0 `; U9 [! W- c# ]) \     "}"}], ",",
& H% Y4 h7 C) L5 _+ y6 j) l   RowBox[{"{",
5 y" p. G# u  o: \0 }    RowBox[{6 E( F5 j2 x* d4 P  t! s3 |( x
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' |: ^1 a4 i% F
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 V7 M* z) a6 U2 I+ N& _/ W     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) S( g! x( A9 Q
     "}"}], ",",
; O" E0 K6 c. u8 Z- ^# b   RowBox[{"{", 1 {6 a# |$ c" ?1 }5 ]# q' }( O
    RowBox[{
: b- f# o; d& v, ]3 K! m    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ Y2 |/ `3 f/ ^+ `8 V/ ?
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
' A5 ?6 d! A) i# M; e     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. k4 W6 H# A' M- k( O" |     "}"}], ",",
! h' R6 F5 _6 c4 t9 k/ A% S# E   RowBox[{"{", / O( T2 s* K5 f6 f& E! ~0 S+ \
    RowBox[{
2 s" N2 {; d- V8 K- h& N9 N    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ ]4 i, \4 P! y& S/ z
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 Q" s# Q  p' u6 U
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 ?2 a" e+ a2 O6 P; {. c2 N( U
     "}"}], ",", 0 L, {% G$ P4 s2 k0 M/ ^
   RowBox[{"{",
4 m' X9 Z; O+ \" B* k; D    RowBox[{
- p3 X1 f0 L) s' j8 {) h! b+ [    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 m% F; M+ V( \$ D
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. [. B$ Y8 C9 F6 k  Q! l     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, `+ f8 _2 W' C" `- U5 A
     "}"}], ",",   G3 d% l+ [+ S7 [: P
   RowBox[{"{",   ]8 H3 p8 l: K' B+ n# t# @
    RowBox[{4 L5 o3 i* P  u  D- d
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 e$ L2 R! U) H
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
# d3 c! O9 P. c  Y8 u; j' A     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
8 ?) p, j( ?: d2 b2 `     "}"}], ",", 4 m" C% M" U0 G
   RowBox[{"{",
) j6 ~6 x" E- Q# o6 y6 }' L    RowBox[{
/ }) N! Z* @9 }, b( L    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' E  n! h" E8 K# S5 h( y/ `      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 _7 E- g9 @& t, {( V* E
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ U6 N3 |, B5 b1 V     "}"}], ",",
* O- c. O) l# ?' C% c, n   RowBox[{"{", * p$ J2 v. ~8 _$ G
    RowBox[{' G1 Q6 Q2 T" f' p+ C
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; |9 w3 L4 L& u" x/ a0 X: c      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . I, ]: B5 I, p) y' u! Z  U. ]
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
! `: Q2 Q% y. O     "}"}], ",", 3 R* v3 o5 b, r
   RowBox[{"{", - T/ T. A( w3 r0 H' {$ Y
    RowBox[{
; q5 R# j/ r2 [( U4 j& n    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
0 Z( j& ^- }1 s. {  m      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * a0 C4 i) A/ _7 h6 u" M, ]
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
4 v2 [; H2 C; a" H' e( D0 {     "}"}], ",",
# p5 x& p5 z" M- {  O$ p   RowBox[{"{", ( f8 k; e: Q0 {3 i
    RowBox[{
" l, W+ F# P1 D9 `5 f7 f    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ X0 X- \" F0 O0 e      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) f0 u2 q- l$ u8 w1 e
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
3 C* N" M2 b8 n8 {- v     "}"}], ",", # Q+ b9 k" k/ \, O5 U
   RowBox[{"{", ( Z! j$ `, H0 U; V( @5 G
    RowBox[{
' ?1 v% w! b: C6 @5 i7 ~: H    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 W  `8 w* z+ y( E# t; S! u% `0 F
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
# z8 g5 X) p. E. B4 E; `6 t     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: O3 R8 j8 Y& h8 N/ N9 L% e
     "}"}], ",", ! l8 t. B( g5 N# X. |( p% m
   RowBox[{"{",
8 Y3 C2 i( c9 y1 n& ]    RowBox[{
6 y' Y' \$ r: S; X2 Y/ L    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' v% _# p0 R* o, h$ ]& L1 a
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 P% w- P" p; L) \3 o  C
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
1 q: |9 \8 R/ |  s) [     "}"}], ",",
0 H8 e. H* o* j& F1 H   RowBox[{"{",
+ b& E7 V3 F0 e! q9 R) k. G- b    RowBox[{
/ G. z5 {. h$ G' U6 O  [$ \    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) O& B; O5 k) I+ q' f1 ~+ ]; U: Z1 r
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : g& u, f0 Z5 X5 g! `, n+ [
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
( }4 N! a% [- N/ p8 A) X2 |     "}"}], ",",
& g; t/ y' X% P; u   RowBox[{"{",
) {* ?5 {7 s. G$ {$ j! S. j    RowBox[{/ I( z$ ?4 E8 V' L: a2 k( Y3 V
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( a5 [. R3 ?% G5 z$ S7 _
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
  w' @: |& s2 o, L     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
$ N0 C% U8 {3 E# f+ F  I     "}"}]}], "}"}]], "Output",: r, B  V8 Q+ O
CellChangeTimes->{
$ M7 X1 [) i* b4 h% L% J6 F  3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
  U. r) w$ V& V/ q/ P+ z   3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9, * q. {3 |1 F) Z. B# [
   3.5779619748823338`*^9}, 3.578012345453125*^9}]
! s) W) g- Q2 t2 {- L( f9 m}, Open  ]],
( d7 ~6 M( Y& @5 e( p
6 S0 x. H& E' P, Q) K7 oCell[BoxData[
; g# c5 i7 o3 J( g6 J8 w' ^ RowBox[{"For", "[", 4 X6 m3 V0 w; K1 d
  RowBox[{
9 H. Y" v9 g& D% v2 q   RowBox[{"i", "=", "1"}], ",",
9 I9 ?: D9 R8 ]- g1 w   RowBox[{"i", "\[LessEqual]", "60"}], ",",
2 f' |* J# Z+ t8 _" t4 a! H   RowBox[{"i", "++"}], ",", / P* P% Q* ?' t4 M% q
   RowBox[{"{", "\[IndentingNewLine]", 1 h) q4 f! i9 u6 U* w4 n# A1 @
    RowBox[{# v- ~8 R' E5 R6 N
     RowBox[{2 U  p9 m6 D+ v. v2 s- y4 z8 i
      RowBox[{"m60n21", "[", 0 {! k, d4 k# a# \7 m4 O/ m
       RowBox[{"[",
; U- l5 a$ q# R" J        RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", ! J8 }1 c( q) b5 w) x
      RowBox[{"u1", "/.", & B6 A$ q/ L$ M% b- ]- f  g, ^
       RowBox[{"{",
7 A; d& R) c/ |" [$ i) C( T! Z        RowBox[{8 b. i& Z, N! I
         RowBox[{"x1", "->", ) I" \5 Z$ X/ D: o/ s& i
          RowBox[{"Data", "[", $ J6 m% r! i" T( b: l
           RowBox[{"[", 3 O8 @7 h5 T, ?# _$ y! p$ {
            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
. Y* r: E4 B2 T* E, y3 z4 A$ I         RowBox[{"x2", "->",
( ?* |2 Q, [! h# @0 r" O; U1 @          RowBox[{"Data", "[",
( {, |9 }& T" ~$ L6 F           RowBox[{"[",
) p2 y. r2 h9 s. ]            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
7 H% [* h) e  X$ p) e         RowBox[{"x3", "->", ' P$ D  P$ Q) C$ g
          RowBox[{"Data", "[",
, X0 v' D) m$ N7 K           RowBox[{"[",
9 U9 H6 p2 o1 k1 [& }( p            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
( [/ ?2 G5 t: `  {( c: s* h8 q3 t         RowBox[{"x4", "->",
  D1 ?$ k% n2 n# ^& n# D          RowBox[{"Data", "[", . F8 e3 W$ Y% a# q0 Y! C& a* N% l
           RowBox[{"[", ! J8 A) ^3 d. a5 i4 z
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ) N- `# r% v1 ~7 Y8 A
         RowBox[{"x5", "->",
/ [8 Z9 Y( S3 h/ o8 v          RowBox[{"Data", "[",
$ ]( V' _! D$ t+ ~6 p, K4 y7 x( H6 U           RowBox[{"[", * S- |( j  E" ]6 Y
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
2 F8 }& G) C4 k3 X# ]         RowBox[{"x6", "->", / @7 q' M1 a* m0 E
          RowBox[{"Data", "[",
  I! v; M% F% q4 j% ]5 X& C           RowBox[{"[",
: Q& c6 ~8 ^" O4 ?" J            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 1 B9 p* L. [& ^
         RowBox[{"x7", "->",
" {' j1 h! e& s+ C2 \- H5 y4 G          RowBox[{"Data", "[",   |* \- d# J/ ^2 L  K& S7 b
           RowBox[{"[", 4 l5 ?+ s/ |( O8 n
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
/ |1 h8 \6 g1 F0 w9 D+ U( \: z% c: \         RowBox[{"x8", "->",   D9 W% T( Q7 i3 h
          RowBox[{"Data", "[", ) b, a+ r% ~' d: Q2 }
           RowBox[{"[",
/ h4 c5 C5 ]) a! F: m            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
2 u- D9 a, ~0 \( e) @         RowBox[{"x9", "->",
( E. b  p2 F- \          RowBox[{"Data", "[",
( z1 Z9 J3 ^& f2 U* C9 X+ n" @7 z           RowBox[{"[", ( m& p4 b# W  e% A; ^$ j( N: ^
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ! {+ O/ j: K% E5 q" s" s4 x
     "\[IndentingNewLine]", 7 B9 y, b0 H2 Z. J& o0 n; D5 q
     RowBox[{4 j8 v+ G- A  y$ I" L( i% j' L
      RowBox[{"m60n21", "[",
1 O2 H4 q6 W' o       RowBox[{"[", 5 G9 ]4 |6 U3 X9 ~# j/ U1 X  m+ J
        RowBox[{"i", ",", "2"}], "]"}], "]"}], "=",
. ^9 \9 ~6 d: U- U- y7 D2 k4 V      RowBox[{"u2", "/.", ' ]+ e9 b6 Z" d- t. s
       RowBox[{"{", - E# V0 J( ~7 s" g+ Y
        RowBox[{% k/ F& O; s* ~5 E# M
         RowBox[{"x1", "->", 1 _- [+ e! ?3 R9 \4 u
          RowBox[{"Data", "[", ! e- X6 z3 V( O! N6 `3 F. b2 ?4 ~
           RowBox[{"[", ; a! n) [- N( K
            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
$ z" X$ o! f5 }4 V( Z# X         RowBox[{"x2", "->", 7 V# f) M! l; c' r
          RowBox[{"Data", "[",
1 l$ m  ]+ A1 H7 c2 [           RowBox[{"[",
( T( p' z; r. F8 G: ?0 V; c+ |            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
9 x. h* j6 B3 @         RowBox[{"x3", "->",
* q6 r. O. e8 ?, _+ |% ]0 P# o          RowBox[{"Data", "[", 0 H9 j  W9 s, e2 g" k6 H' S, @
           RowBox[{"[",
+ }, P2 H, l9 _2 L) S            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
2 m. F. d/ r) s3 e6 i: ~4 B9 ]% x         RowBox[{"x4", "->",
/ y) ?9 ]% Y: P5 z          RowBox[{"Data", "[",
# m3 c' j0 Y1 k; b; J           RowBox[{"[",   W3 `% D+ f8 k; |/ h( `7 N. ^
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 8 \7 w0 U( Z) s# E  r) w- k
         RowBox[{"x5", "->",
8 a. I7 C% [4 Q% I          RowBox[{"Data", "[", % I2 Q- l: C  U3 X' @
           RowBox[{"[",
: k8 a0 M9 c; I# b            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
0 z- l. L! A  j* V$ y         RowBox[{"x6", "->",
5 E) M/ W* S6 I          RowBox[{"Data", "[", 9 v8 G- E  r6 {! T) g
           RowBox[{"[",
$ \% _/ U" G+ Q* A- l" [            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 5 u* F2 j0 d: u' D- r
         RowBox[{"x7", "->", 2 G; Q7 ]$ H; o! q! j) Y! X
          RowBox[{"Data", "[", * n5 g  S+ t/ ~' X1 S
           RowBox[{"[",
: d, F! m& h+ ^. v$ e) S. `            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", & q: s) P: V* m" _
         RowBox[{"x8", "->", 6 o) z: c+ ~2 C  V* a- c/ {
          RowBox[{"Data", "[", 9 r; q) A) h0 v8 e
           RowBox[{"[", 0 g& o1 b* v9 @4 Q. k
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
: o( X% t+ ]/ x5 X$ M' G         RowBox[{"x9", "->",
  o5 Y+ ]! S1 `* K9 a          RowBox[{"Data", "[",   I: a0 B6 H+ l' i7 ~2 i
           RowBox[{"[",
+ Y0 c3 z- \0 E6 J: v$ X            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", , A. O' g  h* ~! @+ Y2 d$ }8 i
     "\[IndentingNewLine]", # F0 z0 y! g$ @  U
     RowBox[{8 N3 W5 |9 y/ B- H. _5 S
      RowBox[{"m60n21", "[", . g5 X% u8 S' e
       RowBox[{"[",
! |, w1 s; w4 o$ P# `5 Z; o+ Z, e        RowBox[{"i", ",", "3"}], "]"}], "]"}], "=", ! j- f6 {6 p: i9 K9 M/ w
      RowBox[{"u3", "/.",   B  I+ {  v4 x& ~# n# r! l
       RowBox[{"{",
' j8 ]1 a* ^2 j8 Z) @" e. c* A        RowBox[{6 g# m( h+ s( j* `8 U
         RowBox[{"x1", "->", " c( R5 r: M& G5 O( d$ A) n$ m. E
          RowBox[{"Data", "[",
1 x5 a: ?9 k5 D/ C- w" I           RowBox[{"[", % [2 d  G1 f7 P1 d2 D; b5 c
            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
+ W8 {1 V1 ~, l% l; n1 W6 s+ K         RowBox[{"x2", "->", 3 ]7 _8 i/ \  q  d3 g+ C
          RowBox[{"Data", "[",
! j% i4 l+ d6 p1 a  r8 }           RowBox[{"[",
& G0 i/ p: ^- i3 C            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
7 o9 Q# g9 c# O. U         RowBox[{"x3", "->",
4 E) X4 Q, M4 t/ Q/ T          RowBox[{"Data", "[",
0 m" f5 s" U1 X9 X  w$ m           RowBox[{"[", 0 C' ?! x2 v% P+ H
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
$ k, }0 d! T8 C5 r# h/ _         RowBox[{"x4", "->", 1 ^4 y, v7 n! U" i! l+ ]
          RowBox[{"Data", "[", ' A$ F2 H; [2 _8 y6 l& V2 f* ~
           RowBox[{"[", 0 n: Q6 F; h% R: h. R' Q
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
8 O. s1 H2 S" l2 i/ o( O         RowBox[{"x5", "->",
" r% S! }: O" s" T( y7 T6 D          RowBox[{"Data", "[",
2 X* n% r; t$ c* n$ \           RowBox[{"[",
0 W2 |- ^( B7 k8 d            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", # v9 G* @" k* o7 {9 T) c8 C
         RowBox[{"x6", "->",
* W( h7 y0 C3 q- S          RowBox[{"Data", "[", : H. j7 [6 _& H) k; s! p# q
           RowBox[{"[", 7 z0 c& f2 |5 A4 t. ^2 G
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
# l- q( C1 t' _$ F         RowBox[{"x7", "->", . m$ m+ \4 M( ~: n
          RowBox[{"Data", "[", + W6 c0 h  ?& x7 \. y) H. T
           RowBox[{"[",
& |' a7 O. L- B0 _( m; w4 ]            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
8 n! ?  I# l; n8 z+ K         RowBox[{"x8", "->", 6 A5 H' o3 D# b- r$ J' l( m, P
          RowBox[{"Data", "[",
6 y1 u2 M7 B# Q8 D! A2 I) h" g8 j( J6 O           RowBox[{"[",
  N7 B! Z7 u1 g: w( ~& d) w. S6 ?            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
3 H8 z- R! v2 Y) g: {         RowBox[{"x9", "->", 2 s# f7 R/ n8 i; p. ?  R1 U! J
          RowBox[{"Data", "[",
9 h1 E. @. r% K           RowBox[{"[",
! f, p* c8 S% P- ~2 r1 z            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
0 M* ~. B6 p0 I  P, `     "\[IndentingNewLine]", ; G9 }: p9 r- z. H% r3 I& {
     RowBox[{  k3 d. t: |, ]! e
      RowBox[{"m60n21", "[", 5 x) E4 O+ _) A5 R
       RowBox[{"[",
1 e3 n- R( a) H. p        RowBox[{"i", ",", "4"}], "]"}], "]"}], "=",
& `, m% c# c/ E) Y7 N/ C( a      RowBox[{"u4", "/.", 7 S" g% w0 M0 A
       RowBox[{"{", 2 N0 V4 L/ `0 o* I/ g8 ]) R% Z
        RowBox[{
. A/ A3 t# H0 x* z1 b         RowBox[{"x1", "->",
- b' A2 j8 l  i7 _0 t& K          RowBox[{"Data", "[",
& d5 L2 s6 P' e- c$ ~           RowBox[{"[",
( `* z1 N7 f! Q            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 4 K: z" K" E! W! @: Z& m7 d* X
         RowBox[{"x2", "->",
: ]! V7 Z* j: P! G- a2 T* F2 D9 ?% @          RowBox[{"Data", "[", : n8 \9 D$ p0 V! c. X, k( @
           RowBox[{"[",
" o, V( [$ X1 ]: P& l            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",   j4 G6 d2 F# g2 ^. p
         RowBox[{"x3", "->", & [6 v) V2 T, C
          RowBox[{"Data", "[", ' Q! C& @- A7 W, e, F
           RowBox[{"[", 9 F; S6 ]. w% U9 a/ t+ U9 Y& @
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 2 L7 i; T& m  z& Y/ j
         RowBox[{"x4", "->",
; i2 t3 G8 c0 i7 j          RowBox[{"Data", "[", 4 ?" n; W) E, r2 [9 j, Z  |, Q* Q
           RowBox[{"[", * e, r" F" f% K  h, P0 K8 z0 p* G) p
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
6 j& q- `# J0 W         RowBox[{"x5", "->", 2 M) Y$ T3 f( z3 R/ Y) C
          RowBox[{"Data", "[",
6 a1 m, Q) l) m# u  q           RowBox[{"[",
3 Z+ q) A: s* @2 O9 ]7 C/ ?9 O            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
8 @5 Q, z. A6 Z' q) s2 c7 S         RowBox[{"x6", "->",
, ?( ?/ y! ~$ N0 Z* Q% ~  p          RowBox[{"Data", "[",
2 j( N* l3 @# t% W9 B7 l           RowBox[{"[", 2 p& A: h5 S" |/ f) |0 o
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
1 ?4 _( y- [, B& c% Y0 E         RowBox[{"x7", "->",
1 l  H" `: E) a4 \, B8 j  ~          RowBox[{"Data", "[", % s- d) B( `* c6 e* A0 h
           RowBox[{"[", 6 R) |+ \7 ^$ L& M. w8 O
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 2 g$ ?! F* F, I( W2 j
         RowBox[{"x8", "->", . E' W7 b0 y, I) p
          RowBox[{"Data", "[",
$ Z# V9 p! {( S1 `$ a- d, q           RowBox[{"[",
: U) q# v% ?3 |  a            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ) b. U7 K4 P+ \
         RowBox[{"x9", "->", ; s; J6 X* G3 |* n- b/ s
          RowBox[{"Data", "[", $ Z8 O: ]1 a  M* D; v6 ~& B
           RowBox[{"[",
3 P) U3 d. I$ H9 Z            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", & _% T" _. y$ G; [
     "\[IndentingNewLine]",
# H! x. u0 z) s5 N/ V& Z2 X' N     RowBox[{$ k  ^% _6 {& x$ T* N' u
      RowBox[{"m60n21", "[", - W& k% ]8 S) T$ S3 y1 p
       RowBox[{"[",
5 B/ w4 q: j3 h8 }% r6 C        RowBox[{"i", ",", "5"}], "]"}], "]"}], "=", 4 Y3 q( s) K+ v5 j# O
      RowBox[{"u5", "/.",
2 Y# n: g4 a( m6 {/ ?% H       RowBox[{"{", - a0 f& B; {% m9 T  P7 U
        RowBox[{. s- m! m$ n. O/ ~/ v3 h. b0 I# `' f
         RowBox[{"x1", "->", & ~0 a- X4 m  f! L; \. m
          RowBox[{"Data", "[", & j1 q: r+ E4 Q; K5 t
           RowBox[{"[",
: p$ O; l' S! |$ j            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",   ~8 R- y* x0 d7 ~
         RowBox[{"x2", "->",
! I2 a; Y+ @4 m( ]: d9 b          RowBox[{"Data", "[",
# l7 d/ v2 v& }( F; J" a           RowBox[{"[",
' }! f! @  `8 d            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 3 P5 U$ f& D& [: P% t( N
         RowBox[{"x3", "->", $ b% K. C$ |3 M2 ~% M
          RowBox[{"Data", "[", % l& B- ^. N4 q% {* A
           RowBox[{"[", / C2 I4 A1 H7 f: ~7 m0 ^
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 9 t/ L9 z) A9 z) l$ T
         RowBox[{"x4", "->",
) j9 K. K3 ?% {  d" g/ @/ @# T          RowBox[{"Data", "[",
# t0 p# C( b5 i" ]9 L+ Q+ {           RowBox[{"[",
6 A9 U) W3 J9 n( p, u9 ?1 _/ m2 a            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", % t+ M! N0 Y2 S6 T  M$ I) U# T5 `
         RowBox[{"x5", "->", 9 j; ~" V1 }* h7 C  z; E2 I4 _; ?
          RowBox[{"Data", "[", 5 \( l2 i, p" S$ C
           RowBox[{"[",
5 W, @$ y6 P4 d$ D            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", # Q) o7 n! W: o9 K% M9 ^  \
         RowBox[{"x6", "->",
6 O8 y9 Q9 N* c' ~. ?8 {  \          RowBox[{"Data", "[", 6 }5 t- v  u4 d
           RowBox[{"[",
2 ~+ F9 A9 E9 ]* ]/ @            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
& v, P- I! L* r, d) c. E         RowBox[{"x7", "->", $ ~5 b" l- A/ P' S+ X
          RowBox[{"Data", "[", # Q1 ]/ t% N3 K# x" y1 N( Q
           RowBox[{"[",
* p+ o' }) W) W( R            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
8 y( C$ q+ d6 c4 i! m         RowBox[{"x8", "->", 2 X8 z. N$ C4 V; E7 F0 r* i
          RowBox[{"Data", "[", 0 w1 B) q& W# r& J3 e: a
           RowBox[{"[",
+ B% O- C7 n5 x5 X7 @3 D! f' M            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 6 n1 h4 H; l5 b7 D" m4 P6 L5 \
         RowBox[{"x9", "->",
1 X7 ]& X3 ^& z8 w- n0 i7 m          RowBox[{"Data", "[",
- J- C8 h& j4 |: ?9 z           RowBox[{"[",   J: N" N3 A7 \! a8 s% V
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 0 C* \- R+ `" }# _5 p6 h8 j
     "\[IndentingNewLine]", ' a0 x. m; A  ~' y
     RowBox[{
/ {: A# m$ U7 Y4 k      RowBox[{"m60n21", "[", ; C: L. O$ E! B0 q5 V! v8 W
       RowBox[{"[", - ~- o0 x* Q' o3 t; K. N9 x, j
        RowBox[{"i", ",", "6"}], "]"}], "]"}], "=", $ s4 z' R& M. \& A1 B4 Q
      RowBox[{"u6", "/.",
! V0 y8 h! x: H' n( V" f: F       RowBox[{"{",
: `7 z$ b$ U* M+ T' w  h2 }        RowBox[{
9 W5 N+ ~0 g' [: n2 I6 [         RowBox[{"x1", "->", ) y! r( e1 b2 `# d0 ?
          RowBox[{"Data", "[", ' j% N4 w( c+ E( D
           RowBox[{"[",
" S5 D# q( u1 J, N! M            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
+ w8 B/ D) n9 Y" Y1 K" p         RowBox[{"x2", "->", 1 ?1 K: a" K: P! s6 L2 O2 r' l
          RowBox[{"Data", "[",
, P, A  k- y5 _  k; ?5 A- w           RowBox[{"[", ' g4 n6 N" h+ l6 O
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
: b! @. @3 \* K         RowBox[{"x3", "->",
7 U" J- z1 F: C/ x          RowBox[{"Data", "[", ' M( e& N" @: X
           RowBox[{"[", . i* [( K3 o9 t( D: G1 m' m1 C
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 2 Z  f: b4 O: f1 f: u
         RowBox[{"x4", "->",
. R" i: X9 d! V% g+ W. i          RowBox[{"Data", "[",
' Q9 `! J. U. P6 Q           RowBox[{"[",
% w2 H; ^2 X: Y* v. G; B8 \            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
: E, W5 g- w" ]9 S: W         RowBox[{"x5", "->", 8 D4 B/ `9 L6 Q- A  z; E* n
          RowBox[{"Data", "[",
5 o) N. ?, i" z           RowBox[{"[",
5 }$ B& s2 N9 A9 g0 M1 J9 q            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
, n# ~) c( M, h: R5 N3 J  @         RowBox[{"x6", "->", - _+ \- d' w. L2 C3 a7 h, ~: ~
          RowBox[{"Data", "[",
( C; z% @0 v, W: N           RowBox[{"[", + P& Q+ h' t! }0 G! `4 X
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 9 H4 @& r- E" V3 A
         RowBox[{"x7", "->", - p6 G0 Q; f1 b/ ~
          RowBox[{"Data", "[", # S1 g- l5 F- o5 e7 l$ ^, _
           RowBox[{"[",   ^% Y- }2 |; }8 [* \' z8 {
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
- S) w3 Z; O# R* ]. b" T, ?         RowBox[{"x8", "->", ; S+ Y7 Q% j8 Q1 {5 i9 n$ @& B
          RowBox[{"Data", "[", $ M! P5 z+ J2 R' q& T- L" ?1 H( H
           RowBox[{"[",
: H; S( B8 B2 ]+ d# h            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
+ O+ f5 d% U6 w4 P         RowBox[{"x9", "->", - ?0 L1 p0 r$ @; p% S1 q
          RowBox[{"Data", "[",
/ a# A& S; j7 H" \6 L4 s& n6 N           RowBox[{"[",
" r6 I' C2 P0 w) C            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", ) u( c5 T) d4 g* k
     "\[IndentingNewLine]", 0 y6 \  {: P6 T+ z# j
     RowBox[{
& Y2 x7 A" [0 @! v3 p( \' y4 _      RowBox[{"m60n21", "[",
7 X& O( k! O  S" @: o3 Q9 F0 A       RowBox[{"[",
' D; Y! m/ _3 K6 M        RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", " L% q' L; H- f3 A. r# H
      RowBox[{"u7", "/.", % l: G- q6 x. Z6 G
       RowBox[{"{", $ i8 `- B8 b7 R
        RowBox[{
0 e: @/ s! M; m0 B, M         RowBox[{"x1", "->",
  o& f, g. F7 u- O          RowBox[{"Data", "[",
/ ~" P+ {0 A, u  Y* ?" h8 Q           RowBox[{"[", * @9 N& Y. n! G# x4 a
            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ! Y+ L* d; e, o/ H7 z9 C! z
         RowBox[{"x2", "->",
' t! B4 I/ c9 k' O          RowBox[{"Data", "[", 4 F- G. i" |4 [3 b
           RowBox[{"[",
! T( A6 S# u# v9 t            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
: D2 h+ @5 ~: k  w: @, x& Y         RowBox[{"x3", "->",
1 ]& ^) H; D: w( Y$ H          RowBox[{"Data", "[", 5 Y2 T; o, A5 ^1 }
           RowBox[{"[", ( m( g' i  I6 K( z& B4 y5 T
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
/ F0 g7 m/ m! [! p         RowBox[{"x4", "->", 5 g: D/ D: z0 C. I* O4 C
          RowBox[{"Data", "[", ; }* a9 F0 T& _" p2 B7 Y0 {2 n
           RowBox[{"[", 7 C8 H9 T. R1 \. S- z) H+ |
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
% Y$ n7 ?' p, d         RowBox[{"x5", "->",
5 P$ Z6 X0 G/ k) x5 M          RowBox[{"Data", "[",
6 f4 x2 Z$ Y9 N# }  w6 \" b           RowBox[{"[", , A' A2 z: w' P: R& p" i
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
  w& r# v, i5 ^9 e" Y         RowBox[{"x6", "->", 9 p* c9 [/ }; _5 Z
          RowBox[{"Data", "[", 2 g9 L0 R" l" L- l
           RowBox[{"[",
9 @) K0 J& }# I  z            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
  e8 D2 Z1 X8 h# V4 M. b5 Q         RowBox[{"x7", "->",
1 }2 F1 N3 Z. ?! N  G          RowBox[{"Data", "[", / e/ o# f. N; G0 a" |$ u, O( ?3 c
           RowBox[{"[",
2 P; }- v. p; m& n) y            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ) Z( ^! [) t. y
         RowBox[{"x8", "->", 0 C7 A% n; M$ O& C# L( Y8 w8 o
          RowBox[{"Data", "[", + v' W. D( a' d0 x- U
           RowBox[{"[",
9 L; x" ^& G+ D            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",   \% @( ~- G! Y  y7 }4 c: x
         RowBox[{"x9", "->", 7 ~: M, s. I8 j! |7 @* a
          RowBox[{"Data", "[",
) O' g( B: G6 R) ]- S8 L% i           RowBox[{"[", * f; s, ^. K4 f
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", - K4 ~' A: k2 E+ Y6 ^; l# c
     "\[IndentingNewLine]", 1 P4 |4 @5 M# z: G1 m/ l
     RowBox[{
9 S4 q2 `/ S* k2 i  \1 W      RowBox[{"m60n21", "[",
# V) s0 ?' m- t" N  e7 j/ ^       RowBox[{"[", 8 `+ M7 N2 @; T. d& M) H
        RowBox[{"i", ",", "8"}], "]"}], "]"}], "=", & f2 Z/ A: b* w  Y4 s
      RowBox[{"u8", "/.",
3 y  u& t* a; Y7 U# B- B% B       RowBox[{"{", 7 o8 \! ~- |9 X0 i% ^
        RowBox[{
9 ]; D- \0 f1 a, ~$ H0 G         RowBox[{"x1", "->",
/ b% @+ N; f  t. U          RowBox[{"Data", "[",
4 b% _4 ?; ^0 N; O           RowBox[{"[",
: |% Z8 W$ @* D% C, @3 p            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
* d/ P6 l% [- S8 ^3 S6 _4 b         RowBox[{"x2", "->",
2 R) A9 h7 S& N          RowBox[{"Data", "[",
- C/ z# Z* T; z+ {0 A           RowBox[{"[",
9 j( K& ^9 H5 K- K  m, U            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", / R0 u2 y( T5 C6 q& X9 @
         RowBox[{"x3", "->", & k6 A7 H$ ]# ^$ p
          RowBox[{"Data", "[",
# _7 D7 e( \- D! V" A7 |9 C8 }) K           RowBox[{"[",
7 d2 g( E8 B! h1 R& }4 f- J& g, s            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ! K( d" L$ f+ A+ y: t
         RowBox[{"x4", "->", / K! L9 J* H: E, V# Y
          RowBox[{"Data", "[",
5 P3 V, r7 _! }: ]9 j, S! ^6 D           RowBox[{"[", * g' U& l. J: o, O4 s5 ?5 P
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", $ R2 m; Z* K, n7 O
         RowBox[{"x5", "->", 7 {$ A$ z" K( i$ C2 m1 X: R
          RowBox[{"Data", "[", % a* w$ ]! Z' b6 _) m% z
           RowBox[{"[", 0 x3 L4 s1 a: C: b3 H
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 8 x& @/ ~$ G; z" S
         RowBox[{"x6", "->", + Q) S' l! I0 N- x6 `! l
          RowBox[{"Data", "[", % ?( _2 `9 O1 h# q- T8 J3 r  S$ c( g
           RowBox[{"[",
; G, Y( z2 T# P3 n: g- W            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 9 a5 I6 P; z, f1 ?0 m( J4 r
         RowBox[{"x7", "->", % S! N0 `9 e( W; |7 f' P
          RowBox[{"Data", "[", ' C; ?7 X: d+ k9 g  j
           RowBox[{"[",
5 _5 d! @( N9 ^4 i5 ]+ k% ?            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
$ e' F3 H4 ?1 l4 D         RowBox[{"x8", "->",
& [6 X' M2 |5 ^! ?          RowBox[{"Data", "[",
! d5 ^% E2 a! S% b/ t; {& W           RowBox[{"[",
& d1 @  e) V0 P1 j& g( i            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ! \8 w9 P! m/ [1 L6 }9 Z) t
         RowBox[{"x9", "->",
( A& x0 j( }" x, l" c          RowBox[{"Data", "[",
4 h6 y0 I- j. n1 J: S9 f; N9 h           RowBox[{"[",
/ [+ M; O+ v1 F* K# p; [            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
" i* D, |; V9 i3 v* T0 n     "\[IndentingNewLine]",
. n. |- f4 W- a     RowBox[{* F5 K* A9 I$ ^) m) \5 V
      RowBox[{"m60n21", "[", 7 T7 f) `5 {. j
       RowBox[{"[",
, \0 Z, I2 w1 R        RowBox[{"i", ",", "9"}], "]"}], "]"}], "=", 9 \5 s& |& i$ ]$ h$ Y$ I
      RowBox[{"u9", "/.",
$ n+ G0 L! s4 u. n% i       RowBox[{"{",
  D) U" A( N: {# c6 N( N' A        RowBox[{
: [0 B5 d7 o( u* ^( p         RowBox[{"x1", "->",
$ X% V. ^' C' y! j9 f  j' X          RowBox[{"Data", "[",
  v, b. R7 [: C: T5 v  A           RowBox[{"[",
2 @" c8 D+ z" S            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 9 S. ]5 n' F, l
         RowBox[{"x2", "->",
, G5 B- n8 i5 X+ o  H          RowBox[{"Data", "[",
9 s/ a3 k% u( O* v: }           RowBox[{"[", 8 v+ g, O) j  t9 C( A
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
* U0 |6 _( T: \! E, i- i         RowBox[{"x3", "->", , K3 `3 ~" Y9 W, o' j
          RowBox[{"Data", "[", : A; ~4 @( e2 T4 v" n  I9 {
           RowBox[{"[",
6 J; a' q5 Y2 n$ w, w& d9 ?            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
2 i  V. e; U' \$ C# k' K- ~         RowBox[{"x4", "->",
$ T  O/ |. ?+ d! @  l          RowBox[{"Data", "[",
" `+ |7 [8 J, p: k/ B' @           RowBox[{"[", 5 G0 U* A+ D4 m! _8 b6 z+ o
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 0 [, e- V% x+ [% [4 E  {
         RowBox[{"x5", "->", 9 Z; y& B3 {# u2 y  K: V
          RowBox[{"Data", "[",
6 p" q5 U; o# X! Y6 m. s+ e: x0 {           RowBox[{"[",
6 t  Z0 q" Q* I5 I8 f# N            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
* n" h( R% l" h# I0 Y         RowBox[{"x6", "->", 8 F1 d; e, }& v9 _
          RowBox[{"Data", "[",
6 r* _) R4 I" G7 S$ y# |           RowBox[{"[",
% ~3 c3 H8 m! `6 Y: b( C- a            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", ) J* c/ ~! z$ m% ]8 o0 O& g
         RowBox[{"x7", "->",
6 U1 Y! K5 P9 _          RowBox[{"Data", "[",   @7 H0 P9 i& R0 x, b6 ^9 E
           RowBox[{"[",
' w! T! r: w5 u9 @/ m4 K            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
: J# R1 C! {# w& ]         RowBox[{"x8", "->", ' S9 |* ^' P2 Z+ s: x
          RowBox[{"Data", "[",
5 Y1 Y+ U* f. n* b  |% x           RowBox[{"[",
1 F2 Y# o' g" i% h  S$ F6 m            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
0 s* L0 _7 H5 |; i+ o         RowBox[{"x9", "->", . l, G+ r/ b0 z5 J! k, Y: a
          RowBox[{"Data", "[",
2 N* ?: w7 B- ?" ^           RowBox[{"[", 4 h* W! ]! A. R
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 0 M4 i. W  z4 y0 k4 Z, Y1 ]# r
     "\[IndentingNewLine]",
& |' z/ h: W" C8 p     RowBox[{" N1 f! x& X* [2 e" ~( [( t1 M
      RowBox[{"m60n21", "[",
" r# P) d  D: U0 r       RowBox[{"[",
, J. Y  j* r) p        RowBox[{"i", ",", "10"}], "]"}], "]"}], "=", 4 P4 C0 ]) {* C; P. l
      RowBox[{"u10", "/.",
3 @1 G# F3 J9 K$ M- E       RowBox[{"{",
9 V. ~* _6 z7 d        RowBox[{
! G: f& g1 L, C5 @         RowBox[{"x1", "->", : F+ F7 ~. H% h
          RowBox[{"Data", "[", 8 g& W& m" E" G) t6 `3 V0 O
           RowBox[{"[", ; f9 }3 g/ q9 c5 a
            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
( l( i$ }) |% P; `6 e! a- y/ V         RowBox[{"x2", "->", 7 x  v/ G9 j0 W5 S% K1 u! }* A
          RowBox[{"Data", "[",
, d5 v$ T1 y  q9 |  w  v           RowBox[{"[", ) z# s& l' ~: Z) O5 e3 ~. Y7 a: R
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
7 o# E# R/ ~4 x) H         RowBox[{"x3", "->", 4 T' {9 m5 U" ~, K3 u7 {7 w
          RowBox[{"Data", "[",
" U- D# O: N( p. g/ R: N           RowBox[{"[",
/ h/ x9 @0 `9 p4 l. C1 f; s            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
& n- ]' Z" U3 t$ I( B* G) c0 w         RowBox[{"x4", "->",
# i7 ~  M: R6 K, D; Y          RowBox[{"Data", "[",
# m" y5 O7 c/ h- g4 r           RowBox[{"[",
# R& I8 m( K& k8 p* z7 n            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
3 Q& |5 ~0 q& c( @) w% E% ~         RowBox[{"x5", "->", ; J7 t& z8 Y; S
          RowBox[{"Data", "[", $ J! q6 W# o6 ?( N( s) }4 }+ n' V& Z) `
           RowBox[{"[",
8 T3 U& y" Y8 @( p; j            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
! n: j; a  T2 I         RowBox[{"x6", "->",   `2 B* Y0 T. \' c5 w3 y  J8 X' `$ X
          RowBox[{"Data", "[",
! {1 x; @% t  P5 X' |3 r; _) }           RowBox[{"[",
& a, v& B3 @- ?4 W4 v! J            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", - G( \2 z7 v% L, f
         RowBox[{"x7", "->",
& A4 X3 K( L3 C" R% N4 K1 R          RowBox[{"Data", "[",
0 s# F; Z' p. J4 ?" I7 P           RowBox[{"[",
5 l- J2 R. \, s7 f! J) ~            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 0 B6 J3 i! p. i7 H2 ?8 R
         RowBox[{"x8", "->", ) `2 u' a* g, Y$ J, R' A
          RowBox[{"Data", "[", ; M5 P9 w& H% o% z0 H
           RowBox[{"[", - S0 ~8 y5 l0 P' V' u/ `
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
! S/ q( |- r8 K         RowBox[{"x9", "->", : M5 r( h! y' s* s
          RowBox[{"Data", "[",
" X$ I0 e3 V4 e/ v           RowBox[{"[", 9 k3 X) B& z8 {" @, f* |. t
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
$ A- ]' W, r. i9 A     "\[IndentingNewLine]",
, P- {' \' X. h  j8 L8 _# k- c     RowBox[{
6 s2 b7 ~2 u0 n3 j9 F$ p- l      RowBox[{"m60n21", "[",
$ b0 H2 V# w9 m       RowBox[{"[", 1 v& s: y  b! X: o0 K" b
        RowBox[{"i", ",", "11"}], "]"}], "]"}], "=", * h7 h' i5 |0 J. ?
      RowBox[{"u11", "/.",
5 R: M* j, p3 a/ C7 T       RowBox[{"{", ' L) M! p: x/ Y/ r3 ]: a
        RowBox[{
- ]" h8 r% b, }5 W) o         RowBox[{"x1", "->",
% `9 }& Q" y# \          RowBox[{"Data", "[", 8 N, u) }( Z5 H2 m/ \: n
           RowBox[{"[",
1 L# A3 H: @  E' a9 u            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
6 W+ j; w' E, ^. y7 H         RowBox[{"x2", "->",
/ I5 \0 h$ Q0 e5 c' `          RowBox[{"Data", "[", ; w/ n6 b) n7 D) v
           RowBox[{"[", ) J+ G8 o$ @; d' G& r1 |! M8 m  e5 D
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
! N; M: V$ u" T. g" I9 ]+ f         RowBox[{"x3", "->",
6 i5 c6 @2 u6 R8 W4 G+ _( v          RowBox[{"Data", "[",
* U3 s9 O$ @; t' v* j7 Q0 _           RowBox[{"[", 2 Z$ K. @3 H" l4 `; w
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ) u# p* Y$ S0 [1 E* I
         RowBox[{"x4", "->", 2 [4 ~* P- t) o2 ^7 S
          RowBox[{"Data", "[", 5 W7 X9 l( `: r& o- Z8 x
           RowBox[{"[",
8 R6 E1 f6 m/ H* _            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 5 `3 k0 P' X' N; T0 X* O
         RowBox[{"x5", "->",
# J5 H8 a/ P) j) Y          RowBox[{"Data", "[",
- q7 P) ^4 w# U' z           RowBox[{"[", " v; r6 ^+ n7 l5 R* y, h
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
6 H5 `. I! P. Q, l# `         RowBox[{"x6", "->", + K8 R/ y- w- ~0 C8 B
          RowBox[{"Data", "[",
- ~6 |+ v" |8 a6 ?0 H0 F4 P  L" U           RowBox[{"[", ) o. l4 n3 Z2 X8 s4 C$ t# f
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", / G" T' q7 B5 @+ f& g
         RowBox[{"x7", "->", 3 a- N- F/ j$ [4 D/ i8 v4 t
          RowBox[{"Data", "[",
& a8 b2 K; p8 ^! c& k" [           RowBox[{"[", : A1 M' {5 ~- B  U' T; r9 ?
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
: v" m' p; F  |& e7 S6 `9 x         RowBox[{"x8", "->", 5 c5 p& n0 B4 `& `6 M, z8 w6 B
          RowBox[{"Data", "[", ; b+ H4 ]  C) H- i1 s
           RowBox[{"[", ) v1 Q4 s/ `  \. E" J( k2 j4 E
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
8 @* N' p, U0 _: g6 L  j         RowBox[{"x9", "->",
2 k2 G' }; ]' K# H3 q: E: l- g* L          RowBox[{"Data", "[",
" m4 q! g; m; o7 O4 m% J           RowBox[{"[", 0 g  t# O  ^9 V4 x
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", / Y) q/ x$ I% G( \& s: @% }) _
     "\[IndentingNewLine]",
% F9 i: ]+ I3 j/ I     RowBox[{
3 ^9 {9 j1 T% I      RowBox[{"m60n21", "[",
; g$ x3 k/ ]# K4 ]9 Q- E       RowBox[{"[",
# e8 Y/ {+ A% j, |" X9 i        RowBox[{"i", ",", "12"}], "]"}], "]"}], "=",
* P; b; B: L  ~1 K( |* O( m      RowBox[{"u12", "/.",
6 d: ~" I7 a3 g6 X: @6 g) x3 o8 E% U       RowBox[{"{", 3 W3 c! @- u* @! O. [; b' v. X
        RowBox[{) ]# G. V2 M8 n( N1 c% ]
         RowBox[{"x1", "->",
' N* N5 y1 u# f0 f* V2 w! K& o          RowBox[{"Data", "[",
' r9 z7 D) d& B  g6 u! d6 F" W           RowBox[{"[",
; O0 X) R; ?: g! e7 w7 A            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
! A/ f; ^/ H' c# \6 \5 ]+ n" Y         RowBox[{"x2", "->",
3 n2 G2 J& m) ~% Z9 i          RowBox[{"Data", "[", / l$ r" v) u5 n  g, k
           RowBox[{"[", - V) m6 r# ?: \! q5 P- F9 @
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
! B/ Y' S% X7 K# S! W         RowBox[{"x3", "->", " K& @- K1 o1 W
          RowBox[{"Data", "[", * l0 `# s/ M% D2 q9 A& F: c! H6 f
           RowBox[{"[", 7 o8 O# `2 h. O/ l# B2 q6 c
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",   N( n' }" ], L( e2 n; Z
         RowBox[{"x4", "->", 6 O, X8 R$ Y/ I& E, d, N0 U
          RowBox[{"Data", "[", 8 w' F7 ^  ]$ U9 `6 x2 \
           RowBox[{"[",
" y; D9 w+ i9 o; {- r) ^3 H            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
1 J1 |* Y3 P" E, k         RowBox[{"x5", "->", 9 w4 L5 E" O6 `1 I3 O
          RowBox[{"Data", "[",
' q- m- P6 ?3 n, Z4 v0 Y           RowBox[{"[", 1 t/ N0 Z4 x# w% I
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", & i' j2 }, V) y% d" @
         RowBox[{"x6", "->", - W% u( j5 D& \
          RowBox[{"Data", "[", , M) G: W) y6 U# [* r" N
           RowBox[{"[", ) T/ [+ B) y7 H9 s5 s9 E2 G5 r
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", , n  [7 [; y$ @0 j
         RowBox[{"x7", "->", ' M' M9 x; f8 _7 b. @0 m& Y
          RowBox[{"Data", "[", # C7 ?+ l! Y+ t# X) H! t6 x" s
           RowBox[{"[",
; l# ?1 d+ `$ `! n: Q6 i$ b/ o  ^# E            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", $ ?' ?! i0 n6 V1 T0 P, @
         RowBox[{"x8", "->",
- P/ `  D8 [( y6 s) U  D  G          RowBox[{"Data", "[",
) Z2 p( [; F3 G( Y8 Q6 h           RowBox[{"[",
* @$ \; {$ w: M5 m# z/ Q( f3 ]& X            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
8 Q  V. S1 F' v) ~, \2 W' ~) r; @         RowBox[{"x9", "->",
0 _' a8 f4 J) K3 U          RowBox[{"Data", "[",
( M* I% J. h, a           RowBox[{"[", + K) {: d0 ]; N
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
* C" @# ]9 {/ @3 Z     "\[IndentingNewLine]", ; J7 Z! r0 F8 {  l9 s* a1 s
     RowBox[{
$ `% U% K# ^9 D! g6 N8 x/ R      RowBox[{"m60n21", "[",
, r2 Q- y& s' H       RowBox[{"[",
1 y9 s. f; T# Q" m. f        RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", ) G: F% a6 q) a1 U; n1 z
      RowBox[{"u13", "/.", 9 ^6 C8 z% j2 v/ u5 V8 x
       RowBox[{"{",
/ M: ^1 d4 t! {% c* y/ \        RowBox[{
8 W' m4 v' |1 d         RowBox[{"x1", "->",
# r- N0 {5 c% S9 E          RowBox[{"Data", "[", " j3 ^# n' D- R4 i/ F" N
           RowBox[{"[", 9 s* S2 b$ [/ E* H$ [
            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", & t7 ^$ P8 {2 U" n; O
         RowBox[{"x2", "->",
4 Z3 a9 ?9 q, B  z( t          RowBox[{"Data", "[",
, r0 v) x4 w' D# d& n* e* G8 O# q           RowBox[{"[",
* f. s+ y- M& ]( b! ]            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 1 g- z7 K8 a" T3 S! T0 g" Y( {1 H
         RowBox[{"x3", "->",
# i) i0 P% e  a( ?& v; P; i! e' I& a          RowBox[{"Data", "[",
2 y! [- M2 A$ P$ L, N( L7 D  e" L, x           RowBox[{"[", 8 s- ]8 b( Z8 f6 |* D. Z
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", ; D& Q+ |. k, C5 {- J
         RowBox[{"x4", "->",
; i$ r: H! Y9 ^; Q: ?5 y          RowBox[{"Data", "[",
( N# n* X- Z1 u+ J           RowBox[{"[", / V% R* o, r/ Z) W
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
# F, K" H2 _6 j  f$ N         RowBox[{"x5", "->", ) W- l! R4 p5 v( k) C: w% `2 a
          RowBox[{"Data", "[",
, l( _  f0 I7 L8 o6 x, i           RowBox[{"[", ' e! k1 o6 L( G; |3 x9 K
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", & v! ], G. h! o/ J6 [! M
         RowBox[{"x6", "->",
$ |4 w- D7 h! H( L% G          RowBox[{"Data", "[", 1 H0 \2 I2 |* a
           RowBox[{"[", / s" j# S2 e$ `6 R+ k. r' v1 a% p
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
8 e0 }0 x0 E9 F  B0 B" m! q6 U         RowBox[{"x7", "->",
, }4 E, d. @) v. |- C          RowBox[{"Data", "[",
1 y2 b$ h3 l) g* x8 F- Y, h           RowBox[{"[", " w+ p& i  R6 y1 Z
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
% b! g, @% }) f$ G; P: [9 u" O. Y         RowBox[{"x8", "->",
" p+ P4 ^1 K$ ]3 v* W          RowBox[{"Data", "[", 4 A6 \+ X/ P3 E) G( X$ P6 J
           RowBox[{"[", ; h+ S' y6 ?6 h+ X
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
& m& T/ M) Z1 A8 z6 V% g0 t( N! W         RowBox[{"x9", "->",
. C# ~4 J; H; d6 b          RowBox[{"Data", "[",
9 @2 J, a! H4 W4 M1 ~+ z1 d* {+ `           RowBox[{"[", + f2 ^* i) N$ ]
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
. t- v3 j1 l. [3 P     "\[IndentingNewLine]",
5 L6 G2 D% i: N1 {     RowBox[{; W& V) T* B8 {% d# n+ k
      RowBox[{"m60n21", "[",
5 P# d/ K4 c7 @       RowBox[{"[",
- W" m; D$ S) ?; i/ ]* W- |        RowBox[{"i", ",", "14"}], "]"}], "]"}], "=", $ r4 \: e! h, ^
      RowBox[{"u14", "/.",
8 M9 [3 o$ L: U8 M9 U6 R       RowBox[{"{",
: a" _, r$ h4 u/ ~! ~$ ^1 _2 w        RowBox[{! z! K0 ]% I( e/ [( k8 `
         RowBox[{"x1", "->",
. P  p6 q% J/ f) C          RowBox[{"Data", "[",
+ z' }6 h& \! o" Y- c$ U           RowBox[{"[",
( E3 g  V, l- Y            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
, d! S* s; T& c" J4 \- ]7 h* }         RowBox[{"x2", "->",
) ]0 o9 F. _$ [- d          RowBox[{"Data", "[",
7 O) M+ w* s7 K& W- q! M           RowBox[{"[",
5 {1 {) v# O& ~' v* y+ [0 c            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
, ?9 }" G( z5 p' N. u         RowBox[{"x3", "->",
: |0 u. V) D* }          RowBox[{"Data", "[", + l" F' O' N  F" ^
           RowBox[{"[",
  L" y# o9 O( F            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 9 T$ N  ]9 x% O9 L) \2 f$ `) z
         RowBox[{"x4", "->",
! P" \+ A- W' N9 p2 q          RowBox[{"Data", "[", ( D; H5 t% p1 m9 I8 J4 }3 Q( A
           RowBox[{"[",
$ B- t9 B& g) ^/ p" H5 X            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 2 }' f) P$ E% k& Y, d
         RowBox[{"x5", "->", & A1 A* P# V! N
          RowBox[{"Data", "[",
; N% I! a! ?3 k1 J. J           RowBox[{"[",
5 i# ]) j7 O; V: W0 B            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 5 }: n9 T" A: E/ C
         RowBox[{"x6", "->", 8 S( Y. m2 @  W* C1 p& f
          RowBox[{"Data", "[", ; j; N1 G* I0 r
           RowBox[{"[", & V# B9 C' R( k8 q# S: k
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",   o6 @0 T. y" b. T1 G4 |
         RowBox[{"x7", "->", % h8 M2 a) \: W. u' m) h1 C
          RowBox[{"Data", "[",
( t5 s/ a' |/ W+ M" `. E           RowBox[{"[", ! b6 V3 x0 [2 G8 B/ J8 j" _0 f
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
; m% g) G' w! ~/ n; |0 g  m         RowBox[{"x8", "->",
: s  i5 E7 f: l0 c1 S$ e, ?          RowBox[{"Data", "[", 3 F' a. y$ \7 e/ T4 _0 |7 c5 U
           RowBox[{"[",
! j/ @( ~! J$ o/ [            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", : E5 T4 @2 }* _: i& v8 ]; P
         RowBox[{"x9", "->", 3 W2 ^. A6 ?. J& F, Z: ?
          RowBox[{"Data", "[",
" u% t$ [- u3 K2 {           RowBox[{"[", . U* W, h% f5 H8 l5 d# X2 ]
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
' A/ k5 s& R$ r1 _, L: x+ G     "\[IndentingNewLine]",
# _2 s7 L- \. T4 T+ D3 H7 n) W     RowBox[{! r: `8 s6 U2 K2 K
      RowBox[{"m60n21", "[", , ]6 x- k) O( {) G( l0 y9 m# X7 n
       RowBox[{"[", ( B. n" F1 b& m1 z7 u  _  X) I
        RowBox[{"i", ",", "15"}], "]"}], "]"}], "=", 1 ^) X+ h( k) ^
      RowBox[{"u15", "/.",
5 Z4 d4 R7 a. S       RowBox[{"{", & A  h& {1 r/ x1 k) V& A' y4 Z' ~
        RowBox[{
" k# ?4 M7 K( I2 I1 D% X& e         RowBox[{"x1", "->",
& M7 p- ]% r' Z  k3 i( G          RowBox[{"Data", "[",
- [# \. l' o8 V, i! T           RowBox[{"[", % o' s& g1 ^9 ?" u2 M* z
            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
0 ^3 c, u8 Q, C" t' \) V         RowBox[{"x2", "->", + }, a' b3 P: i1 c
          RowBox[{"Data", "[",
6 L. |' a% I) @+ u) K" m           RowBox[{"[", 8 }" {. ]  Y+ F  {5 `& ]
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", + e; k8 A6 d$ H4 C, d' y" T
         RowBox[{"x3", "->", ' J* Y, a9 z/ D
          RowBox[{"Data", "[",
4 d8 f, {0 S7 T6 _8 c6 Y           RowBox[{"[", ) `# x. y$ U2 ?2 d4 |, [& `
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
0 I+ o/ I: m2 v5 }: w9 ?         RowBox[{"x4", "->", 3 T- n5 G' x1 c- v
          RowBox[{"Data", "[", ' w( F4 e# c* f3 k+ t
           RowBox[{"[", , ?8 D0 u0 l# `
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ; |' R% s7 d/ a, D4 R
         RowBox[{"x5", "->",
9 S" G' R/ X+ H* q$ z, C          RowBox[{"Data", "[",
' D5 z. H0 w0 }) h! ?1 [5 Y           RowBox[{"[", 3 D7 [! }5 |, d0 ~: z
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
* ?: N1 b. K/ T* q$ \. X         RowBox[{"x6", "->", # p0 Y' \9 q# Q6 z
          RowBox[{"Data", "[", " j$ p& [  D$ i( N  r
           RowBox[{"[", % K8 m' K2 X& ~) ]% o3 m/ n; A  Q
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
" O1 ~) Z' ]: x) }$ s0 f: y& K         RowBox[{"x7", "->",
( w: a6 N! G8 r: n6 c          RowBox[{"Data", "[", + i4 q0 h! _( B8 a# g9 \
           RowBox[{"[",
1 \: `. {" w7 _8 U& _* _' }! W            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
! p4 s1 _& K' J         RowBox[{"x8", "->",
$ c2 y4 ]1 v" y3 H& `7 k% }3 [! w          RowBox[{"Data", "[",   M& z4 W! C' m) V$ `7 r4 _# K
           RowBox[{"[", * o8 y! V# y0 a
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
, }& B7 q9 [5 F0 X+ k         RowBox[{"x9", "->",
: S! _$ C" f1 e: J" v' u+ o          RowBox[{"Data", "[", . w* O& s0 @8 ~6 N& L' ?
           RowBox[{"[",
- Q# [" P/ V  T# f5 i; l) m            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
' E5 m2 m7 l9 A$ `     "\[IndentingNewLine]",
) n, N) o9 \% t9 M     RowBox[{3 t1 \" c( D; O; D& R0 r. d, g
      RowBox[{"m60n21", "[", % m: g1 w9 g8 X2 `1 p# N2 X5 T
       RowBox[{"[",
; P# b; p2 \+ f' w/ _        RowBox[{"i", ",", "16"}], "]"}], "]"}], "=",
0 f2 V/ x9 G: s( C$ F4 B0 S      RowBox[{"u16", "/.",
) Z# g6 X( b- {9 Z  ~( e       RowBox[{"{",
4 D: C! _8 ~0 H3 U        RowBox[{
: d! K$ d, H: R4 d         RowBox[{"x1", "->", / l! a2 y9 @2 H3 s7 M
          RowBox[{"Data", "[",
. E, z: u9 s5 q2 t. v% i- ]7 }           RowBox[{"[",
/ h# ^  d) {* }* U6 q( R            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
; M# d/ Y) c- C* G! B# u/ w         RowBox[{"x2", "->",
# S- }4 D: _& |. g          RowBox[{"Data", "[",
) n6 G  n7 _9 h7 f: Z7 s. d+ Z           RowBox[{"[",
/ N- _. ^. ?2 ^1 |1 B' I  V            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", & r/ Q' w; n! W  v8 J  ?" k9 g# V+ x! u
         RowBox[{"x3", "->", & I$ z6 I( u* t* r& H
          RowBox[{"Data", "[",
) F) [2 |4 O" O- t$ O1 Z           RowBox[{"[",
8 K# W7 k" T* w" u) @            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
  r' }' ?' X4 |1 d# j# N  d3 v         RowBox[{"x4", "->", 8 K+ H5 J, _0 H8 K( `
          RowBox[{"Data", "[",
; ~5 S6 `  G" y' Z, a, d           RowBox[{"[",
. Z" P8 J. [- o, X! w            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 0 b& n. k/ b2 f% ]$ I, H
         RowBox[{"x5", "->", . l- L" i# W5 H2 F" s$ p% w1 p
          RowBox[{"Data", "[",   `7 p$ @+ A: z! U# y8 d
           RowBox[{"[", ) B* c8 C1 f2 _: d! n
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 6 q. Y3 g) Y9 \4 M6 N- y/ p" s* l
         RowBox[{"x6", "->", 0 N% k. D. K: _9 r
          RowBox[{"Data", "[", " @9 o$ M; R; H1 G  c4 j
           RowBox[{"[",
, o; v) f; m$ b            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 7 W- s# v+ _5 [2 J$ g/ o
         RowBox[{"x7", "->",
6 a8 v' Q- C9 F          RowBox[{"Data", "[",
) Q6 j: b, K+ y' n2 p- ^' ?           RowBox[{"[",
& E- v( D4 t. j- t            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
  W6 g: m- h! q2 z4 R         RowBox[{"x8", "->", ' V1 {; g5 I8 Q0 e  a) U1 j
          RowBox[{"Data", "[",
! H3 ?& F# W7 e4 D& z% E0 U$ U           RowBox[{"[", * Y4 |7 @1 M  T5 @. q
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",   B& x) e0 l4 u- }4 L3 c! Z
         RowBox[{"x9", "->",
- a8 a. m1 ~0 ]% K, K          RowBox[{"Data", "[",
# l/ c( {: b) {7 }/ ?5 Q           RowBox[{"[",
, N7 ]. F9 E0 V( e- |% [6 M            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
9 Y2 w  y! ]& ~- V, M     "\[IndentingNewLine]",
9 E' O4 ]( Z/ O4 g. D     RowBox[{- G  w" Q! o7 [' n2 w0 s
      RowBox[{"m60n21", "[", ' h9 W7 M) g' @: a# F) L$ M
       RowBox[{"[",
, J, q9 Q7 S5 l, R% }        RowBox[{"i", ",", "17"}], "]"}], "]"}], "=",
& D9 v- O, o8 y( P2 O  _5 K      RowBox[{"u17", "/.", . b+ u' F+ i  S9 j; ]& }2 W
       RowBox[{"{", ! t# q8 `7 h2 ]( w
        RowBox[{
0 [& K' }  i2 D/ b( _* n& ]" n6 S         RowBox[{"x1", "->",
" ]' n  a) k) r) g. _          RowBox[{"Data", "[",
  o- D% D" r4 q' Y1 d$ u2 m           RowBox[{"[", ( m, G8 ]! j+ k3 w% p- H
            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
' P9 w/ L) y0 k7 l         RowBox[{"x2", "->",
8 P8 R% H: ~- ], @          RowBox[{"Data", "[",
" \0 U' l1 d8 I4 Q4 M) a           RowBox[{"[",
9 M6 W6 g% `5 E9 T0 M& d, H" V            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
- K% G2 t( F( K$ t& l0 T- O         RowBox[{"x3", "->",
; Z* ?0 g% y1 K          RowBox[{"Data", "[",
7 v* [. H6 b, Y: O& q- _+ \           RowBox[{"[",
7 F( Q- K4 [3 n% g6 \            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
6 k" Q; C. I, k2 p7 I         RowBox[{"x4", "->", 1 O% d: p$ n9 s3 i3 K. t9 L
          RowBox[{"Data", "[",
4 I: s9 B3 c/ n8 @5 `, L' t           RowBox[{"[",
7 x$ r  Y% {3 a$ ^$ ]6 F            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", ! l' X/ i  s; S
         RowBox[{"x5", "->",
/ y% l3 @/ ]0 P* ]/ x6 V3 t          RowBox[{"Data", "[", " C( z( b* U" w. B9 n6 N7 ^2 K9 R
           RowBox[{"[", 0 y# K; ?& e5 s* k
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
( \) Q7 r  M; o2 q+ x5 u# p5 v         RowBox[{"x6", "->",
: S$ U0 x2 R' J' w          RowBox[{"Data", "[",
3 y; u9 r( e# t& l" F1 z6 a& Y           RowBox[{"[", 2 X# t$ ?8 g6 _: a9 `! G
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
$ h$ r) J7 Z- x( X9 ~         RowBox[{"x7", "->", 1 k3 f9 q3 x2 v$ j: a$ f$ W
          RowBox[{"Data", "[", 0 T3 F- e4 R; W: ?9 ]; {$ h# t
           RowBox[{"[",   w* B3 Y9 s0 ]& b) N
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", % U1 @  j9 I. a# T
         RowBox[{"x8", "->",
  \6 k( \( P/ a8 q; s& w, `          RowBox[{"Data", "[",
/ @$ n  J. l8 c1 ~# R           RowBox[{"[", 4 k; i: b- F5 e3 v
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 7 G$ @* e- u! O9 H" y4 s. d5 m
         RowBox[{"x9", "->",
& I2 ?) ~0 C2 U' A% U( M6 \* W5 @2 b          RowBox[{"Data", "[", 8 ^2 \* F+ v+ }7 k
           RowBox[{"[",
& o' M: M; g+ O- g2 `# ^            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
/ G% J2 I7 u7 z  ~/ R+ t" I7 ]/ {1 S     "\[IndentingNewLine]",
; X* J; D4 U9 p/ H' S     RowBox[{
5 q6 @4 v3 z/ I+ X* G      RowBox[{"m60n21", "[",
5 l" H8 Q! M$ k' d+ e4 J9 k       RowBox[{"[",
2 D1 w5 n& U. y        RowBox[{"i", ",", "18"}], "]"}], "]"}], "=",
9 {& U2 v1 @0 U$ c/ g; n7 p      RowBox[{"u18", "/.",
! ~4 @% V$ e) D& W* A# I8 a       RowBox[{"{",
" y+ v8 T  \; Z1 d; h        RowBox[{) J! |3 t5 r9 H+ W. E) l) Q0 S
         RowBox[{"x1", "->",
4 u7 w5 C: K  X: l0 q          RowBox[{"Data", "[",
! R. c5 p1 r+ N  @- {           RowBox[{"[",
3 q5 ]$ Z/ \$ ^            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
; s: J% C, h' h: a! p) V1 R         RowBox[{"x2", "->", - u# `/ {2 g1 H, d" B8 ^* j. M7 G
          RowBox[{"Data", "[",
! o5 u" a) M+ O+ V+ f: x3 z5 j' ~           RowBox[{"[",
" m5 N1 M: n' |% w            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
/ C' Z# w& C) x         RowBox[{"x3", "->", 9 ~9 T. f& H! {5 A
          RowBox[{"Data", "[", 5 {& V$ A: L' c- U9 \
           RowBox[{"[", 8 z& ~$ h9 z% X) r5 E$ M# }
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", $ S/ e$ |9 l! W7 m6 U9 F
         RowBox[{"x4", "->", : h; B- `* y- m, f% I
          RowBox[{"Data", "[", / p, g, h5 n- r# M% D8 \  R
           RowBox[{"[", , I0 m3 g) w; n: s/ A4 _% v1 z! \' X6 p
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
2 Q6 v' m( C4 A. I2 M         RowBox[{"x5", "->", * F1 W( @* l1 _" E$ B
          RowBox[{"Data", "[", % e4 E/ N, u1 }9 n7 Z, ~
           RowBox[{"[",
7 v+ o& H0 t% n6 {" ]            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
( t8 q: {8 F% M         RowBox[{"x6", "->",
) }& F. R7 M5 m          RowBox[{"Data", "[",
5 b" \7 `1 c  g           RowBox[{"[", ; T% C: Q$ w9 h: T
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
' V4 U7 l9 {" E/ p0 H( \3 C         RowBox[{"x7", "->", 6 a2 u8 q! J9 l1 c# Y" z
          RowBox[{"Data", "[",
/ M% D( W+ H9 E9 x           RowBox[{"[", + l! ]6 \3 Q+ p5 {7 P
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
4 i( R% w* h; b7 I+ ^' t7 [, h         RowBox[{"x8", "->",
1 X( B$ z. N) Y$ P+ e, [          RowBox[{"Data", "[", 8 M- [, ~! j/ U- x
           RowBox[{"[",
! P+ Y6 s6 w2 \0 U- m            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
, J% p6 r0 n6 A. L         RowBox[{"x9", "->",
. |! }* d& X6 C/ N          RowBox[{"Data", "[", , u" l1 D9 `* [5 a! C5 F5 R9 V
           RowBox[{"[", 6 N7 i0 \2 q+ T: e% g4 I( B6 d/ i
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
$ V1 p3 u5 v, N, g     "\[IndentingNewLine]", $ z4 l$ v7 x) D8 y7 M! C! {  a) U
     RowBox[{+ P7 s& s% r) Q7 \" K* i
      RowBox[{"m60n21", "[",
6 x2 u% Z6 O- \& L7 \; a7 Q       RowBox[{"[",
6 c# x1 C0 s. G' \# z, p        RowBox[{"i", ",", "19"}], "]"}], "]"}], "=", 0 y' h9 P6 I, \$ q7 U2 Q
      RowBox[{"u19", "/.", " [) g( L. w) `* c+ z
       RowBox[{"{", ! J( C; M) R; z
        RowBox[{5 O3 A3 w  c$ F  Y9 A! g3 m
         RowBox[{"x1", "->", ( T. x7 `$ \# s- G. N7 `3 f
          RowBox[{"Data", "[",
8 c8 c5 U" M3 r! G           RowBox[{"[",
0 z% T- r, ~# J3 @: t# w! R            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ) \3 p# R5 S1 ?) |6 r2 j9 G; s
         RowBox[{"x2", "->",
" I& a* |( B9 p9 r' i! B, a* m          RowBox[{"Data", "[",
6 G+ h  X# O9 Q5 i6 p           RowBox[{"[", , }9 B% R0 h$ \; ]  q" w  j7 z
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ' F8 H. K6 L, h: c2 Y8 L
         RowBox[{"x3", "->",   v: A$ N3 T! c' @6 W
          RowBox[{"Data", "[", 1 w+ f3 f9 a$ i* Z  q
           RowBox[{"[",
" v0 u  [$ V8 Y$ r" T& i            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", * m6 N: c/ W9 @, j% z$ F9 S$ r3 a. P$ R
         RowBox[{"x4", "->",
0 _. z/ ~# _; L7 v! U+ I* ?% e# m          RowBox[{"Data", "[",
+ ~4 ~+ y( w" A# B3 I           RowBox[{"[", 5 c6 ~- i; m( T
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
. L6 {9 ^) b; P( g         RowBox[{"x5", "->",
# L  m3 o+ W9 W          RowBox[{"Data", "[",
" }3 l* Y7 W7 N( _. t1 q           RowBox[{"[", : p2 Y0 g  K6 T( s2 s. ]
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
2 W( }% C' Y3 u7 y; F6 f         RowBox[{"x6", "->",
" A$ g8 W. Y* O  f0 I          RowBox[{"Data", "[", 9 S5 I3 O2 O4 m/ |- t( p
           RowBox[{"[",
  @+ B% s. a1 u! ~            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
0 m: o) z" f6 k( q, H, T         RowBox[{"x7", "->", # t1 u4 s( V$ n+ A- a8 n
          RowBox[{"Data", "[", 8 I7 ]( P, j7 b+ c4 i, c
           RowBox[{"[", * x. k2 C1 H( V
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ' i) q5 |- O: c+ F$ n
         RowBox[{"x8", "->", ; Z9 @) E2 f; j; {; l3 _
          RowBox[{"Data", "[",   y. \; ~0 A/ h' C
           RowBox[{"[",
* V0 A9 O, F: S) W% Q* C" @            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", 9 L1 N* r, p9 }6 o2 c1 e" R
         RowBox[{"x9", "->", * U" P) }2 w9 |1 {
          RowBox[{"Data", "[",
, U& N' L7 ^7 w) Z) f% ^           RowBox[{"[", 0 W4 y( p9 z3 s+ `6 v
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
5 ~+ g+ ?# ~3 _! k0 E9 h; |     "\[IndentingNewLine]", " }  Q8 {+ G6 a: y) }; N$ j
     RowBox[{( e+ \" k9 z! w/ @0 L
      RowBox[{"m60n21", "[",
  u2 e0 p$ t. M2 p' O       RowBox[{"[",
. V& O- O( w  N        RowBox[{"i", ",", "20"}], "]"}], "]"}], "=", 6 ~( u7 Y: u, D, s& [1 ~
      RowBox[{"u20", "/.", + Q8 C9 U! o+ O
       RowBox[{"{", + ^2 [& _9 ^9 e% L& j9 S
        RowBox[{
* n: C  \5 i4 K         RowBox[{"x1", "->", ; z/ j5 |  e8 K6 I( s
          RowBox[{"Data", "[",
" ]+ G- m9 l# [) @- h% h* N4 ~           RowBox[{"[",
) ~9 N1 U4 U; g7 i! \  C            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", " Z) H. i! L: O4 ^$ f1 n6 ~2 B9 A
         RowBox[{"x2", "->", $ F( c, _; O0 O; S1 I; E4 Q9 g
          RowBox[{"Data", "[", + D1 v% Q2 o5 n3 d! e/ {
           RowBox[{"[", ' B4 @  P* y! v0 c* S  @
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
' l8 r1 m: y( F4 q0 f         RowBox[{"x3", "->", ) {$ q9 _3 [: G
          RowBox[{"Data", "[", 6 E" b+ E$ c% d1 g* u$ ]
           RowBox[{"[",
9 S( u6 U, b* n& z3 Q! X            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
1 c; b+ c4 U  k6 N- n         RowBox[{"x4", "->",
5 U4 v8 c1 [: E7 r          RowBox[{"Data", "[",
7 h8 ?9 K* o. }7 d           RowBox[{"[",
  ~) Y1 {. N3 |! H$ z  U            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
) p  a# y* U; k5 X, L4 c  i         RowBox[{"x5", "->", 5 [! O: M( t) ?$ q* G0 v: O
          RowBox[{"Data", "[", , J8 ?# k% }9 H
           RowBox[{"[",
# m; x) f: r6 `  m            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
6 F0 P# z4 |- {: z7 `  T         RowBox[{"x6", "->", . m: E# M3 i5 g! ~6 T
          RowBox[{"Data", "[", ! A. ~: M+ s$ C/ e
           RowBox[{"[", 8 ?5 I7 \2 s4 S; F9 a
            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
: f  T0 o6 }/ e7 E1 T         RowBox[{"x7", "->", & a5 }1 U7 I6 }& u. f
          RowBox[{"Data", "[",
" O4 {2 I! H, d0 U' A           RowBox[{"[", " Z' R2 l3 i8 _+ C% u  |2 B
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
7 N, Y! x, C' L0 b- q7 o         RowBox[{"x8", "->", $ g5 u$ n9 E( Q) p
          RowBox[{"Data", "[", 9 K* N: \6 ^5 r& V# h3 X* G! E2 w
           RowBox[{"[",
- Z4 }7 w8 O; Z            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
  Q: L5 M: v8 t0 t6 O% i9 H* R( d         RowBox[{"x9", "->",
' `" A1 J+ H" X  _" u          RowBox[{"Data", "[",
. Y# B+ w2 B" ]: L5 H8 J; J* K           RowBox[{"[", 6 g# C" O; z, W; r8 R  |
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
* H2 E8 k% {2 ~' z9 N     "\[IndentingNewLine]",
/ |8 a% x4 P4 D+ x$ |( o, D     RowBox[{
3 s% ?: g3 Y' y* S      RowBox[{"m60n21", "[",
1 z: _( |/ S+ F/ R& C1 U       RowBox[{"[",
, l3 M2 Y1 v" j, O. G/ w' m        RowBox[{"i", ",", "21"}], "]"}], "]"}], "=", 7 n1 n- e8 V4 n( E% @% ]2 U
      RowBox[{"u21", "/.", ( Q: S5 y$ b( A' _8 H1 j
       RowBox[{"{", " C# e* M; `% q" i1 u. ?2 l1 {
        RowBox[{& D( ]4 y% i! O5 `: J, C+ X* O
         RowBox[{"x1", "->", ' W$ I8 i; W! `2 I5 L) e
          RowBox[{"Data", "[",
. c- B; c) v; ]& b* o* I3 E# f) Q           RowBox[{"[",
2 c( l, |# n  Y( L            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", * B2 g1 k% w; t3 s, A
         RowBox[{"x2", "->",
/ W+ p; k  p' p# ]0 F6 t3 z          RowBox[{"Data", "[", ( ]$ J" d. o9 g4 e  |& y! `
           RowBox[{"[", 0 e9 M8 M& R8 x* g: d! A
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", " V6 L# w6 K- }. p* R6 n
         RowBox[{"x3", "->",
. V: t/ G9 ^4 T( a          RowBox[{"Data", "[",
: V9 U+ ^; t  y9 V! m- M, o, i           RowBox[{"[",   k$ E  x" \% v) b
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
3 e8 n! E0 S5 R$ H         RowBox[{"x4", "->",
* p( U( k6 P# n9 w4 F% B6 f          RowBox[{"Data", "[",
' x8 Y8 u! N5 O' h5 _8 f/ d% k7 B           RowBox[{"[", ! z1 F. b% m, M+ w
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 6 X" N( G  F& v
         RowBox[{"x5", "->",
% l* v- L+ f3 z  V          RowBox[{"Data", "[",
6 j. {1 C, C; [" X           RowBox[{"[",
( l) V6 A. G2 w3 Y" u            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 0 R( q" N# Z/ z( s$ ?3 V7 ?/ q+ ?( u
         RowBox[{"x6", "->",
: G5 a% D  F: O1 f9 r) }          RowBox[{"Data", "[",
3 m9 @: F0 o1 t( ^% p8 _9 q           RowBox[{"[",
& C% e' A& e: b/ Q            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 6 C+ @) ?6 O, V0 u
         RowBox[{"x7", "->", 1 h- e- E8 S9 y5 G
          RowBox[{"Data", "[", 7 W" n* \) h5 A( F
           RowBox[{"[", # _1 K# G- z- ~( q7 D
            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", # ]. h; z( Y8 b% `% ~
         RowBox[{"x8", "->", % V. }6 E/ H3 L0 B
          RowBox[{"Data", "[", 8 M+ v6 B0 i% H1 q6 ~
           RowBox[{"[",
! u  d8 V2 n* A* \0 Q# w            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ) Y# W; h6 q5 C' V. v
         RowBox[{"x9", "->", 8 B. D8 o" k/ [: _8 N& T+ {( S
          RowBox[{"Data", "[", 6 ~# H% g: n* S' c& W& Q
           RowBox[{"[", 5 N4 L* V5 S! e0 b
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}], 5 a7 Z8 E7 D# z/ W/ q
    "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
0 Q! l; v, |2 ]; o* C CellChangeTimes->{{3.5779241165*^9, 3.57792417728125*^9}, {, E9 V0 G1 g' ]6 e
  3.57792428359375*^9, 3.577924585109375*^9}, {3.577958919491543*^9, : T; X# U, b2 {/ P3 O
  3.5779589224867477`*^9}, {3.5779619825731473`*^9, 3.5779620676400957`*^9}}],
. N( x  y' v: }; j1 ^+ X- b! b8 H/ V
Cell[CellGroupData[{
2 M+ `0 ?! x- U8 w
$ m2 t6 ]& ^: L( q. `- {Cell[BoxData[
4 X9 |& w) [% i# ~: D. H9 n* A RowBox[{"w1a", "=",
" d- M4 z2 C* I+ f  RowBox[{"LeastSquares", "[", 0 I# t3 t% s# w0 x9 G+ u/ E0 Q
   RowBox[{"m60n21", ",", "y1a"}], "]"}]}]], "Input",2 n, Y, L  c: `# B
CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {
  _4 Q5 {- S3 D  q3 d9 {  3.577924662765625*^9, 3.57792466596875*^9}, {3.577962074644508*^9, / n* w; c9 E, W4 t, T, r9 ?% p9 a
  3.5779620748317084`*^9}}],
' M6 h4 P! d* K0 y1 R9 L. w2 Y( B% s$ O& T+ ^
Cell[BoxData[8 Z% J2 z: J9 R& g
RowBox[{"{",
$ F' }* S. y2 ^! Z  l/ Y1 \  RowBox[{"0.32564305572552416`", ",", "0.500820838606441`", ",",
. S$ r) `( a. U' z2 n, [   RowBox[{"-", "0.5945873894818967`"}], ",",
3 v4 @4 b( Y0 ]4 A   RowBox[{"-", "0.1999688587779198`"}], ",", "0.020180806675835994`", ",", * b! W! N; z0 ~+ x" X
   RowBox[{"-", "0.03345934908892623`"}], ",", "0.25282438852646905`", ",",
8 a: w* R1 ^* s   RowBox[{"-", "0.17602467625404622`"}], ",", "0.3961180670900672`", ",", 0 q. c( }) Y  }2 v1 L
   "0.02759193650965952`", ",",
# E/ P9 Q. |& ~: f8 T   RowBox[{"-", "0.320472847796449`"}], ",",
5 o- V7 }$ G8 @8 K; F3 \2 D   RowBox[{"-", "0.07581214474544527`"}], ",", "0.4812237524557292`", ",", 9 p7 P% G2 `; i$ S% I4 c# U9 |# }
   "0.7528674241482847`", ",", "0.6665374509702799`", ",", + c- }  c) z# q, x# S5 ?; L# k
   "0.22861495086373018`", ",", "0.13092706311748484`", ",", $ R  J- D7 m  D1 ^# |9 v6 ]
   "0.5252475961933538`", ",", ; D' P! V, u7 ^* j7 k- C0 O* N' y
   RowBox[{"-", "0.10599338351843157`"}], ",", "0.6670272593678526`", ",", 0 ~5 P& N# f% \2 V
   "0.23580523388620733`"}], "}"}]], "Output",3 b7 i- p" D7 [8 ?8 C8 g, U
CellChangeTimes->{3.577924621953125*^9, 3.5779246688125*^9, + F( {* u5 h, z& ^1 G3 |4 Z
  3.5779575884583836`*^9, 3.577958952875601*^9, 3.5779620806661186`*^9,
# @  }/ c" M7 d  J  3.578012349875*^9}]
, U$ O9 p# `! e# ~& F( S  ?}, Open  ]],5 A$ w& [; Q: T; V2 P8 k3 g& [
. c! U9 ?$ _( e" u
Cell[CellGroupData[{5 V" T6 e0 s8 d
6 i4 t+ k1 c7 ~. T
Cell[BoxData[8 o* N( j6 P! T8 Z  s2 y
RowBox[{"y1", "=",
* J- x- P7 l& Z7 `6 @( ?7 d5 f  RowBox[{"w1a", ".", & c$ p0 T3 A. v. P6 M4 @3 ^) v8 H) E
   RowBox[{"{",
1 Q/ C2 q: G% _0 j3 Q    RowBox[{7 V5 r; ~! L. y# L. Z; H& k
    "u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7",
- z2 _6 t# g+ X# u) O     ",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13", 0 }! U2 v  c6 Y/ F7 G( X2 R* j
     ",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19",
2 U4 W; Q# @9 v$ n6 c/ v  E& `     ",", "u20", ",", "u21"}], "}"}]}]}]], "Input",6 w0 z& z4 u1 f
CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {, s  M- t' n6 l3 t/ y
  3.577924897078125*^9, 3.57792491596875*^9}, {3.577962095642144*^9,
8 p! N7 N" b# P: K3 M$ p; _5 p  3.5779621231449924`*^9}}],
5 y. X6 N9 e3 J# C0 ^7 C! l" Y2 T+ r, O. N: S5 ~' p
Cell[BoxData[
5 b; a7 f9 k- N; {4 L6 X6 k- w RowBox[{
+ w3 Q4 ^( y# S0 R  RowBox[{"0.22861495086373018`", " ",
0 h# v/ _& G# w6 ~   SuperscriptBox["\[ExponentialE]", : N* J- N. [/ [/ y
    RowBox[{"3.141592653589793`", " ",
, }" Y4 o, m: ?% g     RowBox[{"(", % F* k" p- w1 c$ B7 |8 i' B
      RowBox[{
, f2 M) H0 f. f$ m4 j; U       RowBox[{"-",
" J! _2 M8 J# ~2 A        SuperscriptBox[, b$ F8 w8 B* J8 g# [% ?
         RowBox[{"(", 1 D6 {. y/ @9 r! \+ ^6 W2 O
          RowBox[{
' y5 r/ h! D2 O- Q% b1 S. W           RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", 6 ]7 P8 f4 x3 j" M/ e4 S# N1 ?
       SuperscriptBox[
! |* i9 `2 J$ o0 q        RowBox[{"(", : }& W" W- k5 R. `; {: Q5 q
         RowBox[{+ {! Y0 Q7 k9 |3 v( h+ T+ O
          RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
- E- {2 N. M7 t       SuperscriptBox[( j1 J  o0 e3 U) y$ `/ N4 z- e9 ~9 g
        RowBox[{"(",
% H6 d5 j$ a& _         RowBox[{
  A6 y: H2 w1 t* {5 O' X8 H% d          RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", ! p1 F& R; M  Q* {* N: B5 i9 z- o! n
       SuperscriptBox[
! ]' F1 l, V) r- o        RowBox[{"(",
! b- \; s- ~0 \# |( i1 x. j) h         RowBox[{& E- Y3 P- x- x& Y! F! O8 b" @  Q2 E
          RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
0 i+ f' X# z1 J1 k; @       SuperscriptBox[' B/ j& x" B  l4 r- R9 D
        RowBox[{"(",
% K) F, R. A3 ^         RowBox[{
6 g/ M6 n+ ~% I          RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
) |# C8 I" N7 K4 `7 K  \       SuperscriptBox[
% x0 R7 j# v1 R- m        RowBox[{"(",
6 P" Q* Y$ p" T* o9 U         RowBox[{
6 s" E% w4 x# L) x          RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", ) U% M* s, _6 m1 i2 b- S: g: X, F! ^1 t
       SuperscriptBox[
$ y8 Z' Q  y+ W" v* J7 a        RowBox[{"(",
: D. y+ a" ?8 f! W6 O. m7 X8 y         RowBox[{- _' j* I' w* t) A, S' E) r
          RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", , p. M6 x. [' x5 F# `( }3 |' B- z
       SuperscriptBox[+ s3 F! L; P, L3 r
        RowBox[{"(",
2 `4 r- t  N6 u8 B+ D! t; }" \6 z         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 ~8 k, D" D0 d% t7 B7 Y
       SuperscriptBox[
! n7 |  I& w; b9 }1 C6 P        RowBox[{"(",
* y: d& Z+ J9 }, L  e8 x$ ], e# E         RowBox[{
$ T* v) O% @& c2 O' g- ]( a9 T* W) X          RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
" y3 ^9 n: o( U% `  RowBox[{"0.020180806675835994`", " ",
7 [1 C3 w+ K7 \   SuperscriptBox["\[ExponentialE]", ; O* [. ^3 T# y7 s
    RowBox[{"3.141592653589793`", " ", : a. ^9 y9 l  j# k
     RowBox[{"(",
. Z: U7 i0 B6 M2 y2 T! O      RowBox[{/ f1 j4 S1 j/ m3 G: f
       RowBox[{"-", + R) _0 a6 r% W7 N
        SuperscriptBox[
: V9 s$ ?; q% p         RowBox[{"(",
7 O6 A+ ?4 D3 P$ z  g          RowBox[{
# c, h3 I8 W# |8 x. l* v; y           RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 f' k0 K7 l! E/ O' c  I7 ^) V
       SuperscriptBox[
- m$ {# S; a. v" H! i. ?- A4 M0 w$ g( ^        RowBox[{"(",
1 P4 f, C' [* }         RowBox[{( x$ Q# X! c- L
          RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", 8 _& s/ B/ E3 d0 A% w, {4 ~& M1 w/ u% ]
       SuperscriptBox[
- G$ z3 |* x! Z- p2 A3 ~        RowBox[{"(",
4 E$ @* f& c- a9 D8 A* [( ^! U         RowBox[{
* C) l5 i8 w  `6 D$ j2 y          RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
1 e8 b: q* Q% v       SuperscriptBox[
2 y+ k% h! Y' W& q        RowBox[{"(", - D$ J7 b/ I0 A# ]6 ]1 o
         RowBox[{
; L7 R) |' v$ W1 `0 H, k          RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
3 ^1 w) U0 Q* n8 E2 H       SuperscriptBox[
( W$ J, V6 k* u        RowBox[{"(", ; a( h4 K/ a( j8 X8 u9 z/ d
         RowBox[{! k% o9 ~( {  @# i
          RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", - J8 c# [# f/ O8 y% K/ Q
       SuperscriptBox[* Q7 t3 ~3 r6 _1 N+ _3 d( d
        RowBox[{"(",
' g3 z; q" m: w" X1 w: {         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
( ^% D/ H- m3 V" X7 D" e! g1 V       SuperscriptBox[) \0 Z3 ?! w2 Q) {7 ], P7 u
        RowBox[{"(", + V1 ^) O9 v% `" H9 U
         RowBox[{6 g# G& W1 n7 q" e: W5 [% }. f
          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 3 V9 R$ o4 w  C  Z2 w# K2 L
       SuperscriptBox[
( x' E6 m! A$ u- Q% L, @1 J& G        RowBox[{"(", # K- |! n8 |6 ]! j) y& s; p
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", # E4 y1 [5 ~5 W/ }/ E9 F
       SuperscriptBox[
/ i1 M  I  n4 ]7 H  T# p1 c; m        RowBox[{"(", 2 `- }6 c. `. Q2 }/ Y" `: p6 w
         RowBox[{
) N" G! d  m$ d+ A/ E+ h) a          RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ; p% v7 q- w  ~" ^/ I6 S  Z8 w
  "+",
3 ~$ ?& X0 ]; }  RowBox[{"0.13092706311748484`", " ",
, _# g" V; F1 J  e7 ]% Q   SuperscriptBox["\[ExponentialE]",
8 w! b. H; t" z- d% c: G/ D    RowBox[{"3.141592653589793`", " ", ; y! k0 L8 H9 u  V5 c
     RowBox[{"(",
. N8 [8 ^# c( m' z: }# X( C+ D      RowBox[{; M1 L' ^; }1 _$ P6 i% O0 u) V. O
       RowBox[{"-", . A, i8 j% |: K: C) e+ w1 K; S
        SuperscriptBox[
" o' I; z0 f- I6 H) R7 H         RowBox[{"(",
7 h# E& [0 \6 H; a# a          RowBox[{
# v/ t! v+ @& y8 C* W, J& b           RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 ^3 ~. ~. f+ p+ p, a7 |  ?1 N+ S" J
       SuperscriptBox[1 N/ V8 Q( o- [7 V+ k* \
        RowBox[{"(",
3 z, \) t( K, s9 [8 s         RowBox[{
( r# V  }$ l. X0 s7 N  }          RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", + F: E( \3 U8 Y
       SuperscriptBox[8 p- M& \( e8 a# S  a
        RowBox[{"(", 1 D2 T4 S" j3 g0 L+ n* F% Z
         RowBox[{
. j# T  o' d! t& ^$ Y+ G+ W5 K. d          RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
. m: z' L" z: u# l* K! Z: l% t       SuperscriptBox[
) S& k7 ]' s) n- d, L( ]- l5 \* ?. q) ?* I        RowBox[{"(", ( i5 z6 S0 W/ }. C  j* _$ U+ y
         RowBox[{# I# v* t& F& h, w
          RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", ( Z1 t+ C; ^+ q8 e' \6 I; F9 {
       SuperscriptBox[% @- A% C3 k# A2 k4 Z1 Q
        RowBox[{"(", $ H0 G/ x0 z$ v& o
         RowBox[{& U4 G3 v# E- I7 g
          RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
9 ^+ T% z& s! o' [$ Q       SuperscriptBox[
0 r8 W) f0 ]$ x0 K        RowBox[{"(",
& c6 }8 r" k7 h         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", . A- Q: D) |5 j( J7 I- \; U
       SuperscriptBox[
# V% l9 L( r6 e$ L6 \5 Z% o        RowBox[{"(",
) ?) i  @5 Q: t9 r8 l" ~         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
* m4 Q7 {8 c! L, X! m, H       SuperscriptBox[
& U; _& B! ~) e        RowBox[{"(",
8 [3 z8 r+ c" I3 {5 r         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
6 u% c' A. [8 L- ?' g       SuperscriptBox[% s4 J# x2 R+ D! Y% }
        RowBox[{"(",
9 b9 {# U4 a4 `7 U9 U# E6 V' ]         RowBox[{' b* M3 d7 y1 z. r4 n5 C
          RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
3 v& x- O3 }+ F3 d  "-",
! @  a- C# m- K. c& x  RowBox[{"0.03345934908892623`", " ",
7 m' S$ }6 U" G# g5 w9 [   SuperscriptBox["\[ExponentialE]",
- V; G2 @; S( [5 L4 R6 x    RowBox[{"3.141592653589793`", " ",
# J+ R% U( I( G+ y     RowBox[{"(",
' Q/ J/ ^6 b; _) I, `2 C9 w5 k      RowBox[{
0 E- w) f0 ?" F' g: \6 O       RowBox[{"-",
( t. u  X- P" ^+ M9 y- V        SuperscriptBox[+ |( l3 M2 m+ t% z" F
         RowBox[{"(",
7 l0 j" h% w$ }9 p  J          RowBox[{2 ~% v6 |  d0 }
           RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
1 u6 G- p5 ?- Q5 y       SuperscriptBox[, `! [+ i1 Q8 i: \) t+ ?, {
        RowBox[{"(",
6 G$ O3 L2 n( h2 n! P4 v" d         RowBox[{
# G  V  [9 V. j5 |- W8 b          RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
: d9 u6 N3 |5 d! @' s- U) {, \       SuperscriptBox[  ]# ~3 O: C7 R( G
        RowBox[{"(", + ?! E  K. {' A+ _# h6 ^
         RowBox[{
0 w7 ~/ o) A0 J8 V% e) |- H          RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
# M; o& K" \2 Q$ k8 F2 V% i4 O* d       SuperscriptBox[
+ U: A' ]% {) |3 v        RowBox[{"(", 5 v2 g' k* _0 l
         RowBox[{
4 s" ?, S% ]! `( a. V9 Z4 q          RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", - D' x5 o8 n2 ]+ _2 }0 W6 y
       SuperscriptBox[
$ T$ C/ R$ R+ Q7 }! Q9 z        RowBox[{"(", 7 X0 y1 e5 M4 Q; W
         RowBox[{; p2 ]+ y+ V; _7 }
          RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", % N( w  S( G% P8 L9 f( |+ x( M
       SuperscriptBox[
# [: l( V0 Z% S5 J' N* a4 T: B* L/ X        RowBox[{"(",
5 {/ i; x, x* }* r         RowBox[{' f& N' v& [# J
          RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
3 F5 f- D; n0 {7 p% Q       SuperscriptBox[
& z) E% k: X0 w- B' j. }/ O# \2 f) F        RowBox[{"(", " X+ i) s- R" D( P2 R
         RowBox[{9 k5 ~+ d0 ]& L6 O$ U; w
          RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", - L1 O2 N8 S7 [$ c# c2 B1 G
       SuperscriptBox[
- }  a* q: Z8 g        RowBox[{"(",
9 z/ p' Y- Y4 h2 F: T6 X         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", & L/ E' k0 S/ @" {6 b& K* e8 k* F
       SuperscriptBox[
; |9 ?& R0 O2 Y        RowBox[{"(", ' {# b  I' z4 |" `" f
         RowBox[{
6 I6 ]2 p! ~4 ~, Z! M          RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
) X0 I1 L: e1 P3 ]" V9 G; b  "+",
1 c4 q  q# Q0 `- N; t  RowBox[{"0.3961180670900672`", " ",
( n7 e+ w. ]7 C. ~0 l% o# W' |% {   SuperscriptBox["\[ExponentialE]", ; f+ z+ d% _! ~, t3 I/ x
    RowBox[{"3.141592653589793`", " ", 3 x! {6 q& z6 O" K$ q, o
     RowBox[{"(", ! j7 H6 }9 \% U; q- n5 E& x
      RowBox[{
8 Y: Q& P' F5 M$ P& W' ~8 C( w' f       RowBox[{"-",
: \# a( J6 O0 c9 i        SuperscriptBox[- ~0 v$ B8 r5 x+ E+ @( H/ c2 t
         RowBox[{"(", 9 O, n+ v% ^- G7 a& c
          RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", ! ]7 m  j$ @- L4 t/ C" f
       SuperscriptBox[
3 ]$ I. m4 k# B+ P: R3 L- k        RowBox[{"(",
' B* E- {1 \8 }7 o# p) F5 ^# ]         RowBox[{' ?: h* B7 o* M3 O
          RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", ) b% Y- h& z) Y) K) V3 c( o2 I
       SuperscriptBox[
" C* A: N5 G) p/ q        RowBox[{"(",
6 g4 N) q& [' x# B" \( y% |         RowBox[{
- `  H9 r- V3 F5 l          RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
0 |, _% b( \* c+ B( D7 }3 S- L: k       SuperscriptBox[
0 n6 m; R* p, D2 _9 _! w% M0 i2 J        RowBox[{"(",
7 @8 m, @# L) W. c         RowBox[{
, P/ [4 q, j+ n3 \. G; F3 s          RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
  h* B; d5 t; U- i. R3 C" b0 @       SuperscriptBox[
  S  e; }1 ~4 Y6 U; |        RowBox[{"(",
) R8 f, m( W, G- P5 n5 |' e         RowBox[{" P2 D1 |8 o+ \! g6 V$ N: v# Q
          RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
3 F* M. e) e  Q       SuperscriptBox[
% v/ h" p4 A6 I        RowBox[{"(",
4 X  ]) a' f0 N6 g6 q2 S         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
; Y# d# w$ U5 r' ~6 L       SuperscriptBox[$ ]$ E# p" E4 X( B  \
        RowBox[{"(",
: }# V: r" f7 l- C: D         RowBox[{: T8 ~: z' |- n4 h4 J0 ~
          RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", 9 p) x/ E  s* N( v% @
       SuperscriptBox[
0 s' }3 y# s; l  u! l9 o: I        RowBox[{"(", 9 G% m3 T, H' k( b! W. f9 r+ m
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", " d0 c7 S( u% L, y( l
       SuperscriptBox[9 e# ?  w9 }$ m& D
        RowBox[{"(", 0 Y9 S/ a1 `3 |4 R5 U0 a0 E
         RowBox[{
1 W) C7 M2 l" p: h. t" K2 s7 ~; A          RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
4 M! k8 R3 u8 }( h4 l, r  "-",
$ F; T( @% P' U  RowBox[{"0.1999688587779198`", " ",
9 ^( R2 D: s, h/ I' W   SuperscriptBox["\[ExponentialE]", ) z7 A4 h. ~9 H
    RowBox[{"3.141592653589793`", " ", % B- Y" k- B# U8 D( m1 V
     RowBox[{"(",
6 O# v& k5 }8 U8 c1 g      RowBox[{
) b3 A! ~; _. M. a- ]) [) G8 R& I       RowBox[{"-", 0 X# |' C& t  @1 w
        SuperscriptBox[2 `4 f* |* R2 k( J
         RowBox[{"(", . ]  W5 Y, U9 F7 }3 W* K: p  ?
          RowBox[{" X$ ]' o* a, \, _2 b' S6 Z
           RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
. f9 l0 ~  S) u" `) i$ n: L       SuperscriptBox[9 q9 e5 I+ |. ]* k4 \; W# O. S
        RowBox[{"(", 7 f5 i) r$ t: @& e
         RowBox[{& ~2 s  y* x' \8 Z# T9 ?
          RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", 9 U4 L$ u& ~6 n; _7 i# j2 E
       SuperscriptBox[7 _* W" K% a6 c: _) b
        RowBox[{"(", + d. d$ Z: i  y1 S. N# d+ d
         RowBox[{
- o; c, h) y' r! ]6 X" \7 `: c0 \          RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
" U* I2 f: {( C       SuperscriptBox[
- i1 |; H7 V1 L* M0 r        RowBox[{"(", * a& y( G+ J% k2 W  e$ H
         RowBox[{
5 A# N) S3 m8 d          RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", ' t3 b8 v0 {5 @+ A3 f8 k
       SuperscriptBox[
! {5 c1 Z& a( t% ?0 U        RowBox[{"(",
3 b% c* f4 A2 L0 U. H. z         RowBox[{( z! Y0 x# w% d* M' K
          RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
6 t+ h5 v7 f, m- q; H% z. A' O9 p8 f       SuperscriptBox[
! {6 `! H. d) c9 L, u* h( o        RowBox[{"(",   c& y. E; L% k9 Z5 E$ Z+ b
         RowBox[{
$ Q( M% U3 M0 k  n1 |) b          RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
$ y  W" J  P+ [0 \, F       SuperscriptBox[6 D% A2 V" B, Z- _4 \, Z4 N6 z8 C3 C
        RowBox[{"(", ; }( ^3 Q! U* `5 i$ C4 ]
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", / M4 T; N" I0 r  e. F
       SuperscriptBox[
" {% G+ A0 }4 V2 G2 R7 g        RowBox[{"(",
8 ]- u# S9 z7 k5 l/ u2 |         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
0 U' v6 N) l# T; N       SuperscriptBox[: e  g+ L8 Q! q
        RowBox[{"(",
) `+ ~, n' W8 X4 g         RowBox[{
* K# T' h0 \2 @) r: p+ E          RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 5 ^' K! a& ^: W5 c9 l
  "+",
8 u2 s& ?7 E! D9 e0 h2 @  RowBox[{"0.23580523388620733`", " ",
0 A, t+ [$ W0 J8 g% A7 o1 M   SuperscriptBox["\[ExponentialE]", - N9 s; r& T- U8 C+ s! Z
    RowBox[{"3.141592653589793`", " ",
  ?+ l, O$ A6 w9 Z/ i# Q+ N+ A2 t     RowBox[{"(", 0 x8 r# d3 I4 x. e- r
      RowBox[{! z  D3 h* h# y9 h- P2 I
       RowBox[{"-", 6 r1 g& T- H% G2 \; u. S5 s) K
        SuperscriptBox[( a: E* _: H* p/ H/ |3 |
         RowBox[{"(", 1 Y! }4 H3 Q& M& t" q8 {) j4 Y
          RowBox[{
' c5 g  C- p1 n3 s/ {! i- i9 Z$ ~           RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", . p7 ~& {0 W2 }# [& `$ }
       SuperscriptBox[
! h8 H: \8 M1 k  P        RowBox[{"(",
) i& J8 F3 E2 g         RowBox[{
9 Z+ l. [7 K! F0 g: `5 Q+ B          RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
+ {8 X/ T$ D1 g. h$ I       SuperscriptBox[
' z5 m" a- R: I; ?        RowBox[{"(", . e2 q/ p3 n. L( P
         RowBox[{
/ V8 }" @8 @4 x/ m. P; H3 ^          RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
, K1 v& j& P* A0 H3 p, t       SuperscriptBox[( h7 r3 G  B6 _9 {( b2 `5 `6 P6 n+ w
        RowBox[{"(", 0 |. d) \$ U( y4 [0 I: `
         RowBox[{
6 [8 w7 K3 T7 U3 P! Z2 S. Q8 L          RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", - g1 N5 [$ Z$ Z) \- Y# v& r
       SuperscriptBox[; ]- X/ N& C; U& w& U' K1 ?4 k8 _
        RowBox[{"(", 6 u5 I$ n- [& d) F+ ~' U( z
         RowBox[{( ?! ]; s1 D  [5 e* y
          RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", % M9 Y- h. F0 }9 R+ o0 h. C$ v7 s. X
       SuperscriptBox[. P( w! H  V5 r  r. ~4 r7 k6 g& R
        RowBox[{"(", 6 _/ n7 }# _+ t( U$ ~( h
         RowBox[{  O6 r" O* f' r' I! l& G
          RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
' F  W) v' Z: P5 ^$ E* L       SuperscriptBox[
) ^8 ~* k8 N2 N# Y( {        RowBox[{"(",
0 W( x1 ?7 n" ]         RowBox[{& K9 k7 u( ^6 x6 v
          RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
+ L) ?9 P& E' q" [! Q5 H8 _4 M       SuperscriptBox[! O$ [0 l/ T) G+ H
        RowBox[{"(",
1 Z3 ~. {6 M  a$ j" E* x# j! I         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
1 r, O1 j1 O) b' g+ q, v6 u       SuperscriptBox[
0 u& A5 I+ `1 K% [1 u0 ^        RowBox[{"(", 9 _+ A, ]" p, s( A7 {+ e
         RowBox[{
7 a8 I, K& _7 k$ {          RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
) [0 P  v) F! n( _  "+",
8 m* Y) O+ Z$ H! x  RowBox[{"0.6670272593678526`", " ",
: q0 p, g2 G5 d   SuperscriptBox["\[ExponentialE]",
: w2 ]$ x& A/ M' e  i2 F9 `5 u. s* G    RowBox[{"3.141592653589793`", " ",
/ b  W- i2 j/ U6 a3 j, {8 w+ K* F, C     RowBox[{"(",
3 S  x+ \' @1 i  `      RowBox[{
* a5 P+ w% U( t+ g       RowBox[{"-", 5 I1 r7 N  @. E& t1 t
        SuperscriptBox[
* ~6 o. a+ w, ^, [         RowBox[{"(",
2 V. T+ n8 G; r0 E0 o# I          RowBox[{
& ?  j6 r2 n' M           RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", , l! n) r& X% |
       SuperscriptBox[
7 H0 H6 C% ?- Q# [        RowBox[{"(",   C! n& L" w; t
         RowBox[{
% `! O! [5 t/ W8 E' w8 z! v          RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", ; K1 N% g. n0 `0 j) j
       SuperscriptBox[. |- B, X/ ?4 k
        RowBox[{"(",
* J5 H0 E; `2 D/ J         RowBox[{
3 z* s, {. \2 K+ K1 n, Y" A4 C' b) j          RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
; w- I/ ]* e- D9 {6 P       SuperscriptBox[
7 K: v  L; Z" _9 c        RowBox[{"(",
; ~4 G2 k& O0 i3 F; T         RowBox[{
3 O% F6 G) Q  I, w9 l5 ?; |1 F          RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
  Q4 p% z4 H9 Q7 s/ v       SuperscriptBox[
1 w+ U5 f# L( |+ U1 G' A        RowBox[{"(",
3 l$ `* F0 @: S. c4 Y: o& q         RowBox[{
; \6 O; Y7 z& u% Y/ b2 }          RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
4 A* _: c$ k6 t( O  L7 ^       SuperscriptBox[
7 K3 _) f+ l& d, Y$ y$ \# V        RowBox[{"(", 5 a2 E( s, L8 M0 N; a
         RowBox[{  _3 m+ A, D# ^; |+ ]
          RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
, N! z; \# m. r) d! M       SuperscriptBox[6 z9 o" u* M/ @
        RowBox[{"(", * F+ ~6 n" C1 F, d6 O
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
* K# Y& s! L' V' O$ E5 J       SuperscriptBox[
  Q0 d( m% L" Q6 C        RowBox[{"(", : T6 T5 H0 o) s+ i0 F9 S/ ^% \) J
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 4 p* _! E: @6 P/ D, X4 ^  n
       SuperscriptBox[
$ E3 s: x0 c5 o4 ^, |        RowBox[{"(",
  c, j' m8 Y- x3 m1 J4 _% i% m& A3 t         RowBox[{
9 B+ U  Y# F& B( h, w          RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
- y9 U. z$ }5 H  "+",
; S  ~& s; l1 K1 [9 h) E  RowBox[{"0.25282438852646905`", " ",
, h% j, X1 F5 w/ [* o   SuperscriptBox["\[ExponentialE]", " `7 V+ k& K# W$ E% }
    RowBox[{"3.141592653589793`", " ",
. r0 r! b$ m, x2 g     RowBox[{"(", ' p1 }9 b" j- N
      RowBox[{* \1 I/ |- }, x& }0 ^8 u; n) ~$ N
       RowBox[{"-",
1 H2 @" L8 z1 a        SuperscriptBox[6 L7 G9 f8 e: j  K, y
         RowBox[{"(",
. C! P* U1 h3 K2 X5 e, l  O/ M          RowBox[{4 p# Z( {' ~! R/ T6 e0 ]
           RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
: l7 e' A* ~3 w) P       SuperscriptBox[
3 P& ?9 u, U2 J8 }        RowBox[{"(", * \" |  m$ b5 ]4 \8 h1 c1 a! F
         RowBox[{
" @' s6 r+ Z. ]3 i5 G5 @          RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
; o+ G( d9 L) v8 m- M& y! \/ D6 ^       SuperscriptBox[! \* ~8 S* V9 B" Q6 @0 F3 |9 j8 h
        RowBox[{"(",
. s8 ?- Y8 [! I% _: R& X2 F         RowBox[{, e* F+ J+ J( m/ h7 X. ~2 r! c* X
          RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
! x2 N+ Q) V% j9 @. Y       SuperscriptBox[
" r- I# t6 j3 z& ^- R' s2 t        RowBox[{"(", . g4 u9 B% O; m/ O
         RowBox[{
0 h) T6 t; h5 ~          RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
+ @+ U2 I) Q, v3 c       SuperscriptBox[
' c, P/ |9 h9 v( _$ [" H. s* K5 j        RowBox[{"(",
/ g' z/ E  B9 P' Y% r5 k0 U         RowBox[{9 r, A3 k! h& A
          RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
; X0 W4 ]* h$ z       SuperscriptBox[
* I" U9 C3 }) z0 {) v7 L        RowBox[{"(",
# g6 n9 r/ Z0 h7 k" N6 r3 E% ~7 H         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",   ^$ Q; v( c% g2 e
       SuperscriptBox[* D  c9 u1 v6 i( w( C9 A
        RowBox[{"(", $ A  e, N# ?9 m2 {: ~
         RowBox[{1 _. U$ Y) f7 O% e
          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
) p7 q# L1 D7 i0 o, ~& R       SuperscriptBox[' Q/ P2 N1 w+ l& k. M
        RowBox[{"(", , I5 R0 q3 `: }0 ^. q
         RowBox[{* p' q' c$ L( y' q- ?: B
          RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
4 M0 [( i( v( S       SuperscriptBox[8 {% M' V; V' `" S9 J& |
        RowBox[{"(", + I$ [7 j& @& j* f9 v
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 5 @5 N3 S$ G. `
      ")"}]}]]}], "-", 6 g$ |/ o8 X7 J, y
  RowBox[{"0.07581214474544527`", " ", - X, T) u! \' N' |# _' R7 R: f
   SuperscriptBox["\[ExponentialE]",
# d# d9 }, S( Y: P0 r" f4 S    RowBox[{"3.141592653589793`", " ", ( [0 v2 O; P4 O& P# }& K
     RowBox[{"(", , @, u4 U7 _# ^
      RowBox[{
5 \: g' A% G0 I0 [       RowBox[{"-", * j1 D" q( t* [' K
        SuperscriptBox[
  |3 N5 @6 x5 S& \& e         RowBox[{"(", # N8 h( Z( Z) \/ ?0 J
          RowBox[{# N) ~' e8 K5 @; C+ i- D% w
           RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
! w' J8 C9 C4 P# [3 L       SuperscriptBox[: Y: g3 I3 q( X; b
        RowBox[{"(",
" o; k8 L4 G8 t% Z- C1 X         RowBox[{
+ O: M- d8 {, R: A; y          RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
  P# E" v) t* j: m: p       SuperscriptBox[! O7 _3 W5 D  U$ {2 r$ m
        RowBox[{"(",
7 M5 g) ~5 x% I4 z- D* }         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", 3 V6 q( M6 a( E& e9 h) Y
       SuperscriptBox[
8 ?6 i9 ~$ m' y: A8 Q0 g        RowBox[{"(",
( k% t$ I  y& b9 V$ F7 V; `3 n4 K  x/ `         RowBox[{
4 W) g; Q6 I! S, q& E- w+ c          RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", ) H/ `" b) v- F- R4 F1 ~" _
       SuperscriptBox[7 F* ~! ^0 m# t4 S9 @8 L! C
        RowBox[{"(", / ?: f/ U" `( K
         RowBox[{
+ N  A3 V& }: D4 W9 e$ E# O. z          RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
7 d% P8 f  u" e  B2 F# L+ P       SuperscriptBox[5 g0 ^. p% Q4 f0 _
        RowBox[{"(", 0 E4 d0 U" u4 L5 x" m
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",   T9 W1 x' J! j3 S9 V* N
       SuperscriptBox[
6 r2 X0 w, m+ y) S# h, D        RowBox[{"(", $ J- r; ?" ?& I) l% U- V; O
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
& k8 D) ]: r7 ^  v! M# K       SuperscriptBox[
5 @% `" {8 |3 C$ M0 e* a        RowBox[{"(", 3 B7 t8 T6 _0 s/ A2 O6 M  s
         RowBox[{. F9 Q. @  a/ e/ k$ n
          RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", , V3 `" G/ f, @
       SuperscriptBox[
8 P) X' v3 k8 X5 b3 R% e        RowBox[{"(", 4 q6 U" v5 [; M3 r7 {. h( Z4 e, G
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 5 p$ ^, V- c' y! c* A
      ")"}]}]]}], "-", : X4 I( q& }0 l6 w+ U
  RowBox[{"0.10599338351843157`", " ",
! h6 @$ y% ^8 y0 W6 D   SuperscriptBox["\[ExponentialE]",   A4 X( Y+ S) _
    RowBox[{"3.141592653589793`", " ",
1 }+ x$ b) o* v     RowBox[{"(",
; J9 d' Z! P+ T' |3 p+ H2 |6 |7 }      RowBox[{+ R; c" r( w* G  P5 C
       RowBox[{"-",
3 Q. s" p0 {* o% I        SuperscriptBox[2 t3 E+ a3 t% _# ~
         RowBox[{"(",
4 X! D4 U0 S* ^8 _          RowBox[{
8 Y' L) v6 f+ A           RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
  F! J: Q. W, M# l4 l. ]" K       SuperscriptBox[
& J0 p1 w) W- X) n  |2 V        RowBox[{"(",
8 Q" K3 W- [. w# x5 f         RowBox[{6 m0 h+ k. ~4 Q; W# j; y3 l
          RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", 0 B1 r6 x2 q, d
       SuperscriptBox[- Y+ X* A' c" P' u# t, b$ l% b
        RowBox[{"(", % e3 W) K4 z# \5 O
         RowBox[{2 M1 z: Y0 z+ F7 z( Z; F$ E9 |6 p( g
          RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", ; m- V) O7 N4 \! }9 p
       SuperscriptBox[' a# n# W9 ^! X4 p# j
        RowBox[{"(",
$ K# p( z5 M3 ~# E# Y- M         RowBox[{
6 i( t2 m6 y! X; n  x          RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", ' }( _8 j1 S" p
       SuperscriptBox[
: k' B3 j" e, h        RowBox[{"(",
9 K" `9 d! d5 `2 L  |; x6 K1 r( X         RowBox[{
* g! M2 r/ h# r+ ~: D9 I          RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
" Y" a6 ?- ?. g( ~       SuperscriptBox[- A) k8 H; M/ v* M& k
        RowBox[{"(", $ y" y' [# B& a3 N
         RowBox[{$ {8 s4 H6 ^6 D
          RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
" T* ]' a( e" X' u+ I0 A2 K       SuperscriptBox[. Z) Q* U% X) K4 S1 _
        RowBox[{"(",
% X- U) f3 F2 @8 O         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", + N, I+ R9 K- {2 u3 h
       SuperscriptBox[# r9 T8 |$ ^+ O& a
        RowBox[{"(", : l. `! Q. I& H
         RowBox[{1 n: U1 w3 ?* k# A
          RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
( [, _' ^  M5 o, `       SuperscriptBox[
' C: i6 d% t' }. g7 S( G: _4 B        RowBox[{"(", ; {( C  j+ a& `8 `: I" ?
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
' N, w  J9 e  {" ]$ s7 _4 u      ")"}]}]]}], "+",
2 O) e' j, p+ m# G( ?  d  RowBox[{"0.500820838606441`", " ",
" c) x" l$ w+ B+ m, d& x   SuperscriptBox["\[ExponentialE]",
7 [: C/ N4 p4 a2 T7 o. R# |" i    RowBox[{"3.141592653589793`", " ", 5 ~5 b+ K* ]7 `5 j) T! q
     RowBox[{"(", : T3 A# s3 i! `; }. X9 j
      RowBox[{2 ?) C. V5 s% G4 e: R
       RowBox[{"-",
, @" E5 z5 ]  W3 x" M- f        SuperscriptBox[
4 @0 v5 }( x: }) f' N1 y  J         RowBox[{"(", : B, g7 \3 G! E4 O) c' G1 ^
          RowBox[{# S' Y" z% H# e9 y
           RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
% q, Q& _- s! K. O8 q. T3 E       SuperscriptBox[
$ @2 Q/ a1 Q8 ]3 ~4 n6 T; c        RowBox[{"(", ; K/ s* o1 S! [/ L8 ], p. S
         RowBox[{' D$ H! D5 m, A! p
          RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
& `. n% C" r" _1 J1 ~% D       SuperscriptBox[% ]# v" ^4 N4 H$ O
        RowBox[{"(", 6 r! M( `# t6 i/ }7 }2 `
         RowBox[{
- V( V# |( d5 s# Q          RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", 0 W5 Q$ i3 i$ Q$ p' k
       SuperscriptBox[
( m6 B5 r8 l' q5 v2 F7 @        RowBox[{"(",
! }  O8 T/ w1 O         RowBox[{+ r5 ]/ ^7 o- C* A6 X" j
          RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", " z: C, D1 b- K# q- ?/ g, o4 ~: R
       SuperscriptBox[6 a/ `( X' w" p
        RowBox[{"(", - V5 g9 X4 A+ P
         RowBox[{
; T: N" ?" C' X          RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
" K" y: ?; V) a& a4 a8 z5 Z       SuperscriptBox[: b! k9 D4 `+ _0 |+ {  k
        RowBox[{"(", : Z9 {- p& {% @6 F0 F6 s* I1 ?
         RowBox[{
" o, L' T( t" H* R! R          RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
5 X% ~3 F+ J  h1 J% Z       SuperscriptBox[
# P5 @) @8 p6 P        RowBox[{"(",
' q+ s' K! m# I+ x' x8 K+ q) r         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
5 [2 e5 I& t% Q$ w7 {/ _" d. s       SuperscriptBox[
: n6 U2 j- H/ @4 r        RowBox[{"(",
- l+ P0 M. P+ w3 Y1 s1 j         RowBox[{8 [0 k* b$ l, E
          RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", $ i+ f5 Y* m0 G$ T8 l* S; c
       SuperscriptBox[# }3 p* X0 p, ]0 A# ?- w# }$ b
        RowBox[{"(", , b9 L1 T3 r* t" I. W
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
( R# ^+ X, S9 ^1 Q. _( @8 _, k1 A      ")"}]}]]}], "+",
( ^" z7 T9 a# [; P) ^! [. j- u+ v  RowBox[{"0.32564305572552416`", " ",
: c6 S8 P7 R- G7 k   SuperscriptBox["\[ExponentialE]",
% E5 y' i1 F$ Z    RowBox[{"3.141592653589793`", " ",
  R* G- g! z$ p- c- e     RowBox[{"(",
" S& R0 J5 U, e: [9 X7 r      RowBox[{& ^' S  |5 B# T" w3 A/ m" h
       RowBox[{"-", 4 _+ z; o7 I; i3 U) z! ?$ q4 S
        SuperscriptBox[
$ I6 |, f0 v4 L+ H2 e. T& p         RowBox[{"(",
( }9 v  I1 N* b5 e8 ]5 J2 o$ o          RowBox[{
9 ^+ O/ {1 b" O2 R           RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", ) W* V1 E- U5 {) `1 n4 v
       SuperscriptBox[, O1 O/ s0 |4 d; `
        RowBox[{"(",
3 P- ~* q. f0 _( A         RowBox[{
$ n$ b. N$ Z7 L9 b, z8 M          RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
! T7 x/ J/ S. ]       SuperscriptBox[- |; H: w5 m3 l! o
        RowBox[{"(",
& j+ z$ {! g2 ]. R1 m         RowBox[{9 u" R+ ?6 b1 t4 w# y
          RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", ( B& _6 b8 s/ v! t6 W$ r( ?
       SuperscriptBox[
; h% k5 g8 @4 v' i* P: z6 h        RowBox[{"(",
, @+ @: ~; M7 J3 X( }1 E1 H- V: c         RowBox[{' u3 @4 _* ~% p' f) S- [
          RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", 6 U6 d' r1 R! o7 |, @: h, N
       SuperscriptBox[2 c4 N- D/ k, l
        RowBox[{"(", , x1 {+ q, f% l& e
         RowBox[{! q% h9 t7 u1 @) b+ l; K
          RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", 9 W! B. D1 h  L
       SuperscriptBox[) S7 f- j" d0 C7 b$ F7 ^0 A9 l+ [
        RowBox[{"(",
& A" a* ^( c1 N         RowBox[{: l+ `( M8 |3 y$ [. I; L  X
          RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", 3 r/ D2 d7 E# Q8 `9 S
       SuperscriptBox[" V% p/ h2 I& b2 `
        RowBox[{"(",
+ c4 U% s. t' d9 N* O8 G         RowBox[{
8 A6 T2 Y, d0 n, q  ?% ^          RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", 3 I- \7 q/ \% J% W% E
       SuperscriptBox[% c5 n( r' G$ j8 X0 I; ?- N7 Z/ f
        RowBox[{"(", 1 u: v0 N, ^6 J& [& X
         RowBox[{
* z# G2 Z# q7 t$ M2 A: ?          RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", 2 P& e( P' Z$ D: M1 N
       SuperscriptBox[
7 k& t# H7 O8 {0 L5 T        RowBox[{"(", , R7 W% C7 \7 U& g# J8 T* ?9 Z
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
2 I# @# T1 |# h* E% A      ")"}]}]]}], "+",
7 y; J, ^$ n2 {& V% B  RowBox[{"0.6665374509702799`", " ", 9 J. y; Q- ?0 J+ ^. U. f. i! l+ V
   SuperscriptBox["\[ExponentialE]", ! t9 Q* D* x6 j' G; C: w5 `
    RowBox[{"3.141592653589793`", " ", . |# x1 Z  \# x. v* y! O
     RowBox[{"(",
% n* w% x( [' {% S$ z$ w      RowBox[{2 S/ A  r% m8 J, t5 N3 g$ O/ R; g2 l6 H
       RowBox[{"-", / V; y6 r! o) G' v$ p. z9 K+ y
        SuperscriptBox[( V5 W! Q- Y: b, S5 H
         RowBox[{"(",
, \) E+ s. k+ d1 e7 V' J# E7 ~$ b) b          RowBox[{/ P" {5 U& z& o4 F. d+ q& u- I
           RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 I4 M& c2 v: E
       SuperscriptBox[
  X. c: ]. I! T! S$ E3 c        RowBox[{"(",
3 \! I- ?, b  q" J+ O         RowBox[{
  Y3 e' p9 z2 ]) L% T          RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
% i; O) Z* ^8 _0 g4 w       SuperscriptBox[
3 R7 k- f1 k- |/ u$ W        RowBox[{"(", - k" l' v! _/ F
         RowBox[{- v: w2 {0 z5 k* z" |
          RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
1 b. p+ r* a5 H; l, k0 X       SuperscriptBox[
# C8 K8 H) x+ v: }2 R, U, d5 G        RowBox[{"(",
8 t7 S8 m' a. o* F8 u" F/ {         RowBox[{
& Q, q' C' F0 i+ x# r          RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
6 j* Z/ m% w7 ^% T& Z1 y# z       SuperscriptBox[
' h  o* ^% D, G. S) a; ~6 m" D        RowBox[{"(",   W, ]5 h8 J0 Z! f( B
         RowBox[{
: m) ~2 ]( b$ Y* ^, G          RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
% P# }9 N$ F3 v: R       SuperscriptBox[
2 K9 N8 |; H% I0 Y' d        RowBox[{"(", % x, W$ q8 w" K' N1 A1 q) S" x
         RowBox[{
0 }) Y2 G$ p# b6 e9 d. j          RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", 5 j$ M, o1 T9 `0 x( u6 L
       SuperscriptBox[: q) g& z9 _! U/ S! t; s
        RowBox[{"(",
2 K5 c) R7 K1 \         RowBox[{
% ^/ R+ i! p) H' b7 W          RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", 9 g* G* ?9 c  j& j0 _
       SuperscriptBox[
* u# h9 ?6 I; n. r; Y( L        RowBox[{"(",
0 H3 l* S) B$ S+ v0 O( V         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", - i' A- u& q- `0 _1 [6 T
       SuperscriptBox[( k3 G) U, w! @3 W
        RowBox[{"(",
4 S8 u, H) g1 y7 N* i         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
$ D; ^+ T! n) w$ M      ")"}]}]]}], "+",
* D2 N+ E/ \6 u% v( ~+ \% T  RowBox[{"0.4812237524557292`", " ", % a# a4 A# |: |3 b
   SuperscriptBox["\[ExponentialE]",
$ E8 o! h. X1 g2 c* R& ~9 Q4 q; C    RowBox[{"3.141592653589793`", " ",
. `% {; }: ?$ p5 ]     RowBox[{"(", 2 c& C' `& C  A; W1 z" Q
      RowBox[{
, K6 n% N- Q: X9 o       RowBox[{"-",
6 }: X" R* V0 s4 A- K        SuperscriptBox[; Y5 y2 R  J& F' Y
         RowBox[{"(",
7 A" y3 M9 v. L          RowBox[{
( e0 Z* X4 g7 j3 |8 L           RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 k" p: p, P: J, R
       SuperscriptBox[3 h$ {) m4 |7 l( z- I0 v! ?3 _$ Q
        RowBox[{"(",
  O3 C, F1 S% {. G& T6 P% D         RowBox[{
2 {& c3 O& X7 U, R          RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", - O- ]! i7 L) _* L5 V" F8 L$ @
       SuperscriptBox[
1 {# j: c+ K% u* r# Q& j        RowBox[{"(", ; M" a5 H" j' N+ I0 o6 h
         RowBox[{
% C% s5 e+ ]( V: ]1 e* Q, T          RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
; f( r5 Z' B6 z! y1 L% g  Q       SuperscriptBox[
5 r* T6 v* g' \7 O2 P        RowBox[{"(", $ X( c  z0 q# u8 A0 [  u+ f1 `
         RowBox[{
" }- E5 M" @! b          RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
3 E( s7 z$ q0 Y8 ~" p8 N5 S. @       SuperscriptBox[/ c3 x( P$ @; b6 v0 m* o
        RowBox[{"(", 7 l6 K$ `- ^' _# y( y9 E, r
         RowBox[{
: _6 C! W# i, n          RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", % Z% i( W+ ?/ Y
       SuperscriptBox[% X3 f1 J7 ]& g! o( s4 Q. {
        RowBox[{"(",
+ \; U$ H0 G+ a  Q0 H+ P, B         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
1 B0 C- \  y2 a8 A, e- V1 c       SuperscriptBox[
3 G/ M& W/ f7 l7 w( _8 W1 q  D2 o        RowBox[{"(", / _  l& |. V+ Q6 N. ~
         RowBox[{
' K; A2 k* i8 J          RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", 8 \2 h! ~9 N6 N; d8 q7 J/ ~; X) y
       SuperscriptBox[
1 @/ m' N' C4 r; U4 Y        RowBox[{"(", 4 D6 y8 f) X: _0 O( ]7 s
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
* I7 C9 F6 O$ Y% e7 h4 C% O0 |       SuperscriptBox[4 x/ r( e( b. H, E
        RowBox[{"(",
* S3 z! f2 Y9 A0 e) k' u         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
$ A; Z/ |7 ~* o* w! x+ `( G. i      ")"}]}]]}], "-",
' c+ v4 U& k! L2 Q) c! C  RowBox[{"0.17602467625404622`", " ", ' q3 y2 l: L4 e+ _+ P  V0 {
   SuperscriptBox["\[ExponentialE]", 0 [5 i% B: L: m9 U4 {4 |, s1 C( O
    RowBox[{"3.141592653589793`", " ", , J  t5 L6 y; \
     RowBox[{"(", 7 h2 }. o2 i  `0 a0 g" P3 K3 N) q# b7 b. {
      RowBox[{# o; [1 i0 g2 G$ t* Y
       RowBox[{"-",
8 J! l! M* x! u4 m( ^. D        SuperscriptBox[
/ u# X/ p% c8 Z5 j( [4 U3 `8 I4 @         RowBox[{"(",
* U2 l) ^/ P$ {  @          RowBox[{/ v( U8 o/ \! k+ n8 n0 P* @
           RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
8 z8 s- k+ ^; q, [* \       SuperscriptBox[
5 P2 v+ \; K3 \9 v; b; ^        RowBox[{"(",
- H1 E" T3 y- F) t. `         RowBox[{3 C4 r1 H  o/ X; ^5 ~, I( {
          RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", # U/ Q5 E+ i# n- ^1 |1 T
       SuperscriptBox[9 {; D" s! d2 J. X
        RowBox[{"(", & \0 [8 d6 t1 J0 c& ]. U* ]- ?
         RowBox[{
3 a5 ^: O& D" g& _1 }, o          RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", 0 |" d4 ^2 c. c1 ^- Q1 l
       SuperscriptBox[+ r  P% o5 t2 X* q; ]2 i( X# U
        RowBox[{"(",
6 @# {0 v' E0 T  K         RowBox[{
8 K( f  L1 X! ]  {          RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
1 @1 p" o7 g0 G$ {$ P       SuperscriptBox[
! d+ @9 K3 E+ b0 s8 h# a* B  H        RowBox[{"(",
/ Y6 d- @- }; V6 L) h2 s! x. F         RowBox[{
4 r# @& l9 V1 ~0 [$ x0 B; n8 ?          RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
  M2 ~$ X6 L& q       SuperscriptBox[* i8 ~% R0 C& [4 o
        RowBox[{"(",
7 C/ `* @  @; m8 W2 @- z; N         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
0 Y5 S! C& Q# |3 z0 t  M       SuperscriptBox[8 R4 Z- e* y6 z$ _. [; Y
        RowBox[{"(", " ?1 G; _5 s2 f5 j/ t6 U: Z' V' ?
         RowBox[{8 o$ i$ C8 C1 {9 J2 a4 d
          RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
- W2 f' G6 G- z4 z- N9 \       SuperscriptBox[
+ [# I$ A. T" G& f+ D+ R  @! V        RowBox[{"(",
, m. `$ n& I/ s" b) H$ X         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 0 i" m5 i! G3 a3 \9 U
       SuperscriptBox[& n; h# h4 S$ T' f& ]" {) I- H
        RowBox[{"(",
# W8 k' w6 l- k4 p6 v) ]4 l         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
2 I3 @4 n4 h  M9 O      ")"}]}]]}], "-",
( Y5 [# Y$ k1 L  RowBox[{"0.5945873894818967`", " ", 4 i* N( \  N, X& n! A( A
   SuperscriptBox["\[ExponentialE]",
( l% _' R6 `/ z( q2 I0 o, E, P. E    RowBox[{"3.141592653589793`", " ",
4 _' L% N& d! @0 T9 E( A- V     RowBox[{"(", 8 M8 I/ G" O: @3 d, I' i3 W( x; f
      RowBox[{
$ G& Q- I2 \1 n) k$ T       RowBox[{"-",
7 C& i7 e4 B* ^' l        SuperscriptBox[
% z" ^  M7 a1 y+ |# P         RowBox[{"(",
4 {* [3 l: z+ ^          RowBox[{$ H# V3 H; v5 n6 A
           RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", # [$ H1 ]4 _8 Y8 w
       SuperscriptBox[- v1 v0 Y+ }  @2 K5 n6 O
        RowBox[{"(", 7 ^, }- w; ^' ]$ ^( b, `+ |
         RowBox[{' r& Q- \- G% x4 `8 [5 g
          RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", $ M: N* d+ j' G3 K# _: `) S$ r& F
       SuperscriptBox[7 r3 U+ s) ]# T
        RowBox[{"(", ' ^6 \5 h3 B4 @9 g6 {7 [' o
         RowBox[{
' ~8 N  B# G- c0 E  |          RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
& Y* B2 E3 f0 @: ]6 Z9 w( v       SuperscriptBox[
" Y* J% ^8 ?6 |- C1 Y% c& |        RowBox[{"(",
( E! W; n; ]) V& n         RowBox[{0 l1 X& U0 n8 p. k) w
          RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
# K$ c+ P% ~( u1 ^       SuperscriptBox[
4 z0 O1 j7 B/ f# D% r, X2 C2 P        RowBox[{"(", 3 k8 a! y. G6 ?( J' e$ @
         RowBox[{+ i+ M) Q6 k! \5 e5 o* S
          RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
: D! J, e0 p/ h( [0 Q) k, o4 M$ a       SuperscriptBox[
% s; g1 b7 m. ~2 N( y6 E        RowBox[{"(",
5 h7 Q. e& `- s  Q! W         RowBox[{
2 @' j3 F+ w2 t          RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
* c# |1 L0 G5 O4 W/ y  L       SuperscriptBox[1 r' R7 `4 ]9 C, I0 [. _7 S4 n
        RowBox[{"(", 8 b) T  U" m  j2 @
         RowBox[{( S0 ~/ B4 h! }/ ~3 j
          RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
: j# T0 B# B! \! }7 D  [       SuperscriptBox[. u- X& [2 Y2 \1 n5 I9 E6 I7 L) T" d
        RowBox[{"(",
) f# O- D$ B0 P5 t1 Q         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 9 e* d$ f/ C" w- L) E  Q3 {
       SuperscriptBox[
% }4 _1 H+ O) ^1 H        RowBox[{"(", 2 y) D  j( d- p
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
8 \( \* w0 D3 B4 K" K) g! h      ")"}]}]]}], "+",
4 \$ a; ?$ I3 D$ V6 z$ \: }. W  RowBox[{"0.5252475961933538`", " ",
# I; ?: [7 P5 y* h  G$ b' t4 t   SuperscriptBox["\[ExponentialE]", . {0 v* ]# O4 E" j" ~# n8 T+ y
    RowBox[{"3.141592653589793`", " ", 8 }. ^7 B: f1 U& ~( f
     RowBox[{"(", ; w/ K. t* g. q
      RowBox[{
6 E& i# }$ j" [; P+ m" j       RowBox[{"-",
& N% t' }# ?" \; Q        SuperscriptBox[, U7 t1 C0 q; d. E: ]
         RowBox[{"(",
6 ?4 W! ]* V# [1 R; e) n          RowBox[{
; H9 H) O9 l% Y- ^9 p           RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
& ]9 ?. v& b* B/ q! U" K; i/ L       SuperscriptBox[
$ R7 p# O; x3 {) e  H        RowBox[{"(",
+ B5 {+ [  h: p4 h. s- v         RowBox[{- e. m, O) a, U5 d
          RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
5 L7 |/ D4 z+ s' E: F  l3 w. Y       SuperscriptBox[! T! Q* V6 h3 H4 Q! V
        RowBox[{"(", $ p" e3 L! j- `0 X+ t; _% r  x
         RowBox[{
) l1 k# F$ d, Y, n          RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
: {: o! l! E2 O  C0 R9 q$ r       SuperscriptBox[( f  f& O* h' d: F* T4 F. }8 z
        RowBox[{"(",
( W' y4 O* U8 g/ b: D4 R         RowBox[{
5 v- h# g# {" C: J( ^          RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", : l& E' K. Z1 k. S3 H) ?& M2 w
       SuperscriptBox[( Z# Q' B& Y" ]1 H: J4 @
        RowBox[{"(", 5 O' A$ {$ H* U% D+ R. i
         RowBox[{" P# E; a+ y9 b" T" h7 E, r) |
          RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
. \! e& W5 |9 g6 r0 O, ?       SuperscriptBox[2 N8 b8 q! u9 ^  \/ e7 m4 S
        RowBox[{"(",
0 i* Z' S( R1 u! M         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
, Q" j5 s  V7 T( J' _       SuperscriptBox[+ U- q; r5 `' E2 k& C  ]) t
        RowBox[{"(",
' \* s* y7 u/ V/ S4 A         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",   e; O" L6 r2 \% ?0 w3 s
       SuperscriptBox[
( d6 @$ f7 y9 Z9 _4 o        RowBox[{"(", & G# `3 A5 n5 l
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
5 ~! M: }/ ]% x       SuperscriptBox[
8 v7 u3 S* u" C8 h/ H. ~  L1 a        RowBox[{"(",
" x& j( T0 G- V0 t% F7 }         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
- }, A+ m* K/ W5 j      ")"}]}]]}], "-",
0 B" r" p. [; H2 e5 [. X) K3 J  RowBox[{"0.320472847796449`", " ", - r9 o3 z7 L; K- b7 R; T* W
   SuperscriptBox["\[ExponentialE]", . ~3 H. F; c" Z; s$ b: l
    RowBox[{"3.141592653589793`", " ",
/ U3 m, Z2 T! J: Y     RowBox[{"(",
+ s" o6 _# P5 I      RowBox[{  `' p6 Q: K2 e9 Y" D
       RowBox[{"-", 3 w' y$ D1 f3 W6 g& K% G
        SuperscriptBox[
# }3 J* c8 S' ]2 Z' q6 u         RowBox[{"(",
! r! I9 R4 a! g  `          RowBox[{
) K! C7 G- M- B2 a8 j           RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", ( @+ ]8 k* _" M' a% \; B
       SuperscriptBox[
) g. G' \) E3 M+ h: w9 @        RowBox[{"(", ' a  h& c4 j; Y) M! g
         RowBox[{
- ~( Y  M5 U4 g          RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
" ]- z1 Z" @& W3 I       SuperscriptBox[
! x/ D4 x& R8 w- d        RowBox[{"(",
3 q4 Y1 E- ]3 n         RowBox[{4 r! X  f5 B" ?! |( B
          RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", ; E2 h" E: n8 _, a+ u
       SuperscriptBox[! i: X. s0 B  P  M: T* n
        RowBox[{"(", 0 o; P% a& \1 C6 l7 t
         RowBox[{/ i8 j/ p" f4 y
          RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
* d: @4 Z* {3 ^4 \+ Y( N& d       SuperscriptBox[
4 b5 i2 t# A4 q5 k5 C        RowBox[{"(", 2 m' X4 H' W/ j6 P$ G7 a
         RowBox[{
! w! r& x; }8 f8 Z          RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", - t* o  ^0 ^! ~5 E1 I' o- b
       SuperscriptBox[' |5 S! P& u& P- ^4 g# ]; `& L
        RowBox[{"(",
: n: ?2 ^# z0 W1 H' M) ?8 l         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
. k  R' R2 w8 X* Z5 \: r  K. e       SuperscriptBox[
& k7 ^" O% @4 |        RowBox[{"(",
! }8 s* o# m6 o( \( h# N( X         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", - }7 E$ q' S8 |" s9 I4 G* n
       SuperscriptBox[
% t" w: M9 Z/ Z7 ^        RowBox[{"(",
# q: K& G/ @3 z0 w* T3 z$ w         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
. C# E0 T5 \& d  R$ w+ p% H       SuperscriptBox[
% O7 [6 L: P) F! X" `! j: x        RowBox[{"(",
0 C! b5 M4 k9 T1 G, U         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ' k6 c2 j8 C/ [6 I
      ")"}]}]]}], "+", 7 R$ c. P' l. ?! Z; F1 e
  RowBox[{"0.7528674241482847`", " ",
" P" E' ~7 L9 O% c! ~' U9 \" R   SuperscriptBox["\[ExponentialE]", 2 x! L1 w. P5 T1 U
    RowBox[{"3.141592653589793`", " ",
$ S+ @$ e! V$ w& J     RowBox[{"(",
" z! A2 l1 l1 r* U      RowBox[{: z7 R) q8 ?7 s5 @' {. U$ w
       RowBox[{"-", * G+ D/ C, l/ \
        SuperscriptBox[
* Q, b) R0 u% e: |! Z8 E         RowBox[{"(",
7 p8 }* a- H. W. r; `* }          RowBox[{# t! L9 U% f% R$ Z
           RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
% V" G( `/ o% X+ f2 G       SuperscriptBox[
, n* k( k' S% A7 u        RowBox[{"(",
9 v/ k+ }. I/ T0 A* C  q         RowBox[{
9 ]* C' v( S9 r7 C" Q, J3 h          RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", ' P$ i# @( \: J6 [: n
       SuperscriptBox[  o3 p) c# }3 E3 u  @
        RowBox[{"(",
8 H2 L' a" }0 z         RowBox[{6 P" O( w5 R) C4 G
          RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", % H, i* R1 i; A2 s% f2 S4 H  ?
       SuperscriptBox[, `7 v  Y! Y; S- T
        RowBox[{"(", ; M. E* P& Y1 e
         RowBox[{9 V( o  {+ b% Q4 G
          RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", 2 ]$ ~# R. q/ i# x( w+ n/ ~0 K
       SuperscriptBox[
; V- N0 D5 E0 g! g        RowBox[{"(", / ]# b1 k% S, y9 U3 ?
         RowBox[{
, k! s/ ^9 F+ X6 \          RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
$ A( \, f- s, v# B! `6 d       SuperscriptBox[* {# q- @7 L- @& J8 U4 c3 h7 K# @: E
        RowBox[{"(",
# H+ {' ~/ ~6 z. }" D         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ; `/ b1 |$ j7 x( E; e9 I, i0 j
       SuperscriptBox[4 d! Z$ k% {& R; |
        RowBox[{"(", 1 _) q4 {# _9 @3 M7 F9 Y
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
. U5 L) {/ H) g: f( g5 [       SuperscriptBox[
7 I# N7 F" v3 p0 D& g( Y9 a% F        RowBox[{"(", 7 }2 ^! [/ N2 R0 S! \" d0 @
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
0 Q' ]% n; E; [( a2 n       SuperscriptBox[* o; ~+ e- h( b9 Z7 q5 ^3 P  z, ]
        RowBox[{"(", 4 S+ c  A. W8 F: T* G8 l- e
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
$ X) T* D6 c$ w, k) H      ")"}]}]]}], "+", / y/ {$ W0 u4 G: `3 S6 u; V
  RowBox[{"0.02759193650965952`", " ", : @% U- J/ V9 p2 _
   SuperscriptBox["\[ExponentialE]", 6 N' P" X' x) v( ?, h( T
    RowBox[{"3.141592653589793`", " ", . Q6 _2 q3 w/ n3 w
     RowBox[{"(",
1 n2 G' h0 o& U' X7 H  H      RowBox[{& k/ J8 j( j6 M
       RowBox[{"-", ' n* b& y5 j/ |) B- Q5 {
        SuperscriptBox[1 x5 E9 [# h1 X0 l
         RowBox[{"(",
9 @/ R$ K' ?3 G3 g  {          RowBox[{
  c/ s( S, E& c; A9 m& A9 R9 A           RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", & ?* ]; Y, ^  n$ H
       SuperscriptBox[+ w! S3 k4 R& J, m
        RowBox[{"(",
7 o' B8 N+ j8 G5 ?         RowBox[{% M$ j& v4 c" E: H
          RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
4 w) K2 G) q: H       SuperscriptBox[+ a- c- K- U2 W$ i6 g
        RowBox[{"(",
; h  G2 ~( n( C         RowBox[{
  K5 J7 F. R' C5 T# ~          RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", % [7 k3 I, o) s, Y/ `& w  @1 Q
       SuperscriptBox[
: J, ^" f, Z9 O; Q* q        RowBox[{"(", $ K) V& }3 `7 m4 Y  O9 ^; W
         RowBox[{  X1 }+ v, D% T9 ~% v* l$ E$ [
          RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", $ k7 `# D( ~  j' V
       SuperscriptBox[3 l! \" t* r  w" L& m3 Q2 ^
        RowBox[{"(", + f" ^& p6 Y$ I+ |1 m* _! N
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
8 m4 a4 I. ?" ~* K: i9 h' b7 w       SuperscriptBox[
' |% b1 L0 Z& u* ?- w        RowBox[{"(", , l4 Z% N! |0 T. s7 x1 q
         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
2 u+ ^8 ?4 Y6 B! P2 V, l" o       SuperscriptBox[( O* O9 v, S! A( U4 ?% b. J6 c$ s
        RowBox[{"(",
! O- u7 f7 J4 ?% Y; W+ r% E4 c         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
  f9 t" d3 l4 ~- ?& B/ B( _       SuperscriptBox[0 w3 T# l4 v7 B4 e
        RowBox[{"(",
- o0 l" N# `2 M( M- K$ I, V         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
( \* V( P( C, K8 q4 G1 D  B       SuperscriptBox[0 e2 P# ?/ A, t: t
        RowBox[{"(",
/ u# Z0 K' k5 e4 ]6 d6 m         RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 0 h+ U- Q! K! |' @
      ")"}]}]]}]}]], "Output",
0 J+ u( e' S' u3 A CellChangeTimes->{3.577924759875*^9, 3.577924921203125*^9,
5 Q* t- ^5 I0 g3 n5 _  3.57795759203079*^9, 3.5779589554964056`*^9, 3.5779621253913965`*^9, / Y  a- X8 ~6 a
  3.5780123515625*^9}]* g5 [+ M9 M: _
}, Open  ]],
: l4 ~# f: P' g3 v: k4 L- Y, ]3 k0 D! g; A6 e
Cell[CellGroupData[{3 n7 u5 Q! t) ?: ~7 e4 R
1 \; u, v2 E6 e. |2 g
Cell[BoxData[$ f  k# [- G0 ?( l+ K
RowBox[{"y1fit", "=",
) C- Y1 h: m4 a( ~7 k+ U) m7 m; V9 l  RowBox[{"Table", "[",
/ |! O4 s& _* C8 l) F- r   RowBox[{"x", ",",
6 w3 B; c* v5 \/ J6 q; |1 K, P    RowBox[{"{",
  Z' T$ g) j3 D# Q; ^     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
( @2 t4 L- ]8 E CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {* o# ]& `( @1 L
  3.5779252768125*^9, 3.577925277484375*^9}}],
8 n% {, t2 X% c# h2 `
! l3 u7 P. g/ x, E! V+ kCell[BoxData[
$ x( k! J. C. A5 U RowBox[{"{",
7 o" c$ f3 F/ s! D6 i) Z2 C0 Y  RowBox[{- D) i& ?3 E& c, c: c0 ?
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 [$ h! n/ p) _5 Z0 i& y' H   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
' a# p5 Z; q4 r% P    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
, l# C" Q2 A2 U: O: }* D   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", $ V- D9 d/ ^8 Y3 W1 v
   ",", "29"}], "}"}]], "Output",
; g+ _' T+ y$ l+ a CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9, . V+ u/ ^* ]1 M9 Y
  3.577957594916795*^9, 3.5779589579612093`*^9, 3.5779621294942036`*^9,
  c5 y' k% O8 p1 B  C  3.57801235340625*^9}]' ^' [( s5 W; s1 |4 k& ?" O& \& \
}, Open  ]],
  Z9 p+ R; R) y+ s/ f
. E, J' j9 |# O* x7 o& I4 h9 n. I2 u; qCell[BoxData[/ @- ~) j! p6 `# C: q& V' \; U5 N. o- ]
RowBox[{"For", "[", 5 y, p+ d2 C- k' N: D) X$ i$ w6 A! z
  RowBox[{% ^, X' C* {7 D' I0 E
   RowBox[{"i", "=", "61"}], ",", ) ~8 |; f, \4 l0 C+ v3 {
   RowBox[{"i", "\[LessEqual]", "89"}], ",", - n7 C0 N' X# @( N9 G
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", & }3 F0 G  H* i1 N8 X5 A
   RowBox[{
2 h6 `7 k& q+ K% t& ^! s    RowBox[{
/ {& F% C- q! F0 g& y" t     RowBox[{"y1fit", "[",
0 S) Q9 @3 Y0 M% c" e8 ~  b+ |+ p! Q2 M      RowBox[{"[",
9 ^/ Y# f( e5 f- |% [: Q       RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
& Z+ i' j$ T+ n/ u# C8 J$ Y     RowBox[{"y1", "/.", 7 g: @+ C- P4 s7 W0 H
      RowBox[{"{", % i, f" x9 V9 c" D% S& V9 i
       RowBox[{3 v3 r7 r( E6 i3 V
        RowBox[{"x1", "->",
! ^" M* D9 g7 P         RowBox[{"Data", "[", 8 W- Q2 o5 ~' _( o3 R
          RowBox[{"[", 0 z7 `# N) A# Y3 E" L; O( G
           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
1 }6 h( I$ y1 l! i* q& }        RowBox[{"x2", "->",
0 ?& S" s: \0 W# q/ B  G         RowBox[{"Data", "[", $ O, X  T) I: M; Y9 ?( i3 c% S
          RowBox[{"[", 5 ^, C; E: l- H9 i4 S: h
           RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 1 x  o# o6 W9 }
        RowBox[{"x3", "->",
4 U. F& ~0 u1 E         RowBox[{"Data", "[",
$ e+ Y* d+ M$ k, Z2 Y5 O( |+ R1 D  \0 @          RowBox[{"[", - {/ t& t" U+ k; H9 G0 M
           RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", % N" x4 q2 b$ v- R8 k4 S# q6 h
        RowBox[{"x4", "->",
! ^! w0 c0 b* N6 P& e( q         RowBox[{"Data", "[",
6 ?, Y+ I8 u+ l2 W3 R; l          RowBox[{"[", " g2 D: e, U: m! i( `# v
           RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 7 Q# A5 \; ?1 d
        RowBox[{"x5", "->",
: g: E4 L3 t# P6 Y) }( Y8 h' T         RowBox[{"Data", "[",
* ?; v" N4 V& B" O. @/ U; n2 U          RowBox[{"[", ' u. f, o4 g2 @0 n$ }4 ]
           RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
; I$ l3 _' k& P6 `        RowBox[{"x6", "->",
( ^+ p0 y8 O- ]0 q4 P5 s' d; N         RowBox[{"Data", "[", . D/ `: ?2 L# B) F
          RowBox[{"[", ! U4 I+ P( X1 ~. \7 D9 \
           RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
( [- ~4 }8 E5 B7 U7 M        RowBox[{"x7", "->",
: u+ @' |! U2 h5 F$ ?3 E* G; i         RowBox[{"Data", "[", $ S# y1 K' H4 E* L/ a* c1 T
          RowBox[{"[", 3 n* s: N) j7 h4 `) P, T
           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ) t! `/ J/ W7 N7 K6 H4 B& V! [3 E5 g
        RowBox[{"x8", "->",
( H) H. L3 Y* N/ q3 |6 Q& L- P         RowBox[{"Data", "[",
2 L3 y: R. ]0 c- B! J          RowBox[{"[",
1 M0 W2 z/ c! x# o4 [4 t6 k$ @           RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",   A# ^+ e5 C7 h$ V4 G% E8 G
        RowBox[{"x9", "->",
, e" [( _. l/ e  Z5 k         RowBox[{"Data", "[", - e% {. U5 p( g; s3 M9 U
          RowBox[{"[",
& C- l  ]6 y$ j% T- U           RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
. }6 E$ P! w' }3 J0 U  "\[IndentingNewLine]", "]"}]], "Input",
& H  D6 z  H' h4 [ CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {
' n. Q" x  k1 d0 h1 y) b& c- W  3.577925286140625*^9, 3.577925306765625*^9}, {3.577958922517948*^9,
, {8 T+ D& q. Z0 ]1 I: \) S% s  3.577958922549148*^9}}],9 Q+ X* @" O3 r; A7 `" P! O. T
+ i3 L% z0 z5 c& o0 Z& R
Cell[CellGroupData[{4 R$ j0 s4 J! \3 s/ V7 B5 C
- D7 g. M2 e7 M5 b/ m  x1 O5 N, E9 O
Cell[BoxData["y1fit"], "Input"," d0 h3 c" k* g2 X
CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
) ]' Z2 {. s. H9 B, r  3.577925040484375*^9, 3.5779250440625*^9}}]," Z3 k5 t# }4 J5 j& y0 }  J
/ S4 H& w8 S0 \' \5 c# \
Cell[BoxData[
* n! M6 v; i' \1 q. a9 ^ RowBox[{"{",
1 }- O0 J5 m) h, T  RowBox[{
' g" Z# Y' U$ g. d  "0.43193416525930517`", ",", "0.4501634853493982`", ",",
; E; c% v2 b2 F2 G   "0.33336034768525247`", ",", "0.4418609896858925`", ",",   A' b+ l3 S. J, S
   "0.41030378932283024`", ",", "0.516814798191575`", ",",
& H( x3 O# d2 B   "0.4476631213729994`", ",", "0.3016552978696669`", ",",
1 I$ D+ W, C6 X: o/ P   "0.378122167437847`", ",", "0.020339844919720733`", ",", 8 J' h# W2 S' V% k! @3 y9 L
   "0.018745375782087376`", ",", "0.2919925992695025`", ",", 5 H. R5 V0 c, H5 S
   "0.2649067959681263`", ",", "0.16343444284525593`", ",",
# j* N+ f. u9 U) u5 U: S4 G   "0.4182466778551563`", ",", "0.27347752211364934`", ",",
* I3 [, b6 ]8 a; _2 E# f   "0.38554057386385654`", ",", "0.35253160453718047`", ",",
, X8 ^3 s' A6 a, Y   "0.2054745841100774`", ",", "0.45504377112716676`", ",", 9 K, L) b6 j2 @/ C! `9 P
   "0.1598805094678612`", ",", "0.18662509982279485`", ",", * ^% r; j+ l' c
   "0.10684797493248213`", ",", "0.013349212673286828`", ",",
! B4 H# o2 l+ h. t# |/ Y% G   "0.08215836003004297`", ",", "0.2979041599362813`", ",",
" {( G$ Z6 l0 o& y/ g) H/ @1 J   "0.05995976512343641`", ",", "0.3884793499104568`", ",", : |/ A' `+ \* q0 O, A0 ]
   "0.5361889337034293`"}], "}"}]], "Output",
$ b- A: S* M& o; p0 M CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9, 9 {- M2 U3 j: {$ N; m5 Z, t
  3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9,
* M0 `% P7 U; p. w. ~# B  3.5779621416934247`*^9, 3.578012355546875*^9}]
) ^6 ^/ z' Z" S0 y6 y}, Open  ]],% \* E9 h4 D1 I% j8 B
" O1 Z- |. O( D3 }" A' a
Cell[CellGroupData[{
6 p! R7 d! ]: q" w/ ]6 F  k
  {1 L3 k5 G) N8 E" u  w; mCell[BoxData[
% n# y0 m! M. i; u RowBox[{"y1fit", "=",
2 P4 T# N) n: [) P. C2 Q: N  RowBox[{"{",
/ a7 j; Q: q  n0 s0 N5 f0 H   RowBox[{
3 O$ a" b, ~* R+ `8 H' F8 p   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ; N+ ^8 p- @/ ]5 ^$ A
    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : c  A7 ?2 Z/ ^$ h$ @& l
    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", 4 V+ y2 ?& Y: `9 E! W( b
    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", : N; V" H, d' |2 F% a& ]! J
    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
& a( w& K7 |' H6 `    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
4 c- c& r' }- K+ ~    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", 9 |% n2 E& ]/ z5 x( Z$ E
    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", 0 b0 j$ k6 q+ }5 u
    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
% @, y; B' \# L5 \0 {$ o* f+ o# J    "0.4319341652593058", ",", "0.4319341652593058`", ",", ' p. D' M* t! I2 q  U- |0 B5 u
    "0.45016348534939865`", ",", "0.3333603476852527`", ",", # Y5 y6 N( _" w9 v# [
    "0.44186098968589294`", ",", "0.41030378932283074`", ",", 9 h$ }+ i1 W+ v1 ~
    "0.5168147981915754`", ",", "0.4476631213729997`", ",",
. K1 Z' u1 b: Y: k7 ?. P! \% X. m    "0.30165529786966755`", ",", "0.3781221674378473`", ",",
/ ^$ ^# W, h) m    "0.020339844919720775`", ",", "0.018745375782087393`", ",", + B7 }: D, y+ G1 z& a
    "0.2919925992695026`", ",", "0.26490679596812655`", ",",
3 X" c1 \$ x0 M! F    "0.16343444284525593`", ",", "0.4182466778551567`", ",", 4 `0 _4 u& k7 `+ O" j$ y, w9 }* K
    "0.27347752211364945`", ",", "0.385540573863857`", ",",
/ {1 J* Y: s6 F$ r/ t# I! M0 Q    "0.3525316045371807`", ",", "0.20547458411007796`", ",",
' m$ d7 r5 N8 y1 ^    "0.4550437711271672`", ",", "0.1598805094678611`", ",", 6 t2 g# v$ K" h3 ~, C
    "0.18662509982279502`", ",", "0.10684797493248224`", ",", : O$ M% n& ?: P$ h; A, L9 Z1 {# b7 L
    "0.013349212673286806`", ",", "0.08215836003004302`", ",", 4 j1 D& F: P5 |5 @
    "0.2979041599362817`", ",", "0.05995976512343637`", ",", " a/ ^* n! h* _! E3 D5 s+ c) A
    "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",2 Q- @0 D" O7 ^5 @# j
CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {
  @. C7 W9 E. ]* v1 b" {' D6 e  3.5779621548286476`*^9, 3.5779621618642597`*^9}}],* G% ?* m7 U4 D$ L  g; X7 ^

% w5 }8 x$ i4 c( [5 o& FCell[BoxData[
& {6 e5 Y5 a0 a' R4 S' U& A RowBox[{"{", . M% o0 K4 i% `: A8 d, Y
  RowBox[{" m2 [, o5 X  P0 F1 W# F
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", / N2 I! J0 v; e- P6 K
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
! s/ g8 \- M/ \% I& _    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 2 K- y) J/ |* R
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 8 F( {% `( q* b1 m% k  t
   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 5 G0 c& A* v+ d8 x
   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 4 e0 m& [* t9 Z  q/ T& Y* ^
   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", ) g9 v8 }: d: W5 {2 M( |
   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
# a4 A7 x# A  x# ?3 L. G" Q   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", # U, q: l0 C5 n% T1 w' j. ?
   "0.4319341652593058`", ",", "0.4319341652593058`", ",", * o' D3 w! G& a% |$ r: \$ L1 ]  `
   "0.45016348534939865`", ",", "0.3333603476852527`", ",",
9 B7 y  ?) K% s1 D  O   "0.44186098968589294`", ",", "0.41030378932283074`", ",",
5 s& l( l/ O+ {) O. C" \* p   "0.5168147981915754`", ",", "0.4476631213729997`", ",",
" {( _% [9 E" k+ k& m   "0.30165529786966755`", ",", "0.3781221674378473`", ",", 2 Y& b* E5 s+ i2 X
   "0.020339844919720775`", ",", "0.018745375782087393`", ",", - }& _& d! Y, \; [+ g) @
   "0.2919925992695026`", ",", "0.26490679596812655`", ",",
2 `. o+ S9 D0 U$ L0 f   "0.16343444284525593`", ",", "0.4182466778551567`", ",", ; L- I. Z( z& S3 C/ T! I
   "0.27347752211364945`", ",", "0.385540573863857`", ",",
5 S+ `# b3 q: ~6 B   "0.3525316045371807`", ",", "0.20547458411007796`", ",", 6 N. p" }9 {. p2 _
   "0.4550437711271672`", ",", "0.1598805094678611`", ",",
- L4 G; u) R" o9 h+ D$ }   "0.18662509982279502`", ",", "0.10684797493248224`", ",", 5 u/ U" a# V: a8 J
   "0.013349212673286806`", ",", "0.08215836003004302`", ",", " ~# v. M" y9 Z2 w. D9 Y2 K) V6 U
   "0.2979041599362817`", ",", "0.05995976512343637`", ",",
* r# Y$ v1 l3 n6 ~- Q   "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",
- ^! W; E4 y5 @" j! t3 q- k CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9, - |9 L  v# @6 W4 K3 L! Y! O
  3.5780123569375*^9}]
: O' a# e, k3 J, X' q) O: e}, Open  ]],
4 x+ s& y8 C9 |9 Z' v* j( y4 w% {$ o% z, {3 H! E# q
Cell[CellGroupData[{9 F2 M1 X4 n- i# a% H
2 d  h3 o. ]1 J2 q$ n2 `. Y
Cell[BoxData[0 F& e7 f; V. y
RowBox[{"y10", "=",
" d) G# S& g& Z" ?  RowBox[{"Table", "[", 2 o3 H- @6 t; J8 G
   RowBox[{"x", ",", 8 C* |& J% m  Q4 K: J4 w
    RowBox[{"{",
# l* e  n2 }2 I8 J9 e1 j- Z4 x. S     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",! [3 e0 o+ [* D! v. M
CellChangeTimes->{3.5779253628125*^9}],7 c* I- z: g8 j# h% W
7 ~" `+ ?/ ]! N" Z- s
Cell[BoxData[) d3 k! ^: C0 ?6 J9 S
RowBox[{"{",
( B7 j, U7 v- P) P$ `' J+ y  RowBox[{
3 F0 {0 ~7 N* O  L" o8 ~  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", % A+ k2 Y7 J' D+ p
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",$ ^+ ^  I% t8 r" D0 K
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 4 [% y8 Y9 v6 i: I9 _
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
" w2 W; \; K4 J   ",", "29"}], "}"}]], "Output",
& n! q0 I4 @6 ^( F CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9,
, p: v6 r) I4 c  3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]
# q, K2 y. U8 W5 A7 n}, Open  ]],
8 n: t2 y. p& h9 |4 \  s# G1 c0 |' I% m% C( x0 N) v
Cell[BoxData[
5 @. C% S, q& c/ f) u3 W7 e. b RowBox[{"For", "[",
9 y2 R1 {& S1 m7 }  RowBox[{4 Z3 N- ]; X$ S
   RowBox[{"i", "=", "61"}], ",",
6 Z0 w+ c: K8 T5 @- d   RowBox[{"i", "\[LessEqual]", "89"}], ",",
+ G0 j7 i4 [% h1 d. p   RowBox[{"i", "++"}], ",",
4 U9 a4 i8 T5 X2 `4 m   RowBox[{
5 Q( W/ B# s. J1 n0 Q    RowBox[{"y10", "[",
- n/ V* ^) K' b" c& V) T3 U     RowBox[{"[",
4 J) @0 ]. j, c$ v      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
- Z8 h3 U2 `8 m9 R0 k# J) d    RowBox[{"Data", "[",
; ]$ @$ H0 j, W+ m% G0 _. Z1 v. p" s     RowBox[{"[",
9 h" Y7 o, c% \, E' U% O$ K! i      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
6 N& n. \, l8 O4 j0 Z- Z CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
( g6 d3 C& W( c8 r9 f* a   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,   w3 ]. N% @8 Z; d
   3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, 8 M4 ~0 z3 d7 P  n. }2 F
   3.577958922549148*^9}],
  I' L# R; Z$ u0 h- i) V) K) X6 J" L6 @& Y' o
Cell[CellGroupData[{  z% i: A3 I4 v: O: T. }
# o6 C4 i$ M3 I) P1 j( q
Cell[BoxData["y10"], "Input",4 D$ T- P( x% O" w  ]+ k, ~
CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
5 b9 R8 e5 w5 U( ^; j0 G8 e   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],
. ]0 z' z$ F- }) x/ {" ^! i5 M2 w, {) F, {. l: u  g) B
Cell[BoxData[  [, @0 W/ q9 }) Q+ C
RowBox[{"{",
7 j1 k( F9 A5 _4 y' L  C  RowBox[{
. |$ t4 w* O/ T  "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",", 6 r  L6 `- `4 |8 x
   "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",", & u9 R/ L. F# F  ]7 w
   "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",", 1 Y" q" I2 g3 D& ^: m% X9 {1 p, w. {
   "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
2 G* B' [1 e' ~( [6 ^) Z6 ]   "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", : T/ C+ a. [1 Z4 ^
   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
: k0 t: G+ G, c8 b7 o- U$ V   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",   p5 x1 v. {3 G% B# P( Q2 v
   "0.694935`"}], "}"}]], "Output",
! h4 \6 Q7 B  z& c4 G CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, 1 R$ m# @3 |0 \8 R- {/ o( @
  3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9,
9 X) a+ R, p2 M- P+ \6 E  3.5779621736734805`*^9, 3.57801236071875*^9}]9 q- p# c" o  A1 Q2 Y
}, Open  ]],
7 q# M, O/ P. L: y& ~& |( t
5 K+ C" w% k) iCell[CellGroupData[{/ K: F$ U3 J4 S; s

0 V' i5 I( K) M5 h, }Cell[BoxData[; V9 R/ d2 O$ Z3 m7 p( b
RowBox[{"y10", "=", 9 ~* R9 w! J1 Y9 p7 p$ ?. @- D
  RowBox[{"{", 2 F3 }. Q8 Z8 r0 R, q2 e
   RowBox[{
- @* O; R; z# A  ]# {4 }   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 I* ^' w+ p  G1 [' W- s: N# P    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
; T, ?: s! c" e" q* m    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", 3 }& [+ J) Y5 r% m
    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", 9 m: I7 t, b5 p- w! o
    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", % i: w6 w) L! ?4 V" V* x9 [
    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", 6 g: i6 R7 A' ^0 B; K
    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",   d4 e" K0 G1 q/ F2 f( `
    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
. x' U' ?! u5 f! r& S- I+ V    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", $ i; E  Z- c  P$ q) k9 a
    "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", ( ^# z: X8 M  M' _, C! U' I
    "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", ! n0 M3 D+ E+ C( R
    "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", & d- G' h, Q) J; m8 |4 C
    "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", 5 h) f: G6 j+ n6 v9 [9 t! ]
    "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",", 7 k: S) j) u& D8 ?+ s) B
    "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",",
# d& d8 \1 R9 M$ ]2 C    "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",",
2 Q( z3 S0 T4 N7 [% Z$ M0 N/ C    "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",& t' Q% c  O7 e, R) \9 k' c
CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],
/ t% r( x% k* m7 d
6 k* g; Q( X: ~: U! E4 R! QCell[BoxData[4 q2 Z' W  E, k" s& \. ^
RowBox[{"{", ! L& s0 v& a; j. {! Z, h
  RowBox[{
1 D" k1 B6 k; i1 i4 f  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", + v2 C% i+ u7 U
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
5 y+ o- a3 r! {4 q: ^    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
& c$ J4 G% I2 G' q   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ( @0 x6 h" Y1 E6 T% N
   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 4 z* I- M' C" s
   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", $ p7 h! c) h1 O1 N3 k
   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", $ _' b5 O8 C7 @8 z
   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", - v) l" Y/ W3 `6 n- e' `2 G. Y
   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`",
0 {; V, I9 y# R( {& b$ E   ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", 6 V7 f+ v0 S! c  B
   ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", - p& Z# u0 l1 }3 c8 [/ Y0 o; W" O
   ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",8 v" l9 H4 L1 p
    "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
" H! v% _* k% n/ q+ N4 S   "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", ! J) V5 Z  l/ M
   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
% {7 P: E& q: H, z; W   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",", 0 a; ?! t( o8 D2 u
   "0.694935`"}], "}"}]], "Output",
9 `" E- G% {  k- F4 S) m CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9, % Q' [; s' `& I- w4 V. N0 L5 M4 d
  3.578012361734375*^9}]
2 i% ?: g# o; ?9 ^2 }1 o}, Open  ]],
' \" E" F0 k/ S% W6 c
/ i1 D( E1 E1 d% h$ |1 ^9 LCell[CellGroupData[{; g$ x/ n7 u0 t$ x- Y  {+ o# X! H

3 q8 y, f1 l+ O+ T& lCell[BoxData[
3 ~; ]% z" Z* }0 Y RowBox[{"p1a", "=", 5 u4 O2 S9 c# M1 ?7 p2 E
  RowBox[{"ListPlot", "[", ; }6 H7 G& ]7 B9 b
   RowBox[{"y1fit", ",", % G( D2 s, Z8 b/ Z* e) A! k# d
    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", ) Y3 I% |* m6 l$ i1 q8 e
    RowBox[{"PlotStyle", "\[Rule]",
0 B1 u( v& n& F) P: R, h7 H( V     RowBox[{"{", 0 V' N3 e% w# n& z5 o
      RowBox[{"RGBColor", "[", & f+ L! E# T1 t" z, w
       RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", 9 p  E+ Y2 H; d$ _$ v1 }
    RowBox[{"PlotRange", "\[Rule]",
2 H$ Q6 q( L, B0 }) I     RowBox[{"{",
- D8 n7 R. C$ d( L) E3 u      RowBox[{7 L* R+ g# C/ c
       RowBox[{"{", 9 k: s# O; v& _( w5 v
        RowBox[{"61", ",", "89"}], "}"}], ",",
* M5 W; N' k; z6 ^4 A3 g       RowBox[{"{", ; a9 q& H, I' H' |7 M' T: M- M  z! C
        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
( r' e. r5 Z9 C& k) c    RowBox[{"AxesOrigin", "\[Rule]",
( j4 I4 D0 T' |7 S. f0 G/ |& K! A' c! I     RowBox[{"{",
% J! e2 `4 @% ^6 p1 R9 E- ]: }      RowBox[{"61", ",", "0"}], "}"}]}], ",",
! {& a* G' F7 N0 i7 H4 `, h    RowBox[{"Frame", "\[Rule]", "True"}], ",", - }3 |( _! D4 \3 Q. Z
    RowBox[{"FrameLabel", "\[Rule]", 6 t) e' H9 s) t/ c& e
     RowBox[{"{", + f$ h- J+ y! [; x& _) {& }6 _
      RowBox[{) d' h! l% H3 }/ e
      "\"\<\:7089\:6b21\>\"", ",",
) Q7 j6 X9 ?) ~       "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
6 i7 n4 y& ]  W3 U0 T! a\:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",# r; a4 a- j9 [, {
CellChangeTimes->{; j1 f+ \% k1 ~1 e1 K! _0 b
  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {# H9 o* p% _+ E6 G3 x. ?
   3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9, 5 n7 a1 l: L# K& H% w5 q
   3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {
5 L( b" q! Z5 T2 G5 Y. {* k   3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],
% }2 r5 P" |' X1 j4 U% S! V
  X, R: R: z9 W' E4 |% X4 F  `Cell[BoxData[6 M% v* ^. a3 {+ V$ B( \
GraphicsBox[{{}, {},
3 k+ Y- v% @: ?( s9 E$ R" K& k0 ^# r   {RGBColor[0, 0, 0], LineBox[CompressedData["
. q3 K- ]; @: }0 j; W- E$ Y1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn/ `% p7 k/ Z7 I- \# _# A9 N
8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
: x- P# v0 ]/ V+ P. `, o( S- Z' S! t# \D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
! k1 i# [$ V8 J9 O! z1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
" E/ R0 i1 B2 U& \C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
- h& E! u* X. r: L, G8 [. ma2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
: N/ E% c4 }+ l6 byqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
) F# C: N2 J/ _8 z0 o: v" JwrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
- u  q. @% t5 o% n' ?Y6nGQ3sAieueIw==
& G2 ~- e+ }7 [     "]]}},$ v- r$ ?% t/ }/ z: Z4 x2 p" Z
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],  V% G( K$ c- ^( ?! `' f
  Axes->True,& K4 V" m7 B+ z9 w. j4 f9 D
  AxesOrigin->{61, 0},- S8 z2 t& d, c8 F! w2 E
  Frame->True,- E. h" M- d0 z9 ~; A
  FrameLabel->{4 C" K8 p& }% b/ U9 h% G3 g6 b$ q
    FormBox["\"\:7089\:6b21\"", TraditionalForm],
) u/ U! r! G+ {: ^/ h2 A9 e    FormBox[
+ V& Z9 }$ W  m! J1 J; l0 |    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
! B( P4 H5 L, L# t: Q\:ff09\"", TraditionalForm]},
; c6 N1 v: N" P& M( p  PlotRange->{{61, 89}, {0, 1}},) K7 \7 {( s* ?
  PlotRangeClipping->True,  Q7 C4 t' e, s- J2 y  q
  PlotRangePadding->{Automatic, Automatic}]], "Output",
7 \2 b  x! u, t) G" o/ ~4 z" |' Y CellChangeTimes->{  G3 n- o8 r& T, s2 D
  3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9, 4 W+ y1 S$ ^1 I1 o8 `
   3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9,
3 N" v. J! u+ z4 M$ k* }   3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9},
; a: M+ V2 z, E   3.577962187510705*^9, 3.578012396921875*^9}]2 _3 |: U! K4 P% `4 B
}, Open  ]],6 F" V/ E! r; l* \  W1 r/ W4 r

% H, G: S) K& F& h3 PCell[CellGroupData[{
/ w& l7 g: y9 Q' m& j: `6 ?5 f( @2 W6 r) P# S  L
Cell[BoxData[
% s% W  |7 h9 E; |# o RowBox[{"p1b", "=", 1 G8 q- `3 l( P+ m" @2 O6 d
  RowBox[{"ListPlot", "[", 3 R5 g$ e7 r! s' ^/ b' E
   RowBox[{"y10", ",",
5 k& ^& e, G' M' _0 `8 h    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
2 y: r5 i. ~% f3 {8 `  w    RowBox[{"PlotStyle", "\[Rule]", 8 x" F' s! L8 j0 G
     RowBox[{"{",
, e; m: w- I# \+ z1 q      RowBox[{
6 b  @/ j5 i$ I1 B/ O1 P       RowBox[{"RGBColor", "[",   S5 [$ }9 g) B
        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}], ' u- J/ M$ @  p( N5 E( Y
    ",",   F2 P$ l8 i, R& y0 _
    RowBox[{"PlotRange", "\[Rule]",
0 m1 X' P  L$ Y+ H" U& G% b! x     RowBox[{"{", & }# K$ _: c4 ?% u' U# C
      RowBox[{% ?6 ~+ J3 S* x3 S+ b" A# s
       RowBox[{"{", ; g6 Z$ T2 [8 b3 Y
        RowBox[{"61", ",", "89"}], "}"}], ",", 4 F8 j# d) m2 N  ]6 J, n  \
       RowBox[{"{",
) z6 n$ \! J+ S7 f  A8 L8 q        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", # d% F4 ^0 R4 C; t( {7 I/ D; R, g
    RowBox[{"AxesOrigin", "\[Rule]", ! Y) d& d3 _6 P8 [+ X* L2 b
     RowBox[{"{", 3 g; S0 ]6 ~" `! g, P5 L
      RowBox[{"61", ",", "0"}], "}"}]}], ",", ; k2 {$ Z( v3 R1 c- m
    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
! ^% G& D4 C$ s/ r CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9, % l0 S6 S  l. J  e5 v
  3.5779597764166365`*^9, 3.578012409265625*^9}],4 a- @. `- P2 v/ s
) h7 v8 S( Y8 ]1 {
Cell[BoxData[% t& |; D" ]2 Y! V2 H! f
GraphicsBox[{{}, {},   H: g7 h( T6 o6 k
   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
/ f. S% L, Z& I0 d% T8 H' i- E1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
1 @% F+ V, o5 k6 ]/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy2 ~9 K5 D) G6 v% C! J+ D6 L0 `
GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
9 [' ^. ^6 u) c0 `3 ]+ C  z2 o: JGFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
& ?2 d! j+ g* N! n- u7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/; i& F" ?' W. g! `$ z" t2 [! M# }
Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
: g4 v3 Q# {" p- A8 oH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV0 a: b% d# x" G* g& X& i
rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
$ t8 {' K0 J! d5 ?& O# `: C. F) R% MvA==
+ C4 \7 V9 w9 L4 d  x) h/ _* _     "]]}},& x4 K% i3 ]% j% s2 h! w# }
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],! u8 u2 j, s" a  Z2 h# I5 D
  Axes->True,7 R0 o% F$ b' h3 R: c* N
  AxesOrigin->{61, 0},& B( I8 b+ h6 W4 z6 ~$ a* x
  Frame->True,! a& z" f+ m4 m) g7 i4 F
  PlotRange->{{61, 89}, {0, 1}},
1 b% [, j: J) @# f  g' N  PlotRangeClipping->True,
! B2 v  i; l. K7 t: e# V7 D( d  PlotRangePadding->{Automatic, Automatic}]], "Output",
5 E6 [, F1 a, m" i& C9 P0 _, S CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, ) I; E+ v% B- k( D2 k5 {1 e+ ]" V. e
  3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9,
, C1 ]4 u6 [- W9 [9 }3 L  3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]" E7 O$ B, Y$ K" v
}, Open  ]],9 B! w3 f& m$ A- X5 Q5 @" \* a. M
7 m/ [  T% w0 r: v* K. Z
Cell[CellGroupData[{
8 W; x9 l$ @6 F; c; I" w2 p
+ J: e6 J- \- w: jCell[BoxData[
* r" e  s- |: X+ O. E. L+ @5 w) k7 r RowBox[{"Show", "[", ; ~* E3 ]* @, k, W3 Z! _1 Q
  RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],
2 J' _1 K' Y! E8 h9 R1 x
- ^6 s- Y* D- W- D" w/ i$ @Cell[BoxData[
% r$ o) N/ V* J+ x1 n GraphicsBox[{{{}, {},
$ z2 E! ]% _5 I5 u) x7 s1 N    {RGBColor[0, 0, 0], LineBox[CompressedData["
' w- `5 {. n5 O1 i1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
% f2 U$ C  U5 k' U( m  M8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
4 d3 J/ |7 i7 e' f, T9 Y8 PD3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B6 F3 e2 i& r: L! a0 C5 o4 h2 A1 U
1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
" g- K6 h; }. n( X" ~C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN: @, d" `3 Y; x! k
a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
4 R5 q$ S2 T0 K* @yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb# \9 F8 D7 M- I0 z! ]" f( W
wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX596 N, n- ]1 N/ r+ a/ d
Y6nGQ3sAieueIw==; Y/ o1 x/ @. D0 `
      "]]}}, {{}, {}, + d& Y$ K, K, h4 D
    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["& b+ e4 n/ c: r. X& Y% Z
1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
( @/ u+ w  m7 Z/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
( Y) u9 I. N0 J8 s8 PGwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy  \. [5 o6 ^/ g! F6 u- v
GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy% Z0 j9 b) Z  x! B' ^+ e
7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/6 d( G) ^& v4 a& K
Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
- c1 G3 z, A7 [, lH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
, ]( h0 ]8 N* |8 p7 _( L, hrQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
+ P8 @( H1 `2 q2 BvA==: S$ i1 Z- Y$ N, o
      "]]}}},
2 P; W+ o& q& T* S8 ]% ?0 `  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
1 e% C, ]3 ~  T% }  T+ y  Axes->True,
! J7 j' N+ A4 O4 f  AxesOrigin->{61, 0},7 g/ L/ w6 v; m- E# H  W8 ~! j! \6 d
  Frame->True,
" Z# N7 a7 h$ D  FrameLabel->{
' I$ l' O. D5 c* x    FormBox["\"\:7089\:6b21\"", TraditionalForm], 1 g& f3 N- n+ D, D% p
    FormBox[& [5 F% J2 Y$ `. I4 ?
    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
6 [4 h6 r& G) {" O' e6 J9 x\:ff09\"", TraditionalForm]},
  W4 F' k' T0 u. r. o& d  PlotRange->{{61, 89}, {0, 1}},
- Z- d1 i% Y0 _/ {  G  PlotRangeClipping->True," a2 G0 F/ h  }  g  F$ T* b
  PlotRangePadding->{Automatic, Automatic}]], "Output",4 d# w% F1 O, w
CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]! @$ k; H" S% Q/ {
}, Open  ]],
6 k/ g: a% H' K& c3 T" M9 ?0 o
; ^  c5 _. V; L5 a5 ?Cell[BoxData["\:62df\:5408wi1"], "Input",
) {4 Y' J7 t* T+ z CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9},
; \" g; d: t( i% u- w' q2 G/ j   3.577959662349238*^9}],
* i/ K( a# Q0 d7 x$ s+ V1 F6 ]  N
Cell[CellGroupData[{
" U# C3 h" l/ s9 {+ L/ t: M! w+ L, c2 V' G, t
Cell[BoxData[: @; x) s( J. x  u& C9 p1 J
RowBox[{"y1b", "=", " E& S- v4 |1 b7 A
  RowBox[{"Table", "[",
) u2 [' e( _& c# B   RowBox[{"x", ",",
* z( [. F+ m$ D    RowBox[{"{",
; C) X2 ~5 R1 U- |6 e2 z/ V. @     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
# }5 G3 c# c" L4 [, b( V CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {8 ^' J9 e- ^: X5 |) ^
   3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],: ^& r  b9 j( z7 ?) B& o" ~( e, b
6 D- t' L. Z1 W7 a8 N
Cell[BoxData[" J7 y7 b- v% C' R1 s
RowBox[{"{", & V* `' Z% h! _7 M: B
  RowBox[{
0 W2 u4 b5 x' d" q4 w  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
4 I) N4 v- P: `8 K& @3 `* |) w  o2 F0 {   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",4 }5 t; f- i; S+ c) Q2 a# f  M
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
; ]& h' `& f# o   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
" \3 u3 K/ S- P5 I8 h7 r( k6 |   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
4 o' d# U/ K- g/ b6 q" J1 m; J   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
; K9 I% W4 j# \/ O! |; A. W   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
9 ^$ D8 \) z5 Q3 ~1 o4 D   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
6 {7 M8 f* c$ G+ j1 r: g& Q5 g   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
8 w1 b  J! r! l" m5 K  "}"}]], "Output",# C) T8 f! I  D
CellChangeTimes->{2 {5 T& s0 N  P4 F4 I
  3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9},
/ J9 ?  Q. Z3 [" l/ C" `6 ^7 X& {   3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9,   g1 c* i3 U+ u  x& a. t
   3.578012438953125*^9}]2 \/ z' a. C  |; h: t, `+ D5 ~
}, Open  ]],
( \" r" i3 j* X+ e6 S2 G: |# R9 k* v  q1 X+ k$ H) D: R( y
Cell[CellGroupData[{5 O8 I. g! T! E/ i

- n0 r  E2 a6 p- u( L9 n. f5 gCell[BoxData[' J9 ?8 L+ ^$ l) R
RowBox[{"Data", "[", ( T2 C: V& X, @& n8 k2 ?- Z
  RowBox[{"[", " w; S1 o. q& c; N: c( r! F
   RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",
; b. F5 T5 T0 J' |! A- P; _ CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
5 A: U" g9 M7 F2 R* p% `   3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {
! o: `/ Q3 g1 ]0 l8 `   3.577959014090108*^9, 3.577959016040111*^9}}],
7 z9 q" o$ C2 z, N9 `3 M( K: {* A  q8 @% C8 \
Cell[BoxData["0.492958`"], "Output",* `: `1 u) Y% f
CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, : T1 p9 I/ v7 q$ s
   3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9, 6 `$ ?# y4 J' J* v; _
   3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]
3 J9 H3 [# k0 t8 _$ V* \}, Open  ]],
2 i# x4 W. V7 q4 f2 h( n8 P, C( m
$ M7 f7 L2 N1 N, G5 nCell[BoxData[( Z% b7 D# M2 `3 _
RowBox[{"For", "[", " x) J. s; R# ~, @: R2 w3 ]1 H# d
  RowBox[{( h' }' p% B/ A$ b9 H* }5 ]2 \* G
   RowBox[{"i", "=", "1"}], ",",
3 Z: W# {* N- w/ \2 Z" f& @& [9 E   RowBox[{"i", "\[LessEqual]", "60"}], ",",
/ _) n' p. O& F6 f   RowBox[{"i", "++"}], ",", . d# x/ L& @# d5 \2 {
   RowBox[{
% ]% d. T* U% i  ]& M/ ]3 X    RowBox[{"y1b", "[",
+ m/ x: h2 w" n7 o/ O4 B, o     RowBox[{"[", "i", "]"}], "]"}], "=",
% l/ s1 N! k0 k# n    RowBox[{"Data", "[",
- o1 E+ p# h1 C     RowBox[{"[",
, z7 H& \8 d) _7 _) z7 q      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
5 U/ y; q7 N0 {( L, a& D CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {/ h( [5 x) p# c. `, q" l4 o
   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, " W  F4 n, D) C4 ~% d4 `  }# [
   3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {
! o$ q% J0 E+ ~3 `+ }9 X0 l   3.57795902089172*^9, 3.5779590227793226`*^9}}],
% ~4 \8 z2 N# F& c2 F6 {, Q! ^: K& |5 O6 I, A5 n
Cell[CellGroupData[{, Z( B" ]+ E% K6 M2 S

, p6 U5 m5 k( i0 o) Q5 ]$ @$ HCell[BoxData["y1b"], "Input",
* n6 N1 h9 a' d& p& Y/ l CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9},
5 L0 J) v/ }7 o   3.577958484172784*^9}],
3 m. K  g8 A3 a5 X/ }% ^% m! @( P
% [0 d. G- W6 UCell[BoxData[
% V! ?. [! r) P$ M RowBox[{"{", / D, \7 n3 C6 R% w9 [0 r
  RowBox[{
; h, B7 N$ P7 U8 x8 L  "0.873239`", ",", "0.464789`", ",", "0.492958`", ",", "0.774648`", ",",
$ j2 y( D3 f/ y   "0.380282`", ",", "0.647887`", ",", "0.56338`", ",", "0.295775`", ",",
5 p: K+ B6 W5 m  Q   "0.338028`", ",", "0.211268`", ",", "0.690141`", ",", "0.43662`", ",", : l. w- v( e$ X5 W( ~% B! H. S
   "0.`", ",", "0.267606`", ",", "0.211268`", ",", "0.408451`", ",",
' H$ g8 G8 _  f- b( U0 V6 D   "0.478873`", ",", "0.380282`", ",", "0.211268`", ",", "0.43662`", ",",
& e$ y. m# s5 ?2 Q6 z   "0.478873`", ",", "0.295775`", ",", "0.028169`", ",", "0.43662`", ",", 2 l: S6 Q5 U3 F& i& x7 q, r
   "0.394366`", ",", "0.295775`", ",", "0.830986`", ",", "0.169014`", ",", ; M( N4 G, g9 N: X
   "0.366197`", ",", "0.309859`", ",", "0.352113`", ",", "0.309859`", ",",
" \( T) v3 o0 I/ L   "0.774648`", ",", "0.422535`", ",", "0.887324`", ",", "0.887324`", ",", * \4 R/ [3 a) L8 N
   "0.859155`", ",", "0.239437`", ",", "0.295775`", ",", "0.746479`", ",",   A( c5 Y) Y" P5 F% h
   "1.`", ",", "0.549296`", ",", "0.366197`", ",", "0.549296`", ",", 3 v6 U5 l+ G8 n" B1 \0 ^
   "0.577465`", ",", "0.690141`", ",", "0.71831`", ",", "0.521127`", ",", ' x5 S2 y" s/ C, Z% g' L5 f  g
   "0.929577`", ",", "0.521127`", ",", "0.338028`", ",", "0.380282`", ",",
: ^3 N; R" S& P  i   "0.676056`", ",", "0.591549`", ",", "0.464789`", ",", "0.295775`", ",",
; l1 @7 f% ?: s' P% v   "0.380282`", ",", "0.211268`", ",", "0.253521`", ",", "0.28169`"}],
7 V; s* M4 T2 |1 I  "}"}]], "Output",
3 }" g" S( i4 E, v' F CellChangeTimes->{3.57792293246875*^9, 3.5779582549771843`*^9, ( M2 g5 b" w, Q( J: Y! ~, b  z+ k
  3.577958485420786*^9, 3.577959026460929*^9, 3.5779622288195767`*^9,
/ ?  `& H$ D& f, g4 h  3.57801244275*^9}]
# C% h0 L& l6 B  Y6 Q! _! g}, Open  ]],
$ M3 b9 ^3 b; }  G# V! u% ?/ J$ l, X9 N+ r5 |5 g7 `4 Y; t
Cell[CellGroupData[{4 m) [% V) O% e
& l+ L5 l& Q) S2 g  y
Cell[BoxData[, h+ X: N$ o% _' x# E, M
RowBox[{"m60n21", "=", + k4 v* a& \, O/ [, z
  RowBox[{"Table", "[",
% d8 x0 v# l# @4 W& m- T   RowBox[{
+ F4 W  K9 w0 ~# \( t+ H: e8 v    RowBox[{"Table", "[", 5 Y: M" \  G9 k" T) @7 n
     RowBox[{"y", ",",
/ ~& A/ h% [" Y6 J      RowBox[{"{",
4 M* ]2 X: E1 N' r7 x9 B       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
) k- N  M/ I( J5 ?" {    RowBox[{"{",
0 U' t+ f7 a- A& B1 k     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",: a. r8 \! D! y6 q9 @$ q3 u
CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
1 a% V# y$ V+ [+ U# V+ p  3.577924052828125*^9, 3.577924101671875*^9}, {3.577962237961193*^9,
9 s8 F- Y4 M7 ~  P# C  3.577962240082796*^9}}],! M& k! N9 u' v0 P
8 b5 l9 S! E5 I3 [% d/ a
Cell[BoxData[
- T: F5 y1 L1 B3 y RowBox[{"{",
7 A6 V5 Q8 o5 f# [  RowBox[{
( L- V' {+ a. V6 F+ j: l( l   RowBox[{"{", # W8 M1 ~% _5 |8 X. t
    RowBox[{
! S% y# I# S  M% S  @$ ~    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 S. \0 l( F. I! k/ C8 n7 f
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 n1 _/ P0 C, _; g. [# K6 i, u
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
1 Q3 ]$ p$ F) Y) p4 u     "}"}], ",",
) p, M; |2 Q$ d6 s+ T   RowBox[{"{",
* k) R' d0 r) Y+ g( S% N    RowBox[{. i4 z5 R" _& _0 e$ i1 I& ^
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ z! u! ~& Z/ M      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ c; g7 O, ]$ J( n
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! x& `7 s; H6 ~0 H" M1 G  v* d
     "}"}], ",",
/ I& k2 q% h' l( e2 J0 t   RowBox[{"{",
8 f2 z8 {  h+ ^; r  d8 ?* T    RowBox[{
$ C$ t( K: V$ h* N/ _6 y- D    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 x9 Z6 {, p! b2 {. v
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 b; H8 l7 U& [     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
% R+ K' Q4 g3 }2 g: D( [& g: @     "}"}], ",", ; K4 J/ Z0 O1 h+ p! z
   RowBox[{"{",
5 C: D+ {' i' k% q9 J    RowBox[{
( F  ~$ k: F" |/ P, Q4 [    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 x; Y* d; [# @9 r
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 `$ M9 B; ^- Y6 I6 M" H
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
7 c7 p+ i) A3 o4 V! l# H7 v: S     "}"}], ",", 4 K) ~( @9 D% g7 n/ \
   RowBox[{"{",
( |' H: V3 z" u5 |    RowBox[{
8 k/ G5 H' {/ A/ l! }    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," `/ O5 H/ V: d- w+ |! r; g
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
  c1 M- P6 k4 h/ A     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& M7 `5 l' T* n& }     "}"}], ",",   m- X& \7 S3 i; `/ R
   RowBox[{"{", 1 y, D6 ^% t0 ]% [9 m  D
    RowBox[{
0 Y! [9 P, q4 c  u0 h7 f/ o! a    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ t% j* G/ k" g3 R* [) m
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
! R% ?( Q- ^  ~0 t, ]& x4 Q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 N$ c, ?" G! Y0 l
     "}"}], ",",
: M  b1 Y5 H$ w4 Q" I   RowBox[{"{",
  L. b& n/ I  P  {$ e* P    RowBox[{
6 Y  }6 ^) I. u; E" p    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% i( }% T: S# U" l( c+ |      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % N3 J/ D" }- b. C$ [
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
2 Q. F, W- Y: j: A9 ?, K$ ~     "}"}], ",",
$ V' m/ ?3 D" k1 u; x   RowBox[{"{", # f: O% X6 }: f
    RowBox[{7 w' @% y& [( e& a& i! e
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 X2 X& j4 V7 ?8 _9 z. `+ w& J" s
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
* Q' X. M3 B+ x9 X( y. C2 ?     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. d' M+ \2 s% j; ?: Y$ |1 \     "}"}], ",", . [1 l8 E1 e/ C, Y
   RowBox[{"{", : u- O$ D- g" r- q1 G- G6 G) |
    RowBox[{! {3 |# Q, m" w
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 Q! z" ]. ^, _# ?( j      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
0 \/ U3 T6 h) y9 d) p/ y. I     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 @! i$ z( c& m7 g$ M# P
     "}"}], ",",
" ~6 {8 B7 l+ ^& H5 [. {   RowBox[{"{", $ C- f$ X5 O5 i4 m! M
    RowBox[{
6 F6 R4 e' }: V& F% H    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- g" e5 h+ I% R  R9 m% n
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
# m( C" f0 x* U" m+ x. D& K     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 M! E% B; Y' s( r6 y
     "}"}], ",",
3 Q' _4 e7 Q4 m  B   RowBox[{"{", 5 [1 x0 T) b# N& t; m0 p
    RowBox[{
# s* G3 _4 R, e5 s( j! z: \: ^' j: \    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) W1 l" G9 l  q: ?5 N7 q
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 m& w  i4 C, j4 d) J2 J     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% |5 w- Y; k1 M9 F
     "}"}], ",",
7 d5 l$ Z: ^2 e3 o8 c   RowBox[{"{", , ?$ z9 e; v4 h( g8 l- ~; w- J* |: o
    RowBox[{' }0 M( |& n8 Y+ R& T6 z, n# O& C
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% `0 Y! w9 F' X& h
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ d" x- F' _7 e1 i1 Y! x+ }
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 {6 k6 q8 j2 k4 J$ L
     "}"}], ",", ! r9 O% @) |9 [8 T/ Z0 v
   RowBox[{"{",
6 r/ l3 w$ b' F7 d* }# E    RowBox[{+ M( n( ~! ?; z, Y% M) [
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
8 m* X7 I- c9 \1 o7 @- ^      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
  P( ^( @1 R- w     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) M8 D7 Q7 {- @6 ^' l, T# h
     "}"}], ",",
9 S& h4 e, d8 A$ u: F- R2 N   RowBox[{"{",
5 I" r( E; W) U: n; D" q    RowBox[{
' a! J1 Y( J8 a9 C: P    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: H* f9 U1 ^: I2 U7 X, v5 V      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
' P" L- @+ V, B  v5 y& ^     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
4 c# F, n5 j+ I, a     "}"}], ",",   ]: R  G! Q* K) k
   RowBox[{"{",
  i' f+ e$ b6 \    RowBox[{
& O+ r4 x6 s5 c2 u3 |' m1 I    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 G' k8 ^# x  o5 p% c! |      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 P) ~. L3 Q3 B5 ?! t$ ?     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( o- T/ r/ o/ b$ V# d+ x* s! ^3 E
     "}"}], ",",
8 P- d& P  G$ r- ~- f5 ~  ~   RowBox[{"{", 2 _/ n  }  f' y: V2 r& f2 `+ s# }
    RowBox[{
8 H; i% }1 I9 x( ?1 h/ C' h( Y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
1 I1 S: Q3 z5 |4 R, Y0 Y      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
9 l, g1 D0 X+ m/ t' |     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! v+ ?: t4 r3 N- M, h. t
     "}"}], ",",
, V! s. E; A! N: h   RowBox[{"{", . d  M2 H$ u. ]4 ^5 o1 f
    RowBox[{" O  C: N7 r! e
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ u+ z; Y& h1 i& j9 ~
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
( p& K0 |+ Y: i6 K* m, o+ w     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ K: |1 J7 i" g0 K9 Z4 t( x
     "}"}], ",", ( g3 D+ ]3 v7 N, s" [& ~
   RowBox[{"{",
& ]7 [5 n7 k$ k. Q' O% \5 L    RowBox[{
' ?6 ^5 z1 k4 |* i$ i/ u: H1 M2 N6 U    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 D: `1 [# ?1 X8 G9 Z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 h( k; B' `& ~( I# m. H- ]
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' ]. x. _) h1 s
     "}"}], ",",
/ a( L6 D- h7 I. Y3 N4 G   RowBox[{"{",
* j2 L3 K5 o9 r2 R* t5 C$ j    RowBox[{+ m, O$ J* r. R  C3 R5 ?
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 `+ j; \6 [% y) Y: G      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 U8 L& d+ h$ m% W+ M& v
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; V& e& z- E* u$ {. d  X$ }5 n
     "}"}], ",", / M/ F8 J; \# b% r: U, @
   RowBox[{"{", 0 t* V: b8 r% j- h4 ^) q: j
    RowBox[{
9 d* G2 k$ x; T% O; l# z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% r' w( \5 ~/ O2 z3 {      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( R1 S& v2 g! b, [7 u
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 ^7 D/ u- D& H) u7 I
     "}"}], ",",
& E- n! ]/ m4 K5 ^$ z   RowBox[{"{",
3 w/ p+ C5 g/ v: |$ i    RowBox[{/ W  P# o4 G0 t, @5 O
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ x- P) q$ B1 {4 g$ M
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. m$ Y. X1 n) W     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 Z$ d- R0 S* B+ a  B2 G: E     "}"}], ",", ; j! @1 n- W7 P7 K; T0 Z3 L$ {
   RowBox[{"{", 7 i4 r0 G# C0 C; I
    RowBox[{
& y: r7 t; v, M$ O    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
  W8 S' L9 _. ~7 @! R- M      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - P9 o8 g9 i& L
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. g2 t8 E  S5 B# T9 {3 r4 c" C
     "}"}], ",", - V( K7 i/ S& \/ V7 h7 Z/ t. C1 ^" ^" z
   RowBox[{"{",
! I5 O* o& Y# n, v: V# `    RowBox[{
9 `* l, W" P' _$ v1 A    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( o! y; U: I* a; R( \
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 V* S; L8 X4 ^     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 b; z& M( p9 X  W. M% V# T
     "}"}], ",",
4 {/ G: R% y3 A3 ~$ c8 e3 _   RowBox[{"{", . o- O6 A. i6 z- ]% h% J; U
    RowBox[{
1 ^# I% D; j' u+ e7 S    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 `; p4 t. b& K+ F/ r; e% j% l      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : d8 w. }0 Q3 ~- |
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
7 V" ^' |  S: _' E     "}"}], ",",
/ t* `4 u- T: S   RowBox[{"{",
  Q/ I9 }8 L1 c* t( D6 Z7 x    RowBox[{
/ @9 D( m5 K+ O# ?    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 N5 ~- F. F9 ]) a7 n3 s* P. |
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % ]/ C8 D$ y4 {$ H/ T
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, A& q# H; l7 e/ W+ M! P! g) Y
     "}"}], ",", 9 h3 _( I2 R: W% Q' F
   RowBox[{"{",
5 \4 V  E4 f! I* l9 C0 p    RowBox[{
6 h1 i. B% L4 w; H  `    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- _' a4 u' n6 [" a      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 ]; O/ x7 t! ~/ ~
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
7 j% ^  k- l+ I* t  U' W6 F* d, R     "}"}], ",", . z  ]% C2 T( R6 A' b
   RowBox[{"{",
1 J/ z% Q* a$ g- {7 r    RowBox[{( m1 J& A! W; A% z& y4 `3 I& n9 t
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' H3 [3 X8 _. c" q6 W4 @: N# r# }      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
  D3 ~) X. f$ h* e7 [     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
3 ^" I6 e" W- S     "}"}], ",", ! X! n& w# J* \, ^
   RowBox[{"{", & P$ U$ C  t0 @0 ^" {1 Y% J. i0 }5 [
    RowBox[{5 H( z' X- ?; f! E' B; h
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! M1 J# \7 v1 K; ~, {
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   S% c$ S- g3 h9 Y, k
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
4 H" r0 `& `7 g  A     "}"}], ",", " W; v( U/ p  c
   RowBox[{"{",
3 C2 E2 @1 Z4 ~0 X2 O8 Y    RowBox[{
) n4 B6 h: f5 K! L; M: h" {    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# X  q; Z( ?; @" a" q  ^2 l
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 ~7 `' a& O2 J  ]! s
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
( v& M+ N, _5 e5 m5 v     "}"}], ",",
( @& a/ ~4 B# y   RowBox[{"{", % Z" i# K8 A0 g" m+ l5 x- y# X' n
    RowBox[{4 T% ?$ b# Q0 f+ p, G
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 Z6 J2 y" [0 q, c, m  B      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 K2 h  T& E/ k1 Z     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 d3 }9 w5 v' G& a% q7 s4 Z
     "}"}], ",",
5 D! p' j7 z& @& X' ]" Y" {   RowBox[{"{", , E, n7 }2 @6 D. u
    RowBox[{
) ]) \5 W6 t( a' g! k    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ f! K* m' K9 c3 C: p% J) ]      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 P+ Z4 ?% I: @; r5 i
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 W4 g% S; d* U0 S* @2 q
     "}"}], ",",
$ W7 V# z5 x% w% Q! N   RowBox[{"{", 2 \- l% g$ N1 y9 C' B
    RowBox[{3 \/ ?, U; I6 N, w1 s: b
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, w. ^. j) R2 t2 u( G; e* p7 }      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
+ o6 [4 O7 n1 s" v0 R4 T/ t     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. R6 d1 B) a. Z& r; U     "}"}], ",",
$ ~+ v# @2 u7 b+ F   RowBox[{"{",
# P7 H9 C# N6 C' W% C8 S    RowBox[{# a5 b6 ~) z, w* l
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ i- Q0 y/ d' O! v0 S# b      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; E+ \; c3 D; x; |# _8 g  P
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ x4 l5 F( C7 |9 ]     "}"}], ",",
2 H" V% N* v3 e0 r- t   RowBox[{"{", ' ]7 y) ^. R3 z- T, S6 c& {" {: p
    RowBox[{
: g5 N: N  z9 ?) j- [! G    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 N$ U# H1 ]3 @% C  J5 k+ m' E
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   }$ K. R3 o+ p3 @. J) q
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
8 k4 R* `7 w" [% u     "}"}], ",",
4 @% o+ c1 Z1 Z6 U. b# |# _   RowBox[{"{",
* H: x  E6 Y6 n8 W3 B    RowBox[{
0 M' \$ B) z' j- f/ U) z2 {    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 W  d+ I' Z/ f% M, Z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
! j: L, V" K( K; m. E4 o     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
2 Q6 \+ z. s. \6 ^* r     "}"}], ",", 8 G4 R# h' @1 p& m8 H
   RowBox[{"{",
# M( H( k/ f/ a5 A* k    RowBox[{( f) ~5 `$ G6 W) {, Y( y
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% ~( ^3 i6 [% X" f# v! L; o
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ `9 B7 X; ?6 j/ N+ }4 a0 j
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* t0 f  y& f& n
     "}"}], ",", ' f( ~/ |# o( E
   RowBox[{"{", ( e; c4 \' Q. I$ b4 @. P+ s7 L
    RowBox[{
$ ~8 ~0 m! J4 P* J    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& N6 _: v) }4 d2 Z% J3 I+ _      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 M  ]( z% S& b9 @/ B
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) C9 _& [9 o( M1 F  M- T- m     "}"}], ",",
, V* o* Y* ~9 v   RowBox[{"{",
  U$ K0 C2 Y8 ~8 r1 L3 `, b3 |( B    RowBox[{5 e% |" p- a5 P8 M
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% ?, C% H" M9 F0 X      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 ^+ m* ~! y! x% a( D
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' T# d! Z, U+ i0 s  b# K/ l; k' H
     "}"}], ",", 1 u# b7 m! L$ j6 S& n% V2 J, [
   RowBox[{"{", 3 J. O5 B, N' H0 c: p4 v
    RowBox[{
4 X* n8 U4 J1 Y+ i1 X    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
1 v$ u1 h, m3 B; T      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% e- y1 [+ B0 T     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! y, B, W0 R2 T4 b+ e) `$ \* m5 I
     "}"}], ",", & Q% r# L1 t5 I7 a
   RowBox[{"{",
; K( c; e* [7 Z" l, X1 B& h7 Z2 J    RowBox[{, w5 R5 J4 B( ~+ y6 ?/ k
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ n1 R8 O9 o" w* [5 P
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 D, f" T. H0 L, m: P3 h     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 z& [' y$ a6 u" [
     "}"}], ",",
1 L" G: W& W0 B% L1 _8 w   RowBox[{"{", * Q2 D# E1 k) @+ A4 S* \( H
    RowBox[{
) p; J" H" e4 @" Y! x8 Z; C    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" g3 u' y) F/ b4 f7 v      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- {5 u! z! t" g  A0 `) _: z; k7 `     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 C# I. [: P$ c; W- N: ~
     "}"}], ",",
) ^# Q& l/ j1 n8 [: m" y. e3 b   RowBox[{"{", 5 V9 w7 l+ b- H; F  P9 F
    RowBox[{* X! M( E. B# Z7 _  m. j
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 G' a8 W6 i0 z& c5 O- B
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
* L5 ^7 X+ p/ p     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 t/ _! t% Q+ k+ m) J$ P: @
     "}"}], ",",
4 i2 Q' H, i- `! G2 Y   RowBox[{"{", 7 b! j  O9 k5 B9 e3 _! ?8 M
    RowBox[{
1 b  r5 H$ R, ^7 ?, F% i    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
( u( m3 ^! O! ~      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , G" k7 M: j" Y8 ^6 m
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ b; P# b2 S- a2 }$ b- D     "}"}], ",", 2 T/ l# Z, v' u0 f
   RowBox[{"{", 1 W4 j6 d5 C8 R7 F- d: U5 a+ y$ h
    RowBox[{  L! \, a0 u# E, y1 |
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
* b7 h3 _( r2 N5 G5 @      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , C1 z; K  D% t$ M- p. U; M) n  J
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- X4 S: V! X5 t9 ]- h2 c
     "}"}], ",", * f$ ^) W2 ]: g/ ]7 A' B
   RowBox[{"{",
% m! p5 x; N3 ?. L- y    RowBox[{2 {! w$ Q; A' F3 G( k% B
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ T, t! e, i; E5 d/ D
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 ~  J& D+ }- H) w
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' r# Y0 B9 Y) V* q; e% J/ O7 o
     "}"}], ",", " ?7 Z* S3 X3 s
   RowBox[{"{", ' T. ^, E/ W5 M0 n
    RowBox[{
. N  K0 E# O' @  w    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
7 `! G' e2 W6 M      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 c5 @5 @8 J: ]* A6 @0 V
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 S! E3 l. R6 L7 W% O% Y+ q) v# J
     "}"}], ",",
* j) \; R; h8 L3 ]   RowBox[{"{",
' _$ m7 B. U' j" J+ b) M! I    RowBox[{% z6 t1 [- ~' n# V
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! x1 K1 s9 f$ |  x
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
& ^* ?! {9 u# d' P4 {     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
* K$ L8 Y  \+ [/ b     "}"}], ",", 6 |9 Z$ B3 R! R+ @* G
   RowBox[{"{",
6 a9 [- Z. W6 S! C) W    RowBox[{
) {, y5 p8 v. U4 @5 u8 {    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ T8 |! b$ d% S      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- ~3 {. |& r: Y/ G7 S5 H) j     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
2 _8 G* a! ~4 U     "}"}], ",",
- O+ J: ^1 H% E) U* h. s   RowBox[{"{",
5 h& f" q& Y: b* g0 o( _    RowBox[{8 p% x: Z- ?3 ]5 ^
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 P6 ^; x$ n, H- z) i      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
; r$ f5 @, j  S. U# ?! ~: u     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- H2 J- k, V) f: H     "}"}], ",",
3 u6 G! e* l! h0 Z5 @  Y# v   RowBox[{"{",
" `1 J9 d+ s. t+ _    RowBox[{4 C1 o0 k& G% H5 i  \9 B4 \
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, T+ O6 ~, W6 m9 w' a      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 b* a5 g6 r# z( i& t# ^     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! a4 W! E$ @: C! o" v
     "}"}], ",", - N5 ^* ~! h! v9 B( U
   RowBox[{"{",
2 p7 `- P  e  N) \    RowBox[{' X) K! h- W4 b1 v$ R
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% k7 M5 b9 n- K; ^
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
( o1 n+ F( G; n2 U2 }# K     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 F/ N- M8 o0 I+ o$ P7 I
     "}"}], ",",
# i4 j: z& S9 Y3 b& B   RowBox[{"{", ! i! B, A2 t5 k+ I6 K
    RowBox[{$ e5 c/ y9 Q) T& q: v3 j$ p5 C
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& a3 s4 u! [6 f/ A2 x% d
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
; a3 _, z( _* C6 d3 ~0 L! v! n     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( K: V$ M1 p  {
     "}"}], ",", 5 |! z3 e& x8 L( L  s& }7 ^
   RowBox[{"{",
1 H# L: K& @7 ]! K% s, K1 `    RowBox[{
2 ~- z: T9 n- ]9 t; S9 ]# |; H, m    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, V" V0 r: `' D
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . W- b' [3 c7 O! \' C) n6 x2 k+ ?
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 ~) `8 x' Z& Y( J5 h  p
     "}"}], ",", 9 h, ~8 H4 c: }
   RowBox[{"{", # i) T# l, `, n/ C! p, q
    RowBox[{) k- X  q' s7 m3 b& p- r" m. n% C- `  {
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 v5 E6 Y) f! `$ C$ Q
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ W# c! z8 W  f
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
4 L6 S4 K% |# ~& a1 r! B- p* H     "}"}], ",", ; o& L5 k: k/ X7 {- A9 Q
   RowBox[{"{",
! D' z+ c3 |1 Z9 {    RowBox[{
" z- u5 v# [5 L) q9 ~1 F    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- t* ]5 o, S4 J$ r2 d& C
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 |+ b# ~$ g9 b: r3 t/ X. d% t
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; a- H3 N# ?! Z9 J) |* e, t
     "}"}], ",", ! d- \( c' K( c/ r  E; C
   RowBox[{"{", . ]! o3 M! e" Q# v
    RowBox[{; R: w' j4 U+ p
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 s7 S  Z$ a/ S+ J( W      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
+ u* T4 ~) s( ?2 Y7 k2 d! d     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
. k+ S  }5 V1 Y: G4 q- z     "}"}], ",", 8 S+ C& h0 Y0 A. O/ C4 E& H
   RowBox[{"{",
7 C: d. Z# w% f" @3 D! S    RowBox[{
0 k  i5 m- m/ k: g8 u    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& {6 w1 ^$ \  p2 F
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 n" @0 S; X8 P/ k4 C  G6 t
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: c* S( c) N# \: `7 C2 R, }     "}"}], ",",
1 C( u6 H: l, _" r6 m; U& F% w   RowBox[{"{",
$ f( a( \+ T" e2 u% V( v! h; j    RowBox[{3 \, j4 [  U& I. k& ^* P
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 m0 k- q' k% k+ o0 O8 q
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. Z5 s/ h- e4 w* @, T& W     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: j$ P* `0 g# c8 v' {
     "}"}], ",",
9 q8 ~" u6 l6 d: g4 {1 i   RowBox[{"{",
4 z- G- p/ p. k: z% T1 y) Z    RowBox[{- b, b7 x, n9 k# G% S. m- |
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- w& f: A( \) |- {$ B* |  n      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   K2 R" f" _! L  y2 s& _
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 g* J4 X% Z- q) ~6 I$ ^# X
     "}"}], ",",
6 J' }, B* w) R1 K+ \   RowBox[{"{",
- [/ p# k3 [, G& |0 i6 F8 D8 G& m    RowBox[{
+ a( I1 v% O0 k0 A3 ]  E2 c    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. _9 z4 u1 o; w
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # q# l# V: i9 d
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
  \& m2 E2 ^! a" z9 g2 E     "}"}]}], "}"}]], "Output",
( ]- H% s9 h& s5 |) z! t CellChangeTimes->{) ^. ]' W( U4 n6 Q: M1 m7 V
  3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
. _5 V7 V+ d1 T  |1 S, N   3.5779582609987946`*^9, 3.577958492393998*^9, 3.5779590297369347`*^9,
- ^. P% t" q( c9 p   3.5779622422980003`*^9, 3.578012443890625*^9}]
; ]0 e) Q" s7 x& ^) }" M}, Open  ]],8 D+ e) x! ~% `+ c

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

8 n# H5 y+ G9 s3 j* I1 |Cell[CellGroupData[{
8 W* E: E6 ]3 Q
+ a0 g1 t% ^7 K* Z4 K% ECell[BoxData[
9 V5 t+ E/ r8 K% M RowBox[{"w1b", "=", 6 H& H5 g# S0 j/ F- F/ Q* ~
  RowBox[{"LeastSquares", "[", 3 n1 K+ R- b) \9 b$ Z
   RowBox[{"m60n21", ",", "y1b"}], "]"}]}]], "Input",  j% Y3 N- G& C) p
CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {
6 |. C0 M( g- x4 W- J( U  3.577924662765625*^9, 3.57792466596875*^9}, {3.5779582865360394`*^9, ) u- M& J  t! J* k+ K; d* K, A) U6 [
  3.5779582963172565`*^9}, {3.5779622900808835`*^9, 3.577962290377284*^9}}],
% \$ n% {. N. ~
3 i; D1 [4 C4 _/ iCell[BoxData[
' ~/ ~% h. V( [9 P. E7 F! y RowBox[{"{",
; ^1 l6 |# B1 A1 C+ X; Z  RowBox[{
; B' b' D" P5 W- S  "0.48228184971363947`", ",", "0.16041393254115022`", ",", : M. ^: r7 k& ~, x( R! r
   "0.3741982811661129`", ",",
+ |2 Y( \- U7 ~0 \0 k   RowBox[{"-", "0.12620581913715245`"}], ",", "0.28831860112966734`", ",",   [& p% W3 u: p6 \( p% Q' u# b
   RowBox[{"-", "0.2282993884666894`"}], ",", "0.3207174990295839`", ",", : s" b, V" K! X- Q. v5 u
   RowBox[{"-", "0.4666313851213302`"}], ",", "0.27551257162880227`", ",", 9 }8 O: k$ J, h' i7 R
   RowBox[{"-", "0.025873988843993667`"}], ",", $ s5 y5 t2 c! q" [9 E7 U  `
   RowBox[{"-", "0.1339854044819916`"}], ",",
$ f# e. N% c: e  V: d2 |! A   RowBox[{"-", "0.15852708848338315`"}], ",", "0.3129687276967983`", ",", : T- z5 T" }/ O8 Q. r
   "0.45723850991134063`", ",", "0.2954923840077215`", ",", 8 D# W0 }" E" L; v0 r1 n
   "0.9125798890455868`", ",", "0.21159052285983104`", ",",
& o6 w+ v+ @! `* m3 r2 [3 y4 K   "0.5575503376854456`", ",", "0.6019775648968265`", ",",
/ P) [8 R$ K/ d! @; B* d   "0.2361524780938108`", ",", "0.12782130225993923`"}], "}"}]], "Output",* G& U: t9 C  C1 Q3 v+ k
CellChangeTimes->{
* g# f* }/ @* y4 F  3.577924621953125*^9, 3.5779246688125*^9, {3.5779582894220443`*^9,
6 J7 U$ v$ i8 O9 P# s6 d   3.5779582992968616`*^9}, 3.5779584995700107`*^9, 3.577959040157753*^9, ' a, P7 [6 y5 W& X% V
   3.5779622919996867`*^9, 3.578012447734375*^9}]
1 s- D2 \! p- [3 N# R}, Open  ]],, m3 o, O: w* T. U) q

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

& |8 K) V0 Y; mCell[BoxData[- L$ n. J; Q& C! _0 |
RowBox[{"{",
! i, q# W; w3 E/ F  RowBox[{
4 G9 e: }5 B8 s  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 7 ?4 {/ K& ~" d! ?/ H# h
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
$ }; G+ w6 }0 Y/ F6 L6 _) [9 N* v) r    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", " e& d+ J* g" K2 x- x
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 0 U7 L0 v; [, c
   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
( d# T* l9 N6 J0 e& ]& s   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 9 h0 k: _% n  s7 A5 S
   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", + h4 s9 E0 p/ P# M
   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
' ^3 |' _! a4 e; N, d2 ~8 w   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 8 h/ D1 N/ i+ N5 x
   "0.48531711328591953`", ",", "0.48531711328591953`", ",", + y4 A* ]# b& @9 d! T: h/ j
   "0.45086352166650845`", ",", "0.36421192417525217`", ",", . P* U: @: C% Z5 C, ?
   "0.4285207742559556`", ",", "0.4712694272667811`", ",", ; g( E  G& s1 \. I5 C/ u& i
   "0.5257533056184786`", ",", "0.4862065814071623`", ",",
" F. H  v1 \% P1 ^8 _   "0.41106838915592014`", ",", "0.5486894206610683`", ",",
6 H* t$ }9 G5 P! Q% b% C8 Q+ `   "0.007731168540073532`", ",", "0.013872406140339166`", ",", 2 |5 m- k  A+ e- C2 h$ }: q" Q
   "0.3956995051659565`", ",", "0.3663118256142717`", ",", % l5 d3 U: V* C6 v% r, ?7 O5 p: p
   "0.29094217358055185`", ",", "0.5453093690736568`", ",",
& a1 s7 h7 G3 C" L/ b  T   "0.4413889888077799`", ",", "0.42944922031163585`", ",",
/ Z, l% Q+ c8 }6 Q  o   "0.4309289055674891`", ",", "0.5942402821739983`", ",",
% w1 L0 S) H3 K5 n) ?1 k- O! s   "0.33004609078545805`", ",", "0.18938658036630632`", ",", + T) S0 a' p$ u& z6 i' z
   "0.4263720292858688`", ",", "0.23377136184738778`", ",", 7 c+ x) ~: h% l  r2 Z; `
   "0.022328581933099827`", ",", "0.24436420008426807`", ",", ( s* ?/ Q- B, l5 \0 k' I# L
   "0.5562383565309981`", ",", "0.13114103402954314`", ",", , ~  G! k3 G* [3 h" d3 m2 u
   "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",
( \2 i9 x) q4 n6 o) p0 J CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9,
: N) j, v" ?* e' d" W0 J7 O+ L0 U7 N  3.577962342060174*^9, 3.57801245340625*^9}]
$ ?  S$ ]5 \9 k, O! e* U' |# X  i}, Open  ]],
/ G" s4 ]/ t4 Q4 [$ p* \2 B
( p# @5 }# ]) ^7 ~Cell[CellGroupData[{* E9 _# {2 w5 F  Y1 n

  l3 |* j2 S' }, S: m, b# r5 R# {Cell[BoxData[
% ?- S; b4 z( Y# [8 c9 r+ } RowBox[{"y20", "=", ; N" F+ n; z9 X# k
  RowBox[{"Table", "[", / z: @) V4 G4 p, j
   RowBox[{"x", ",",
" p5 V* S* M( C- O5 A    RowBox[{"{",
2 v: S7 i- A) @2 g& M4 P, o$ ]; C6 x     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
/ M% i1 b' O7 J6 D1 N; D CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],+ w7 O$ g( e$ Q0 r( Y

9 T6 f6 g' U8 U% F4 e! yCell[BoxData[
+ w; c0 z. e1 Z1 h. X RowBox[{"{",
8 v9 u6 T8 m; Z. {& Q: K& g  RowBox[{8 r  ^8 j+ H/ `7 W
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 A* N- K" B* @& ^' S+ z   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15"," ]7 r, X9 r! A7 p0 C# u6 b
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 8 z; {6 K. d1 u# P. W& Q( I6 C& L
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 3 j  q9 ?- n" U1 l+ r. x/ L
   ",", "29"}], "}"}]], "Output",
5 \8 B- t' j* q; e" d8 a CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9,   M; M: b7 d% d0 B: i
  3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9,
8 \2 q2 j; A% V) o% A8 T  3.578012454875*^9}]; k( P! h) ^" h! _: D
}, Open  ]],- O1 F0 [1 v* A1 c+ C6 w
# z( H- Y- F) x" @+ ]5 B# W
Cell[BoxData[
. j/ m7 y9 D' R/ ` RowBox[{"For", "[", $ S7 A8 Z0 J! B) W- T
  RowBox[{! x% z$ T) B  W$ m, h
   RowBox[{"i", "=", "61"}], ",",
2 u8 G6 _9 B$ K* n   RowBox[{"i", "\[LessEqual]", "89"}], ",",
! b1 y9 B' K1 T   RowBox[{"i", "++"}], ",",
4 k3 e- I8 o! B+ N, ]   RowBox[{
: ?! f$ Q8 r2 l& j/ E+ V; E    RowBox[{"y20", "[",
; S) q; r+ }* P) t6 O8 g     RowBox[{"[",
0 T! K. X  x( l      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
5 l% u6 g7 k. V  c3 [+ Q& q: @4 ^+ t% h; P    RowBox[{"Data", "[",
% Y5 g/ a" @1 Z* O% s) c9 Y     RowBox[{"[", ' X4 B) Z, D" ]) p! r: ]- y, C6 @' C
      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
" h/ ~# p5 S7 ^8 g- T7 P CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
9 G, Q# [2 ?* ~0 X  t2 t( Q2 l0 \/ D6 G" G  3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
7 U' v- b  ~9 X4 n4 k, o  3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {
& t6 S& `! p# z& f$ s( L  3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9,
+ p1 Q, Q! W4 a" I2 H5 x* y  S7 [  3.577959058690585*^9}}],
% x( e; B; y$ [; z4 {  Q" P5 \
7 Z; N$ [7 O" E8 C0 @5 F/ RCell[CellGroupData[{
7 U8 {3 k- c. y8 G& ~0 g5 k
+ |  e) M. r8 h$ }3 MCell[BoxData["y20"], "Input",8 v( H6 g, ?" _- H+ g: V
CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {6 x- H" K8 [; w- ~6 H
   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9,
  ]7 B7 z: @5 k' L0 y% w   3.5779583657841773`*^9}],$ i. v2 m& U9 Z

, p  ?# z- O6 m5 PCell[BoxData[
( [. m7 f8 Q5 |9 d6 T* j: S5 u! l RowBox[{"{", % {# R9 `! t# p' |* _/ x
  RowBox[{
& N+ d& u8 \: F, v, W5 B# u  "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",",
5 f! Z* D$ F/ f. v   "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",", , D- `# z+ G# K8 D+ j: t: ?
   "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", 0 V7 @9 O7 [# K
   "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", - S4 ~4 H$ W! d
   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
$ Q- U, ^' e- E2 k7 ~   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", # W% c8 b3 ]8 l% Y( {+ e
   "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
- Y" Y( A7 j# p+ Y   "0.323944`"}], "}"}]], "Output",' a0 X5 O8 u; C; y- {3 F
CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, , N; E8 K$ r: ^* v6 o! H
  3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9, + e  L3 }. [! ^8 p/ e5 r8 C
  3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]8 v9 `& D* k$ p& P9 P; v3 j
}, Open  ]],
/ ]4 \6 a- v5 c  X& e* Q9 R) q4 T% K. e+ d$ V& O; L
Cell[CellGroupData[{
  |$ I8 f7 @/ U- N" K( ~1 \1 N+ L* Q. C) [
Cell[BoxData[
5 v! M( K% J7 l0 S5 f RowBox[{"y20", "=", 8 K' G7 K* ?% _# e5 K' o
  RowBox[{"{", % b2 ]) K$ s5 S2 {7 o  f
   RowBox[{9 h9 h# D5 [% t! M( i% I
   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", $ e( w! s% F+ y  G
    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
, O# X/ V& `3 M0 x  }    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", # k: @2 L3 ]4 i4 I
    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
0 T- Y4 i, ]! o- F' F    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
' o/ A. L6 G* U% J    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", ; ^  s9 b8 S* G2 o3 H
    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", 7 r+ _8 r% g# N+ F7 R! T2 \% e' {* L
    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
( |( h9 O. j) j    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 9 `8 B4 U9 V. N& N. R* V7 {
    "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", 6 ?$ u9 s" t, A" y; `5 k$ N  A. B
    "0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",",
% t5 J) r# u+ O: w( W1 }$ j    "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", ; e. @* r( }. m) N! |
    "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",",
0 h9 X- y5 g; j0 }  c% F  o- R    "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",",
3 g) x1 _$ T2 w$ N    "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",",   p3 w; J# L# h
    "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", + H; i) g! p- W. m* q0 J! i, P" U
    "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",( r: L  C* Y# Q0 Z$ M6 c
CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],+ [" G! d& w* \( q  Z+ b1 X% F1 U1 v
+ U2 R6 B# k! g7 l
Cell[BoxData[6 ^7 N' x# H3 M* \% d5 w, R9 t
RowBox[{"{", % Z6 c. v( e. R% o! H
  RowBox[{
4 O+ ?; q1 f( u  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 \- b  w- ~# [   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",2 H& S9 ?8 ~3 S" j4 W
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", + @, e5 }8 T4 o
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", / _! D( D: W5 {1 z4 X+ b
   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", $ b/ u: j- S- a4 x
   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
0 ]* Z1 {7 L, P' c   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
3 e- u% @8 z9 j0 p   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
# e% B" K% l1 N4 @* a  m   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`", 6 A+ l. o- c2 x. \0 K9 S9 p! p3 F
   ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`",
: o; b1 B* `# R% f   ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",5 g% T4 u8 q; P- ^8 N" D8 H/ i; k, @9 N
    "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", 9 U/ _: L. }( s( O" B
   "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", + w4 p0 X: v+ i, t, Q5 V
   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
& G7 q/ u' J" d: `( h* Q1 Z3 [   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", , d8 L  l& v* Q
   "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
; y' [% r8 ]8 A5 O3 Q2 O8 @2 Q   "0.323944`"}], "}"}]], "Output",8 _: Z2 o: a5 M/ y! t: _
CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9,
7 d/ M- Q+ B7 ~( T- }$ Y/ W  3.578012457234375*^9}]  {8 v0 P# a/ s8 G/ x5 a
}, Open  ]],7 M- D. x! Q1 g7 P. C% P( B

& ]+ _1 @* ^1 t6 F2 cCell[CellGroupData[{& A9 r' h" `$ C+ |: b
9 j: x: I( j+ H
Cell[BoxData[
3 K5 [( `) |$ ~; j/ X( ~ RowBox[{"p2a", "=", 2 F' i( R" U; u5 H( m3 |
  RowBox[{"ListPlot", "[",
' F6 A' |' n" M& G2 T   RowBox[{"y2fit", ",", ! j1 _* }" w3 v; w0 V
    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 6 @0 y# ]# s$ ~) J. N: S7 o
    RowBox[{"PlotStyle", "\[Rule]",
/ N, K6 u! S* r, D7 v3 s9 f     RowBox[{"{", 7 O6 t% s. U8 t( m
      RowBox[{"RGBColor", "[", ; b/ j0 ]/ V" e. k
       RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
5 I/ Q; j  V! e+ D% G    RowBox[{"PlotRange", "\[Rule]",
, I4 {+ ?) W" {: z     RowBox[{"{", - ]; p# ?3 {7 @. ?8 I3 ?
      RowBox[{
1 v6 H7 ]6 G  T8 c  M1 c6 j       RowBox[{"{",
5 e: K# Q8 ^, t" A9 Y1 F        RowBox[{"61", ",", "89"}], "}"}], ",", % Z: ~/ T2 J0 M$ C$ k
       RowBox[{"{",
; ]9 p; f$ C' [& |8 `' I        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
& h, {! z4 z) j5 [( r& Q/ F    RowBox[{"AxesOrigin", "\[Rule]", 7 T  r' w9 R4 A  ~) p$ p/ U5 Z
     RowBox[{"{",
5 z- l- k: X+ H& ^2 v      RowBox[{"61", ",", "0"}], "}"}]}], ",",
* ^  @. i/ r  f! c    RowBox[{"Frame", "\[Rule]", "True"}], ",",
* M: F6 ~0 o: a7 G5 H! g) h    RowBox[{"FrameLabel", "\[Rule]", 1 Z* _- o. c* K5 R2 ?! U/ w: l
     RowBox[{"{", 3 ^/ f! p) ?: n( S, Y) \
      RowBox[{
. c* {1 S! l& h  I% O/ k# T      "\"\<\:7089\:6b21\>\"", ",", 1 q0 |* Z8 H  R" B9 K0 v% L
       "\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\7 h3 [1 ?& F' o2 ?
\>\""}], "}"}]}]}], "]"}]}]], "Input",
- m' H" l8 x3 b% r' J: E CellChangeTimes->{, O8 h* _% [0 b  b% v+ c1 z3 r
  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {$ i7 S7 w, I$ z) g- l* u
   3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9, 9 N( G2 V7 Q8 J3 u, K' A
   3.5779585491624975`*^9}, {3.5779592802577715`*^9, 3 J, L7 _! q! }( y+ f  W1 _( I
   3.5779593014270086`*^9}, {3.5779594039971876`*^9,
/ e" Y# _3 u: |# s# _+ q   3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {
: p$ b, L5 x# x7 K( g* o   3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9,
5 k; E; M  H+ a9 w# g3 H$ s9 B   3.578012920859375*^9}],
. R" U, [4 U+ X1 h6 x5 ^( O
+ P6 m, e) Q' G6 R' }* BCell[BoxData[7 H: |0 |" ^) }, `: `
GraphicsBox[{{}, {}, % m* ]' y! q( G1 f
   {RGBColor[0, 0, 0], LineBox[CompressedData["
' t( B/ k: ?- T6 j( z: [/ k6 G1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM( s  A- a8 \0 m4 `% k
/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ8 G1 x$ ?# V; h0 C" G
9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P+ c0 t+ N. Z; V, H0 a# D0 D' ^
ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
2 E  P4 S" w% ]2 ^  R. v  RqPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
1 U1 E" U' l, B: ?. i1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
6 E  s# B0 S5 F) v8 M0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
6 r; i9 a2 P. p( h6 h4 p- GsPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
# d# Y2 V$ `2 ~/ J) G  L5 G99yxuG0PAHw7nyU=$ u2 l$ O% L3 v, ~* d
     "]]}},
7 j/ ?1 ^8 L8 g) I  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
! y; r! W& N+ q4 A  Axes->True,$ p9 v' Z* E. l
  AxesOrigin->{61, 0},
- y! m/ y2 Q9 O% O  Frame->True,
. M* E. b+ z* n- k  FrameLabel->{1 e2 K9 \/ _2 u  y# V  a( f: s$ Q+ _
    FormBox["\"\:7089\:6b21\"", TraditionalForm], * k, O  ?; k  g& g5 A
    FormBox[
4 {" A2 r, v+ t7 C- h7 }. k    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", / w3 N" j; D  j" ]2 n! ~
     TraditionalForm]},
/ Z' S5 ^9 B1 u# r% y/ ~& I  PlotRange->{{61, 89}, {0, 1}},
$ I2 L9 R; b, k. D" s7 a1 Y  PlotRangeClipping->True,
6 v+ Z+ j; U6 g' F# ]: g  PlotRangePadding->{Automatic, Automatic}]], "Output",' b, U* I8 e' G2 x* Q. }9 X9 G  ^
CellChangeTimes->{% P+ h; ]' W! I# F" H- Q
  3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9,
6 q: C( }7 M" t# N) s: F   3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9,
( G8 h+ i& j" B  v7 S   3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9},
8 j( q! e6 J% h/ V( r8 j/ B   3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9, . M% ]8 g. h6 ?
   3.57801247209375*^9, 3.5780129225625*^9}]
( @8 H6 R$ G# v! A" o6 H0 T5 {/ a}, Open  ]],
( Y. E* K4 a' F4 B
) R, [4 ?' h9 {( Y# S" L* I8 k% sCell[CellGroupData[{
- H* X5 p) ]5 d- d) @6 o$ D  w5 w5 L+ O6 H
Cell[BoxData[
: l. B$ R- D# A6 N. Z, l8 p. r RowBox[{"p2b", "=",
* ~! d# g0 |8 a0 W& f5 ^  RowBox[{"ListPlot", "[", - o4 u! o' X7 ~( e& F2 n* U
   RowBox[{"y20", ",",
6 s* F9 ?1 ^: s- u    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
! x( ?$ y3 {/ \- I    RowBox[{"PlotStyle", "\[Rule]", ' F6 a/ b+ l" |8 G3 h+ t% w
     RowBox[{"{", % w4 x3 U2 O, p* q2 i9 h5 }
      RowBox[{9 a5 W. X; \- G; A: ^5 P" B5 s' A- E
       RowBox[{"RGBColor", "[", ; o$ {+ w/ [& s5 P8 ]
        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
' V2 c% ~7 B/ R9 \( j' G    ",",   M# Q- w6 s" E/ ]. j6 r6 O/ e
    RowBox[{"PlotRange", "\[Rule]",
# j4 l) q( G1 X; Z, A+ M     RowBox[{"{", 4 S- q6 p+ w& r0 A
      RowBox[{
- t8 _& b! B( o9 q! ~, D       RowBox[{"{", 3 `0 f# r3 ~+ R% ]1 p3 @
        RowBox[{"61", ",", "89"}], "}"}], ",", 6 H  j5 Y# `% ^: N
       RowBox[{"{", + Y3 {1 G" }. D' k+ L/ K% j
        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", ; j* z* E3 e+ J* C5 p( r
    RowBox[{"AxesOrigin", "\[Rule]", ) q7 Y+ m6 _/ n
     RowBox[{"{", + |. T4 [' [% d; F  J* r3 U
      RowBox[{"61", ",", "0"}], "}"}]}], ",",
5 P) h1 h$ T, o1 L  ]    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
8 B* X4 n: g" Z" }7 Y9 S CellChangeTimes->{6 M  X' C4 R4 X# p
  3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9},
- j. `; V- m* @, z: R, h   3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],% r2 j" \5 `6 X% O2 b- \

: t4 ]( y. k* sCell[BoxData[4 i. z/ K6 c6 _* n8 M8 J8 u& l1 N- R
GraphicsBox[{{}, {}, : E& P% Z7 G  `, S  Y) z3 q- F! m0 z
   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
7 i) _5 d0 d8 D# r  f$ Q1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
8 N1 n4 m: s" y& _1 T* C% n3 S8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
4 G0 W: l( y) g6 Q2 p- {c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc! o5 R) B+ S+ N& U3 `
iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
+ v# \. V$ i7 O' p7 l6 ATZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
6 m% B' }/ _0 EfzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
3 e* r+ i4 M1 u: S+ aTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
1 F8 x) {0 l# ]- }' O% C8 s2 h  }: Op0OYg4Fg/tz63VfsAdsCnzU=$ Q5 `3 r. f) S& h; E7 L
     "]]}},- z) |& k6 H5 d+ Y8 w% W) Y
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
/ f5 g$ B1 N# |  Axes->True,* j( d; \7 o  V0 O- Q, H) \1 W
  AxesOrigin->{61, 0},# }" M9 T4 W9 }1 O
  Frame->True,
& O8 W' A6 C: I# r3 U$ q  PlotRange->{{61, 89}, {0, 1}},/ @# J2 O" M6 b4 Q
  PlotRangeClipping->True,
1 F+ Y/ g' a7 j* F* [; h/ |3 N- V3 n  PlotRangePadding->{Automatic, Automatic}]], "Output",
# x2 r% B- E3 x- F7 V6 a$ | CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, $ I, a, [! M7 s- ?: R, K1 [
  3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9,
& d8 X5 |- Y5 A! s, X1 e1 ?/ I  3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9, * ~5 l0 }: {9 k. G
  3.578012484703125*^9, 3.578012925875*^9}]
3 ^, y% x0 s: J! ^) H' i5 W0 D}, Open  ]],
! W6 \' {- [: Z4 j0 Q8 r" z, k, R' k. f
Cell[CellGroupData[{
0 Y+ _! u/ |  e5 p
+ l7 g# z% N. k, a) I) R/ PCell[BoxData[- N7 U8 R' H- a2 I9 ?: P9 k
RowBox[{"Show", "[",
) Q2 z- |5 c: E; _  RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],
3 k* j, M/ _# e  Y% V
8 `/ n8 K, E9 c! U! }2 vCell[BoxData[
. r, m+ P4 u5 o% B# t( j+ y GraphicsBox[{{{}, {}, # [3 s( E0 F* C; n; S* ]- u2 {
    {RGBColor[0, 0, 0], LineBox[CompressedData["9 r- @$ m, ~2 A4 Z
1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM/ }  t9 t8 D+ k0 P0 X9 y
/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
  `6 ]. J6 g8 O  O! t" h( c8 b6 G4 E9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P/ z0 e4 @. ]% C/ m: d- L& z
ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC) s* w6 k8 v5 y. ?( u% g; O: P
qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK( d( a& [7 V# f4 i' e
1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx$ `) i# \, A& ^4 d+ J
0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1- [- Z1 ^0 p) I, D" T
sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
( `! o* X& X7 M, C# Z0 L. ]99yxuG0PAHw7nyU=! G, Z) U( k/ l2 r' }3 t+ H
      "]]}}, {{}, {}, # S* }5 A; j  x7 @  ^4 C
    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
" g1 e" m% g$ {0 U% p3 b! I1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
+ R5 |0 H2 H3 A" }# Q" u3 ?8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV3 _, b6 v2 b2 ^+ D1 M, I4 T5 V
c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
7 a2 S/ z/ i& M6 n2 s# biX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
) r& `8 b/ o$ s9 XTZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
" F. K/ K; x1 h" Q& ]" q, F/ RfzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB6 P9 H& d; w! s' a7 _
TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
: M* |! v" ^+ \+ _4 f" [& O- n) x( ip0OYg4Fg/tz63VfsAdsCnzU=, {1 o! _, g/ {! N) C. G
      "]]}}}," z0 N, M: S$ Y% _$ J- n
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
6 K% ?9 _. Z( m( }; R: r  Axes->True,
2 X# ~& l: n3 e1 L& U  AxesOrigin->{61, 0},) N0 Y; L1 \' {/ G
  Frame->True,# o+ k* r  n# R- z6 ^2 K# Z
  FrameLabel->{0 L) j. B: e. Z+ B' I
    FormBox["\"\:7089\:6b21\"", TraditionalForm], 7 i/ F( M, }4 S) ^
    FormBox[
. S& `4 E% N9 K    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
, n5 Z( `& @5 n) N' D5 a: X+ `! c     TraditionalForm]},# r" K* U9 f4 @# I! P, _
  PlotRange->{{61, 89}, {0, 1}},  R- `4 {9 _5 N$ O. Z" i  ?" \# F; X
  PlotRangeClipping->True,7 v% ?6 d2 @, K% w7 O/ i4 F
  PlotRangePadding->{Automatic, Automatic}]], "Output",% y( C$ ]7 ^4 A9 x" B8 F
CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9, + j/ J: B$ X9 M2 e9 N7 |# ~
  3.578012927734375*^9}]
# }$ k( K' W/ j) d- t  ]5 i+ z}, Open  ]],
; G5 O) U, ^3 `) @# K+ j* G
1 D, ~7 `8 Z( wCell[BoxData[
. X! @2 ?  [- B. t% f; [ RowBox[{"\:ff08",
5 r6 z$ [9 A! u' ]$ O  RowBox[{" u, y& i( z2 h" W0 ~/ K$ F# |
  "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406", ; h7 Y' Q4 e' J8 `
   "\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621", " v( d! X4 B/ s0 y/ D% U; L
   "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208", ) L% B/ G$ k/ B% l0 V
   "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0",
/ d5 r# {6 Z" L   ".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\$ v$ ^% n& |1 t% H3 g
\:4e3a0", ".6224", 0 g- W) \! e- x$ t- \# R" T) x
   "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],
5 X& n' ?% C7 X, m7 [- A  I5 B7 I4 e; \   "\:ff09"}]], "Input"],
5 ]( A6 U/ k7 M2 Z2 {) ^8 v6 h+ k5 a% h- |
Cell[BoxData[3 s( n3 X9 J2 C5 U
RowBox[{"{",
9 p& q' k7 N: Z  ~, Z6 V+ J1 y  RowBox[{% y' z. P& [  u5 L
  "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",",
" n) W6 k, I: _* i   "\:5439\:6c27\:91cf", ",",
; Y5 a/ Q3 c, y. e  E5 q   "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",",
5 S! t3 V/ _( `) P4 @   "\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",",
% ]' j8 X' g8 i- Z   "\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",",
+ q9 R0 K# l: ~! A   "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",",
2 g. K" M& u- z& Q$ h   "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",", , @& ^; [* S' X% y" ]/ b- ~' u1 q
   "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],
5 |+ i. ?$ b! X2 G: }; U0 w/ W% R* X2 v) J5 Z
Cell[BoxData[" "], "Input",
5 l3 a/ k) }; i( k5 Z5 Y& r% w CellChangeTimes->{3.577962834553033*^9}],
- d7 L* J$ ?9 S" g6 ~
6 g: _" x/ ?  y- ^' T* iCell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],
( n. q. s2 j, U. ~8 n% L
% Z. f7 Z1 D; QCell[CellGroupData[{' u* l! a/ ~3 n$ t

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

8 }7 j1 q, h7 _; F! B; b(* Internal cache information *)
7 ?1 V. L/ |1 {5 p# {(*CellTagsOutline4 H9 q; J: X, A2 u9 y
CellTagsIndex->{}4 R% @( q! G2 c: Q1 J* E$ W6 B
*)* `9 U* J  J5 u$ _/ G
(*CellTagsIndex
  n7 h+ Y3 P) D; H& b: cCellTagsIndex->{}0 b  o9 i. V  e4 Z, d* ?
*)
# X; O! w/ w9 z0 j' f! |(*NotebookFileOutline
! q* V" }8 |0 D/ R  pNotebook[{" @) M, Z9 x/ t5 Z
Cell[CellGroupData[{
8 m5 |( R8 q$ b. I- f" e  I. |0 @Cell[567, 22, 22639, 450, 1792, "Input"],0 E; a# A3 Z: H0 }; M2 ]
Cell[23209, 474, 21281, 449, 1703, "Output"]
% x; m3 {/ H, O0 u}, Open  ]],! y: j, d/ B- P# m
Cell[CellGroupData[{
' e) t* ~$ x/ o3 `, _Cell[44527, 928, 198, 5, 31, "Input"],0 P' R3 y, Z; A/ ~! S# O
Cell[44728, 935, 53666, 1605, 1532, "Output"]
/ ]+ d+ n* l8 X5 M}, Open  ]],
( R3 D* P1 P( bCell[98409, 2543, 614, 16, 112, "Input"],2 i/ G2 B6 ^$ T" B) W7 U
Cell[99026, 2561, 667, 17, 72, "Input"],1 @+ b' m' p) G: ]" k% F: S. U
Cell[CellGroupData[{
( f! h, Z5 O1 I  wCell[99718, 2582, 885, 13, 52, "Input"],8 v/ W3 s8 `0 I) k+ u
Cell[100606, 2597, 935, 14, 30, "Output"],
: r% o5 P+ x* ~6 {Cell[101544, 2613, 932, 14, 30, "Output"]
& H* M+ o* }- j}, Open  ]],8 E; y+ H! F9 V
Cell[102491, 2630, 4236, 93, 412, "Input"]," D* y* B& p/ r9 X( \
Cell[CellGroupData[{
. S: T3 \% k$ f. @: e7 iCell[106752, 2727, 90, 1, 31, "Input"],
7 W/ N8 e  ]( Z4 c$ ^/ [! _Cell[106845, 2730, 872, 13, 30, "Output"]
" u! b5 y4 ]9 X7 a}, Open  ]],& l9 M' y5 H( z3 P+ {+ z, S
Cell[107732, 2746, 458, 10, 31, "Input"],
% Q* v  x. v9 F7 X3 n' }) NCell[108193, 2758, 126, 2, 31, "Input"],: V, Z# k; H/ W; d& I/ o0 c
Cell[CellGroupData[{
/ w8 N: Q* d; I$ J' [Cell[108344, 2764, 248, 6, 31, "Input"],
* @0 J8 e0 w; tCell[108595, 2772, 1007, 17, 30, "Output"]  d4 D$ h8 v; O7 m! O
}, Open  ]],2 N5 q  ]3 i. P' A6 I9 |& m5 `0 |
Cell[CellGroupData[{1 O, q% R0 Y) `
Cell[109639, 2794, 251, 6, 31, "Input"],
# M2 I  Y8 M8 `$ cCell[109893, 2802, 1013, 17, 30, "Output"]1 f- \' ]! o+ [% `& h, b/ y
}, Open  ]],
+ H" b" T& O& T/ R# ICell[110921, 2822, 1232, 23, 31, "Input"],0 T  L0 U1 K3 f: q" f5 z
Cell[CellGroupData[{
# a& D6 L" }, N, w. gCell[112178, 2849, 147, 5, 31, "Input"],
8 V5 {0 s' B( j' MCell[112328, 2856, 1979, 50, 50, "Output"]
- ?' M: |+ T2 f+ C2 Q}, Open  ]],  l4 T- ?( [! J) b' H' s4 |
Cell[CellGroupData[{4 V4 S) j7 y1 T1 r# }) a% N
Cell[114344, 2911, 195, 5, 31, "Input"],
1 Z$ U& c1 D% F0 O8 _3 g% c1 KCell[114542, 2918, 123, 2, 30, "Output"]
% |4 ~1 {- H6 Y/ h}, Open  ]],. F* U: c6 Z; e+ n
Cell[CellGroupData[{2 k1 C& n' a! S- D8 J
Cell[114702, 2925, 144, 4, 31, "Input"],
+ n8 @: p/ |- Y8 ZCell[114849, 2931, 96, 1, 30, "Output"]
% p; Z/ l- Q! S+ l4 o}, Open  ]],8 B5 M3 C5 i, L7 o& ^# o
Cell[CellGroupData[{4 D# h8 C+ o# `1 b' _' i& B
Cell[114982, 2937, 146, 4, 31, "Input"],
2 P( A- r* u" T6 VCell[115131, 2943, 495, 7, 30, "Output"]) @" n7 G4 x1 {9 L3 u! Y
}, Open  ]],) s& l  F: _" C9 W  }. u$ v
Cell[CellGroupData[{, P6 F; ^" P7 R1 _& R) F; Y' R
Cell[115663, 2955, 144, 4, 31, "Input"],4 L% b4 w: e- N6 b: A& }; f
Cell[115810, 2961, 418, 6, 30, "Output"]
8 _) b% H# w* A6 D3 g# Q}, Open  ]],+ j3 ?* l9 o* k. L7 }
Cell[CellGroupData[{' W$ T7 {# x: {2 G1 F- A1 G) {
Cell[116265, 2972, 144, 4, 31, "Input"],% V) G& d" L- Z2 A2 |0 a8 d
Cell[116412, 2978, 549, 8, 30, "Output"]
% A& j+ ]% Q5 |' r}, Open  ]],
: S; N  Y5 i5 F* Z  d$ w* `# OCell[CellGroupData[{' W- `8 w) I4 N$ @9 l* d6 F
Cell[116998, 2991, 537, 10, 31, "Input"],
6 I5 Z' `( [& [* }! k6 }. lCell[117538, 3003, 998, 14, 30, "Output"]3 x  K& X7 C; |; l' {6 V+ e
}, Open  ]],
+ S/ y3 G1 K- [, p% t( g( g+ H# aCell[CellGroupData[{
3 c6 `; y: @  R& P/ iCell[118573, 3022, 2321, 55, 44, "Input"],
+ ]% {1 ?$ a! j* D& E, r" VCell[120897, 3079, 1541, 38, 91, "Output"]3 m; l& A1 E/ @* D
}, Open  ]],1 F& R' p6 ~% J* v8 h6 _
Cell[CellGroupData[{. |# B+ i. X& V4 o& @
Cell[122475, 3122, 856, 19, 87, "Input"],9 N$ F# B3 P9 j- j
Cell[123334, 3143, 568, 14, 91, "Output"]$ W7 V. @. [+ @1 ^% |6 ~
}, Open  ]],
7 C1 ^; A: w) [' b9 lCell[CellGroupData[{- u5 e6 g, e' X7 K( a# k) V
Cell[123939, 3162, 437, 10, 31, "Input"],
" o6 Q! g& U; B. j1 T' vCell[124379, 3174, 739, 12, 30, "Output"]
- B' Y7 Q& X# |, O9 w2 }5 ~}, Open  ]],# J$ C2 \( l( {+ ?) l$ d8 u% j
Cell[125133, 3189, 242, 3, 31, "Input"],
4 ^' @- E  w) ]& U$ m% cCell[CellGroupData[{
9 c9 C7 T( M; \! TCell[125400, 3196, 109, 2, 31, "Input"],3 i/ Y( s8 [* u& P2 r5 H& Y, l! J
Cell[125512, 3200, 323, 7, 30, "Output"]* R* K. V" [. S# D: u' G9 q
}, Open  ]],) D' o3 F) s. }6 l9 g3 z
Cell[CellGroupData[{- ]3 ^' C1 ~7 @
Cell[125872, 3212, 526, 15, 31, "Input"],# D& d0 r" u4 [+ O% l5 K: {  G
Cell[126401, 3229, 1436, 44, 36, "Output"]7 Z* F% @) C3 X2 {$ t1 n
}, Open  ]],( {9 [* J) J/ t
Cell[CellGroupData[{' w0 A0 W9 W% W& J  N) _
Cell[127874, 3278, 92, 2, 31, "Input"],. `" L" U1 E7 g! |
Cell[127969, 3282, 326, 7, 30, "Output"]
4 n$ P0 ^1 p  \7 w}, Open  ]],: s& @% P# D0 ?" X( D  R, z/ p
Cell[CellGroupData[{
, s0 \3 z  i- b8 f5 P9 b6 @- T; nCell[128332, 3294, 388, 13, 31, "Input"],
! `$ Z0 y6 h! l8 QCell[128723, 3309, 1381, 42, 36, "Output"]
' Z7 A" ]( A2 o% W  U) ?) f}, Open  ]],
8 g8 e! \+ m  y% rCell[CellGroupData[{
9 p- I' R3 ^' o  K0 XCell[130141, 3356, 89, 2, 31, "Input"],' d# _# S+ Y3 l; w% B
Cell[130233, 3360, 320, 7, 30, "Output"], e2 u# B( @& {; w
}, Open  ]],! l; v% H* C, f2 b
Cell[CellGroupData[{1 k6 |; R0 L, K* Z8 ~
Cell[130590, 3372, 387, 13, 31, "Input"],) b3 Q- }1 w# w3 ?
Cell[130980, 3387, 1381, 42, 36, "Output"]
+ O: {; O5 u# Z3 {' B/ [}, Open  ]],
6 y- _4 ^  s9 f7 S9 S$ XCell[CellGroupData[{
) p4 y8 b3 E7 {( [Cell[132398, 3434, 91, 2, 31, "Input"],
$ u3 _$ B# K, d! yCell[132492, 3438, 328, 7, 30, "Output"]
% O% M2 L! a$ f1 E$ x* K}, Open  ]],, H; I% P! f0 K
Cell[CellGroupData[{
+ I# \6 e. j% \" N: ]Cell[132857, 3450, 384, 13, 31, "Input"],( p. J/ o% {# Q: X# l. O
Cell[133244, 3465, 1379, 42, 36, "Output"]
( ~! W3 d, C3 g' o$ o8 F7 U}, Open  ]],
. E! ^: A2 H3 Y$ H5 ECell[CellGroupData[{& H, X7 `" @3 v  ~/ E; k- }
Cell[134660, 3512, 93, 2, 31, "Input"],
: r( ?6 h! D/ z) T$ [+ o9 `  i: qCell[134756, 3516, 322, 7, 30, "Output"]
, H' f. E6 P/ O' |5 F# l9 D}, Open  ]],+ m  O$ }2 p7 I6 k
Cell[CellGroupData[{
* D3 x" v. h' L$ `7 MCell[135115, 3528, 385, 13, 31, "Input"],+ A" M) B7 e8 A% w9 c+ L# @
Cell[135503, 3543, 1379, 42, 36, "Output"]
6 D  N, `/ j6 i( V6 v- O7 o}, Open  ]],
& w6 o; ]' E  w& P# V; hCell[CellGroupData[{
8 ?/ T; ^+ A9 B' ^7 H/ |* s! ICell[136919, 3590, 113, 2, 31, "Input"],
6 k0 y* j0 ?  f  j( T2 @% mCell[137035, 3594, 348, 7, 30, "Output"]1 J% Y( u' H- Y; C
}, Open  ]],
3 y% j: q5 S; l2 i8 h9 ]5 |Cell[CellGroupData[{: \. ^: ^1 A/ G; [) V" p
Cell[137420, 3606, 406, 13, 31, "Input"],+ S& ]0 u3 i2 D# t' q8 S; L* i
Cell[137829, 3621, 1414, 43, 36, "Output"]
6 f9 W" L3 Q( ^7 Y- x}, Open  ]],
9 O9 c9 g( |% @6 a5 sCell[CellGroupData[{
2 f7 s/ M5 n9 @Cell[139280, 3669, 135, 3, 31, "Input"],
, P1 D" g& P+ ]6 zCell[139418, 3674, 358, 7, 30, "Output"]
  j6 R& `: J8 B& V# d}, Open  ]],
" a. f9 F  ?! z4 I4 C+ x; q6 WCell[CellGroupData[{
3 H& F5 Q3 e7 d' e! RCell[139813, 3686, 430, 14, 31, "Input"],2 y1 t; |5 Y5 O& G+ L" M) p0 c4 q
Cell[140246, 3702, 1426, 43, 36, "Output"]
2 {! X5 \" s9 E6 E/ O. K}, Open  ]],
3 ^  O: m$ S1 O* f8 g3 d+ RCell[CellGroupData[{! l4 e: H! Z7 o( L5 p' Q9 `
Cell[141709, 3750, 156, 3, 31, "Input"],
2 U5 m+ S$ }- `( m9 PCell[141868, 3755, 377, 8, 30, "Output"]
# x) k" E1 E- o0 @( I}, Open  ]],* o8 ?+ u) c; u. t- H4 w, z4 O, V
Cell[CellGroupData[{9 D. r; A& C6 Y0 O! d
Cell[142282, 3768, 452, 14, 31, "Input"],9 F" {- |  W. |* M% _
Cell[142737, 3784, 1440, 42, 36, "Output"]1 I" r1 V( S3 f5 k" r( L$ D
}, Open  ]],
. x+ t9 a% t0 W# }9 j( B5 iCell[CellGroupData[{* ?! H% L! L2 A! s; N
Cell[144214, 3831, 178, 3, 31, "Input"],# I" n6 y: f& `) A( B7 Z
Cell[144395, 3836, 448, 9, 30, "Output"]1 x* U* q2 Q- I9 S! q4 Q$ y& o
}, Open  ]],% }7 F! Y& {3 b3 Z: @
Cell[CellGroupData[{! |8 j5 k7 p% Q
Cell[144880, 3850, 474, 14, 31, "Input"],
) ^' |1 @% y' A7 V* ZCell[145357, 3866, 1510, 43, 36, "Output"]
9 X0 M; R+ }" [8 W* ^3 p, j/ W}, Open  ]],
  A6 I6 A7 d1 e8 u7 m% q9 hCell[CellGroupData[{
7 r0 o8 `- j# N* ZCell[146904, 3914, 470, 14, 52, "Input"],2 S" r) r# w1 I8 u( j
Cell[147377, 3930, 257, 5, 30, "Output"],
6 W; [% `) W- p9 l: r) sCell[147637, 3937, 1310, 38, 36, "Output"]3 a/ M. p! S" z( [/ _1 e
}, Open  ]],0 F) [& |+ X+ x1 m
Cell[CellGroupData[{
# h% N0 U( P9 Z7 hCell[148984, 3980, 520, 15, 52, "Input"],
: }5 f8 F9 I. a3 N0 Q# u* MCell[149507, 3997, 293, 7, 30, "Output"],! I+ B5 r* u6 S- J+ [. E2 S# l
Cell[149803, 4006, 1345, 40, 36, "Output"]! {5 B2 n1 }1 u- T2 G" j
}, Open  ]],6 ^% o# J2 m4 ~# R
Cell[CellGroupData[{" C. {* U' S! |: L
Cell[151185, 4051, 520, 15, 52, "Input"],& m- [$ j: U3 W* W$ W) j0 [7 A  r
Cell[151708, 4068, 266, 6, 30, "Output"],
$ o7 C) ^3 V6 R9 Z6 d8 OCell[151977, 4076, 1319, 39, 36, "Output"]3 x/ a% k7 u% [$ m  U
}, Open  ]],* c! a0 D5 G% C9 w) w6 X  S6 w. G
Cell[CellGroupData[{1 T7 _) ]$ D7 D: }
Cell[153333, 4120, 520, 15, 52, "Input"],9 I; w. g, F% j6 c- W
Cell[153856, 4137, 272, 6, 30, "Output"],! P3 u; L2 B5 K( X
Cell[154131, 4145, 1327, 40, 36, "Output"]( E. ]0 {3 ?& T
}, Open  ]],
4 i) P" t3 {; H, HCell[CellGroupData[{
- @& P" S! C2 hCell[155495, 4190, 520, 15, 52, "Input"],+ G( n0 I9 G, ~: |) ?* B3 R
Cell[156018, 4207, 265, 6, 30, "Output"],5 l9 \- x5 U2 x8 [5 d8 r7 V# l
Cell[156286, 4215, 1318, 39, 36, "Output"]
, R) H0 J' m% J/ [  ?2 H1 Q2 T}, Open  ]],7 J( |- R. O5 p2 Y" R1 j& Q9 T8 l
Cell[CellGroupData[{4 V2 f: S) |; W" w. ]% {
Cell[157641, 4259, 517, 15, 52, "Input"],, b2 l( q- |3 x5 M) D. ?9 A
Cell[158161, 4276, 275, 6, 30, "Output"],+ P* s; T6 B# G. I" \& R
Cell[158439, 4284, 1333, 41, 36, "Output"]: s; R" ?- [% E
}, Open  ]],
5 R  G+ z( r4 D! R6 n) a  lCell[159787, 4328, 381, 11, 31, "Input"],
4 I/ U: Q8 G/ Z, }4 eCell[CellGroupData[{: I) n; F0 K6 c1 W3 J/ t. p, J
Cell[160193, 4343, 573, 16, 52, "Input"],
8 [7 h5 z" ?" D, v" _) e, ^Cell[160769, 4361, 278, 6, 30, "Output"],
: w3 ?7 M2 F+ o. k" \6 R# XCell[161050, 4369, 1328, 41, 36, "Output"]/ m* l: i* \- J" m, z$ Q9 i
}, Open  ]],/ w5 T7 e8 A) u; p" c9 P3 U
Cell[CellGroupData[{8 Q4 n4 R( A! j" @4 k1 t2 D
Cell[162415, 4415, 571, 16, 52, "Input"],
9 g' M6 x: |0 `1 u! }* ECell[162989, 4433, 270, 6, 30, "Output"],
7 T$ T% n7 T. O! e* dCell[163262, 4441, 1325, 40, 36, "Output"]
$ M9 Y: y  a0 }' f! ?: E- |; X}, Open  ]],; \* Q1 B8 S0 |# X* {) ?
Cell[CellGroupData[{" E: L4 D# }+ `, A, f1 k1 a
Cell[164624, 4486, 571, 16, 52, "Input"],
- C  ]8 S- L3 a. t9 V! q9 [Cell[165198, 4504, 264, 6, 30, "Output"],
2 w+ s2 Q6 H4 e$ w$ DCell[165465, 4512, 1316, 39, 36, "Output"]
6 c. U' b2 z/ r5 R# n( e6 a}, Open  ]],4 X: Z3 @: E1 X. x
Cell[CellGroupData[{
; {7 l. b1 S0 _Cell[166818, 4556, 571, 16, 52, "Input"],3 ~* @$ @: K* b& o; u0 S" w$ L
Cell[167392, 4574, 271, 6, 30, "Output"],
) P8 A. {+ z5 ], oCell[167666, 4582, 1329, 41, 36, "Output"]
8 q0 c, Y6 h1 H1 [% k& u}, Open  ]],( n$ H3 s! R$ j; [( ^
Cell[CellGroupData[{# c, `. K, n: v1 P1 `1 s
Cell[169032, 4628, 570, 16, 52, "Input"],
. `" C0 _9 O1 S' Z( U7 \4 lCell[169605, 4646, 277, 6, 30, "Output"],
  ^8 k( X7 ~  ~; E* g, t6 d5 JCell[169885, 4654, 1335, 41, 36, "Output"]
; Z- n! ]# ]# p}, Open  ]],3 l- R: a: k9 e, E
Cell[CellGroupData[{
( J2 w9 Q8 R2 M7 e* x5 ICell[171257, 4700, 571, 16, 52, "Input"],
% j* m0 w7 k  H( ]$ g& T2 uCell[171831, 4718, 274, 6, 30, "Output"],) i; }+ Z- Y1 R3 r! J2 i. B! g
Cell[172108, 4726, 1335, 42, 36, "Output"]
" x5 K1 W1 w  r- z5 [2 M' x}, Open  ]],. I2 t0 U# I/ |  Y- [% b; E  X4 B
Cell[173458, 4771, 104, 1, 31, "Input"],
- b+ g+ M; N: G, R& U3 |Cell[CellGroupData[{
0 O: F8 l1 h: B! q+ r- cCell[173587, 4776, 279, 7, 31, "Input"],
6 t) c3 L" `  z; L7 ]/ |7 l. t2 U) JCell[173869, 4785, 878, 14, 50, "Output"]: W8 b: l, `) S! R1 M
}, Open  ]],2 L( J% M3 X& d. G
Cell[CellGroupData[{: c. \. f3 ]1 Y+ h; t
Cell[174784, 4804, 243, 5, 31, "Input"],
# _& a% u/ p3 D4 XCell[175030, 4811, 216, 3, 30, "Output"]
+ @* ?# u' j! [/ m}, Open  ]],% A0 {) P% Y) q2 a: Y. H+ h
Cell[175261, 4817, 537, 14, 31, "Input"],
; U5 h) |6 x: h2 Q2 JCell[CellGroupData[{
" ]# I# I6 b9 s7 n' ~) lCell[175823, 4835, 94, 1, 31, "Input"],
+ X6 H3 W$ s- X7 s7 c. F. ?) nCell[175920, 4838, 1319, 20, 107, "Output"]
6 O: Q3 E5 }4 D9 R}, Open  ]],
3 ]& p. D9 c! q& hCell[CellGroupData[{3 ]7 r1 u: ?1 h; _
Cell[177276, 4863, 464, 12, 31, "Input"],$ O2 o: g" V6 u0 G9 U' k2 L7 ?
Cell[177743, 4877, 17248, 366, 582, "Output"]; b" H0 h6 t9 v* A7 p. v$ |
}, Open  ]],
9 V3 w$ x0 |$ A$ l( ]1 M& lCell[195006, 5246, 32810, 934, 912, "Input"]," w+ W# Z+ f. D: f" G! P
Cell[CellGroupData[{
7 C- W7 ~5 P; h' Q' q! Y. _Cell[227841, 6184, 284, 6, 31, "Input"],2 V0 J# O! |; I% q: L6 f5 O% Y
Cell[228128, 6192, 961, 17, 50, "Output"]1 e9 M0 g. i$ H* x
}, Open  ]],0 Z5 i/ B, Y1 F+ ^5 z: h4 l  ?
Cell[CellGroupData[{
8 L2 S% z. D. w4 ACell[229126, 6214, 531, 11, 31, "Input"],
5 A! U  y2 m. Z6 u% p: `Cell[229660, 6227, 28858, 853, 537, "Output"]
5 ^. X: M4 p$ B( O# h5 b}, Open  ]],
* q4 a. H( R9 s! B8 }4 eCell[CellGroupData[{' b4 x% S0 t5 [8 O; r% a
Cell[258555, 7085, 281, 7, 31, "Input"],
5 z, f, g8 r* @$ W5 T) r: ^Cell[258839, 7094, 540, 10, 30, "Output"]
. e$ u+ B( o, o  F3 Q}, Open  ]],
' k/ y/ I8 O4 C) g* Q+ D+ ~Cell[259394, 7107, 1869, 53, 92, "Input"],% G  f* t) i1 ?" i
Cell[CellGroupData[{
  A" u% b! f) s) E' G8 F& k+ _Cell[261288, 7164, 138, 2, 31, "Input"],
4 \4 E" e) t) s: C- dCell[261429, 7168, 1122, 20, 69, "Output"]! J8 C' X3 o; n, \& o- Q. i
}, Open  ]],
0 _' k& k: m6 i* L2 ~6 Y! B# d4 CCell[CellGroupData[{6 O- ?! K& C9 B: a* b( q
Cell[262588, 7193, 1816, 29, 152, "Input"],% r" v% C) E& [- v( u* J- Y; m
Cell[264407, 7224, 1736, 28, 88, "Output"]
* y% O1 q1 O5 M$ f% i}, Open  ]],
* [: t5 m6 T0 |, b8 H! RCell[CellGroupData[{- h" e" q; D: S4 U$ s  Z6 u7 e
Cell[266180, 7257, 209, 6, 31, "Input"],9 |5 b! c- i9 J
Cell[266392, 7265, 516, 9, 30, "Output"], R+ z& Z$ l4 z$ ^9 W, _/ b  z( @
}, Open  ]],
- e  [9 B* |9 V' }3 ]Cell[266923, 7277, 613, 16, 31, "Input"],
* A9 j6 [( t$ T2 P5 A5 Y' \7 e( c! M: }Cell[CellGroupData[{3 Q' x4 P, F2 Z/ H, Q- o6 ?
Cell[267561, 7297, 157, 2, 31, "Input"],6 P0 t) o" e" D6 i" h- r
Cell[267721, 7301, 776, 13, 50, "Output"]
; u  D+ ^6 k# w$ _) m}, Open  ]],( t* ~0 P: m. E8 ~2 l8 D2 {
Cell[CellGroupData[{
: L5 R1 q7 e( Z1 O9 u; ^& dCell[268534, 7319, 1397, 21, 112, "Input"],0 ?' `, J' j* h$ B
Cell[269934, 7342, 1384, 21, 88, "Output"]3 g  @2 a/ d; P# B& Q# E: _
}, Open  ]],  K) e9 U# v+ o# X) N6 e: Y
Cell[CellGroupData[{* Y7 y' y7 o9 r0 n9 `/ H
Cell[271355, 7368, 1208, 30, 55, "Input"],: T+ g. D5 {. Q9 g6 P" D
Cell[272566, 7400, 1299, 29, 256, "Output"]" C$ L: K" R5 A, F, N5 @
}, Open  ]],
) B) v) U8 i( M  sCell[CellGroupData[{; z, n: B& J6 w
Cell[273902, 7434, 829, 23, 31, "Input"],
$ \0 t1 i0 _4 y) _3 W* P9 h5 CCell[274734, 7459, 1053, 22, 249, "Output"]* d; l) [6 _  ]" O% n9 \
}, Open  ]],
: u3 z8 T) D0 n# i2 C1 lCell[CellGroupData[{% D, A% ^5 n3 i0 N. p# i0 }
Cell[275824, 7486, 84, 2, 31, "Input"],
2 k7 Y" p' U, V) zCell[275911, 7490, 1675, 36, 256, "Output"]
; d- M8 p/ g* y; P2 G) N$ }. R}, Open  ]],
+ p# {! b. d" s6 U* b2 [! TCell[277601, 7529, 131, 2, 31, "Input"],$ r/ Q$ e( \' q. d; o& U
Cell[CellGroupData[{1 l% p. V! @4 x$ ~+ d
Cell[277757, 7535, 302, 7, 31, "Input"],& R: J& X) u# z, A* p' q7 T! @
Cell[278062, 7544, 935, 16, 50, "Output"]& `% Z5 z' }: s& F. q; l8 U7 c
}, Open  ]],# V0 ~) K! W' J
Cell[CellGroupData[{# R& t; H( s9 l; V6 _5 z# O
Cell[279034, 7565, 295, 6, 31, "Input"],- d. T5 I2 X5 b  C- X
Cell[279332, 7573, 244, 3, 30, "Output"]: G# X& p8 A; O" G
}, Open  ]]," C/ M4 X8 W0 c8 s' c2 Z/ I; L
Cell[279591, 7579, 610, 15, 31, "Input"],6 ?$ n% v# G7 V
Cell[CellGroupData[{
. X( P& l5 X2 }Cell[280226, 7598, 120, 2, 31, "Input"],) d8 h! t2 B3 b* [) c/ ?. p1 ^
Cell[280349, 7602, 1334, 21, 107, "Output"]
) J) r- d3 |5 x' q3 s) K& Y' x+ p}, Open  ]],
4 Z1 o2 R- A$ ]: O( lCell[CellGroupData[{
+ L) w/ Q$ i6 G* y& u$ B" R( zCell[281720, 7628, 460, 12, 31, "Input"]," H" m' v, e! M0 y: a! t
Cell[282183, 7642, 17248, 366, 582, "Output"]* x' c; S: e4 F
}, Open  ]],
! p& M( l# u1 C3 G' j' V+ HCell[299446, 8011, 32810, 934, 912, "Input"],
9 a" i/ }2 B" ~; g: S) L4 S4 ?Cell[CellGroupData[{
6 g3 F4 y' i4 rCell[332281, 8949, 334, 6, 31, "Input"],
! `6 _2 ~& p; c- `8 r: w& }% CCell[332618, 8957, 1004, 18, 50, "Output"]7 @7 F) x# ?7 m* @' \# [# E9 k
}, Open  ]],
4 }/ x, \$ v) z& B; |8 JCell[CellGroupData[{1 H' z% V. u5 m; r: [" |
Cell[333659, 8980, 559, 11, 31, "Input"],9 Q5 s( B1 Y# E. E2 }4 I
Cell[334221, 8993, 28881, 853, 537, "Output"]
$ I1 P+ Z; N' ^: x$ V}, Open  ]],
. N9 n7 p( k! D9 b/ h) R8 HCell[CellGroupData[{2 X! o! \" p) d& ^# p! Z
Cell[363139, 9851, 306, 7, 31, "Input"],; w8 ]5 o2 Q. W) H2 O
Cell[363448, 9860, 562, 10, 30, "Output"]
0 i1 N$ P2 a1 H; R! W" P( f}, Open  ]],
( i. w! _5 V: @# D, wCell[364025, 9873, 1915, 53, 92, "Input"],
) f" m( J# R+ |Cell[CellGroupData[{
" I- ~, B0 b9 n/ h8 pCell[365965, 9930, 163, 2, 31, "Input"],
* k: ^2 V3 Z4 ]  u0 G/ j( ^5 O6 eCell[366131, 9934, 1139, 20, 69, "Output"]
' x: f1 ^+ J/ u# s; G) u' ]}, Open  ]],
; ?# W9 N; \# q' B4 z  |Cell[CellGroupData[{
4 T1 M9 b; v8 D/ gCell[367307, 9959, 1863, 30, 152, "Input"],/ W7 t% `  ~8 R/ e# b& {* V+ Q7 K6 C
Cell[369173, 9991, 1761, 28, 88, "Output"]
9 v3 _6 h. t9 D! k. v3 r}, Open  ]],
+ O" I4 g$ c, ]: v! wCell[CellGroupData[{
4 C# u- U  O1 q4 c, t+ CCell[370971, 10024, 231, 6, 31, "Input"],( g- v0 y  ~& L! d: o/ p
Cell[371205, 10032, 540, 10, 30, "Output"]3 A) i' g1 E) t
}, Open  ]],4 K/ t5 _% D* R; z& _) X" |( H% w
Cell[371760, 10045, 687, 17, 31, "Input"],
! z! @7 r* \# H7 `/ vCell[CellGroupData[{
" u+ F0 R: J5 e7 [3 [+ ]Cell[372472, 10066, 185, 3, 31, "Input"],
  ^) d( X1 i: g( d3 t; c* XCell[372660, 10071, 804, 13, 69, "Output"]
& y  J' `+ }/ Z}, Open  ]],
9 k5 q: P6 O' Y7 lCell[CellGroupData[{
- C: d# F- ~2 B- F  ~Cell[373501, 10089, 1405, 21, 112, "Input"],; l! f; A! ~+ E7 z) d% u
Cell[374909, 10112, 1387, 21, 88, "Output"]
7 w1 F* s( |' _( r6 r6 c, ~+ j}, Open  ]],
& v9 |1 z# ]" o" M- }) U' MCell[CellGroupData[{  H& E& p- i- R, X* }
Cell[376333, 10138, 1339, 33, 55, "Input"],
' ~2 l. A1 a! Q) ]/ JCell[377675, 10173, 1370, 30, 256, "Output"]
( O0 B2 Y$ I* p. Z}, Open  ]],& H6 W% `6 H( L  `0 J
Cell[CellGroupData[{+ c0 K' c# v/ X7 @( H' ~  u. S
Cell[379082, 10208, 877, 24, 31, "Input"],6 I1 I# U, x$ v: c
Cell[379962, 10234, 1058, 22, 249, "Output"]/ Z% p; g5 I$ R3 V# _
}, Open  ]],' S1 H; K+ x7 E2 o. m# a
Cell[CellGroupData[{  `7 N7 ^) e5 x, S3 b2 D
Cell[381057, 10261, 84, 2, 31, "Input"],/ \9 M! Z) L8 Q( p
Cell[381144, 10265, 1659, 36, 256, "Output"]
- D7 E" ]$ o4 t7 b}, Open  ]],. y+ c" V8 ~: Q
Cell[382818, 10304, 509, 10, 52, "Input"],& b4 b) i7 C  |
Cell[383330, 10316, 530, 10, 33, "Input"],/ C' L) k, b4 P" u, i2 H
Cell[383863, 10328, 69, 1, 31, "Input"],3 W% Q! _* `6 `. @7 q# A
Cell[383935, 10331, 62, 0, 31, "Input"],
4 k4 b7 R- K# YCell[CellGroupData[{0 t5 f$ T+ m" W# `" D! b) b
Cell[384022, 10335, 364, 9, 31, "Input"],
7 a1 _* j2 c/ I4 UCell[384389, 10346, 13864, 402, 287, "Output"]' L8 E0 N- G4 \6 j. K
}, Open  ]],' O+ G: x) y" Z6 I/ G4 `( ^
Cell[398268, 10751, 69, 1, 31, "Input"],% B$ V, \4 {: J) @' a! A2 F
Cell[398340, 10754, 74, 0, 31, "Input"],/ p7 D& ~  [2 c' j- S
Cell[CellGroupData[{" T+ f& A2 a' p; A
Cell[398439, 10758, 288, 8, 31, "Input"],9 N3 h+ k* m  s' A' b
Cell[398730, 10768, 13861, 402, 287, "Output"]
, s+ a  Z1 y9 b}, Open  ]]
7 z2 u& D) b3 u}! `3 g6 X" N& L7 S; Q" r3 E0 J" p
]5 d6 L3 e+ U5 j. Z9 |) i6 L/ L
*)
) K& H  k" E4 p! p2 U/ d) O, D* b0 f& T/ l1 a$ ^0 j+ u
(* End of internal cache information *）% Q, ^. G& p1 v

5 F6 q/ x  f9 A! r9 Y这个是用mathmatic做的神经网络，能导出最后的权值，就是可以写出表达式，我想用matlab做，却不知道怎么做
作者: 569646632    时间: 2013-8-30 20:15
可能不能导出系数
作者: -___    时间: 2014-2-4 16:33
者。。。。这是神马



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