数学建模社区-数学中国

标题: 怎么在matlab工具箱倒出神经网络系数 [打印本页]

作者: 琳123    时间: 2013-7-29 20:37
标题: 怎么在matlab工具箱倒出神经网络系数
怎么在matlab工具箱倒出神经网络系数?任何一种都可以,谢谢大家啦
作者: 兰秋小沫    时间: 2013-7-29 22:18
帮忙顶,等高手。
作者: 涳夢    时间: 2013-7-30 20:31
神经网络系数?有这种系数吗?可不可以具体一点儿,给出原问题或更具体点呗
作者: 冰E柠檬    时间: 2013-7-30 20:45
同问上一楼的观点。
作者: 百年孤独    时间: 2013-7-30 20:56
问题完善一下!或者把代码贴上!
% g2 a: Y; D- o) D" Y5 S1 [4 a. H
作者: 琳123    时间: 2013-8-24 13:13
涳夢 发表于 2013-7-30 20:31
. T: j) j4 \1 ^4 S2 X0 v; G神经网络系数?有这种系数吗?可不可以具体一点儿,给出原问题或更具体点呗

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

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

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

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

2 ?9 b( ~) _6 F$ _Cell[BoxData[: o# [2 @4 y- O/ B6 y; M- G" p
RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
  V  b, Z* j" }- C+ A5 { CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
* ?5 o: c4 R+ ?7 B# Q. b2 p7 M- u% x& j2 a9 d7 n- b  A# i
Cell[CellGroupData[{7 @6 S0 l# k4 r$ y& `

  H# j: y8 {- E& FCell[BoxData[
+ S, F0 H7 u! h1 W/ h' j5 v0 x  A RowBox[{"Xa", "=",
2 K7 p5 n% j% P4 H! T3 t  RowBox[{"{", 5 c3 ~/ Y  S; n# c
   RowBox[{
- ], F* p: d3 R: a   "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ; I4 z! u6 T- Y
    ",", "x8", ",", "x9"}], "}"}]}]], "Input",+ K0 I) r6 _9 J8 _! t2 N
CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
. J8 v. T/ ^1 g8 O. g0 ^4 i2 Y/ R9 O2 ^; H' e6 ^. a
Cell[BoxData[
, S. I1 P7 }' p# e7 v. X RowBox[{"{",
- U9 K, E+ U7 S8 }/ B+ B1 ~4 M$ R4 D  RowBox[{
3 I2 N: t9 V& d7 T5 o  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
* ~" G8 I6 |3 C/ L/ e. J    "x8", ",", "x9"}], "}"}]], "Output",& S/ Q% u4 ~4 V0 B
CellChangeTimes->{, M5 A- D/ f$ [$ h/ I8 ?
  3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
6 _. T8 `8 _  O1 X* Q. q, E. t   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9, 2 F* k0 c% C, d. T
   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9, $ w8 }! y3 m7 L; H
   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
2 h8 c% i2 ?; ]# e0 x   3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {: n/ _3 W  p8 g8 k* k
   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
+ R1 f7 C+ S8 D5 o   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, . l- q* ?, B0 v* ~: f7 @
   3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {/ G- D( j8 N' a; i6 p+ h
   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {/ V0 x! `( W# R
   3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
5 ^4 K! F# s; W$ {+ K! e4 X   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
* v1 v0 U5 }! }9 @) C8 z9 W   3.57801215725*^9}]
$ Z5 D. ?& ~& Z6 G: A# D& N& [! U}, Open  ]],
5 e# p! {" b- z, d. ~2 s* j  l  j( P# w/ H$ h5 a7 g0 _
Cell[CellGroupData[{
/ C8 |) r' J9 h8 j- K% n
! L* F7 ~: _* k; V0 N7 K( vCell[BoxData[
' b$ J0 K4 D4 R! c RowBox[{"Ca", "=", , p+ {4 e6 r  n/ F
  RowBox[{"{",
% V( v: D- m& [' k4 ~! M   RowBox[{9 u, |9 H) I2 M" F) i; o8 \/ O4 e
   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", # U9 q$ X* _9 a3 f- _
    ",", "c8", ",", "c9"}], "}"}]}]], "Input",
9 I! m1 }8 v% p# U1 Z CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
9 ]0 h1 @% t' E3 r( K& }! I( F9 ~. L* f0 j' I
Cell[BoxData[8 e$ O% {9 z. Z- o6 `3 O
RowBox[{"{",
4 L- b' B! {6 H- F/ h& I  RowBox[{
+ [# Y" a5 m" V; h. K& }  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",$ v# ]$ r4 I' l' w
    "c8", ",", "c9"}], "}"}]], "Output",
  }2 r( [# Z- y9 w2 A+ ^5 n. |& o CellChangeTimes->{" f3 U2 X" m9 u) E3 N* x
  3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9, - F% V4 U; k$ [- D; n( _" A1 U
   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9, : c/ R7 x8 _' F8 G$ p6 T
   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, 3 c6 X" s# x4 l8 I! F# B
   3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
% }+ P. M5 b; h; X# @   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,
9 {6 ]  D6 m6 [; |   3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9}, # e9 _* D& ~; [( E- B- w! C
   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9, 9 C  g6 h. G! X& S7 n! }
   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9,
4 c8 |, @$ x, B; k# E% }   3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9}, ' W0 Q+ A7 [+ ?  w, L4 ?3 Y
   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {: v& T8 l. u; P
   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
- w' F+ B' \: a# V2 u2 ~4 I) t' Y   3.577961904604212*^9}, 3.578012158671875*^9}]
! _- _  l1 Q5 p& Z}, Open  ]],' V; r7 Z$ R7 F7 i8 v* o. K
3 x; c/ o' y% s) c. y- k
Cell[BoxData[
( h3 M% T+ ]' Q) `7 @+ x RowBox[{"For", "[", 3 {* ?5 ?; }. G7 I1 X" _1 q
  RowBox[{
/ q% `3 ^5 b; T: Y   RowBox[{"i", "=", "1"}], ",", 6 J; T' t2 s5 Y/ N
   RowBox[{"i", "\[LessEqual]", "9"}], ",", 8 `0 k# S; r# y: l" z3 a1 M
   RowBox[{"i", "++"}], ",", : l, A: K; `# s5 B1 e
   RowBox[{
$ V1 J# ?1 T" e( J) j    RowBox[{"Ca", "[", 6 ]0 Y& v9 V5 X6 W1 e
     RowBox[{"[", "i", "]"}], "]"}], "=",
" O" a" u+ D# R4 m: w0 D) L8 c    RowBox[{"CM", "[",
5 U! _; o  ~9 O: y, o. w* {; R' l+ w     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input"," Q4 J9 a8 a+ u; P* q' a$ k
CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},   w/ l7 J( M4 o9 A) v
   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9, 1 ~% o7 q2 w/ A4 B  Z0 R
   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9, & D' w' \9 ~! |7 _" Z* w
   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,   Y4 b6 V- X, C
   3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9,   k9 {* Q* }* i2 M! r. v$ |1 w# w
   3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, & G' x5 D9 G* I1 m: m
   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
( X2 V# M! G7 C6 ^0 F   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9, ! a* T! a1 ^! I  Q& P) S! W
   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
( f/ X* I2 Q- H  R, F   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9}, - ?! o0 S6 Q& y3 _' P; h( H' x
   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {: `/ i' z' g- d
   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9, 7 I7 ?# K9 C: v7 L
   3.577961906897415*^9}, 3.578012176296875*^9}],8 \0 W5 O: g- ]& G( Z2 w1 i  I* Y

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

& q. f! s7 @0 D+ Q% |Cell[BoxData[- @0 @& N& n* f3 O+ U3 f& f
RowBox[{/ M# H3 F/ P" ?) o, q* [: g* W5 {
  RowBox[{"Ca", "[",
) w6 ?8 K" G: t2 k   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",. |7 P. O  R$ E0 p' V; M. C3 j
CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
9 d$ e: ~# r" V# A) M+ A( l  3.5779616465173616`*^9}],
6 l6 e/ ]2 M! V2 }* r7 B' g, }: \% f6 o8 N" G' Y: h
Cell[BoxData["0"], "Output",
' h' Z, A4 X6 w3 r% D& [; ^ CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9, 2 N" t$ X; }% h5 E* u& v
  3.5779616484049644`*^9}]
/ s! I0 H/ F2 x, P/ q/ i" c}, Open  ]],
/ Z% x6 K9 ?3 K; d1 U/ K/ V( f3 E; h7 [
Cell[CellGroupData[{$ O% x! \9 Y9 W* w8 }* Z* {

  V& R; M/ e" ICell[BoxData[5 d  U; Z7 c, G' P; O# ]$ ?# i
RowBox[{
& r8 U7 |; Z  X  RowBox[{"Ca", "[", 2 ]7 ]! Z) ]( D* r, d: f
   RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
# F5 r2 K8 W  Y# r$ C CellChangeTimes->{3.577957376235614*^9}],
2 P- f6 ]5 n: F; H  h5 n4 O5 e& L
Cell[BoxData["0"], "Output",
6 Q% F5 t5 p8 T9 @+ r( Z CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]/ T  i  {1 u9 k8 G
}, Open  ]],
! \, b% S1 K; b; P2 b( J, n; y4 K9 n3 d. f9 D, L/ o
Cell[CellGroupData[{8 X) r2 E/ C7 N" E5 A
' q& Q6 A: U0 I2 X
Cell[BoxData[$ Q; a% p7 a9 F2 ~
RowBox[{% Z' |+ ~' M0 H
  RowBox[{"Ca", "[",
: j! L' b9 A- P3 i4 A. |   RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",+ v3 ?2 y/ W. W7 M
CellChangeTimes->{3.5779573112927003`*^9}],* r' L: J! C' o7 D! N

0 }: ^# O  M0 b# sCell[BoxData["0"], "Output",1 n- B$ J3 V) {- @9 _4 L. M+ F& G
CellChangeTimes->{
$ `( `4 w0 d# \  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9, 5 ?9 ^7 m, ^3 f' t9 c# [: n: p
   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
  d2 T: F2 q" ]$ o9 C   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
0 @' w8 h" t+ s   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9, & X& B5 M3 J* p! G
   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, 2 d! l1 S+ Q6 E
   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
9 |: d) C; j/ o}, Open  ]],
7 y8 n2 W" M/ K) k5 W8 T
+ j9 N; v% `8 |$ w/ j$ n* H& rCell[CellGroupData[{0 Y5 L4 A; k5 y

/ X. q4 t8 M9 A! @2 }& Q3 A6 k) m5 hCell[BoxData[
* V6 [2 W: w1 \" q0 L RowBox[{
% h0 S" i: I  Q1 K/ U% k  RowBox[{"Ca", "[", ) N$ Q0 h' M9 C7 U' n" K) B' c
   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",( u8 ^8 e# n( `- l* `) u* S& c) }
CellChangeTimes->{3.577921461734375*^9}],' w# @+ k9 ]( y
( N2 }8 w: o8 x7 u
Cell[BoxData["0"], "Output",
- [! V  u7 ^' v+ ^ CellChangeTimes->{: U- M" ]2 }; a% g' H( L
  3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, / s( l6 S4 g5 ]7 @5 m& j
   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
2 G* a4 k; g$ M% x: K, h0 Z8 q  e   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
9 D' F' Y: i2 E& s, ^. y' M& }   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, ; r/ B4 T; f3 o. P* o1 u* \% h3 |
   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]# D) c( W* V( ]
}, Open  ]],
* s8 r  N' n; x- Q% J! r$ N! Q- U8 j; v% A/ p5 U4 P
Cell[CellGroupData[{! X& F0 p$ @2 w  R8 P! @
0 }6 p% _2 _+ ?: {/ z  @; U
Cell[BoxData[
1 {" s$ T6 E7 |+ k4 w( U$ ?% U RowBox[{/ Q5 t1 `( [  H0 e5 x$ j
  RowBox[{"Ca", "[", 3 z$ V$ q9 D- Z) z2 q2 q: _4 o
   RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",; I2 T" G6 o4 [# s  M7 x
CellChangeTimes->{3.577957303118286*^9}],
) _1 ^( h+ y& p3 {! X' b; H) u# f
+ i1 j$ P; j: |( CCell[BoxData["0"], "Output",7 g7 _" j; f$ O
CellChangeTimes->{
( c8 G: m1 A: i$ _+ W! }7 N) ~  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {9 \# O& Z) x2 t7 A
   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
, u8 p/ o* v: |6 I. ]   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
2 E& p2 l: m+ z6 s4 K   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
6 A, A7 t. n8 i- e! p   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9, % D4 \2 M/ q" q' J  \
   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
: O5 l, ~" l* `3 G   3.577961889378585*^9, 3.577961912965826*^9}}]
% Y! T; G! B% o7 i" S% S}, Open  ]],. R) v1 c# m& M
% J0 U7 N: s2 [& Y4 p6 y8 A4 k6 b9 Z
Cell[CellGroupData[{3 l, P/ P9 Z. Y% b. }" d: a5 ?
$ |/ z% b' M# n1 k+ B8 z: R# I
Cell[BoxData[
9 N; x9 e9 y7 U$ H RowBox[{* J' A: C! C& h; `* U+ T* H
  RowBox[{"Ca", "[",
6 w* [) F  m2 y) n+ r   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",  {/ v  j% {- n( z/ _) }" X) O7 H
CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {& Q* `3 B9 w* g8 [/ n0 D
  3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
6 y  b' [" Z8 S5 L  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
; ?/ T- I0 w* U8 ?2 D. a" j  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9, : F/ w+ Y  c$ z: ~
  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {' a/ I+ N& d* q& u
  3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9, % U" I& U7 q& [4 b. O
  3.577921435703125*^9}}],
7 V3 ?" L. a7 \2 }' [( k/ u/ x0 d* E
+ E& }/ W' c6 xCell[BoxData["0"], "Output",
9 t, B- T( j7 V- u  } CellChangeTimes->{7 M7 k# m& M1 o6 ]4 b% D# _/ T3 J
  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {
, s# l& `: S; z0 s, M6 x( V   3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
/ m' k8 O# K  B   3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {/ H: l8 H' q' E& W
   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
( F/ d7 U" `9 a2 l& G   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
) w4 W% A* c  v# m   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
( s* c# s4 G, ^# ^' f2 W: Z   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9, ; I, F& G0 P7 y$ ~5 T3 [/ U
   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9, 9 ]. d7 L. F( @2 c& w0 J" q4 x* ~
   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
* w( u/ W+ ]) {: L/ M8 O   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9, & @& B& d" u' y+ ~' i, h2 _
   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
8 Z, [# S; b1 s5 t7 V8 r) y   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, # O3 q9 @' W# }
   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]! B8 U9 @  ]& B9 x# d& E
}, Open  ]],) P) ?; [+ n4 h" W0 D
- k' _+ M1 X' f6 [. m& t5 }5 K
Cell[CellGroupData[{! x* ~$ Y7 `( Y: {4 F

- v( ?/ E. g  B7 B* yCell[BoxData[
% H1 ?+ h% e1 B RowBox[{"Delta1", "=",
0 U2 p- _+ z2 |) b' @6 s, [  RowBox[{( A: b# U  T  ]$ Z
   SubsuperscriptBox["\[Integral]", 7 _( x- F; y: {9 r
    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], : }( Y) N1 ?! l0 ~
   RowBox[{
/ S- F$ ]% R" ], \) r    SubsuperscriptBox["\[Integral]", ) e2 c9 M/ u' {6 P
     RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], " q3 g" W  V6 e" [  G" N" f9 g: ~
    RowBox[{
7 u8 O* y/ `3 j: V* m     SubsuperscriptBox["\[Integral]",
1 K; Q; a+ z0 Y5 C/ v+ ]      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
! y, |$ i, @0 X. t$ {3 S8 E8 ~' P     RowBox[{" q0 M: i, W. F' S! t2 |; P
      SubsuperscriptBox["\[Integral]",
% x& c2 P- R2 W3 f# P4 H+ V8 Q( t       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], & p1 H+ W& N! k& w2 q8 j% C
      RowBox[{
7 q( _# l0 V& w: ^5 k       SubsuperscriptBox["\[Integral]",
2 z: b/ J# H5 b( U- W( n        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
8 ]2 ?5 _7 i4 C7 m( ?0 F$ R& i       RowBox[{& h' K( A) Y; o6 A8 W% F8 Z8 E
        SubsuperscriptBox["\[Integral]",
; ~5 n' T0 \+ i! d5 v  q2 q         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ' o6 M0 `, u  t8 i
        RowBox[{! z4 U: V, I1 X9 {
         SubsuperscriptBox["\[Integral]", 4 o% x) w: w* O  D# Q
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ; K$ K+ I% X$ W' s
         RowBox[{- v$ E& r' H& y/ f4 d( N, m2 s5 F% m
          SubsuperscriptBox["\[Integral]",
4 @4 p! d/ N7 @1 G8 H           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
4 L5 {* P+ t2 I          RowBox[{
$ d! x; g0 K3 y! i. ]6 [5 e' f           SubsuperscriptBox["\[Integral]", - X6 e4 v. F/ Q' g0 J
            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
/ Y, K* Q  B1 l. E6 J2 W           RowBox[{8 y5 b- _9 B  e4 E! n
            RowBox[{"Exp", "[", + n3 y; Q. }5 o8 x/ E
             RowBox[{) Y6 f% W' J( o  o0 B# \, o  n
              RowBox[{
9 V) h/ M  }, k: b5 j% L+ e1 d' N* [               RowBox[{"-",
) b2 f( p( n+ V7 c) u9 b                RowBox[{* u) R, c1 w' g# Y5 X$ w% \
                 RowBox[{"(", ( M1 ^$ w2 ?& d1 a- L2 J' |* j6 r
                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 6 i; u2 l! P- P9 s5 [, t9 s# h
                 RowBox[{"(",
* g7 V  q- j$ \* P2 p1 m                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
7 N( w4 Q9 _7 L) [8 t( [2 t              "Delta"}], "]"}], " @6 U: }+ m) x; N4 ~8 l' l. J$ T
            RowBox[{"\[DifferentialD]", "x1"}],
; }3 l8 S) t1 m0 l9 L. f9 h            RowBox[{"\[DifferentialD]", "x2"}], ! {4 b: A: Q1 A: M# i0 Y- y
            RowBox[{"\[DifferentialD]", "x3"}], 1 ~" I1 \! J5 I0 _% {' W
            RowBox[{"\[DifferentialD]", "x4"}],
% M) H1 \( q  j: {0 S0 @            RowBox[{"\[DifferentialD]", "x5"}],
% D/ p2 q* q& S7 |- Y9 T            RowBox[{"\[DifferentialD]", "x6"}], 7 }; p" ~$ p( C; C4 v- i# a  A0 U
            RowBox[{"\[DifferentialD]", "x7"}],
# i5 b" X& P; d            RowBox[{"\[DifferentialD]", "x8"}], 3 p2 k# d7 [0 |$ M& N
            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",  n: |+ l) p( U) @- F
CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {/ Y% f. _( j8 |7 I% q. S
   3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, 5 E' p# M9 b! h: n- P
   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
$ }8 H  i$ g7 ]/ D3 e9 Q   3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
4 O+ E4 g8 a. j9 D! s6 m( A( Z/ B  Y: L   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {7 Y5 c+ H  B. Y- C; }* }
   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, % e6 ?( l% S- d5 u
   3.577918964453125*^9}}],* C7 r; K* j" T4 I+ Y
. g, P0 P5 }( y* Z# a; R
Cell[BoxData[
! U: p7 n) j9 ^) K7 }% e RowBox[{"97.40909103400237`", " ",
! h2 F* F( m  Y  b! o  SuperscriptBox["Delta", "8"], " ", 5 ^' q" x0 |* E  l& B
  RowBox[{"If", "[", 1 ^0 h' A% j5 @
   RowBox[{
1 h4 r9 `2 y7 o5 N' _9 K9 H    RowBox[{- \3 p1 X5 E- I; B  g7 s1 o5 [0 F
     RowBox[{"Re", "[", " `: h6 N1 |. P9 O' j
      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
6 H& c4 n, ?8 I- ~  \0 ^    FractionBox[
) b. @: J0 P* H/ A0 _     RowBox[{"1.7724538509055159`", " ",
+ v! N( C; z* n2 t1 B( ]      SuperscriptBox["\[ExponentialE]", . b5 z3 ]$ [, k/ J7 X
       FractionBox["1.1102230246251565`*^-16",   @5 D  Q) P( x, z. ^
        SuperscriptBox["Delta", "2"]]]}],
- _( m+ n8 x% ^6 V# B+ `     SqrtBox[
2 I% Z! z3 c& Q0 @$ P8 A" V  A! L! Z$ c& ^      FractionBox["1", 0 ]2 u- J6 z0 h! S$ f6 l
       SuperscriptBox["Delta", "2"]]]], ",",
4 E& t/ D2 Y& S/ k7 P3 D2 T1 z3 i    RowBox[{"Integrate", "[", 1 I9 L, Y( m$ X+ R
     RowBox[{: k. d: Q$ Q& \% p- `" H7 i
      SuperscriptBox["\[ExponentialE]",
# z) B4 F9 ]" y7 W/ `/ p4 P       FractionBox[
) ~: ~" g7 |$ G- j+ Z        RowBox[{"1.1102230246251565`*^-16", "-", - i! V4 H3 r2 Z  `
         RowBox[{"1.`", " ", 9 d; R3 h$ i5 S: N
          SuperscriptBox["x9", "2"]}]}], $ {5 W! w# \' e- B) X! P
        SuperscriptBox["Delta", "2"]]], ",",
9 t. e' x- t- ^% l      RowBox[{"{", ' c% w3 E9 H/ @4 b6 u% F) {
       RowBox[{"x9", ",", 9 c% O/ Y/ C4 h
        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", ; O* R' n+ d+ P0 ~! Q
      RowBox[{"Assumptions", "\[Rule]",
2 E/ b4 I4 Z2 ~6 i       RowBox[{7 ^+ g2 s) y( C1 C/ t6 T
        RowBox[{"Re", "[",
& A# U) G3 z, w         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}], 8 x/ p$ q& w/ A3 V/ x9 O" a- |5 ]! C
     "]"}]}], "]"}]}]], "Output",
9 Q$ Y( a8 I4 }. X/ C" G CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, 5 l9 `/ H' h! q: z
  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9, , S/ F8 @" F- T/ [( W; f- n
  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9, , L) M! d( K, Z- c' X; c# t
  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9, " [2 _* [6 {; d- L5 x
  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
9 R) e' @5 e+ T- l  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9, 3 ~* d0 b/ O% h
  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]* R2 B1 i  L& J6 M9 o
}, Open  ]],
, m/ \8 T" K5 e& J
  D  S% h+ c# k8 y& q% ?Cell[CellGroupData[{
( f6 G) v( j# t! r) ^5 T. o9 e- j
Cell[BoxData[; r" ^) P; }- A  ~8 s4 Z
RowBox[{"Delta1", "=", / s  b& _! n, G( v% `% w/ c
  StyleBox[7 V4 e! {. T$ w3 N$ E. i
   RowBox[{"97.40909103400237`", " ",
. `- r1 X  V6 j4 X# C1 R; G* T- o    SuperscriptBox["Delta", "8"], "  ",
( J" ~& o0 Z8 M% j    FractionBox[
0 D* g. i2 X% |( U0 e     RowBox[{"1.7724538509055159`", " ", . j) l! X8 L3 j8 B  n
      SuperscriptBox["\[ExponentialE]",
) X' w! u5 Y. j9 C$ H: f       FractionBox["1.1102230246251565`*^-16", 9 Y6 e8 @. l/ X, \$ P8 l& `
        SuperscriptBox["Delta", "2"]]]}], 6 k7 b1 d# g+ B; T, o' X2 j6 Q
     SqrtBox[
& j. s) h- C1 Q% m  b      FractionBox["1", 7 @8 [  a1 Z/ ~, W5 J, y: e
       SuperscriptBox["Delta", "2"]]]]}],
0 J; x6 R+ W- W# f   FontWeight->"Plain"]}]], "Input",8 Y) p: h: E" R
CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
5 F- W  C) j0 D4 M8 |   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
% f5 L( Q" r; W! j   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
: C6 N* m4 v4 I, f9 e& ]   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9, 4 A5 H: h: {. }; t" H8 {/ Z! [
   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
! v0 P2 I9 C$ @% o7 _' F0 d   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
" ^! P% v6 j0 ?0 S$ L
. s) R: T* {' ]Cell[BoxData[! I7 b: Y: E$ M: |
FractionBox[  _; C7 Y( L# O! v/ F6 u- f
  RowBox[{"172.65311851642346`", " ", / L, s3 w' m6 c2 L5 t$ p7 u
   SuperscriptBox["Delta", "8"], " ", 4 I; g% l# z  a! [6 N3 V* z
   SuperscriptBox["\[ExponentialE]", / m$ l7 H; s: O5 p$ I
    FractionBox["1.1102230246251565`*^-16",
* o7 x. v- J, u* a     SuperscriptBox["Delta", "2"]]]}], $ X: R4 H. g) L% s5 ]
  SqrtBox[* P2 a0 ]+ ]; B1 P  T- U/ o
   FractionBox["1",
( Y' w* o# G3 \. H$ {* _# N  g7 ]    SuperscriptBox["Delta", "2"]]]]], "Output",+ U; E5 H4 E1 h7 f. i1 d$ Q' B$ ?
CellChangeTimes->{
/ I3 l  [4 O  N) h  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
$ K1 |1 R5 ]' C1 S: o8 z& U   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9, 8 u' b4 {% N7 O$ I4 c
   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9, ) o" |1 i$ w- |# [. t% O
   3.578012166234375*^9}]
, r6 A5 k' t4 n/ F8 S5 e) s" J6 E. s% E}, Open  ]],4 ~( Z6 p8 S+ f. r
) \0 I( s: B& w
Cell[CellGroupData[{5 b0 ]7 r% K" p7 n! m& X; Y0 y, |

1 o' A4 W1 _' K& Z3 q1 zCell[BoxData[4 p( h6 S$ ~9 B) h7 z) P3 T5 _* w! h
RowBox[{"DeltaX", "=",
6 H3 {% H" m& g# U% r  RowBox[{"FindRoot", "[", 2 k2 [2 \* N9 i( q3 f* A
   RowBox[{
. z6 S/ @- E( r4 J3 P    RowBox[{"Delta1", "\[Equal]", "1"}], ",", 1 `) G3 u  |$ `
    RowBox[{"{", 5 y8 j( w+ }1 D$ ~0 f: [( e4 b- f
     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
9 ~( c* O) Z, _ CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {5 [) o1 v  q% {, J# F
   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
: s0 A) y" g; C' g% k, n3 ~- W   3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, ( B7 P! Q. g7 w
   3.57791921584375*^9}}],
) ]$ X2 H* K0 g( p9 f4 A4 N4 h* b
" M  o" y/ O( U! vCell[BoxData[/ W0 S) W& O% I; }/ H  Y7 h' l
RowBox[{"{",
1 [5 l$ r$ n2 q  N2 r0 Q5 O: o& i  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",6 z# g, _$ Y: s% G" b/ N- N
CellChangeTimes->{
( L! k% c, h9 t; {  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9}, ; p0 r3 }3 h. t, a! t
   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
1 q3 ~" c+ D+ m   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9, 5 M4 L3 Y3 ~; X6 C
   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
4 H& l) L  e$ Q7 K7 x! i- ^   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {- K9 Y1 b! j4 ~6 C  V
   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, ' _0 k! c, m" V* `
   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9, 6 Y; U( z4 T  D4 f& K" u
   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
  g$ K) X1 z+ K! g% {   3.57796070150625*^9, 3.578012167703125*^9}]
( Y' J. J2 F+ Z: e% z}, Open  ]],
2 T  @" T: T4 B" ~6 y1 L* N! N2 w+ O
Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\4 d7 p) N/ q* z- f
\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",) h. t( E+ ]- i9 U+ }; C. U7 \
CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
4 k# R$ k* P* s7 }  `7 x3 d6 e  3.577960705312657*^9, 3.577960707621461*^9}}],
7 i8 `$ S* b  o* X4 x( [
6 R9 h# U2 \) [Cell[CellGroupData[{: I+ K" n) ?6 N' k; h

4 I* _" r. @  h) U( |2 Q' j' NCell[BoxData[) T5 H/ x: ]) J5 b. i8 D: f
RowBox[{"C1", "=", "Ca"}]], "Input",
! D+ t+ N1 k3 R# j/ z CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
( K% V: b. O6 c9 {2 b6 ~0 W+ S( j' E6 S' X- s4 r% s5 j
Cell[BoxData[% A. b- e. D7 U1 h3 R$ b' \
RowBox[{"{", $ N, V  L$ E3 }: [  X& t
  RowBox[{
" _- v: y4 M, L4 z: N- c1 i  "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", ) R) t* P/ }+ K) K# a
   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
' h  g" J: g1 M  b$ U: t) J   "0.`"}], "}"}]], "Output",
* g0 }1 k: u' Z  R; S7 r CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,
: J) Y1 ^" \2 `6 f6 s  3.577960710273465*^9, 3.5780121855*^9}]: V5 e" f  M& p" @9 X
}, Open  ]],; n( c: K3 q+ c9 h% P

  v8 u8 S: _& v# P6 e2 \Cell[CellGroupData[{0 W' r: r/ [$ p" D9 `
% y$ X8 Q" e9 P9 \3 }: Y( x, S
Cell[BoxData[
* b. I& g8 ^4 z- v, L) t5 U RowBox[{"u1", "=", & H. }) E/ |/ z
  RowBox[{
5 x5 d5 b) O9 @' j6 k   RowBox[{"Exp", "[",
% v$ A( \; [6 Z& z4 D    RowBox[{
: Q9 x+ G& }5 F/ H, b" Y     RowBox[{
) C8 }  l* |+ e& X5 a) ~      RowBox[{"-", . t) `! ^$ e2 b; a/ G6 V8 {/ E
       RowBox[{  z' Z0 r8 s* c+ i+ t' E3 L
        RowBox[{"(",
3 U; K( \7 S$ a% _/ z! C" ]; L         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
! h5 i. D; \* R: l, [        RowBox[{"(",
" ?* b) C$ L, I1 [, b% K         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],; Z& R! y4 m+ b: u9 m; l0 @
     "]"}], "/.", "DeltaX"}]}]], "Input",
; U6 a8 G; m: F& O, w9 f. q CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {2 N$ I* r7 |6 x# j5 ~$ L
   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {0 C- c% _0 t( K/ _" z! X
   3.577919193484375*^9, 3.5779192326875*^9}}],
! ?0 t, D& w1 q' B" ]" c3 }* g. T* Z
Cell[BoxData[
$ |6 q% v$ t. X( ~+ X! G SuperscriptBox["\[ExponentialE]",
6 H" N) |4 w; G# f; {* f3 Y  RowBox[{"3.141592653589793`", " ", . l% r+ M3 O1 e
   RowBox[{"(",
  Z  a/ R/ U' j4 ~6 J2 ~9 [  W    RowBox[{
6 l& ~) u$ B* D7 |* g     RowBox[{"-", ' K8 `3 I# e+ t: o
      SuperscriptBox[
2 z. [. n" i9 V( \  ]' h       RowBox[{"(",
9 K4 B( Z( D/ L' S# m6 J6 T( i        RowBox[{, ]2 U+ x  \. G  ~
         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
. T6 V3 S: c7 g     SuperscriptBox[  E$ T; \/ h3 w) u
      RowBox[{"(",
0 e9 f2 Q+ n! M$ X3 {+ _. B. G       RowBox[{5 w5 c/ H" ^0 u# r6 j
        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", 2 l' W8 v1 q6 P! c4 u
     SuperscriptBox[
  @/ m, |% @% }1 @, _4 k      RowBox[{"(",
# y$ f- I9 U$ [* ?! E' Z& U) q       RowBox[{
6 N/ d% |( s" j4 u6 C9 v        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", 1 O* q  e+ h2 W" H9 P  e
     SuperscriptBox[
, y% O" f( g: g8 Q& ?: n- A      RowBox[{"(",
3 L' V" J: \1 v% f: E$ t       RowBox[{4 c7 \. F, y4 b5 [
        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
3 T( O- m/ m% K5 y     SuperscriptBox[
* z! ~$ l) f* A      RowBox[{"(", 4 \' ^9 b; t1 ?3 C# }# V  c9 X; F
       RowBox[{5 |5 d1 g1 k9 s- w. m, t1 W
        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", 4 r$ i3 `$ O3 K; s' A8 c
     SuperscriptBox[
) l% x: W8 I: G      RowBox[{"(", ' E+ M: ?0 g4 F; E! E& ]6 L
       RowBox[{
8 K7 h. x7 z2 I* X% ~        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
1 L8 S' @' }$ Y/ A5 y     SuperscriptBox[
7 s# }7 D' i. b$ ~( k      RowBox[{"(", ' d: C0 N1 b# t; e7 C- R  K
       RowBox[{
' _3 }0 Q% e* T8 L        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", 8 H8 @# c& ^" @3 P8 v1 Q1 Q
     SuperscriptBox[
( m+ G" g2 W: w7 `/ B      RowBox[{"(",   h$ @" w: s- N4 Q8 g0 c7 y
       RowBox[{, x) m- k/ w' r8 V
        RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", % C' M1 e9 v) p% u1 }& w# Z3 M' P
     SuperscriptBox[
( |6 t1 i6 a3 m5 y3 p      RowBox[{"(", 7 ?: i: J6 ^0 R: E
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
6 }8 O, O  l$ Q7 Q+ Q" R5 E    ")"}]}]]], "Output",; u& k% M% B, q
CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9, # n9 P, }* e# q* u2 |! Y
  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, 4 c$ u9 f# h2 x- F5 @
  3.578012187078125*^9}]! s- O5 `1 y; h( w
}, Open  ]],
4 U  R3 u  ^  W- g
7 ~5 y/ d' S6 ~5 G& W$ i- f4 v3 uCell[CellGroupData[{8 S: E' @9 I! H, z

) x, a1 x1 n5 ]" m( ~  QCell[BoxData[$ j" @, R; }( D( L* }; V
RowBox[{"C2", "=", "Ca"}]], "Input",
, j% p" r) {3 ]. q$ {" G CellChangeTimes->{3.57792047321875*^9}],
8 C7 E5 N8 Q! c0 M( b& a" s* J5 d; D& I, I, |) C, w  h
Cell[BoxData[: H7 Z% K7 M. W" V
RowBox[{"{", 6 S9 b. E% P' @! [/ S
  RowBox[{
. k1 t( k! m1 Y) w* P* u  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", ( C( }; D* M9 j; V
   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
5 o% G: b4 J5 H9 W2 \1 ~" M* Z  "}"}]], "Output",1 z2 C7 S& G: x
CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
; {" M7 q* D" t% D# d# U: c  3.5779607401163173`*^9, 3.578012204671875*^9}]: C: T. @( G/ k; s$ J; [, G3 q
}, Open  ]],* b( {% y, @9 v$ i  q
, a! R  L! P& ~. }1 f  R
Cell[CellGroupData[{/ R  b7 s+ a& Z  f
( ~8 Q$ M6 M9 y
Cell[BoxData[7 s$ c- j0 u9 b& H; F4 c) K
RowBox[{"u2", "=",
4 Q2 ~2 a( p5 b  P  t  Y  RowBox[{2 n3 n9 D1 s- x+ ~3 f- A9 `4 a
   RowBox[{"Exp", "[",
6 {9 T4 n% C) s( r% D    RowBox[{8 T. @2 _& g% Y. P3 E; C
     RowBox[{
! R. v+ ^$ r" V; @/ w; a      RowBox[{"-",
& h# t5 b6 D. Q7 X, W4 m- z! L       RowBox[{, l7 B* ?+ f2 G8 p7 p
        RowBox[{"(",
) X0 C; u0 ]+ j         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
2 A# B" M: n$ h/ l. @        RowBox[{"(", 4 X5 L: A5 x; ^5 L7 Q
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],! Z  f% i# x( @$ P4 p& }
     "]"}], "/.", "DeltaX"}]}]], "Input",- |( g7 Y- ^, h7 y0 }" `' |5 s5 O
CellChangeTimes->{3.577920484109375*^9}],; ~. |4 Q8 @5 R' p, ?8 u2 e
8 |$ o9 B) M& e( A4 u
Cell[BoxData[
6 P% O' L+ g. J( y SuperscriptBox["\[ExponentialE]", 7 n3 ]) V" J/ H, L
  RowBox[{"3.141592653589793`", " ",
7 ~+ k2 J4 O$ U6 G   RowBox[{"(", & m* F& Y* O- g) n- V& F4 d& M9 y
    RowBox[{
( ?7 ?7 ~) [1 b9 {3 T: C% |/ |" q     RowBox[{"-",
! n- C! @. ~8 u4 U      SuperscriptBox[
1 Z5 R! w7 Z  e       RowBox[{"(", - T: O+ @  m3 X0 X9 Q1 r  q
        RowBox[{
3 ~1 w2 ?. a9 V$ N         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
- ^8 u4 q- }, e% _" K% T     SuperscriptBox[
4 \. L$ D% I, k+ _" G1 v' H- b* v+ z2 R      RowBox[{"(",
- G) H0 p5 b  j/ ]5 _/ N2 P       RowBox[{, R+ V% w9 m3 |* ]
        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", 0 h% S. D- w+ b" H( |
     SuperscriptBox[
- e8 K1 o5 g% @% a1 k' Q2 T5 L* E      RowBox[{"(",
. W( G( f6 |5 r  w; \       RowBox[{
& p; X1 n% p5 s1 l% x& D6 ^! D- G        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
- f% o! l3 \" n: W" F     SuperscriptBox[# K' ]9 _5 M2 G
      RowBox[{"(",
; H3 b5 |  |; V8 [' a0 n       RowBox[{
. `5 K, o3 M( A        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
6 ~% L- t8 A. w' j  P     SuperscriptBox[
+ B! V/ `3 x4 t! k+ z2 H      RowBox[{"(", 6 C( F; W6 Z- Z3 W4 _! O
       RowBox[{8 Q8 ~! W2 G! A4 U5 e8 G
        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
) S" P! J4 A* f7 s" ]& S) [     SuperscriptBox[
: {8 F4 @# t  [% G* p6 q      RowBox[{"(",
/ h6 p' |' R# v       RowBox[{
0 j7 r& ~# T4 i- y8 t* `% G0 Y5 B        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
, B% e& D7 p- e+ [# H& H0 O     SuperscriptBox[5 F" ~. t% ~* `& b; K0 `
      RowBox[{"(",
& E& ?& ^8 b4 l       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", / S* q2 N$ b5 T" u
     SuperscriptBox[
2 l5 @/ m$ B; B0 D      RowBox[{"(",
7 ~" A! u: l+ k$ P: Z: q& ~) k       RowBox[{
: C: o/ ~  R% U+ a. B* V        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", & O/ q" M0 C1 H& X; o
     SuperscriptBox[
% `( i0 Z, `6 S- Y      RowBox[{"(", / [2 h1 b# X% {, F/ [( D
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
) M8 W+ E- a, z: C$ T0 o' Y. d    ")"}]}]]], "Output",8 R; w8 \) r+ T3 a+ S2 w9 Q: x) h: r
CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9, 2 |) F5 Y: j1 H& ~) L' Y
  3.5779607413955193`*^9, 3.578012205484375*^9}]" j, B% J. C% R. M- V' ]
}, Open  ]],+ E) `7 g7 L3 E, q6 ^& X* s( y
+ p/ q/ K5 w, s" @) {
Cell[CellGroupData[{" h8 x4 L" O# m" K; e+ G
9 _9 [1 Y- v# }2 h$ r
Cell[BoxData[
  \2 L1 o3 t* y2 f! n RowBox[{"C3", "=", "Ca"}]], "Input",; ~* R7 o& V6 h/ V% ^( j
CellChangeTimes->{3.57792064125*^9}],
) h4 R9 u% Z8 F% T0 b
# X& [5 Q- ]4 Q. D+ O  VCell[BoxData[* G+ D5 e: V1 ~2 G9 U" l2 U* q
RowBox[{"{", " W- `. w& W/ B9 g% q
  RowBox[{4 ^$ y, j9 o# e2 U! I" a
  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",", 8 Y% k3 h  B4 {4 A
   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
9 L& U& s+ w3 t0 n; p  "}"}]], "Output",- t# b3 l: ~# R% f! e+ d
CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
8 O7 C0 f$ O4 y% L/ o! e  3.5779607642027593`*^9, 3.5780122103125*^9}]
  w; b2 q( B  v}, Open  ]],  u5 T8 A& C7 V* H# _) b# ]; Y% L, `
+ |* t8 G5 i' l7 H3 ]
Cell[CellGroupData[{
6 m5 W1 a( \0 I5 {$ Z  P: [+ F$ r
8 E$ h/ V  v1 Z! jCell[BoxData[
+ p1 j1 M+ r; P# {4 ?3 Z RowBox[{"u3", "=", , ]. Z3 N5 z: f& K
  RowBox[{
4 _: W% @2 Y' T7 F5 N   RowBox[{"Exp", "[", ) E; Z2 E1 ], P/ C; A
    RowBox[{" S9 j, ^+ q- ?7 D! \
     RowBox[{
9 ~' e7 W) E/ H' {; T      RowBox[{"-",
, J: x' O; X8 ]' \" n       RowBox[{; Z8 H6 G1 i8 w( Y2 `, Q- R8 k9 i
        RowBox[{"(", ; h. {# l; t7 W$ r, J9 Y1 I- S
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
+ M; ~6 _3 J3 A  l6 x        RowBox[{"(", # _# E  p" Q5 k" @2 b
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
/ h" |1 h' Y  g* j: I     "]"}], "/.", "DeltaX"}]}]], "Input",% V1 x2 y$ j6 y- @; X2 q
CellChangeTimes->{3.57792064921875*^9}],2 p6 B# [; S) u! g. V- d: H7 W, q

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

6 S' |  P8 ?8 [/ p+ E6 j: OCell[CellGroupData[{# f+ A& X* a2 x: a! B  r' @% K  U
* P# c; `, G( {2 w% |) S  H# ~* J+ d
Cell[BoxData[& P+ g9 t, }' b3 ^
RowBox[{"C4", "=", "Ca"}]], "Input",) L7 p9 E6 V" Y2 v2 x3 ~
CellChangeTimes->{3.5779207559375*^9}],
( k  W; e0 @8 h. {! O2 d2 `
) p+ j# d% o9 k4 u8 M) Y4 vCell[BoxData[
$ v; H4 q6 L8 b" q RowBox[{"{",   Y# b, z1 G, O/ y* ?
  RowBox[{
8 Q0 {7 \1 }+ K- @  T  A( r  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
7 N0 T3 z: D+ |' V# u+ b   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], & d4 x, k& Q3 M- A+ y( J5 a/ h
  "}"}]], "Output",
6 i/ S0 n; V) G. k! ?* O) C CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
! w4 B! j9 h6 r/ D+ d  3.5779607861363974`*^9, 3.578012216171875*^9}]: k' Y; i( I2 c7 b( {4 p% p3 |
}, Open  ]],
# I0 {/ ?4 c2 l4 ^6 _5 t" s5 K5 p$ e5 x6 u0 y+ G( t9 l# U
Cell[CellGroupData[{" f2 |+ _  ~  a" i/ V7 I; J

/ O& C1 h! O% ?, V4 xCell[BoxData[
3 {& B. m9 I. R8 @: J" Y+ h! V RowBox[{"u4", "=",
' [; ?" C/ f- a4 d$ Q5 ?  RowBox[{$ {& }/ X8 d0 q4 G9 s, o
   RowBox[{"Exp", "[",
) s% n: p( J- y. o% ^5 n; t* |1 ?    RowBox[{
+ S$ a( \" B5 z2 s     RowBox[{
6 {7 y; Y# m& M5 d& P" R5 E      RowBox[{"-", $ W) ~, V; X: b, B) y# I3 @% H
       RowBox[{
: l4 s4 ]- d1 B. [        RowBox[{"(", & V: k9 o4 f: d* G
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", * x; o7 g! x) Y4 M1 f
        RowBox[{"(",
$ ]- [' c+ k$ z' u& p         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
! N0 M* ^/ O* e0 K) z     "]"}], "/.", "DeltaX"}]}]], "Input",
$ u4 o$ Z& H9 e- I1 O" p CellChangeTimes->{3.57792076325*^9}],
* Q2 B! z' j2 ~, _, U4 L3 D% j* [2 v3 \* L" ?$ o. l9 {& M
Cell[BoxData[1 O$ ^  [: Q- Y
SuperscriptBox["\[ExponentialE]",
6 s8 Y/ `+ J, U  RowBox[{"3.141592653589793`", " ",
' s4 Q; @1 [2 }   RowBox[{"(",
; {- ]0 l. ?1 R9 {" l    RowBox[{! Y+ ^+ z+ b, k  w
     RowBox[{"-",
2 h5 `5 S8 i; O      SuperscriptBox[' A9 e. B& W6 n$ z2 l
       RowBox[{"(",
  Z" j! u& K7 Q! E3 Q1 G        RowBox[{
- P7 b4 J8 b9 P6 J8 Q3 @# I         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", - T" f8 N. s* [+ V, w8 L5 K
     SuperscriptBox[  U; Z$ H: \) x  z. D
      RowBox[{"(", ; B% {2 w  u6 I
       RowBox[{+ F, Q. D, V' \8 W1 O/ f
        RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
$ v6 R8 A7 T2 Y9 G     SuperscriptBox[
. R9 x# E5 q  y7 ~! W9 _/ Y      RowBox[{"(",
! `' V6 v1 J, d6 [/ h% A" D$ c       RowBox[{' d) I5 U! d. [
        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
/ ~0 o. ]7 I% Y, S* x7 u! ^     SuperscriptBox[3 b# \+ w& ?0 X' ]  v& r; ?
      RowBox[{"(",
" v3 Q0 l* Y$ U       RowBox[{
/ r! r! O2 O9 x3 o: e5 b        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
7 Z0 r! G2 u* c0 `4 P  v     SuperscriptBox[
- k+ L5 g3 [3 S- I      RowBox[{"(", - H" `* p) q  x- u, p7 s
       RowBox[{$ `6 w3 \5 c5 f
        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
; R8 |6 _( V, P0 K' S5 n     SuperscriptBox[
' E' Q# j( C, }4 \" g% {      RowBox[{"(",
; w% D) G% u! f; x" B       RowBox[{3 {# R. @! @' O. E; R2 M& J
        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 5 h" Q$ Z- ?- e3 x) M' F
     SuperscriptBox[
6 A5 G' n, @; x7 F3 ~  Q: B$ X8 s      RowBox[{"(",
0 r2 s. R% ~/ d8 Q8 S2 _       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
2 E. l5 O  X9 N4 n- S/ m3 M     SuperscriptBox[, O( y% U  ], N4 K
      RowBox[{"(", ( ^2 g( i2 i; o& p# m- {4 u$ q1 C
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
9 `' U0 g& J0 a" M& ~* \1 q     SuperscriptBox[
. Z; A3 y  b0 u/ J0 H1 U      RowBox[{"(",
8 v! x8 [) Z* N       RowBox[{
; B5 T" ^$ p/ s! j0 L2 `        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
& r) I2 o2 P% e0 t; y; _( g    ")"}]}]]], "Output",
0 P7 j5 y+ \6 i+ F CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9, 0 ~7 ~6 `2 K% d
  3.5779607873531995`*^9, 3.5780122169375*^9}]
) ^# p/ V( n; K- l- x}, Open  ]],
4 W8 H, E- w) z3 R2 g  H; b5 z" J  ?) T$ u3 W
Cell[CellGroupData[{3 c" j, {2 ?' ~1 R8 Z- H: d. j0 G
4 I* B: A7 v4 B0 r2 ~
Cell[BoxData[
0 |9 M7 n6 `& A4 X- @0 n* Z7 T RowBox[{"C5", "=", "Ca"}]], "Input",
) l, \2 G) w- j CellChangeTimes->{3.577920860671875*^9}],% V/ {0 G3 x6 v  v4 s- Y# {% z
% g  g$ }" R" y2 _* g5 I
Cell[BoxData[
, }0 w3 N+ [' L+ s* e" d/ c, j9 a RowBox[{"{", ' p) m: x" }3 ?% \' f( ~$ U
  RowBox[{
) E+ [4 T; }, L9 m2 z5 u  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",", / r  I+ [! G& H) e! V
   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
9 X" ^8 u  k# j% ]- w2 x$ w. @4 K  "}"}]], "Output",. b# W: r% q: w  p
CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
4 P  a$ a) ?& }  q  |2 ~) e  3.5779608137328453`*^9, 3.5780122209375*^9}]
) V- N7 M; A) p3 G8 W- b}, Open  ]],$ ]8 b2 M2 Y7 M4 G
1 O* n3 c. X7 |( O- o
Cell[CellGroupData[{
( _: w: ~% S" y( k6 G& Q3 y1 b% _3 M- v1 v+ r& T
Cell[BoxData[6 Q% ]$ Z! v+ `6 V7 m
RowBox[{"u5", "=", # ]5 C! N7 x* y5 k' q6 O9 k
  RowBox[{
% e4 w$ \4 S! I& M" j% ~  Z   RowBox[{"Exp", "[",
! d6 {, E4 q3 ?. {- z( d* J    RowBox[{
& C2 l% V0 s$ i3 a$ B     RowBox[{& Q+ b: a5 o% }1 e+ h4 Y8 [
      RowBox[{"-",
" ~; d) J7 P8 U. R' e# D       RowBox[{  }  V; D1 s! [1 X+ C
        RowBox[{"(", 5 I, ~, Y* J+ a; a6 R% B& p2 }
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
/ p, r& z. W+ O$ |( p7 t/ l        RowBox[{"(",
' K3 S: X5 T: h9 H5 h& C) s% B         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
$ p3 z6 y& u9 }% W- C) g8 j     "]"}], "/.", "DeltaX"}]}]], "Input",
$ o  u7 b  {* M8 G6 o5 o; B& B CellChangeTimes->{3.577920869375*^9}],
2 ?: ]: j% I/ ^: t3 e+ d, x! M' n: L3 M& L" L3 e2 z
Cell[BoxData[; |6 R& q1 t6 w# Q
SuperscriptBox["\[ExponentialE]",
/ ]5 B2 N+ o+ x# a2 n  RowBox[{"3.141592653589793`", " ", 8 z6 F# d4 T, R/ A& S) O
   RowBox[{"(", / |0 t9 e( A3 C
    RowBox[{" h. I. j% r0 K+ W3 `/ I2 W
     RowBox[{"-", 3 U3 Q* t* b) P2 {' t1 C
      SuperscriptBox[% l; |7 A3 `/ `% {) ?2 X# k' ?
       RowBox[{"(",
8 f* C& k' a5 b. s/ z        RowBox[{1 K- ]0 I; j9 v/ _8 N% a. [
         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
( O" H% j' M! Q. R     SuperscriptBox[
' D5 B$ c* b, s/ N      RowBox[{"(", 4 k/ Y3 h' R/ r! a5 O+ j. {. Y- N
       RowBox[{7 n( }1 |/ m$ h+ V3 ]
        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
: F& p2 w# j. R     SuperscriptBox[
  c" I$ \* \7 A. P" {8 S1 Z      RowBox[{"(", 6 t2 Z. h. I2 n! A- i+ s" l8 l$ I4 s
       RowBox[{
- k8 U6 F$ ]- V* ~. a. D        RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", + I6 Z. b$ z3 g2 F) Z
     SuperscriptBox[
& o7 P% }- N! w. I# f! S      RowBox[{"(", / j3 c" g1 i  ~0 ]" ?8 u1 c
       RowBox[{
9 ]9 A! w% p  O* U" M" {5 a        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
' @8 a9 o: B5 R5 n3 {     SuperscriptBox[/ m1 u# Y5 X; M9 _9 D6 W
      RowBox[{"(", ) @: V% p% B: Y% z* R$ q
       RowBox[{0 K, O7 i7 P' z2 K* T
        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", * T  [: _% s7 ~1 h; W
     SuperscriptBox[
$ B! w7 {5 _/ _7 ?. c) d      RowBox[{"(", $ k3 X9 H8 ^8 G- |- T8 g; K
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ; _+ F% s9 X, `6 b1 D' b7 ?) b
     SuperscriptBox[
$ f& k8 [4 i1 T1 L$ p      RowBox[{"(", ! q& g9 K" D, N- Q8 c
       RowBox[{- ?3 }  u; `: ^1 l- g" ?* r
        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 6 U( @. W# ?8 I2 g
     SuperscriptBox[
3 d% W: X* X* J/ i      RowBox[{"(",
9 ?. O% h( T$ t/ ?, @) m- ^, y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 4 {1 i9 P/ m* Y8 n9 R5 {* r8 W  X( g
     SuperscriptBox[
  }6 @2 G% ?6 x& V( D7 ~4 B      RowBox[{"(",
" I3 n; c$ F$ q% {5 ]       RowBox[{
- L! W5 a- N6 {, w0 h% B/ L9 b        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], % w  X6 w) `$ Q7 {& g  S8 b3 _- |
    ")"}]}]]], "Output",3 |- w  S( E1 Z( c' N
CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9, 8 R0 W: u  [; s! z; P* O# f6 C& u
  3.577960815043248*^9, 3.578012221953125*^9}]' I! d1 |5 z& f* R8 X0 l
}, Open  ]],; G9 `& f" X$ N+ K" v  P, ^! C

4 X' m9 F# W( h. m% tCell[CellGroupData[{
7 L$ H* h1 x' \0 f( U, G) e5 @: j: X% W& M/ w: [8 _
Cell[BoxData[
+ i3 \0 i6 ?3 s0 @& [% ~ RowBox[{"C6", "=", "Ca"}]], "Input",$ C9 K0 Z# y, m
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],. B* o" L; l1 s8 ^2 H
7 c4 |# Q9 F0 Q, {+ ]
Cell[BoxData[
) T+ }1 C2 u" |! N# @* x1 u RowBox[{"{", & N  k& U+ V, G! {4 t- n
  RowBox[{" f: L' x5 b3 h" V8 ]
  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
- I8 u4 j" @; ?) R( r/ Q2 y   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
, E" X7 p1 [7 q" p9 l6 L1 B   "0.494866`"}], "}"}]], "Output",3 M' R% Z$ n7 D) A/ E4 ?8 J
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,  u) i( ?% o; E$ d* e' |
   3.5779608373044868`*^9, 3.578012227359375*^9}], ?- l; g1 k5 Z4 d
}, Open  ]],- i# E' `$ X5 x) S( u+ J! [$ z

0 _3 k) _1 D" c! [# \  OCell[CellGroupData[{' q, k6 H. w' {. A  d3 ~5 S
8 i1 Z. |0 F# W
Cell[BoxData[2 H6 v: Z& B. J: P' n% G6 x  W" L2 ?0 C
RowBox[{"u6", "=", 7 t; H. [' U4 M0 L* b1 a
  RowBox[{1 V# G+ T- ~* o: d' i" s3 M
   RowBox[{"Exp", "[", 9 m. k; C7 b. m9 m
    RowBox[{
  s7 y# S+ s' \; b     RowBox[{
  Q6 ^, Z6 P" z; E* q; X5 m3 l$ ], j      RowBox[{"-",
% L. B7 I- [" w: o: c8 K4 J) n: b       RowBox[{
: J+ e; a$ \* v, }6 k        RowBox[{"(",
9 W/ _$ M, X5 F# j( p. e; T& j( S         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
; v2 v- i! q( `% p        RowBox[{"(", 7 I3 L' I% K2 M+ }& Q
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
( B7 `! ~4 ?7 w6 }8 X     "]"}], "/.", "DeltaX"}]}]], "Input",) I2 R# i5 U2 [& c* z  i1 j1 A4 d
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
3 J. Q! p( u/ K9 r& e& f
: a( C; r; P* |) q8 ?* ]' UCell[BoxData[
* L- m/ T0 }2 S6 S SuperscriptBox["\[ExponentialE]",
2 P! I+ O6 L* F6 l4 n8 L  RowBox[{"3.141592653589793`", " ", & ^: p8 O: W) w  \8 s3 v! s: g9 y
   RowBox[{"(",
" ?. u0 u- w7 R. j; \    RowBox[{
2 E& T5 j. z9 i7 G6 ]. n5 s     RowBox[{"-", - n5 S. U! q" Y4 E
      SuperscriptBox[; d2 y  s+ q' ]+ i
       RowBox[{"(",
* ^6 k+ w; c1 n3 _        RowBox[{
5 G7 o- y* I$ B$ J6 o% s5 f. H         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
" N2 O0 j. ?* d4 I     SuperscriptBox[" B8 R2 |- e$ H7 n1 M: V) H3 k% O9 X
      RowBox[{"(",
, ^  z0 f& o8 J4 p       RowBox[{
2 n  G* d2 ~" g. p, @/ H1 K$ S( c        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
; O: ]- k' W( m" p; h1 j" i     SuperscriptBox[: [/ d5 M' L$ p" F0 q) f# M, _4 r
      RowBox[{"(",
* M, g  X; r$ Q0 g8 m& m; f" C- [& x$ L       RowBox[{% J2 P, w) e0 b
        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
! A" E; e" P" _2 p/ U/ f4 c" M! {     SuperscriptBox[; Q) s; o( N- @; J# ^5 c' u
      RowBox[{"(", , C5 a, W& g. L) _
       RowBox[{! p: r8 {0 U8 A5 j
        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", , Y! _7 K* E) ]+ H
     SuperscriptBox[
+ E+ j/ x( Q' {. h* Y      RowBox[{"(",
# h  E/ Z0 U+ m; Q4 J       RowBox[{
$ h- W0 O! d# l& k- `7 y9 n        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", # s  n% f" B2 ]" W' L" {
     SuperscriptBox[
" I9 ?- H! b) a5 c  |6 l3 @0 `      RowBox[{"(", 8 H1 D  r& H2 b: e5 l
       RowBox[{5 A- R7 Q; J' y8 P9 }
        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", - n# g1 L1 O( n+ h1 }  I' Z; Z+ n
     SuperscriptBox[+ n3 _) k0 p  ]& S5 g8 V
      RowBox[{"(", : a! Z  I! i3 e; }5 L6 H$ q& C0 D
       RowBox[{. Y: ?  f3 w" B6 w! N
        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", / U) q4 M; _. y7 m( X  X& E
     SuperscriptBox[
# i) b0 [7 V1 O$ P  m1 e      RowBox[{"(", # W# W+ h& V8 `! U5 }
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
2 ~1 B  E& i* C# R( n5 s     SuperscriptBox[6 e: R9 }. f/ H, W$ `8 R
      RowBox[{"(",
* b0 `' y+ p1 v6 A       RowBox[{
+ _% L  l% h  ^" u% [: K) p2 c# [        RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
2 \( f$ i5 K3 f, |8 p" C1 N    ")"}]}]]], "Output",
( L& T/ R# N0 C CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
8 q8 I" c1 U6 J: a  B9 H: o  3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
, z+ w( G$ c) j0 I: w}, Open  ]],+ L- n6 U. O7 _+ e8 q4 S* L

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

$ _) U" E. Y. \8 x; hCell[BoxData[
+ }6 \. @& i, r! @7 I RowBox[{"{",   c5 z' v; D* i" ?
  RowBox[{9 E6 D. M4 ?: `& J
  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
) i, U. r9 R  R/ x   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
, w; S3 p0 A" {/ ]0 Q" F& i, r* e4 h  "}"}]], "Output",
/ m$ a6 K8 Z) k1 H  [. N: @: [ CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
0 |5 G6 B2 w# c: c) Z. f/ m  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
* X8 Y% c1 a6 M3 x, P/ A% ~}, Open  ]],
; d1 G4 ]& G" i" L$ a3 {( K6 x& m% H+ F3 f% ~; B4 n2 x$ q* j' _- y
Cell[CellGroupData[{
9 q! H7 T5 F+ E* C: N" Y- X3 @+ D; {: v- E6 e4 {6 _5 ^
Cell[BoxData[. W+ y: b4 Z4 t4 f
RowBox[{"u7", "=", ) ^- |! ~6 [& f5 m
  RowBox[{
! i4 [  t( E) L! f   RowBox[{"Exp", "[", ; b9 {3 z7 T, F1 j6 k
    RowBox[{! R) J2 G8 c. Y% }
     RowBox[{
( {  D4 w8 k% f' }1 k      RowBox[{"-", # b. z3 M9 p9 ^9 P6 @6 y$ d
       RowBox[{
& k: r5 L0 P  O6 A        RowBox[{"(", 0 ?2 A! C9 K2 y. d
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
; t; X* y9 j! t- l0 f. x2 F2 S        RowBox[{"(", ! S2 K& x- }! G
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
+ X1 @2 D  t4 x! i+ e1 I/ a: q/ s4 ^     "]"}], "/.", "DeltaX"}]}]], "Input",) T1 h& P0 t6 L5 T' g: i
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, ! x+ `9 S5 L4 C7 c% p8 G6 r5 ]0 ~
  3.57792132028125*^9}],
8 E" f+ X- f; y9 ]+ G/ q+ Q9 V/ p# o; L
Cell[BoxData[7 Z5 X6 B5 I* G* E- Z
SuperscriptBox["\[ExponentialE]",
' t+ P0 l* a% ~5 _# @$ g# c  RowBox[{"3.141592653589793`", " ",
5 k' n  N5 f8 T* v  U   RowBox[{"(",   I1 q6 H1 G7 ?& \9 C' R
    RowBox[{9 e+ _, Z) I  K1 d
     RowBox[{"-",
% M' ]0 w: w0 {4 A- L      SuperscriptBox[
0 Y) D6 g9 q/ w  F/ `" D       RowBox[{"(", % `/ j$ t" w" E% u
        RowBox[{
5 {" {0 y! H' o. a: I+ d  \8 x         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
" y4 B2 f+ G& ?     SuperscriptBox[
6 d+ I$ P+ {& ?9 U3 e      RowBox[{"(", 0 L0 M; T! s+ V8 m
       RowBox[{
8 h/ L6 d  v9 J! @2 X) V        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
8 x( I5 p: }! w2 h8 E' ?' @     SuperscriptBox[
: z7 f; c2 O3 @! b8 u      RowBox[{"(",
7 x/ u2 N' r, q( z$ Z. M       RowBox[{$ S* ~6 \% p) B# g
        RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", ) D8 I" D2 V0 {
     SuperscriptBox[. s  z, g  }& s# X
      RowBox[{"(",
8 I# ]& \" ?6 v       RowBox[{: }' r. d' f  g
        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", " V- s( n+ R" x, K8 f5 [& \
     SuperscriptBox[
0 r; A! x" n! `      RowBox[{"(", 5 [- a, R; ?; h# x( h/ G
       RowBox[{  U8 P+ j8 ~. i: _* b% ?, t, x
        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
( }% g; D/ o: _' ~  I7 d     SuperscriptBox[8 f. f2 H& b* A' A! s3 y3 ^5 r1 ?, C
      RowBox[{"(", + S$ u: i* E- c1 r3 e6 O+ C
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
; h, }& u1 b, P: K     SuperscriptBox[, D+ J4 X6 }4 B/ @4 L
      RowBox[{"(",
: @7 N8 W' I# a* M3 o       RowBox[{6 ~# d& K2 L$ u3 N" R
        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", # j" p4 |( ~4 a) z2 n
     SuperscriptBox[
( q% g# }9 u' P& l2 Z1 i      RowBox[{"(", $ t/ E& K* t" s: ?. N
       RowBox[{" E/ p( K# u& v2 r- u" p0 n
        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", 9 N- R# H( k0 j+ l% X; o
     SuperscriptBox[
$ [) y; z9 P! G; A! b3 _      RowBox[{"(",
& q' ]* @7 D! N" I" E) f7 E7 A# Z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
$ O; `7 L! X( q- T: s+ E    ")"}]}]]], "Output",
& |, n8 g+ X" m( n# T! z6 w CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
+ m! t$ [. T4 L" U  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
$ ~% X: v8 c. H! l+ h  3.578012251359375*^9}]
4 B  R6 P; ]: d4 b0 S- N' X$ k+ K}, Open  ]],
, G4 f, P; K9 ?9 l4 O6 l% Z& C: r
* C8 \7 C3 r/ x. c2 W/ OCell[CellGroupData[{
6 }; X1 u8 u# N: i' ]0 |8 }% h" P$ h7 k
Cell[BoxData[# v" o! G, q5 P3 d
RowBox[{"C8", "=", "Ca"}]], "Input",) u4 o3 L: ^: F
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
& a7 A( v* @6 E  3.577921316125*^9, 3.57792141421875*^9}],
8 Z0 T* {9 P* z* |5 n: t! _5 N" z! }8 y% [6 p9 K, R, H
Cell[BoxData[
1 C. f# o0 T- J8 V1 D5 p5 B RowBox[{"{", ) v! h% p0 X/ r; F' U
  RowBox[{
: {; j: R! C: \2 {0 {% e, E  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", ' @5 g( J! R8 Q% k. S: l
   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
. K" h9 c8 |5 C- R  "}"}]], "Output",, V# b& A3 T4 Q7 {
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
$ Z, I+ q. u3 k' j/ G  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9, 5 R: i4 P6 S& u# t5 A
  3.578012260515625*^9}]+ o/ }& t' t# R! \
}, Open  ]],0 j: i2 s- u7 ^" z# M

+ {8 U! e6 g2 x; g. KCell[CellGroupData[{
$ |7 R$ ?2 L- Y# h4 ?& N1 \* _: i# k% H
Cell[BoxData[# z) T- i4 @$ x1 j) v
RowBox[{"u8", "=",
: h% ?! r' N% N0 l6 l# {7 o$ ^& e8 K  RowBox[{
& B2 z) j. y, Y  ^# F) c   RowBox[{"Exp", "[", & J0 X% S3 N* {9 |- `; [
    RowBox[{* `0 A: |! O' ?0 U, |1 M
     RowBox[{
# {+ y" a! r) N; B+ V      RowBox[{"-", 4 e; P$ |! X( p4 Z2 _& b5 N* H
       RowBox[{
9 e7 Q1 V% i7 S. T# @$ q        RowBox[{"(", & ?6 H" I* N) [/ z) |
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
) j$ K* U& [& x        RowBox[{"(", : ^& ^+ n% C8 ]* y1 {
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],) x% X5 W; p0 y+ u
     "]"}], "/.", "DeltaX"}]}]], "Input",' @- n1 \" r5 o% y1 v7 L2 _' e/ z
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
4 O1 `- ^# q; i& Z1 I! R4 C  3.57792132028125*^9, 3.577921416921875*^9}],
, {" Z+ W. p1 R# r9 W3 `) s* c2 ]$ {$ d7 t* x, f+ H
Cell[BoxData[5 b* d  u  x% K9 _/ F6 c
SuperscriptBox["\[ExponentialE]", 1 Q0 [2 k  j# I6 x
  RowBox[{"3.141592653589793`", " ", ! J" z# v2 T- p- l3 S, ?! E
   RowBox[{"(", 4 a9 @% a0 o1 Y6 ^* N3 _
    RowBox[{
- Y4 S1 O1 r. M4 K) z: L     RowBox[{"-",
6 w( @- I( ~& J9 K! \      SuperscriptBox[6 Y: w0 a0 f. B( p. `$ v' @' `
       RowBox[{"(", ' Y) h4 W7 l- x0 X, B9 U
        RowBox[{' H. \; k7 f& Y5 C" h! [" x. H' T
         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 V3 Y5 ]: Z, B1 J6 ~4 Z9 Z8 G( F6 C
     SuperscriptBox[5 y" \4 X/ d/ ]) H
      RowBox[{"(", 7 |0 o6 E+ h; l# x- O
       RowBox[{* U5 W  r0 ~. }3 e; Q# p, M5 I# G
        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", 3 }1 \% A' h' {& _
     SuperscriptBox[
4 l8 }7 T! d- l9 W9 V/ D      RowBox[{"(",
' f  x* M, Q; N, M- K       RowBox[{
, R$ z/ X  ^- F  B& m( X, G  H        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", 0 d* V* f6 T/ h0 f$ ]1 V
     SuperscriptBox[
! {* D" B) S$ y      RowBox[{"(",
+ V5 O& {/ P7 ~& U* T0 \# f3 h       RowBox[{
0 }, N& v0 @* o0 l        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
- [) _& [# _7 B     SuperscriptBox[, b* X4 w8 {8 Q
      RowBox[{"(", % {- r0 [% b) ?: l
       RowBox[{. C9 |( n, ~) Y# g: N0 ]
        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
' `) k- I  n. K% k) A# J+ O     SuperscriptBox[
7 u( c! O& B0 U      RowBox[{"(",
: c+ h+ X3 y: Q( ?; c1 Q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ; [- f+ }6 \5 a  t6 I2 v0 \
     SuperscriptBox[
9 Q3 H! O6 q6 S% Z0 D3 H% L      RowBox[{"(",
, h) y( u3 H1 v$ Q+ W! a7 \       RowBox[{
8 b8 m, ?9 l. N8 R6 a9 u- A        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
- |- u* N( u% R# F     SuperscriptBox[
" Y% X6 E4 z& q. D; |- N      RowBox[{"(",
, J4 E' i3 l3 R+ S       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", $ G8 x& v) {& N1 g
     SuperscriptBox[! Q% Z' u% s/ I  j. n
      RowBox[{"(", 2 g. y0 V% s+ h( L- g7 J( b! F
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 4 b& P9 n& F5 A/ b2 L
    ")"}]}]]], "Output",) S4 b- v( _  _* B& u4 [- I
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 6 D# G7 u1 A3 N' c
  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9, 8 e- V) N: U+ x/ t% o
  3.5779608945565863`*^9, 3.57801226165625*^9}]6 B3 f& M! R3 H/ q% p
}, Open  ]],
' T" z$ N% V+ `
. ^+ i- a& r: q1 m8 Y& r: i/ b; v$ xCell[CellGroupData[{
9 J; S/ H4 ^. w. Z; \) o9 c5 c  }, y: a; w$ A+ w$ ~  v
Cell[BoxData[
! j# B6 f5 L& e RowBox[{"C9", "=", "Ca"}]], "Input"," t/ z) J8 p9 ?/ |
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
- j' o7 L  R. N6 {' g5 s, [6 G  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],: ?) X8 @- g- g- V) e
. f) ~- l# ^" y
Cell[BoxData[
8 p, L1 A1 r. A1 h3 X$ m1 ~  U! S RowBox[{"{",
! O  G5 F0 u9 J+ j9 d0 J  RowBox[{# m" O7 X4 a* \, T. O; X
  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
/ ?& r: I7 _, V8 j! w   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
8 |/ I. u7 l% y% e4 P) l  "}"}]], "Output",
& p$ Y- e/ Q  J' ?# r# l CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 7 {( O3 h. x6 s8 ~+ X& C/ w
  3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, ! M; m7 ^8 x) Y# H/ M0 f
  3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, " y* m. H- _' b, Q7 s# T" n, W* P8 d
  3.578012268234375*^9}]
+ R- W4 G6 T3 M6 k% J+ v}, Open  ]],
1 g" ?% m& O  U( `2 _2 T" k' n
! y! N+ m, c5 n* yCell[CellGroupData[{0 J! k, F5 o% P; u2 @- A/ k
5 N* x+ J0 O, |# A" `
Cell[BoxData[/ d( s. E# G0 w3 N3 W( @
RowBox[{"u9", "=", 6 W' |$ l- b8 K
  RowBox[{
; d- Q7 O' N6 u, ?   RowBox[{"Exp", "[", # l% v  j( w& m' W' O& H& Y
    RowBox[{
; p6 I9 D1 J# }/ L4 _4 K2 m     RowBox[{
! W: n( G: }- b+ U* S: f7 @      RowBox[{"-",
2 v8 X* Z) \' p$ }: e       RowBox[{
2 k0 w2 ]# U1 ^, T8 s0 B        RowBox[{"(",
7 K" P4 s3 }4 V         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ; h; t5 I1 t) g, y" L2 g( g
        RowBox[{"(", 1 n3 d: X# Q- g
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
% }" _2 j: ]) W* H     "]"}], "/.", "DeltaX"}]}]], "Input",& _  U; {5 X, P+ d( `9 L6 H
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
2 V+ j. m( l+ s* ~6 z' b8 C  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],
5 T& a9 L# R+ V* F4 y: z6 V1 R' k  [) Z6 e
Cell[BoxData[
" s  L' f; d, i SuperscriptBox["\[ExponentialE]", , [8 p: ]. g( i( Y' [* Q
  RowBox[{"3.141592653589793`", " ", + e# A. Q) X1 z2 F3 O* J  E6 |
   RowBox[{"(", # @  B5 w4 a/ N! C
    RowBox[{* H) k' I5 K# a4 E$ c; q& t9 J/ y
     RowBox[{"-",
/ u+ B6 Q! W/ k& k" @. s3 G: u! c      SuperscriptBox[
) A, P+ Z+ |' P- I# Q       RowBox[{"(", ) X% U. m* R  f: u5 u3 q# \
        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
6 T) Z2 ~# {9 j6 s     SuperscriptBox[. W% @* y6 a: G" I! I# r! S& Z
      RowBox[{"(", 7 d& v' Y" {) Q! y4 ~
       RowBox[{
3 O' e, g" m$ {/ F+ O% d+ ]* i        RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", : `" [- X  k* ?) ^7 J# M$ `3 a+ o) E9 |
     SuperscriptBox[
) |$ \3 }8 v: Y. b# `      RowBox[{"(", - e9 p8 B5 _/ @" I! W' z3 k
       RowBox[{
- r4 j/ a; J  @" a& o# Q        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
7 [' \0 m* I" W2 w" a4 C$ L2 l     SuperscriptBox[
4 a: f9 T6 ^/ ~0 Q; s      RowBox[{"(", $ {# x% }: u/ M0 l
       RowBox[{+ u. S0 X) z  M4 T8 O
        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
" @3 x9 q5 Q  k8 ?7 P# N( H     SuperscriptBox[2 g6 s3 m  G8 l4 M/ j
      RowBox[{"(",
" [1 Y5 {0 o( k, a/ L. U       RowBox[{
; u8 @+ ]- ~1 p        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
5 y) z! N" |" ^- s5 j, J2 h     SuperscriptBox[
! }6 K, u# F! o! K: f  X5 w$ i2 \6 ?      RowBox[{"(", 1 n, J* ~0 E/ s- d% c
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", & l# W/ B$ V9 e, J2 t
     SuperscriptBox[3 m1 x, ], w3 p# h: v1 }6 Y
      RowBox[{"(",
) P$ T# d4 [4 Q1 F0 z* n9 D       RowBox[{" x9 I) L: N1 d4 z
        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", . W% v; S6 ^! _# u
     SuperscriptBox[3 v: l& Y5 W$ {; \# L7 r/ O
      RowBox[{"(",
' y0 L* P' k! I9 y& Q$ }       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",   r  J: _( L% ~
     SuperscriptBox[
4 e+ O5 O. M4 E: M6 i      RowBox[{"(",
; O0 Y$ F* j% }4 J$ }- H/ u) k9 g       RowBox[{7 r/ r3 Y6 R7 _
        RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
1 I) {( m+ B, F+ J0 g+ W    ")"}]}]]], "Output",
4 `3 J+ S+ Z; V  O. D CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
. [! o+ R$ o( ]' I% H2 \  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
1 O3 \+ o% {& |) a  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
# `/ t9 X5 Q3 |& J& ?) k- n  3.577961530421959*^9, 3.578012269125*^9}]
1 d" M, x; c, d}, Open  ]],
2 U8 m* l6 L3 @' w+ c
. w0 s9 }% r8 G& u8 R- H$ UCell[CellGroupData[{
  G" g' j; x( {: z! f* ]' t; [" |/ l+ {5 v1 W
Cell[BoxData[{
) f5 f$ c9 j6 ] RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]", 6 J3 n# ~8 _0 }
RowBox[{"u10", "=",
2 ]. I! @: m6 _6 {- c( w0 t% A6 P7 U  RowBox[{7 }0 C4 Y, Q- J: `
   RowBox[{"Exp", "[", ! N; P/ h$ P$ H) f5 D- \
    RowBox[{4 M7 U7 V- U% h5 P7 Z0 x$ h
     RowBox[{
: K% B6 M1 `  I: R      RowBox[{"-",
! `, F* a# a. U       RowBox[{
4 M0 l! }( O: _# J        RowBox[{"(", * ]" T) s6 {  @4 Z# s
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 {- M4 U. \% n5 x& s1 a% j& w
        RowBox[{"(",
, O& \* P. C: _+ p. B8 M: r4 y2 e7 }         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
/ \& ~! i, f8 X3 {5 w; i) t     "]"}], "/.", "DeltaX"}]}]}], "Input",
% `2 A' [4 z' Y/ G% ]; | CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],) i6 g& n% [$ }: o4 S. ?
( T: y# v" h7 A- R2 t* ]
Cell[BoxData[) M* k: u) r! o2 ?% o
RowBox[{"{",
5 l* E$ f! b2 L6 I' b' F  b! v  RowBox[{2 @8 t! d: U$ a1 u: j* H0 p
  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", 5 k3 q) f8 \7 O  e9 d
   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",3 K) p6 t. x: {+ J8 P: T9 M
CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
" R) L/ y% n! I! O2 Y, o1 j" N6 X- x+ L5 B% P7 m6 S# w* [
Cell[BoxData[
! V9 }/ {& Y/ X0 B! p SuperscriptBox["\[ExponentialE]",
3 L8 P9 V2 [( Z, D# G8 z  RowBox[{"3.141592653589793`", " ",
  [6 d' c5 S5 g+ F& Y/ s   RowBox[{"(", ; J, g9 ~. q; N/ E# V
    RowBox[{
7 v  ^( W# s5 o' B+ L     RowBox[{"-",
$ J$ h- l) T6 ~6 X$ g5 w& z      SuperscriptBox[
# R7 P7 h/ {6 t5 W       RowBox[{"(",
( H8 ]6 a- X) w" [' q1 u        RowBox[{3 {- H6 w" @, J  x+ q2 h
         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 i, L- l8 p9 v. C) ~9 U) r
     SuperscriptBox[- z% B6 d, C( N4 [1 o0 @( s3 U. h
      RowBox[{"(",
6 l6 z) U( N: D: z; g       RowBox[{
( l1 }" l; x: A6 L) Y9 N        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
3 R; _2 o7 g0 u     SuperscriptBox[
& L1 `- c* B' F! O' U8 d      RowBox[{"(", ' I6 ?" D+ y- o) {7 p5 x
       RowBox[{
) \/ y1 g3 Z' ^! l/ {3 b$ E        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", ; ?. |3 K- ]) w4 n1 j* E: m
     SuperscriptBox[
8 z! t9 |8 @- g% \      RowBox[{"(", 8 w3 L/ f$ b  e4 i* O
       RowBox[{' E. g1 V: n5 s7 ?" A" b
        RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", & N" b/ r. i% a) W3 i' W
     SuperscriptBox[( O4 r4 X) x$ a: o6 l- Z. o  n
      RowBox[{"(", 0 a" r! [8 e- T" ^3 M0 s% a
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", . Q% {5 h4 A9 k# q, U* S0 I/ [0 k; U4 p
     SuperscriptBox[
0 R5 R; m6 @: P& ^$ a5 j      RowBox[{"(",
+ r, A2 m2 m( x  M& E3 k       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
# Z/ m8 k# S5 n1 d1 U6 j     SuperscriptBox[' f' O( |4 ?$ r6 q2 g$ C
      RowBox[{"(",   z* h$ h7 G- v6 W
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
& F5 j  E" J9 {( _; L; B+ B, I; \     SuperscriptBox[
( c( L1 d1 i- v( i# d( M5 A; z      RowBox[{"(", & n& A+ h( X3 k. d
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 e0 c2 K7 g$ q) n: {
     SuperscriptBox[
8 G1 m1 ?! @" e      RowBox[{"(",
; [9 q: v  k9 f# s       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
, M' x, a) [& T    ")"}]}]]], "Output",
8 g4 M% V( A3 W CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]" V+ c8 W) ~. P
}, Open  ]],* Q* Q6 }+ L" b( d7 m
& Q$ H" L3 Q, ~7 I( Z( ?, }; l$ \7 v5 R
Cell[CellGroupData[{0 W% w% A; F' u  {2 H& u
) g: h+ v' \( e& R* L% ?
Cell[BoxData[{
8 [: b$ O4 H+ Y! E! z RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
8 I% \; b7 W, p1 ?  _2 _- ` RowBox[{"u11", "=", & a( M  g6 b# H/ r+ t1 e
  RowBox[{- g9 r, O' e+ F) S; Z
   RowBox[{"Exp", "[", 4 @+ B2 I5 f: b9 z
    RowBox[{
( w/ I1 C1 r- z% C0 J. x0 S     RowBox[{7 P* w# B1 ?, F
      RowBox[{"-", ) m8 ]/ ^7 ^- Y% N+ I$ g& T  }
       RowBox[{. J- t: n" Z# G
        RowBox[{"(",
( I- x# `& Z) ^) C7 f8 I2 h( A         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
. P+ u- B& S7 G1 W& n" a        RowBox[{"(", " k" q+ }, _1 N" R, B, w4 T9 a
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
1 h) r- }2 _7 l2 y4 [0 Y1 S& N     "]"}], "/.", "DeltaX"}]}]}], "Input",8 C0 ]4 [+ q9 E
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
4 z3 K8 g! ^: d, p- \, k  m' Y  3.57796154237158*^9, 3.5779615434011817`*^9}}],
- d% h; ~; Y1 w
- |9 a& v, g% \, yCell[BoxData[* I+ y% Y& [4 b, B
RowBox[{"{", - n9 y7 O& G0 `0 h1 J& b" z
  RowBox[{
6 N3 M0 {# \6 ~/ n9 {$ ]6 A  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", 5 W+ N" l) H& D) H6 r( g
   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 9 V" F; v1 j& M8 X
  "}"}]], "Output",  m/ I. ~8 ]! V% `0 q' O$ X
CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
/ K9 N, R% J; s/ R" I! L* r+ N: f  3.57801228203125*^9}],# N5 B) [/ X/ R; v8 v

( a+ z3 t2 @! Q3 i+ I2 _Cell[BoxData[
& m) T# A& L7 Z- y" \; [ SuperscriptBox["\[ExponentialE]", 9 F! f9 n0 i% C2 u. s2 T1 R
  RowBox[{"3.141592653589793`", " ",
$ Y- B7 P2 U( n  Q   RowBox[{"(",
3 r3 Q: e. @8 P: f+ [4 H9 X    RowBox[{
# o2 I/ U9 v  @     RowBox[{"-", * R. A" ]" ~  D
      SuperscriptBox[: q: s+ l. `3 S  a( C
       RowBox[{"(",
3 o: K$ d8 k8 Q8 B        RowBox[{2 x! ]7 `  f9 R6 ?2 r4 D( u
         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", 2 I/ u; [: @$ [: I5 i6 `& D3 y
     SuperscriptBox[8 j8 ~  i1 I4 l$ ]1 r4 Y; E
      RowBox[{"(",
! |/ r- S# p8 j       RowBox[{6 ~8 W0 U) H  g7 S
        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
3 V: [' D8 t3 q+ ?! i6 I- ]     SuperscriptBox[6 M  x3 j: ~9 P5 I/ n3 A% i
      RowBox[{"(",
6 g0 O( V! v3 A' N+ y! H       RowBox[{8 R- {! ?, _' i: p6 W% k
        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
. G1 \. d9 ^) E# [3 |* [     SuperscriptBox[+ y% G' f! I3 B: B. A
      RowBox[{"(",
- ^- A# `2 G& j       RowBox[{
' |9 n, u4 ]% ~/ l7 I        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", . p8 C! k9 w) c) ]/ Y  G9 D
     SuperscriptBox[) r, k5 ?! i6 L
      RowBox[{"(",
& f. [1 V0 S' }, I# z& K) Q  |0 ?       RowBox[{0 X/ o6 f5 Z3 b: C
        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
5 c3 z8 e8 x# J% G     SuperscriptBox[5 c+ d7 K) v  C! V( ?7 Z( |
      RowBox[{"(", 8 p; L4 E* [3 e/ n
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", . i' N$ x+ B/ V1 q% q3 ?0 |
     SuperscriptBox[
9 f/ a# F" M: n* C7 f3 g# b+ a0 M3 u      RowBox[{"(",
8 W. [) [. ^) W  P! x9 J/ o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
" x) Z% p6 \) Y% v/ p( g! L3 N. c     SuperscriptBox[9 ~4 [; T; ]' ^" t2 F' j/ p, l
      RowBox[{"(", * e6 _7 b* d+ O/ N5 K
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 6 y# H; u) ^" y1 H4 [: T
     SuperscriptBox[
: w6 G. J5 x, y7 x, p      RowBox[{"(",
% p. X" d* P& c6 J' F$ R       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
% M% M- |5 a4 o1 }2 {8 \    ")"}]}]]], "Output",
. K4 ]/ E1 K: y. y CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
- u' G$ A/ t5 r  3.57801228203125*^9}]
5 H5 |& b1 B% z  h% H' g}, Open  ]],
2 P: e6 ?6 c1 l- p3 a' J+ l: T. s4 g, E5 Y2 |  ?* B
Cell[CellGroupData[{
$ ~; ?8 i3 [" \, z- Z% ]
; s/ Q2 z3 `5 e3 mCell[BoxData[{) N2 j0 _! k% d2 |# X7 |
RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]", ; }# ?4 A. b3 B2 ^6 s
RowBox[{"u12", "=", ' i" J' f3 O- T  s+ J7 k/ \! C
  RowBox[{7 b  O% c0 B! z& x
   RowBox[{"Exp", "[", + f8 C8 o/ W  u
    RowBox[{+ Z% P& ]$ s7 i. \+ o& ?) I8 @( M
     RowBox[{% D- `& h! o: O! u; h
      RowBox[{"-", # N# s4 G1 w( ]. ~
       RowBox[{( ]9 E" j" i3 I
        RowBox[{"(", 0 }  W- C. T* q. m& s  U8 P) q- I
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ( |) `2 K) t2 L" l. ^; c
        RowBox[{"(", 5 y& j( G* E* }. e+ y, b0 K5 U
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],4 i) t6 A$ Y' ^! c
     "]"}], "/.", "DeltaX"}]}]}], "Input",* ?- E: H# G  A# Q, Z7 u$ N
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {- Z( q) L2 w4 F, ~
  3.57796154237158*^9, 3.5779615576284065`*^9}}],
$ ]" @' a2 c4 \% z; C/ \$ ~: N) D0 I8 y1 |( k' n4 i
Cell[BoxData[
+ ?; ^. y7 X; o0 g/ R RowBox[{"{",
  O- ^# @* m+ _3 L, Q  RowBox[{
% S) V0 `" g2 ~: U  "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", ' s# d) h6 L9 H
   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
5 A1 h9 Q7 E/ A% U* ?  "}"}]], "Output",) y+ y2 c0 i. f7 v
CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],
" D, i5 F2 g: Z; t8 w5 M5 w7 ~  A5 h; m, P
Cell[BoxData[
+ P+ j( v6 Y8 N# H1 G% u SuperscriptBox["\[ExponentialE]",
0 A/ O2 R2 Q5 R/ Y( L# [9 r  RowBox[{"3.141592653589793`", " ", . {, G0 Y7 `' r% w1 L0 U$ L
   RowBox[{"(", ! P8 A- B- m' X& a, h5 ]' h# x
    RowBox[{
+ F; U! B& U, I     RowBox[{"-", ! i3 `1 X3 B* }( N& d
      SuperscriptBox[
8 X$ Q9 W; T' j       RowBox[{"(", ! |. e7 {9 N/ O2 t5 N$ Y
        RowBox[{& Y: q6 C) h9 _+ \' u
         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
# z! M* o* _' S8 c     SuperscriptBox[7 ]7 }' V+ c; B# [. n3 n. h
      RowBox[{"(",
! Z3 w+ r- p0 H' u7 k       RowBox[{
: B" q1 U0 z; _6 s% S        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", ! t, `* H' P+ M. `& q
     SuperscriptBox[
% g/ |" A) c( r; R. O) `( T" }      RowBox[{"(", 1 c- `' H' _" Z
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
9 K; a3 s2 v' H' r: j+ z; T( ^     SuperscriptBox[
. b% M2 r1 m  y; j7 p8 x) p      RowBox[{"(",
/ C9 h3 `  {" u       RowBox[{: o2 E6 v9 `$ A) U# X5 T# j
        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", & I9 [2 ~# s8 x. [& K, `' r! E
     SuperscriptBox[
/ `/ t; e$ U( \5 ^% x: F$ O      RowBox[{"(",
1 T  e  J& n1 y  z% g% B       RowBox[{. }  f; ?) ]5 T9 {4 V/ ]
        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", ; [/ z- F3 z) R
     SuperscriptBox[' B* B7 q. h3 f" y' p) c. I
      RowBox[{"(",
( i8 L0 R* q# ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ' h+ N  M& Z: C
     SuperscriptBox[
/ s0 K$ q% t# Q' {% N. f4 z      RowBox[{"(",
$ Z2 T5 ?+ H& |0 k1 y# Y3 q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
/ i* B% ]2 t+ s2 _7 D     SuperscriptBox[) W. q7 H3 T) |. p. o! N
      RowBox[{"(",
9 p/ O; {* g' G' e; }3 b" `       RowBox[{
+ M. u1 }( J+ k        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
# t, l; U# l1 u+ c! t     SuperscriptBox[9 a* r* @# ?% z% O
      RowBox[{"(", ; g! b) G  q# ^; C7 m& [% b( E! [
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 5 t& A" S3 _6 `* A( }  x
    ")"}]}]]], "Output",, W' E% T8 L) \* k# M6 ~
CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
6 X/ @, M1 v3 m" S8 X. T% }}, Open  ]],! }# ^) Y) i2 F0 r  e1 g& ?

$ W. Z  @" S9 S& Z2 [  Z. u, A9 R( KCell[CellGroupData[{
; O: i( E: p! i* W0 N( J! m5 a' u+ H  V
Cell[BoxData[{
: f7 C" j) b/ y+ ^4 A4 N6 e+ U" Z RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
, E1 G3 L) \4 s* t6 {/ D) W RowBox[{"u13", "=", . t7 _2 B9 R: `7 Z" u
  RowBox[{
, N" c# p* L8 E& h3 p/ T* l   RowBox[{"Exp", "[",
$ W: w" t* L2 v0 M# {5 }7 U    RowBox[{. x# @3 N% ^- O$ R
     RowBox[{5 Q) K+ H3 i! F/ o% h4 j
      RowBox[{"-",
' w" `* B/ r/ n       RowBox[{2 d1 y$ A7 `* x% `2 Z7 o
        RowBox[{"(",
$ M, C% i  @  N         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
4 Y  I8 V" x6 c, ~) O        RowBox[{"(",
) F$ @4 I' p1 p. d         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],, `4 B1 ~3 I9 R; Q. `; U
     "]"}], "/.", "DeltaX"}]}]}], "Input",
, G: B% ]6 V  H( B! I9 o) C CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {/ F# |( {! w; Z! R, x. I7 L+ K4 ^' U
  3.57796154237158*^9, 3.5779615599684105`*^9}}],
  I& s( E, z- g6 E
7 N7 h/ \0 a+ `+ m% kCell[BoxData[* \3 {. w( y6 O
RowBox[{"{", 4 G8 c- v' r- ]5 O& n/ [" w$ ]
  RowBox[{
' ?- u3 y  E, X& d& ~* v  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",", 8 Y" w- b. b5 O6 |4 d, b* y
   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}], 2 b. f4 U) z5 I% N; o- T
  "}"}]], "Output",+ Q3 K- v# }8 p, }6 E# G2 v
CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
) Q# o* }7 |3 `8 n
" i+ ~. \' i& eCell[BoxData[
( p- _' R* \" ?( x/ [& ?. d- ? SuperscriptBox["\[ExponentialE]",
* w7 ~. g2 _6 O* h9 ^  ?* ]% j- `7 L  RowBox[{"3.141592653589793`", " ", 2 H7 m+ P4 C) H' d
   RowBox[{"(", 5 D1 E: o/ N8 L7 w/ L
    RowBox[{& x5 v6 j5 R6 M* h# \
     RowBox[{"-", / R! O+ S, j# s6 o- P% _6 g( _
      SuperscriptBox[& F! y5 t/ m& P8 @3 W3 Q. U. g4 F
       RowBox[{"(", 4 F' i8 V( \' ^6 ]' D5 Z" h4 U
        RowBox[{6 ]% e3 ]0 J5 D  k* w
         RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", $ d& q$ J& r# G+ e; G
     SuperscriptBox[
; P0 e! e1 [7 U8 D: Q8 I      RowBox[{"(", ) ~* q& c6 W( T$ l$ ^1 G1 X
       RowBox[{
( |( R9 k. F7 i8 T) \        RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
3 e1 N/ I: }) ]" u1 c     SuperscriptBox[3 `; `( `& ~: {+ _" Q0 |2 ]; s
      RowBox[{"(", ! `/ e* O: p: M. J2 {+ t
       RowBox[{3 O6 r+ G9 o; O$ J/ O0 g
        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", , S4 _& o' P1 ?9 T' w
     SuperscriptBox[4 U3 |& R6 G/ C! o4 ]
      RowBox[{"(", 0 M% [5 t8 h8 v5 P
       RowBox[{
( I8 W0 N' C4 H8 M        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
5 e* g5 N0 a0 P     SuperscriptBox[9 j. X! ^' R/ A+ F$ R
      RowBox[{"(",
8 q, ^4 L- a, M- Z2 s. e       RowBox[{4 T3 ~1 I$ O2 Y' ?6 l
        RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", . y( L, n# B: \, j% q7 Z, s% ~
     SuperscriptBox[
7 R/ [+ @: j7 [$ s7 B1 y" \      RowBox[{"(",
' C9 m' [9 y8 H2 l       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ( j  X  G0 F* Q  O
     SuperscriptBox[
, X; H) ?* e$ q6 [6 i0 i. P      RowBox[{"(", ' Q6 H4 b- |0 x; ]. I& B
       RowBox[{
7 g7 y: M  \# g* ~# ~0 D        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
0 b3 m$ u; ~* `9 ]  d1 x     SuperscriptBox[7 r& c" j# [& o! ]7 R4 z+ Y
      RowBox[{"(", & y# s; p+ T4 _/ N$ |
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", % x8 Z- R$ T3 n4 `4 Z( L
     SuperscriptBox[
5 ^0 U9 t- G2 W      RowBox[{"(",
! g7 |% d- G$ l/ t; x5 K       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
5 u; X( J/ O/ n( s: {  x    ")"}]}]]], "Output",
+ s' [) U  f) H- v4 ] CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
0 K1 \. K5 K! `4 G; ^! r}, Open  ]],
4 E2 @# k' [( M: [8 J7 Q
" A7 z" B  l) ]. m5 t/ HCell[CellGroupData[{
' Q, D, O% T- b
& c  y5 }- c3 e$ k2 CCell[BoxData[{$ z( P* s9 R# ]) x$ v# u
RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]", , Y% @$ ?( k/ t: O% R% F" `
RowBox[{"u14", "=", " [( o( F; Z% Q( [
  RowBox[{
& y4 l% D( r. R0 I) [: m   RowBox[{"Exp", "[",
- a2 T$ n  i6 l9 R" o" U    RowBox[{/ |+ g9 y3 G* [% n3 B, w* S
     RowBox[{' r6 i* ?% n6 [
      RowBox[{"-",
$ }& ?5 P' G- X( r6 U       RowBox[{5 h# v6 e2 {' E% q5 |+ d
        RowBox[{"(", 0 k% m  Q0 Y: w- t% v4 ]
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ( W6 b3 m5 e" w( C9 |: F( ?5 @
        RowBox[{"(", 2 o! w; e7 g+ Y" E
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
  J6 ~0 t4 `- |! r2 G     "]"}], "/.", "DeltaX"}]}]}], "Input",% @! u; L# D$ U& G8 `5 C1 @
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {6 F6 |$ i, q* U7 [9 s4 d. g
  3.57796154237158*^9, 3.5779615663176217`*^9}}],
7 Z' _. a6 J  i4 l) j& o
) @* G" \( F' x% W$ h, dCell[BoxData[# H  t. n/ d/ i7 J2 y; P
RowBox[{"{",
1 W/ z& U' D- }  RowBox[{
; W8 Y8 Z* S: o7 b  o& \  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
: _  D# _' I3 t% P+ e/ s/ p   "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 2 C- g. V8 G6 T& R' _
  "}"}]], "Output",
) O* i( c  A0 r' L. r5 b/ ^ CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],+ b* _1 g6 v& M, d2 ^* O) x
  I: S3 q0 C! ?3 g
Cell[BoxData[
7 ~! u; }/ o0 r' y) S' U SuperscriptBox["\[ExponentialE]",
2 X; {0 J. F& D  ]3 ~0 s, j  RowBox[{"3.141592653589793`", " ",
1 T0 m+ `. _% c( b( U- F1 L   RowBox[{"(",
' D8 [- h) a1 K; g. }! x& x4 t0 Q    RowBox[{: |' g& X- s5 N/ D7 u& @
     RowBox[{"-",
% u) O' h7 j- G+ u  \, q. X      SuperscriptBox[2 d  s1 w% V6 s4 N4 N
       RowBox[{"(", % g3 t3 \; |; z0 X8 F1 }) U+ ~/ o' U
        RowBox[{
9 Z5 _0 a4 d% O+ y( x         RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
. H5 X. `" v. c/ f; h! S     SuperscriptBox[
6 W' X  ^2 C; p3 E      RowBox[{"(", 4 v& D( a. J( D2 c. B, c
       RowBox[{: h; \5 T3 D7 i$ b. G
        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", % ]. b1 f$ x2 [3 E3 g% `; y
     SuperscriptBox[0 [, a2 j, x' j- ?& N% z0 I9 ?
      RowBox[{"(",
  @* Z( F" I% U7 |4 Z! c$ a1 ?- g       RowBox[{
; E6 E9 N5 Z" i# y        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
" z! s6 F2 U: h3 \- f- A     SuperscriptBox[! l3 y, s- l1 Y
      RowBox[{"(", 2 w( B- W/ T9 Q- r  |& u
       RowBox[{6 L0 J6 w8 a- A' \: W
        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", 6 z: L: c4 G6 @9 ]' e% v* a, O% d% S1 G+ e1 r
     SuperscriptBox[5 z4 J% q. e+ r0 i( K& m1 J
      RowBox[{"(", ' E) V1 [9 F$ ~3 W# r5 W$ G6 i
       RowBox[{* \! x# a& [, O& B
        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
& E' s, m. i' \4 w     SuperscriptBox[5 ?. [" N; |6 V. q9 L4 l4 \
      RowBox[{"(", : ^( y6 I( l1 ]% ?0 B7 X8 i# q6 B3 c
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
' s' e  X0 D( p# b/ \     SuperscriptBox[
. W+ w5 }4 K! \; W: t: |$ H      RowBox[{"(",
& P$ T4 m2 B1 r, ^# B  B5 |       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
: R8 e. e8 T8 W! z+ }5 B3 L: s     SuperscriptBox[
0 Z( M& [8 b; P; Y      RowBox[{"(", ! i' p$ f* ?1 R+ \" Y) }; K
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 5 F4 }2 I: k/ U" G$ [! m; B
     SuperscriptBox[3 H1 |/ M+ T9 c+ O: P
      RowBox[{"(", 2 q  q& R; U! W5 I8 |4 K
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 7 y8 _- y0 N: F" ~3 G9 y7 Q$ a
    ")"}]}]]], "Output",% K. p2 ?: N) p- w* A
CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
2 p) i4 _( D+ K}, Open  ]],; A+ M# i+ g. P: z: s
! d% v$ G6 {  Q8 N- ]# D# |- D! x
Cell[CellGroupData[{" b# j, @% K5 X- X, r

4 [8 r' g* S( x1 u$ ]Cell[BoxData[{
, ^1 O) g8 H' ^& h RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]", : }+ |( Z9 P$ T% \0 I
RowBox[{"u15", "=",   g4 q( `- Y; c; S/ a
  RowBox[{
6 K$ C4 B' X$ s+ e   RowBox[{"Exp", "[", ' L& a" e* c4 i5 |9 u: X! t
    RowBox[{
: u) Y$ l: R* o* h2 [' B     RowBox[{
1 W6 Z, T9 L$ \( N7 T1 I; j- B      RowBox[{"-", 4 W& N( m- E  D0 u
       RowBox[{, L  k. }  \) v( Q8 e% }
        RowBox[{"(",
# J& O1 i% A% A% j( R         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", $ n2 M9 X9 \& s- Q. L, N4 `
        RowBox[{"(",
5 a" _5 h: }- Z" d! {         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
# g( D/ `: H) q, z$ Y     "]"}], "/.", "DeltaX"}]}]}], "Input",+ U$ u. i. K6 {# Y7 \, p
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
5 D- e: l9 M- H  3.57796154237158*^9, 3.57796157098203*^9}}],  Y+ V5 S. S) v' q

5 n; L3 D* I0 F: H6 z: D( l# K  m& XCell[BoxData[
+ B1 \* ?& [$ n( k# z RowBox[{"{", / [; }& T2 g) H
  RowBox[{
+ L6 P8 O# a2 x7 g' G& }  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", : {( X1 J# @& Q+ F$ m  b
   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
0 Z! n* O0 @5 U0 L, }  "}"}]], "Output",
( [: ?/ G# c! Z( } CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],) Z+ P- l) p3 S! c9 _) y/ `
' {3 i  E% T) l* J7 o
Cell[BoxData[0 ]  S: M' h. A% D$ L
SuperscriptBox["\[ExponentialE]",
! D" `) ^# Z( _) {' X  RowBox[{"3.141592653589793`", " ", 4 B& z8 G. N, H% }& @/ m
   RowBox[{"(", , T9 p+ [& ^- }$ h( z' N
    RowBox[{
2 J  g1 {* _: z+ ?+ n     RowBox[{"-",
: r9 R' v: ?% C- V! p      SuperscriptBox[3 v5 b9 Q7 {/ i" I
       RowBox[{"(",
( B  @" r6 i" v. P+ k/ {0 G        RowBox[{
$ @2 ^5 b' q$ o% s5 z( I$ a         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
' C% B5 X5 `2 a: v& J( a  n5 {: ~     SuperscriptBox[, @0 X, |) q. R3 Z. B3 j
      RowBox[{"(", 2 ?- N9 H9 o7 b% b8 y
       RowBox[{
5 [( T$ W1 ~' b  ?. Y0 W        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", 8 l5 L2 `- O0 U% M* Y
     SuperscriptBox[: s6 a' K. u/ J1 S. A
      RowBox[{"(",
, n- L$ w4 w" M1 K( A       RowBox[{  |+ B! _4 h: ?0 s* ]
        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", ) R- u! U# E2 \5 i
     SuperscriptBox[
  E) S$ v  N& o: ?      RowBox[{"(", 9 n6 b3 O) ~, Y
       RowBox[{, O. r6 d9 o0 }2 A" W9 X* e
        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
4 m# z9 C" `: G+ }- x, w     SuperscriptBox[; w2 \3 i9 |4 W
      RowBox[{"(",
: l# a; a( l! u7 ]0 f       RowBox[{
/ b9 \/ C& U, e        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", * h/ K; Z. c1 d* q! B7 ?
     SuperscriptBox[
; |; ?* @/ }! d2 g+ ?      RowBox[{"(",
  }' e. }! r' e) N; v( V       RowBox[{
& P: P7 c- b1 X9 z        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
1 d  H4 M0 w& r' E! v9 |* x' k     SuperscriptBox[
8 i; U. w' u* Y' i8 {1 @      RowBox[{"(",
/ A5 D1 m- r( X0 a; e       RowBox[{8 l- d  Q1 r% x# o. i- T9 v
        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", 4 Z9 ~1 r' P4 y# p; \  Y+ ^
     SuperscriptBox[
3 i; ~; A+ C# @3 r; z1 b      RowBox[{"(",
) f+ N! C# e% o% [5 o+ ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 0 a, N; t1 J2 v/ D$ }# H$ K( \
     SuperscriptBox[
  W, ?  j, A' F      RowBox[{"(", 7 ~; ^2 |* `3 j! I; s
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 7 {3 ?6 ?2 X8 |# Z: \/ n: g4 D
    ")"}]}]]], "Output",
* {) H* G5 T$ ^$ J CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
' D0 V: ]$ e1 E# B) x. N) ?}, Open  ]],5 _0 F% L8 ^. F  n+ g
- }9 Z7 R/ ~- X$ Y% F5 x$ T8 v
Cell[BoxData[
) h& E5 s+ p6 F0 B0 Q. W RowBox[{"For", "[",
) J* Y) e3 F5 c! R% w# G  RowBox[{6 X! n3 E+ {. J8 S0 N
   RowBox[{"i", "=", "1"}], ",",
% ^0 h$ y% G! U% M1 N   RowBox[{"i", "\[LessEqual]", "9"}], ",",
0 i9 }3 I6 B; A2 m6 H+ r) a   RowBox[{"i", "++"}], ",", & T  ^5 ]% s4 O# j
   RowBox[{
/ S9 N8 v, x$ h4 B- E+ X9 x% ?, H( g% J    RowBox[{"Ca", "[",
& C& g4 b  L! r: h6 q& K1 `     RowBox[{"[", "i", "]"}], "]"}], "=",
0 x$ [+ J# S8 T! s    RowBox[{"CM", "[", " B. F8 X8 j+ L3 `! d. x
     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",# i) o% n9 z6 U$ [) X
CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}]," ?, _* m) o& ~5 z, B. d1 @+ s& w
, n7 D+ T' n+ d9 U1 l5 Z4 d$ q
Cell[CellGroupData[{# {: g3 e; w; Y2 `% ]
* t8 v0 y) ?5 N! X" j
Cell[BoxData[{
5 E7 a- h8 ~# s RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
+ D, P" T, @9 n) D4 Q! [& ~ RowBox[{"u16", "=",   z8 f: e4 x9 U! R6 D/ C
  RowBox[{
* n, I+ Q: F6 B# L   RowBox[{"Exp", "[", 4 D9 f; l1 A. d9 i1 T
    RowBox[{+ H9 z/ ^: r& N9 v3 X
     RowBox[{: x; S( P3 \. l3 u
      RowBox[{"-", 2 X: u8 j: a; t5 L# H. C1 D
       RowBox[{! v3 f4 h8 k( G" r9 h
        RowBox[{"(", 7 G8 T+ q9 [9 K) {4 X4 U
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", , m4 G+ d% L( Q  t8 I
        RowBox[{"(",
2 e& H6 [* w$ X/ e, e0 p( {/ h: Z         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
& ^; @: ?- W! C' `     "]"}], "/.", "DeltaX"}]}]}], "Input",0 C$ }; x! ?# m2 K
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
, @3 D& g* M% K% q9 K- f7 C" R. r  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
( R5 A, h1 r1 W( w6 g  3.5779615751004367`*^9}}],
9 ?+ z* J5 H* t' G# Q* _: _. q6 k0 m" q
Cell[BoxData[
2 g& N+ S5 k, q% x1 |8 E5 ^. ^% s; } RowBox[{"{",
& m+ \, F1 h$ g8 x( f6 T( X: I% i  RowBox[{
4 c6 S# A& P) z: p# F/ Z! ~" k7 \  "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", 3 N' y& L: T$ [4 \3 L( ~8 m) E
   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
$ g; {" H. p( u9 M! v. g# u  "}"}]], "Output",
5 d7 t1 G- m* p1 D1 ?7 M% d CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],8 R+ t: i6 a  a: S
$ H0 ^! ?  {9 U8 r5 Q
Cell[BoxData[
  M! F8 [. B# X$ u% s4 `5 r; K SuperscriptBox["\[ExponentialE]",
) s+ T3 O4 u% E! X5 V1 u  RowBox[{"3.141592653589793`", " ", ) V1 L6 h- r* P
   RowBox[{"(",
2 L& a! b# y# d( B+ l( u+ S    RowBox[{
6 G8 a, x- @+ h* a5 l/ ]- J7 v     RowBox[{"-",
3 O3 |( O, @, N4 ~" ?2 d      SuperscriptBox[# \- d) O3 ?+ S
       RowBox[{"(",
3 B6 k" r5 q2 g        RowBox[{
4 Y9 E+ y) W& B4 c& G/ s         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", 6 r& W" `4 p; n+ J  q6 f5 y
     SuperscriptBox[0 e1 f8 o6 }# E8 P# {* L" E- ~8 s9 B  i
      RowBox[{"(", 3 g& `9 V1 A. Q! K8 z) O
       RowBox[{" H! F# O- [" v8 t" A
        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", 0 Z& u2 L5 g* F; Z& ^
     SuperscriptBox[( Z8 H# P# F! b1 G- r+ L/ j
      RowBox[{"(", 4 m5 ?8 ~4 @) E' j
       RowBox[{
) W+ C8 ^8 T9 Z+ L        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", - c  l( z6 A5 _% J8 q- `, P6 E8 q
     SuperscriptBox[
6 [3 a4 ]3 M" k9 B2 u+ R2 r      RowBox[{"(", 7 x5 F9 c' x9 l3 g
       RowBox[{9 A* G; s; m3 ?0 m
        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
9 e$ E! W: I2 e7 c3 ^. z     SuperscriptBox[
2 t* h7 p* v* I7 O, |. O      RowBox[{"(",
; U- c* F* Z$ W! x2 M- H       RowBox[{
0 \7 b( l- E* Z# a        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", : P5 C& Q) E1 i# {2 |
     SuperscriptBox[& M/ ~+ b9 u) }6 _
      RowBox[{"(", 2 g6 {& F" D* V
       RowBox[{
( U$ q( A$ Q9 r  x        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", + A2 j! M5 Y% u% r
     SuperscriptBox[
1 _4 k5 M$ A: \- s/ G1 J      RowBox[{"(",
* |2 [, X" E& `- w       RowBox[{
; E& S) M+ ]- A+ P; r& R' k        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
# y/ ~! |! A$ A/ m7 _     SuperscriptBox[
/ z9 K3 F! U% B. [7 k      RowBox[{"(",
8 U  |# \$ U9 I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 5 V1 P  E$ y3 e/ x: p2 \7 a  R  |- g
     SuperscriptBox[
9 l1 J* A$ W: j% N      RowBox[{"(", * h; Y9 W+ Y) r8 C9 \$ o3 q! t
       RowBox[{. ~! Q% W3 ~2 h7 _7 n+ _: c
        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
, ~! A1 d. G6 N+ J CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
# P7 B% R, \4 {# j+ p) k8 d}, Open  ]],- H9 R/ P, C4 i$ P# P* V% U

  x/ I6 _  m2 ]; `Cell[CellGroupData[{
1 u' [5 c3 y( ~$ F/ J4 t+ o$ U( q6 r) m$ z; X
Cell[BoxData[{/ T, |* r+ L+ R1 N( t8 u) u
RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]",
! r+ Z2 @6 H% W RowBox[{"u17", "=",
& i' u" ]" n+ K6 e( y  RowBox[{  g% \; M: c2 a: t
   RowBox[{"Exp", "[",
0 s; A- J8 W# n" ^) g    RowBox[{9 M5 t( z  H/ P
     RowBox[{
! q) {* M* l" n) b      RowBox[{"-", * @! N6 a% T( H
       RowBox[{6 {; S( ~2 [) b8 Z; T
        RowBox[{"(", / a7 }8 d. D) d! O( L8 K
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 T( J8 |* L7 I" \& }
        RowBox[{"(", : K- W: x' g- L
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
. v5 c9 k, a! W6 {     "]"}], "/.", "DeltaX"}]}]}], "Input",( W( g7 J) k. ]/ c' J
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {% @5 F% O% ?" f% x) a! S& F
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, * U$ k0 O. v+ d1 }% h
  3.577961578953644*^9}}],
1 K" t1 e; H! }7 Z- A
. b/ G8 ^+ D6 UCell[BoxData[
; r/ h8 i' e# [ RowBox[{"{", 4 E: ?+ ~- s' v$ f" ~! o3 @
  RowBox[{
7 k, e( [- M$ Z/ D3 K! K: K  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", : n% ?! V0 `3 D$ J
   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], % ^5 H: x5 f" O+ `  ]' t
  "}"}]], "Output",
, x6 }4 V# z3 {; y5 P  B* d CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],/ h+ a7 @* N- B. ]9 v. I
; C3 J+ M" u( x# W$ i$ |
Cell[BoxData[
! Y4 r4 C& E& u9 x SuperscriptBox["\[ExponentialE]",
+ a2 L' Y8 p+ i. [2 J) [, x, q; @  RowBox[{"3.141592653589793`", " ",
6 W, A- w6 l9 I$ e   RowBox[{"(",
( W5 a2 G% f( u  D! M    RowBox[{
2 o+ d1 P- U: I  k0 e  F% B; x) h     RowBox[{"-", - X" z9 r1 K) ]8 f1 u) `
      SuperscriptBox[. e/ d' s6 G- j0 c/ S  A( N( X
       RowBox[{"(",
5 _) C# ]# p  g        RowBox[{
, m0 c( O/ ]0 E6 k4 ^/ ~         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
1 M' [3 I3 w+ t5 o1 I5 ?% M     SuperscriptBox[4 v$ \) W; M# }' w( P* K
      RowBox[{"(",
/ i& ^# J! Y0 H( @1 |- O3 Q       RowBox[{- n1 ^% w* ~' I# V
        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
( Q0 ]6 D- Z/ ?  t$ W     SuperscriptBox[
' M& i7 r: H# r) S      RowBox[{"(", , u4 ~( U3 P% T6 N8 i$ y7 p! @
       RowBox[{
& i6 @  Q6 Z# G9 d/ L' H        RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", ; {: M" l5 R, c
     SuperscriptBox[
, r7 m: _; S- T; Z      RowBox[{"(", ; m3 \) L  [, `. Z
       RowBox[{% W" x& x& M9 o) a
        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
7 Q- S4 M' k% R. y* R& v- u     SuperscriptBox[
# E  e- O( s- d( I      RowBox[{"(", 2 ~. f5 X2 l& i+ |; M* k: W; M
       RowBox[{8 H6 H5 C- G7 G+ Y/ I3 z4 s
        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
$ w1 N; C  {0 H' k9 N     SuperscriptBox[4 d1 s% E* l- k7 j
      RowBox[{"(",
7 M# \4 L$ y2 w; t% N8 ?1 V/ D       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", * \; O2 H6 |" j4 o; Z# U4 @6 G
     SuperscriptBox[/ r/ M2 _) C. N& D7 A- i
      RowBox[{"(", ! Z8 ^8 ?* Q" ~/ o2 e2 d4 _
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
% i. s# H2 G3 t7 `: x2 [7 r! P* D     SuperscriptBox[$ |0 z3 [6 v+ Q) e' z
      RowBox[{"(",
8 w( z3 h& m5 s. c/ ~' _) r       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", # w7 {- R' M. u- [6 `/ `% H
     SuperscriptBox[) A5 d/ ?: t  |  x5 N
      RowBox[{"(", " b: F/ T' M* g3 W4 E* H( M5 j
       RowBox[{
' q0 k4 u# j7 U/ Y9 P        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
8 r1 ^: {+ m( Z  }  n, z- |' X    ")"}]}]]], "Output",; [: z* P9 B/ l5 Y
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
1 w: c: e6 q( n- o}, Open  ]],5 P( _2 y  s9 U( f" @

" i$ Y* d, P$ Q+ P* D% G! c- m( ^Cell[CellGroupData[{
; ]9 n" p- ]' [9 y) X7 O  `; A/ [2 F: h. D5 Z" j
Cell[BoxData[{$ I; ], ]3 e1 N8 K
RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",
$ _, Y  f- s. s9 v. N! U8 ^9 } RowBox[{"u18", "=", 9 }5 ~! q' q! x: `
  RowBox[{2 N4 d& _0 h; C
   RowBox[{"Exp", "[", 5 U6 V0 M! Y0 x
    RowBox[{
5 J9 C; q' a6 z- q7 D     RowBox[{
) c  \. ]2 i" F/ o5 |# A      RowBox[{"-",
' `- T& y, [1 V  d+ x       RowBox[{. t/ ~! G& s: I6 L0 Z. k
        RowBox[{"(", - s, C5 F* J3 v5 M% D
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", & m9 ~: N! V, _( R# f" u2 b3 u% P) T
        RowBox[{"(", # O: Q# C9 |% ?4 V# C  Z, |4 D
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
2 ?" ?9 N' d5 K4 K) O     "]"}], "/.", "DeltaX"}]}]}], "Input",
& ?5 ]& \6 [! S+ s0 e& g CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {( F; w. d  V+ H# s6 k3 A& A
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
' D* `" E0 o% Q2 @0 t2 K  3.5779615828848505`*^9}}],! J2 c: c" `3 B( ?/ y

, l8 C) W+ z, W3 C" ]4 G$ oCell[BoxData[, O9 O! K: l# I4 S5 X  K$ l& A
RowBox[{"{", ! f5 @0 ?1 s8 R3 a0 {/ L! D  o, M
  RowBox[{, K0 ^% g, U$ x+ X) e  k5 z0 [. ~
  "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", . a/ g% N& O8 \3 u4 Z& v7 R2 ]
   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 0 u  U( K$ X' V; ?1 ~  W: r
  "}"}]], "Output",
, ~- x+ ]1 }( M CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
4 A2 ^6 I: b! {/ o" N2 R; ]
! b( W6 n, V9 Y  \+ \Cell[BoxData[; S) M- O5 ?, a
SuperscriptBox["\[ExponentialE]", ( [, w9 {7 q9 i" H) a6 e
  RowBox[{"3.141592653589793`", " ", - Y$ _; h' d& D) o" e
   RowBox[{"(",
; P  R# Q! E. P/ V    RowBox[{: B) g7 g# j: C9 W# j% M9 Z
     RowBox[{"-", 9 T7 l1 `: R$ g: g7 R) R; p5 K/ k1 Q
      SuperscriptBox[
/ C" I3 M5 T# N       RowBox[{"(", ' z  }6 w6 t! s  `0 F' T( @# |. |
        RowBox[{, [; R: v; W, J/ G# @' {
         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
6 u3 B7 W. f) o6 M     SuperscriptBox[6 e. Y6 K/ r$ Q# E7 J
      RowBox[{"(",
9 N3 y" X/ J* r$ V3 l       RowBox[{$ `5 h7 r5 @, r; v) k: ^9 `
        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
+ U7 Q! H: B* U" N7 g, P# T     SuperscriptBox[' i( n2 k- `, G
      RowBox[{"(", 2 ?; K, \4 n/ G. @- q
       RowBox[{
& b2 \: ?  X6 r" u8 {0 l        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", 0 ^; Z2 J, U1 R
     SuperscriptBox[
" q, p1 S9 ]% \% c, x  |9 P+ S# `      RowBox[{"(",
* q; [2 p8 ]7 V$ t5 p3 Q! a" Q       RowBox[{) i- O  `+ V( K1 J3 O
        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", , G5 [1 E5 z4 I; E
     SuperscriptBox[' s/ v% z- J2 V7 F! [* u! x/ T
      RowBox[{"(", 5 R  U9 \2 D' i; _4 p
       RowBox[{0 j2 Z& ^* ?# j  B
        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", & z% r2 k6 ^: L" v8 p5 i
     SuperscriptBox[# @; z  r: m% G& V" R( N9 s) G
      RowBox[{"(", ( A; }# @2 K/ C) d1 V8 U" e
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", # z* ^8 ^6 |; }% v( `- m. {
     SuperscriptBox[
7 q1 V0 y4 s! O; y5 E+ ]- g6 h7 S      RowBox[{"(",
* [. F/ S: ^  W       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 6 C# [$ c# V; h' d
     SuperscriptBox[% |  M# C' y8 R( |, _0 U
      RowBox[{"(", % N. ~0 G8 t" t6 e3 m. Y
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
$ w* z% i% _# }, [( r     SuperscriptBox[
, Q+ W5 k4 `) C/ e! I- ~; v- M      RowBox[{"(", + d  {; z4 y; K! o$ b
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
: ]+ y  f5 d% o  V# b    ")"}]}]]], "Output",. }0 ?9 _! O, V+ E. i0 D: }; ]
CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]7 y* F& P, P. M5 y0 X
}, Open  ]],
- ^$ p, p; g( P, t# J. R- c+ {
1 B& g5 ^5 h8 Z0 L" X$ l+ tCell[CellGroupData[{
. n7 o3 g. z; }" N* J. ^, @* c3 e8 t7 F' F; ]. K! E5 ]
Cell[BoxData[{# \1 _- @4 l3 |5 E
RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]", " [4 I. q0 C  @, b1 U: B6 t  N
RowBox[{"u19", "=",
3 q1 X5 x) O7 t  RowBox[{6 ]( Y; V7 t6 n3 K
   RowBox[{"Exp", "[",
" k: z; a8 @4 f8 D  R; }) u+ X2 q    RowBox[{
0 V7 j! o+ p1 `8 U     RowBox[{
) x1 f* p* o$ y& e: ^8 u3 {      RowBox[{"-",
% m( W4 j1 \3 }( G) I5 u       RowBox[{
; Q6 o, v# |3 q- R- K        RowBox[{"(", ) b% i% J' t( p/ P, ~3 z! {" G0 u
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", % B; M6 U* a1 A' q
        RowBox[{"(", % ^3 [: ]9 _, Q0 z4 H) O
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],7 n5 U% Q: M& k3 i4 l" R4 p
     "]"}], "/.", "DeltaX"}]}]}], "Input",
  h& }+ f' j: A; w' K! f, w CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {( _0 |3 U( P/ o6 x) n% t+ P% h! S
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9,
3 \% ~) P2 Z6 n" N  3.577961588890861*^9}}],
) v+ H0 i2 k& Q! X1 @' H6 u4 R& B4 T6 F. n( ]! D* a
Cell[BoxData[% {3 _/ T8 Y5 d- B, }/ v
RowBox[{"{", $ Z1 j* E* r+ A3 \* V) ~! e
  RowBox[{
: I+ q9 M$ U0 ?+ }0 q3 n  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
# i* x  V7 ^; J( ^6 Z   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}], ) h+ _; o8 L3 H9 a
  "}"}]], "Output",
6 P5 r& w2 J( ]9 I4 k* V CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
% a# c$ A7 E) c. p+ h+ e" {' x  w" o8 f5 D2 o" r; A+ l
Cell[BoxData[
" ^1 u. H$ f1 L. U: X9 K SuperscriptBox["\[ExponentialE]",
& |$ l$ ]. Z* i: V+ A/ ]* n* d0 C  RowBox[{"3.141592653589793`", " ",
4 \1 z( q0 n; \0 ?   RowBox[{"(", ( q) {: A4 X6 }& f
    RowBox[{! g, S% [$ ^+ t- I! r
     RowBox[{"-",
+ ~: w" o" w  n  O. o- Y      SuperscriptBox[
* n$ |2 M/ `6 ~: v       RowBox[{"(",
! T/ j/ G. Y$ t8 G; J& A8 ^        RowBox[{
! V8 e. ]0 }$ I; J5 z$ X         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", , ^: B9 c# m( [; K1 D/ P" A5 H2 A
     SuperscriptBox[
: v* n4 I( m* t4 d% I+ v      RowBox[{"(", 8 W, f  I% K! w# b. _/ s
       RowBox[{
: k2 q  u0 S6 V. a6 o# `; K        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", 7 d- q9 k# S: c6 T2 C
     SuperscriptBox[/ i+ J" f+ c) q- x4 X2 n! f1 j( A# r
      RowBox[{"(", $ t2 |! B" ^/ \
       RowBox[{9 y+ M) Q4 L* f) ?- `
        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", $ K7 {8 Y4 f6 Q5 p0 I1 r; i
     SuperscriptBox[
3 s- m4 C# M6 B. |& Y& A* J      RowBox[{"(", 8 l& b8 H! D/ x% b) X6 O) T
       RowBox[{
! b4 U: a2 R1 m: i        RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", % K: S, h# W+ i7 T' F$ z- G4 e# L
     SuperscriptBox[
) A' |$ j* W  I  v+ N+ I9 |+ g$ a      RowBox[{"(",
; f# h5 s9 P+ E9 N0 C5 ~0 X8 e       RowBox[{. V* K6 c5 W2 t0 z& d) g6 }5 H- U% q
        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", 7 I( [% P$ h! {( G& c% g1 F
     SuperscriptBox[
" i0 H& l" P, h8 O! p; P4 L* Q      RowBox[{"(",
& j. w  u8 s7 D7 X; i       RowBox[{! u" ?! i: b6 U" E7 z+ \+ \
        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
9 d% M, k8 Q8 n9 T$ ~7 O( w4 q+ P     SuperscriptBox[
7 m. U" v/ m$ B, F- `      RowBox[{"(",
' F/ e  k- ^) M. T0 z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ' |: v5 [# s" {, s0 b( E' m
     SuperscriptBox[
8 c7 n7 g3 v$ a2 {4 O4 g      RowBox[{"(",
7 J5 `2 a. X- {& b( x( H       RowBox[{
" y3 z; t( n; Q0 L: v        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
6 C9 R! u, N& \     SuperscriptBox[' C& [/ ^, K0 ?+ W  @; i7 ^
      RowBox[{"(",
; |# I# S) v& s. P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
5 b1 d& q/ S  Q' |9 Y: K- Y    ")"}]}]]], "Output",9 m$ t+ C5 K  J
CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]# z5 Z7 j4 k/ W4 w
}, Open  ]],
% u; ?. A4 X) w( ^/ b8 h1 G
: ]4 p8 @' h% }7 ~Cell[CellGroupData[{, R0 I1 B" a1 d+ t; G% s- p5 a$ q) w

* r4 Q: v, f, ^2 I9 N# L' g/ nCell[BoxData[{
7 x+ I& C4 A/ e( g+ J! u. k RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",
  V0 j  v# Z( F* d RowBox[{"u20", "=",
3 q9 A0 S. \7 F- p  RowBox[{1 u  \! q2 f* u9 ~8 W# D
   RowBox[{"Exp", "[",
% d" @$ [3 F8 u    RowBox[{
; v- F" x! w  t2 |1 e     RowBox[{
2 y9 s" _8 {. i9 _, I' h      RowBox[{"-", 4 d" _4 P, x3 ^) j* N
       RowBox[{
' E  ?$ x" u( g        RowBox[{"(",
# j& D( X# ?& a. q7 J% z# R6 h% T3 h         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", + m' o& C  G1 E* i. h9 B
        RowBox[{"(",
1 }( K  A, d) l6 n( }3 o* f         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],% P/ t) @8 V+ m0 M$ D
     "]"}], "/.", "DeltaX"}]}]}], "Input",
3 Y0 c, h8 |$ R; {4 g* n CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
; _: T, `, F+ u1 M2 q! }  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
  Y# j$ ^# D/ _9 E( [( ]  3.57796159382047*^9}}],4 \7 `9 s4 v2 S( @5 s$ V) X
; Y- {( N/ I: b" R9 s1 z4 q! x4 h
Cell[BoxData[
# a" E* Q# {% h  Z/ m  K RowBox[{"{", ( Y# \/ z+ h1 j2 j% z
  RowBox[{
1 Y6 n! k0 ]0 I1 D: Z  S  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
$ d. U' q" X  e7 B& U4 j" b   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
7 s9 ~5 k3 d9 q  "}"}]], "Output",6 A% O2 v3 u; i4 s, _
CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
- P/ E3 i3 T  N" g! p
) k3 q2 Z5 Q# _+ l1 \) GCell[BoxData[
: i: ~3 r4 G7 ~3 f; G# B, X; u SuperscriptBox["\[ExponentialE]", 9 L* k6 X9 K: Y% u9 Y, E% d
  RowBox[{"3.141592653589793`", " ", 8 _: g2 o7 O/ D( ^. K  k
   RowBox[{"(",
2 X) t2 a- w* q6 _  q    RowBox[{+ e$ f; d+ f3 z! o7 ~1 W
     RowBox[{"-", 1 y0 B* Q* I& L9 N; [
      SuperscriptBox[
1 k6 M6 W7 k! F# L; O  A7 D* o       RowBox[{"(",
) F2 b- f) L3 T! x        RowBox[{1 ^, @3 T9 ^  t' c
         RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
( S2 a3 w! H% E6 y1 ^- A     SuperscriptBox[
$ o" U3 s6 c- N      RowBox[{"(",
! P6 c  R5 q/ g1 J$ B       RowBox[{
0 i; ^- e# l/ D        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", ! f; `8 J8 J" p2 m
     SuperscriptBox[! v/ M" Z7 ], H$ q' K2 A( K( Q
      RowBox[{"(",
2 L7 M$ [% K, ?9 A8 }5 R. r       RowBox[{1 Q$ Q- Q( ?* @1 G9 V9 `  O4 E2 Z
        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", & b" I! n& ~, p: K0 B3 J
     SuperscriptBox[
9 J) n: q# W8 j+ p7 i$ \      RowBox[{"(", : N' h* J( K* X4 p
       RowBox[{; i$ B& @6 i. a! h5 S( b
        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
* J% J1 V4 y! j. e+ G6 e9 t     SuperscriptBox[  `5 k# x6 Z. f& F  O3 F
      RowBox[{"(",
6 h4 ]* L- l+ n. M: r4 F! f       RowBox[{) e  S; F' Q2 {  @5 s  e
        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
3 E! Z. l8 P+ }% L- x     SuperscriptBox[! g& t0 a+ x* E0 Y- h
      RowBox[{"(",
4 M  r! P6 `: S+ _6 O# Q" ]       RowBox[{7 U- Q# u9 m8 c6 r9 Z
        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
/ F, a! G  P7 n1 B7 Y4 g" T$ n     SuperscriptBox[' b3 L; W5 D9 Z! h7 G7 W& x! r
      RowBox[{"(",
$ ]0 `& f  Q' n       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
! C" m1 r) |$ v' c0 m     SuperscriptBox[
# m# D" j5 b: `# e% Y6 i      RowBox[{"(", ! r  F" F; j" V3 C$ w( l
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
7 ~$ ]1 _2 q9 C- o% w* V     SuperscriptBox[
( l) C. V3 g; Y0 |      RowBox[{"(", ) o5 M0 Z9 f" p
       RowBox[{  ?4 C1 F; i- w" X# Y2 w/ V
        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], 0 A5 y) @4 _) d& c6 Q
    ")"}]}]]], "Output",0 u$ T, d* H; T6 b( C
CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]) M# s; ^2 B9 r$ ^  I  ^$ r
}, Open  ]],
6 Y1 ^* l  G. ]: j; B! J* t: p$ y: l2 k% r& |; i0 y* L( G
Cell[CellGroupData[{
/ r6 @6 ~: M8 [& ?0 b7 Z7 }1 |+ Y9 U( f- }3 N4 S7 T! W: ^) _9 r
Cell[BoxData[{7 S- a0 a2 B2 l7 S: g
RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
* F1 R- G; e3 r& U6 s; W+ I RowBox[{"u21", "=", / H) n4 v# Y8 H4 A' b( l
  RowBox[{
: T4 G: S1 v8 z9 B   RowBox[{"Exp", "[",
5 b. p' }- |/ t0 }    RowBox[{
+ x; G+ h+ w2 Q: s     RowBox[{
* V/ r2 x4 c; ^0 u      RowBox[{"-", & o" _7 o+ `$ E4 D
       RowBox[{* u  w: L- V, h5 t+ b9 y
        RowBox[{"(", ) `+ Y% C2 R: ]
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ' g( I2 h! W8 O. y! i1 n8 c& h
        RowBox[{"(", - @7 j3 `1 K5 O( T7 C
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
3 Z3 {: ]# S) H3 l4 w3 x0 K( B     "]"}], "/.", "DeltaX"}]}]}], "Input",
  a0 g3 w; o, Y4 | CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {6 g& g6 \. ?( d/ ?
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9, 0 R# l7 @2 r' D/ M5 Q3 d
  3.5779615991556787`*^9}}],$ u/ a* u0 b+ f, q: K

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

7 T* M* C0 W& e  O, A8 BCell[BoxData["\:62df\:5408wi"], "Input",6 n4 J; I( l" y. k$ C! M4 t4 m, h' |4 y
CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
  S6 G* O/ j2 H. @4 q7 [% r) z$ S- h) ]) |% s% K- S
Cell[CellGroupData[{
0 ^! o/ [# C2 X' s! O) J# N
0 G+ b" S3 j) Y: hCell[BoxData[( H  m& t4 _* P; v  k  x
RowBox[{"y1a", "=", ! ^# C: g& n5 C" e0 }& r
  RowBox[{"Table", "[",
) F6 m& a$ ~* d0 C8 ^( j0 G   RowBox[{"x", ",", - k5 E9 I8 k  n
    RowBox[{"{", . P2 e! }5 A8 Y$ T
     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",! a1 e0 g, F# m" M9 p5 S; h
CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {; l! J2 K7 W3 W1 Q
  3.5779226649375*^9, 3.5779226810625*^9}}],4 t8 l' ^9 s9 W- j2 P
" i& y6 o, D( E; \
Cell[BoxData[3 X- x2 v0 [% [$ y2 R- C
RowBox[{"{", ( ~+ |2 w0 T2 x. u2 j' a
  RowBox[{
$ p/ x' Q3 a0 Q  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& _% N+ n% x) b   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
7 v; [  Q& F9 b* ~0 n# n+ Y    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", , F: q( i( s! h6 x/ p2 p/ S+ q
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
! T. _# L6 G6 b+ @   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
2 a. u" L3 K% B: K" d   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
. k" W) ]6 C4 W   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
, i8 E7 s$ o% E   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
8 F8 F" `) r  D$ W8 f+ a" h   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], & p& l" d1 ~0 n6 ^+ @0 Z$ @$ @
  "}"}]], "Output",
8 B/ J/ P4 T* \ CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9, . {! v" m2 Y( n5 N, _
  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]. o$ p. I- Z/ x9 Y' ^
}, Open  ]],$ [( p; p5 Q: E+ D, }  j

$ D' `2 I" B8 f$ e2 q5 w/ z3 ?  O5 uCell[CellGroupData[{
" |' ?+ x8 v3 z5 _( v& p0 p: r2 G0 H: A" M" ^0 \
Cell[BoxData[
8 P% a9 U+ \0 v, I% f RowBox[{"Data", "[",
6 L9 s; ]* H8 m  RowBox[{"[",
3 d: [  |( h' S4 ?   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
; u3 [2 `6 A* M! ^2 q# [( i CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
3 {& p% j5 {' Q' c- I$ U4 C4 p( f% l+ ^   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
: I- P( V4 J4 g4 E- l2 k# c- Q0 |+ t
Cell[BoxData["0.899882`"], "Output",; z) i  V* ]7 R1 J1 P6 d& B$ n# F
CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
- A5 o4 g% z! c2 {& G& t3 w1 \   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9, 8 ~& y8 p2 U0 }
   3.577961929080654*^9, 3.5780123419375*^9}]
: C: w; x- [& h) M2 ?* ]}, Open  ]],
& t8 L8 g& f" R: k
: G0 f- Z) t! y% P) o, u0 u4 U1 Q) ?Cell[BoxData[( ]* J7 x/ j" p& d& I2 N% [/ A
RowBox[{"For", "[",
0 x1 P) G7 f: R: w( [. e, O4 ^7 G* y9 R  RowBox[{  A" K$ u" N/ ]% s- ~: F
   RowBox[{"i", "=", "1"}], ",", ( C8 L4 Z1 |- \
   RowBox[{"i", "\[LessEqual]", "60"}], ",",   C6 \1 b- i, x5 U+ r
   RowBox[{"i", "++"}], ",", ) j  y  g$ A& P2 J8 }
   RowBox[{7 d' o- D/ d% b& S9 g( s
    RowBox[{"y1a", "[", + `# J5 W3 z6 C7 d1 D5 H
     RowBox[{"[", "i", "]"}], "]"}], "=",
* o0 a# r9 [$ q* k& z" x% l2 x    RowBox[{"Data", "[", 3 {  L: j+ B) I2 P8 U5 i2 L
     RowBox[{"[", 9 B/ ?/ J+ q# _2 P+ d
      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",) F% \# Z0 ^+ t$ E) u+ X" J
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
0 W) J& ~! v& t$ K4 X3 G6 ?9 N   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, ) {% v1 `0 W' a! R+ B% |
   3.577922923203125*^9}, 3.5779588839702806`*^9}],% A( H. P  k. K4 n. r3 U
4 r+ [# J0 g0 i8 G0 g: |& \0 V
Cell[CellGroupData[{
( ~; r5 R! c; t- {& f- J  K
1 u9 h+ J3 k$ rCell[BoxData["y1a"], "Input",4 L9 _. h1 s2 M" }# }
CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],# X- b. y& Y. {; ]0 y7 f1 K
2 Y6 ?) w' |8 x2 c1 a
Cell[BoxData[
- u7 l$ b0 q! B( K$ s" H3 a RowBox[{"{", % Z+ w  K) D  }/ h, o  h5 o' g
  RowBox[{
6 }. ?6 Z& P9 A  "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
% w% E1 U; z7 m+ p4 d   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",", $ a9 }( n: ?0 Q' q0 P4 {0 c1 C: {
   "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
; {+ B- _) z. y- R$ k   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
2 g" K% l4 S4 P, R% A   "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",", ; b- w6 t: L+ N5 L- [! p2 g
   "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",", - ^# [/ }# ^, I9 w) v, F
   "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
; l7 h( z( W* P   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
8 g" n2 `# I( s6 F* L( e3 O   "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", " F4 n; B1 Q, t" J8 k; v
   "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
( H9 b- w! i, u# F   "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
( ?- c$ t5 X3 _# w" W- p8 K. e$ N   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
1 A7 n5 r) p9 F5 a) b& V   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",", " ~6 S; Y/ O6 @* E( j$ P
   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
( X% y% e) f5 d* y: v- j   "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}], 7 c+ V; S6 E( M9 W6 j
  "}"}]], "Output",! W& _) ~' N! x: f- K0 t
CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
) `9 q0 F3 U5 B. N+ i) c  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
0 v+ l2 P: a, |' I8 \7 {}, Open  ]]," ], Q2 G; s) V* t) ]" h% x
; t7 O5 U% ^" |$ z( E, V# ?9 W
Cell[CellGroupData[{% r$ u, x3 |1 ]! L9 D$ }% F2 K
8 u. E6 \) S8 {1 v$ n
Cell[BoxData[# m+ n7 n/ J* Q' k, {7 Y
RowBox[{"m60n21", "=",
/ v9 {; f* `" p  F% d" \& A4 S  RowBox[{"Table", "[",
" t( B: B& K9 V9 w' v$ C   RowBox[{
- H" _) @2 {8 X    RowBox[{"Table", "[", 3 s: d; e6 e4 q" q6 h
     RowBox[{"y", ",",
" V8 k9 N6 }% a, b, g      RowBox[{"{", . D* j, x+ P0 ]; J" @2 b
       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",   i/ O8 W% l' M( o2 d
    RowBox[{"{", ( k4 @% \3 g3 F) D9 z2 K5 l
     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
. x# Y  Q2 J. W1 p( r8 u CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
# ?# u) N0 N" A1 b9 c  3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,   x' K$ Z; @& Y8 }2 m0 y
  3.5779619706547265`*^9}}],
3 G9 c+ _" F1 o7 s' W; o2 q4 K" d% \+ Y  p. _/ F' F8 ]
Cell[BoxData[4 \7 q" L/ i$ H
RowBox[{"{", # _& A$ N' s- ?9 P9 I. ~
  RowBox[{7 l) Z5 ]5 w  L# e( ?1 r, i
   RowBox[{"{",
7 w4 S6 t- ^" g, A3 B    RowBox[{
6 h4 R' I! ^- y6 m* F' t    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 W1 K9 l# U6 S      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
  |9 Q9 [5 T6 L6 n' n2 U; V     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- p- I5 \$ M& p" [$ s, g  V0 K
     "}"}], ",", ! E+ W, o5 }% Q/ s9 n3 Y' {
   RowBox[{"{",
8 p! w0 I! d4 }% @* y9 w  n) E    RowBox[{
: m  \0 ?7 Y) P    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
' {3 T0 }5 {8 V& o/ C3 w9 Y8 H      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
" [3 }. h: R3 L4 x5 ?     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
! Y& }) v+ f% P- j, ~! q0 r     "}"}], ",", - d9 K  G) X& N$ X
   RowBox[{"{",
4 m- ]" g+ p$ `. S0 v    RowBox[{8 _( {- M2 \1 k6 f7 y2 x# k6 D
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, F2 p: |2 D# L& a& _
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 N7 I" r# }1 a: B8 i# C% c     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
& O/ t6 v6 O$ S; T& O) m2 ^     "}"}], ",",
& E: L$ u# Q1 n+ I0 @- l( N+ X9 D   RowBox[{"{",
* F6 R! G- ~" `0 l; c) K6 i+ B4 R6 T    RowBox[{
5 G9 K' q2 m9 c    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! ^  i; n6 e3 I. ~6 f, y: W7 _) U      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
4 I$ |7 W; o7 r* e% U+ h" N% G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# a! y5 w6 `, D% S     "}"}], ",",
3 ~7 E! y8 I1 U3 E1 l   RowBox[{"{", 1 o& ]9 _0 m& B- |! H4 V9 j6 j
    RowBox[{
- A1 H* x- p) ~* q    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 I$ b! |. F! i% t
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- f) @2 a' q1 c: M     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 o4 [5 Q9 O6 ^6 z! D; j
     "}"}], ",",
% I1 `' F3 \& M( p! q   RowBox[{"{",
% |$ @7 P; Z, f  z) I2 A; N    RowBox[{
5 a: U$ V6 r) U- C5 n4 v    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ o0 h$ T( m+ Q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ n5 ?. E4 U; C" L2 W( s/ n
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
/ Q; M+ T9 b9 Q; B     "}"}], ",",
% E2 V* v0 C: x6 r! q+ w9 L* r   RowBox[{"{", * L( r; G$ b: f. T7 |+ e" Y" n
    RowBox[{
: t% V( b- \: k0 T/ c    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
1 K$ o! |% `7 H7 W: m1 N2 F6 w      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 b/ ~' j. D: H     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
5 w0 }! f0 s# k! x1 u9 l; W     "}"}], ",",
" S1 {! u' |. |   RowBox[{"{",
. U2 t7 s( A" Z; l! x    RowBox[{9 o! u. \2 G! L, z
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 j; |+ a& v4 T; m1 `- l
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
; V( \4 P# S, B7 q4 r8 c     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 _5 `  F" x2 d1 X
     "}"}], ",",
( i  u5 n1 r6 x& V2 J7 n+ a7 `2 N: H   RowBox[{"{",
  R+ O# V, R+ j! S! J    RowBox[{
  M& [  j* }% {1 u: v) T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 `! Q/ K' l) {+ R$ j  z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
! |' j' P; ~' W9 P* V     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 r, z& W& N& p* O3 h( R0 \
     "}"}], ",",
& I9 q/ o1 K, C- _' G$ l8 j5 a   RowBox[{"{",
% z: ]5 d, O3 E. K# y( N! w    RowBox[{- K& D4 g* _6 ?3 |
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 i1 A* b0 g" ?- T
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ _. v( X/ H: Q3 F. X' d6 _
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; r: r) m  f8 X& D2 Y  V# W* _/ V     "}"}], ",",
" U$ S+ P& d" Z   RowBox[{"{",
/ D; ^5 @! q  c: b& ]# q    RowBox[{0 m9 k4 p- O2 \3 M' T& @+ x
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: T* C. c5 l1 W2 F      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 \% Q, p% M8 t) |( ^3 e
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 S$ q$ L& |0 _
     "}"}], ",",
+ \4 C! `! ^- y$ w4 X8 s   RowBox[{"{", " b& S! s. F2 p" I+ P( S1 U! w% o
    RowBox[{
" [4 Y/ E, E; E2 L7 k9 _  w    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 q1 c1 G6 }# L& E% A& q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 u0 }( W, \5 V5 Z' l2 }/ A5 `. V     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 d! p( O0 ]6 Z( a' a     "}"}], ",", 2 _5 B: y5 ?5 C8 \% _' e
   RowBox[{"{", 0 z& l# {# ]/ d$ b) w
    RowBox[{) B) N) U; ~! V3 Q: R
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  T4 k$ [: t; u: E" N" ~
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
# r5 u! `0 e. K. U* J$ ?7 S     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ d& G; F; v5 @. M; r     "}"}], ",",
7 J* {2 C: E6 b1 S' f- T   RowBox[{"{",
7 B6 q) P  l( P* z, m    RowBox[{. b8 F, R% A5 ?" I
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
1 |: D; H. h3 H; d' O( X      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 w# {8 F! l9 f; s0 W
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
5 V5 g, |/ g. h8 p3 M5 n. |     "}"}], ",",
7 l$ J& Q/ ^% `: o   RowBox[{"{", $ f' m4 N: u8 M% N7 G! c" r# O
    RowBox[{7 k: J2 V; w0 Y' J% y0 x. K6 W
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ ~/ \( `- k. b2 e- F' h
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
; c9 Z. b7 P4 j* U     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) x( s: @6 R+ t, V     "}"}], ",",
7 v$ V6 }8 L" T! }0 p2 s   RowBox[{"{", ! N4 O9 \/ U* g" y, T2 S, {
    RowBox[{( ~; G+ n  j6 n* b9 n8 D; J
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
& x! q  D) P* F, `6 l      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
: a' R: Q/ Z+ U$ P; R     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) D6 e* T; N$ W  {8 @1 ^$ I3 G6 O
     "}"}], ",", 4 @* d) H' H* {6 K# O* O! O
   RowBox[{"{",
. ~2 [2 X0 ~& q! j5 }    RowBox[{% S6 ~- V4 I  \  ?& G
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
) ?- x2 S. E. T1 o! s; y6 A) [  t      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 l: l5 M( p& R  D
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ M7 k7 d5 z3 I, @0 o/ e6 [$ g0 m     "}"}], ",",
4 J  L' S3 J2 ?9 m   RowBox[{"{", . I9 _) j9 B( E: \
    RowBox[{3 W' ]# e- s6 U  e9 R) d+ I
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- l& v: e7 y$ q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 }0 c1 H. Y. e  G# s% \
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) x6 z# ~  M! n; s0 C. |3 P+ B
     "}"}], ",", " s7 T$ `# ~/ O! l3 C: A; r
   RowBox[{"{",
3 ~- \/ k# A9 v, b' q2 k: w    RowBox[{6 ?$ Z/ l5 z) A* U8 }; g
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ D8 i+ O& R+ @+ x* v6 o      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 H4 a& d- k3 o* h- O0 U4 L0 X
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; X& l4 w5 m  v* t+ Q! x+ P1 Y     "}"}], ",", 9 }3 W# g0 w& a( ]/ O- p4 C  d
   RowBox[{"{",
. w9 M" U- s$ g) Y$ g; \: ?    RowBox[{
2 ~1 `- v# j! L6 N9 A    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 @" t; F5 d+ v+ y% |
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + z- Z7 h) e4 ?% r
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
6 a( ~5 X3 k- \% s% I4 x7 ?: j9 ~     "}"}], ",", * F7 D! K* S# B7 }  P; [9 E/ r0 I% J
   RowBox[{"{",
* Z' v& o, b1 e' U9 ~) h$ J    RowBox[{
& W: G; z) u. U/ V- k. Z: g    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% k3 d' V( _& o( x
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
# |, i4 e+ T! W* Z* x4 h     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ f8 {  F" `# o+ A$ @# p, t     "}"}], ",", 3 B) l8 ~! g  W& f9 ^
   RowBox[{"{",
' I9 r; k; j$ Y    RowBox[{
, r' u4 u9 k. |& M2 N    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
/ ?' v1 t1 U( ^. `8 k- ]      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 X/ F2 l+ T, C) I! }9 P" {, S     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: o& E9 r( w, M  S7 k5 Z     "}"}], ",", 4 y/ O* j+ K; g; J4 c7 t9 s6 a
   RowBox[{"{", ( D5 g7 K: [- a$ {4 n7 T& H! v6 Q
    RowBox[{
4 p' [+ T3 A! p    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 K" O* A/ T( V2 i
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / {3 m; L) n* S4 B; w
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& z9 Q; i0 Y& w1 V8 G8 M
     "}"}], ",", 6 L8 w! J, [" h5 I7 h4 y3 W
   RowBox[{"{", , S) i) d# ~; D, j
    RowBox[{
% B9 s" A: @$ J    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
: n. t. {3 I" g9 D  O3 T$ Y      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
) l0 ]% y  G) I! l; _     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
0 p3 A0 N9 E' ?; `: |# Z0 O9 V& C     "}"}], ",", 7 w6 ~9 f" ~2 F* A' |. R  j4 ^
   RowBox[{"{", ' a6 K! V# O. ]5 p7 r; O" X, ?
    RowBox[{
" w7 W* k4 H, v+ k% _    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
8 h2 \" b* N" q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 u7 I4 V2 i) N' k     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ O& E% ?- h% k, |! B- ]6 N
     "}"}], ",", ! q6 `7 D, V+ n& @( B! W
   RowBox[{"{", 6 P/ Q6 p! T$ ~0 q- v6 _
    RowBox[{
2 U* T8 w$ s: e8 p    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 X& t& l' {% J      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 i5 j$ [, k, t$ r0 U0 Z6 ~     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
( x& q. l3 {. @  a& o     "}"}], ",",
# e$ K/ @* h' s( ^7 _' J- |/ x7 |   RowBox[{"{",
& [9 Z* U) M  d5 Y    RowBox[{
: Q6 \! @  l4 X5 P% V9 ?    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& W: g& R, G, T
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
- l' L7 G% M$ I     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 s) {0 T! j8 h" A) h/ D; U5 L     "}"}], ",", ( }4 S% X  Z2 j) I$ I8 [
   RowBox[{"{", % @  v1 D2 @, e4 s4 g: d* Z  }
    RowBox[{# {( y% Q' d& n0 C  A% n4 y( M. z
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ X' h$ d" G9 U2 `      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 z4 ^0 H7 l! \/ L7 s2 r% d2 x' o
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; K* S) L  ?2 q
     "}"}], ",", - u! z" K, e9 Y2 U
   RowBox[{"{", - a& x9 ]* f3 |0 G" g* {
    RowBox[{
4 F* E" M" N0 u8 {3 O! X2 [    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 c4 p; h# i, A  Z$ B, L      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% w2 Q* w2 p4 n4 T/ \: r2 X     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ Y8 |' J7 k! s2 ^+ g% S. D2 B
     "}"}], ",",
9 ^5 u, o& K5 K  J, I# Y   RowBox[{"{", $ P& c9 k2 f3 S, x" Q: n
    RowBox[{
: R) y6 h; Z, ~    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
7 R; U( U& b! [9 G      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( {3 I; k2 o% z+ P5 b! A
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
; p2 |, b. k- ~8 j     "}"}], ",",
& f; f3 t. s6 H, ~9 _8 o, b, k# a   RowBox[{"{",
* F, @* F' m: t. i& i  C    RowBox[{/ q  h& x( e- C' V- }. x
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
, `1 h" r5 j* @" L: B& E      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 i8 E. \* C7 [     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
: J/ K! L$ @' O# X1 v( Y+ P     "}"}], ",", , B2 C) L7 F; f8 _7 H/ }# d
   RowBox[{"{",
  V9 M$ z% P  f  H    RowBox[{
$ R2 W  @8 N9 d    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," g& H0 V' f2 c$ B
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
$ U3 F; a4 V; P3 m/ I1 `. m     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# o" h; q" |) |0 I: S     "}"}], ",", 7 i# T# y; ^* a: |: i
   RowBox[{"{",
7 L9 b! y, v$ x7 I+ x% g; h  m    RowBox[{9 V" n4 h8 ~( p0 i2 t
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 i; q& }4 ]6 t/ @0 E
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + ]3 p% _" ]0 f
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
# u2 @3 Y6 a3 @, S     "}"}], ",", " j! u5 Z! l' b+ h0 u1 o
   RowBox[{"{", ) E, c0 E- T: {: m5 ~, d5 l! t
    RowBox[{
( S) m: s7 v& Y) ]+ O* T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 G1 Y- E( v2 ]8 o7 C2 _: C- J
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ W% u, t4 @0 _' K1 Z( T$ @
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' B5 H3 X; A1 T5 U4 q# Z% r# l     "}"}], ",",
; h, E, V5 l3 O   RowBox[{"{",
3 ~( A5 \3 k! ~$ L8 n: U, t    RowBox[{: P( k* I, o- ]
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 ?4 r) c3 J: s; Q) j
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / e. b. O( G% Y, k3 M
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 C& ~& M9 E  a' N* w! V
     "}"}], ",",
6 h5 I5 e3 ^; j- T- ^   RowBox[{"{", ; _) @9 x* b& a( |: Z- D
    RowBox[{
1 P+ E" g$ J6 h    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 z+ X2 E5 ?, k$ u: ?3 ^0 g      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
; C( n  [7 r! r6 d     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( L2 I8 _; z9 F! M9 y
     "}"}], ",", 9 S  o; W$ k! z
   RowBox[{"{",
  E. K( t8 O3 P3 H" G    RowBox[{
' F2 ~% L6 _5 N( b! y$ B    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
- u. L) a! }) Y$ P3 r% w      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 a* l- d* q/ B8 V% A4 v0 v     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 T0 `2 X  F  ^2 R& \) m0 L- f0 O
     "}"}], ",",
) W7 ^+ ^1 c0 }) P9 q$ V   RowBox[{"{", " x9 F6 ]. }6 q1 A/ E0 T3 y
    RowBox[{
# i9 @  M9 D2 q; Y  s4 T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 J/ c  i8 n$ j6 T: J1 g      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . @" u4 d* M% O9 U1 i5 b
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," U* p' S: p& a# j# {* V9 I  M) x
     "}"}], ",",
- C' `# l$ ^, }. o& t   RowBox[{"{",
* a& J6 U$ R6 R: n    RowBox[{2 }1 Q! s. c+ O# g
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; x5 }/ o. F% F1 J      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
7 m- _, D9 ?5 E7 \7 N     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) \  o3 _/ j# s! b     "}"}], ",", # A. ~4 F1 ]) |; {  N
   RowBox[{"{",
, n6 b: n7 G% P+ @% Y4 |    RowBox[{
+ e+ {# E3 W7 _) u) i    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 e5 O. E7 L( T  w! h8 }
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
. |% h& M* \: N- M* O! s% C, V     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 U5 |& ~9 M+ S5 Y7 U
     "}"}], ",", & n0 W1 F$ E  u" p' |: v+ v
   RowBox[{"{",
6 {' |: T) l4 Z" \' }2 u2 P" x, N    RowBox[{! S7 V+ K1 Q7 T5 h: l" ^$ M, d
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
3 K, U6 ^+ T* X3 a      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & S8 g) ~) z4 l- ^- x& b/ |
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
4 l0 K$ U0 B7 i) M$ f) S6 M: [     "}"}], ",",
0 S8 K& T1 F- ^7 l) \   RowBox[{"{", 8 d. F! q% j1 d9 g" z. L
    RowBox[{6 g" C) G$ v+ D7 ^7 `
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 }! R9 b: E0 u  ]8 u$ i0 P8 M; Y. X
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
6 l2 j1 Y5 N+ n/ L0 w  I     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ \+ T0 r3 k% ]; o
     "}"}], ",", 7 D$ G* P) g0 k
   RowBox[{"{",
( F, U( a; F/ `/ J    RowBox[{
2 ~/ [7 S' `8 `0 F    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* I2 o7 W. g8 h: v
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
$ g" m" z9 x$ Y8 `2 @     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ ~  U6 |! w% ^2 p+ _/ a( t: Y, [
     "}"}], ",", + C9 ]% u" [3 y6 I# I# }4 ]7 e
   RowBox[{"{", 2 d0 m" Y. ^# d% ^8 q3 X
    RowBox[{* u# {1 E+ k8 a9 Y( s$ y* O
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
8 C! H8 s5 O# m, Z; B: ]      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 D9 L! ~  h  R% ?     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
1 d& e4 \* t5 \8 j0 x7 M  {     "}"}], ",", 8 [5 p, e0 a6 m4 T" G8 u
   RowBox[{"{", # L2 K/ V9 X3 ~  L" C4 w4 m
    RowBox[{
7 W. ^( J# r& I+ G    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
+ G8 r8 w3 |5 u* E- A( Z. C! T: q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 b3 m. S* b+ q: R2 I- V
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  V2 T3 v+ i+ V3 m9 O
     "}"}], ",", 9 e+ @7 F0 u" ^
   RowBox[{"{", $ n& P' R4 L, H" b5 t, B. M$ J
    RowBox[{% z0 e, G1 A! y) T# r4 f' y* [/ ?
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" q- B0 Z/ w0 T/ d      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
( U& o4 R8 M/ U     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
% d7 G1 W8 J. u# d  L9 ^     "}"}], ",",
) D, g  m" ~& E; W9 r   RowBox[{"{", 7 S8 C! M8 G6 Y1 {+ ^
    RowBox[{; w& S/ s( k1 B. y5 D' \
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
8 l8 u" Q; D7 |- k7 ]6 ?9 N, ~: g      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
' B! {6 k. I) P+ ]! U& M. Y, I; D     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& K- }7 C  y  N7 c! @
     "}"}], ",", & G! c' C/ L/ A+ p) j
   RowBox[{"{", : }6 O: x* [) K) ?. h( O( h
    RowBox[{
3 t" j- M$ w5 W    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 d# y" s2 @; |4 b8 I2 A! r9 w! M
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " h  |% v. m1 Q- N! s, Z
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
9 c* S1 f  A! p+ g; l$ M     "}"}], ",", $ \& r( d/ \4 i+ Q+ k7 b
   RowBox[{"{",
9 E. \8 M) S8 Z9 i    RowBox[{
3 \/ S  Z6 J! r    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: _- q% ~) l1 ?, H/ w, b3 \
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 l5 o# B' N* h" F8 x
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 c) a6 W5 c" G8 K( D
     "}"}], ",",
. d- g3 a& j2 [- N$ i/ f   RowBox[{"{", 7 u" K/ N$ ~/ Q8 y8 z
    RowBox[{
2 t$ o* U& I- N3 X    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
% S( b2 [- ~; w8 o& e9 F0 n      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
2 O0 m1 L3 C+ T/ a; r: q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
' i  V$ U: s/ W3 d     "}"}], ",", 3 T% I& M' B+ n& ~: b, f6 v/ K
   RowBox[{"{",
6 @; q& m; t3 U6 O4 o3 l7 P' g    RowBox[{% n7 M, A6 o- Y$ o& @9 ]" i7 J
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 k- a6 d% A" b; K/ ?) S: }) ~1 E% J
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
/ P) a, K+ |' B     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
+ z/ p, Q2 X( w     "}"}], ",", 3 Y6 H6 \! z" Q4 @* w" O
   RowBox[{"{", & X* Q4 e: t. H4 F  A8 i4 c2 ]; g
    RowBox[{6 m  W+ `/ {8 k5 u/ o+ N/ d" E% [
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 j6 U* `8 B: i  s7 F) k
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 V0 t7 O9 ?& `: x2 J
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: H0 X! ?' @1 ]  q' W3 c
     "}"}], ",",
+ [! K. P" `8 Y4 O+ X/ `: B( h   RowBox[{"{", 0 D4 K) h; i8 @; r, E+ `
    RowBox[{2 |" B1 G, e0 n- D8 K
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
; F2 J0 _; C( E) u# i) L& d5 E( O3 u      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' Y3 s4 E2 N% q3 ]: I7 f2 @0 W- C
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) y3 P. S  t( Q! P4 Y: v     "}"}], ",",
" G/ P5 J2 ^. P   RowBox[{"{",
7 K4 Z6 `$ F9 j4 f2 n    RowBox[{& k0 @/ w& V% O) i9 q8 w( k. V, ?
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% M; Z8 u# }% b# Y$ W- P' k8 h
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , ]/ @) q! y" a+ ]9 o8 P
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
- Q5 r& f* u+ Y4 E7 F" o/ n     "}"}], ",",
/ i  S8 K) A! H4 o1 \$ x   RowBox[{"{",
2 Q  p0 J5 ]) x  `    RowBox[{7 l2 Q) G- b/ U
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
! {+ |" y( g$ |) h6 F0 x      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
1 T: k- J2 ]! h7 t+ j     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  ]- @7 f6 K( k) y- S' A. m% ]3 e8 `
     "}"}], ",",
9 H5 U$ C- P( e: C' f% \' A2 p   RowBox[{"{",
4 Q; z: \  z' i/ P. T2 c) {    RowBox[{
' e$ N8 O7 H* T  @' [  i- _& D    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ }; x! I. f0 j8 N2 K& L
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) y9 h/ R3 F( ~
     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ }, j2 A) [/ Z0 O
     "}"}], ",", ; ?5 _- J9 ~. `/ p1 r
   RowBox[{"{",   ^; u2 J7 j. O5 Y: D6 |# Z
    RowBox[{
  e( Z; N" j5 w3 ?& k    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 Q0 Q& r6 W' A3 R$ ~+ a0 M' p
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
; B' D1 v2 p* i7 [& G1 v& Q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
  H+ i* c/ i- e3 _8 p& T     "}"}], ",", / {0 w3 d4 r  _' B$ g
   RowBox[{"{", ; ?) M/ `) E5 i. @9 o8 ?
    RowBox[{
1 ~0 ~, x/ ^/ ^1 D7 O    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
6 e: w0 ^8 A8 @$ O' n9 ^      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
9 w5 o: V7 `' w* G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
) C, J5 m1 ~. k" L9 W- b. ^  G9 ^8 s, M: d     "}"}], ",",
4 c4 z7 q6 k! I* F   RowBox[{"{", 0 n. K4 T9 F, o; W6 E9 r
    RowBox[{
0 \" A6 H% o* p9 h6 c% @    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" d' C3 T+ S: F* E# q; W0 e      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
8 B& k8 r7 p  E% |     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 O+ X, r6 x; d5 f! X
     "}"}], ",",
9 Z% r3 N4 \3 m' P- U- K   RowBox[{"{", 9 q) D7 Y+ c/ D0 S2 N2 E
    RowBox[{
. I; \3 \! s+ n% W' B    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- q( b0 t& o8 a# Q; w
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
5 d' m; D# d9 P( Q9 w9 P8 G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' H; x' E8 I  @+ B& m
     "}"}]}], "}"}]], "Output",
6 e+ u* G. g0 p1 F( {8 q0 B# B CellChangeTimes->{
! R% B0 P7 t9 \+ f  3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9}, 5 K6 Z8 Y' G. m
   3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9,
; ?. e6 y' ^3 X; T0 p2 g- @   3.5779619748823338`*^9}, 3.578012345453125*^9}]
' z, G7 e( m0 I, n2 L9 R' {8 S}, Open  ]],
7 J2 h) |' V: }% E# p! T( S9 Y% E$ B! K% M# H
Cell[BoxData[# V/ h# V* l  T; B  ^2 i
RowBox[{"For", "[",
' g+ w' S7 i% ~  RowBox[{
# E1 n# v. C+ c4 G, b   RowBox[{"i", "=", "1"}], ",", 2 D6 w2 h6 E8 y: ^
   RowBox[{"i", "\[LessEqual]", "60"}], ",", 4 l5 z, [+ r5 L  W% D
   RowBox[{"i", "++"}], ",", , c- ~; R, C' g% e  p& }
   RowBox[{"{", "\[IndentingNewLine]", & r/ N, t& Y, X' n) W: f- a
    RowBox[{
! v& F: d$ f1 R     RowBox[{
! G. |1 D4 E  @* T" k  v      RowBox[{"m60n21", "[",
  Y1 j/ \! W2 i& c4 J       RowBox[{"[", 2 Z' p! b1 N; J, q8 j7 w
        RowBox[{"i", ",", "1"}], "]"}], "]"}], "=",
7 ^8 X: t9 |' x- b* l4 V      RowBox[{"u1", "/.", 7 A3 I* j2 o' ]1 z
       RowBox[{"{", , F7 v$ `6 b- P( Q# x- H
        RowBox[{
. J7 `+ G$ K, @, ~" A         RowBox[{"x1", "->", 6 s, A& t+ c+ T8 z1 R3 Q
          RowBox[{"Data", "[", 3 ?5 j7 O+ K. f
           RowBox[{"[",
/ i2 `5 Z9 o! @+ n9 `! @0 P0 D1 K6 v            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
) u1 z  b8 d8 g9 g         RowBox[{"x2", "->",
9 q; l0 E* m; B# Q8 w2 g          RowBox[{"Data", "[", , @2 `9 `! i$ R6 Q' ], J
           RowBox[{"[", " Z7 u( t/ X! l" n
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
+ r" @! m5 X- E) ]2 B3 e# t         RowBox[{"x3", "->",
& U/ j+ @: M3 {5 P% F          RowBox[{"Data", "[", $ ?: |0 t, r" R% Y' }" ^" N
           RowBox[{"[",
4 v4 [& P$ E$ f- x! u9 b8 U/ ]' m            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
( B. Q4 @. l: [$ F* C         RowBox[{"x4", "->",
( k1 Z" N0 Z- r8 l. H2 t- _          RowBox[{"Data", "[",
; D8 I2 G* K% K7 v3 ]& O           RowBox[{"[",
1 ?4 T6 _# D  ]% ~            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 4 C5 V" C3 v4 a8 l+ s
         RowBox[{"x5", "->", " S; w+ [7 J" I. \( v
          RowBox[{"Data", "[",
+ d, W# _( y9 U: _' I% `5 d           RowBox[{"[", - ]- g4 m$ G9 z* G3 |
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", & K% \9 t5 B# y; m- k7 |1 _! A! s
         RowBox[{"x6", "->",
+ c5 Z  d5 g) \$ \2 b( B0 o          RowBox[{"Data", "[",
+ v& M! {9 }& P7 x, q$ {2 Z/ J. t           RowBox[{"[",
( j3 y# Y3 q  u3 R! \            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 1 b& l+ R, N, b9 x6 Y
         RowBox[{"x7", "->", : _/ o, l; B) g. A" S* c- w
          RowBox[{"Data", "[",   G3 F: B5 V  h( a4 j% N
           RowBox[{"[",
6 G* A5 [7 g5 Q" ]! ~            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", : }8 E4 M4 ~- y# D3 b3 I8 T1 d
         RowBox[{"x8", "->",
; h+ u  f4 \7 X          RowBox[{"Data", "[", $ }& h) i( R5 Q3 [% L3 R* g% B
           RowBox[{"[", : ?- B+ F7 g7 b5 I8 Q
            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
- }3 S2 a6 B" ^. l% x         RowBox[{"x9", "->",
1 H4 e& }* Q1 T! l9 [4 Z; k          RowBox[{"Data", "[", 6 h! r5 t! Q8 L
           RowBox[{"[", 4 H! w2 \( B/ L2 M6 O  A, @
            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
& B" J' P( E* P& U     "\[IndentingNewLine]", + g7 ?6 Q8 P! k+ _( O0 t- @: O4 ^5 V
     RowBox[{) m! G" v2 w# q/ Y2 r& E' ]1 z
      RowBox[{"m60n21", "[",
作者: 琳123    时间: 2013-8-24 13:13
涳夢 发表于 2013-7-30 20:31 ; r7 y1 F! |( o9 T4 {6 }3 s8 `
神经网络系数?有这种系数吗?可不可以具体一点儿,给出原问题或更具体点呗
* J/ d0 H: b& }
(* Content-type: application/mathematica *)# i/ o% ^7 B( U( E, Y

# A6 \9 {+ R7 O4 w$ u7 H1 E2 x4 a(*** Wolfram Notebook File ***)$ }/ Y3 e5 W1 I" g7 w7 A; n
(* http://www.wolfram.com/nb *)" h7 ~0 @8 E2 M) }: h

* S! k/ v2 K( e7 `/ l(* CreatedBy='Mathematica 7.0' *)/ W# `# D2 w5 M

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

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

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

3 d/ T. h4 g$ z3 z  ~Cell[CellGroupData[{
! c4 k% |8 M$ c( f9 T+ G  ^
; |3 s1 n  C- h# t  ]4 PCell[BoxData[
: a8 x# u, y) i, z RowBox[{
, z' Q! Z/ ?; N% s4 S  RowBox[{"Ca", "[", ( R. N  U3 E7 Q4 W
   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",$ q. N; l5 ^. q) e4 G
CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
/ D/ K6 f4 J. z3 e- d* U, e4 n  3.5779616465173616`*^9}],
0 ^5 D4 P+ z) t9 ~" p0 w3 ?4 {: h8 k& ^6 ~0 P1 Z
Cell[BoxData["0"], "Output",
' W+ F2 @; R% R+ w( e. c2 }+ i CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9, 5 H8 @: I+ h, a$ E0 o- k
  3.5779616484049644`*^9}]9 u% v  U  c/ O
}, Open  ]],) L9 t8 P7 j% u) M
% \8 G8 g7 E  y0 B
Cell[CellGroupData[{+ B9 l/ i1 G4 [
9 \9 l5 `/ c" U
Cell[BoxData[" ?/ }3 p* A, f" z$ n9 U* W1 g( H7 F4 _
RowBox[{
* ^: M8 i5 X* s. G4 U  RowBox[{"Ca", "[",   x4 G$ X+ |: N6 L0 P( p# [
   RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",3 l: [! P2 F$ M1 A1 A! [3 y
CellChangeTimes->{3.577957376235614*^9}],
6 i' H' j" {* q, M. C9 N) I1 b
& u( k7 C% C& R8 P0 NCell[BoxData["0"], "Output",
# y" b, t9 D- [' h7 {& M+ o CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}], a, b9 M7 b5 g/ v
}, Open  ]],( T3 D  |1 `' |  m4 y" p" r+ v

, Z* g, N4 @/ h/ \7 S& z$ U  wCell[CellGroupData[{. Z& Z5 b& c- q) L

2 F4 l8 [/ t7 TCell[BoxData[& g& y. O9 g: O
RowBox[{
  Z- |/ |, Z& g; |8 W3 G& O9 E( @  RowBox[{"Ca", "[", 5 Z6 F' r. }+ p8 B: U1 M
   RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",- u* ~8 }  s) D% ?( u9 z
CellChangeTimes->{3.5779573112927003`*^9}],! h5 z* p" G. W! A/ S

, J. `1 m2 G+ k- FCell[BoxData["0"], "Output",: ]# d. L9 n3 |) l
CellChangeTimes->{6 t- w* x3 h$ k" E8 ~- b- d; |
  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
/ r* c8 a2 T( Z& f# j$ N( ^# I# R# e   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9, . _6 U  `: X2 e7 a  J
   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
' D6 I! I' M% W8 a" D   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
" ]+ P: |& T9 T3 s! ]4 H   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, 1 X2 e, e9 Q- b9 L1 m. ]4 A6 a# U
   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]( l; W& C( l$ p' A
}, Open  ]],
& F, q% u  L; k) \
! Z2 K. [; n1 RCell[CellGroupData[{
% t, ]; K) J2 L4 ]* D& x2 }  Y; t' Q  ?/ l
Cell[BoxData[% _! e* N7 K8 l! k$ t, p7 C
RowBox[{
( R/ u- Z7 j/ M; l( |  RowBox[{"Ca", "[", + ^+ L- l* z# o* V7 s
   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",- r# H1 j# a2 F- S
CellChangeTimes->{3.577921461734375*^9}],
- E) R3 l/ ?& ~8 ~, H- n1 J7 m2 X% x, H! M
Cell[BoxData["0"], "Output",
. A; [3 y" d9 Z8 z CellChangeTimes->{2 C$ R/ |  A1 x' _* ?0 I
  3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, 7 z) B; z' N! I2 i9 r% k
   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
' y- R5 A. ]) g; ?! d2 H4 R   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
8 Y0 A- z1 T- c; }+ a" w   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, 3 t/ n/ J( j1 P* F6 Z4 ~' `
   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]7 E; Q6 X" p' `+ s4 J
}, Open  ]],2 t( K7 U2 l7 V3 e  N

3 k6 \7 }' U7 d+ ]6 d( |( zCell[CellGroupData[{/ q8 N0 ~% A# g( E0 r( y7 ^! e3 s; |

6 Z. L9 ?1 l4 p8 F3 v. W8 xCell[BoxData[" Q8 _7 z7 O, s  K3 l; \4 w) S/ Z
RowBox[{& C) k- L" ~6 x" _5 |1 j/ O8 e
  RowBox[{"Ca", "[",
# X; s( y, S& A$ i$ E   RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
5 r5 Q* U  A4 ?) y; g' d4 f( k CellChangeTimes->{3.577957303118286*^9}],6 p9 V" ^' A. N! q6 F

: R9 k: S. z$ D/ I+ rCell[BoxData["0"], "Output",
7 J7 V* L3 K! ]0 h- s4 q2 D CellChangeTimes->{! K. Y6 O/ ^, Q& p
  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {7 F% }+ |- C5 B% I9 \! T
   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9, / B7 S" b7 N& t7 U% p& ]
   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9, . m4 r0 a" g9 l* l4 e: r
   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
$ ?9 p2 I; C' j. [# y5 P: L   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
; R# {, V4 E: n( x& Z* {   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {: t  V' G6 q4 {6 G7 V
   3.577961889378585*^9, 3.577961912965826*^9}}]
# z" u# j* A1 D  f/ n: j- i}, Open  ]],! M  J& f8 D% g  b' U3 X8 [
1 h4 o+ J5 o/ n# H4 ?) s6 \2 C8 r+ u
Cell[CellGroupData[{( \& X% H$ }) t; h
; ]9 K# y; ^" D& E8 p. n
Cell[BoxData[9 D" D4 O( f( S
RowBox[{
$ t/ I: l, Y# J* i4 K  H) C  RowBox[{"Ca", "[",
9 p1 A: R' }9 Q2 N" Z& ~+ z   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",5 P. C( e# _& ^
CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {* X6 e4 B5 b2 O3 H5 k" D! p
  3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9, 0 v5 y$ u% l# |+ d' d
  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {0 M0 [0 w1 M$ }8 U# P/ {$ v7 n
  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9, 3 z# r: I; q7 S! W+ a
  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
8 R  l; P& Y/ ^( x& g  3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9, 9 Q8 w6 W7 ^, E7 o
  3.577921435703125*^9}}],) j# }% H5 Q$ J7 f5 P

: a# O9 J! Q' U  E& iCell[BoxData["0"], "Output",
2 z1 k" w4 w" b: M. f% ` CellChangeTimes->{
8 v$ K0 A# ^. R# O( k5 y, p* k  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {+ M1 ~5 w, R  k) d
   3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, ( l2 l. ?& i1 d; H6 Q2 }8 E3 z8 ~; t
   3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {" c, t! b1 b2 g% p* m" O
   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, 4 c+ s% w" b0 r
   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
+ u* Q; ]7 m$ u" J% f   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9, + S5 t- c+ k$ b& r' u0 i: G2 E, M
   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9, " m$ O7 X, o. |$ G8 |0 D: G$ b
   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9, 8 B) V% R" A# L, q/ t2 H  x
   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {4 j2 K8 e# o4 g
   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
& \) R( r, j  Y) E3 S# k   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {. x- p/ M, t: E1 G; G  [5 B" x
   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
. n7 Q$ g0 f8 h) u" D8 B8 n9 ~' X/ y   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]1 y, u9 c, o$ \. `0 r
}, Open  ]],3 `9 f; n- K" f" |8 D  a
% L7 `0 X2 _& r5 Y
Cell[CellGroupData[{5 w3 i6 f4 e  W2 R( O
& U- t2 I3 N; Y0 |
Cell[BoxData[
- Q' X) n/ k0 ^4 _ RowBox[{"Delta1", "=",
3 Y3 B0 t9 b* ?  RowBox[{
6 q# j/ T, p0 F6 ]   SubsuperscriptBox["\[Integral]",
+ i1 P$ r4 y0 ]& Q+ A5 V; _    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ( ]) |$ [! n% _$ |
   RowBox[{/ T# o4 a7 {4 [
    SubsuperscriptBox["\[Integral]",
9 }+ b/ v9 P/ M+ D% A. y( b8 ~, V     RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
# l6 R5 |' W* w4 _& k! x    RowBox[{1 m4 F; T  y9 m; I" S
     SubsuperscriptBox["\[Integral]",
7 W2 E! Q+ Y+ }: U6 \2 B! U; e      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
2 B! T+ M3 P$ M8 o' M& f& R     RowBox[{
6 T4 E0 }$ X* W      SubsuperscriptBox["\[Integral]",
8 `  C2 G* q" P       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
" I9 M0 B1 D" z8 y; U/ Q2 a8 u      RowBox[{* _( |$ v# s# q1 ~1 l
       SubsuperscriptBox["\[Integral]", ' G" {* R. e8 M2 ~$ u2 w- [3 b
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
0 k( b! {6 n6 S       RowBox[{- C0 z# B$ Q+ c# ^5 ?) X% l
        SubsuperscriptBox["\[Integral]",
; G  S0 f+ l* F% A         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], + K0 ]2 G/ z  v. \" a5 r8 \8 s- L
        RowBox[{
# l9 y" x4 U7 v  M: l         SubsuperscriptBox["\[Integral]", - t- w6 x8 _6 N+ [9 P
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
% D- a# Z' L% M* j: h3 |$ D1 h+ ?         RowBox[{
* e" |3 I6 p: Z6 \          SubsuperscriptBox["\[Integral]", " ]" r6 N! E1 k$ f
           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ; P( ?6 N% A8 p2 R  W6 s  J4 S9 L$ `
          RowBox[{9 b1 D+ T+ X- y  c6 t: `
           SubsuperscriptBox["\[Integral]",
* V2 _6 i5 n: ~3 g' y            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], * r! M' ?9 w! j/ ^1 T2 R
           RowBox[{: o; `; d# q7 U! r
            RowBox[{"Exp", "[",
$ L+ T' N  [: t             RowBox[{
* H- t! G4 e3 T- ~" z; K& H% ?* l              RowBox[{
# c4 \, ?. F5 U6 I3 [. @               RowBox[{"-", 2 f/ a! G8 v, s  P
                RowBox[{- [/ S' h0 a% Y1 M9 k* \
                 RowBox[{"(",
; v* i$ ], p( H, A                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
& {5 `. w0 Y$ O" x/ _; z                 RowBox[{"(",
% ~# f3 Q0 @" H0 C" V9 H7 Z  f                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", 9 Y% b2 z4 H+ X# W
              "Delta"}], "]"}],
& Q4 p3 m8 N8 J# ?4 z. U            RowBox[{"\[DifferentialD]", "x1"}],
  x9 I  }. D; q+ i            RowBox[{"\[DifferentialD]", "x2"}], * e% |9 E' i5 _7 h: W
            RowBox[{"\[DifferentialD]", "x3"}],
5 O' \: {' j) m! G4 o            RowBox[{"\[DifferentialD]", "x4"}],
& u6 y8 L( L; N: \& g; t1 W            RowBox[{"\[DifferentialD]", "x5"}], ! w3 ^; F$ r2 x1 g5 Q
            RowBox[{"\[DifferentialD]", "x6"}], % w+ L7 q  Z+ R/ r' G
            RowBox[{"\[DifferentialD]", "x7"}], $ @9 O, z0 H* |( |
            RowBox[{"\[DifferentialD]", "x8"}],
' \0 y7 a& t' J" S, u- V' z$ u            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",' q  N) W) n# I- X! p
CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
! Z* O+ D, l! s; |7 i5 l   3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
. h5 g+ w/ E/ C, d0 L6 B" A   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
& N4 }# o, E, d3 J) l4 @   3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9, 4 p  k: v) E" a5 K! E8 D
   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
. g) s9 |$ a* M% M& B& k   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
/ |  j$ ~) X. c% `$ K* m   3.577918964453125*^9}}],
5 m# y/ X" u. b; [( j3 T) L* D
Cell[BoxData[; ~* h9 F$ ?2 G' E5 W
RowBox[{"97.40909103400237`", " ",
5 T* ~+ ?' g# a3 p/ T# j  SuperscriptBox["Delta", "8"], " ",
) J$ Y; d9 o2 j/ K/ y  RowBox[{"If", "[",
1 \& V1 A1 v8 Z1 w: u: f/ |0 ]   RowBox[{) c( \; g. J) b4 u. T, z0 j
    RowBox[{
0 Y' M( v6 d4 t, k/ V0 C) L, D     RowBox[{"Re", "[", ( R' _$ b* C) O7 p( M  I0 ~2 W
      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
6 G( f# A' [9 E9 L; {$ \& D& k    FractionBox[7 m) n6 h7 ^2 ?0 u
     RowBox[{"1.7724538509055159`", " ",
  t+ h. H. T! R      SuperscriptBox["\[ExponentialE]", 0 C, a3 D- N  [; x; @* C9 K
       FractionBox["1.1102230246251565`*^-16",
  F* K! d. H' v& V& T. N2 j3 c        SuperscriptBox["Delta", "2"]]]}],
( L- F+ B" D4 \: J8 T. a7 {0 ]     SqrtBox[
7 A, Y: e5 J2 b      FractionBox["1", 0 S7 r( P1 ~! q1 X
       SuperscriptBox["Delta", "2"]]]], ",", ; j" s/ m( R2 O2 G3 D, a
    RowBox[{"Integrate", "[",
% v' U6 Q: T$ e" u     RowBox[{. R1 D2 Y8 Q, A9 A, s1 S
      SuperscriptBox["\[ExponentialE]",
% z) O- P8 J& u' D2 s& S7 S       FractionBox[
* c# f' v7 B; \! m' G6 B        RowBox[{"1.1102230246251565`*^-16", "-", 3 [( ~* G: C; V6 ~
         RowBox[{"1.`", " ", ' H$ C. {7 s- C7 |. s
          SuperscriptBox["x9", "2"]}]}], , Z6 j! M8 }. O/ p6 X, w1 @
        SuperscriptBox["Delta", "2"]]], ",", ! L9 o5 A% O+ ]' J4 ?; y
      RowBox[{"{", $ }# W9 l" G8 {& z  a0 L
       RowBox[{"x9", ",", 2 }2 f4 Z9 B' e  i1 D* e
        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
+ z: V) h4 i. d      RowBox[{"Assumptions", "\[Rule]",
/ F' ~9 F* Y3 t' S7 G       RowBox[{2 P5 E8 _( m! t  M# [% K( o
        RowBox[{"Re", "[", ( d$ `* n$ i/ c% Y
         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}], + Q0 V* U& S- Q* p  z
     "]"}]}], "]"}]}]], "Output",$ j6 d. c+ p. ^. Q
CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
# K; |; n4 ?: k  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
* m% y& q3 E! p. K- i& o  t! y  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9, 5 B. g; O6 V- N+ I" Z
  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,   w$ S7 q4 e4 f9 d* l& x
  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
5 \' I# N! B" n+ G9 X  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
7 }9 e  }" Z  c  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
# E. q; L( |3 d}, Open  ]],, g( B1 H/ Q# P

8 f+ v+ ?1 j& q2 f& C0 @Cell[CellGroupData[{
/ O( A& p" A1 d3 L- _6 d; D/ S& L
Cell[BoxData[- O. r7 K- t8 j' F* ?
RowBox[{"Delta1", "=",
; Y7 V+ r5 l9 c& D. v  StyleBox[
( G9 @0 S8 [& D: @+ K5 A   RowBox[{"97.40909103400237`", " ",
7 {+ E" r% W7 `) R4 k: G+ l$ D* [1 A    SuperscriptBox["Delta", "8"], "  ",
1 I2 v* X8 D3 d3 b1 M    FractionBox[# @% c; q7 O8 e
     RowBox[{"1.7724538509055159`", " ",
/ @: w. m6 p5 I# k5 Q- V- e# w      SuperscriptBox["\[ExponentialE]",
  g3 S  M% W% n) M5 Q$ a( Y3 {       FractionBox["1.1102230246251565`*^-16",
3 z3 Q" @8 t" ?( c) _7 Z        SuperscriptBox["Delta", "2"]]]}],
6 k# V  B1 m' j1 Q4 y: s7 P, c, ^     SqrtBox[$ ~: c3 u- U' Y7 o& {4 ~) q6 U
      FractionBox["1", # }4 V) p7 j/ |
       SuperscriptBox["Delta", "2"]]]]}],
' K1 |( k/ b* V$ K   FontWeight->"Plain"]}]], "Input",7 r. f. Y; W  N: p! z: R* `
CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {6 ], N* w2 |. W7 ~  Z
   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
, _$ n4 ^" l. R+ @. R, k' s+ j   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
& P& g; B" J& I" ~   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
* s0 [, Y5 @1 U9 Y7 y! p. p4 B   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
1 D/ q: Y5 N" g4 r* [   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],. Q% }! A9 B. g
; w& Y; O' `2 @  a
Cell[BoxData[
8 l$ V) H0 n5 e" J- P# h- J FractionBox[
3 E" Q% @. U6 `4 ?  J  RowBox[{"172.65311851642346`", " ", 1 M4 g; S. P. q
   SuperscriptBox["Delta", "8"], " ",
6 L3 X& F  T1 j0 c( \   SuperscriptBox["\[ExponentialE]",
! [/ S9 a& ^+ X    FractionBox["1.1102230246251565`*^-16", . z' h8 {; P. r  L9 v' {3 J" H! n
     SuperscriptBox["Delta", "2"]]]}],
8 D% R3 c) K) N: l+ s/ H/ `  SqrtBox[
* C" Q/ c; f- g6 j) `6 F" s   FractionBox["1",
' f5 p; x0 d1 S6 ]- ^$ r    SuperscriptBox["Delta", "2"]]]]], "Output",
, a, ]! D; x1 Q! C+ t" D1 G CellChangeTimes->{
' w! v9 \7 k- X% \6 ?- r( r  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
3 F$ v7 u, J; H) r0 I- P   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9, ! Q  {0 Z0 U8 @5 p2 T
   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
/ _" ]" \  o( q0 y   3.578012166234375*^9}]
/ s7 ^& k; H, F. e7 a' c}, Open  ]],# Z9 @4 ~; t! I/ o7 C5 }( L; ?

* H7 G3 @; }/ ]# CCell[CellGroupData[{( W: h. L- Z' W# S, e% P

, r( l" h- @/ kCell[BoxData[$ \' S5 c( f0 [! @: O+ k
RowBox[{"DeltaX", "=",
9 T% Q$ {- @5 v. f3 J3 r4 l# O8 u  RowBox[{"FindRoot", "[", 2 k1 w+ t6 |+ d; e
   RowBox[{
- q! v* w# D( H9 Y& a& t    RowBox[{"Delta1", "\[Equal]", "1"}], ",", 1 e, P. S$ K3 K' S- N- [
    RowBox[{"{", 9 F; h/ n% C- h9 g3 Y
     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
1 a+ X0 I" o1 m8 t2 F0 S CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
6 `: Q/ X( r  v! h   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
$ R. T# o% M. ~0 f/ f2 J5 b   3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
. C$ y/ w% T) O  p/ x# u! p   3.57791921584375*^9}}],
# p  n3 [! s. c/ k
6 V9 Y1 {- m6 ^9 Q% F: q, @Cell[BoxData[; @% ^7 ~8 ]. l* x' p
RowBox[{"{",
0 u0 e! _* `$ @# |6 ~  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",5 H$ t5 k1 q: c8 k! ~3 C6 N9 i1 F
CellChangeTimes->{
( S/ _5 B2 k1 K  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9}, & X+ `% ]: j$ k1 z
   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, ; }% x1 f$ P# C8 R, h! ^
   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
+ D. R% |/ \7 c% {1 @   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
, a/ m8 e# C! e   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {3 o! r7 O) r9 l7 x- c
   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, " Y! l6 m. g& n1 @0 q
   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
+ n$ x& P1 S( e   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
! Z$ P9 P* F# `  h  m   3.57796070150625*^9, 3.578012167703125*^9}]) M. _% h9 r6 r9 Z7 \0 E
}, Open  ]],
& e& Z3 F3 s$ U3 ]' ?/ ?6 b6 V# w2 D
Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\8 G* k. x! e+ O' E% Q" |0 X4 u8 F
\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",* v9 n; b0 z( \% V/ G/ X% T- ~8 T7 a" H
CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {+ \$ f0 t3 O6 B: I. ]$ Q
  3.577960705312657*^9, 3.577960707621461*^9}}],; R: }7 P+ {$ V3 ]. S" s% K5 S# u

, g" ~% l: \* V! d  P( cCell[CellGroupData[{
/ f% B7 h" K* [- P9 [) R/ X
  p0 M$ ]5 G7 B) @7 QCell[BoxData[1 d. @9 p: \$ `
RowBox[{"C1", "=", "Ca"}]], "Input",
+ {% X7 @/ ~6 Y' `$ A/ J" u CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
% V! G1 P2 R/ D& d  j9 x( g( o
- R" _- _$ ?# M! \Cell[BoxData[
1 v6 @; f5 j; r7 k& n! s RowBox[{"{",
$ _1 ^! j2 @4 J/ l' S  RowBox[{
0 U9 b& M' `* n" T! s  "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", + Y' B% @. t- Q
   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", 0 {9 J# H0 a+ s5 Y1 I
   "0.`"}], "}"}]], "Output",
; d7 n$ r/ y3 q/ E( Q4 Q& k2 S0 ` CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,
3 R6 ]! W( W$ _, s  3.577960710273465*^9, 3.5780121855*^9}], S1 X' {* A! g! I4 @
}, Open  ]],' v3 S" l. d$ o2 M% h; c
$ M3 P) }: m2 @: O/ w/ G
Cell[CellGroupData[{
  F' Z2 ^; E6 i6 z, N0 c' G) X) T+ I) y
Cell[BoxData[
5 [: E% Q; X+ X9 q7 M- b RowBox[{"u1", "=",
( Q* S' \( R  X5 n; G  RowBox[{' n) }5 {% L& D4 }' d/ {3 u
   RowBox[{"Exp", "[", . H) u/ x# c& u+ W
    RowBox[{& U# f8 C, Y) a4 H' c" d- U* F! x
     RowBox[{
1 o8 {4 k/ g4 h' O) E1 K      RowBox[{"-",
. V1 \0 T6 B: e, T: Z! N$ ~       RowBox[{/ E+ m$ f) {! Q
        RowBox[{"(",
/ j% o, M2 V& D& P& x6 g' t- Z* {# D         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 4 y' K) \. I0 t. s4 K  t( Q1 }
        RowBox[{"(", 2 O/ D1 p+ `5 G0 ]0 m7 O+ ^
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],' F4 v8 B  R; _* N; z
     "]"}], "/.", "DeltaX"}]}]], "Input",. T6 {7 m0 z. P. P( c; l' I
CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
" n  u8 @/ o9 m5 ~( f5 B6 b   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
) o: I# T. A8 @   3.577919193484375*^9, 3.5779192326875*^9}}],- O1 ^( j) `) L" s1 n2 o

9 x4 w/ g! _, ]- M1 T, ]+ cCell[BoxData[0 r( N5 r- ~% C/ `9 Y4 T- x/ Z$ D# X
SuperscriptBox["\[ExponentialE]", 8 \1 }" ~: T  a& w& Y
  RowBox[{"3.141592653589793`", " ",
( g* Y, h+ y; y; N$ v& q   RowBox[{"(", 6 @" `) A% R; R  e( Q0 N7 }
    RowBox[{3 [0 E) B( ~% M3 P
     RowBox[{"-",
* d9 G! W3 _: }+ m      SuperscriptBox[. L* R# k5 L: ~* ?5 {5 \) W
       RowBox[{"(", % s6 H* D0 N4 t
        RowBox[{
' ~: Q- R" K$ ^6 z/ r         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
3 v! ]+ b. g! |& j" b     SuperscriptBox[3 K3 ]0 u3 p$ n. P0 f" l
      RowBox[{"(",
  o1 c& N9 W  S0 ^& @2 I# o       RowBox[{
6 J0 g/ I  g: A  B9 d, I        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", ; o/ b7 ~( W- ~0 b( E5 ^
     SuperscriptBox[
5 h) U  Z/ A/ n      RowBox[{"(",
( W$ ^; T0 g) _( x, v       RowBox[{
  J2 X8 I* u9 ?  d; V& {7 _; j8 t        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", $ O% z( c* H: Q- J1 C8 ~
     SuperscriptBox[8 a1 f) T& p' D3 `% ]
      RowBox[{"(", ' ]! a: A% \, F; ~: t9 l
       RowBox[{
$ G' o% Z% h6 |2 t& [        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
& c4 S; E! ^6 \- a& v9 r     SuperscriptBox[
1 S, z  H0 @" v8 J- o# o' h      RowBox[{"(",
  r) ^7 Q4 D3 a* O2 p( B       RowBox[{+ g: }( t6 c/ v
        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
- l4 L- {2 e% L: V2 U     SuperscriptBox[. T# W: G( H: r1 |0 Q  d
      RowBox[{"(",
3 Y6 O6 Y9 h# A4 X       RowBox[{4 `% ~% X3 O& u8 y
        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
" w; |4 V+ g/ ~5 k% K  z2 y/ ?     SuperscriptBox[
' {$ x- p+ ~6 @( I. v      RowBox[{"(",
7 Z" ?  f- j  e; p- a9 A: b       RowBox[{
- n" n2 m  P, ?" j) q" [5 W5 ~. o        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
8 |8 E: p7 r3 x1 z- j; V     SuperscriptBox[& p2 k3 t; B( t  A
      RowBox[{"(",
0 i: G& n. y2 P6 r2 o       RowBox[{) ?% S1 V4 a; m3 ?
        RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", ! d' b9 |! Q5 t6 c
     SuperscriptBox[
' T& G5 @3 ?+ C6 l4 S% N' ?      RowBox[{"(", ! _: x& L$ z8 Z0 I% a
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
+ ~, k& \  |/ [6 B1 K    ")"}]}]]], "Output",( O# T4 g1 x+ c* o
CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9, + N2 b' G# i0 O) E
  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, 2 s+ C1 U2 j4 n% I$ e6 i1 ^
  3.578012187078125*^9}]& R6 \; O: A0 e/ h6 p$ U- Y6 w
}, Open  ]],
+ H& R+ X0 Z5 W" Z  |+ v+ ?. q/ o2 \3 D0 @: f) h# O4 ~+ \+ d
Cell[CellGroupData[{: k0 D0 R( \, R) V& F1 g7 l. ~

  H4 k* L( n4 sCell[BoxData[1 n2 ?+ ^. j8 B: @% R
RowBox[{"C2", "=", "Ca"}]], "Input",; H, j3 ?, |! ~( c. A8 M0 q- V" E
CellChangeTimes->{3.57792047321875*^9}],
9 g2 o' {1 F) c1 b" p8 E7 ^3 ~* x* R/ V% B, J- T1 }  ^% g, M. h, L
Cell[BoxData[
1 m+ B6 [1 m  c% M6 |' j% b6 ] RowBox[{"{", 7 `8 X2 P5 U; q
  RowBox[{
; H" Z$ ^6 y3 ?' }' \; W  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
' s- D8 r% t, c2 G  p9 F5 u1 ~4 y   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], 7 H9 `) J1 `1 C  Z; c2 F( C5 m' {
  "}"}]], "Output",
$ Z: x& e4 Q8 C! c, e! ~ CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9, 8 }' a# L+ Q0 l. G
  3.5779607401163173`*^9, 3.578012204671875*^9}]
1 j: P+ X( `# d9 u" l; k6 |. z8 B}, Open  ]],
7 |& M+ n/ C+ C6 }( b9 ?
7 t6 l4 f$ ?( c  t+ TCell[CellGroupData[{9 D- h8 s  {$ V: E, M. v# k: [& G! T
9 y2 s3 ^2 a6 j
Cell[BoxData[  J0 |7 j2 m; Z$ e1 m  H
RowBox[{"u2", "=",
9 ?$ m8 J$ h: Z" W7 H; I& J  RowBox[{, q0 E. n+ ?' o  n! |
   RowBox[{"Exp", "[",
: d. u1 e3 B7 i    RowBox[{# |5 c. Z/ o1 K$ L$ Q
     RowBox[{
& a6 d2 A8 ?* l+ |      RowBox[{"-", % h$ ~# I: u/ ^( G1 R
       RowBox[{
8 W2 n, s# @. f. }' s3 U& N7 }        RowBox[{"(", $ v/ l: G+ \# x2 S
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
( @0 m, D# f" B4 S5 p, U% C% ~, }        RowBox[{"(",   w7 R% P2 j1 `/ C4 X( U+ |
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],8 O' b4 s8 I8 N& z& t# P
     "]"}], "/.", "DeltaX"}]}]], "Input",
% y4 p; O5 e4 F8 ^ CellChangeTimes->{3.577920484109375*^9}],4 ]0 }: |5 ]; t3 G

. a8 w1 P. D3 ^0 N6 {- [Cell[BoxData[2 B  V. A' n0 O. G1 P
SuperscriptBox["\[ExponentialE]",
/ E4 [( K! A$ q# D3 r  RowBox[{"3.141592653589793`", " ",
9 _& d; Q6 [; v& p) b  v! q# R   RowBox[{"(", / j% H, j7 l8 ^' Q
    RowBox[{
& W, W5 T0 p' _     RowBox[{"-", ( H1 \& V0 V" u% T) J- M  Y5 }
      SuperscriptBox[2 ]2 a( J5 x7 P
       RowBox[{"(",
  l4 V: F2 U) i  t' c6 q        RowBox[{
% w" ]( y3 _' c9 {8 r) n7 p         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", 4 E* r( H- h0 O: ?
     SuperscriptBox[; o! k/ U- @; s
      RowBox[{"(", 8 E. S' n; E$ \4 d; I
       RowBox[{
  M2 F/ V" Y5 e3 A6 b        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", 7 K& }/ q6 T6 n5 W. I3 s% {
     SuperscriptBox[% l- w* p/ U0 Z9 V5 z0 P1 z
      RowBox[{"(",
" O; z: U* w5 i% [& w: [2 P$ x; O9 _       RowBox[{
- Y0 R. b+ ^9 A- R, M8 e& O        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
6 z) x: w: y1 @/ N8 [     SuperscriptBox[
2 `' v& {! T- k$ x/ y* `      RowBox[{"(", & u4 [; L! p- D) |
       RowBox[{
& g( w/ v$ X2 ?& ^1 o        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", ) t9 L: u! G; b3 D" K
     SuperscriptBox[  T8 p- v+ Q/ @8 Q( j% i
      RowBox[{"(", % v  j8 \  @+ N1 d+ `  `$ O" v
       RowBox[{7 M# K+ l8 }# W" t9 F
        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
0 k& ^, A# b9 f4 A* T4 x9 N     SuperscriptBox[
7 j, k& n+ ^- f2 {+ V9 N5 N6 J      RowBox[{"(", $ I* d- R2 e0 z: v1 K4 v
       RowBox[{* |: q3 a, o, s0 g3 X: y* X
        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
; k/ w# q. ]' _3 G: M7 w% a     SuperscriptBox[4 m9 E( J3 K3 w
      RowBox[{"(",
& G- ~* H$ H' {& q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
7 \( t. R8 ~' H3 p9 v5 L" c# G. }- V     SuperscriptBox[
/ k8 r1 a  t, O& [4 w2 p' j      RowBox[{"(", 0 u) W# l7 H6 V) u. F7 Y" t& `
       RowBox[{
" p% z5 D) n; S& J; y) D/ m) b        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
  j7 e( [$ y, {     SuperscriptBox[
# u  q: e  I  ?, s      RowBox[{"(", 2 [$ p, T3 g1 C. i4 C' W& }
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
' V, d% F' O% w& d4 t    ")"}]}]]], "Output",
. r6 `  z0 R' ]' f/ K* t; u7 l CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
4 G" d8 T7 {2 U6 G- h  3.5779607413955193`*^9, 3.578012205484375*^9}]
& v$ @% i: l: |! O5 _- G6 }( e}, Open  ]],3 b& P; z2 ?' o( M

) h6 C2 k& x0 A9 b$ {2 g; @1 VCell[CellGroupData[{
9 p0 ^* {$ b# o) q& |
+ E$ w, }2 o! w6 ^  D; CCell[BoxData[
! q' h1 P- K; J' |; y RowBox[{"C3", "=", "Ca"}]], "Input",8 K% y3 k6 Z" E) F6 z+ ]/ n4 i
CellChangeTimes->{3.57792064125*^9}],) F3 q, ?6 i  |( F

" w" m+ k4 M0 G. g+ P5 m1 [  gCell[BoxData[
1 W. C/ C1 M3 ^  ^5 v RowBox[{"{", 8 y9 M8 w% Z  E
  RowBox[{2 _- E9 F9 C* l, M& B
  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",", / j+ @+ H+ b# A$ A, j
   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}], 9 g/ r5 k( z7 i' k- u
  "}"}]], "Output",
& i- q; J& _8 ~4 |" B1 z1 R CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9, 9 x$ }$ v4 P! g! c" z& q
  3.5779607642027593`*^9, 3.5780122103125*^9}]
$ U! W9 [# V" x; \/ \; o4 b8 x}, Open  ]],
+ p5 P) I# x7 `  a, e" B' P& \& V
' p  V; _6 }3 V! ^# xCell[CellGroupData[{
* A  A8 }+ u  P8 A0 {5 m, q' a5 E& W4 ^2 [3 [% r! I" D: Z3 v
Cell[BoxData[
2 @  U$ p" T. D' G( t& L RowBox[{"u3", "=",
- x: o% w% y. E9 g  RowBox[{
6 U: M# Z' r, Q( I   RowBox[{"Exp", "[",
7 U. q7 Y$ J" m) S( J+ d" Q    RowBox[{
3 `2 u* v8 v) j, F     RowBox[{
/ Q1 A# n$ W0 [/ u7 {6 ~* z      RowBox[{"-",
; a# ]! X6 w3 Z+ P3 |       RowBox[{
" ^, J" L6 c8 t  w0 z! E        RowBox[{"(",   i7 K- s% s( `9 C9 b! J" B( u
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", # [% V& J0 m" j% h( {
        RowBox[{"(",
6 i9 l$ w& k$ m; s) ?* J         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
1 i; Y0 D0 q  }: \1 N, K     "]"}], "/.", "DeltaX"}]}]], "Input",
+ B7 k2 z; |' A3 V; \. J CellChangeTimes->{3.57792064921875*^9}],
1 Z' _& ^% M& a0 K% I# `
1 s  Q- ]; J0 r! aCell[BoxData[( ]7 w, z2 q. Z4 t( W: W
SuperscriptBox["\[ExponentialE]", ) o; v+ {6 \* ^
  RowBox[{"3.141592653589793`", " ",
6 B6 M8 p  e# X& J" F6 U  y2 r: V" y   RowBox[{"(",
* v5 k* v- P% ]5 t" z0 q* J    RowBox[{
# z4 ]0 [$ N* `; [! V! c     RowBox[{"-",
4 T  V7 |+ X1 k# A, W9 o      SuperscriptBox[
. f8 p, [3 m8 L4 _. H% f: p       RowBox[{"(",
* }3 G: R+ |: b( P1 O# h" P        RowBox[{
. v7 [) f$ v( r6 j6 O         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", & @. b: u1 v% n3 a) i
     SuperscriptBox[) e. \. F4 |. l2 S2 u! `
      RowBox[{"(",
+ G7 ^3 \! n. \- l+ r: p" p       RowBox[{
5 X7 k# f' @- [3 \2 b' \# T8 R4 G        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", 8 f, G0 {. q  t; O$ U/ i4 I1 ~
     SuperscriptBox[2 r. L# @% d: t. J2 I# S% W8 r9 v
      RowBox[{"(",
$ y7 o5 J. ]1 c' J/ A6 W- v7 I       RowBox[{/ ?6 M+ _) n/ g: ^/ r
        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
& T" O9 _7 F- N' N     SuperscriptBox[+ F: `) |0 L+ N6 t" T0 s1 P9 r/ A/ }' T
      RowBox[{"(", ( U$ L: H7 _. X
       RowBox[{
! E/ P1 v0 z( c5 x: K; P4 a# `        RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
1 V# G! H- ^/ r. g2 ]7 J     SuperscriptBox[
# o& L+ j1 H# j8 o      RowBox[{"(", " i1 W- E1 k/ G% r3 p
       RowBox[{
1 H6 a- _( C1 k; z7 ^        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
: U5 p0 }$ E1 `     SuperscriptBox[
# }$ k' s" W) t      RowBox[{"(",
2 J3 X+ R2 I  @1 J       RowBox[{
' E! _6 ^! z: J% T$ E        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
. Y$ `. ?& p4 T( J  b1 k; D6 v     SuperscriptBox[. E" u0 ~$ L  a- ]3 m
      RowBox[{"(",
  j4 i3 r" k$ U' B3 D  J1 Z; d       RowBox[{# P7 _* A% @) }
        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", 4 Z5 {; z5 Z: {5 _
     SuperscriptBox[7 {$ S" n) r3 Z- O+ m
      RowBox[{"(",
( ^+ E( v. k$ m2 f1 @       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
1 ^0 P; x2 y0 L! [, Q9 O7 t. ^! }     SuperscriptBox[
6 ]8 [6 W1 [  d" n0 S: a      RowBox[{"(",
. R( x9 L! o6 ]1 @! l       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], % e( W* U- R2 r. e" O0 O; D: A
    ")"}]}]]], "Output",$ E1 {% l6 C4 Y& i0 s
CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9, " ~: @" G- ?- v5 u$ N
  3.5779607654819613`*^9, 3.578012211515625*^9}]
+ U! {' q! h" q) y7 z, X. m, j  l}, Open  ]],0 o+ t9 K* f: Z
- p2 C0 W% D4 W
Cell[CellGroupData[{
  U- c6 N8 R# S* a
& W- p0 t6 P+ L& |- GCell[BoxData[
( q; [! ^. g3 x! ^$ D RowBox[{"C4", "=", "Ca"}]], "Input",
' d$ I, a* K' d' V- S1 l  }7 o: ? CellChangeTimes->{3.5779207559375*^9}],
& V" L' _) n8 u* ~- o, J' z1 n  O; y! O# A
Cell[BoxData[1 c! [7 g; K3 M
RowBox[{"{",   M' e) p1 r4 d: m: l. T5 B
  RowBox[{
+ }( v" \' N( R" K  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", + G4 g# _" s" I# S3 u' ~
   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], ; r  {( J# c6 r- n7 U
  "}"}]], "Output",# e  e( Y, I  X- w" `
CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
3 }; w+ ^* B: j% h/ u6 M  3.5779607861363974`*^9, 3.578012216171875*^9}]
, i! N# O0 N9 M3 M9 U}, Open  ]],
1 J( c( X/ T! [9 J+ K
/ N8 O  K2 T- A1 {Cell[CellGroupData[{( G/ z3 S4 \' `( u
. L" @. r! {' r9 S* o
Cell[BoxData[- n8 t; i: A( Z& {# `& N3 A+ G9 A
RowBox[{"u4", "=",
3 V# u- z: }3 n. y" I4 P. p  RowBox[{7 f9 Q- W+ w$ u, S: ]# M
   RowBox[{"Exp", "[",
0 |2 o6 }: ^. A1 z9 G' N6 Q    RowBox[{. n8 d: K1 Y2 o2 R/ n/ R$ h
     RowBox[{+ ?9 m& [( N/ y$ B4 ^- ]& q0 H0 E5 A
      RowBox[{"-", 6 o2 {7 {" O. P4 T. H' k
       RowBox[{5 Y4 }) D+ K6 |0 A
        RowBox[{"(", : {4 f0 h& i  {& O0 m6 p' f
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
' u' f7 g( C( ~        RowBox[{"(", ) f$ Y' Y+ b% h7 u
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
5 B- y6 x6 K$ c1 ?; y. L. x% ?     "]"}], "/.", "DeltaX"}]}]], "Input",
! D9 I4 S  @& M# P( K CellChangeTimes->{3.57792076325*^9}],0 f" @8 V1 i: Q" Z% a7 {

! b! Z, |# g* M, zCell[BoxData[+ L5 ^6 Z$ \: _' }
SuperscriptBox["\[ExponentialE]", ' Z9 e" w; o  }/ W/ ?4 b- s
  RowBox[{"3.141592653589793`", " ",
! D( w. I+ f6 Y   RowBox[{"(",
5 L* t! Q8 F  i  v, Q1 ~    RowBox[{
8 K8 J  {/ ]! b+ F0 V     RowBox[{"-", - ~# w; \0 r/ q
      SuperscriptBox[! Q0 f3 S' i1 ^9 L% \( P6 h, z2 {
       RowBox[{"(",
* {7 q& @" A, x. l# \6 {4 B% R        RowBox[{
( u, n- S8 p' D         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
" j" r+ p4 ~; t* y) N9 H1 I     SuperscriptBox[( \- `  P* ]- W4 L, N
      RowBox[{"(", 0 g4 I6 H: A$ w2 |
       RowBox[{; u; U, w6 R& [/ I0 R$ i2 G
        RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",   x! J; Y$ `, `- _3 b
     SuperscriptBox[5 i# e* ]4 P7 |+ F- ^
      RowBox[{"(",
7 w4 A0 z, ]: _8 q6 ]& G       RowBox[{
9 [9 S7 ?" u: T& s" }! @* y  _        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", 4 l% O, Q3 d4 [' i; {
     SuperscriptBox[
& S4 g% Y0 q  _6 U( T/ L      RowBox[{"(", 9 o5 Z6 d7 z, I4 `8 Z
       RowBox[{. r/ s) b1 V  ?: O: V. C  g
        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", & m0 o0 q% m6 J7 |7 e+ U
     SuperscriptBox[" k1 @3 l( i. U, I4 @
      RowBox[{"(",
6 v* W, o# d* s+ F       RowBox[{
  V- l# u. n) a" _        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", : _5 ~" u$ y  y/ R& Q7 t2 x. P$ `. L
     SuperscriptBox[
* g, L) O7 O- }$ W1 I      RowBox[{"(", % A/ |: [: W6 Q/ }- k1 |4 |$ p6 m8 `
       RowBox[{0 F6 X" u$ v$ U5 q0 h
        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", ) _% U& ^1 g4 u6 O/ _
     SuperscriptBox[
) c* \! f" H7 K" {& n      RowBox[{"(",
7 E! l$ _9 {+ k+ ]& K. S       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
9 [" F; ~7 |$ l& ]" b$ n0 R6 O     SuperscriptBox[- k; S; `' s- l1 N2 [
      RowBox[{"(",
5 L  W0 I0 W, |       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
) F7 t4 E9 W# b9 U4 V0 `% Y     SuperscriptBox[
# n& |6 |8 L. u8 |      RowBox[{"(",
% t  ~, N( p! o+ h7 a# q       RowBox[{
9 @1 P7 H' @+ V5 F: S        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], , n& t: A* d$ y3 h4 T3 J
    ")"}]}]]], "Output",
& D* Q# S( ?" K CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
3 t4 t' m) U) h) p( f* K  3.5779607873531995`*^9, 3.5780122169375*^9}]
: l5 o$ |' F! V6 |  ]6 i* m0 u}, Open  ]],
, O0 m" p3 F' b! J+ n6 {# e5 c' Y; A% N. n! x$ g$ \* n% u. A
Cell[CellGroupData[{
) ^5 Z* B6 d1 r+ ?! k. m0 ]8 o
: `0 l6 k1 H7 @# v+ oCell[BoxData[- a7 a& O3 w% |6 v+ t& h
RowBox[{"C5", "=", "Ca"}]], "Input",
. q$ q! V. t& W; \' f* P1 c! J  q CellChangeTimes->{3.577920860671875*^9}],
' S# z" ^$ V6 L+ S, a9 u9 ~  B/ P
5 R' g9 a' L7 L' A3 t8 |& L! v' |Cell[BoxData[6 M$ @: F  g( ?! x# j4 X
RowBox[{"{",
% w' w7 H' y' e6 X3 q2 E% R( `  RowBox[{6 J1 ^0 {* j9 R
  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",", & u5 B/ O! Q( {4 l8 S
   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
# m8 i: U' {9 e3 {+ T; t- \$ T  "}"}]], "Output",
9 ]4 e4 o0 |6 K& z3 B! @ CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
9 _4 U& o: p" ?- F; R  P  J& a  3.5779608137328453`*^9, 3.5780122209375*^9}]$ ]8 c3 _" z' ^% W3 i% s
}, Open  ]],
% m0 z- c- z* u/ X
- C& k$ K9 f; G  J) mCell[CellGroupData[{
& y/ x2 G) _, G5 W  P" Z- v# ?: ^" ?1 v$ q! n
Cell[BoxData[8 L. u  U, m2 [) |% ?$ V; h6 W) c
RowBox[{"u5", "=",
7 M' l! U! V1 V/ @2 ~" d5 c4 m7 |6 b% S6 P  RowBox[{8 y5 N1 w+ _8 v3 c
   RowBox[{"Exp", "[", . c/ l# X1 o, m* Q; g7 u. J
    RowBox[{) K2 p! G1 Q+ g4 e5 A) }- u/ q0 O& i
     RowBox[{* K! X1 _9 h. ~0 B) c8 W# m
      RowBox[{"-", , ?7 X' o  a) n6 d# L; r
       RowBox[{
. H8 b- \% `4 @+ b  f        RowBox[{"(",
! n. C( e: f& |8 L, m9 I         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 6 B- S- c+ d( L8 ^) [) I' @
        RowBox[{"(",
+ i+ M; C! a; ?! {         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
( S. R6 R- |/ w4 A+ I  a     "]"}], "/.", "DeltaX"}]}]], "Input",
2 l& K2 a# E9 F% n5 L CellChangeTimes->{3.577920869375*^9}],9 @  B; ~7 R7 U' e5 d7 _
* M: ]+ C' p$ w9 F+ x
Cell[BoxData[; y# o6 A/ x8 M/ u% @, C: \, i3 G9 p
SuperscriptBox["\[ExponentialE]",
* [& M4 T/ O+ u6 Q8 l  RowBox[{"3.141592653589793`", " ",
. M. b+ h; P4 P5 e5 D   RowBox[{"(",
* \" ~0 ~* D1 g9 p2 I    RowBox[{) w7 F  ~- C8 ~4 x  z. |+ W3 I$ T
     RowBox[{"-",
# A- U& p$ ]5 K( ~, w' `% L      SuperscriptBox[
% }5 ^/ [, m! d       RowBox[{"(", + m9 j: y9 X' C( m$ [
        RowBox[{1 M9 ~6 A% |0 y4 ?* e
         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ) j* x7 i+ O0 Y0 h" U
     SuperscriptBox[
# u+ U" k3 Y+ p5 G/ ?( K- ]% o      RowBox[{"(", 0 E5 z6 d; Y+ @/ p% U0 m( \* J" I. D
       RowBox[{4 R( w2 X) X! G- X
        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
* E0 m& m( z8 P# I( D     SuperscriptBox[3 d" s, L* N. P) F8 z! N# w% e
      RowBox[{"(", ! b4 F, `6 n+ r5 w9 Z" f
       RowBox[{" Z  U6 V/ y" O. t' V; @4 |
        RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
: B! p: b( c1 p4 X0 C" u$ L: y0 H     SuperscriptBox[
3 p3 f5 l: c$ t# f6 j/ I- Q$ [: ~      RowBox[{"(", 4 x7 C1 u" L/ h6 c$ T+ j/ E1 @3 ^; _
       RowBox[{8 Z% `) u$ @" \4 D& H" e
        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", - P% g6 o) D1 p( {# x4 f- x
     SuperscriptBox[- x) D5 i, W2 X% c7 ]6 ^- A. a& p4 U  h
      RowBox[{"(",
% ]. h5 b2 N) t+ R2 f" N) j5 G. k, R       RowBox[{
5 |5 |6 ?+ x6 h        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
- V% I  X- U6 T8 a6 W     SuperscriptBox[
: v! i2 Z" S  g3 ~* G      RowBox[{"(",
9 p  _/ c; ^+ j; l. s1 N0 q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", * \3 G) S* w3 [: t- n
     SuperscriptBox[
9 M. b3 c% o% D" M, {4 C; M      RowBox[{"(", / f* Q( ]9 G: U+ U$ H0 @. a7 g
       RowBox[{
& x) |( p( ~6 d! j4 z4 P- o" E% d1 @        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", " C# @' d  |0 \& u7 f
     SuperscriptBox[
2 ]; |3 `" V$ o      RowBox[{"(", 3 Q+ y* a8 e2 U  |7 L# C3 @7 X! U
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
5 n1 z" L) _/ j3 _# A# ?" Q# f     SuperscriptBox[
: W7 C/ H. w& D. V6 Q& y* }      RowBox[{"(",
6 Q& R2 s4 j0 D5 x" L% M9 ^       RowBox[{
- e- `2 ]6 E) Z- t        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
9 t* d3 g3 ]' ]; Z1 a9 s+ E  K    ")"}]}]]], "Output"," t3 f2 ?" R* l  @4 v$ H0 b& }
CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
. N/ z3 q) Z3 T& \: `  3.577960815043248*^9, 3.578012221953125*^9}]
! Q4 x; |! N- Q1 G}, Open  ]],9 g$ j) }$ Y1 Y" u) ?, b

$ b$ ?- j/ {% X3 ]Cell[CellGroupData[{
2 s7 g$ E( k2 O7 x, ]$ g+ ?9 D+ H7 t2 Y
Cell[BoxData[/ @  a( X0 T% ~: Y  y' O
RowBox[{"C6", "=", "Ca"}]], "Input",
- W0 S. X. ]- y% D& }8 i2 L# L CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],. r; A) a+ L9 d* g" K

  \( s5 o/ Z$ ACell[BoxData[. C( \0 k' H2 b, M2 O+ ?1 U
RowBox[{"{",
4 L2 [0 f: d- [2 J/ Z" X  W1 n  RowBox[{, Q: y/ @) ?- K; d& a
  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
! Z& D9 v  H9 H9 u# ]! z   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
+ U8 z  h* z( K( l   "0.494866`"}], "}"}]], "Output",
5 ?, R7 O# c' M9 t8 C3 n! Q  R7 p CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,; v7 x, j  {5 k: g0 ?
   3.5779608373044868`*^9, 3.578012227359375*^9}]
- r/ O+ ^6 M) l1 q2 P}, Open  ]],
" i4 q0 K+ F8 S; K6 D/ [! M' P# j9 ?& h3 }2 `
Cell[CellGroupData[{$ z6 X& j4 y  G' y! Y
. p2 Q1 P# H$ f2 a
Cell[BoxData[4 D  N8 o# L' U$ [5 n% {; F
RowBox[{"u6", "=", 9 K4 O0 i) m6 {5 w; H9 T
  RowBox[{& ^+ X4 W4 a! ~$ y; V" z9 f
   RowBox[{"Exp", "[",
& K# j+ H0 \4 L! s: h' ]+ i    RowBox[{; V$ [, k4 L( B# N# Z6 a6 h
     RowBox[{$ y2 j) E" w* j; y
      RowBox[{"-",
% C5 l% V# y6 k/ R% e       RowBox[{1 T- B( q" u8 e0 b4 X! U2 o/ O
        RowBox[{"(",
7 j( M. l2 _- v1 ]: _+ D         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 f4 L2 o( S/ f) O
        RowBox[{"(",
. r9 [% v. z" D7 x/ n9 t2 k) K         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
5 h! P5 V( z0 }8 L$ q! y. q  T     "]"}], "/.", "DeltaX"}]}]], "Input",
/ E! u( F$ }5 V- t# [1 S, c4 J CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
( J; u1 y: y8 \# X% l, r0 |8 x* b2 C! v$ Y0 i
Cell[BoxData[
5 @. D2 K& y" ?$ T1 N SuperscriptBox["\[ExponentialE]", # H) i( g& a8 H  c& |# N
  RowBox[{"3.141592653589793`", " ", 1 _; Q% t2 M/ s4 ~
   RowBox[{"(",
0 Y4 T, b% {7 A. V0 u; t! t" D% z    RowBox[{7 w# Z* d: x: l8 H5 z: f& H' ]- H
     RowBox[{"-", 8 a- P2 a& i- K/ P+ Q# Y
      SuperscriptBox[  u, q9 C) A2 T; R) l+ g1 b
       RowBox[{"(", 1 X' x5 n1 ?" U: L
        RowBox[{
( y/ Q( o1 R: ?2 @; W% ~( M         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
+ Y7 p$ O% W6 F7 b  O2 \8 `     SuperscriptBox[
0 Q( B! @, ~6 @2 B4 [; R      RowBox[{"(",
/ e& \! [1 D3 p& C       RowBox[{
0 A8 P2 ^/ c* X3 ~6 P, J! A        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", # ?" h/ b0 v# N+ E
     SuperscriptBox[2 h0 C3 N& ?4 ?, `% Q# k: J# e$ A3 D$ L
      RowBox[{"(", 0 V: E0 q$ T# R0 Y. k8 N: t
       RowBox[{& e& G  U: p* C) V
        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", 6 B" E. z- D1 R) p3 T3 E
     SuperscriptBox[
6 C$ q7 Q' q5 w* X$ n2 ~+ U      RowBox[{"(",
0 ~# b5 R* h4 E. N4 a  A       RowBox[{
" J9 o0 N4 W3 @% ]        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
) z: `( f& `; Z' O5 m) R     SuperscriptBox[6 m4 @" G1 @5 R7 s
      RowBox[{"(", ' j  b7 w# H" t, t1 R
       RowBox[{
5 p9 q6 A% U1 v        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", 2 l! _0 B& z/ C, N* l' P! ]; j
     SuperscriptBox[
0 i/ }, ?: K* ^4 b* d, P      RowBox[{"(", 4 [, `% G$ i& N
       RowBox[{" v. D# P3 V. }7 T
        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", % \# B1 T1 O+ v7 N
     SuperscriptBox[
9 R" J9 C% K, u6 e" b4 }( G& E      RowBox[{"(",
1 F; ]- W  p0 M       RowBox[{
1 G; ?2 `: \0 T, m        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
' `7 l/ ?- ^" g! ]4 |5 g     SuperscriptBox[) V/ N$ U5 J* J5 z1 r5 O8 Q% ~4 f
      RowBox[{"(",
' t2 z  T$ m0 A3 O6 Y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
/ g% Q. ^8 L# O6 Y' D' q2 q" A     SuperscriptBox[
) B: q9 p8 E' J      RowBox[{"(", % ]) u2 O; r$ [  f# _
       RowBox[{; a8 D* f! y/ f+ M$ d
        RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
2 c, V' X3 P* L2 q    ")"}]}]]], "Output",
0 U, X& K: Y- ~, h4 D* \& ] CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
5 B+ o& h4 n; m& M. ^7 L5 W7 s) n  3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
- s1 o! m: U, G}, Open  ]],
; R9 e5 I$ c) t% L# e1 q6 W. R4 Z% r& l, B2 w/ E1 I
Cell[CellGroupData[{- |8 w2 N, @: [% g/ [4 D* ?, ^

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

- b8 @+ ^4 h% {# Z/ a* g5 [. C, A% _7 e  pCell[BoxData[. B" `  j" \; p
RowBox[{"{",
9 {+ W% Q( {/ N4 B) q8 D  RowBox[{
: p7 F- r! a! Y" b' \9 |4 F" J8 z/ o* z8 C  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", 0 c  @# v' B1 ?! B  Y
   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}], ) H1 @( t! }: H* W! I9 C0 J
  "}"}]], "Output",' t$ Z4 N* U* p% i# w9 r
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
+ H6 C& ]/ S8 c1 G! T2 D0 u  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]: Q2 L" u* ~5 O
}, Open  ]],
9 R; I5 B- I# P9 D
2 _9 X' P  a" RCell[CellGroupData[{
: P1 F: Q: \+ g( a
/ }; R6 z4 s0 b9 I/ KCell[BoxData[' s3 n/ C: ~# m0 }. A4 t9 C, Z, e
RowBox[{"u7", "=", - u6 W0 }/ X+ G
  RowBox[{$ o6 V3 T& @- J( z
   RowBox[{"Exp", "[",
) y# r4 g; i0 a    RowBox[{. Y2 m+ X; _* |* w6 T9 g# P1 r( l
     RowBox[{$ S9 |) c' l  }" j4 s7 I
      RowBox[{"-",
9 K5 B6 C3 Z% x) Q/ c1 T/ x       RowBox[{2 H2 d5 w9 ?0 u- j, D: q
        RowBox[{"(",
: U: n& }, R9 O  J$ K) X         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", * h' G& r/ G# L' }" x6 r. y
        RowBox[{"(", 1 u. ]5 P* J( `" A8 d/ [
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],9 K7 S* f6 B7 O4 _6 y4 C, w
     "]"}], "/.", "DeltaX"}]}]], "Input",
- s: @1 G( \$ w CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
; A2 i3 ^" Z$ v5 X. L! B$ o  3.57792132028125*^9}],: s) X8 H1 i! V8 T8 a5 l# z
; O( X: R+ o8 r. h% b
Cell[BoxData[
8 {& \/ L9 A* w6 W4 Z SuperscriptBox["\[ExponentialE]", / a: W* ~$ F! D. }  Q& `2 g( ^, r
  RowBox[{"3.141592653589793`", " ",
# U. g# y+ }" l) d   RowBox[{"(", % q& c9 P  c- @! @0 t; B! y( {
    RowBox[{. {) |3 }! Q: {* e' [, I$ \
     RowBox[{"-", ! W1 k" A! A6 l- k+ F- n
      SuperscriptBox[7 g7 n+ J: M+ V, b
       RowBox[{"(", , P. P' N' D' q9 \% t8 W
        RowBox[{
1 U" c7 S- |. `; O! ~' L& _$ k5 r6 M9 Y         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
, F0 E2 u/ S4 x4 O( v. I     SuperscriptBox[, u' \0 {3 A4 Q3 l
      RowBox[{"(",   g1 ~+ k0 N: ^% W
       RowBox[{
3 y0 ]! }6 `# A7 i        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", $ u$ ^3 C6 R% \
     SuperscriptBox[
1 a6 H# _: S# J2 R      RowBox[{"(",
% ]5 I5 ]" M( L" z/ y! u       RowBox[{
- \( _- U+ t0 P+ s' X% ^' C        RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", # H$ l) J0 c$ I% P7 M3 T$ t8 i
     SuperscriptBox[7 [" M* U- ^3 Y4 _/ b
      RowBox[{"(",
& L: X8 g; `/ _! Y4 B       RowBox[{
5 h& M1 X+ e1 u$ K7 I        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
3 C: Z) @; G" Q) U% a4 q8 K     SuperscriptBox[( f4 ~) W. {2 w1 O
      RowBox[{"(",
8 p! w) k3 n- \       RowBox[{3 m) y  x$ D# d4 ~7 N% U/ L
        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
5 ?$ J3 z1 }8 @4 T) @: _     SuperscriptBox[
; m2 G1 k6 O; {+ F9 P      RowBox[{"(", ' N5 @: @$ r- E* W; b! K& \# m
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", - t6 [) v$ h3 @: X) g7 N4 f) Z
     SuperscriptBox[+ ~/ ~, @% b' B7 C5 f& I" Z
      RowBox[{"(", 5 @9 l4 d* F7 {' s  P7 b3 _9 ?
       RowBox[{  E. O0 j$ A2 \  D0 ]
        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", / G! {9 ?, r0 X* y7 y; F+ V
     SuperscriptBox[7 T- ]8 w# u# y% Q
      RowBox[{"(", - B/ V6 Z3 C" Y% x) n8 t3 a& |) ?& D
       RowBox[{
! q6 d& t' g7 m% ~2 h& C        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
& [' K0 Y9 [& u) M     SuperscriptBox[- K, B5 ?0 l. ~! e7 @
      RowBox[{"(",
! ?$ s. A% [2 A4 K       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 8 }8 \: N  B9 h9 B) S7 o
    ")"}]}]]], "Output",' _3 k' o) h  j" L, P  {
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, ( V% _* N7 Z$ T/ ]
  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
+ o; J- e6 O1 o  3.578012251359375*^9}]4 q5 ^) `! `+ _0 J0 z! V
}, Open  ]],7 m( [8 m. G$ s( x
5 @0 Y! v( h% B8 H6 e' Q# ~
Cell[CellGroupData[{$ y( n, B3 a- T4 x
) f* k6 j8 k0 u/ X4 p' w
Cell[BoxData[# w$ o( B+ `( q( U6 Z1 E
RowBox[{"C8", "=", "Ca"}]], "Input",
+ h3 v( U' D9 x CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
6 w/ ]* X2 o4 ]" ]6 u  3.577921316125*^9, 3.57792141421875*^9}],( n. v; t8 r! ~
3 r" N2 f* R6 Y( c+ B  ^
Cell[BoxData[1 `- R. d6 A1 ~; e* H
RowBox[{"{", % f" l! P. L: f* A0 F+ B
  RowBox[{7 a+ [( b, y! R" N$ \) O
  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
; j' F9 |6 y- l# X6 D* S  q   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}], 9 R. z1 c6 K: a( H  s- Z
  "}"}]], "Output",) D5 b- ?6 g0 L4 i+ _. v
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
% E4 I1 y* C& }  \( t- Y  ?  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
/ Y, k) k* J3 _: Y% _; ~  3.578012260515625*^9}]
  Q6 y2 M. L0 K0 ]) k# N9 R}, Open  ]],
- J! {' I' O2 h, a' c: M- s0 W4 S2 k5 d* n
Cell[CellGroupData[{
3 ~; F8 ~2 O. }+ ^/ u( H7 r5 O/ S$ e9 l7 j) ~) x
Cell[BoxData[
9 N4 u5 A: L: p. g RowBox[{"u8", "=",
" h( H. }0 c' N  RowBox[{
: w: C& o. s( B0 W   RowBox[{"Exp", "[",
; T9 K# q. @, Y) h* S: {    RowBox[{$ n, T6 h( `9 d/ t
     RowBox[{
. p8 y, A+ b+ y0 m5 U      RowBox[{"-",
: G% o6 J) W0 X+ b       RowBox[{9 N& M& n) X& p" D7 H% V' d9 o
        RowBox[{"(", 0 V8 A. O; `" z% z# V! ~& M
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
; f& o; M1 [2 b* Q) l" g        RowBox[{"(", 2 |5 E; B! p2 J* ^' B' x9 \
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
+ A( ?0 E# B. }) L     "]"}], "/.", "DeltaX"}]}]], "Input",
6 ~# ?2 Z6 p% O+ }. y: G CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
: ^8 ]. [5 A) s; I( ?5 F  3.57792132028125*^9, 3.577921416921875*^9}],4 i7 q/ b0 D( m: h" |- O& ?
0 c9 I: a9 _- T4 @, q( ^
Cell[BoxData[. m+ u4 H5 c5 @4 e( J7 e: x
SuperscriptBox["\[ExponentialE]",
  b. Z' ~; Y, z" ~& a) r2 t  RowBox[{"3.141592653589793`", " ",
& z. \8 f9 p2 P7 p6 h- T  X  U   RowBox[{"(", - T+ B1 {3 I/ R7 D5 c) Y* [8 {
    RowBox[{
7 B1 f3 Q' e! @- h! @# f     RowBox[{"-", & A3 x5 y. X. F/ M/ N
      SuperscriptBox[8 t0 q* W% M- |9 |5 }$ h* x* `
       RowBox[{"(",
0 u. L- w9 j% h- F# D: R        RowBox[{7 C8 v" n7 n- o8 ~9 u, z( g! T  I
         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
% K  w1 p9 b) ~, R9 f6 o2 E1 x     SuperscriptBox[. j! y* e0 n1 h$ [/ q' ]# G
      RowBox[{"(",
$ c+ x8 i% V6 Z5 i& j/ ?       RowBox[{+ M% Q7 V7 m# h% ?: C1 v/ L
        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
) V/ @8 E; J, d1 v9 v" \     SuperscriptBox[9 |  r$ m' t! m' q7 p# Q
      RowBox[{"(",
! f' C- Y  D# b) o0 h  a       RowBox[{
; b, H! l8 [$ v$ ~( y  M; d        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
' ]% S, j+ D& k9 J9 Y9 S3 F     SuperscriptBox[
9 z* ]; S1 E4 v+ K& \- \/ X1 @      RowBox[{"(", # N( G, s3 ^2 j5 q
       RowBox[{& ~. e: ?4 }" e( o3 Z
        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
1 O% b* `8 [, e0 Q7 |  q3 F     SuperscriptBox[
5 ]! D2 H" b$ x$ U/ p5 h      RowBox[{"(",
- I" F4 _0 S$ T1 u+ U( _       RowBox[{
( J( y3 l; E1 Y: R        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", 9 p4 X; \1 x* E/ h* B
     SuperscriptBox[
* V( S; x  z) q& ?! h" q. w      RowBox[{"(",
" I4 _/ A( v/ n! d' P: x' [       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", % y4 S6 q$ I; {. _! p
     SuperscriptBox[% B/ U' N) \8 z9 K! g3 {
      RowBox[{"(", + K! C9 Z: o% K9 B3 B2 F7 A& _7 c
       RowBox[{
! {! l7 G; }- ~7 K3 c        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", " P: h( I. N# X2 V: @8 a
     SuperscriptBox[5 l4 `/ M: P2 I3 v& `7 L
      RowBox[{"(", ) w% v4 Z) G3 j! y. ]6 S6 h
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 2 S4 V, ^5 M4 e* ^
     SuperscriptBox[
1 H, Z* }) }. W( v      RowBox[{"(", - t+ p& u/ y7 s% @, n
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 3 R. O2 }4 j8 Y, Z
    ")"}]}]]], "Output",( ]/ L0 y; k. S- U' W5 i
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
! A; ^' J0 p  a3 D- _# e. }  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
# S1 z' ~( W3 g8 E  3.5779608945565863`*^9, 3.57801226165625*^9}]
4 o% P5 _3 Z0 m( y0 i# n}, Open  ]],6 I: ~0 Q& f! o
! L) c3 z6 d' ^) x( S
Cell[CellGroupData[{' F* W! W& R0 _& L1 s- ?% M
0 Z9 [! N6 }0 j. I5 `' F! v
Cell[BoxData[  p% g( B# n; S9 G
RowBox[{"C9", "=", "Ca"}]], "Input",
& b( Y+ b0 T5 V, I, Y8 [# H* ` CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 8 f# M! Z: X7 L2 j. B% R: f7 ?, t
  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],1 A' i$ A' e9 B( d

  h( [) n$ M" F, ~0 c+ W5 Y2 z. r& C, MCell[BoxData[
) z) u5 ?# j0 u1 g) e4 w RowBox[{"{", 1 M2 y0 ]' {4 g, ?/ S1 Z3 @, w  [
  RowBox[{
+ L+ J8 I/ Z& c3 ]3 f3 _- m* {8 Z% r  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",", + Y% U3 j) r6 I7 d2 F  T
   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
  T; w6 d0 y1 C/ r8 [3 e  "}"}]], "Output",8 _% T5 p* N6 R" i; T
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
3 }: X5 V: j; \: B  3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, 4 k8 h0 R) n0 R
  3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
- k6 B5 U( i+ E5 `" D! M1 ?  3.578012268234375*^9}]4 T( K: h5 e6 ]+ Q9 C/ `6 q( C
}, Open  ]],% Q9 j9 b3 x. J% D
' b5 O0 }: p9 K6 f) A' ]9 Q( V$ N
Cell[CellGroupData[{
& ~2 y& ?+ H. A
2 Y- |5 |6 V0 u, y! |1 q- rCell[BoxData[, i$ B2 k  i) P; l) I
RowBox[{"u9", "=", , r- l/ V& b; l$ X1 n% A
  RowBox[{" d* y- K2 Y, ?: Z
   RowBox[{"Exp", "[",
& M9 S0 p4 i' _! P1 z! g    RowBox[{2 P& S. d& k" v; S3 q
     RowBox[{! S) a+ o- l/ c& ?$ B! I
      RowBox[{"-",
& Y5 U$ |6 U/ c; q3 [5 k( N       RowBox[{
1 G$ s( `( O; s5 F* R# d2 g* t7 k        RowBox[{"(", . A2 x3 E$ Y" o3 E: B% f% R
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
  _' ?) O( \+ D; G% u, j7 ^        RowBox[{"(",
  z2 M/ U& E" ~* l! p/ z         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
& n: p8 {' \+ U) C     "]"}], "/.", "DeltaX"}]}]], "Input",
$ u7 g2 ~5 `3 R1 [0 P+ I8 M CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 2 }. `/ v* K- c  A5 s7 c  c
  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],: u; M3 \! P# X5 a0 R. Z& b2 w/ N

4 I8 R( A: h) {Cell[BoxData[
  Y/ c" x- y+ l% |% Z6 h SuperscriptBox["\[ExponentialE]", + B' s* H2 [4 b. M! S' m
  RowBox[{"3.141592653589793`", " ", ; `; U# O" n& L0 c& x1 b
   RowBox[{"(", / D4 E( f1 }; C
    RowBox[{
8 D" t  Q. i  i4 R" n     RowBox[{"-", ' B' e# s9 C0 m% V* D& a6 e: i+ Z9 A. x
      SuperscriptBox[
( g! s/ t/ P+ m! d# h; F       RowBox[{"(",
# G4 _& s# @9 L) D        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
) I4 F, d; N  ^. x     SuperscriptBox[
0 S5 G! v, d+ t7 l3 d      RowBox[{"(", 1 G2 z  o9 ^# I- @5 q" E
       RowBox[{
! j  u' {. s! \, u+ F) E& ?        RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
8 D! l1 V) k/ g4 ^4 Y     SuperscriptBox[
0 L! M! \* E, j* H- F$ E3 n* t      RowBox[{"(",   K% g& K& J9 `: v& T7 p
       RowBox[{" W/ H/ ]  K5 n+ ~6 f4 b; v
        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", " @3 L' \. C8 D5 ]. l3 K! K# j7 ^
     SuperscriptBox[
: ~  y  C( |9 Z. B1 j! u1 ^* h# j      RowBox[{"(", ! g$ n  g9 G3 _0 x; A! j
       RowBox[{
  V! ]) c: O3 R* P; s$ c        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", $ C. e- }- E( g, |
     SuperscriptBox[
- d' {* Y/ w- v& ~, G3 ]. q      RowBox[{"(", ' J5 r" W6 r3 [/ r) o
       RowBox[{  ?3 U8 y9 \# i$ `1 U6 }' a5 _
        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", 8 r$ {2 s3 |5 U' y
     SuperscriptBox[
& l/ l6 e" l& O4 X: k9 ?      RowBox[{"(", # u8 e8 T9 {4 Z" p) R
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 8 U4 B% k- e4 g
     SuperscriptBox[
1 Q# F$ D( V8 w) U# Y1 c. K2 B9 u      RowBox[{"(",
" F; Q- z3 l2 @) M1 q& ?( T       RowBox[{7 I' _5 O1 W2 T6 R  Y- x0 _
        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
- Y8 C6 f3 h6 E  \) M     SuperscriptBox[) G% f) r  ]8 v
      RowBox[{"(",
8 P* u0 }9 p" ]% {1 L5 Z3 B       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 4 u7 A9 `' c" `, r
     SuperscriptBox[
, W6 c: p7 {, w: F/ W3 `: @( F9 N      RowBox[{"(", , q1 ^0 x! G/ S8 |, e
       RowBox[{
( Q0 k- _+ D3 f% W        RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ; C  M; d, e2 H0 x  ~. v
    ")"}]}]]], "Output",
! @& V3 t& l% O CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
: v! C( x7 V5 i: \  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
) g1 ]6 T! c3 I) `1 I0 Z2 s% T; w  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
" ?  i. a7 B) U9 ^  3.577961530421959*^9, 3.578012269125*^9}]
5 H+ G: I( u- c7 @8 A% E8 Z}, Open  ]],
: F- [+ g( R7 b3 _7 z
0 l/ X: z/ B+ \* h3 G$ oCell[CellGroupData[{6 x+ u0 t. g. m- f; x# L  v
8 n, ?: ^# |, L/ l
Cell[BoxData[{
& X2 L. p" w0 j. N RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
3 G) O3 c' |+ ]9 D1 Q# Z RowBox[{"u10", "=", 8 c# d! x5 q/ m: t' r' {0 R! H; p
  RowBox[{2 f3 }. G7 |$ m# y
   RowBox[{"Exp", "[",
7 D9 ~  |8 a+ _& l$ n4 k    RowBox[{
1 O7 a2 o7 Z- u& U7 i     RowBox[{% K: I: l) z6 B
      RowBox[{"-", % }) T% x0 Z0 v  g& Z+ d! f
       RowBox[{
) ?3 \5 y* V+ c! C" o; q        RowBox[{"(",
1 ]& K& r5 z2 c         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
" \: s* b, d- |0 _* O! d- s        RowBox[{"(", - ~$ ~" E& x+ ?( w5 k; g7 b1 N( R
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
& x, s+ P9 I' t* ^) [: M; W5 y     "]"}], "/.", "DeltaX"}]}]}], "Input",! j( {) E* d6 v, _. {' R/ y
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
* g- s( \1 d5 A* c8 n  z2 v; {6 `) f6 d2 ^7 O! }8 ]: x, P" `$ S
Cell[BoxData[( Q# I+ g+ W5 i4 w5 n
RowBox[{"{",
) [% p8 U' `) K. C- M" f  RowBox[{3 `; i+ @1 G9 v) C
  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
  W8 F4 S* p; p" V. o, u8 i4 ?1 U   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",  s; [+ o1 r( Q5 ]' ?
CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],0 f4 B. X( `# P/ o$ ^
) C% U. d# y9 C! R/ X- l* b- E
Cell[BoxData[
# m" n0 o9 D% z; N; g9 I* W SuperscriptBox["\[ExponentialE]", + V+ w) k6 o7 O# @+ m8 x
  RowBox[{"3.141592653589793`", " ", ; Z& M' h( K% ?7 Y. m
   RowBox[{"(", 6 @1 c: W: K; R
    RowBox[{& @7 D1 S) Y/ ^1 Q+ p! ~) u1 [
     RowBox[{"-", ( J' b" D+ z$ a9 o( U% _, r# D
      SuperscriptBox[
: M$ s1 n( T. p% L5 u; ]' Q( n2 S7 V       RowBox[{"(",
0 }# v% p; J4 F2 U" `1 ~        RowBox[{) F1 u. O$ I! S+ Q- A* _3 B
         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", " }1 d; o% x" H
     SuperscriptBox[3 o2 E  j8 K& m# s8 C. u# i' ^% B
      RowBox[{"(", # D4 t5 \/ P' {0 L* m
       RowBox[{
% H  K/ R7 Q2 _        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", 1 R4 @! H8 R9 K; }: o# M
     SuperscriptBox[
/ A! i8 r0 t6 w1 v      RowBox[{"(", 0 ?; J' D& c) h9 [( j
       RowBox[{% j, [0 y4 v1 a: B1 n2 {% z
        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
: y7 f, u1 w9 N" G9 w. A$ q     SuperscriptBox[( ?/ [9 _% Q# {* w3 a
      RowBox[{"(",
3 R3 q" A) P2 r, A6 `       RowBox[{
9 N7 R. z# ^! k* d        RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
! b# u7 G6 X: d5 H     SuperscriptBox[9 C% `, s9 ~- P  W5 g* B8 I
      RowBox[{"(", 8 d1 K  S" r6 ^' E9 a- ]0 d. b. i$ }3 j
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
" \; _, B# W) @3 L8 M& Q0 f     SuperscriptBox[
: H- {9 x+ F4 ]      RowBox[{"(", # E& ?0 M( @2 \2 ^: W3 u8 y
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", " w& c3 E1 \6 T- N- t
     SuperscriptBox[
" f, ^, E5 L* q2 X4 y& G+ ]      RowBox[{"(",
# }/ ^4 G2 H  D( i8 r  `       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
7 B! [% X& [3 t     SuperscriptBox[
( T0 b0 E" _9 }9 o# E& U3 Q* f      RowBox[{"(", ) L$ f1 U6 G$ ]9 o6 E* w
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 1 T/ a  c3 h  g/ v, M
     SuperscriptBox[
* k! V% {. F" l% F      RowBox[{"(",
8 a+ t( e) g2 j% O, ~9 W& x       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], $ D0 s: [3 V' ?( ]
    ")"}]}]]], "Output",
2 V+ V+ |$ ^+ ^/ {9 J CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
9 Q$ v! S8 ~: D5 V3 W" p}, Open  ]],
+ ^' n5 w6 c4 k7 u1 G# y3 _3 n' ?1 y" J
Cell[CellGroupData[{, m0 d# N3 }& I, F9 @# c
" T; Z6 y8 Y) e7 ]8 K
Cell[BoxData[{
9 N. u$ a' X) ?! }2 T RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
) J4 H/ h' q' r9 E( G RowBox[{"u11", "=", 3 i. m1 [8 S" i5 {$ H; Y& n0 [
  RowBox[{0 a5 t1 F$ _0 y" V
   RowBox[{"Exp", "[", 5 |! N% ^2 v# c2 D7 ~$ b
    RowBox[{
1 f' T. i( x. T. G     RowBox[{5 C  r' e0 ?) w
      RowBox[{"-", - ]: [; E2 q0 p8 o1 [6 E4 {
       RowBox[{
6 a/ O' F* }' }' s. @" D* ^9 E        RowBox[{"(",
4 N7 `) c+ m0 y7 ]8 ?* e         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", $ w& @- G) b# |* |# J; P0 y
        RowBox[{"(", - y; I( Y  T9 J3 a
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],, o1 ], n1 l6 U
     "]"}], "/.", "DeltaX"}]}]}], "Input",
) G; ^9 a2 e1 {9 u6 \( Z% U5 A- Z CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
1 M: z$ Z; u, v& ]  3.57796154237158*^9, 3.5779615434011817`*^9}}],1 g: L# a  j+ N8 Q, j2 F6 v
- Y* s8 s7 o( L+ w
Cell[BoxData[- r* P' e9 D4 J$ f( j5 {1 N
RowBox[{"{", 0 j- W; h" H$ A: X1 e
  RowBox[{
8 @2 ]9 y$ h* O& R! P$ ?( H  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", % K. g5 Y9 |4 {0 }( V
   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], / a' ^  O- R: q7 _7 |5 r
  "}"}]], "Output",$ v6 |* t6 w2 o( y3 A1 Q4 S! F
CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, : @8 A6 G" v6 q7 w6 ?
  3.57801228203125*^9}],
6 F2 B3 `# ^. f& G; I% {% o2 r( @  g. D
Cell[BoxData[  X! i; X7 U1 k  O
SuperscriptBox["\[ExponentialE]",
: z* X3 k/ p- V% N' V0 a; h8 [  RowBox[{"3.141592653589793`", " ",
& d  C7 Z* `( o: X- h   RowBox[{"(", ! D. d: s* L: T1 D8 L
    RowBox[{! |: p9 _  N+ L& x- O
     RowBox[{"-", : ^  ~9 @7 R1 B2 R' A! \; v  w
      SuperscriptBox[
1 N: l" a/ U' b* F2 j1 j- T. U       RowBox[{"(",
. B5 O6 w( ?  Z# ?1 O) ]7 M% P        RowBox[{
( \4 ]7 U( Q+ `( R/ G         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
& O4 M7 A+ a7 x4 k! q0 j/ g6 `# n  i  H. j% _     SuperscriptBox[: D$ v2 T- O7 Y8 k& }! |0 @
      RowBox[{"(", 3 H, m5 g( b: \& W; {
       RowBox[{
8 H+ B5 n1 S1 |7 m- ^; A        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", ( V7 r  x) w  `/ H
     SuperscriptBox[
# d. n; P+ ?4 E" v      RowBox[{"(", ' a& ?5 J' Y$ t7 Z2 o1 f
       RowBox[{
- Y& A! N: T& j1 w/ }6 {8 S        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
2 d( U& D$ L! n* a     SuperscriptBox[+ j5 E+ _! J2 X$ L5 s7 L0 }% v
      RowBox[{"(",
# S( p) @. L0 k/ U" Y3 @& @       RowBox[{
+ ~- W& o' V! u% v0 h        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
4 m$ U) m8 d) M% Q1 `8 P, Y     SuperscriptBox[$ m5 |: t9 G) [& b! l
      RowBox[{"(", ( K) B- [& U' y' O% N2 r
       RowBox[{
& k$ D1 [  o# ]6 D3 y        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", 6 x* v4 @& G/ U8 u# i7 o- l& d' J$ K
     SuperscriptBox[
5 W* }5 ~% L0 j" O      RowBox[{"(", 5 u7 Z2 |6 ]6 T7 ?4 ]) B
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", : W, J3 `. y2 ?* |+ Q+ m& B& E. k3 p" h$ D
     SuperscriptBox[  g8 }. ^6 Q0 q. D2 Y$ p  ~$ L9 J
      RowBox[{"(",
6 c8 C4 m) V% E0 O( @       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
2 M+ z! _# D1 l; c( Z     SuperscriptBox[' A/ P  Y3 w9 s/ d
      RowBox[{"(", 8 e& D, n2 k& y- F9 h: t
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", . K4 m9 F% G, F' G
     SuperscriptBox[
0 _( h; d  b5 r      RowBox[{"(", 3 l9 B+ v  p* Z2 @8 f2 D
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
/ `: o1 f, ~( j! a    ")"}]}]]], "Output",0 K: {0 w  i, W$ ?
CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, & J3 ^+ r7 F6 s4 r
  3.57801228203125*^9}]
5 r, J- E4 r! f7 K( F$ W; M7 I}, Open  ]],8 K& i; d9 D1 R5 e
  q- n/ V- G/ c3 \+ Q
Cell[CellGroupData[{+ ?* m- t) d0 V# H; q1 `5 P
! e  e! ~: ^' E1 P/ f! A
Cell[BoxData[{; a4 }: @, C3 P) n# O- M+ }) c
RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]", 5 O# b3 M: J: k1 B! X
RowBox[{"u12", "=", 3 N2 C4 q5 J3 l
  RowBox[{
+ d) M; x! P+ G6 ^   RowBox[{"Exp", "[", 8 f/ h0 N% `: O, ~. l1 k8 k) A
    RowBox[{* g9 r& O. m7 I" `/ p
     RowBox[{
# k1 E9 c) V5 L( k      RowBox[{"-", 4 o8 @% v% _" f
       RowBox[{# R. [( d' v' K: L* [* l
        RowBox[{"(", , ~$ X9 S! C0 }
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
5 @4 P% B) ?+ ]; \2 q1 `+ n8 g        RowBox[{"(",
/ P6 N; ]5 O* P         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
' \, n/ _, _" a/ U     "]"}], "/.", "DeltaX"}]}]}], "Input",
4 r3 M# [1 c. N; k CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {6 B. L# e0 q" Q, n
  3.57796154237158*^9, 3.5779615576284065`*^9}}],
2 G/ B+ w; r( s3 \1 L* Q; ~7 q, m9 [0 H1 {
Cell[BoxData[
0 y+ {3 T, P+ X- N4 ]. [ RowBox[{"{",
+ p3 g; P+ a0 |2 P- O9 W4 t7 H# ^  [  RowBox[{
. L0 N" ^3 f9 n/ u/ k  "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
. Q  O* V. M' J' @. O- w7 |5 g3 @   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
) Y! ]) V9 o3 I4 c( j" I4 V  "}"}]], "Output",
  N7 R8 |9 Q% E1 @# Q0 C  ? CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],
. C# t% r" h6 k1 ^" {& A$ U0 A
, b" r. s' y* H5 OCell[BoxData[. K) l% z- y. V8 B5 T" I9 F: Q
SuperscriptBox["\[ExponentialE]",
9 m+ I* E' D8 D  RowBox[{"3.141592653589793`", " ", 9 v- d& t2 }" ]9 i. a' W) ]
   RowBox[{"(",   R& v  n' [4 @- D3 `2 ?
    RowBox[{
- `* Y7 M6 |+ Z4 Z     RowBox[{"-", 2 r4 j/ b3 C( T/ ]
      SuperscriptBox[
  g6 M7 }0 i0 W4 q/ O3 }       RowBox[{"(", : @. I/ u$ J6 U8 E# \8 C5 A
        RowBox[{8 j6 ?, B/ d0 l  g/ d
         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", 9 a9 j+ }3 q9 K: h
     SuperscriptBox[
  {( f% O+ \" Q% s      RowBox[{"(", ! g5 B. p  V, C) b, s6 N
       RowBox[{
+ l' \" F! k* Q* v; Y        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
  }  g5 E8 o7 A) t# A     SuperscriptBox[9 c0 I1 O7 b3 _! |" k, f
      RowBox[{"(", / w# |0 K. D% V0 a; k; d/ ^
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
% _4 Y9 g5 {! N, h: ]- w5 f" N     SuperscriptBox[
$ `- \  ^3 n' x+ R& ?5 `      RowBox[{"(",
- K. A7 ]5 {: a& H- J6 I       RowBox[{3 g+ z9 @! v% J1 @
        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
6 y: ?8 Z( C: w9 f     SuperscriptBox[
1 o( t+ h& `9 N( }: ]      RowBox[{"(", 5 C, b0 x- _( s; J
       RowBox[{
9 X: g: p# N% i' k3 F        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
/ B6 b: t) I4 f' t# G5 H# C     SuperscriptBox[
' W- a( i& o2 o4 L) H      RowBox[{"(",
4 |" p, H. J. b$ a2 y$ B, w       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
5 q& ]6 E& `* G     SuperscriptBox[" F$ [3 Q: Y3 e
      RowBox[{"(",
, b/ k8 o; j  g9 F- N( k4 o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
: l8 M& C% z6 ?" n/ b     SuperscriptBox[
+ b% U; |2 i5 T4 i      RowBox[{"(",
/ R* f+ q& N3 o0 e7 D" k+ K       RowBox[{
+ Z( ]! c, O; e3 o- g        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
  @( j# q/ E. l6 ?: Y- k' b     SuperscriptBox[  J5 A2 }- W; p, Z9 |
      RowBox[{"(", 3 |' h4 A. U& }
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], * F0 R' m4 C7 A" j
    ")"}]}]]], "Output",- I* \& I3 ^. n4 }1 A
CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]0 |: J2 s: g1 _% C2 i
}, Open  ]],; U* I( s0 ^, d; d
) _0 j" Z' {7 G7 G4 z; A
Cell[CellGroupData[{, v* F* @( F2 p8 T) w
7 W3 X3 r& t2 K$ V
Cell[BoxData[{
3 u2 j4 D3 Q0 h) T2 W  H$ z RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
& w3 i' I! E# _- Q0 ] RowBox[{"u13", "=", - @6 y# Z' k2 }1 E4 m
  RowBox[{
; l" y7 X6 S; k* A2 k5 U   RowBox[{"Exp", "[", 5 M' M: w. [, ?4 W
    RowBox[{& U5 z0 C) y' J5 I+ ]
     RowBox[{
, K- D5 k( `) I      RowBox[{"-", . M: C( D9 I8 W0 v
       RowBox[{
8 a6 H! \0 z- k  y, z; u        RowBox[{"(", 2 j" G2 H. `) C' i+ v
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
4 F( V9 w) m9 B        RowBox[{"(", " K6 J& E# W) B4 t: v( Z
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
8 M! ?: @. {6 h% w+ _# R5 {/ x     "]"}], "/.", "DeltaX"}]}]}], "Input",
7 a7 k9 A8 h. C1 t! y2 p CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3 b$ f4 e7 \4 Z* R  3.57796154237158*^9, 3.5779615599684105`*^9}}],7 I1 a8 s0 R6 H- p$ {3 Y

( u* y) s. ~  a! y( S+ ^Cell[BoxData[& M" r: l! V( d3 i7 \  `9 u
RowBox[{"{",
% n) \7 ?4 b& v3 N* f* b  RowBox[{
% W2 E# F7 x0 [2 U6 {& b5 W  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
- F- }1 ]' S7 s% B$ w   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
7 |  \! T& v! i# a/ a7 v# \' j8 X  "}"}]], "Output",
. e0 A: Q- A& L6 A CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]," r5 ?9 Z% Y9 ]  A! K
, u9 M& l% R2 F' ~
Cell[BoxData[
6 n; W/ G, Y, ?# e& _  K* \ SuperscriptBox["\[ExponentialE]", / t+ Q$ P( l2 S( G+ i* Z3 c+ [
  RowBox[{"3.141592653589793`", " ",
3 Y; a# b& w" ]2 S* [- j, j   RowBox[{"(",
" @5 z) T" m& N3 n    RowBox[{
9 ^* z' F4 i+ t/ m; e# J" v% @     RowBox[{"-",
/ b9 f/ g, L, G+ R! g5 t      SuperscriptBox[% a  `! c' g. k2 y
       RowBox[{"(", # C: I3 S, C9 g  R1 n% @
        RowBox[{
) L( O3 }7 N/ L6 |* l5 _% M( z         RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
8 T8 O5 s% h0 J2 r6 Z6 q# U     SuperscriptBox[2 K9 r# ]5 J+ {" M  @$ O0 @$ ~. u' Q# f
      RowBox[{"(", 1 v2 J0 j0 s7 e' P8 Q. X
       RowBox[{* D5 R; p! y- T
        RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", . F9 W8 S; @, i* U
     SuperscriptBox[& W+ M( H3 k1 i8 J
      RowBox[{"(",
. l7 ^+ X/ h$ y7 l       RowBox[{
( R5 N8 d) {9 y) d        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", * Q9 e) t/ v( H; B$ I5 Y- b) I3 O
     SuperscriptBox[% T1 r! D! h  u; S% r
      RowBox[{"(", 8 A/ l) f9 L. ~; Z! h, [$ R
       RowBox[{
  F/ g9 N. i7 u* d# l8 [        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", 2 P$ Z5 t! o- Y3 b  W5 o# E
     SuperscriptBox[! i- P/ e- A) Q6 |% k0 N
      RowBox[{"(",
2 x% z) j2 ~7 I) m" C% n8 I       RowBox[{
) O5 }' [. |5 v, U6 ]& u# M5 b; z        RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", " h- s7 J* |* n3 V1 A$ I
     SuperscriptBox[1 g& ]% A  F# Z. t; E
      RowBox[{"(", 6 x, u6 U1 {9 w: D6 ^
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", * p$ o/ ]/ m& p. t( o7 j
     SuperscriptBox[4 g5 y# Z: i2 i( i* H( L
      RowBox[{"(", 3 U7 n6 T: ~$ `$ \1 ]+ @$ C
       RowBox[{; T6 c8 a6 t& L2 R& @2 u
        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
9 F6 }- d. a  E% [     SuperscriptBox[3 @" ]' r! Y) \' m+ P/ p* M
      RowBox[{"(",
! C3 ]% x7 p  [" |       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
/ k$ `6 Z* B7 k! }# L+ t     SuperscriptBox[
2 E# x; a# g' w; ~( a      RowBox[{"(", , P9 |8 M, ~& p. D% x# z. ]
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
7 a9 c; y9 r3 D9 ?( e) ?    ")"}]}]]], "Output",
8 k7 D" w& i, F3 S CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]" h6 Q# U7 \' u6 p) l1 w
}, Open  ]],0 U7 K8 A! d9 n4 B9 i, Y/ b- t% ^! P

- r% F7 Z, R6 o- L! h) bCell[CellGroupData[{
2 q0 J' p4 b2 r9 T, @. r. o. l! \' M  P2 e9 `" d
Cell[BoxData[{
3 t/ B5 a7 n1 k1 P8 K RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
* M! B0 u: S' t; B3 [8 M4 c RowBox[{"u14", "=",
, R0 O: h5 ^  y4 V6 \4 s0 X  RowBox[{
8 b# C4 s0 `: S7 ?   RowBox[{"Exp", "[", & }2 E. ~  h0 e. k; g
    RowBox[{* j! t+ e$ j( |
     RowBox[{) n8 }/ {6 [, \! e7 s- W2 [
      RowBox[{"-", 0 Y5 [! c* B6 \/ G5 ]2 E8 d4 O
       RowBox[{: a( x5 o" g1 ]0 O' `4 ~
        RowBox[{"(",
; A& R6 y4 X% a0 Q         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", : d) c# r! U# v4 E4 H
        RowBox[{"(", ( Y4 [2 p8 g" i
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],/ F+ A; z) Y. d, l: u& Z
     "]"}], "/.", "DeltaX"}]}]}], "Input",6 ]( U7 ?6 T  K- G8 i7 y
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
) i0 f3 M- b+ G7 r( [4 {8 t1 X  3.57796154237158*^9, 3.5779615663176217`*^9}}],) K  m' W5 K" t5 L  f8 y
. O3 |& i( m7 Q' M
Cell[BoxData[, j3 G/ h' |+ @8 z) `, s1 k7 Z
RowBox[{"{",
6 d# z: k) f% y2 Y, [9 j' I7 x. A0 f  RowBox[{
2 T  R  n5 m5 O3 m  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", ! O7 r% e# W& ^5 B" H
   "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], + p. x! c+ ]0 m" j5 \0 W
  "}"}]], "Output",- b3 d5 U0 D8 ~7 F3 k; P; _. J
CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],) b8 V7 ?2 E6 p7 e/ x, p3 M
# W" S$ `7 ~9 V( j+ A; q; M
Cell[BoxData[
( c, {$ V1 W: R* |% O4 d SuperscriptBox["\[ExponentialE]",
* h  B- b. Q& m  RowBox[{"3.141592653589793`", " ",
& d6 r6 w# }) I6 T   RowBox[{"(", + I, m% a  q5 v7 C8 U6 }
    RowBox[{. `) c9 O. H- }% G9 H
     RowBox[{"-", - z; b! D+ p7 F& m
      SuperscriptBox[
# j: u  ~2 Y* Y% A- P       RowBox[{"(", . o7 w$ e: R" C) u- |. ]
        RowBox[{
- S3 h* c. Q& O         RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
1 K' |% \$ N' x+ j" [/ F0 `/ j- |( @5 s8 L     SuperscriptBox[) _! G! ?- [3 ~. g4 s( A
      RowBox[{"(", . N& ?/ i* E3 q8 U" f
       RowBox[{" \* R6 t" M. c& b1 y) z4 b5 T
        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
( C/ M  n  [& F     SuperscriptBox[
0 A- U$ Q& D" K7 P! ^      RowBox[{"(",
1 j! l  m, F+ s3 B5 e: g% ~       RowBox[{9 V7 n8 \, V5 n
        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
6 d/ a7 J0 k; t# Y3 `! k     SuperscriptBox[
+ I8 ]9 c+ `# |. q* v; o      RowBox[{"(",
9 K- F1 K" S+ o$ t       RowBox[{
$ m' T( Y$ u8 R0 j        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", 4 R0 L# o7 \, }8 a9 s3 l
     SuperscriptBox[4 W8 n, t/ O6 a1 f9 Q3 C
      RowBox[{"(", 2 e" D& r& N' I% T/ P
       RowBox[{) m* p) ~1 X2 u' }
        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
9 t& D! c% @- Q     SuperscriptBox[5 j  C+ `! i, V" N* k: n) [
      RowBox[{"(",
4 ]* Z, l$ v, S* {! P9 m       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
! }* f; O* O& E- w     SuperscriptBox[% I* f9 A1 \! c& J) T4 [
      RowBox[{"(",   B& U2 z! }- |! B
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", * ^1 t3 U& U6 p9 n$ N
     SuperscriptBox[
' W0 F$ E  x& T8 C2 g      RowBox[{"(", * k" Z& s6 H; w. R- b
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
- r6 r$ @' e9 T% o     SuperscriptBox[* _7 w0 O0 f. m8 z& b- x
      RowBox[{"(",
* ?$ o4 w4 Q' _+ O* _7 X# e) e; M* }) C       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
, B$ G' N: `7 l2 h! Y* Q    ")"}]}]]], "Output",
2 n0 z# S& `: q CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
' I# K: {( I  g! f' m# O& g}, Open  ]],
$ K( K8 B9 U: v: A9 `. d
/ n6 a# n# O. eCell[CellGroupData[{
2 n1 `" O1 m0 Q9 Z5 I* U, M7 O+ Z% {! p' o% T; u
Cell[BoxData[{
. g$ E' x8 X6 K! G9 d RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]", + ^1 \' h6 m: d) k+ d
RowBox[{"u15", "=", ! \( @9 M' d4 Y/ Z$ A- `
  RowBox[{% h1 b4 G9 X) \/ [. M
   RowBox[{"Exp", "[", % T1 K; e% s" p8 b( t: J& t  l
    RowBox[{1 j2 E8 v! ?6 L" e$ A
     RowBox[{: C6 ~' S+ A: K5 \
      RowBox[{"-", 7 S9 j' t! R/ s2 D$ C4 M
       RowBox[{; z5 o' J' q1 d* W8 P" {% C- [
        RowBox[{"(", * t; D! }8 Z$ W( l
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - p( b9 A" T9 Y* N3 N
        RowBox[{"(", # l9 l7 U; G+ {9 W8 W! e' A
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],& i, P5 V  v+ O  c0 I
     "]"}], "/.", "DeltaX"}]}]}], "Input",+ I$ T1 B. d' q5 s. k. f1 W
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
$ }) k* l8 E% g  3.57796154237158*^9, 3.57796157098203*^9}}],6 E& Z. R9 ]  j  c
4 A. [1 I7 ~7 T
Cell[BoxData[0 k8 U' p+ `& ]( |7 n
RowBox[{"{", " k3 l% D$ B/ G7 I$ j
  RowBox[{: M0 F% N9 b, h! E
  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", 4 o3 s& j1 m( M  f, X" M
   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
; x# i3 @0 Q0 @& z6 E  "}"}]], "Output",
5 B+ m( G. J& a2 h8 `! z CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
  x+ S8 J) m" g" A- K& J8 @3 z. H5 t+ |% n3 P: {( }- L
Cell[BoxData[2 a7 z/ t" {' B" \4 g3 |
SuperscriptBox["\[ExponentialE]",
0 ^( ?2 R. [, s1 a9 N  RowBox[{"3.141592653589793`", " ",
; S$ B  T4 T, w9 [, K   RowBox[{"(",
4 {$ V$ y# X) [: w! f9 X( n    RowBox[{# f" [0 b; {6 q  q2 O
     RowBox[{"-", - \& {* F) z! S# e: ~: F
      SuperscriptBox[3 M: [* H# |: W* V
       RowBox[{"(", / R8 T2 o% }9 U7 s* {8 g
        RowBox[{& w: i. c4 H5 M
         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", ; B& ~* K; m2 p; T
     SuperscriptBox[
( w; s3 Z; d5 T5 g& w; K& f+ m/ j( {      RowBox[{"(",
# ]5 E* X7 t' D' ?       RowBox[{
: [* M5 ]' J' G6 R        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
' A. l) F5 j6 l  g" E$ p  ]' |     SuperscriptBox[
9 p+ k7 }: l1 R1 a- y      RowBox[{"(",
4 r/ {/ m4 `3 ~  q: I$ O1 a       RowBox[{
  q0 U0 m" i2 S) Z& F% L        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
0 Q/ l. P4 w. v: D+ T; p% D/ D     SuperscriptBox[6 {( c; S( r7 k/ I
      RowBox[{"(",
. _8 n' r" \  V6 F; k& A8 x       RowBox[{
, q$ J6 U) ]- t$ ?) R* t3 w        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", ) j/ M; A/ b) h9 j# D
     SuperscriptBox[/ A& s. {! @, M  X4 u/ |
      RowBox[{"(", 1 a2 S9 Y# |/ S" N* |
       RowBox[{
4 T- e( [; _$ F2 e: t        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 0 N2 H2 N. _% d0 ]6 c: |
     SuperscriptBox[. F0 A. S9 {/ i6 h0 X
      RowBox[{"(",
( \% H* l/ X8 M4 C1 D1 l       RowBox[{4 q! i' B7 I# m0 l% l  O
        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
. u$ {* n6 m; z* ~! P) L. v' B     SuperscriptBox[
! T4 H* |0 e+ Z+ U) Q) U, c      RowBox[{"(",
* d; b# j% d( I4 Z2 b& T       RowBox[{, ^( d+ S. |) u5 a3 h
        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
# F+ N7 `7 Q0 H; `6 `2 ~     SuperscriptBox[% h  U6 |: m1 K" H, g% d- Q2 R
      RowBox[{"(", 2 d# i$ H  D* e0 k
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
/ r( T- Z4 o+ \! {     SuperscriptBox[
6 c; R% {% P- g6 y2 ]      RowBox[{"(",
8 W+ K. p4 m- l" {7 V3 y1 O       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], / E# Y; w: d( H( r$ H& \5 T
    ")"}]}]]], "Output",
: C5 R2 s) u8 ? CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]$ U! \) D+ _6 U( s& A
}, Open  ]],
* t. W0 P- G$ n7 r$ Z
) T6 \( V; ], h2 @6 [2 k! K4 eCell[BoxData[% ^  j/ p( N# K/ k. V* j
RowBox[{"For", "[",
% u0 _( r6 m6 A! ~& w. J" t; ?  RowBox[{+ ]& y8 Z% z( K
   RowBox[{"i", "=", "1"}], ",",
. |8 p1 X  E: |3 p   RowBox[{"i", "\[LessEqual]", "9"}], ",", ; p- _2 O" s0 Q
   RowBox[{"i", "++"}], ",", ' }- `; C6 d' \0 H; B9 c
   RowBox[{
2 G  A% Q: P0 W0 p: ^' A+ D    RowBox[{"Ca", "[", ' f3 A1 X; w% M) U
     RowBox[{"[", "i", "]"}], "]"}], "=",
# G  b( I% k. O+ W    RowBox[{"CM", "[", " `8 P) L9 Q/ W1 G3 \
     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
" ]: ?) {8 d' Q6 e4 H CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
8 u2 I2 T4 K* E; Z$ m  I3 B+ U! f, o7 N- i7 p- R
Cell[CellGroupData[{/ J% L: W& D7 {. D5 M6 H+ W* Y
% _3 ~5 L+ ]9 ?% _0 B+ P) H
Cell[BoxData[{7 B* |% \; r9 C) N7 m% J3 i+ N9 ]
RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]", * U/ _; n& b$ ?  j# m/ P
RowBox[{"u16", "=",
) [/ ]) }3 m( r/ @9 @  RowBox[{
4 Y8 n- E& d9 {- f7 x$ H* K   RowBox[{"Exp", "[",
4 ~: H: z3 U3 X' @% ~( v    RowBox[{  E6 X. V: t- q4 c. Q. D  A5 z5 O
     RowBox[{
, s+ y* e2 I6 d# ?6 o      RowBox[{"-", 3 [+ f) h8 M: d
       RowBox[{( i6 {# [* L2 C$ b1 W1 u
        RowBox[{"(", + ?; J  N; K* G/ I
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
# U% x0 [3 a6 K8 A" J8 Q0 D        RowBox[{"(", $ h5 T6 u! H/ j( x1 [
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],2 R- L' i% l; T0 T' a4 V4 U
     "]"}], "/.", "DeltaX"}]}]}], "Input",/ O8 w' h8 k% C5 E; ^) E
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {: o$ i( U6 s6 L$ N1 e+ K7 j
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9, ) H  z3 H5 Y. {2 `$ a
  3.5779615751004367`*^9}}],& a4 M( w+ r' h# I# p5 v3 z8 |
* g# v' ~9 s+ U1 N
Cell[BoxData[/ C6 D# Q. x  A) U+ |
RowBox[{"{",
0 W/ V/ d2 }1 m  RowBox[{6 l1 e1 s' G, a) m& W$ |7 v" K2 Y; [
  "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
* Z. [/ q( F3 V. n   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}], 6 \/ r4 \. I- n0 z4 L1 B; m
  "}"}]], "Output",  r! w3 v  g6 s$ x- s2 ^
CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
2 e# O7 l" f# H- b) b5 ^& z: I  x' ?* b1 c* V0 `
Cell[BoxData[! X- W, e- D+ }+ ~! F. N& Y/ Q& B
SuperscriptBox["\[ExponentialE]",
! a2 `+ p4 A. I) Z  RowBox[{"3.141592653589793`", " ", 8 S# G" C( D* u  j4 U
   RowBox[{"(", ) F; `) L/ u4 y! _0 F8 @
    RowBox[{
3 h3 {$ _+ i: Y9 A5 m     RowBox[{"-",
8 _  _  l7 S" J1 K. r3 D1 K% g  O      SuperscriptBox[+ L$ U4 j' L7 d/ j
       RowBox[{"(",
+ O5 @4 D( a1 W% q$ h" O        RowBox[{
2 L* l5 ?7 ?: X( [4 ~( f! Q* |, {         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
7 N$ E1 U/ G1 {: W5 t6 I     SuperscriptBox[  P* h% y- @& c3 ]
      RowBox[{"(",
0 _' E% ~! z0 }5 [9 |; e       RowBox[{& \' G( O# _- m) ?; s8 `
        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
: `- c' F: F5 v2 ~     SuperscriptBox[
# @; I: s% \" [9 c( r; O3 H7 h, l      RowBox[{"(", : A/ m- F$ c) F  i! \6 ~% W+ {: J# P3 I4 q
       RowBox[{
1 w+ M- z6 ]$ A# P) T        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", 6 L$ H4 h( Z8 [
     SuperscriptBox[
' A# W# }8 S( c% _& ]! h      RowBox[{"(", 9 _- U2 S4 I' S$ H
       RowBox[{: h& ^% s5 m8 W
        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
3 [/ B# o- Z6 l6 J8 X     SuperscriptBox[5 p0 p& Y- z9 k7 j( R7 ]. Q
      RowBox[{"(", 1 T& i" O+ I8 q: W# I
       RowBox[{
, D" Y. n$ M# w$ _        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
2 y) C3 w1 A: ^2 F" Q7 g9 d% Y     SuperscriptBox[" m  O8 L9 O8 y) j
      RowBox[{"(", / A  n- q' Q. T- }- a+ c. X: \
       RowBox[{
  }4 |2 V6 F. u1 o2 X+ z        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", 0 z  C3 x2 s) `& I0 [$ m' m
     SuperscriptBox[1 t6 Y+ R( B" V  N! P) U
      RowBox[{"(",
. A+ G9 X" _& U( v# h8 W       RowBox[{9 W6 B- _+ O' h$ I3 H( q
        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", - E' z9 E% L. s
     SuperscriptBox[
8 ~& p- y7 U0 p4 D! I% F: L      RowBox[{"(",
! v, Y( s+ H1 b0 V$ i% g; P, U       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
  I+ s% ~  p0 f7 [8 ~     SuperscriptBox[
; w; g# m2 h8 q: q, L4 j5 V      RowBox[{"(", * q1 _  N/ w& Q
       RowBox[{+ w0 Y$ R! m# M
        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
* q1 p* ^) `$ @/ Z+ D' [2 G CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]- A$ i. W! D3 h3 `  Q
}, Open  ]],% R% a* Z; e* T# |- W
5 p3 o+ p) ]0 I7 Y
Cell[CellGroupData[{, T1 F) y0 o3 }' N8 V+ Q1 j1 `
( I  n6 z1 S$ g/ W  _
Cell[BoxData[{
4 O; g) _  }8 E! F, t- } RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", # w. }6 a, N5 M- `
RowBox[{"u17", "=",
7 B; f' W+ V) d8 O2 k4 C  RowBox[{
' O* }' ]% c# X/ [1 R: B   RowBox[{"Exp", "[",
1 K) p1 u" C% z  \8 f    RowBox[{
3 Z; c1 e7 m7 r; y+ z$ K3 V     RowBox[{, _, }" |8 q) d
      RowBox[{"-",
& I" l* K. \; r       RowBox[{+ x; r( l+ b* A# H% c: w6 j3 H
        RowBox[{"(", - b7 p4 W- J! n% B  W" Q
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
& o) S( O# a+ W/ A        RowBox[{"(",
) b# @  W+ o( M3 W         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
4 j0 m, W* Q( X     "]"}], "/.", "DeltaX"}]}]}], "Input",
% C' C) U0 ~# t CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
* B# S8 a2 K# c2 U9 n5 V  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, ( C& P1 \: x+ D4 C  W) Q9 ^- U9 ~
  3.577961578953644*^9}}],
; C. q* G2 Y. }, T" F: U6 S  t' W. n) y0 f6 }0 ]! Y
Cell[BoxData[
3 L* N, v0 h, ^) d( J RowBox[{"{", . G$ {3 m% g1 d
  RowBox[{
. j, P, I  e; L. E! _  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
+ E; a* T" Z1 A, e2 a   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], ' k: q" f+ m! d* L4 P1 K1 O" k: Z
  "}"}]], "Output",  S& m" [- U$ n0 z
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
; ?# d) Y! {' n
/ W# s) M0 I; [1 K7 |Cell[BoxData[
4 R8 ]: v+ ]2 B SuperscriptBox["\[ExponentialE]",
: c" A5 n  y/ f, ^  RowBox[{"3.141592653589793`", " ", 7 h1 q2 A# l1 r5 i- x9 p6 Y
   RowBox[{"(", 1 z1 p+ \0 X& i
    RowBox[{' b7 T, \/ K7 N
     RowBox[{"-",
' P5 z8 z9 m- ?0 i      SuperscriptBox[
3 h- D  K- I' H/ ~0 K       RowBox[{"(", 4 {+ q) Q2 F7 k
        RowBox[{
, ?2 b) P& g# G  T         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", 6 j$ _& Q9 K$ P
     SuperscriptBox[
' }1 I9 l: i! N$ I5 y      RowBox[{"(", # v! [5 ?* p% l% U1 m* J
       RowBox[{: a; N3 \: T4 N- c0 o/ s
        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", 9 @2 w8 v7 K+ n2 X
     SuperscriptBox[
. y; q1 C" A- G! h- P      RowBox[{"(", 0 ], u+ V9 m8 G* g: r
       RowBox[{
4 g1 E" o. Z+ ~0 @4 w# P        RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", 8 H* A2 @+ q4 }% s% g; t% m: U
     SuperscriptBox[( [  I- m0 ~1 P6 N1 ]
      RowBox[{"(",
' s, d3 r4 u3 \       RowBox[{
  b0 B: w- p$ ], y) A" k+ |6 \        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", ) j4 ]1 Q' H9 ?; W$ b" j3 \1 @$ t1 {1 G
     SuperscriptBox[
. X. v% w+ L8 h+ S7 R$ r; j3 Z      RowBox[{"(", 2 ~/ @2 |5 T% B/ ]  v
       RowBox[{
6 x6 V, G: f0 {% l7 y, I        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
; o( f+ K* l/ q     SuperscriptBox[
& k0 c& s, z' F" h& Y! M6 C      RowBox[{"(", 6 W9 q; I6 I- {4 A/ M. L5 D
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", " C0 t* D$ E! M8 J# ?  z
     SuperscriptBox[; i: O2 I: _0 p! N1 _2 o) q
      RowBox[{"(", " N' K$ y/ d# s" K
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ! g( m' ^8 R' v% G' \* n0 G
     SuperscriptBox[: N8 P+ d$ m: n
      RowBox[{"(", 3 [; w' ]6 V* [, W
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ; m, n; Q/ K% t8 x7 t
     SuperscriptBox[
5 g% r+ j; d! e0 m) Q, i      RowBox[{"(",
$ K; t6 ^* [2 S5 u* o% \       RowBox[{
' W) w+ v0 z8 u! R( ~1 l        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
- U, x# m  C9 z' R    ")"}]}]]], "Output",6 A! N7 G2 K# n$ c. a* I+ u
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
  i4 ^& Q9 C! B  j  Z9 P}, Open  ]],% I7 E* c8 b0 \8 M0 m, d

8 I' l# U  p! H9 L5 C4 wCell[CellGroupData[{" [. ^% F5 X, Q* t: B& W
/ h2 X/ W8 k- Y+ K! {& g
Cell[BoxData[{
3 a5 H' w+ A+ a) s" R; B/ e% m RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", 1 S& t" ~" W: U! `- e. p
RowBox[{"u18", "=",
& j( K1 W2 X# }# E( f# P1 b  RowBox[{$ [  U1 _" j2 c5 R0 H
   RowBox[{"Exp", "[",
, C& ~' a8 _3 _  G- v$ E8 N% m    RowBox[{! [- L) ~8 G- I9 U9 w
     RowBox[{
( c+ q, H, U7 k* O; y      RowBox[{"-",
2 E7 i( w% e' a# Q$ k& n5 Z, g# _       RowBox[{
! {$ Y$ h, N7 W4 |: [9 s, }        RowBox[{"(",
+ a$ g! a5 K' I6 h! C& l# z9 [         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
  t* S- B6 Y  D9 p  n2 `. `' f' t' t        RowBox[{"(",
% J0 b: J( K! m; ^         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}]," C, [% _. [/ U& `) _5 ~
     "]"}], "/.", "DeltaX"}]}]}], "Input",
( [7 V: H2 g4 b6 z" d$ `* W CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {. t' Q  o+ s' |3 V5 t/ b" e! n
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
6 \5 y+ [* l3 |, J8 r8 K6 P  3.5779615828848505`*^9}}],, v0 L' e3 O0 E! d2 a. v
2 z  R( ~1 l0 k$ ?. i  _' B
Cell[BoxData[
& e  m) H& s, | RowBox[{"{",
# L3 T  s$ a# l) W' M. H  RowBox[{
8 \6 ]7 j9 r9 ]5 a# q% \  "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", 5 l* ^5 `/ p1 b, y
   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 4 G  ~2 j( ^$ E  s- X" g7 v
  "}"}]], "Output",
4 n3 q* ]. k; f) ?: p0 P CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],9 |% n9 t2 Q& e! k6 j

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

% d) `8 y6 @% a: k" t1 U1 v/ k6 jCell[BoxData[{
9 l4 i  s- I" \( B- E RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]", / b5 l6 c0 Y0 i% T9 g' b2 v
RowBox[{"u19", "=",
) _8 a# V" L' a9 i. N. C  RowBox[{, a6 @6 P7 Z" q+ o& T' K
   RowBox[{"Exp", "[", 4 Z) p! b, S# t- i% e
    RowBox[{
; A# _  [" r  y5 Z1 s- t" X) L     RowBox[{+ d3 A: T/ ^2 `+ [
      RowBox[{"-", ) X$ R# }* i" b0 M8 t9 c5 |
       RowBox[{' p* K' m8 Y0 T- |
        RowBox[{"(", 8 u! y; x2 b* W2 \8 B
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", , R; _, ~# t* V
        RowBox[{"(",
3 r& w: A- J8 |" R, E) V6 ]9 P1 R         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],8 z- B7 A1 b; A6 a+ s5 p# v
     "]"}], "/.", "DeltaX"}]}]}], "Input",3 ~' s" e$ H- T+ P, J
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
9 t3 J" ?7 w( _2 ?/ R  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, & F4 C+ N$ d4 {0 G% b; x
  3.577961588890861*^9}}],) D3 o; R+ C( {) \. T

0 a. H. u' L7 s5 j1 `' M8 ]; ~% iCell[BoxData[
; f+ O9 W) B" w3 A) G9 k/ V RowBox[{"{",
% S. D/ r" i% ?+ r& L2 D  RowBox[{2 n5 p, J: h6 m1 F5 J% T2 w! {; I% d
  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
( {, g$ A8 u/ \1 d" D) ?* \1 S6 F   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}], - g; ], O1 u" T6 \
  "}"}]], "Output",
$ Q( y0 u8 r6 }5 l6 e CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
2 O' L& s( Q) Q3 Q0 o" R" v! ]! o2 ^2 z' y0 e* g
Cell[BoxData[2 {" A, r/ ]* X& v; I# l% x9 H! `! J
SuperscriptBox["\[ExponentialE]",
. H5 \' N4 o" Y" a/ H4 p  RowBox[{"3.141592653589793`", " ",
/ Y( U  c* e! }) I   RowBox[{"(", 7 K- Z' T' f) I% e9 C( p+ Q
    RowBox[{
, W( w" `  C/ Z' k. n/ S0 s     RowBox[{"-", 0 ?1 g- O( q3 S4 Q' w  F. R
      SuperscriptBox[( X( {& c) ^( l  T
       RowBox[{"(",
+ X8 B" M$ f. j& d) m: r: X4 ]1 D" g        RowBox[{
/ A; Z, D2 P' [         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
( B- h3 p0 q9 g' c3 Y3 V1 N     SuperscriptBox[& g" V) _# h; c8 w6 {
      RowBox[{"(", ' h% L& s4 q! d
       RowBox[{" I1 i( k6 O4 ]' B' K: l+ T
        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
) P) q2 a+ V+ L0 M- T, H     SuperscriptBox[
' F+ D* k0 s0 ^5 w% T" [      RowBox[{"(",
0 l) L% W$ w1 H/ w* E1 P# f       RowBox[{( V  v5 |* M& {" a
        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", 6 h0 d+ _( Y4 R. R
     SuperscriptBox[
. a2 a) P/ b* H+ f8 f8 m" L" [" @9 x      RowBox[{"(",
3 Z: n  r6 B- M) a       RowBox[{
; t$ u$ G; _3 Q$ x9 K        RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
% R, a- C, n9 f8 D, ]- K' F     SuperscriptBox[" }% n' [& v! h* C8 h+ E
      RowBox[{"(", 8 U( j4 M3 U; B( N
       RowBox[{1 j, i0 s1 h7 n: t# r; X8 \( T: g
        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", 9 g* j  D5 n( _" v/ a; n% I+ T2 m
     SuperscriptBox[
/ Y# X$ C7 W$ h; [. ^  Y      RowBox[{"(",
5 B$ }* s5 t% n% x2 C       RowBox[{
. }; K  D& S4 k7 V, [9 u        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
( g& L  n7 \- x1 h     SuperscriptBox[5 `0 U9 I0 k' |
      RowBox[{"(",
2 A2 Q4 n6 C: B3 p9 K       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
1 n; v7 f7 `, M4 _     SuperscriptBox[  p5 L3 A4 Q0 h
      RowBox[{"(", ! i  \! D% i3 o, L' _- U$ |
       RowBox[{! `8 f) {9 N. k+ Y6 [* Q7 v3 H3 ?
        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
+ N6 N. V  U* [1 M4 w! u7 `     SuperscriptBox[
: n4 J4 @5 e8 n$ E  F5 J$ `      RowBox[{"(", . v+ `( t. e$ Y; L. ?+ w4 z; G! \
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
4 Z7 c6 J8 v4 a& J0 o, V# W$ k8 T    ")"}]}]]], "Output",  H  v, Y* E5 k; x( F
CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
+ h) O6 ]/ P: h( z}, Open  ]],# s6 v6 g- x+ L! }# N& i: d8 D
% Z+ E) H; S% {! |. q: ~2 H
Cell[CellGroupData[{2 f( o% z8 F5 P1 V  D/ A
1 \4 T# I$ X; w4 w/ v0 `
Cell[BoxData[{: e2 W4 Q4 Y8 B6 C; y
RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", ) S! l' |1 B. a; e, c4 j
RowBox[{"u20", "=",
( U: c1 M% O* p- w3 P  RowBox[{
/ j# M0 w% b: c) h7 F   RowBox[{"Exp", "[",
' M" ?% J$ q3 U" O5 Q    RowBox[{8 g* _" D. N2 O3 ]. N3 v; ^/ h* P1 i" }1 i
     RowBox[{
& [+ N0 f% D/ O+ x! L7 h      RowBox[{"-", , r5 }# _: g( U* g8 ]5 X! z8 W* Y
       RowBox[{
& z4 \7 n, [! A        RowBox[{"(", 8 ]2 p; C& t( i+ ^
         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ; k, p3 W! j+ l0 i9 M3 c
        RowBox[{"(", / C, O, ]  D5 M: v4 ?/ d
         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],0 v- Q% Z; v3 d4 X1 _
     "]"}], "/.", "DeltaX"}]}]}], "Input",
! I; X. p- ?2 a3 G: l: M9 F CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
  x7 b5 l! M- Y* f! J! r4 @  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
5 _: j- v9 p4 ~& |  3.57796159382047*^9}}],
, M. _! _1 n+ R
7 A$ U6 h6 ?7 G& BCell[BoxData[
/ {$ H- k* Q3 ^ RowBox[{"{",
3 Q! t, `; j# |) |( D  RowBox[{
. K# w/ S, V$ k  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", ( D' o$ A! N5 D- b
   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}], % W9 ^0 Z" |* `7 ^$ ^3 c
  "}"}]], "Output",7 y9 y( ?+ _& N9 _# {
CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
# O% F5 U* v2 \' p* D+ |- x5 b
. Q% k( [6 ?" |1 LCell[BoxData[
9 f  v: Y% w. s; [ SuperscriptBox["\[ExponentialE]",
$ _3 c9 L0 M: G6 f2 ^  RowBox[{"3.141592653589793`", " ", / A5 y$ z! A8 M0 P% G! w% n2 N
   RowBox[{"(", 1 k) ^) ~6 K' ^: X- `; Z) Y( q4 u
    RowBox[{+ O) U& G5 N/ m' i
     RowBox[{"-", 6 Z9 q; u9 E- R- T) {: a
      SuperscriptBox[& k. V1 G+ B. a4 a
       RowBox[{"(", : l; F4 I: P2 c, P
        RowBox[{
# @: l  W* L( g/ g2 F# }         RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", 1 j9 Q, ]; E+ O& j- U
     SuperscriptBox[
) z: p5 V# y& Y- A" X/ r      RowBox[{"(", 6 ~9 r; I0 c" B9 h) P  e
       RowBox[{
2 Z* w  H' N# A- Q  G        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
- a1 f; ^/ g/ Z; }. f  Q, [     SuperscriptBox[5 D5 j# p0 Z& i: N- X; t
      RowBox[{"(",
' k0 }4 G; E/ y$ Z' w  ^       RowBox[{
: B: T9 r' j, z/ h" H$ a        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
' g8 v4 C8 v9 n! X$ x' q     SuperscriptBox[) G! {, P! `6 E
      RowBox[{"(", 0 u- a8 b/ p0 l2 L* ]" t
       RowBox[{
" H7 Z0 T! v$ p. u# W' t5 \6 n        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
, o8 W, H" n' Z- @, u/ S2 s     SuperscriptBox[
  M# s9 r6 r# P" t% O3 v7 ^/ R      RowBox[{"(",
4 w1 ?- ~  \- u; \       RowBox[{; }/ r: L' m" X% U9 w
        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", 0 W! e- F4 M! |
     SuperscriptBox[
+ R9 Y- g4 T5 e$ @1 U; V      RowBox[{"(", ' \' Q) d. M3 ]9 M/ a8 u2 Y. e% O$ q
       RowBox[{
) t* C7 _/ d, _0 v        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
% y, }9 S0 Q6 [2 o7 x     SuperscriptBox[, m7 d1 h% B! R7 S, e" Z9 Q. {
      RowBox[{"(",
" ^9 s0 B+ G, y# q+ h) a       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ( V6 D! |9 J( P4 Y" f: v
     SuperscriptBox[
8 l& l' ?+ T, V      RowBox[{"(",
" K0 l) l  x# ^& e- l0 c       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", + ^8 v: r, d/ S7 t! O0 @
     SuperscriptBox[
7 t7 K0 v5 A$ |: b2 Q. [& w0 v+ K      RowBox[{"(",
6 R' L  P) {6 U$ B/ B; ?! ^$ Y       RowBox[{  z7 P# G$ {. U* L3 F' e2 B- j
        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
2 {- k. Z7 T* D% B  G4 i. A- S    ")"}]}]]], "Output",
9 Q; S) [9 x4 e3 m+ A4 f6 C7 B CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]: b: h2 V3 Y0 Q: ^
}, Open  ]],8 K1 u8 |! Z4 {0 i3 I: M

! n3 L6 I  v' x8 u" hCell[CellGroupData[{
7 ~0 S+ g( [+ j
" w( e5 L% E: ^$ Z0 {* m* fCell[BoxData[{
( o1 a5 c* l  f! |- q: i% O RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
$ m$ D2 q7 ?6 ^4 P7 h9 S) S" [ RowBox[{"u21", "=", ( I2 v6 C& u8 N1 Y  n
  RowBox[{. A6 n( H7 J; s4 P  u7 T/ x# c5 b# E( b
   RowBox[{"Exp", "[", ) F; Q* G6 J0 D8 b! s1 j
    RowBox[{
( \) K; c) R4 d0 e     RowBox[{
: w# K! {( c; l9 f" l      RowBox[{"-",
. |) ?+ q8 ^1 Y1 c6 r. }       RowBox[{
2 T* e; @' g. f        RowBox[{"(",
2 {! A" v4 V, s* {% p- H         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", , x$ @9 M2 b; X5 }) e% C. R' o
        RowBox[{"(",
% m6 n. ^1 y/ Z6 c' y         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
* J! N8 h% l1 z$ Y0 t2 x/ ?& V- R     "]"}], "/.", "DeltaX"}]}]}], "Input",
* K6 o& K' M( _+ g& p$ j- u CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {8 b6 |* n5 |6 a, Q
  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
* @4 _/ J$ |5 I- l% O& l0 Q  3.5779615991556787`*^9}}],
. W/ {, E( T' }% m0 \0 N* ~  h  u4 i: P, s
Cell[BoxData[8 a, u7 [1 X* S4 W- B. [# F
RowBox[{"{",
! L# X1 E9 w3 G& p" t$ Z$ V  RowBox[{% e& g3 P! k: D0 X  `
  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",", + A: Z& a% N/ G# j7 i( W* @4 R
   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
! Z, _- Z; x% z0 G6 z  "}"}]], "Output",' N1 x3 x4 q; E
CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],6 `0 `6 o/ L0 m4 w/ y5 G

, ^) V5 D* F' ^' [! N* vCell[BoxData[
2 b9 J! X5 w( J" a* { SuperscriptBox["\[ExponentialE]",
$ `5 ?0 I1 Y) C7 F; s  RowBox[{"3.141592653589793`", " ", ( D8 z' C4 f2 Z/ x; a
   RowBox[{"(", 7 H  Z! C7 }6 W% n  v8 i, h& w
    RowBox[{
& M# j% y/ t- K0 G2 U) J# ]     RowBox[{"-",
$ f' D0 p6 F9 Q      SuperscriptBox[
( V9 e1 m6 G, F/ e# j; G' g6 {       RowBox[{"(", $ ^& K9 Q  y% N
        RowBox[{) r- r5 h  d9 T9 \, m
         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",   i' \% U: v& p* |5 A7 L( y$ X
     SuperscriptBox[
9 G' {: i  A  q0 [' e      RowBox[{"(", - h6 O# A# n0 r; M* I
       RowBox[{0 @; e6 V! ^% R
        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
6 I4 M6 s' W% J3 w# v: L     SuperscriptBox[
8 O; {$ @2 Z$ {5 \) P# ^6 g7 q      RowBox[{"(", 3 \# l1 d0 B* Z4 m
       RowBox[{4 u3 c: h/ m% [* A0 N6 @
        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", 8 c: }! w" u7 y( B% _( I' Q1 T' {, _1 L
     SuperscriptBox[+ c5 U; A1 b$ @" }  g# T
      RowBox[{"(", $ U: p$ U: Y  }5 s% U9 O- x
       RowBox[{+ h/ T. z) ~8 y: K8 v& m8 f
        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", 5 ~6 w1 M: v& b/ g! Z- y
     SuperscriptBox[
/ t0 L$ _% p( v+ I/ n      RowBox[{"(",
; a- m# ~- I# c; R; X! x( _       RowBox[{; F2 K4 K8 g/ d* N+ N
        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
% O, C2 T* u& `- e     SuperscriptBox[: \2 R( ^" j' ~7 e0 G5 v8 {, x& c# H
      RowBox[{"(", , `- x; h( s) t9 f
       RowBox[{+ d( d  b9 A3 F& {
        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
* n3 P' b( {% x2 z$ Q3 i" x     SuperscriptBox[
3 K- A. g* T6 i. }7 }      RowBox[{"(", & b5 L8 x3 }" a  Y# F- s* }, B
       RowBox[{8 E" P% T4 ]. Q
        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
/ }; D. r/ I# a0 x0 E1 f0 p: _     SuperscriptBox[6 ^  N* Y7 M+ h$ c6 M) i: t
      RowBox[{"(", " b9 `! ?: h, n( f* ^
       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
- o! T: s/ A1 w- i! X     SuperscriptBox[- ?9 u2 \7 q0 q5 Z. w' N
      RowBox[{"(", ; b6 f# E5 n& p& _
       RowBox[{8 b! i8 i4 B/ u/ ~" ^  Y4 Y
        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
3 L' F7 [) P+ p  Q* k% V3 a    ")"}]}]]], "Output",/ y+ e! A6 x  ?* c, W6 x; C1 b; |
CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]7 r. r! `) ^+ {) ]! I
}, Open  ]],& O5 W% M6 {, V, {) P
( j+ W  x# G" M0 M
Cell[BoxData["\:62df\:5408wi"], "Input",! }% E& ~: q1 T4 v3 C9 ]. U) n
CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
; H2 S9 H( A( w/ Q6 y$ T2 y+ a/ a. r* l% T
Cell[CellGroupData[{/ D" W  b8 ~4 O  k& q, H4 r: B9 R: T

# j9 Y% ^7 Y- C  X- C0 @; QCell[BoxData[  o/ T' K9 q/ X4 D6 ^. L* v
RowBox[{"y1a", "=",
! K1 M" A% j2 z) Y- T3 |  RowBox[{"Table", "[",
6 G; V8 A  y& a  h   RowBox[{"x", ",",
0 v+ A: l7 y  V4 T    RowBox[{"{",
. y; n# @  A* O  ]     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",% P$ A9 m: ?8 c/ M6 f
CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
) w2 ]* y7 z8 b5 d  3.5779226649375*^9, 3.5779226810625*^9}}],
( K7 g0 w' x9 O/ ~$ J  ~# ]$ Y' H) C+ i( V+ x9 o4 H
Cell[BoxData[- V1 T* y9 d* l
RowBox[{"{", : c( ^0 i! v; G2 o4 b: n" U
  RowBox[{: t0 Q; k  t$ \2 X' N& a3 H5 H
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
2 o' I( B5 K/ j, G8 X% H   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",0 E/ X. j! c4 D: \# w5 n- b
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", $ g# R+ l) B( c, ?, K, D$ K" p
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
  b' Q; x& k6 p   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", ' [' V: T) p/ s1 h* |
   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", ' K- a; N& D+ _) U
   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
7 l% u' q8 }) B: [7 V" k& b   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", ; ~: |* o- {7 U% \! o
   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
5 y* j  K" V9 h- ?( s  "}"}]], "Output",
+ C- L" X% @+ G" V5 Z CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
# S/ h2 w- Y. b' h" `: s  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
4 F% j1 c4 V2 h7 U}, Open  ]],
' u  d( D0 ?$ R9 Y8 t# J
7 ?6 q# Y. A1 L* Q6 sCell[CellGroupData[{, r) u3 H" ^4 {8 L; [
# c+ x: @. Y1 F+ V/ Z3 h: w; a5 V2 a
Cell[BoxData[2 f6 _0 S( {8 V2 j; u0 h
RowBox[{"Data", "[", # X' H( a: j9 H  P" U
  RowBox[{"[",
  m; S' S& L9 ~) \   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
8 ?- z" l% _8 e1 s CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {/ N) C/ R) O- A. t6 U: ~
   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}]," K$ c7 D+ |, X$ \
: ?' _; {) x) N' j$ m
Cell[BoxData["0.899882`"], "Output",
# d( O% [* S# f( [5 S1 V CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
- k/ `) J# \/ G( B5 d% B   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
5 A2 z/ l- J9 W! I   3.577961929080654*^9, 3.5780123419375*^9}]! E$ {8 {5 N) N0 Z
}, Open  ]],  t; z, d' V9 m( }& Z$ k
( L! j0 L, Q  Y( F5 l& \! Z
Cell[BoxData[
0 q/ }- x0 H5 M7 g2 t, ? RowBox[{"For", "[",
  F* I. j# Y( Q8 z+ _  RowBox[{
/ h8 @8 U8 K5 R% F7 ~9 r   RowBox[{"i", "=", "1"}], ",",
% H3 g( w. F/ f- `" ]   RowBox[{"i", "\[LessEqual]", "60"}], ",",
* F. `7 A6 w7 B" S6 M8 f   RowBox[{"i", "++"}], ",",
1 r7 j2 u/ D/ i+ T' h6 B: i7 n   RowBox[{
/ P) @4 _3 j/ R5 B4 Z    RowBox[{"y1a", "[", 4 G  J# l; l6 }$ M2 k  K
     RowBox[{"[", "i", "]"}], "]"}], "=", 5 E9 t$ ^! B* @" N5 v+ L
    RowBox[{"Data", "[", 4 n- x' k: ?1 I8 Q3 m
     RowBox[{"[",
3 H9 c- L8 k: _# y3 j) v1 S      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",/ h* @4 c- Q+ M& ~7 J
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {/ m/ U) K8 _" T# r
   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
' b' B+ A& Z" t   3.577922923203125*^9}, 3.5779588839702806`*^9}],8 K3 b5 q1 \1 O0 h0 L: f+ C

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

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

& [7 T4 [0 x# J& R& ~" fCell[BoxData[/ p; a+ E% d$ `/ m6 X5 W
RowBox[{"For", "[", ; }& Q4 W' i2 L; O' L& a2 g% @  {
  RowBox[{
" R) ?9 b/ c, ]% h* J   RowBox[{"i", "=", "61"}], ",",
) o6 R! _' n5 [& H3 T- d   RowBox[{"i", "\[LessEqual]", "89"}], ",", 6 y  k5 ~. e" q
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
. ^& Z' G* M) W   RowBox[{9 d0 K0 ~- I1 W+ t
    RowBox[{2 n, y; J# U1 Z6 ~( X
     RowBox[{"y1fit", "[", 2 M4 J, W7 V, }# b4 H( l/ L) F
      RowBox[{"[",
8 e/ |4 F6 i2 o- `/ b. x0 L       RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
- l1 _! f, o0 `) U- h( D5 _, ]     RowBox[{"y1", "/.", $ O9 M  x) e, |1 v) h2 Q
      RowBox[{"{",
/ ^  e$ R% y0 q# U       RowBox[{
8 r5 }5 N  E' Y% }6 k        RowBox[{"x1", "->", " `% ^" o9 X0 e) c! k: f) q' i1 j
         RowBox[{"Data", "[", / H, b5 Z# ~0 a$ Y. x
          RowBox[{"[", - I7 b! `2 l7 E5 e& H
           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ! g. d6 X4 j7 W" E' ~& A( L: p& z8 s
        RowBox[{"x2", "->", 1 N* I# M! `* v# [1 X1 v, A: U. j+ `
         RowBox[{"Data", "[",
3 A3 x- o% |; ^6 j          RowBox[{"[",
1 {# f, n) _3 G' i5 N           RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
& W& E" ]; z7 `* I( _1 {        RowBox[{"x3", "->", 1 K# Y& q/ A! W# n
         RowBox[{"Data", "[", " X4 s" f4 y6 Z+ V+ [
          RowBox[{"[", ( F5 x( N3 r% c
           RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
- o7 o5 F$ b- b" x: t& p7 G' W        RowBox[{"x4", "->", 9 X: E: V- L6 L) S" u, c
         RowBox[{"Data", "[",
" z- H' D$ D0 G# J3 R          RowBox[{"[",
  D5 _( K6 l4 b% C           RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
; [  Y# v% @) ^' D- l        RowBox[{"x5", "->",
2 O# [+ K* \( s  g$ `# q* r         RowBox[{"Data", "[", ( H( m/ e$ _( n0 g/ W
          RowBox[{"[",
# S8 v1 F3 K- V7 S: ~  B/ B           RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 6 h% h% j$ D9 O7 _* V9 d
        RowBox[{"x6", "->", / C1 ?  Q& `, H' t' N; h- i. K
         RowBox[{"Data", "[",
( X& h0 C' P% z+ V          RowBox[{"[",
! O% X+ b. C( x           RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", " _  }# }7 P8 U& `! Z
        RowBox[{"x7", "->", 5 e5 _8 H: G0 g
         RowBox[{"Data", "[", ' W  I" H3 u6 r1 {  O$ Y: W& y
          RowBox[{"[",
% _" v( c" h, C           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
6 z8 y  @4 |7 ?9 C9 v        RowBox[{"x8", "->",
7 [- x) A1 Z' p0 ^2 ?" f" ~         RowBox[{"Data", "[",
. l. V$ s) I" V          RowBox[{"[",
& R1 a6 h# G" j0 w7 R           RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", " A  S+ h% z) |9 r8 z+ A/ s. V
        RowBox[{"x9", "->", . c/ H$ g1 F0 O0 j+ [$ W: L
         RowBox[{"Data", "[",
( x/ i1 b4 A/ ^' m          RowBox[{"[", & a. Q0 O8 y) N' e2 p
           RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}], 8 _- S9 g: s7 z, e
  "\[IndentingNewLine]", "]"}]], "Input",
# ^3 C+ ?) K1 j' i+ G9 G CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {; i5 _* w& i5 ]. P. Z, @/ v
  3.577925286140625*^9, 3.577925306765625*^9}, {3.577958922517948*^9, 6 H  ?/ N+ {- Q+ x
  3.577958922549148*^9}}],
1 J7 z  ]/ ~/ W- z) y, P4 P. L: l9 b) n! x
Cell[CellGroupData[{  a  c* j% g6 d- z+ p' W

" M  A3 |0 p7 |0 R* I. f! aCell[BoxData["y1fit"], "Input",* N5 j. l8 n5 b* D  d: m' K
CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
6 A4 u2 F, ]: m% H$ C: o7 w  3.577925040484375*^9, 3.5779250440625*^9}}],) j# M4 Y& F8 f( b: W) t

7 p' `6 b2 {/ H3 o7 D1 g( \: QCell[BoxData[% ]8 p9 D) ~2 a7 c2 M5 {- S
RowBox[{"{",
1 r* S& b' }0 |, C  C  RowBox[{
% L9 o- A* h8 k/ G% |- X  "0.43193416525930517`", ",", "0.4501634853493982`", ",",
+ x. `7 E" f3 \7 J   "0.33336034768525247`", ",", "0.4418609896858925`", ",",
6 ~  f' y2 x; x" f3 L! D   "0.41030378932283024`", ",", "0.516814798191575`", ",",
5 i. ]) _  @% ~$ C" O2 R   "0.4476631213729994`", ",", "0.3016552978696669`", ",", " z! i- u6 c5 M, v" m! B$ V
   "0.378122167437847`", ",", "0.020339844919720733`", ",",
1 @# Y7 O( g7 F3 n9 r% A   "0.018745375782087376`", ",", "0.2919925992695025`", ",",
8 f9 v3 U) L. I3 M3 C   "0.2649067959681263`", ",", "0.16343444284525593`", ",",
2 R4 B+ c5 ?, Y* q0 {2 j) u" B   "0.4182466778551563`", ",", "0.27347752211364934`", ",", # r  l: @7 O# {" T
   "0.38554057386385654`", ",", "0.35253160453718047`", ",", 4 r" k% p" M& w2 w1 m, f
   "0.2054745841100774`", ",", "0.45504377112716676`", ",",
8 \3 o0 x" u1 z' h' f  _5 M   "0.1598805094678612`", ",", "0.18662509982279485`", ",", 9 a& T8 R! k" y# x/ v( t, m
   "0.10684797493248213`", ",", "0.013349212673286828`", ",", ; E- v% z* ~* }
   "0.08215836003004297`", ",", "0.2979041599362813`", ",", 0 r$ U' E' [$ o  v( u8 r' c
   "0.05995976512343641`", ",", "0.3884793499104568`", ",", 1 d* v6 P( t# w( L& R4 V9 y& q
   "0.5361889337034293`"}], "}"}]], "Output",
0 X: E4 z" O& J CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9, 4 g1 r( F" f+ }8 l* H
  3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9,
* ]$ F5 h8 K7 q1 |) E  3.5779621416934247`*^9, 3.578012355546875*^9}]
1 a+ w0 U) R5 G# Z4 p7 H! C}, Open  ]],
7 M/ ~, R6 C( s5 Y' n, K: y$ F' _( B7 Q
Cell[CellGroupData[{1 L: `; Q4 Q2 X- V5 S
0 y, M* f: S; ?$ u
Cell[BoxData[) \  S+ I/ O& M& G1 }% H9 a
RowBox[{"y1fit", "=", + t" Y% k1 X$ O9 N
  RowBox[{"{", ( o7 p! A6 w( X1 o$ F
   RowBox[{
' H9 |# r' h' }9 [   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ' {7 H" \) N# k: E7 g
    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( @9 U5 x$ G' @/ S$ C! B  u
    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", : J5 P9 O; T/ K/ ~
    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
$ o# B4 l4 r3 e, l- `    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ; N' q8 V, }* g" z9 Z$ m! \
    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
' e( t& J' ?; ]+ r/ }. F$ f1 H    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ; L+ w+ v+ c7 F! c4 w3 M# Y' M
    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
$ K7 F* r+ e. _0 h0 G    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
4 a/ c5 |0 ^; ]% v    "0.4319341652593058", ",", "0.4319341652593058`", ",", 8 E" [5 B( f/ {* s) Y
    "0.45016348534939865`", ",", "0.3333603476852527`", ",",
2 H" x# k+ w, d0 \    "0.44186098968589294`", ",", "0.41030378932283074`", ",",
) e1 v( E2 f; t1 M, V6 G+ @% l- \    "0.5168147981915754`", ",", "0.4476631213729997`", ",", + F4 V3 w5 x" ~0 A! L& c
    "0.30165529786966755`", ",", "0.3781221674378473`", ",",
# e! u; R% q: [) o/ n% ^! q    "0.020339844919720775`", ",", "0.018745375782087393`", ",",
4 W: }+ X8 n4 ^& @6 |- \/ [5 m    "0.2919925992695026`", ",", "0.26490679596812655`", ",",
- A% s( B: X  |# G& B2 T    "0.16343444284525593`", ",", "0.4182466778551567`", ",", 8 v' w0 e, k7 _7 t- l
    "0.27347752211364945`", ",", "0.385540573863857`", ",",
7 W& z( E5 |# z( r. o4 j% j9 l1 N    "0.3525316045371807`", ",", "0.20547458411007796`", ",", . M; w4 F) ]$ [+ b4 p$ p$ Q; S) |
    "0.4550437711271672`", ",", "0.1598805094678611`", ",",
/ a/ z0 H& k- }; M/ L0 t    "0.18662509982279502`", ",", "0.10684797493248224`", ",", 6 p5 v9 |6 u' U  j* b5 H
    "0.013349212673286806`", ",", "0.08215836003004302`", ",", 2 q# }, L8 s2 p4 C
    "0.2979041599362817`", ",", "0.05995976512343637`", ",",
" ]! U/ T% E3 W( p    "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",9 J2 i0 i) L+ }$ y" Z
CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {
4 O, C2 B( f& h7 v! e( G+ X) b  3.5779621548286476`*^9, 3.5779621618642597`*^9}}],
6 Q( }. w- I8 F0 k5 ?% R5 x& d
; x) p4 ~; z9 S6 u, eCell[BoxData[
/ g) H; s5 y1 b' d* L9 }+ @' \ RowBox[{"{", 5 {& k: k* e) c- h0 m' v+ k
  RowBox[{4 O' J' q& I# q* j. U3 b
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
9 G3 x! H& f7 P$ }& K   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
: D# }" B  p8 ]( d& Z+ [    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 9 S( C# S, @) x9 [8 E$ p. ]4 c5 o
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 8 H" w$ `# a7 k( ]
   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
0 n3 `6 C  c9 p2 z8 ]' F   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",   T4 q' b0 @9 I. `7 {% _
   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
; ~+ u7 E3 c0 n9 \' {6 A2 u   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
$ B; X4 Q1 o  l$ B% ~) e( d, S) j   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
- J% _3 D, H& J/ @. ?3 z   "0.4319341652593058`", ",", "0.4319341652593058`", ",", % _+ `( B0 w2 b& l# n8 L1 Y
   "0.45016348534939865`", ",", "0.3333603476852527`", ",",
' n) q1 E" T, q' l  A( k8 A- x, ^   "0.44186098968589294`", ",", "0.41030378932283074`", ",",
4 x( C; V. ~2 E, f; a   "0.5168147981915754`", ",", "0.4476631213729997`", ",",
% b3 P+ X  t* E  g. ]! [& v/ S* e   "0.30165529786966755`", ",", "0.3781221674378473`", ",", 3 N! X/ U& y' D+ V8 j
   "0.020339844919720775`", ",", "0.018745375782087393`", ",", . R  Z& ?7 X2 k
   "0.2919925992695026`", ",", "0.26490679596812655`", ",",
0 p0 l7 Y1 }3 S) v   "0.16343444284525593`", ",", "0.4182466778551567`", ",",
9 E# d: w! G7 r   "0.27347752211364945`", ",", "0.385540573863857`", ",",
9 A. l, s! R+ b/ y' z   "0.3525316045371807`", ",", "0.20547458411007796`", ",", % o: ?% i2 ~+ L: m9 d4 x, I' P
   "0.4550437711271672`", ",", "0.1598805094678611`", ",",
4 [' m& N4 R- B3 z. H& ^   "0.18662509982279502`", ",", "0.10684797493248224`", ",", 4 P9 S- q+ x, p' u* x% T
   "0.013349212673286806`", ",", "0.08215836003004302`", ",",
2 u. O# f- s& {1 O. K; l/ T   "0.2979041599362817`", ",", "0.05995976512343637`", ",", 8 l% d1 @6 m* w% j: U3 f9 [; m* z  ^
   "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",' E: ?0 l" g* _/ f' B1 z' G4 l
CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9, $ A. X* V  t" [1 \
  3.5780123569375*^9}]
' e! Z8 t, b4 q}, Open  ]],6 [2 d* N) e$ i( k, z8 o) w

4 T! s$ Q5 G# F, pCell[CellGroupData[{4 W* ~" J& u3 c' g  T: `5 F

6 P. g: s# v2 H1 s- j1 qCell[BoxData[
/ `# X( p) x! K( l! G, u RowBox[{"y10", "=", : ~! {& p6 @) G1 w: q2 P
  RowBox[{"Table", "[", 7 o) I9 N4 F' q
   RowBox[{"x", ",",
4 @8 u8 G% P4 ]- ^    RowBox[{"{", - b4 Y% |" h" G' D+ N, |
     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input"," g5 N4 ]) \% h& R
CellChangeTimes->{3.5779253628125*^9}],  |2 E5 @7 y* I$ Q! E. E$ R2 Z+ l
" ~3 y- M. ^/ `* k
Cell[BoxData[/ _0 o: E2 j! Q7 E# R( V
RowBox[{"{",
  z3 k4 D9 m  }5 `# K  RowBox[{
2 a+ k" v! l7 ]) P# _  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", % _* d/ l+ ?$ j: U, B
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
/ B. @7 C9 @5 I6 D8 N: \9 Z    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 2 H+ U% _# F& {( _5 `' ]
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", % S. W+ N. ~1 \' O+ k5 V
   ",", "29"}], "}"}]], "Output",( U& T, J2 e& ?4 a
CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9, 5 E' s( j+ i$ H, u' g9 d$ v4 W, y
  3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]
$ d" g# ?1 X( V}, Open  ]],
* F1 ?1 a8 f7 v& e3 G# e
  y; M7 _# O( v. v- `3 a6 UCell[BoxData[( p2 I6 `( z4 o4 n/ M0 a- T' g% P7 @
RowBox[{"For", "[", 3 C4 C* V  x& U9 ?( z! }( g
  RowBox[{, k7 c* v* U- }
   RowBox[{"i", "=", "61"}], ",",
" Q& d  N* \$ u0 X' B& [   RowBox[{"i", "\[LessEqual]", "89"}], ",",
" ]0 p) t9 Z7 [/ r# @   RowBox[{"i", "++"}], ",", ! H3 C# {* c" t$ C$ N
   RowBox[{
( A8 e" I+ H" z2 L) ~, K& q    RowBox[{"y10", "[",
5 k) ]8 o  Y7 F# M" u' E& w+ a     RowBox[{"[",
9 ~6 ~, l! x+ Y, E0 }$ L7 O7 a      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", 4 X) k* U1 \$ r2 B) B# ?" \8 S
    RowBox[{"Data", "[",
) v# B, h) Q: ^  L" a/ j0 ]     RowBox[{"[",
/ |$ M3 g: K9 V, ]1 e      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
* Z/ _$ O' F+ E' Z  Q1 k& _4 {3 T. ? CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {' u6 L. r) E) Z/ x! a
   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
+ g4 y- @1 I9 I$ M' f5 t9 k# e. [   3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9},
# {9 b7 C; |! ]$ ~; n3 N% P6 e   3.577958922549148*^9}],
/ t+ J) _* v5 V: D* U1 _  n- [9 r% X& H8 @/ h, J  e
Cell[CellGroupData[{: i+ b% c6 v2 J7 O1 I

  ]& _5 D  B  V1 [: ACell[BoxData["y10"], "Input",
' n) e1 i. a9 n/ b CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {, ]6 b! ]. ^" K; g9 [$ k# G
   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],
0 g, @. T% i5 w( I( X4 C# ]. g4 k( o: S. G& B2 Y
Cell[BoxData[
! u) ]% O2 U$ c( D- u1 f* Z: [ RowBox[{"{", / X4 c$ M+ m8 L. K. T
  RowBox[{
2 {9 A, z& W7 ]% T+ N7 B  "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",",
: y8 G7 g7 ]- Z- S   "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",", 5 D# l5 G# W/ K# D8 J8 h
   "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
$ E5 x! {3 l  K2 M0 E; m7 z  q   "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", 5 d9 Z% o" Z7 _! d
   "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", $ L* P+ N4 Q6 M) x$ O- _
   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",", ) R- ]# v4 O. r# x" V
   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",", 1 P" v% B) d: Y7 u4 i  X
   "0.694935`"}], "}"}]], "Output",9 N8 |: z- i: S# k) Q, ]
CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
  A5 X7 ^6 Q: C! G  3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9, " P! M" `, p; r; F) t! O$ Q, C* n# W
  3.5779621736734805`*^9, 3.57801236071875*^9}]
4 N+ T# q$ Q" K, h3 |0 j}, Open  ]],( j! K& L4 s) }' E2 e
1 f8 P- C5 J/ r9 x" q' r: D1 v& D
Cell[CellGroupData[{$ w1 C9 ~. v5 d; U% G
1 ^$ S) W* N  K, O3 t' C4 y
Cell[BoxData[
! ~: z4 d& o: v: i% H# v% g RowBox[{"y10", "=",
+ d( `: I$ i, n' T& K  RowBox[{"{",
( F( b# G- h- n" t   RowBox[{
, v& R) ?2 B6 R$ H8 u   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
$ ^- E# N; ~2 Z* P! s    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & o, y- a7 c+ m3 o; O& G4 I
    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
* O  H$ [4 A5 f; I" I2 ~6 a    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
6 X- {6 v5 o: o: L2 |2 d" a: |    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
# i5 H# S% N: H) o    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
7 p! ?. T. w' ^( Q    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
6 _: j& l  V1 F) O$ c1 h" |* D" v. m    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
2 W" H' U& M3 {. C, e4 i    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
+ k' J' j6 D, i- h% u- Q; Q+ J2 T    "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",",
! V4 x  Z, ^( J" [( A- Y    "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", 7 A: d) P1 e8 B6 y  ?' J2 s
    "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",",
# @9 \# F/ X- d5 U# b    "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",",
* a- t$ i, d. ~4 E) u5 J    "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",", ; c: V. H# u* j4 r
    "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",",
: _8 w! |) R# ?- _' h3 B    "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", 0 ^. H2 y) b. G! @/ M
    "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",0 t7 X' ], }9 z
CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],
" Z6 V& b, ]! c3 o" k! a) L/ I! c
  j' O9 k6 Y, U9 e* M( j3 }Cell[BoxData[
5 x3 ]* @8 H$ ^6 ^ RowBox[{"{",
) b* Y5 z% Z9 l) f9 b  RowBox[{
4 ]: n. A5 O5 c* d$ w  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
5 X. n2 v. U" `9 _$ b# j   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",2 f. [; k0 |2 c2 M/ A2 g& C) r2 [& I
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
7 J* n( C; J" m4 ]' o' p   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ( ]3 G! D. H# ^% q# D3 {- t
   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", " B  [2 P' n- d. z4 r8 K" X
   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 6 ~! w, M( [. Y/ ]% M8 r% d6 e6 G
   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
0 }9 ~5 y2 _9 K" |& l- g   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
# h: x4 b8 K2 i* t   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`",
; i; R- Y( }0 K& B1 \. [   ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ( ]  F4 d- Y8 h: H2 |
   ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`",
: n1 i' R* x& J* Y9 }   ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",: d9 X; \" ?+ ^1 D2 x) W  c
    "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", 5 |. [% S: [1 I; }) x2 h% \
   "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", 0 U  ]$ L. R& s- ?7 @/ B0 J
   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",", 3 j( r; _5 D) }  `$ H5 M
   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
# _) U" R- r. H* `% O; B0 F   "0.694935`"}], "}"}]], "Output",, y; l3 r! Z. X4 M) [. B
CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9, 1 l) [' N/ X) ^9 @2 U
  3.578012361734375*^9}]
5 v$ i3 B+ b1 G) N) Z}, Open  ]],
; I+ u* _2 ]1 g- ~1 l" B- j; P: q) J+ q" z. A' n. R; P% G
Cell[CellGroupData[{
1 |( }. k4 F7 c! H7 t' j! ]4 }7 S2 F0 g) k
Cell[BoxData[4 h  j9 Q" c9 ~& P+ k
RowBox[{"p1a", "=", , u) i) v5 q# h: I0 S% f
  RowBox[{"ListPlot", "[",   x+ a$ @9 ?0 `# x+ I
   RowBox[{"y1fit", ",", 5 H5 M7 t9 H* ?1 W
    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 6 \+ b1 N* H: c2 x) J
    RowBox[{"PlotStyle", "\[Rule]", 1 W' `6 Q( @6 h) A) X
     RowBox[{"{", 7 f, {' h& l8 T
      RowBox[{"RGBColor", "[",
3 ~# y. t* ~) X! s       RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", 3 E/ O* t) Y! H8 U' h
    RowBox[{"PlotRange", "\[Rule]",
) a! p/ [! b7 ?8 w+ K     RowBox[{"{", # E1 j# L4 l3 I9 f# r  B
      RowBox[{
2 S8 d4 P% T1 u4 O: Z       RowBox[{"{", : C  _3 S2 Q& O( {3 x7 T7 Z3 @/ \8 L
        RowBox[{"61", ",", "89"}], "}"}], ",", 9 W) ]; M' V8 L2 @, Y8 |& R
       RowBox[{"{",
3 y: t& o9 H! q( v        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", ) J4 ?, ~8 Y6 [9 k( C. e2 V. P8 s
    RowBox[{"AxesOrigin", "\[Rule]", ' ]5 Q$ i0 v8 I9 N
     RowBox[{"{",
& T6 C" y( }  }& w  Z3 g      RowBox[{"61", ",", "0"}], "}"}]}], ",",
0 ?% V1 D- {; v2 m& t; h# A    RowBox[{"Frame", "\[Rule]", "True"}], ",", ; ]2 y' v* m/ E3 j/ T7 U
    RowBox[{"FrameLabel", "\[Rule]",
& D( T! ]8 q, u" K2 l7 P) J8 S3 W% g     RowBox[{"{", ( O8 v" j! }: V) z. }% D) W# b
      RowBox[{
3 {% B' R/ R. @' u3 \      "\"\<\:7089\:6b21\>\"", ",", 2 I0 M! ]& j( O# s) g! H3 `
       "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\" W+ Z, t' _! z% I, \5 ?
\:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",/ l1 p4 ~# @" H- X* X
CellChangeTimes->{) H" Q& Z5 e3 O& o9 `, I) b! h
  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {6 ~- J1 d+ M4 p* p) T
   3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9,
2 }$ H  k8 M$ h- b/ B, r   3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {
5 O! o# ^7 m+ O- j; n   3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],5 q" l5 I1 O3 L% N, p4 J( t
  }& o6 ?; q$ Z  I7 z# d
Cell[BoxData[2 R. N* x# Q* W
GraphicsBox[{{}, {},
6 w4 x1 U! D5 u5 C   {RGBColor[0, 0, 0], LineBox[CompressedData["
% J$ K4 U8 u$ Y1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn% F# O& p% h4 c3 X* d
8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq( `6 w8 T3 Q. Z: \
D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B- h2 Y9 A$ p* W* Y+ w* ]  r
1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
# X, s1 h+ R' N4 q, NC1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN; C- a5 A8 L4 i) H5 h- @
a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
* Z0 Q! ]% }1 HyqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb, `! p  B4 C' Z( B. T8 S! i
wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59/ @+ S) z$ k" a6 V0 c! W' D
Y6nGQ3sAieueIw==
  _! c6 C: I; {' L. s: C     "]]}},
% O) t  z0 @1 l8 c+ A  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],% ^# C3 N, s4 n4 e! d
  Axes->True,
9 V8 D/ `7 h% W6 U/ F1 w  AxesOrigin->{61, 0},* V: v8 S- O7 }6 \4 X0 Y! R
  Frame->True,
- I/ q/ `$ w2 f! F  FrameLabel->{* V' {, R" B( B1 |8 [0 A
    FormBox["\"\:7089\:6b21\"", TraditionalForm], % ~0 U/ P- J6 J0 |) u& x1 g
    FormBox[5 A6 I# n) q/ T
    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
2 e0 e1 u$ f* d\:ff09\"", TraditionalForm]},
& }8 |* \2 K, u( F6 ]7 c  PlotRange->{{61, 89}, {0, 1}},
1 p' N! ~4 ?1 b  PlotRangeClipping->True,3 p! ~$ O4 ~, i) J# h
  PlotRangePadding->{Automatic, Automatic}]], "Output",
$ x. }. y* W$ F$ ]; x5 F+ }  R CellChangeTimes->{
8 ?- W  h) ~5 G2 P! F$ J! z  3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9, % [, ?: N% L: Z; X
   3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9, + O# v" m& T  o7 C
   3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9},
9 g5 X) \, m5 D4 S) M   3.577962187510705*^9, 3.578012396921875*^9}]8 Q% M& \& L5 t' Y8 l- d4 m$ v: [
}, Open  ]],  _- |# x7 P& m# l
0 I" Y. X) ^1 _
Cell[CellGroupData[{
$ d$ C8 s9 h$ O1 K$ U9 U- b% h3 X) ~) }2 g; @& f3 u' o
Cell[BoxData[
7 `5 r2 I3 i* _2 S% B& r RowBox[{"p1b", "=", + i0 _5 b# G! Q( x
  RowBox[{"ListPlot", "[",
1 F1 n. r: F9 z3 ]+ `7 a   RowBox[{"y10", ",",
" |1 U5 r- F# f8 x    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
1 L9 D: G- J* p- Z; d+ {/ s1 W    RowBox[{"PlotStyle", "\[Rule]", 2 R9 d( i$ l+ V6 T2 X
     RowBox[{"{",
$ p$ x3 a1 S, f. O% H      RowBox[{4 L# [" A" i1 i7 C' f
       RowBox[{"RGBColor", "[", 9 F. r7 T% e$ I, b/ J4 t
        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}], 7 ]; V) F6 _8 s& k: a, D7 @9 S  O
    ",",
1 `; ?6 H4 `4 v9 R$ Q    RowBox[{"PlotRange", "\[Rule]", 7 Y# ]) K8 k% Y6 T  F3 }
     RowBox[{"{",
# J. f1 M; D0 Q# c( l      RowBox[{* ~3 ?/ ]* M3 Y' ?# d! e* Y' y/ ]
       RowBox[{"{", & _8 B; j; ^1 h6 G$ O! I/ b
        RowBox[{"61", ",", "89"}], "}"}], ",", 4 o+ g% q8 ^) [6 ~
       RowBox[{"{", , o/ ?/ \$ P! U
        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 4 x6 M3 _$ r8 C
    RowBox[{"AxesOrigin", "\[Rule]", 8 g7 h) o+ h: C" a: I$ Y( n! Y$ u9 F' b
     RowBox[{"{",
; A- S+ |; G0 S. h* c  {: A" _      RowBox[{"61", ",", "0"}], "}"}]}], ",", * @6 F3 a0 {- V
    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
6 n, r/ @# [  @  ~5 I& x CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9, " M" a9 t4 c+ {) z% \! l  R. ]
  3.5779597764166365`*^9, 3.578012409265625*^9}],. q% ?. R8 o! u" I# ]

  u; E- e; W8 O! O* ?Cell[BoxData[. t$ u- M! Z9 C9 h
GraphicsBox[{{}, {},
% o) d! H6 t3 g8 [/ Z4 {/ R7 @   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["! F* e" h& i4 s/ }+ e
1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
5 I* ~0 [2 [( v8 S" @/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy( c6 l& I- z/ d- f
GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy6 U* c5 E! E% P' U
GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
7 x" e6 Q3 a0 s7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
, p2 K! u0 E. ~$ X1 `* QQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
% e* n: b3 Y% j) h5 IH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
9 D% [  h/ @) H7 g* ?" I* U/ Y. n1 drQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T; M( |3 W6 X. R3 J3 n. w
vA==3 E& n6 B5 _7 ^4 r  i& K) L( Y
     "]]}},$ c; A8 J& o, J+ }$ F  D: @6 g" o
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],# i9 e" T* ]1 Z1 ?; J
  Axes->True,
' O0 \+ s  w$ i9 a! F  AxesOrigin->{61, 0},
" A( u3 ~  Y$ V5 b7 v  Frame->True,' f) ^% l1 Q8 F, X$ |
  PlotRange->{{61, 89}, {0, 1}},
- l3 e4 x1 ~+ N. ~  PlotRangeClipping->True,. |8 d% S4 m4 F8 i% E  b( n
  PlotRangePadding->{Automatic, Automatic}]], "Output",% R9 `4 Z' l' ?$ b2 H! ]
CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, - @3 _/ `1 _! A$ y4 ?' b
  3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9,
  d9 q  _5 J) F* Z) Z8 _% ]  3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]0 x9 H& ~6 X; P5 ~
}, Open  ]],
- e1 a  U; {: ]2 J% J0 }; s! |* l; r; G- i& ]% V3 o0 H% y, C% k
Cell[CellGroupData[{7 E( m8 E, S3 [9 c! G+ x* [
; Y) t! A" W% P  P) J
Cell[BoxData[
* }3 x* @# H  c- c6 \" S+ r# ^ RowBox[{"Show", "[",
$ |: ~- n: C9 V+ e1 A3 x; t  RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],7 G. c5 ?8 H1 X9 K
5 X/ f; B% z6 M5 ^% Y
Cell[BoxData[! w; m, L& l& i3 q+ M6 w. t
GraphicsBox[{{{}, {},
+ y* O0 F- ~1 H- c/ D# W    {RGBColor[0, 0, 0], LineBox[CompressedData[", n/ I4 I5 r* v# i  P/ |" c
1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
0 J) m$ T' Z' @6 U8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
8 x. j# d  b' t8 s% VD3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
$ J* o1 C1 V% F/ }1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
, B- y4 _# u9 UC1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN) O. b9 h7 l/ G& L6 h
a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
: g) U7 n: l6 s( Y+ S# E+ vyqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
- B- t8 I( W% C! v9 |, \& Z$ wwrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59: Z+ L* z1 ~( c( E7 L7 @7 k! u. s
Y6nGQ3sAieueIw==
8 @, l  x/ o$ o! B$ f/ ^2 r, r      "]]}}, {{}, {},
, u6 p  x# J7 ~( c% k% R3 b    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData[": v5 S  c1 D  i& _
1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
' w2 w: P% S' t$ X5 z( [+ n/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
. ~# z8 L3 D5 Z$ k2 {GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
( ~" t9 K& }" Y! K5 |( [# S+ OGFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy5 I1 N9 W$ y" \  N
7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
, {9 m* l) y. t9 x2 l  {" e' n% WQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri* U3 Z5 @$ x/ p# d
H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
' o4 e! F9 j% NrQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
' q. X- B: L* r7 x8 j3 ^vA==" l7 o& M8 Q; {' [
      "]]}}},* ]7 x& C3 Q- g" u
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
& f; y. W. S+ G: ~  Axes->True,
/ p6 A/ ~1 q9 H4 ~* W7 n) S  AxesOrigin->{61, 0},
1 V0 l# l7 n  _8 u6 k  Frame->True,
2 M% W+ ]# m7 Z3 N2 z  FrameLabel->{
9 _! V- m' n' p- }( B! f# E! W    FormBox["\"\:7089\:6b21\"", TraditionalForm],
1 ~; G; \: I" A6 f    FormBox[
4 J( d8 h+ P6 ?. A, C    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
; V2 X( P5 T* l4 F3 n" v$ g" S\:ff09\"", TraditionalForm]},
0 m$ |1 f: T* V" ?- {# e  PlotRange->{{61, 89}, {0, 1}},
) I/ f6 V. B! d8 A6 l7 O  PlotRangeClipping->True,, ~( S) m, m. g
  PlotRangePadding->{Automatic, Automatic}]], "Output",
% G1 X0 C0 }# |# C  ]" q1 h CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]
# g5 R7 z  Z* C2 Y! T; |}, Open  ]],3 j+ Y. w( M5 k) V- h+ D0 T
2 ~' \2 B+ W3 B. [+ `* R
Cell[BoxData["\:62df\:5408wi1"], "Input",! e9 y, z" n) }5 ?
CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}, 1 o# O7 V* }3 Y4 {5 p: |+ w: n
   3.577959662349238*^9}],
0 L# j2 ~7 s+ r3 W/ m$ r( \, b+ C/ H) J* h
: [) k- B, o3 e% xCell[CellGroupData[{
" a! E0 K& y  {- ^# D
) C# p7 A2 @9 V) FCell[BoxData[; f: g+ J& X6 p. V3 Y
RowBox[{"y1b", "=",
$ i5 Q! d7 d/ N4 q' @  RowBox[{"Table", "[", 6 n9 X. [, c' E4 J5 @4 V6 J
   RowBox[{"x", ",",
4 K0 U0 X$ L9 p$ N; B    RowBox[{"{",
+ [1 o) c5 k- ~     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",9 Z6 i' O) Z" d( N. w* J
CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
' F0 u% @. l" u8 q& f; D" S   3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],/ N9 {+ a$ a% M9 _, C  F: x
1 j& U; [( c' y
Cell[BoxData[
0 `, E  e" e: r& e; {. k RowBox[{"{", + V) f. I- d3 W
  RowBox[{. o1 ~/ B! H' t3 n( l; k
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" V5 }8 D$ k! d8 i   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
4 ~9 I; a4 a4 ^( b$ J2 `9 f9 \$ d    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 5 ?; y# F+ S! Y6 i
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", & w- n/ j, D1 z7 u
   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
; |: i4 w5 P0 }& M  I- |7 K- R   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
+ l$ t2 R" ?# d4 |5 g; ~" _   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
# k8 {# g- N5 F1 R. X2 z/ ~# l: o   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 4 {- b' m0 R8 r3 {# I# L- M% |
   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], 8 g: f! y& k4 @4 B' F
  "}"}]], "Output",
; l" X/ X/ C4 w0 }& G, t CellChangeTimes->{6 V0 E2 }, O/ u  n! ^  b
  3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9},
/ d; j: b2 M8 M' \7 B   3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9,
! l9 @! B; I; v. i5 z9 N5 L' S- u   3.578012438953125*^9}]
( r# ~) H9 O. }( n8 r. v. i}, Open  ]],
$ U0 O, Q$ {: Y" r/ t& d& |
% N, |  U: g8 a; ^# ZCell[CellGroupData[{2 ]5 x, W1 o! ]: q) i0 L
, I% V( {+ K( A2 Q1 w. t
Cell[BoxData[% E0 K8 E! F8 i0 p# G* T2 E$ ]
RowBox[{"Data", "[", ; v8 @4 B: q- A* n
  RowBox[{"[",
; ]6 D* A& z# Y# n/ M   RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",: y2 k+ X0 t% O3 d" L% k3 I
CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
7 f( x, W9 R0 v3 }! |" w8 f" ~   3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {
9 I3 |/ [2 ~8 d9 I1 D1 y$ }! q8 z   3.577959014090108*^9, 3.577959016040111*^9}}],
0 F# p5 [) D, ^1 o( Z0 K1 C2 z3 ~' Y; D  u
' k7 t, A3 k- _. L: E+ s3 ^Cell[BoxData["0.492958`"], "Output",
& ]2 B$ z* ^  O9 {6 y7 Y CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, - u4 J$ S/ T0 k6 z) H
   3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9, $ Z! Q3 D' _3 s0 c" x8 X- N
   3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]1 b, e3 }3 K& m# j2 H) |) M5 H
}, Open  ]],
0 k! v, d2 w& @1 _; Y) U/ V) b  t5 S3 O
Cell[BoxData[
5 V' ^4 s& H. }: D. A RowBox[{"For", "[",
+ Y, l" o5 p& P  RowBox[{5 n$ F8 J7 H3 c) h2 v( W9 ~  i
   RowBox[{"i", "=", "1"}], ",",
( X& A2 Y, w. s) s3 E+ i, s   RowBox[{"i", "\[LessEqual]", "60"}], ",", " Z* t0 T; J% z" q- _; g
   RowBox[{"i", "++"}], ",",
* L; ]; l, ^7 A+ d  A& ^   RowBox[{
: r; N6 L' Y; y3 [9 r    RowBox[{"y1b", "[",
; }" w: K8 q, ?1 i2 X$ X+ o/ K3 Y     RowBox[{"[", "i", "]"}], "]"}], "=",
5 v2 G( j3 N) s4 ~$ ?; @( c    RowBox[{"Data", "[",
- M6 {$ J# B: e) r  l! o5 V     RowBox[{"[", ( S5 _1 B& U, H! d: c% f
      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",$ P& M5 ?- V  e/ Q' g  k5 Z
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {- _& G/ l0 {# P4 u9 X% V. |, s
   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, - ?0 ^) d5 S* V
   3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {9 B8 N+ T* I7 s% I' j  m
   3.57795902089172*^9, 3.5779590227793226`*^9}}],! r) `2 J. t" j  Y5 V

" m  P- Z# E6 B9 S$ r) \Cell[CellGroupData[{: o* u0 s* a2 l" p9 \
/ }' M) P! f3 i, k
Cell[BoxData["y1b"], "Input",, {8 @* e0 {) E
CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}, ; h* D$ Q- Z! k9 F! c
   3.577958484172784*^9}],. c1 c* ^7 X: {7 W, W5 H( D/ \

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

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

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

: B+ T' j1 O- l- ICell[CellGroupData[{
/ |$ Z+ y( d5 v, C9 |4 T! l7 V  P- a8 t
Cell[BoxData[
0 `; m+ |8 C  U6 g( h8 G0 m RowBox[{"y2fit", "=", " v$ _$ }# U% U2 ~
  RowBox[{"Table", "[",
2 G, L% L& \0 n4 z; @7 [* Z6 `7 ^  l0 E   RowBox[{"x", ",",
# _4 m5 g, P1 U0 k    RowBox[{"{", 7 o8 g" u% F" e: P
     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",* M! t( ]' [; N& l
CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {8 B# |1 W5 C, z! S: i
   3.5779252768125*^9, 3.577925277484375*^9}, 3.5779583246625056`*^9}],' h3 P) U' }; G% t

2 K$ u# W: h4 ]: a, H: `Cell[BoxData[
$ v# ?' P- C- G1 K  w RowBox[{"{",
2 d0 Q( \6 K" q4 w& d  r5 m  RowBox[{
, U7 \6 I% @, O4 o4 y+ A, ~3 a  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
4 X' T. r$ ?" k; }3 _: z8 Y( K+ b   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
8 }' k* ?" W* m( H) s+ }2 P    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", / Z9 y& t6 N  V# x& ?4 V
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ! p* \0 C8 [1 Y% `
   ",", "29"}], "}"}]], "Output",* K: u8 S/ N, Z, `
CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9, * C- u; F+ w' d- p' S, B* P& O) L+ X
  3.5779583268153095`*^9, 3.577958508118826*^9, 3.5779590470685654`*^9, : m3 l9 L% f7 Q# l: Z9 n, }
  3.577962320173336*^9, 3.57801245028125*^9}]
4 W5 T( e& y9 R9 f4 }, g9 v}, Open  ]]," R# {! d" q. e9 b5 }4 Z9 z

$ h9 J4 u& N4 j) F$ \$ @Cell[BoxData[4 F3 \) v' [% s. F" ?  e
RowBox[{"For", "[", + j& T- Q+ D& K8 y
  RowBox[{" Y$ p$ ~& h8 E: a8 j& Q+ o
   RowBox[{"i", "=", "61"}], ",", $ U7 |" ^5 X  @
   RowBox[{"i", "\[LessEqual]", "89"}], ",",
3 F0 V0 u( r. W   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 5 u9 Q8 D8 y/ |: ^, n
   RowBox[{
$ c9 P# U( u- p    RowBox[{6 _3 I- C' P$ j3 H! W
     RowBox[{"y2fit", "[", 0 j  m; ]9 K. V6 F, l. f. @! z
      RowBox[{"[", . t1 h1 \9 i: w- w# i- ]: W
       RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", . z) f1 {& H  w. c2 |) F- p& ?2 D
     RowBox[{"y2", "/.",
. `1 }" }# d% ~' A      RowBox[{"{", . Y0 v# r. K4 f) F0 n0 H9 F$ w
       RowBox[{" a% r: w$ k! k! f9 n7 d4 N
        RowBox[{"x1", "->",
' m7 H5 |& z) Q8 Q0 f         RowBox[{"Data", "[", " K5 b2 \5 _- v  @* N3 v$ V; o' @6 Y
          RowBox[{"[",
3 a0 G8 l1 J4 S  [2 B3 C  B           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
" y0 Q: A7 k# \" e        RowBox[{"x2", "->",
2 [' L% s/ f% V1 G5 W) s5 [         RowBox[{"Data", "[", # X' s+ ~' x$ z  e! l- J# h
          RowBox[{"[",
: T8 d0 X# K9 T5 l! M8 f4 ]  O4 T           RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
( D) X. f5 H- [0 i$ f/ D4 U7 p        RowBox[{"x3", "->", : g8 c- I5 Y1 I9 Z
         RowBox[{"Data", "[",
. n& d- W, i9 q4 G2 V' w+ i          RowBox[{"[", + ^0 w( m1 n; D( A% J
           RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 5 R9 p0 X  h8 ~/ w% f! q
        RowBox[{"x4", "->",   m' l4 X2 `4 `2 v
         RowBox[{"Data", "[",
+ W/ ]/ n0 u% S3 D& Q$ c          RowBox[{"[",
! X7 l8 p+ Q' @/ v9 M$ s% n2 l           RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
! z) e3 m- O( Z3 U! W& O( \# Q        RowBox[{"x5", "->",
9 v  ?% E' P2 E         RowBox[{"Data", "[",
, f$ h+ {: Z- z. p          RowBox[{"[",
) o  Z: b8 o' @5 @; g           RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
- ?/ ~3 l  {0 ?        RowBox[{"x6", "->", ) ~8 V: p6 L/ k/ R" A5 N5 l
         RowBox[{"Data", "[",
  Z# \. I! X# |          RowBox[{"[", / z4 }, r& ~8 {6 p2 L: X% C
           RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 8 K/ p8 L) f" e4 x" z
        RowBox[{"x7", "->", $ R0 _: g" m1 h2 X# W0 |- b
         RowBox[{"Data", "[", / d2 O0 E7 F9 R7 y' F* p4 ?
          RowBox[{"[", ' f; r; z: V7 N8 M4 i
           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", , L- ]1 t2 B4 R1 f" F0 D/ j
        RowBox[{"x8", "->",
/ S% Y# G1 g4 P- K# N         RowBox[{"Data", "[",
9 g# Q" c! r" R$ @' e' A% S, V( x          RowBox[{"[",
& ^9 S3 v! N$ B7 {  k9 d           RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ' K7 b/ ~0 K0 o1 P
        RowBox[{"x9", "->", , E% n) K* U; O2 }" b: r$ @; n
         RowBox[{"Data", "[", 8 d6 m: ^# N; C* a
          RowBox[{"[",
& v; y* X& L+ Q& X' N4 g! `           RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
% h2 L/ N6 e: \( V% B/ K4 p3 ^  "\[IndentingNewLine]", "]"}]], "Input",
5 Y3 N+ X! a- k4 R' [1 [# S CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {4 f, x* E2 I6 I
  3.577925286140625*^9, 3.577925306765625*^9}, {3.577958329919715*^9,
2 P8 c6 R, L& j. w) m3 S* T  3.5779583326341195`*^9}, {3.57795892351635*^9, 3.57795892354755*^9}}],
7 Y& \6 }& w2 c) B1 X- s* n: x: `4 }2 L4 r7 j
Cell[CellGroupData[{* o3 d- `6 u) U$ J

1 I1 a& k6 _2 X" bCell[BoxData["y2fit"], "Input",0 T4 R7 W0 d. t; s# v: ]
CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {) P) k8 D2 G# k  a8 e6 M
   3.577925040484375*^9, 3.5779250440625*^9}, 3.5779583419785357`*^9}],  t8 I# s) u- m  |5 n
* C8 h- s% [4 T" B" H
Cell[BoxData[
: J  _' ?* S* g8 v8 i/ k; l RowBox[{"{",
3 A- |9 {/ f& W& @  A. k  a# V  RowBox[{  n  s3 A- n0 w1 Q( P1 b. h
  "0.4853171132859182`", ",", "0.4508635216665074`", ",",
  @3 }" u9 Q8 b9 d$ A, e   "0.3642119241752518`", ",", "0.42852077425595436`", ",",
" s, I, w! C( C/ `) V   "0.4712694272667798`", ",", "0.5257533056184774`", ",",
3 c' p. c% d3 C+ [& t# L: s   "0.48620658140716133`", ",", "0.41106838915591876`", ",", ! h0 e0 i! g- y6 d. J8 T
   "0.5486894206610674`", ",", "0.007731168540073459`", ",",
7 N7 A. I, y4 U7 _   "0.013872406140339109`", ",", "0.3956995051659558`", ",",
3 s1 g, C7 s3 f   "0.3663118256142708`", ",", "0.29094217358055163`", ",", * r# H1 t! ~9 r( L% u( Z
   "0.5453093690736555`", ",", "0.44138898880777927`", ",",
; i4 l% v8 K2 V( u# N/ o1 K   "0.42944922031163496`", ",", "0.43092890556748836`", ",", 4 v- i; C1 j! R: u: p# F+ |! ~
   "0.5942402821739969`", ",", "0.330046090785457`", ",", ) o3 C5 M( c& w% V: n$ r2 @
   "0.18938658036630585`", ",", "0.4263720292858679`", ",",
8 z2 _* W# m' b6 @, d; C. v( _% }   "0.23377136184738775`", ",", "0.02232858193309988`", ",",
) r3 {% h) a" W. e" i3 D$ r0 F; x9 T   "0.244364200084268`", ",", "0.5562383565309971`", ",",
' m0 Y, I, ?* U) L: c7 G' p  W   "0.13114103402954333`", ",", "0.5815052048989465`", ",", 4 m! t; c. h! i6 _
   "0.4253455966293501`"}], "}"}]], "Output",
/ N8 K- }9 D  [ CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
8 F8 a8 Q- u) M" H1 x  3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9,
3 z3 w1 L0 K# r2 a& `- \3 t; G  3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}]& _+ w. C  c" W$ y! `
}, Open  ]],
! [: w! b5 ^: [* }. D# m; D- ]
* V5 u. S4 ]+ }" u7 HCell[CellGroupData[{
' A$ M( h" R: B+ C4 J  z4 `; ?
Cell[BoxData[# `1 a* `. N  y) ^
RowBox[{"y2fit", "=", - w1 W3 A" C2 s  y
  RowBox[{"{",
6 }  E9 K5 M# @   RowBox[{$ G. [& f- H' X- n% M' l, w8 Y9 L
   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 5 _% ?/ j+ c- {' ~! Z
    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
% O: R$ ]9 N7 E    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
9 s6 R+ ?0 ?. ^; C2 ~2 J    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
2 p4 H3 n; M+ K; j& b    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
6 O6 m% @; {" |( q( M    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", * I# ~; @) ^3 d
    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ' N4 f& l+ m5 `9 j- D  r+ i" E
    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", 1 k* A" Q- h) _+ n* B! x. P8 y
    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
4 `. U: \. J$ c/ |+ y" e    "0.48531711328591953", ",", "0.48531711328591953`", ",", . L+ G- l1 d) H; ?' g
    "0.45086352166650845`", ",", "0.36421192417525217`", ",", . R+ G7 J6 P; D
    "0.4285207742559556`", ",", "0.4712694272667811`", ",",
8 p3 O& E% D6 `, t/ k6 n9 ^9 k  B    "0.5257533056184786`", ",", "0.4862065814071623`", ",", : z2 o/ Y# i: _% ~1 L
    "0.41106838915592014`", ",", "0.5486894206610683`", ",", - o) b6 t  _. R2 T0 R+ t' L- ?, ?
    "0.007731168540073532`", ",", "0.013872406140339166`", ",",
. N. p( y/ Y, X  L    "0.3956995051659565`", ",", "0.3663118256142717`", ",",
, ?- X) w/ q+ U% V3 {! i    "0.29094217358055185`", ",", "0.5453093690736568`", ",", 0 p) \1 Q3 x) R$ G% f
    "0.4413889888077799`", ",", "0.42944922031163585`", ",",
. a4 H. X" I! E. P, z2 ]" G5 X    "0.4309289055674891`", ",", "0.5942402821739983`", ",", ; P: s/ u- T8 o$ o; ?
    "0.33004609078545805`", ",", "0.18938658036630632`", ",",
, V0 R1 s$ g* w2 R5 x/ n    "0.4263720292858688`", ",", "0.23377136184738778`", ",", " H+ b4 p7 Z  Q' }) C& j- F4 e& s
    "0.022328581933099827`", ",", "0.24436420008426807`", ",",
+ x# U- |8 B  I5 ~+ w; N    "0.5562383565309981`", ",", "0.13114103402954314`", ",", ; k  ~/ k5 `2 T5 z/ |& U
    "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",, @6 ]2 }9 m' B) `- P' y
CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {; P4 I) n+ f. J! _
  3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9, ( r, ^3 G3 i* o  {/ \( E3 B
  3.57796233957977*^9}}],
$ z5 |4 r3 F" ~) g) Y4 y% J: X$ A
Cell[BoxData[* o8 v6 x" b( O1 E( Q
RowBox[{"{",
4 i# y! c0 G, n8 \8 M5 c0 m! ~  T% x  RowBox[{
- ~2 Y" |' o% ^; I) H( \" V  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", $ U3 i8 Y% G7 R
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",; M, `5 y- V' t$ u) E3 Y" w0 y
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
- g. e0 Y+ X1 u+ n! S, c4 e   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
: e- G$ O) S, k/ m; \0 Q% ^- y/ {6 c   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 9 K$ N5 v, \/ e, ^& j
   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", # J: W* B% N+ F+ A; Z- j: y  t. [
   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
7 I  t: L7 }9 l* h: W" X# {" l   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", . w+ h# m( H. O( g
   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
& t' \# b6 G, T" ~   "0.48531711328591953`", ",", "0.48531711328591953`", ",",
# O" _' L+ T& l   "0.45086352166650845`", ",", "0.36421192417525217`", ",", $ `: ^9 N4 G6 \9 o: M; C- N; P
   "0.4285207742559556`", ",", "0.4712694272667811`", ",",
) c# W& G6 F, B, v" ?% x* S   "0.5257533056184786`", ",", "0.4862065814071623`", ",", 1 A  f% t! Q! k9 R+ |
   "0.41106838915592014`", ",", "0.5486894206610683`", ",",
. [6 w: L0 r' X1 R2 i, p& a   "0.007731168540073532`", ",", "0.013872406140339166`", ",", + n/ {2 U, P. f* p
   "0.3956995051659565`", ",", "0.3663118256142717`", ",", ! W: S; R2 x* v7 _' }+ o( t* R0 k
   "0.29094217358055185`", ",", "0.5453093690736568`", ",",
9 u: k# B4 \" e. L   "0.4413889888077799`", ",", "0.42944922031163585`", ",", + v! v: X+ Q  N1 L  u
   "0.4309289055674891`", ",", "0.5942402821739983`", ",",
4 n2 d# @$ v+ w& m   "0.33004609078545805`", ",", "0.18938658036630632`", ",",
( E+ h+ F$ `4 `* g1 q   "0.4263720292858688`", ",", "0.23377136184738778`", ",",
) K: F7 p' B) j! ^* p   "0.022328581933099827`", ",", "0.24436420008426807`", ",", 6 [( J/ b- e5 x) X# {- ~
   "0.5562383565309981`", ",", "0.13114103402954314`", ",",
  R( H" [0 ]% c) r( G   "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",( [7 M; [  s" r) h/ b( T
CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9,
2 C+ I" v% m; H2 L, c5 {  3.577962342060174*^9, 3.57801245340625*^9}]
* X3 p4 G& y. g- X! M9 g0 v  o}, Open  ]],. t) p7 W) s6 C
1 ]+ @% z9 |+ y: c1 C9 q' y. W. l9 v' y
Cell[CellGroupData[{
* k+ z9 v3 k6 N5 V6 b
" ?, u  j" n$ A8 f( |Cell[BoxData[: }! L, S, h: c: ?2 r& {
RowBox[{"y20", "=", ' W2 ~3 N5 ~  g) R* a, S, `* @
  RowBox[{"Table", "[",
1 E! j# {+ _5 Y' z   RowBox[{"x", ",",
% s1 |3 z' F! H4 W: v! W; f' a4 G    RowBox[{"{", . e5 P- z+ k$ }: Q' t1 r) _* L6 {
     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",; V$ p) z9 h8 v9 D
CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],$ T9 k" Z5 A# G2 B; m2 n
6 v2 {! q; g  A  _7 y% n5 D
Cell[BoxData[% k. i# e0 [0 G  U2 K- |( O
RowBox[{"{", - f$ |/ f+ S. ^7 ^7 J, U3 ^4 K
  RowBox[{  r3 E' a; S. h: i
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", # {# |! q0 i6 X) S
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
  M1 I. @" q" ^0 C" ?    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 3 {' h+ C4 k/ V1 Q+ p0 x! N  n/ K
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
" h. y; F/ H% f% b  c8 N3 x   ",", "29"}], "}"}]], "Output",* ?1 _9 K0 j% w- l( K
CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9,
$ w+ w0 f2 K: S% E0 Q) X  3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9, ) N- H& w# n; T; h& U5 x: G  m, f
  3.578012454875*^9}]
3 c# {  X1 o! E: x( H}, Open  ]],( U5 c9 u/ S1 `* k" ?) v
9 o5 O$ K8 T$ p5 I% E2 T
Cell[BoxData[
' F' m% i# f" h2 ^) g RowBox[{"For", "[",
0 X# y. G) l$ F8 T, D  RowBox[{
. x/ b+ ^: v4 s$ b, z2 h   RowBox[{"i", "=", "61"}], ",", 8 g# ?) f: g0 P2 L. _- c% z$ o
   RowBox[{"i", "\[LessEqual]", "89"}], ",", 5 Z5 x% _9 U. F2 w3 z
   RowBox[{"i", "++"}], ",", % E$ `8 B; K2 A4 j5 g. q4 o
   RowBox[{
  e% m' w0 q; E% A2 c    RowBox[{"y20", "[", : T! F' i! q, x/ N
     RowBox[{"[",
. b7 b2 V' C8 v! [3 N9 t  L      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", 0 _! n: l/ g( I
    RowBox[{"Data", "[", - M7 {5 e% c2 p9 Q  V3 P
     RowBox[{"[",
# A" @: m7 j+ u/ y1 I. [      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",  V1 y& A; `  r
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
9 C" k7 O. K4 F! B% W4 g0 n  3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, 9 X/ d+ n: Z6 o  K! r, o
  3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {
* i( o' h5 |& F" ]  3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9,
: o- V! V; |& m  O) t5 ^4 O) n  3.577959058690585*^9}}],& K5 G  _% T  I2 B1 a. J' H- {/ m
- d' }5 t# M1 v) X- t; E% B: ^
Cell[CellGroupData[{
7 U0 ?4 c8 ]# d) S7 a+ r# M1 C$ ]0 X! Q4 T* r
Cell[BoxData["y20"], "Input",
6 O$ o, ?! A* c1 f& g CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {1 V/ E" m! k' h: a( c8 E. W
   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9, $ y! k* ^) i: E) B7 V
   3.5779583657841773`*^9}],; I, {0 M0 l  {8 T  W. p
8 Q1 c  @: `( q* B# [
Cell[BoxData[1 u% X' f6 j! p4 M
RowBox[{"{", " Y5 ~1 g7 X1 ^7 u
  RowBox[{
' c, A  D$ O2 n  "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",",
6 H& [4 X8 J* x# n6 S  I4 [   "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",", * ]# Y2 G) I* L8 K9 L7 H- I
   "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
5 E9 A8 @  M2 k% `6 p. O# I   "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
9 }6 ~- a$ N) |$ p) C8 S   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",", 6 m& A( J- c) `6 v3 d/ X8 u" o: o
   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",   ?1 H, E. `$ h) w' t
   "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", 8 c: x$ o5 M% C$ {& Z& ^- S' y
   "0.323944`"}], "}"}]], "Output",
- ^' o9 z# f1 R8 n CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
6 g% {0 u4 a- h3 g  3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9,
# A: d" G4 @+ k/ O* G  3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]2 A$ O, m$ Q9 M! m: j" P
}, Open  ]],, ]8 `8 F  D9 l0 p4 z0 @

" r# d: W- Z% p' q+ kCell[CellGroupData[{
" z5 }! u8 R  j: W
- n: K! ~0 n) ~4 o* P4 _Cell[BoxData[
  J+ m" |6 Y! N$ Z% ? RowBox[{"y20", "=", / s$ z4 C1 N* K7 I; I
  RowBox[{"{", " ?2 |- L9 G+ P; \! T2 g
   RowBox[{! F" Q  E( ^3 N
   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
" `* E3 i0 {  z$ _    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 {+ K. P# z4 }9 u" E* D# S- j
    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
: q$ t6 o8 v" V0 |; O    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
" J, f/ i6 I' u+ b    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
: c9 U/ V* i5 f( Q* ~    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", 5 r7 e+ t; k4 G* c6 H
    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", % d% J9 z" R  P( v6 Q
    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", " z+ L# b0 j( v. J7 E1 ]
    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", : h9 l% C/ j( Q9 O' z4 x
    "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", 1 Q7 o6 Z; i" d  V9 i
    "0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", 1 _! U3 B- Z. y& ^- P
    "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", 0 I$ v% `3 R4 }# q; ^3 }0 x
    "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",",
  \9 \7 E4 }) n7 v! l1 m2 r    "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",",
+ r) d* G" h( F2 D    "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", : v$ A4 f. [$ T5 B( Y* e
    "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", 2 E) d  J7 i% s" E2 g
    "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",6 C, ~4 p7 s/ v$ u- f
CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],4 c! a. E% c! x3 u
0 x/ L' G7 m* |* H1 S
Cell[BoxData[
# Z: K* U" ^. y. W1 H RowBox[{"{", % F6 \# r* K2 {* X# m$ {, F: W
  RowBox[{8 t3 j. j6 @4 N8 `, k
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ( {% A8 P% z, x2 r& o4 b
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
6 q1 J2 O" z: w) D. O8 d9 S1 T    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", % Z" q6 E. U0 i
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
2 o( K6 D4 h/ e' a) C7 X9 U3 h   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
) [* e1 Y/ N: b) J  G( l: Q   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 5 _1 I/ R$ h% ~$ l0 D* F' ^
   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", 7 d" E$ s) Y- X; k
   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
1 W* d( \) e/ X* O* x   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`", / d- l7 P- C; s* H# M# R0 _# w
   ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", # a, [7 f- L& P$ I# i
   ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",. M0 Y  ?1 M# D* p& A3 V
    "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", * i: i' h3 z4 \5 L! U* p
   "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
5 a7 ]) _) ^' b" x2 Z   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",", / y3 M* |( h1 \) ?
   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
4 ?; ]) r& F; Y2 H7 V/ j3 l* s+ `8 {8 k   "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
; M9 B4 `  M# `- D  @   "0.323944`"}], "}"}]], "Output",
# y/ @2 T, H$ Q1 L; X+ a CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9,
1 u+ A- l7 k& _6 u4 A8 o) D  3.578012457234375*^9}]: y6 G/ m0 Y& W' s: S
}, Open  ]],. Q2 v8 W/ ?5 _) W
( H0 E0 u% o( a& @- F1 V. y; J
Cell[CellGroupData[{
# j7 I- l' I. i9 f; q5 O9 h  U1 a" y  N* |3 G( a
Cell[BoxData[
, e1 D7 u" p" a* k$ H- p0 @* W# } RowBox[{"p2a", "=", $ k$ U$ o$ g# s
  RowBox[{"ListPlot", "[",
+ n3 {1 b- f" c' x$ A   RowBox[{"y2fit", ",", + M. {* g  v" V$ B/ H
    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 1 C: F9 f5 T9 }" V0 p
    RowBox[{"PlotStyle", "\[Rule]", " A: H5 O) C4 s+ ]2 i
     RowBox[{"{",
7 \- Y4 j* r0 `2 M      RowBox[{"RGBColor", "[", 9 x; D/ G9 f) g5 C
       RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
$ N! C4 F4 t2 Q3 N- V! g- p6 l    RowBox[{"PlotRange", "\[Rule]", 2 C6 i) {) p+ P  R  @  n
     RowBox[{"{", ( E; m, `- ^0 R' ]4 I! m& y! a6 H  {
      RowBox[{
: w* |% ~8 ^" C3 P0 _; R! ^       RowBox[{"{",
0 V3 Y/ w; p2 y4 G        RowBox[{"61", ",", "89"}], "}"}], ",", , n- V  H% `) ?; j9 D2 H0 z, Z7 m
       RowBox[{"{",
3 a) ^1 h% I' y+ S# C) ^3 T( g! t        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", % K  c. D$ q  R
    RowBox[{"AxesOrigin", "\[Rule]",
/ X9 C+ I8 T. t. p3 o0 y4 l) k5 ^$ h     RowBox[{"{",
4 C7 p3 M' V5 E" L+ n, c      RowBox[{"61", ",", "0"}], "}"}]}], ",",
; m. z3 v- E. o3 I    RowBox[{"Frame", "\[Rule]", "True"}], ",",
' \6 j/ g+ e; z2 Y5 I# Y, Z    RowBox[{"FrameLabel", "\[Rule]",
, t( [* A1 k) ~1 [     RowBox[{"{",
% h% @4 A5 s' L# c+ k- z5 x) d  i2 f      RowBox[{" u  ^8 f& p% ?
      "\"\<\:7089\:6b21\>\"", ",",
/ _+ X& k0 p+ X: [; C       "\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\: J4 m2 P' s6 n7 @$ P! ^
\>\""}], "}"}]}]}], "]"}]}]], "Input",
+ P" A2 |/ W7 k+ C CellChangeTimes->{6 a6 N$ O  T5 m) L  M8 `* i$ h, A
  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
: \/ U. }; I: d( k   3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9, & s" b0 n; e3 g! {& J8 c7 W7 A
   3.5779585491624975`*^9}, {3.5779592802577715`*^9, . D0 |: w/ C9 c, t8 m
   3.5779593014270086`*^9}, {3.5779594039971876`*^9, # ]0 r3 y3 v* K' p
   3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {( w# ~  p: J! i
   3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9, . o5 _9 ?: O4 q4 g8 w
   3.578012920859375*^9}],8 ?  g! d. c  R6 r& X( @! K

6 A  U% J* A' M8 Y$ DCell[BoxData[
# X: I- J7 |) q: f6 v GraphicsBox[{{}, {}, * g  |' z0 C2 [9 }' A
   {RGBColor[0, 0, 0], LineBox[CompressedData["
3 I4 ~  w/ b% e# K1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
- h: V' r, _+ ]1 D. T2 G/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ# j; b% V" [" u
9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
, k% Y7 }/ _6 B% |ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC5 n6 Q! X/ I: J6 a% O
qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK& u7 B/ z& X8 P- C, p2 I
1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx8 e. E4 W+ N2 Z& a2 K' V
0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1- R% C2 l4 Q% p/ D! r8 v
sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
" v$ X) o$ R' O2 n99yxuG0PAHw7nyU=: j7 D1 \% n; Q; q+ c: C" X
     "]]}},6 x, t4 w! d1 p: N; y9 f
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
# }7 ]: m( X1 u# `% X  L9 {  Axes->True,: l) I3 z7 }: p, n
  AxesOrigin->{61, 0},
! j4 J* f! ^! }1 t  Frame->True,
( x0 U6 C4 A) n  FrameLabel->{; v6 P) A3 K, s8 C1 Q
    FormBox["\"\:7089\:6b21\"", TraditionalForm], - s- Y3 }9 c2 x
    FormBox[
# @* z6 X- F' C! m- r    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
0 A' e( S8 R! a% Q     TraditionalForm]},
1 e# ~; i9 }& }9 K  PlotRange->{{61, 89}, {0, 1}},
4 x5 F# c6 |( m' ?, \  H1 d) \' q  PlotRangeClipping->True,
" w7 ?4 w0 A4 [7 y  PlotRangePadding->{Automatic, Automatic}]], "Output",
* I! a( ]0 ?1 r9 C9 W% t$ @ CellChangeTimes->{+ ~; D8 n2 q/ |3 F& V2 E+ [9 ?
  3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9,
  X$ F; i. W( E% M( @   3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9, " ]0 I; c$ F7 v. a
   3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9}, 5 `4 k* T8 P+ Y. S/ n; s% H
   3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9, 6 |4 k7 W5 H( r; a( b9 M2 q
   3.57801247209375*^9, 3.5780129225625*^9}]; g/ t" c2 t6 @4 |6 Q/ T
}, Open  ]],6 Y6 m7 b  m1 n- x# ~2 G0 A6 y

7 a, z9 j3 U7 xCell[CellGroupData[{
- J) _; x' Q# A: N: g! Y
* f! Z' c/ X0 I1 w% Z/ F9 ~Cell[BoxData[
; U) U0 p/ j" S. w5 W+ n6 E! @+ ~ RowBox[{"p2b", "=",
( c9 K5 _7 p- }% O  X  }. U$ n# l2 |; F  RowBox[{"ListPlot", "[", 5 g+ o8 U) ]; V5 p: D  F+ |
   RowBox[{"y20", ",",
  H7 R) t$ r& w* b, U) q    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 6 c8 O$ L; A8 T6 r
    RowBox[{"PlotStyle", "\[Rule]",
5 L2 u" ~7 N- B" j" ~! _( }# {( f     RowBox[{"{", 3 z! E; R5 {7 p. q8 h) j5 R
      RowBox[{  h) S$ F  A' O( V1 ]6 `. D" r
       RowBox[{"RGBColor", "[", 9 N* p' b, M; ]4 X1 q  m
        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}], + Z8 T  Z3 V% p% F4 e
    ",", $ O( D2 X2 O/ y8 X
    RowBox[{"PlotRange", "\[Rule]",
7 W$ B" ]- w# A% o     RowBox[{"{",
' P9 N5 I$ a+ i$ P( x9 a+ B( a      RowBox[{) e3 F7 r. v- y6 l4 z/ E5 e
       RowBox[{"{", 6 P. r: d8 Q5 u) O* n1 _
        RowBox[{"61", ",", "89"}], "}"}], ",",
9 z" m  V* R8 L       RowBox[{"{",
; E4 {3 D& f  E7 `+ [/ q        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", - I' X' t  H9 `& |% u4 y+ }( o8 a+ l. ]
    RowBox[{"AxesOrigin", "\[Rule]", 5 {. O1 k/ K; P# L
     RowBox[{"{", ! G- K) f+ m8 w0 n2 P; r
      RowBox[{"61", ",", "0"}], "}"}]}], ",",
& k, P& s$ n& b' F    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",) L% r6 G1 p# D) t8 y! l$ p
CellChangeTimes->{
/ r1 o9 Y0 x; N- R0 I- s# J! y: @  3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9},
! R3 R0 E% P& ?8 v% k: h9 ]% f8 h9 ]   3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],
# O4 P) q. d' G- K# r$ F. E$ M+ b# x  ?0 W7 n& l( h- m
Cell[BoxData[
1 O6 s$ j9 H; z1 C& m5 @ GraphicsBox[{{}, {},
6 H2 \. n2 u$ S: G' Y0 r2 w) @   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["% |0 z' R4 _% b3 |$ |
1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn, U! `5 K4 L. L; H4 s. B% j9 C6 X
8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
) n+ N6 i# `% c$ \5 xc/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
/ D: U3 {8 _' t  uiX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
9 a4 l' g5 [8 KTZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
  G+ \# Q: m4 HfzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
! c" o' Y! S0 k0 x( t2 K9 t& E* DTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG+ Y2 }2 s5 A9 ]
p0OYg4Fg/tz63VfsAdsCnzU=
8 y: Y, a; T  w' t1 E; s3 f     "]]}},9 e! T' B9 q0 j  |9 V5 z6 X
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],5 b( R1 e' A# B1 H. J
  Axes->True,9 X$ a2 a. E7 g" [5 d8 ~
  AxesOrigin->{61, 0},
! A2 Q6 Q5 m: Y$ z  Frame->True,' l1 t9 Z) n# e; p. w/ d
  PlotRange->{{61, 89}, {0, 1}},
' C& ?; ?5 Z+ J; Q3 {. \  PlotRangeClipping->True,( Q+ u* }2 N4 L- P3 n3 o- S
  PlotRangePadding->{Automatic, Automatic}]], "Output",+ b; A% ^8 C5 B3 T
CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, ( p0 F: m! m- Q; S$ \8 c
  3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9,
# H  f' H6 v! I: k9 i$ n  3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9, / O8 i) h( }+ l$ _
  3.578012484703125*^9, 3.578012925875*^9}]$ {- Z+ v1 I. h' ?/ ?0 a* {' L7 A! d  ?
}, Open  ]]," v  b- X$ X4 i9 J; h! |3 X9 y" V
' X- @7 ]' D* Q- g. n- R* b- x5 a# t
Cell[CellGroupData[{
! F" v/ z: I& h: E& B0 ?0 B* A# T/ m
Cell[BoxData[
3 c1 T- R, _* Z* } RowBox[{"Show", "[",
. i3 G+ D% x) q4 p  RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],1 s) q- J2 n9 w$ N  R
2 G9 W+ ?: w+ O7 n0 {
Cell[BoxData[1 T/ p& w  b5 w# Q( i# v+ I+ z
GraphicsBox[{{{}, {}, 2 U% q' Q: y5 p
    {RGBColor[0, 0, 0], LineBox[CompressedData["
# c+ p4 Q0 r" {# G& n0 b( X1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM8 ?- @2 m1 t( R! V0 E
/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ% ]+ k5 J) c+ k5 Y& [: D
9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
# K" o9 a5 a+ A4 S- w- sofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC7 L% {6 [! X% S, g
qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
" |* X+ A1 e- r5 n- A1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx7 l) n' c, Q7 J/ ~8 x0 c2 m
0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
( T' n( K4 E# _4 e* V* AsPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
$ K( I1 S5 o4 q( U: Y% K99yxuG0PAHw7nyU=9 \8 ]. S2 w5 Z3 d
      "]]}}, {{}, {}, $ K$ R5 l3 A9 [! R
    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
9 Q7 ?, p: v% x/ z1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn- b- Y5 _5 o; J
8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
6 r% ~8 z& |3 F- L6 uc/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
* |. k7 g: `. M8 ^: v4 T: OiX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4$ ~; o; n* S0 g- A' [9 d& T
TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO) c8 P2 M# A3 G; C& q* ^: \, t
fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
4 Z2 |! u! |" l! h% cTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
1 v, t4 e1 N0 T* q; ~% m* Vp0OYg4Fg/tz63VfsAdsCnzU=
8 G5 Q7 s# `7 ^2 @% @( a      "]]}}},  v+ ]. F5 A6 u& K  L. U
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
4 G( Z0 f* [& D, y$ w  Axes->True,$ R, ~6 N% L' }5 n( k
  AxesOrigin->{61, 0},- ~' k6 B) Z9 k5 V
  Frame->True," Z0 P- ~# o2 }6 r2 }& f
  FrameLabel->{
# H7 K" i) ?& E    FormBox["\"\:7089\:6b21\"", TraditionalForm], " b/ v6 ~$ S6 ]+ O5 Q7 k  N0 }7 Q
    FormBox[& I# l) f- ?# [7 h
    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", 8 j+ P( i$ A2 w( Q
     TraditionalForm]},
8 K5 e; A, V& ?0 R( v% E! Y  PlotRange->{{61, 89}, {0, 1}},
: p0 n9 Y4 E3 O+ r& d6 F* x! y  PlotRangeClipping->True,% Y% e( u7 Q) c3 u: V- z
  PlotRangePadding->{Automatic, Automatic}]], "Output",
$ S3 I6 d/ q8 o; |) j. v8 {( K& g CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9,
$ _6 v0 e9 A) d0 c6 {8 T. Y! O! o  3.578012927734375*^9}]0 P1 W# t, H9 c3 p3 T
}, Open  ]],/ [1 h0 W" {: s& z5 M

& i" f2 Q7 L: G' {1 }* U+ R8 q: OCell[BoxData[
% C! M; R- `; R  [7 }0 E RowBox[{"\:ff08",
* b# S, L- A* d; T  RowBox[{5 d- d: e$ V  B& e1 e- q3 ~
  "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406", 7 V* q* M- I4 U/ ]: C
   "\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621",
6 f: b) ]$ I2 Q& d9 T% O7 |* q   "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208",
  Q& `5 G) x3 G5 i   "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0",
+ k4 w# Q; N0 R* t+ L6 k/ s   ".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\
+ z6 s4 u0 c" i( A, i\:4e3a0", ".6224", $ R5 p! d9 o( L) v' b% X% J
   "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],
5 _. ]# P, ]: \0 J, z1 N   "\:ff09"}]], "Input"],2 h1 x+ \9 e6 I# N
" W/ {+ F6 Y, H7 Y5 F
Cell[BoxData[
) l6 g8 y7 ^/ @" O RowBox[{"{",
* h1 f8 Z) {5 }  RowBox[{
3 ~0 E3 J: S) Z2 K  "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",",
/ A+ k' a% s: @  Q) J1 a   "\:5439\:6c27\:91cf", ",",
0 u' Z) M7 b" O1 F  ?   "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",", * T- {( d. Y4 S' \) u4 O& \
   "\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",", , M% w7 w* a8 Y) c! a% U0 g, l
   "\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",", - A  @: ~4 S0 D" k" R5 U* E# t# C
   "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",", 3 J0 o6 L2 n" n6 a& w+ P" l
   "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",", / F. M- z. r  v) }% u
   "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],, O, t' s% E; f( a) V

" a; b+ [; b4 mCell[BoxData[" "], "Input",- Z7 g4 s& `4 B
CellChangeTimes->{3.577962834553033*^9}],9 k% v/ i: y7 C
6 }0 p. Y, z" q" I7 f9 t
Cell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],
1 D+ E9 d/ Q" r5 A; U9 p; C6 h2 |" t/ S& S  y/ L
Cell[CellGroupData[{( j/ l" o: L/ }1 V

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

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




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