快捷通道

QQ登录

只需要一步，快速开始

  注册地址  找回密码

数学建模社区-数学中国

留学>>
返回列表 发新帖
查看: 10672|回复: 9
打印 上一主题 下一主题

[问题求助] 怎么在matlab工具箱倒出神经网络系数

[复制链接]
字体大小: 正常 放大
琳123        

1

主题

10

听众

296

积分

升级  98%

  • TA的每日心情
    开心
    2014-11-9 17:59

    • 签到天数: 75 天

    [LV.6]常住居民II

    自我介绍
    无

    群组: 英语科技论文写作实训

    群组: 数学建模培训课堂1

    群组: 第四届数学中国美赛实

    群组: 第一期sas基础实训课堂

    群组: 物联网工程师培训
    跳转到指定楼层
    1#
    发表于 2013-7-29 20:37 |只看该作者 |倒序浏览
    |招呼Ta 关注Ta
    怎么在matlab工具箱倒出神经网络系数？任何一种都可以，谢谢大家啦
    zan
    matlab, 工具箱, 网络
    转播转播1 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信

    相关帖子
    回复

    使用道具 举报

    兰秋小沫        

    0

    主题

    7

    听众

    31

    积分

    升级  27.37%

  • TA的每日心情
    开心
    2013-11-21 23:26

    • 签到天数: 7 天

    [LV.3]偶尔看看II

    自我介绍
    额
    2#
    发表于 2013-7-29 22:18 |只看该作者 |招呼Ta 关注Ta
    帮忙顶，等高手。
    回复

    使用道具 举报

    涳夢        

    0

    主题

    0

    听众

    1

    积分

    升级  20%

    该用户从未签到

    自我介绍
    爱好数模！
    3#
    发表于 2013-7-30 20:31 |只看该作者 |招呼Ta 关注Ta
    神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
    回复

    使用道具 举报

    冰E柠檬        

    10

    主题

    43

    听众

    1434

    积分

    升级  43.4%

  • TA的每日心情
    奋斗
    2021-8-13 22:51

    • 签到天数: 278 天

    [LV.8]以坛为家I

    自我介绍
    冰E柠檬

    社区QQ达人

    群组: 2013认证赛A题讨论群组

    群组: 2013认证赛B题讨论群组

    群组: 数学建摸协会

    群组: 2013年数学建模国赛备

    群组: 高数系列公益培训
    4#
    发表于 2013-7-30 20:45 |只看该作者 |招呼Ta 关注Ta
    同问上一楼的观点。
    回复

    使用道具 举报

    百年孤独 实名认证       

    3503

    主题

    538

    听众

    5990

    积分

  • TA的每日心情
    开心
    2017-2-7 15:12

    • 签到天数: 691 天

    [LV.9]以坛为家II

    社区QQ达人 元老勋章 发帖功臣 新人进步奖 优秀斑竹奖 金点子奖 原创写作奖 最具活力勋章 助人为乐奖 风雨历程奖

    群组: 2013年国赛赛前培训

    群组: 2014年地区赛数学建模

    群组: 数学中国第二期SAS培训

    群组: 物联网工程师考试

    群组: 2013年美赛优秀论文解
    5#
    发表于 2013-7-30 20:56 |只看该作者 |招呼Ta 关注Ta
    问题完善一下！或者把代码贴上！
    ) j  ~; j% r$ h* {' N! L$ V
    回复

    使用道具 举报

    琳123        

    1

    主题

    10

    听众

    296

    积分

    升级  98%

  • TA的每日心情
    开心
    2014-11-9 17:59

    • 签到天数: 75 天

    [LV.6]常住居民II

    自我介绍
    无

    群组: 英语科技论文写作实训

    群组: 数学建模培训课堂1

    群组: 第四届数学中国美赛实

    群组: 第一期sas基础实训课堂

    群组: 物联网工程师培训
    6#
    发表于 2013-8-24 13:13 |只看该作者 |招呼Ta 关注Ta
    涳夢 发表于 2013-7-30 20:31
    9 [: z& g" R: Y, z神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗

    * p! Q+ {: ]! g8 |8 D. f(* Content-type: application/mathematica *)/ n$ e2 }3 i& H2 z; G# B/ m

    7 X8 b0 f) d$ m* U3 v(*** Wolfram Notebook File ***)7 `7 v0 a+ V, m/ v. Z+ x
    (* http://www.wolfram.com/nb *)
    : d+ t/ h; a  D# K6 `; L  j8 R" o' M( e3 N; z  X
    (* CreatedBy='Mathematica 7.0' *)
    ! e3 B: u! K: v9 A  Y, i" B  a- ?+ Y; q( k( Y
    (*CacheID: 234*)" K8 [5 Z8 Z5 |7 \# w
    (* Internal cache information:
    # O6 r& f" C7 A  pNotebookFileLineBreakTest
    ! K; J' {7 g8 T2 @6 J: f- H( d+ }NotebookFileLineBreakTest1 G% w& E. N) V+ S0 `* d; T& F  A
    NotebookDataPosition[       145,          7]. z% z) U. ?6 k4 ~& I, K
    NotebookDataLength[    423629,      11534]( Y% L8 j" n  }; O+ i  `: x  V+ B
    NotebookOptionsPosition[    412607,      11173]
    3 E0 E, J- A! P3 @& D3 K/ lNotebookOutlinePosition[    412953,      11188]
    $ D) H( M) F( ^6 n, s3 uCellTagsIndexPosition[    412910,      11185]
    ( S3 N5 a( s  O: u; ZWindowFrame->Normal*)$ c8 P/ r! s2 v3 P9 M

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

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

    9 E" ?3 a+ x# m0 o+ ?9 s: f) T  P; rCell[BoxData[! O. ^- ?* T7 K& R& H; |1 q' f$ _/ x
    RowBox[{"{", & k; I1 x# z5 n7 ?
      RowBox[{, y% j2 V! ?, X; G- w! i
      "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
    . b. p7 u) o& V# u% F    "c8", ",", "c9"}], "}"}]], "Output",
    3 V; O; f, P) y& k5 M4 E4 i CellChangeTimes->{( _/ m0 W0 M3 H8 z2 m1 o- g
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
    ! O9 g: k7 y. r+ W0 T" G   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9, - P8 {# t# y0 W% r* {
       3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, % }+ Q2 j% D: X* I& [
       3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
    ' m* k7 H& ^& ~   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, 2 o1 K2 [. Y$ c! u; I+ X
       3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
    ' s8 ^" D  ]# i5 r   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
    + Q, f8 Z: H6 G2 d. L) u# Y/ g   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9,
    , b/ |' ?: i0 G% L6 c   3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
      P7 B2 J, P2 U$ b! o  N   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {/ A( K3 ^0 D1 ^. P. ?5 \# A
       3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9, , {6 Y; P% [! g5 J  K
       3.577961904604212*^9}, 3.578012158671875*^9}]
    ' I4 C' U/ L5 V}, Open  ]],/ @0 _1 l1 I; `4 }/ F) R
    / a# R- c$ ]0 I% j- b! f# |
    Cell[BoxData[
    9 a8 ?$ a, Z# m' V* z; q1 s RowBox[{"For", "[",
    % d6 Q) t4 u( f6 M  RowBox[{6 c- f- i$ S* ^4 K; C' J4 O, T
       RowBox[{"i", "=", "1"}], ",",
    / j9 d9 }. b  C. N' O+ y/ ]/ G   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    , W, C  D: i3 Q% E+ C" [, s. s   RowBox[{"i", "++"}], ",",
    - T' ?5 I" c6 `; |; O6 K" @/ H   RowBox[{
    ' b1 `8 z- X; i0 v, v2 m0 }6 N    RowBox[{"Ca", "[",
    ' O6 H/ r2 o  q" Y8 g4 f, Y" p8 ^, I6 D     RowBox[{"[", "i", "]"}], "]"}], "=", ! ~9 O7 C3 [/ d5 S+ i# R! R1 }3 H3 @
        RowBox[{"CM", "[", / V0 G* o6 L1 V( ^
         RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    6 S7 R4 ^# }! q% r) h CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9}, / d, @# u! b  i& T/ D: U' Y% R8 N
       3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
    2 p8 H& P( p$ t! K: u; \% q   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9, . _9 ^( ]6 x& a0 t
       3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
    1 s: g3 {4 M, q/ j, I5 y4 B   3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, 7 C4 j7 w' `1 o5 v4 h8 E
       3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, : T/ w$ c' `1 ]
       3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
    % }$ ]% J0 L3 ]2 A) m+ T   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9, * @# s. ^2 h" O' L2 O2 o- }! s* f
       3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9, % ?# M, i: b/ ^5 m; S/ b
       3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9}, 9 d+ l! V( ^/ M2 w4 G
       3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
    , g6 z3 r, x8 P   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9, , X5 s; n, Y2 s! v% x
       3.577961906897415*^9}, 3.578012176296875*^9}]," \( ?* d0 Z- m. ~  g+ C
    ( N+ ?& p+ l, [/ p
    Cell[CellGroupData[{. l' U5 R' a8 F1 J
    5 V1 [& a) W. s8 T
    Cell[BoxData[. q8 T1 q: n, m. l6 Q5 Q) |
    RowBox[{$ O* B/ O$ C# `/ i
      RowBox[{"(",
    ! {/ h' m* K* }7 T   RowBox[{"Xa", "-", "Ca"}], ")"}], ".", $ F: w8 b/ G9 V5 x  b7 i7 z' T
      RowBox[{"(", 6 ^$ b/ f# ~# N- C% [
       RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],6 {- w  l/ q# o: m
    % j$ g! ?6 y, P
    Cell[BoxData[
      q! e" q" ]* _  [- _# z3 p RowBox[{
    0 X3 k7 d( W0 T/ K  SuperscriptBox[
    6 f* |% _  {6 u/ }; V, I7 {) ]+ Q   RowBox[{"(",
    ( t$ V% ?/ C; Y" H    RowBox[{
    1 L# X  v, |& U2 _; {     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
    # m7 G1 j. C# P9 K# P% D% l1 v  SuperscriptBox[
    2 z" s. n, J4 ?1 u+ C, F   RowBox[{"(",
    0 @- S$ V/ G0 }    RowBox[{
    $ b) C3 a! f+ h9 y8 F     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+", / U0 S7 d* c: t6 m4 u" U$ F) N
      SuperscriptBox[0 W; A4 W/ j* N, X. x7 w1 g
       RowBox[{"(", 5 x' C- h# W; M& {6 h) [, j
        RowBox[{
    $ L" W, Z" X% r. V6 ]0 \     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", ' h& D( X5 R: P% }# V, f
      SuperscriptBox[
    + a) W( P  h# c- d& f! H   RowBox[{"(",
    # h& I6 r4 ~$ c/ b7 \    RowBox[{; m( j- r5 k# C% T! u( ^
         RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
    0 G# y0 G  v: b1 L4 O  SuperscriptBox[/ p! K- E) n! C. u0 p8 Q
       RowBox[{"(",
    9 R5 W5 F: t4 W, T: I    RowBox[{2 \! W$ B  |7 U' b7 z* O: R
         RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", $ U2 }8 I! [- ]/ l- E. @8 L
      SuperscriptBox[
    5 h  R, d# E9 \& D5 T% o   RowBox[{"(",
    6 t% ^+ e; `1 H; A, s) d  h    RowBox[{( {! X( _* `; j/ g2 M4 F0 b; S
         RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
    8 e/ _% ~: D8 o- o- t  SuperscriptBox[
    4 y7 v, e( A* _. O  J  j   RowBox[{"(",
    , L5 K$ w+ o  c4 D2 Z- K5 w    RowBox[{
    7 D+ V- C* u/ V( X     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", & f7 A4 h& c) K- x9 z. a. K
      SuperscriptBox[
    3 \( ]0 I5 ]' P% k$ p$ \   RowBox[{"(",
    ; a. I& {3 f) y9 O: C6 u    RowBox[{
    7 i! L: T; q# {+ d& j) p     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
    % M( E( c& o# ]4 ?  SuperscriptBox[( ~; k) y) N5 e. d( y+ z5 E& w7 f: a
       RowBox[{"(", % P% W" q8 Q/ z4 P/ n7 V: _
        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
    4 Q5 i/ h( y* D CellChangeTimes->{2 I* S4 w3 U+ W% r+ X
      3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, 2 _* B, L' C$ ^
       3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
      R0 \" c4 ~% y, C% Q5 M! [   3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,
      ~& E' D8 o& J  c+ U, I: K/ v   3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9, * u; L+ x* k" F0 x# S2 A
       3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
    / \- D" S" H$ B) T   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
    - t% z" u' r, g0 {" P   3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {1 B1 t; b& \" D0 r2 ]5 Z
       3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
    2 c. X: A3 E+ _, y" S6 d( o2 z8 O   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
    # ~( Z$ B  [3 U% G   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {$ {& c6 p. Z0 l3 s) }% p+ r- c" {
       3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
    6 I, u3 b* t8 |, j! \   3.5779618537169228`*^9}, {3.5779618846049767`*^9, " U$ X) h/ I" I3 z7 g9 t4 u  z2 t
       3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
    ) u/ @8 Y' C- f# C6 B& ~( V}, Open  ]],
      U( p- o( M/ y: d+ D: B  `9 j, P1 t  B. ^+ x. J2 w* ~' e
    Cell[CellGroupData[{
    1 ?* a& e% Q: |& n1 O. j- y9 B. d5 s4 D
    Cell[BoxData[
    4 y* A  |. x( `$ K! d9 c$ j% K3 D RowBox[{( E1 l7 {. }0 u% i/ h) D2 p" r
      RowBox[{"Ca", "[", , B% F4 g7 g: B3 y+ L8 L# \* p
       RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",
    % t! ?: }7 ^5 I CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9, 6 `% V0 W/ {  S' }7 R" U
      3.5779616465173616`*^9}],4 j( y- u, N6 c( B9 Q
    & [! b7 r# P  J: B) L. q4 R
    Cell[BoxData["0"], "Output",. T8 ~6 \4 {2 |% L$ K
    CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
    $ x* t1 _4 ~! i2 @* n  3.5779616484049644`*^9}]
    7 M3 E1 L" j; O" p. T# z}, Open  ]],' g# K- c5 x. q  \! _
    + C5 C4 \8 S3 L& l* }( d7 u9 t8 q+ R
    Cell[CellGroupData[{8 A/ @2 \' q/ l$ i

    1 L. {) T8 d5 t3 N) @* |Cell[BoxData[% ]- a* s+ [6 I( d1 C+ t) b
    RowBox[{7 |! B! w- N4 s& t
      RowBox[{"Ca", "[", . ?  c0 U; P3 d8 ?. e3 c8 V
       RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",% ^6 t4 ~5 k2 |& _- c8 B, A- @' J/ @
    CellChangeTimes->{3.577957376235614*^9}],% g2 t, O: N! z9 P# s$ U* ?( h& k9 ~

    4 B& Z' I% V3 \" kCell[BoxData["0"], "Output",( v7 h4 g' N  H8 n
    CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]1 w, v! D5 i( L7 N
    }, Open  ]],
    ( Y: O. j8 T  A3 N) y% V; Z% W/ n5 ]4 C6 |3 @: [
    Cell[CellGroupData[{( k# J' n2 r, f* Y/ s( {

    1 Z) H5 p1 b/ C9 @Cell[BoxData[
    $ l0 h0 U4 ?' P, `& ?& T% Z RowBox[{2 i2 ]- Q* ~* \3 @4 H( O" r1 m
      RowBox[{"Ca", "[",   u1 ]$ a1 H  Z( \0 X
       RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
    4 L( f7 w6 G! I0 v* ~ CellChangeTimes->{3.5779573112927003`*^9}],
    ( B0 N9 G1 J8 |5 p( L, A
    # ~/ O% Q4 L# Q7 ~% I9 JCell[BoxData["0"], "Output",& Q( M1 c* N) Q- T
    CellChangeTimes->{7 P( a* k% E  v; V  L8 q, {9 p$ v
      3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
    : H6 `! v; X: g9 o& c$ f+ |   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
    2 t9 ~3 f6 M+ w9 H   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
    4 l7 ~! s; m& T   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9, $ H- y; K0 r+ C: B3 w5 W8 g) c
       3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
    / u) ~2 r4 a- t0 U   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
    " l0 e* e* z5 G, q6 _5 p% P6 ?% z1 s  d6 Y}, Open  ]],
    * V" e& y# `" g8 q7 C. e, u1 ^: u" A- Q1 H$ `: `$ M
    Cell[CellGroupData[{9 e& F9 V( I* P0 ]! w) J

    6 N, L% i6 A8 B* R: PCell[BoxData[
    ; _) B! P' M' A' T RowBox[{4 y! ~; J0 F! y( n) z
      RowBox[{"Ca", "[",
    & K; D" J3 C' Y* B  L2 q* j  u   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",/ W: ]* g" f( l7 f* |
    CellChangeTimes->{3.577921461734375*^9}],' Q" ~% q$ s1 b  a" ?8 [
    2 k5 N! h7 m) L) Q5 b, Z
    Cell[BoxData["0"], "Output",
    / l6 d! r1 J+ v CellChangeTimes->{
    ; w  b7 E' v6 ]+ ]' f  X  3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, / m! o/ c0 p; i
       3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9}, 9 S. R5 ^2 j$ ^) n
       3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
    , D& n+ ~: v& f9 o" u   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, ) B& m5 ~  T! r2 w5 Q
       3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]" v4 z* t0 b( K8 O7 y
    }, Open  ]],% J- F- j7 h6 q2 Q% L
    7 z- O3 C5 ?7 o
    Cell[CellGroupData[{* P8 Q3 T9 R) I; d5 B: C5 ]) ]

    4 [- i8 H! o  S  l) M; p7 SCell[BoxData[2 d% ~  K. y3 N9 E/ t
    RowBox[{
    5 i4 i  n8 A: _5 O+ h6 S! R, v  RowBox[{"Ca", "[",
    - k1 v" J. w" d* b( Q" \" u1 [   RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",6 |# f( u3 V/ e# X" d
    CellChangeTimes->{3.577957303118286*^9}],
    . C! l6 b( `( X6 i
    " F( v  Y* @2 e& hCell[BoxData["0"], "Output",
    $ \+ {9 L, b, y& S$ v/ A CellChangeTimes->{$ a( V) N( V8 _6 J/ D% j
      3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
    / n, h# D3 b1 w4 T  c, {; ^   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
    5 s& @9 L  Z5 n+ I/ a   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
    7 S3 z9 i$ T6 u1 v8 R+ o- v   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
    2 Q9 Y; E: g0 d* h   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
    & v. h0 k, W. |* Y2 G& t- r   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {5 u# _- L, g4 T
       3.577961889378585*^9, 3.577961912965826*^9}}]
    3 ]2 x3 S- t3 z4 g* C}, Open  ]],
    : l% p: S; o: C4 D$ v* X
    " J# \" L: o( b9 S5 Y2 Y. YCell[CellGroupData[{8 O  T" G8 [0 g1 b
    8 \8 Y6 Z: c, N. }7 a
    Cell[BoxData[
    - [  M9 T! O; F7 }) o RowBox[{
    1 r" U9 s% \  ?% @3 S% r. d8 h  RowBox[{"Ca", "[",
    ) _; D7 [+ y6 K6 x: q   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
    & _3 ]# k, w0 S5 t6 X* r7 M CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {2 k7 G5 n' {  w( l0 l# w1 C- A
      3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9, 2 O0 z$ O0 N& G7 j& F- T
      3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {) l- `* n7 w2 m# D3 E
      3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
    4 F9 N* a; p, ?  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {) a* X/ m( w! L% |7 s
      3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
    / T9 w9 r: b1 i+ |, `8 A# e  3.577921435703125*^9}}],
    ; S6 \8 t- j# W( h& M8 K! z: \" e: P7 s
    Cell[BoxData["0"], "Output",4 u# _% Z7 T7 s; K( l* ]6 Z8 h
    CellChangeTimes->{
    7 p9 S1 n  B* O  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {
    8 N8 z7 D) r8 {# p6 `# B0 b   3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, 8 c7 {1 @- ?' S
       3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {, }2 P0 r  w: A5 k$ S1 A
       3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
    . Y& X/ m3 S' [" b3 ~1 `, y% m   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
    ' L$ Z! c. o$ |6 D; n( a   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9, 6 f. g& S: U8 [+ I4 e& x# J
       3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
    9 L; W0 U3 _0 q   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
    3 W# p; {, ?( D" c5 d1 k   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
    - G% w( n  X3 p9 H  P   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
      C# V+ O4 L* c   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
    / v+ C2 Q& W: ^4 J( _' \   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
    ' O7 b# x" p" i' x* o4 E. `/ q   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
    * G) P2 z$ z4 x: h}, Open  ]],% k* ~$ I8 V# ~& z2 Y

    2 Q2 G* b) m8 b( z* H. kCell[CellGroupData[{
    , Y" h$ K) V4 j0 V2 Q, D8 k- M0 I* |, x/ u
    Cell[BoxData[8 b: ?  {4 I3 L' Z- d% g
    RowBox[{"Delta1", "=", # ?  e% J; `# {6 y3 ?2 a5 V
      RowBox[{
    4 Z1 `& p& v  R6 H1 O) a2 m   SubsuperscriptBox["\[Integral]", " ^6 w, c  S4 x, v5 [5 ~
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], $ U& K; H3 Q, T" Y* r0 t
       RowBox[{
    - d* Q* H: j4 m5 J8 |# o4 ?6 U    SubsuperscriptBox["\[Integral]", 8 g) ?% W$ J, B! A
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    3 U- \7 [  M) A# J+ Y; C' x1 j    RowBox[{
    ) B& }! `! V& r4 y, Q% \- j2 b' r9 V     SubsuperscriptBox["\[Integral]", 1 c: h/ o! S" a4 o
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], # A9 D( d7 v( F
         RowBox[{  c0 P& _/ d, g# H# E
          SubsuperscriptBox["\[Integral]",
    ) h4 k8 `, ]) B' f* y/ L& U       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    / `1 S5 E6 e2 V, i      RowBox[{
    5 @. O+ i! R9 C: U$ h7 F       SubsuperscriptBox["\[Integral]",
    # Y9 P5 W% u! N6 _        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], . v  H/ g6 k* b1 A& }7 U
           RowBox[{
    " y' [' E- A/ E) S, x" v        SubsuperscriptBox["\[Integral]", 8 }( r; f5 A8 g8 y$ d& N4 ^1 k/ k
             RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ' d5 E, A3 v: J5 J$ ]/ M( X) t
            RowBox[{
    " v  x. b# `! ?. R         SubsuperscriptBox["\[Integral]",
    2 o( |. g* `$ A9 v3 C- ~          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], " d5 I$ y" x4 B5 R
             RowBox[{
    . n5 G8 {4 e( N% r          SubsuperscriptBox["\[Integral]",
    * T+ _3 X0 C6 R, q           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], , L8 i! E# v' P* ]
              RowBox[{% c; s* a3 O" Q" l
               SubsuperscriptBox["\[Integral]", 9 h+ E& g" Y( v7 N. m0 @+ s) p
                RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    5 n: \* p; h) [+ ]& O/ d           RowBox[{* e1 p9 ?8 ^% |# d# x
                RowBox[{"Exp", "[", ) j  Y3 Y- k/ f$ J; B* u9 {
                 RowBox[{1 A6 ]6 E; z* R
                  RowBox[{
    # a8 L* S% d; }( f! s$ V, ]               RowBox[{"-", 4 n  V( a  _1 z$ u; a7 m7 W
                    RowBox[{( h7 t0 T! n! [9 c, z
                     RowBox[{"(",
    7 Q5 s) @6 A/ ~" E" h# O/ X                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".", & z- s6 b. e  b' i" Y- W
                     RowBox[{"(", 5 ~6 j' ]6 i5 h" r
                      RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", 4 I+ V6 c) ?/ O
                  "Delta"}], "]"}],
    ) Z; Z* g- i" T' x# _            RowBox[{"\[DifferentialD]", "x1"}],
    7 U: o0 h# x1 n. Y5 Q            RowBox[{"\[DifferentialD]", "x2"}], # n+ P/ Y' n$ Q) `2 ?/ r+ x
                RowBox[{"\[DifferentialD]", "x3"}], , X. I- h6 ?7 u& ~0 l! _
                RowBox[{"\[DifferentialD]", "x4"}],
    " H# T( u4 _& D" W0 ^4 V+ q6 e            RowBox[{"\[DifferentialD]", "x5"}], ( v" J% R8 U  t* I7 m1 C
                RowBox[{"\[DifferentialD]", "x6"}],
    " I5 L1 @, r5 Q' y: h            RowBox[{"\[DifferentialD]", "x7"}], / [# O; R, M) Y6 @4 ^2 U8 u" c
                RowBox[{"\[DifferentialD]", "x8"}],
    ' K5 _( s* k6 Q9 E8 m            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
    # t9 ^$ E7 a, F0 C( P& H  @* w% f CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
    3 C, t8 `! I( Z0 w- P% P; I   3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, ( q* [0 v' y  ?5 ]% k6 Y
       3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {- K; i+ H& F; Z" J; P' }
       3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
    ) j9 b# r9 y0 ?) i+ T/ X   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {' u) B) y8 ?, F7 }; F7 s2 K  i1 i7 e
       3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, . K9 _6 C$ Z. l2 }5 C5 U8 _
       3.577918964453125*^9}}],. B& }/ G7 X! {/ c9 y% u
    & n8 G8 x1 @2 N0 {' L) J
    Cell[BoxData[
    5 i5 k$ P1 O2 Q; v) u RowBox[{"97.40909103400237`", " ",
    5 f3 ~+ ~3 F) w% V  SuperscriptBox["Delta", "8"], " ",
    2 p! m+ @4 u, h  RowBox[{"If", "[",
    3 [. y2 ?& F! L  \  F7 ?4 v5 h   RowBox[{
    ; B/ Q) N& w. `4 b  {; E    RowBox[{1 F0 t9 Z% S+ g. ?
         RowBox[{"Re", "[",
    , \4 P) r8 M# d      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
    2 ^! }/ f: U, v: T5 X    FractionBox[
    , i9 m% ~. K+ }     RowBox[{"1.7724538509055159`", " ",
    1 y) N3 s; m* v. o      SuperscriptBox["\[ExponentialE]",
    ) `+ }4 G' X& i       FractionBox["1.1102230246251565`*^-16",
    / T$ Q) B8 g7 N# M$ |" ?        SuperscriptBox["Delta", "2"]]]}], 5 Q& G+ h6 t/ O# u+ [, z
         SqrtBox[4 N% Y3 q# g# ]
          FractionBox["1", ; H8 r9 t1 h8 O/ G
           SuperscriptBox["Delta", "2"]]]], ",", ; Q6 g6 z- e) u% l* b9 B/ ^
        RowBox[{"Integrate", "[",
      G6 @+ ~& m/ Z3 H     RowBox[{4 Y5 u& R& j2 ^
          SuperscriptBox["\[ExponentialE]",
    + G/ @' L! K* c& p- l% s       FractionBox[
    9 ^9 |- S8 s; q; [- _        RowBox[{"1.1102230246251565`*^-16", "-",
    $ z; v; h& I9 G, d. T         RowBox[{"1.`", " ",
    : l  k  S% P6 m/ h! ~/ s          SuperscriptBox["x9", "2"]}]}], 6 _3 R% [3 Z  |' P# P. A
            SuperscriptBox["Delta", "2"]]], ",", + G8 O" @2 j6 S% n; o8 o  q
          RowBox[{"{", . ~( ^8 N9 N/ V  ]/ e# z6 n
           RowBox[{"x9", ",", 1 v9 k! c" n* k! `5 `
            RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
    7 ^9 _3 Z1 y" x) C      RowBox[{"Assumptions", "\[Rule]",
    - R2 d4 m$ T$ U1 @  q; v       RowBox[{. u0 d0 F0 t) n) x! Z
            RowBox[{"Re", "[", 4 i2 D  H+ a* t- \; k" Q6 d
             SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}], * ~  B& h! k$ s1 x: g
         "]"}]}], "]"}]}]], "Output",% b; e4 d' C, B# W; j
    CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
    1 k6 s3 U2 A9 M  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
    . O/ u: C& l6 X. `3 R2 o  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9, ( H8 W; S+ p' J1 L( t
      3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9, - D: n1 F. Z; a# \
      3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
    5 j/ X" L; x' W1 O: w# Y  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
    " o- m" e6 {" w+ p5 o) l  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
    ! s; ?8 T  ]/ V+ P/ X}, Open  ]]," P/ y. u. v2 v; [# A
    7 H  s" v, I4 X( N
    Cell[CellGroupData[{% y  |% g2 e: M0 _- ?' K

    1 ]9 d  @* Z: r8 g" J4 [Cell[BoxData[
    - {2 h. h, m* c2 F  N) V RowBox[{"Delta1", "=",
    ' W6 t& K* P9 ?2 O, p) g  StyleBox[9 L( p  p/ G5 q2 u7 g& T, @& _' \0 ]2 r
       RowBox[{"97.40909103400237`", " ",
    8 j9 h: {8 g/ s; C    SuperscriptBox["Delta", "8"], "  ", 0 k. x2 i! }( v- d" I
        FractionBox[; X4 K, Y4 F) t, e7 ?, `* @+ K- e
         RowBox[{"1.7724538509055159`", " ", $ L5 Z+ Y8 I8 ~9 U& X+ \
          SuperscriptBox["\[ExponentialE]",
    ; v" m" x9 V5 |$ `" s       FractionBox["1.1102230246251565`*^-16",
    ( n6 `# H" B  W0 k) g! x        SuperscriptBox["Delta", "2"]]]}],
    3 P6 f. y: _- Z3 Y, Y$ q- Z. `% p     SqrtBox[
    $ |; q0 M- {5 r: D( j# P      FractionBox["1",
    8 b# y3 `3 a) W8 O. \& g       SuperscriptBox["Delta", "2"]]]]}],3 w  Z4 c3 _! s" J2 a
       FontWeight->"Plain"]}]], "Input",) s, @% p- ?! f& H
    CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
    2 I( V( @8 e  \+ e! e   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9, " |* V8 d1 m+ n( X* }
       3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
    + h3 s1 {# G; E   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
    5 U) C7 r/ s( T$ c   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9}, 5 C! L* r/ N& l% N  I% l+ U
       3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
    - T; z6 x) x5 a$ i" R3 b4 j- L2 d: u; r% v7 S
    Cell[BoxData[
    * k7 [# U5 L2 A4 H% g, ^5 T FractionBox[7 Y" W* I( V8 \6 {( o
      RowBox[{"172.65311851642346`", " ", 0 j  \2 x' s) ?( s
       SuperscriptBox["Delta", "8"], " ", 9 x' F5 P, A* ]* ]% X& P
       SuperscriptBox["\[ExponentialE]",
    " @9 g( Z/ y; T6 `1 f$ U6 c" S    FractionBox["1.1102230246251565`*^-16",
    7 g& V/ n5 ]$ }     SuperscriptBox["Delta", "2"]]]}],
    - B& O2 G4 l# q0 P  SqrtBox[
    ; \* z& N4 |% u8 I: s! J9 O  O/ U% F   FractionBox["1", 2 Q6 t1 n. ~) Y/ [5 e( N5 U" ]
        SuperscriptBox["Delta", "2"]]]]], "Output",' W9 X( x$ Y6 k( H! N
    CellChangeTimes->{1 H3 X$ R: R5 B! T$ U% ~# J
      3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, ( k9 K% `3 Z5 _, _) k) F
       3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9, 9 M& }. }' [; k7 m8 F8 |
       3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9, * Q* Y) ~4 a, F, t2 {
       3.578012166234375*^9}]
    3 f! s: i7 V2 ^}, Open  ]],
    7 c2 b  b# x2 q) N/ V( O* H1 ]) Y! A9 F# {
    Cell[CellGroupData[{3 q2 E6 d0 U1 U6 ?7 C

    9 F* ]) n& I6 D; w: o; `Cell[BoxData[* f, d3 d2 J$ @3 W
    RowBox[{"DeltaX", "=",
    ; h0 P0 L. }+ v6 x2 P  RowBox[{"FindRoot", "[",
    % T) D$ ^$ V8 |, u1 B4 b   RowBox[{4 m4 [+ ~; Y# V/ ?2 t7 L. g% c
        RowBox[{"Delta1", "\[Equal]", "1"}], ",", 3 {, t! @0 X: i+ e8 ?: U# f
        RowBox[{"{", , D: A  n$ s2 K; S  J# ~. Y9 y3 n
         RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",4 {7 l) ]- Y, q; q
    CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {& q! a$ U0 H. S! `' _" t8 U# ]$ l, k
       3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, 0 C! Q/ Z. u1 b! y
       3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
    ; x. f1 f9 z( J4 y* M; @   3.57791921584375*^9}}],/ p6 n/ p/ C- Y4 j, J! O7 b6 _
    - o4 D% Z+ E6 z
    Cell[BoxData[9 M( ]1 R' @1 m. @
    RowBox[{"{",
    * s% G, ]. z  d- ^  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",. ?* s; t" t, {7 ?$ B# K6 {
    CellChangeTimes->{
    # c. P# t( ^1 @  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    9 t" c. y2 r5 X   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
      m; u  [% h% @( U9 c2 @   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
    4 S: Z3 K5 i: D, I* O% \   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9, " s3 r4 N( d% `& V1 D
       3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
    * K9 z( R# l4 x! z7 s. O   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
    ' k6 v: e% Q, a! l   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9, $ a6 z) O. V* a7 g
       3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
    & \& A% u5 @% r' d8 D   3.57796070150625*^9, 3.578012167703125*^9}]" P, e' U. b( t8 o
    }, Open  ]],
    ' p% K8 u0 j) ~) t4 e7 F# Y+ J0 p9 I0 d
    * S; Z5 M% E' \. ^& MCell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
    & V; N2 H' E$ V: |\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
    7 H+ ~0 q5 Z2 A4 l4 B  o, a1 C( h CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
    ( a1 Y( U' I: [  3.577960705312657*^9, 3.577960707621461*^9}}],
    ( z+ ]! M1 H6 S0 s! |2 D6 a: `* }% X4 T1 R* I4 I* h7 ~% r5 p; a2 ?
    Cell[CellGroupData[{
    * P5 H! }4 \  O
    ; {# z2 j: g9 K1 f# ?( pCell[BoxData[1 f' T( t3 q) x  \- E! J" t" C
    RowBox[{"C1", "=", "Ca"}]], "Input",
    + \: n4 h( x7 @* B0 {# ? CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],) {# w* {! j: Y! e

    4 C# Q( o3 x6 oCell[BoxData[
    9 x, X0 W) w( z& |7 Z, c, O* N# m RowBox[{"{",
    ; p7 A6 S! L6 E8 A& s  RowBox[{: A0 f8 l: q2 I8 C% c, X
      "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
    ! ]5 ?7 K& t$ ^, ?) a- t& f$ B& {! u   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", 9 A. I) D6 |( F0 T5 K
       "0.`"}], "}"}]], "Output",& v& [, ]2 T6 k8 O! r
    CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, + E" z0 r8 Y8 I  ?1 g
      3.577960710273465*^9, 3.5780121855*^9}]
    $ S- C1 G& Y' H2 f- k! X4 |}, Open  ]],! X! H/ L/ D& n& l  Y

    ' x  t0 |' g5 l6 X+ \9 t  [' ^Cell[CellGroupData[{( Z, `! W; i! C. i1 k0 }
    , h6 y. Y  z  W5 _  n
    Cell[BoxData[, R, f* o& p4 B, p$ _/ e# p
    RowBox[{"u1", "=", : x% l) O* y/ A  H0 L. |
      RowBox[{6 F; A8 z7 h, s8 f
       RowBox[{"Exp", "[",
    ( [  V* e4 U: `+ Q. H* B    RowBox[{
    & ?- b) X' r/ Z: A0 z     RowBox[{
    $ f5 m1 G2 {! ~+ L1 p- D      RowBox[{"-", + z( A7 A$ [; _2 G: w8 G/ u
           RowBox[{
    " |  z- ]/ b9 Y- z. {! j        RowBox[{"(", & v) f6 P* S3 @/ O
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 6 M. S8 w* S" l# E5 l) l
            RowBox[{"(", ' }5 D: s" o/ \
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    , `! Y* Z6 Z% _; ?9 N4 {8 d+ H5 r& ^     "]"}], "/.", "DeltaX"}]}]], "Input",
    ( r3 z9 z6 W5 _. K: Y CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
    # B# f5 C& R/ X2 e   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
      d0 N9 h1 q( s) a- L5 f   3.577919193484375*^9, 3.5779192326875*^9}}],
    5 e( M3 x7 Q! K9 a+ K+ d* C$ g2 D  B
    Cell[BoxData[
    + w9 M5 \4 Y. t5 m" Y/ P SuperscriptBox["\[ExponentialE]",
    % Q6 x( B4 ]. D7 T& C  RowBox[{"3.141592653589793`", " ", ! b  ^! d, D* Q) ]- x5 O5 ]
       RowBox[{"(", / W5 Q& h7 p4 A. h; O+ \
        RowBox[{
    ( s; L$ n1 u7 B: C6 O" D     RowBox[{"-",
    - t# M# X, W* a# E% _      SuperscriptBox[
    * y3 E  I* d2 K0 E- _. V       RowBox[{"(",
    - S2 [8 C/ d" U: S        RowBox[{
    2 \, G+ ^1 r4 B+ @+ Y         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
      c6 D/ z$ B! F1 `; q  O- @% {     SuperscriptBox[6 B$ e5 V2 L# {9 v( c' J1 x
          RowBox[{"(",
    & D% C+ ?' y) Y- U) U) w* ]+ D1 n       RowBox[{
    ) j( j( p+ U# B# r. D( ^        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
    4 I" J0 n  K4 C( W% ^1 n$ L     SuperscriptBox[
    " y0 G: }% \2 K: Q      RowBox[{"(", % J: b- s" t: g6 K
           RowBox[{/ T; V% r: O0 `. V* ]4 ^5 }# T
            RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
    # F$ _9 s4 j! u     SuperscriptBox[
    ( z3 x4 P9 m/ i' N+ [# p      RowBox[{"(", 1 w+ l# e- r: j" V
           RowBox[{: W( |7 H: Y0 L0 ]" g% u; p
            RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", 0 p0 t! O8 K! X  S  I% }
         SuperscriptBox[
    1 m( _, y! R5 ~$ w: E% A      RowBox[{"(", . s/ Y( j7 f3 _9 m! k: o+ w$ `
           RowBox[{# a! \# N2 I8 Z; r$ v. w
            RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
    ! B: I) g( D9 e0 _1 R     SuperscriptBox[1 w/ o' j2 b8 n+ t$ h+ E+ V/ v
          RowBox[{"(",
    0 z9 Q& G- R/ Z7 b6 c6 ]" [       RowBox[{
    - i, J8 A% p! e% Y8 Z, h. j        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
    : V7 u, l( |7 y     SuperscriptBox[* Q$ w4 Q; J/ S) o4 ^. R- ?
          RowBox[{"(", ! h; @, [- U% ]% w  b4 X; w* m" h
           RowBox[{! a9 l" q5 w6 I' {2 F% z# U
            RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", ( }3 Z# D2 I' G+ D# o3 \5 P
         SuperscriptBox[
    9 `" p% ~8 q9 R! i3 \/ }      RowBox[{"(",
    ( @: I0 r. n1 ^# E4 {& h! }       RowBox[{
    ; ^  l2 S6 U4 m        RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    7 E8 c, x- l/ o$ c     SuperscriptBox[
    " q& ?2 G! f$ K5 M4 V0 w      RowBox[{"(",
    . s& n, Q3 B) D, w; b       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 9 N* E4 N  e8 s0 z* f4 r
        ")"}]}]]], "Output",; `4 {/ h$ O! ~8 l* z' L
    CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9, & \6 e# e# e+ A4 f! B& y
      3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
    % @# ^1 G1 ?0 `  C) b) t2 f' w3 ~  3.578012187078125*^9}]
    - j, K# I+ b3 |1 d& r5 p}, Open  ]],
      t+ f5 o- j) z" \$ R
    2 i8 x+ k8 l; y% {Cell[CellGroupData[{
    : H+ F5 |9 {: l1 b0 |' e; a( X2 e6 {7 ?$ H6 F
    Cell[BoxData[2 [6 a+ n8 t3 g1 x. O3 a7 y3 T
    RowBox[{"C2", "=", "Ca"}]], "Input",4 R, B+ [8 G* P
    CellChangeTimes->{3.57792047321875*^9}],( e5 Z8 j" \7 _' |8 C
    - J) E) s+ s$ P3 D  X$ t3 _4 p( k
    Cell[BoxData[4 O. r/ [. p  `1 \  O* p: j7 W
    RowBox[{"{", 4 L# A, U- ?5 [0 b8 ?" L7 |4 {7 N6 p* ]
      RowBox[{  J$ t/ \9 x# L# e* ?9 r/ ?+ U- [
      "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
    1 N7 N" ]: n8 W   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
    / N1 Y6 J; z! |6 @: b( ?  "}"}]], "Output",  ]2 f" ?) L- e" ]. Z7 T& F
    CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
    # Z* K! v7 c6 h  3.5779607401163173`*^9, 3.578012204671875*^9}]6 j9 X% z1 s) ]* Z# ^( p4 P4 }$ y
    }, Open  ]],
    2 B8 K0 I) ^% }  i4 O5 c1 f0 Y
    ) ~7 \( S; k, H2 d0 ACell[CellGroupData[{
    ( c8 \& T9 O$ ^: C2 m
    . b; g/ z) Y, o, D2 oCell[BoxData[( g$ E( R* b5 s* X
    RowBox[{"u2", "=",
    7 C7 U! t' T1 O  RowBox[{0 }0 p* E' a2 ~! v9 _* T0 o" i1 |
       RowBox[{"Exp", "[",
    * y, T/ I" b& l8 Y    RowBox[{
    9 d9 Q. ~/ M7 b) c$ I     RowBox[{  K9 ?# m& Q3 ]6 M( c! g, d; Z
          RowBox[{"-", 1 @/ @& _* I# ]& l% h: n3 M
           RowBox[{2 b1 c) y& d' B: d" e, N
            RowBox[{"(", " j" Q* C$ e$ K0 ?8 K% _, I
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    5 m& ]( A5 n6 }7 C  i        RowBox[{"(",
    . s6 R/ j; [) e' p+ S7 f. m& L         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],' n! h. l& H7 k& a
         "]"}], "/.", "DeltaX"}]}]], "Input",) a8 W! `+ s: M5 u, @( P) l
    CellChangeTimes->{3.577920484109375*^9}],& f9 v3 g) s0 J; J: W. j7 u4 `- x

    : B$ X7 v; z! Z: j: E8 }. ?2 @0 x( }Cell[BoxData[% O# k) a; P. H( a' |/ x
    SuperscriptBox["\[ExponentialE]",
    ) \. \0 |) U2 {4 J  RowBox[{"3.141592653589793`", " ", ) X/ s$ Q7 U$ v, B6 _, T
       RowBox[{"(", & w2 S2 J; N9 S4 i0 x' {
        RowBox[{5 Z+ I3 G; e1 [0 I/ [' J
         RowBox[{"-", 3 ~/ m# w/ U* a
          SuperscriptBox[
    ! x, L/ @! ]; g$ X4 Z       RowBox[{"(", ' ~+ A$ D. q9 p( q2 c
            RowBox[{$ _3 u, u3 r! h8 [
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 M) p% Y9 B0 R# L" D1 ]; i+ D$ m
         SuperscriptBox[- I3 J* L; O% `" c$ W, @) j
          RowBox[{"(", 9 k: t7 G. H+ a/ z
           RowBox[{6 w- N, w: X) g2 Q/ g
            RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", 1 H3 f2 [/ |$ p4 P( G. F) X7 D0 f
         SuperscriptBox[! h$ z* m; o( A" @# u  k, T5 _9 W
          RowBox[{"(", 9 f' Y& H; `) `; t. N; ?
           RowBox[{
    ) f# w0 I' ~/ [7 u        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", * r9 U- x7 b- I
         SuperscriptBox[
    - G* M# @1 D  {8 M; `2 g+ V      RowBox[{"(",
    - Z3 j; D+ {& T$ I& H( O. j2 e3 q       RowBox[{
    $ {, N* s8 H% v        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
    * r. d8 \" B3 n" K+ E" f4 j% m( w     SuperscriptBox[: d. g, ~' i; z! E; s# b1 m
          RowBox[{"(", 9 l/ F" E4 v* B% \
           RowBox[{
    2 `/ Y2 u  l) A: X        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    6 ^. x# j" Z5 I  D# Z( B     SuperscriptBox[- h% S3 V' u! h2 c
          RowBox[{"(",
    5 I- J  k) M7 c) L/ Q       RowBox[{6 L1 `; G) d6 n, f
            RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
    ; `1 T# h$ f- I; [" _     SuperscriptBox[
    ' @: m6 ]# r2 G. D) c$ C# {      RowBox[{"(",
    * [) D. w* p8 A0 q1 V: E       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", & j9 R" ^# y) V: ]% E+ j, V
         SuperscriptBox[* T# }$ d3 v5 n: o9 z) Q: g$ s0 R4 L, `
          RowBox[{"(",
    : }0 T- U6 m& L9 A6 s       RowBox[{( u- _- Z9 c# o# L5 y
            RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", $ I! \! z' r9 \1 Y# z( L" c( M
         SuperscriptBox[
    , Z  H  F4 ]" S6 \3 F0 F+ |3 S+ X      RowBox[{"(", ; y6 H7 y7 ?- e4 c1 W2 t* }
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    : r/ l9 y* f! Y# e, E+ O    ")"}]}]]], "Output",5 L- x2 `, W% I3 e1 S
    CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9, ' a. ^' `2 S- \6 o2 J$ h; R
      3.5779607413955193`*^9, 3.578012205484375*^9}]. {9 G5 ~8 l& T) [/ C
    }, Open  ]],
    . p5 w- Q' x% A0 Z1 [7 W/ Z' h8 W5 a( v% I9 ]
    Cell[CellGroupData[{& ~$ f0 b& x! C$ M, t4 p4 J$ ]
    & k4 X0 f. A" G) g- b  d
    Cell[BoxData[, ?8 ^1 {; i% C" {3 `0 F9 K
    RowBox[{"C3", "=", "Ca"}]], "Input",
    $ E5 p# Q* d' Y0 e8 ~; U CellChangeTimes->{3.57792064125*^9}],
    / Q" e  l+ _  ~! y' P. ?. E. Y" U9 |. ~1 }& \
    Cell[BoxData[) s3 I+ ^" ~/ L2 G! K
    RowBox[{"{",
    : E4 x; a" \2 u) \) \  RowBox[{
    ) m1 g7 E4 i+ w0 x  [, ?  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",", + N" V1 H: g- k. [) A1 b
       "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
    7 _& I5 v: ?/ f* h. W' u7 S$ j! q  "}"}]], "Output",
    2 k& G" c% s6 g- g1 |6 @ CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
    ( B$ F6 ^, Y2 ^1 Q$ u  3.5779607642027593`*^9, 3.5780122103125*^9}]' U8 r# O" _# \' c/ y6 X) v+ W' _' I. H
    }, Open  ]],
    / G' P7 C2 l6 ~; f- P8 O8 A4 e& M# `6 A4 |) s* k. f
    Cell[CellGroupData[{8 M4 F3 y* d1 L, j; N1 z- r- }
    - Q  ~: R# R, `& o6 X/ T2 {
    Cell[BoxData[0 N! e+ k; N  {( {
    RowBox[{"u3", "=", 8 W, \! I+ x% z8 a$ V4 l" }% U: }
      RowBox[{) O- U3 A9 ~' A1 ]
       RowBox[{"Exp", "[", , ?0 e' F2 \: @* ?5 B0 P
        RowBox[{( A4 U' S. w) ^) o8 x" m" v" a
         RowBox[{
    - L  F, I* I" z) H  v1 t7 s      RowBox[{"-",
    ! W8 J; A6 L+ x) T/ ^4 H" i       RowBox[{+ p& U  }$ y( k/ H5 J" E5 H) ^5 v
            RowBox[{"(", $ n9 S) g: M% h
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    5 g8 [, F% l/ Y        RowBox[{"(",
    8 u8 I0 n7 x. O0 X3 R  B         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],- ?9 P! _7 n9 ^* ^
         "]"}], "/.", "DeltaX"}]}]], "Input",
    ' K% z$ c. |9 z8 Q" i CellChangeTimes->{3.57792064921875*^9}],
    , H3 I( S- U2 e0 Y3 y. Z# e' |2 L
    Cell[BoxData[
    . c; a* F- k% R6 j3 z& \, C SuperscriptBox["\[ExponentialE]",
    7 F+ n9 h8 r( z7 [1 g% C  RowBox[{"3.141592653589793`", " ", + ~6 O1 V; w0 K! W
       RowBox[{"(", 3 h+ @7 Q( |! |( o' o- z
        RowBox[{
    ( M; U3 D  x0 x; S+ f4 W     RowBox[{"-", , E: o7 y) u- x
          SuperscriptBox[
    . h9 O, K: G# c: d3 M       RowBox[{"(",
    4 }! C, Y6 K$ b        RowBox[{
    - o; j/ ~1 [( Z) U, O. o$ _         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
    % k" z/ `+ \6 i/ Y     SuperscriptBox[
    $ F( g1 Q; Z. ?. c      RowBox[{"(", & p. j' _; Z( a- M
           RowBox[{. f, z/ N2 H, Q
            RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
    * ^4 R, Y4 h8 G; j, Q+ G     SuperscriptBox[
    : E$ d% k& Z- {% x  @      RowBox[{"(",
    , V" [* R7 _7 J       RowBox[{+ K$ Q( s/ m0 M! u  C" |
            RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    4 w9 @1 y4 U, H5 a     SuperscriptBox[9 y: q* V, @# }, O! {- u
          RowBox[{"(",
    " [2 f8 Q5 r& B* x- O1 c       RowBox[{$ k: c' \0 v' n0 X% n/ w
            RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", ) V* X2 ]- m  ^' d
         SuperscriptBox[
    ! F* L" e- Z! O+ P: c! ~      RowBox[{"(",
    : \" k2 [2 N' h% N6 g5 I       RowBox[{
    2 J, e  U' k4 B$ C        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
    $ p& g+ R1 E7 {, p8 y' \     SuperscriptBox[) l, Z$ t- `, ?& ^" o5 F
          RowBox[{"(",
    7 p% L( V+ r* G, L. R3 \8 Z       RowBox[{
    $ z. M  n2 t! X0 _2 f/ i        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
    & q0 v! V4 }" }; d3 k     SuperscriptBox[
    3 _3 _  w7 E. S. P* r( L( k- _! ^      RowBox[{"(",
    ( J% b; N0 n- l4 F% A       RowBox[{
    % {7 A& G  n' o) n( X) M        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", & x6 Y( n& Y; u" F4 [/ s/ K
         SuperscriptBox[" t  n3 s  s% r( k- f! n  Y2 c$ R
          RowBox[{"(",
    " X6 ~3 n+ j- }' \- g- g% W1 i       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 4 T: k$ z% a2 Q4 S5 R$ I1 L, `
         SuperscriptBox[
    $ }6 q& w2 l1 Y5 K- ?, a      RowBox[{"(",
    3 `2 F. U$ r! e" C$ k% [& ?       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 9 T+ B! B9 R& F& ]# I& ~; r
        ")"}]}]]], "Output",
    0 A+ d! d2 T. ]0 a& f5 w( x CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
    : y& m5 O/ w( m% `# t0 U  3.5779607654819613`*^9, 3.578012211515625*^9}]9 ]3 U% [+ P+ i7 j5 C7 F; s
    }, Open  ]],2 x% c% y/ P) }; S, b
    * I& V3 [# y4 N6 i* |) F
    Cell[CellGroupData[{
    7 N+ D0 J5 }5 C0 {: i
    4 @7 d% ?; [/ O# C: MCell[BoxData[* i: A, e1 W- D, t' @' \# G
    RowBox[{"C4", "=", "Ca"}]], "Input",
    0 O% x* R( A1 c, T; | CellChangeTimes->{3.5779207559375*^9}],- N* @3 H6 d' P2 G$ \) \; g

    7 m$ s8 ], Q& B% C2 YCell[BoxData[
    0 m0 K/ U& C7 S0 {" L0 f RowBox[{"{",
    ( z) R* X; {$ r3 P& j+ X  Q! Q  RowBox[{
    * }2 A; C9 M7 s, o  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", ' Q2 q. q6 o5 a2 i% V( y
       "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], - {$ V6 Y/ k/ {7 a1 y3 T" n
      "}"}]], "Output",  ^/ Q" a& h# N" Z' c/ |
    CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9, ! r  f" B" E/ y
      3.5779607861363974`*^9, 3.578012216171875*^9}]* |' g8 r% F; B" M. G
    }, Open  ]],6 q( S; ~* d8 a, L6 O' a' {: O

    * |$ ?" \) w! A9 M7 YCell[CellGroupData[{! v% r( @. N. v- }, t- X

    & j) n) W' z8 y+ t* u7 mCell[BoxData[* d1 A# ?& D" }* s
    RowBox[{"u4", "=", * F2 O: g( @  ]7 S3 x
      RowBox[{  L+ S5 ~3 u" m) J9 U
       RowBox[{"Exp", "[", ( F  h: Z, R1 t7 H" C+ Z
        RowBox[{* W, F; J- d4 [5 P6 @" F5 Y
         RowBox[{
    & x* X% d8 s8 v7 A3 i      RowBox[{"-",
    8 O6 B0 O9 K* k$ [- T       RowBox[{, D% W( _1 U8 Q, P2 ?
            RowBox[{"(",
    6 Y/ G1 {' W9 A: y         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    3 a1 x7 @8 N$ j# b$ {* C) [$ B        RowBox[{"(", % W; k5 ?" B) b- F& p' ~
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],: Q- w, v& t" ]0 w- C4 u' W1 |' ~
         "]"}], "/.", "DeltaX"}]}]], "Input",& N# Z3 r! B9 U
    CellChangeTimes->{3.57792076325*^9}],
    ( e' x$ `, J/ D  }0 ]8 ~9 `$ i+ j, F+ v
    Cell[BoxData[
    ; V8 |4 X6 F4 ]. o8 y SuperscriptBox["\[ExponentialE]",
    * d# R. `8 `1 K5 q2 c  RowBox[{"3.141592653589793`", " ",
    3 ]8 S  C6 B6 p   RowBox[{"(",
    ; K3 g+ \( h. e) I    RowBox[{
    2 r4 s! Z7 X9 ~9 H! F% X- B6 }! [1 Y( `     RowBox[{"-", $ I( k: U4 V5 t+ Q3 `
          SuperscriptBox[5 p% [2 K1 M. B2 _2 B5 q
           RowBox[{"(",
    5 [) k- A6 U: s$ I4 T        RowBox[{
    # F0 X+ X% t* E9 r         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", " ]/ W( X7 U$ U# d9 L
         SuperscriptBox[7 t- ^/ I7 C1 O+ e
          RowBox[{"(", ( Q9 L( l4 o9 R; f0 F
           RowBox[{+ z% V- E: \3 r1 M) X4 p7 n9 c
            RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", $ Q7 N& g( f! `4 W, H, ?  r) B, d6 d
         SuperscriptBox[+ [8 v3 C# ]2 P6 j3 i  M6 M
          RowBox[{"(", 1 c( S8 F' z: ?7 u6 Z% ~, r
           RowBox[{- R! r4 |4 b( E# `! Y
            RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    # \2 k5 g+ o0 @7 @. d2 G     SuperscriptBox[8 l  W2 [/ J1 Q/ e0 j4 L5 G( e* E
          RowBox[{"(", + Q: K" F! I3 c  {; P3 _
           RowBox[{
    ! G* B  B3 P5 a% X7 I        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", , k7 J0 K9 A2 X2 D$ @. u
         SuperscriptBox[( [- A. E2 ~. u0 S* N
          RowBox[{"(",
    8 H8 f% E, P* l       RowBox[{
    2 O5 `* I. p- e        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", * h8 D. c, ~- Y! ]! W
         SuperscriptBox[" s* v' h5 T- H6 S. E; d: u# \
          RowBox[{"(", 3 Y: U2 \4 `, [0 e7 R% ]0 l
           RowBox[{
    - ^( O, c' R5 ^( ?! |$ |# f, y        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 1 d! K4 ~+ v9 i
         SuperscriptBox[
    8 C# n& Y6 i1 T& T( `5 L. m% Q      RowBox[{"(",
    + r$ ?5 A# H7 I8 D% x4 [" ~       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    * U: H3 Z( @0 E  _     SuperscriptBox[6 G3 \( t- @0 u( s+ a) M
          RowBox[{"(", , U$ b. v. X8 E  S' G$ p
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", # R# q5 `  `$ b1 Q+ G+ K
         SuperscriptBox[
    7 J' X% _* ~" b* w! N2 E      RowBox[{"(", $ N3 _3 {3 a; M
           RowBox[{, q% b( D& J! u( q1 V
            RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], 7 @- |3 _* D/ j9 u
        ")"}]}]]], "Output",
    7 x! ]+ h+ l9 C CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9, 9 f" \: p( s6 m, J. M
      3.5779607873531995`*^9, 3.5780122169375*^9}]
    + T! S- F9 s. d. k4 r$ @3 _}, Open  ]],/ F& l; _; s5 {4 b, V7 R$ P

    ! |5 E1 @  U+ t) q/ J0 `- ?Cell[CellGroupData[{8 E6 i3 B2 G. L( y# Q6 a+ s" [1 Q# @

    4 ?/ @* t& z% z5 X; Y1 qCell[BoxData[, `! l- P# V) f( ^2 P2 N2 e
    RowBox[{"C5", "=", "Ca"}]], "Input",
    & D( q) V- y4 B) O" `) u' d CellChangeTimes->{3.577920860671875*^9}],
    9 R* w2 z  @, j; _! `9 _; I) H0 h1 Z: a4 I
    Cell[BoxData[
    $ I) Q2 y4 X& O& S2 v6 D8 t$ V/ | RowBox[{"{",
    3 g+ v/ f$ M: d7 O- P2 n  RowBox[{5 V& k3 V3 N% m! x, x3 ]/ `  r, N
      "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
    9 _. x0 P3 G1 w1 \   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
    2 z" [! e# W- J. V" z3 g  "}"}]], "Output",7 w' x. y$ \! ~. D$ S5 T6 g! ]
    CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
    " h+ ]# H8 P' h# i. \' E8 m  3.5779608137328453`*^9, 3.5780122209375*^9}]% I6 [% V7 D$ c: }
    }, Open  ]],( J. t+ ~. Y0 c: f) c+ B: q  w

    ; @. w5 c) h: E1 uCell[CellGroupData[{, e" a* q0 i+ ^- X8 T2 h! @' X
    $ [" l& f: U7 L# m6 T/ G
    Cell[BoxData[8 e! v; R& u  a$ w* A' v! @+ w8 ~6 a+ [
    RowBox[{"u5", "=", ( P, c5 X0 }$ n0 a, I! G2 v3 T0 {
      RowBox[{+ Y6 A7 Z! K, E1 T
       RowBox[{"Exp", "[",
    : [$ t; g8 [" f. A9 d% I    RowBox[{" B4 \7 }7 f7 L
         RowBox[{
    % ^3 d9 r2 F# P      RowBox[{"-",
    0 W' f& s6 u& V" K       RowBox[{
    ) W. F8 z0 }, ?        RowBox[{"(",
    . J# _. B! m* e6 z* g0 w! }& m8 f         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 8 M" W- K& v+ J" ^. x( {' x* T
            RowBox[{"(", . r* R& b5 Q+ T
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    - W9 ~5 J0 ^9 U$ X  m     "]"}], "/.", "DeltaX"}]}]], "Input",
    ' L8 M; u7 O  H1 m1 Y8 T! U8 t CellChangeTimes->{3.577920869375*^9}],: ?/ s* q- C! P3 a
    % [+ t# A& ~8 n7 e2 {3 i4 c
    Cell[BoxData[4 R+ k- Q" X/ T+ R7 r4 i
    SuperscriptBox["\[ExponentialE]", 6 \8 ]2 \% r5 G' L
      RowBox[{"3.141592653589793`", " ",
    . W& @& p2 X) Z9 p* W   RowBox[{"(",
    8 L: b: ?# b6 Z, @& @3 m2 E    RowBox[{
    0 Z# L- @" R6 ~( T# u     RowBox[{"-", 9 \4 l% Y3 O! \% e$ B& F$ c* Q$ _# J5 R7 B
          SuperscriptBox[
    $ ~$ {' z/ e( d/ }, \9 _       RowBox[{"(",
    & d8 X7 L) }9 a) T9 |9 D$ s! w0 {        RowBox[{
    : T" w& [, m1 ]' N4 p         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ' c- @+ o* L2 N4 D0 p! }     SuperscriptBox[' i9 {" l% V1 Y% B* `" ~
          RowBox[{"(",
    ' H, R9 T) U" t4 {# e3 d  S- S       RowBox[{
    ! q7 j' A; Z: b8 {: o( q' P) d- s) g        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", " m5 i: H5 y! i7 K: D9 B+ f9 m. T
         SuperscriptBox[
    : m3 ?/ F" h. b5 G3 b      RowBox[{"(", - h. q) R% K; P
           RowBox[{
    . d) x3 E* G+ N, \# J        RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
    : v9 Q6 _2 L2 K0 G     SuperscriptBox[% S- a# A$ d% R# z: \+ L0 }
          RowBox[{"(",
    - h% R0 H% h4 H1 M! c       RowBox[{( E- O4 b, A( Q9 a4 A( T2 \& W
            RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", # n+ e/ H$ H  ]9 i6 K4 Z
         SuperscriptBox[& _7 X8 j- l! D) d  R$ q! P6 E
          RowBox[{"(",
    + |# ]8 G2 D; N. \' [# `' n9 r       RowBox[{
    , a4 L: \% r: y3 i$ P, s) K( B3 Z        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", ( @7 o* H1 i: k7 }+ m
         SuperscriptBox[- [# D5 ~/ C2 J+ f
          RowBox[{"(", 7 v+ e. z4 V, `0 h( u
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ; Y, P+ z5 N" b; J     SuperscriptBox[
    ; t0 }) V+ |- p5 _+ `- _# L      RowBox[{"(", . {' q" l! U- A7 j$ E0 |  e: N
           RowBox[{0 s8 n1 y! s3 ^7 [
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 7 a) U1 N6 y! [4 T2 v8 P9 O
         SuperscriptBox[
    8 H4 m6 r) E8 b. j5 c( x0 \      RowBox[{"(", " D/ Y$ E3 ^' f0 ^
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    # Z. ]: p5 W2 V0 F1 G5 v' A- h3 A     SuperscriptBox[
    . R8 p" e  t5 m; M      RowBox[{"(", 0 Q- P6 Z5 z  b4 R8 z1 k
           RowBox[{
    + V7 {% V% k5 `- c5 l        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], 2 z. E% Q2 M5 p& D1 ~+ L
        ")"}]}]]], "Output",
    9 P! f: q1 E% Q2 i CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
    5 m5 a5 ?  f5 a( q6 E* {/ L  3.577960815043248*^9, 3.578012221953125*^9}]# {% h2 E  K( S: \$ H
    }, Open  ]],
    ! `1 c! L, o1 N1 W* v5 [8 V2 j# k& ^1 I0 M7 G
    Cell[CellGroupData[{5 I9 I6 n+ E4 `: e  r5 u  a% {: F; N

    + H$ ~3 J7 O- {* ?1 s# cCell[BoxData[' m/ o) x- |2 B. {+ d/ ?
    RowBox[{"C6", "=", "Ca"}]], "Input",
    7 h5 @3 J& O9 J CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
    3 x' A. z0 H3 X" H( X+ j  Q  \' z
    7 y- u- X( D- c4 D4 WCell[BoxData[
    4 G6 h: k' U. }, o* T RowBox[{"{", . A! ^' `# P6 K& g, @2 [0 ?/ T0 i+ d
      RowBox[{
    # ?" j- b8 L6 t( b( r, N! [  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", 2 P! Z: {! ~- D  ~2 f
       "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", : b* n  B$ u1 I
       "0.494866`"}], "}"}]], "Output",
    , |; q- r5 K4 \ CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,0 f2 o0 g+ p! n; _
       3.5779608373044868`*^9, 3.578012227359375*^9}]* B$ X* [2 T3 E+ I
    }, Open  ]],
    ' d4 o1 G3 O+ U& V5 k7 i3 [9 S  }/ R
    Cell[CellGroupData[{$ L9 L5 i- S1 y3 R! x- b! W. }
    ( m$ }9 c" q0 i
    Cell[BoxData[
    1 J' U" P" W5 k! R- U RowBox[{"u6", "=",
    ( `& D- S6 `4 S; l( c+ k  RowBox[{
    ' r+ ^5 M4 L5 D$ X# u( W   RowBox[{"Exp", "[",
    5 {6 D" B- t$ g6 E    RowBox[{
    & G% z! p% ^. b6 l. h     RowBox[{+ x' a- e( V" z' P& w
          RowBox[{"-",
    / z0 b! f6 w0 h7 w       RowBox[{2 J. y3 a$ c! I8 V# W* ]5 \
            RowBox[{"(",
    ; |5 R- @' Z+ |+ r) _& G         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ; K4 K1 o4 b" h0 j% c4 R- I
            RowBox[{"(",
    5 y8 _  _+ [; u$ A/ E# M         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],7 R5 s$ ^2 U% O  k: V
         "]"}], "/.", "DeltaX"}]}]], "Input",
    1 Y" N6 \' K/ F+ ? CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],/ P/ P9 }2 x! g
      o) y3 L. M: \3 _
    Cell[BoxData[0 g3 B7 S& A2 X
    SuperscriptBox["\[ExponentialE]", 1 k* ~+ I! g% k/ d6 Z
      RowBox[{"3.141592653589793`", " ", . E, I+ d; p; L& a
       RowBox[{"(",
    ( ~* N$ t" C- j  v% D    RowBox[{3 q' }$ z& A; J- j
         RowBox[{"-", " G9 G' I0 R4 d& i7 l: T
          SuperscriptBox[
    6 p7 }  k* I: l$ H       RowBox[{"(",
    " d* A% f$ S4 h& v$ G, K. y) R  k        RowBox[{1 I0 ?4 I# o$ `9 t4 R6 \$ e
             RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
    % w0 B3 L5 m; w% s% `2 l5 h     SuperscriptBox[
    + V! J6 l& I4 p* ^3 {      RowBox[{"(",
    5 E8 N, p6 \4 o1 t8 i7 Y4 s. }       RowBox[{
    3 }, j0 m/ B5 c6 D! V        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
    " q  E& R/ B$ j     SuperscriptBox[
    0 A  e+ E3 ~5 X+ f! l8 ?      RowBox[{"(", & a0 R0 F' \, l; f
           RowBox[{$ D$ E. K, G& Y4 j) z5 q
            RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", ) g5 ~# T3 W8 p& U' `8 J
         SuperscriptBox[
    ' v- w* U+ y) P3 s8 q+ o( G; q      RowBox[{"(",
    2 r' `  f1 o- l       RowBox[{3 u* [; Z& s6 i/ e4 F) ]
            RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
    ! @: f9 v" o) {) i  X( t3 p1 c. U' c     SuperscriptBox[
    5 E9 s: u; i3 G1 T      RowBox[{"(", % K$ ]/ E" j: y+ Z
           RowBox[{
    9 b0 R. k9 K: k8 n& g        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", 0 u; O: _" U% ?
         SuperscriptBox[
    / ^4 B3 p& y' ?; ^3 E$ }      RowBox[{"(",
    " z# U2 X1 C1 }$ E+ U       RowBox[{5 z' Q$ [) W. Y# l& {/ I. o8 D4 J
            RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", $ e. A$ h& b1 Z. `+ O
         SuperscriptBox[
    ) J! Z1 }& r2 c; v( @( x, V      RowBox[{"(", , {8 g1 W2 h$ D: W  ?
           RowBox[{
    1 s3 R: a* ~, U4 A, D        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    " F3 G8 k. o% K9 S1 b+ t; C6 H     SuperscriptBox[
    0 w/ b; {) d0 M7 {; C( [2 G      RowBox[{"(",
    / j: x- T! K' W6 B: j6 S% U7 Y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    * E; j, ^5 t* L+ ~. s, z" O     SuperscriptBox[& O0 i/ d1 J5 y2 z& l3 {2 X8 V4 m
          RowBox[{"(",
    % E2 H# R, f8 `9 E* E3 Q       RowBox[{3 K" _( S% C* T9 [* a5 o
            RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
    6 n, n6 J# {0 H  l9 x4 J4 D$ N    ")"}]}]]], "Output",
    7 \% g/ V+ J4 m% D CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, & b$ ~% ~4 X8 x  ^0 e5 w9 M- V3 ]  J
      3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
    1 J/ |3 G' v5 ^( G9 D& [}, Open  ]],
    2 S: f+ t# q5 T* {1 M* m% R0 `: m9 ?* }4 r
    Cell[CellGroupData[{* ?$ b' r) E" A2 x

    : S% l2 m, B2 d* XCell[BoxData[3 Q( R' a2 R  F! q+ m( r/ z- n
    RowBox[{"C7", "=", "Ca"}]], "Input",- M, t- `& {: o' @7 ~" [7 q7 t
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    0 `) [! ]/ c' s# N3 {* M( U  3.577921316125*^9}],
    7 N" l' L: K# l: q2 N
    7 Z& _4 R  A% k& V5 YCell[BoxData[# {  H) x" b9 |( Z8 t* f$ w2 Y
    RowBox[{"{", 9 J# [& B) V2 a1 I. ^
      RowBox[{
    5 K" T' h) u$ \, T+ ?# t  V  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", # [/ K. \# T/ S1 P# G, i2 v8 F
       "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
    + u+ r% P% {  b2 y1 m. d  "}"}]], "Output",
    8 H/ f% p5 f8 c( R9 Y! s! v* Y* N CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    " O. e) [& ]" g; h. a3 G  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]5 C0 i9 r9 U3 p' D0 O
    }, Open  ]],0 N9 Y3 ?" x4 K% p0 W

    . n+ d, I/ H+ XCell[CellGroupData[{- m; X$ c" D4 E6 C! D

    ( B6 i% R% Q+ J' c' b0 {( n! QCell[BoxData[
    7 u0 r0 H' N" K8 p RowBox[{"u7", "=",
    $ q2 ^: T2 w5 E" g5 V  RowBox[{5 }! e. q8 i. i3 c# F3 F
       RowBox[{"Exp", "[", ' \7 l9 Z/ m6 C6 r% Y
        RowBox[{
    & g* R" x; u8 C9 g     RowBox[{
    / c: r0 B: S- u- I! w* }) R" |6 n      RowBox[{"-", * G& ]) K: i4 x9 y1 _
           RowBox[{, H" \8 Q4 S2 U" P! v5 L" x
            RowBox[{"(", : P; z7 j  a6 o) p% m9 s* ]# r
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 9 }$ C! G! `# \
            RowBox[{"(", 5 P+ G, O% ]5 [8 K, H
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],2 u+ |2 \0 F* @* u
         "]"}], "/.", "DeltaX"}]}]], "Input",; U* X% T. C- M1 L* C
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, * N/ K" t" y2 f5 e; W& A* ]
      3.57792132028125*^9}],
    / _: ~8 l! X# r: _  S; E" S" G- e% A7 n
    Cell[BoxData[
    ( S  C3 \/ M0 X SuperscriptBox["\[ExponentialE]", 9 @$ k; g) H7 o1 m& r3 K, R5 @1 J
      RowBox[{"3.141592653589793`", " ",
    + y6 i/ X( g* Q6 A   RowBox[{"(", ' i$ \' j0 r4 L9 t; k! p2 n% j9 V6 a' x. v
        RowBox[{
    ; _$ `* @% |- k6 N0 s     RowBox[{"-",
    ( G* U$ a+ A( j. e      SuperscriptBox[( [9 C; S2 M# Z% @
           RowBox[{"(", ! R2 W5 l5 y# [0 J1 a0 |2 M% F* Z
            RowBox[{) _. |0 t& }/ q( n
             RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
    8 B. K9 n; y% @) M     SuperscriptBox[8 N9 D# O. Y: X+ w# E
          RowBox[{"(", 7 I& c2 r0 E6 @2 \
           RowBox[{
    2 b) k7 A; k( o        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", 4 D- E+ w; p9 e8 M# H  |9 s1 p9 b
         SuperscriptBox[
    : q9 S; p) t" }. x& f      RowBox[{"(",
    + G# N+ Y. |' Y$ O  J       RowBox[{( h6 s0 O% h5 G) T
            RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", 6 l% `' V, n& g  P4 V, b- [# M
         SuperscriptBox[
    , j/ v; i# c+ Q) v7 f( ]6 A      RowBox[{"(",
      i& k( K6 R% ~8 e7 ?' _- ?       RowBox[{
    . T4 G: |+ Y% ~5 [+ h        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", 8 m9 F1 ^* i  K5 ~
         SuperscriptBox[: i; i5 I" J0 }% D
          RowBox[{"(", " R$ U5 \' w. S4 j2 s: ~6 w4 V! D
           RowBox[{: s! x# T; `& g0 j# B2 u, T
            RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-", , r- A7 W1 f! v6 C9 e0 \  U5 y
         SuperscriptBox[
    ( Z7 J  v, k* z0 H      RowBox[{"(",
    2 y. r5 E/ |8 R/ v' u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    9 o2 b4 d. g4 k5 ?5 Y) [     SuperscriptBox[
    $ r) v' I' s( w- L  ^6 a3 m2 ?# G      RowBox[{"(",
    - E+ T7 K% _  e" H       RowBox[{. z3 G  G5 m+ }0 M
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    ( ?! i/ Z) b, p% v8 z' F/ `     SuperscriptBox[3 W  D( q' h7 W5 |
          RowBox[{"(", + k" o  v0 v6 M; y" K/ J: e
           RowBox[{
    ! C" C; i* {# @        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", 8 {8 Q; a% E6 b
         SuperscriptBox[
    3 m: S3 \/ [' E& O" M      RowBox[{"(", * I3 ~  f: r8 {
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    2 u9 K8 a+ k$ ]7 k3 ]    ")"}]}]]], "Output"," \- m6 [5 [) m
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    8 a, d9 }0 X8 V) M  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
    1 s7 Q  M) s, j0 m  3.578012251359375*^9}]; C0 p  S. x( F& Y! W
    }, Open  ]],
      s' w! Z8 C" Y' C# Z  R& s: ]6 C% b9 G
    Cell[CellGroupData[{, q0 B0 F3 l# P6 b' {0 P5 H
    4 U# t/ ^, X& N& D3 m
    Cell[BoxData[/ ^2 Z; J2 }$ b$ p) k% i' O
    RowBox[{"C8", "=", "Ca"}]], "Input",) S, s% D$ e: }. M' S. e; T
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, % t3 q3 ^; c) c0 N; }7 g. {
      3.577921316125*^9, 3.57792141421875*^9}],
    * V8 p; d! ?* N' Z, C0 p; a
    . h% J, O* M" rCell[BoxData[
    $ ^) Y" P0 y( {; z RowBox[{"{",
    & E5 w' l5 o8 T; Y+ p1 w: @* R4 y8 h+ _  RowBox[{
    / H8 i6 O  Q0 j: J. r4 i* w  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
    # H9 A  k! t: F7 E; z8 g# |/ M   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}], : l7 H' b7 n) q- N! k5 J
      "}"}]], "Output",
    . |) H: c# F( A, k  |- E: o6 ~ CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, ( C6 G) t  v4 r  Z
      3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
    9 @. p+ y% D7 ?9 t/ B  3.578012260515625*^9}]
      q1 C( R/ f7 r" F/ h# I}, Open  ]],2 a2 N" k: b+ l4 T, i* S& v3 b
    8 v/ r* M. y" v5 O& `/ e0 G0 V* W) b
    Cell[CellGroupData[{
    ( o8 ?9 N2 M$ |6 n* @2 S) L2 Q7 l3 s: A. [
    Cell[BoxData[8 Q" s5 R8 X% f8 Q# _/ B6 r7 K4 G+ Y
    RowBox[{"u8", "=", , J% T: v7 c  O4 N2 L! w7 e
      RowBox[{4 G# A9 W% P" F7 q3 M: ?' a$ P
       RowBox[{"Exp", "[", - S7 g+ P5 G& u6 @  I' f. y
        RowBox[{
    ' @. Q* ^& @7 Y3 t# Q     RowBox[{, x) f5 Q* q; v: Y
          RowBox[{"-",
    , J% v  q$ g" I4 w! ^* E       RowBox[{
    8 h0 Y7 o% k+ q6 L+ m        RowBox[{"(",
    8 W, ^& r: c$ |  O2 b! ~6 M. i; H         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    , }* O) X: K7 c        RowBox[{"(",
    , h- r' w* W1 M% l3 i9 C" i* @         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}]," l$ d* z# ~( i) V* m' @! A" k
         "]"}], "/.", "DeltaX"}]}]], "Input",
    ' W& p2 x6 }+ E% F& [2 _. L CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 4 J$ D* R$ S- z; _
      3.57792132028125*^9, 3.577921416921875*^9}],
    5 g4 f& x% J9 C0 R" e, B3 w: x& e$ `
    Cell[BoxData[$ d" l$ s; z+ F& H! ~. ~# v0 [
    SuperscriptBox["\[ExponentialE]",
    8 w4 H" |; Z6 C5 c) b( a  RowBox[{"3.141592653589793`", " ", - B, W% F: v- _% V1 ]
       RowBox[{"(", ! w2 ^0 t1 E2 D- _
        RowBox[{" n3 t9 }# K' ~& q0 g
         RowBox[{"-",
    + H) \2 l. V8 x: H4 s" ^7 f      SuperscriptBox[
    4 e  r- S' S6 j6 ^( p$ w5 A( a       RowBox[{"(",
    ( Z" B1 H  }" b6 d5 v5 A& c1 f0 Q4 E* G        RowBox[{
    ! g" m/ H2 N& X+ L, N$ j; T         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", ! L- r& d$ c3 L9 I7 e: |, h6 g
         SuperscriptBox[) Y: N$ _7 ?6 K0 Z! @4 V
          RowBox[{"(",
    8 A- S$ h  j: e6 f( N0 W/ T: o       RowBox[{, @+ S$ E- F3 Q" M6 h' Y3 ^
            RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", % S, |/ C) s* X" P; j+ q- a0 [
         SuperscriptBox[
    2 A4 d# U2 m" }& \/ R: h- K      RowBox[{"(", , f- Y. c2 w9 r7 w, @( I
           RowBox[{
    . Y& t, d0 U, M. ]/ o        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
    ! }, v% F8 k5 F     SuperscriptBox[
    ; N. _: b2 T0 S$ P* N6 F) X      RowBox[{"(",
    5 m  z6 o0 d5 {5 X9 M       RowBox[{
    3 C9 T. _9 Z6 [# Y, x        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
    ) J/ i& z0 M8 ?+ O1 f: H     SuperscriptBox[
    ) w+ C( A8 c- Z  B3 K* a      RowBox[{"(",
    ) d+ k5 @' d8 w1 U8 r       RowBox[{
    5 j0 }+ w3 L9 m        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
    ' C* y- ~1 D8 z     SuperscriptBox[
    ( F- e* n0 ~9 d6 T' x  I3 G      RowBox[{"(", 9 v$ ~' U& K( B1 q/ ^
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    : p, Y8 F& [! T( Z     SuperscriptBox[# h8 L; Y$ L4 r2 X+ D/ N
          RowBox[{"(",
    + g' _/ t8 q* y$ P- U# S/ K       RowBox[{4 W/ m7 B6 ~4 k
            RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
    ( t( Z- O7 s% D4 D     SuperscriptBox[
    . f% t9 z; x; t8 v0 J+ }, Q' H      RowBox[{"(",
    * Q0 \- {' ^4 c/ b       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 0 @* {1 |0 l% ^/ l
         SuperscriptBox[9 K9 v$ y8 q% c# e  _
          RowBox[{"(", 4 M- n1 v, L' B0 p1 {/ T
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    5 N8 u" L! L, _/ [9 w+ E    ")"}]}]]], "Output",
    8 B( {% _  U3 U1 Y2 `& w2 Z CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, " i( S+ U. v3 I& ^; u* O
      3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9, ' {8 R% j! j; m8 \
      3.5779608945565863`*^9, 3.57801226165625*^9}]$ C8 h. ^# T" Q8 x) Y  p, Y% X/ J
    }, Open  ]],% G3 l$ t6 I5 P

    5 N9 B1 _7 j3 K) y$ V) s) ?Cell[CellGroupData[{4 T3 r/ p2 R( y: N4 M3 G$ e$ h( B

    - j8 Z7 G" T8 |6 M' lCell[BoxData[
    7 H( T0 s5 K# F: N4 Q+ }( o& { RowBox[{"C9", "=", "Ca"}]], "Input",3 \( E0 |: k/ g& Y8 x9 f
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, ( d0 @& }1 p  ], }
      3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],
    ) b# s" N$ R' ~5 u2 `' P9 y* k2 t" {( |7 y
    Cell[BoxData[
    1 `% u( P* H+ R8 u3 e! N3 w$ N0 r5 \ RowBox[{"{",
    ! `0 s$ M- E1 @. [! |7 e  RowBox[{
      i! W0 M9 S2 i( \& p7 Z7 t  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
    5 x1 K( V& z3 n, |& C0 N+ x% N   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
    ( R, a# Y5 V( L) |. H5 @+ ^% n  "}"}]], "Output",3 B% v- |: l% Y4 \3 F
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    , h9 `; @$ d' M; X+ q0 K' r  3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, $ U7 }+ v. K8 K& s
      3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, 1 v5 [- }% q- a0 B) W
      3.578012268234375*^9}]
    # Q) `7 m& G& t$ Z+ e4 I}, Open  ]],# N; u& i  S' P" `! g

    8 I  T" H5 k1 g' r" H4 vCell[CellGroupData[{
    - ?2 }' q8 b; a& ?% }- b1 h1 G, g& u" N1 B' {/ j
    Cell[BoxData[
    " D$ }# i& I- ?- ]! E( M. R6 j. r RowBox[{"u9", "=",
    , |2 K/ x4 p: E  RowBox[{
    ) A/ ]# h6 _1 _8 `4 O) Z  K5 _. g   RowBox[{"Exp", "[", - j* R$ m0 z1 H
        RowBox[{
    1 ~8 F$ t, v1 P. r1 g/ u. Y& q     RowBox[{" a3 e% }. O- j/ R) R3 b+ W
          RowBox[{"-",
    7 E% K  |) ~' t5 f       RowBox[{/ Y2 Z- ^5 x0 E& w9 S
            RowBox[{"(", $ C: g4 ^5 e6 S" b% I
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", " r! Q" D' n$ \: T
            RowBox[{"(",
    , t, F; ]* m6 K  Q' Z         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ! C/ `2 u: A! e- P3 _4 C     "]"}], "/.", "DeltaX"}]}]], "Input",
    - T6 {% @* q# G6 \2 g1 d CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, : v( Y, S4 Z9 ?: B) |6 A0 u- T
      3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],
    * H: [- V! f  n/ c# L5 H7 E4 p$ b, P$ ]
    Cell[BoxData[
    # ?. U7 w! Z& ~; ^: s* c SuperscriptBox["\[ExponentialE]", $ Y# ?  i( o% j$ ~  {2 o
      RowBox[{"3.141592653589793`", " ",
    2 ]' s: ^5 R- S   RowBox[{"(",
    * ~( v0 j8 H8 P    RowBox[{
    ( y9 X5 p4 z( L4 w& g$ Y0 Y     RowBox[{"-", & ?- Y' g( U7 M
          SuperscriptBox[
    + ^6 t; i. l# [$ D' Z, o6 o       RowBox[{"(",
    & Y2 i* J4 ^' V( |        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
    6 p# l% h2 p/ d: Q" u1 a     SuperscriptBox[3 P. r+ s& j6 n! A) }! c. Y
          RowBox[{"(", " K, r7 G, D& m( X! F5 t$ x
           RowBox[{
    ' Q5 j* M2 o! w9 \7 g) N& i        RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", . J5 k/ Q0 L. I% Q8 U4 B" D+ I
         SuperscriptBox[( D- v4 ]6 \7 x. Y2 W
          RowBox[{"(",
    2 i% K' o: o9 x       RowBox[{
    / q+ N9 C8 Z! @5 b  g: P        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", 7 U  _- x; O8 ^4 ^+ ]
         SuperscriptBox[: X5 {- C5 t* E+ d" X  C: }
          RowBox[{"(", 7 e( Y/ L/ U7 M) w7 }
           RowBox[{
    ; |! ?6 E" `3 {$ k/ z        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", " o( y; o- n; ~3 c$ a2 |' m! r" t
         SuperscriptBox[! y" F, _% y) [5 r$ ~7 ~# k
          RowBox[{"(", - T" j- Q% r, J9 \
           RowBox[{
    # \5 T0 B4 U0 E; ^" s        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", ' C6 g5 e; [0 z
         SuperscriptBox[
    % S  b% d/ Q6 Q0 n7 C3 F: P      RowBox[{"(",
    - u; {/ P- v+ u$ X, s' }# i% l       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ) K* G& D% Y/ ~8 M& i
         SuperscriptBox[- w* r/ `2 V; }
          RowBox[{"(", . q! q! z" s5 S7 U9 N
           RowBox[{
    " H; V8 G/ v0 d1 {- c& K        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", : [& D5 }) @) ^; q& |0 |# s/ R! f' X
         SuperscriptBox[
    4 l  E9 U+ c. K$ @      RowBox[{"(", ! h$ P! C0 v1 u
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    , A/ A( ?+ {5 p" l4 ^3 }7 {2 u+ \- p/ K     SuperscriptBox[
    1 F" s: N: @  L2 k      RowBox[{"(", * a( W! V1 `1 Z
           RowBox[{
    1 {' F, \; {1 T3 R% r3 L        RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], " V  T3 _0 ]- Z$ Q) q( v* d, s
        ")"}]}]]], "Output",; @. p+ }- S: c* Y/ F
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    : ]4 \: b9 L& n! c1 W  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
    4 m3 U$ J% S8 Y  j7 B: D  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, 6 E5 x: z5 v* u' h# V
      3.577961530421959*^9, 3.578012269125*^9}]" ?1 C; _' D) d3 c. J
    }, Open  ]],
    3 k- n0 X" x& p( V  O* l
    # R% c  U" B3 Y& ]7 j; n) _! \Cell[CellGroupData[{
      [! w; h* P# b7 v4 n
    ' N3 k( W1 ]6 Q% ]& y0 D& U! @Cell[BoxData[{
    9 E, {$ R- Z* i; X$ } RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]", ! o! J2 `( Q3 X) a2 o; N$ F
    RowBox[{"u10", "=",
    : `% p/ p7 x6 |9 @. W  RowBox[{
    $ N1 F8 e/ t. N3 n   RowBox[{"Exp", "[", 9 X" D( N$ \- Y% ~+ K  {' u) |; [7 M
        RowBox[{. Z2 q& }  U% \! O* j
         RowBox[{
    7 X$ j! {: T8 q/ t  j      RowBox[{"-", " i& D- u; v3 F/ S) C0 {( a0 u( Y
           RowBox[{
    8 V. s" a& l- Q8 d! z* p4 h: Z! I( c        RowBox[{"(",
    8 @5 }8 Y! p, b+ n% h% N0 T# U         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    / R5 Z, x/ r& L3 m5 L3 K1 n) \/ r        RowBox[{"(", : K# _# Y& q3 ~# L' e! c1 M, |
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    % u$ T1 o! ^9 ?) ?/ T3 W     "]"}], "/.", "DeltaX"}]}]}], "Input",
    - W; |' t# I5 @. w( t+ K CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
      h1 Z' F4 N2 Y, N8 S; m* R
    ) ^2 W* T6 o7 F  R, a- {: }Cell[BoxData[' L# q5 I  a5 C* u
    RowBox[{"{", 9 a+ \; ]5 u9 H
      RowBox[{0 Y, c: \2 f: W$ U6 z, j& w
      "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
    & Q# I* P9 H& i+ S6 l% \# B   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",* b5 Q  p4 ], F! z3 O* u
    CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],5 [  z) ~2 Q( I0 x- k( h4 F

    * e% n9 ?6 b- _. jCell[BoxData[( X% N: c2 L# D/ i
    SuperscriptBox["\[ExponentialE]",
    - S3 _- x5 U3 P0 W5 D$ q) b" g/ f  RowBox[{"3.141592653589793`", " ", 1 r! Q; o: Q: b2 C8 p9 \8 o
       RowBox[{"(",
    ) x# x/ f. V: M2 @' {$ l( b    RowBox[{' [+ i3 \: u3 I; }; j) I
         RowBox[{"-",
    : I8 m& g$ I9 p$ Q( n/ ~& ^      SuperscriptBox[
    " s0 p2 h, ~- y2 K( q       RowBox[{"(",
    1 o" ]! t$ [( k        RowBox[{
    2 \( p$ Z8 [9 f3 W/ s         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    # j  h2 C" ]3 N2 b8 J# C     SuperscriptBox[) ?5 H* c7 R: a1 ~1 `, d
          RowBox[{"(",
    ) W' G. X: t4 l       RowBox[{; v5 D+ h3 S% b7 f0 ~
            RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
    1 K6 D% z! A' X7 b5 |     SuperscriptBox[  t0 t1 o/ q- Z' u
          RowBox[{"(",
    + B) D: J8 j+ M       RowBox[{; Y2 h8 E' _$ K  s! @3 W1 l9 h
            RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    " _* B: K9 I' E/ ?5 O- w. z     SuperscriptBox[
    ' l+ @/ G: m5 t- b& ?9 _* B- v      RowBox[{"(",
    ' T& m: P; k1 w" t4 d       RowBox[{) n3 k/ L. Y5 e% r% C
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", % W) v. ?$ I) H6 A0 e! \* Z
         SuperscriptBox[4 |" o; _. ?& [& ~
          RowBox[{"(",
    ; e+ b4 m) x- V( G0 \       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
    ) E) f/ t9 D8 I& f4 R4 R/ Q     SuperscriptBox[
    8 |6 W! J8 l  J1 w5 q, I; z% e, X      RowBox[{"(",
    5 z4 i! R6 a3 C  M( T       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ( j5 y' O: u6 t" K8 I
         SuperscriptBox[6 j: i* S% k9 d' ]5 N
          RowBox[{"(", 5 @) p) G7 {1 M9 ^% h
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", / k6 r0 E2 A% c; F% ?
         SuperscriptBox[! C3 Q& O% z' T7 q! K
          RowBox[{"(",
    / B- D: L1 q( e! N, O       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", " g$ o3 T! s, J. C& |! L1 [& C9 C- H
         SuperscriptBox[# {! R  a+ ^! G; p2 O
          RowBox[{"(",
    ) c0 }# g% x( I8 _       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    0 S: o, W* E$ I    ")"}]}]]], "Output",6 Y8 H# }( N9 H1 c# L$ e7 Q
    CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]! N) Y: p2 R" C: O; `# X) _
    }, Open  ]],8 b  u7 G& R- |' P
    3 |7 r0 h) ?' U
    Cell[CellGroupData[{
    ( m  a4 J  h1 V( Y! ^5 \$ I( I
    ) F2 d1 }. k$ e1 `  B- HCell[BoxData[{
    . O6 z0 p: F0 ]0 C1 W RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", 8 {! g  H( ]  R4 I2 }
    RowBox[{"u11", "=",
    , W6 P) Z$ ?" q* \: h& }1 N  RowBox[{1 S& i7 _5 c, M# Z9 v0 X% X
       RowBox[{"Exp", "[",
    3 u4 G* E6 W" B- T4 q4 E    RowBox[{5 d/ `4 ]7 q9 @/ w5 A
         RowBox[{2 G- |0 ]8 e9 I$ D
          RowBox[{"-", % Y* v1 o- u; q, v( Q" L1 z
           RowBox[{
    ( p% e+ X8 D3 E  B        RowBox[{"(",
    6 `6 [7 H$ Q+ U! T2 Q         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    # h7 R0 g* v5 j- m; D        RowBox[{"(", 6 L) @/ |; l) A2 e
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    5 M' E" b/ f  W: O     "]"}], "/.", "DeltaX"}]}]}], "Input",3 {$ f0 E2 a8 F) Y
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {( e% x  Y3 h. }7 t( s5 T
      3.57796154237158*^9, 3.5779615434011817`*^9}}],
    " h1 \" e& m" j& d- s) Q3 U1 \  ?  G. n0 g. V0 v( Y
    Cell[BoxData[& D% @; D6 k1 a% ^) M* A! n( {
    RowBox[{"{", " t. m, }: W4 [, f
      RowBox[{
    . p" W) y! {$ v  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", : y7 z9 @# s( p7 G) x7 b! A; y
       "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    ! t; H* B5 C8 s  "}"}]], "Output",% M! U& J+ D1 \. V: f1 C9 R. C
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, ) }3 g( k/ W6 s$ u- T1 D$ l
      3.57801228203125*^9}],5 ]- A' y& I( z5 I3 v' I1 U! E
    " q  _. H; f, v8 j# F
    Cell[BoxData[, f( D/ F0 c8 g8 f# o- }0 x$ }7 E) H* r
    SuperscriptBox["\[ExponentialE]",
    9 }& @: n' i% h5 p8 {% T% e9 v  RowBox[{"3.141592653589793`", " ",
    1 v* ~3 a7 Z" M4 {5 q, }8 F   RowBox[{"(", & x  _) J" L6 g* C; c9 A
        RowBox[{
    5 e6 O6 h2 B* m- N! i     RowBox[{"-",
    + G: b$ V$ f( W9 w, ~      SuperscriptBox[5 y- u. u  M, W( `; @! f4 S+ H$ _
           RowBox[{"(",
    $ d0 b4 _+ u2 z        RowBox[{+ A9 k, w/ v, U& L5 o
             RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
    2 C# Z' j% C8 Y3 R! P6 j     SuperscriptBox[7 t/ F6 c9 \( K2 y+ t1 t
          RowBox[{"(",
    * Q# v6 h- m1 z) ?% U       RowBox[{
    7 ?7 ]1 j0 V. O! [2 P" k        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", - r$ s' Q2 ]9 g" Y
         SuperscriptBox[
    , B& Y! ~9 y6 V) d      RowBox[{"(",
    , G4 ]. I5 k: G: {3 j0 x- M$ [$ n4 |       RowBox[{, k6 K8 {; l$ N3 _% r7 _4 M
            RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", # n  U; X  f% F& X
         SuperscriptBox[
    : ?, e8 i, ^$ x( ?5 i5 [      RowBox[{"(",
    7 Q$ `0 {2 d1 {& P, ]       RowBox[{
    6 C* x" l7 i! p1 {8 J! L# P$ ?        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
      {* I9 @5 O' w4 n8 z     SuperscriptBox[8 Z; H( a* k  h7 Y% l
          RowBox[{"(",
    ' y  v) B  @0 w0 B" L" m       RowBox[{
    $ z" L; ~$ E: z( K5 N        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
    1 |" z& z+ _' m/ r     SuperscriptBox[
    5 F; S+ b- T5 V2 |: c      RowBox[{"(", % f# u& o  E; Z" w) M
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    4 ]3 a5 b- d8 Z5 x     SuperscriptBox[
    5 t- D' I9 M; m( \* P      RowBox[{"(", ' I1 V! e& [( ~. T0 u5 c% J
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    : e% u. `) S! `# T     SuperscriptBox[+ s+ m4 R8 k0 y" }7 ]' ^  |
          RowBox[{"(",
    1 r* W0 f2 D. t  q$ [       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ; D$ E: f! s7 u/ V( e8 ^6 V     SuperscriptBox[9 O9 s* b2 u2 t( w7 @+ A. c( O
          RowBox[{"(", $ Y8 ]& u1 P. w5 g& Q; ]
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    # E; L! |! p4 n* O( k5 c0 W    ")"}]}]]], "Output",  ]9 K+ W' O1 L& z0 }5 n$ f
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, 8 [; H) R* _  b. i/ u( e) S" y3 T
      3.57801228203125*^9}]3 Q$ Y) |& O# D" [
    }, Open  ]],
    $ j' {5 i% P. v$ ?) V4 e
    ) v! _; a! q  DCell[CellGroupData[{
    ; T% i; |$ U& A' H# A! @  P/ y5 _5 z3 X; n' Q4 Y
    Cell[BoxData[{: R$ }. R/ R) x3 e8 G
    RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
    2 F9 r2 i. |% f RowBox[{"u12", "=",
      C( q4 m' T/ J4 A  RowBox[{0 z- z* i& _1 N, J& s, N. y' o
       RowBox[{"Exp", "[", ; Y+ L1 ]2 a8 f1 M: _# v6 I5 I
        RowBox[{
    ; e( c1 `3 b, ?( E) H0 e     RowBox[{- \: o4 j* s/ e
          RowBox[{"-", 6 Q" G. W! B" ~' t
           RowBox[{" W+ o* e) g  k8 O* [
            RowBox[{"(", % t. H' z3 ~1 S* q3 _1 A
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    0 V- N8 S9 s* g; _. W' K        RowBox[{"(", # ]% Y) ]' M& Z, b3 J# O) N7 T1 ^  B
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    0 ?) _2 Q# k2 k9 K7 F7 l     "]"}], "/.", "DeltaX"}]}]}], "Input",* K3 n; t5 G4 ^& v
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ) L" R5 [# ?0 b+ A0 u8 \* v  3.57796154237158*^9, 3.5779615576284065`*^9}}],) ]* z7 V, \+ K3 n6 P
    # p! \  _. |# `
    Cell[BoxData[
    $ N1 i7 M' q2 S2 |8 k) P2 U% Q5 } RowBox[{"{",
    - Z  }4 f1 k0 S0 i4 a  RowBox[{+ F% J! O+ Y5 }. ?, z* d# X+ t
      "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", - W. U8 k/ r+ \
       "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}], 4 a( H! b; d$ e+ R9 c
      "}"}]], "Output",6 K, W. v* x, w, P/ ~
    CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],2 K$ C# I) |$ m( I9 l4 u+ T7 M1 p

    * X" @) V/ S1 U- B  WCell[BoxData[
    6 r- I6 d" Y# m8 O* t! v SuperscriptBox["\[ExponentialE]", 6 k6 F" l; O) o" f1 ^6 e1 ~) |
      RowBox[{"3.141592653589793`", " ",
    2 \) b9 c9 p2 f$ j   RowBox[{"(",
    1 K2 ^3 z8 S( G1 t  q    RowBox[{
    6 |; b0 O3 e( D6 r+ M     RowBox[{"-", " y6 K/ G9 P% i! H- F+ L/ k
          SuperscriptBox[7 O$ _4 w. W$ N7 O
           RowBox[{"(",
    - k& j: _1 g1 e" Q        RowBox[{3 a( S& X+ c! B; q. X# Z
             RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", 3 F" \/ U0 `2 I! a0 k0 u( l
         SuperscriptBox[& |# V: j( @: Z8 G  B0 M
          RowBox[{"(", ; |! ~/ A2 o/ @# t( v8 s& c
           RowBox[{
    . }5 L- T  d9 r( }- q6 ^# U1 i        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
    ! J+ `$ v; L9 a     SuperscriptBox[$ Q8 H& o/ t: k) V7 Y
          RowBox[{"(",
    ) L) x. \! W$ J5 b; D; c       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", 3 A# m! R' H0 l- c4 O; i. b; P  F
         SuperscriptBox[5 t* c1 ^9 L) \5 q( [3 P8 s7 d9 q3 a8 c! C
          RowBox[{"(",
    ) Q1 c; C, C% U. `) X7 o! G4 Z       RowBox[{7 c: S" u6 F+ j
            RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", # \5 m) C. z! w
         SuperscriptBox[
    5 f! k2 R* P6 {/ d, [& y4 \4 D  X      RowBox[{"(",
    ' C9 `) s$ O1 t3 P( x! s; Y% g+ y$ C       RowBox[{
    7 G/ h/ Z# p: _/ T, R        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
    % {1 M& D. J! C' v1 ]) @6 t     SuperscriptBox[
    ! N$ k! ?1 s/ {& T7 |% d9 X2 t      RowBox[{"(", " ^' \/ |( N7 M) ^+ c; X0 t
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
      ~; x; |" t, z. t     SuperscriptBox[  f0 z  I  Z/ j" q* l1 e: m9 N
          RowBox[{"(",
    & `- y3 k% @# h% y7 u* {1 ?       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", " r& ^* ?% y7 E" o! `
         SuperscriptBox[
    $ R' g# F4 T' e" w) Z      RowBox[{"(",
    8 a: Z1 u; w% r6 n3 ^( `       RowBox[{
    ) x! e( W: z7 k  u8 K8 e        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", * T4 L- K: v* Q* b9 G0 Z# R
         SuperscriptBox[* l- o" E9 b: N( _* W" v1 n6 e
          RowBox[{"(", 1 n+ r& C3 O3 g1 _$ x
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], - G; q  `1 A! U" @3 k7 B
        ")"}]}]]], "Output",
    3 ^' |* L& h% o8 y* n, O; N1 L2 h+ W CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]: [, \3 L) T9 B' [" Y8 w
    }, Open  ]],
    / X4 L5 A4 J: F7 [5 g  i
    4 [4 z# A: p' M3 c$ k: kCell[CellGroupData[{( y0 k) c# E1 g& T/ b
      s- q0 ]9 B- A# |2 m
    Cell[BoxData[{
    6 Y9 v, p4 P4 p/ Z" O RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]", & l7 g8 w1 ]4 ^( R" ]
    RowBox[{"u13", "=",
    ' p3 x# f; R1 A2 `( d  RowBox[{( d  F( t$ }$ ]4 q3 r
       RowBox[{"Exp", "[",
    7 g( d; d3 R9 U( e    RowBox[{
    3 C( r! N! B. l9 U9 v7 m     RowBox[{
    6 ^# s; h- t. U4 v      RowBox[{"-", ; F- P/ S) A# Y# q, C
           RowBox[{( M7 ^0 ^+ |- g" F: S4 P' y
            RowBox[{"(",
    ; c- J" Q/ {  _) e1 d7 w( c& o         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ! H, Y8 F$ ~( b# [  H1 G
            RowBox[{"(",
    4 b0 F; d& ~# t         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    1 {! [. g7 B' |) I% [9 X+ }     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ! T+ B1 E9 d- m5 `6 t CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    3 I7 m2 a' Y+ }3 L( `' q  c8 D  3.57796154237158*^9, 3.5779615599684105`*^9}}],
    # l6 D" ^3 p7 {& c
    7 [. y# L  m: M0 VCell[BoxData[
    ' s; [" `5 D: f' g' V) w; M: E RowBox[{"{", + C# K2 r1 u) e3 W
      RowBox[{
    4 n! V, ]* h' Z# l8 s4 n  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",", ) Q& g; n7 B; v' U" U# y& M
       "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],   h- b6 K" m/ y% H5 K9 p
      "}"}]], "Output",9 p* g! k* M# {  V- G
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
    ( x9 R. k4 V' K/ Y. K
    5 G) u/ }9 [8 w/ j9 O0 ]& k2 U9 HCell[BoxData[
    0 s5 E# m, b  q+ R7 ^2 E! M SuperscriptBox["\[ExponentialE]",
    : B- E. f- n+ o3 G( |& ~0 @  RowBox[{"3.141592653589793`", " ", 4 O3 U0 ^) T: W* p$ g+ K
       RowBox[{"(", 7 g/ T* I" l2 B2 s. v9 P
        RowBox[{
    / H% ~1 S" W& o" ]     RowBox[{"-", # ?; E/ q6 E1 r* j- t( a2 K5 h
          SuperscriptBox[
    9 D. |6 f: J0 E; d  O" f       RowBox[{"(", ( p( u: G" W7 H4 P% l% j. W2 X3 P- J! d" S
            RowBox[{6 C2 ~- U3 Y, D. T
             RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    : x7 C1 u8 H9 j, I  ]$ B; e     SuperscriptBox[
    % H6 H/ Q! L7 P' A      RowBox[{"(",
    9 E! E- P1 H- f' j: c       RowBox[{' ~4 M9 C6 C: b. p
            RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", 1 c  P, S3 z9 E3 q" G
         SuperscriptBox[; e6 i! A( Z5 k& k2 x$ S5 _
          RowBox[{"(",
    4 @- C" i7 F- V* q       RowBox[{
    & n3 I  c9 t8 g0 O# e& N" p        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    5 s/ _2 }9 D/ ^. W  i3 h' L" s     SuperscriptBox[: h( z) I# I1 a( x, S
          RowBox[{"(",
    / Q6 k: |4 u' T: C5 k4 J6 C       RowBox[{# u  O" q) S$ \/ \' i# N2 ?7 F
            RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", / o$ W& b- b3 ~! r
         SuperscriptBox[1 m: Y. Z' {6 H! \7 S
          RowBox[{"(", ) U1 R6 P3 ^3 t6 @9 O
           RowBox[{3 Y' t9 Q1 `  J1 h
            RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", $ W- K  N( }; A- k0 h( A, a
         SuperscriptBox[
    " K8 R; g2 `1 i6 A+ A1 Y5 V      RowBox[{"(", 5 H: K% D- N6 o  t0 ?2 l: K% B
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    : I6 t2 [9 `! j: k     SuperscriptBox[
    $ t/ n8 y" I& I* s: B2 O5 L" `      RowBox[{"(",
    + L7 ^7 V5 \4 D: M3 U       RowBox[{! z5 R. \  t0 n2 w0 j7 M5 e
            RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    $ _* O3 d$ I. j5 G' f2 e0 ]     SuperscriptBox[+ i) {- X( Z8 b7 e6 N7 C) Z0 i/ M
          RowBox[{"(", % ]  x' ?2 h; ~5 S0 o7 u& Z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    6 E/ k3 R3 @$ Q( B) a$ b     SuperscriptBox[
      a; D' o, v2 x7 k2 n: l      RowBox[{"(",
    0 S  I0 M+ X( S4 D1 R$ }, k       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    + I3 l3 C' S5 ]% h7 X2 M    ")"}]}]]], "Output",
    : q  J0 B8 m' h) W7 o6 h CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
    5 j# Q; I/ e' l) i2 h}, Open  ]],% J# n( {4 z7 d& {# Q( _9 G2 N
    + V. U$ i6 I8 _# m" q. |
    Cell[CellGroupData[{
    # M" A- ~  p0 l+ w/ o  P
    ; Y) t. Y6 b" y: \Cell[BoxData[{. l, T) |  W; ?; g0 C
    RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]", 5 \9 p$ [  X9 S; m3 H; j, x
    RowBox[{"u14", "=",
    : y& Q, t+ E  A/ D* I  RowBox[{, c/ {6 H8 y. d7 }8 m
       RowBox[{"Exp", "[", ' z* \6 _- ~2 T0 U/ A
        RowBox[{
    ) ~9 |0 L8 T) G: K+ J     RowBox[{6 m5 e3 ]3 u8 B8 o* J+ O* \
          RowBox[{"-",
    * e1 @7 b  Q5 `5 f       RowBox[{
    ! Y  U' G6 L& S. q        RowBox[{"(",
    1 y; z8 x: `7 g) u& b, Q6 q# M         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ' e' }. {9 n/ ^  E        RowBox[{"(",
    . `3 X0 q' W5 R5 d         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    + r* X, f$ [8 J     "]"}], "/.", "DeltaX"}]}]}], "Input",
    5 Y" N: o, R" F3 \9 U2 r9 Y CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {  c6 X, o8 y2 O6 \1 N; q5 {9 B1 |
      3.57796154237158*^9, 3.5779615663176217`*^9}}],
    : ]8 H1 C" h, H+ o9 M
    5 U& O3 A: q; ?% S, \* lCell[BoxData[
      X+ s3 ]% R5 k1 _* `$ O RowBox[{"{",
    7 s- X7 k2 a  W" y* N! V8 D  RowBox[{: g. `9 X6 V" u5 g2 H8 m8 l
      "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
    4 L& `) A# W# b; T+ ~   "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], ( l( j3 q0 o3 w1 a0 `! g+ y: C
      "}"}]], "Output",& B! D% X6 L+ l& X9 O3 ^/ {
    CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],
    ! U  Z3 A2 B& i( K& h3 Y' o( V+ _: ]/ j+ }* q# ?! @; J
    Cell[BoxData[; w& P0 o6 q" p
    SuperscriptBox["\[ExponentialE]",
      c9 R9 L, R: I  ~4 A  RowBox[{"3.141592653589793`", " ",
    # X0 I( j; F1 p' g! ]0 S   RowBox[{"(",
    : z1 ?- o9 R, B0 Y- {    RowBox[{8 @$ i. \* c0 s" `
         RowBox[{"-", . @8 B9 j; O) `
          SuperscriptBox[, w6 q, O; x5 H$ B3 s% H/ R
           RowBox[{"(", , M" N5 F! P! a2 O  G! x5 l+ S
            RowBox[{! h4 c. L! j7 o) o
             RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ) X, ~5 O2 a9 F     SuperscriptBox[
    # t/ G: r) u- J! w4 e" Z1 w* _  f- H      RowBox[{"(", ; ?, n; _1 g. l& E
           RowBox[{1 d" X- p; ~1 f- Q! G& k, D! [
            RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", * r& ~$ \! V9 D! i4 g
         SuperscriptBox[9 M. p& H6 q  i. \: z& l
          RowBox[{"(", : n) U7 \, Q- M* n  j
           RowBox[{
    : Q. ]5 P+ j5 e# p3 N) r) }        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", 3 l! Y) U! z( g: l* T
         SuperscriptBox[
    ' e4 v' m) {5 w  l+ K  X      RowBox[{"(", " H2 z0 n+ A/ R! q) C6 o
           RowBox[{( f+ O  k9 D* W: i1 D
            RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", 3 }/ C; J$ b7 c' o! ?0 B" O
         SuperscriptBox[4 {% e9 r4 y) K
          RowBox[{"(", / x4 [+ W0 R; |9 u
           RowBox[{6 a( @2 T+ e/ l4 A; k  e5 q
            RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", 2 S, _5 _7 y' Z! X+ R" N
         SuperscriptBox[
    5 ~; H" w4 F7 W8 g, p/ Y# _  P      RowBox[{"(",
    # _. |) S# ?( O" z/ r# {1 M& E3 n$ l       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ' X5 y1 U- X& d1 a5 j7 G+ Y     SuperscriptBox[: I3 s# C- {7 @, i+ V, r$ w
          RowBox[{"(", 6 x3 {6 u) l# R! g
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 3 d" q) ~. Z! H# {3 P
         SuperscriptBox[1 Y6 m+ D/ M3 p" d8 B* F5 h
          RowBox[{"(",
      m  u- U: S8 w       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    " c- v- n- X" u* b- m1 X- j- J     SuperscriptBox[' Z. p$ u: k& s
          RowBox[{"(",
    ) ?, k# V! ]/ I  H9 c       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ( g. J' ~3 [/ Z
        ")"}]}]]], "Output",# G, q$ c+ l; L) ^- a0 a4 j
    CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    / R4 t5 a# B1 t! D}, Open  ]],2 P' n  x7 g6 h  ?; k) R+ h3 P

    ) [: |9 _( T" Q' N  DCell[CellGroupData[{
    7 [+ ]: Q8 `' k& B! H0 q8 H- E
    ' d7 ^$ X, S% R* b4 k3 O  F! ]) JCell[BoxData[{& n1 o! ^5 m# t, S, V, p
    RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
    + X$ P: U% }" K# i3 w RowBox[{"u15", "=", # E3 ^; I$ l2 r* ]# S! I
      RowBox[{4 t4 G2 T9 j  C3 a  O' {+ G9 S; a" U
       RowBox[{"Exp", "[", , S. A; o% H$ Q8 ^( \
        RowBox[{( X" x  I/ M. o, J; |' z
         RowBox[{
    8 w* ]/ a& o0 s5 L  j3 y+ ]      RowBox[{"-",
    6 y, \7 o+ k; k" |! s" Z       RowBox[{
    : u. o. a5 Z' S, T1 _' i        RowBox[{"(", ) Z' I+ c' a5 F4 \
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " Y- B& ~" Y1 A/ q" O/ L2 n0 `6 `* ?        RowBox[{"(", , n$ z2 V) @/ U6 _
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],4 l6 I. I, G; f. f2 S( t
         "]"}], "/.", "DeltaX"}]}]}], "Input",6 e  @$ u( d; R/ x# e4 R8 {
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {! ^1 A, Y" T# c- F8 N
      3.57796154237158*^9, 3.57796157098203*^9}}],
    # T; N; t1 V+ b( }1 b; `1 i* d! e# {$ |( a4 O: Y
    Cell[BoxData[& f6 _# b5 [; i8 d
    RowBox[{"{", ) v! c- J% r+ Q/ H$ ^9 d" D, M
      RowBox[{
    & w# h: e0 @9 N& z6 @  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
    - k" @* y6 d* a, F3 h- t   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
    ' p9 Y7 ^) b  O! l7 B  i  r" [  "}"}]], "Output",. x0 _/ ~" }% E! j8 L5 ]
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
    % [  X& H. ?2 f6 N0 L8 ]) s, {% D) Z; x; m( y6 i) w
    Cell[BoxData[
    2 l5 s" H! V' [, \ SuperscriptBox["\[ExponentialE]",
    - ^5 ~+ m# e7 w2 Y0 _! k6 k# k. @  RowBox[{"3.141592653589793`", " ",
    8 w. t! V! f, E* i5 z* B   RowBox[{"(", ! n. a! d& g5 R3 Q% z5 |0 J
        RowBox[{
    - _. ?: j& F. O6 I, F     RowBox[{"-",
    - q! P9 P8 p" G; I7 u6 N4 f" m& {* A      SuperscriptBox[
    ! O4 M+ L- W; S+ h9 P       RowBox[{"(",
      {6 l; D4 W  ^# I# t4 Z        RowBox[{% p' ^. \0 z1 b- w5 A% n: J4 @
             RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", + f2 t0 h: ]6 I  Z
         SuperscriptBox[# h/ A. C/ [0 V  f" B
          RowBox[{"(",
    9 H3 _2 i% R6 o       RowBox[{5 M5 E# I7 s. b# S
            RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
    9 [  z% ?5 ~6 ?4 n& h. r( l7 Y     SuperscriptBox[1 w- }8 v" Z5 k  Q
          RowBox[{"(", ; a9 d: l" N8 a
           RowBox[{
    % ?! k6 B" b2 a0 |8 ~        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
      C3 D) o& v. Q3 y1 w" p& M     SuperscriptBox[; L: i1 Q8 i+ U6 S
          RowBox[{"(", 7 S7 f3 b6 ^2 v" m9 i! _; ^( {5 m/ c5 e
           RowBox[{. C2 g' b7 G! D  ]
            RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
    6 y* Q/ V& R! g# W     SuperscriptBox[" @+ d( e9 Q! S* I3 q' h8 P' h
          RowBox[{"(", ) B' B& P  A( }' Z4 z0 ~  y
           RowBox[{. Q, D: n+ P. o' B) ]  j2 r
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", : l2 H( |+ ^/ d/ u& j
         SuperscriptBox[% N2 g6 I3 m" Z8 J- A
          RowBox[{"(", ( d  `" u. g: L& E
           RowBox[{
    - h5 d/ E$ k' k8 m* ~  w        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", 2 w4 t% i8 [) }% w8 x
         SuperscriptBox[
    ; Q  C, n8 T8 {( P3 y& m      RowBox[{"(",
    7 X! y! b) j$ `; j/ I2 Q7 M3 q8 L       RowBox[{
    4 y1 [# c  |2 j, E        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", : g; c3 {( r! A& L
         SuperscriptBox[
    - R0 p' H) g# S& i; u      RowBox[{"(", . y2 u4 {1 X& V( X' O7 d8 b9 j
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 7 _9 ~- ?' F6 F- s
         SuperscriptBox[% \7 F( u' G8 J" q0 b5 b, A
          RowBox[{"(", * r8 C  @4 p) Z& ]& ?( L) T# O
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ) J  T2 @2 r) X9 h# [+ k8 D9 N
        ")"}]}]]], "Output",5 u3 {5 {- B5 e4 A! `
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]# _/ j& ]; B3 z5 H
    }, Open  ]],  }* L) b8 Z" M2 _7 S5 l0 U

    2 [" d  x7 e! H: SCell[BoxData[
    ( ^# r8 K2 k0 h/ e5 Z& t; j  _/ o RowBox[{"For", "[",
    ) P6 ~3 K9 U  g( m  RowBox[{3 k- K5 z& `: [
       RowBox[{"i", "=", "1"}], ",", $ y: D" A& N, w9 e2 V
       RowBox[{"i", "\[LessEqual]", "9"}], ",",
    * V( N. S# V" `- S( r   RowBox[{"i", "++"}], ",", ' p3 Q0 e8 p! ~$ J4 Q
       RowBox[{. {) A  o! }, Q' B3 t8 ~4 v" R
        RowBox[{"Ca", "[", ( G& M5 `4 i! |) Z
         RowBox[{"[", "i", "]"}], "]"}], "=", # U# P8 A+ T) p( I
        RowBox[{"CM", "[",
    ( M+ y* v* X! ~8 Y$ u     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",* l  m! s( E! ~) d+ M$ E1 g1 F6 g' t
    CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],3 K' y$ P  N, Q* r$ n1 q  a# v

    # M8 T" b! X5 {' tCell[CellGroupData[{
    ; ?. b; ~& C$ b1 v7 H
    ; r! L4 I) h' V2 YCell[BoxData[{/ [# M& j  {) R8 W' W6 M/ R
    RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]", : v/ N6 i! \, r% U" g
    RowBox[{"u16", "=",
    9 E) }" K: Z- ?1 u4 q  RowBox[{
    1 ^" U2 q& j" U   RowBox[{"Exp", "[",
    3 C. `( Y! W# t    RowBox[{6 ]8 A% L! r! M" f4 @' R) ]
         RowBox[{6 y7 c# D) U8 }1 g
          RowBox[{"-",
    " A$ I' {" Z# F       RowBox[{, n+ y$ v+ ^4 F. R9 d
            RowBox[{"(",
    " Y8 r, B* l- s; w; ?; q" b/ N         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    0 `' ?+ \3 `4 A" O/ N& z        RowBox[{"(", : ]; G- d! Z: t% K2 n. }9 z- E
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],! _! T! p4 d6 o5 y" ]5 w
         "]"}], "/.", "DeltaX"}]}]}], "Input",/ q( Z4 ~5 K; S8 q& O8 Q# q! p5 U* u% p
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {2 B8 U* W! h6 A! ~
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
    ' q! b" K  b3 B" L  3.5779615751004367`*^9}}],
    3 @6 k3 _( {; Q5 V9 l
    , q1 q% H4 k. BCell[BoxData[) q3 S/ W5 D+ ?5 D
    RowBox[{"{", ) ^- S/ ^9 {5 f
      RowBox[{+ m# g1 O$ u9 I2 I) P9 S% q
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", ' m* o2 X! b' r) g/ m4 z& K9 G
       "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
      w: y! g3 ]4 ^  "}"}]], "Output",
    & }# P' Q. W4 t# g$ C6 Q CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],! s6 |$ j1 T& s) [) H" h; ?

    0 g) `; U2 s$ u1 A- D& MCell[BoxData[/ |$ r, C3 R1 S
    SuperscriptBox["\[ExponentialE]", 1 A; |6 w/ K7 \
      RowBox[{"3.141592653589793`", " ", ) q( ~0 s$ n9 D; ^6 W
       RowBox[{"(", 4 c' G( R* I; O. c7 e
        RowBox[{
    8 s6 V& j& H3 F) s8 t* W8 |     RowBox[{"-", 9 B5 W6 m- g: c7 A+ N, b* z  e
          SuperscriptBox[  c' ?6 ~5 K3 T7 |  |
           RowBox[{"(", " m0 X9 r8 [  v4 `/ O
            RowBox[{
    & y4 p0 L& P) {* `* r$ u+ _. O4 \         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", & Q1 T5 V# u: \0 U- v) r9 G2 x) w
         SuperscriptBox[1 Q6 W( H: P( C0 C
          RowBox[{"(", $ ]5 d5 i6 |! F! @( g
           RowBox[{  C0 }! Z+ E7 O5 S) E; L
            RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
    & k% Y& @1 \; P$ H( t6 o     SuperscriptBox[
    ! S. z* S/ f: Y+ h' g      RowBox[{"(",
    * v4 @* |8 x9 C1 B$ P- m* L       RowBox[{/ A/ z# m3 ^! V9 S
            RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
      b! y5 `% C+ J! N( v/ ^3 z$ ]     SuperscriptBox[9 w# M+ k3 Y& {- V' i# r
          RowBox[{"(",
    - l4 L7 ^8 G3 j' {$ I  i       RowBox[{
    3 J& n* G7 v' {+ h# o3 |) Q) u9 C        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", ( l' J+ l4 t/ _8 I# k& q
         SuperscriptBox[
    2 Y" D/ W' o  b$ J4 R; n! _      RowBox[{"(",   K7 {% r) `5 _3 c
           RowBox[{
    - i, g5 _5 B' B, G6 V2 W  ?        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
      c# T1 Y% t" \, `( a: @     SuperscriptBox[' X8 R; K- m0 a1 A" H$ V
          RowBox[{"(", - h& U5 [( b/ j7 ?
           RowBox[{* {% x( M- k& d9 g$ U
            RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", , U6 n2 [, m) O" G5 k2 |& f
         SuperscriptBox[* S4 E5 v  Y5 D( _  Q
          RowBox[{"(", * g3 @% `& @5 {
           RowBox[{) V7 F# y: `/ w0 N$ [; N
            RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    7 N4 ~  e! ^- o$ ^     SuperscriptBox[, Q2 p  Y; o$ {9 ^, N8 T  I
          RowBox[{"(",
    2 \$ H; K) l- B; g       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ; p* I* K) I$ z3 L% p1 C
         SuperscriptBox[% K& M+ @, W9 Y* V# @
          RowBox[{"(",
      a6 }2 u( C1 c# a       RowBox[{
    ' P6 T- S" ^1 M        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
    7 f' M- D- c8 A$ Q+ C3 b CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]/ }) O  X# ?5 z# b" [( p5 W2 z
    }, Open  ]],. A" \, O  _* H; S

    2 O& w" P' h* `$ Y3 ?" E( ]& DCell[CellGroupData[{
    : ~1 V* k, p4 Q" `' H7 T( ]+ a
    2 ~& v* |6 x  V5 k' [) Z2 cCell[BoxData[{/ j$ t  Z# c5 x( N/ g
    RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", / B. _4 x' A8 W# V% r9 D' z0 {
    RowBox[{"u17", "=", 2 B- {6 v  F( L; ~! f* U  e
      RowBox[{% B9 s* I7 L. D8 e0 i6 I
       RowBox[{"Exp", "[",
    ' P8 G4 p" c3 S  b7 u    RowBox[{, J& `1 m3 F9 O) |! s; c5 u
         RowBox[{$ s$ h& O- P9 ]: T0 g
          RowBox[{"-",
    8 b/ t5 z% b, k. h- o5 L2 g       RowBox[{* e  b8 l; {# f$ M" S2 ~
            RowBox[{"(", 7 n! J% a* T, d! [
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ' J( ^2 e+ I/ ]7 W9 a        RowBox[{"(",
    0 C/ w( e, T8 z/ Z  f# f         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    % ~$ A: r" T! i     "]"}], "/.", "DeltaX"}]}]}], "Input",
      b% D* ~  \: U- O  P CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    * K+ A9 p- w9 |8 R! q$ D  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
    3 y6 V- u  j1 y  3.577961578953644*^9}}],
    2 V  U) u& S6 T' b7 A; O/ a+ n6 A- i% _* Z- l+ ~' ~
    Cell[BoxData[7 A& O* E/ n9 @, ]
    RowBox[{"{", * P" N8 [; ^) J5 c
      RowBox[{1 G& o$ m2 \) B, [+ s: [
      "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", / I, u' K2 w! `2 C) q
       "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
    2 `. g9 I$ P2 j- Y5 G  "}"}]], "Output",
    . E9 ]2 W6 |. Y) r CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
    9 K. F. L# F. k& q1 m! x! h) Y6 w8 a  p  H$ Z8 n+ _& B
    Cell[BoxData[( T; `$ _' h# Y
    SuperscriptBox["\[ExponentialE]", # M0 g  `) R0 A' I
      RowBox[{"3.141592653589793`", " ",
    , N+ P" E4 r8 u/ W3 x   RowBox[{"(", ; w# ]# Z- u+ \
        RowBox[{
    / L7 k9 b$ H+ B" ~+ t* F     RowBox[{"-", : @! w) }, j: N( t+ \
          SuperscriptBox[
    " ]. x. K" A: w3 U       RowBox[{"(",
    8 c. H! l( g% R4 W; M5 M; f        RowBox[{
    ! H" L" V) Y* K. o9 I; O         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
    - U0 A9 c4 w, n8 W) j     SuperscriptBox[
    0 I, `) S( `3 ]. E      RowBox[{"(", 8 O* F$ \$ O& I8 D. ?
           RowBox[{
    * \' i4 O+ J5 O1 i        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
    $ ?- b$ s6 }1 d: @: X) u     SuperscriptBox[
    - R& d# j. l. E5 V$ Y$ |      RowBox[{"(",
    5 v3 y' I3 I5 `) _9 t3 `7 Q$ K5 y, X       RowBox[{) [) S' ]& L( a8 [
            RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
    ! w) [/ P4 D" A- B1 k9 h& r     SuperscriptBox[
    ) L# p1 b( ^- {' ~' S% u      RowBox[{"(",
    ; _% b( U  c+ N1 r; [* r2 v       RowBox[{: g) i- e4 T$ S- ~* p
            RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
    $ G+ R8 U6 b  k# x$ B     SuperscriptBox[# n( Y- j3 L5 Z, w' }
          RowBox[{"(", # _4 M# u  E  x) K$ ?6 H
           RowBox[{
    5 D2 j9 H  |& R& ^: V  U& o( I% ]        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", 9 D, m5 _, T8 g8 d% O
         SuperscriptBox[1 o2 e" g6 @2 u# ^8 K
          RowBox[{"(", % g  y7 A: H+ u
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    5 T$ j' h5 M2 F9 M     SuperscriptBox[
    * Z2 ^& o( X1 L& Y! u; O      RowBox[{"(", 5 f" ?/ W0 [4 V' p' j0 E& K
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", % j7 d+ ?7 |2 m
         SuperscriptBox[+ W; c/ Y& S3 \" K& b( K) T$ }0 F
          RowBox[{"(", & |' A, L% u( q! X* r
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ' A% e  ]3 L$ [) k# }
         SuperscriptBox[0 k3 ^4 p+ P7 h& `1 [  t, S( `! ]
          RowBox[{"(",
    ' |, N" s& X& t3 R) C       RowBox[{
    ! S  ]  _) d0 R* U+ M        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
    ' x+ K( B0 w! d( W    ")"}]}]]], "Output",
    ( W/ z9 D5 A0 k: m CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
    7 J: C0 C" X4 P2 g' q$ J- N- R}, Open  ]],2 x8 ]5 L/ \" k# a, U) w  U' b1 ?, e% Y

      f' g% I) O9 e% r/ \Cell[CellGroupData[{" [/ M  D& V7 Y  Q

    2 D5 D! f8 l; JCell[BoxData[{, _5 o6 L" J5 g3 Y7 U8 G4 `
    RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", - C' u. q7 A1 ?7 J. D
    RowBox[{"u18", "=",
    ; T  R9 O  W& d# o' G& g  RowBox[{  M4 h  d8 O1 X" C5 X
       RowBox[{"Exp", "[", # v8 `( t7 ^0 z" w% R
        RowBox[{
    0 ~) g2 f- _4 ^' e$ R: A: v     RowBox[{& v. r+ F5 z9 ^2 r0 B% t  E" a, X) f
          RowBox[{"-",
    . a! t; K+ z& y! j9 [; u       RowBox[{
    . J, {) W( [' T. `  N; L" g/ V" G        RowBox[{"(", 3 v& K/ e! |- c1 @" R
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " d' Y: I4 J: r. ^6 j; [        RowBox[{"(", ; X0 G) M* h+ w) h* T
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],# n6 v( t  }% n9 o* p
         "]"}], "/.", "DeltaX"}]}]}], "Input",4 ^# l- m4 L+ x# A
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {/ F! G& i' s: u
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9, ; I) ~) D; H" k5 ^
      3.5779615828848505`*^9}}],5 o6 s/ O7 |( p

      D) g$ G1 d# ICell[BoxData[
    ; `3 o8 M, e2 n+ N" E RowBox[{"{", , e- k& c! a' m
      RowBox[{5 Y& n% k0 ^# _5 P
      "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
      ~# w4 y6 S! {   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    # }( v9 ^# g3 l! q$ s7 m- }  "}"}]], "Output",7 l% }7 ], v. i6 f
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],3 ^$ E2 }7 ^9 v) h2 P' Q; E7 G0 e

    % Z# i2 ]' V6 ], r% A3 HCell[BoxData[: b: a5 p$ d3 U. q
    SuperscriptBox["\[ExponentialE]", ( s6 k+ ^- c+ H& C$ o
      RowBox[{"3.141592653589793`", " ", " e3 d$ z9 }% y% j0 |8 V# ?
       RowBox[{"(", ) I- R2 Z/ N# J& I$ ~1 L( N
        RowBox[{( y8 r9 ?( a! D2 j9 A" l" q
         RowBox[{"-",
    9 A# `% ~- o- o' a      SuperscriptBox[, h7 H! k. ?5 T" |$ W1 j, @* B8 W
           RowBox[{"(", 8 O1 b' b# }) i; a* H7 Q  ~
            RowBox[{% t3 p0 b; n( `- h
             RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", : v, \, m/ D) \) g, x) i& t& ?
         SuperscriptBox[
    # I! }- n  p* n; n6 J      RowBox[{"(",
    # _0 Q2 s, g# V) @5 g/ q) K       RowBox[{
    4 |$ X$ D0 \: N( u/ o3 w$ o3 t5 M        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", 7 _. H- H$ {/ M( R* k5 `  z
         SuperscriptBox[( K# a) {2 E* K" W0 Q6 Z% P
          RowBox[{"(",
    3 U' x! T; z/ X9 H- K       RowBox[{
    / b1 u4 K1 ]- w; l- d        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", " n+ W/ A: j! ^- M% H* u. a& ~6 V, y
         SuperscriptBox[
    ) v  g. |' y$ v0 {      RowBox[{"(",
    7 w+ p& I) S! f& [       RowBox[{
    - b: [/ p4 d  l        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", $ M. G  }9 A- G
         SuperscriptBox[
    ! G9 w2 N, Y$ S7 m! O      RowBox[{"(", / r) B( ?5 x" W7 s& e
           RowBox[{
    ; q  _4 r3 Z) e4 l8 Y% [$ Z- o        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    5 D  f/ N% s0 R     SuperscriptBox[2 `6 z2 c; d+ Z2 }  A; u
          RowBox[{"(",
    ' R3 Q) J! T+ P$ q- M       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    6 x; F3 K& C1 R# j: ~" Q. O9 @& U     SuperscriptBox[
    4 M( v  y* Q4 a7 a& c% A/ ^      RowBox[{"(",
    8 `0 n0 _& N+ `' H8 |7 Y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", & E+ J! `! }% M& D. z% E3 f. Y1 m/ j
         SuperscriptBox[0 }% Q/ B! F0 a5 ^3 `* F5 [
          RowBox[{"(",
    7 k& I$ W: d: v& S- q: h0 ^$ l       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    - P4 Q; X$ U7 k& Z" G, p2 S' W0 G! G1 y     SuperscriptBox[
    - x% ^0 h+ v6 v) Q) V      RowBox[{"(", / m" }& D, Y7 [7 c4 i
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], " Q4 P, X, q6 q9 u  H. g
        ")"}]}]]], "Output",
      p- K" P* y& X# G" y CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
    1 q$ }1 [1 Z" h  c& t. l}, Open  ]],; J6 j6 E; [# e, j) [' ?

    3 h8 A* Q+ x4 H9 Q# SCell[CellGroupData[{
    ! D2 ~* F( _& Z
    5 E/ X7 ]% N& W% |' `Cell[BoxData[{9 X7 q/ ~5 g; X+ D9 J
    RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]", 5 D: h5 ?& |6 D+ {+ G- K4 M
    RowBox[{"u19", "=", / `: U0 {" Y8 m1 V% X
      RowBox[{
    4 y0 w2 K; {4 I' R: v   RowBox[{"Exp", "[",
    8 t! B. B1 i! Q3 a    RowBox[{( r7 w% B7 r% H; C0 @9 L: W9 g
         RowBox[{, m. |; w9 o( n
          RowBox[{"-",
    " w6 a0 v2 j: D1 K& \0 e7 k9 Q       RowBox[{
    ( ^& b3 t2 n  v: O; C' E        RowBox[{"(",
    + l# ^. J! l) I8 ~7 Y" w         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - K! J; d6 c2 F2 N* _& Y
            RowBox[{"(", 7 m( \! i  P7 i- C1 E. F% `
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],: }* M& ]- w( u5 J- C' f3 e* @" U/ `
         "]"}], "/.", "DeltaX"}]}]}], "Input",2 u' t. W* u3 w. W, ?+ Y
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {* i$ Y; a) f' t* ^* Q7 L7 g$ b$ j8 l
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9,
    4 F8 a9 J/ Q* F" Y  3.577961588890861*^9}}],
    ; F$ {/ N: Z8 f7 I$ l/ d# I7 _
    ! M1 T; x# h; C0 ^/ FCell[BoxData[
    . Z) D/ Q0 ]- ` RowBox[{"{", # L& q) c3 I- a' q0 f
      RowBox[{
    * {, W. \( C* G( b6 G  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
    5 S0 v. M; P- v1 j, s$ _, I9 Y   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}], 0 k3 P2 i" p5 ^
      "}"}]], "Output",
    9 C, Z& l4 e9 Z6 ^5 {; O8 S CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]," t5 m  o3 ?5 R
    4 b( t+ g, j8 e, ]! z0 u
    Cell[BoxData[, y8 W8 Y( P- x. P; @  U
    SuperscriptBox["\[ExponentialE]", ( X  V! [* S; \
      RowBox[{"3.141592653589793`", " ",
    7 f( i: Y$ {. t' ^  h   RowBox[{"(", , _8 m* B+ O/ ]! Q% o; E
        RowBox[{
    & H0 A9 Y+ T# r% v8 a) ^3 k4 A     RowBox[{"-",
    * B! |5 A# I2 ~! v2 _      SuperscriptBox[7 f+ ]' U) @$ X; j
           RowBox[{"(", % U3 N0 Y  l: O6 k7 d" q  `$ ^: z" S
            RowBox[{
    : D( b/ A* ^. _7 S         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
    # z) ]. s8 l) N1 ^  w     SuperscriptBox[
    . n' t) T6 C. ^# m/ M- z# M      RowBox[{"(", ( [3 U$ O* i) I1 \2 p
           RowBox[{# J0 W6 U6 Y1 {* ~
            RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
    8 z* `4 \* V1 Y7 z3 Y     SuperscriptBox[
    , Q; `0 l1 w9 l3 ]. F: B) Q- |      RowBox[{"(", 5 A# X+ G( `& t, t! l* z9 c3 @! r8 K
           RowBox[{
    ! W- c" b& Z0 Y) B+ ?% V        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
    : {  X7 w+ N: [( r2 a) u& A     SuperscriptBox[- q$ ~0 C9 [  c/ n
          RowBox[{"(",
    ' m5 y# y: Q- r! A: G" @& P       RowBox[{
    0 `, s# E: K6 F7 K3 A  a        RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
    ; G9 x7 C  g3 O' x2 K: H     SuperscriptBox[( \" l  E0 U' ~$ u" G
          RowBox[{"(",
    * ]; I9 y, @5 W; l; W2 l. t# p       RowBox[{
    ( e$ G$ O& R. T3 K; S7 L) d        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", 5 t  D) K) u3 I! X3 V1 y
         SuperscriptBox[# t8 ?9 ]3 {5 s; p/ N. U' G3 R5 F/ s
          RowBox[{"(",
    * g3 t$ K6 ~9 ~2 O% }( _       RowBox[{( I5 {- z1 `  i8 a4 N
            RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", - \8 o+ b( T) L! @
         SuperscriptBox[
    ( ~) @$ H* D! M: G. }; f* Y      RowBox[{"(", / e, o9 }" Q9 `4 [9 I
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    ! n5 x# t8 o$ a4 X     SuperscriptBox[" Q3 T0 x5 L/ Z4 ]$ _# H( \
          RowBox[{"(",
    5 \+ H, Z# j3 o; T1 W% N! ^8 Z       RowBox[{4 k$ @$ n3 _3 Q# `- l# s5 Y
            RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    ! ~' n& ?5 ]# ]. a6 W: Q* i     SuperscriptBox[
    ! O$ D) l: S! p8 Y* B; e7 t" a# O      RowBox[{"(",
    5 c2 \- C6 A, J, h" u5 ]9 S3 u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 9 n: C6 ?* X# l# Z7 B
        ")"}]}]]], "Output",
    8 ^" w3 d, y. W. v CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]$ n) j9 I4 _1 K8 X, K. P
    }, Open  ]],: B( b/ B6 ~( O: S
    # U8 {8 K+ ?: T" I$ q3 p5 t3 x
    Cell[CellGroupData[{
    : |8 A: U1 ~3 f0 U/ Y( N* N3 \7 Q3 e- m$ P; O" ~: x( `% P
    Cell[BoxData[{. V: w( ^) w% o* ?. K% V6 b( s4 c
    RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",
    / a" J" ]  R. r: a" Q7 Y9 J! N$ o RowBox[{"u20", "=",
    ! Q$ ^& e/ Z/ B- _$ }/ l# d  RowBox[{  [4 b; r- b( B( x# R
       RowBox[{"Exp", "[", - q( m; Y# `& ~. `
        RowBox[{+ W; Z1 |  h, H
         RowBox[{
    5 w- Y! @: [# o; l      RowBox[{"-", $ e4 c& J! j* r3 i. m% N
           RowBox[{
    , ~# H/ q* s4 ~, D9 s; g1 A        RowBox[{"(",
    6 }( U0 ]) o. p& f& S$ _         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", / @  _/ \, i5 _# t. Z1 K+ h
            RowBox[{"(",
    ; ~! S& V$ x3 v7 A- v4 a- O         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],/ I9 D" N0 Q% v
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    ! j  X+ R- F& J5 s CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {: y0 c. W9 U: ~8 `* R
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9, 8 v; b% V3 Q  E% l4 J
      3.57796159382047*^9}}],
    ! i: L: V- h% _
    * \  _$ J5 R, T: |* yCell[BoxData[3 k; G) N3 z0 B' a4 E. T
    RowBox[{"{",
    5 S' S' S" G4 l. Y8 J  RowBox[{
    5 D+ r6 y& x0 K& j  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
    . W& M3 g# y# t2 k   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
    ' s0 j8 X# c, `8 K2 e  "}"}]], "Output",2 C- G3 c4 r( e
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],. q& a3 H' @) W4 V4 c! P1 t

    # t( i' s0 _* rCell[BoxData[2 G4 {0 T0 A0 t; x6 E2 y7 ^0 C
    SuperscriptBox["\[ExponentialE]", # e3 }" l, ?4 ~6 ~7 `) @
      RowBox[{"3.141592653589793`", " ", ; T! I8 X. K/ j( |# G
       RowBox[{"(", % u- o, h7 S" D
        RowBox[{
    ' d% e6 f: x- r     RowBox[{"-", + C( ]8 r( m! p% Y1 Y) s- l
          SuperscriptBox[  q- V1 p3 o% c2 s6 C
           RowBox[{"(",
    0 V7 b+ H9 ]# A6 d' ?        RowBox[{; C9 M9 A  ~+ `- Q) Y# p+ N
             RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", % H# A7 ?1 G: r  ?; C8 b
         SuperscriptBox[: }0 t3 o% d! G4 R$ G/ i: B
          RowBox[{"(", $ O& b$ `' ~+ q, y! V( U
           RowBox[{1 u$ l* |) R& ?; R3 P
            RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
    ' q  @* W+ a, D     SuperscriptBox[
    ) \, l. `) m3 I: X5 Q% f/ G      RowBox[{"(", 1 E; Z6 R% ?2 B
           RowBox[{
    , @2 ?9 ~' {  Z  j        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", # H2 b/ r4 _/ e+ ^6 n
         SuperscriptBox[* F  S4 F2 ]/ G( T
          RowBox[{"(",
    : M: g  l" u( B       RowBox[{
    # u& r, m6 m) ?- e+ F        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
    ! N4 L$ J' _- d$ u4 C7 [     SuperscriptBox[0 E# d+ {7 ^% P) m' d6 p- _/ p
          RowBox[{"(", 1 a6 q8 k" {8 @8 q
           RowBox[{
    3 }! y# T9 o, c% l( p1 ^$ D        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", % Q. t7 D, E, y9 Z: q2 p8 `
         SuperscriptBox[
    . D: [8 N# o) ]9 w; [      RowBox[{"(", ) P0 A9 D* f7 p8 S: c
           RowBox[{
    . \0 r$ j+ C; I        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",   I- h: S' w1 f6 h" p
         SuperscriptBox[5 B" p* x& {, P" s
          RowBox[{"(",
    + H) r3 N6 _: r7 \- @- e       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    8 m/ q5 T6 n7 B( E/ J     SuperscriptBox[/ O' ]8 s# y- b& b5 l  `7 B" Y
          RowBox[{"(",
    9 M# H+ l. O) x, D       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
      |. u9 x7 j' F. V' y     SuperscriptBox[! Z$ h# S6 L9 u" a& D) Q
          RowBox[{"(", 5 Z2 ~2 {! `- s4 W/ |: B2 `( D
           RowBox[{3 m+ t/ W" x  ?) [& C7 f) u
            RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
    " P/ [* Y+ ^9 n    ")"}]}]]], "Output",. H- {2 y8 b; p8 D! k
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]: Z4 l7 T. z; u" N# ]
    }, Open  ]],
    % I& ~3 E+ C" g4 @8 d% I; ^3 h! ~* R8 l" F8 G
    Cell[CellGroupData[{4 F0 J, N( h! u; `5 y. C% I8 U
    & ?7 ~6 q  y$ ~9 l* j4 E' k% V
    Cell[BoxData[{- v" S- q; G  \/ Q. N
    RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
    $ G- E( D4 c4 Y, H RowBox[{"u21", "=", & J5 x1 y' c: O1 \5 m
      RowBox[{8 E1 S/ s9 z$ p9 g5 y; G7 v. |
       RowBox[{"Exp", "[",
    , d' e  t3 v$ M    RowBox[{7 h+ m3 Q5 Q% x! z$ ^# f
         RowBox[{
    + R, Y8 F. m, z& Z; n      RowBox[{"-", . l. a% q1 R- c& m; v
           RowBox[{
    6 m* ~6 q5 Y& A& x        RowBox[{"(",
    2 B' _5 e5 P) o, O0 `         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", & M8 c' d, M4 {9 x
            RowBox[{"(",
    1 C* [1 |+ F; A; Z" V0 W5 |         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],! H/ P+ D. r$ P: u- D2 [; h
         "]"}], "/.", "DeltaX"}]}]}], "Input",6 b+ Q+ I7 u+ D$ T, E9 |
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    / Y6 V" W' p, _( i  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9, 9 s8 H( ]( }% t; [  L) U
      3.5779615991556787`*^9}}],+ W  b4 s5 H2 h9 @# [4 [4 i
    9 N  U0 c: i1 ]2 n( W
    Cell[BoxData[4 F+ ?, s8 Z% ^7 ?5 `  y; O& _
    RowBox[{"{",
    9 [( d3 k. Y! i& r  RowBox[{
    / O6 Y* Z: d: G" h8 ^4 E! z  `  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    . w. n) c& R2 A+ ?   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}], + D- d8 h0 @+ W9 w
      "}"}]], "Output"," U0 G3 n% ]& |1 `
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],, [; t" o% j7 g* T

    ! E5 K( w4 _) P4 W. TCell[BoxData[
    5 G3 n: E: l" ~' O* _ SuperscriptBox["\[ExponentialE]", / Q& f. f4 j5 m1 X' S" k0 x
      RowBox[{"3.141592653589793`", " ", / l' [7 B. {1 z" L# M
       RowBox[{"(", $ W& n1 ?6 c/ j% w* _) T
        RowBox[{6 v/ P9 t+ ^3 _: {4 e
         RowBox[{"-",
    " ^' u6 V5 ^* p; j3 `9 h      SuperscriptBox[& f+ D0 N9 C/ w4 s; ]' k) ], X
           RowBox[{"(",
    " T1 @! E% ]5 @9 e6 n6 P; T        RowBox[{: h# b! N0 A% l7 h
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 O1 F" H2 t8 T' z) O+ W$ Q
         SuperscriptBox[& ?7 @* O& T0 t& `. N1 ~# h8 s& z
          RowBox[{"(",
    4 C9 U' m( ^- W* @. w       RowBox[{
    ; V3 ~( Z  r/ n; H3 M) j        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", 1 Z7 x( Z1 r3 o& ^& M4 p
         SuperscriptBox[. [. W: \1 l- r/ m
          RowBox[{"(", : W3 L# n2 Y  t$ E2 k1 i* G
           RowBox[{; p* H) h3 U/ h2 @7 ]+ i
            RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    $ q$ q0 Z; D  }" B. _4 G     SuperscriptBox[- M6 `  X+ q! |$ P) q3 ^
          RowBox[{"(",   c8 z  P+ C0 z: U3 T1 a/ p
           RowBox[{" |* r3 u6 B  G9 R4 C% P
            RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
    6 L- K" }7 D& B1 |  D     SuperscriptBox[
    ( d& l9 M9 H$ s/ t* D      RowBox[{"(", ( f5 t' C$ v" q3 c  b
           RowBox[{
    6 m, {$ E3 [* e$ X+ ]& c9 n, X        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", % R4 M0 R) h0 R) J, ]
         SuperscriptBox[
    # V8 X: X" H3 m3 h! U' z      RowBox[{"(",
    * t! X' c# R0 U( y' Q4 {       RowBox[{
    + n4 W' o! @! M. l        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", 0 T) I9 N5 G) x
         SuperscriptBox[
    1 l  o' X. y/ P2 q9 b      RowBox[{"(", ' F- i- p- a4 i, @
           RowBox[{9 o5 a2 o- ]0 H5 P' C) T6 D
            RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", 5 B, k3 Y# [' V/ \: t7 Y; I- V
         SuperscriptBox[# z% p+ z& o+ ]
          RowBox[{"(",
    % f  j& ^* @7 }# k) Y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    2 }  m' d' i9 J1 h- V) k' y5 X     SuperscriptBox[$ j$ a3 t: y) u% d; E8 r: W! ?' s# x
          RowBox[{"(", " d. d& B# ]4 @! C  {9 ^& G
           RowBox[{( Z( [) W2 V/ I' }  F1 J! p; n/ E8 ~
            RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
    8 q7 O% Z5 K# N    ")"}]}]]], "Output",  q5 l, x* }, `* Q5 v& \8 @; Q' }
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]
    3 p+ R( t+ d& q, B5 Q) P6 D}, Open  ]],* e0 r2 T1 z& [! R
    , _% z9 Z8 l2 n, k. V) [, y) J
    Cell[BoxData["\:62df\:5408wi"], "Input",0 u; h- B) c9 Y$ n5 P; }+ ]+ d
    CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],/ t' g. r: v7 Z' k7 ]8 ^

    ) x4 F  `! }4 y7 c# `* OCell[CellGroupData[{
    7 g) K4 w+ s3 C5 N- T
    " k7 k0 B+ c, A9 {$ R0 d: |6 L7 [Cell[BoxData[/ c, B0 H# \% k; `
    RowBox[{"y1a", "=",
    - m( A' O1 L7 }- [1 ?! u  RowBox[{"Table", "[",
    ' Y$ w7 n6 T# {% \  p   RowBox[{"x", ",", & B% l  V, r0 C; A: c( _/ K0 ^- R" T
        RowBox[{"{",
    . @* ]  T+ K3 A8 ~0 e  i     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    0 k* D& k* A( [9 F0 _ CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    ( l, ^3 F4 d( s  3.5779226649375*^9, 3.5779226810625*^9}}],
    " A. X' |. @5 _0 m. [9 i! T3 E0 J2 Y) J5 h
    Cell[BoxData[
    9 P  a" M) a- O8 s  W RowBox[{"{", ! w3 E' |+ ^" F  P# {& _
      RowBox[{
    7 r% v/ F  j, C$ g; W  g% {- v) @  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ; j6 `4 b$ y$ p, F
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",9 B5 `* ^$ ]3 J) Q! t+ U" J0 P
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", : R% V& }- p; |% b* |+ A
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    0 m% z+ p9 R$ L   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
      x1 J0 ~. K8 V9 |; k( ^. O) _9 s! T   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    6 P' M0 h$ o$ t4 k   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", 4 B3 u: B+ }. {
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    ! A( `9 k: d8 _  |' X   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], * o& e- h0 c4 P9 n2 F( B
      "}"}]], "Output",# i4 r8 \' o# q- g- l
    CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
    ( q  `/ B/ K" G" m8 I7 \  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
    % v* K. M) T& b$ R: Z9 ?}, Open  ]],
    / h( c+ f( P5 U  Q9 |, f* x8 L4 x+ Z. V+ Y
    Cell[CellGroupData[{
    1 j. `1 @$ c/ I
    & \+ e6 Z+ d* F3 H; dCell[BoxData[
    # a( x8 \$ x8 ^+ V9 o$ B. n& K) l RowBox[{"Data", "[",
    0 d: e5 N  |( h  RowBox[{"[", & n& Z: A6 V5 F8 z; x
       RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
    4 x" S0 p# F* s" M1 P& I' O CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    ; K6 w( V9 v. i: F' p6 @   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],- f5 P- P0 I1 K: @% N$ b$ `& G

    1 x0 [6 U7 x! Y8 f, VCell[BoxData["0.899882`"], "Output",
    % u' D% x/ E; }/ X" V CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    ! c4 Z3 q0 I" L# U. R9 [& s   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
    9 A, V, ~7 M. x; \7 A: V0 @  L9 o+ i$ z   3.577961929080654*^9, 3.5780123419375*^9}]7 V$ l4 ]/ N* k- C
    }, Open  ]],
    , u4 D$ O( M/ j
    % D6 H2 b1 l& D& D8 [Cell[BoxData[
    % v+ ~; ]1 b; g: d* U3 a RowBox[{"For", "[", 4 B% c4 e  l: c5 s. Q( W. q3 [2 h
      RowBox[{! A4 V6 h! Z  F6 B5 V* k1 h
       RowBox[{"i", "=", "1"}], ",",
    3 T5 \/ A, z3 z+ A  ^# `- |   RowBox[{"i", "\[LessEqual]", "60"}], ",",
    ; a4 q. C# C- x, Y   RowBox[{"i", "++"}], ",",
    5 C5 u& c4 M- U" H4 [   RowBox[{
    * ]( n8 x! i+ u) K9 b0 r    RowBox[{"y1a", "[",
    + B+ ~; s8 \4 o4 g     RowBox[{"[", "i", "]"}], "]"}], "=",
    8 X4 c  J% b' k/ J2 n. `    RowBox[{"Data", "[", 5 ^3 r8 d3 ~2 u6 d
         RowBox[{"[",
    + z2 o+ x( S3 n  O3 @      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",# `; L* p, Y) c/ T6 H; M# A
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {' u* d& C9 @# e( Q
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    : q# A$ R& m- U8 W, q! u2 T   3.577922923203125*^9}, 3.5779588839702806`*^9}],$ J. A! S( s4 y; Q
    0 \7 x: G  _! L; N& Y
    Cell[CellGroupData[{: }5 x5 E8 N: s4 ]/ C

    % a; L. ~7 F% \3 Z$ dCell[BoxData["y1a"], "Input",
      f- y- B2 o  Z" Q CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],  B0 R+ y5 J3 p5 J4 D7 G; f

    / Z& h2 Y; M9 s2 v0 _$ d  XCell[BoxData[. f9 w5 L* ^* }$ m! s0 p6 P
    RowBox[{"{", & \! `2 b+ H) E1 l
      RowBox[{
    1 r1 \! m" w6 z/ F$ s* ~  "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
    7 o$ S5 ^6 L. t4 p   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",", . w7 Y) C% H$ r- q% t8 n2 ]' Q
       "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
    9 m" t1 c4 e2 Y. p% s   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",   E' ]( O0 ]. p0 E9 b! a9 O6 f
       "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",", + y( i/ n, P3 j
       "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",", ! h+ X+ {7 @3 k, o. W. X7 G
       "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",", * H8 G, E9 {( A$ \& x
       "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",", & _3 N7 \7 D% d, p
       "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", 5 q& _" n8 ?1 z3 k+ h5 \5 S
       "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
    5 J" k) h, J- _6 u   "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
    5 i: O4 z) K, q! B3 z/ d   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
    , l! a2 w  k" D( ]2 |& f6 U, a/ r   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
    4 H+ H4 y* v) V& b& L# q   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
    + P+ I8 ~0 O$ w8 e1 U" n   "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}],
    & K+ [7 R8 A& u/ a+ U  "}"}]], "Output",  W, I% ~0 D+ j- j3 n' S
    CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
    ) L: N* {1 g3 c% k$ @  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
    8 F5 i& m, _( X5 x, s}, Open  ]],' f5 }: y2 ~8 S8 Y

    # C. \2 s# y6 r) Q0 f0 uCell[CellGroupData[{
    " C3 D  N& x8 V% t$ P  x7 a  i; H5 R* p+ H# n% }- w
    Cell[BoxData[
    # Y9 Z* a& I9 b9 E& R3 t& X7 x RowBox[{"m60n21", "=",
    ' F' f6 |- e# _( g  RowBox[{"Table", "[",
    ! N7 Z; s/ ~* S3 }8 A+ o; q. j. `   RowBox[{2 d7 B7 X- ]; |; h# G4 a2 w
        RowBox[{"Table", "[",
    ! f0 r; H/ s9 B$ c2 D     RowBox[{"y", ",", " G! [' S% \/ A* P* ?- {6 U
          RowBox[{"{",
    9 R$ I9 x- U9 s$ b, [5 n+ }       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
    1 ~% f3 z/ W; P" V' B7 P" x' P    RowBox[{"{",
    : Y* v. J0 O: D     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    ! g& t* L! F  \ CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {( [- Q) q& c" W
      3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,
      M& s) }3 z5 a. N8 g  3.5779619706547265`*^9}}],( q. h: P+ h6 t" F

    : q& j# b2 a! H: L0 x" O4 fCell[BoxData[
    / m2 O3 z4 R( V4 ~/ f RowBox[{"{", - e$ N; B4 w. I* ?2 l
      RowBox[{
    : `0 N* W* \# B' f0 ?3 U   RowBox[{"{", 2 A/ q, u6 R* Q8 j
        RowBox[{( C3 P8 d$ ?7 ^: e" E& c
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    . _" a: i$ b& j) b4 V      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 i: s$ D+ q% }$ ?2 Q
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ! `" y  l) V+ C& j) q+ x/ x  K) g. L     "}"}], ",",
      q& [, Y% |, D$ _5 ~* H6 n   RowBox[{"{",
    9 m! y2 M6 l; e& w, E1 H    RowBox[{/ w, ^8 s' u, d  c/ t
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    7 c: @, H. j7 ]5 b$ }      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 J* W5 ]. o0 s1 z1 S7 J- c. ~" n
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ v! U) Z' v( u, Y2 l5 o3 V2 W
         "}"}], ",", % S. [# y) o* [2 G
       RowBox[{"{", ( N  F; C! L% r
        RowBox[{
    : j+ j! O7 q1 V0 o) [0 V0 u& O    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , Q0 C3 b, `6 w& _+ j      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    5 o& n7 u8 k1 u     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ! g! F, d) j- h% ?3 R     "}"}], ",",
    ' |6 n3 f+ @) s+ K/ n( O   RowBox[{"{",
    ) o  p4 C: `, r- `# p# i6 z' {    RowBox[{$ j$ R5 a+ D# D+ G5 ~% M
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% G. I7 P7 x/ N+ R
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) i1 [3 P1 h% E( W     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- K8 I& \9 Y3 }  L$ [7 `
         "}"}], ",", . ~8 J. }% A1 k
       RowBox[{"{",
    9 W) V9 G& \/ n& X& [    RowBox[{
    6 a  J/ k; _; f* [4 a' ^  i- {4 z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 a( h) i7 l) @6 l      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & E" B% x" q/ {2 k  z1 x
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . W6 C3 G6 q3 m* F     "}"}], ",",
    " e) {. q9 ?. A% g   RowBox[{"{",
    2 v# L! T. j& z    RowBox[{' G1 L6 ^8 X2 W9 K! M% {
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ F0 V1 i7 j: Y$ b+ p1 H
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : S- {8 e+ Y7 o* @0 s& f
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : ^3 d! @4 q; Z8 N     "}"}], ",", " e4 [% a, l) U
       RowBox[{"{",
    & m7 P/ [+ N4 q8 P    RowBox[{
    4 y+ `: t; J* G# Y- z& A    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 F4 E( D+ u; A  A. a, E8 {
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' x' R7 W2 \4 E9 r2 z
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ w( T7 H* w' q, t2 Q% ?
         "}"}], ",", ; [6 E. d7 A! g% x0 W7 `
       RowBox[{"{", " o5 o5 y6 _0 h4 c* o+ C
        RowBox[{
    $ E: o2 ?% T/ g8 c    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 }$ X, }, a' G  `- K! s
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / p5 b; h* W; O2 s* X$ k
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. X+ Y) x- }% {6 I8 B/ i+ ~- t+ r! L
         "}"}], ",", 4 v/ N- t% a2 T8 N* N
       RowBox[{"{", 9 \$ H/ r' P; D+ x- b3 c' O" T$ ]0 n* s
        RowBox[{
      [% H4 I& m5 i2 t9 x# i* S' x    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 i' s( K3 O8 h: b! n- X. R# X
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    5 s! w4 r6 w1 `+ G. G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 W  Q$ j$ J! k  i, y# B     "}"}], ",", 8 i0 S8 j0 A1 n: \
       RowBox[{"{", , [6 I4 T) ?$ L6 n/ E
        RowBox[{
    & V2 |# _4 T: }! O' b( G    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( {6 _, W+ K3 o6 j, b1 v& Z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / ^9 k9 M  x; [0 k4 v) t
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 B; k, D; P" e" L5 B9 T     "}"}], ",",
    7 l! e0 O0 s" i2 r- a- r   RowBox[{"{", % K) x8 \3 G1 C2 ~) e4 F5 |
        RowBox[{3 {& k) a" v" W1 V) p
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 S& T3 B3 i! r1 _      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    + }2 P/ p: \2 }     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    4 b, c6 a. L3 }  \0 ?3 ?& @- P     "}"}], ",", 0 H7 n: H+ ^. G( G7 m0 O6 C
       RowBox[{"{",
    , b! l4 m' ^/ s8 @4 M0 h9 i    RowBox[{
    . p! H+ ^. G; G$ J3 {$ d    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( Q( }- w( k: `: h  n
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    # `2 c( h) c: ]0 o     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  R' [! l5 |  f, A6 T
         "}"}], ",", 3 f& P% r# Z" H' o8 m* K+ o3 A) s
       RowBox[{"{", + E1 d( p7 |& b* A7 V# m7 l
        RowBox[{, A. Y) W3 ]# T+ t
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! Q# v! H! n7 e* D. @1 \4 R
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; L0 s5 y8 z6 W! A! J2 d# T1 D     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, e4 V/ M; ~: F8 Y
         "}"}], ",", 7 w( f0 P5 ?8 D1 x* X; U$ B
       RowBox[{"{",
    * }6 }. V; Y$ D. X" y' [! \* {5 c$ l3 c    RowBox[{
    $ l+ X/ D2 b  B6 N: e6 _+ c( j    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, I! j8 U( p( O0 p$ |
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . ^# F) O& A' S
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* s8 Y# V. F, N5 f8 m
         "}"}], ",", , N- X" b* T2 a0 w
       RowBox[{"{", : H& u4 V, i+ m
        RowBox[{: h- B, w' ]; x+ i, H5 J8 ~
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) |- c5 {8 S: T4 \, z/ c% f  s! l      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 X) N" \- O2 ]+ Z& G& k     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 P) B6 k+ B6 x- P     "}"}], ",", - ]2 k/ Y5 t( \7 t* I
       RowBox[{"{",
    5 g/ v5 h3 t2 |* ]- d- E$ h    RowBox[{8 y1 z4 N( x) |' ?+ ?
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) `! l7 C9 X- }* j& V5 D: c
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ' Y" J6 f9 Z- w( u     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # t+ `; Z: u$ J5 H     "}"}], ",", 7 m/ y/ B, @# R/ `7 n% c9 g3 _
       RowBox[{"{", 2 {( u& D: Q& x# J
        RowBox[{
    ) Y7 Y1 ^6 A, I/ k( }/ N, I! z8 V    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 I+ \' D! G2 |7 d
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      B, w  c0 I* Q5 o, [( K6 P: ?1 I     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ n6 n9 _5 S- A. \; D" n5 |
         "}"}], ",",
    2 y7 r! w& _; E- f. Z6 k+ O   RowBox[{"{", ' D! ^; L7 H. w# K3 g9 i) M
        RowBox[{
    8 h" k6 f  q4 }9 R- S) `3 G    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    . B$ G, R. f$ t. D* }3 l" A      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    # v' K  M8 F! Z$ i& @     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 D' P& `/ s6 Z) l% d1 J7 h! ^! F     "}"}], ",", 1 A, E! n. }5 b& ~2 Y* W% y
       RowBox[{"{", 5 `6 ~. r7 I8 N1 y1 }
        RowBox[{! M/ n) |% ]5 m/ e
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    * v0 G5 q1 ]: N; Q' t& }3 m5 \/ K, G      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 _2 Q' {# q8 n9 X6 V$ T     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    " Z" R; J7 Y, ~     "}"}], ",", 8 S5 N7 N% W+ t' T9 x; B% L
       RowBox[{"{",
    ; a2 l" [. H( {6 m" O" D% R# E    RowBox[{. |4 H4 l$ H9 J# G9 Z
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : O8 F# L  F% P2 j8 Y" B; G2 G9 x      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 G3 t" h3 J9 r. ]# C$ W
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ O1 l& e% ?% S0 C: P/ r! d% x9 \
         "}"}], ",", 9 c1 i. |" S& ?0 a
       RowBox[{"{",
    % ?' ^2 r' |  a/ |: E- M/ x    RowBox[{& G0 `# @' |9 B, L% b
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    " D$ B! Q! g5 P- |7 r& B      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 U& M' Q' i4 F& Q; b& n! p     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 F$ v- |  N; B; R     "}"}], ",",
    : S( G; W7 o, L( W4 x   RowBox[{"{", ! b+ n$ L! X8 w: ?1 J+ a
        RowBox[{
    1 F# `6 L: |+ _8 L& z* d! G+ N    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 `& c5 @+ H" [3 e) G' x
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 @8 c: G- Q1 p+ E
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 c: O" ^6 h5 l6 t# z3 D4 y% X
         "}"}], ",",
    " p5 @9 Z' H* v   RowBox[{"{", + \0 n3 i  u: M( y6 A7 a" y
        RowBox[{& Z5 V" j% [- [
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : H7 X8 C# b. B+ P3 w3 N      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . b3 q! [  r1 u( o+ i
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ( j* W. C0 B: n' u4 S% P     "}"}], ",", ! {9 s) ~( B; ]
       RowBox[{"{",
    & L2 g* W9 p2 f3 K+ E    RowBox[{0 n# K7 r" [6 v9 L6 u: z
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ n& H$ V: b6 U  |. _# ]- B" J
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; b0 q) w5 D5 ]3 R. o8 q! q/ ?* I% H     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 }2 u  @' z  p9 }* m
         "}"}], ",", 6 W# W: l3 n4 Z1 i+ q
       RowBox[{"{", - z  T7 K; l% H  C: P% Z* {( x% q
        RowBox[{
    ! N' O: t! V; b2 z- ]; m1 Q9 g    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& B3 c4 R. u% v8 q
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 H- G& G! Z. m- m% t& A
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; y+ u1 E7 V/ B  J. a1 B; h
         "}"}], ",", . I/ h' e- H, c2 p3 W* g
       RowBox[{"{", * B2 }4 S* |/ z2 N! o
        RowBox[{
    / G: u" z% {& I. d1 ]    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    - K& O. n9 N* l( @2 m  m1 c      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 _- ]/ R5 r1 }/ \! ?5 i# `     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    4 W  a$ R% H' A4 l     "}"}], ",",
    # `" d; I4 b# k; O& ]7 Z& ^( Q   RowBox[{"{",
    $ O% V1 W, ~7 v9 M    RowBox[{
    ' l. S4 x7 F3 F7 }6 q9 p    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , t" Z( s8 n% j! g      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " [) k2 E* R  T; F0 j$ A3 O     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 M! V7 I9 o$ v6 R
         "}"}], ",", ( \- K: F7 H* J4 C
       RowBox[{"{",
    7 ^$ _+ n( k% [0 A/ t/ U1 P    RowBox[{" O! C/ s$ }4 v) }! A; E& N
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# \* I9 l( M/ b+ Z/ S5 C5 b
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - Y) X/ {9 t% e. r$ ^
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ V& o( m6 @* L6 R/ r* L8 W
         "}"}], ",", ! t8 a  r9 Y7 ^) G. o% p5 p
       RowBox[{"{",
    & g7 E/ `) s& E; b    RowBox[{
    5 b8 H) `- ^2 f6 o! t    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    . }3 [  a9 ]% I5 {      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 Q% a; |# G8 s/ |0 P* e4 \5 J
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , r6 ^# _! |' Y4 Q* j. I( ]     "}"}], ",", 0 O% \  F1 Z) g4 l' d+ T
       RowBox[{"{",
      E, f4 d; q% L5 q/ a8 g2 \    RowBox[{
    1 I% l2 j+ v- Z- b) }; S    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& _- z( T  ^7 l; K
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 V, Q) L  B1 d
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, J0 w, L# U% v1 c/ t  b
         "}"}], ",", ! {0 b0 \4 X' P- T; T1 M
       RowBox[{"{",
      E' M1 i6 y0 f- A6 a    RowBox[{7 [9 d9 O1 O. N
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & Z! f2 K$ R( w0 P, f      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % U2 K! |! I  z1 x  u5 }     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 o: ]4 \8 f: Q9 X
         "}"}], ",", / ]6 W* Y/ J( M/ j
       RowBox[{"{", 0 i8 x8 c0 b0 {7 F
        RowBox[{
    + F- X* l) ?0 l& j( ?    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' V- @8 |5 Y2 m% X- C5 r3 x
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   M5 s4 c- x! e4 U
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 G( Z0 C* o: B, b* _% S' _7 O
         "}"}], ",",
    4 R9 Y3 F; P. r. ?   RowBox[{"{",
    5 V! Z1 d' ~' [$ E. l5 m/ t    RowBox[{
    # n( N& X3 K- }4 t0 x* x  \" j( `    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, \# P; J( F( b# ]+ T+ b
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      Y. a4 T  u+ `" h, }" b$ u     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: {" W0 x. O( [& O1 ^/ z+ A
         "}"}], ",",
    ) s% N+ M. L% l7 D  F& e1 X6 D   RowBox[{"{",
    4 W8 ^3 b( L' P* e! {    RowBox[{
    0 o* s1 h. i2 q( E! _0 ~    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* U' {) m; k( ]: F- Z
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 W7 e* a, A6 n' R     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 L9 }1 Z) o" j8 k6 v7 j) c     "}"}], ",",
      j* W+ i' A# F( m   RowBox[{"{",
    / ?! Z" K& i3 L4 }) w    RowBox[{2 ]1 y& c7 ^. `7 `/ E7 S9 f8 k
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- [  b5 c# C- O5 `
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    : E( b  J" P4 A! H     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 d8 \( a+ h4 b* p( I! Z5 N. S- a
         "}"}], ",", ; k, M/ c" E5 d
       RowBox[{"{",
    % F6 R  _. G& b- k. ?1 q; g! m4 P2 e    RowBox[{
    8 ~/ c- F' U' e. [/ l    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + r9 ?- G+ e% e' c      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * o" y  p0 Q5 T( ~1 s+ @" }     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# F" Y* ], W: _
         "}"}], ",",
    ( j! P& h1 A  F! @8 B4 Z   RowBox[{"{", 1 }7 y! r7 d  T% o7 t
        RowBox[{3 \: z  G5 \$ S4 k( X
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      M( a5 r- V- _( z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 G  P3 v  s9 i4 J2 f
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) O" N7 X7 \# O8 d) Y
         "}"}], ",", 5 i5 m8 e# F+ V
       RowBox[{"{", & X( |' N* ?6 C* b! A3 H
        RowBox[{
    0 ?9 r$ u* U2 P5 K: l+ J  j    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- B6 Q) F$ R; M) Y& q
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 s' t- b% C( ^     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 O! @9 \, K/ o, E3 X1 {
         "}"}], ",", ) c# H1 j' @. x; A
       RowBox[{"{",   D9 M0 z+ X/ O) W+ t% i
        RowBox[{
    ) {! e! O3 D7 k6 p  l    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, t8 S, a- F) a8 E3 v# ]
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 g$ }5 B$ V1 b1 \4 O
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( f( i' u$ }1 N. r/ U' A1 N* o4 ?
         "}"}], ",",
    9 ?; y5 s  m' C4 h4 n   RowBox[{"{",
    # I' K' _/ m& k2 u    RowBox[{
    ) h4 B  Y0 O! t2 v6 K    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, J3 x; a  n5 H+ h' X3 a( t
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 U) }% u) [  y" l% G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 Y/ m9 Y0 w" D8 s- @
         "}"}], ",",
    # X5 \. g6 q- v/ Z& N1 U   RowBox[{"{",
    ' B; n' Y& r" V1 ~4 t' [    RowBox[{7 P% F5 \1 D6 N& n3 y+ f( C% e# S
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 }" d3 H$ q' w  t+ c9 e& Q" B. F      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 _! _' V8 g7 G; ~
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    4 D  z6 n/ v6 Y* c0 M3 n; N     "}"}], ",", ) \. \% Y% R: j2 l$ r0 Q! K% d, u. W" o
       RowBox[{"{",
    - Z3 @0 {$ M5 @4 L( X    RowBox[{
    ) K/ z* Y2 W% @    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! w5 j  p# K) c3 h# [( |. Z
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! Q; }- c& k- L& @( M3 g  P     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 w) i# Q# b0 i     "}"}], ",",
    & t/ [' |5 R& w+ y! R5 e   RowBox[{"{",
    ! [& T) ]6 q% [( @7 n0 ?  t    RowBox[{
    , A7 C9 S4 |8 D  H1 D4 Y5 T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # G! G# m% G9 e      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    8 n/ M. v4 O- ^! H  ]     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 i+ V. I' m2 `( K8 o8 p* ]  `     "}"}], ",", 2 C/ D7 H, e0 p7 W" ^( |
       RowBox[{"{", 0 J5 b% ^: O9 D- l# J- c
        RowBox[{
    : |  {$ Y* B( n# u    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    5 _# `/ J, R$ f. w7 u! H7 N( W      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! x: r  }+ G- u     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 Z; f+ [# E& H: z% [+ ^
         "}"}], ",",
    " j1 C0 C- v% f  \- F0 P0 e   RowBox[{"{", 7 b5 j$ ^2 n) s5 `# T1 B, i
        RowBox[{
    8 s  Z6 I( O+ [- x" i" h) _( J    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    3 }' v) A! b7 F" ]3 t. t2 e      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & Y( V; ^7 W6 \' n
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ n# r( T0 d+ R$ F0 `; C
         "}"}], ",",
    $ h) G6 I8 s2 R+ T4 V   RowBox[{"{",
    7 f! T2 x/ A. X1 L! K    RowBox[{" @5 o5 b0 I% t
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) h+ P7 y$ G6 R) L
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ |+ a9 c: e2 Y; q! V7 v
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    " I( [; \. S* m% G     "}"}], ",", 0 A4 r/ T3 n8 Z' F% a+ ?& @
       RowBox[{"{",
    4 {3 c: _/ M$ C! H. t$ M. \    RowBox[{
    7 ]0 N, l6 x2 Q$ f1 e8 P    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# Y8 d" x7 t4 L1 T8 {1 H' i) J# l
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ' T5 S# B' `: p6 H     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    $ ^* g* X* F, ^0 O$ n% U     "}"}], ",",
    + W, l& n: W# V# F6 E) {4 P2 V4 K   RowBox[{"{",
    , I2 F1 r2 W- X7 z' {) r9 G    RowBox[{$ J/ U7 q0 W% H6 i  N' M# t
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : o. S2 q- f) k/ T      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 j! b- Z' [3 J
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ) ~7 o1 ~5 l% L1 p3 a/ `. y7 W' E; G     "}"}], ",",
    5 x, j) M1 ^; u- J( z   RowBox[{"{", / o) f3 Z8 W0 A! y/ B& @4 P! F
        RowBox[{
      _9 g- m% r+ j/ j. Y7 V/ |1 p' A    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    - B: E6 N5 ]+ W. _      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 t8 h* N4 d+ ^4 D: O) `     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ( _1 s* u; n# a. L4 f     "}"}], ",", . s9 e  Y% k3 k
       RowBox[{"{",
    , Z0 Q# Q' m3 z/ r, T    RowBox[{
    ) Z8 ?! i" |6 |6 a6 H) l    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: w* o  c7 A8 t, ~% ^+ F7 F
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    - }) F7 C' f6 o     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: K3 I# k" K# F; Z
         "}"}], ",", / l* L6 g6 h6 u) I3 M
       RowBox[{"{",
    ( v: P6 s" f( l) i" y: q! w    RowBox[{
    0 o, _: ~1 F6 @( J+ z6 g0 _  I7 A7 d    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; P0 q4 e  e8 r: D" ]      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . F) b  p1 E- e4 ?8 o! v5 @& o
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 o! |% ]& s# ^3 b& x/ t# p     "}"}], ",",   R: F) }) c; h' \& b8 `  k( p
       RowBox[{"{",
    # j: A- F' J2 Y    RowBox[{2 Q3 Q# f2 K8 g5 [1 M  ]
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    - K* r& i. j4 C$ U2 e' Y. c0 e- e3 ?      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & [1 j$ x5 p! l8 a. w' G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; E9 `9 }% ~/ U7 L- ^
         "}"}], ",",
    9 ]" s. i2 _! ?3 p( R, f   RowBox[{"{", / d: N0 d% R) y$ j& G3 b
        RowBox[{
    3 e" l- A, T6 Z/ b" T6 D    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      c2 B6 f4 T, v1 X' O- s      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " \, z. k) n( ?     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 `. u1 s$ _# I' o
         "}"}], ",",
    & D5 b, T0 K: A! v, s   RowBox[{"{", 0 n* ^: A; O. c( b5 X
        RowBox[{8 U) R% _* Y% B% m4 |: y
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    - z) w- X% P0 s( `      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) K, y, f3 c& O, n1 n/ F     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    6 r, X* a9 {- r5 C" T     "}"}], ",",
    ; t5 r& B! }. i" c2 P& m   RowBox[{"{",
    # L4 `% d& d- {  Y2 p    RowBox[{. S7 E5 B' x6 f+ y, ?
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    $ I  I! t  y: ?% f      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 h' w# f: m! {7 _8 Z# u& {, M     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) j# z$ U( {. r- w2 h9 S, v
         "}"}], ",", 7 W1 q$ X% z8 E' {% m; E1 k* Y/ H
       RowBox[{"{",
    9 v0 D0 L- V5 f    RowBox[{; w4 M% f0 X6 |" C
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    $ _* G1 u, g& C* m* X& M+ e      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! v  v* c! W8 T
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , X0 T& ^" ~9 M" H$ k' v: [# c! H     "}"}], ",", 2 i% C8 \0 x( H1 ~3 a' K: B
       RowBox[{"{",
    9 \: S% Q! M* n# P: T- b( W' R, I    RowBox[{
    % p: f: o: S+ N8 k$ ?/ T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    % }2 E2 u1 L3 h7 a' z# \# p1 H      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) w$ X: G7 Z* h/ Y+ z+ t0 s9 A     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# a% B5 o- L. u: H" l
         "}"}], ",", ) d: }) ~( s( ^
       RowBox[{"{", * V/ {& P1 E3 D" O$ R0 k
        RowBox[{9 S3 V9 ]# l) ]# F  g6 j
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( |9 R7 U+ \& M4 k0 j% [, j: G      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    - M7 A2 O% d! O6 O2 M) p" V     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 R8 L1 v- a# m% I& e# b1 g6 _/ T     "}"}], ",",
    # d- j! h& J! x" ~* @   RowBox[{"{",
    " U4 C) ^; e# C; j0 _1 M: ?3 w    RowBox[{" [1 `6 f$ u9 B5 C! Z3 W
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% a0 W# Q8 L; [$ C% p+ i! h
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 t# U% k" c& u0 i" i! S4 k7 I7 J
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ' w/ x  y! X$ d) g     "}"}], ",",
    # G7 w- a) c( G/ d- B6 c   RowBox[{"{", 5 v. B, o& l5 |' p2 m6 g
        RowBox[{. ^$ E2 }4 M1 t9 Z) `
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ l; \; O9 Q; i) V
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & Z# \- `1 ~0 a5 w' X
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," T) {, n7 ~7 H* X  R2 N7 }, D
         "}"}]}], "}"}]], "Output",
    8 A$ J" A# q! ?5 ^9 t; M CellChangeTimes->{
    . |+ ^8 q7 \7 G* k  _" }  3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9}, ; z! I4 L( u/ b8 ~
       3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9, 1 v  k7 m, Q) S7 W
       3.5779619748823338`*^9}, 3.578012345453125*^9}]6 S" E3 X- ?& ^7 H: P
    }, Open  ]],
    ( T7 z- H0 V! ?7 V  u6 n; ]# z0 ~' I* h
    Cell[BoxData[
    ! v. F( J+ V0 g1 W/ P: ^ RowBox[{"For", "[", 8 l8 z4 C, S  Z" R
      RowBox[{
    $ D8 _8 ~  Y: e0 g# [   RowBox[{"i", "=", "1"}], ",",
    0 A3 o' s5 [$ `- _/ n' x* q6 `   RowBox[{"i", "\[LessEqual]", "60"}], ",",
    4 e1 \; m' r4 p( I5 _: x   RowBox[{"i", "++"}], ",",
    8 i5 q% \; k+ A+ ^# |   RowBox[{"{", "\[IndentingNewLine]",
    1 ?" k8 b/ q* c+ i/ m; [2 V    RowBox[{
    + s  |: Z* C- \3 O. c2 o2 }     RowBox[{
    " ?5 F$ X% s6 A) i) P      RowBox[{"m60n21", "[", 4 E3 T' [& I5 I6 `
           RowBox[{"[",
      L( b" J9 q- J- [# U7 g) s1 O        RowBox[{"i", ",", "1"}], "]"}], "]"}], "=",
    / d; Q- |9 j+ V; j" @' c      RowBox[{"u1", "/.",
    ; N& T; y! t' F: ], C4 I) o       RowBox[{"{",
    % x9 R* _" C! |: C" H1 [0 P+ x8 v        RowBox[{( ]) k! \8 X5 ?' M8 t
             RowBox[{"x1", "->",
    9 u& E# e, I. z6 o+ k7 Z7 x) v          RowBox[{"Data", "[",
    8 z. v- x1 I! c0 }* K9 ?, u) o           RowBox[{"[",
      A( E2 v6 a8 o& T            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    + Q; C5 X4 O$ N: Q         RowBox[{"x2", "->",
    , O& X6 ]% S. a2 K          RowBox[{"Data", "[",
    3 x4 Z! P# W4 s* \! M           RowBox[{"[",
    1 ]6 C$ t2 [* J0 d            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    3 V5 p  f6 c) m! w$ X8 f4 d         RowBox[{"x3", "->",
      f6 L& J) V9 @- u          RowBox[{"Data", "[",
    % Y$ m8 o1 f  R5 s; I  {           RowBox[{"[",
    : u6 Y2 S5 \$ Q6 f            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    0 i8 o5 R1 j$ U/ C5 \2 P         RowBox[{"x4", "->", ( p& G& I! U4 T$ X- P* s
              RowBox[{"Data", "[", ) t1 e  `; P. T
               RowBox[{"[", 5 _6 ?( U/ J+ F
                RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    : _  Y6 q( b' a4 V  O         RowBox[{"x5", "->",
    , h7 f' w* W* i5 h" y6 C! F# `          RowBox[{"Data", "[", 5 h0 C8 J, t+ ?8 Z0 K
               RowBox[{"[",
    ) o3 H3 d; K& T. T% P) i( B* F/ I            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    # q# N- P& S, U1 f: F9 H! U         RowBox[{"x6", "->", % R5 d% u# B4 s. j- ^) _
              RowBox[{"Data", "[", ! H3 u/ J) R1 ?- o8 Y9 W. x# c
               RowBox[{"[",
    " S$ N8 t1 N6 I  ~  o$ u            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", - v/ T+ L( ?! H" F0 I8 e( x1 A" ~
             RowBox[{"x7", "->", 3 w' R$ r* a! J. k  u
              RowBox[{"Data", "[", 2 E1 f8 ]/ I7 n; C+ |
               RowBox[{"[", 3 h. l. X* c3 e: I8 u
                RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    " _, ]9 b* V- p9 I         RowBox[{"x8", "->",
    4 a% }( {( Y9 g; i3 B          RowBox[{"Data", "[", ! p+ Z# i  l- I: p* D1 b( p  A
               RowBox[{"[", 1 f9 y" z: W( B% d6 `% x( V
                RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    # \3 ]9 n, n5 N& d# [% u         RowBox[{"x9", "->",   _  Z2 V# \) n
              RowBox[{"Data", "[",
    1 J) g: B6 Y' \, V           RowBox[{"[", 1 h# o5 W* `* U% ]0 }! d. {+ P
                RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
    / w; n9 u( J- f     "\[IndentingNewLine]", ) _; \0 d! M* R3 j6 S8 t
         RowBox[{
    ' C# o% v: P) C- f      RowBox[{"m60n21", "[",
    回复

    使用道具 举报

    琳123        

    1

    主题

    10

    听众

    296

    积分

    升级  98%

  • TA的每日心情
    开心
    2014-11-9 17:59

    • 签到天数: 75 天

    [LV.6]常住居民II

    自我介绍
    无

    群组: 英语科技论文写作实训

    群组: 数学建模培训课堂1

    群组: 第四届数学中国美赛实

    群组: 第一期sas基础实训课堂

    群组: 物联网工程师培训
    7#
    发表于 2013-8-24 13:13 |只看该作者 |招呼Ta 关注Ta
    涳夢 发表于 2013-7-30 20:31 ! I# n, H0 y- T( T% Z% C
    神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
    ) a7 U; U  F5 |+ A
    (* Content-type: application/mathematica *)" ^# Y! r2 R+ u1 U. s/ d

    & s' l# U" i  k) j(*** Wolfram Notebook File ***)
    ' d' l5 y5 J5 `7 r(* http://www.wolfram.com/nb *)
    ' c8 t1 `2 ]  A$ n# U+ W6 h- v4 i' A0 Q6 `, ?* w
    (* CreatedBy='Mathematica 7.0' *)
      }. y: I7 h' b- m. R, A
    9 y0 K: B5 d- @+ \3 B3 I(*CacheID: 234*)2 K, g' Q) n/ D& w- `- k" w
    (* Internal cache information:
    0 B5 @2 N- J5 U2 L0 B+ F$ eNotebookFileLineBreakTest
    2 Q1 |9 I# K7 X% v5 r; E' kNotebookFileLineBreakTest  u2 l  N# @) W: M4 x
    NotebookDataPosition[       145,          7]  Q4 D% ?' d6 G
    NotebookDataLength[    423629,      11534]& z8 B. ^% f: D( k
    NotebookOptionsPosition[    412607,      11173]" I# W" a3 U2 t' S: u
    NotebookOutlinePosition[    412953,      11188]
    0 Q% A7 A/ Q" \CellTagsIndexPosition[    412910,      11185]$ T9 \/ g+ a8 C9 H( i
    WindowFrame->Normal*)/ f( `: E+ u& m3 C

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

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

    2 f* w) [% j: a: u5 w: d  E* o) j7 oCell[BoxData["0.2`"], "Output",/ u% O) g7 z& t* b" p
    CellChangeTimes->{
    / G3 O, s, }! i5 ~7 B' c! K8 F  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    ; g) L# ~3 p; }2 T3 B! M1 z$ Y9 z9 s   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {0 E% d  o8 B$ A4 B% ~% W$ s
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    + T6 M* {+ O% t& k# e8 p. a4 |   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
    2 M4 n* ~# {" v0 ]. M7 u   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, ; Q8 U$ Y6 S+ r# N
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {; V" H; Z: ]: G
       3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
    * ~# `  U2 x9 g7 l. d  t$ e9 H! r5 ~   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {1 A9 R# w$ u6 ~! l6 D
       3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, " L- `" n% k* l) R
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, 9 h* S. z; h3 i: m
       3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    : ?" w0 T  j& L7 ]   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    $ h1 r% z" \  n, t" l, K- d4 }   3.577960510686717*^9, 3.578012149296875*^9}],7 m, h; ~. e3 s& F

    8 Z, R2 D; T; S* I+ JCell[BoxData["1"], "Output",) s! C) @+ H2 T
    CellChangeTimes->{& N0 n5 D. Y0 R8 W/ I  P0 i( F
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, , Z8 }, C# Y5 y9 f! @* O2 _& c
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    " C: w" ~9 w: g2 c5 S9 U/ {5 @   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, ! m0 u) d, @& B$ ]: G6 r
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {( e: u! m9 T( e$ s, D* J
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    : ?, J  Y% f2 e0 Q   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    6 R0 J' v, U3 m  b0 ]   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, % I5 [: x5 a/ ]7 s+ l( C3 \
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    ' _4 @: `4 D# H   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, ) `6 E$ T- \) u
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    7 b, a% ^- W- u* {7 U  `   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, ! H, R) N' |5 i# r' c3 y  b+ \9 u
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, : _$ f5 }! ?/ f' y% w. h6 ^
       3.577960510686717*^9, 3.578012149296875*^9}]9 [1 _$ C# M. l9 I- ?* z
    }, Open  ]],
    & `) `  Y5 A( A7 Q8 I* \5 t: D" r( T% a
    Cell[BoxData[5 ]1 }) K0 ^$ Z" s7 q, d! q& ?
    RowBox[{"For", "[", $ s6 U% v+ E& f
      RowBox[{0 g2 z7 J2 M5 ?- `9 _
       RowBox[{"k", "=", "2"}], ",",
    6 a4 A8 d+ \, G8 K   RowBox[{"k", "\[LessEqual]", "60"}], ",",
    + e1 I$ i5 [) w9 m2 O   RowBox[{"k", "++"}], ",", / k% A: A+ j4 y' K/ x4 U0 Q+ Q6 W4 L
       RowBox[{"{", "\[IndentingNewLine]", : p. J5 D* `9 w  c1 D4 x7 T9 j
        RowBox[{
    2 @2 }0 p) ^" ]0 e9 V     RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
    ! U0 S. O! [4 S9 g- O; }1 S     RowBox[{"For", "[", 3 N1 I& e' c- k. W8 |
          RowBox[{  }$ X3 U% r1 t
           RowBox[{"j", "=", "1"}], ",", ! }# c- N5 o3 A# S2 s
           RowBox[{"j", "\[LessEqual]", 1 U  B+ M. X0 x
            RowBox[{"k", "-", "1"}]}], ",",
    . c: A0 v3 A1 s2 E" @9 S, c- a6 p       RowBox[{"j", "++"}], ",",
    5 T8 g, y4 e: ]0 T       RowBox[{"{", "\[IndentingNewLine]",
    4 d6 {# g) p# y2 K$ F0 _2 L  _6 f        RowBox[{3 Z/ Z1 @; w% ?9 M' ?$ s* d( }" w0 x
             RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]", 2 S6 _$ C" W  [
             RowBox[{"For", "[", , M3 L3 @7 N9 _% t) S4 K) f2 i
              RowBox[{7 Z' J, t# L0 R$ {. x* r7 k; k
               RowBox[{"i", "=", "1"}], ",",   n$ F( D  E2 ^8 x
               RowBox[{"i", "\[LessEqual]", "9"}], ",", . j# y6 e4 Q+ A
               RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", - M# ?- w9 I* ^* t# T: I2 Y
               RowBox[{
    " s6 L$ n/ Z$ B4 s2 G5 Y3 ^& O            RowBox[{"r1", "+=", 8 b3 K$ e+ `, q' O6 O  Z. F
                 RowBox[{
    5 X3 \/ U& [3 b2 p. D9 u              RowBox[{"(", / n7 V+ |: ^9 p; G% @
                   RowBox[{! e5 q0 z4 [3 L- N4 N$ U; q
                    RowBox[{"CM", "[",
    3 {% O. Y; P4 y! ~$ @$ m/ G                 RowBox[{"j", ",", "i"}], "]"}], "-",
    4 a! P: ~; l0 f; O$ [                RowBox[{"Data", "[", * K% ]$ O8 D9 N# b
                     RowBox[{"[", ) i+ j) S( c1 J- _8 s
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
    * e- Q% B# l* @0 e. i4 O- o! T              RowBox[{"(", - V) p) l4 R7 t- m) Q
                   RowBox[{8 A: e! ]. G7 y6 T% I$ t
                    RowBox[{"CM", "[", ; d2 W) C7 `1 u$ ]- ]* l
                     RowBox[{"j", ",", "i"}], "]"}], "-", 9 e) \* h1 m7 A% |% F0 W0 h
                    RowBox[{"Data", "[", 9 ~2 z3 y$ O7 I
                     RowBox[{"[", ; `0 y' s+ h& _7 J% |
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
    ; R! ?# @3 n* b4 R5 a. a           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 7 e6 e6 S3 ]5 h& O  J: Q
             RowBox[{"r1", "=",
    3 p3 X" `6 z1 O4 Z0 ]7 P7 @" D+ q          RowBox[{"Sqrt", "[",
    ) Z8 ?- f, X# i. y% R           RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
    7 U1 R$ @, V( P' T         RowBox[{"If", "[", " ", . v; I% D1 y6 m) f1 ]
              RowBox[{: X. q2 r5 _$ m, _: g2 t2 s
               RowBox[{"j", "\[Equal]", "1"}], ",", + ^5 C0 h! ?6 _
               RowBox[{"rmin", "=", "r1"}], ",",
    % @* t3 _  i$ B0 J           RowBox[{"If", "[", - e  E' a0 ~: {% A8 p- I7 v
                RowBox[{
    $ M2 u+ f2 V" ]             RowBox[{"r1", "<", "rmin"}], ",",
    ! a1 D2 p0 `. }8 v7 [! ~9 q, o             RowBox[{"rmin", "=", "r1"}], ",",
    ! v1 A! H5 g! _4 c& q) C             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}], 5 ^) r8 S# \. R# z$ b
            "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
    ; L, W& ?2 }6 \9 s1 H& J: {     "\[IndentingNewLine]",
    / F3 ]3 V* s& k     RowBox[{"If", "[",
    % p$ A8 P4 v5 N2 s5 C) m      RowBox[{9 s/ Y) Q5 V/ q) v: y
           RowBox[{"rmin", ">", "r0"}], ",",
    / v* N- z7 U. _% I; y& C1 g       RowBox[{"{", "\[IndentingNewLine]",
    3 m+ v4 l" S8 k! N        RowBox[{
    : M7 W. a3 J" A0 ?: M         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]",
    ' U1 D, z1 c" k5 _         RowBox[{"For", "[",
    $ e9 o$ e- K& D: Q          RowBox[{
    5 W6 c! {% R+ ]& V+ C* a           RowBox[{"i1", "=", "1"}], ",", 3 k5 P: i" g; j6 q7 K, m
               RowBox[{"i1", "\[LessEqual]", "9"}], ",", : w3 d! g- S" X, v" B# Y& C
               RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
    - e4 [/ U; S6 R: r) g$ v2 S$ O3 X4 v           RowBox[{! J# W$ [# l1 I# I
                RowBox[{
    7 O0 O8 y! b# P' b; ?+ ?             RowBox[{"CM", "[",
    ( R, @/ X) ]* t: ?9 K0 {! t              RowBox[{"M1", ",", "i1"}], "]"}], "=",
    3 k! Y5 [/ a+ l% Z6 W             RowBox[{"Data", "[",
    3 ~" E1 [# \: e0 g6 c              RowBox[{"[",
    ( _/ t; t: n! B  _0 K" D               RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],
    . H+ _4 G: h. k( P4 }. E" a          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", 3 c7 I' g5 @2 ?- B, e) B% U
           RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], ) z5 ^% p. L. {+ ]3 Q
        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",5 o6 M. k1 L2 D! Z
    CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {
    # }7 F3 O& V$ q9 P, [1 k   3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9, 0 e2 I, {0 |( r5 p: n% P
       3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {
    ; v+ B* ?  c' y; v+ i3 Q# o- G! F   3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9, " f" N6 x$ L6 P7 t+ S
       3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
    4 `5 Z& n7 [$ e9 A' X  \   3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,
    & J! M) c0 K7 ]7 w! z0 y/ Q   3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {" r* ]! O5 x( |6 R
       3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9, 7 A/ Z$ F  r) i9 r
       3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {3 [! x( i( d4 `4 k1 a& K
       3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
    9 }# [  x/ @2 |0 M. S$ q   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {. F& @  u6 D9 h/ R' H
       3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9,
    - }9 F0 Z/ V+ w0 q! D; p$ W& z2 o1 w   3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {$ h: Z7 r# L6 |  C# e
       3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9,
      l# M& S% [$ n( T1 m( A) \; t! ?   3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {" F7 m) R! ?0 b* y
       3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9, : C* n2 k9 S' e# T2 e7 r8 c! ~
       3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9, 9 C: d$ X2 M6 m& \. P  |
       3.577958821991373*^9}}],
    3 Q: Z( M% N, O8 o8 S. v# Z7 L7 Z) g1 U
    Cell[CellGroupData[{
    8 p$ P% z4 ~. C$ i/ F- b- i- ]' r, M
    Cell[BoxData["M1"], "Input",
    . W3 M2 _/ t* G5 x CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
    " \- B: v$ @% J5 w+ C0 R8 O% P4 r5 v: [( ~( U- S5 G
    Cell[BoxData["21"], "Output",
    / U3 _/ H' T) n* | CellChangeTimes->{* h/ m- n% r  O# l& s; L
      3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
    & ^; o% t* `8 z" H1 T5 X   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
    : `5 i0 J) {$ G; N   3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {; h1 I. w/ F! S! u) Y. Q# B
       3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
    5 N" g, y1 y2 {% _0 t   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {9 g( _* G3 Q$ e% x+ L5 X2 y
       3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, , _4 n% s  u- W, W: H4 {7 r
       3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
    % M! _. y  A' Z% x  c+ \+ H' @   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9, - R. T3 x* C' j. n: z* ^5 D% i
       3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9, # T* t& o, R& _3 u8 C$ y9 l
       3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, 7 d3 B% P. n6 [8 N- E
       3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
    + v" S  ?& z& G1 ]6 u5 m6 Q8 k2 U   3.577960515600726*^9, 3.5780121541875*^9}]
    0 G% f; }* F) x* I}, Open  ]],
    $ x2 e5 x+ x! E1 ^& N4 C0 M, ~, `8 c0 a* R
    Cell[BoxData[1 @6 K! d+ J6 m0 K. X  `
    RowBox[{
    $ L8 x1 ~: H. X% z! Y2 Y  RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", 6 o2 Q7 b% |# Y2 E
       RowBox[{"1", ",", "i"}], "]"}],
    $ \2 w  t5 k; r  RowBox[{"\:5230CM", "[", ! o# q- M# O' N* f; l
       RowBox[{"21", ",", "i"}], "]"}],
    : [/ ~+ z& i. \  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
    & `( L1 ?8 e7 N" z\:51fd\:6570u1\:5230u21"}]], "Input",
    : |7 B! {3 d( v6 k3 B& u CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {/ Z6 s; G( l. D
      3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
    & {9 x$ N  x/ d) K/ y2 Y9 \- V  3.577960526583145*^9}}],
    / R: m  M4 r7 f' _7 s# }* j  P
      m9 s# N. Z5 J' c) H/ qCell[BoxData[$ M7 h# y; Z' y2 A& j+ f8 W
    RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
      S) C/ P; u2 @/ Y  Q% B$ t CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
    6 q$ ^+ n% j3 p& B4 X
    + ?3 T6 k. @" b; Y+ F6 oCell[CellGroupData[{
    4 E1 f# H  m2 H+ H1 k$ X( |
    1 w- `0 R8 x1 oCell[BoxData[# s+ P7 w' X8 u$ l5 x
    RowBox[{"Xa", "=", + \' _9 ^: C) j4 @/ I2 u
      RowBox[{"{", " @) X3 m; |( r' k0 z. c* h1 A
       RowBox[{
    : E4 i+ H  j! K( a   "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", & j1 c0 @" I) t7 l4 R! {
        ",", "x8", ",", "x9"}], "}"}]}]], "Input",% |9 J$ V8 Y& Z2 T# A2 j9 k
    CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
    6 l' v1 m; ?8 ], l8 f: l+ [, S" _3 p( [& P9 x3 ^
    Cell[BoxData[
    $ j1 B, s, ]% N7 `* i$ G0 j4 Z RowBox[{"{",
    9 j: W0 X. p& Z8 G- _# N) _  RowBox[{
    1 L+ O; B* i8 f' [1 w3 s! j  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",1 L1 T7 T" D- g3 ^4 x: u9 ?6 w
        "x8", ",", "x9"}], "}"}]], "Output",7 }" F( s# x# c. S7 |
    CellChangeTimes->{- @: G6 b2 o- x$ |9 Y- W
      3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
    9 }$ U8 _6 F. `- G   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9, * \: L# a7 w) G
       3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9, ' `# E, J1 B' X4 p
       3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, # s) ?( ]: @0 R" u( r) f
       3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {& j& J  N+ Q% C
       3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9, / W- V- B8 ?) z8 g
       3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
    7 B) ~: r" m& J( c5 b5 @   3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
    1 o1 U) X' l7 ^0 i5 j   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {( t+ z4 }* v  d+ ^
       3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
      @8 W# [/ x4 I, O, F6 l   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
    8 {4 O" ~0 b8 q9 ?$ j   3.57801215725*^9}]' v0 u8 Q% O# V* J2 `
    }, Open  ]],
    ; t& F( W. w- }$ \$ t  m' J. g3 d
    " J6 i" i/ {5 i1 P: ACell[CellGroupData[{
    ; X( B3 q" @* k- Y! Y2 D$ s
    , v4 M- c+ v2 SCell[BoxData[
    & K: ^* O9 T  M( g) N* g  r RowBox[{"Ca", "=", 7 C# Q9 U5 L$ G$ i9 X  ^5 O3 a
      RowBox[{"{", ) d. G; Z& I# o, P
       RowBox[{" v% ?- x# K9 u; b. y
       "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ) I, `* c5 b: I  I. l
        ",", "c8", ",", "c9"}], "}"}]}]], "Input",+ d1 ^3 E1 t! }6 K7 T
    CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],  @7 `( g; Q9 e- a9 q
    " m! w7 Z; n. E- l$ Z$ `
    Cell[BoxData[
    ! I8 z+ S' Q# A7 k8 P4 b0 _ RowBox[{"{",
    ! F" w' U4 C4 f! d  RowBox[{
    2 ?  `$ |1 Y( Y( `* x  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
    - h8 \# c1 O! U$ p. Y) w) [( b    "c8", ",", "c9"}], "}"}]], "Output",
    " z. l0 u1 O+ F: G1 u CellChangeTimes->{% b2 U# @* U: C) ]- ?3 k; w, z
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
    / `3 I, Z! P9 _   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
    . ]# m  H, i( K8 H' ^/ `6 E   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
    3 R, w" b  k7 |, O4 Z   3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {. L8 S% g& s/ h0 M' v6 X
       3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, 8 _  A0 w% U5 U& b% N
       3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9}, & ^0 B1 L* ]& j8 W- q
       3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
    # a" X$ c# ^; j# J   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, ' i+ o1 R0 U5 f! I3 s- U; L' W
       3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},   z6 w3 e/ ]) w) C5 D$ P
       3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {8 ?+ B; Y. T- c5 N/ f5 t  }
       3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9, , A% F8 R9 M6 |
       3.577961904604212*^9}, 3.578012158671875*^9}]0 P7 v# u) H, R3 {9 t' s0 p1 \
    }, Open  ]],. Y3 q8 V1 E0 V0 r& B

    ) `: K) L# p; HCell[BoxData[6 E8 n$ h3 V6 m  @3 t: t4 ^, s
    RowBox[{"For", "[", 4 l4 R7 F8 B# n7 f
      RowBox[{
    ; p7 r: X7 o- n) P. @4 `   RowBox[{"i", "=", "1"}], ",",   e/ ^  M) x: j4 M& l" ?
       RowBox[{"i", "\[LessEqual]", "9"}], ",",
    # u2 ^6 @% Y! u3 @( c( @7 A   RowBox[{"i", "++"}], ",",
    6 @" K9 f3 p/ G0 ?) o4 S9 B: O   RowBox[{
    * h7 V* M* D5 u3 q" U    RowBox[{"Ca", "[",
    6 y8 `) c% z  ?  L6 U- m+ O1 c: ^     RowBox[{"[", "i", "]"}], "]"}], "=",
    . T, q6 o2 o1 F+ Z0 A: ?8 D    RowBox[{"CM", "[", ' L0 r0 o4 o8 q3 z" n
         RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",1 ]; [& i0 U( G8 y. k& @
    CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
    * d$ W/ J+ G! ^- N9 d. c) V   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9, 8 j% R0 i1 j- L) j
       3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9, , D9 B' O" N- q
       3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9, 5 R- `1 C, I/ t$ ^  n# v
       3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, ! f" N  U0 d: ?& T$ z; Q$ Y
       3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, 5 h0 w2 o# A" J
       3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9, 6 U6 X. ^1 E* ~! E
       3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9, 8 ?( @) r3 y  Z# R, s) T& q! Q
       3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
    2 T2 M3 z2 u5 [, V6 ?   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9}, ) L$ k  B  x6 |* Z, }$ Y
       3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {# e; l0 |) u1 C% R. N
       3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
    : k) H" W) H+ ~1 ]% K  B. d* ]. X/ h   3.577961906897415*^9}, 3.578012176296875*^9}],
    * T, h/ F# H$ E% U
    " P$ Y4 H4 L' N! V9 d! z) Y# k3 Z  t4 LCell[CellGroupData[{
    0 y/ T% [, y5 K
    9 H( E2 c  P3 b" m. hCell[BoxData[
    4 N; Q6 \( x. t' S# \4 L9 d RowBox[{, }/ ^6 K- H) s% x) t- c* X
      RowBox[{"(", ) T2 ?! ^' x9 I1 B5 c2 N  s
       RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    / m6 M& ^0 M- g' ?9 m$ r! _9 ^  RowBox[{"(",
    3 u2 o7 ~4 `% o7 H, v   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],* m: `( F4 v  ]) x. Y3 @& [9 {
    - J9 j! V) @1 [5 k$ L. P6 X
    Cell[BoxData[
    $ m; n7 V) Z# ?1 X) o' X$ B RowBox[{! \  i( B1 x( r1 \' @$ o
      SuperscriptBox[  _6 U6 C1 H5 F1 J/ ^- ^
       RowBox[{"(", 9 d- q& N4 t0 b
        RowBox[{
    . y, n& e4 ?8 R" Z     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+", ! P- G+ n- |, K. k  b
      SuperscriptBox[3 f& a5 E- I; Y$ t" U' a$ ~
       RowBox[{"(", - \0 T$ S; f& k; o6 j
        RowBox[{
    + ]- O4 o0 B: ]- a     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
    * z- q2 }" R7 O- T" U, N6 F  SuperscriptBox[
    - W, n; d- {6 a/ l& u   RowBox[{"(",
    . a& _/ \; C8 l7 ]2 S    RowBox[{3 G( H3 d$ G3 w# ^! W
         RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+",
    8 a- D% x0 F7 ]9 Y* q0 |! d( Q) c" ?$ ]  SuperscriptBox[7 X, ]( s3 ], V6 J, ~+ z5 Z
       RowBox[{"(",
    # O0 K5 n) L* R    RowBox[{9 \6 s- \. H9 W' O
         RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",   _/ m' H6 a. K# ?5 h( p
      SuperscriptBox[
    ( J) n9 f+ J1 z% B1 H& E1 f   RowBox[{"(",
    3 F$ n' A1 y( _7 V- s, c1 w    RowBox[{
    : g; D1 M3 ?; C6 m+ T* v3 Q     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", 8 e3 p& z$ Z. o! t" g
      SuperscriptBox[
    ; P; e9 ]$ J# @3 z* f* W   RowBox[{"(",
    , a& f' h5 d$ `/ _- u! E2 n    RowBox[{
    % B3 \, c$ L! e4 a8 f$ |     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+", 1 N: J1 J% F1 [( {0 u: D6 ?
      SuperscriptBox[
    1 _+ M" o, m3 ~) D/ K: z   RowBox[{"(", 9 H- k3 z7 m2 l; v
        RowBox[{
    3 m+ R4 Z0 P1 C% n- G5 P     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
    1 s; g5 V$ R. p% x  SuperscriptBox[# v1 D. F2 n) [5 B  R
       RowBox[{"(", 8 J. J( y- j& p* _7 d* \% \+ m
        RowBox[{
    * @5 _  E! y. S     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
    8 s" t( l; |& J, g# H# a  SuperscriptBox[
    ; t  q0 H( C( t$ t9 ]2 p   RowBox[{"(",
    $ {. s& e  L9 \# Z- A0 V: S+ c* C3 T9 z    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",! D, q% x! Z0 D2 \* ]+ s! _
    CellChangeTimes->{! g4 V5 T  V. O3 x) X% H% y
      3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, ) G/ K# `; L1 {/ }+ S3 g; @. H
       3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9, / L) r2 I2 S+ f, ?
       3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, , i: w) D6 x' p
       3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
    ( N3 e: B/ I- v4 K% [   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, 1 v8 R5 c; e. X) E& d! A& N2 J
       3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9, ( |' a7 |4 t( \: Z# H* B0 k
       3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
    1 @2 I3 J7 C3 x8 ~   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9, ! U( P6 I" F0 Z! C7 Q6 L, y! b
       3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
    % h+ K7 i, F) M7 _' E   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
    5 w4 ^! n: i1 \% h8 y" F   3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, 3 Y/ D2 o; z- p! B1 {
       3.5779618537169228`*^9}, {3.5779618846049767`*^9,
    ; e$ Z8 M3 T/ W   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]9 |$ F% l! _. z5 T" [) v
    }, Open  ]],
    * m" J. O& ]" M3 B1 J
    . R/ s  [0 [4 I) z( ?& _' m) W% vCell[CellGroupData[{
    # K; p1 t  Z: J: J7 k  s
    - M# q5 C9 [' t+ ]9 a0 S! FCell[BoxData[
    & a& S3 d- E4 o9 Y, Z RowBox[{
    ! `0 b9 ?( b$ a* _, q  RowBox[{"Ca", "[",
    1 L, b) H" ]1 L' T8 U9 p   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",' ~- W: y* i9 s7 m
    CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
    2 V; D! P2 H: T1 ]7 [+ k& @  3.5779616465173616`*^9}],' I* W# J& ~$ k- |# ]

    / v7 ^8 n: ~- _+ [Cell[BoxData["0"], "Output",
    " I3 \; B8 U+ v8 W CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
    ; |* O" F$ B9 s1 S9 D  3.5779616484049644`*^9}]
    * J$ [: w1 X, [# [- F5 Z& ~}, Open  ]],: h& R: z, ]6 B2 b; r
      s" }- \- P. x) k: H
    Cell[CellGroupData[{
    & y7 f8 E( p4 ~, a  d6 W: v0 r4 M
    , M; [! `- a# Y* KCell[BoxData[
    $ \5 g( O- |4 o5 u5 M7 w. K RowBox[{
    ( y$ v6 O; I, j" V! l5 u  RowBox[{"Ca", "[", / o# B; y7 ~; C6 C$ m- J8 }" ]/ i
       RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
    1 k: }- N, f* E* P2 b6 E# L CellChangeTimes->{3.577957376235614*^9}],# j3 \1 N  c4 W6 ~) B

    ) `: ?4 v9 B* C! }Cell[BoxData["0"], "Output",
    8 W; f$ k1 h3 [1 F: Z+ v# ^8 H CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
    3 a# g  `4 z8 k9 Z: O- @5 {}, Open  ]],/ U: N6 d( L% P6 n  z
    8 U  X4 h. a% K2 a' l5 u& A: O
    Cell[CellGroupData[{6 W$ }, [" [. y2 Y5 H5 O: z

    $ n1 {* o9 r! B( x$ x7 A2 ~Cell[BoxData[2 f" j0 Y7 Y# u/ O
    RowBox[{
    " @* m1 e1 M7 S* U7 g7 F  RowBox[{"Ca", "[", ; _" G0 ^, E& T4 ^4 O! Y
       RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",! v+ g  K* e- [6 B' z# }
    CellChangeTimes->{3.5779573112927003`*^9}],
    ' O0 V  [) O2 C+ S9 r2 w6 I7 }4 M, L9 a: G7 L. L0 ^$ Q
    Cell[BoxData["0"], "Output",
    ) g; d$ x8 u& e9 e: Z7 [7 U3 v" s CellChangeTimes->{
    " B4 c1 Q: A# u$ m  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
    ! B5 e7 r( \' I- I! Z   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9, & K! C4 H3 z- B5 @/ b
       3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9}, : `1 {* e# t. B
       3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
    5 ]! |4 w+ a9 i   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, ' f- |1 g/ K5 s) }, R; C: x3 W
       3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]  W0 h1 M- I5 U; E, B. T& C
    }, Open  ]],
    0 S0 y- Z9 \- h6 n; |9 X
    : K7 j: P  ?1 v/ H: RCell[CellGroupData[{
    5 ?1 T$ C. V# b- M7 ~: f% R9 d
    6 T2 e7 _( z" nCell[BoxData[* T! `; `9 ]8 l) v; n  b
    RowBox[{0 n8 W. Z/ \8 t  H8 [
      RowBox[{"Ca", "[", . v3 T9 g1 I$ W) g
       RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",9 [$ X8 `3 G% |/ v# j, L9 p
    CellChangeTimes->{3.577921461734375*^9}],
    9 U% l7 ^' q5 i1 b/ `# U7 `
    + h3 o. k& y9 X+ u# H  ZCell[BoxData["0"], "Output",; Y, `' D1 T0 \/ ^) P) `# ]
    CellChangeTimes->{
    6 k  @- B8 [( h8 F: N7 B  3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, 0 O" m6 d9 k& }+ h& Z* N
       3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
    : F( w/ i$ T  U, x  B. l   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
    2 L" E% ~) [2 t$ C9 _/ k   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, - J$ z$ y! N  i7 k5 J
       3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}], t  t; [# ?! ?
    }, Open  ]],; ]4 g" o/ l5 C

    3 R4 E  R; X4 N! d( O& y( fCell[CellGroupData[{
    ( c- |* m' v3 ]" q4 F' k; y
    + q+ @, r/ p0 E' n- _Cell[BoxData[
    / R9 i% \! c- l* W2 G' i2 W RowBox[{5 w* o2 K" e6 @3 a! b5 Q
      RowBox[{"Ca", "[",
    ' m1 |. |2 }9 e   RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
    9 ^+ H, _9 h& k CellChangeTimes->{3.577957303118286*^9}],
    ) ]' [8 P5 b' {$ p, _" ~$ Q5 Y( P1 i, o; |, |' E' p- b$ L. J  A
    Cell[BoxData["0"], "Output",
    , a) |0 g) P. @ CellChangeTimes->{
    3 F- N  x3 E5 J  Y: g. k2 Z: z7 P  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
    . t" m  S* z2 I   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9, 0 n, B8 W5 `8 |7 w3 Z$ t$ z8 r
       3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
    ' C2 g0 r2 u- V   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9, $ M1 L  e" E$ |
       3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9, 7 k7 W9 N* q+ y! d: \% t* N
       3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
    4 a+ I1 a, M5 ^/ K   3.577961889378585*^9, 3.577961912965826*^9}}]0 q3 _* ]: s' b% [
    }, Open  ]],. o" m0 d# B' G7 n( g
    4 e7 K" P; @& o( u% Q; }
    Cell[CellGroupData[{
    5 O6 X& O7 O" P
    ' v" [/ d! L9 E7 L4 mCell[BoxData[
    / Q$ e. Q9 S# m1 u RowBox[{
      c: f: P1 J5 U* G  RowBox[{"Ca", "[", ' D$ C$ F) h9 {9 L( u
       RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
      @" m) K0 g7 C5 i% @" n$ ` CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
    ( l5 w) y6 w# j/ W  3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9, ! d$ A2 P% ~  p2 E+ x1 `6 r
      3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
    2 h; ~7 [  W: I; ?  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
    ; [2 B; G, q# q0 g5 v9 g  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
    4 [4 L% D: [' L1 h# T  3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9, 2 T7 G, r; o8 C- {( D7 l4 m
      3.577921435703125*^9}}],
    0 T$ j& _: J1 p7 y6 T( H6 ~  I' v' ]& X0 |
    Cell[BoxData["0"], "Output",
    6 V0 r+ h- k6 m: n. p0 z% c3 y( E CellChangeTimes->{" G3 u. q; {6 N! H; v* l
      3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {5 w8 C' Q0 |$ h. G* y9 A: d
       3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, . B! G. b* d. x* k/ V
       3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
    , Y% a/ U8 U/ I! Y   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
    " [  g- k1 x/ P& s9 q( D: c+ H   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {) [/ Y0 B5 Y: l& `. M8 S4 q) g
       3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
    4 K0 @8 Y/ ~2 w9 U# q% i/ O8 @. m   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9, " \" P5 q" l: K1 V
       3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
    / d" H2 ^1 u: F) ^   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {9 D" g4 t0 K3 z
       3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
    8 x0 q- J* K. a- X   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {/ U! J% s6 ^. Q% R5 i( j: P
       3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
    : q0 X$ `6 R* @   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]( y9 q3 G' M# B0 {/ W. r
    }, Open  ]],2 V- g# g! x. Q3 i2 R& _

    % H" E, z  P* hCell[CellGroupData[{, K/ W4 x  i  [

    & _7 c7 d. g, r! U; XCell[BoxData[% B1 \2 C% |* r1 X$ e) Q/ t6 @
    RowBox[{"Delta1", "=", 5 ?& z1 B! V0 h/ W- |4 `) R
      RowBox[{
    * r2 }5 f* _4 q8 n   SubsuperscriptBox["\[Integral]", 8 I' X0 f0 w5 {- _
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], $ i# W# P* D8 `) U0 u3 ]( ^$ c
       RowBox[{) y8 \: ?% b+ g8 l3 y1 H3 J
        SubsuperscriptBox["\[Integral]",
    5 c* e, I( T% \/ q) s     RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    + \" ~2 E5 m! ?7 b    RowBox[{# U3 D% A/ p' O% h! k
         SubsuperscriptBox["\[Integral]",
    0 _; e2 E2 q1 B! e      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], & `# k( E+ k" ], j, \+ j
         RowBox[{8 I6 p1 O0 |* M9 K
          SubsuperscriptBox["\[Integral]", + Z% I4 p/ L' s( z) T- `
           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    8 W0 X" q/ _  K6 k      RowBox[{
    . P' ]1 v& A( f* H  D       SubsuperscriptBox["\[Integral]", 2 I- z0 E5 `' O$ M
            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],   }  z8 b, {+ X- V: H- v
           RowBox[{
    , o' ^+ q% {0 C4 B) ?& [        SubsuperscriptBox["\[Integral]",
    0 k: L; A+ C' y; ?- V6 g& b         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    " |  J- F; A" X5 @, K7 |' }- N        RowBox[{' ]1 ~& g  e6 O* W9 f# n* h' P
             SubsuperscriptBox["\[Integral]",
    1 W7 G) o9 D" ]- V( H3 z          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], , C0 i- k8 S+ O; S
             RowBox[{9 l" l8 ?% [& X
              SubsuperscriptBox["\[Integral]", + V' V0 k6 H1 f4 W/ ]
               RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    % R; O2 A3 G0 v  s: o6 U          RowBox[{
    1 y  I1 S/ D7 x8 ^. Q" }8 W, G! e           SubsuperscriptBox["\[Integral]", 4 g; o9 k! H1 w4 `- D
                RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    4 e5 C; Z( i; k2 n           RowBox[{
    4 X8 }' U4 C6 F0 j) A- ^            RowBox[{"Exp", "[",
    / N  }" ]& f5 X* a2 S% {             RowBox[{4 G# [' E3 j. O1 ]
                  RowBox[{
    + f9 ]6 n  O: _. v5 ^5 W+ f               RowBox[{"-",
    * j" x& }9 X& r, O                RowBox[{
    $ ]( F8 |6 ^: H8 L8 k8 D7 ^                 RowBox[{"(",
    ' r% U# t' T% Z                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 x7 N" V9 s8 t% @& q" k. j* _7 c
                     RowBox[{"(", % _% |" o3 R. ^0 K# @
                      RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
    - y; }8 l5 L/ P6 ]) j+ p              "Delta"}], "]"}],
    & r5 i& J8 c+ z2 ^( H- h            RowBox[{"\[DifferentialD]", "x1"}],
    / f  p8 W: y; d) t            RowBox[{"\[DifferentialD]", "x2"}], : B) T2 s! ]7 b' x
                RowBox[{"\[DifferentialD]", "x3"}],
    % l2 s4 I" q2 p7 k6 V# G) f- Q            RowBox[{"\[DifferentialD]", "x4"}], & j* W5 y# F; `& A; c- a8 i
                RowBox[{"\[DifferentialD]", "x5"}],
    ! R$ G; D" O/ {& Q: ~+ ~            RowBox[{"\[DifferentialD]", "x6"}], 5 s) h. d$ i* c
                RowBox[{"\[DifferentialD]", "x7"}],
    ; v$ M5 d2 \: B- ?2 M+ i; l9 H            RowBox[{"\[DifferentialD]", "x8"}],
    7 k3 R6 I& g# n            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",2 |9 j1 U3 T7 j5 D2 Z
    CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {0 k& ~0 Q0 @4 u' o0 `
       3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, . ^2 h; I1 E  a( ]
       3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {3 v4 k' g: T9 }( a
       3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
    $ q* X  S. K( T5 \   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
    ( H( ?5 e  l3 [8 @1 B$ s4 x5 L   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
    - f9 y. ]" {# I5 ?   3.577918964453125*^9}}],
    - D  \. Y- K8 Y7 M) E0 r& s5 V  M; C8 G$ j5 f' ]" h6 i
    Cell[BoxData[% n% p( c& S, L+ q. |) G! F% d
    RowBox[{"97.40909103400237`", " ", 3 A9 n/ E( d" M- H: N( R: g
      SuperscriptBox["Delta", "8"], " ",
    & `4 o+ Y  X- e- W& Q* R  RowBox[{"If", "[", ( Y; x/ }9 q6 F4 ?
       RowBox[{" a' O2 E$ M6 k" m% I4 q8 U- N* _6 K
        RowBox[{
    ( j8 P& b% I+ K* Z6 u' q8 q  T     RowBox[{"Re", "[", 6 m# M) t) Z5 d! C* k
          SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
    2 W$ q9 i# s( l: k    FractionBox[
    & V+ ]) ]% O* S2 Q2 @     RowBox[{"1.7724538509055159`", " ",
    . S; q) v8 H+ _- d% M- s8 k9 h; Y, [      SuperscriptBox["\[ExponentialE]", : V7 L7 D$ J8 I  K; i  u
           FractionBox["1.1102230246251565`*^-16", / ^/ k& z) y3 ~4 b% j
            SuperscriptBox["Delta", "2"]]]}], ; n1 l/ J6 T) G/ U
         SqrtBox[1 S8 P3 X1 s; j' b/ C8 e9 i
          FractionBox["1", 3 X0 t' c4 T* r, Y5 y$ Q
           SuperscriptBox["Delta", "2"]]]], ",",
      l; a  W& i, m* h7 ^( o    RowBox[{"Integrate", "[", ' V' T  c0 F4 u; W; b6 T
         RowBox[{
    * [0 O4 p$ r( ^, n1 Y/ n) H      SuperscriptBox["\[ExponentialE]", ' G+ {; r9 [$ x5 u# E' z
           FractionBox[
    7 e0 t" v1 `0 h# |$ M        RowBox[{"1.1102230246251565`*^-16", "-", : M  Z% a9 @" T4 Z+ a" U
             RowBox[{"1.`", " ",
    % ?9 a: n- z3 v6 v          SuperscriptBox["x9", "2"]}]}], 8 ~, Y% E9 l/ W: q; ~7 A# ^$ X" J
            SuperscriptBox["Delta", "2"]]], ",", " Q1 S. V4 s( [8 P# @. P
          RowBox[{"{",
    1 _: h- [; ]2 t' d4 R# L( X       RowBox[{"x9", ",", ( ^! t4 V# g9 r' k1 X
            RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
    5 z- @2 Z. z0 G* ?2 F# H& @      RowBox[{"Assumptions", "\[Rule]", / j* B, U: b% s. @# q' r% q
           RowBox[{
    1 q$ r  J5 n$ j        RowBox[{"Re", "[",
    2 O2 k9 R, S/ y( i0 w4 `         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}], 8 i- B1 ?" w' B2 L0 i$ r4 t; K. `
         "]"}]}], "]"}]}]], "Output",
    , B0 Y5 o8 S: X  x9 w9 S CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, 3 ]: ~* b2 J8 u6 _. J
      3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9, - a; N* G5 d5 M
      3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9, 2 d! {$ Q) r) R! S, ^* M, l
      3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
    ( C1 x# k5 P, P' V& S# D: ], B  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
    & _1 T! d' p7 S& p% A  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
    ( [  n0 x9 T# F4 i) {  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
    ' u- o0 a- |+ O$ X6 x& x3 b) U. z/ J' w}, Open  ]],
    ! r3 c3 d2 M2 ]/ S. ?# W7 o8 \$ i# ]% S+ a, @
    Cell[CellGroupData[{0 U- j& O& p8 C: a

    9 Y  f9 ]4 G) z. \( S/ F5 ACell[BoxData[( X( ?( ?1 A' Z2 A4 ?: ]1 X
    RowBox[{"Delta1", "=", 7 s' V# [$ X. J7 s( O. \6 d- c; k
      StyleBox[
    # w' Q! l( B9 M9 ]- H  y   RowBox[{"97.40909103400237`", " ",
    9 A! `( M4 F; J& W, r    SuperscriptBox["Delta", "8"], "  ", + ^$ C5 f6 D+ w( Q2 ], `
        FractionBox[
    7 s7 n( {" `8 I' {     RowBox[{"1.7724538509055159`", " ",
    ! r4 _/ Y% m. k6 Q/ D& o      SuperscriptBox["\[ExponentialE]",
    " u' F) T7 _+ d* ^3 E! @$ ~       FractionBox["1.1102230246251565`*^-16",
    % ~$ a( E/ D' t        SuperscriptBox["Delta", "2"]]]}],
    9 j0 H" d0 B- ^3 E# u     SqrtBox[% L% `+ J. U1 Z1 Y$ f
          FractionBox["1",
    1 [: c: }5 e3 y0 O       SuperscriptBox["Delta", "2"]]]]}],
    3 g7 w/ U7 j/ s' ^# G   FontWeight->"Plain"]}]], "Input",: R! N. f+ o$ ^2 T
    CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
    : x" ^+ Y* g" I" e   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
    0 i1 G8 f; o8 r6 N% U& s+ M   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {3 B& b$ N  C( B& h- p, b& O( e1 l
       3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9, # M9 I. {2 n: E
       3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},   R! I( |) Y" b# c
       3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],6 O2 q! d: q, D! B
    + B# R$ F5 a4 f
    Cell[BoxData[2 I+ G  m% p* P1 D. `
    FractionBox[
    % r: Z5 J5 m5 J" I1 a% ]0 c7 e1 f& C  RowBox[{"172.65311851642346`", " ",
    ( ^4 n0 q8 x1 I# L9 \- X: z4 I   SuperscriptBox["Delta", "8"], " ", 8 ~7 n  E- b$ i& P* b
       SuperscriptBox["\[ExponentialE]", & U4 g7 x0 Z1 n7 |/ @' G9 Q
        FractionBox["1.1102230246251565`*^-16", $ w( l; L5 ^$ a% G) \
         SuperscriptBox["Delta", "2"]]]}],
    4 O5 N" u9 K: F  G  SqrtBox[
    # j* f; J7 m2 T   FractionBox["1",
    ( F4 I$ X# n: \0 X6 [1 ]% d    SuperscriptBox["Delta", "2"]]]]], "Output",& G: `6 x- [1 B
    CellChangeTimes->{
    % X1 h7 n6 ?& |  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, : d/ I' N7 g5 F+ H! l! Y
       3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9, 5 f. |) l3 t- e% W
       3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
    : a3 S4 h; [$ O! E+ p5 {8 ^. u   3.578012166234375*^9}]7 K0 q# |* O% f  p/ a# Q! s
    }, Open  ]],
    $ Q5 U" `) V' U8 F8 a- V1 g# ?0 ~/ {
      F: f+ Y4 ]& E1 e5 I- H- FCell[CellGroupData[{
    1 i( C4 r9 r0 M' k5 U3 e2 S& Z9 T* V% u. I* i  S- n% G
    Cell[BoxData[/ N. T( Y- O' ^
    RowBox[{"DeltaX", "=",
    ! J; O. `! x6 L  RowBox[{"FindRoot", "[",
    $ o9 D" o: c" D/ z7 {3 m1 Z   RowBox[{
    ( Z! S7 [) C  \' Y' d- t    RowBox[{"Delta1", "\[Equal]", "1"}], ",", " _6 g: ?+ J3 K9 c
        RowBox[{"{",
    ) ~& h. d9 f1 Q" y     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
    5 N. a, b' k, P. F+ B) U CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
      `. ^" k* n0 r  a  d" G   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, ' D$ p% E6 y- P) x! ?: ?: x6 ?, r
       3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, / q& ^$ ^3 k* K% _# r, J& m( D
       3.57791921584375*^9}}],6 G- T! \4 h# y- S0 h) v) ]" K7 b

    ) r- j6 I6 V1 V* y& z, _9 b6 c: PCell[BoxData[0 I. V; ^% c5 @
    RowBox[{"{",
    5 M% Q- u4 F  X, I7 P6 P" c  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
    7 U( h" P/ |* J) I1 t7 ` CellChangeTimes->{! |. x; D* \# \4 Q
      3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    ; u( X7 V. X+ P1 g   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, * _' m: K3 [! t* u% F; H, X
       3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9, 1 z' f( H4 }2 i* ]1 a5 d
       3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
    3 N0 j, ~  b/ w! y& W: y   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {) G2 k/ v' `6 X. W6 l3 u
       3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, 7 T$ _+ F& J/ y; Y
       3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9, % N8 D9 Z, d% t1 `6 y3 E
       3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
    ! a8 ~$ U$ U- P7 s. z   3.57796070150625*^9, 3.578012167703125*^9}]
    : c0 S. |' T' J  E' t" B}, Open  ]],
    6 o4 L5 C! k- u" X* Q) r- |8 K% u# T7 C$ N9 y
    Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\5 T" B- q+ @! @7 p. E7 L% a# m
    \:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",) k! L9 V* ]* I5 s" ~
    CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {5 ~; Y5 [/ o- G
      3.577960705312657*^9, 3.577960707621461*^9}}],
    9 E& d5 ]' a& o
    6 e9 s% o# w2 ^1 I) N3 v+ CCell[CellGroupData[{; [7 ^7 w! ]& J4 [; t& e
    4 t1 z* q& x! ^, }5 \! T
    Cell[BoxData[
    : R7 r) ~& i" U5 L$ k9 W/ p, i' v RowBox[{"C1", "=", "Ca"}]], "Input",
    5 u/ A/ ~# s8 {6 s; X+ I CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],' J/ R7 C2 b/ u" f! n2 h
    9 |' f( [: J. m3 O1 Y' o1 g- M! j
    Cell[BoxData[
    , o2 \0 o0 D; L. T RowBox[{"{",
    * y+ z' |! R% B* I  RowBox[{
    " z* `/ U- V0 o4 e3 q# c+ n, X  "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
    8 `7 N. B9 |& `7 [0 Z/ p   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
    + P3 Y+ n. s: m8 J& N" Q/ T   "0.`"}], "}"}]], "Output",5 \0 N6 S( q& e1 o% C2 }$ n7 V
    CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, / s% q  W7 E0 v
      3.577960710273465*^9, 3.5780121855*^9}]0 j+ A$ C  b. f# A
    }, Open  ]],1 s: c% J6 R& B5 F' I6 f! T
    / t& E. @7 O  _& h9 M. y9 N  E* H% q
    Cell[CellGroupData[{
    2 {" S2 w0 |7 M( O% O7 @0 N5 K) v2 u) d! c
    Cell[BoxData[
    / q; W6 f6 z; [ RowBox[{"u1", "=",
    ! l  v5 |- ?2 a- k, L  RowBox[{
    1 W& }+ w/ {" \* q% K   RowBox[{"Exp", "[", % `* J7 N  G1 J$ d( P7 W6 E' M
        RowBox[{
    6 S$ V1 U/ E4 ^. @' y     RowBox[{
    ; j$ v6 K% e' u# E      RowBox[{"-", ! K, r0 z* J' u' y; u0 Q
           RowBox[{
    5 y2 j5 Y9 L  F4 o; s9 R! A        RowBox[{"(",
      H8 X  D: h5 E7 a& n0 ?4 G         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 6 R5 Z2 A1 r2 h3 }) J* }, i
            RowBox[{"(", & `% v4 q$ j+ p7 M( M, a1 {) @/ u
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],2 S  d4 u; ]1 W+ E* Q
         "]"}], "/.", "DeltaX"}]}]], "Input",
    5 }$ z% u2 Z9 q! C2 B' o CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {" n; b% F  L5 B! _
       3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
    7 ?8 K: j: |' k1 }   3.577919193484375*^9, 3.5779192326875*^9}}],
    ; Z1 D4 Q, {, ~. ]: y' |. X2 `: Y3 h1 Y
    Cell[BoxData[
    7 ]" L1 g4 `& a& E/ z# I& Z SuperscriptBox["\[ExponentialE]", 5 o. [0 i. u( j; g7 w. p* o
      RowBox[{"3.141592653589793`", " ",
    6 h, |. F# \8 E# ~. `. @   RowBox[{"(",
    $ w$ `( a6 K+ P- h. \    RowBox[{
    # [4 G6 P+ x: d     RowBox[{"-",
    ( F+ e/ x: B9 C' g      SuperscriptBox[: r3 T: k7 @5 T' c/ C2 e
           RowBox[{"(",
    8 R- W7 Q3 t! u# {; s0 O5 x0 Q        RowBox[{$ {& S& b" A% b2 L$ a
             RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", - K8 _. n/ L% K& G* s
         SuperscriptBox[
    - S* l" G6 s5 X7 N! L      RowBox[{"(",
    2 j( T+ D' A6 i& F( Z# ~2 F. ~% T       RowBox[{) E7 `+ O: s7 W- H0 U# [, A# M0 Q
            RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", 2 A' l+ W$ ~, C- V$ x+ W
         SuperscriptBox[2 T% {5 X0 ?- t3 f
          RowBox[{"(",
    # @6 u! z; ~. y% o! r& S$ r# ~; p       RowBox[{
    ' |* x' n8 @1 a/ L; w: r2 r3 l        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", , d) ~$ M' e4 w8 w
         SuperscriptBox[, F: w, x- |( r( y% N+ H3 M* {: N( @
          RowBox[{"(",
    ; g$ F! w$ L; A0 v5 H" \+ y       RowBox[{4 Y# I, p& r  d: U& Q
            RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
    1 x1 O+ m; d4 S5 a8 I  n     SuperscriptBox[! V$ P" g- |! }- }! C' y# ?
          RowBox[{"(",
    & G# o- N( i; K  r- B       RowBox[{9 e0 N( W3 `) t2 o* d
            RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
    ' L: S  Q- k- k3 ^     SuperscriptBox[' U2 R' b! F% r% @
          RowBox[{"(",
    , L+ A" s' g' c% d3 Q4 }; n' u       RowBox[{+ d8 Y7 c9 m6 N
            RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", 5 T( f5 L6 A6 K6 O9 Q- `
         SuperscriptBox[( X$ y) c- N% D0 X  C; e- @, X  ^
          RowBox[{"(",
    $ b  S* d4 V% V0 d$ `       RowBox[{* f; `' ~1 e' b. d( A; v$ J: c
            RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    0 ^& p4 i9 D1 C/ O4 D9 I+ V     SuperscriptBox[
    ' o8 |4 [3 r  ?1 Y$ V9 Q      RowBox[{"(",
    4 n! u1 d1 U9 ^       RowBox[{, Y, @. p/ }& a4 i  k. N
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    9 K( R6 y; ]1 @. c     SuperscriptBox[
    9 d) `" t- B9 R7 G3 ?      RowBox[{"(", & M6 ]% e: O# k! `2 S
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    + }% K( Q8 q" Y; y) r; M% z' b    ")"}]}]]], "Output",
    2 D+ O6 g+ V6 [/ j* k7 F* w CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
    ( C* u0 \  y* b' G6 r: L& M  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
    & C0 H. z# G8 E3 Q/ |/ v7 h  3.578012187078125*^9}]
    ) q! I8 [0 p' U* {9 I0 U}, Open  ]],
    / g% v& K  U% O1 P9 t3 j  M$ b9 [4 _
    Cell[CellGroupData[{
    ' a$ N5 j: [% y: \# i9 q
    * s1 A* t6 I* E- \5 q- S% x3 ?+ yCell[BoxData[$ n( u$ A" r$ i( Y- m6 F0 ?! |
    RowBox[{"C2", "=", "Ca"}]], "Input"," |) z& G( s" E# m' @
    CellChangeTimes->{3.57792047321875*^9}],
    : t7 Q; |$ M% \/ a+ n, L  ~2 D8 ~% X+ P4 y% x
    Cell[BoxData[6 B8 ^9 i; R# [, O
    RowBox[{"{",
    9 u. I- g, ~9 b# F6 `  RowBox[{3 `4 s4 j6 \- n* X9 d
      "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", ; M' \" [- h, F( \. g& e
       "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], 3 x4 R' ]- s" r4 {2 @% G, |# U2 i
      "}"}]], "Output",
    & U/ X7 n2 v. e2 w  x4 k2 [# { CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9, " `; M" A/ a4 i
      3.5779607401163173`*^9, 3.578012204671875*^9}]
    : \1 y* X" R! J. g" p* R  G}, Open  ]]," x, M# E* U" `- g' M2 |
      y! z3 j* W! {8 v5 A7 g
    Cell[CellGroupData[{2 x( d1 K+ J  S! Z0 n6 V
    4 t; g5 y! v$ Y3 ]& h
    Cell[BoxData[
    ) }  t; [+ H/ Y3 b, D2 l1 v RowBox[{"u2", "=",
    , K8 @/ y$ {7 a" W+ c5 K: |  RowBox[{
    % y# {" ~0 I, M0 \" }   RowBox[{"Exp", "[", + C9 u+ I( Q: d) ?3 Q9 [8 I
        RowBox[{# {8 M* Z  M$ j! x; s7 O% l
         RowBox[{
    2 Z+ i  S* w- \$ z      RowBox[{"-",   I: J- n9 o: \% E
           RowBox[{
    + V$ m  N$ M& _' O6 U& q- H        RowBox[{"(",
    5 [& {0 E& }: l; _) C         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", % U) A6 V# Y5 q. d$ ]  s/ P7 S
            RowBox[{"(", ( {! h: e, J2 X# Q8 }/ p% m6 c2 H
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    # c  ]& ~, |( b- Z* j! H: \, G) v: d+ C     "]"}], "/.", "DeltaX"}]}]], "Input",
    & U$ F/ N3 A: ?% f$ ~1 | CellChangeTimes->{3.577920484109375*^9}],! ]# h% N/ Q" t% \# z7 e# ~

    4 I2 t+ ?. |$ R; ECell[BoxData[
    . ~  K- k; ~( z$ {8 K6 [9 Y SuperscriptBox["\[ExponentialE]",
      c( m# ~. G8 Z  RowBox[{"3.141592653589793`", " ", 2 r& P# K$ R2 i) K
       RowBox[{"(", 0 {* _4 ?7 p5 O
        RowBox[{: I- [% j# N! D, y$ }1 Z! ?- t
         RowBox[{"-", 2 g+ l2 k' ^( I. N5 o5 A# T% ]* G. m
          SuperscriptBox[
    8 R0 [9 C4 p/ X8 }3 W4 d) X3 R       RowBox[{"(", + X0 k+ l  W2 A- I. C4 J- X
            RowBox[{
      r  G* s- Q5 }9 m; W         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", 4 z5 w( U/ Q$ t/ [
         SuperscriptBox[1 q9 ?" X- O! l9 D3 U% Y
          RowBox[{"(", " w( K9 \: C6 d& q' n/ I
           RowBox[{
    3 i2 t0 B# t% Z        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
    % ~$ C* h) J' Q7 J6 D     SuperscriptBox[+ u" C' c, x# \4 ~7 ?% c+ Y5 X
          RowBox[{"(",
    / B- L  K- v& ?! _) W6 U       RowBox[{
    ( W3 i+ R; h& Y- O& N( s+ {  T        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", % u4 s. o0 P2 ~7 y( s$ r; c
         SuperscriptBox[, B6 A( d9 M. C$ C# u2 L
          RowBox[{"(", ! x3 ]! t3 j# ?$ _" S% z
           RowBox[{! f4 i; ^4 ]6 Z6 c; C0 Y% E. W
            RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", 8 O- z$ g3 E+ P; @4 L
         SuperscriptBox[& Z% a' c) l0 ]/ L+ e
          RowBox[{"(",
    : L% Q- u( ?9 Y- D       RowBox[{
    ; Y- @) c. T$ I; P+ d6 g        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    8 u2 X2 E3 |7 g     SuperscriptBox[
    3 w  z$ ~5 v: t+ `0 u6 X/ D2 e      RowBox[{"(", 5 F3 N. F3 C" V9 {) N7 C7 _9 |
           RowBox[{
    ) Y" [/ q6 A# f. C; v0 a        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", 7 l% B* n; c& D
         SuperscriptBox[6 o9 z2 A/ A" ]  T$ g
          RowBox[{"(", 1 a' _+ L5 J( t9 c
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    7 c9 E7 b1 F+ R6 T& X" l     SuperscriptBox[
    , b+ x$ v2 h* d7 M! Q$ }" Q      RowBox[{"(", # e' l& N# [* |5 C* @
           RowBox[{
    / Y$ a8 q1 b' N( k  Z        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
    4 X- u) r. c$ |7 r     SuperscriptBox[" @; g7 ]5 o3 ]! z/ s* w
          RowBox[{"(",
    ) g3 h1 K# H; R4 B* J7 X9 j       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ( H0 N. q* {) U( H6 X
        ")"}]}]]], "Output",
      `* j+ j& Y+ `" k% N1 x/ J CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9, 1 o0 C5 N. X" y; @
      3.5779607413955193`*^9, 3.578012205484375*^9}]
    ' a+ m; Z- H: j+ \/ Z& {( g; `}, Open  ]],
    ( F. H$ J1 A6 c" _: Y$ Q0 \* R
    3 J& \6 _+ C; y4 zCell[CellGroupData[{
      e# G% n7 P6 d3 B
    3 A! f! l0 d/ t: qCell[BoxData[; k9 k" |! ]. M1 K# j+ ~, x  I" y9 s
    RowBox[{"C3", "=", "Ca"}]], "Input",' Q0 o) Q! r, ?1 M+ ~; N+ ^
    CellChangeTimes->{3.57792064125*^9}],
    * P  x6 \+ h( B
    - c5 a9 i" o, Q$ T+ y7 nCell[BoxData[
    - N7 A7 q  x, O( b1 h; j( b RowBox[{"{",
    ; S1 a4 a. F1 C. `1 M  RowBox[{1 h7 Z+ E0 f, w: s
      "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
      j% m- U4 `- t6 |   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}], # e3 ?$ J1 e: U# _! l" N) p- I
      "}"}]], "Output",- j+ c& d, a2 U% h
    CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
    % h$ M: \; O9 T7 f  3.5779607642027593`*^9, 3.5780122103125*^9}]: J& j3 [; b$ V
    }, Open  ]],
    ; e4 Z1 T$ P, B$ i+ A
    ( d) f; z  n2 K& g- Z4 V) wCell[CellGroupData[{4 `- _/ n, \, D1 K, o. i
    # k, g3 K( l2 J
    Cell[BoxData[7 _" c/ j8 S& U6 B% Z; V! O+ u
    RowBox[{"u3", "=", 4 N0 N/ ?0 q2 Q( D" q. Q
      RowBox[{
    ' G+ k' y( n+ Y( }) v   RowBox[{"Exp", "[",
    # A% x5 E( [7 ]  F  `- a1 G0 q4 A7 ?) X    RowBox[{
      \. D7 |! E/ Z. n+ v& K; w     RowBox[{
    3 e, g8 V; s3 a7 w" d8 g      RowBox[{"-",
    " P# H# }" M6 X7 n$ Y       RowBox[{
    ' X8 W0 o8 p7 g# O        RowBox[{"(",
    ( u- D' ?% z  j+ w3 c2 `         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 5 S2 `- T# F; n. M
            RowBox[{"(", & |" c8 N" B4 ]; ]6 E
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}]," u3 i1 I( w. K6 e, L
         "]"}], "/.", "DeltaX"}]}]], "Input",+ s# h2 g- F( v1 y
    CellChangeTimes->{3.57792064921875*^9}],* ?+ L! j& A6 J/ Q4 o
    " P& \( I7 ?  \( }% P
    Cell[BoxData[
    - N& i6 t8 R7 \: F  x, z% U SuperscriptBox["\[ExponentialE]",
    2 }' ]+ Y% v- l* U# o! a9 v  r) A  RowBox[{"3.141592653589793`", " ",
    7 `: D/ m3 z! Y, f% X( }& V   RowBox[{"(",
    $ e4 ]. D- T9 r1 Q  k    RowBox[{( z9 H3 f- d* n# R/ [0 B( F, b
         RowBox[{"-", 3 l+ H5 w# f9 w! w) O, T( G
          SuperscriptBox[0 {& {( X" n$ b8 l  S$ Y6 N
           RowBox[{"(",
    ; l- w5 j2 }% d9 p1 Z7 `        RowBox[{
    ( a$ t* y8 x* T         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", & I  w! ^7 O- W/ M  U4 G6 g/ ~
         SuperscriptBox[0 s+ e' ^% R: x: N* H% P
          RowBox[{"(",
    1 \+ U  Z3 m, C6 Q8 U- s$ A7 x       RowBox[{
    6 e6 t2 N- o) n- I& E6 @        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
    + E6 T" p+ R) b) |! k# V" S     SuperscriptBox[0 f9 ?3 ]+ H# v+ ?- T0 D1 G
          RowBox[{"(",   B: G' R  ~# Z3 ~3 L0 I7 O
           RowBox[{
    ; B/ }# b: I6 T$ F) ?5 G        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    + f8 U. l3 I: a2 u3 J     SuperscriptBox[
    " i2 r; |1 d, {      RowBox[{"(",
    ! s; y7 ~) K. ?! {/ d- s0 ~       RowBox[{
    5 ^3 x, N# O( R4 V        RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
    # a  v2 u4 ^4 p, ], q     SuperscriptBox[
    1 O- e% v" x/ a      RowBox[{"(", # j; ]& k- M3 n$ n
           RowBox[{$ w+ p. x5 k( n# G4 Z; a- P
            RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
    : K( z4 H! @  S4 O# Y     SuperscriptBox[
    ) W& G+ @: r9 Q2 }' Z      RowBox[{"(", $ R; t5 h6 k% h* b
           RowBox[{
    5 [/ D( C8 k4 G7 T4 K( N4 {        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
    * u/ e* n2 v& c# k! ~     SuperscriptBox[3 n( g7 s0 G. P
          RowBox[{"(",
    $ B% S1 l# n; M" D! }3 \2 {       RowBox[{
    % e6 A9 u! ~9 G3 j        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", 4 p+ b& s8 B, c; }- v
         SuperscriptBox[
    : R, K1 n8 V7 R% N      RowBox[{"(", 6 M- E/ R5 i+ E0 X6 M; i7 ]% r
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 9 U- q  i! p7 L+ T( {
         SuperscriptBox[/ G8 c6 A: R! ~3 e, b. K
          RowBox[{"(", 0 l- N( n$ c" {% m4 I
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ! I/ h7 W; v4 y& a" K
        ")"}]}]]], "Output",6 ^+ N  m5 \+ J7 G! N
    CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
    2 e' Q. @" p( X2 I* H1 \' s  3.5779607654819613`*^9, 3.578012211515625*^9}]/ r  M+ a9 q+ j3 y. X
    }, Open  ]],
    ; W9 ?2 x. f# ?5 y8 C
    - k  \1 V0 ~' Y% z' J# |) [! LCell[CellGroupData[{
    7 R- \! E% ^0 v5 D5 m0 ~/ Y! g
    # g& Z& C8 y4 WCell[BoxData[
    7 |* e- P$ P5 X RowBox[{"C4", "=", "Ca"}]], "Input",
    8 K  P# C* L0 B" }8 | CellChangeTimes->{3.5779207559375*^9}],! c3 E: {$ o' U' y- {' w
    ; v  @" [& l5 w2 }
    Cell[BoxData[8 ]2 h$ r- X0 R/ S9 }
    RowBox[{"{", 0 F( f4 ?# k; n/ z
      RowBox[{
    7 s" ^) m4 W1 j* J0 i/ h+ @8 k5 Y  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", $ i/ ~6 x, T4 ^" _
       "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}],
    " i* b% q% s( M- U  "}"}]], "Output",/ o* D) ]; \' X+ S$ q$ ]
    CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
    , h; v& y, |/ S& u9 ^* ^& ~  3.5779607861363974`*^9, 3.578012216171875*^9}]
    . D+ K8 a, s+ \0 a# x8 b( d0 R}, Open  ]],
    1 Q9 P3 D1 L7 b- c/ ], t5 {( i3 n  p3 ^: P  g
    Cell[CellGroupData[{
    ( ~+ \3 m8 B' _7 G: k: Y# `8 Y
    " V& [$ |! R! w6 JCell[BoxData[& g& A9 g& t$ p
    RowBox[{"u4", "=",
    4 U8 h. v5 G, T6 K" Z1 S% s" u0 ^  RowBox[{5 ^9 A, [* U1 h/ ]5 c9 W
       RowBox[{"Exp", "[", ) M7 u) k- h: Z& ^( I8 M
        RowBox[{2 `4 C" ^) R- B5 P
         RowBox[{' R; [7 b" ~$ P
          RowBox[{"-",
    , |0 o7 @, Z; S$ {       RowBox[{
    : G; e- ^2 P+ K6 V3 C- B" |        RowBox[{"(",
    3 ^8 Q" m% a2 z8 s         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    3 o1 d) s+ x# L0 O# B        RowBox[{"(", : E4 m+ b# O, l' `5 e
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    + Z: b1 l. S6 L     "]"}], "/.", "DeltaX"}]}]], "Input",
    8 ?7 Z" c" x5 L' |, S CellChangeTimes->{3.57792076325*^9}],9 j9 v- P% h  X
    ; s4 e/ R2 T) ], U) _1 v8 o% j
    Cell[BoxData[1 ^  X8 |) l6 C6 M% g3 t/ g3 e
    SuperscriptBox["\[ExponentialE]",
    4 d2 d6 W+ G  A0 ^8 |8 Q7 y6 s  RowBox[{"3.141592653589793`", " ",
    4 e1 {% p" G& R, y/ g; q% J* a0 v   RowBox[{"(",   o6 n8 u9 i( A, N) B
        RowBox[{* L( p7 ~; [* N& a! q, K. r" b
         RowBox[{"-",
    : q: x) R& A1 u% c      SuperscriptBox[) A0 i. y! T1 r4 E
           RowBox[{"(", 7 f, \- Y: o4 w  j8 o- p9 n
            RowBox[{1 D4 c* x! ^' g, D3 S$ {0 q1 C
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 6 m  B% ~6 B. p* Z; m. k5 _
         SuperscriptBox[5 ]! f" s* ^" s; C8 t0 g
          RowBox[{"(", % y- F7 J( ]4 t0 h; M$ ]1 N
           RowBox[{
    ) N0 n* n, Y8 `  M. o  G0 P        RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", 2 d8 W: K  r$ T. [
         SuperscriptBox[, n4 s/ a" n, b+ M, J# V7 f1 `
          RowBox[{"(",
    ' k8 t1 K0 ~7 ?. H" v$ b: W       RowBox[{4 x) B8 P! N; P1 t# O0 j
            RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", ! K) ^6 ]: o- |8 L9 g% c
         SuperscriptBox[
    6 Q& I: Y& a! R7 X) u      RowBox[{"(", $ D* n: ^- E. x- ?( j
           RowBox[{9 `# V+ Q6 b: e- m
            RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", ( ~2 ]) K$ B2 f' Z: V2 o! l
         SuperscriptBox[3 j1 j% d6 L. E/ `# D( m
          RowBox[{"(",
    - Z6 M' K9 O+ X# W, N  F       RowBox[{
    + X: k0 X2 A5 m+ w        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    ; ~3 h7 W) f; V# V% Q     SuperscriptBox[. R3 W; @( y$ P* s. k9 _/ o
          RowBox[{"(", ! J0 c0 {: [3 d% I; m
           RowBox[{  p  _( s" H* s0 `
            RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", : a/ U2 o- Y/ [% Y( G
         SuperscriptBox[& Y- [0 L5 _) f; h& H% e5 @8 B
          RowBox[{"(",
    3 M6 m6 g" `) f# m. D1 s  V       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",   v7 M  O7 r' l5 S5 ~$ d5 V2 O
         SuperscriptBox[7 U5 }9 G0 E& H/ G; L# d/ J
          RowBox[{"(", " U0 q# B* `9 n" p8 U/ T7 y
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ) K9 P) r3 j: A1 {
         SuperscriptBox[- J, D- M! N$ q+ l$ z( T
          RowBox[{"(",
    8 d8 W$ k; I& r4 w0 i) i       RowBox[{
    % U# O+ w$ i5 U8 j) _        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], 3 v& @/ W' H) W! |$ D* S
        ")"}]}]]], "Output",# R6 o* o3 g: N* ?$ s6 |7 c: x
    CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9, ( X& o+ s8 ^* ]7 F+ `* d( p% v
      3.5779607873531995`*^9, 3.5780122169375*^9}]
    # G$ O1 u6 V5 h& F}, Open  ]],
    / _. S# _, v) v4 j/ Y: L! t; _) U7 C% Z, `/ T
    Cell[CellGroupData[{
    ; x7 q4 i% Y0 ?" y
    ' \# r$ h$ _, h: v, ~; a. ZCell[BoxData[
    ! n" ~1 N: n5 v& F! j RowBox[{"C5", "=", "Ca"}]], "Input",
    1 D7 \3 k7 U. ^% p! v1 _0 E CellChangeTimes->{3.577920860671875*^9}],- B  ?7 T% o- h" S, w  }
    ) G3 B4 Y  }/ ]" I1 a+ F6 Q
    Cell[BoxData[
    ( _) _, |" r# v6 N8 l RowBox[{"{", 1 c8 W' [0 L7 @" G: I
      RowBox[{5 x! g/ C8 I2 b, M7 H; ?( i, o
      "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",", . z- s$ ?# p5 F+ R& I
       "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
    . X) r* N! n2 d4 A3 Q; L& n) T  "}"}]], "Output",
    ' O  D6 y) |% s( g- e CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
    4 y, W8 B3 O1 N8 t! N  3.5779608137328453`*^9, 3.5780122209375*^9}]
    9 h/ W8 \0 j# l! S( s/ \+ _) y}, Open  ]],
    ' Q; d. e7 |0 _9 k
    " l' {' j3 a0 ~5 X- j8 i5 @Cell[CellGroupData[{: U% n0 x6 G! r! k0 J- i( d7 b
    ' K: n7 {* [9 c! [+ x
    Cell[BoxData[7 Z% H$ q! m7 x9 A+ L' l$ ]$ y! J( J
    RowBox[{"u5", "=", * J# x; W  y- ?4 I! J
      RowBox[{, l" S0 }5 c& ]1 S0 @* o# C% y
       RowBox[{"Exp", "[", - o6 v1 b6 N' D7 C3 `9 i, S
        RowBox[{0 V5 R: e! ^" z& w
         RowBox[{
    : S" ^- [) Q" f* ^- \2 t. \      RowBox[{"-",
    6 W# P" T) T, Z       RowBox[{
    : R: ]* O* N$ k        RowBox[{"(",
    * n+ x' e3 f+ G/ n5 |# V* _3 p5 U         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    % u1 |. U4 S* Y        RowBox[{"(",
    1 p8 v8 O  ?8 K7 J         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],( t3 J3 o% n4 R! C, U
         "]"}], "/.", "DeltaX"}]}]], "Input",' A$ W8 x- B8 X0 M6 g, J
    CellChangeTimes->{3.577920869375*^9}],
    9 M4 v% c. G7 b9 q1 y3 A* l* N) T; D+ i; H( `9 f5 T! f* [
    Cell[BoxData[/ s8 P* U9 U( t1 i6 N
    SuperscriptBox["\[ExponentialE]",
    ) L: ~2 j8 @( _6 Q  RowBox[{"3.141592653589793`", " ",
    ! U) }% V0 ~! Q* n4 O5 P   RowBox[{"(", ) h8 j9 ~% R' _: P$ d8 G9 c
        RowBox[{
    8 K2 N$ L5 q; G4 X5 H* |7 z% p     RowBox[{"-",
    4 }, l5 G! K! ^  v/ D9 v      SuperscriptBox[
    ; ]! h4 L& K! m0 A& y( X3 `/ ^       RowBox[{"(",
    , }, z" J! q3 F5 J        RowBox[{4 b" s. K* I4 V9 f* s/ s9 h
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ! P( J! R% M5 r2 V" c9 J/ N     SuperscriptBox[
    5 u) E8 g' m- u  ~* D9 q, }      RowBox[{"(",
    4 `; t% t) t' q# w4 {4 a0 `4 e) W       RowBox[{
    1 ]% Y: [+ X: `7 p+ G4 j% Q        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
    " u7 U! v* |4 E, @+ ~! ~     SuperscriptBox[, ^4 r+ {6 [. g& ]7 r
          RowBox[{"(",
    ' `; }, t' E: \& D" p       RowBox[{
    9 O0 s. f  N) h1 K+ _9 S- r        RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", # \. ], W# d# F  y  f) A; ]- t
         SuperscriptBox[
    ! Y$ s+ A" h# N4 ]. r& f: |9 h0 Y      RowBox[{"(", ) v* S) @. F2 C# R6 M
           RowBox[{
    1 B$ |: @% Y, r  ^$ V+ |        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
    % A; [$ M" s9 H3 T/ [" c     SuperscriptBox[
    + x  X* _: P: G& p& \/ o      RowBox[{"(", ( S1 H4 T! l+ z: g0 h! j+ d& l
           RowBox[{
    " t! M, r6 G: L0 J! Q; F- ]2 `        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", % V8 \0 N; {! A+ G  F" D
         SuperscriptBox[/ @- O* b6 j: v7 V
          RowBox[{"(", 2 u/ E  C% _8 ~& a9 B& L
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ! `3 M+ E$ h3 k1 P0 o     SuperscriptBox[- r4 k& [8 \8 h7 F/ ~3 J1 V
          RowBox[{"(",
    0 U) [, R5 C( I       RowBox[{3 i& y# a4 r* J6 ~) U- p
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 0 R! z' Z5 t) Z7 ?4 D. a  g
         SuperscriptBox[
    $ u$ l( Q1 l) N- n/ b+ E" z      RowBox[{"(", 2 T, \* i5 x8 D. B( P
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 5 [8 e# C) H+ i8 ], y3 t
         SuperscriptBox[
    4 y  ^( F- v" X) r4 N7 V1 O      RowBox[{"(", + u; d  G% r1 J
           RowBox[{7 j) w4 j8 U2 Y( u9 N
            RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
    5 `7 z4 Z% y; u2 ?$ A    ")"}]}]]], "Output",
    ) r% d+ n$ Y+ t0 J1 P9 u8 V CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9, 1 Y2 ~. |0 ]7 P
      3.577960815043248*^9, 3.578012221953125*^9}]$ I' w$ e% B* `  B6 v$ Z/ f1 B1 S
    }, Open  ]],
    ' ^/ ?8 L4 ], {8 m* u8 J4 E& Y$ h, b4 ]. W: W+ T1 V# _
    Cell[CellGroupData[{% I. H2 c5 O3 ~% v
    : d1 e# C% ~, q: P% j
    Cell[BoxData[
    ! F& F" Z9 m1 A& R! Z  c( h' [ RowBox[{"C6", "=", "Ca"}]], "Input",6 W  `/ B  k7 @0 r- f/ C0 A
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
    6 |, m- {; ~5 t, `( [! @
    5 B- T6 Y: B! B9 w7 {( s+ A  G$ s: D: U7 sCell[BoxData[
    ( s8 `; e9 O8 H! \- z6 `. ~  y RowBox[{"{", ' S* I2 y' z# i3 z( Y  [) @
      RowBox[{
    $ `% I6 d$ K* @7 X4 S( J* j. g3 a  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", 4 T; ?) i8 @8 S
       "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", 7 m. c; `( Q, {# Q
       "0.494866`"}], "}"}]], "Output",
    - L' C; y  U( m* W/ T+ M+ K8 P CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,& s! X7 l) W3 D& C. L* Y
       3.5779608373044868`*^9, 3.578012227359375*^9}]7 S0 n- N% m. u* s: C8 D
    }, Open  ]],
    8 k% k: d/ g) r3 f( k( p# v
    6 S5 E! Q4 Z4 t- F% k+ ACell[CellGroupData[{
    6 N; g, v& d  w( v* J6 Z0 A" `! P9 V4 n
    Cell[BoxData[
    $ Q! o+ [! E7 F RowBox[{"u6", "=", ) o, F4 W" v: b0 p6 ]  j
      RowBox[{% }7 L1 x) J/ Q  v+ k0 S$ C/ L
       RowBox[{"Exp", "[", 9 k5 ^  b  s  T- S% Q
        RowBox[{) O5 P7 p7 C8 {( b. Y* {3 h/ P1 c
         RowBox[{/ u2 C# m; Z- P9 R
          RowBox[{"-",
    - x$ B/ P- \. T) R  a2 S       RowBox[{
    2 M9 f  x- P3 X. J3 `        RowBox[{"(",
      f! K5 g8 [3 `# V: R! F         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ( s: X2 F; d. H" r, H
            RowBox[{"(", 1 O2 ^  a7 j) M# |1 Z
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],1 Q2 z* L- S1 M/ |4 u- L
         "]"}], "/.", "DeltaX"}]}]], "Input",3 o3 P. B0 ]6 Y! N( ^
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
    , ~6 q/ y* E' L+ N) W
    " f- w/ k8 H! s" uCell[BoxData[
    - a8 c# u! t  U  g- p SuperscriptBox["\[ExponentialE]",
    ; G- ]  b6 J3 v1 s  RowBox[{"3.141592653589793`", " ", ! D# x+ h: |  P5 v6 Q
       RowBox[{"(",
    + X4 m* l* M3 L" B' z' p+ }- t) M    RowBox[{# G) ^9 B2 h, h+ w/ ^  r! ]
         RowBox[{"-",
    1 q% t( l, Q, o2 m9 |- p1 T# ~/ o      SuperscriptBox[
    4 v, \% u4 p8 }% E# h5 p       RowBox[{"(", 3 w* \* V' z  L- S/ D& @: @( F
            RowBox[{
    ) o% C2 S9 N2 e/ v5 |" ?! u         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
    1 m& ^4 H! T( H8 x2 s: b8 g     SuperscriptBox[- o' T7 L& X' K. W! A" G
          RowBox[{"(", * t6 |4 e- w% \
           RowBox[{
    - f* C' W% F7 k6 n% @        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
    . [; U. E5 {; i9 x$ Q( r     SuperscriptBox[0 g$ p( p+ b* c+ \
          RowBox[{"(",
    6 ?/ W  M7 S  q       RowBox[{# K0 w4 y4 T5 e$ K- n
            RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
    : r: g( D: o$ V# Q2 h9 x     SuperscriptBox[
    9 X7 O; G; C1 r. e- x. Z0 e      RowBox[{"(", 1 W8 B/ Z1 o, q+ L( I/ j: D
           RowBox[{
    8 N6 n7 n# k( g9 J1 w! I2 `1 o4 Q1 G        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", / O7 e5 i; U* E( X6 |
         SuperscriptBox[8 d( ?' z3 C" v4 y4 I
          RowBox[{"(",
    1 [7 ~( T- D  G1 H& H       RowBox[{7 K$ E. `2 q, e
            RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
    & a! z9 J. p5 i5 t     SuperscriptBox[
    - y8 ]$ y0 r7 e6 N0 l      RowBox[{"(", : \, S# M7 v3 c" A( M
           RowBox[{
    & E4 a# \1 D5 r& s- Q% h) L        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
    & a  \8 W) A3 i1 Y% d5 U# `" D     SuperscriptBox[
    5 c! m( F' C. O$ M: ?      RowBox[{"(", . I) k4 ~2 S* {9 z9 m9 H  H! }
           RowBox[{& M$ S# i/ f4 A# @3 \9 F
            RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    + v) y9 E$ p. L. Z; c  ?( V1 O     SuperscriptBox[
    - C* q- _! u5 Z; ~4 s      RowBox[{"(", / J0 Q/ ~/ g7 `6 H( j- `! [0 a# K9 t3 x
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 7 c7 V% p! ^& }5 ?+ H
         SuperscriptBox[9 s$ V0 l" x" [( a& Q$ ~" G' h6 e
          RowBox[{"(", 3 N" |+ o, l* ]0 _
           RowBox[{
    " f' [9 Z2 t8 y. |9 Q9 ~        RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
    & Y7 ]8 E! ]& T  v6 j8 A2 y    ")"}]}]]], "Output",, a- ^( l; m2 l& ^- E9 r
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, & {* P0 {5 a8 S: R3 B; H& b1 J3 L
      3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
    ' D( W) @! d) P8 i' h# t}, Open  ]],/ L; ^5 u4 J# a5 Z& u2 n$ b7 a+ @
    . Q7 O- D- i2 w/ f
    Cell[CellGroupData[{1 A8 v' V5 b* V# Z+ P

    + g+ \% q( R) M4 l3 u9 `Cell[BoxData[
    - x/ F- N5 Y* |  D- j0 v* r RowBox[{"C7", "=", "Ca"}]], "Input",
    - |6 B, K6 a; U/ U7 ]& K- w# @ CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    ' w. B  F+ k. q5 e  3.577921316125*^9}],5 L( v" G! `% i
    ) x. M3 K/ N/ ?, \. ]
    Cell[BoxData[
    3 z3 M4 P, p* z* o6 Y; G. J/ H RowBox[{"{", 3 R4 N2 t6 U6 z6 b3 d9 D
      RowBox[{! Z  g5 ]  S) E
      "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", 0 [- f. B7 z- R4 ^# S+ z* h3 b
       "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
    7 i9 S( d' U7 b& O  "}"}]], "Output",
    $ W' z  I" m: W; y3 n( { CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    1 a3 O+ H# _$ J; Z* Z) t# F  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]7 n6 D8 d/ ^( W  C
    }, Open  ]],* n8 M0 P, n7 k$ ]9 p& w7 ~* x

    6 ~( W8 \  D5 w+ m- n3 \* LCell[CellGroupData[{. z. e4 Z- B  ~% P' j" E; g

      T4 `  Y6 `, gCell[BoxData[* c- I4 m' t6 A$ p; _! B
    RowBox[{"u7", "=",
    ; K2 W- M$ o8 x2 c- b- Q/ u# w  RowBox[{
    & @; L& `8 P0 [1 W! p3 T. V( e4 K   RowBox[{"Exp", "[", # A! m  |/ x# {3 F, c  O
        RowBox[{: [1 {: P6 t( s# T6 a$ h9 g
         RowBox[{
    ( |+ T1 Z6 f$ U: }; ]5 p4 G! H      RowBox[{"-",
    4 _: c5 l9 T+ a1 R/ b# ?$ K" _, o       RowBox[{+ ~! ]; W6 i5 E+ k1 s
            RowBox[{"(",
    7 P- Z2 ~7 }3 v# b         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", . W; }% _. b- F' }! d5 Z- S
            RowBox[{"(",
    % S4 z$ k9 Y7 h5 q& Y         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}]," z& u* I1 b) C" d# {" J  l
         "]"}], "/.", "DeltaX"}]}]], "Input",- h9 ]4 h: D; h$ x
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    . z* \3 }" {% _8 R% X+ Z  3.57792132028125*^9}],
    ! G7 b7 u  P$ K0 C, s
    , a2 }/ U3 F1 p& t' pCell[BoxData[& G; V5 z% K1 [: B
    SuperscriptBox["\[ExponentialE]", 1 q! @3 l4 y$ m7 T4 v
      RowBox[{"3.141592653589793`", " ",
    ; P: @0 h5 z: p, A! u! B% i   RowBox[{"(",
    ; L! p. E/ w1 D    RowBox[{
    1 C9 T2 D' {* q! d- v( Z  z+ [     RowBox[{"-",
    $ X$ t- ?  f+ F3 ?7 {      SuperscriptBox[
    3 j3 {$ j$ O+ ^3 G! M       RowBox[{"(",
    $ Q% p% \' P# \        RowBox[{
    ) ~5 @7 g6 i5 U5 l9 v$ x         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", $ O8 B' n# H2 R0 i* U$ H4 z  V
         SuperscriptBox[( Z. Z0 k) m9 F( q& e
          RowBox[{"(",
    5 _% m0 }3 [: u1 M0 l       RowBox[{
    ) Q7 A# b$ A5 w% {) z$ `& c% m        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
    ( ~4 P. I: f* o0 }8 V! `" E     SuperscriptBox[
    / h% o3 |2 |5 U2 \6 ^- v      RowBox[{"(", ; U% N6 g' `8 t
           RowBox[{
    - D# q6 P  \4 ]& O, S1 i- \        RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    $ [, p: p; m% V# b' G1 s$ V6 N     SuperscriptBox[9 B) ~) l- ^$ Z' r/ o$ ?: y) d
          RowBox[{"(", ( N4 A& }- C4 S& ~$ {/ Z8 i, e
           RowBox[{& r1 |8 A3 V* a4 e+ T! D  i6 y) K
            RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", ' b9 |) v5 H- q4 P) p9 C
         SuperscriptBox[
    ! z+ x7 I* N$ n$ S8 b      RowBox[{"(", " g$ {0 F/ i0 j: s# `6 j9 c
           RowBox[{
    ' K' l6 ^5 M% w6 a. H        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",   t* D. i4 c$ X7 K6 l- U
         SuperscriptBox[9 K  u& N6 B& O; P6 ?3 v- W
          RowBox[{"(",
    , ?% a! s" |8 s* ?  y* Y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", $ x6 _6 u7 j- ~/ w2 a2 R9 b) u  d
         SuperscriptBox[2 u# q: P+ J/ _4 ~
          RowBox[{"(",
    . W1 G" V/ [. ?, ~; a$ j/ |% @       RowBox[{
    + c0 n/ w8 F1 i& k        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    & b3 T: X% Y  f8 P! r- k, T4 y$ X     SuperscriptBox[
    1 M/ h# Q$ E" w0 t      RowBox[{"(", - ~& w6 z+ [  ^; o, I% o2 }
           RowBox[{) p3 ]! f4 J. w: `
            RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
    # o0 D( X$ B6 z+ x$ [     SuperscriptBox[8 }3 T: P, m7 U7 h
          RowBox[{"(",
    : _2 g! D& B! Z' v4 V       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
      I1 ^5 u5 z2 D1 ~    ")"}]}]]], "Output",4 K1 g, w. {3 P
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    & L2 L& N8 g3 w- u5 H* U7 K& v: E  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,   J/ i5 o) n+ m  d
      3.578012251359375*^9}]5 t) G8 f4 ?5 j  e  D
    }, Open  ]],
    2 ~6 d3 K  q; L) O3 P3 @1 }, O) x4 x7 s
    Cell[CellGroupData[{
    : f- m9 K" D" S1 V! r1 U/ l: f/ L4 ?" S' J% {) u
    Cell[BoxData[' @1 R  e" V, T# l% t8 O
    RowBox[{"C8", "=", "Ca"}]], "Input",
    / q! h( K! Q* p. z CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    * b3 q% o0 s1 K  3.577921316125*^9, 3.57792141421875*^9}],% z- t) J( g5 D: O, y$ a4 i

    4 t! Z& Y, h: s( E- c- \) u+ gCell[BoxData[
    # ^. i6 J1 t" F. j% f' A4 V RowBox[{"{",
    ( O1 Y" ~$ r) M/ ?. F  RowBox[{1 T) z* r( U% m, u' Q! r
      "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", # \) m+ J) D/ h( Q
       "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}], 7 Q2 n2 m$ d/ @2 L
      "}"}]], "Output",
    ( `) H1 N- S5 F" W9 e. o/ o CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    2 v* j( f- _: y3 t) G  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
    8 ?9 |1 A% Z* f4 Z: R3 e  3.578012260515625*^9}]& O( D$ g* r& [# K
    }, Open  ]],
    ' V" U) ^' {5 h/ _- r! a
    " B# `( C3 B& E2 X" h0 yCell[CellGroupData[{) C, ?5 R. g. K; l, {* i! W
    ( F! I  H% @# O# k& z
    Cell[BoxData[4 x2 x6 u) h+ Z: C7 E
    RowBox[{"u8", "=",
    & B3 ?* U* U% v2 [  RowBox[{
    8 e2 A6 D7 n. \1 d   RowBox[{"Exp", "[", " Y! ?2 {7 k  a; _5 r5 y3 g
        RowBox[{' [% }0 e8 [9 I: B/ b6 _
         RowBox[{, D9 C5 m0 c/ R' ^, u0 Y2 T
          RowBox[{"-", % j0 M- D& x; `7 t- ?
           RowBox[{
    8 I* M; z+ V/ I        RowBox[{"(", ' ?' `2 o0 ^8 @9 o4 L
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 1 i; z( T$ Z" ?9 N, h/ I0 p  b
            RowBox[{"(",
    & ~. b' `! M, x$ w! n, V         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    - d& x1 q, X3 r! b  z" K, H& T, K     "]"}], "/.", "DeltaX"}]}]], "Input",9 W" O( p% J0 g
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
      Q+ y, c% t6 s$ d  3.57792132028125*^9, 3.577921416921875*^9}],( h4 T2 d  Z6 L, E6 g( x5 B, h! e

      M& c' x. Y! [6 \' _7 RCell[BoxData[3 j8 H, {% Q# [. b1 G
    SuperscriptBox["\[ExponentialE]",
    ( I3 e6 E7 v0 e* }2 x/ a  RowBox[{"3.141592653589793`", " ", * E$ t+ T9 E2 h) e  d
       RowBox[{"(", 4 @) W6 \; N! V  _
        RowBox[{
      `/ G* ]5 Y; F% G$ {  R     RowBox[{"-", + Q- F, e7 o8 k0 E- I
          SuperscriptBox[1 f6 u3 `  u0 K$ l1 k
           RowBox[{"(",
    0 ^- R/ i$ e# ~% h+ q7 V5 F) r/ {        RowBox[{
    ( M2 Y- Z, q4 _: m; u         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
    $ x4 Z5 A7 E/ L7 s( _$ {     SuperscriptBox[8 c. U5 S; U# x: X9 W5 B
          RowBox[{"(", ) X' B: g6 m6 c% n1 U, A. E  z3 P
           RowBox[{
    1 T6 R2 ]$ |3 g7 n, K9 O        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", 1 Q; l% b% @/ ?7 r$ C- k* g2 K4 o
         SuperscriptBox[$ k5 c( `1 ?) X* N
          RowBox[{"(", 5 z. l$ S# E3 q
           RowBox[{
    " b% X6 g2 A' W3 Q6 G        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
    3 {, d5 Q. P) B1 I7 X0 Y9 h, E     SuperscriptBox[
    4 [! w- M- C/ d% f" S3 [$ L  _% y      RowBox[{"(", ) U+ F! ]& u( m
           RowBox[{$ X! F  n5 I  [7 @" g% ]
            RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",   X5 |9 d( S7 C  G: X0 _6 e2 A
         SuperscriptBox[
    $ c& f7 Q, L: F      RowBox[{"(", , Y) f- x2 a. |$ y# F# M
           RowBox[{
    $ @' O, ~) V* r5 T( e7 c        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", # N3 C1 k1 X, W  J2 k: r0 g
         SuperscriptBox[
    " l% o' ~6 M1 K& o" A      RowBox[{"(", 0 ~4 O* M; y' v0 D
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    6 G: m* ?2 t3 l& v     SuperscriptBox[# y5 e" P0 U* t
          RowBox[{"(", 0 z' H6 L$ q+ _: x2 l
           RowBox[{
    & [% W' t7 f6 v# J5 [5 x        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
    + l% k9 z. F  A     SuperscriptBox[
    ; G+ E- C) I6 ~+ W( S      RowBox[{"(", / c+ |6 v6 t5 A& V5 @$ I" q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    9 B4 o4 l1 @! G' N1 N' G- e8 Z     SuperscriptBox[
    8 N4 f: M/ W. D1 w- [# i, @, s      RowBox[{"(", ) S1 t# r6 [) a7 F  k
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    3 `" v' s* T1 G4 f& C: F    ")"}]}]]], "Output",' T) U6 S( X! }: x5 M9 W
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 9 z: |1 l5 @! x* r  N
      3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9, + z2 b+ K, i3 n7 ^# h9 T
      3.5779608945565863`*^9, 3.57801226165625*^9}]
    2 q2 y2 J5 z0 c* F* \2 I}, Open  ]],
    0 z; ~1 F7 s& h+ ]9 m. j3 \1 l: _; ?
    Cell[CellGroupData[{& e' O# \4 i' ]+ Q' r! q, H
    % I, l- U" w% }9 ~& w, K3 W+ ?
    Cell[BoxData[
    3 V9 r) O% D& A RowBox[{"C9", "=", "Ca"}]], "Input",: S0 [$ Y9 u* i% d( ^4 `
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    0 z3 L5 N7 F7 O8 @$ i  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],- V' i4 {3 N9 P$ I* c4 Q# F& l

    9 P% @  ^, m7 N* l7 tCell[BoxData[8 ^. i" M; C3 I  {; ]
    RowBox[{"{",
    % }" W* ], ^2 Y4 @1 g# q  RowBox[{
    " L+ g- p' X7 g  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",", 3 j1 a0 n1 E6 U
       "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
    5 t0 u& Y1 m. B& x2 X  "}"}]], "Output",5 _# m# X+ c! t8 M3 I4 `
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    2 s* j% p9 V# }* T5 _, y  3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, 6 z0 R1 A2 |: {# t" U" b
      3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, - ?* x+ J. l9 a
      3.578012268234375*^9}]& _( H8 d6 P) j8 L+ W
    }, Open  ]],+ V9 F3 A' Z. j

    ) d: E- H0 M2 Q% _7 u  @2 pCell[CellGroupData[{
    + h9 l4 B6 F6 ?4 f5 j
    $ E' M* \  g  x9 v8 ~4 d" BCell[BoxData[9 H5 r! V- O. T. U* i. A5 z
    RowBox[{"u9", "=",
    4 N3 Y8 {! f/ h4 r3 q  RowBox[{
    4 D$ Q2 @$ T* g! V   RowBox[{"Exp", "[", 6 N; Z6 p+ d+ ?# k; j+ _/ n& l
        RowBox[{
    " D  G0 Y+ P5 h* _9 y     RowBox[{  }, t% Q( [! `/ M3 k& z& S( `9 y  ?
          RowBox[{"-",
    $ Z2 [; W, u1 j; _6 o; _9 o       RowBox[{9 s3 ~% _6 G, W7 {
            RowBox[{"(", 8 q$ v  {8 m1 x  z( c
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    3 S# Y7 h( i3 a) h' T% p5 G9 H        RowBox[{"(", 4 W# V& a; k  }3 g& L, ]7 C
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],9 k5 T0 l- `6 F# Q& }
         "]"}], "/.", "DeltaX"}]}]], "Input",# ?2 o6 \% ^& u" K8 I# U! i2 ~  G
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 3 G% ?7 H# `3 i. K8 i0 Q
      3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],1 l. z$ R% [5 C) j! k

      Z3 H7 D- x% j4 g1 J& VCell[BoxData[
    1 `  v- j, O' a; k; m/ ~ SuperscriptBox["\[ExponentialE]", $ U% ~- U2 p% U
      RowBox[{"3.141592653589793`", " ",
    ; \& p) D1 W5 p4 T- g" E6 R   RowBox[{"(", 7 x+ B' o8 i: b- ?$ c- E
        RowBox[{
    ' d! c+ ?% [4 U( ]% w     RowBox[{"-", ! Q* J. H' F9 l7 |# \
          SuperscriptBox[( T  y- |  G2 h+ {  d! O" n% o
           RowBox[{"(", . N) J  L2 m  ]% Y, u, z
            RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
    & K7 t8 ~, D5 K. k" c. j     SuperscriptBox[6 D* L  l& w# u! F' I
          RowBox[{"(",   z  }1 Z/ O8 }9 q" Y) m
           RowBox[{- {/ a4 o, i# p5 W9 k
            RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
    ) w9 g4 H$ D$ l     SuperscriptBox[' R+ v' U- }$ x$ y* ^2 U) A; z
          RowBox[{"(", - [5 B6 y6 `7 t
           RowBox[{
    + h7 V& Y' d; L6 s. b% N5 N( w' \# r        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", 0 R1 R( W; K/ n' |
         SuperscriptBox[
    ( L; q/ r3 `. ^4 Z) H  Y3 u      RowBox[{"(",
    4 F9 y4 u! v) z/ H/ K, t       RowBox[{7 u& z# C9 Q" i' W
            RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
    / t+ O5 ~3 X1 ?  r# |     SuperscriptBox[; B4 f; s4 B* ?4 I
          RowBox[{"(",   G" V: {7 j" {& G5 j% p1 `
           RowBox[{
    $ W; `. Y/ d+ x- F        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    3 {0 [; ?" @: |4 y' e' U     SuperscriptBox[' S; p$ z9 ]% q/ f1 ~: i% D
          RowBox[{"(", + S7 ~9 ~  v3 S2 q& k& G5 d5 k
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ( R6 [- Q- N+ c9 P, A
         SuperscriptBox[
    / i* C* f4 |- u$ c( L      RowBox[{"(", + p; h2 D  [" g3 l3 t% g
           RowBox[{
    & F" J& ^  d2 N2 u5 A) F        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    * b2 r9 ~2 y5 Y* L! J     SuperscriptBox[1 K0 }- a5 E  D! ]2 e
          RowBox[{"(", 3 j- D- F0 g6 J. P$ ?
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 3 R( Y! ~: c9 @# D& x0 V+ \9 W1 h0 V
         SuperscriptBox[
    7 J$ p6 f/ _; u! B0 L      RowBox[{"(", / m6 S+ a% j( U, c- A
           RowBox[{) y4 H- e! L: j0 g$ G
            RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], # V$ Y: B, Y! \$ C9 `8 j
        ")"}]}]]], "Output",/ k/ e  u" u1 i8 u7 x
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 3 Y) D6 q8 c$ ]: a
      3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
    9 \6 W: z" B" r3 `6 _  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
    3 ~; W9 K/ o$ @5 \4 t+ c  3.577961530421959*^9, 3.578012269125*^9}]! I4 o$ V) s6 {2 Z6 A# [
    }, Open  ]],
    " q; K$ B6 o' D( Y$ U% M
    * r- V* Y6 S9 a$ X$ T5 A* T. lCell[CellGroupData[{
    . `6 k8 h- i, M1 Q5 Q1 b
    ) O6 F$ K, a. W9 c2 r( Y  CCell[BoxData[{
    8 X3 K9 X6 N( @: q" Y4 R0 l RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
    . P! X" d; ^3 K RowBox[{"u10", "=",
    $ @# w) t& L. D# V% N  RowBox[{
    7 \6 S. _$ j6 x$ N) J   RowBox[{"Exp", "[",
    4 N1 m0 X$ k2 [6 ]7 h    RowBox[{
    7 g8 u; M% \0 G+ G* D. x& I     RowBox[{
    & T; p' A. q& Y- K: ]* C      RowBox[{"-", " H* k6 U( }8 G$ Y* e- f, e
           RowBox[{1 Y4 X, o5 [* T% ?" Y9 ]( b" N2 K
            RowBox[{"(",
    : o6 C' [& n7 I" [1 c$ @" E         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ( {/ c0 G, ]+ G
            RowBox[{"(",
    $ p- s! y- T6 \$ @+ J! a! i, U         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ( r) H  G& O- G1 w4 w4 r! t# @     "]"}], "/.", "DeltaX"}]}]}], "Input",
    9 G$ M0 ]* ?1 U) j CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
    $ H; n/ X; e" u0 Y  e( i5 W+ q& G: C. O# L6 P* t, ?
    Cell[BoxData[! K# m$ _# z9 m0 H$ d3 V, M) d
    RowBox[{"{",
    8 X* c, l" s% Z5 }  L  RowBox[{
    * H' v3 B- S; s) |. ]( Z0 b  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
    9 f4 N) o& r7 B+ o. A   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",; n2 g. H7 g: [- T8 W. D) _
    CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],! R: y4 n" Y+ D1 R. k0 T

    ' g4 F  G7 O$ j7 ^8 [- rCell[BoxData[$ H( T, V- o6 u
    SuperscriptBox["\[ExponentialE]", ; b: [$ Z5 @3 S
      RowBox[{"3.141592653589793`", " ",
    ! s6 w1 y+ k9 r; T% {7 E   RowBox[{"(", 9 L' a6 b3 s, L1 T$ N0 h7 Z
        RowBox[{
    + n; ?" w" i* e0 l- ^% i     RowBox[{"-", " j1 ?4 Z5 \, Z1 L2 G) [+ X
          SuperscriptBox[
    . o* s- j6 F3 M: r; p       RowBox[{"(", ' B& j6 r4 z# Z5 _& j* X+ h
            RowBox[{
    * d6 m" r3 j( z3 L         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ) \  Z5 }' V! Q: f. }6 y
         SuperscriptBox[
    ) a0 J+ @. m( T      RowBox[{"(",
    ; w8 o. k2 S9 l  i# H4 [       RowBox[{
    2 i& E1 ^# w' M7 U        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", , r% D  T' Z6 W. b0 O, }2 D# H8 i
         SuperscriptBox[- o& I+ s2 c, ^6 e( v
          RowBox[{"(",   o3 v* K1 D4 S3 J; P$ h+ j2 Z
           RowBox[{
    6 h4 ~; ]! g3 }6 i: P  |( B        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", . {, g8 ?" F2 W: M7 v: V! o: T
         SuperscriptBox[/ i# ^/ j" Z! f
          RowBox[{"(", / X2 K: i5 L4 m; N6 N
           RowBox[{" T- `" E0 N$ Q, I* @
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", / r: J8 A, O$ P" o# ^8 `
         SuperscriptBox[
    ! u( f1 q7 \7 \3 B  |5 f      RowBox[{"(",
    ' N' V. D) T% P* ~. y3 ?       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
    * p" M8 O; D! ?6 b     SuperscriptBox[
    ' @% r* I. N$ B9 k6 b, N% z      RowBox[{"(", % Q& h) w- l" \. D4 n0 H. I! h+ l
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 1 i% ?8 a) D* V& m1 q
         SuperscriptBox[: o/ V. N7 l! M# z1 |* t" l, ]
          RowBox[{"(", ( h- D6 q2 Y6 a/ `" @6 T9 [9 @. p5 _
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    4 D" ^& O) D0 D) [     SuperscriptBox[/ B8 W1 r2 y7 l8 c8 u, O
          RowBox[{"(", $ f- H- c* G: ^( k+ O
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    - Q# C2 r- x9 b$ \     SuperscriptBox[- m' B* s- _% J2 q
          RowBox[{"(", 3 `; ?7 g; I; {, e( v( X
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    / h/ b4 _* M& b% L4 a  j% Y    ")"}]}]]], "Output",
    : H( t( b; e" q9 I" c/ H* v CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]& p% c7 [! o! l" \
    }, Open  ]],: u5 |( b+ Y  d" _/ _; q) E
    " f/ h! ]; D, h1 S
    Cell[CellGroupData[{
    ' v. u! W8 r0 @9 q% ]$ |4 y
    & y1 G$ P# C8 S0 b8 UCell[BoxData[{
    6 z5 I( r8 V4 r( @. C RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", 2 e, g' O( S% F" I; b2 ]6 w
    RowBox[{"u11", "=",
    8 l& Q' \& F2 \, t! C8 k  RowBox[{
    % s, I& \! H/ h2 O+ S6 j% V' i   RowBox[{"Exp", "[",
    / h$ {' a8 q; X/ n5 q; Y- l    RowBox[{
    & X. w( j' ^1 r0 h- S     RowBox[{- u+ L7 ]- W, j& M
          RowBox[{"-",   x( K" D# i6 `# {- W
           RowBox[{6 h1 Q/ P' F: [% a/ W
            RowBox[{"(",   s" _' G: t4 ~5 q; J) ]1 L
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 3 W  {8 W! C& d3 V- N+ C
            RowBox[{"(",
    $ Z9 J) i9 b+ ]5 |: P/ B         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],' ^2 ?5 F* p2 l. X( U% C! D, R
         "]"}], "/.", "DeltaX"}]}]}], "Input",' U/ D$ h! W: Q1 f- g
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    1 S& p3 Z' v: e( \; \) ^  3.57796154237158*^9, 3.5779615434011817`*^9}}],. t2 L4 b* Q9 l  r% S) [4 e
    ( A; g% u; K9 J% C  L
    Cell[BoxData[
    . t6 G6 Y  b6 g1 P! q3 | RowBox[{"{",
    / h/ L7 @+ Z/ ?, k1 {8 _) b" `1 @  RowBox[{0 \7 S. U  N0 E" o. X. m, @  S
      "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
    * b7 ^8 ?, `# E# _# q   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    " K' O# L' ]% b" i  "}"}]], "Output",
    + S' o/ y  n5 Q2 F CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    + D; D+ u, f: n' C5 _3 B' d  3.57801228203125*^9}],
    ' d4 Z( u; [" B# r" _: g/ c; ^3 y- F1 h( x3 N" ?
    Cell[BoxData[
    9 [/ _: ^. s1 {9 w) j5 y9 D" d SuperscriptBox["\[ExponentialE]",
    3 [- Y0 M8 u2 z3 }  RowBox[{"3.141592653589793`", " ", , O0 R: f. |" _$ m5 K8 _! I
       RowBox[{"(",
    . D' T1 B9 X( v/ O    RowBox[{
    3 X: R. a- n5 V     RowBox[{"-", - v$ `* M4 H' p5 x
          SuperscriptBox[
    2 H9 z$ [2 W8 `       RowBox[{"(",
    ( ?3 k# @6 g: f% y% S3 a        RowBox[{
    , _0 d  _& h' X" v2 q, J         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", 1 \: z6 }5 A: t
         SuperscriptBox[
    ! E$ Z- m+ {' K      RowBox[{"(", 9 w7 H2 {2 S1 u. d; O5 v  p  N2 E
           RowBox[{8 K, B6 d; k# R8 V% Z2 @& u
            RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", ! {# N" K4 Y7 q
         SuperscriptBox[( l. D9 s/ l6 X& G6 A# `1 s! I- @
          RowBox[{"(", / _# {. j3 ~' j1 u/ V
           RowBox[{
    % P1 ?: Q3 @4 V: `        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", 6 |. W) j8 k. p, L
         SuperscriptBox[* L6 I# ]# {( g) }, r" u. V
          RowBox[{"(",
    ( f6 n; h; I% t  Y       RowBox[{
    8 u+ @+ k# {9 \6 y  g$ O        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
    ; F- Y1 \* g- B! F1 j     SuperscriptBox[
    : f# T' G+ ]1 }& p      RowBox[{"(",
    % O& b  D9 \$ h       RowBox[{
    / H, m* w* E8 u" X$ N0 `" i6 N        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
    6 v" @% Z! W' t     SuperscriptBox[" \- u  p! U6 e; A
          RowBox[{"(", 0 l* ?  ]$ t9 ?+ {0 B8 I% G8 \2 w2 I/ a
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    % I# a1 N  U6 M6 U     SuperscriptBox[
    & {( ~, H6 i5 S      RowBox[{"(", 3 w9 y7 t. m1 m# ~; u. B
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",   b1 A4 U% A) C* N/ S. ^& ]4 n9 g
         SuperscriptBox[! z" n" J; ?8 F, ~$ l
          RowBox[{"(", ; \; R# g% C# G# a8 ?& ?
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ' l1 x5 X3 W6 d' q$ p: I2 x+ O     SuperscriptBox[
    # F: f& j1 o1 v7 P; ~      RowBox[{"(", " D. t! W! Z5 H- Q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 1 r. Z* @9 M9 z" X1 m& ?5 M" Z
        ")"}]}]]], "Output",
    6 o5 }, c# S+ d/ d* L' y, ~% f5 L CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    1 F- E% T7 i6 f7 s) V- R0 ~  3.57801228203125*^9}]. F: F0 H4 B( |" P2 p% z
    }, Open  ]],
    8 u) o7 z" f% I$ a" _0 l, c+ w7 w( G) {+ h9 ~+ y: w& Y3 E
    Cell[CellGroupData[{! R1 \2 w6 u% ^% h! }  V
    2 i# Q" o: v- M0 g( C
    Cell[BoxData[{
    0 D- C. z2 `# ?' f' g; {& N2 S: ^4 E+ P RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]", 2 s2 g  ~9 S* ?+ j8 h
    RowBox[{"u12", "=",
    # [# M6 e: v9 n' S6 V5 x! R  RowBox[{# y6 J/ t, V1 W# _4 p$ H) Z
       RowBox[{"Exp", "[", $ B+ T4 t0 A( }, n6 Z
        RowBox[{- G, z7 `. b. w: Q3 u
         RowBox[{4 d9 w( W' C& F4 }( l; u$ D' i
          RowBox[{"-",
    / g2 m- c7 ]; ?       RowBox[{5 V" S  z7 L. i, P, l2 ]2 p" p
            RowBox[{"(",
    3 p" ^" M4 R5 F+ S  D' u         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ' `0 L4 W% Z; H
            RowBox[{"(", . X' @  `& t/ @) I$ z
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],0 S3 T8 ~, w0 f
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    - \7 _# V- Y9 P+ f: k CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ) r3 M" p" z$ d* w  3.57796154237158*^9, 3.5779615576284065`*^9}}],
    + ~8 p, h$ z% y; E1 ^# \% M1 @$ p
    # m: v7 Z- z/ C$ ~* H% ^Cell[BoxData[6 O' I4 E# B2 T
    RowBox[{"{",
    ; H2 c- O$ \  G: l5 S; Z  RowBox[{7 N- _$ R) l! s  m% V
      "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", 5 f0 r/ f* h; u
       "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}], - F6 o+ N- M8 w7 ?! i* t
      "}"}]], "Output",
    0 e  i3 ]6 j( j, I* ?, u% Z: W8 R CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],, \8 r' z, X2 ^5 I
    2 S9 K9 B  o$ L8 w$ b
    Cell[BoxData[+ M6 A1 u; _) w- X
    SuperscriptBox["\[ExponentialE]",
    3 X  m9 v" y4 \, s, _: ]  RowBox[{"3.141592653589793`", " ",
    " m$ O0 W6 F% S- m   RowBox[{"(", 3 Q$ d$ ]0 o6 _
        RowBox[{: e7 k; N: D) \. l* c' T8 U
         RowBox[{"-",
    $ d( L$ ]) |3 y      SuperscriptBox[7 B5 q# Z3 i: s
           RowBox[{"(",
    4 {+ a8 |4 e, O" a  f7 t        RowBox[{
    , p1 h' a$ O- D1 m% E         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", ! G$ _9 H# T9 K: s! Q& V; {& g. l
         SuperscriptBox[
    ! y# ^/ A5 x5 L      RowBox[{"(",
    ' X, G& _6 ?. q% l. M       RowBox[{
      l; U3 M2 w; v8 G3 ^        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", ( C6 _& a! Y8 n
         SuperscriptBox[! y7 X) a/ m! }, P
          RowBox[{"(", ) c9 J  I8 a3 |. r+ {& q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
    0 ?* o6 M. E! q9 @     SuperscriptBox[, ^4 F2 C6 W; t& _' w# G0 ~: k% k/ o
          RowBox[{"(",
    # Z# j& ~- A$ r8 R' b8 R       RowBox[{+ j' k+ ]4 \0 R8 s; p' }0 o2 a% J# E
            RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
    4 _+ {! q' R2 c     SuperscriptBox[
    - _' u# n% v: N9 C, _      RowBox[{"(",
    " f, J, \- N; g" K- o' l+ J0 d       RowBox[{6 E- J: P2 d/ M9 ~3 }
            RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", 7 d& @5 K6 s4 I4 `& R
         SuperscriptBox[3 e, o: z3 u! M! I1 O
          RowBox[{"(", ! c6 h* |+ ?: {) ]% }, d
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", / _  O) h, [. X
         SuperscriptBox[
    0 r; c, y% U: B$ \0 P: [      RowBox[{"(",
    1 q& u4 f1 W! q( z8 M+ J9 m" v9 \8 s       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    6 ^$ {" a; k( ^" Q" e# I     SuperscriptBox[
    ) q( N2 ^" l. d: [      RowBox[{"(",
    / [5 k& d9 J( Z  M' P4 H5 j- R       RowBox[{
    ; A0 w6 I) ?8 ?0 _. p9 g        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", 9 Q& e6 K3 j) N! l# B( B* S5 }
         SuperscriptBox[5 T5 f; U) }) o' z
          RowBox[{"(", 3 D$ l8 L0 f5 ?% I6 J. Y  E
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    / Y( w8 r" O1 U& `: t" _    ")"}]}]]], "Output",
    . E: l9 ?$ m3 D CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]( z# e' u) T. @# G
    }, Open  ]],
    0 f" i$ O+ s- b  X' d( ?
    ! t+ e- |: v) R" c0 O) b6 |1 lCell[CellGroupData[{
    1 h1 V3 w0 i0 j- O& X& p
    5 c+ u. P( ~- B  U: p: e9 NCell[BoxData[{
    & J1 e2 T- x" _5 D( [0 q% z1 O RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
    / u- k% P- Q/ M RowBox[{"u13", "=", 7 g0 J2 T7 G* T$ p
      RowBox[{
    $ ]: S* A% X2 s( V8 N' U5 z   RowBox[{"Exp", "[", & K4 N3 Y! n" X+ K7 B
        RowBox[{
    ) ]+ A& |1 N( a) h( _, }4 w     RowBox[{/ r$ U! }" M: R& `2 n
          RowBox[{"-", 8 P; l9 L& i# v( m+ M
           RowBox[{3 O( n1 N% L; d5 B( f7 y5 I
            RowBox[{"(", # f' i6 Z; ^/ f4 {, d+ t! B) L
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    . O# N+ g" Y0 r" g1 {, ^* h+ e        RowBox[{"(",
    3 c7 k9 P) D! B& A+ i4 n         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ( p4 I2 T2 H% f& N3 |& z3 f     "]"}], "/.", "DeltaX"}]}]}], "Input",
    " G- o' O* G% B CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {2 ^1 g, B  d7 N, V- b" f7 ^
      3.57796154237158*^9, 3.5779615599684105`*^9}}],
    " o/ z6 R9 ^% _7 `8 q0 b
    0 T5 N6 K" y$ f3 Z* X/ t% f7 }3 C, {: cCell[BoxData[* u8 M5 W# j" t  [' X
    RowBox[{"{",
    8 ~7 j& f+ }' e: d& F  RowBox[{
    ! a: M& H/ Z0 S9 m2 J7 k  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",", 7 K9 J9 G. K* e( T
       "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}], , W1 s2 ^9 M" K
      "}"}]], "Output",
    $ W3 D: W1 A$ J CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],3 ]  x5 _  q$ ^; X+ P! U
    ! v; R. Z7 N4 q0 a
    Cell[BoxData[) h, z) Z8 {, b: B8 x' f6 b
    SuperscriptBox["\[ExponentialE]",
    : X8 t, ~8 t1 G  RowBox[{"3.141592653589793`", " ", , E  m1 D# R# }+ W* F$ f" X! L; }2 a
       RowBox[{"(", # t: q- L! I) y  ?# c" t1 C
        RowBox[{4 H# H1 d; A& @$ r. Q
         RowBox[{"-", 1 [3 I" q- i  ?! l) V& @
          SuperscriptBox[: }+ M/ Y- |" n3 j. a' f
           RowBox[{"(", ! o7 p6 n4 r5 o
            RowBox[{
    : I+ w  @9 |( l- a  N* Z         RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 {7 Z0 i4 n6 V; d: Q
         SuperscriptBox[
    # Z1 E1 y. K/ y$ K4 R8 Q. C: R9 p0 ~      RowBox[{"(",
    ' t0 S' [0 R( M       RowBox[{
    ( ~  t8 s6 k7 L( Q4 P8 ]  m        RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", ) o: B% F+ c0 C) U) R' r- E" V+ N
         SuperscriptBox[8 a) v0 K) L5 r" e" j
          RowBox[{"(", 0 ~# v! H9 r% A
           RowBox[{
    3 J7 [  C6 E5 J. B. a$ F& p  {! b        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", 0 e6 ]2 P$ ]  l4 U1 o
         SuperscriptBox[1 r! U( H- \9 B. X  g
          RowBox[{"(",
    : C3 }- v0 A0 z       RowBox[{
    % X. l1 h2 b! f        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
    & o! k/ c  C7 ~. P& N( J     SuperscriptBox[
    - ?4 V/ o, K6 P: Y      RowBox[{"(", $ B0 g3 I9 C5 i& e
           RowBox[{' `1 K& R: l- N6 M% e& |
            RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", / y( s. r2 y! g. n  l4 g- l# C, l* }
         SuperscriptBox[# P% v8 p8 Z. G. E2 v1 X" Y$ U
          RowBox[{"(", 5 C! u0 K1 j/ k
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    / ?5 G9 ~7 Z, ]3 X" E     SuperscriptBox[
    * w3 `4 F; H0 ~      RowBox[{"(", 8 u$ C/ G4 J* b( {7 s
           RowBox[{
    % V- ?/ J/ n) X9 p        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    " F" h3 O$ X9 A) K7 f8 C     SuperscriptBox[2 W1 @, k  D& Y" `
          RowBox[{"(", " B2 |( p) W% e6 l& C1 j* J
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    % K- ~  X) ~2 C3 O     SuperscriptBox[
    5 V. V( D' \* k% e0 w      RowBox[{"(", ; g0 e! |3 ?/ t' x4 I# ~) M1 S
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    & `& ?9 n3 o7 d# o5 Y& _    ")"}]}]]], "Output",
    , T. m0 ^, l3 o. M3 s6 a( R CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
    & ?! P6 y$ H' _; A5 M6 _}, Open  ]],
    7 k" k* `/ A  s6 D. w$ C
    7 |% v# |8 @+ t! Z! g3 KCell[CellGroupData[{5 B$ a  X8 ^2 Q

    / p5 _" N% t" |9 {+ dCell[BoxData[{3 V. J* u$ Z3 G9 v6 ?& L( E
    RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]", ; f* l1 _5 e8 f- {1 s  o
    RowBox[{"u14", "=", , `2 L! T( s4 Q1 F4 E5 a( f
      RowBox[{( V7 V6 G5 s) w) \7 t2 \1 B( U7 E$ {! Q" v
       RowBox[{"Exp", "[",
    - Y; `  O& b% N8 A* p% P    RowBox[{
    : k& Q  [9 p) t* u     RowBox[{: D* c0 z5 ^1 ]' U- h# y% V3 H5 v
          RowBox[{"-", & L% f! |9 S' w4 u( N+ e& c
           RowBox[{+ u8 n7 ~: H2 O* L+ d' _  P: T
            RowBox[{"(", ; \1 V8 @, H/ U7 o  F
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    3 g1 }! c. R! w9 c0 ^+ j        RowBox[{"(",
    * A( F* e6 \0 ~6 \7 l         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    7 C. {9 e! T, H' G4 P) m8 H9 }) ?- w     "]"}], "/.", "DeltaX"}]}]}], "Input",; Y5 \: U( T4 f' b/ ~
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {0 Y& ~0 W8 N, p. v! x( h2 d
      3.57796154237158*^9, 3.5779615663176217`*^9}}],
    , R% ^4 L7 c8 y1 \5 A8 G/ l1 m1 q% W
    " U; G. r/ `& s$ ]5 @4 w9 f. G7 W# BCell[BoxData[) x  j# M7 W1 b# W
    RowBox[{"{",
    ( H% p. i  K* ]  `& v% }% k  RowBox[{4 t* _4 O- R6 K. H! r5 v: U0 u
      "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
    - B; c- a( G; n3 z: o; Q   "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    , c( G/ ~+ J7 K- z/ Q# u* ~  "}"}]], "Output",$ `5 `. i! b. c  T; I! O( ^0 [2 b
    CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],3 }9 D4 \7 F8 U; A) Z7 {

    4 Y( V- b* i9 WCell[BoxData[+ T4 M2 @1 x6 j+ n
    SuperscriptBox["\[ExponentialE]",
    2 }3 R1 G6 k) c. K  RowBox[{"3.141592653589793`", " ",
    : X/ C& Q8 C' ]4 N   RowBox[{"(",
    0 d4 t7 [; Q8 y    RowBox[{/ X. l. T+ `7 r
         RowBox[{"-", % h, D- x0 H7 x6 F4 g9 u
          SuperscriptBox[
    4 T( j7 `$ U! p: y3 r       RowBox[{"(", - @2 \9 G+ z# G) E
            RowBox[{
    8 e3 X# k4 N8 T6 V$ |/ u  t, r4 H         RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ! \- M, r2 ^3 u+ a* b0 y' V1 X     SuperscriptBox[
    . _( h: B$ [4 p& |; `0 L2 I( a      RowBox[{"(", # q* M( X9 U9 H: G- q
           RowBox[{
    3 A' @. m! Z/ Y* s0 t+ z        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
    4 H$ Z6 c! J6 ]+ p2 ~     SuperscriptBox[
    - U$ e4 W: ^( `6 o6 x      RowBox[{"(", $ R5 z7 c0 W. m! R
           RowBox[{. ]  v/ n1 C, p. Y
            RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", " {$ z2 T* L  w# `
         SuperscriptBox[
    . q) k0 r. M+ s0 `  M" J      RowBox[{"(",
    / c; P/ T7 i4 q& e  w4 G       RowBox[{
    ! [6 B: f7 v/ m* x, D7 `" S        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", ; X7 P- {, n6 [) z
         SuperscriptBox[; e% K) g' \% Y
          RowBox[{"(", & ?5 x1 j! m+ J, y/ p
           RowBox[{
    1 V' }2 j+ s3 z* s0 g% g% q' N" i& a        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
    5 z  H: p$ L" D7 z) |     SuperscriptBox[9 O! m+ T- e6 t& k
          RowBox[{"(", 9 _2 ?( ^4 s: a! ]3 s, ?& w
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 6 I, c6 F  ~  `3 M; G
         SuperscriptBox[
    0 }8 s* @/ z5 c. r; u6 Z& W& V8 z      RowBox[{"(",
    4 W. u; v. h6 F6 o0 k- E       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    ; T6 E# |, k0 T     SuperscriptBox[% x6 `: t" G$ H8 D+ B+ I2 W0 u
          RowBox[{"(",
    / H7 S8 \/ k8 N, z' x  K5 W       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 5 d; E+ N8 Q, v) k% `! C' e0 n
         SuperscriptBox[
    1 A0 u) q8 S# Y$ M: e      RowBox[{"(", ) c! Q1 c9 q1 P, M6 B
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], " ^% R  w' s, Z" g" T. S
        ")"}]}]]], "Output",  n2 f& o) y. c  V. d
    CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]8 A" c/ q$ B5 \0 K
    }, Open  ]],. t6 T* D( O5 h/ p
    , h7 h0 i, I" r# [" k0 s9 \  l
    Cell[CellGroupData[{
      N# }6 v3 F$ A7 z% E9 D( L& B; ^. x
    Cell[BoxData[{
    ; q" |$ c" `: e: z9 n0 F RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
    2 y* X: E, `" [& h) \( x$ L/ d: x- Q3 c RowBox[{"u15", "=",
    / R: g% A. T& u8 y7 U! W5 ~  RowBox[{
    1 s6 \& t! s* M; |8 j4 d/ B   RowBox[{"Exp", "[",
    % Y* [: h- g8 y3 V/ b+ S( P    RowBox[{
    3 o3 B3 x0 x1 {: o  M     RowBox[{
    3 w( c, x! m; J      RowBox[{"-",
    : U, n# I1 M3 \1 Y. S. _       RowBox[{# ^  |- h7 A" m& i9 O
            RowBox[{"(",   [- {& R' a3 y  @! R( f" H; c, j
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    % t8 A1 y- X/ W. d1 D! ]" E. ~        RowBox[{"(",
    2 C  A/ C0 K+ i6 h+ N+ y5 c         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],/ f$ w: x; x/ a1 a0 j; s; B- {
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    ( @" j6 [: z. F1 S( H% Z CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    / E1 D# Z/ [1 h+ @: L  B; S  3.57796154237158*^9, 3.57796157098203*^9}}],
    * q/ d# T0 M* j9 P& L7 S7 K& h0 l+ P' |+ }& p$ ?1 w! m5 n  K
    Cell[BoxData[
    ! O: O4 i* D4 _ RowBox[{"{",
    5 R, T& h* n( K  RowBox[{
    1 C6 M" t9 `) B; I% W: z( \  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", ( F" d6 i( h: i# ~
       "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
    - U4 l0 `7 @, c8 }  "}"}]], "Output",0 |. D8 S: g' G  I: @8 @2 k* z
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
    % V+ _$ a6 R; Z2 Z9 T  t- h1 e  y# j  k0 S7 D
    Cell[BoxData[
    + K0 q  V3 o9 l5 a# H SuperscriptBox["\[ExponentialE]", , F2 I( {) [  [- A
      RowBox[{"3.141592653589793`", " ",
    5 F) {& f; @! u( ^   RowBox[{"(",
    8 E: E- u  _+ k    RowBox[{5 o* z8 }* A4 T# z* m  C. C- a
         RowBox[{"-", + Z% ]  `: `4 T. h; }. \2 g5 [
          SuperscriptBox[
    $ e1 |6 C- G5 ^0 M% W       RowBox[{"(",
    ( `4 E9 N; H' k+ p5 g# E        RowBox[{. T" A2 `# @; }! B% V0 b+ X
             RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ; }3 J6 S; }9 e% c  C  O     SuperscriptBox[
      D6 t7 d2 ]  z* {* \      RowBox[{"(", 2 M/ S8 r' z* A$ e2 v3 R) i) G4 r
           RowBox[{
    ; S6 I0 O" _" j- \. P        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", & J  R- O/ x4 [
         SuperscriptBox[; g! z6 z- s, j+ w- l2 f
          RowBox[{"(", ) R3 M  y: |; d+ _$ U3 }
           RowBox[{
    & G0 C, X2 q! c8 \$ h" i5 B/ @( m        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",   X$ ]6 [+ ^9 T
         SuperscriptBox[
    4 r6 q+ K8 V8 U: t) Z4 N9 Y( v- u      RowBox[{"(",
    8 a/ ^+ `- Q( s: Q5 J  |; B       RowBox[{& t1 r& R1 Z2 }6 q6 }! A
            RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
    * J+ ?" [3 e' s* m     SuperscriptBox[
    " G1 r/ _" e5 b; s* _2 X: ?* D      RowBox[{"(",
    / M8 U% I5 H$ \: l, \, a. W+ s       RowBox[{. N- N3 M* i' u& t
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", : z8 q( Q) r# J! ^4 y( K: s
         SuperscriptBox[! G* Y4 P& J+ D" g" n5 ]2 W. g; t
          RowBox[{"(", 5 ^5 Y9 f( W  U9 j' [( M
           RowBox[{3 o1 i. H: s; P* Q9 w; q
            RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    / \- Y' c: a, c4 V! I     SuperscriptBox[
    8 s% x2 p$ @# j6 ^" {      RowBox[{"(", 4 k$ c: ?% [+ |
           RowBox[{) L( v: k" \$ a5 X0 s" v' @
            RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    / a; `2 \+ h0 D+ u: l     SuperscriptBox[, R: P  B( J6 g! Q7 {1 j
          RowBox[{"(", % G0 m$ ]2 {# l$ l9 i
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", * D3 b9 m& b# O
         SuperscriptBox[0 O. Z8 L5 d3 h, T1 r
          RowBox[{"(",
    , ^: e+ r: U4 L0 d2 b       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    8 p% Q/ K. C" y+ t& \    ")"}]}]]], "Output",
    * p1 D/ v" C+ H8 [( E CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]8 N; N( F6 T/ S: _4 p0 i
    }, Open  ]],% s) u/ R, z. F  [/ a

    * x, o7 k' k5 S5 E% ACell[BoxData[
    $ Z# x0 {1 J& e" j RowBox[{"For", "[",
    2 N% G0 @/ H6 ^: F, K. V$ `* L7 b  RowBox[{
    : H- e- ]5 I% U" f$ L$ _, q+ y+ d   RowBox[{"i", "=", "1"}], ",", # H  i% _  c2 C
       RowBox[{"i", "\[LessEqual]", "9"}], ",",
    - K( ?$ q& `+ u6 b  L" L* b   RowBox[{"i", "++"}], ",",
    ( e( m  h& t) w" k2 q% _- i   RowBox[{
    $ q# U4 u! t- d    RowBox[{"Ca", "[", 6 ~: A. B( h# o. @( e1 w
         RowBox[{"[", "i", "]"}], "]"}], "=",
    & N7 X. h; t8 h    RowBox[{"CM", "[", 1 [$ U! p+ V# q7 c  D# R
         RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    ( A. ?1 W) P8 U5 Y7 N CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],* Y5 B0 W; u: g7 P9 w/ O
    / ~7 _. R6 n: C( s5 d9 l# K
    Cell[CellGroupData[{
    # E8 H$ v9 @+ S5 A' ^+ _
    0 P: n; R# o; E: z9 x! K2 @/ U2 D% I: pCell[BoxData[{
    7 P( f: S5 ?1 h9 D  d, a, C; H/ f RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]", : Y! ?9 X% i; l( b1 x. H: S
    RowBox[{"u16", "=", 6 m7 p! q/ {" E/ W2 Z0 U
      RowBox[{0 j/ @/ [3 \4 D. }
       RowBox[{"Exp", "[", 7 g8 m, E! `  C/ C8 H4 B: C3 K
        RowBox[{
    & q7 A! E4 b: a5 C, {     RowBox[{; z9 P# G, l; m, k1 ?" P
          RowBox[{"-", ; a# k8 @0 ]3 n3 `
           RowBox[{
    $ G  D- t6 N% W# E2 H        RowBox[{"(", : T- q. f/ I# H/ |  Z; S: ~
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ; U% y6 I8 E2 a% ?0 \        RowBox[{"(", . X, y' Z' n  _! K3 e
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],2 w" W4 Z* l! F3 K8 _# B: l
         "]"}], "/.", "DeltaX"}]}]}], "Input",- h& k3 W8 e2 H: F& _) f8 T
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {- V) m, ~5 L  [2 U! y
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
    # d$ D& r) i+ t5 j% z' U  3.5779615751004367`*^9}}],4 Z8 x) K+ G8 z  L5 g

    ) H0 y, e, G: o7 H3 s5 VCell[BoxData[* j2 [, r: F) i0 c6 |0 p9 b5 e
    RowBox[{"{",
    7 P( ?% x0 o; w# ~  RowBox[{* @, ^8 R7 `1 k* l4 ~' u# z5 `
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", ( h) o, l/ o  `5 R* ~3 T
       "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
    & h$ {1 i/ x5 M  O' t  "}"}]], "Output",- [( }( X0 U/ g, v3 g# i- M3 O
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],# U& y+ A3 S% ]8 ?, B

    , |+ D: _5 |2 d1 r' {8 s4 E/ I% }Cell[BoxData[
    , K/ }6 l8 H4 w5 z$ W5 y# W( v SuperscriptBox["\[ExponentialE]",
    # Q6 Q  t6 G  Q8 H1 n  RowBox[{"3.141592653589793`", " ", ; j, O* Y1 E4 `4 G4 v9 D9 `6 x" ~
       RowBox[{"(", 5 w/ y* R) }, H2 D+ N8 S& n
        RowBox[{  W" M  P) L* F& W
         RowBox[{"-",
    & Q5 h' d8 X7 v- z      SuperscriptBox[. @2 f  z5 m! T, u
           RowBox[{"(",
    4 ~# }9 i/ d3 O+ a* i' Z8 j% s( b        RowBox[{
    ! i$ Q4 E+ K+ C4 A         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
    0 F: P; P+ I! l6 ?- b! u  d7 ^& E     SuperscriptBox[  I1 ?8 e; H0 I
          RowBox[{"(", " n6 O& o  L' v8 ~/ Y  m& I6 V
           RowBox[{4 O( j  m- I: ~: Q: J  y5 g1 _
            RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",   m3 M: _, F! Z9 z' v
         SuperscriptBox[$ c% m6 I4 [. I5 p6 H2 I0 w
          RowBox[{"(",
    2 p# Y- o  }' v4 J# w* P1 g       RowBox[{
    * A% K8 P4 i. \" @: M        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
    $ ^' d; G) N- D! O! a/ t% q     SuperscriptBox[% t. _- c% g4 T) a) {0 B
          RowBox[{"(",
    8 r/ O- Q& Z6 M5 z9 g/ p# g       RowBox[{/ _4 l: q. @5 h: v/ k$ F0 D
            RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", & k+ T# A9 G' @, H3 v  k7 L
         SuperscriptBox[5 O  b. s' A3 A/ g7 |2 }
          RowBox[{"(",
    7 @8 l! |8 z+ F+ ?. q3 p* ^* i       RowBox[{6 {  b$ o" ~* X5 R$ c% X
            RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", ( u) y9 V& c4 ?  t0 P
         SuperscriptBox[" c; \8 c" z7 x' y1 G2 }
          RowBox[{"(",
    . W6 g# s8 z' S' c       RowBox[{  D! P: f+ s  P  t. [
            RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", 4 P0 U6 {  \% Q( I0 a+ y' n
         SuperscriptBox[
    6 M6 [# b: y# a9 G' y      RowBox[{"(", % g, b  I) G' n0 ?
           RowBox[{
    , l$ C2 {' c) K3 m        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    1 c/ c' e6 d4 W: D' \4 P, A/ _2 c     SuperscriptBox[( v' n3 z/ m0 L( B: L
          RowBox[{"(", * K) h% J/ W% l. ^) ]% h& a
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",   x4 F, w) L1 {3 N1 ?' r
         SuperscriptBox[+ V$ [* G9 ~# {! Q, }% K( m6 |
          RowBox[{"(", 2 ], [! u  \* X+ x8 P
           RowBox[{6 L( y/ f' j  c& N5 a$ ~& q, \
            RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",3 O2 L+ a" K( h6 h" x$ F% Q' p
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]" R$ T2 x( Y  A! y9 Q
    }, Open  ]],0 G" e5 Z, f9 Q/ L9 F

    ; N2 T& j2 Q2 cCell[CellGroupData[{6 N& o8 \+ c  I* T% e( u* [0 s

    , z/ g8 B6 f* `) |3 _Cell[BoxData[{5 V' w5 R9 c( C6 y2 I
    RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]",
    1 G* h& J+ R3 |9 R' D RowBox[{"u17", "=", : P' c7 H* ^  u: A
      RowBox[{  w; A& N0 B; h0 ~2 z/ A. F# {! t3 Z
       RowBox[{"Exp", "[",
    / Q5 a2 W5 ]8 O% L" [    RowBox[{/ p' w& ^/ T" e: A+ k2 f+ d
         RowBox[{+ C9 }8 |# j; o  ~% r8 @- M
          RowBox[{"-", , N4 @" I( r* p& {# F
           RowBox[{" A. I) L5 S  R1 |3 H+ U# e) J
            RowBox[{"(", 6 Y4 G, I. W; j
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", % d; K9 E8 j% D2 D
            RowBox[{"(", % k; Q5 Y, q; v+ n/ r8 {
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],5 D  E% J9 g+ c% g
         "]"}], "/.", "DeltaX"}]}]}], "Input",( h) U( _0 t, _$ S" F' c7 f
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {, W4 w, u% D3 o" u
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, ' J- v0 ~( j# O6 B' ?
      3.577961578953644*^9}}],0 Z' X( {5 ^4 Z0 D1 ^

    8 \, X  D8 U6 v+ |/ Z# x, xCell[BoxData[
    / q0 {8 G0 [+ C  v7 {% \( B0 h* V4 [ RowBox[{"{",
    # B# Z% }: C7 K3 b$ k  RowBox[{
    0 X! o, N! }& m- ]  E/ u+ r  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", 8 f  W9 t/ \" V* m) Z
       "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], ) o. K& m) D1 _9 D- C* Q
      "}"}]], "Output",5 c, `0 `% r! T/ v) s7 |0 N
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
    / s- `6 z( i" Z" u: |- v4 L& v9 C, {: p
    6 v6 d2 w; g& w$ I0 C$ [) F; nCell[BoxData[+ x0 b" r& C  R7 [7 f! y
    SuperscriptBox["\[ExponentialE]",
    7 ~1 M8 n  W. i  RowBox[{"3.141592653589793`", " ", 4 ~8 X$ p5 d+ f1 Y# S
       RowBox[{"(",
    " c* |; _0 V- l. m1 _/ e# b    RowBox[{
    % e" D% @4 W6 y) J6 T8 g3 O$ e2 b     RowBox[{"-", $ E2 i1 \0 Q# y! V' G
          SuperscriptBox[$ e) n. A5 ~! `
           RowBox[{"(",
    ) I5 n# R7 p- G2 J1 }; g+ M: R        RowBox[{4 |! _- R! [9 s* u2 h9 z3 i
             RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
    2 z! X1 R  y: B* p" E* ]     SuperscriptBox[( K7 M9 u% c3 l; s& d
          RowBox[{"(",   d2 `4 F) v' z$ v
           RowBox[{+ {3 W# @8 C3 s0 f% t1 c
            RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
    0 W5 Q# N* P* I, F     SuperscriptBox[2 x  Y7 H! @  V# W! M% L
          RowBox[{"(",
    : E! J/ z+ |% S! B, I. D       RowBox[{. A; q- |6 z3 X: L6 t
            RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
    " Q9 \9 A0 L7 ]$ B3 l     SuperscriptBox[, B* r6 z9 W, D% q) J! D
          RowBox[{"(", ; O6 T' q# ^- S& R
           RowBox[{
    0 S. p3 t/ t( u* }        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", 0 G4 Y5 L( C& ?; H2 m4 W% y& p% K
         SuperscriptBox[
    ; l  U/ {  w4 a, w6 t      RowBox[{"(", & m7 D' K( c, Q+ n
           RowBox[{6 S/ F( @, w/ @
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    ! N, m. v/ I6 `9 }1 c6 W     SuperscriptBox[
    . a% J2 J+ ~! C3 Y! }( C" s; h' H- \5 L      RowBox[{"(", % c& a$ w9 _) Q, F9 [
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    % n9 G8 r5 w; y# K     SuperscriptBox[
    5 X4 o1 |$ I* W5 Q+ P0 A      RowBox[{"(", & O- w: V; L) T4 R6 Y
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 7 G* O0 R& V$ m; t
         SuperscriptBox[6 o  V2 \& m& }
          RowBox[{"(", ) D" I- \/ n' {, i
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    , k0 K' `- I& U& h7 q! L     SuperscriptBox[
    4 G2 t5 a) G% o% \7 P& [% K      RowBox[{"(", , g- z/ g! x) g* Y$ P
           RowBox[{
    # f: g, b/ }) q, w: C$ _" c4 E        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ) R5 \+ x) V- s9 \
        ")"}]}]]], "Output",7 u* H( b8 o: e& K
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}], V+ c! E8 j- E
    }, Open  ]],* O! ~6 o" ~7 u# @
    ! o% b) Y7 @' w0 ~/ _
    Cell[CellGroupData[{
    5 a8 r+ Y$ s6 p$ b; A/ J8 U* @- e1 ~" I. P0 U( I  L' a+ o
    Cell[BoxData[{
    ' _- Q4 L9 k' z! o RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", 2 a; j; Y& ?$ ~6 v8 [7 D. D3 A
    RowBox[{"u18", "=",
    9 w8 s% ?) n. F2 m  RowBox[{
      s. ]  c0 M$ T8 r   RowBox[{"Exp", "[",
    7 t0 r" B. d( y0 _) j+ G    RowBox[{- P" J! D4 M2 }" j% P4 X  ^
         RowBox[{
    ) }( Z6 G) `5 {8 j$ `) p      RowBox[{"-", : C! q: Y8 Q7 N3 N& H) J8 \' p
           RowBox[{# n. W  i6 n0 F6 E- u6 `% j
            RowBox[{"(",
    ( Y/ u) _7 e8 `7 x! z- \, _$ F         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 6 u% k2 N5 [8 H$ q; y1 ]
            RowBox[{"(", 3 V; p$ O: |* |8 e! W8 H
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ( M% P8 o) w3 [/ j  k! M     "]"}], "/.", "DeltaX"}]}]}], "Input",
    % u6 M* \' y7 ]9 @% A CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {: \6 Q* D2 [, u, L5 s
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9, # z1 O+ i0 I# t8 n( C
      3.5779615828848505`*^9}}],6 V' h( u( M" D: S. K2 Y
    1 k' G' @9 a- h5 t# \: n
    Cell[BoxData[
    & S" }( X& X+ n RowBox[{"{",
    1 O3 Q+ v' ]8 f4 T& x  RowBox[{( r. \0 N* e1 d$ A
      "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
    ; j& z# b& @* V; J0 {   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    3 K# p/ x$ p0 Q* \( P3 v  "}"}]], "Output",6 ~/ x1 O7 Y+ a$ u9 f! w
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
    ' k, B- g, }! ?
    * B6 q* J! O. O1 C4 PCell[BoxData[
    , A1 b/ B: {9 v$ } SuperscriptBox["\[ExponentialE]", 9 \' @' }; A/ G$ F" }4 M- m
      RowBox[{"3.141592653589793`", " ", 5 ]- S2 r0 w+ s$ W
       RowBox[{"(", 8 U# v' F. Z$ o
        RowBox[{
    % ?2 E+ x* `& p" W: ]. ^     RowBox[{"-", 6 K1 ^  o6 R2 u$ X" m
          SuperscriptBox[
    1 m8 ]3 x" b0 @: [       RowBox[{"(", - p9 p3 I- @  Y+ M. E; H
            RowBox[{1 b9 C6 V8 T9 }# G2 g( l- y; k
             RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", 9 ^& s/ J3 w  a4 Q9 G0 o- m
         SuperscriptBox[9 p( A; c" \* W; [3 c: e. U* Z
          RowBox[{"(",
    $ |! [  H# S% f8 X) J1 H8 l       RowBox[{5 e# T, T) N+ _, Y2 e( d% c
            RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", ; v& S: Q" [" A0 u! m- n! p
         SuperscriptBox[7 ^. F3 O* b1 N/ g" b
          RowBox[{"(", 3 s5 K4 J# j, I  y. ]( v
           RowBox[{4 r6 K/ ?7 f  P5 a; o
            RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", : _5 _. j- p6 Q6 e) e' F9 e
         SuperscriptBox[  w( Z$ k( s& q( B, H9 `
          RowBox[{"(",
    , f6 N% p" g6 i1 ~" w% C- P       RowBox[{% {* o9 m' ~- v- m2 f
            RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", 6 ], o% f$ ]$ \
         SuperscriptBox[
    # H$ x/ q) v) _* z$ [% W' }      RowBox[{"(",
    " m8 M& c7 ^5 {6 [0 a) V0 y       RowBox[{
    5 Y, S7 h; w' z7 h: k1 G$ x" G        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    $ d3 q$ c3 a; }% Z) S" U     SuperscriptBox[
    2 Q4 o$ T* }& W& E9 [+ h" }) m* v. r      RowBox[{"(", 4 L- l1 c4 p1 Z+ h+ \" O
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", % R0 \' \5 A6 Q
         SuperscriptBox[3 w- t- u4 `$ Z6 y( M
          RowBox[{"(", 2 n# t- S2 M8 l
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    5 l0 N1 o$ f+ [/ U     SuperscriptBox[
    4 j8 R: S$ x7 r      RowBox[{"(", * r4 Z' u! j7 X9 d. m6 k
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    4 M, |, Q! X0 ^     SuperscriptBox[/ Z# a* r2 @* `* n( U% J% i7 u
          RowBox[{"(",
    $ h$ W  m0 W2 o% a6 g. X       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], " L1 j  O8 D* H- `. x" n5 }! e2 K
        ")"}]}]]], "Output",
    ! C  S  G4 s, h! O( |% V CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
    4 W2 ?* d0 m2 H! b}, Open  ]],2 U& ~9 L/ O, D. S+ R4 I! W$ A. V5 d

    ) v$ I1 Z6 Q8 q# K' A9 OCell[CellGroupData[{* ^6 E6 U( t* d0 W" s

    ! n) D2 M( q+ fCell[BoxData[{3 T# x) S& M" u8 j
    RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
    & O! V7 O  a' d+ c1 ] RowBox[{"u19", "=", 5 Y- q$ T; E2 q/ d
      RowBox[{
    ! J0 J6 g0 z* `2 W& j1 ]2 T   RowBox[{"Exp", "[", . @5 a' w" P8 W( `8 H' u- D: A
        RowBox[{( Q1 m" N3 @8 L$ u3 L9 b+ v
         RowBox[{
    ! I7 c. H0 |' U( H      RowBox[{"-", 7 L; ?) v$ M6 |7 ?
           RowBox[{
    2 I9 s7 J/ s0 \6 \5 C  d' `        RowBox[{"(", / a. O& P2 I0 ~; B/ t9 S
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 6 H$ K3 X# k+ B; H7 Z. G9 [6 F4 O
            RowBox[{"(", ' w( o9 i9 f7 y3 ]* w/ t
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],/ N3 U) S' X6 P( ~' H- R
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    0 t) g% \/ h! b/ M* Q CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {# A4 _4 y7 g- H6 p' G4 T
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, ! ~$ U0 F( O7 a; P3 P
      3.577961588890861*^9}}],) \& A1 A" p8 Q4 C9 h
    ' s% U) _) D( x* A; T
    Cell[BoxData[
    - E9 r! }9 a/ C* u% S7 h9 [ RowBox[{"{",   G& ]. q" f# z8 \* W
      RowBox[{! O+ C4 H5 {: L
      "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",   q3 d$ Y/ Z" ]. _; A
       "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
    4 ^" {  }8 o8 L7 P/ I* {( [5 G- f  "}"}]], "Output",
    9 X# \  o) w% q8 [, d CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],: ^( i. \8 y8 O" d
    $ @) ]- M2 A& b& w- t+ _' f
    Cell[BoxData[- e# Z' ^3 }% f3 |3 r
    SuperscriptBox["\[ExponentialE]", ! U0 d! n/ n+ f
      RowBox[{"3.141592653589793`", " ", ! w& v$ _$ E3 S
       RowBox[{"(", ' |& I/ l* G3 G, U0 J& b( l- ?
        RowBox[{0 J# b4 D6 ~  u
         RowBox[{"-", + c* [8 [, j0 B* R+ F+ G3 S  b+ _
          SuperscriptBox[
    # ~; _9 z- s' p' y* [       RowBox[{"(", 4 ^8 K/ l  p$ R, L- G# N, C0 a
            RowBox[{& z# d3 `# v  u2 Q  @
             RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
    : y8 T7 u: A% o* e8 [( `5 `7 r     SuperscriptBox[
    : \- O: F+ P  }      RowBox[{"(", / q6 X, b* \! K) d( B# h: L
           RowBox[{' f9 k- U1 ]" b" {+ U. X% ~# f1 F
            RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", ) d( y8 T  ^+ j; ?
         SuperscriptBox[
    % t6 R+ R* L. w, S      RowBox[{"(",
    7 q* ~1 V) @) M" F1 l' s: `# ]       RowBox[{0 {; m0 n% p. c8 u. B: Q4 |
            RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", ( I; t9 t: P7 ]0 b) u, }, x4 `) `" A
         SuperscriptBox[
    * _% m/ Y! n" W2 k      RowBox[{"(", * ?; C2 F9 y! Q, ^+ N
           RowBox[{
    % ~6 q1 }0 P( t( A        RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
    1 k9 B: N9 i; s* ?  ~5 F     SuperscriptBox[: J* F: P. k3 t
          RowBox[{"(", . Z+ A* k+ C: D4 |# E0 t
           RowBox[{$ w* Y' T( {% O: s5 E- D* q
            RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", 2 @- s& `; S, a) y4 e
         SuperscriptBox[
    ! a5 E1 R! a- O3 C      RowBox[{"(",
    ) h: P4 G! N- }2 K0 ]' {       RowBox[{
    1 m' h; q9 O! `! c        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", * A' J( B5 {& ~6 W8 H( g
         SuperscriptBox[% Y. j, |! J; \1 G& v
          RowBox[{"(",
    + G; p8 m3 M4 e* P: L5 n       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", / a; H4 p) ?' q; U# Z
         SuperscriptBox[
    - `, U: i% L  O% z) N% X/ W' |# \      RowBox[{"(",
    ' o) |  J0 _2 H       RowBox[{( X/ E7 P6 v1 L. f" T* L! z
            RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", 8 Z3 h+ ]. p* j) A7 e: e+ w5 Y5 J
         SuperscriptBox[
    2 V$ U3 {& J2 l/ \7 c      RowBox[{"(",
    8 I) d% l5 D1 ?* A+ ^& N       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    * U, D5 \# v6 g2 o    ")"}]}]]], "Output",9 ?" {) J' r6 l( F! T
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
    2 j) i: h! g3 O( ?5 R# ?}, Open  ]],
    2 `2 u: C: C: v( }$ j( D
    2 b/ c) j8 E5 e% \Cell[CellGroupData[{9 A" C# d9 m, O3 i
    . o( m- _# C6 U1 @
    Cell[BoxData[{$ \' Z; g. h& l1 f7 E, M/ \
    RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", 9 U8 u: B6 h: G! R( Q4 Y
    RowBox[{"u20", "=", 2 r5 Q- m* R; X. ]( I
      RowBox[{' v/ J, r1 L/ m; n/ L
       RowBox[{"Exp", "[",
    + L" f1 D9 T/ o4 r& x) m9 n: a0 T" h    RowBox[{: A4 q7 U4 i6 L
         RowBox[{7 P' b3 C3 d  Q8 E
          RowBox[{"-", ) C/ E0 D2 s0 ]! R6 V4 D: [; J
           RowBox[{
    9 R" X: e' G% W0 y5 \' U1 n+ S        RowBox[{"(",
    5 s6 g: R& p& c1 v  v         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", / z- D0 z* o3 m- ^* }8 N  g
            RowBox[{"(", 4 `' {# Y4 J' r3 p# d: a$ o
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    7 |0 n4 p5 p" F8 C: Q     "]"}], "/.", "DeltaX"}]}]}], "Input",
    - ~! y& `2 u9 H& d CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {, p6 r* ?: {+ q4 A/ w# ~
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
      x6 n# p. i5 Q1 c$ Q  3.57796159382047*^9}}],9 D! y0 {+ X+ o7 R1 q" g- X
    : k2 b7 h% m( I' `' e5 A$ x  H+ A( F
    Cell[BoxData[8 }' a$ G0 M+ X
    RowBox[{"{",
    9 F' _! q  d" a# o3 @( P0 f  RowBox[{( n7 Q% g8 x* K3 i
      "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
    1 I3 W, G+ W; A2 z   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}], / g9 K' }" F+ i: ]9 S
      "}"}]], "Output",& C# o2 }  b( [6 \5 ~
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],; l0 z5 N/ n6 x, }9 \+ |
    0 C3 J  z9 f) u) t# c8 i! |. s
    Cell[BoxData[' K  _: s& t/ y, v+ U0 M
    SuperscriptBox["\[ExponentialE]", 7 y, h' s2 y8 ?
      RowBox[{"3.141592653589793`", " ",
    # i, j5 u8 o/ S5 J$ T: U) ^   RowBox[{"(", 4 Z5 X0 }* S! ?3 C/ T, S
        RowBox[{
    1 c3 y" u5 k0 ?5 Z! o- u; T% ]     RowBox[{"-", * p  j& m- a5 W% c& u6 v
          SuperscriptBox[0 u/ ^# l+ v) A! W7 s( k0 j
           RowBox[{"(", # f' e  Q* y+ e% q% c
            RowBox[{1 U, `- O# N1 Y- M+ b, T
             RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
    * q. Q: p) s- [2 X! _2 g# i     SuperscriptBox[# u3 E/ G7 C; G
          RowBox[{"(",   S  ?8 K! Y; t) d
           RowBox[{; H9 F- e; g# `
            RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", # D, ]/ `0 p. F$ z8 f1 j! C0 ]+ G
         SuperscriptBox[9 X, |1 U1 U* u& Z9 \4 E
          RowBox[{"(", - G( v4 j0 T) U
           RowBox[{7 e# \) r1 V2 R8 x7 ^  h
            RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    0 F" F9 ?  F% w2 g1 i1 B: |     SuperscriptBox[+ U  j' F" y' ^6 D
          RowBox[{"(",
    ; Z+ N% O0 `1 h+ y' s3 b       RowBox[{, I- h" |) A% Z0 o  r7 c  B
            RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", & U7 w( D7 G( u6 P6 P/ n! W
         SuperscriptBox[1 ~) a) j# y4 [) N: H
          RowBox[{"(", 2 }' \/ M* U% B* r* V8 S
           RowBox[{: d' z9 R+ j3 C+ \* m1 s+ d
            RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
      B$ x! c1 b; J, f% ^     SuperscriptBox[
    5 u- @- ~0 F* O& e5 U; ]9 m      RowBox[{"(", + N! l( `) ?! h/ [
           RowBox[{& S% w6 E+ ]- j9 t
            RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", 0 y) \6 J' K* O- M+ L+ h
         SuperscriptBox[# d: v0 ^* o! I4 U" r- x
          RowBox[{"(", 1 x6 B/ K  Z0 H( @$ @$ w! E4 ]
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    6 |6 `+ ?' k; J8 J# P     SuperscriptBox[
    8 P! Y1 N: ]0 w% e      RowBox[{"(", ' i3 F' ?2 k$ G) n  T( P$ @
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    3 d( a' j* u' v! X/ ]; Z! W     SuperscriptBox[
    ( S3 ~& W5 m# y1 F& \      RowBox[{"(", % @; X! k/ T+ j) V0 Z
           RowBox[{
    2 V% j' C! H, T$ s        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], 7 c* O9 c, U; V7 d3 \
        ")"}]}]]], "Output",
    ) A! Y/ l4 |! c. R" c CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]
    6 \+ d7 z' R: l  W# @! i+ C0 [}, Open  ]]," T5 |2 U4 [2 t( j' N

    ' O: q1 G7 s" Z8 ~Cell[CellGroupData[{
    0 _8 a6 L1 ]. a1 W5 U' S9 }8 F7 ~5 }( g+ Y% Z
    Cell[BoxData[{
    ! ~1 C% O, z7 ?9 R RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]", , y& J% [& r! W, Q1 `, Z. t
    RowBox[{"u21", "=", ; G: t* f: Q8 P/ U
      RowBox[{! Z6 K8 G! J( M" h
       RowBox[{"Exp", "[",
    ! L1 z& s* T! l9 @  Q: x% Q! |; U- T    RowBox[{
    ! a- w4 f. _- @7 j! V' K; S     RowBox[{4 S1 z7 B: {9 N8 ?0 {: ~; c
          RowBox[{"-",
    ; h4 ^" L. Q5 L7 ^       RowBox[{) G0 l+ G7 q, I: |5 \' x
            RowBox[{"(",
    $ ~7 t/ \9 `+ ~# c+ Q         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 O$ \! D$ r3 P
            RowBox[{"(", 4 _2 N. J3 |4 C" K# \# r+ M
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],8 L9 Y5 {6 w5 z4 j% p
         "]"}], "/.", "DeltaX"}]}]}], "Input",+ A. q' v  T* w5 h- @9 L( v
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {; ?- ?4 d1 V7 G1 Y  H$ V
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
    ' @# l0 \- {+ O& M  3.5779615991556787`*^9}}],
    - M! }$ b1 N( m3 a* I
    2 O) \8 ~  t& ^Cell[BoxData[
    ! B3 Y/ V2 N5 U# d' ` RowBox[{"{",
    * f- A3 B, o/ N  RowBox[{
    3 B8 P& e: D( [. i  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    ( }  ~1 ^! S! H   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
    : v. t" h. e; j4 `6 v  "}"}]], "Output",2 j4 u4 X  F6 \/ D( W) b) {
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
    & h! M7 K7 b+ Q0 N* ?: I
      T$ |1 I6 E+ V( ^) ]2 Z% HCell[BoxData[0 k$ q% }7 d" C6 B5 \: i2 B) f
    SuperscriptBox["\[ExponentialE]", . `& q7 _1 |1 Q0 ]4 `
      RowBox[{"3.141592653589793`", " ",
    ' s+ m- p# g1 B   RowBox[{"(",
    ) U6 d# I, b8 p6 L0 O- W    RowBox[{
      J' E' p( b" `, _. c, ^- w: j     RowBox[{"-",
    * q8 i: c4 K' @& _      SuperscriptBox[% N' M- T. Q1 _& k. [1 Y9 M9 v0 L
           RowBox[{"(",
    3 o9 d9 b, X5 ?5 o1 G9 _        RowBox[{
    $ o( U: Q4 [& J, a! c& g         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    1 G$ U# p: h) r2 l     SuperscriptBox[
    + }* g( [/ S' v      RowBox[{"(", 9 c) V1 t! M0 \
           RowBox[{/ I, G) D. e5 p6 N3 p
            RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", , P# O5 D1 O4 Z9 i4 ~
         SuperscriptBox[' v; I0 t3 Q4 L6 Z# s8 d
          RowBox[{"(", 0 u( m& w0 t7 B* |# |; T! d0 y; q
           RowBox[{
    1 B9 R! {; x6 Y* j        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", + K0 C4 N( X' r
         SuperscriptBox[/ h* ^7 G3 k6 w6 c" a& F9 Z
          RowBox[{"(",
    ' ^9 `+ F5 ~  O2 l/ b% p3 I1 L5 h       RowBox[{# @; k  l& ~% p" W
            RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", & f- E8 z  y' z% |' h/ J! L. N
         SuperscriptBox[
      ?; F) G" I: X- ]' _' \. P& m+ j      RowBox[{"(",
    $ ]: N: l9 O- G/ p9 I       RowBox[{
    + ~4 d: f3 q& N# u  X        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", " t! Z3 N# q6 S5 M* |
         SuperscriptBox[' a8 @: G: k" ^- Q3 d
          RowBox[{"(", 3 q0 v5 M) k& Y; J, E* a
           RowBox[{
    * C( G* U1 R% ~1 O        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    + j# s2 p1 x( q3 l1 B7 s     SuperscriptBox[6 V: V& y& V4 ?
          RowBox[{"(",
    6 G6 X  L. ?7 P% N& H9 D       RowBox[{7 i1 @( g" a* m2 Z
            RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", " T( R! M1 r' C. g! T' |
         SuperscriptBox[
    ' R0 T/ r: {, G) D1 c5 {: u, b      RowBox[{"(", / W# _4 W+ [4 H
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    * F4 A/ X/ O, h- i9 G2 ^     SuperscriptBox[, \4 n+ j: v* r
          RowBox[{"(", ; J2 K8 J3 }- B  }# F
           RowBox[{6 g% ?# Q0 N2 Q2 n
            RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], 6 e5 i1 f" x& H4 f, Q: C6 Z. z
        ")"}]}]]], "Output",
    3 C) O. q5 Y$ {) |3 a CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]4 ~/ M+ W3 a4 ^9 l: M7 }
    }, Open  ]]," h5 U1 C9 w. s0 [9 ?

    ; q( A# u" Z$ Y/ H. o( lCell[BoxData["\:62df\:5408wi"], "Input",
    4 |; J0 j* k- j/ e+ U/ k CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
    $ V9 v8 E( V" H! g) _% v( H
    ' K+ e9 ~1 y' lCell[CellGroupData[{
    ( Q* J' Q! S/ i- q& P) {
    - K' t2 ]1 M: O1 U) m% \Cell[BoxData[
    ; j# M' [1 n9 X7 t% t4 |- G" \% K0 E1 J RowBox[{"y1a", "=",
    " N% {! x" g. p4 O  D6 j  RowBox[{"Table", "[", 5 H7 ?5 z" e' e
       RowBox[{"x", ",",
    0 ?) S4 d  V. o' x7 v4 i    RowBox[{"{",
    . V  s: ~+ O& h& ]/ L% O     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",8 [% C$ b% F. w4 d
    CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {3 k  c5 p- `* L* P0 K
      3.5779226649375*^9, 3.5779226810625*^9}}],
    : a2 K1 c" ]3 s3 m# U2 u5 [4 `- ?. r* ?% t3 n2 o) U! K. X9 w: f  a6 @
    Cell[BoxData[
    + e, z, S! E9 Y RowBox[{"{",
    2 j" R; r, ^2 U, }  RowBox[{
    $ l. e) p" y* y  I: C  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", * Y0 a& b3 @5 v7 C+ I$ [0 l
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    $ q1 @) W' J8 ?8 I5 L    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 3 T2 z7 e- h6 M8 R5 {! c# H
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", - B1 W& o1 J) l$ w6 V# ]$ z
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    4 p% T. I& ?+ D   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    " K5 M  D5 \, W, b7 X9 E6 Z   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", * q) j: R, h; Q  U% a
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", : D9 V! R/ q- z1 l8 j9 |, k  b
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
    % @' u( b4 E4 q- Q" O# M" t  "}"}]], "Output",
    - P; c, J% o$ j! T1 q CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9, " m* r* Z) w* W$ w  E/ _. {
      3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
    2 l+ _, x4 V5 s5 A: ?; d}, Open  ]],6 h- B! ?  {" _  m$ L

    & x6 [/ Z) o% F0 m; gCell[CellGroupData[{
    1 T/ v( P  r" ~, e/ D( m+ @% L2 ~* ]: h7 e
    Cell[BoxData[
    , i3 p/ m/ m4 s RowBox[{"Data", "[",
    5 m, p1 A9 c9 x1 \; Y- [( I: p  RowBox[{"[",
    5 X, v2 Y. d5 x, n7 M- k" y; j4 J   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",3 x, I" U: o1 G5 N" V8 I+ h
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    1 |$ ^/ m! F% \- ~4 {( O* H9 S   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
    ; i% J$ R2 P( D. [9 J% l! C
    $ Z! F( J" L' x+ }Cell[BoxData["0.899882`"], "Output",- o& c8 O" S5 T4 Z8 \. e6 }
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, 6 j/ j" v3 q, E+ l3 Z- F
       3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
    3 T4 J( N+ d8 v  |   3.577961929080654*^9, 3.5780123419375*^9}]/ J$ `, B/ v9 j, |
    }, Open  ]],
    8 g6 M* R% D# ]. s% I+ _7 d' R+ ?: H# I' D
    Cell[BoxData[$ @+ T; ?! z; e: C
    RowBox[{"For", "[", 3 q  O/ [7 M+ C4 [+ f
      RowBox[{7 h: O9 l7 ^) W4 d% Y# G7 j
       RowBox[{"i", "=", "1"}], ",",
    . X! X; Q* O& b7 D. B7 }   RowBox[{"i", "\[LessEqual]", "60"}], ",",
    7 I  N, }  \' R+ `   RowBox[{"i", "++"}], ",", ' K! l) H! k3 e+ k( P9 c' b
       RowBox[{
    ' }3 @" y# v% b6 t. v/ w6 r1 G    RowBox[{"y1a", "[", 4 }* ^2 z2 H5 J* o) t' l+ @* ?
         RowBox[{"[", "i", "]"}], "]"}], "=", 0 {3 c2 @/ Z1 E) I+ l: [
        RowBox[{"Data", "[", 8 q4 }4 h' w! p, B
         RowBox[{"[",
    0 r+ _5 J6 j5 i7 b, ~# p0 L' {" W; X      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
    + a& f0 S! w7 P% q7 Z2 r$ D CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    4 V% t: L9 J% m9 D; i1 ?   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, * t; f/ W. |  m& [
       3.577922923203125*^9}, 3.5779588839702806`*^9}],
    ! q& E6 e% I1 S. O! y3 D8 y
    ! Z3 a8 g, z/ n; U4 qCell[CellGroupData[{
    ( c# ^8 O. p# |5 e, Z; N& Q$ n  w" j
    Cell[BoxData["y1a"], "Input",
    8 x* f* Y, o2 X CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],9 j# b, v4 w! B/ n$ X# k2 J5 r
    5 m, W! b( Y; q
    Cell[BoxData[
    9 Z( p, a" p  ~( q: u RowBox[{"{", / w8 d6 f( w, N' l9 H3 p
      RowBox[{1 s$ Y  n; C& a
      "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",", " i/ a2 _% M: T4 K( u
       "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",",
    5 V% M: z7 q( S$ v   "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
    - D% D8 z6 ^" w8 K1 T   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
    1 I! u, @  P4 t+ W" C   "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",", ) Y" `# j, ]" |8 [
       "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",
    5 r( G/ N( B8 X& z- T# d   "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
    1 d, W% i9 Q. ?# Y. b% C   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
      v1 v7 u! x% P% D' t   "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", 8 S* m/ V7 `% _& |3 F5 v
       "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
    ' s$ F+ Z6 n8 s3 H8 I   "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
      j& Q/ L# a( r' e. W   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",", % i' T8 [. j# S. |  |/ k
       "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
    - u5 y1 p, j+ ^: z" \   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",", ' P/ R6 P% @. \
       "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}], $ }( y8 b; B. j
      "}"}]], "Output",% o; C1 t4 b5 q+ k- J. P
    CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9, 4 Z# ~6 `/ w  Y% ^% b2 L
      3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
    ' s& O: a* H$ h* t7 [+ L}, Open  ]],
    9 I8 y& E: K. D6 y, S
    5 l* k; h1 w! o1 SCell[CellGroupData[{) M6 P7 [( p6 h

    4 ^9 b6 ?) a# T2 y: _Cell[BoxData[
    7 d1 Q, g+ q7 z RowBox[{"m60n21", "=",
    + l# i$ |4 o( ^8 p; }; W  RowBox[{"Table", "[", & t7 b$ U) f. R9 H
       RowBox[{
    ' p0 n: y6 E) A" B/ ~* n; \5 Z* V    RowBox[{"Table", "[",
    2 N$ R  p3 p7 Q  e     RowBox[{"y", ",", - e9 A, x1 T/ d4 {
          RowBox[{"{",
    5 K5 m7 C% G- H3 {* ~) p% N       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",", $ d, P- a' u1 a4 {
        RowBox[{"{", 4 w; E6 u8 z6 j+ n3 J* Z$ \, o" b
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    , `' g9 _; ~7 n: m- p# G CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
    ; a' M% H. x, X" U  3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,
    + R3 l- q  J: R1 x  3.5779619706547265`*^9}}],. k/ }8 ~- u, X% [

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

    ! |; ~% y( \' T( ^* o5 O9 ^% k1 p3 q$ oCell[BoxData[( n; d' V$ d9 x. ]( M" H+ c$ Q0 Z
    RowBox[{"{", 6 w9 a1 o9 S+ T# t) Z2 y7 z
      RowBox[{
    + E# k. s9 E2 D: H8 f: H  "0.43193416525930517`", ",", "0.4501634853493982`", ",",
    , ~9 r& J6 }$ k& q0 B2 [2 f   "0.33336034768525247`", ",", "0.4418609896858925`", ",", 8 g8 V( H" P' A* [: y" L- c
       "0.41030378932283024`", ",", "0.516814798191575`", ",",
    5 i5 T# u# g* L3 m   "0.4476631213729994`", ",", "0.3016552978696669`", ",", 5 L: |$ \. _$ `2 n  J2 j! y! g! k
       "0.378122167437847`", ",", "0.020339844919720733`", ",", 1 U, D7 |; l) m, J, n, d  ]9 i
       "0.018745375782087376`", ",", "0.2919925992695025`", ",", 7 ~3 H/ B" t; j# [, k
       "0.2649067959681263`", ",", "0.16343444284525593`", ",", 9 C, w, R4 p7 Z8 K3 P0 f1 p
       "0.4182466778551563`", ",", "0.27347752211364934`", ",",
    6 G. \8 t- ?" [' ]/ x   "0.38554057386385654`", ",", "0.35253160453718047`", ",",
    9 M# v5 N- v) Z. _& q* D   "0.2054745841100774`", ",", "0.45504377112716676`", ",",
    3 d0 H# U. S3 l: X- W* `   "0.1598805094678612`", ",", "0.18662509982279485`", ",",
    0 B& Z, @- Y7 z   "0.10684797493248213`", ",", "0.013349212673286828`", ",", 9 y5 m; _. C2 T+ @# H, U
       "0.08215836003004297`", ",", "0.2979041599362813`", ",", 0 ~; m/ ~9 x& e
       "0.05995976512343641`", ",", "0.3884793499104568`", ",", 2 E  x7 X1 ]3 O, T
       "0.5361889337034293`"}], "}"}]], "Output",
    ! n  G# X  [9 U# g: _+ ^2 r CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9, 0 w% q5 i' ~4 |. q# A9 D
      3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9, / |" H1 H% o* f7 w- U
      3.5779621416934247`*^9, 3.578012355546875*^9}]
    # B/ i& {+ R" j}, Open  ]],
    0 K; q  t# g' k- b" L* Q2 Q7 y  }& ]; N0 \+ Q# }
    Cell[CellGroupData[{8 h( r$ F8 ?6 ~/ y" d

    $ I% n6 q0 l9 m7 T- [: }Cell[BoxData[
    0 A6 Y. [' u6 O( A2 X RowBox[{"y1fit", "=",
    , O0 L  L( H. W: d  RowBox[{"{",
    # s' h  j. S% g4 q0 @( n   RowBox[{3 c7 f& a4 t( Y, O9 V
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ; K5 {  l' T. w; c. U4 ^: m2 u
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( a4 W8 A1 V# I) C3 v( F: t2 e
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", " G* a+ q: t! x5 J0 w
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", 9 K- I; a7 J3 j/ [, f
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    0 W  v; o; A: k# {7 \8 |    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    & C# a" O3 w9 x& q5 z. r3 n  B* c    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", - Q$ S- y, e3 v$ M! `$ o) f
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    + f7 h0 D9 M0 m, N+ u2 {8 z    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    + l3 h; U9 R& ?: I9 \: {2 w! F    "0.4319341652593058", ",", "0.4319341652593058`", ",",
    3 [% a% Z' W7 D; Q2 Q: W/ Z    "0.45016348534939865`", ",", "0.3333603476852527`", ",", # f2 X3 N7 [, Z# z1 F
        "0.44186098968589294`", ",", "0.41030378932283074`", ",", 2 B5 T6 R9 ^3 C/ u+ L# d
        "0.5168147981915754`", ",", "0.4476631213729997`", ",",
    $ _$ S7 B8 p9 l1 Z: K; B  [    "0.30165529786966755`", ",", "0.3781221674378473`", ",",
    $ V3 o, f7 D/ E4 M1 w# e    "0.020339844919720775`", ",", "0.018745375782087393`", ",", $ p* P+ j+ B7 q0 G( W
        "0.2919925992695026`", ",", "0.26490679596812655`", ",",
    : w1 X! \& ]9 \+ X, G    "0.16343444284525593`", ",", "0.4182466778551567`", ",",
    8 |0 N; E; |& S9 O    "0.27347752211364945`", ",", "0.385540573863857`", ",",
    ) t1 H2 l  E! u% |; H    "0.3525316045371807`", ",", "0.20547458411007796`", ",", # w9 |% M/ m" e! m; @3 z$ m! N1 m& l
        "0.4550437711271672`", ",", "0.1598805094678611`", ",",
    ( ]6 F' E! c3 a0 g/ D! `% w# h5 H% T    "0.18662509982279502`", ",", "0.10684797493248224`", ",",
    " U. K8 `* J& F, e: i9 g5 x9 {: _    "0.013349212673286806`", ",", "0.08215836003004302`", ",", 1 r8 f# x* j0 K  p( ^
        "0.2979041599362817`", ",", "0.05995976512343637`", ",",
    ( X: D. j7 Z8 x" |% ?/ _% j' U5 I    "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",
    ; `; l  E- N1 ~' O CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {! q; u8 z. S* A/ r  U1 i) X
      3.5779621548286476`*^9, 3.5779621618642597`*^9}}],
      O  U5 w) w- L4 s4 [  s2 _, |
    Cell[BoxData[  R: h% u# `. x: F6 k% @% j
    RowBox[{"{", % S$ @) L0 e9 I
      RowBox[{
    " q. `7 ]  b+ J: S0 I' j; `1 T+ L; o' D  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", % e& \7 t8 S( S
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",6 c; Z# w! r9 O# N6 q
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", + ^0 j. H1 l8 ^) V2 x
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    2 e/ b9 M# V, s! D0 [1 x   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    # d, m+ l/ R1 K' w. z" A   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", - i3 r' b6 Z9 U1 ~5 _2 d: K
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    * e* S9 ?4 Q9 c1 n. R- ?1 N7 \   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", $ ?) ?; Z- h# N
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    % c; ]3 \. ?7 D3 Q4 Q   "0.4319341652593058`", ",", "0.4319341652593058`", ",",
    $ F- T: ^8 f8 o7 N   "0.45016348534939865`", ",", "0.3333603476852527`", ",", / ^1 o3 B8 g7 O% M
       "0.44186098968589294`", ",", "0.41030378932283074`", ",", $ V9 g1 R2 w! L. z: O7 q" @8 d6 z
       "0.5168147981915754`", ",", "0.4476631213729997`", ",", ) `, ~! c- B& U0 k  B) |$ D7 N# k
       "0.30165529786966755`", ",", "0.3781221674378473`", ",", 5 E7 j& f, x2 z. z
       "0.020339844919720775`", ",", "0.018745375782087393`", ",", " i/ C: w& d. _, W3 f2 |! y" f1 ~
       "0.2919925992695026`", ",", "0.26490679596812655`", ",", ( |" Q6 N# j. ^5 R
       "0.16343444284525593`", ",", "0.4182466778551567`", ",", ' D: M. q- p3 M/ S$ Z6 g9 y
       "0.27347752211364945`", ",", "0.385540573863857`", ",", 9 s* v4 C6 s: e* c. ^7 y: @, L7 N5 @
       "0.3525316045371807`", ",", "0.20547458411007796`", ",",
    7 |$ }: S, l5 o) h! R   "0.4550437711271672`", ",", "0.1598805094678611`", ",", + [; d! g1 W- K* P8 W8 @* Y
       "0.18662509982279502`", ",", "0.10684797493248224`", ",", / e( F0 R9 F7 n" Z  L* j
       "0.013349212673286806`", ",", "0.08215836003004302`", ",", ( ]: S9 x. k' P* j0 F
       "0.2979041599362817`", ",", "0.05995976512343637`", ",", ' N2 S; a, f) e0 q* e! k" t
       "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",0 H$ b: a1 B  g9 `7 C! u
    CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9, # o+ D2 {: o  u. |. F9 q
      3.5780123569375*^9}]
    9 v3 Y! p$ N+ i}, Open  ]],
    4 Y. O1 f: `' x! x  k
    6 v/ t, F- @5 F" M: R. W4 o- zCell[CellGroupData[{; v* c7 J0 M  i2 Y/ Q- P$ x. p

    0 i. `; s( `' I1 ICell[BoxData[. D2 z; m+ B& m# U6 g
    RowBox[{"y10", "=",
    + Q6 y$ e2 o. L! E4 j- H3 V  RowBox[{"Table", "[", - h4 H1 D$ w) P* R
       RowBox[{"x", ",",
    : }- f& V. ~6 `    RowBox[{"{", 8 I3 |8 [& Q7 i1 T
         RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
    , p9 H( q! q) L/ H5 L9 j7 A CellChangeTimes->{3.5779253628125*^9}],9 L8 j4 w! ]# t' ~7 `" n! c
      d. Q, u, H& G* d& j8 v& i
    Cell[BoxData[9 H' j" g' G  Q1 T( v/ C
    RowBox[{"{",
    ' I2 k8 @8 `. g  RowBox[{' F% U& I, r% i3 W! {2 I6 R, E
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    " n0 {+ F+ o! n7 Q5 Q   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    ' s# Y7 C+ a* p: h    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    ' U8 `" y; a/ e7 K) c2 ?   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 5 Y% }) L( g, S1 w: z
       ",", "29"}], "}"}]], "Output",
    . w' X* v, X! S- a8 F" ] CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9,
      r4 T: j, g2 i6 R0 t  3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]
    / Y4 W( G# E* p3 q}, Open  ]],0 ~: [0 N/ u( R1 b8 F

    1 |( _' }! }  ?6 o; E5 K0 b* mCell[BoxData[' C8 `2 s" R5 G. J8 _
    RowBox[{"For", "[",
    8 b/ J6 }$ D. O" A  RowBox[{- k/ F3 Q( T7 E) {+ _8 X- d- s
       RowBox[{"i", "=", "61"}], ",", 5 Y: [/ P3 f1 ~4 [% l
       RowBox[{"i", "\[LessEqual]", "89"}], ",",
    5 e# b. [8 I0 W* S, O) B. Y   RowBox[{"i", "++"}], ",",
    % M/ A5 }" D9 J6 e  V   RowBox[{
    / S5 Q7 g, V: @& V% Q5 J$ g    RowBox[{"y10", "[",
    ) z2 @2 B" n& o* O     RowBox[{"[", 9 P* |7 Q' L$ e$ k3 X2 ?6 m+ B
          RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
    . ^( o- P* O7 D1 j8 P, {    RowBox[{"Data", "[", $ A- k0 [4 e9 j) q
         RowBox[{"[",
    ; W. g9 A% k4 R7 Z- T. ^      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
    0 G# r# ^( k% ]+ b CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    & G7 {7 `; x! K/ M& D# }) p   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    6 |  {, T& f& u9 a! v" u   3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, 5 t: Y/ Y2 Y. S7 _$ j9 x, j. T
       3.577958922549148*^9}],
    3 s; e; q9 r- }# m- Q) g4 \0 z: h5 o; F) |- l' i- W8 }% M0 T8 k( o
    Cell[CellGroupData[{6 ?4 G; |4 q3 ~0 C- t- S  \( X+ K

    + S7 ^0 T7 J" l  T0 P( U! m1 jCell[BoxData["y10"], "Input",
    6 O3 Y. R6 N0 m  i4 Z- I" n CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {8 ?8 U! Y- B2 E
       3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],
    % N  m% b/ h3 }0 T/ w) d
    * ^0 g2 f$ P( d. q: ~+ |, [( zCell[BoxData[
    ! S8 ]# P/ ~, N2 ~7 E2 {* y RowBox[{"{", % _8 |* R2 H2 q/ Q+ U% s
      RowBox[{
    ; h/ i/ K& B! x* G: D  "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",", 3 W- y1 j1 f4 E+ z% P. Z' E
       "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",",
    ( t$ w& f9 R( _" `   "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
    3 h) A; @* E* _: m# C7 O# r   "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", $ [  o0 H5 u/ S4 a" @
       "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
      a  O3 U$ b0 n; p' v9 d! S* p   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",", ' O; A# Z% D) G: U3 T! w6 ]
       "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
    3 |$ K" u' `* w   "0.694935`"}], "}"}]], "Output",0 W( a: |5 E( F# o" A
    CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, 2 D' M3 |3 g6 [' l' y8 k( j
      3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9, & M6 V4 _8 W' j0 K$ b$ e
      3.5779621736734805`*^9, 3.57801236071875*^9}]$ j. s& |. O' R% _" }# f
    }, Open  ]],
    7 i# r% y! W2 L# V3 ?. u
    5 S" Q1 {" d  G+ GCell[CellGroupData[{  O& o) c! m$ w* H/ E& f
    : p6 N) l$ v, |0 |" a0 A1 r( q
    Cell[BoxData[
    / x9 V% S" P1 e* J2 q* D+ p! R4 j RowBox[{"y10", "=",
      l' B! |9 v( P$ p$ `2 E1 R  RowBox[{"{", 9 W0 D2 p( c4 p$ z. @' v
       RowBox[{
    ' }) I# V0 R% u: a7 h   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ' t  I; o! @, r5 O! @# a    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , M2 b2 e$ p6 |
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",   \2 m/ s% x- M- p$ y$ N4 D0 x
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", 0 \) Z6 _0 ?2 n3 Y" q" k
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ) x- \  P# s6 L- @+ x- W
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    ) {# d9 c, c1 z0 i) a4 f9 w    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", $ S& r" Y' e1 @% n9 ]: r
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", 2 l+ z' q5 j( r; M) d
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", $ i- A' Q6 M4 G2 ~! u8 f
        "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", / A3 N9 h3 [9 c# _+ }! i
        "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",",
    0 g: I9 s- O6 S  p+ I    "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", ' `, ?! h+ {& S
        "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",",
    7 e0 U. O7 ~# A2 ~% S$ r( p1 a    "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",",
      {1 i: n2 X0 i" `! s    "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",",
    5 Y. }& W; N5 D$ J    "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", $ e/ A( x# ^4 ^9 l$ m$ _; D% \
        "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",' o: Q5 M+ z( _
    CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],5 H( n. ^" F1 x) Z3 z; X" e2 Q8 H

    ) t& w; n+ C" I; _( j& H' f+ ICell[BoxData[
    8 e! D0 ^$ q2 @1 J! h) I5 { RowBox[{"{",
    0 x% j9 I1 P- A# X  RowBox[{) l& v2 X2 f1 F. E8 L
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    " Z$ c" V; [$ l* O   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    & m1 n/ @9 S- e2 x( W& l    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    ; W( `( T; y$ u. t! J$ E  G5 M   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ( ~) v( W) K% Z: P) j
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    $ T3 C+ C/ ?  G, w   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 2 P7 h# K! H! Y; K% x* Z9 b( T' Z
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", + O  q) L8 B4 e, r8 {' o0 P
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", $ ]) }! |) a, d4 m
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`", * x) j& @2 P4 z) ^
       ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ( n3 X% y8 {8 X* j* ^6 y; u$ Q8 h
       ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`",
    1 }. l& x# N/ v8 l   ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",, ?, ~3 i, m1 i5 ?' u
        "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", . E. M4 {+ h. K4 a" `
       "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
    " E, J5 Z1 K0 H: t0 Y   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",", ( @% [& g- y3 [  Z
       "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
    4 h/ Z6 n- g; i0 q/ l6 C   "0.694935`"}], "}"}]], "Output",
    * V  n1 L7 i  }/ _% J- }# h CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9,
    7 G& Z" ~0 F5 E1 d" g4 b3 k* z  3.578012361734375*^9}]
    % {8 b, @7 W1 Z4 X1 F. `}, Open  ]],
    1 a$ K+ M: r. o, h" R8 W- _# |! \. K8 K  G' @1 g1 [/ a2 S* M
    Cell[CellGroupData[{" F, m4 m( L2 }$ [; T+ h- }5 g
    : ?) y7 v2 s% z- G% H
    Cell[BoxData[4 v, B) D: P5 A1 e8 |
    RowBox[{"p1a", "=", % F0 K/ j, [2 j- d* _7 h% d
      RowBox[{"ListPlot", "[", ( W* W% x5 I$ g+ a6 \$ Y4 n# L
       RowBox[{"y1fit", ",", , F4 s' i5 ~8 d3 z
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", + n9 d) l. g" X1 a* y
        RowBox[{"PlotStyle", "\[Rule]", ) H: _7 p6 N' ]& V9 j
         RowBox[{"{",
    * h9 M' b1 U$ N7 u) u! b- s6 i      RowBox[{"RGBColor", "[",
    3 ]' P" F4 G2 n, K( x: \       RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
    6 A  ^: ~, N3 l% h- J) W1 I" n) Y    RowBox[{"PlotRange", "\[Rule]", $ b1 o) w2 `: ?
         RowBox[{"{", % u0 c: K$ B$ X5 ^# n+ z
          RowBox[{+ U3 A9 w2 e* ^2 x( H2 d
           RowBox[{"{", ) }% Z8 U/ i8 Y
            RowBox[{"61", ",", "89"}], "}"}], ",",
    # P; ]1 r& W  v& t       RowBox[{"{", 4 p+ u# [, P) X1 O5 a
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    1 g4 X0 e% p% C0 B( e, S3 X5 f) A    RowBox[{"AxesOrigin", "\[Rule]",
    0 K& t2 _* Q8 n% B3 p% o0 l     RowBox[{"{", 1 N  ?7 K" K) v- B' [! S' U! ~! K
          RowBox[{"61", ",", "0"}], "}"}]}], ",",
    5 `3 z  n& b, u2 R5 _! g$ ?    RowBox[{"Frame", "\[Rule]", "True"}], ",",
    5 r( C" ]8 |4 W& ]# |& }    RowBox[{"FrameLabel", "\[Rule]",
    * ?" r2 v* b5 R+ S     RowBox[{"{", 8 _3 W4 E8 X) q
          RowBox[{5 W; z! Y) |8 t
          "\"\<\:7089\:6b21\>\"", ",", ( ]6 C: ?8 q$ c$ A3 {& M. q
           "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\5 l' Q3 j* m* R7 t9 d$ o& E9 Z1 m
    \:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",8 v$ t0 V4 D" T& u9 b, @
    CellChangeTimes->{
    9 k! l) l" p& J  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
    + _) K% o! G( `. e   3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9,
    # l) t  Z9 ~! L" ^   3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {; [8 R  k) E0 q% W
       3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],
    + i6 v& X  ^4 Y( w$ P5 F$ U( b& P- v' o* G
    Cell[BoxData[, e9 ]  l' ?, z% D, ]' [) x
    GraphicsBox[{{}, {}, , G& l! t( D$ J9 [. n* q- b
       {RGBColor[0, 0, 0], LineBox[CompressedData["' F$ `. N  C& Y$ A! [
    1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn8 J9 S6 t5 t5 E+ o: M
    8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
    % C8 Y! I* |( y! G: e, uD3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B& a5 L, \* \) Y; q8 `2 W
    1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
    4 v% ~9 |$ O. uC1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN0 M) Y8 ^% S$ M0 L
    a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff. N2 j4 H/ O7 @3 u& V3 e2 f
    yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb9 B' V. i6 Q  P+ f# n, _# s0 x
    wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX594 P. A. ^: s. M
    Y6nGQ3sAieueIw==- g9 I, z4 F9 I7 d% k& @. v. x+ J; B
         "]]}},$ n& n) A" O7 ]: P' r/ ]
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    9 d5 Z6 m3 O# K; y/ @6 R  Axes->True,
    2 F! {& e' i0 v: V1 ~  AxesOrigin->{61, 0},; ?" m; p* P* a) D3 g) Z
      Frame->True,
    2 `0 J) k5 e9 x, _  FrameLabel->{
    0 A$ A2 q$ s$ D! @" B9 J; V1 R/ N    FormBox["\"\:7089\:6b21\"", TraditionalForm], * P8 t# Z6 B+ p4 y" U
        FormBox[
    5 ~( f# p/ d5 f" ^- h1 }- M    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    # t) M" F3 o0 @; ~\:ff09\"", TraditionalForm]},
    5 K* S' E$ I0 A! u* W& Z+ P; d) W  PlotRange->{{61, 89}, {0, 1}},* d$ w# y( @/ M' X8 u( v) P0 o
      PlotRangeClipping->True,  j6 ]- ]6 S4 `- `8 V/ w
      PlotRangePadding->{Automatic, Automatic}]], "Output",
    2 e5 B- s- K" {: g CellChangeTimes->{
    2 w5 p0 D) w% e8 e+ U5 I' [  3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9,
    / ]1 b9 x" I, s8 H, N- o' Y   3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9, , M4 y9 ?0 |) S% ?2 v
       3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9}, . f. b  [, S0 ], x* ~6 a
       3.577962187510705*^9, 3.578012396921875*^9}]5 b! V- m/ d% o# Z
    }, Open  ]],5 F& m+ x$ L$ B: G

    1 A5 X  ?9 e0 w3 m8 TCell[CellGroupData[{  }! Y& T0 H  q; e' m
    3 _$ }2 k  _2 M+ t/ O6 F
    Cell[BoxData[( |2 {- Q9 @" E+ ]  @' C
    RowBox[{"p1b", "=",   Q2 y9 L" J: U& ~9 B8 B, T. u% c
      RowBox[{"ListPlot", "[", 3 c8 F7 h. i# y( W' `6 I. N
       RowBox[{"y10", ",", . m8 c8 ]0 |2 B; {3 L, q" J
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", : O* t; b9 u/ |
        RowBox[{"PlotStyle", "\[Rule]", , o, r/ T9 f6 M6 r4 i' R: A0 g( e' H/ i
         RowBox[{"{",
    9 l$ F& g  W$ k5 s; S6 K      RowBox[{) ^1 ]* [1 T3 G0 x  S
           RowBox[{"RGBColor", "[",
    $ v  ?$ ^, c, o& }+ q        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    + d# d% {) Y% |) [4 n    ",", . X9 `  J  E" R4 x8 g( n) b
        RowBox[{"PlotRange", "\[Rule]", $ A% D0 t/ f) ~9 q2 U" U' {
         RowBox[{"{",
    6 x& A& O! T/ N# B1 w      RowBox[{3 w8 L$ M1 g  C" @8 p3 R. q0 G# ^: u
           RowBox[{"{",
    & v  R& r$ @8 K: X, Y        RowBox[{"61", ",", "89"}], "}"}], ",",
    ' l6 l4 S* a; \& m       RowBox[{"{",
      P1 V& n; R: V' S0 K7 d- i        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", - ~& F. ?+ @) R
        RowBox[{"AxesOrigin", "\[Rule]", 2 b  e# y) z2 V0 `  @
         RowBox[{"{",
    ) ]  d6 T; J1 J# a4 f+ J6 |" M      RowBox[{"61", ",", "0"}], "}"}]}], ",", : ]# E- c- {5 O4 F
        RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    ; k: v7 [& K7 Y# f$ y: c, _; H CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9,
    " b3 U" k) L0 L5 q% ~  3.5779597764166365`*^9, 3.578012409265625*^9}],
    . b  b/ f" l! J7 m# O
    8 \# h; ]: Z% D" \. y  [) xCell[BoxData[8 _5 i) b3 W! ~/ k
    GraphicsBox[{{}, {}, 6 g$ Y. e, `! P; d3 t
       {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["3 x# c! v/ O8 S* a9 r
    1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ1 f7 N5 s/ J8 B& N/ R
    /B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
    & @2 H# w; h4 u* @% J$ z5 PGwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy5 X1 ~1 _1 j; _, U) V+ y6 }# f- G
    GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy( O$ r1 K( Z6 z- S0 q2 S6 d
    7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
    4 u7 F$ x/ {# y- z. SQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri; I6 Q: C1 z; ]3 h+ _
    H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
    0 o  U' Z6 ~  b. {* irQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
    . ~( j9 ^* C0 f3 o% P* k6 PvA==
    ; z8 k- e$ [# B  X     "]]}},
    , F/ C" ?- q) g# B0 r7 ]0 b5 b" Z  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    , Z5 c$ V! M' T! P, _  Axes->True,2 g6 `+ F9 z( ^  S5 Z1 r) }& w4 J5 q
      AxesOrigin->{61, 0},8 N! z# `. @6 l/ ?+ b
      Frame->True,
    ' J/ b2 ^( m5 [+ Z0 y( U  PlotRange->{{61, 89}, {0, 1}},, M6 ?# a& G, V
      PlotRangeClipping->True,
    0 Z1 W. h! K) Y6 v7 u- t: Q$ P  PlotRangePadding->{Automatic, Automatic}]], "Output",
    2 O9 B# e, w0 j9 i- i: g CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
    : ~! Q6 k0 ]6 y# O# L* R: O  3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9, ; R  H  N, o" r: k% u2 `
      3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]  L3 j3 l- P+ K; k( g
    }, Open  ]],
    / s) Y3 l- h6 n3 D" c5 d
    6 w9 E; @8 b, U0 l+ P% @$ n6 ^Cell[CellGroupData[{) r$ L8 f' m% p9 J! X9 r6 Z4 z

    2 V0 y& m2 M  a- ?% \; oCell[BoxData[# Q& b+ j4 Q6 v  n+ a8 Z8 }8 U' Y
    RowBox[{"Show", "[",
    ; j$ d; P# }/ A* B1 P  RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],
    # k4 m/ N- k/ f5 Y6 b2 N# \/ @. t4 e2 J( a% o9 E
    Cell[BoxData[7 O# ^0 G2 k7 ?
    GraphicsBox[{{{}, {}, , M3 @; V9 R+ g( H3 x  P% u- _
        {RGBColor[0, 0, 0], LineBox[CompressedData["
    4 T# `% Q+ v' f! J: t1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn$ z4 m8 E2 G& Q+ F4 K
    8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq  U6 O; K. J# _: {) n4 K1 q
    D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
    $ ^$ Y% O( ~) |3 J: W' @1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX; v" ~' i/ G) {# @! D
    C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN2 v" @: O# C" x5 W+ t
    a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
    5 _. _+ h3 E& h" syqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
    8 J/ T" K; K& A4 h: O- YwrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
    ( I" n) ]- M9 R/ E8 Z, N; V- dY6nGQ3sAieueIw==3 s" E; Z% F  `8 s; }$ i- z
          "]]}}, {{}, {}, " {( P* Y( F% D& [( U' a
        {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    # [+ U& ~, X( T9 |# U& U* d1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
    / f( I6 |5 F6 W3 u$ e2 ~2 R/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
    4 D( D# @: h  XGwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
    + x, y: N& P/ n2 Z. W" R7 o- o4 xGFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy7 K" W/ `7 ]' r; |, a
    7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/( s6 \* L: Z6 E; S6 }& r' P  e
    Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri; k% r+ z9 g1 _2 i9 p- E
    H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
    1 ^6 W; n& L% [( g2 KrQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T4 E8 j/ `! d6 S1 t% B
    vA==: \. b; t9 j% s7 j! x
          "]]}}},
    % J9 r: O. u& w% n& k& p  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    3 |; e6 \$ H3 x; F1 |* B  Axes->True,& C4 F5 i  G5 R5 k7 |% R
      AxesOrigin->{61, 0},
    2 h- z) K& [0 m3 S- G  Frame->True,  |3 m  p1 `+ N' C( p/ O* ]
      FrameLabel->{
    9 K. u. g' f' ]: h- W2 s& `$ ~  J    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    * r/ P, }1 X9 q4 @' D    FormBox[2 ^# G% G7 C" N8 X, R# C
        "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\$ e$ A$ D+ y7 L( e) `, M+ w4 d
    \:ff09\"", TraditionalForm]},
    * W. C% h2 i; w3 ]) k4 S  PlotRange->{{61, 89}, {0, 1}},
    - Y5 M# U2 G+ \2 P/ k! }7 T! X  PlotRangeClipping->True,9 t" ~: \. _; a4 Z
      PlotRangePadding->{Automatic, Automatic}]], "Output",# d( P9 X, g) d; ~
    CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]
    ' ]# L5 o3 M4 d; l7 f# u' W}, Open  ]],8 Q2 {* q! [* K9 k) h% s

    & V) P* U+ N& g6 KCell[BoxData["\:62df\:5408wi1"], "Input",
    + ^( r. g/ E$ n' }/ ] CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}, 4 n, R$ Y5 y: z
       3.577959662349238*^9}],  V; E# W4 L8 D& w& y
    : g, K+ b  l# x. x7 ]: W
    Cell[CellGroupData[{
    7 K8 O9 Q: I" x  _0 Z
    6 e: |9 N- J+ e* z' [+ QCell[BoxData[$ n6 d6 z: t7 U( t
    RowBox[{"y1b", "=", % q* W* L7 Q! f1 E. ^
      RowBox[{"Table", "[", - M# [; n5 ]) U! O, s1 G+ d. t
       RowBox[{"x", ",", 6 \' z1 L- A! _( P/ H
        RowBox[{"{",
    , P; Y  d& D) N/ c" y5 x  l  p     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    , `2 ]6 ^8 u6 o3 Q& \6 Z( K# q! E. j1 w CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    : v7 f$ S& t) G; P$ E   3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],) S: s# L# P; ]+ ]& |3 }2 b
    7 }+ e5 e) o) L" t/ i! n
    Cell[BoxData[0 w  o9 o1 @4 D$ F/ u& r
    RowBox[{"{",
    5 _) d2 i8 k1 |  m5 h) D  RowBox[{
    ( k: k' \) _2 Z! |  E8 `( J  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 7 `- r( ^3 G, Q& ^( A
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    9 g% l/ L% e+ w6 \    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 6 t% v; n& {/ d& c3 K
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    1 O  F, t7 B/ y2 O8 \+ M   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    ) p* e: K+ {$ |& R6 E: G6 J! Y$ L5 L   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    9 v, ]9 E+ o7 n- ~2 e   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    * F9 O8 l" e2 ~: h  U6 T1 a6 l- D   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    9 @4 G; ~$ Z; r* j4 T   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
    * @6 u. B$ D( i$ q- H; P0 ~9 H  "}"}]], "Output",
    / m1 |. {+ q: ^ CellChangeTimes->{) o- r5 j: _5 R$ Z* F4 n  J6 L
      3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9},
    " L$ J8 v; f% u6 E$ }& B' L   3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9,
    ' m2 q  M  X' D3 [0 f) U   3.578012438953125*^9}]& H" e8 B2 t6 C+ i& e# f/ B2 e
    }, Open  ]],* @* A! \' r9 z& l/ ^
    " m5 x% O( q8 T* z- }0 x
    Cell[CellGroupData[{
    ) Z2 q$ B+ W3 {3 N& ~  u0 c. j6 H0 W
    Cell[BoxData[
    ' E: l3 B' e; v3 O. u' [/ c: j RowBox[{"Data", "[",   U9 t1 M. P6 }8 A4 V
      RowBox[{"[", & l, H% B; I" v. t8 }# Q: R, r" g/ [1 r
       RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",
    2 _8 U) E, H' O CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    2 \6 |2 Q4 ^8 ^, N0 F- e   3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {7 q1 W7 L: U! T# n  z/ K1 K0 _' i' t! \' n
       3.577959014090108*^9, 3.577959016040111*^9}}],) x$ B+ m+ v6 y

    # l2 q5 M: h& T7 N# Y# G! dCell[BoxData["0.492958`"], "Output",
    8 i$ a" H* d5 E3 J9 d* [4 q CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    9 H3 x2 V9 @) Z5 b+ b6 g) _" w  t   3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9, 7 O1 B' v* ?5 [9 }
       3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]
    9 ~1 `. t, y; M1 n" A) _/ x/ u" `}, Open  ]],) u* }& L1 P6 T$ i3 X* I% ^
    + y2 m, {! h9 N5 e
    Cell[BoxData[0 q3 l9 A8 e! ^# z
    RowBox[{"For", "[",
    - f. {# r/ o4 W  RowBox[{: u0 D& v( \, |5 m3 M
       RowBox[{"i", "=", "1"}], ",",
    $ C1 \* w: [( `! J( ?* q1 d   RowBox[{"i", "\[LessEqual]", "60"}], ",",
    $ B* ?0 a: `5 B" `7 ^   RowBox[{"i", "++"}], ",", 7 j: M& n; p- E- e0 i& U1 y* A
       RowBox[{
    ( f; Q3 K  m- x3 n* y) W% U) i; o4 s    RowBox[{"y1b", "[", . W/ h- A6 v3 k4 L. j: y5 \# X9 u
         RowBox[{"[", "i", "]"}], "]"}], "=",
    $ t% A, u4 U6 [% G    RowBox[{"Data", "[",
    2 U  ?7 X: D$ t5 @/ s1 k, w2 h     RowBox[{"[", * ~6 r; r, [/ k9 P/ q
          RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
    % E7 _- S4 B6 h1 V! K- i CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    % v9 t" {0 q8 q# L9 }; y   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, 1 x2 p0 D0 s7 x2 \2 Y, D7 k
       3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {
    1 c6 j0 u4 F6 Q4 x3 j   3.57795902089172*^9, 3.5779590227793226`*^9}}],2 `0 m6 ^* w; Z7 m% ]! S! g
    - ?7 X4 A& s" ?4 [: L
    Cell[CellGroupData[{
    7 l6 j4 {  z2 s8 F1 w) b% c& n- k' r& T3 {
    Cell[BoxData["y1b"], "Input",& _1 S4 }' f! h
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}, + h: T2 t; b7 D' p
       3.577958484172784*^9}],' v2 I: u8 B# R7 M. Y7 E
    8 v+ r1 d$ s$ m4 }
    Cell[BoxData[
    : e# @) z% U" f, g* | RowBox[{"{", 5 M% j# r. N7 K
      RowBox[{
    3 @$ j7 C& ]: }. o, R$ O  "0.873239`", ",", "0.464789`", ",", "0.492958`", ",", "0.774648`", ",",
    $ E: s9 s7 k  S) A' u: z: o   "0.380282`", ",", "0.647887`", ",", "0.56338`", ",", "0.295775`", ",", $ I6 }8 {$ R" d! I
       "0.338028`", ",", "0.211268`", ",", "0.690141`", ",", "0.43662`", ",",
    + P( F- o  I% K! c7 y6 C4 x- q+ ]   "0.`", ",", "0.267606`", ",", "0.211268`", ",", "0.408451`", ",",
    / X8 ^9 ?' Q7 p   "0.478873`", ",", "0.380282`", ",", "0.211268`", ",", "0.43662`", ",", , y8 H7 \9 z% z% ~" O9 [
       "0.478873`", ",", "0.295775`", ",", "0.028169`", ",", "0.43662`", ",",
    1 J, b5 _$ p4 L6 m6 ^/ B- z   "0.394366`", ",", "0.295775`", ",", "0.830986`", ",", "0.169014`", ",", ) Z3 j% o( X1 {9 \- `( Q: [4 y
       "0.366197`", ",", "0.309859`", ",", "0.352113`", ",", "0.309859`", ",", ( e: b$ g. U* Y) N5 J$ S$ L! L
       "0.774648`", ",", "0.422535`", ",", "0.887324`", ",", "0.887324`", ",", ; k7 h) G# i/ s2 g8 G
       "0.859155`", ",", "0.239437`", ",", "0.295775`", ",", "0.746479`", ",", 5 C* Y, g, i' h; m
       "1.`", ",", "0.549296`", ",", "0.366197`", ",", "0.549296`", ",", / X# J( g% F2 x3 F1 O# e1 F) u' z1 S
       "0.577465`", ",", "0.690141`", ",", "0.71831`", ",", "0.521127`", ",", + C* _* e: P& V
       "0.929577`", ",", "0.521127`", ",", "0.338028`", ",", "0.380282`", ",", 4 \, e& P: `+ D4 s+ r6 n
       "0.676056`", ",", "0.591549`", ",", "0.464789`", ",", "0.295775`", ",",
    - q4 m5 c/ F4 c4 Y4 S   "0.380282`", ",", "0.211268`", ",", "0.253521`", ",", "0.28169`"}], 8 [4 I  k, p1 Y% i; T
      "}"}]], "Output",
    ' M" w+ b) A. G/ {  ?3 X8 Q CellChangeTimes->{3.57792293246875*^9, 3.5779582549771843`*^9,
    9 {% S- x5 M+ i+ ~* b5 w! P  3.577958485420786*^9, 3.577959026460929*^9, 3.5779622288195767`*^9, 0 z, F& Y2 W# D: G+ L5 G
      3.57801244275*^9}]+ f5 W/ P9 P6 v
    }, Open  ]]," ?& R3 O2 |0 x% ?1 T  g0 f
    ! b6 J- U) D$ M4 U5 `; h3 @
    Cell[CellGroupData[{7 U! G& W8 `* f

    : l0 ^! T( |! d& \Cell[BoxData[/ [+ z# N" J* I8 J/ {  v
    RowBox[{"m60n21", "=",
    + ?9 b& k: U( J  RowBox[{"Table", "[",
    0 \/ U( W! w3 X, H, k) o- ]   RowBox[{, E6 m% u; \+ o" E0 S
        RowBox[{"Table", "[", 8 ~- M# A; B7 G6 C0 R
         RowBox[{"y", ",", 1 _7 F- N- Y8 Y7 z  k1 O2 f
          RowBox[{"{", 9 o5 w7 t# d! `" b/ C9 z" S9 ?
           RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
    ) k+ L1 [; W" j. Y    RowBox[{"{", - H: d( N4 k" x5 _% X. }0 N$ ]% f. a
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",! z" l: S4 p7 z$ k0 c
    CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {* J8 x" K0 z3 ^
      3.577924052828125*^9, 3.577924101671875*^9}, {3.577962237961193*^9,
    & N8 A5 r" H. c& _4 k, u  3.577962240082796*^9}}],' P/ t) {6 D4 o$ Q

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

    - T7 u! B1 h6 G4 u9 d+ W& hCell[BoxData[
    & z0 T2 [* d. Y RowBox[{"w1b", "=",
    3 Y# i& n) k# N$ ~  RowBox[{"LeastSquares", "[",
    4 @3 q7 s* v9 Y2 }$ h  k   RowBox[{"m60n21", ",", "y1b"}], "]"}]}]], "Input",
    : H# N+ g2 w0 U* o CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {3 e' W" a, e) H5 J
      3.577924662765625*^9, 3.57792466596875*^9}, {3.5779582865360394`*^9,
    * C, c7 a- B7 u  3.5779582963172565`*^9}, {3.5779622900808835`*^9, 3.577962290377284*^9}}],
    . A: _$ b! E% m! F+ P7 ]7 Z/ s5 S( d3 l' e8 V3 h9 F
    Cell[BoxData[+ |+ g! }6 r( X  P6 y# K1 H" q
    RowBox[{"{",
    - A' q7 M2 O$ e. P" u2 F: s3 s- Z  RowBox[{$ }, R5 ]* L0 Y8 O: N2 c$ ~
      "0.48228184971363947`", ",", "0.16041393254115022`", ",",
    - I9 B+ I- F1 c& _7 d( P   "0.3741982811661129`", ",", ' A, H7 H3 C! h+ ^" X6 o) L
       RowBox[{"-", "0.12620581913715245`"}], ",", "0.28831860112966734`", ",",
    # j0 U" b: ^- T   RowBox[{"-", "0.2282993884666894`"}], ",", "0.3207174990295839`", ",",
    " m( m: R' n$ I. L   RowBox[{"-", "0.4666313851213302`"}], ",", "0.27551257162880227`", ",",
    ) p' P  H4 Q+ L: K   RowBox[{"-", "0.025873988843993667`"}], ",", 4 u( w6 M" F" t
       RowBox[{"-", "0.1339854044819916`"}], ",", # E' _7 E( D+ r) p% n# r
       RowBox[{"-", "0.15852708848338315`"}], ",", "0.3129687276967983`", ",", 0 q* W( y. f% X+ i7 y4 u" i
       "0.45723850991134063`", ",", "0.2954923840077215`", ",", 5 I, Z8 c! P+ x# m1 t
       "0.9125798890455868`", ",", "0.21159052285983104`", ",", % K" X2 V) g1 }( g4 K5 \* G9 r, u% w/ W/ A; p
       "0.5575503376854456`", ",", "0.6019775648968265`", ",",
    ) C5 w! |7 X" _  Q- g5 a   "0.2361524780938108`", ",", "0.12782130225993923`"}], "}"}]], "Output",$ H$ Q/ I; X- U2 _4 n+ X
    CellChangeTimes->{$ O" _- C/ i- S( X: n
      3.577924621953125*^9, 3.5779246688125*^9, {3.5779582894220443`*^9,
    9 E/ r6 q! n: U( F   3.5779582992968616`*^9}, 3.5779584995700107`*^9, 3.577959040157753*^9, $ Z8 n* h  i* q/ R) K
       3.5779622919996867`*^9, 3.578012447734375*^9}]& A6 b1 R1 e/ B8 z' ~7 ?
    }, Open  ]],
    0 f' \1 `2 `: I# b6 j# T7 f
    + H# S) B* a1 aCell[CellGroupData[{  w* G1 f7 n2 z8 o

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

    & P0 R4 o5 ?; W6 \/ q$ cCell[BoxData[+ C5 i3 B) F) \3 e* S# X
    RowBox[{"{", 3 p, m$ ]; n9 c1 ~9 H3 ]
      RowBox[{
    ; z1 V) C- p  W$ A  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 y+ h2 f- A4 l# u8 o% v% n   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15"," Y2 M' d" B% ^6 o  j& {2 }
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    & l# t% ^5 v: W* a5 D$ Z% q0 ^* p   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", + C; O8 H9 W& S: S7 _8 k. r
       ",", "29"}], "}"}]], "Output",: g2 V& h& O- E
    CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9,
    4 b  H' d. y- C0 l% V) n; c9 e5 Y  3.5779583268153095`*^9, 3.577958508118826*^9, 3.5779590470685654`*^9, , F1 Q" T7 C0 l- j
      3.577962320173336*^9, 3.57801245028125*^9}]$ B+ p) L. i4 v3 \
    }, Open  ]],
    7 n6 f, ?8 k! t# E) `; M8 x, _* R$ j# E8 ~; w
    Cell[BoxData[+ c7 X' Y: k( X2 a  B
    RowBox[{"For", "[",
    . T) z' @" H3 e  O0 H  RowBox[{
    ' x( r( j7 n. D& @' z3 z   RowBox[{"i", "=", "61"}], ",", , h# r) @1 ?; N# X
       RowBox[{"i", "\[LessEqual]", "89"}], ",", 7 F3 Z! U8 K, E0 @, t
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    3 o! H: \5 N3 g0 m6 p5 ]7 v2 h/ H7 q   RowBox[{
    - M2 O" A$ y2 _' `( x    RowBox[{
    0 h3 i! b9 H% x$ R( d     RowBox[{"y2fit", "[",
    # Q( q% |3 Q* d8 X      RowBox[{"[", + p" n3 w2 I8 C. T, C/ N
           RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", - `- ~6 Z  H1 z) Q0 U2 }3 T0 s
         RowBox[{"y2", "/.", : s* |4 w$ v8 z8 C5 n( X  S
          RowBox[{"{",
    5 j1 L1 C9 b3 F+ S( A) a4 H7 p/ `       RowBox[{
    7 U, c& |) K" D* p9 q        RowBox[{"x1", "->", 0 u5 Y$ j1 k0 ~' {0 Z" o
             RowBox[{"Data", "[",
    * O) g6 y0 z4 b0 D( w& o          RowBox[{"[", - S' I( [- u/ {
               RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",   b6 S# a0 j" j& s
            RowBox[{"x2", "->",
    . I/ J# |- D( K, V) K6 t$ }2 J         RowBox[{"Data", "[",
    - j3 f# _5 M* ?% m          RowBox[{"[", + W  K# P' j0 u6 V1 V
               RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", ! W. E) w6 @4 X0 r% c4 y
            RowBox[{"x3", "->", 7 E" P, N6 C/ J3 T9 C
             RowBox[{"Data", "[",
    6 d; N7 `/ d6 M+ n* a          RowBox[{"[", ! t$ a% o  W2 [
               RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", , v1 ?9 W- [, C$ I/ D0 ?  ~
            RowBox[{"x4", "->",
    & L3 D& V  A% X  H* u& f# [         RowBox[{"Data", "[",
    : K+ k& V3 s$ n* ^$ T& s7 c          RowBox[{"[", - X* J* z/ B  N0 O. ^2 B% Q
               RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    7 J! O2 T' t" M" E1 b        RowBox[{"x5", "->", 3 V' b$ j" T4 l2 x% c
             RowBox[{"Data", "[",
    4 k2 W) K" J5 T# A& X          RowBox[{"[", * f, r' L9 ]: D; }
               RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    6 L$ A( g% F* P9 m        RowBox[{"x6", "->",
    $ W& y2 N2 u8 c' A$ S$ Y         RowBox[{"Data", "[",
    3 r* P- r) {1 a" C7 c" E% e8 F: Z          RowBox[{"[", ; O, B, [. s+ @: w# z) ~0 Y: g
               RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    2 d% K5 v. ~, v9 V* _1 V        RowBox[{"x7", "->", 7 D! o" W% ]( _0 d5 b) I
             RowBox[{"Data", "[", 6 {& o* W; A* z' [( G. @
              RowBox[{"[", $ e4 g+ m4 _& \" {0 e! c. b
               RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 8 A  }* c) e! Z3 [
            RowBox[{"x8", "->",
    3 V, I3 x! {9 J- E         RowBox[{"Data", "[", + M3 G+ o! x; v: y! d% `( o; l
              RowBox[{"[",
    . o# t* a, ]/ N4 C  V$ J2 T# o           RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
      t; N+ D( l; `+ \        RowBox[{"x9", "->", 5 ?, e- f( o6 A
             RowBox[{"Data", "[",
    " W5 W& o9 A2 D7 ^9 @" Q4 c$ O          RowBox[{"[", 6 b$ o" e1 ?, y' t
               RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}], 9 L, U6 J4 I8 k$ p" b1 J1 A
      "\[IndentingNewLine]", "]"}]], "Input",
    : F/ @. j, S% H' V& Y CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {
    + C. f' H+ ?  _: {7 ~  3.577925286140625*^9, 3.577925306765625*^9}, {3.577958329919715*^9,
    4 U! m. g  g1 j& e8 u  3.5779583326341195`*^9}, {3.57795892351635*^9, 3.57795892354755*^9}}],; p% |$ ]! f: q3 s; ^0 C

    4 k: o' P/ Y( S; q! \9 f! p- YCell[CellGroupData[{
    0 u7 \# _! W8 g) c8 q5 d8 h% A2 D7 z' W9 I( C9 c3 p
    Cell[BoxData["y2fit"], "Input",4 z8 R* D" h& p) a" X( m, c( v
    CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
    . L% ^. d, M7 |% D   3.577925040484375*^9, 3.5779250440625*^9}, 3.5779583419785357`*^9}],
    0 c0 P+ }! T- y( `7 f; m
    * l+ z& D! L0 r/ Y: iCell[BoxData[
    9 t" _- E: ~0 ]  e' ~/ @* |$ Z' ^3 d RowBox[{"{",
    1 I% \2 ]5 m, i7 I  RowBox[{
    3 A7 y7 `) S2 s& a7 k5 N3 `  "0.4853171132859182`", ",", "0.4508635216665074`", ",",
    3 l8 ]2 L  n9 e7 s; i   "0.3642119241752518`", ",", "0.42852077425595436`", ",",
    ( ]* W1 `4 C# g* Z9 Y: z& ?   "0.4712694272667798`", ",", "0.5257533056184774`", ",",
    ; Q, X- p& |6 [   "0.48620658140716133`", ",", "0.41106838915591876`", ",",
    & j( }6 X  p: a/ d7 D$ S# T8 H# z   "0.5486894206610674`", ",", "0.007731168540073459`", ",", / J! e: A4 H6 S9 V
       "0.013872406140339109`", ",", "0.3956995051659558`", ",", 8 g- D2 l5 n* m
       "0.3663118256142708`", ",", "0.29094217358055163`", ",",
    4 O9 h/ t# X7 ?3 b   "0.5453093690736555`", ",", "0.44138898880777927`", ",",
    " |2 J6 \) r0 _& p4 l; `8 G* b   "0.42944922031163496`", ",", "0.43092890556748836`", ",",
    , W$ _. v# f+ m8 b! D   "0.5942402821739969`", ",", "0.330046090785457`", ",",   S6 f& |1 F* h/ J
       "0.18938658036630585`", ",", "0.4263720292858679`", ",", - ]" V8 Z  z: B' \: ~
       "0.23377136184738775`", ",", "0.02232858193309988`", ",", 1 @" {& E) [0 T6 C% v7 O
       "0.244364200084268`", ",", "0.5562383565309971`", ",",
    ( c2 i7 C% B. V/ o* s' u   "0.13114103402954333`", ",", "0.5815052048989465`", ",", 1 z  K2 ?0 F- R5 ]: N$ L
       "0.4253455966293501`"}], "}"}]], "Output",* y$ E5 Q; f3 ~+ G7 B6 Y
    CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
    ! |3 a. D/ H2 J9 y4 L/ O$ {6 m  3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9,
    , _. p, d+ J  |4 l& t  3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}]5 e. T1 |1 \5 [' b1 x$ G
    }, Open  ]],
      c8 U4 M) h$ a* `- b) ?) H& ]. c
    Cell[CellGroupData[{
    : o. M" {6 J$ u) l
    + z" l8 q5 p3 w" u' L- d% K7 dCell[BoxData[5 N! Q* F: K0 L, E3 j3 `
    RowBox[{"y2fit", "=",
    : C3 e8 _$ i. x2 f( H2 F# s  RowBox[{"{", # C0 u$ k( C& [  F
       RowBox[{
      z2 r; l3 m4 \7 S0 U* y   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 K5 Z6 P+ W/ u5 ?    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! ^7 {$ h; ?; F0 |4 I& Q0 m    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    1 ]# S+ V' p, ?& G8 a# N    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", 6 b3 R/ M3 f# ]8 s
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    ; d+ z2 |8 l1 `! M    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    ; s0 S% D' c  L* k# y    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    7 m* w" q- P# L5 ^    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    + W: A$ K( T  Q3 g& S4 r9 E    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    8 o, w! U2 [! f/ B" x2 O% [6 m  d- y    "0.48531711328591953", ",", "0.48531711328591953`", ",", / k( `5 }1 J" }' \8 O
        "0.45086352166650845`", ",", "0.36421192417525217`", ",",
    ( J( ]. W4 u( n    "0.4285207742559556`", ",", "0.4712694272667811`", ",", # c; ?$ M  G% \8 u1 Z; a
        "0.5257533056184786`", ",", "0.4862065814071623`", ",",
    0 U! c2 e4 P* F1 F, F    "0.41106838915592014`", ",", "0.5486894206610683`", ",",
    ) q/ G6 j1 d" v+ {9 S/ n    "0.007731168540073532`", ",", "0.013872406140339166`", ",", ' Z; F6 ]2 E/ Y* H" s" O
        "0.3956995051659565`", ",", "0.3663118256142717`", ",", : Q* z; J" [* ?
        "0.29094217358055185`", ",", "0.5453093690736568`", ",", 0 v" `3 ^: p7 j; ?- _+ d; }
        "0.4413889888077799`", ",", "0.42944922031163585`", ",", , X0 M0 P* Z8 o; `1 W- J: Z
        "0.4309289055674891`", ",", "0.5942402821739983`", ",", 5 V0 ~$ y7 j6 y6 ~
        "0.33004609078545805`", ",", "0.18938658036630632`", ",", ' ]& @! K& e1 z6 |6 e! |) T
        "0.4263720292858688`", ",", "0.23377136184738778`", ",",
    % b! E; q4 F# @/ N% Q+ J/ ~    "0.022328581933099827`", ",", "0.24436420008426807`", ",", : @- S4 t  S& }8 @
        "0.5562383565309981`", ",", "0.13114103402954314`", ",", + _1 ]. `+ F* v% F
        "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",7 s2 r5 g4 F$ R2 ?  \) V
    CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {
    " S9 z3 {. _# ?9 N- {  3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9,
    6 L/ T- A( _9 I6 [. \4 O/ l  3.57796233957977*^9}}],: f' E. _6 g3 i6 J- L1 Z5 f  G

    4 [+ Z, X: B( bCell[BoxData[
    ; d0 C, O9 \2 c- t RowBox[{"{", 6 n5 O; W8 I' H
      RowBox[{
    9 `7 |9 `+ S5 O4 ?  z; d! y  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", - ^+ I4 M6 [2 K- F: {
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",+ ~. t: v1 C5 V  ~6 G. P
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    2 B# R. d, i& K  L) ]" M! N, J6 I   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ; X: P, K' i. ]8 y
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", * L, h! ?; u' P  E- R( |+ X
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", * Z2 n+ f% L& y
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    3 T1 D! C9 P6 s0 m) k   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    2 j( E2 Q6 R. X   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 7 M6 y; x+ D, D# T* N3 c
       "0.48531711328591953`", ",", "0.48531711328591953`", ",", / x  J3 n$ S- m% U+ U" |4 R9 {- M
       "0.45086352166650845`", ",", "0.36421192417525217`", ",",
    , @2 l( C6 \: R4 @   "0.4285207742559556`", ",", "0.4712694272667811`", ",", - R0 y, D; E" z
       "0.5257533056184786`", ",", "0.4862065814071623`", ",", , ^, Z. S/ g5 Y7 e( E
       "0.41106838915592014`", ",", "0.5486894206610683`", ",",   F) K! _# H$ P) Q
       "0.007731168540073532`", ",", "0.013872406140339166`", ",",
    $ g, {7 s! @  g   "0.3956995051659565`", ",", "0.3663118256142717`", ",", ) [7 X6 L; R. ~, I2 n7 G, k
       "0.29094217358055185`", ",", "0.5453093690736568`", ",", : g/ m8 k7 x% }/ l- V1 P; S8 X
       "0.4413889888077799`", ",", "0.42944922031163585`", ",",
    4 I1 O3 D, r# C" N2 ?   "0.4309289055674891`", ",", "0.5942402821739983`", ",", " s0 X9 g  i% n' L
       "0.33004609078545805`", ",", "0.18938658036630632`", ",", % v4 D$ ^5 h# S" P  ^
       "0.4263720292858688`", ",", "0.23377136184738778`", ",",
    & c- m7 W+ c8 V' v6 ~   "0.022328581933099827`", ",", "0.24436420008426807`", ",",
    ) b) q* f) v- C8 J. t  f8 B   "0.5562383565309981`", ",", "0.13114103402954314`", ",",
    & _1 B) d! ^* N   "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",  V3 o  M; L, k
    CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9, 8 h% R' W6 m) W2 i- ~. X7 e
      3.577962342060174*^9, 3.57801245340625*^9}]
    ) z5 Y) c9 p/ S) G$ H}, Open  ]],
    ! i# B  c5 h" [3 ]0 Z& c
    8 g( @3 k6 `' S$ ECell[CellGroupData[{
    # n' g: e9 \0 Z6 ^( V1 m
    4 F! `3 p, q, o$ yCell[BoxData[$ _  t0 k8 B3 _, g: Y
    RowBox[{"y20", "=", + C+ [% b* A. [
      RowBox[{"Table", "[",
    4 I3 L3 b0 d! j+ a' M+ E   RowBox[{"x", ",",
    & c4 m4 ^. p  L9 U. l' E    RowBox[{"{",
    1 C9 ], a; R* `6 y6 t; a+ ~     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
    - X! j7 p) U: ^6 q' H" k CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],9 |( Q2 M' |, W4 O3 N  H
    ; |) x6 L5 K& _$ ~
    Cell[BoxData[: G! \$ j! l8 M9 T# |: b* j* f4 H
    RowBox[{"{",
    : K1 t6 `+ }0 T4 T  {2 Y7 E3 f4 t  RowBox[{. d9 G' N% d4 T. R5 {
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 7 S* T  w4 v* V( W% u
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",+ V( m# C  Q4 y
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", $ {6 b- E& J. z: u# z
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ; ?3 J" f  ~' l4 u8 N
       ",", "29"}], "}"}]], "Output",
    % r+ g3 D2 B, r0 }+ A CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9, 5 s* U1 I4 M( f( L' G" X
      3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9,
    5 S9 V# _6 q# L9 ]! P  3.578012454875*^9}]: }$ q% q6 e/ j# G
    }, Open  ]],0 J( m8 @' L6 W; `
    ; s# T7 Y2 s9 Z- _7 p
    Cell[BoxData[
    - |! i0 |3 V; q1 i RowBox[{"For", "[", . ~& W1 T% E, S( ~- f: y2 h: b* W
      RowBox[{8 i) ]+ ]  R1 H, b
       RowBox[{"i", "=", "61"}], ",",
    , z$ [- a8 V' j: X' ]' c& D   RowBox[{"i", "\[LessEqual]", "89"}], ",", 3 P6 b9 u# `4 q3 B2 [
       RowBox[{"i", "++"}], ",",   {* H  _# c1 p/ z! D1 H
       RowBox[{
    : T4 |' z8 L: R    RowBox[{"y20", "[", $ o0 x7 o! `0 q+ C  s
         RowBox[{"[",
    7 _" Y: y- C2 n  }6 W# w      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", ( R' W1 k1 P9 I" E8 V
        RowBox[{"Data", "[",
    + w; U; j4 b/ w  u8 T3 X9 w6 _     RowBox[{"[", * B4 l3 C% Z; J2 C4 }: S
          RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",6 _5 }% o# X3 p2 _, h+ a
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {& N% a4 G! n+ E! y6 ]0 K) {
      3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, ! J9 ]9 U3 [9 X% K9 T, H2 k5 o$ P
      3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {7 y2 `8 ]. c' C8 z1 r4 [
      3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9, + C# l3 {6 ^$ C+ \, S
      3.577959058690585*^9}}],
    . K+ O3 F+ i9 J* P1 K2 H. a
    * [. J% G: M2 v! n( x  YCell[CellGroupData[{9 Y6 B0 o3 B, y% P3 C2 v3 h
    ' S0 |, p- I+ F8 g( \
    Cell[BoxData["y20"], "Input",3 V& O: {% j0 T5 Z
    CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
    " U& c4 y9 y- c# L1 c: Y" U- d   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9,
    ( L1 p% }# B$ |   3.5779583657841773`*^9}],# [/ ]4 }) A/ c
    2 @3 A4 `% z5 Z4 _( `
    Cell[BoxData[0 B  x6 t* E6 L- w5 _! K
    RowBox[{"{", 5 b& U; e( d! ]" P- Q# f/ p6 G
      RowBox[{
    6 q. `5 ^* d" i2 t" v0 m9 \" L) {  "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",",
    ) ?, {0 h* p8 C5 a& A+ g' H0 W   "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
    " R8 D& }* {2 B   "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", # `8 ]8 J9 F0 R3 }  d3 y
       "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
    % b2 z0 S/ P3 Y8 V   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
    . t2 r& p7 q# d! u4 Z1 z   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
    * l3 [% K+ ?& J# l9 V  E! L& `3 [& m   "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", 5 r* Z0 ^* y+ T6 r# W8 V! P) ^
       "0.323944`"}], "}"}]], "Output",
    % V/ u/ j& v3 B0 y CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, . x0 \7 y, U6 v' N$ O9 g
      3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9, 3 ]2 d  D2 ^4 R- J9 |, i' `
      3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]
    3 _( b: L' _; o# c1 {}, Open  ]],
    ( e5 ?% ?% ~" F
    7 ?* R5 H3 B5 F; J. W5 m4 _Cell[CellGroupData[{
    9 P- r& g2 T) K0 a
    2 r5 f. F2 y+ w, ?* vCell[BoxData[
    4 Z+ J- |# R/ n RowBox[{"y20", "=", ! Y2 A  `! \' @& o1 z) ~) h$ B5 c
      RowBox[{"{", ) ?$ Y) X. b' S8 u
       RowBox[{
    % v2 Y  {: p) r( F7 Y   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    5 D) ~1 c: O; p    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) ]' T  p, n, w; k3 m1 V3 {1 E
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", . f- \) r- K5 n% L/ ^/ s2 l8 E
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    ; {& N  A: W5 P' a' t! v    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    ) [; f/ ?5 v. j9 Q    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", 9 L( C* N1 f9 l; ]
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    5 ^% j3 n3 x: v1 Q) {    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", , @& i$ ]$ X6 }$ d
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    + J' Q, L7 L8 x/ C8 N    "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", % w9 `3 A) b* e) T
        "0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", + U4 u& x! {# z+ t/ D
        "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",",
    1 Y7 e' t" C/ r5 H7 \3 U    "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", , ~! S* [) k0 O6 _1 a$ q4 j
        "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",",
    # I4 F+ ~9 r" _; Z    "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",",
    4 K% c" C: x$ A  \7 m8 f# U    "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", 4 m' I( B$ T% l* Z$ k- Y# q4 a
        "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",3 E. [. ]% x1 ^8 @
    CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],
    ! |. T, J* r) S/ J% D& J; r: b+ D6 f% V) c5 a
    Cell[BoxData[1 n) b4 I# @: I8 M
    RowBox[{"{", & h2 R& d7 U7 X+ `; U
      RowBox[{
    . `+ E* W9 ~8 n+ R  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 r  n- l  W7 m   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    , i: E% \: M/ [! `5 F" u    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 6 p/ O' T+ T, d
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    ) D/ @, p- Z# _$ W+ ^   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    , U, F  t  g' [- T$ H   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    : x" k7 y8 d! @  q   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    : g+ S' H, o+ W9 S$ S1 K$ F   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 0 o' W+ f1 R7 B, R
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`",
    ' A. @8 H8 `) a. Y# F' \   ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", . s% e/ Y  ?0 n5 g* E( M0 A
       ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
    ' h: U# e, `9 B# n7 t# y    "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
    5 F1 W& l& O+ \; i  X/ ~+ c: ~3 W   "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", ; x7 B+ j" A) [% c5 a9 S# R
       "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
    . H$ P- ?8 C7 F3 @9 i; f; h   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", 2 g5 K) u0 u  K% y: [; `8 J
       "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
    6 f$ U' }; z4 Q7 ?   "0.323944`"}], "}"}]], "Output",0 l: A' Z1 D6 y' l1 @* ?
    CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9,
    ) ], S  _0 n8 E4 z) z# E  3.578012457234375*^9}]: F$ L% K% P  z& c) m/ M
    }, Open  ]],
    ) t3 c- @* r2 t+ p/ B3 Y3 H% S- u/ u- p2 _( l8 C
    Cell[CellGroupData[{
    , K- p) m; M) P( s3 k! x( M& g
      F& Y4 z6 u5 a  X$ n! \Cell[BoxData[. v# Q, `, Q1 l! ?; M5 r! n5 u% v
    RowBox[{"p2a", "=", 9 E: K! J+ U0 t
      RowBox[{"ListPlot", "[",
    . r! F6 u& ~- S, U" d   RowBox[{"y2fit", ",",
    1 D9 k) m, m! v5 L1 {3 @  u    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    5 P* v+ |: u. e+ r: `* d    RowBox[{"PlotStyle", "\[Rule]",
    3 n2 C9 Y3 ?4 G. I4 @     RowBox[{"{",
    % F! Z& |8 n! A' F: i      RowBox[{"RGBColor", "[", . a7 |( G- v$ a5 i! Q, C! t  r
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", . s# S( `4 ]$ V( y
        RowBox[{"PlotRange", "\[Rule]", 4 |# w7 i, R$ `( L' L7 l% i6 p: {
         RowBox[{"{", 8 _6 i- J0 \0 J2 [
          RowBox[{
    5 a. h# ]: `$ D* `       RowBox[{"{",
    7 u/ W( p' m: _* ^  e        RowBox[{"61", ",", "89"}], "}"}], ",",
    ) `6 @; E/ @' X: |, Z       RowBox[{"{",
    . ]) p* D' B  P$ Z# h        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 4 Z5 n5 d1 {8 i
        RowBox[{"AxesOrigin", "\[Rule]", ( |+ W8 k- S7 J
         RowBox[{"{",
    / [2 n. f$ n, \. j8 Y/ N      RowBox[{"61", ",", "0"}], "}"}]}], ",",
    9 ^: a; c4 e: J8 C' `# Q- K    RowBox[{"Frame", "\[Rule]", "True"}], ",",
    ; o  o2 Q9 A+ B& i2 t9 i    RowBox[{"FrameLabel", "\[Rule]", 4 O! y1 B( r& C
         RowBox[{"{", 8 {/ t# F! W! x6 ^- N+ \, b/ h* B
          RowBox[{
    4 D9 I8 d8 |* p* h! d  [5 K: z      "\"\<\:7089\:6b21\>\"", ",",
    . \0 F% C  c1 a) O$ ?; A       "\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\
    1 k8 v" j5 S  T6 I\>\""}], "}"}]}]}], "]"}]}]], "Input",
    , C- M2 n$ E0 l9 F' d) I: h1 ]$ f- ` CellChangeTimes->{
    9 z: i7 p) R4 z1 ~4 c, a! F1 T  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
    % }5 [7 ^6 d$ z3 h! _   3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9, % E# N5 R  W7 l! [0 |* M
       3.5779585491624975`*^9}, {3.5779592802577715`*^9,
    3 h/ G6 m5 g# l: s8 C- z9 q' I   3.5779593014270086`*^9}, {3.5779594039971876`*^9,
    , h% s* j+ P* X4 B$ z" U0 T0 n" }) ^   3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {
    % X+ Z  g0 }  N6 K+ H   3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9,
    ( r7 x) O! H4 d   3.578012920859375*^9}],* h/ |2 w3 F9 |* N$ j4 \5 L

    7 R% F/ h% N" T0 l3 F. PCell[BoxData[
    $ Z; G  {% M. e6 A0 U$ x, [ GraphicsBox[{{}, {}, : B: w  ?/ N% i8 Q' q8 \( n  S
       {RGBColor[0, 0, 0], LineBox[CompressedData["
    9 N1 B) N/ {1 V8 A1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM) T. v" a7 ^+ K- j
    /g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
    7 P. a2 Z. _8 B, t4 e' u9 _; I) c9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P  R# Y% d( m" H3 N% Q
    ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
    ! P1 v) r7 }8 t  P  j8 ^3 AqPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK8 Q0 N- g1 D: z1 b" ?
    1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx  ^% n3 D0 c0 d5 x1 U
    0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1( ^# u% V9 D2 k8 H) ~( _- X
    sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
    1 \% E4 _9 p. Z5 [! k! e' `99yxuG0PAHw7nyU=' q) E3 |6 [& w7 ?# Z5 r, k+ ?
         "]]}},$ a7 w, R" z( b# H% ]* _# l( z
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],1 I/ m; b4 O  s! @. t7 X, }
      Axes->True,5 O1 _0 x. j2 q4 q
      AxesOrigin->{61, 0},* ?0 _) b+ h& g
      Frame->True,  p& r3 ]0 d2 J0 W% k' F0 x! L
      FrameLabel->{
    , h2 ]) u  {, M    FormBox["\"\:7089\:6b21\"", TraditionalForm], " _1 K! s: i! B) b
        FormBox[
    * e' S6 n( H7 ]    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
    0 ~0 O/ m1 n' T% J0 v9 Y) i     TraditionalForm]},% n! a4 u$ g5 J' O
      PlotRange->{{61, 89}, {0, 1}},
    . t. E& |- |1 D$ k0 o4 G  PlotRangeClipping->True,
    % N: {; c9 X5 m3 y  PlotRangePadding->{Automatic, Automatic}]], "Output",) U3 I/ e' M! w6 N  r
    CellChangeTimes->{% h: P0 t: N- y; Q5 W
      3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9,
    : c3 B2 b+ ?# [7 @   3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9,
    ' z" e0 C! S, j# ?) E   3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9},
    1 r# w" r9 L5 d7 h& e   3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9,
      [# J$ b. F( a! k1 K0 Q   3.57801247209375*^9, 3.5780129225625*^9}]
    9 h  E% n$ w6 V0 A' p  t. u6 F}, Open  ]],) |- Z2 l+ y% r# a( |

    : v6 F& G1 j- m& I9 D* WCell[CellGroupData[{
    & e: T* }6 s& S* [
    " D; o* u6 i/ i3 n9 n- \% fCell[BoxData[
    1 C7 b6 I# G) m3 Q2 t RowBox[{"p2b", "=",
    ; g2 u  v6 B% T& K! j" K& c. e  RowBox[{"ListPlot", "[",
    0 ^* g0 [! N9 h   RowBox[{"y20", ",", % h6 i1 O! i& w! m
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", : \! q4 w! H$ c' g! D; U
        RowBox[{"PlotStyle", "\[Rule]",
    9 i% V5 N- J. Q4 }     RowBox[{"{",
    & a# t7 V. s+ V      RowBox[{
    2 W, V# I, s' S1 t; _: s       RowBox[{"RGBColor", "[",
    ) i; X+ o# Y1 B        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    . J; t# P, N- ]! R& ~+ F) k    ",", : a% z# G7 ~' C  }# r% u  @
        RowBox[{"PlotRange", "\[Rule]",
    4 G+ U. Z$ O! x! I- D- Y     RowBox[{"{",
    3 w$ _' z  b0 X+ I      RowBox[{" V# {. l! R) P# k+ O; \4 U
           RowBox[{"{",
    2 s) @! {4 ^- @! U5 |& ^        RowBox[{"61", ",", "89"}], "}"}], ",",
    6 N& l1 E$ G/ N/ y       RowBox[{"{",
    1 J0 H1 J# z8 a) K; |* s, Y        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    , Z* v+ r, m0 v8 I& |) J! {( P    RowBox[{"AxesOrigin", "\[Rule]", ' s. l& t4 Z: x5 G+ o
         RowBox[{"{", $ H9 }0 m8 o* e% J+ A5 V
          RowBox[{"61", ",", "0"}], "}"}]}], ",",
    ' l/ s8 @  \* M3 h5 s    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    , [/ k4 M% V5 @ CellChangeTimes->{
    3 x: E) G2 _3 i4 W  3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9}, 1 J3 j- a! a  m
       3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],( V, O- ?; W1 ~$ [

    : Z* |0 M" z! A1 G8 SCell[BoxData[& |" @9 u' v8 ~1 n
    GraphicsBox[{{}, {}, $ h& [. \+ b: t! h0 Y
       {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["8 O+ k) _6 t( A( |
    1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
    6 e2 F, _; G' t) e2 x" K8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
    0 o& f# @0 K) T$ [1 o6 }c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
    0 j7 _' E0 i) p6 j& YiX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
    : o- t; i" z* @: J5 ~TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO9 U& q$ @4 L, n& W* {. |; n
    fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB' I& u4 Z% S2 R1 [
    TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
    9 Y# P: L( a& op0OYg4Fg/tz63VfsAdsCnzU=! P, y! y$ y6 y1 ^' C9 Z/ B
         "]]}},4 F, @8 o$ J  p5 l2 d# |
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],/ g' U+ b# K. [: M/ m5 s2 ]! m; O. s
      Axes->True,
      [) `# @7 O" J5 u  AxesOrigin->{61, 0},
    7 q; U2 @  d  [0 v# d/ j  Frame->True,+ K: G: }; X: i5 F3 k; z# b
      PlotRange->{{61, 89}, {0, 1}},8 n& F; b4 J, {! z! |% O; w  ?2 b1 q
      PlotRangeClipping->True,
    6 w8 @1 D, D3 e. C' Z( D% S  PlotRangePadding->{Automatic, Automatic}]], "Output",( H5 q% c# F& }$ l
    CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, , y% o& E/ H6 _4 M
      3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9, 8 x4 X6 ?) p. D) R" f9 P
      3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9,
    9 Q" L% A4 u6 g2 Y* \( i/ @  |# h  3.578012484703125*^9, 3.578012925875*^9}]
    2 p) R! j0 V; O, |4 [}, Open  ]],; L( T& _! x$ Y" a# y2 b/ }+ Q

    $ K; U  L& k2 l8 A9 t# P) iCell[CellGroupData[{% h: z7 K. ~+ r; `$ c: E. s# r

    , J9 G. [- X: b4 t+ bCell[BoxData[
    7 e$ f3 h) S7 ` RowBox[{"Show", "[",
    ( W/ ?$ a. \0 }2 f0 T  RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],$ Y+ h( l1 U, y0 _& l" h2 {

    + v. W( P# r$ P" F( [/ ]Cell[BoxData[
    3 \( F  s" V( O: u2 U& Q% N GraphicsBox[{{{}, {},
    : c6 Z! w. C' q9 F0 Q  E2 r+ f$ ?+ X    {RGBColor[0, 0, 0], LineBox[CompressedData["( ^! y5 o  ]- q0 I( k; E" x
    1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM1 P- D* C1 e2 c
    /g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
      y( e. _: o* `& |+ d2 x9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
    5 Z( g" h) s3 K0 n$ TofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC9 w" _- _( ^) Y
    qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK5 Z0 Q5 j7 @( p' d, n/ ^+ K* o- P
    1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx! y3 i7 L: s: G  h8 e, j* V
    0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p17 k' t+ [& ]) Z2 T
    sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
    ; x" ]3 u/ q, x$ g99yxuG0PAHw7nyU=
    ; b) B' h$ [+ f5 G* j+ M2 X      "]]}}, {{}, {},
    8 E2 j; f( }2 n$ q9 p- @. K    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["# P- A: d" [3 s4 B: u/ R
    1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
    ! |- m: S, E* k$ v8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV8 m1 s6 _: F# U8 q6 {
    c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc# {) w# p/ N. v: w. }% P0 T3 D& X
    iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4( m) g. }+ q2 w4 _" r3 W
    TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
    - ]' U; q0 U2 d8 N' Y! ^fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
    : L. H2 b7 N( F/ |1 ?1 TTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
    / g7 m2 N$ Y, P* m; T( P' pp0OYg4Fg/tz63VfsAdsCnzU=* A& s7 y( U( H- ^
          "]]}}},; x8 S+ R5 O$ M3 y* H
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    & R- Z7 G. i2 T* L# L1 t  Axes->True,2 G5 v% h& n1 o1 i" S, Q4 ?+ e' u9 e
      AxesOrigin->{61, 0},2 D9 L  Z; b4 T4 i5 r8 Y1 V7 p
      Frame->True,
    ' \+ [2 e, Y' z* B3 S# Q  FrameLabel->{! W2 m2 W2 E5 {% i
        FormBox["\"\:7089\:6b21\"", TraditionalForm], " q$ u. H4 _$ @- _* F# s3 R; @/ a
        FormBox[& d5 m0 [% q. o0 w1 x
        "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
    2 A$ W' I2 j; ^# t     TraditionalForm]},
    0 p# {+ n7 u4 x; F  PlotRange->{{61, 89}, {0, 1}},
    ' I$ E2 r, z8 j! C; l/ t! L& j  PlotRangeClipping->True,
    7 u# N3 b' a7 `( Y- C( A" I  PlotRangePadding->{Automatic, Automatic}]], "Output",3 s4 q7 l% @3 \  {9 ~! K
    CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9, , L' G" ]7 ~+ @$ z
      3.578012927734375*^9}]! _. r6 Z' _& x' X* _$ A
    }, Open  ]],
    / L2 U7 D2 ?; a4 m; ]$ S
    ; `0 K' t/ i5 |% D' o2 j$ qCell[BoxData[& {8 q) |% K  \/ e- b& Y2 ]
    RowBox[{"\:ff08", ; h' G6 A  o" c: S
      RowBox[{
    * |: s( V" |, [$ a: ^  "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406", 0 f; g5 f* u$ D% I# C
       "\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621", % ?! G! U3 L9 |4 {$ ?( j
       "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208", 1 D/ |  W) y& y5 W
       "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0",
    4 F( S; l* O/ t0 h( _/ U# Y   ".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\
    8 @- o; K+ U: d7 B' p- W, w( e\:4e3a0", ".6224",
    & S  U$ [6 `) w! p  t9 Z! L   "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],
    " e" @4 S. b/ b8 |   "\:ff09"}]], "Input"],
    - o; A; G, W% c% ]# d: d6 Q9 B. a& `# o
    Cell[BoxData[0 |1 J5 e: V' S0 n7 ^5 g' u8 `8 Y  I
    RowBox[{"{", - B& s2 {3 ^! o7 n. a5 h" ?
      RowBox[{
    8 \' g, c+ x2 h  "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",",
    5 s& b5 k8 J$ D/ P3 r" x   "\:5439\:6c27\:91cf", ",", # g# f5 ~) u- \- _( u
       "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",", 2 z" l6 o+ R0 ~: \- T; @
       "\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",", / h5 w' U: f0 O: {6 B0 b/ l
       "\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",", 9 k) Z: E5 _; J5 p- ~
       "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",",
    . x1 A5 O0 g5 E. X% Q' j0 Q   "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",",
    : N( T; \3 Q  Y) b) u" I1 C0 y   "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],9 e& S+ |7 B7 _9 x& Y& i

    : b" H% X3 u% U: \) J1 y) ~Cell[BoxData[" "], "Input",: q# P8 |* b6 Y0 C7 P) \
    CellChangeTimes->{3.577962834553033*^9}],# `* ?4 l4 C) e2 A
    9 p' r& r9 f! x, t$ Z& y
    Cell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],; a4 E: S7 w3 ?9 q" Y
    # i( G" B3 H% b( T' @
    Cell[CellGroupData[{
    , R* S9 N% ]) d( F% K9 \3 V, S; V, P8 h
    Cell[BoxData[8 K! O" r8 P; ?& f2 L+ }
    RowBox[{"y1", "/.",
    + _% |9 L* i; d/ v3 P; \. y  RowBox[{"{", . `' L# P5 I9 c) r8 E0 t$ }
       RowBox[{
    * H  d( G4 L+ r: i    RowBox[{"x1", "->", "0.7406"}], ",",
    0 B- r1 _0 V! v# m7 P- c0 l    RowBox[{"x2", "->", "0.4621"}], ",",
    " E4 H0 t" ~4 w    RowBox[{"x4", "->", "0.2221"}], ",",
    9 d* ]! B  {8 }" Y" h+ x    RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",
    ' a$ }0 m  l' W5 x) t7 \ CellChangeTimes->{{3.57796267209435*^9, 3.5779627224200373`*^9}, {
    : v  q  g# o1 U/ f  3.5779627663029137`*^9, 3.577962774820529*^9}}],- i* \8 \9 B8 T7 b' K- L
    ; B: g9 I( K  M4 Z0 O8 L
    Cell[BoxData[
    1 s4 O8 Z2 p( N1 e+ ]0 ] RowBox[{
    + N0 G% a. ~$ j# O/ g6 c  RowBox[{"0.2286149508637297`", " ",
    4 A: m2 f; Z" M# @; E) {; G   SuperscriptBox["\[ExponentialE]",
    4 i/ A- ^6 y& w5 \( U2 B2 L! v" \9 e    RowBox[{"3.1415926535897936`", " ",
    3 n* w/ v. H% Q- _4 U+ v/ x" S     RowBox[{"(",   E8 l, h8 w- b! O
          RowBox[{
    . s$ @& d2 J8 r" e       RowBox[{"-", "0.17911224641499998`"}], "-", ) v: G3 t0 T4 \) \
           SuperscriptBox[8 i" V* R$ y' _4 X7 A5 h
            RowBox[{"(",
    & R, k& V# {: L: v( h; ?' ^& S         RowBox[{
    + I; N' C, l0 {& a& K          RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
    3 |$ h9 T9 n# }+ R1 R       SuperscriptBox[
    % h' U: l/ Q# S7 o/ i        RowBox[{"(", / a; e2 c( p6 \' v. i+ o8 K9 H
             RowBox[{
    + V* n& v4 a" J          RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", + |: w$ u1 b3 P) t( r2 E
           SuperscriptBox[* d: r9 `8 G0 E# z) A7 x
            RowBox[{"(",
    6 {. [4 O6 Z  |+ H  a1 O( p         RowBox[{
    $ }: X6 m% ~& T6 Y( @/ L          RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", 8 }( ]* l4 Z! L
           SuperscriptBox["x8", "2"], "-", 5 R7 Y/ U& ]& w9 U
           SuperscriptBox[
    4 R  V$ o9 b- z1 ^6 A$ W        RowBox[{"(",
    " y0 g9 x1 M; t- w6 q( P         RowBox[{
    1 F+ m8 f! H; c- K/ j          RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+", 2 r- r- ?* r5 i7 X; t
      RowBox[{"0.020180806675835994`", " ", 9 U4 i0 g- f  o8 }* p  l
       SuperscriptBox["\[ExponentialE]",
    0 n" Y1 M; u% `- f, |    RowBox[{"3.1415926535897936`", " ", + C; T- Y( ?7 X$ A
         RowBox[{"(",
    ' v0 ?/ Q8 }6 w, p; A; k% i      RowBox[{; w$ @1 w; J- r/ Q6 g
           RowBox[{"-", "0.105619387859`"}], "-",
    . m7 S4 V4 g; u2 d8 \       SuperscriptBox[
    - D0 j9 h! m) C: W" X: A0 t        RowBox[{"(", 1 q- Y$ k2 a; V" Q7 K0 T
             RowBox[{
    # @/ V( O- U5 u9 ?( l0 k          RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
    1 \) K8 A* u' d* \9 k       SuperscriptBox["x6", "2"], "-",
    7 Y4 e" R7 x1 p( G4 z- Z       SuperscriptBox[
    2 c; c; k9 f& s3 r" t) H        RowBox[{"(",
    1 K% w/ \: H& K6 Q9 q$ b# `$ e         RowBox[{: s+ v3 e+ {: K( X) M( V* R: U
              RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 1 i( k  ]4 E& p, R/ o
           SuperscriptBox["x8", "2"], "-",
    7 k- R" ~" b0 h5 G0 C3 Q       SuperscriptBox[9 f# {2 M, U' F9 e' V3 u
            RowBox[{"(",
    * i5 Z/ d# T# H" I         RowBox[{! E4 E9 h+ Q. I" O  }
              RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ! n. V1 j6 _; [6 C5 n% s" J
      "+", 0 ~! X5 ^" l% t8 J
      RowBox[{"0.13092706311748437`", " ", ! [/ ]- P: W! x0 }* y
       SuperscriptBox["\[ExponentialE]",
    ! `  G/ K! X  p1 H6 |; n5 \    RowBox[{"3.1415926535897936`", " ", ; X+ P% s) W6 Q  @/ a" r2 \! l
         RowBox[{"(", ) \; d" S* V; E+ S. _$ _
          RowBox[{8 r* n; ?) T. m, ~/ m" G3 b
           RowBox[{"-", "0.236605670085`"}], "-",
    ; D5 o% g5 q( h6 D4 O" x       SuperscriptBox[( g) C* h' w5 k, \0 a& E' U& Z
            RowBox[{"(", 1 c# X% [! j# d1 P- g  U
             RowBox[{: {, m8 O% b) J* R% ?- n
              RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", + T, O% q4 E$ i; |! G- O9 f
           SuperscriptBox["x6", "2"], "-",
    # W2 c; u# ]! ^$ m/ D/ G       SuperscriptBox["x7", "2"], "-", 4 M6 i. i+ u0 |1 U5 ^) {- r: U
           SuperscriptBox["x8", "2"], "-",
    ' o5 t. c$ ?1 T       SuperscriptBox[
    + r# p3 C3 Z* x0 r  }        RowBox[{"(", ' b9 B- g7 V- o5 k# i
             RowBox[{8 _$ c; j5 c1 O7 r5 m
              RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], " f/ F6 w0 E1 Q: x" s" K
      "-", 4 v7 [; L+ X& H
      RowBox[{"0.033459349088924784`", " ", + _2 r2 }3 V, N8 f% A
       SuperscriptBox["\[ExponentialE]", ( w4 d* ~1 g) n( ]4 L/ b
        RowBox[{"3.1415926535897936`", " ",
    ' G# O+ F: J; z# H     RowBox[{"(", 8 a+ U3 E+ z7 J6 ?( }$ O( i
          RowBox[{
    . z8 z' A  G: _6 H       RowBox[{"-", "0.46221081830200006`"}], "-",
    % ^; N3 J, G; m( s       SuperscriptBox[* y, ?3 i. z: s6 \4 U6 W! n
            RowBox[{"(", ! @2 C8 G- b3 ]( [$ r
             RowBox[{
    9 t. K. r, h6 ], Q7 s          RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", 1 V5 Y$ ~6 _; F5 J3 a7 ]* Z; E( ^
           SuperscriptBox[
    ( R, q9 g* C8 g  z. e$ J        RowBox[{"(", 5 ^6 a+ k6 M6 P; ]% m' U/ g
             RowBox[{7 z5 V4 c& y# ]' U* n
              RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", 7 d. H7 P# m9 _: e5 H
           SuperscriptBox[
    8 v3 m/ S+ w9 o$ ?5 ?  L  @        RowBox[{"(", ! O7 G; c2 i6 `
             RowBox[{$ u5 D7 _4 F7 C0 O+ b0 H+ a! _$ s
              RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", ! s. \7 i' d6 a+ R
           SuperscriptBox["x8", "2"], "-", $ x  Z1 p; {! k- M; j
           SuperscriptBox[; d( Y) b1 M) j
            RowBox[{"(", 4 m2 V9 h6 P6 U+ h2 D
             RowBox[{
    ) q1 ~3 g9 y8 q; l4 }! u. T          RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 9 z4 ~: m/ N0 }8 u) D' d! @
      "+", 8 I# g: M. ~0 O# _1 Q1 _5 T
      RowBox[{"0.39611806709006653`", " ", . K5 T, ?2 q" L, t+ l
       SuperscriptBox["\[ExponentialE]", 8 j( `* ^2 H0 [/ i' s( |+ q
        RowBox[{"3.1415926535897936`", " ",
    ; J( p6 S0 d" J4 r- n/ y  H     RowBox[{"(",
    ! ?' t$ g/ s7 p# G; _6 Z  F      RowBox[{
    / e; L2 U1 o' z& E       RowBox[{"-", "0.5837889295140001`"}], "-", ) e; M' G' b; J1 i* o: _) m
           SuperscriptBox[) M( @) f$ o5 a5 \& B
            RowBox[{"(", " u# F& k: U/ w
             RowBox[{0 U: b5 [* m; _5 X
              RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    + @. m; R# Q- v& P, i& t       SuperscriptBox["x6", "2"], "-", ( c, ^  C0 ~3 `
           SuperscriptBox[, I, T$ \* a. O
            RowBox[{"(",
    ( b7 J. L. S; u5 E+ I( ^! c* ?! I8 |         RowBox[{4 X  y- Z* G) ]8 J$ {! \
              RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", , y+ e; p  R, p  P4 V
           SuperscriptBox["x8", "2"], "-", , X. Y; C! W" I6 h+ o
           SuperscriptBox[
    + F) A1 Z9 ^. v        RowBox[{"(",
    / b2 Q5 B5 k' V; Z2 O; k         RowBox[{8 F" d2 l! u7 o/ n9 l$ T: g0 m
              RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    , s' l! t. }9 c  "-", ! s5 I/ E% A" k) a4 a8 F1 t3 t& [
      RowBox[{"0.19996885877792045`", " ", 2 L& X( V* Q6 [
       SuperscriptBox["\[ExponentialE]",
    , j$ e* G  W1 V; E3 M    RowBox[{"3.1415926535897936`", " ",
    ; m8 i$ N5 a& \& @0 I     RowBox[{"(",
    : [4 `! W3 `7 V) i" i, T, {      RowBox[{- X5 M$ E# _% L8 ~: j- R7 m% ^% u
           RowBox[{"-", "0.19030188470200005`"}], "-", # t: z5 ^& a, ]
           SuperscriptBox[
      q6 ]( u! D( O        RowBox[{"(", ; l. l& g* Z" V; Q: {) T- P
             RowBox[{
    0 s9 R, S9 i$ k( b5 E, P          RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    ' y  |) D3 l. f6 J8 W) o       SuperscriptBox[
    , `5 `1 I4 t8 g; J3 y8 M0 \% a        RowBox[{"(",
    # D7 N0 ~! D" w1 j0 x) G2 J- i         RowBox[{9 i6 V$ a# m1 c& b6 Z
              RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 4 F8 Q$ R$ @1 X9 F+ c2 u
           SuperscriptBox["x7", "2"], "-", $ H$ Q# M! i. T. r
           SuperscriptBox["x8", "2"], "-",
    1 o% C! p. V7 ~" C       SuperscriptBox[
    # x( j( A' ?( G, l  Z) {        RowBox[{"(", * M, _6 b% A: g1 ^2 T& a* g
             RowBox[{
    ' S, b: }  v- p3 I5 _8 p% Z1 V( e          RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    4 ^4 j. s: N, B, x' f% p  "+",
    . I; J0 [4 ]  d  r) q) I6 i6 E  RowBox[{"0.23580523388620744`", " ",
    8 d# B2 t/ r0 P3 ~" [% n   SuperscriptBox["\[ExponentialE]", , W1 b6 Z! i; w" }, g7 `8 ?  n
        RowBox[{"3.1415926535897936`", " ",
    ! m( F* A, M, q3 f% L! Y. r     RowBox[{"(", 4 K6 v5 Z& o* ], o& T
          RowBox[{% Q4 b7 _. p0 Y) k( L8 C7 ~0 s2 X
           RowBox[{"-", "0.28518780882`"}], "-", ; Z! V' w; G* n+ W: L* H5 Q
           SuperscriptBox[
    " D* @' ~& {( w! w" B3 u5 `        RowBox[{"(",
    % h8 X1 A2 \6 C' i/ R+ Q         RowBox[{4 B2 q9 F' P* ^, }$ b3 E
              RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    ! c" ]% u, n9 o$ X       SuperscriptBox[
    ) K7 V$ J# A1 a        RowBox[{"(",
    & q7 g9 b! Q4 C* ?7 ~         RowBox[{
    9 B& k% ^+ N' O          RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", ) `: K/ r  m! _# M. C
           SuperscriptBox[' F$ I* ]: P( z$ I, v
            RowBox[{"(",
    3 ^5 O( m5 p6 D4 w: v% Y* M; _! a         RowBox[{
    6 e) t! \, O) t% X9 R7 a" V; M) S          RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", * U; q. {2 S" [" h+ `5 ~
           SuperscriptBox["x8", "2"], "-",
    , L) o0 [! g. ^! c       SuperscriptBox[
    7 v/ ~. E) Q" |" ?0 v' j, @        RowBox[{"(", 0 N* R) c! u( @% i, @
             RowBox[{
    % ]) w- r" |% |  b) T          RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 6 `) {9 A4 Q+ U$ A& a7 V- i
      "+", % Z) B; [' R  ]3 D& O* S: s6 D
      RowBox[{"0.667027259367853`", " ", * u* Y3 V& F  {% S
       SuperscriptBox["\[ExponentialE]", 8 q. h. `$ ?1 l, G" o
        RowBox[{"3.1415926535897936`", " ",
    % ]7 f/ i3 ?1 @+ X     RowBox[{"(",
    ) d* G1 g  R" S2 Q      RowBox[{! K* N/ G5 B& d% t5 x, a
           RowBox[{"-", "0.11387365200400001`"}], "-",
    % I. Y7 x; @. ~' ?2 R& Z/ d; A       SuperscriptBox[
    ( J. g( _8 Q% V" k% D9 H7 a        RowBox[{"(", ! i8 \4 }+ _( X
             RowBox[{
    9 c/ {& O4 ^5 ?" e) D          RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    ( v2 E8 j1 d8 E: g8 Y6 t! U4 {. [       SuperscriptBox[2 ^* p3 P3 ^6 h; w6 q; n1 J
            RowBox[{"(",
      ^/ X/ a5 x8 q* R3 `0 I- l0 D         RowBox[{3 ^% R9 w7 d% O
              RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    / q9 ?; R! s+ Z+ b. U+ h$ x. }       SuperscriptBox["x7", "2"], "-",
    ; O6 d3 h5 h( i' z9 Q       SuperscriptBox["x8", "2"], "-", 7 M' i5 l# F3 b! {" Q
           SuperscriptBox[
    2 J+ o- J5 O& }1 V; D( o2 G  A        RowBox[{"(", # y9 Y3 F4 ]/ e' x- _, Z
             RowBox[{
    $ @) @, k% I* @. W          RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    ! R# Q8 H5 e9 A0 C! p. l& U. {, s  "+", 0 T3 j% A6 F5 ]! \& U
      RowBox[{"0.25282438852646905`", " ",
    9 Z, ~  N, N% S  B% f6 o   SuperscriptBox["\[ExponentialE]",
    ) Q2 |0 K6 R3 u8 U2 }0 n  ?+ j0 D    RowBox[{"3.1415926535897936`", " ", / y0 X3 n1 z) j8 a0 ~' w
         RowBox[{"(",
    # @# a( ?3 f! W" u9 x: s      RowBox[{
    ) k0 v% z! F0 {       RowBox[{"-", "0.11442644782500001`"}], "-",
      U8 a. X0 C7 W% b& |, O- u       SuperscriptBox[* v$ L: `8 O# U) B% O; Q0 A4 `
            RowBox[{"(",
    / A: Y: `# V/ Q& F         RowBox[{
    $ Q0 y2 }' Q/ w8 j+ Y          RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", 3 y; N$ G) j; N7 L. _3 V4 B
           SuperscriptBox["x6", "2"], "-", ; O4 y. r% p7 n3 Y; e& P
           SuperscriptBox[, A. m3 b& u* A& ^9 `; v" w# j
            RowBox[{"(",
    - d' m! e3 G1 D3 L         RowBox[{
    9 Y( `3 ?' Y  O- P) v- u          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 3 c# @6 s) I7 f( `; x* X
           SuperscriptBox[
    2 b" B+ V$ C5 T        RowBox[{"(",
    & M+ d6 A* R8 R) h; Z) y. T         RowBox[{1 g; m& `- a* X% B% r# ~* t9 I& [# Q, f
              RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
    - l( b" r$ [- `" }. G: d       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    ; n- ~4 L$ W3 @$ L) [  RowBox[{"0.07581214474544536`", " ",
    8 D9 S6 B' P4 W+ u   SuperscriptBox["\[ExponentialE]", 4 d; G4 v" {9 m6 s. f
        RowBox[{"3.1415926535897936`", " ",
    # ~$ _$ P7 I9 c, L/ o     RowBox[{"(", 1 @. O8 Q) A% m, q" [$ j+ k
          RowBox[{
    - @5 Y8 H6 F- o2 ~1 k3 ^. M       RowBox[{"-", "0.21008576609800003`"}], "-",
    0 ?- C  Q+ y; T' i       SuperscriptBox["x3", "2"], "-",
    4 s& l7 _& v% ?       SuperscriptBox["x6", "2"], "-",
    , c( u+ @- n- g$ D       SuperscriptBox["x7", "2"], "-", 1 `, `4 H/ G3 l1 K7 b+ A
           SuperscriptBox[
    9 _( ^+ ?3 d9 E# ]2 w0 u( y        RowBox[{"(",
    2 b" [! y# G; f7 p         RowBox[{
    ) R" X$ @5 }6 N% B2 U          RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
    ; O$ C- O/ s# m% I0 n       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", ( \8 t$ D8 H$ ^: a3 q
      RowBox[{"0.10599338351843121`", " ", 1 j# g  W9 k2 n/ X) d) Y
       SuperscriptBox["\[ExponentialE]", 7 A% v% a6 ?3 c# G% y: e- Q
        RowBox[{"3.1415926535897936`", " ", 7 F8 ]. H' z2 x
         RowBox[{"(", . F' j' V5 s8 f" u% E6 D  k
          RowBox[{
    % H  G2 \' i. H       RowBox[{"-", "0.4481471925460001`"}], "-",
    ; r, i" M2 r9 s5 z4 y6 ~       SuperscriptBox[
    " y7 b2 K4 h! p3 m3 @1 A5 H        RowBox[{"(",
    : y/ a* h" l3 z2 j* r* V         RowBox[{$ M( W; U: K8 l: i
              RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", 7 Q6 `, _0 ?3 O0 p7 A
           SuperscriptBox[
    * U, Y) x, f" q( i- S) w        RowBox[{"(",
    " V& C4 O2 Q: ?, x9 b         RowBox[{
    + n0 s, K5 r7 B. [          RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    ; Z2 y, U- K/ C$ y8 x! R6 C       SuperscriptBox["x7", "2"], "-", , X: c( Y$ h, L' w- i# ?" L" T5 @
           SuperscriptBox[) H+ g6 s! I% \% p1 \! i
            RowBox[{"(",
    ' @7 D% R: V- ^$ G: ]  L: a         RowBox[{
    6 Y- n3 y% j+ _  b          RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", 7 u! ~' O: H* v& ?& s; u8 Y
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    8 Y, K% ~/ P  W7 X1 \5 T1 C  RowBox[{"0.5008208386064421`", " ",
    % W: q' Z" y$ m' J   SuperscriptBox["\[ExponentialE]",
    4 W* q9 }* |8 r- L- P4 Y4 J# x    RowBox[{"3.1415926535897936`", " ", * \: [4 P" J: ?+ a; \
         RowBox[{"(", ' A$ j' B' h' l
          RowBox[{
      v5 ~% f" t5 b$ c% f. J4 \       RowBox[{"-", "0.08722659614000003`"}], "-",
    # B! J7 v- ^9 C" [% V7 D+ C       SuperscriptBox[" w0 E; j  |/ u  {4 _. o
            RowBox[{"(", - t: J! N' \8 f6 R; A* J
             RowBox[{, ~3 b5 L+ ~1 Y
              RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
    5 }4 n$ }( W# u0 W  W( O6 Y       SuperscriptBox[" u( W& C! ]: ^. t5 \) f- ~
            RowBox[{"(", # a3 E. b5 T8 F8 Q/ }
             RowBox[{
    ( a. G# B# P/ r- e0 J! t7 }5 P0 j          RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
    4 D! |! J. p+ r" N       SuperscriptBox["x7", "2"], "-",   d# f0 v% T4 ^0 T) O' m  {
           SuperscriptBox[
    / Y/ \. q1 `6 T; j0 D" O0 h0 J        RowBox[{"(", 3 E- q$ Y  B8 ]6 y* \/ g/ m; `
             RowBox[{
    & `+ D% _% {+ `          RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
    0 N; Z# ~2 a4 p2 b/ w$ y       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 6 G  o: r. i7 O1 q
      RowBox[{"0.32564305572552343`", " ",
    8 B7 N; s) k9 O1 z) p   SuperscriptBox["\[ExponentialE]",
    4 Y' y  o3 W: ?    RowBox[{"3.1415926535897936`", " ", , o1 h0 ?4 {8 Y7 F6 b
         RowBox[{"(",
    7 a9 A2 m/ G' Q# D, @& @8 H      RowBox[{* K4 @% k% p$ {7 d( ^6 u
           RowBox[{"-", "0.23738217000100004`"}], "-", . n- B4 q$ \3 Z
           SuperscriptBox[, H# f( u9 h8 V) A0 A  b
            RowBox[{"(",
    $ ]' c' h. f$ M3 C         RowBox[{
    7 ?/ j/ @8 I2 P3 }1 J, G% F9 h* V6 s          RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
    ( ~1 u; a5 x+ F; R( \, C       SuperscriptBox[
    4 L6 U8 }: Z9 J' F4 Z        RowBox[{"(", ( Y3 s5 a: l5 {, Y
             RowBox[{
    0 P+ m( j  ]0 J- H) b1 j0 j          RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", - ]$ o0 e- A. l/ k& L
           SuperscriptBox[
    # }: l/ s% w$ B3 U8 z1 I; [/ h        RowBox[{"(", 4 n! f$ Q% }  e
             RowBox[{
    + g9 h5 Y+ G1 e8 I: |: m, _3 y+ |          RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    6 A& m6 d! }4 X# G# b# X2 O; b       SuperscriptBox[: H: e: I; m6 W
            RowBox[{"(",
    4 D9 d9 r5 _# E: r: X( E% O         RowBox[{
    : i# L" l1 W: N* Z          RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    0 ]" v& m4 c% X. Y7 ]% c       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", + i  c9 n* t" i% B
      RowBox[{"0.6665374509702793`", " ", : R, c( y* ]5 q
       SuperscriptBox["\[ExponentialE]",
    3 p" B8 K- \( f  \    RowBox[{"3.1415926535897936`", " ", + O4 `: S" L" l1 @* S
         RowBox[{"(",
    % x* E% X: t0 ^- o. W4 T      RowBox[{: V7 c$ g) N1 b; v( W; K! k
           RowBox[{"-", "0.19162171876400003`"}], "-",
    3 U% b4 h2 }2 m) W4 s       SuperscriptBox[
    ' t3 r4 v9 n6 P; j' H        RowBox[{"(",
    : I6 S9 I! s" l! o0 h7 G. v         RowBox[{! C* v. @; v, b# t+ T2 {4 |/ z% s
              RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", 9 U; \& W; \( }' N& s
           SuperscriptBox[; i! d: _4 q: h' l
            RowBox[{"(", . e4 F- k0 O4 c
             RowBox[{
    ' n  v. d; n5 v  d          RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", 7 W3 J% o, r' X: m
           SuperscriptBox[" k0 J5 k. \+ Z; p$ |/ v) D/ @
            RowBox[{"(",
    . Y! s( x( s; N; U% Z         RowBox[{
    $ A1 e. u! j; h' L7 i( W1 K          RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    : k( d9 U, U; z0 `       SuperscriptBox["x8", "2"], "-",
    1 \4 ~) S) Q, `/ l& {2 |$ g: U       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    2 |' C. e& x  O; u, u6 [  f7 s  RowBox[{"0.4812237524557293`", " ", 5 S4 e. l" y  o; ]
       SuperscriptBox["\[ExponentialE]", 9 l, R9 s5 [( X4 v* C
        RowBox[{"3.1415926535897936`", " ",
    ) `. U& Z8 Y6 ^+ B  O3 @6 |) @7 B" J     RowBox[{"(",
    3 E+ \9 A# @4 ]5 W0 k# g; i" _      RowBox[{* Z; I/ X( U' `. d1 f( S2 Y- q
           RowBox[{"-", "0.109748954594`"}], "-", 7 h& b, h3 \0 S' e9 _
           SuperscriptBox[' g3 g; Q4 \- E& _7 i; p
            RowBox[{"(",
    $ T1 F% K: j- \. P         RowBox[{2 N1 v/ B/ y" ^" i, ?% C
              RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    3 n. \" m1 I" x3 P5 E7 Y: r1 R, u       SuperscriptBox["x6", "2"], "-",
    ! H/ W# A) H- ^1 y" m  ~* e# Q       SuperscriptBox[! L7 s. W- x+ v$ [$ M
            RowBox[{"(", * E4 g, b$ |  n( [$ U8 P: K) m/ l
             RowBox[{
    , C; C- k5 x, w% C6 Q. N" g          RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    # p- x  @9 j8 ]3 i- Y       SuperscriptBox["x8", "2"], "-", 7 `, |( D' o4 n0 _
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 9 i$ E2 `* I* Q6 [* g# n2 Z7 v1 f
      RowBox[{"0.176024676254045`", " ", 5 R1 @+ A9 ]0 J# ~3 r; }  d- ~
       SuperscriptBox["\[ExponentialE]", ; F5 O! w( i7 F0 f  w7 @
        RowBox[{"3.1415926535897936`", " ",
    * ?, `# M2 E3 b# V8 U+ B     RowBox[{"(", - X7 C0 F" @9 q1 H- g
          RowBox[{
    1 v9 v' G' n. c$ A& f. w       RowBox[{"-", "0.14616677062500003`"}], "-",
    ) H3 J$ u; ^; K. l7 c       SuperscriptBox[7 B0 B" {5 K' v
            RowBox[{"(",
    - I& C4 D3 l! E- I* y         RowBox[{7 j7 A$ H6 @  L* y7 R2 v
              RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
      @! U  j3 i0 q$ j* R0 J3 n       SuperscriptBox["x6", "2"], "-",   [6 X" U; c" V4 a. Q2 o6 D
           SuperscriptBox[
    - K. N; I* D& G3 L" c$ k$ ~5 K5 i        RowBox[{"(",
    - U# |) @8 [; M7 T! s4 I; I         RowBox[{
    3 W4 v* c" ]* i/ `- d8 P6 _          RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", * T: C; z# G  R. T8 w" m2 W. q
           SuperscriptBox["x8", "2"], "-",
    # q0 N0 {* k( N8 c* g7 J% G       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 9 t3 i3 y+ [( _  H+ H5 e3 s$ v
      RowBox[{"0.5945873894818965`", " ", / [) I& S9 E3 C' [
       SuperscriptBox["\[ExponentialE]", % H( p8 ]8 X3 h$ H" i* h2 I
        RowBox[{"3.1415926535897936`", " ", 3 k& n" d" j' f  D- I; N% B( V
         RowBox[{"(", ' o, l9 {2 e) X7 V! C- Q2 Z
          RowBox[{* t% {( i. n+ K9 _. n
           RowBox[{"-", "0.10407011464100005`"}], "-",
    6 d" Z* m$ d9 o" _" Z       SuperscriptBox[4 V2 u& r' H3 T5 j. w3 ~/ e$ U& O
            RowBox[{"(", 4 i8 k1 N% g" G+ o/ c) m
             RowBox[{3 e7 }3 B" U" b1 Y$ e6 h
              RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    ; t5 g) V+ n5 {1 U       SuperscriptBox[2 _$ I  x% o( U2 {8 H
            RowBox[{"(", ) ]' x/ h+ }2 ~0 x
             RowBox[{
    2 o) Q0 |+ J/ m/ ?3 i          RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", 7 V" K' |/ O5 |# \# k' `; T
           SuperscriptBox[
    4 X9 n: _) l5 ^& ]0 `  q- ^6 r        RowBox[{"(",
    ! M/ x4 I, w6 \9 Z         RowBox[{: F, t- g8 J/ ?1 x/ H
              RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", : [2 C! c* @9 o
           SuperscriptBox["x8", "2"], "-", & }5 w) n( g' c  Q" ~
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    7 _: `) ?4 x( ~  RowBox[{"0.027591936509660075`", " ", 3 a: |! t  b, n7 N- b7 E6 G
       SuperscriptBox["\[ExponentialE]", ; _+ l/ V& r  m# K1 i9 K) u" m
        RowBox[{"3.1415926535897936`", " ", % x# X8 Y7 A& U
         RowBox[{"(",
    ( y: P5 I9 |' B& J- B' ~; H4 p      RowBox[{0 p' u  @+ a  d; B, g$ {
           RowBox[{"-", "0.31770463544200006`"}], "-", 5 o. ^" R2 V7 D1 m4 C/ a4 K
           SuperscriptBox[
    0 x* B& g/ N. G0 @( _" W        RowBox[{"(", ! t% ?2 u  x6 A! u: |
             RowBox[{
    4 ]4 @* {7 ]- b/ ?" I          RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", 8 L9 H) k, T2 @0 T! r  k
           SuperscriptBox["x6", "2"], "-",
    ( n$ C7 x6 {8 i; k' F0 a8 h: I' B       SuperscriptBox["x7", "2"], "-",
    3 U3 s- r. }2 T! h; Q1 ^- b       SuperscriptBox["x8", "2"], "-",
    # E, S9 i" q1 `       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", . Q' m1 t" j3 q. U
      RowBox[{"0.5252475961933536`", " ", / q7 B3 `5 v6 D! r0 l( A
       SuperscriptBox["\[ExponentialE]",
    # [' ^8 H% X4 B9 A$ T% m    RowBox[{"3.1415926535897936`", " ", ! \% u* Y' w. [
         RowBox[{"(",
    ( k# h* \! k8 ^. f      RowBox[{
    9 B" J$ G+ h2 L4 F. J       RowBox[{"-", "0.6410867660730001`"}], "-",
    1 g% |+ x* _8 ^1 {3 z# V* \       SuperscriptBox[$ e. A) G: ?# u: O4 q) N; {
            RowBox[{"(", - |( \& a4 b  A# M3 X# W0 v
             RowBox[{& M1 c7 y! }. |6 j$ O, k! u8 e8 |
              RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    8 R0 {$ [2 s& q' j6 K! F: G       SuperscriptBox["x6", "2"], "-",
    $ _, D# y* F. S1 K* [7 _- ]       SuperscriptBox["x7", "2"], "-",
    $ y  x6 b) X" m9 K. [- ~, u5 t9 t       SuperscriptBox["x8", "2"], "-", , [, S" _  I' y6 v: ~2 m$ H
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    $ h- X" T: F9 {4 G  RowBox[{"0.32047284779644936`", " ",
    1 L: z8 V; T# N; @1 e; i0 I   SuperscriptBox["\[ExponentialE]", $ {) p# I4 j1 X" g! s" A" P  J
        RowBox[{"3.1415926535897936`", " ",
    . `0 S# p4 A7 |' K9 B% p     RowBox[{"(",
    + j  g: v* d. b( M, m* G      RowBox[{2 _' P6 h9 @) ?8 ~9 b  f* b
           RowBox[{"-", "0.155663887074`"}], "-",
    8 N, d9 W8 b0 I4 w       SuperscriptBox[6 Q/ s  p. _! H* ?6 d( J* R" V
            RowBox[{"(",
    4 ]/ L( x1 c) U6 o% T         RowBox[{2 {) C! R+ n$ D( p# c
              RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", $ f! c+ P% l. u9 I3 Q
           SuperscriptBox["x6", "2"], "-",
    8 l  x2 I! A3 ?5 t6 m       SuperscriptBox["x7", "2"], "-",
    + g; Z" H6 s+ S3 A; [$ [+ Y7 L       SuperscriptBox["x8", "2"], "-",
    6 @( i/ n7 _* t: F" `8 Y       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", 3 v5 U! V& u( A6 O& p1 Z. T
      RowBox[{"0.7528674241482847`", " ", 0 `- n# D5 z, m
       SuperscriptBox["\[ExponentialE]", # O' b! Y. v# H
        RowBox[{"3.1415926535897936`", " ", 8 G* }% l4 f, h6 t
         RowBox[{"(", * B" x+ I! G6 A! G" R+ T3 j+ Q
          RowBox[{
    . m3 W  \. P  X1 k7 f1 s       RowBox[{"-", "0.14151232428600002`"}], "-",
    2 B; ^( g( W; `2 {: j) n; ~       SuperscriptBox[
    9 u: R( ?/ N6 h- X7 b" `; O        RowBox[{"(",
    ) k7 W- [0 u4 [5 g         RowBox[{
    + X; N8 M* P: ]4 ?1 M          RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", 4 f0 u2 s- J. w- p* x
           SuperscriptBox["x6", "2"], "-",
    + @/ A! Z- [4 k       SuperscriptBox["x7", "2"], "-", % `& G: y0 O; X; [+ s: V  s. Z
           SuperscriptBox["x8", "2"], "-", * ^8 U9 r. Q% g& T2 S; T
           SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output"," ?2 k0 q4 P0 h
    CellChangeTimes->{3.5779628386090403`*^9}]
    5 w* R) j# Z0 M- J}, Open  ]],
    , v, h8 j! b9 j
    2 d5 a: y* S8 u8 N4 l& P! I7 TCell[BoxData[" "], "Input",7 C* W: K4 y, {. u( Q$ F
    CellChangeTimes->{3.577962835879035*^9}],+ M7 l( S7 N2 l& V; B; J" U" c1 t
    8 A5 F* ?$ ~2 b9 W* ?: L* |7 Z
    Cell[BoxData["\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\:4e3a"], "Input"],) u* J6 I) k  u5 s, e5 D
    & B: p& A: A' F
    Cell[CellGroupData[{2 u. d; x6 e: _+ A7 D7 ~: B0 m

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

    使用道具 举报

    569646632        

    0

    主题

    7

    听众

    46

    积分

    升级  43.16%

  • TA的每日心情
    开心
    2013-11-6 20:46

    • 签到天数: 9 天

    [LV.3]偶尔看看II

    自我介绍
    爱好数学
    8#
    发表于 2013-8-30 20:15 |只看该作者 |招呼Ta 关注Ta
    可能不能导出系数
    回复

    使用道具 举报

    9#
    无效楼层，该帖已经被删除
    -___        

    0

    主题

    8

    听众

    44

    积分

    升级  41.05%

  • TA的每日心情
    开心
    2014-4-24 16:04

    • 签到天数: 12 天

    [LV.3]偶尔看看II

    自我介绍
    wahaha
    10#
    发表于 2014-2-4 16:33 |只看该作者 |招呼Ta 关注Ta
    者。。。。这是神马
    回复

    使用道具 举报

    返回列表 发新帖
    高级模式
    B Color Image Link Quote Code Smilies
    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩

    • 电话咨询

    • 04714969085

    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问：王兆丰

    GMT+8, 2026-6-13 08:34 , Processed in 1.776219 second(s), 105 queries .

    回顶部