快捷通道

QQ登录

只需要一步，快速开始

  注册地址  找回密码

数学建模社区-数学中国

留学>>
返回列表 发新帖
查看: 10671|回复: 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
    问题完善一下！或者把代码贴上！
    9 B- |3 m; T( f0 J/ L- s$ A
    回复

    使用道具 举报

    琳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
    ) X! _! ^- t! W) q9 x$ P/ m神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗

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

    2 z7 i6 ~7 n' W6 j1 H+ qCell[BoxData[  e" F) F, B: P8 K3 v' \. d" b
    RowBox[{"For", "[", & Q' C4 [: b# ?
      RowBox[{
    , X1 V" S7 X  j3 l   RowBox[{"i", "=", "1"}], ",", ' a( A/ ]2 T% e9 n# v
       RowBox[{"i", "\[LessEqual]", "9"}], ",", 5 _7 Z% `$ _1 z0 z8 t
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    ) {- S5 w. B. s: o1 K! t9 M( k   RowBox[{
    / @7 Q  {5 W2 E6 A, q8 R    RowBox[{8 T9 y, h+ L$ C: i; `% D
         RowBox[{"CM", "[", & M, S5 [- a) ^) `( F; e7 l+ E
          RowBox[{"1", ",", "i"}], "]"}], "=",
    6 u' [$ e# o/ {# t     RowBox[{"Data", "[", % q% F5 @2 Q5 h4 Y8 `' U
          RowBox[{"[", : d7 l& L; n0 v/ A: }' N
           RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}],
    % W: b1 A. v! T$ q  "\[IndentingNewLine]", "]"}]], "Input",
    ( E" P6 {$ J5 B3 I! c: G; O( J CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {
    ; [) k/ d/ i5 J& `/ }   3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9,
      L1 R7 F9 m( |% m   3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9,
    % n3 s/ v! d! |% E2 R   3.57791344209375*^9, 3.5779588070933466`*^9}],4 z( W& s9 ]3 E7 P+ H4 z

    ) t4 e# z) @# y6 ZCell[CellGroupData[{1 s7 b' b2 X7 t! W  U7 S/ j
    ; `  O! H3 P7 n' e( t1 e
    Cell[BoxData[{3 G, F  }+ i7 p  K6 k& ^, y( }
    RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]",
    " q  _# Z/ z  y2 i! s+ b" D: q- o RowBox[{"M1", "=", "1"}]}], "Input",
    2 |- a$ G+ x: N8 D CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {
    / Q, X# J1 F% P2 E( k1 U   3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9, ! r8 d( s' m' {: C
       3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {5 O: C6 m+ V/ _8 |
       3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9, + h' m8 @  z$ b- p; F
       3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {
    8 X' l. l) \4 _: t8 r   3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {
    1 _: y6 `2 {! E$ d& g& ?   3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9, 9 B0 d2 ^5 c( ~3 r
       3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {, U# `: [; b, E* A' I" s/ z
       3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {) m1 y9 r: I( b
       3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9,
    ) J9 k" j  p$ n% L$ o   3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],  Z! ?  F# O1 V) k

    * t$ E6 G8 l* O0 M* `Cell[BoxData["0.2`"], "Output",6 u3 G1 w/ b" J- t$ g
    CellChangeTimes->{, T% ~' @* N3 @  N
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    ) G  w7 F; v% g) |8 l. T   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    ( B# B9 E" w$ y* X) r   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, + v5 F9 _) ]+ [: g8 Z" W1 X
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
    7 L2 x5 G: g& L) f   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    ! Y- J, M& n4 S  [/ w   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    + g. P, J! z5 y2 F6 h2 P+ r* [& n   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, & g4 m* O0 {2 \( A1 t4 M
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {* P8 L# N- j! }& I
       3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, ; P$ X, J) F& U. y# j
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    $ g; `  K0 d/ ]9 e3 C/ b9 u  W7 }   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    - Z% H2 ~" F! R5 I0 D   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    5 b' R; d* K% ]& {   3.577960510686717*^9, 3.578012149296875*^9}],+ S1 Y2 L: Y' r
    5 {9 a! G: P2 U2 r$ N/ h( v* b
    Cell[BoxData["1"], "Output",1 ^- h+ Q, r" c* i/ I. k% @. u
    CellChangeTimes->{8 h8 a+ N2 w4 n" c6 t( ]/ `! L
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, - }( y; i  ?2 }$ E7 ?
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {( c) ^5 `( R. ]1 l* ], [
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, ! D2 y. b1 y6 s2 k, h: `( L& |  B
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {& F7 c: l2 B- ^+ N- u
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    1 F: D2 D3 D5 }   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {$ J3 @, u7 T3 b7 a
       3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, , T. O3 X0 Z6 v3 U+ q( m. k
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {# u9 N1 k) @0 H* w+ o1 C
       3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
    3 B* z4 t: B. @% o' y; U' J$ N   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    ) j0 O- y! D1 _" n9 T& A   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, ) V& u7 U4 Q  [' I
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, & V. C7 i$ C* p3 I' g3 m8 ^5 _8 H2 s! t+ p
       3.577960510686717*^9, 3.578012149296875*^9}]# m8 M& R0 h+ `& ?" e
    }, Open  ]],
    0 X4 r* |; ]" g; B$ ^" F5 W  c1 V+ z1 @# ~
    Cell[BoxData[+ t! n% E6 ?6 D7 E3 H, R8 M
    RowBox[{"For", "[", 2 ^, G! C0 d7 X$ y9 M# M
      RowBox[{
    6 D  ^2 R. C( b# I3 `   RowBox[{"k", "=", "2"}], ",", $ @* n  Y( X; B- j. _
       RowBox[{"k", "\[LessEqual]", "60"}], ",", 7 g- O( G: `, x: u; ^/ o
       RowBox[{"k", "++"}], ",", 5 Y4 R$ g7 E6 P( `0 a& \
       RowBox[{"{", "\[IndentingNewLine]",
    0 U7 w+ v; L% x# Y" ?    RowBox[{0 V4 W% D* ]7 R; p# {6 q, h; f" h
         RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]", ! }) {, ^* N2 M8 W
         RowBox[{"For", "[",
    , H. [% X9 x; f      RowBox[{
    % p( S' Q+ T+ a& h5 [       RowBox[{"j", "=", "1"}], ",",
    + x0 a0 m: o4 `       RowBox[{"j", "\[LessEqual]",
    2 S# S0 C6 T$ }2 Y& B7 S/ X        RowBox[{"k", "-", "1"}]}], ",",
    $ S/ ~  a$ z5 ?       RowBox[{"j", "++"}], ",", 8 A7 c) a9 E. a' Q
           RowBox[{"{", "\[IndentingNewLine]", ) y( q0 i) M' [# y3 w3 g
            RowBox[{' I7 @3 U; m; `+ U
             RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]", $ r% O; d1 U3 I
             RowBox[{"For", "[",
    $ j- n6 F8 c; I$ p% C          RowBox[{
    0 ^! N1 Z" J6 ]! e0 `           RowBox[{"i", "=", "1"}], ",", 9 `* C& F5 E2 c; V4 R
               RowBox[{"i", "\[LessEqual]", "9"}], ",",
    ! c9 h6 T! e( ^( i           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    1 q* w. A8 ^+ Z0 a7 s           RowBox[{
    8 E9 X) X( _9 s/ @0 J            RowBox[{"r1", "+=",
    , F2 J/ R6 p- f  `+ }             RowBox[{
    ) o2 ]: o3 T6 S* R( y  m( B$ c* ^              RowBox[{"(", ; q+ u8 ?3 y% V  Q2 d
                   RowBox[{' z& l' }9 H6 h- I2 y0 T
                    RowBox[{"CM", "[", ( F$ n4 J7 c$ J9 D3 w
                     RowBox[{"j", ",", "i"}], "]"}], "-", 2 b( K% e7 p9 Z# ?
                    RowBox[{"Data", "[", 6 Z8 b/ }8 p; j0 \2 ], K3 q
                     RowBox[{"[",
    7 y( G' j  a% b7 \8 K/ E- M# c' e6 M6 H                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",   i" r9 F* P9 e. @* u. s
                  RowBox[{"(",
    $ t2 O: [9 G! ?  k               RowBox[{
    8 M- }& O( O5 U: J; u9 A  u+ C* n% H                RowBox[{"CM", "[",   L" j0 P% f: J% U  B( T/ r. [  r( ~# O
                     RowBox[{"j", ",", "i"}], "]"}], "-", % Z2 m! L3 I! Q/ R
                    RowBox[{"Data", "[",
    8 e2 W7 b( J" f$ B: K8 c                 RowBox[{"[",
      V9 @% m" b0 h+ A4 N" W3 L                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
    * Z4 B. Q$ |& m" X) i$ B           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", ) }  G0 V, a  Q# K) [
             RowBox[{"r1", "=", , Z) b8 W/ ?& V- C
              RowBox[{"Sqrt", "[", 0 [5 L2 `. l. Z& k- R& S
               RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
    7 n! O: p7 |, y/ t: s         RowBox[{"If", "[", " ", ( y9 D2 S- V" Y! [  [
              RowBox[{
    8 x) X9 P7 ^, E4 [           RowBox[{"j", "\[Equal]", "1"}], ",",
    9 I! h5 E1 A4 Q3 k/ \' q           RowBox[{"rmin", "=", "r1"}], ",",
    ' x; P7 @9 f; Y5 W6 [6 z' H9 l           RowBox[{"If", "[", 9 l# L( i# E) T5 _5 l2 w* ]
                RowBox[{2 y) V! |; Z# l9 w" S' H
                 RowBox[{"r1", "<", "rmin"}], ",",
    2 V- S7 W3 n/ @             RowBox[{"rmin", "=", "r1"}], ",",
    7 }/ a9 k: l, k$ Z3 s             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}], 8 D, {; u, g( T+ a' N0 Z' M" x
            "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
    & a' |7 v/ G+ v) H' ~; t1 t     "\[IndentingNewLine]", & D* ]. s3 K' i: V& K
         RowBox[{"If", "[",
    & X' a# K! X" M* o9 v2 \* X1 E      RowBox[{2 o9 S4 P2 o. `1 P: b
           RowBox[{"rmin", ">", "r0"}], ",",   M6 q; }9 G+ o4 ]* K2 B
           RowBox[{"{", "\[IndentingNewLine]",
    ; Q( m+ i9 b1 L5 W% S        RowBox[{8 T) n& b! R, J% F
             RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]", 0 i8 l0 _4 u. a5 r
             RowBox[{"For", "[", 5 E4 j, y9 n' T9 u& N
              RowBox[{
    & A2 H5 e" K! Q6 F0 e; `0 }           RowBox[{"i1", "=", "1"}], ",",
    " ]+ V; D. r- a+ q7 V           RowBox[{"i1", "\[LessEqual]", "9"}], ",", , t9 r( S9 }1 ~7 ]; T% C# k
               RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
    , N( l+ N, h* F           RowBox[{# N* z# l0 r0 e  c" b: o; p/ s
                RowBox[{
    1 r  K. ~  m, H4 `% B* T% W             RowBox[{"CM", "[", 3 f# z! ^  D' |5 V, q
                  RowBox[{"M1", ",", "i1"}], "]"}], "=", : b  Y$ ]( \3 }, p
                 RowBox[{"Data", "[", : @3 {( Y  C$ \$ ~
                  RowBox[{"[",
    . t8 ]: Q! J7 [# ~0 s! d0 }6 M! Q               RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],
    - J& {1 u& t$ E4 z& e% ?          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", ( K6 u7 R/ z4 p& \4 S- G$ j
           RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}],
    / z0 p! h! Y1 F) E0 W4 |( i" L    "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
    2 \- P" w4 @) e) A; \  t CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {
    ) w8 U, w! z; E   3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9, " s, f  T: A& n+ l$ _
       3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {
    " Q0 M& u( m0 ]3 K& r   3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9, 2 a" l# o3 d2 b7 x6 b/ u
       3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {, @- R8 o$ d7 y0 g
       3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,   k; L# ^* I8 d) a5 c4 R
       3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {2 [1 K* U$ p# o- U
       3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
    : r5 e+ n, F( e/ I2 Z   3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {' h" _4 ~3 g3 t, |7 x) E
       3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9, " @1 ~9 |1 Y1 q/ s' h
       3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
    3 C; D- S* ^8 Y- a5 {/ c5 q& J   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9,
    * M# `; ?+ R  ]0 E0 p  b   3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {& A+ y2 }( C$ }7 N9 w; U" v7 n
       3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9, # w6 d8 l' ^8 }
       3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {
    . B$ S9 B, |% {0 s   3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9, 9 ]% Z2 L$ J: p' F
       3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9,
    ! a; H, @+ u$ B: T2 \9 u   3.577958821991373*^9}}],
    0 x* t6 \1 U: N. v' h9 ?* V; }- W7 j4 m2 l8 U5 Q  b
    Cell[CellGroupData[{
    5 s* s5 P& @+ M% [
    - w2 V4 R# b8 X$ s  t2 eCell[BoxData["M1"], "Input",# G; I3 y+ S! L' k2 y; z
    CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
    - Q! w/ D. C$ x( [0 f% s
    4 H! E4 P! ~/ h- n) hCell[BoxData["21"], "Output",, X8 o! |/ G, x
    CellChangeTimes->{
    ' `; G/ N7 D1 F. A' T  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {( H$ O. t6 o& l' I4 k
       3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
    7 c) l. c' ~1 x   3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {  @! r( w6 @$ d9 L8 D& G- P
       3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9, ) h) E. \$ \1 I! j9 _0 b. H
       3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {& ]* g* D; f/ z, r9 ]" X
       3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, 2 g/ s$ z  o8 n) v: b6 D
       3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {) o' z1 C& F$ }9 U; x+ L: v+ z
       3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9, ' H! i; y% V1 @7 X% E+ T+ ~
       3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
      E2 P3 l& ]2 k' t   3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9,
    9 _( \* R& V& ~   3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
    & ~) ]4 q+ C, ?: ^* M2 w0 }   3.577960515600726*^9, 3.5780121541875*^9}]
    % Z8 A$ u3 S9 X. G. _}, Open  ]],
    / A( i' ~: a$ n  L% A) C1 H+ z* t1 s4 V$ u* q# a
    Cell[BoxData[, O+ m1 h& E9 R8 a2 y+ T
    RowBox[{
    9 n5 s6 i; M, R+ `( {! q  RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[",
    ; g. z' x, N) Y" \( F   RowBox[{"1", ",", "i"}], "]"}], 5 y% @$ D* J) T: Q
      RowBox[{"\:5230CM", "[", " C: N" ^4 `/ T2 p9 N3 v& x
       RowBox[{"21", ",", "i"}], "]"}], 8 a0 `+ T2 p7 L8 L
      "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
    6 N# v" W% J; ^\:51fd\:6570u1\:5230u21"}]], "Input",1 M1 G6 B  J: _2 q
    CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
    1 o4 q* K$ Y; g# f0 i- O2 t  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9, 9 x7 Y' w6 P) t, p: b0 T, y! O5 r
      3.577960526583145*^9}}],  j) ~( y# r% V, \

    " \& ^" H( T  e% x  g; y" mCell[BoxData[) Q0 s% S; `# |  H! O# h) t
    RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
    $ p$ z$ h% U: `) C+ s1 `! j4 w CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
    * ?1 D% t" r, S" r8 ~; m% I8 R* j% B$ F
    Cell[CellGroupData[{
    4 u9 r( R5 j8 P5 a. F! b9 x+ s, S" g% F! ~6 H9 ~
    Cell[BoxData[
    0 {( e6 ]& u) k# D RowBox[{"Xa", "=",
    ; S  `; \# T+ \2 ^8 F  RowBox[{"{", ! x1 g; ^$ ~% |  I: S1 b
       RowBox[{3 a8 G) Q) |' r1 R1 p" B$ }2 J
       "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
    , R2 u+ q0 i7 h: R    ",", "x8", ",", "x9"}], "}"}]}]], "Input",1 D! {+ l9 A* h% _
    CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
    * `7 W5 a1 N% E5 i8 }, g, j- ~5 @2 f/ k% e8 z
    Cell[BoxData[8 m( {3 g- N$ @& j/ t( w- E
    RowBox[{"{", 4 {# l# K1 @# Y& |, y. S
      RowBox[{7 N7 [4 ^; _/ B6 n( b
      "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
    + N" e' I: e" d& [    "x8", ",", "x9"}], "}"}]], "Output",  t/ H: y/ H! `: S* Z& D
    CellChangeTimes->{
    5 z$ ]  b: m8 t5 v/ T- I6 W  3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
    4 b" `) }4 K) D$ J- x   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
    8 o7 q) @1 X  l4 M/ Q/ L8 a* w; r   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
    - k& L, H2 E1 h9 z  U   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, # F- m# @6 }8 ?( l, M
       3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
    , O) b8 `! z1 R9 j   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9, # B" x0 f4 X' w, t2 d+ Y
       3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, : c# k: u1 T  v
       3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {: B, v3 K0 |5 [4 D( ]& q) Y, |
       3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
    , D2 h% Y' f. s$ P4 r& q   3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9, 7 W$ s& y! T3 D, {5 A
       3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9}, 1 m9 R! {" M- ^0 c# O
       3.57801215725*^9}]6 m+ ?) m9 y5 B# Z
    }, Open  ]]," b6 d  ?0 s4 d
    ) C0 W- ?- _5 Y" ^
    Cell[CellGroupData[{( u. Y5 }3 D+ F5 o, Z$ ]: B5 O
    # J4 L# Z6 l4 i! ]. z! |' L
    Cell[BoxData[
    # [) y8 d3 s: a. i) e0 o; [ RowBox[{"Ca", "=", , a8 w9 g8 P3 t! n. n3 R
      RowBox[{"{",
    & M. A3 ?& K5 p; D' d0 \   RowBox[{, l0 s3 C0 X: e( y, R+ r5 B
       "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ; D3 _( J2 E( J
        ",", "c8", ",", "c9"}], "}"}]}]], "Input",
    + _6 p/ w, y7 V2 o- b. b" | CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],8 P  E( w- Z2 P% N+ }: z$ R3 ?

    7 F# V& b6 P0 @9 }" s5 LCell[BoxData[
    / `$ Q: A) u" s6 O RowBox[{"{",
    3 F# h! U* C" m3 i! g2 f& _  RowBox[{
    ' W, g5 n/ m# f1 V6 y6 d! w7 E  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",- R) q* D+ T/ K4 a+ w' {9 n/ G, L
        "c8", ",", "c9"}], "}"}]], "Output",7 N: }! g% M  ^0 h( B! V
    CellChangeTimes->{  v6 n4 A( u$ y  h, S1 X
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
    0 o" }' }( a* p/ q   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
    # l" S9 O, [5 k2 Z$ o1 ~   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
    & M$ I9 h3 f) Y, s   3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
    ' v) [! _6 U  Q; |& x' B8 C   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, 4 {' a, G7 ~! l
       3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9}, 5 E( z* @4 `; Y$ \1 x2 R
       3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
    " q+ |5 }1 e- O) J& w; X5 W   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, 0 S5 m6 @( u1 c% p! y, E" Z8 O: z
       3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
    1 Q5 `! k9 W- O+ ]5 _   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
    4 u$ t, ?: R' U7 J   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
    $ a' q: O/ s1 K9 g2 W6 b8 S. H" W   3.577961904604212*^9}, 3.578012158671875*^9}]  D0 J7 U8 Z. @, k% m- e$ R
    }, Open  ]],
    8 v7 F1 P9 J1 \2 d9 J' O% y! H3 q2 P
    Cell[BoxData[
    ! i+ H6 {  Q, g+ P. z RowBox[{"For", "[",
    2 g) a" t3 u+ A' G3 ?  RowBox[{* f4 t& Q6 C4 U: C
       RowBox[{"i", "=", "1"}], ",", 7 X; T8 N: F) C% l: B; \' n3 B
       RowBox[{"i", "\[LessEqual]", "9"}], ",", $ H1 s9 D0 ~. C# Y% j1 Y
       RowBox[{"i", "++"}], ",",
    ) a2 X3 w: p. J! G0 e/ g3 x   RowBox[{
    9 F9 Z4 f! B' l' e# h    RowBox[{"Ca", "[", 9 a* [+ }: v, O
         RowBox[{"[", "i", "]"}], "]"}], "=",   a7 t; a) S* `% i# @
        RowBox[{"CM", "[", - R- T6 }( S3 `2 }8 F9 \
         RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    3 `3 @, f. M" B" i% I6 L. T- Z CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9}, 9 E9 [4 U( C" Z; ~% _8 P
       3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
    * O. J% j2 j, B   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9, ; `+ D# F6 r" o; U0 g+ N3 o
       3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
    - S) l% c6 K0 c# Z: P- _( F   3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, 6 u' w3 x. C0 p5 y
       3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
    . |: x! m$ Q% h   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9, 7 F% Q: O+ e+ V; e6 |. z' Y4 R& T
       3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
    # i8 G9 y6 D. C   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,   D' A/ F, t5 Z4 F5 I3 Z4 @( ?
       3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9}, 2 q& ?. N8 i7 a1 q2 C3 q
       3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {7 p. n9 z$ U6 |/ I7 b
       3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9, " j" w0 }+ V2 t( _8 I
       3.577961906897415*^9}, 3.578012176296875*^9}],
    7 b9 z& h8 r% f% L0 G) s! l
    * s9 S7 V; g% Z2 BCell[CellGroupData[{: @* r' j" I/ J
    & y& t( j; @+ q. h
    Cell[BoxData[
    ! ~' ~4 u4 ~; y: {' N' L. h RowBox[{
    & L. N7 G  S" M* I" c  RowBox[{"(",
    5 p& E8 @& y5 X   RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    % N% K. F) U# C& N6 e. Z  RowBox[{"(",
    6 g3 z. c0 b/ }8 b* k   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
    - Y. O; c$ q3 [
    ' Y- c# u8 M/ B2 TCell[BoxData[
    2 [  z5 a5 u0 _7 S) W RowBox[{
    % |$ z' Q4 n1 R& Q+ ~+ Z3 ~  SuperscriptBox[
    7 N5 {" a$ W/ X! P( b5 p! W% u   RowBox[{"(",
    , Y5 B+ I# o! a( D; L    RowBox[{4 p) e) {( W/ Q" y7 ^' [* `3 ?: r
         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+", ( f% ~. D1 u+ U- k& v
      SuperscriptBox[
    6 S/ @1 S  [% E6 H9 k6 f, P   RowBox[{"(",
    & e. P$ A7 j8 q1 x7 Z. }    RowBox[{8 r7 @0 g. d/ h. T7 V
         RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
    0 d7 V- C( Y$ R2 I8 e7 j  SuperscriptBox[/ y/ ~  r3 O. A+ ^- ~
       RowBox[{"(", 1 ?, H( I0 Z" l1 s, b
        RowBox[{
    2 t0 M# t2 \# K8 ?8 o     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", # m/ V4 k. f; N) ?5 h
      SuperscriptBox[7 Q. R" m7 e0 N$ ~0 _: m* z
       RowBox[{"(",
    & [7 I* C! O) ~1 L7 I5 I    RowBox[{6 V1 _6 b" r' _: J3 g, Y7 ?; X
         RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+", + \; t) Q+ h( j3 e9 L1 {1 n7 T
      SuperscriptBox[
    . ~* i* z1 g2 v9 ^   RowBox[{"(",
    0 X) z& X- I( ^2 X8 X8 {8 l- T6 I    RowBox[{
    * p( \8 ^) M; m8 j) M     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", " J7 Q1 [; j2 V. q7 ?+ l3 U" z3 B
      SuperscriptBox[
    5 B7 n7 M% q8 g  u7 m! a# B   RowBox[{"(",
    ( `4 K. d; P! E' g! v2 B    RowBox[{
    ( t$ R7 c0 G( @! v' p     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
    6 s$ Q& }: R$ r+ F7 ~9 v8 g) q! \: m  SuperscriptBox[
    7 x+ G- O6 t5 t1 S( P; t   RowBox[{"(", " j+ U( ?$ B+ L4 `6 M: ?" c* [
        RowBox[{
    # Z: ]; I0 _8 j5 x! u! U     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
    # e& I) V- f  j* e* ?  SuperscriptBox[" e% m4 a' G1 o& c' R, w
       RowBox[{"(",
    . f' m1 F2 F) B$ Z    RowBox[{
    - t5 K& H8 p! q: h1 k- E5 E, k     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", 0 ?' [. V8 J9 _: E9 S8 {: L
      SuperscriptBox[
    : e- g4 u) }' }9 v0 c5 c/ n   RowBox[{"(",
    2 h% g- |; v/ J+ r    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
    ; H9 g0 A7 {1 c% e' x CellChangeTimes->{
    ) G6 _; f" R7 B& x" y  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, $ r* c( x9 j, Q7 V8 }/ B
       3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
    : F5 O. w5 E. y2 Y3 [   3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,
    . n. m+ m% I1 ~, f   3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9, , j, @9 g2 [5 \3 B3 {
       3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, : a. C; L9 R; d- u! ~" Z6 X2 w
       3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,   G0 O9 a$ G! |( l# l$ d
       3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
    / ~$ S1 U8 y* j' c; B. H% h# S0 F   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9, + K2 t, H- o& d% O
       3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
    1 k5 h" b: A  T   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {/ N' P# [9 @! K- K" \9 J7 J
       3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, ; u/ b0 V7 q) m' a$ w
       3.5779618537169228`*^9}, {3.5779618846049767`*^9,
    ' B; Z( a/ s, K$ `. N   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
    4 q: H/ A) q+ S  \0 J}, Open  ]],
    8 d4 r9 C3 X6 C, ]1 u7 V1 I1 v2 T, {7 K: C3 u! f8 O
    Cell[CellGroupData[{
    ' ^  ~$ ?; B. Z. z- z/ J- D" d
    ) k/ x) _' o# C7 q% QCell[BoxData[
    : `* E5 N) {7 Q& c RowBox[{
    , x0 ?2 A1 R3 h. y  RowBox[{"Ca", "[", ' U( Y, @6 O0 _3 H! l
       RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",
    % W& h  |, Y6 z. l7 f$ ~2 O CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
    $ b% U- C! M5 `  3.5779616465173616`*^9}],
    ' o5 {" x6 B6 j' z" T' e+ a, q) x- |) I, ]$ T7 G6 @  s- a1 \4 _
    Cell[BoxData["0"], "Output",
    0 y7 C* m7 b2 b3 _) N. F+ x CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9, 2 p9 j! K/ }+ F
      3.5779616484049644`*^9}]1 V2 Z0 _9 s6 S
    }, Open  ]],
    / w9 V+ t! i( k- j6 K, u2 {
    # B/ E) o, |7 k4 ~7 @- X' ]1 TCell[CellGroupData[{: Q: v. m1 T' r

    ! |6 t" N" ?2 D2 ^4 w* {Cell[BoxData[" a, N  n9 J. Y' D4 z1 C
    RowBox[{
    ) F; ~0 [& {3 {- `  RowBox[{"Ca", "[", 3 [! m) k1 V3 k
       RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",! [6 W! l& X3 O" M! v
    CellChangeTimes->{3.577957376235614*^9}],
    4 `7 J3 H% V) Z; a
    " I  S/ T7 C& T6 B' gCell[BoxData["0"], "Output",
    ) `) k. l+ b; x2 U; O" s CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
    6 _: l2 N$ Z; B5 X, t}, Open  ]],4 W9 b  B: d- O" `

    / O9 b: X# t2 XCell[CellGroupData[{
    5 B; [6 z0 j: t/ C0 }: ]: O! E* e3 y6 \+ {" h7 F- o
    Cell[BoxData[
    * K+ f9 f8 K4 ~2 T" M4 _* m RowBox[{
    $ q8 r: A# w( [+ l! G! X  RowBox[{"Ca", "[", 0 t+ F5 u0 s, _  b$ p# ?
       RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
    * o) |* L* Q1 I8 V CellChangeTimes->{3.5779573112927003`*^9}],
    9 j- r$ q; e, d/ X  e: G7 O, J& q9 V7 v8 H; L
    Cell[BoxData["0"], "Output",
    ) u( h; x& Q! Q, t CellChangeTimes->{
    ( t. |2 q* s" A; \( s6 o  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
    0 q8 [& C5 A& L" g; ^   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9, ! h6 j+ E% J* |. w# r! e' `
       3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9}, 8 ]6 A5 l% [7 w0 \- r# r8 W& E
       3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9, % b* c$ r: v( L2 X- v
       3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
    , A. [; j+ J4 h1 [  ^   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
    ( k; x  a) c1 U}, Open  ]],
    $ U. t: l$ M; Y; Z# S, p- C, N% |9 E1 m" r/ X; n
    Cell[CellGroupData[{4 l+ p& g& h. u: g( w
    ' x  w% e" ?) r
    Cell[BoxData[
    # y4 H4 F+ B, @! ]% b RowBox[{
    , j4 p# v- ~4 H4 s; d  RowBox[{"Ca", "[", 1 f; C6 N) M5 U8 Y$ A# v0 K( h
       RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",$ B5 v6 B& u* \, F
    CellChangeTimes->{3.577921461734375*^9}],5 ]5 n5 }8 e% T( u( H( m

    ! n2 j4 `9 g" E/ T# ^- t' ]; kCell[BoxData["0"], "Output",8 @; `# m% v0 w8 u4 |; Z2 m
    CellChangeTimes->{, T+ V% H' l* M$ c
      3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
    , ^. A) r* R& ]& o* {   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
    / B% w( [+ {9 t  }, q9 V$ N   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
    $ D8 q+ Q6 Y& j# L: n6 F- Q   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, . I7 A9 C9 s# z1 P" |& E( V
       3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]5 Z' a0 e8 V, d" b
    }, Open  ]]," u9 [  v1 [! T& d- l

    7 {7 o" Y, |2 @Cell[CellGroupData[{( Z& g0 e1 c2 }( u1 X4 X
    - E6 _% |8 h! v, j  h; W- b* A3 h
    Cell[BoxData[
    - @9 U1 N0 n; c( `, _* h4 e RowBox[{
    5 Q6 E( ?) V! D+ v# ~  |5 R, q  RowBox[{"Ca", "[", $ A# ^# c; [. v
       RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
    : M! R+ q; h  ^( A/ H CellChangeTimes->{3.577957303118286*^9}],: \; a9 x1 ^/ `

    5 ^3 U- |  z+ T9 l- d) FCell[BoxData["0"], "Output"," d6 l8 K# J4 c- v. Q
    CellChangeTimes->{4 a* g  X- S3 ~/ j- S. `
      3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {4 b3 a1 ^7 _; U) D3 v" V
       3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9, ( }' V, N1 m6 d% `8 L; \0 n
       3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
    : v; t9 h& F% V   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,   a/ k4 M1 v' l1 m) c4 S# l# c
       3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
    7 _( K+ z+ D5 |1 ^* f   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
    4 y( x9 E8 R, Q. s/ C' _   3.577961889378585*^9, 3.577961912965826*^9}}]3 h2 g: i; ]  ]8 ~
    }, Open  ]],4 F8 Y' p) h+ r$ Z' O
    $ L" L3 R9 _9 u( F
    Cell[CellGroupData[{! k# \! y- k1 _7 I4 o* V" ]

    3 n4 v3 }  o  j9 _: OCell[BoxData[) \$ N. W  W; F. W: \; b! k
    RowBox[{* ]6 j. }! Y, _) n9 b9 K+ Q  @
      RowBox[{"Ca", "[", 7 @$ l3 C! \) S! ?% B
       RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
    & |' Y9 l" ~- [3 L  W$ b# M CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {  G% d. }% Q* b9 X
      3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9, ! N& i+ S! y) U8 O/ Q0 D, `: r
      3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
    , ]* z$ d6 v6 \0 p. Z( x$ o  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
    7 e3 P' z5 }& d$ a' x6 K' l  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {1 ^& w9 a+ Q& L* g  U
      3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
    - ?/ M5 N, e0 }" J3 \6 U  3.577921435703125*^9}}],
    * B4 o9 |% P& ]9 ?- d' o4 F: i8 ]" J! I4 H
    Cell[BoxData["0"], "Output",
    2 I' I$ Y! M$ ^& E3 ~# C  l  o CellChangeTimes->{
    : U2 P- s" d* W6 u5 g' q) }* Q  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {5 ]  v( q" T# ]5 H
       3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, ( g5 X' o8 ]8 j# H/ L
       3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
    $ q5 ?/ `$ c. a& \5 D, I   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, 0 b2 a# g: s: D4 h# \: M
       3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
    5 u9 ^* g$ K- I/ s; U   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
    / \( E+ W# Q$ ]( G. u. W   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9, . M" S+ N' X( q7 N" V$ n
       3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,   Q2 s6 [7 [* y; s0 Z* y
       3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
    , \+ o* o7 F7 l   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
    9 Z/ d8 C0 }4 x9 i6 u, u   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {. Q8 y  Q2 R" }3 h2 A
       3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, & ^% Q& {5 o1 k& T. l! J
       3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]! i, H+ o. Z! w) ]' v! _2 e+ k
    }, Open  ]],. b. {4 }+ a( L/ b2 r
    0 q6 i  E( t5 Z) r, E& z7 b
    Cell[CellGroupData[{1 T( p! h' A6 [

    + Y# ?, V3 S* X, E; B" f3 R# lCell[BoxData[
    - U- l- Z1 E9 |! \0 M* f RowBox[{"Delta1", "=", # K8 t, w2 M& _% M! k
      RowBox[{
    , g2 b3 P0 N3 n4 b* `   SubsuperscriptBox["\[Integral]", + ?; p) B/ ], r% Y- X) s
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ! h) q7 r6 A2 X/ ~
       RowBox[{, k# _3 g1 l. C# F) p
        SubsuperscriptBox["\[Integral]",
    , F- U+ f8 l' U) P- b     RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 6 U  A8 e4 A# u3 V  D) h: \( J0 a
        RowBox[{
    + U7 d  y* ^- w' Q     SubsuperscriptBox["\[Integral]", " C- [5 _. @6 e) w0 E! b8 W( U3 e
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    4 T; T, [6 c, N) R$ _9 S/ J3 X     RowBox[{
      }7 P2 ]3 o& _: g: J0 N0 N      SubsuperscriptBox["\[Integral]", 0 P. g+ L; s3 {, m: Y) w6 d0 T" n' H
           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], # g) X1 f6 Y% b& k$ U( ^3 N
          RowBox[{
    : o- m0 F, G. y. s  b; ^. L2 p       SubsuperscriptBox["\[Integral]",
    5 u( {) J$ ~1 `1 j8 Q& B) y        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    . p9 s6 i3 C3 V       RowBox[{: C& C2 i! E; D; K
            SubsuperscriptBox["\[Integral]",
    ( S& ]; P# A$ O6 d/ a  ]: G( N: t         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    % x1 U1 f) V' M/ F1 M        RowBox[{1 x  C* q5 O. R5 F% K4 M8 ~0 Z6 B
             SubsuperscriptBox["\[Integral]", # l  T0 R' u( U  e) D
              RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    2 U8 n/ k1 {& F: R% [8 A2 w4 N         RowBox[{( N! t2 D+ _+ t# A, m# v( V
              SubsuperscriptBox["\[Integral]", " r* I* @$ j' h5 R
               RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    6 ?# m+ N) E( G3 j7 N          RowBox[{
    ' p9 |! N0 l6 B, u           SubsuperscriptBox["\[Integral]", 7 ^$ p3 Z, C1 P2 B) d" B8 V
                RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    4 T/ X4 o1 B9 _! ?           RowBox[{9 ^3 G; C" }  c
                RowBox[{"Exp", "[",
    ; N! p8 M1 R0 m; i             RowBox[{9 v% D7 ]) C1 i# `' G
                  RowBox[{4 s7 |$ h1 Q5 Y# n! p, m
                   RowBox[{"-", $ h- L( s+ B: i" c) y
                    RowBox[{( C' r5 U  J2 q: \4 G& A
                     RowBox[{"(",
    , z0 }" i0 i5 P" ]                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".", % N3 w; @7 x2 r0 W( n- R# T
                     RowBox[{"(", $ I. Y8 B! d& M5 y  v
                      RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", , H6 U0 I1 I$ p8 n
                  "Delta"}], "]"}], ) F2 H& I1 o# Z% ^
                RowBox[{"\[DifferentialD]", "x1"}], 7 X% G% R  J- {! X
                RowBox[{"\[DifferentialD]", "x2"}], . y. K. f0 J7 e# w) r
                RowBox[{"\[DifferentialD]", "x3"}],
    6 L+ R: r. h- p3 E& s6 a            RowBox[{"\[DifferentialD]", "x4"}],
    . V, o( k4 f& b7 x) v" F            RowBox[{"\[DifferentialD]", "x5"}], ; v, h# ]/ W) ^; s* \
                RowBox[{"\[DifferentialD]", "x6"}], ; V& p4 c& p" B  I
                RowBox[{"\[DifferentialD]", "x7"}],
    ! E4 x6 [. X" ~: N2 \            RowBox[{"\[DifferentialD]", "x8"}],
    ; |8 B8 A0 ^9 k6 P" Y            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
    & Y6 U8 x4 U: V/ s) Z; i CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
    " F! e; M# R7 D1 p   3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, # f1 F, T8 E# Z+ b  i" _
       3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
      k( C( S$ Y3 F# w9 q/ v. f* K- ^   3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9, + I# t% J# y, c' D$ v
       3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
    5 c% S  m" ~6 R5 r. m   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, 0 d) @2 K. N5 `0 j- m$ b+ \2 E4 h3 ~
       3.577918964453125*^9}}],6 N7 U6 z* f1 Z4 m5 v
    + S5 i' M8 G9 E; V3 p! E" T) B* U4 G
    Cell[BoxData[
    $ ?8 X/ X9 ^; S RowBox[{"97.40909103400237`", " ", - A. s  F; }6 z) H  ^
      SuperscriptBox["Delta", "8"], " ", " `" I- ?0 H& Y) z
      RowBox[{"If", "[", * V$ v; k' x3 D0 J! N8 s' d
       RowBox[{
      h% \3 H5 V. E( @4 M% Y    RowBox[{$ \6 k, n( X% i3 `
         RowBox[{"Re", "[", 6 I) s! M/ i: x  q0 S
          SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",", . _: i+ L  V% D
        FractionBox[7 H- O& }' t) }( [1 Q3 }
         RowBox[{"1.7724538509055159`", " ",
    2 O* g5 [+ D! p      SuperscriptBox["\[ExponentialE]",
    / P' E( |% @. [       FractionBox["1.1102230246251565`*^-16",
    + P  c- Z. t3 L) ?1 L        SuperscriptBox["Delta", "2"]]]}],
    7 t# x* t! v5 F     SqrtBox[
    ( G% ~* I% O( f. W, R      FractionBox["1", - |( u+ J  g7 @0 |
           SuperscriptBox["Delta", "2"]]]], ",",
    $ b, G# g; T* Z1 u    RowBox[{"Integrate", "[",
    # r, _, J3 S6 R; Z7 U* m$ A! T     RowBox[{
    ) k$ }8 x: b' s5 w# F! P      SuperscriptBox["\[ExponentialE]", ' j6 Q  c' P/ R$ V8 B+ ?
           FractionBox[
    / K. r8 V) T3 P$ g2 p1 N# _" }8 X        RowBox[{"1.1102230246251565`*^-16", "-", 0 I' `" Y7 S' W" t1 U$ h
             RowBox[{"1.`", " ",
    9 D1 U' K1 _0 W          SuperscriptBox["x9", "2"]}]}],
    , J1 S( k& \# d+ I1 s. \        SuperscriptBox["Delta", "2"]]], ",",   w* l5 m, K; ]5 @
          RowBox[{"{", ; K0 y' t# _0 Z( U* J8 ~) o+ m
           RowBox[{"x9", ",", - R# |  L4 e) [6 B7 N% J% t
            RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
    8 e& _$ N6 A  C5 Q      RowBox[{"Assumptions", "\[Rule]",
    - W9 W, k+ y2 K1 P) j       RowBox[{9 F" e8 M! T( X% _3 G0 X
            RowBox[{"Re", "[", 5 |* ]1 e! r8 ?9 e" Z3 c3 G7 i. w+ s
             SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
    . y( X* L1 b" z, }     "]"}]}], "]"}]}]], "Output",9 f; S2 Q1 F; W1 J6 @& q8 L
    CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, 2 a% U+ U3 B# K3 o: l' b
      3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
    % m6 Q) y2 E/ F* p% N  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
    2 W" u9 h9 \2 l8 ~- }3 \- w  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9, % n" c( ^; U3 w1 w1 U; j
      3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,   \8 S' S; d/ `; G* C
      3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
    % R3 s0 e1 g% D  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
    * S. R9 ?- {0 L5 _( r& f2 G- ~}, Open  ]],
    - @% E) u/ P  T& I4 v
    9 M/ S; u) L( [Cell[CellGroupData[{
    + h; ^" o2 ^/ p) H5 t2 f! |1 H$ y1 ]$ P9 a% G
    Cell[BoxData[5 P. S% E& a7 l' {! p8 r/ [7 B
    RowBox[{"Delta1", "=",
    1 s8 N, U( y! o" i7 b  StyleBox[3 A  x( x4 Q9 l5 g# C! k, d- ?! {
       RowBox[{"97.40909103400237`", " ",   T2 h% b' d: j1 F+ ?% _
        SuperscriptBox["Delta", "8"], "  ", / }+ o7 _% R6 S: J/ @
        FractionBox[
    ! |6 E5 I/ S2 X     RowBox[{"1.7724538509055159`", " ", 8 D0 q. ]: ]% A2 D5 ?* N
          SuperscriptBox["\[ExponentialE]",
    " v* V5 u: ^/ Z) S6 E9 E1 P       FractionBox["1.1102230246251565`*^-16",
    - [5 D5 F+ {; r0 B' L' n        SuperscriptBox["Delta", "2"]]]}],
    3 \  L, }( x- V" x     SqrtBox[4 ]& }1 v$ E" I% h' z
          FractionBox["1",
      A8 \" Z, [: J( O& [       SuperscriptBox["Delta", "2"]]]]}],
    . e$ ~, A6 @0 f/ v7 q   FontWeight->"Plain"]}]], "Input",
    ! R/ c  t7 [# ^& V! ~3 \ CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
    ' n8 C8 p+ v* r  R6 ]2 d   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9, 5 V3 _' C) @* G" w1 B' l, R
       3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
    6 i2 W* g' U& V3 I' _8 n   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9, 3 O4 ?' f9 ?# H: M5 q
       3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9}, : \1 f$ e2 o. u4 i4 M
       3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
    - Z# P. y% v. Q1 u  V8 P
    8 G8 X, G' C; n  n) MCell[BoxData[
    $ c+ \. f5 i5 D4 } FractionBox[& A- B5 K4 A0 ]5 `  l
      RowBox[{"172.65311851642346`", " ",
    1 H6 ^3 L% A& `" S6 i# I! o   SuperscriptBox["Delta", "8"], " ", " {. o4 N/ S; E
       SuperscriptBox["\[ExponentialE]", 3 B/ ~- l4 @/ c* Q
        FractionBox["1.1102230246251565`*^-16", $ h$ g# V5 i9 h3 C1 d9 B- F( q8 q
         SuperscriptBox["Delta", "2"]]]}], 9 i2 k: n: g9 G+ Y& Q
      SqrtBox[
    7 @% m- _3 J4 K: w   FractionBox["1",
    , ^" e6 f* ]6 P& \/ r6 O% J. A4 l3 T    SuperscriptBox["Delta", "2"]]]]], "Output",$ }1 Q' Q# H5 r
    CellChangeTimes->{5 x! f( ~5 n- V+ B& o
      3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
    + e$ W1 B  J0 \   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9, ' A$ h' L" q) T$ O( x& q
       3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9, / o3 N- T: n8 _0 v
       3.578012166234375*^9}]/ j4 c0 d) y  E& x
    }, Open  ]],* R3 S0 T/ `" S" v! x; s

    0 u, J$ e' F% e; ]% C2 FCell[CellGroupData[{5 S6 l; k- z' f! H2 M& H; D/ c
    " c; A# A* ~% k6 e
    Cell[BoxData[
    - x+ T, U  H+ w RowBox[{"DeltaX", "=", 1 \1 r* J: V& {# ~; L
      RowBox[{"FindRoot", "[",
    9 w: i, V0 M; r   RowBox[{* K' a9 ^) t* T6 K  G6 h% S
        RowBox[{"Delta1", "\[Equal]", "1"}], ",",
    7 c. j# B0 ~2 Z6 D+ p. x    RowBox[{"{", 3 V- N$ H4 u; `' D$ b2 j
         RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",) U) C4 u$ M# k: Q* C
    CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {+ q* S# f- n8 x
       3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, ' U: E4 y- q, j1 F, p% F
       3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
    9 ]& l5 p' j0 d3 U. Q   3.57791921584375*^9}}],$ q, l/ o  v1 h% i" t* @; W

    8 j1 @, _4 u. _& D9 WCell[BoxData[1 z: n/ N8 ?/ y- X. B/ O5 u7 \
    RowBox[{"{", ; D$ P5 U& M- O5 e; U
      RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",% ?) @2 r# o/ n# M
    CellChangeTimes->{, C& m) A3 B4 h5 v- `# I. H. j" ?
      3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9}, 9 H% F9 {1 Y& \# E) i9 s2 E# O
       3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
    # h/ M) P6 K; u/ V   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
    5 ]5 _  _6 v/ i   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
    3 s4 C% I) c4 `   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
      F; V' Z' b+ h# h& N   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, ) q6 O+ \6 W, S
       3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9, 1 l( F( ~6 Y( b5 a
       3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,   V, J$ Q$ `& r; R" o
       3.57796070150625*^9, 3.578012167703125*^9}]
    2 R$ J" q3 n; i4 j- K}, Open  ]],8 v7 C3 Z* a* f9 V3 w

    ) J# J" X9 ^+ W! R" vCell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
    % B3 v* b5 c# a2 [8 v% l* {\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",6 a) ?2 W" V) ?5 V. A+ W
    CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {& w/ _0 z7 k4 A+ w' U8 Y* D' S0 e+ B
      3.577960705312657*^9, 3.577960707621461*^9}}],* b) g+ n/ W" G. ?% i; F0 ~6 Y
    ' @. `, |9 s: V& O
    Cell[CellGroupData[{0 ^0 w- h1 F1 g, T$ e& E- r) T
    / ?9 v" ~' D2 t+ [3 n9 Q$ ]; D
    Cell[BoxData[
    2 ?5 |! I/ d  V! Q# n3 X: ? RowBox[{"C1", "=", "Ca"}]], "Input",
    2 ]0 C7 A$ ?2 D- u3 F2 x% o CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
    9 K6 s1 L$ ]" ~  A7 ^# L
    / ^: i1 A8 \1 U% tCell[BoxData[
    * f1 \+ t9 M/ p: }& T# Z; x RowBox[{"{", 3 n6 O, Y* n  ~0 t( w; C
      RowBox[{  q* d& |4 f' L0 _& q- X- J4 b
      "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", ! K( N8 r: d$ ]( p8 M* Y2 V
       "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", 0 Q2 A8 J/ E+ v+ b9 N5 p6 {- D# E2 d
       "0.`"}], "}"}]], "Output",: ]/ ^, x" {4 b" D- j
    CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, 8 x9 l2 s1 ?. [: k
      3.577960710273465*^9, 3.5780121855*^9}]
    3 W& n- z5 f2 l- c; a: e1 O. k6 d- r}, Open  ]],7 D: E0 e, a! [6 ^7 A2 J) Q) F- a
    7 a3 e1 |+ P; d( O
    Cell[CellGroupData[{
    3 k# L7 x$ O: p2 g5 F- e
    0 K+ }, _! I) }2 L0 w0 C% UCell[BoxData[
    / _: x- A, z. u; f1 d RowBox[{"u1", "=", / y; T7 z+ T% T* H2 _& {
      RowBox[{
    ( y" ~0 I' `+ e% ~) `4 W   RowBox[{"Exp", "[", 9 T' ?$ K2 \/ D2 B# h
        RowBox[{
    & r" Y+ r# M* @& k2 a     RowBox[{) K8 d$ \7 A: D9 z0 R
          RowBox[{"-",
    ( b$ @4 T! L5 z6 k8 ]: N7 O       RowBox[{+ X% y) r6 n8 J/ p# {3 O
            RowBox[{"(", ; g- ?1 T  U7 }& I2 _) L$ J( Z* \
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    3 G8 j3 G$ [7 Q& @0 x0 U        RowBox[{"(", . V7 a  [& d2 u; Z" H7 T
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    " z, ~7 M8 F6 ~) G     "]"}], "/.", "DeltaX"}]}]], "Input",' ?/ _- z5 X( F) t5 u$ L
    CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
    / g$ P5 ^6 [. F) m/ s   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {( W; I1 }" W8 {- a
       3.577919193484375*^9, 3.5779192326875*^9}}],
    & ]" @- v4 f7 X" ?6 W. N& v1 ]: {# T1 c& K; k; o7 d
    Cell[BoxData[
    * n% F5 r5 A& O$ c SuperscriptBox["\[ExponentialE]", 7 [5 z4 q0 \& u6 u
      RowBox[{"3.141592653589793`", " ", . u8 [+ u# ]( U
       RowBox[{"(", # W" q6 W& [- h+ q
        RowBox[{
    - k, X0 M8 t, }7 R0 e& M$ q     RowBox[{"-",
    + X% q1 G- M7 l! e! E2 j- M# g      SuperscriptBox[  U' k/ J: t* |# r2 ~  Z6 S
           RowBox[{"(", * c% c* _! h+ F( R- ?& T3 F2 w
            RowBox[{! M1 G, ]: G+ o% h% Z/ g. s% I
             RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 v  v% m3 q& e! ]( I
         SuperscriptBox[3 ~7 m, C2 Q; h0 W5 M+ V
          RowBox[{"(",
    $ F/ \2 I, l' e  b. a       RowBox[{
    & `* }3 o4 Q+ f$ B- f. n0 }        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
    5 i: e; Y2 i# Z( B0 O$ }     SuperscriptBox[' Q2 @6 q4 j' U9 p
          RowBox[{"(", 8 h, W8 ^: s  J, Y8 _3 ^% V5 U
           RowBox[{
    ! @+ V, x! H" \        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", 2 F8 A7 b% W9 M' A3 [$ D9 l0 Y
         SuperscriptBox[
    4 V  k, x  b, N8 U8 b0 [6 p& {      RowBox[{"(", ! r/ d0 K& C8 o  G2 }, u. U
           RowBox[{) g9 b2 `" r9 v5 w2 h" o  Q! ?
            RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
    4 X3 T) L! Z1 ?. M     SuperscriptBox[, Z. f8 U% t$ f7 n8 v
          RowBox[{"(",
    % b, n) ~5 T2 i       RowBox[{1 x6 P/ h, j6 R" @6 v; w* A* D
            RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
    8 g  _* i' D) r) v% v' H     SuperscriptBox[
    / e- Q  d) U& ^5 O! H0 T2 O- N; P      RowBox[{"(", 2 d+ X/ f$ W* L( u) |5 z: t; j3 P
           RowBox[{
    6 z; z9 E" O, Y- N        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
    4 ~  k( ~6 O9 X% Z( Y8 v     SuperscriptBox[
    1 w! ?4 ]2 Z& B      RowBox[{"(", 7 ?1 o3 ~0 N: L3 ?& T4 s
           RowBox[{
    5 u/ C9 S- L6 [% K, S        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    $ _9 s7 M2 y4 ^6 v4 M9 K& a     SuperscriptBox[8 I/ [/ K8 Y( c
          RowBox[{"(",
    ) F. N1 R0 d3 W4 z( X       RowBox[{) `6 n3 [; g: Q' X
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    1 D. T1 p; x. u6 y5 ^     SuperscriptBox[
    . A6 X$ O: c( G6 d5 m, h( t3 ^      RowBox[{"(",
    4 E0 @9 |# w  l0 _       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ( J- E/ ]0 ?* K0 b0 M  s. `
        ")"}]}]]], "Output",0 \0 x, {% d( R7 Y! r4 }" h8 E9 G% A
    CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9, - K* X' o3 p8 c" e- ]0 Q! B2 i, k
      3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, & D9 @( ~3 p8 T8 |6 q& M- l
      3.578012187078125*^9}]% k4 @  B  J/ e' o9 M
    }, Open  ]],# d2 @, v1 g2 Z3 f' R8 w( g( O4 h6 U

    ! @9 j! ?, ]( Q4 V4 nCell[CellGroupData[{
    / p; H' \1 m. H, i' `( |4 m& Q' G5 n6 K  K' ]8 U& O
    Cell[BoxData[) A3 Y% R6 n# \7 Y" D- s
    RowBox[{"C2", "=", "Ca"}]], "Input",% R, R" T* [) N5 B1 q
    CellChangeTimes->{3.57792047321875*^9}],
    # E: _. Q7 w9 S& r8 P/ D' u5 E/ S; Z! W& J' F/ \
    Cell[BoxData[% m' b5 K" X6 V, H( g3 j
    RowBox[{"{",
    : ]) U) `* J, s2 Y& c% Z# R0 i+ x  RowBox[{
    . j1 l$ C% e6 l5 s$ s& |  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", 9 Z$ ^1 S3 f! n& e8 ^6 H: H0 O9 E
       "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
    * s2 ^) a# J/ J7 j  "}"}]], "Output",6 D8 t9 i( ~, K+ W* |
    CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
    % Q" m+ @6 h' X, Z: H6 ]" Q  3.5779607401163173`*^9, 3.578012204671875*^9}]9 h2 @& g6 c% O" r& \  Z6 r+ ]; M! M
    }, Open  ]],. S# m: \! B7 k# C" c

    $ ?$ p- ?8 T; s* P" lCell[CellGroupData[{/ h0 G, L5 z( H3 B2 m/ i6 i

    5 T& Q( l$ k- [Cell[BoxData[# P+ _" I3 m: C3 V6 @
    RowBox[{"u2", "=", , z5 ?0 @4 C# T3 u# X7 T: a5 }
      RowBox[{: m$ p; |. A" A' Z' v3 B
       RowBox[{"Exp", "[",
    3 q" y6 h) c4 `6 j    RowBox[{
    ( `. H( b3 v- w     RowBox[{
    3 |( p' ~; C7 p' A/ R& K      RowBox[{"-", 6 n& C% T; l4 b* @6 M/ r
           RowBox[{. V; j5 w+ H; c
            RowBox[{"(",
    ( v& K& h0 W$ s4 u) a- z         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ; N- Q+ v; B0 }- M7 i        RowBox[{"(", " N" ?1 ]" o' y4 U& s6 D8 H
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],) e: l. U. _% ], M% g
         "]"}], "/.", "DeltaX"}]}]], "Input",2 j! T; X! [" ]7 v
    CellChangeTimes->{3.577920484109375*^9}],
    * A; D, f  N% _! G# d
    1 {0 Z1 p& [. t# b9 e5 _Cell[BoxData[
    4 C- c2 ^3 i8 b4 ^ SuperscriptBox["\[ExponentialE]", 3 v; H6 U" i, Y( m& s1 B" z9 Z3 H
      RowBox[{"3.141592653589793`", " ", ) y: c/ q  I1 I; {. f- f9 g
       RowBox[{"(", 9 x9 C; k' f* E! I$ Q! K
        RowBox[{
    ) X' G5 e+ e/ U1 i- P9 B  o+ K     RowBox[{"-",
    * C6 E5 w$ m) n9 s      SuperscriptBox[7 S: K# }& P& v1 O- }
           RowBox[{"(", 4 k( s+ b$ W6 P8 s4 U* [' a
            RowBox[{' ~" `% y8 Y& W
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", + m7 j) r1 e5 W1 U
         SuperscriptBox[- U9 \* [) G& w
          RowBox[{"(",
    6 t. Q; V5 [8 O$ r  s       RowBox[{
    , S2 E( w' H& t        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", / \5 j7 l6 c4 |0 b/ a" x" s
         SuperscriptBox[
    0 j9 V9 K" W8 \8 A+ `0 |2 }8 C      RowBox[{"(",
    ' r, A( y& n1 x7 n+ `0 A3 f       RowBox[{) P6 I8 A5 v6 X
            RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", . C) o/ F6 @4 C, H
         SuperscriptBox[3 k: o7 p. Q+ `5 g8 u6 W) `
          RowBox[{"(", - ]; f) G  C! O5 O" j- d3 j4 W
           RowBox[{3 ?8 m: n3 l( }$ h. _7 D: z
            RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",   a; q( t- `- ~3 Q- [7 N) w
         SuperscriptBox[4 I' Q+ p- a8 n1 Q: u
          RowBox[{"(",
    + S: r; A3 m2 N7 D  U7 y! W       RowBox[{) A0 {6 r) z1 s9 T( l; W! h
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    . D0 m7 N8 k  ~9 S2 D; N6 ?     SuperscriptBox[% I% ?2 N/ p  c* {8 e  x
          RowBox[{"(", 3 j6 |# W/ G' t" K
           RowBox[{
    0 t8 s) E% \% C        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", 7 D% H! L" S( e& W0 q
         SuperscriptBox[" o6 H' a. J3 {3 P/ }" L
          RowBox[{"(", ! S; u( _* \, y( ]! H
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    4 S% Y1 b3 d7 s! s; ^8 A     SuperscriptBox[
    $ p4 `7 b) a- B9 _7 {+ B      RowBox[{"(", # h& L% ]4 u) Z
           RowBox[{
    * s- h* [" P) m) M9 O3 A, N        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", ' ]* |7 q/ M7 ]9 g
         SuperscriptBox[
    / M& W7 c9 h3 D) ^# h0 S5 h      RowBox[{"(", " p* w( X, U1 u% u/ _9 ?# m
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    / G6 u9 [5 F& T' D7 B3 P& a    ")"}]}]]], "Output",' k2 k  v. h* u- ~' y
    CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9, - t4 {! @" {. A; [: b
      3.5779607413955193`*^9, 3.578012205484375*^9}]& \7 K+ M3 I- r1 r1 B, u  y$ S
    }, Open  ]],
    / x3 W( R" V6 h, X+ B  R, U
    * M% B& k& i" ?2 R; u, m& ECell[CellGroupData[{- g* ]0 q( E8 A

    3 U1 p3 O( M; p5 Z9 X' {. m4 cCell[BoxData[
    5 C; F) a, t1 T: S9 O& g. ~ RowBox[{"C3", "=", "Ca"}]], "Input"," |) A' L/ k3 ~, C2 q4 c2 e
    CellChangeTimes->{3.57792064125*^9}],* \& I6 z1 ^7 B7 M. b* ^1 p
    5 g: D3 G6 `$ E: ~" H7 ]
    Cell[BoxData[
    # ~; b0 s# d6 g, \ RowBox[{"{",
      V& `% M) x+ L! r3 H- H  RowBox[{
    , a0 J) l8 R7 K4 e% j  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",", ( j$ p0 \* T& c3 @3 Q5 @
       "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}], 9 o- N! Z8 w- C% l. N5 @
      "}"}]], "Output",
    3 J9 u; A9 G# P  k5 |+ Q9 G CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
    ' U$ S6 L, |. [9 u) X9 ~: i8 S; U  3.5779607642027593`*^9, 3.5780122103125*^9}]
    $ P: b# m% {6 N* L5 j! x}, Open  ]],) j6 [$ B4 f/ w6 V! D# q9 k# C
    7 x) o( H$ f, m  v( S$ \, W# n
    Cell[CellGroupData[{
    ( S- _" b/ F- p5 G5 l3 O( i' \
    - t, B  r2 h! D4 h+ O. e) L$ wCell[BoxData[: [( A, D* x5 U  f2 |5 q: |
    RowBox[{"u3", "=", " m( V3 N3 G+ i+ E! G
      RowBox[{
    + h! q+ L) V3 S5 H; ^* o- O   RowBox[{"Exp", "[", ) q3 g9 |8 o/ }7 ]- A  m
        RowBox[{% m0 P7 q/ |. s7 G8 f* N
         RowBox[{' f% F6 n% Q4 f5 A, M4 I
          RowBox[{"-",
    $ i! q7 k& p* F1 z/ t       RowBox[{
    0 x, O2 w( @8 o0 X$ \" r        RowBox[{"(", 9 Y$ L2 r% S: V2 r
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    & ?' ?& ^2 Y/ Z+ x/ F" G4 q0 w! A6 p        RowBox[{"(", ' o$ W- D4 P; x- M8 s& M2 ~
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],. i$ r$ x. q5 c- U! i, M
         "]"}], "/.", "DeltaX"}]}]], "Input",- t7 }$ I' Y6 E8 D+ `
    CellChangeTimes->{3.57792064921875*^9}],
    " p! b; G1 w% k) i2 n/ }+ p
    ) V9 y0 e, s( S& @- y! fCell[BoxData[
    + t5 Z( q6 d5 h- J$ W& i SuperscriptBox["\[ExponentialE]", ! x7 ]: `  Q& U2 p" [
      RowBox[{"3.141592653589793`", " ",
    - ^$ m* e- i/ Q2 `# [7 H4 t/ {   RowBox[{"(", " T5 s! a8 F/ J( v/ Y
        RowBox[{/ ^# W$ e+ t5 f
         RowBox[{"-",
    4 e5 t: P7 P0 v! _      SuperscriptBox[/ j( c& }" z. T
           RowBox[{"(",
    % Z, b; C- C% E; _        RowBox[{
    # c+ N; S: v% X( Z$ @: {         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ; Q0 |2 c: E( Y" P) U0 B: L     SuperscriptBox[
    % W/ M6 \: r) m* a; [8 \: C      RowBox[{"(",
    $ o7 B* Q& n6 J5 g: L6 I$ P       RowBox[{
    & e) O+ k2 q- H, f8 s6 d        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", ( x5 B; f) L9 N; _
         SuperscriptBox[
    9 l6 I* @, R# o) w      RowBox[{"(", % t: I% x' V7 O+ l- {; E1 B
           RowBox[{# _- j# ]9 a& F! d
            RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    1 |) ]+ o6 L  q' f% q# e$ f     SuperscriptBox[
    ; R( K" x  V9 D& u      RowBox[{"(", - U% r& W7 C6 k! d2 \$ F
           RowBox[{. S; |/ Q3 W8 ]1 r8 t4 B
            RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", ) ^' s. t7 f+ A* g; f, @1 C. A3 r
         SuperscriptBox[# X2 P. y) w1 p
          RowBox[{"(", 2 k, t8 {8 ]2 d- j+ M, o
           RowBox[{% w8 K- S/ D0 n$ a" w
            RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
    3 f+ x3 W, R& b9 o     SuperscriptBox[
    : v5 {( P' a4 q2 u  i4 b      RowBox[{"(", 4 h5 [3 I& C( N' F
           RowBox[{6 _6 G& Z2 v) ~9 P
            RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", ; ?% ^8 @9 L$ j5 G6 |: h9 J
         SuperscriptBox[
    $ F* @  H( Q& b      RowBox[{"(",
    , F  Q# w; g" T+ }4 N3 e" t       RowBox[{) ~+ c( L- {" w, O9 b
            RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", ! `8 I. W$ E* w1 k) d
         SuperscriptBox[; p+ `: S" O# [
          RowBox[{"(",
    ' c' c( V" V" B8 ]# O       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    / f9 v) e# C1 P5 d# z! B* L# ~& z! {     SuperscriptBox[% ]# i5 w) f9 `1 {
          RowBox[{"(",
    # }$ b5 G9 y' T       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    3 D% P+ x' e/ ?: P% F$ S' r$ w    ")"}]}]]], "Output",& R1 Q$ I8 n' v( K. {8 |/ r
    CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9, 3 r2 s9 V3 }9 n% K, k; ]* i9 l
      3.5779607654819613`*^9, 3.578012211515625*^9}]
    ) G* R, i  A+ t' ~}, Open  ]],# j8 ~" I: C$ v' p( s+ U; f9 T
    6 ~: O7 t  a# O3 D8 o/ V4 M
    Cell[CellGroupData[{
    2 P+ e: }2 f: g* e! D9 ]# w3 H+ k$ W1 e/ G# z2 D/ Y4 J
    Cell[BoxData[
    ! }* ]1 l& x% C5 X) Q# u RowBox[{"C4", "=", "Ca"}]], "Input",  X: K* _* u- S" `0 \+ w* t
    CellChangeTimes->{3.5779207559375*^9}]," P' }* ^" O; B& @
    & \. |( R7 ^  Y$ z0 e1 @! H
    Cell[BoxData[7 _" t4 w( x# k9 J1 R& ?( A2 j
    RowBox[{"{",
    , s; G$ D- Z+ |# Q, Z5 a  RowBox[{& [+ t& k/ c1 T  X! E1 B* C
      "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
    5 R: R7 l+ @( u0 c' H" q   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], 8 w$ F( \8 T# W! }: e8 Z1 f5 s. T8 q
      "}"}]], "Output",
    ! r. n* m( b8 ~9 w CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
    ' d" K0 M' O+ G' a; d  3.5779607861363974`*^9, 3.578012216171875*^9}]2 a& g. p8 u( J3 U) N: j. g+ z" s4 d: I
    }, Open  ]],
    , w( t& N$ M1 |% L2 N4 `
    ) [' d' V) y, l7 FCell[CellGroupData[{
    / Y; J6 E4 b# S' Q* X
    $ y8 o  ]& N; w* ~" l3 c9 mCell[BoxData[
    5 {2 @. s7 l# { RowBox[{"u4", "=",
    6 h) O' k2 q! m, s: r" O5 {  RowBox[{3 J* A! f# F  @" h5 V# z! \
       RowBox[{"Exp", "[", 5 W  d/ J) f4 m! b; ]9 X
        RowBox[{
    , v' P$ d7 L8 y6 a5 I3 B' Z9 N2 x# l     RowBox[{
    : U5 Y6 V; m) j      RowBox[{"-",
    * t9 m5 [0 S$ q& o# _7 _       RowBox[{& c& X( @- D0 H1 t( `3 F( ]. S- J( c* {4 v
            RowBox[{"(", ) L4 D: L  S) V/ K9 M
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", : C( G2 X! `4 l6 [
            RowBox[{"(",
    + {9 Y! \9 p. l         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],1 s% N) [9 L7 z0 m1 D% ]
         "]"}], "/.", "DeltaX"}]}]], "Input"," y: [. q5 q0 @4 ]" |
    CellChangeTimes->{3.57792076325*^9}],
    " N4 }6 q: V) B$ u) l% u4 k1 n
    " g) C+ B. S) J( u9 p! }5 cCell[BoxData[; h# e0 o* w$ u6 {7 Z+ D
    SuperscriptBox["\[ExponentialE]", ( j- j5 D! P% R- J8 L
      RowBox[{"3.141592653589793`", " ",
      V; C5 I4 i/ \* l! X   RowBox[{"(", 4 V0 ^6 q& l! s  x
        RowBox[{
    * r0 F7 Y, X8 _' ]0 R     RowBox[{"-", ! ]% j# j0 p3 N5 N
          SuperscriptBox[  t  j3 b1 r3 {; P$ O; {
           RowBox[{"(", 3 e, L* K9 u: J7 y  m& a
            RowBox[{4 x  ~4 `4 P2 V* l) c3 j3 \9 x
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ( o, |0 \. P& ^4 J( Q
         SuperscriptBox[0 ~1 ]- v, N. p2 B& d$ K# U. h8 z
          RowBox[{"(", ' O/ \% [0 z2 c% f. @- z
           RowBox[{
    ) H- _6 |" q* P% n9 F        RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
    # N, i! v$ k' D' m% c" X     SuperscriptBox[; N5 a3 |+ d$ {7 t
          RowBox[{"(", 8 g+ r/ j0 O' C$ l
           RowBox[{
      d3 J2 R4 }+ o2 H9 j( U        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", / K" A2 G- {) F' c
         SuperscriptBox[
    / q8 }1 X( t" Z; V/ y0 \$ d, W      RowBox[{"(", : w! l% V; `0 J2 s
           RowBox[{
    9 `9 g  x, W: D& n        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
    1 |( j4 K! X; O6 M9 o  M( r) q& @     SuperscriptBox[
    8 g' B- k  h3 T( U6 y      RowBox[{"(", . j4 B5 u6 C0 k, G/ ^8 B' }
           RowBox[{6 g& [& k( o0 p. S' [) i
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", * r1 @3 W' q0 v9 e% _+ [! K
         SuperscriptBox[
    $ x6 v& z; m& E0 F, z9 j      RowBox[{"(",
    8 h9 ?2 U: p* Y6 ?       RowBox[{
    ' Q) {! T5 Q' R2 _7 U; s$ m        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 7 n& R* ^! B* {+ ^$ T; {  b. q
         SuperscriptBox[
    3 I, f1 a6 V2 ]      RowBox[{"(", ' }* X- j- u. J9 g! D8 ~3 h
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 3 o; k, f- \* T' g1 V& ?* n2 T
         SuperscriptBox[8 X& w. l- K* p- N5 g7 c
          RowBox[{"(",
    " a- V7 n; Q) A: g; g" C4 J7 s       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 5 k6 z; }# v! z( W, S( [" H
         SuperscriptBox[+ m- d+ w" \' ?1 o
          RowBox[{"(",
    ) s; B; w& Y7 G- z* R       RowBox[{
    / I' M( A: O; d' w  }7 v0 O9 B  W  @        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], . X% P9 ~& T& {# |9 S( ?
        ")"}]}]]], "Output",0 i" ~+ U0 K3 N3 ?! S
    CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
    # V: j' h% `& f% H$ }" o) d3 x  3.5779607873531995`*^9, 3.5780122169375*^9}], M* i" d3 T- ~
    }, Open  ]],
    ' k( c$ B) \5 a- X5 l; u
    - F, K  }; `* b$ C4 p9 m4 uCell[CellGroupData[{
    ) ]+ D! n: V+ B- r+ n9 |2 `( A7 V  I6 B' a1 I1 I' K% H
    Cell[BoxData[& U1 H# P2 Z8 H' o
    RowBox[{"C5", "=", "Ca"}]], "Input",  |# Y" c: f0 n  \3 H, b8 y3 O
    CellChangeTimes->{3.577920860671875*^9}],
    4 Z9 }! a+ Y7 ?% H3 D3 u4 X1 @, ~+ V+ F
    Cell[BoxData[- E6 F# ^" r$ E4 P, P( m
    RowBox[{"{", $ _. L1 L4 m2 v* U, ]5 g
      RowBox[{
    + A! [3 q" I7 C8 L/ n9 g9 v" ?  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",", . W$ Y$ F% }! c* m8 Y) E! x  C6 j
       "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}], + W6 `, {2 S7 D3 O: P
      "}"}]], "Output",
    $ h# ]# ?6 t# n; m CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
    ! m6 ]# K/ _- E' R) p8 e  3.5779608137328453`*^9, 3.5780122209375*^9}]  }: O! y) d2 [3 {
    }, Open  ]],5 x) j, Z8 d# M

    # Q2 s; I" B7 E9 S1 \4 N1 kCell[CellGroupData[{
    4 C9 U3 F0 w. n; o0 K  w
    8 U: Q% s) b8 s: R5 l8 BCell[BoxData[; i0 D( G7 h; W0 J+ q7 z9 q
    RowBox[{"u5", "=",
    6 H6 ]$ f+ l* h) G$ X  RowBox[{+ B7 P. W% w. K' [) ?* E
       RowBox[{"Exp", "[", 1 \: c$ \* x! D0 E3 z- p. K1 ]. a
        RowBox[{
      K2 K4 y: h7 y9 U8 |$ U0 Q6 b$ R     RowBox[{8 F+ q; G/ J2 [- V$ _1 e7 C
          RowBox[{"-", $ A* E9 l+ b5 D9 R2 x1 W
           RowBox[{
    : O+ i& z2 }% \        RowBox[{"(",
    9 K  K7 |4 N9 u( W/ |% d6 C6 B         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", " g( r  g- z5 W$ w* }6 E: r
            RowBox[{"(",
    1 e( V: ~( c% O$ U! v         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],5 z% ]2 W2 I! d9 d) m  I* f2 [
         "]"}], "/.", "DeltaX"}]}]], "Input",
    5 m" K! T( v. X! }; l9 H( ~# h CellChangeTimes->{3.577920869375*^9}],8 x8 l' v; q4 h1 M) u
    ( X- }% D  V) l8 O0 ~% R
    Cell[BoxData[
    7 s7 @3 e! A2 l% A! X5 ~- I SuperscriptBox["\[ExponentialE]", 5 O' o2 O! N" R2 w: ?
      RowBox[{"3.141592653589793`", " ",
    + e2 c' S7 f; V! ]   RowBox[{"(", ' g- P) \  c" n
        RowBox[{$ a6 D4 K( b7 o8 j' b2 x
         RowBox[{"-",
    7 v* A" E9 z6 s; A8 J6 k9 ?      SuperscriptBox[. _( m4 N! c- N( Z' G
           RowBox[{"(", 6 g3 [0 F+ _9 t
            RowBox[{' O( h, d( p: x$ p; s# M% _. x
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", & j/ `# i) \7 N' k  Z
         SuperscriptBox[( |. v" f! Y6 d+ H1 Z' A2 m
          RowBox[{"(",
    2 E3 b2 o0 y3 m+ e6 G4 d       RowBox[{
    * Y0 c1 x, Q( }! S        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", , w9 D' R5 Q; j8 q
         SuperscriptBox[
    - ^. j' Q& F) H$ d      RowBox[{"(", ( w  J/ q- ?1 {2 i( `% J
           RowBox[{+ @  A0 t4 r2 q) y4 B" p1 T& Y8 A
            RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
    + M# e* r' C+ ?8 O% H4 K6 |     SuperscriptBox[
    - M; U; _( w# a5 @9 V, i# N      RowBox[{"(",
    2 d$ q0 Z* F  \; Y8 V' ^$ `       RowBox[{
    ; r# _% e3 I$ A% ]) t* T. {        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", ! h2 J* E( X# q1 ]6 ^' p: F1 P6 ~
         SuperscriptBox[
    % L5 o1 ~0 @  D. S4 O$ ]  s      RowBox[{"(", 0 b$ N( A+ b% d
           RowBox[{
    9 i4 C2 ]' M. J: e9 R" M& a        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", / X6 n! A5 ?: K( Q' `' X1 ^
         SuperscriptBox[1 [/ N( L0 B8 S' n* ?/ d& v9 G5 Y
          RowBox[{"(", 5 K+ }/ ?/ ?8 N4 p
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    1 {$ m: q0 J5 _' c  f- g9 U     SuperscriptBox[# `& n8 r/ ~! B, g  I0 U4 r' @
          RowBox[{"(", 9 A0 S+ S2 X8 R; X
           RowBox[{( T. [9 z5 T8 P$ H# |
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", ; }* n  G5 }3 p4 ^9 ]2 U
         SuperscriptBox[
    $ {' [0 t7 j) ~0 d( p      RowBox[{"(",   ~2 h1 Q1 |: t1 M
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    6 [* A; i0 \( `* s3 t0 T     SuperscriptBox[
    ) ?; _; S# Q' \% Y) l2 U8 t* P      RowBox[{"(", ' f' x9 L! S. D
           RowBox[{& |; \8 A0 s4 P# a
            RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
    8 b3 a4 d" I7 [8 w" E6 j2 G    ")"}]}]]], "Output",
    4 i% M7 S; m) H: e" g0 [  c CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9, 3 f: Y7 p7 y3 A3 _* ?  L
      3.577960815043248*^9, 3.578012221953125*^9}]( u; p) t1 M/ v9 z& j8 J
    }, Open  ]],6 D, T( f3 ~+ Z$ d7 i$ M

    * a2 n5 Z5 v) LCell[CellGroupData[{/ d2 Q* ~5 r% E% a; c2 a
    # i: a" L( Q/ U1 l6 {
    Cell[BoxData[: B' a2 T% T" X# s1 |
    RowBox[{"C6", "=", "Ca"}]], "Input",. `6 O. w+ W3 G
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],; z6 ?6 @& C: t+ W, ^

    3 {7 y" P1 a% S3 d7 y, b' zCell[BoxData[
    4 y1 g! B8 Y; u, K- h! h8 ` RowBox[{"{",
    , x4 p; E# t" B( g# |3 s  RowBox[{
    % N1 x4 T: C1 Z  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
    . c5 B: S4 ?3 m  Q/ @. p% W" l2 \   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", $ p9 Y" L& I7 p; D8 c# S) P
       "0.494866`"}], "}"}]], "Output",7 Q- I& U, }9 t
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,
    / {( r' w! i' F% Z5 r/ A   3.5779608373044868`*^9, 3.578012227359375*^9}]1 W6 U- l: K) r3 M+ z+ x: f
    }, Open  ]],
    # u- X8 J1 k' w7 j( m# y9 j
    - N& K8 ~: e: b3 vCell[CellGroupData[{9 t4 l. N, _2 r* r7 X' }

    ' R! Q4 F1 q+ {' C$ TCell[BoxData[
    ' V2 N" r2 y8 `3 p! O RowBox[{"u6", "=",
    ! n7 O( A6 A  D2 s% P/ O0 L  RowBox[{. c  `4 K( M6 L; s; z$ X& I( i2 N
       RowBox[{"Exp", "[", * D  s" T3 g" ^) I& g" k
        RowBox[{
    9 Z$ E7 U' R& ^; |  O8 [     RowBox[{
    % [, \# K0 O1 B9 L      RowBox[{"-", + p$ b" T) I( k5 @$ i  H
           RowBox[{
    & h0 j* p4 B' [7 Z' X        RowBox[{"(",
    1 H8 C7 t2 B& ?6 s% |7 E! t) i/ S$ T         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    3 W1 L% M6 w; o& N$ k        RowBox[{"(",
    6 x3 B: {8 _8 Q! A- ~: B6 s         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],6 W/ \4 _) W9 F$ K% ]0 U# p+ ?  p
         "]"}], "/.", "DeltaX"}]}]], "Input",
    + q( }# Z- s. H1 E, c! g7 L CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
    8 E2 h! ^( Q- W" [$ d
    5 d/ R/ Y6 h/ Y$ [( f2 JCell[BoxData[
    0 r% }5 ?  v3 n* f% D; q SuperscriptBox["\[ExponentialE]",
    6 M5 T7 x( U7 M. m8 u. O6 \  RowBox[{"3.141592653589793`", " ", $ H$ Z& t* i1 B2 ~% a
       RowBox[{"(",
    2 g* l5 o! x4 t! a    RowBox[{/ z: r+ W! B* A2 H5 F" E
         RowBox[{"-",
    6 V7 d! w' G- b9 b, N$ E8 Q2 {      SuperscriptBox[* q# u1 f- S  ]- ~
           RowBox[{"(",
    & {: n$ q, g( s% {        RowBox[{
    : d# h% D$ h; f1 ?2 L, P         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", : s8 X* A; a8 ?1 u, n
         SuperscriptBox[' L8 r" G% P! E
          RowBox[{"(",
    , K7 m4 P4 M9 r5 m8 w0 Z) z       RowBox[{
    ! l7 Y. k/ Z  ]& h        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
    + t) N0 Z  d3 ^5 E- U7 m     SuperscriptBox[
    + {7 D+ I" ^4 J& Q      RowBox[{"(", 4 Q/ F! Y  l4 L: M0 V! ^2 d
           RowBox[{+ ^# a& n8 C* r9 l% u
            RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
    3 n& U: f1 X4 l3 |5 C. T* `9 G% G     SuperscriptBox[: H/ w; a+ m8 V' G+ x) `4 h
          RowBox[{"(",
    : |7 e4 C# c, J8 q       RowBox[{9 ?0 i7 \/ L/ i1 Z
            RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
    / T. Z1 z' r, o* I/ Z     SuperscriptBox[" i7 `( L" c1 r  V* ^' l; z# X
          RowBox[{"(",
    : n, S" W6 C- C# {8 D5 J. W+ ?       RowBox[{
    6 |0 u) D/ [  e3 W$ E        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", , ^, M3 h3 K  z$ q: V
         SuperscriptBox[* {: U# t, b! k3 m
          RowBox[{"(", / ?; Y7 `2 D. Q) |5 d/ g& r7 X
           RowBox[{
    3 F" c$ {$ ^/ J* S6 g+ \        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", 9 X1 B9 z$ Q2 Z0 b- x3 W- {' Y5 `
         SuperscriptBox[6 o7 O: T/ r1 U
          RowBox[{"(", 8 j4 h8 ?1 s$ p. I' R7 a- G# ^
           RowBox[{
    8 L2 f9 Y/ S# c        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    + y. l7 v1 L1 e' d" f     SuperscriptBox[& c1 R; ?% x8 |" D5 Q8 ]
          RowBox[{"(", 6 r: Q% j% W. F7 A* |
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", * A% E( O# n2 d0 [% B: V
         SuperscriptBox[8 g' T3 q* Q( W* T" b6 \5 N' p
          RowBox[{"(", / x" P9 w% k* j+ T; G
           RowBox[{8 b, I6 M' n3 V3 G6 U- ~; Y2 l3 H
            RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], # R, Z; g! X  m$ }. \
        ")"}]}]]], "Output",
    : y  i. p: o5 _# Y CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, - p2 q0 j- i6 g. _
      3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
    0 U+ _& s: ~6 G4 M6 x1 }}, Open  ]],8 _. g! x; Q8 j1 ~( W" _
    & t$ v6 j6 e8 y
    Cell[CellGroupData[{
    1 v7 [  E. s  d3 H% Q4 N! [2 V8 y( G9 ~1 I& m# K8 g" z. g
    Cell[BoxData[& c) d: f$ c& Z* ~9 X0 b  _; E
    RowBox[{"C7", "=", "Ca"}]], "Input",
    * C- ~+ z, ~3 @5 Q3 G! o* a CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    7 M2 q# B) s, ]3 u: j; x/ t* h  3.577921316125*^9}],' A- c6 p( V; o6 W! y  i8 S
    9 z  O, }& R0 q3 y: A
    Cell[BoxData[
    ( R7 C: I) g% k$ U RowBox[{"{", 0 L  k) c6 |) z# N
      RowBox[{& r: n5 u0 @8 n" P! A7 }
      "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", : z" K1 t# O; z! S/ J$ N: |
       "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
    + B  l! U- `% y  "}"}]], "Output",9 Y% j; N9 ^1 n# h
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, " s* r* {0 ]4 v/ l  F1 J
      3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
    ; F( q- B" P% O# d+ ]; j}, Open  ]],
    ( H' e# X; d; F% \# `; z* |5 a3 m) c% z3 y1 l
    Cell[CellGroupData[{& H4 ]' F: g! ?! x7 C6 Q
    . \4 m3 @) h: F" B
    Cell[BoxData[5 S8 N% o$ G; l5 Q+ |! J
    RowBox[{"u7", "=", : P: U0 p1 U: N& w0 A; y; z
      RowBox[{
    " g0 r- s, p% l3 F   RowBox[{"Exp", "[",
    4 n7 T8 b% M" x2 ~    RowBox[{- u/ y! X. N& y6 P
         RowBox[{
    - x& l8 t4 Y. J. S0 W' E      RowBox[{"-", ) @$ q3 G1 j, b1 ^/ P$ o
           RowBox[{
    1 c7 s$ G! T1 F; E/ b" A        RowBox[{"(",
    4 o  v& Y9 E/ u* m1 z         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    0 o' ?- g' m; l9 A        RowBox[{"(",
    & I3 n5 Q# ]7 z0 U         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],2 @+ q2 }6 F3 b: ^  Z3 z
         "]"}], "/.", "DeltaX"}]}]], "Input",
    4 h# K9 C' X8 g CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    . u) r( F+ p8 i* H' I  3.57792132028125*^9}],. F0 O  b+ a# }+ Y

    , [% }4 x6 m& ]# `Cell[BoxData[
    $ j1 N1 j+ J- F SuperscriptBox["\[ExponentialE]", - t5 w. c+ m0 F$ B3 s
      RowBox[{"3.141592653589793`", " ",
    3 G# r! P6 _( v   RowBox[{"(", & s* O, Y3 K0 _+ O1 w4 d2 M" D
        RowBox[{
    * g8 _" w% V1 y) x     RowBox[{"-",
    / v  v" _( A/ ]8 ~' k5 _; ?+ k' n      SuperscriptBox[
    5 j: D" E; i8 M: j. Q- x5 {/ w       RowBox[{"(",
    * B6 {7 I% [8 Z( T3 o9 A& j( |        RowBox[{
    $ K7 u1 E4 P- V- E- z5 ]0 |         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", 3 |! |+ g8 G: l$ z2 e
         SuperscriptBox[
    , P7 p1 h1 {3 Y      RowBox[{"(", . U0 i; a. V9 I. ]6 o& E9 s3 @/ [
           RowBox[{
    + t8 w4 C2 W1 y4 ~) S        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", ; F5 Q" I3 |% G, D# W  V
         SuperscriptBox[
    5 W2 d1 l1 A0 T0 C% K0 \      RowBox[{"(",
    : I9 Z! U- y! T5 N. U       RowBox[{
    0 d% v! R' v( v  q) V; W. d        RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    ) Q+ Z8 N) \) z; x  T! J     SuperscriptBox[
    8 U% }! i2 N; v5 x& F. ~% Z/ v      RowBox[{"(", . Q( d. I# q' H: B
           RowBox[{
    & S; A3 Q7 ~+ k/ U        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", ! k+ p2 {0 p$ B/ }( k6 f
         SuperscriptBox[
    , Z( I( f6 @  D( C: J. c      RowBox[{"(", , J' w$ K! h) s8 M
           RowBox[{
    ! F& z% ~  v: I# m- f: Q1 _* g        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    / S* L/ l1 }4 L9 W, ?: ~     SuperscriptBox[
    5 z% _$ {- H5 [) V1 F# ~7 |      RowBox[{"(", . ~* J* c4 [7 O+ \# k
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ; y) r% D. [' @5 f) n     SuperscriptBox[
    4 `: ^: q$ z# ^: U" U8 k) i, ]      RowBox[{"(", $ |) d- o" [, t
           RowBox[{3 _1 a; t' [4 Z( g( X) P
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    * c) K# [/ t; G5 @1 O     SuperscriptBox[
    3 q, o  c1 p5 A: M/ ^; k- L+ e      RowBox[{"(", 5 v1 W. w" [; P1 E, T
           RowBox[{* r0 m  U5 A3 Y; m0 ~6 W
            RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", + w+ Z9 j0 Y# N# U
         SuperscriptBox[5 j/ D6 b5 w( Q2 _, R) _
          RowBox[{"(", % L. [. j6 P. f6 V/ N) r/ k1 \
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    + p7 R& Z1 _5 [- V; q( ~    ")"}]}]]], "Output",2 [: _; x. X7 ^* }) @: `2 t
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    4 [$ N5 E. _7 [5 _: i  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, % K4 x8 V/ \) \/ x
      3.578012251359375*^9}]! o. _/ j' o+ T- a9 \* u6 n
    }, Open  ]],
    2 {1 S; C5 l- h7 R6 m1 z8 J
    2 K+ n$ _  u: R5 e& ZCell[CellGroupData[{0 q6 R0 r) k% T, c
    6 J% }& h5 ^* I0 |7 r
    Cell[BoxData[) ?) i/ J% s" @. P6 a
    RowBox[{"C8", "=", "Ca"}]], "Input",
    2 n9 L" Z1 Y. {5 z8 S CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    : v: c; U9 [  H7 w" W4 y4 x  3.577921316125*^9, 3.57792141421875*^9}],2 k7 E/ B9 V) s+ q

    5 g" C7 \0 q! |. p$ V  bCell[BoxData[
    % r* F8 k/ C4 Q7 _& ?) }' V6 ^! s8 k" j RowBox[{"{", ' U- k- `, Z1 v4 l
      RowBox[{
    - C+ g% U$ Y3 Q! [6 C+ O5 c  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
    . v. h  \  ^8 ?5 B# p8 W) o   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
    " F  G( n* f2 u3 a4 X' q  "}"}]], "Output",
    - `' y8 p5 X& e, | CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    ! E0 @( a' l( f9 B8 w9 S7 m- v4 D  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9, ) ]' H* N. W0 s9 v8 H# _: G
      3.578012260515625*^9}]9 f9 ]; _* P2 j
    }, Open  ]],$ y" ~: C; g$ ^  N. w

    2 M/ x4 f8 p" {3 a& [" ^" iCell[CellGroupData[{0 b' s0 t8 x! q/ x2 G

    9 D/ o4 J" G% {- g! y" S+ B# PCell[BoxData[
    , @& b" W0 _, t RowBox[{"u8", "=",
    ) ]' U% i2 _- L: p  RowBox[{
    # m, B. q+ @: f2 {6 o' [4 H! m   RowBox[{"Exp", "[",
    $ A" D. Y. z- Q8 t( P3 y$ V    RowBox[{: M4 r1 u7 o2 J
         RowBox[{
    , i. |. p4 Y( i/ e! R; A1 y      RowBox[{"-",
    & l9 B% `  _0 K, x, ^       RowBox[{
    , }$ R% [$ k2 h& i2 s5 O        RowBox[{"(",
    ; Z8 I: n$ o! h- j         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    8 v& X) ?$ |: k0 F* q8 T        RowBox[{"(", & i% i; D" p" k9 P* F
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],2 r" e' K$ a' T: Q2 T$ H/ K; B1 H
         "]"}], "/.", "DeltaX"}]}]], "Input",- L$ ?2 h1 ?$ N# P) A# o  `0 I6 ^
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, $ E1 ^! t2 R4 W, r  S! Z
      3.57792132028125*^9, 3.577921416921875*^9}],
    & P' p2 [% A7 h: P2 Y" l( ~$ @  \# v; j% Z9 w: Y
    Cell[BoxData[
    ) c5 b# w9 q1 i7 i: U( L SuperscriptBox["\[ExponentialE]", & G  e) S7 i3 V4 ?6 R
      RowBox[{"3.141592653589793`", " ", 7 |, h+ [% h5 B1 w& u' n
       RowBox[{"(",
    $ G- E6 {8 X8 L7 f. ]" k0 n    RowBox[{
    & D. W% k5 S7 c: Y0 O     RowBox[{"-", 0 M0 O; F4 A+ N2 }, \
          SuperscriptBox[
    1 ^" {% o( Z& M$ U       RowBox[{"(",
    3 O" S8 F) q0 ^& @! k        RowBox[{1 ^0 L& H) {; I+ |2 m
             RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
    1 x1 c8 w9 r" }  C$ f  x8 _) B     SuperscriptBox[
    + V) n2 \* A6 e5 k% S      RowBox[{"(", 2 y. z- d- {: m& {" p; o; W! I# x
           RowBox[{1 C$ ^9 D$ U" [& [+ b
            RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", ) z% p8 d' t- V$ T( f
         SuperscriptBox[2 D( w0 F3 q; x8 `( S5 b
          RowBox[{"(", ( v. B* u6 |( |2 e) F' n
           RowBox[{
    . n! v/ e) l0 s6 c        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", - {1 }2 l( F& e9 Q
         SuperscriptBox[! O- {7 o$ \8 B3 t9 E
          RowBox[{"(",
    0 }  s# n  L" s, |6 ]       RowBox[{
    & X% `- p8 g. R0 F+ ^, [' o% Y) k        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
    % I0 N+ _. I- A$ e* m* y     SuperscriptBox[2 X  _  k) ]% x# X' n8 M/ ^
          RowBox[{"(",
    6 b+ w# @; y6 k2 @, E5 l       RowBox[{$ @* |+ N3 a- K" }  R+ j$ F0 H
            RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
    & e/ P: d' D; M- N, c: w) f     SuperscriptBox[
    ) @) I- [3 Y8 ]      RowBox[{"(",
    + t' s" Z& s2 D: |       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 5 e8 |1 t' W* }& {! w
         SuperscriptBox[
    ; X" `  I- S  C/ L      RowBox[{"(",
    ( ^8 X- B0 l5 z2 Y) J) k' Z8 O: `# ~2 E: H       RowBox[{6 \3 x3 Q, R( a( Z
            RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
    / ?8 {- f, \+ o6 q4 }3 v     SuperscriptBox[' b) W. _; s; N9 _1 N, {
          RowBox[{"(", 5 w" K' q' b5 a, Z. S
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ( U- @: h& Z- U, G     SuperscriptBox[
    " q2 \9 l8 [2 J      RowBox[{"(",
    + J& a7 e- @, ]. t$ U  D9 V2 h4 U, j       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ( p) |9 |7 n5 Q. ?$ A; Y9 S1 f
        ")"}]}]]], "Output",3 F* W- x, h, y, w2 J
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    " k' u% z! h4 f( B7 l  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
    7 W/ `( r4 w5 B  [8 P  3.5779608945565863`*^9, 3.57801226165625*^9}]
    . y! y$ m6 K/ V2 x}, Open  ]],. y4 B) U, E( t* h# z+ I9 N! D* Y
    ) W' s+ A( l6 J# u+ x' n2 A# I# ?
    Cell[CellGroupData[{
    0 r* ?$ {4 U/ k$ ?& w* V: k. i5 ~$ [5 d9 z4 A( f2 F  Q
    Cell[BoxData[9 p7 T* v/ v4 K$ F
    RowBox[{"C9", "=", "Ca"}]], "Input",
    ( f7 n+ p& K" j' m CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, ) e" T* [! W  {1 a6 c2 |5 ~% u
      3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],
    ; I* ~: }) l! `
    ; \9 C2 t1 m! S, W# B$ W- ~8 c. QCell[BoxData[
    : A& L8 _( B& T" p: G7 V RowBox[{"{",
      Y0 L7 p# X! }5 t! I- u* S/ s8 ^  RowBox[{
    7 Z- A. ^( x: S- w; D8 k  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",   e2 Q7 a4 C# @; r1 E$ v
       "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
    ! Q, v: R' J, s8 ?  "}"}]], "Output",
    1 ~  u6 t4 |. b; n9 K$ T* W5 P CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 1 e/ h# \" h% b( O) R- X
      3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, $ a6 i1 h  p( J. [  z  J; C8 H
      3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, 2 }* r# n3 A6 `5 X6 P/ }  F
      3.578012268234375*^9}]
    1 }/ \- W8 H( T( i; |}, Open  ]],
    , Q! T( K5 f3 A7 @% ~! G; ]" t- Q+ a6 f5 W: ~  E
    Cell[CellGroupData[{
    1 h5 g  D0 O9 V$ _; T
    % O4 m2 H- z$ p4 o8 V% l9 rCell[BoxData[
    0 R0 q, D$ f# o1 _  p" |/ a# u RowBox[{"u9", "=", 3 }6 u7 [3 s! ~% K% {: Y- M3 E) |5 ?
      RowBox[{
    # g7 ^, [8 \* ]   RowBox[{"Exp", "[", ) D9 W8 U2 B* d$ m. B, {
        RowBox[{
    * c* K4 K( }* j/ [! C8 z) x     RowBox[{
    9 a+ ?) K  j+ ]1 U) J3 i      RowBox[{"-",
    2 c9 t8 h* e% ]; w# h  u7 V       RowBox[{
    2 M" p3 G% R; ?' U/ L, H7 h; V        RowBox[{"(", 0 j  V( i6 ^' g5 }3 W
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ; }& H+ B1 S' ^: H
            RowBox[{"(", # `# W2 q3 o& Q' O+ {- @
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],9 |' u7 W4 u: J
         "]"}], "/.", "DeltaX"}]}]], "Input",
    7 t- s- A- s/ w1 J. F  s CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    ) ]3 W& W4 @0 E$ i1 Z9 ?6 Y/ G9 S  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],
    6 p" i* [/ Q$ u2 Z1 M
    + V. J! [2 U- s* q% V  wCell[BoxData[
    . p7 `6 ]) Z0 o. C SuperscriptBox["\[ExponentialE]",
    4 S6 S1 g1 K* g: p& w# v  RowBox[{"3.141592653589793`", " ",
    : I) P9 k: t* E3 X& {6 a+ Z3 Q8 f   RowBox[{"(", : g& e2 x0 P$ S3 W/ H% }
        RowBox[{
    0 ~" P, M& h2 x) J( i$ J7 \' A# h8 j     RowBox[{"-",
    3 D; W9 ^- f7 _7 J1 D# D      SuperscriptBox[7 w% Z/ n& I) X# c; P
           RowBox[{"(", 6 p1 h3 k- S* b" u! s3 n6 F
            RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
    - S6 B6 h) r# N# C     SuperscriptBox[
    # m& X/ S2 q1 v+ O# b7 E' t      RowBox[{"(",
    / \: m9 s3 @, v% {. R' |       RowBox[{9 y) S7 p1 z- j) c
            RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
    # W- ~2 \. x( m8 U     SuperscriptBox[2 p' Q7 k5 a) i! ?7 T' E6 Y5 B
          RowBox[{"(", + N/ N7 n* f! ^
           RowBox[{
    1 f6 G; \1 F' Y        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", % S% w6 [) _* v0 T. R
         SuperscriptBox[% m4 b' _, v5 F- U. I0 r" [
          RowBox[{"(", % r5 }1 G5 Q7 z: F8 T$ x9 C8 o7 }
           RowBox[{& N! K: _. w+ ^$ ?, r; u' H
            RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
    - H$ M& u! |1 J( f- p& q# c7 [     SuperscriptBox[
    / p7 U, N* Q. l8 a3 v- r# s5 H& w6 m      RowBox[{"(", $ M& ~! }3 V" b3 m* ]
           RowBox[{
    # }1 v& o& _- |% S9 m        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    & e" Y: _! w9 _6 ^2 H9 A     SuperscriptBox[! J6 F: F0 i- L. [, I# a$ R
          RowBox[{"(",
    / N4 r6 U$ Z& e) Y% G: |7 W       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 2 Z4 C: v& W7 ]  b
         SuperscriptBox[
    " \' K$ [8 x/ y5 ?      RowBox[{"(", 3 ~% ]* q# S" R) u
           RowBox[{# S) x* K8 N/ \% n0 U1 j% r1 T
            RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", " b: A$ i: Q$ {7 B
         SuperscriptBox[
    ( w# D3 w( L; h1 L7 i* Y      RowBox[{"(", 6 j$ b( ^9 f8 G% p
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ; e, P0 ~" J& V; T+ `     SuperscriptBox[
    : s7 P' V, V( k( @2 a" z4 H0 J& d      RowBox[{"(",
    , ?# V" v1 T% A+ l( l       RowBox[{
    # G6 `' w2 R: p/ o2 a4 \) I9 I        RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ; T2 n# K+ P* T, P
        ")"}]}]]], "Output",5 x( g- \/ U4 `1 H3 ^& z3 h# j
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    4 ]& e1 T+ @6 a& u1 Y) n2 j& g4 I8 o  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
    1 ~8 m1 C6 ?+ n7 B6 R  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, 0 S; v- c0 z& }$ ?% `( Y. O  U
      3.577961530421959*^9, 3.578012269125*^9}]
    7 a% p) F4 Z7 y  J}, Open  ]],
    4 `- s: C$ @0 K8 O& F6 \8 Q9 K: h2 g5 d! D4 E- W
    Cell[CellGroupData[{7 l% I2 n+ P. n% T
    2 g5 `* f, q8 v1 r( @' g3 v  Z
    Cell[BoxData[{, n$ l/ M) v( S7 {5 E. f  z1 K: w$ O3 W
    RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]", , Y) Z+ D7 O- \; a+ l2 {( E
    RowBox[{"u10", "=",
    8 N& u1 I7 m4 S6 j  RowBox[{" `! L" J1 P  a0 p/ U' m1 j
       RowBox[{"Exp", "[",
    0 A5 e/ ^2 ]$ z5 A. l" C    RowBox[{! O* v7 \. b* ?, p' [( E4 l! m. ?
         RowBox[{
    . i! c' |2 A9 `' v% z      RowBox[{"-",
    ; e" r0 i1 f& _2 S! U! n5 I       RowBox[{$ l! [3 e9 e# e9 W0 W1 Q8 a5 c9 ]
            RowBox[{"(", + m& Z1 P& X, |8 V
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", & v" K6 g" ?' B" u' I5 c: [' \: G5 u
            RowBox[{"(", ! b5 S  }0 A2 M6 g; `3 u8 T
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    / A) D/ o6 R& {/ M7 w5 H: s     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ( t4 |( g* L* R3 Y CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
    , D* p& I* u+ e; _) s/ \# ^
    + Q4 _- i+ b4 p$ D9 tCell[BoxData[
    ) k* t- _1 F5 v4 q' W* {& q; W RowBox[{"{", , Y1 K" _( v. m6 t! ^& k
      RowBox[{. p; A: G3 K" e* d! |: C
      "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
    4 ?0 e8 S, D% P" A: s' W, @4 Q& I- E   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output"," l/ f+ P5 x4 I% M% e) k
    CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
    8 K$ z! [6 g7 }, ?% }9 ]# s+ N0 f9 b# V4 A; ?" Y/ r
    Cell[BoxData[% w! k) r+ r; j" k% E1 t- [
    SuperscriptBox["\[ExponentialE]", ! }1 ?/ P4 W6 l9 z  e; {0 D
      RowBox[{"3.141592653589793`", " ", ' ^9 p; _# t" C! I/ R5 n/ x) s3 j
       RowBox[{"(",
    ! a/ d2 B/ m9 C0 Q' `8 S& Y7 V$ D; q    RowBox[{
    # B! _% n+ {; q/ j0 K, P; b  \     RowBox[{"-",
    8 s4 F1 q- }3 C# R2 y9 i3 \; n      SuperscriptBox[  Z+ g0 c( }$ @, t$ [$ ^; O
           RowBox[{"(", + [* v( m+ r- t" N
            RowBox[{' E# D2 ?  j) ^2 a- b
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", + U- x* S# v! I. p8 R2 Z2 A1 w( _
         SuperscriptBox[
      S! Z( Q' W' V$ t      RowBox[{"(",
    ( z# q6 ]$ k( S- x! o9 J       RowBox[{- i- F9 Y! C, b4 f8 l* \: W
            RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
    2 E) `/ s& H! [$ u2 z; }7 y! e  U     SuperscriptBox[5 l& \2 Z/ D6 R# \% n* p% K
          RowBox[{"(", 4 Z: t0 x! W( w1 ~
           RowBox[{
      @4 h4 X& [0 D: `* Y2 a        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", 4 _! K5 J3 h4 i5 Z9 I
         SuperscriptBox[; i0 F" G) K2 S$ Q4 I, R5 J
          RowBox[{"(", 9 z6 l  Q8 Q2 ^. V
           RowBox[{6 ?5 G2 K& |# U  _
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
    ' B5 R/ a9 E, |% w2 T4 ~4 m% ]     SuperscriptBox[! Y. v$ s+ o) ~4 w5 s7 Z3 ~/ ^
          RowBox[{"(", 4 a+ u/ V) \2 h2 U: g) }
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", / z7 |7 Y( R+ r+ {/ M
         SuperscriptBox[+ q. Z4 o5 Q- Y5 A
          RowBox[{"(", 3 d# j7 }2 l: }) R4 ~. C; G. ?
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ; e  z, ?* ^7 \9 @  J3 V     SuperscriptBox[6 U& o, M8 U( M/ ^
          RowBox[{"(", $ |* w9 s/ m0 }. ?
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    ) P5 a3 a' w; w" e" A; H     SuperscriptBox[
    $ R7 E. O4 F5 M7 ~- \      RowBox[{"(",
    - l% l: ?# s1 @  f& \       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 3 j2 ^9 ~( u* b* Z" D2 m
         SuperscriptBox[+ ^4 f0 B! H2 ~' i
          RowBox[{"(", % L; e7 N! Q2 W) j" p
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    5 K# x5 C8 T7 M) Z    ")"}]}]]], "Output",8 X% I& j$ W- c; ?
    CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]+ x6 F+ Z  }9 m* k% D3 g
    }, Open  ]],
    + _6 T( }* Y+ [, Y. [; U0 r+ {  `1 S4 D3 _3 B
    Cell[CellGroupData[{8 N! T- b1 n% h& \3 d+ c% [. L

    3 J/ W5 q* u6 ]& j* x" e% aCell[BoxData[{4 U9 ]% [. \3 @; o5 X
    RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", ! o; k7 K1 ~; j0 C4 f
    RowBox[{"u11", "=",
    , i- W# p/ M$ T& T6 M  RowBox[{
    5 x: _* i; \/ P9 A% m) b2 L1 f   RowBox[{"Exp", "[",
    * I; U3 J4 V7 x/ I+ |. m    RowBox[{
    ! Q  E5 L8 V" `6 m     RowBox[{: u9 b! B$ I, \. j0 C$ q
          RowBox[{"-",
    4 O3 K) S: e4 d       RowBox[{- w  W, x* u( S7 O& ?  p* d: s: [
            RowBox[{"(",
    : G% o: ~& ?2 N/ ^. |         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 o! }6 b- Y  h  {7 F' w7 }7 Y. A
            RowBox[{"(",
    7 {  F  \/ I( ~6 W) i: N% {$ e1 D( g         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    . _- @/ p$ \3 c9 Q2 ^9 G     "]"}], "/.", "DeltaX"}]}]}], "Input",
    . s# S7 S" K) D% @ CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {, L! U" @' X. ^/ C
      3.57796154237158*^9, 3.5779615434011817`*^9}}],
    5 D% b6 k: \, a, i0 t9 T
    . @- L$ x0 v1 @! v7 mCell[BoxData[" Q# A: ?1 T* G' j7 g
    RowBox[{"{", 2 k1 W% k2 E& ~9 t
      RowBox[{( o. Y/ A, Z* Z0 N3 f
      "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
    4 `; [( C# N; |; D7 h9 x7 c3 a% U' q   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    ! n9 D6 w4 [! x% F! k  "}"}]], "Output",; I1 d& D% w" ], L
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, , b6 S# A( n1 D5 }* b/ G
      3.57801228203125*^9}],
    . u8 [( v6 K+ T* D4 N
    $ x0 G, W. a( h% z( lCell[BoxData[
    - ~- V  G9 X6 X1 B) h SuperscriptBox["\[ExponentialE]",
    - G4 W& o  E' ?. I  RowBox[{"3.141592653589793`", " ", ; R( f+ `- N- g' Q
       RowBox[{"(",
    & ~) G8 r- p! W- ^    RowBox[{
    6 u2 K, O+ _& m4 i0 ?3 R5 S- P     RowBox[{"-", ; D, C/ }6 f4 a3 H8 d
          SuperscriptBox[0 Y) R& O) B& N0 n- J
           RowBox[{"(",
    ! j1 m% F! Z3 j' H5 q        RowBox[{, O5 q, o! h3 ^" y9 l' `5 Z
             RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", ( O* }- w- p; I$ V! q
         SuperscriptBox[) S* N, U5 x) O2 e2 ~1 s
          RowBox[{"(", 7 F( U7 y8 @+ D3 N6 C
           RowBox[{7 n+ B/ r6 y, P. d1 [  M
            RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", 0 j* Z! y9 q8 o" d& H1 H4 f3 @
         SuperscriptBox[; ~5 T- E6 w2 L& {7 x- ~0 a
          RowBox[{"(",
    6 s# x' I  u+ s! ]3 u0 B% x, f       RowBox[{' g7 h- O- u7 l8 i1 H% L
            RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
    9 u* f! {* C( Y5 Q7 l3 W. b9 n, }5 b     SuperscriptBox[
    ! B$ j7 h: Z; W8 ?9 D* O      RowBox[{"(", 6 @- Z2 j* ?* S2 Z
           RowBox[{
    . E+ j+ z5 r0 b4 O# p        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
    8 t) ^5 O5 G( v$ q, {2 ~     SuperscriptBox[
    + \+ S6 Z- Z8 \+ [: I8 r7 H9 b      RowBox[{"(",
    0 s& j) S5 C; X2 T9 {       RowBox[{
    9 W  d& G  J8 e7 R$ n% t4 s8 |        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
    " i( i2 X& m6 C6 j! v     SuperscriptBox[1 [+ O+ Q! X0 B6 c6 l: i
          RowBox[{"(",
    % v4 C  H* Z6 ?5 v3 L       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ( X3 w: |. P: ^6 C" q
         SuperscriptBox[
    9 ]" A# Q# d/ E; R8 l      RowBox[{"(",
    2 l3 p3 m" ~. Y2 ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", $ Q% X0 e! W( U8 P" U! q1 I$ g. F
         SuperscriptBox[: {8 z+ o! u/ z8 P2 m) I8 J
          RowBox[{"(", 9 c! c+ o1 i- i% w1 i2 x3 n
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    * a, A3 m( I  W; Q9 Q     SuperscriptBox[4 h2 e& k: V& l( \- c% c
          RowBox[{"(", " S# N! P$ b/ G0 @9 |4 U
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    # c6 Z. _/ L+ L: G% S1 M    ")"}]}]]], "Output",& O8 ~. |" H4 V" _' d1 u0 Q' v
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    9 Z* F2 a5 x( u  3.57801228203125*^9}]
    / ~- R% b7 W! d5 V# }$ c' U$ x) a}, Open  ]],! i3 [( ]5 f  t4 b3 L! X
    5 U- s7 a* P1 O. j9 e3 }6 j7 Y! f
    Cell[CellGroupData[{
    2 \, r& [* N& ]# N
    : K) W5 Q5 y: K+ iCell[BoxData[{6 |  i1 w& }) f3 Q  |0 [- U
    RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
    # }/ o0 X0 M9 U( L. D1 o7 Y RowBox[{"u12", "=", " b  W% T/ [7 z* }
      RowBox[{, Q; e$ H/ P+ c$ }+ X+ ^
       RowBox[{"Exp", "[",
    $ e& H7 E7 s$ q$ J2 V    RowBox[{
    1 e& ?, ~% F) Y: K9 K! S     RowBox[{6 l' o4 \3 q. g# |
          RowBox[{"-",
    ! B" [3 a. q2 z6 h$ C       RowBox[{
    : i2 C% ]  N  I        RowBox[{"(", 4 m' h2 `3 S% y+ g/ m3 ^' o5 s- q
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ; T& K# T3 v/ b' q% G" `' k1 M( `
            RowBox[{"(", 6 k" w, T) p7 i2 `9 ?
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    & `8 |" w' V% |) B& q  Q     "]"}], "/.", "DeltaX"}]}]}], "Input",
    # M1 S5 x1 d  ~  @ CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    3 o1 m8 x& q2 q  J) l  3.57796154237158*^9, 3.5779615576284065`*^9}}],
    . q7 Z% w  l7 O8 W7 z. w6 f
    ( j% x2 v% y# E- S, E( BCell[BoxData[+ K1 ]; O) Q+ d3 J4 v# a. H/ A
    RowBox[{"{",
    & h5 ^9 Y) o% \, n4 A  RowBox[{
      a6 k. N7 `( Z( a8 X( c3 h  "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
    , A7 \! P% Y# Q" N) h   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}], + \* {4 h$ {3 s. p7 ?3 o- I* Q
      "}"}]], "Output",
    ( a& @: w: @5 O9 K3 n9 P CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],3 f9 x! X! Y0 Y) p

    $ P/ W  S: D: P$ ICell[BoxData[( G- v/ e6 H9 L) g9 Q* u1 ^) i2 u) u
    SuperscriptBox["\[ExponentialE]",   x/ z' G) J- ~2 T6 G/ d+ U
      RowBox[{"3.141592653589793`", " ", 9 X6 A/ `* C# ^
       RowBox[{"(", ' b* A) {$ G2 C/ X# u: p" m
        RowBox[{
    6 d* @$ u2 S! J# f; B, Q     RowBox[{"-", # E* ?8 q7 Y+ `! H6 M% ?
          SuperscriptBox[
    ; T+ r/ Q7 F  `) n8 r3 p       RowBox[{"(", 3 W8 j7 Y$ a/ o$ q8 i8 g# D
            RowBox[{& Q3 Z+ j9 z, g- X. V/ u
             RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ; C! X( V, v$ L6 L  w     SuperscriptBox[/ b0 U2 P4 Q- \
          RowBox[{"(", 2 j  r) r2 Y' k% T+ H* O1 U3 L+ _+ ^( m( L
           RowBox[{3 R# k, `9 l0 T8 |
            RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
    - S/ f9 W4 @- |  g5 ~% j     SuperscriptBox[
    4 W( z8 s+ _& q1 E      RowBox[{"(",
    * \3 g. v% W8 E7 Y7 N       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
    8 G: n1 H. d; i, _3 G# ?     SuperscriptBox[4 k" @' u5 c# r# p
          RowBox[{"(",
    4 T* w$ {: U9 K; P       RowBox[{
      U/ \6 c% c6 N' Z+ Y$ v        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", + u; ~( E2 N' U+ i! @8 W) z
         SuperscriptBox[* @( _0 |; W0 [% k: W6 a, O
          RowBox[{"(",
    ! C/ M, F6 L# b       RowBox[{. N* Z1 a$ t! t
            RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
    * R4 I) I1 Z" i0 r$ t9 G# I% V4 X6 F     SuperscriptBox[; ?6 k) e0 p. u+ o+ e( q7 e
          RowBox[{"(",
    6 C/ j0 ]% D' X* u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    2 v3 L; r& }! w: q) d' C$ ~. H     SuperscriptBox[" `1 _8 B, H0 H) U6 B) @' V
          RowBox[{"(", ' v9 W/ c* H% |* h7 u# P
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    * n/ V1 Z. v! {1 @; }% H0 N) g     SuperscriptBox[4 G! e- y2 f9 I7 @( l% k
          RowBox[{"(",
    1 N5 c: \' M% C/ ^2 ]       RowBox[{; U! f* K0 s  J, P" K: H* L5 t: e8 x) Z
            RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
    : V! M; ^1 C2 x/ A! |3 ^6 T     SuperscriptBox[
    9 w0 \0 u; X1 T      RowBox[{"(",
    7 P& C9 ~5 I4 X2 V2 N       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    $ r1 r2 Z& O6 L0 w2 h    ")"}]}]]], "Output",
    + e% c9 d8 |  Q" q2 g CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
    ! u2 m9 d" l8 V4 A" N: L. G}, Open  ]],
    " z- @: y4 R6 r3 _8 g- d7 q, q
    * N7 Z$ z  S. p) s1 rCell[CellGroupData[{
    - C$ A2 o9 x; r1 t$ W6 s
    5 W* E. f! F; E4 QCell[BoxData[{
    0 p" |0 s. ^: @: E0 |* h/ [, N RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
    . j+ j# W; S/ ~* O RowBox[{"u13", "=",
    3 v1 i' ]0 `% s6 l9 k0 b  RowBox[{
    7 r4 [, B% s6 }' q   RowBox[{"Exp", "[",   K. _$ [8 k' X9 t
        RowBox[{
    $ E# T  s$ w; n3 W     RowBox[{
    7 \' D3 u7 Z; K4 E/ F      RowBox[{"-", . I& o4 R( n7 \8 a) a& S
           RowBox[{
    ; I; C: U' a, q. G2 j        RowBox[{"(",
    % _$ D  h: ]2 @( q, \         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", , R' I: }6 T. C# n
            RowBox[{"(",
    ) L3 M+ M1 G, [) }0 j5 t7 Z         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],+ O0 r+ B8 @9 y. t) o( G
         "]"}], "/.", "DeltaX"}]}]}], "Input",7 @$ g" m4 V5 Z, g% {4 t. R
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {; o" ^$ U9 ~/ |7 t: V  p0 @
      3.57796154237158*^9, 3.5779615599684105`*^9}}],
    & p$ H9 s; T2 Y, f. t
    * q+ C' E& X" TCell[BoxData[
    + ?0 q! ^) H1 L" O1 w5 p; ~9 R RowBox[{"{", / J( Z- h. b* L  ]
      RowBox[{
    ( N+ |4 N" _# q8 }7 S9 Z5 W  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",", ) m1 Y1 G% M9 r2 W( w3 u
       "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
    7 S; E$ @5 S5 Q% j  "}"}]], "Output",) D; h7 ^* _' h0 H
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
    ( i; m) {0 S) f  A4 x% G& E/ Y  r
    - h% p0 @% e: ?3 o8 ~1 w0 dCell[BoxData[
    - l( c1 ]/ p( Z3 v0 k SuperscriptBox["\[ExponentialE]", 3 L' |$ [' W, `3 Z; l' c4 D) I, N+ B
      RowBox[{"3.141592653589793`", " ",
    # w0 k$ u8 \$ N+ [) n' O5 Z9 G   RowBox[{"(",
    $ {' |. |7 C) a* ?; C    RowBox[{
    0 Y- }# {8 p8 \. ^     RowBox[{"-", ' j& h2 u/ j  j
          SuperscriptBox[
    3 O4 q1 {, {$ X0 \  d! [, n- O       RowBox[{"(",
    4 }' A5 ~6 z) L) ]        RowBox[{% z# h* i% d: K4 W5 u, a/ V; o! y) s
             RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 }* U7 @  k- Q" g2 P' y/ Z- ~
         SuperscriptBox[
    4 u5 Y7 d3 A3 R! H  ]/ w) U5 y/ T      RowBox[{"(", 0 W* q8 N6 Z' B- ]' T; s5 ]  N$ p
           RowBox[{! _% w4 t9 f% m6 X
            RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
    8 r) K1 C: V' v$ D     SuperscriptBox[0 {0 O9 D. ?' N. F" H5 K1 z
          RowBox[{"(",
    - e% J4 l+ j0 {* Y       RowBox[{2 u3 c& @; {4 }( ?2 C
            RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", ' b0 O% w% Z1 z- V1 T! @
         SuperscriptBox[. \5 o8 F- H# i1 ~
          RowBox[{"(",
    ' B# ~! g$ G8 r* C" c       RowBox[{. S  n9 _1 T& w  L: O
            RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", 1 _+ X- H* h; X0 S9 M( Q
         SuperscriptBox[
    - \7 d+ d6 d; A4 q" J- n; ~      RowBox[{"(",
    $ z1 F: |. y" h6 R" U       RowBox[{+ I5 X0 {# T, c% R$ E- Y
            RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
    ( R5 O) Q) |' {; `; Q/ e- v     SuperscriptBox[
    1 B. x4 D; D$ T9 ~+ D' D% p( l      RowBox[{"(",
    $ [3 G' t. ^/ ?5 N- e; p       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 1 @6 A- e6 {2 k. M6 X
         SuperscriptBox[
      ^: t2 @) K$ h4 H2 [      RowBox[{"(", ) I0 z# K% b/ ~( b" t
           RowBox[{
    / h2 X! O2 `, B! ^* w, o* }        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", 6 l/ ~0 g8 p; Y6 @
         SuperscriptBox[: [; k, B: f& n: x6 n/ ~
          RowBox[{"(",
    # J: J0 n5 x6 C4 x4 m       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    * U9 n% j! w) S& D$ `* J     SuperscriptBox[9 B4 Q5 p( U) u1 w+ O2 z! _
          RowBox[{"(", ! z. ~2 B6 }' v9 F' g' y0 @
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    0 y. Y: W  f5 S    ")"}]}]]], "Output",9 @6 i1 Y  o; r4 H0 V/ W. G
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
    / B$ T1 w) w  [7 l$ Y}, Open  ]],: e7 V4 c9 N9 \9 l  W
    " i/ R5 |/ p7 u/ ~- ?% J( v
    Cell[CellGroupData[{1 M8 `. J, u; S; K+ @& J

    # n) K2 |' E3 {Cell[BoxData[{
    % X. z6 t8 w( C RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]", % o* E7 Q6 n7 B5 u7 C( J# {$ p: h
    RowBox[{"u14", "=",
    ) ^% ]! k$ L! o; d0 o  RowBox[{
    8 D: B" F0 y2 i7 a8 ?9 D   RowBox[{"Exp", "[",
    & J. t0 n  D( i  B    RowBox[{5 i/ I2 L3 Q$ I: [4 b2 ?& b
         RowBox[{& [# i" z/ |4 s& l% ?
          RowBox[{"-", , |, B/ ?9 N- E) h# ?4 _1 r
           RowBox[{  z6 X" E1 e8 z* |
            RowBox[{"(", % X# W3 d, `+ V  }: T
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", + ^+ }4 j5 Z( ^  l- s# t$ [& c
            RowBox[{"(",
    6 M. g' h5 O( w1 ^$ [& w& b         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],* p/ W) V* G* _" l6 }
         "]"}], "/.", "DeltaX"}]}]}], "Input",; _$ O  g# J: S* R7 {: a! U2 l
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    6 {& v" B; M) [4 @9 c4 E0 K  3.57796154237158*^9, 3.5779615663176217`*^9}}],0 C7 p9 X/ k  ^- Z: E. O( L

    + S4 W. j! Q- P, G) d( C5 h' [Cell[BoxData[
    8 _/ V1 s4 ^- f( j/ \ RowBox[{"{",
    - P% |9 H1 O( [6 O  RowBox[{$ d* E- d" ]8 Z) \
      "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
    4 w% [0 t/ p: \% R; \0 w   "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    * o/ `* k2 \+ h" Z9 J  "}"}]], "Output",8 o5 W/ A, @' T0 f0 t8 Y
    CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],
    1 l/ G. g; U( u' E8 A; Q! P6 E3 h. d8 J
    Cell[BoxData[
    : {# o4 o/ B3 ]3 o) p SuperscriptBox["\[ExponentialE]", 6 I7 K% |4 W3 f% z; f
      RowBox[{"3.141592653589793`", " ",
    0 t6 i! }3 k/ O1 }3 o3 \1 O   RowBox[{"(",
      }. u& L- h: I  J& _    RowBox[{9 ^* t( s+ w0 L/ [
         RowBox[{"-",
    " T6 P8 A+ \# J1 e0 u' [, R      SuperscriptBox[
    ! u5 Y; P: O, s- ]1 }       RowBox[{"(",
    3 w$ m/ v+ l2 u0 W  p7 m7 L' i        RowBox[{9 U3 r- `; |- y6 @; R
             RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ! b( Z7 @, T, _0 g( E1 Y. x     SuperscriptBox[1 A7 R% U! Y3 s8 g& ]
          RowBox[{"(",
    9 y3 b6 X0 F& `8 r: O- r. f( [       RowBox[{6 j1 J) U1 W1 F! _! ~0 b
            RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", 2 [+ \5 l3 v  w% h
         SuperscriptBox[
    8 y% o; M5 m/ e" }: x      RowBox[{"(",
    1 ?5 r- C; T- L; Q       RowBox[{
    * _" c+ ~9 ?$ f4 e) u$ v% h        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
    0 G6 H% o" G6 Q) w; E     SuperscriptBox[
    6 q  S, l' ]- A# z* Q      RowBox[{"(", # ?. m* i" @) i% m% h, h! j- c
           RowBox[{
    # C" P1 ^% i9 h9 E& I        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
    ( v/ T5 C2 k  l+ }% T6 C  H     SuperscriptBox[  ]4 e8 E5 b* z  Q* h
          RowBox[{"(",
    1 x  M% a- ~8 q2 ^$ U       RowBox[{3 G' @+ I5 H+ A( `( ^$ v
            RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", ' Y1 X( }: t! D3 @" [
         SuperscriptBox[
    3 B& G. _3 f& U; m0 x8 {      RowBox[{"(", $ t6 z) u: C& L
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", + @5 s1 E3 N# R2 ?( E1 q
         SuperscriptBox[# ]2 C; @3 f' x4 g8 n" ^8 Q7 D( F( E
          RowBox[{"(",
    - k* E% f' L/ f; O& F- N0 J5 V) B       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 0 _/ e8 s) H4 _& z' R
         SuperscriptBox[& n. S- ?% i, e% o
          RowBox[{"(",   D2 u- p1 J* s# C1 A
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 0 J& C( F% W3 J) j( S
         SuperscriptBox[
      A* k/ X. A& }      RowBox[{"(", * K, J1 o# n# P
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 9 E5 h6 l- o0 K& ^/ Z! y
        ")"}]}]]], "Output",0 H! s3 U  s% u& c% N* x7 T$ P
    CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]! N5 x& ]5 z9 @* b$ @
    }, Open  ]],
    - r, j1 J) L  U6 z7 q3 Q. q" ]
    & P9 u* f8 D0 k) p$ ~Cell[CellGroupData[{
    2 D% C; n+ p) R6 _
    . W9 _1 ^% W: u$ U5 \* z6 LCell[BoxData[{
    8 i8 |3 L$ Z7 Z- c RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]", 5 D4 s2 I  ?$ ], E% d: F
    RowBox[{"u15", "=",
    * J# p7 c7 z5 z+ o" S4 l# V  RowBox[{% V% `2 `  z) h6 Z- i
       RowBox[{"Exp", "[",
    0 s0 B7 _; ~* `4 c    RowBox[{
    3 ?3 ?* Y" m/ F8 h% U* M4 C     RowBox[{
    6 ?& R  J3 {: @. J( Q0 h      RowBox[{"-",
    : a  ?. J7 C& i  D       RowBox[{6 g5 F6 F3 b: H: O) b" C% \5 X
            RowBox[{"(",
    8 X. y9 Z, M) K0 t7 ?         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", : \" Q  E+ ?7 [5 _- d, z1 P
            RowBox[{"(",
    # J& N* f7 Q1 _& A4 g5 G, O         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],& X  k: I" p, e8 I' M( E
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    & H; |: a0 \/ i CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {6 z2 H9 A% q; C# k! E
      3.57796154237158*^9, 3.57796157098203*^9}}],* I, m9 r) ^4 t% f/ O3 n7 {: ?# ]* D- |

    * v; U1 U! R, p9 F! |. s/ HCell[BoxData[
    5 \/ a! G$ S9 |) o RowBox[{"{", 6 K) y  Y% j7 y) I# F5 }2 ?. ~& ^
      RowBox[{5 P: H/ l- {- X8 Z
      "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", ! I0 _% I5 \" t4 D3 o
       "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
    9 Y- {, ?7 M9 H1 x2 d1 V& }  "}"}]], "Output",
    9 j: H( E8 ?  b! L9 {' i, n5 i CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],; A; E! b+ H/ W5 d& y9 |: H
    6 r! S3 I% l* |9 U" p
    Cell[BoxData[
    ) C, U5 Y7 l: }. t- ?' ~5 P* _* J SuperscriptBox["\[ExponentialE]",
    9 n% O& e' l' y& @) d  j1 s8 e  RowBox[{"3.141592653589793`", " ",
    1 x' v. S) Y# g- n7 _   RowBox[{"(", 8 H4 n7 ^2 r# L8 F
        RowBox[{! L! U7 @+ r' y5 {8 R# o* S
         RowBox[{"-",
    6 H! H( t1 q' B+ {2 e0 L& l      SuperscriptBox[+ B7 Y* ^, V5 K$ n7 j$ H! |
           RowBox[{"(",
    / R  t' w# w8 N$ v  d; ]        RowBox[{
    6 A2 I9 w% W% N. V4 C) O! f1 C4 @         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",   c& S& Z# J1 `, w: `
         SuperscriptBox[/ {9 S: @9 d$ {. U
          RowBox[{"(", - {# L" N3 @: t* u0 w: e9 c
           RowBox[{
    5 A) n% R( e" V& v. F- m' C, ^        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
    5 E+ _, v  d  [3 o# B+ i) V     SuperscriptBox[) G5 j7 y6 w& b& S, q8 X" h
          RowBox[{"(",
    - `  V+ q; V! t/ Z+ |2 f       RowBox[{
    & H  P; p" l( o. ^2 H: x; F        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", 4 L; q4 E  M; s6 p0 L) a, W/ f8 q0 E
         SuperscriptBox[9 m# v& B% j6 _
          RowBox[{"(", 1 w8 \5 ]6 _" N- F7 K
           RowBox[{
    ' n6 X: v$ R( r* ~: i        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
    4 l0 o* l5 f) [; F# q8 q: b     SuperscriptBox[
    0 Q4 N, U* s0 f2 Z& ^. i! j' a      RowBox[{"(",
    - c5 J/ u9 `$ Q       RowBox[{
    3 T& U) Y% ^9 S0 `3 x6 d! H        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    2 k& b6 O7 H( x7 a& p3 a     SuperscriptBox[4 [0 F/ W- g; `* Q4 {3 v
          RowBox[{"(",
    2 C$ c- Y% r+ O+ S5 O, R, b* t       RowBox[{
    4 P7 g. z& [4 v* b        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", 7 m2 g) x# Q' K- t6 b) p
         SuperscriptBox[- T7 w6 O5 P3 `7 v
          RowBox[{"(", $ X8 B6 d% g( w. v; N- g
           RowBox[{
    6 o% [0 ?( d9 M4 @* j        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    3 ?6 L+ X% k( g, ?     SuperscriptBox[
    ( ~1 U3 A) q) H. {      RowBox[{"(", ) [. `; `$ S# P0 i
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! J4 c$ L) b2 Q
         SuperscriptBox[
    " A2 D8 ^% O; R& v      RowBox[{"(", & S4 t1 A/ ^- Y9 T( n  \4 k
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 7 Y- J# @* F& F* k
        ")"}]}]]], "Output",: c5 R% ~# Q) u
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]4 d0 K* v& E3 C; b) T
    }, Open  ]],
    5 X  W4 b+ a( S0 c9 T
    1 N* J! t% U9 ~: B$ ?Cell[BoxData[% T* F8 M4 p7 l; g& f( n5 t, [% e9 E
    RowBox[{"For", "[", 2 R/ k6 C# Z' M+ m& m
      RowBox[{
    ( o# ^4 k, L6 l* V   RowBox[{"i", "=", "1"}], ",",
    7 m! h1 s* V4 a# @5 q( n0 [2 i   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    & }% t9 g8 D" s3 L! a. [& |   RowBox[{"i", "++"}], ",",
    $ j9 c: z$ l" n" u7 d) o7 |   RowBox[{+ b% [# O# K+ }4 r
        RowBox[{"Ca", "[",
    , x1 Z+ J; q9 L# {- Q* u  R2 U& s6 Z     RowBox[{"[", "i", "]"}], "]"}], "=", ! |8 t' R( E: l! u$ _( [
        RowBox[{"CM", "[", 2 E0 A2 J0 M4 s) x
         RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",: w* n2 r; H+ a* t7 O
    CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],6 h+ l9 C& G1 L* j# ]. Q

    - d. e. v+ [/ r' o  gCell[CellGroupData[{9 g! `$ v2 V$ l7 Q2 g
    , v: B% p; R. S& N
    Cell[BoxData[{
    , |! D1 j3 `3 M+ K' p4 Q RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
    ( i8 j4 i: ?0 k RowBox[{"u16", "=",
    ( Q6 ?' w/ v/ s( i' u  RowBox[{) {7 |9 I% Y+ X* A' {/ n1 R1 s
       RowBox[{"Exp", "[", 3 e6 p/ [" p; |& r
        RowBox[{$ o# V9 H& ]  i& w. M" Q
         RowBox[{
    . }# G- e! Z& Q7 v      RowBox[{"-", $ a0 l+ q1 h  w& P  N9 P' J- a* W
           RowBox[{2 D" G. k4 @; u5 K( u, N8 L' w! I; T
            RowBox[{"(",
    : b+ W% M1 M& d         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", $ J8 h, `# [! H6 J1 n
            RowBox[{"(",
    4 ~; |/ m$ `; m, K" ~         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    . P8 x4 |: {. s     "]"}], "/.", "DeltaX"}]}]}], "Input",
    # i/ V0 P) g/ J5 H1 [! @+ s/ o CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {3 l# s- a7 Q$ a& |# @9 g, m
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
    * a& ]1 i9 q' ^1 H4 _$ S0 s  3.5779615751004367`*^9}}],; r8 X1 K) I4 c7 D
    . J8 T, F) R. j3 b* z& V9 ~+ S5 y
    Cell[BoxData[1 K1 ]! {! V4 i5 m9 u( T
    RowBox[{"{", & \+ S% F# Y$ K' ?
      RowBox[{6 R  }$ c" x$ K- C2 @1 C) P  F% w: V
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
    / ^" W. \$ |: O+ M   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}], * p- b& H/ w% R! l  E
      "}"}]], "Output",
    - I- o6 K! S# |9 M CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],4 r) B) j. g* E1 C& l3 h9 U

    % ?$ j4 w+ p& m$ ]$ KCell[BoxData[
    - p! C5 A" G& s+ r SuperscriptBox["\[ExponentialE]",
    $ _6 ^) ~# j$ u4 \  RowBox[{"3.141592653589793`", " ",
    / R; n+ I3 d/ g( c   RowBox[{"(",
    $ O1 n% O, A) k& _5 b5 k# V5 Z    RowBox[{
    / E+ [" X  E* X' ~     RowBox[{"-", 9 A2 K" w  _# a- U
          SuperscriptBox[
    $ n: R2 b4 r% ~6 N' Y       RowBox[{"(",
    ' `0 M! w/ m0 A0 b; D" j4 V        RowBox[{
    % h4 T' S2 W6 T2 d         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", ' x1 S) r+ N1 ?. g
         SuperscriptBox[7 S+ j) I0 i1 [
          RowBox[{"(", ) {/ V2 e% }5 R. @; [
           RowBox[{% @% D* A& b0 O6 ?& m
            RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", ! n& K: B( [/ X8 R; |2 G
         SuperscriptBox[  o& ]$ G# S3 Q4 K- C& ?' S( F
          RowBox[{"(", ( c6 i9 k3 P7 ?
           RowBox[{; q' }$ i/ d/ ]# o' S# `
            RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", $ R( k! V" r4 \0 G
         SuperscriptBox[
    # R2 [1 @' }6 `/ z      RowBox[{"(",
      }6 b% K$ B. X+ M' e% ]       RowBox[{
    + [! T8 v6 `' w3 i! u7 r; x" o9 c        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", & `6 ]  d: w$ F6 h1 e2 @% ?/ K
         SuperscriptBox[8 d1 Y- H9 D' n' p& X5 [. D4 U* Y
          RowBox[{"(", 9 W, \0 _% A2 ^
           RowBox[{
    * f; R8 J. u( {2 K) |( ]+ `; ]2 ]: [        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
    # s7 I* c# Y8 m$ W) n$ R) T     SuperscriptBox[
    - R7 _0 [' s$ M" W      RowBox[{"(",
    0 N+ L; u. \( L* m9 W  I: F5 j: o# n       RowBox[{. _' u" G5 ~6 N2 Q* N
            RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", 1 |3 k$ \/ w. y  \0 l5 V6 Q
         SuperscriptBox[9 X! `  l5 b% W
          RowBox[{"(", $ j5 j( b% D& u, y
           RowBox[{( V( D" g. s2 Y3 z1 k5 z# ^
            RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    9 N& M( j* d" X& ?6 k6 u     SuperscriptBox[
    - }/ i8 _* B* x# x% s/ G3 X% f" |      RowBox[{"(",
    ; P8 [/ b6 p4 B' E" h       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", & S( g3 ?4 A7 Z( S! f! ^
         SuperscriptBox[
    2 k3 P  M3 F' N3 N" H0 p% J" f      RowBox[{"(", 4 t9 V, {  h5 u' Z
           RowBox[{
    : x2 v% J, k( o) m: e- _9 y        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
      q) \" ~1 t9 p5 P$ s3 n" `4 @ CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]0 J, h# t5 Z9 p
    }, Open  ]],
    5 B$ M5 x) o  a( G# v" {
    0 U* F$ j; O8 H9 j5 B) vCell[CellGroupData[{0 G1 m* L* g6 ~

    " e* @* ^1 H& x5 N9 t$ wCell[BoxData[{
    - X4 E# S  ^3 p* O RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", * U# \( M7 _0 p! Y  y4 g
    RowBox[{"u17", "=",   f7 u& f6 p- B- v
      RowBox[{
    9 f, ~5 J5 V. Q. H; W; L   RowBox[{"Exp", "[",   d! x" k2 Q2 `+ K4 Q
        RowBox[{
    % Y! ^# l7 Z( ?     RowBox[{
    1 E, M2 m! ^% S% k- f- g2 T      RowBox[{"-", $ ^6 I/ U6 V3 ^, p) D
           RowBox[{
    # o- r; J# Q- @% h/ d' A        RowBox[{"(", ! u' @5 K& f6 k  K
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 3 E" N, M) [5 L* B7 L3 ~7 z
            RowBox[{"(",
    7 O* w# j, w2 Q. R% B8 B         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    " F: _) C: P7 h, p/ {5 b3 s/ g: a     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ' K9 x6 I- a# h( \7 s9 U CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {) w3 u- U( @' W+ \* J
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, 0 q: |1 W, G" H/ N1 z
      3.577961578953644*^9}}],
    : a  u% n9 r6 E5 b! U* J1 e5 R4 V
    Cell[BoxData[* {/ F+ p, ~; E$ ~' ^
    RowBox[{"{",
    5 r' R  \8 M2 ]$ K+ }* }$ K  RowBox[{
    " M% ~7 e3 L' T) }  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", , z% h) c& z/ M  m' _" d/ u
       "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], * g3 C1 l4 g3 z
      "}"}]], "Output",
    5 a$ @9 D8 D1 {2 I: [7 g CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
    , Q5 Z: Z" M0 l. y' A6 M
    ! P! h( H" _' P+ U9 `7 p- [Cell[BoxData[4 D* x/ [4 h2 l1 f- x+ p. r) s! w
    SuperscriptBox["\[ExponentialE]",
    - M. d; C- I" D3 T0 T  RowBox[{"3.141592653589793`", " ", 2 ~) c* ], ~$ n! T, q3 c7 Y5 }
       RowBox[{"(", ' v0 G5 V8 \4 ]
        RowBox[{* J$ O" ~9 \% D, L2 ]
         RowBox[{"-", , {& t/ e9 R/ h* a4 y( u" W; o
          SuperscriptBox[3 H2 ^4 I* ~, G' ]: @1 b/ x0 c; e$ C
           RowBox[{"(", ' ]4 F7 K6 s' S8 ~! J
            RowBox[{
    % m: g7 b1 q& y9 k7 u' `6 ^         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", - b" L- u0 ?4 j8 E
         SuperscriptBox[" j8 {' g2 `2 t) F6 {! D# q0 V
          RowBox[{"(", " d- d6 b& s  h
           RowBox[{
    $ g3 v$ S8 o' e        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
    $ e7 @" j7 g! d0 {3 K     SuperscriptBox[
    / }- V0 |6 h* o. p* m  d! g      RowBox[{"(",
    ; Z* U( U. z  P0 x+ `* ^! w       RowBox[{
    . }: u7 b5 A9 Q$ v' I2 M        RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", ; a$ x, u  J4 s3 X" v- j
         SuperscriptBox[
      x1 q& W2 P! Y% p0 ]' \# s7 ~      RowBox[{"(", 1 ~4 S7 C0 j8 R" Z% b& q% ?
           RowBox[{
    + Q5 s' y. i/ {$ [        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", " v2 A- l9 J2 f$ |' R6 }7 T3 m" {
         SuperscriptBox[/ ~- D. J7 X8 R! U0 \% A, j
          RowBox[{"(",
    2 M4 D0 a# H9 J& K! F       RowBox[{+ j1 ~7 ]* v5 y
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    " w6 Y& p7 s0 D; }- C5 |+ j     SuperscriptBox[
    - T0 w7 p. E8 E6 D  T" Z. f      RowBox[{"(",
    * U( _# |6 D2 ^7 M8 V8 I; }0 _       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", - v7 i' M3 N. x' @/ d
         SuperscriptBox[+ ]% z2 B4 T, @
          RowBox[{"(",
    4 s. {9 `4 @/ T: Z& R) d       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    9 ^- R! I# r- A/ N     SuperscriptBox[: ~$ G2 M4 Y% U: e; A
          RowBox[{"(",
    - d9 y% L8 U  g- s) Q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 4 z) V" P* R% h% B* I' `; X
         SuperscriptBox[
    0 M/ D# A% Y" W6 L      RowBox[{"(", " O( j; E$ ~2 ~) m' j
           RowBox[{; L9 c1 ?: J0 v) j0 |% q
            RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ( d+ I5 V6 S3 \6 J0 @- o% a
        ")"}]}]]], "Output",* r7 K5 ^0 V& D% F! Q  b6 O
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]. z7 \. n  U# V- a" c
    }, Open  ]],) w! N* ?0 \9 a
      d) \( p' T9 l" L# |
    Cell[CellGroupData[{
      Z5 w+ j, y3 w" m1 Z3 Y" @+ J3 x+ a$ k
    Cell[BoxData[{1 Q: y/ w( Q) I. \
    RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", . B8 p; J) a& H7 N. V( `- O
    RowBox[{"u18", "=",
    0 c! d. b* u! F$ t9 _  RowBox[{
    # Z) B  O* @4 K, m# p% j   RowBox[{"Exp", "[",
    8 @8 y9 V2 }+ _    RowBox[{2 |- _- d: I* q5 O2 @
         RowBox[{
    % H5 b, Y, Q+ O2 s3 a' z* i2 i      RowBox[{"-", 0 N2 \' Y1 d! T- }8 m7 o3 |9 e. x$ f! w
           RowBox[{* J- U, V) B; V0 b% C: d8 y
            RowBox[{"(",
    ' m2 l0 e6 U! \) l9 @4 @# s, c9 b. A         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    & p% D; D6 z! B8 g  l5 m( U9 y        RowBox[{"(",
    % |1 o- F" @5 M3 z/ y         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],( [1 [* W5 n9 [& g# l: ^
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    " W/ h# t* a% k/ b( j+ A: C2 p CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {; y) s! n+ V4 a; N
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9, 3 x& K4 T/ [/ m: N
      3.5779615828848505`*^9}}],0 X3 x2 ?  E; t' d7 m' s0 c4 j' K
    9 A- \+ E8 Y& L0 \# u  {. s
    Cell[BoxData[
    ' m: l' ]6 J6 `5 r% m RowBox[{"{", + T! a( T  Y8 s. z
      RowBox[{
    - y5 v. f! r9 t: X  "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", 6 V* Z" b3 O, |6 R
       "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    ( i% o3 a8 L, b" P2 i  "}"}]], "Output",
    - P7 i+ [4 g1 I& ~ CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],! i  X- ]# c6 P

    ( c7 U" l6 Y1 _7 }: TCell[BoxData[2 [; C" n! W4 t9 w. o
    SuperscriptBox["\[ExponentialE]", 2 I! d) }% h( S8 p
      RowBox[{"3.141592653589793`", " ", ) s  H2 \( t. l* P: G& S
       RowBox[{"(", 2 l! Y3 Y  |2 y9 Y$ R& e( Y: K% W
        RowBox[{
    + ?7 P9 \2 L0 v( \/ p     RowBox[{"-", ) f) _! z; J" X. K$ z
          SuperscriptBox[$ {3 m% Q/ x+ Y, p
           RowBox[{"(",
    % H% a8 Q# \( P8 M% B        RowBox[{
    * }& d6 Z7 ^9 ]4 c6 S6 S         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", % w* r9 `: Y% t. ~3 J$ L) d
         SuperscriptBox[
    ) p  |. F* Y  R5 W      RowBox[{"(",
    " t. U+ [+ F  h3 ?2 G" b       RowBox[{7 ~9 l# p# L+ s
            RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
    # i: d3 t. r& k, D* a4 s5 X; x     SuperscriptBox[9 Y/ p# ~# w) Q3 m, P1 e
          RowBox[{"(", ! q$ ]2 s) d# _" U! ~1 L( p
           RowBox[{4 ^5 U4 `% z: W: E+ Z6 V) i
            RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", ; _8 |; J- O8 U8 a2 K
         SuperscriptBox[
    $ w1 @, p6 a& y+ D. P" Q# U      RowBox[{"(", 5 s, ^4 ]0 p8 ]5 e
           RowBox[{
    / f9 s% f  x% D8 B$ d9 {( H        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", - N* S; A% x- ]1 v+ @  v: ?# G
         SuperscriptBox[
    $ R: B: Y% P1 _3 u: T- M' h      RowBox[{"(",
    ' V. n* r& r& T       RowBox[{
    * U! Q. t8 w( X( [' r0 {3 M        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    8 ~5 U& y! Q8 R) O5 J7 a     SuperscriptBox[
    . K5 |$ P6 m8 W" Y/ d      RowBox[{"(", % D7 {. [& W3 X, S2 E( c2 R
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    # a' B; p" S; N: B4 ]3 d0 g: t     SuperscriptBox[6 w* D+ l' S: c. v$ _
          RowBox[{"(", 7 y& v, [- Q" J& M1 C2 s4 Z5 {; N
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    $ D/ U3 x3 f$ c- n5 F0 y     SuperscriptBox[
    ! \/ |+ ^: E# m4 c4 S, ^6 Q/ ]      RowBox[{"(",
    3 q2 S' m7 @0 d; M2 m9 W# K3 z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", . y( ?+ G8 j: e3 V9 h, c0 q
         SuperscriptBox[; {+ V6 h" I+ D: f& `2 s
          RowBox[{"(",
    5 l6 J) n# [, k3 T0 U) U( N       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], * Q# ]5 v( z. K" [1 b3 W" T
        ")"}]}]]], "Output",+ a/ J# `3 Y+ n
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]& C4 Y( U' Z# ]; t, K
    }, Open  ]],  r4 Q9 [& y( Y1 \8 P

    " o! X( v& D0 o- p  o: }/ e2 uCell[CellGroupData[{
    2 S" m: N8 o& m$ H0 o. g- _
    ' ^* \8 ]* q# D3 L9 [# DCell[BoxData[{& d' c7 F: k. M( j) E
    RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
    6 N, I# {- m9 x1 D% g RowBox[{"u19", "=", ' b% f7 y3 V5 M, v6 W0 b$ W
      RowBox[{
    9 D4 |% z6 L  `3 Y9 e   RowBox[{"Exp", "[", , H0 G- F2 h; K' M
        RowBox[{; h+ z1 j& V, j3 j; Z' B
         RowBox[{, Q5 Q; q4 l1 s6 c; k+ @
          RowBox[{"-", ! [, o2 |" a& V$ \
           RowBox[{  v; q! [* M4 b0 L
            RowBox[{"(", " N/ |3 v- G, ]9 Z; R* E
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    % k: R. `: n" L" \, P" `7 V* m        RowBox[{"(", ' x1 {- U8 m4 ~6 ~( d/ [& u0 ]2 |
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],7 J1 S# Q  P) P; s8 |1 l
         "]"}], "/.", "DeltaX"}]}]}], "Input",% E! Y+ {5 k+ [( }
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {  ~6 S6 \; E7 Z  ?( C1 G; b
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, ; b% w3 }4 q6 f; D9 ~+ s8 i3 f. U0 f
      3.577961588890861*^9}}],
    6 L6 r* \, g- ]) {) U. z3 y; n, ]5 K" e8 e
    Cell[BoxData[: ?( B8 b! l- C9 M, u
    RowBox[{"{",
    , h& p. E4 l: A+ P: d: I( I; D8 a  RowBox[{
    3 i9 w. k" b* n# q( Z  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
    # z) c+ N3 N5 g/ Q0 b$ D   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}], ; k& w& L& k1 p8 a  A
      "}"}]], "Output",$ a7 P* x8 q2 ^' g$ T. C
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]," v" `9 S0 C! x% b
    8 Z! A' V& p7 d! ]! H# n0 Q7 o
    Cell[BoxData[
    ) E1 S: i, i) \! \ SuperscriptBox["\[ExponentialE]",
    3 T  d  P5 e1 n) S3 o  RowBox[{"3.141592653589793`", " ", 8 v/ V2 }: T' a# G
       RowBox[{"(",
    / E5 K3 s9 P: _/ [3 D    RowBox[{& N3 e- [! B; ~, G8 f! Z; e6 Y: ]
         RowBox[{"-", * h$ x. @/ G9 x* H! }6 b
          SuperscriptBox[
    + B1 D3 u- Q) _4 l9 ?       RowBox[{"(", : ~6 y0 ^# I, i" U/ H/ `
            RowBox[{
    ! b. i% B) u2 s9 g; B         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", 9 L; y4 c7 ?( v, }4 M4 D4 k
         SuperscriptBox[
    6 m; O- B- X0 U. @& n! ]      RowBox[{"(", 8 B. Z% _2 R. T( N7 _* Z& T
           RowBox[{
    " \/ Q% V2 y' M        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", ) ]: L: J2 ^% h4 |, J
         SuperscriptBox[8 a4 i) {% J0 D$ @
          RowBox[{"(",
    * w; j2 l: F. y! Q- w9 g       RowBox[{
    / E  j) e; N2 T6 J; D        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", : S1 Y! [+ E- w( n! g
         SuperscriptBox[. I  Z# Z2 P7 \
          RowBox[{"(",
    3 V6 c/ w7 Z7 P       RowBox[{7 \0 S7 ^# v& S( U
            RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
    + F3 o5 k$ n' e: S% M1 a' k9 o     SuperscriptBox[/ b0 J) E0 Y+ S5 R6 @, N. ~
          RowBox[{"(",
    - f1 s) B3 R7 B, G  ~. I) {; m       RowBox[{5 i+ S) z; ^5 _6 F; a: s: H! G4 W6 S
            RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
    " ^) `5 E& O& L9 a& Z" s$ x' C     SuperscriptBox[
    - Q1 x! Y* g5 z/ B      RowBox[{"(", ( p( J7 U0 z# A. V0 W' n6 b) s- R
           RowBox[{! R4 p" I% a; j) [& L
            RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", & Y4 r6 ?6 t( T& `( H9 J( w
         SuperscriptBox[
    1 d& {$ M. {4 [, m      RowBox[{"(", 9 \. [) L' F' a8 r
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", " G3 l3 {- z& [0 e0 g
         SuperscriptBox[
    # l& N6 T. {2 O" J      RowBox[{"(", # T' N5 Y6 ]) Y+ P8 a
           RowBox[{4 ]0 F8 L$ M( ~& T% q
            RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    1 t2 Z0 d! L8 M: a5 o7 c6 Y     SuperscriptBox[. S+ A+ T" H" C1 E. E
          RowBox[{"(", % Q/ p+ Y. p0 s" W& ?7 m9 F# t
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 2 Y1 R# ]/ r8 q. M1 A6 b
        ")"}]}]]], "Output",, W, D5 Z6 @  x5 d$ ]" K
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}], S  ]8 Z' P7 `3 E8 F" s
    }, Open  ]],
    % [8 s3 S( c5 m5 [9 [0 g
    . y9 z# n5 g9 @- tCell[CellGroupData[{
    ) O" w% y/ z) L2 j: |
    9 {; ?2 J. y! ICell[BoxData[{
    5 f; \- g5 s& P RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",
    7 Z! t- W1 \2 ]9 [& F RowBox[{"u20", "=", * Q3 e& F) d6 S
      RowBox[{
    " V" g7 d+ ^/ \9 h+ r   RowBox[{"Exp", "[",
    & [8 A- ~: D2 f9 o$ m, D    RowBox[{
      D' s4 Y2 U9 V3 [; h* k* M     RowBox[{7 V4 ]. l% G: C& e
          RowBox[{"-",
    1 W3 r" \& _' C1 u$ G8 C       RowBox[{
    1 H; I# E' D; R: W4 g7 j        RowBox[{"(",
    ) y6 Z$ q' D' b3 K5 m( |6 H         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 8 l. r# m5 Q/ j" A$ w+ S9 B
            RowBox[{"(",
    ! q+ w+ `/ s& e* |; i         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ! g0 [& e) ]$ K- T     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ; \& S. C3 E2 v: P CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {, l- i2 Z! ?2 j) ]% Z
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
    & k, H+ }. n- |6 j  3.57796159382047*^9}}],9 N0 a1 t2 w0 a6 ]8 D

    $ ], l7 n) Q$ g8 J1 m# VCell[BoxData[) h( O) i& V- {
    RowBox[{"{", # J  @: q7 ^4 W5 G
      RowBox[{0 F* A) e- B. `
      "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", % A; J* m: F7 d) W" m- [1 S8 O
       "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
    . S7 l/ c4 n4 j6 X8 x# n/ a. m  "}"}]], "Output"," y( v9 ^- W. U6 O6 L% M. s
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],& v6 S3 R4 {$ b

    + x( x/ `. r2 K+ X: d! bCell[BoxData[
    # e: Z8 `5 z% `# w0 O SuperscriptBox["\[ExponentialE]", / |7 B/ v: J7 y8 n
      RowBox[{"3.141592653589793`", " ", * Z2 H9 j9 D) e% X0 k/ v2 v7 a
       RowBox[{"(", 7 z4 Z% S6 N2 w/ }& P( o3 ?
        RowBox[{
    ! T3 z. ?* ?! `/ }! _' z     RowBox[{"-",
    % H, o. q* |& V- U' R" S      SuperscriptBox[
    + Y$ A, q- _9 g- C) G7 a8 ?0 f       RowBox[{"(",
    ! P) A3 t$ L0 L0 w- U        RowBox[{$ p  c7 |9 ^, b" Y
             RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", 1 X5 p, Y& r0 t9 T7 v" y) Z
         SuperscriptBox[
    4 ]! Y; p4 G( ^& G  o: ]- ^      RowBox[{"(", 7 ^; V. I& }3 Z) B
           RowBox[{
    ; k2 q/ j5 L" \        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", 3 e" m2 S, t0 f$ S7 [! ~
         SuperscriptBox[
    ( L) q6 c, b1 l6 [9 a      RowBox[{"(", : c7 ]" T4 y0 P; P
           RowBox[{
    3 w, f" @( ?/ C$ M3 r0 u* ]5 ~& \        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    " \0 [- F4 g# p  Z+ P$ o3 T     SuperscriptBox[+ V5 l8 G9 }3 h4 _# {+ k
          RowBox[{"(", 1 ]4 D8 h- q' A
           RowBox[{
    , _; Q" r* f  i$ d) U. V        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
    , A% [, g! e2 P3 T     SuperscriptBox[
    7 b  b  m, i3 _& c0 n7 [      RowBox[{"(", 9 w: ?3 k- @0 c2 X5 O1 x; x
           RowBox[{
    ; K! X) x) S1 {- {- f        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
    ; L9 m6 m2 U; A& W# I) f     SuperscriptBox[( {& f0 z1 C  L0 D8 [0 T4 \: F
          RowBox[{"(",   _& J. C& q8 O6 z+ M
           RowBox[{
    + V+ F; ]2 ?/ a5 u1 \7 D4 q        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    5 ?8 d9 S3 q/ `5 ]" N$ z, O     SuperscriptBox[3 I& S) G5 A4 d
          RowBox[{"(",
    % S' V7 {* J7 X# D- M       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", / _5 _* x& _$ u5 r
         SuperscriptBox[" v& {+ A( r0 ?. Y) D
          RowBox[{"(",
    3 J' b  _* G1 c, m5 w1 Z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", $ ~& f$ _+ i6 ~1 S% M* j8 {
         SuperscriptBox[# p  ^- o, V/ R+ @+ I
          RowBox[{"(",
    8 y% }2 c+ _) {- L" `       RowBox[{& S4 ~2 r% N0 D! `8 F. W* u
            RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], , a& b% W: s' r$ |# e
        ")"}]}]]], "Output",
    " O# E( F8 C7 E! a8 S CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]/ X6 p- y8 m, Y. L
    }, Open  ]],. a) q* S9 B0 ~& E7 Q
    6 y+ @1 V  Z9 n$ F& `0 O; g
    Cell[CellGroupData[{
    ( F% Q7 }* w) G' k9 ^, A
    ' W2 K  n0 j& L2 X$ U4 x$ `Cell[BoxData[{
    ' c- B. `, a2 t5 ]. Q4 }4 R RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]", ( J, m! O% Y/ a" L
    RowBox[{"u21", "=",
    2 p2 i2 Z! O0 n8 V6 s( s/ L  RowBox[{
    2 P! [( l! X2 p* O5 h   RowBox[{"Exp", "[", - Y5 v2 Q" P: Y! @  q  ?
        RowBox[{
    ) m% r5 N$ t) d8 ]# m; A     RowBox[{
    6 e: p& C: v0 x5 \  P% P      RowBox[{"-",
    3 J! {8 J# z, f/ Q% g& m       RowBox[{
    ( T$ L" [0 t) b2 d; _4 C6 ^        RowBox[{"(",
    4 D& \- I4 ^" d9 y/ }2 u1 ?         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 9 A' q. Z, a( E, I1 O8 |+ z
            RowBox[{"(",
    : ?5 T8 T( n! N, U7 y2 Q         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    4 h5 b! x& e  ~! _- t" R! y     "]"}], "/.", "DeltaX"}]}]}], "Input",
    - l- _8 x+ H3 u: `& u" W CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {8 v( b: V6 V$ ~: k# d# Q8 k" D
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
    4 c9 ?8 g" n; W  3.5779615991556787`*^9}}],, E& F2 I) @7 f$ J2 V

    $ u/ Y/ g' j- W9 T4 Q- Z6 M, UCell[BoxData[6 p# ~1 s& Y4 J4 _0 a
    RowBox[{"{", " W9 _0 n" T$ J* n  \- S# E
      RowBox[{' u$ O& B" [3 r2 d" _7 F9 p! s( `
      "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    " t* H# r  c7 r% H   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}], 8 B! P+ f0 |# U) N
      "}"}]], "Output",
    6 d9 Z4 }" Q2 j4 J6 c CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],2 R. m* V! Y9 c7 C2 H
    2 G! G$ Q" Z# r5 h+ K: x
    Cell[BoxData[
    : Y. {/ c* `9 u3 a6 O SuperscriptBox["\[ExponentialE]",
    * q. l! E6 r+ j0 M  RowBox[{"3.141592653589793`", " ", ' ^$ D. H' B2 ~! I9 a
       RowBox[{"(", & ^% H0 t6 I( C* A6 @! ?
        RowBox[{
    , @: \( V. k* y* \0 I     RowBox[{"-",
    0 i7 o7 [  F" ?7 b! L) j7 T# ~$ M      SuperscriptBox[/ B! G  S8 h7 B3 F9 Q
           RowBox[{"(",
    + W; L9 Z0 P9 F# n1 `" v) i        RowBox[{9 m8 `( T$ g5 p' p5 H% ^
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ! A4 i8 h/ @  |$ U9 Y* x     SuperscriptBox[
    1 E$ x  d% u) b% f4 c! t      RowBox[{"(",
    " t( m. t/ U: T       RowBox[{
    + }" i9 p2 N$ e  [* t5 L        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", 9 s8 j; H6 _' J, a
         SuperscriptBox[
    1 I4 l$ ~9 O" A4 z. P( K      RowBox[{"(", " P) k3 l1 v, `1 c) g( N
           RowBox[{
    ; A# Y1 o- ]3 S) S5 Z7 s        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", " m, Z1 t6 r2 v; m. A# e5 x
         SuperscriptBox[
    ' j, k4 D; X% h( J& L      RowBox[{"(",
    . w0 G. j: s, b/ X' r1 O       RowBox[{" @6 w2 [: ?! q4 J9 b
            RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",   [- @: d5 X2 J) j
         SuperscriptBox[3 D6 e) z) {3 x& q' O; ]
          RowBox[{"(",
    - _- R0 J( \+ X+ d4 n9 M       RowBox[{. O' y5 G; u* q
            RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
    $ Z  b4 l. T# _3 t* Q     SuperscriptBox[( O: J9 Y1 S, f1 N4 J
          RowBox[{"(",
    / A6 W; x7 Z) O) j/ X/ b' L( T       RowBox[{
      C3 o2 L: r% a4 t/ {        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", & Y/ z5 B; ]! n2 h6 v; b8 O, L
         SuperscriptBox[
    : r- n0 P% t3 C9 v$ D1 T/ l( X      RowBox[{"(", 1 L+ I3 X9 x5 @, N4 s5 K
           RowBox[{' J3 @; p6 P9 L" m0 B
            RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
    ' i9 i- q1 c% \6 f, b' ~7 S     SuperscriptBox[
    , c" Y6 S+ {0 U      RowBox[{"(", . h9 h0 `/ ?6 B( C* D3 `
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ! K9 Z: v, h& R! q  N     SuperscriptBox[
    0 `# p% @/ |% I: A) }( |: g      RowBox[{"(", 1 t) Z7 x* l# t) H
           RowBox[{2 S: Q( C1 `$ u- {. q- y% i0 u
            RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ; D4 Y9 j1 B9 T6 H
        ")"}]}]]], "Output",. ~) n! r$ R" A! }0 y- n7 ?
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]* k- P7 I! ~/ g
    }, Open  ]],8 e' q  V- c. w* f7 Z8 N/ f

    ( i! Z( S% u# g* q( ]5 P# {* xCell[BoxData["\:62df\:5408wi"], "Input",. G  f  ?0 w5 S/ f1 J
    CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
    ) w+ B2 L' M' R( w+ W3 t
    % `# F0 v8 h/ I8 Q2 [9 ]( ?Cell[CellGroupData[{
    ) V5 ?$ v* J2 e* d. @
    ! }" R1 |9 g; I! tCell[BoxData[8 k1 \+ n. T& P4 @, H
    RowBox[{"y1a", "=",
    ; S% K% k' d( M+ G- @1 t  RowBox[{"Table", "[",
    & X' C* E0 g! O& r! O6 ~   RowBox[{"x", ",",
    : I. h1 {5 k. Q& [+ f( W+ a    RowBox[{"{", . l, G2 g, `! ?  I
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    ! B3 U$ j. C- _$ o CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    " X/ @5 e2 H5 `$ d% Z2 T( O  3.5779226649375*^9, 3.5779226810625*^9}}],- ^7 I9 D, J6 u6 w4 M; |( ]' t2 C$ F
    3 R; D9 D! C. \
    Cell[BoxData[5 e2 h; \8 k# c' s; n
    RowBox[{"{",
    ) \% J0 b/ d( c3 V5 g  RowBox[{' E: I9 K0 j0 E8 _2 N
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", : c9 a! r* g. n3 j5 {( X6 o4 ], a
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",. d2 l) B+ X+ g& j( y, N! M
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", ! X* ~+ F6 J. q$ ~4 q0 B
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
      J" Q$ H9 w1 C, |   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    . W6 [$ U$ J; \  X% s6 A1 D   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 2 T& u. B/ P9 u3 B
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    2 \5 [* W; l2 `9 g0 E% R& _   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    5 T3 R! K$ f# h- Z   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], " n2 [. L7 q8 ^+ i( o3 g* r
      "}"}]], "Output",
    - b4 z3 B$ C2 ~& e2 k CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
    7 M! J1 ?$ _! u8 I" n; f4 ]  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
    2 [9 R# ]! D. D% u0 y/ t}, Open  ]],& D$ ]% f  \$ t! Z+ V

    0 I1 C* \* G- {* hCell[CellGroupData[{
    6 a: p7 i7 X2 P0 L/ D1 ~  R
    " S6 o( b( }9 `6 c2 UCell[BoxData[
    8 {$ S1 U4 T* w RowBox[{"Data", "[", 3 {% z6 Q  S0 T* S
      RowBox[{"[",
    ( i4 P2 _+ W. v% b   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
    9 j- l+ ^; {. J3 Y CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {4 A/ y6 y0 v3 P2 s6 f
       3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
    $ A; H/ z$ t6 d1 L  z
    7 L: k3 w. C5 [4 `; w4 k) nCell[BoxData["0.899882`"], "Output",
    - S  X: F- J" t" M CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    + {1 }- ^1 W/ R$ ^/ ]   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
    7 E5 I- ]/ C& b! [8 e5 c   3.577961929080654*^9, 3.5780123419375*^9}]3 V( u: f5 j! d& t
    }, Open  ]],
    " \+ X* s* s/ Q. E' }2 K; C  N# r1 ^$ S. ~
    Cell[BoxData[$ _8 I" ^! e7 g: x0 }+ `: d! X4 b
    RowBox[{"For", "[",
    8 _; Q- V8 i8 A' Z& L  RowBox[{
    7 W' B1 U( R. V) g   RowBox[{"i", "=", "1"}], ",", & E; ^3 j! Z% |0 ]5 q. P; ?# T
       RowBox[{"i", "\[LessEqual]", "60"}], ",",
      R4 w, A5 @# Z   RowBox[{"i", "++"}], ",", ) P2 H# M5 T. W4 i; H  w1 }' c3 G
       RowBox[{1 P0 c4 L6 R- W$ j
        RowBox[{"y1a", "[", & _/ q+ _$ X4 q$ A/ d. Q6 r
         RowBox[{"[", "i", "]"}], "]"}], "=", 9 d3 M! J; C9 ]7 w  Z4 L! U
        RowBox[{"Data", "[",
      u5 @8 m, Y) H, a4 J     RowBox[{"[", 5 u+ f  Q. ^/ K# v7 H% O$ A
          RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",5 L4 ~% \' o9 O% j% S2 D
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    8 C& q3 m8 i) |# P   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    1 v4 O. Z$ B  s7 a3 M9 \* ~5 i   3.577922923203125*^9}, 3.5779588839702806`*^9}],
    ( Y; O6 ?6 s) e# `6 e% d
    6 F* @/ p' p4 A5 a; aCell[CellGroupData[{
    2 |: c: K2 _* p) V8 I3 ]/ w7 k9 U' c& g+ }
    Cell[BoxData["y1a"], "Input",( X* }5 \) }& g% y( r% Z
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],! {* ^3 e; q/ w( H7 `  ^1 X
    1 C$ d  O  A" a- a6 V' X/ {
    Cell[BoxData[
    / n5 v, W, I+ J' a+ D& j  B RowBox[{"{",
    0 u/ I4 U! P1 O  RowBox[{3 E+ r5 x% O2 e( d+ s
      "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
    8 `4 J* q# r4 w& \" H7 b   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",",
    " L! O! U. e3 H5 f2 z   "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",", 7 |) ]% O8 x- ?$ U8 U1 N
       "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",", & L  R. p$ m& k1 X5 |# O5 [
       "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",", + {* [$ I; R' N; V
       "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",
    5 a3 k) }: F, C1 d# [" Z   "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
    0 z: J% R1 O  F7 E0 f% x   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
    6 i8 ]( b3 d5 ]; A1 b% p& `   "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",",
    2 v0 ]- S8 L( V/ d8 H8 z   "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
    7 ^1 Y2 O$ a- {8 C! C$ x   "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",", 1 i6 S* G# T: i8 G; e: q
       "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
    3 i: @  j2 x& L1 ^   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",", 5 ]4 m: @- ?4 w9 |. g$ V$ s' n
       "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
    1 }4 M6 u8 p4 `8 f   "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}],
      ^/ Z: X% V( ~6 r) y0 R  N3 Y  "}"}]], "Output",7 M' p: Z7 u" z! m8 Y1 h. D7 E
    CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9, ( |" U9 S" m( {2 G
      3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]: V' z6 [5 m$ N8 N$ L9 j! }
    }, Open  ]],, [0 }. i, |4 A- p* O6 R7 }

    : `% E2 u: C8 M6 u; C& tCell[CellGroupData[{
    & y& C4 a+ w: w; }" x9 g5 h$ r" \; p" q0 \
    Cell[BoxData[8 c5 N4 X" r. T* q7 C' i' M
    RowBox[{"m60n21", "=", 7 \6 x9 G1 R6 b+ R' }( t
      RowBox[{"Table", "[",
    ' u7 p; E! Z% P   RowBox[{
    : K2 B5 b1 g1 Y) \9 w; J    RowBox[{"Table", "[",
    - B4 K' ]; M1 }& s2 N9 e     RowBox[{"y", ",", $ r/ m+ m  P, V# |8 c( X7 @2 m* N% L
          RowBox[{"{",
    ( l0 ~0 W( b& k0 C       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",   U& D6 w9 ~/ m: u' n8 n, n# }
        RowBox[{"{", , l9 @/ G# E( ?8 V; {& z- o
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    3 p. F+ u# x1 k CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {/ V# X& y; S% {* W# H
      3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,
    6 Y/ J0 b$ }7 G7 I; c( `  3.5779619706547265`*^9}}],4 {3 H7 ~6 j9 H# w' \

    . b3 l% x% q0 R& `1 eCell[BoxData[9 }( v3 s/ f  u
    RowBox[{"{",
    4 T, m& m/ M& [/ O8 F  RowBox[{5 s( h! t( D+ \' H% Q
       RowBox[{"{",
    : E6 @4 {6 U4 B/ A: D    RowBox[{7 X8 o5 _+ G" S! E3 y
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; Z% M, ^3 ^! c0 Z: t  H; h1 ~
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , M! w3 i) x, P3 e' q5 g     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, K% }3 T" k  A3 c; o4 i0 j; y
         "}"}], ",",
    # Q2 s0 h% Y: Y; D# _: v4 o   RowBox[{"{",
    / q/ A1 d2 A1 X4 ]8 a    RowBox[{
    3 U' ~  v& R. W, S  @# k    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' b7 R6 P' L: u0 A6 H
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * _4 D5 ~# T2 G& o+ @; m8 p9 p! h! V
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 w4 P: k2 f) ]" y8 C     "}"}], ",",
    " j" i) W* [8 e$ [( u! Y" @) f! ^- p   RowBox[{"{",
    & I& Z" u( B+ E, g% p6 ]    RowBox[{' e/ g/ L) V% G& q
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# {, b- q8 x( |3 z  m4 X
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 L" ~/ R$ {; R' G$ B, u     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    / D4 D* y( Z0 a0 p4 O     "}"}], ",", : W( O2 t" ^- E5 C* F
       RowBox[{"{", ) Q6 G4 w" X; j
        RowBox[{
    . o# z2 v' C6 A" a) {5 f2 S    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & d4 O6 l5 N& z' }! `      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # |$ ~3 I! u7 s& f+ S
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    * x, d* z7 ~( o- Z) D     "}"}], ",", 4 b8 q! {7 ?! [, |) u" }
       RowBox[{"{",
    5 s7 t7 H+ C: r    RowBox[{, T9 j5 {9 M( {  r/ c9 C
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; E# J# K2 J; K6 b      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 l% x2 w0 l$ m! X6 _     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 H2 n$ F( y8 o' v
         "}"}], ",", + B, E3 u; E  A+ K
       RowBox[{"{",
    & ^7 w: M3 g# L% Z: a3 t    RowBox[{
    6 g5 D( ?5 \) L( t    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) J9 H0 G+ K1 A( p- W" g1 X+ L" E      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 |% s6 j' v3 r; S$ S8 Z. M
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 j) }3 t4 \. @6 Y/ T
         "}"}], ",",
    . ^' w, I+ h$ Q7 M) c3 v   RowBox[{"{",
    1 ?0 F1 L' ^& f' k    RowBox[{
    * g, H% i% d0 o* d" ]    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 ^7 h( c" o! X' I- P( v# Y: t      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; g+ J: L9 a+ N8 ?     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! p3 H$ L$ O9 U; [* Q6 v
         "}"}], ",", " r3 b7 q( u2 I, U
       RowBox[{"{",
    . w7 @0 U, l. F4 s/ [0 Q" |; {    RowBox[{% t9 B) o$ g- j* H
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 S+ l% I( X+ Q$ W, I
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * z  h  z# E* a8 M9 |6 i  |
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' I7 z1 t! ]! \4 r2 i
         "}"}], ",", * }5 T# y- u# b6 ^
       RowBox[{"{", + C' z2 n9 G+ _( y- _
        RowBox[{
      V& y& ]7 V) M% S% Z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, Y6 q1 e! o7 R, N
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    8 j6 U$ t, B7 Y2 Y0 w* \- A$ s     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 a& I+ A( g4 j
         "}"}], ",",
    " j0 D& |! ^) h; K5 q2 V  R  g/ k   RowBox[{"{",
    ( Y; P: o6 B- }# l  R+ _$ J- z    RowBox[{8 i' B+ v  g0 Z6 u9 Q* W1 C/ |
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( \0 I7 T$ n) n& g: N, X3 o4 W      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * R+ k+ T4 a& e. H- f7 W: j
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( P# P0 O2 |( K3 ?5 b" Q! E
         "}"}], ",", 1 m, e+ @( n3 g/ q4 i
       RowBox[{"{",
    / j: A! s1 o) L7 O; M! C    RowBox[{
    1 t- q7 w& M/ Y  g    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* N. h+ u3 o) I' s
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & L6 F* E+ S5 C. d) a     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 h3 v& T/ _0 c
         "}"}], ",", - }% J; D6 v3 P* T( _+ M
       RowBox[{"{",
    ; n( Z. g# i3 Q# {4 c9 u    RowBox[{
    " c1 n5 K& s$ I$ r& I! q5 ?    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 g' n* r' f$ G( _( M  J      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % N* b& o. \1 M# t5 ^     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ) y! I3 C8 Q; B6 d4 Y# E     "}"}], ",", + Y4 q4 w9 R3 [7 J. P: ^
       RowBox[{"{",
    3 ]3 \3 ^( E: u6 Z* X) u* n    RowBox[{9 ^% S4 _, E2 g6 @2 K  ^* d9 ~& W
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      {( Y3 F% U" ]) W, V/ f. ^      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    # m& ]% p4 F0 p9 Z& E1 g     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 T) U' @7 Q, e6 P% e2 L
         "}"}], ",", , `% E5 j! k8 @
       RowBox[{"{",
    3 q& q  K0 a3 G    RowBox[{
    . t8 g$ V$ X2 f    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( h$ ~3 K" V4 F5 C2 C; e' T      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 g/ t# G6 {9 k# F. R1 v- J/ W$ H     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 X% w/ z- Z9 A+ H8 k# @     "}"}], ",", / a1 Q2 G& g9 a2 s8 a9 ^4 R
       RowBox[{"{",
    6 G4 C% m) W3 F$ a# K$ D( v    RowBox[{
    : L3 t7 J2 Q1 r/ r" R. [0 K    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : U- b+ @" y6 n( J5 Y% {      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    + A; b  ?8 n& z# N5 {8 W     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 `2 O* c& z0 i  F; e     "}"}], ",", : \. r8 j+ z% J
       RowBox[{"{", + X+ [' D- _- A! l) L$ f% Z( w; `0 R
        RowBox[{3 L% y; C" y$ C% J4 I' @. {
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 ?# x+ t) V; N2 M4 [+ \0 y# n" k      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 R' q+ `. r9 J" O5 W, N     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    / p5 x, \6 J4 g8 L# Q# ~7 v     "}"}], ",",
    8 I. Z3 U6 L  v   RowBox[{"{", : {0 ]1 B1 s) p
        RowBox[{  |/ x2 D0 j5 x1 `8 k; v* r
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ o( i5 U- M# p6 M1 T. n, N
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; d& i) @! ]. Y* @     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; s. f; G0 B3 j) z, S' g     "}"}], ",", 2 F( R. R6 n, _, z
       RowBox[{"{", 8 r. v# c& w! w, s5 N9 r
        RowBox[{
    5 C0 `6 ?% \9 l  k  l- V* H    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 k6 S7 h# k) X) o      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   @7 C* |" ~; W9 _2 i1 z3 v1 s
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- a2 s. H* R. Z2 G, j
         "}"}], ",", 6 {5 J, a- F$ e; w' R, ]9 h3 ~* E
       RowBox[{"{",
    " d6 u1 L" R) O) J    RowBox[{) F: T* ~5 f; L9 \; h. _& W& h
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 H: S. m# F2 ]$ x2 t- z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & m& R6 i0 ]& c. J     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    / x" w, L* Q: L     "}"}], ",", 5 O5 S; F& W" a
       RowBox[{"{", / W$ p( }4 y7 |7 r4 \6 H' v6 |
        RowBox[{, L0 d8 @8 x, C9 }  h, _1 c6 R
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( \2 n( r, b& `- ]) y( C
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    / F) X8 Q( X) z2 {3 U     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    4 V: V; y; O- V/ D& |# `6 W     "}"}], ",", 2 V, Y- c( C( k
       RowBox[{"{", 3 B. q/ G  J" k
        RowBox[{
    9 \6 R& y8 A( X  ]% P    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& E# I2 y/ u9 _; n* U- d( V" y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 i: P9 y$ p+ m1 _! s" E. k. d3 v
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' S7 E0 _3 k9 @- }% k/ l3 z, [
         "}"}], ",", ; [: h4 Z" w3 m8 R
       RowBox[{"{",
    $ Z# O/ |4 O) G& z& e4 g* a    RowBox[{
    & _' A+ l) a; s# A$ W    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ i% E4 g; b- F6 w$ p
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ( P$ L- U( }2 N; j     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& G! C0 b# `# M' c! T2 i
         "}"}], ",", ' W8 X0 z  c, ^% C
       RowBox[{"{", ) g% \* ]0 T1 b$ G, V
        RowBox[{9 _8 j2 ^( S/ b' `! ^
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 ~' s- v( ~7 S1 x% z& t      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 T" l7 ]% R7 X
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: f2 a  v7 L* a7 G' J7 L
         "}"}], ",",
    + F% h6 P" l. Y8 d1 B9 |   RowBox[{"{", 4 b) @! d  ^6 Y+ n
        RowBox[{& N4 D; `1 _. P+ @
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' M. v% y/ i' z- u
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " R  ]* i: q* N% L1 A  p
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # g" i: O9 r2 t# z& ]5 H/ L     "}"}], ",", * l1 L. n0 C9 r3 |- }" Q
       RowBox[{"{",
      I/ ~5 {+ s( T1 @    RowBox[{& q( i: m$ h$ g+ |, H" c# l
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 @, U' o2 J2 a, O. b& J  u      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 v) b. v; B* N2 K- l& M5 C! j: m# ?     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    + g0 P3 T  ^7 d5 c! A' s     "}"}], ",",
    & X# _) V& X6 i$ H$ O2 n6 O" Q   RowBox[{"{",
    * ]* v0 I3 @  g2 U& @8 O$ E! w& s    RowBox[{6 s4 r$ W( H" M
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! d6 c; o1 n) Z0 C& g1 ?      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - ~6 a5 q3 R# f) T2 H. d% ]
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    6 R8 Y6 s" Y' B     "}"}], ",",
    # Y& n$ I9 v+ i" K1 l; g1 U( ]7 L   RowBox[{"{",
    / t/ A8 \6 [2 p8 E0 `9 ]) C- _    RowBox[{
    7 X4 p- ]. k; v4 O* i( c& k    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 F6 |0 W; @+ ~' D; j* _- @
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    / B3 T, b7 j) r9 n; G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 u# M' r- u% x5 V/ K0 ^     "}"}], ",",
    ! P1 G7 ~8 r% E' ~   RowBox[{"{", ( n* b* W' X2 O+ K  c0 v! r
        RowBox[{7 m" u6 o- N. F' j+ U
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 e9 z- L7 c1 h, c9 t      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % s1 g1 }  y% P0 [4 p9 h1 n
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# |, v1 w3 y0 x0 K- T
         "}"}], ",",
    $ _- \3 s$ X* `5 h) L; k4 O   RowBox[{"{",
    & V2 Z4 g: ^5 n" l7 ~3 @/ O5 Y    RowBox[{- x& J  H2 O7 \$ ^6 {( D( [6 |
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, b0 B' J( v/ X% O+ Q
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; e; H) c3 U7 n% Z/ M: E. k
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 d" x, B0 z; Y/ N& f- ^8 t     "}"}], ",", $ n) V+ N1 X) c, C
       RowBox[{"{",   s1 f6 a6 e9 ?* ~/ M; a9 d
        RowBox[{5 O8 n' X9 \+ w9 E; \" W3 }) Q
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; S8 E( H1 g4 Q1 s  I$ B# y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    5 t2 {" w$ }7 E6 b, k     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' _4 h. `$ x' ^- c  i5 ~" ?
         "}"}], ",",
    7 i+ I7 W: ]' E" |   RowBox[{"{", 7 }2 E1 H2 m; M
        RowBox[{
    3 L. T) z7 f" R+ b" y3 R" u$ V    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 A! W9 u& Q+ q  R7 {# r, a7 Q
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 v2 J) Y! t  f, l1 f1 I$ l
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 B* G$ E7 t3 i6 H     "}"}], ",", " ]0 l9 Q$ F/ f$ w( l6 w! @
       RowBox[{"{",
    . |- z3 S5 J0 s; n7 f+ H2 n6 G    RowBox[{
    9 B) |! p" Q  S    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% \) e7 m' j" W5 |  ^, f
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    8 I! B, ?; R2 A7 _6 u9 ^     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    7 J0 w3 ]% x% m9 s! N  S- H     "}"}], ",", . L2 m+ y. j8 ]" B, ?8 V
       RowBox[{"{", & t, }+ C" X! h5 T- c8 \$ `' I8 P
        RowBox[{
    ( V& P/ s  O& C* x2 w$ V, }4 n    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 h1 c: p7 N1 a/ v. h# e7 W      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , @% {! l$ }* n5 Z( `( {" b/ D+ l     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 \8 H  ?; r! B8 _     "}"}], ",", # l3 J/ X5 c( [, l* S$ R8 m
       RowBox[{"{",
    " y8 R& h2 f, S9 ~    RowBox[{" \3 i+ C9 }+ ~1 R0 [
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 t- l* S. P0 E" V      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! d, f" o1 I5 C     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 [# M% B6 B$ b6 ?     "}"}], ",",
    ! b4 i, N* R7 [' M$ k5 B; Q7 _( ?   RowBox[{"{",
    + ^4 v$ a) s( e. o    RowBox[{
    , t, o4 k( l2 y) y/ K# k3 E    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    7 x/ h6 |5 k; H: m4 o! F# w      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " q- w8 Z. l) O' c. ~7 t7 ?     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      e. p+ |& m: @4 C9 J/ P     "}"}], ",",
    & E" i5 n* x. a; R   RowBox[{"{",
    , t! I8 a' }! ^( i& K+ i    RowBox[{% q* }3 B: ?; z1 z; f" f
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ' q8 }6 O' f& ^# b5 K  d5 v      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   C# Y6 C( M$ o' g
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 i0 b) k( n- V0 A
         "}"}], ",", * _0 `* A" V# o" l
       RowBox[{"{",
    4 E. w8 g, r) j7 x! W    RowBox[{- H9 Y/ u, @( n4 N- ^0 p: {
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    3 s  j8 B# }5 ?4 Q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) V$ L% e9 x! l1 t
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& u9 m7 J- @& m# `3 L" B4 {
         "}"}], ",",
    : e+ }6 i1 T* D' h# x   RowBox[{"{", / {  [6 {! N* i9 Q/ T
        RowBox[{( z* z4 G3 t. X
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 _( X4 p5 h; [# _! `& M
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) j1 Y5 |$ P* O8 q+ Z     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 F+ N- C& T' P: P! {
         "}"}], ",",
    5 E3 R$ ~- u  _3 }( |   RowBox[{"{",
    ( J7 f! M1 I9 y4 e. S    RowBox[{
    1 H5 z- ~# p2 w    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! F0 x$ x) R! ~1 {8 q7 |
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , M& J0 v/ f; V1 R     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 g2 K" |# @% q* D/ E* j
         "}"}], ",", / ~" n: I# F) F8 a4 r
       RowBox[{"{", - s0 o5 R# G- V0 Z2 d3 T. l" j
        RowBox[{' l( W5 N& h7 Y0 o9 y
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # k( e. Q& V- p+ i0 }      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : l5 H: _0 G  H( u8 {
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # g! D* W! W1 n7 Q' c     "}"}], ",",
    ! v: j$ _, h" b, C   RowBox[{"{", 0 W  i& }6 T" C- Y
        RowBox[{5 f/ h5 ^: ?  L# N' _
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 o" R+ G& ?/ C6 r* j: `# X, u' \
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' j$ X8 u& m6 V
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    6 v8 O/ s' @3 n! Q$ g) e     "}"}], ",",
    0 F/ J/ k* ]* z" o( f2 U   RowBox[{"{",
    9 X& E' k4 b% H5 b) A% E    RowBox[{
    * I7 ?- @* f, ~  H1 `- U    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  c0 u1 s6 ^) {+ v( z! ]2 I
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 s+ M5 R- }0 h. p5 u
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," r- e9 M1 j# Y( i$ w1 d
         "}"}], ",",
    : c- W0 g& [, `2 K   RowBox[{"{",
    6 |( y8 \% c9 j  T7 o! S$ n: k    RowBox[{
    9 o3 E' c& _; Y3 ]5 j+ K/ l    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , K/ X1 X) x0 l- I- t1 y4 X' p3 m      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   p& W: _# R8 e9 @
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    / }; ~0 H/ c) Y/ `' |* v     "}"}], ",", . u1 ^5 ?& H. G. J
       RowBox[{"{", 1 v, s  J$ ^: @% b& ~
        RowBox[{
    5 p- g" Z; x4 ?; ]    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' A1 l$ l6 Z) @3 b# K
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    / x, F! }# v2 z5 ^     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  `' n& n. r! m& K9 a& P
         "}"}], ",",
    ( a5 b- `; @1 R# g1 G   RowBox[{"{",
    / R' K4 s1 ?, a# ^6 G5 A" h6 S1 w    RowBox[{
    . E: K& }9 O( [$ p: f    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  k8 ?2 r) c5 @
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 b( d: h: K6 N( q7 R# Q& A9 E
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* i! J8 J' v: y& Z$ J# ?7 L3 l& D) u
         "}"}], ",", & W9 D% G% J) n# I4 z4 [* k
       RowBox[{"{",
    3 T9 c- |: h- w! v, M) M( I) T    RowBox[{- O1 Q& M& f9 T; r
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 W2 K4 `, b% Z5 u3 Q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! R1 }( e9 E/ B, w! i     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    + K2 C1 y% r! O4 I     "}"}], ",", 4 z' T9 e. O7 E. c5 i( O  q4 ?
       RowBox[{"{", - h3 F9 j- s8 A' Q. u0 \- Q
        RowBox[{7 Q+ ~9 ^7 f" E. G
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 B5 J5 o& ?  Z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    5 x: M. @1 z! j! k2 V. _9 j6 ^. d     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# G6 u4 s: d, b; }) B4 Z
         "}"}], ",", 5 T! C3 a3 F- g3 F" u+ G
       RowBox[{"{",
    0 n' l0 c, v7 Z4 l& e( h    RowBox[{
    # \5 d  E$ ?7 J5 \    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 H- n$ V8 s1 k: u6 `% K# a      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    6 |* u  v  G& o- L8 ~3 a6 @     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 Q# D2 N4 G, T
         "}"}], ",", " h0 l7 ~( x8 x
       RowBox[{"{",
    4 P' D3 U' }% J# s  J' J$ z    RowBox[{7 `) b1 Z  }& }, T  ?$ H
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    $ n' r% F) o5 @( u! D. M! Y# x/ X      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 _9 |1 a( x: L& l: J  e
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 b" A" U* D' o2 `4 s- w- ]     "}"}], ",", 4 x2 T2 v( R0 R7 T( P
       RowBox[{"{", ; b: O  U( Z3 W% D
        RowBox[{
    5 R+ c/ o5 X( c3 z2 H* ]/ [$ z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) e* _: G- b, Q# k. g- ~  y+ T      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ( t: T0 s: w+ R     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, k/ ~4 Z. j2 \* w
         "}"}], ",", ) t% c! `' P9 }9 z! |
       RowBox[{"{",
    / h8 L" @6 l3 @  u& ~/ X- F    RowBox[{8 N& l& p1 f' m% K+ a  O
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 N9 m( |8 I, R, L
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ( W9 Z' A2 x+ }" [4 l6 I2 Q. B     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' t, H1 s* @4 E) D8 z
         "}"}], ",", ; g4 h" Y- }" V% q; a: y2 W
       RowBox[{"{",
    " @8 ~" u" l! n& j5 w    RowBox[{
    $ l, x; @' r8 p9 J9 z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 E* z' k+ K% x8 u      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % r1 f$ a% W$ I4 T! r7 [     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ' T6 h' K8 G5 Z  m     "}"}], ",",
    * f2 m, q4 V1 ]$ Q7 l   RowBox[{"{",
      z) U% H4 F9 N3 Z    RowBox[{
    5 Z& u  G" Q# X' q# ~; x    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( [! o1 c" M  {- L- I      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * H* R. s; ~3 T' x/ e
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  T# ~+ ]& s& K1 f0 [' q" j6 @
         "}"}], ",", - J3 Q6 k5 y7 G5 H- _: h4 o+ F
       RowBox[{"{",
    . O/ V: x! x% k" [0 n* m    RowBox[{
    / a, g8 a# R- e( ^0 V! |    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      G8 O( s! Q/ F" P      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 g+ n* J/ Q. y5 a5 Q
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* m4 V; f" o" D2 C: W+ m% K
         "}"}], ",",
      v6 L, p3 q* L! o! L  m: `" W   RowBox[{"{", . K# k* ]7 V. B: B" l8 n2 k
        RowBox[{0 P% c) o9 \/ f# A2 [: m+ l
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 X) o6 M4 q  b; I  H5 R% F      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) m: B. I- F' L2 \! f1 E+ D     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . \1 }  \: p; v5 A* }     "}"}], ",",
    4 q0 [5 Y; V3 H$ Q   RowBox[{"{", 4 ~; _+ c( c( S: q9 B
        RowBox[{+ n# m0 U% x& Q0 s& Z+ G3 H
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ @- y8 h# ~' k7 {- m6 g
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    5 `; L2 ^6 ]1 M. h  x! f# Y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    7 Q5 x- S' I. C+ P! v4 v! |     "}"}], ",",
    9 ~5 _6 U; r5 W   RowBox[{"{",
    8 U+ k" C: v: b6 j    RowBox[{
    4 z+ G4 t0 h" f* w4 y/ r% L1 c    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    3 f0 k/ S5 |+ a* i/ C% ]6 e1 z5 q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * W* U; U8 j7 \     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , Z0 b: b% C' R( }     "}"}], ",",
    - ]) U; }$ E: g4 T( g" D8 H   RowBox[{"{",
    / r+ @  ~% x% f. ~: ?    RowBox[{
    7 n. V4 l7 C- P$ S, q8 a    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 i0 I6 n+ _( U& E' o. {      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 Z' M# N5 W  y  S. W! P
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 L6 a/ ^% s( z. ]
         "}"}], ",", " P4 G; R9 ?1 F+ e7 U- p' O. Z
       RowBox[{"{", 6 }# V1 _! ?0 f6 k
        RowBox[{
    " L/ Y0 n# [# X7 W$ P# T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 m/ q; O- O. Y      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( F1 F4 _$ C! \
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ A; h, V. r& S; C
         "}"}], ",", 0 j- U- d6 J2 }  A$ b
       RowBox[{"{",
    " e( T  e8 ?$ D7 H7 i0 o* H- t    RowBox[{
    . p; \) z/ b# m. p; o, G- q    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 ?2 H/ Z& W! o8 P# D/ D1 ~6 P: v4 X
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 g! ^! O7 h; [7 d0 o8 Q  k     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 w' J. k* r* s  g; Y6 T  g$ v     "}"}]}], "}"}]], "Output",
    $ F. I7 {$ ?) F. u3 d0 Z CellChangeTimes->{
    + z% v3 A3 E& P: O$ L5 R' f5 F7 p  3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
    ( z) g7 f7 W- |4 X& W   3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9,
    - h# V5 ~9 m. `   3.5779619748823338`*^9}, 3.578012345453125*^9}]3 f7 b, x6 C; @" O6 j$ |
    }, Open  ]],  x4 N: t7 j1 ~: r
    - g" }2 q; g- b5 v. J
    Cell[BoxData[
    6 N" d( ?; S" Z% W. h! y RowBox[{"For", "[", $ f* q7 p3 O" [$ Y6 j
      RowBox[{
    % H$ o; e4 X3 Z   RowBox[{"i", "=", "1"}], ",",
    * o$ J) r% i( r3 q4 \3 g0 Z9 F6 L6 w   RowBox[{"i", "\[LessEqual]", "60"}], ",", 9 Y5 a+ Z* e( e! I6 i) I
       RowBox[{"i", "++"}], ",",
    ( s9 q! @2 `% H* m   RowBox[{"{", "\[IndentingNewLine]",
    " d. v# X3 S, K2 b) n    RowBox[{
    + e* f) N! X5 |  G4 B% h. H     RowBox[{
    4 s( ?8 Y0 [2 V) ~      RowBox[{"m60n21", "[", 1 }) j& `. E! u6 F
           RowBox[{"[",
    5 n* u. G/ m+ z! A$ w3 e        RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", + h- B$ o; H  [( U, y6 z
          RowBox[{"u1", "/.", 8 P/ e6 y$ e' F8 X: W/ R1 P
           RowBox[{"{",
    1 D1 Y  x/ A4 n7 d        RowBox[{
    2 ]: j' ]6 T+ V# V         RowBox[{"x1", "->",
    4 `5 q: j: @6 D/ q          RowBox[{"Data", "[",
    ( i* F9 Y; y/ P1 r8 V5 E           RowBox[{"[", " n9 T+ I5 o+ K2 ~6 C0 c5 e8 @& e" a
                RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    3 i- ^( s- O6 r. Y% p: U         RowBox[{"x2", "->", 6 r$ T* v2 f! a3 w4 @$ Y
              RowBox[{"Data", "[",
    2 T! f' \2 _! O0 {- @  H           RowBox[{"[",
    5 b3 f3 V- f* s; ~% l            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 6 K% c2 T( L4 G" I: ~  b
             RowBox[{"x3", "->", ) ~7 ~3 G8 h& n; W0 p8 A
              RowBox[{"Data", "[",
    # L' j  |& A' l           RowBox[{"[", 2 V2 @! ^( H9 X( W! ]1 j9 _
                RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    6 W6 I6 \( T2 z/ |         RowBox[{"x4", "->",
    8 F+ H' C' M: n; a# n. }+ [          RowBox[{"Data", "[", % {8 k/ t7 T1 b# g
               RowBox[{"[",
    . N) ~7 b( r# ~: l            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    2 @; ]- Q* C! h9 n. `         RowBox[{"x5", "->",
    $ P# X. g' y' z; B1 {6 E& D          RowBox[{"Data", "[",
      _: `2 m. q, a' N# p) `           RowBox[{"[", 0 u& s9 X2 P; I6 e+ l$ i  r" X
                RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 0 g' F" U$ g, M8 c- v; r. s
             RowBox[{"x6", "->", ! T7 |( c$ K2 P. {/ A* |
              RowBox[{"Data", "[", ! @9 i  S9 ]) _9 \
               RowBox[{"[", 5 s/ n2 {& E% ]' u  k. Z  p' u
                RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    " R$ Y  L# G4 S3 V7 T, M7 H         RowBox[{"x7", "->", " c/ d5 A* B5 b2 R+ z3 p
              RowBox[{"Data", "[",
    + r1 u; _4 N* Z6 J6 k6 k           RowBox[{"[", / f3 T+ L/ r: [
                RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 6 `1 ]' ~. ~! O
             RowBox[{"x8", "->", : n! G" v7 ]9 n6 r# W0 X0 q
              RowBox[{"Data", "[",
    # G1 x0 b; u9 T, U) {8 Q6 [- H# j           RowBox[{"[",
    ; V8 K7 w* v- B! d- A+ Y2 J            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    . p/ Q! k% C1 M- E7 G         RowBox[{"x9", "->",
    8 F+ Z/ }! }, [          RowBox[{"Data", "[", 1 l' ?& d, Z& v% Y
               RowBox[{"[", ( O4 F; Z! z8 S/ k
                RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 0 ^6 _) y. L/ q( t, K
         "\[IndentingNewLine]",
    $ y$ L) ^0 j+ V( }+ ^( y     RowBox[{0 f! c/ n: y" {' p) c
          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
    - B/ k. y* e% {9 \: B8 \6 A1 a神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗

    5 k' r" S7 r( Q4 j7 T(* Content-type: application/mathematica *)
    ' l0 Z# P5 S* K' X
    3 d+ k1 \) P" t* |0 Y6 b(*** Wolfram Notebook File ***)
    5 ]1 ^5 l6 g2 J+ W& Y7 D(* http://www.wolfram.com/nb *)6 H% M# |, N9 M. G0 T/ b2 ]: N

    4 ]% q3 [9 c3 Y  l% k(* CreatedBy='Mathematica 7.0' *)- W% d" p2 M% q

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

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

    . p2 e* D5 y2 `4 {7 kCell[BoxData[1 H7 p* [1 Q4 F, g
    RowBox[{"For", "[", ( K$ R/ X- x- E( c
      RowBox[{
    ( [* J2 q4 {- \4 N! U; ~1 o   RowBox[{"i", "=", "1"}], ",",
    8 O% ]* |% T5 q1 T- L0 \: A   RowBox[{"i", "\[LessEqual]", "9"}], ",", 3 Y- w# K1 w- b
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", ( ]2 C# |2 V3 D. O+ b6 t
       RowBox[{"For", "[", ) a: H' \8 o6 n" j. H
        RowBox[{
    7 y* ]! H+ ?+ b& E/ u     RowBox[{"j", "=", "1"}], ",",
    3 U5 |, h+ i7 I' D# x8 ~& c" p& x     RowBox[{"j", "\[LessEqual]", "80"}], ",", % t. I8 ]. k8 Z+ Q7 Z- d
         RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", ( p* B# Q0 E( h, i) T
         RowBox[{. D* l, x& \6 m) w8 v' C9 V$ s
          RowBox[{  I/ @8 N* T$ k7 J1 e1 s
           RowBox[{"CM", "[", : E/ j7 x& }" Q0 k
            RowBox[{"j", ",", "i"}], "]"}], "=", "0.0"}], ";"}]}],
    9 M- d. A6 _0 s    "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",
    5 f# z& C* l" m! I CellChangeTimes->{{3.5779132504375*^9, 3.577913285203125*^9}}],5 G; H& Y- _- ^7 T/ A8 c
    9 i" t  L5 ~5 t: V+ B7 S0 a
    Cell[BoxData[
    , U+ M' a5 k+ g# e RowBox[{"For", "[", 9 Y2 k5 m+ s: [0 \. s
      RowBox[{9 t( r, R% r+ t& v1 E$ @6 z
       RowBox[{"i", "=", "1"}], ",",
    - M; ~* G/ M. q   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    ' v3 J; Q# y2 U" A  U$ S   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    * k6 w' s3 r" w  Y$ k7 g: ~   RowBox[{6 r- M) I: \7 {+ e" t: W
        RowBox[{
    + N$ `& ~7 e" i     RowBox[{"CM", "[", + v1 ]( E9 g! C  d* A
          RowBox[{"1", ",", "i"}], "]"}], "=", 6 P3 r  g; V$ H& N, @8 [
         RowBox[{"Data", "[", ; w2 q5 u1 r4 e0 l  U
          RowBox[{"[",
    5 q4 G: e( f+ \% k! f& T% I+ ?       RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}], , [2 S/ ]  q8 B0 @7 k. B
      "\[IndentingNewLine]", "]"}]], "Input",* R! s: i) [/ M, h  Z& ]( r
    CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {7 y' C  r: C: W8 A# Y
       3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9, ; K" [$ \# V. u0 R- v
       3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9,
    8 b3 P3 i8 B7 l8 y6 Y   3.57791344209375*^9, 3.5779588070933466`*^9}],+ C& e$ n, I9 s/ [. v

    3 n' H: a' [( t3 P! r/ XCell[CellGroupData[{
    6 A6 Q: y5 `0 b3 T! Z1 y# U% j# O) K# N% G) [3 w- W4 W4 o! C
    Cell[BoxData[{
    ) c8 S3 k  g; Z RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]",
      a0 w* e$ v. p) k! l7 F, {( T0 a& { RowBox[{"M1", "=", "1"}]}], "Input",* J$ `. E. O2 }, F1 Y' n
    CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {  ]3 Q. n( Q- E0 _( J3 E
       3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9, / C7 x9 L- R1 k% \
       3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {& F) J$ A8 y' j: F6 h! ]
       3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9, ; t& x3 D* P# r# D' O4 \: R' V* D
       3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {
    : B5 d0 [- R" a   3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {
    4 E* x/ M- ~# g! ?- M   3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9,
    % Y0 v6 Y. q  p% ]+ F! _& O; e   3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {, T, \+ H6 N' }5 P- o
       3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {5 I/ r" E% u/ F! Q8 m; V
       3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9,
    6 o1 l9 ^9 ^3 Q. I   3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
    1 B3 r$ ^# \  h9 h" w* v! Z' s! r8 A% @2 c+ W9 o' F
    Cell[BoxData["0.2`"], "Output",: v3 e$ k% F, g8 k
    CellChangeTimes->{
    " o3 v7 r3 q- V2 ~  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    ( I0 b0 h7 [2 h* x2 I' M/ P   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {+ u  ]: y0 F; f2 i- [# O" @, e' k
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    , g' ]1 ^  _4 \; s   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
    . J% u9 L. d0 u   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    , i. ^& _( G% j   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {3 Q% _4 V" u( o9 {) G# y
       3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
    6 ~4 x* k! I  q$ q3 V. x. ^2 m" P1 Z   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    # T. J( }7 E2 z- n/ n' P0 w. I) }. A1 I   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, 0 y* Q; @2 f, F- b  x
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    * |. W4 {: f" M5 J+ ~; ^7 T/ h   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    6 a/ \, o3 ~) F" ^  Z   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    ) \0 t' J. X5 o   3.577960510686717*^9, 3.578012149296875*^9}],# o; \1 u" t5 Y, ]& ?' o. z

    - x5 R4 K& l( HCell[BoxData["1"], "Output",6 n, q# @9 d2 }  T" r! c
    CellChangeTimes->{
    # L; A: U* `, z: ]( Q) P" m  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    # E5 Q. ?( C9 \6 ]4 N7 P: H   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {- ?% V9 `6 S0 j+ @
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    7 _$ U3 W$ j- z$ \7 p8 v! \   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
    5 ~6 K% K& r, [% o- e5 u   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, + ]; c6 |0 b6 S1 P0 h! b! R
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    7 ?$ _* u, b* Q- ]; E   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
    ! Z; O- w4 H0 ~5 Q- k   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {9 E, y4 C& x# _
       3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, : A$ u0 g8 _$ J8 c/ o6 [0 @
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    / V+ O! P0 p% Y9 N; x6 ?9 m   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, $ @! V) a2 J  s) P2 L
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    ! @# v7 d! m# R  R   3.577960510686717*^9, 3.578012149296875*^9}]
    8 b# T& \" g' V1 S0 Z! ~3 n/ h}, Open  ]],
    " e  G6 I, ], q0 V8 ~9 N- j4 v% ~* L
    Cell[BoxData[! \9 k, J7 T& M/ g. G8 J$ G# u# R4 v
    RowBox[{"For", "[", ) f" f, f+ r! N
      RowBox[{
    2 }$ v: h  V# T: i0 ]   RowBox[{"k", "=", "2"}], ",",
    - j+ s( M$ H# [2 U; k( a   RowBox[{"k", "\[LessEqual]", "60"}], ",", ! s2 H" p/ I& M# D
       RowBox[{"k", "++"}], ",", 6 n) Z. P; R; c% d/ ]$ L  U
       RowBox[{"{", "\[IndentingNewLine]",
    ; f( N. \) |. M  c/ f1 m    RowBox[{4 i7 k' ~) Z1 E& D! ~! F4 v
         RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]", / R  v2 ~9 P9 c) o
         RowBox[{"For", "[", + e# x! v6 Q* ?4 z+ B' E: ^; I
          RowBox[{
    0 h$ {- D+ S7 ]       RowBox[{"j", "=", "1"}], ",",
    $ q5 d: M6 B! q( _       RowBox[{"j", "\[LessEqual]", 3 D' |2 C- X) Q! T  [1 I) }
            RowBox[{"k", "-", "1"}]}], ",", 2 C  `. U" o" Q6 w5 H  T
           RowBox[{"j", "++"}], ",",
    # d1 h4 b, }5 f4 G$ J       RowBox[{"{", "\[IndentingNewLine]",
    4 w: h3 M8 }4 m        RowBox[{" z1 u4 ~9 m) p! v1 }
             RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]", 7 Y5 G4 o* Q$ x( N2 ?, U1 k+ B6 I
             RowBox[{"For", "[",
    2 C7 \6 |1 d9 J) B0 j' z0 [          RowBox[{4 b) q, Y$ h% X# n7 d$ e4 g
               RowBox[{"i", "=", "1"}], ",", 2 k: ^. M' P) b! x) g! J* \
               RowBox[{"i", "\[LessEqual]", "9"}], ",",
    5 n4 ^6 O. p' @+ c           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    # i3 I6 a9 g8 Z( ]& D5 m$ @           RowBox[{
      S/ }1 s2 K5 b7 @3 v) J, S1 E7 X" C            RowBox[{"r1", "+=", # N5 X6 o8 O4 T5 d: c
                 RowBox[{3 u( y1 J! B+ _8 Y  P
                  RowBox[{"(",
    * ~! D; u8 J7 z, z: M: B/ ~               RowBox[{
    % e6 e$ D5 t2 S$ }! a+ E" s* r                RowBox[{"CM", "[", ( o0 N9 O! u! ~" K% @
                     RowBox[{"j", ",", "i"}], "]"}], "-", & z* ~" N/ J% W. T, [5 T8 e
                    RowBox[{"Data", "[",
    ' N; x4 R$ ~) m' {5 z/ T9 e                 RowBox[{"[",
    0 @, u, l( J+ ?) t& y3 U                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
    6 y0 O& B. @2 @: A; v              RowBox[{"(",
    . l1 f3 U5 p$ C, v/ b               RowBox[{
    9 v1 h8 x- {; L- B% _, x                RowBox[{"CM", "[",
    ; {2 {7 M' C& g) P- d% B: ?& [  [                 RowBox[{"j", ",", "i"}], "]"}], "-",
    " b* D, o$ @; c! [# w+ H, h% I- h                RowBox[{"Data", "[",
    ' T+ c5 c# K) {                 RowBox[{"[", . K/ M  g8 ?' m
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],' W, ~9 ^# [+ `7 V
               "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", & }0 E3 g! T5 i* C- Q: {
             RowBox[{"r1", "=",
    7 h* W& W$ v- L7 L          RowBox[{"Sqrt", "[", 1 ^6 k! m5 B. j7 m
               RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]", 6 q  N! @& F/ _1 C* h6 n
             RowBox[{"If", "[", " ",
    0 t$ @: q4 B( @% n! m) D9 n( p) \          RowBox[{
    ( x* n* C$ m/ C: K8 a           RowBox[{"j", "\[Equal]", "1"}], ",",
    ( e  z* R% W3 P6 C           RowBox[{"rmin", "=", "r1"}], ",",
    & V& D2 Y& i5 C$ [, R/ G           RowBox[{"If", "[",
    3 U+ r& a* M( Z! l) g4 x. }            RowBox[{; k- J. H' o; q+ P2 [) U& |
                 RowBox[{"r1", "<", "rmin"}], ",",
    % s6 j" F; \% A2 u# S             RowBox[{"rmin", "=", "r1"}], ",",
    , I' b& W9 c( W3 C3 }             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
    & f4 T/ d& J, a- _        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
    ) t" Y* {$ ~1 x) `$ [! z( e     "\[IndentingNewLine]", * V" n4 t+ ~) I- N( n3 ]; \- C
         RowBox[{"If", "[", ' Y" I  p6 N# z0 W) Q
          RowBox[{
    - K3 v) |  {, o4 W) _       RowBox[{"rmin", ">", "r0"}], ",", * B5 ^/ G) y+ x6 j$ B4 W
           RowBox[{"{", "\[IndentingNewLine]", 0 d' y! l$ R( i$ ?' Y- C
            RowBox[{: Q. e; l$ f3 M% |' x
             RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]", " u, I( _! e+ {: K
             RowBox[{"For", "[",
    8 ^3 y  t# G# i: J+ i          RowBox[{
    $ m8 D6 o# J. u! r4 ?           RowBox[{"i1", "=", "1"}], ",",
    - q# P, M  D; |9 g/ `, U7 V) p3 \* b           RowBox[{"i1", "\[LessEqual]", "9"}], ",",
    * H- ~! d( w9 V1 [# \8 w0 F           RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]", # K! U$ \/ b( P, U1 _0 {! E+ W
               RowBox[{
    & K/ r: A4 H6 X) M5 k+ o            RowBox[{
    + v! g  g2 _5 U5 }: m             RowBox[{"CM", "[",
    # g8 H( Z( j2 m/ s6 C- ~              RowBox[{"M1", ",", "i1"}], "]"}], "=", - B& u, z# H. L' }4 f
                 RowBox[{"Data", "[",
    & Z! v1 a2 z9 O/ U& s: g( b9 T2 ?              RowBox[{"[",
    & P# A: v1 g5 j7 H* Z( j               RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],
    , k9 {" m" H) S          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",",
    % i! L$ \+ y  ~! K: B/ }       RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}],
    ) o5 l$ k0 @% |    "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
    2 f9 a% p, s: C& k% ]( X CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {
    0 q  ]0 D7 F2 {6 L# I% f6 m   3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9, ' Y( V( Q5 Y, ?5 g
       3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {8 S! r9 P6 ?* _. d  T: d5 }. p
       3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9,
    ' h% f6 h9 J# j, B   3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
    ' H# t, T# m4 |/ y& q) j1 ~   3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,
    ; s1 u" K* D; t3 }$ l   3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
    " ?7 `/ L+ }0 Q$ t, g& g  r: F   3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9, 3 A: U" P4 s0 w/ j
       3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {- L9 g( l+ c6 o
       3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
    $ v/ a& t3 m# I1 C   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {) q. v2 s4 ~! X5 ?
       3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9,
    , c7 f; \+ V( N4 g# E5 k   3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {. b* f1 e& I- q- w# r
       3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9,
    * H, b8 I9 Q. n8 [4 Q5 v   3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {4 d1 h" j7 }* n: n( k
       3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9, / x0 O  a* R' N8 U8 m4 ^( Y: [
       3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9,
    2 I, a' X% Q4 d: [, `4 p+ n4 c% ^  l   3.577958821991373*^9}}],. U. H$ ^' b. \7 ], N- v

    5 l' G  `; }4 u( ?& \Cell[CellGroupData[{
    6 d; t! K: S4 Z! H
    # ?2 q. s7 j; ~/ I8 O: gCell[BoxData["M1"], "Input",
    0 o* P6 v/ R3 Q: E/ k9 @ CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],& A" H1 N9 z/ k" h+ g* {
    ; t, t! Y: P7 j' [' W$ u
    Cell[BoxData["21"], "Output",
    # t4 J7 n1 U0 D- a* f3 X9 _* e& c CellChangeTimes->{
    0 H- f0 Y7 A2 `$ _$ \  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
    $ d# q5 v& Y; t   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
    2 \2 N( o) b+ [( s1 c9 E6 x   3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {; E- ?9 Y+ r  m  A! v
       3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
    + ^: O$ q; d6 m' l4 T5 k   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {  A  ~$ y/ e4 J; q) |! p8 N
       3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, 0 U( x' l+ u. M& X6 j
       3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {! c: ?; C  I# ?* q( P
       3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
    ! K* H* l( I' \. T6 t   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9, ; j. x, d8 u# f  C, C( L$ r
       3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, 7 q1 b- y, }; y; v: c$ H
       3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9, ( u) K9 w; q, c  N
       3.577960515600726*^9, 3.5780121541875*^9}], H: O! M1 l9 B- Q& a  u( ?
    }, Open  ]],  A. s' W( v; }6 z! F: y
      z! `; D' J' e, V
    Cell[BoxData[4 ]# _0 i5 Z; |1 P" y
    RowBox[{+ `9 H7 f: q3 e! p! O& b
      RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[",
    - ]/ o& t  T7 @% G% f   RowBox[{"1", ",", "i"}], "]"}],
    ; Y* b/ e; E+ Q+ m7 g. e, ]9 e( v  RowBox[{"\:5230CM", "[", 1 u% F7 y$ ?( C) M# b1 T
       RowBox[{"21", ",", "i"}], "]"}], " M1 @; ~1 o8 F! e: C
      "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\; q# ?8 o& w. M# e% T) Q
    \:51fd\:6570u1\:5230u21"}]], "Input",2 l5 Z" ]: _7 u; N2 t5 G
    CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
    8 T! M1 s9 A. ?  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9, ' Q, K1 U4 J6 G: j+ v( O/ V* G
      3.577960526583145*^9}}],( t$ \: [/ t3 R! F8 a% I

    9 b& n5 ~6 o; j# \6 `: vCell[BoxData[
    # b/ M/ v1 ?3 W* E& J6 P# ~ RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
    3 ^/ L* M$ ^) [2 _- h# h5 V CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],  {$ C2 J* J5 l. R) x/ S

    ) B1 z8 F6 u& m( W+ K/ e$ [2 DCell[CellGroupData[{  [( m, J( o0 O* u8 \5 ^/ c
      a' L' z) l& K5 l
    Cell[BoxData[7 L1 K4 Y/ |( ?3 b# T' Q: k: n- I
    RowBox[{"Xa", "=",
    3 G2 y7 @& K0 ^2 f  RowBox[{"{",
    9 n% ^- F1 r0 I4 |" p# Z0 E2 e   RowBox[{/ }6 i, U4 A2 n- U0 y
       "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
    3 ?# I# o, T+ w; K4 j- z5 H  n    ",", "x8", ",", "x9"}], "}"}]}]], "Input",% ~+ v( b7 N' z& |$ T
    CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],0 H: z$ t: O) q8 F

    # j. K3 F8 K' Q$ F5 LCell[BoxData[
    % k, v2 ~5 ]. } RowBox[{"{", ) o+ ^9 E( t: G2 @
      RowBox[{
    + H/ S- x. N$ v; u" u. N1 m  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
    * R% I0 g: {& r8 G) g  a: v1 g0 z' X& m    "x8", ",", "x9"}], "}"}]], "Output",
    , W; d: s9 r: q! h1 C; D) p- F CellChangeTimes->{7 H6 C9 b3 o% d1 F% t! O
      3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9, 5 Y/ x: h- Y: j3 u
       3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9, " }) U2 d8 p" {4 G: ^$ H
       3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
    % ?& V; i/ p7 y! T9 {4 k+ ^   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
      ~8 H8 s* o4 `$ i* Y( M4 r   3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
    " N7 |* q1 U7 p3 y   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
    " v+ z1 w( F$ p& Y   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
    ) X* i) g2 j2 z, B# D   3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
    8 L7 Z  @& c9 K" ~4 r4 j   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
    % P' x' r; P* I2 ~) N# D) p   3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9, 0 ]4 V/ v) t  ]2 c
       3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
    , F$ L; Y' }) y- Z( _& J6 ]   3.57801215725*^9}]  }, Q1 U; m9 I/ {7 ?7 v
    }, Open  ]],: C/ |* ^' ~1 g9 w2 m0 f7 V% G* r) Y* f

    ' g) |% k) \! y+ B* JCell[CellGroupData[{0 I* T( t  @. W! b

    5 D" F# \) e8 F" S( b1 eCell[BoxData[1 x' G' e2 |' G" F  ?. Z0 `! q
    RowBox[{"Ca", "=",
    : B  {! g% S% ]5 z; D5 f( D  RowBox[{"{",
    7 z3 u3 b* R0 U) B1 h* f+ I' s4 J( ]   RowBox[{- \2 P' |3 _6 D/ r
       "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", / Q, Y9 Z1 \+ [7 q$ h
        ",", "c8", ",", "c9"}], "}"}]}]], "Input",$ @+ H. ^% y* z% n2 }& G7 b
    CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],( z  x% y' e0 ?2 M4 x% V

    & v+ O& [  p9 o; e9 R: Y' Y# N  G0 |Cell[BoxData[$ S4 `2 V+ f! C& |
    RowBox[{"{",
    # I$ c9 t5 b: ^6 {0 M  RowBox[{
    " b7 K+ n9 A5 Q" t& d" E% ?, ~! `  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
    ( }& R3 J; V: i/ m    "c8", ",", "c9"}], "}"}]], "Output",
    8 u0 p1 o2 n8 t/ L0 g- k# A CellChangeTimes->{( B7 q6 [  b* r# L- U4 Z
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
    8 b  T/ B$ C$ c- g5 u8 T   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9, $ u9 L# J3 S& t- f, }- X# {
       3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, - q  ]. L7 c5 a1 m( I7 T9 K$ c! ?
       3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
    6 B$ N* k5 R( H   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, + x, `6 I% [  W8 F
       3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9}, : R1 z: b0 E6 l3 u- ?0 h
       3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9, % |: h3 e5 G3 W
       3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9,
    1 K% H' h# k, `, ~+ D, p   3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9}, : _! F  C6 X1 r" v# r
       3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
    3 n$ s2 K7 L; _4 Q( U5 Z   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
    % N: ~/ n/ j- I! T: ^   3.577961904604212*^9}, 3.578012158671875*^9}]3 _- Q. {4 h/ I3 V5 K( K
    }, Open  ]],: D, n9 A% Q% i: R, E' Y
    7 B) z2 d  D  u7 l- |6 s/ l
    Cell[BoxData[
    ) a: U9 B$ \$ n9 Q6 c. t RowBox[{"For", "[",
    4 ^% r, [" O( G5 {  RowBox[{
    6 ~- [8 H7 ?- j6 @% V   RowBox[{"i", "=", "1"}], ",",
    ; |- R- `- P! n3 V* L% z   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    1 [; ^6 e" R6 `4 p2 d   RowBox[{"i", "++"}], ",",
    ! r1 K, N+ |" K7 K1 v   RowBox[{# Z8 t- e- A8 j0 {
        RowBox[{"Ca", "[", 5 x  ^2 C" Z' q2 R$ u! |, w0 X
         RowBox[{"[", "i", "]"}], "]"}], "=",
    . G+ n/ [1 Q" x: }2 W3 C    RowBox[{"CM", "[",
      e, N/ y% q8 n- T     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input"," F* T: L2 {9 f6 X
    CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
      z6 W( h3 {; g5 Q' K   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
      V* _# a  \2 ~! h: c   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9, : Z& p, r. J3 d4 o! X- m# A# k
       3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
    ( J: R# f) P3 V/ g# T* n   3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, 7 b" h( L# v, g: [, _; o
       3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, ! {- n  ?" p  F2 I3 t
       3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9, . G3 f; x# c! r  h2 K& K
       3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9, 4 @/ W' p, E8 g" V$ @) y/ ]
       3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9, - X1 Y3 z0 g: o
       3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9}, 9 i# ]8 L" h. A7 Q- i/ ]1 N- z0 W( S
       3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
    8 G- e6 G& w# l5 Z7 ]6 V3 w   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
    / l5 U* S5 ~! A3 }   3.577961906897415*^9}, 3.578012176296875*^9}],
    & [+ a" S$ |: ~  I* n( V, R% l5 j& w6 Q, U4 ~, }9 V. L  |
    Cell[CellGroupData[{7 ~- w3 m' c5 a7 y0 l7 G

    8 C+ ~% v2 s$ A9 T: ]Cell[BoxData[- l+ n' Y4 [! p
    RowBox[{+ a* q8 j3 R- S7 h8 i. x
      RowBox[{"(",
    + ]$ O/ O, m3 }( U0 \   RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 1 _7 N* n- {: r& |1 q
      RowBox[{"(", 4 H: A% p+ O* O# N
       RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
    ! ?: n- e! e# Q( \( k2 ]" ~* ]7 Y: @3 ~1 s7 y
    Cell[BoxData[
    3 E: L4 c0 h( e+ _3 o8 P, Y4 {1 \ RowBox[{! V% Y( Q. v% L- S* L' @. G" c
      SuperscriptBox[/ I( _! k9 ?6 P8 Q9 w0 _" S0 k& g
       RowBox[{"(", / ^$ u7 a) e; _, c
        RowBox[{
    $ N% z4 u  t; D  E3 w0 [     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
    3 _" w3 k8 N- v  _* a  SuperscriptBox[
    : V+ U3 U1 ^6 J: }4 @2 Z/ @   RowBox[{"(", 8 M5 @4 m/ o4 a& n7 I0 x3 }
        RowBox[{
    / h7 w8 i5 z  ?, I* r- `# Y     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
    0 W9 L. E" O6 f: [. q6 P  SuperscriptBox[
    * {, U( l& {, r: `   RowBox[{"(",
    # ~6 x) x3 W! i' {$ \    RowBox[{
    # e. V; |; V$ c# N' A     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+",
    8 o2 A4 n( U8 H2 R: j* k  SuperscriptBox[
    9 I- H5 \; ?* q   RowBox[{"(", ( K) P# D2 f' @8 K
        RowBox[{
    / P7 O7 ^: o$ I( w0 Y     RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
    - B0 W3 Z  Q: S3 L' g0 _" H2 F  SuperscriptBox[, \# e% C+ h  I# m9 f
       RowBox[{"(",
    % L" D, b$ A& @. }5 D" |    RowBox[{
    9 P, ], m( W" {' M     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+",
    & ?2 ~( y! ~( l% c, y  SuperscriptBox[5 j6 r" x1 b) A# ~) t. j
       RowBox[{"(",
      F2 z: x% }; P+ P) |0 ^3 \+ Z& ^    RowBox[{, Q- h! g3 w& E4 e
         RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+", , p7 q& g* a! M' O
      SuperscriptBox[
    ! B1 F- d. E; R+ c! D5 L. e3 V   RowBox[{"(", 6 Q0 r! Z2 T: P: V8 g
        RowBox[{
    # a& o# @2 m/ p8 ]5 x     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
    7 L/ G( V: J+ O  SuperscriptBox[0 A8 N6 X! Y; a' L9 {
       RowBox[{"(",
    4 t0 `7 J1 P; Z, M6 x& o9 x$ I) |    RowBox[{5 Y# k: r- @( o2 S8 b. q
         RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
    8 E, H$ n! Q" W0 x2 \. Y5 @' @  SuperscriptBox[
    2 ^4 g/ E9 E) t5 R$ I  u   RowBox[{"(",
    : W9 G4 F1 i2 }. ]* w5 C4 }    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",, G0 }" \: ^- l
    CellChangeTimes->{- _5 [. E" {1 `7 n% U0 x; E, @
      3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, + N9 s: |0 Z; p
       3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9, 5 i: u! G2 H. I" Y% g0 Q1 w/ x
       3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,
    . k: s9 y5 N! v6 @& _   3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9, ' P; c# l1 t$ L4 e; }
       3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, 3 V. ^1 J: w3 B8 i5 T/ l/ P7 i
       3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
    ; B+ I3 ?+ O3 B6 y3 B+ `5 o   3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {: Y5 u4 |6 q3 B2 W( ?( C* z: \4 i) e" O
       3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9, 8 ~0 _: r7 b3 {% |  h( N! m4 k+ P
       3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {  P3 D) t+ j$ v- h+ ^
       3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
    $ H' @8 _8 _% G6 P   3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, ( O+ R! C% |* S' v7 }9 a
       3.5779618537169228`*^9}, {3.5779618846049767`*^9,
    * _: I) e+ G( f3 g   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
    * A( p9 ^% W) j9 V2 N$ ?) u}, Open  ]],' N$ h" U/ y' U$ e, D- R6 `

    ( ~7 Y! n4 J! \4 z! l) F* ]# p( `3 F. aCell[CellGroupData[{5 f, e8 z4 V* {7 f

    2 p; s4 h: W. J9 m* H1 jCell[BoxData[( m* c% u. W4 C" b2 C
    RowBox[{% _1 ^1 a8 J" v7 _8 o  l/ O" P. }
      RowBox[{"Ca", "[", 2 l, W6 |) b4 m; {/ \3 U5 K, e
       RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",/ {% ~9 J4 E& r4 n  @) ~
    CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
    ) \! o8 k0 _* p. P5 Q  3.5779616465173616`*^9}],
    9 G' G3 _# O6 t  _2 R4 f& x& Y9 T/ U! @4 C  P
    Cell[BoxData["0"], "Output",- x+ ]* |+ t. b* d
    CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9, 5 V( q! l+ x* Z8 w( O  K2 p  M
      3.5779616484049644`*^9}], l) E! @2 e+ I, i
    }, Open  ]],
    6 @! r: j" R: m5 S, n3 w9 Z2 Z+ v8 H+ M: Y
    Cell[CellGroupData[{, G% h8 i1 \1 _" w8 b! Y
    ; U% x+ }) p; a* B) C! b3 G
    Cell[BoxData[# }1 L  l) F; `: Y4 S0 S- e& D9 |
    RowBox[{1 M) H- }7 Z0 l
      RowBox[{"Ca", "[",
    / i) Y7 D6 r* n; @   RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",0 Y- B' ~2 _0 W& R' y# ~
    CellChangeTimes->{3.577957376235614*^9}],8 Y2 i' F# i  S
    : u/ B/ f( ^( Q6 t
    Cell[BoxData["0"], "Output",8 d+ V) \( c  V. D
    CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]1 |) B% Y/ r1 P, m' Q/ ?
    }, Open  ]],% Z- t0 ~$ @" a+ j7 n; K3 J9 P
    ! X) R0 k# e9 s1 O# h2 |
    Cell[CellGroupData[{2 R! I: L* N: }

    * `* }& O! _) i5 `2 XCell[BoxData[" d$ V) F8 W& x" V) \- Q1 G
    RowBox[{
    ' t3 B: Q7 ~3 N5 T  RowBox[{"Ca", "[",
    . y3 Z6 P6 @4 q7 m* }& J4 @& Z   RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
    : [: b$ o  M$ Y2 G CellChangeTimes->{3.5779573112927003`*^9}],# B  V% V7 R; x$ C

    0 L( e5 z, l3 S$ L4 _4 bCell[BoxData["0"], "Output",
    & }- ]% d  K4 g; G& l, c+ N' I CellChangeTimes->{
    3 P! d, ^  H% _8 Y: k  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9, . j2 ?- X, n5 [* H8 K, ^
       3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
    + P* E- h9 \8 [, l, r! T; S: i5 R7 v   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9}, " x$ n( ?1 F6 M2 X3 c0 W
       3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9, * _5 L% {7 S" ~( o& W/ {
       3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, $ W+ `4 Z6 d& ~6 V: n# ?
       3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
    0 ?- D0 b& f6 d0 q( T. P! h}, Open  ]],0 J& k$ g: Y+ ?! G1 |+ ~
    : @9 Q" w% K6 P9 `4 C% R' N# S
    Cell[CellGroupData[{. H5 u0 b" I, r# c% F' }- {' W# M
    ( \& F; v" _- n; f/ P; M; O+ K, s
    Cell[BoxData[; c. }" K& `0 L! E* F
    RowBox[{+ o, ?" ~) V. q' C$ a5 f
      RowBox[{"Ca", "[", 1 F5 P5 q& Q: o; r
       RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
    . {. h. X0 q3 C CellChangeTimes->{3.577921461734375*^9}],) Z& z5 Z% h& _& u  P3 P

    ' c5 r2 H' B# \8 sCell[BoxData["0"], "Output",
    9 K0 N3 }4 }, u# M, j- d3 @ CellChangeTimes->{. N! l$ J  q/ ~  [0 \- ^  k
      3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
    ! q* d) C9 s' o, x1 S* D8 ]   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
    9 N5 l! m. @6 n5 v   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
    ( C& N$ v- k; F8 U! L) _! @% U   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
    , e2 q1 b  L) ^, F1 H  _; T   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]
    3 _: k; U2 w( {: ^7 v7 p! v) Z}, Open  ]],
    : e4 t( \9 o3 e
    5 r7 K0 q  z7 H/ M4 `  ACell[CellGroupData[{
    , Z. f2 e9 X4 d& M0 n. Z$ q( X+ R1 K% d8 i) ~, U
    Cell[BoxData[
    / W9 s3 ?2 |  u! l9 l. F1 y RowBox[{/ ?" S8 }* J) t
      RowBox[{"Ca", "[",
    / d! ?! m. Q9 v% `; k   RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
    4 j: K1 {4 T1 I, a" j# I  m5 A, o CellChangeTimes->{3.577957303118286*^9}],
    8 f1 g: q# q# U) b) `! Y& @- z2 J7 Y6 k6 j9 M
    Cell[BoxData["0"], "Output",
    - {7 X+ v. J7 E4 e- s" V CellChangeTimes->{; F8 [1 b0 w; l; k
      3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {$ T0 ^$ y( v$ c9 T* d9 Q
       3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
    2 @/ w" J2 p8 e; X6 ~6 \" N   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
    : I3 {2 \7 }6 g   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9, 3 |6 G; V% S9 }! p* n1 a
       3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9, / ~" _0 P2 z, L0 z: q* }9 g
       3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
    * D  V6 m/ F+ b3 x, p   3.577961889378585*^9, 3.577961912965826*^9}}]
    , c8 p* y# `! Q4 {' s1 G}, Open  ]],2 w+ A( E7 c- D/ V" T* E  n

    + M& Q4 u$ f3 C7 @% r* f; ZCell[CellGroupData[{
    / y; J( H) R6 l% B- U1 d8 p& T" X9 u+ w* x
    Cell[BoxData[
    5 s" e3 w( g# i4 k" r6 Y  A- D+ U RowBox[{6 d3 \7 i* p, O
      RowBox[{"Ca", "[",
    4 B: m7 w* y( o   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",* T4 G$ [0 ]5 B, ^
    CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {, E" T* I  z, ~+ Z" F$ G! X. e
      3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9, 8 D: t7 L. E% G0 u. c# j
      3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {4 u( m) I  d, m
      3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
    # \9 ?# d* |6 s: [  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {1 Z9 j  l* Y% _( R1 b1 B+ v
      3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
    5 Q& H0 Z$ K2 ^+ ~! [3 ^0 x( ?  3.577921435703125*^9}}],+ e  E1 ^/ i9 |+ Y: f7 R+ Y

    . z) V! r, B& Y+ BCell[BoxData["0"], "Output",0 V5 X- i3 a" k7 \( X# J
    CellChangeTimes->{
    5 r& P" P# d$ [& J& j! E  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {4 L8 J5 D9 r0 S' g
       3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, " y% I" B1 m3 c9 Z; e- `
       3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
    2 f" w; d7 n  E% R, l/ L1 R   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, : Y( w7 w: M+ H  S2 q9 C
       3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
    2 x0 E+ F3 G: J  }% @   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9, ' r$ S% Q. F/ l+ W/ Q8 m4 m1 {
       3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
    8 r3 T& Q5 g) M3 l4 n   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
    , e! f3 l% \; _( E9 C. }) V   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {  c' ]' w- J  d; p9 I- {
       3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9, 6 W) Y+ ]' N9 l
       3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {: }, W' A7 Z' @
       3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, ' G( `- ~, w3 J
       3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
    ) m, O  A! P$ l& L}, Open  ]],
    : J7 |& g/ ?1 k* Z% E
    ; s# m. V+ S- z! |) _Cell[CellGroupData[{! Z/ b9 K+ P* i: E

    , R- e$ [/ a0 v  c$ s3 c* _7 m% xCell[BoxData[$ A+ B$ {7 c  L* ?5 \  [
    RowBox[{"Delta1", "=",
    ' C$ D0 w8 s: t6 N: p" Z& W  RowBox[{1 x5 C' V: s: d" b0 g* O
       SubsuperscriptBox["\[Integral]",
    * T. Z! M2 J9 g! t    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 3 n4 \) r, x4 K
       RowBox[{
    # X+ m2 P8 Q* f7 R    SubsuperscriptBox["\[Integral]", 8 r% u% f. d# _# U/ m# W
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 2 n8 a( d* j2 \6 _" q
        RowBox[{# A# H+ y; V! _
         SubsuperscriptBox["\[Integral]",
    $ a+ w: h7 C1 X+ b" W      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 0 ]4 x( ~9 \8 x. i7 h5 _
         RowBox[{
    8 L0 m. f5 u( u; |3 [      SubsuperscriptBox["\[Integral]",
    2 @* q3 w3 g) P" |9 I7 B5 I7 I0 m       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    , c$ n; ~0 N0 `! ^      RowBox[{
    ( k- O; O) D* i       SubsuperscriptBox["\[Integral]", + P: {' T) z. x  p9 m! v) u" d% D
            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    - L+ Z0 ]- t* F5 Z+ |       RowBox[{
    * e0 T4 G$ O" R& C        SubsuperscriptBox["\[Integral]",
    / M' O, A$ F9 M2 A4 j% J         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], & B( I7 u5 r/ M  y
            RowBox[{
    2 o! I7 p# @) w9 V# ?         SubsuperscriptBox["\[Integral]", # R# K% A0 i0 |- y" u/ o# B6 c
              RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ( H2 M' W# I+ g! [0 O         RowBox[{( @% g7 T) @. d/ a. H0 T+ N
              SubsuperscriptBox["\[Integral]",
    - K2 S4 X5 Q8 V           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 0 P/ C" u3 y7 L9 \
              RowBox[{7 v8 T2 J" x+ f1 U) R4 v4 p: I6 t! W
               SubsuperscriptBox["\[Integral]",
    / k2 M+ W* K" t# u, ^            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    9 x" J  K$ S5 Q7 J+ d  ~, s           RowBox[{
    ' d4 J! y! x' O3 C: N0 g            RowBox[{"Exp", "[",
    8 n  b- f: i' e8 M$ |             RowBox[{
      H# e0 c+ V2 A              RowBox[{9 j+ M3 y' r+ Q7 J3 K+ w$ n3 O. z4 g
                   RowBox[{"-", 9 B6 p8 `9 Q- B0 p  v3 e1 P
                    RowBox[{: f, l( o) e1 _
                     RowBox[{"(", 1 o- d% [; }7 _' K+ y: l
                      RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    . q  [- e3 x: o7 B) Y9 Y                 RowBox[{"(",
    $ Y# W5 _+ U( ^4 Z" J; Y                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
    + B& S1 O3 K8 i( B7 S( {              "Delta"}], "]"}], % D5 e5 o5 E' B" Q& B; p
                RowBox[{"\[DifferentialD]", "x1"}], 1 e5 a# C( K/ `7 U  Y
                RowBox[{"\[DifferentialD]", "x2"}], ! `+ L) Z$ ^. q
                RowBox[{"\[DifferentialD]", "x3"}],
    : M) X9 h( ?7 h. z4 `            RowBox[{"\[DifferentialD]", "x4"}], + v1 u' e- V0 q4 Q4 f
                RowBox[{"\[DifferentialD]", "x5"}],
    ' A" |/ W6 B! y$ c& [8 U" p2 F            RowBox[{"\[DifferentialD]", "x6"}], - E& S6 G2 A$ b( v+ }- z
                RowBox[{"\[DifferentialD]", "x7"}],
    ; x9 W8 U* E- ], ]2 E# B9 {            RowBox[{"\[DifferentialD]", "x8"}], 4 @4 y8 e, m9 z4 n# G7 U
                RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",; s1 i, h) I1 I3 c3 ]$ @
    CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {/ o3 r' T; s# I# w) Y. {
       3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
    8 B5 C5 x+ }0 o' m0 X   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {, S3 C9 K5 |/ O4 I
       3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9, ! L2 e/ U* f+ T5 F1 M
       3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
    . k# C' K$ N6 `6 g   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, 0 `$ l! e8 o& \, J8 A
       3.577918964453125*^9}}],) c# @2 j3 @- ]. K
    8 Q) V1 h4 v: B
    Cell[BoxData[
    . G% Q/ {& @' z: `' }5 N" _ RowBox[{"97.40909103400237`", " ",
    & H9 A9 M0 M- E, T8 }- Z! l4 l/ `  SuperscriptBox["Delta", "8"], " ",
    3 A; t' `/ H  B5 ~5 {) Y& J2 p  RowBox[{"If", "[",
    * R( c# J4 R% j% D4 W! _   RowBox[{
    4 b+ x0 w( _, J* {; X    RowBox[{
    : w# Q* Q8 M2 X0 n     RowBox[{"Re", "[", 5 I  K$ y6 e7 v# A( U
          SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
    % }, H) W/ R* q7 A- t' v    FractionBox[9 O+ j+ p* w  @# X6 N+ I7 h4 J
         RowBox[{"1.7724538509055159`", " ", % ^0 e$ l: R% R- {$ L
          SuperscriptBox["\[ExponentialE]", 9 G# e' Z( v& ^! `- k- e, m
           FractionBox["1.1102230246251565`*^-16", - u* @/ Y6 x" R. S' O- |0 B# p
            SuperscriptBox["Delta", "2"]]]}], . G: q: t6 P- D4 D
         SqrtBox[- t! q( I- P9 E3 i. r
          FractionBox["1",
    - V( W- C: F4 N9 u       SuperscriptBox["Delta", "2"]]]], ",", # s* W: ?- m- B1 `+ z/ ]/ H+ f
        RowBox[{"Integrate", "[", : j+ ]" b) a# Y  w  o
         RowBox[{$ a7 b& A4 u7 a3 w7 _/ u, u
          SuperscriptBox["\[ExponentialE]",
    3 ~5 U+ V" Q# s6 T- I; ^       FractionBox[3 m% `  f2 G$ s6 A) x+ l
            RowBox[{"1.1102230246251565`*^-16", "-", $ e2 ?* V7 g$ H' j% r, b
             RowBox[{"1.`", " ",
    + t. d1 W: K  E, J# s' ?          SuperscriptBox["x9", "2"]}]}],   L$ {9 H9 l- K" i5 J" Y, k% w1 E. i
            SuperscriptBox["Delta", "2"]]], ",", % H7 f$ M4 a) {) a
          RowBox[{"{",
    ( D4 L1 x- {# c! y9 a       RowBox[{"x9", ",",
    1 L1 {; l3 @# ]  a( G        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", 8 h. Y9 ~2 N8 m% l3 h  @7 k/ O
          RowBox[{"Assumptions", "\[Rule]",
    ) S# y- y* K0 ?, i       RowBox[{
    8 E7 }. D* w; ~/ ~; N, _        RowBox[{"Re", "[", 8 [9 x7 A) E- R6 Z' ?
             SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}], + g, Y$ [" p% @! P) S
         "]"}]}], "]"}]}]], "Output",
    # ~: h8 h0 A3 O* X CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
    & R+ y5 L" \* g  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
    2 E  w, H" I% N! Z0 s  [  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
    0 q/ ^0 g: x. Q8 C  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
    & N# n1 s, U* ^( I; x/ F1 U  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9, 2 m6 I6 H7 ?; \- p' a
      3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
    % l1 m3 e' M# D+ w, t9 g  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]5 z+ n! k; D5 o/ _0 v1 e" }: }
    }, Open  ]],
    7 N$ _7 d2 L" d& ], F' t3 P* t, y5 n$ [' D
    Cell[CellGroupData[{
    + a7 `: s, C5 _7 U! |$ J. [# `
    $ d6 t9 b. C0 c9 J! HCell[BoxData[( J4 f5 t& O, B, G- d% t1 |, s
    RowBox[{"Delta1", "=", 2 o* ]! J  }8 L; L
      StyleBox[, L% Y$ ~7 y# @
       RowBox[{"97.40909103400237`", " ", 8 u6 ~+ g+ Z* ]# I, g) K$ Y" b
        SuperscriptBox["Delta", "8"], "  ",
    ' [# H' x) D+ `: l    FractionBox[
    * @$ n( o/ P1 |! q/ U( |( k     RowBox[{"1.7724538509055159`", " ", 8 ~$ \9 d0 {: N; b9 F9 z5 K
          SuperscriptBox["\[ExponentialE]",
    # v5 @+ u1 C" _: @/ V  c" O       FractionBox["1.1102230246251565`*^-16", % P$ T  Y5 T+ D2 T2 V* ~( t
            SuperscriptBox["Delta", "2"]]]}],
    ) d. B* ~3 {  O     SqrtBox[
    9 {0 t* N' o; N* K( p      FractionBox["1",
    8 E, ]5 S# F5 G# p: O/ j7 A       SuperscriptBox["Delta", "2"]]]]}],
    7 z% `8 L3 @- }' H; W$ k& s   FontWeight->"Plain"]}]], "Input",
    1 R" u& y6 Y" l. S CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {& m* f  w! ?& B! {# f1 ~
       3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
    6 H) V1 R. j6 p, ^   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
      D: z/ q7 i& ]' |4 s   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
    5 Q% S8 A& U; B   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9}, ( ?) H, ~% b$ Y" O( t
       3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
    ( S' t6 U  E" |. L! {/ c( i! L% v$ B; D" @, Z+ l
    Cell[BoxData[7 w6 _9 m: t$ X4 Y7 w. D
    FractionBox[, m5 U' E6 L# r1 T
      RowBox[{"172.65311851642346`", " ",
    ! w/ j; L+ R. }3 B1 M   SuperscriptBox["Delta", "8"], " ",
    + c3 @# F' R) o+ P3 q! e5 Y1 q   SuperscriptBox["\[ExponentialE]", 7 X4 l+ u0 H$ L7 P: ?8 H. D
        FractionBox["1.1102230246251565`*^-16", ; \. ~" |0 y# W, j' l! p
         SuperscriptBox["Delta", "2"]]]}],
    5 \$ G" H3 T  `4 _( G  SqrtBox[
    ( i% s; w4 X4 I) W$ l% \( i   FractionBox["1", 4 r9 W- T' o# I6 {/ Z. [. T
        SuperscriptBox["Delta", "2"]]]]], "Output",4 T* C4 j% X% L* P
    CellChangeTimes->{3 N& L, K+ G' q4 V5 b" ~& F7 N' e
      3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, / X# D2 S8 r* q
       3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
    $ |- B+ |1 H: W6 n   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
    9 m) P4 `8 Q  O6 P; a   3.578012166234375*^9}]
    ; J- e# j5 o) {: E1 a( T3 V}, Open  ]],$ W- g9 w; \9 K0 Q( v
    4 }+ i& @7 j" n1 \/ @5 e" V
    Cell[CellGroupData[{
    # K7 C* D- @" l' v7 J) P  C' ?% }: z+ T3 ]' t' D, @7 |2 h
    Cell[BoxData[* j1 x$ A& ]* d& V- y: ?3 `
    RowBox[{"DeltaX", "=",
    / W2 a7 B  p: q0 ^  RowBox[{"FindRoot", "[",
    8 ^; t3 D  O) j. x; L   RowBox[{1 w9 A  N) |& s
        RowBox[{"Delta1", "\[Equal]", "1"}], ",", $ ~# T/ X: Y& C! u" A
        RowBox[{"{", " T9 L$ t5 X8 u' `
         RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
      X1 V+ U. f( L+ R4 R CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {; m* T$ }- i* x1 h0 c
       3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
    , H( u7 G& }9 ?   3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, ; \3 K4 O( n' i+ R/ z7 `
       3.57791921584375*^9}}],
    0 n  L, L  g- |. `# Z0 ]1 S8 G8 ?) a' ]0 O# J4 W  D8 a
    Cell[BoxData[
    , c& |( o5 E& e; z RowBox[{"{",
    # A* E/ M& Z/ q  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
    $ Y& }6 r$ j8 c+ H& p5 r CellChangeTimes->{
    . j1 \# z- ?6 N- v$ z  m  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    * |  L. R7 e. r   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
    ( l9 W# S) ~8 x( H   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9, " a1 h0 y4 g' [$ C9 S
       3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9, 3 s4 v* B. ]  Y* y: D# a$ ^
       3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {" T# P1 b7 {' j8 J, X3 c
       3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, & R& I/ w) F/ n- F$ ~, E( j" J4 j
       3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9, 5 b& K" k) k/ s2 }6 k+ L9 @  q* j
       3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
    # {3 Q2 ?1 P& A1 f   3.57796070150625*^9, 3.578012167703125*^9}]
    % q: ^5 i, ?- h& e' X& {}, Open  ]],
    + T* c4 N* U3 Y7 U; u, s/ Q1 _$ o8 Z" g4 Q
    Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
    * v; U8 w  x( I. @* ?\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",- [: W* c* u1 Q6 b+ P- D
    CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
    4 q' z! |; M, x' q6 ]7 K& J1 X2 H  3.577960705312657*^9, 3.577960707621461*^9}}],+ u' a; u  y- a  D
    0 z% x3 @, A7 |" l+ p: h/ I" U& j
    Cell[CellGroupData[{
    7 K  M) u1 q9 ^/ [+ u/ p' h' Y1 d! O$ U: C. e, {, }
    Cell[BoxData[
    ) X/ `0 T) Z3 A7 @+ _ RowBox[{"C1", "=", "Ca"}]], "Input",
    " w& y9 Q7 O5 t$ B; Y CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
    6 A8 X$ C" L9 y% f$ A6 _0 z. `" Q/ @- h/ t9 W! Z/ q
    Cell[BoxData[
    . O5 U) j# p' D2 O6 M" ~! J RowBox[{"{", 7 G" J* }; s" g7 r
      RowBox[{1 n1 J# j8 q) t' |9 {1 D
      "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
    - p/ H6 }, `" @; T  x9 ]% L6 A   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
    ' b5 o- t4 W/ Z, N   "0.`"}], "}"}]], "Output",
    2 x, O: t2 v0 D7 e0 E7 y CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,
    9 o; l* Y; ?: B& `' h, K  3.577960710273465*^9, 3.5780121855*^9}]
    6 Y# ]; D" e* c4 W" F}, Open  ]],
    ; i' j* X! t& G$ k- r& ~7 ]" h7 G. Y/ ]) W+ c# q
    Cell[CellGroupData[{! ^2 B) b0 Q- N, \$ S$ |( _
    ! m1 i+ N/ @2 j' P
    Cell[BoxData[
    ) R( f1 r) P8 f; I/ }. Z RowBox[{"u1", "=",
    " r& o! z: E7 T  RowBox[{
    ! q# d6 i  X3 P4 R% m   RowBox[{"Exp", "[",
    # o1 v- @6 g5 W* m2 K    RowBox[{
    8 c# W0 }! \4 {: J" K     RowBox[{! W& c1 ]) s, o4 l6 ]4 _
          RowBox[{"-", * C9 K& ^7 m6 C) G  s% T) w; h5 q
           RowBox[{& R3 g9 |3 e) ]( z0 }9 d- i
            RowBox[{"(",
    & d! e% U" x/ t1 s7 s         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    , [3 n) ?: @6 `2 c  }7 M        RowBox[{"(", $ L# O, [" x' e/ |3 @
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    : u3 X2 s" E# R% a7 X" n- H     "]"}], "/.", "DeltaX"}]}]], "Input",
    ' Z3 e9 I& u7 C) p( ?, w CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
    0 U8 |# M$ ^/ `& B* Y   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {1 k) p! Z% o8 d. l8 W
       3.577919193484375*^9, 3.5779192326875*^9}}],/ A' O, I9 Q8 C! ^9 C0 ?
      e3 O7 g: g4 T/ {0 Q
    Cell[BoxData[2 i: U8 B$ d- U: p0 n1 w( m" q
    SuperscriptBox["\[ExponentialE]", $ y" Y& }* d7 Y4 \5 b0 p
      RowBox[{"3.141592653589793`", " ", " @# M2 h5 W' i( \2 P' K/ k+ i! `  ^
       RowBox[{"(", ' t4 S! s2 v7 V3 ]
        RowBox[{
    3 L6 e  w" I: n) x* s+ d' f: N     RowBox[{"-", 7 W: T+ B6 m6 p5 g* F
          SuperscriptBox[4 O. j2 [& w/ Q; \( A3 M' {
           RowBox[{"(",
    / Y( J! x6 u; B2 L        RowBox[{& O& r. S6 t9 O4 l; a* B9 }# a) J9 _
             RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", 6 s; n- Q$ e9 ?( i7 ~) k2 W
         SuperscriptBox[
    4 Z2 J0 }! P; r9 A4 x      RowBox[{"(",
    7 \, j( {7 j9 N       RowBox[{
    9 p5 D$ L3 w! R9 ]8 {        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", , q" Y6 H  Q- y0 _8 y  C/ Q
         SuperscriptBox[: w; `# p0 `' B9 y4 D
          RowBox[{"(", : M. C5 n0 u3 A7 u, L8 g
           RowBox[{
    ) ?* O, Y, w# ~& L+ J( V        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
    # a% i* }6 s+ A9 G5 i/ C* C/ \! V. W     SuperscriptBox[
    9 A  }7 _; [- e7 v      RowBox[{"(", 0 w1 [  Z2 T& L0 `, W0 y
           RowBox[{
      h8 r5 F4 S! S# Q        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", & i" i, S$ Q# ?
         SuperscriptBox[! O' i  X, ^/ W. G; p
          RowBox[{"(",
    3 T# C9 e  d/ Y$ q- d       RowBox[{
    / t* o5 |$ Q; V' {        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", 9 t7 _( b/ R8 s9 v- T' s, T# E* f
         SuperscriptBox[
    3 a& Z: J- `3 B) J. @) R      RowBox[{"(",
    * q  }3 c& P1 d+ r# `' o       RowBox[{1 }- T4 T/ D% t. l9 P
            RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",   X, H( z) R( G9 `# i, k; J
         SuperscriptBox[
    - R' d% V2 n  k, F      RowBox[{"(",
    $ a# @$ d2 m8 G+ l       RowBox[{
    ( _# J2 Y1 j5 S2 J" }3 a1 D4 G2 T        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    - l  D( h1 Y( p; J1 E# D$ m     SuperscriptBox[
    ' I- I/ p2 u8 \5 Y; H      RowBox[{"(", 2 e9 W( x5 C, }/ v! u, U* ]  \+ E
           RowBox[{2 u7 d5 E! I8 S" S7 f
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", , a# R; p# H! x, m# ^
         SuperscriptBox[
      W0 \, ]/ o5 k* Z5 `      RowBox[{"(",
    " E! ]; ^9 T* G, x# O       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    & ^7 K- g8 G# [- C) M# V    ")"}]}]]], "Output",. |) D* }, e/ E) d
    CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9, 1 w& d7 n; I+ M1 C; C9 G2 m" l
      3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, 9 C. I& [* C: m+ v
      3.578012187078125*^9}]
    6 p8 W# f  G5 y+ p4 H}, Open  ]],) _9 Q. [8 o8 \% }: G6 u5 {+ i2 ?8 V
    ) j6 ]! l* _8 U. D9 \
    Cell[CellGroupData[{* [& X+ h# T2 S  }( s
    ( ?. @2 ^4 N, b- S6 @7 j# N
    Cell[BoxData[# O$ L) U% a5 k* v% I
    RowBox[{"C2", "=", "Ca"}]], "Input",
    0 T0 F& G; O: m" p# t* {+ x CellChangeTimes->{3.57792047321875*^9}],
    8 h! l) v3 |7 S4 s, p8 I
    - {- n" H3 l& `; g- _1 aCell[BoxData[
    5 x% e+ T! \8 ~$ b# |5 \ RowBox[{"{",
    1 J  V3 x- L4 g) X  RowBox[{0 F( Q' j8 i( z- z2 E# ^3 w' J& q3 x
      "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", 2 O" x! Q( J& y( O; u! w6 j
       "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
    2 ^8 v( @2 L2 U) v$ d2 [  "}"}]], "Output",
      d* ^! [; z# M8 `/ [7 |- Z" [) Q; d CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
    " l$ `* o- Q" d) {' k" Q: Q  3.5779607401163173`*^9, 3.578012204671875*^9}]
    # r' L  R* B  ]  O7 I& X4 C. Y}, Open  ]],
    " U; k% \+ y: B0 e* ?5 r9 C! z! Z3 D* N3 F& o- |/ z
    Cell[CellGroupData[{. @, w! c8 C3 h# N0 i8 H" f
    $ N% _, v# q# O
    Cell[BoxData[
    * y6 k: m( h5 M1 d* h  r: H# s RowBox[{"u2", "=",
    5 K( B1 k8 ?. j) G3 T  RowBox[{* l4 w4 Y5 T- n7 A2 {
       RowBox[{"Exp", "[",
    + }" r3 }' n' p: T" S0 I" \    RowBox[{
    & A& \9 l8 `. ?% L9 J0 ~7 I. U0 \     RowBox[{$ x1 h& Z- q$ w2 k; l0 `& R5 Z
          RowBox[{"-", ; K' N; K, d) H; d7 a0 u! n
           RowBox[{. g% T( y1 D( l! _2 O8 t
            RowBox[{"(",
    . A' a' q% _3 ?/ u         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    8 F% Z& |* g) Q5 E. \: L2 q4 Y+ k        RowBox[{"(", . l. o( D; C% Q( t9 i) x2 p: G
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],- r8 m& T' T, @# W" Y
         "]"}], "/.", "DeltaX"}]}]], "Input",
    0 A$ R5 Q3 P2 e3 }8 d CellChangeTimes->{3.577920484109375*^9}],+ `( c8 m& s, B% e5 _5 h& G
    & v7 t% t& t# W* Y( m6 E
    Cell[BoxData[
    # z; L& U! M+ X% p/ f# F: r! } SuperscriptBox["\[ExponentialE]",
    - Q  N! L9 g5 C  RowBox[{"3.141592653589793`", " ", 9 |- l. `/ v# W. t
       RowBox[{"(",
    0 h6 N+ I3 e- K' F9 k) S    RowBox[{
      B( g, B9 T) T+ ]% S, b" K     RowBox[{"-", . N/ O3 _% Q' q# ], F$ I
          SuperscriptBox[% e: c7 M) F! |  z. w! ?
           RowBox[{"(",
    & A: k' i9 F- ^        RowBox[{# s1 M( {  O5 h+ P. s+ R
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", ) f) O- G) `, x/ y5 Z9 o3 |
         SuperscriptBox[
    + F9 G* G1 r4 h; t3 {9 B+ @, Q      RowBox[{"(",
    1 Q* E7 F/ v- `& T- |( S       RowBox[{
    ! n8 S& S& C3 i- f/ [7 q        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
      i# r' [& m2 R0 ]) f7 W     SuperscriptBox[  M1 B+ |6 T, i3 h  r! z3 G
          RowBox[{"(", 4 e9 z# n; G5 ?2 M! `
           RowBox[{
    6 H* \# `/ @/ M) ~        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
    # m9 N: \: |; {' X, L% x     SuperscriptBox[
    $ r2 i. {; A# a0 m5 J. o      RowBox[{"(", ' y7 }$ ]( D7 D3 g; y
           RowBox[{& T" _( `, K# V, r2 K1 N+ K
            RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
    3 k7 Q9 ^* T) X6 v/ s     SuperscriptBox[
    : K6 ~  L+ X# g( W& V+ ~( l      RowBox[{"(",
    * U4 p2 H. v* {3 z8 f       RowBox[{# Q% A1 R9 u( w) C. {% B* t
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    & U9 X; Z5 t: R: n4 b/ _     SuperscriptBox[, n) P: ?+ A/ F
          RowBox[{"(", ( o4 h% `! a7 p
           RowBox[{( e, j/ f8 D) Y: A) U
            RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", : B! z) E7 v3 N
         SuperscriptBox[
    8 P8 q& w0 \2 }      RowBox[{"(", 1 |  l$ l  ]/ g* \6 G5 S* ]; T' O% }
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    # Y7 K- e3 b5 s% L7 t8 i     SuperscriptBox[
    7 a5 Z4 r  k7 _" }# H; O! ^      RowBox[{"(",
    . C$ V4 \, k; R0 a+ P* \       RowBox[{
      u) Z# `* O" `# T: Q8 v        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", 8 j5 u) B4 f. n7 q% H8 H) e
         SuperscriptBox[
    3 T/ x$ p7 G* g2 r      RowBox[{"(",
    0 r* R* w8 ~. n       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], / w) \1 M& W+ ^' X4 i' Q$ y  Y; `$ s5 `- Y
        ")"}]}]]], "Output",- A6 d; Y0 ~+ m- G: q
    CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
    ; j; u/ \. x' ]7 ?$ t9 L% Y# P  3.5779607413955193`*^9, 3.578012205484375*^9}]& G( [3 u8 M& S
    }, Open  ]],
    1 j2 s3 r" K$ Q5 I6 X0 ?8 N6 G5 x5 N" ~  I/ ]1 U' J
    Cell[CellGroupData[{
    ; x- O% q2 f8 k  O" T: h
    + c1 `) V8 O3 o3 `7 NCell[BoxData[
    & a: F7 x4 v) j& P7 N, X# b RowBox[{"C3", "=", "Ca"}]], "Input",# Q  i1 Y$ X  [1 b  Q4 S
    CellChangeTimes->{3.57792064125*^9}],) {7 Z+ Q+ z0 v+ f+ ]% j
    ! v9 R9 j8 \. z/ X  s. b
    Cell[BoxData[
    1 ^2 O+ L( |* i" D' p, V- ^+ b( f# | RowBox[{"{", 9 n6 J' J' q! }1 G) ~
      RowBox[{
    & c7 j/ V; o! @1 ?; l  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",", ' g# X& b. ^) a5 P; \: g
       "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}], 2 z: R1 z: P) ?
      "}"}]], "Output",
    % V6 R5 ^" W; M2 K  Q CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9, / h* O$ ?; |  _; T  o7 k
      3.5779607642027593`*^9, 3.5780122103125*^9}]5 H3 N1 H- f6 T5 U( c
    }, Open  ]],9 N/ G& q) U8 K+ C5 c0 k. ~

    4 o7 n, q9 n" FCell[CellGroupData[{
    7 Z  d& s/ o$ C9 n
    4 d  n7 M: D  ~9 `. UCell[BoxData[
    ) k/ ~9 T& f' {- R RowBox[{"u3", "=",
    $ _5 I( V  q. T- ?3 R  RowBox[{6 R: _$ C: J8 ]. m
       RowBox[{"Exp", "[",
    ; L6 Q: Z  s: Z- }+ I1 U  [5 [/ L    RowBox[{
    8 u7 z; K' v6 w) d" C     RowBox[{* m0 F% A1 y6 `$ e" M1 W
          RowBox[{"-",
    / e; s" _& E) `4 l, `: S       RowBox[{
    * c! [8 e( P* t2 ]) e9 T" i( l        RowBox[{"(", 1 s+ u9 ~) e$ _6 S2 W  \
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ) V' E& o9 E- n- j
            RowBox[{"(", & U6 y" X9 _) k! Q5 I' a# h
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ) S% g' f/ y: J0 l, W     "]"}], "/.", "DeltaX"}]}]], "Input",
    ! V: [' L. S0 v4 R CellChangeTimes->{3.57792064921875*^9}],, K. D( h$ k& d1 V
    : s; K) V" _  n0 B$ I9 i$ k
    Cell[BoxData[
    $ r% f1 q0 d: [4 m( ? SuperscriptBox["\[ExponentialE]",
    1 n$ X$ r" f( j* b8 m2 a% C% a  RowBox[{"3.141592653589793`", " ",
    ! d4 `/ Z3 W: J' o   RowBox[{"(",
    8 i! p2 d4 V; o    RowBox[{2 n: q' {1 V4 g& e' c  S$ V! F; ^
         RowBox[{"-",
    0 B; t6 B* L3 |6 p/ b      SuperscriptBox[
    9 @3 z) }  x1 f! k       RowBox[{"(",
    ( w( k* x: u; y0 P. J* b& F        RowBox[{* Q' t# e4 `! Y- V' M
             RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
    + x, z4 q5 _! ?: W  W6 s     SuperscriptBox[% m2 t1 N' l4 x8 L7 Z
          RowBox[{"(", - M; C6 @4 t0 J2 a7 B! ?
           RowBox[{
    + b7 X( H: o+ j% i3 ^, j( E' |5 t        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", ' l. q  C2 k* W& G! }" n
         SuperscriptBox[
    2 g, H" ]# @- O      RowBox[{"(",
    & f9 |6 T0 J' F; p' A       RowBox[{2 T- k' a9 V# r
            RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    ) l- w6 L; d5 e8 N" V2 ~     SuperscriptBox[
    # h4 L+ S; v/ ]* Q7 m1 y      RowBox[{"(", ( k3 m8 f7 W4 X3 R. E" w
           RowBox[{
    5 K+ r8 ^9 V$ _9 i' O2 x  F& Y' Q. U        RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
    & Z% Y# y* ]8 p     SuperscriptBox[
    0 D( E& ^- ^. P: n) o) i6 ?* U      RowBox[{"(",
    " T: f8 i9 {9 |3 e$ ~0 s       RowBox[{2 [$ d+ Y: q* @! {( d
            RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", ' r* a$ T+ D6 j, _* a* k9 Y
         SuperscriptBox[
    1 T1 F. o, e! ?6 B; [" n      RowBox[{"(", * r+ Q4 r; Q4 K* T0 P+ ~% w
           RowBox[{& h2 [; `% B) o% x6 C
            RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
    5 q: S$ n' ~/ W  l, |! g     SuperscriptBox[
    . l: N! g2 y6 j: }      RowBox[{"(", ( Z6 J- `3 i, U' c# U& X
           RowBox[{# s1 u5 ]- g6 j
            RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", 5 t6 t% u( `2 w( V' Q; z
         SuperscriptBox[
    $ r7 y* d; d$ V/ b      RowBox[{"(",
    9 E# X/ q' ?7 z7 O. `$ Z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    9 @! D2 n" z7 h/ A- \3 s" n& H     SuperscriptBox[
    : z1 ]: y  [/ y% h      RowBox[{"(",
    ; ], o( Z! N/ l/ ^: v! V       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], " _5 M( O/ |( G3 K; p7 d
        ")"}]}]]], "Output",- D0 z) E# f1 K5 `7 W
    CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9, + v0 J6 ?. @  Z* L* X
      3.5779607654819613`*^9, 3.578012211515625*^9}]0 O% s$ R- K# S% ^* r% K$ B  d' p
    }, Open  ]],
    & B5 e& }( u$ r' k; A) W1 X5 O7 Z
    , A+ b/ M! q. L: W! ?Cell[CellGroupData[{
    / q4 @0 h; l5 K4 ?3 @: Q' v$ Q/ y) {+ }/ |1 u4 M6 H6 q
    Cell[BoxData[! n" m" g1 H: o
    RowBox[{"C4", "=", "Ca"}]], "Input",' u# x8 K+ |, M4 t! ^
    CellChangeTimes->{3.5779207559375*^9}],2 ~1 F- E9 a; g

    + i0 u7 H& F- u! _" ~% `Cell[BoxData[- K0 g! I& i% ^: O* B1 I
    RowBox[{"{", 7 l; h5 f6 K4 l$ |8 \
      RowBox[{
    ! C8 P% G' [: \  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
    ; F; G- Y4 c7 A+ d. c& v( ^; s- H   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], # w0 [2 I0 U8 L. b
      "}"}]], "Output",& D1 H1 N0 v2 \% `1 H$ X
    CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9, . Z3 R. ?' a  J: Q) J  v
      3.5779607861363974`*^9, 3.578012216171875*^9}]9 w0 W) m1 ^. ]7 j4 ^8 Y7 ^$ V
    }, Open  ]],
    , X( C- G2 y: O; o, [4 u
    : v  x) P5 z) f3 @. B% @6 gCell[CellGroupData[{
    9 V  s0 h3 O3 M/ x
    2 y) d; b# d$ f9 x' ICell[BoxData[
    2 u7 _8 j% ^1 @/ E, W RowBox[{"u4", "=", % s/ h- g0 R: y: H" o
      RowBox[{
    ; A" d2 O, ]: t. R# e( P! d   RowBox[{"Exp", "[", 0 e! t3 d# H. B2 q% L5 @- T
        RowBox[{
    - F& @* l$ B. G* ~6 L     RowBox[{
    , C& u0 q( C- k; q, ~      RowBox[{"-",
    9 X7 u6 j+ z  A       RowBox[{
    - s7 o' N2 c2 P4 e% }( ~$ y! Q        RowBox[{"(",
    . i) I5 f* Y+ |- A* z% m) z- b/ u         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ; H: A8 P* n) I0 L$ A" E$ Y+ J- P
            RowBox[{"(",
    3 h; X. \) ~4 Y3 m( D# G! u2 ]  b         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ) t+ h4 r; ?& r" N, S6 l     "]"}], "/.", "DeltaX"}]}]], "Input",: H1 g* }' B1 D7 q
    CellChangeTimes->{3.57792076325*^9}],
    7 d9 G( D- A* e4 K& {
    , J; _3 X+ ~$ _: J" KCell[BoxData[/ e- a9 p5 C" n
    SuperscriptBox["\[ExponentialE]",
    . t+ B! u! I6 L1 Q/ X4 B  RowBox[{"3.141592653589793`", " ",
    $ S. M# K8 h4 U) K: y/ P- `   RowBox[{"(", 0 b& O- s# h5 s( y6 ?
        RowBox[{4 w# D  n1 g. B& [# F0 s" O5 |1 f
         RowBox[{"-",
      i: y- E9 K+ }: J/ k, ^; o( C      SuperscriptBox[$ `* \/ D) Q% s" k) ]
           RowBox[{"(",
    + ^. M6 S" [$ n3 N, _0 l        RowBox[{
    + X8 q! o1 N! k4 ^8 K+ ^% k# w         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ; P! t0 Q  R. O
         SuperscriptBox[
    2 ^: q) d9 ?' A      RowBox[{"(",
    ! i) s- o7 c" e7 l; _! K9 E( {/ j       RowBox[{! O& g$ v- i  W- G+ D
            RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
    0 p' w- v; ^+ B7 ^/ b     SuperscriptBox[
    4 V$ c6 O8 R6 k0 I9 ~: \      RowBox[{"(",
    / S8 L- l; ^$ V# [: e       RowBox[{
    3 ?9 h* j# ]( a8 c* g; V- \# R; ?        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", - r4 O' d0 f4 ?+ b
         SuperscriptBox[
    7 Y9 I0 `6 T7 l      RowBox[{"(",
    + m% E# `* k) v1 g3 D! v       RowBox[{
    4 e, e# j3 v! o6 U" d4 f+ E* z6 z        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", 0 H- H" F. m7 h+ S: @+ D
         SuperscriptBox[
    : I# a) t5 _1 K/ b3 ~: D      RowBox[{"(", * o5 ]/ T( A; P
           RowBox[{
    5 V0 m3 d* \  _2 w! p: ~2 p3 q1 M4 X# N        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    ! R7 K& R! c/ [+ Q4 Y     SuperscriptBox[
    + e' X4 {" K! C: I# o      RowBox[{"(",
    . ~7 ]! l% z! C+ `, T+ o- `       RowBox[{
    ( z* ~4 S* j' z' N0 z- G6 k        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
      b1 L3 h7 i8 X: L0 a     SuperscriptBox[/ b, U) }( F; P0 ~% G) ^
          RowBox[{"(", 0 b% [6 v' O( Z+ s$ P! x. Z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", " m" c9 _- ]" T( s& E
         SuperscriptBox[
    3 u- C" e. v- x3 z/ `      RowBox[{"(",
    ( I  @2 y3 K! y: |/ d3 K" [, B       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    * j  G9 q) u" e) T) M     SuperscriptBox[
    6 J: k- a1 u, X! x5 c      RowBox[{"(", # f  Z! {4 e4 q# y  ?, Z2 [
           RowBox[{
    6 ?* H: I6 \' F  R9 o9 r        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
    4 s9 e6 S, ]2 A; B! a5 G' L    ")"}]}]]], "Output",: q5 s, b3 C# H0 i' `9 _
    CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
    5 f  b* a6 r$ I6 D8 Y5 K( |1 n  3.5779607873531995`*^9, 3.5780122169375*^9}]0 d3 R1 P/ X4 d7 Q: u
    }, Open  ]],
    $ M+ ^  [! c! Q2 ]/ `0 X$ y
      s0 U' J+ {; aCell[CellGroupData[{
    ) c2 z- k1 Z( S* i, T' F
    0 ]# h3 o! `, N: l( GCell[BoxData[! t* u! X; s% w, x2 X$ V
    RowBox[{"C5", "=", "Ca"}]], "Input",
    - o* F# Z! x% _2 X4 T CellChangeTimes->{3.577920860671875*^9}],0 k+ Y5 k2 e- [( p- B/ j7 D" m

    : u) A5 f" h. X8 R5 n! @0 K: @# wCell[BoxData[
    2 _- ^; e* C8 L  P3 J& a RowBox[{"{", 2 j5 z' C8 W6 f6 a& d) L
      RowBox[{8 U9 S3 x4 ?9 H/ p) Y& j
      "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
    . o, |5 r* |) }5 c- e   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
    6 [# I. w: P  U6 \% E  "}"}]], "Output",
    # E1 ?) F4 c4 } CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9, 6 h% ]% U3 ~: J# j. ?
      3.5779608137328453`*^9, 3.5780122209375*^9}]
    % ]2 E1 j4 @, r9 H3 w  n}, Open  ]],
    + Y) X" k4 i- O) R% L! B" o8 E6 ]4 `6 P. i/ ~5 U* ^# s+ K9 I
    Cell[CellGroupData[{
    9 `* O5 j% I/ z
      J. T( K  a+ _$ X' KCell[BoxData[4 V. M- \( W! Z$ f. b& c
    RowBox[{"u5", "=",
    # }, `- O$ }$ ~9 p# m* J) c' p; r  RowBox[{
    ( d( u- W! f: v" w4 W   RowBox[{"Exp", "[", 5 b3 {% c( Y  O, o% e6 k
        RowBox[{) J  H3 L9 _/ W# `- w
         RowBox[{) d* O. U* W4 _+ B
          RowBox[{"-", ) W7 R) @; g" X0 V" F, K
           RowBox[{, K' A  S; J8 `4 @% K1 |7 I
            RowBox[{"(",
    ; ]. ^  i  U9 k6 I, g         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 8 v' P- \# K' ~5 n8 J/ p) c8 K3 \
            RowBox[{"(",
    ; w. u8 V0 L2 b/ q5 @' f3 E         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    % J+ O% h! Q  b( [1 E# C4 N     "]"}], "/.", "DeltaX"}]}]], "Input",; {, p+ i; J$ x& b- F: E% H$ s
    CellChangeTimes->{3.577920869375*^9}],
    * @8 ?; s$ P" D6 _( I# G% o! K: J( F- w0 o
    Cell[BoxData[& ^. }  D& o  I; O
    SuperscriptBox["\[ExponentialE]", " }& z. n' E5 D$ w! U3 J5 F9 }
      RowBox[{"3.141592653589793`", " ",
    - M/ S3 g3 M0 n# f7 b   RowBox[{"(",
    ; _/ C3 B5 k- |% x  t7 R  l% b    RowBox[{
    1 _6 r- n' c$ Y) ?     RowBox[{"-", ) s. x! T( D) p: P+ K/ _
          SuperscriptBox[
    1 ~+ }" d& b- }1 f- N9 w- _1 p2 ^       RowBox[{"(",
    5 O1 C  s- M  v- X3 b# i$ q        RowBox[{
    ) _% O+ U; e% t/ L" s& p         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    : a6 Z1 D) A: J4 T     SuperscriptBox[
      i" N# }) x: p+ A      RowBox[{"(", 1 D# B' U7 m  a- c8 L
           RowBox[{3 t( i  L6 ^: v/ P- F
            RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
    8 o3 O5 D$ i, i" _; b     SuperscriptBox[. u7 b; a% O" W4 P
          RowBox[{"(",
    * e$ u. N2 M6 p4 v. L6 J2 [       RowBox[{
    $ ]5 k! ~1 H2 ~, S& {1 u3 _& v        RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
    & E4 U/ V* j; V- T7 s" `& N/ `" g. k     SuperscriptBox[# u) s$ q) f/ [' V: `
          RowBox[{"(", ! M$ [# Z; O4 p, D% u4 w! Z
           RowBox[{
    5 u( y7 J, K4 j4 B& l4 f+ ?' @        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
    4 M1 y; k, c) k( c     SuperscriptBox[
    5 ^& E7 W% G3 _2 C8 P! H& m      RowBox[{"(", : b- M- v/ T% Q, t2 Y# _# m
           RowBox[{) v9 o! B* I+ z8 z/ g2 ^
            RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", $ o$ E8 q8 f3 ?
         SuperscriptBox[  ?8 N2 v0 p. \5 q5 Q
          RowBox[{"(",
    ) O( r. W, a1 e7 ]' o0 Z" W       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    % e+ ?  h* L# P6 K, K     SuperscriptBox[. E8 i& Q1 w" J  `( X  V
          RowBox[{"(",
    . C9 t& ?& d0 [& }2 ^       RowBox[{) e: D4 C$ Q! o5 j9 T
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
      a8 _8 t5 \& N1 N: ]; j     SuperscriptBox[* y- v+ R  M1 @6 W( m
          RowBox[{"(",
    / }, T# |1 A! A5 t0 V2 ~; @       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    " X0 s. b" f! C) k     SuperscriptBox[+ P; U; O. d" [4 v" ]6 C
          RowBox[{"(", $ X5 C# t. q6 k, N) Z
           RowBox[{0 F7 q$ W4 d' [7 }3 l2 h, `% k; D. h- H
            RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
    : U% X" I: }0 Z    ")"}]}]]], "Output",
    3 S0 C! G, G- Q. ~" B$ b9 b CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
    % G& N) r+ R9 o, K0 |3 R  3.577960815043248*^9, 3.578012221953125*^9}]$ H) E+ m( B, Q1 C" ]- L9 p: k. c
    }, Open  ]],
    0 E4 r9 o# W1 T( @$ T8 F6 ~. w& X' K9 H# s
    Cell[CellGroupData[{4 e+ O2 n1 F, \" z! ~3 u/ _
    ' C* W* b7 p3 A4 o' Y
    Cell[BoxData[$ _# ]0 Q) D& X- B! N+ C
    RowBox[{"C6", "=", "Ca"}]], "Input",! `, z" ~+ i% `0 Z( y) W# S
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
    % [3 ?1 }. J1 H
    $ v( H" S8 N; M% q1 o6 CCell[BoxData[
    " W) ^' D" {: n& j RowBox[{"{", & ^/ _# h0 U0 ]+ }
      RowBox[{& I1 |% [, v. i9 e7 c, J/ G$ a
      "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
    2 {. V& ?( I& |( F; s   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
    0 ]4 ?7 B4 O0 w- g* p5 a   "0.494866`"}], "}"}]], "Output",
    1 S' `$ b8 n& F# Y$ M" P" U1 c9 j CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,( J3 c! C2 S; V9 \; u6 t) X
       3.5779608373044868`*^9, 3.578012227359375*^9}]2 {9 ~- T& s7 W9 H# _
    }, Open  ]],4 ?" y0 Z2 v- e7 e8 E8 g/ p' s7 z( H

    ! }/ t5 j( Y7 F0 _& tCell[CellGroupData[{6 |( d) e3 `% [1 O% |3 x* o/ @

    7 _/ r' N( P% G. BCell[BoxData[; H( k2 ^, u8 H" |2 F" `
    RowBox[{"u6", "=", 4 f- {0 Q' d4 g# c( J
      RowBox[{
    # P  G, k: b" V9 T0 c- b$ I   RowBox[{"Exp", "[",
    9 N' m1 S1 o/ J: o8 O8 x: |    RowBox[{1 f3 r! y) a/ M' O0 i9 w5 j
         RowBox[{
    9 q! |, X; b& i8 [9 V      RowBox[{"-",
    5 \7 U5 A  M7 i( R9 Y3 X' ^       RowBox[{; W; k) l  f8 P4 o9 e2 K
            RowBox[{"(",
    & r: t0 Y, G0 }) ]1 g: V5 m/ k         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    & [- Y" v( J4 B& @- S( x+ ]        RowBox[{"(", - }1 q% }# A* J8 @0 C# E8 ]
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    6 a$ ^) c9 t% c, U' t; d- S9 b     "]"}], "/.", "DeltaX"}]}]], "Input",
    8 Y+ `  ^! Q3 V, _: J, [ CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
    5 \9 I2 ~3 \6 W' w+ D5 i% o2 F/ B0 _1 u! {- Z" ?
    Cell[BoxData[
    + ^+ m1 x$ @" [- M$ C SuperscriptBox["\[ExponentialE]",
    1 C" q" m9 O  B+ O0 S& P0 x  RowBox[{"3.141592653589793`", " ",
    , n( r! F  u! N% A" R' n! X7 x   RowBox[{"(", $ o- R& |& |2 t7 M% z
        RowBox[{7 ^- Q- Z/ Y" U# w: n
         RowBox[{"-",
    ; q% b/ k9 d) ^. B5 U      SuperscriptBox[$ o* a9 T' l1 N7 [- h
           RowBox[{"(",
    ) }8 p2 ~" A; x/ }) j' X* v2 U7 b        RowBox[{
    ( O2 m) B2 j/ ^0 q% y* R1 W& @         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
    0 n3 `8 l( q7 A$ q, _     SuperscriptBox[
    ! }$ M3 p) i$ W* S      RowBox[{"(",
    4 t/ @: ~6 a; V  P2 V1 Y# L       RowBox[{+ ]  C  @/ U0 \/ p' b6 S
            RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", ; Y7 N5 l  t  J6 D# `" J
         SuperscriptBox[0 M% m! v3 y! S9 I' H3 F
          RowBox[{"(",
    - t: z2 l% b" v       RowBox[{  ]& e2 L7 {) }; t$ Q* {0 U
            RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
    , v$ N$ a$ N7 E( F( d. V     SuperscriptBox[
    + A! Y* Z0 E( N' X# ^      RowBox[{"(", ' `6 F0 A& J: X. ?9 [' k
           RowBox[{+ Q- T; }$ O) C! F" `5 {
            RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", & B7 R% c/ z) y4 d4 u
         SuperscriptBox[
    & ]; ]3 {' A: o* C      RowBox[{"(",
    3 s7 I5 b) h! {0 a; X( j; ~       RowBox[{
    : n8 b& H$ n! ~7 l; r) T        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
    ( `+ h4 e+ {+ v7 f  X) A) C     SuperscriptBox[
    7 A& {- N! N7 V9 g& M! T  P      RowBox[{"(",
    , X1 k2 F8 W1 j9 r' C& q# L       RowBox[{
    : D4 f9 ?. T; ^" v3 J( {        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
    : X/ K- G) i- G2 \     SuperscriptBox[
    & L6 g4 k# _3 f) H- h+ q      RowBox[{"(",
    . ~2 u& d% G) |3 q( s0 C: y       RowBox[{
    8 Y  |% e$ N1 R; K' m& }9 ?# O" d. V        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", 9 G3 v# p0 r* S5 S8 e  [
         SuperscriptBox[) i: |& j4 i1 ]  T4 c# h4 v
          RowBox[{"(", " j( M3 P& K( K; e  x
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    . f' g1 I/ z: y+ V) v  @$ o     SuperscriptBox[2 |4 }2 s, k2 g* U
          RowBox[{"(",
    3 S( W4 @$ J& ]& r1 e9 \       RowBox[{) A1 n7 y& y  u9 E" {' c
            RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
    7 r8 p5 k) \; R; [! _" W+ W    ")"}]}]]], "Output",% W+ w$ p4 t5 U  x" ^
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    * l" E; x. e6 h, D0 d5 T& ]  3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]; W4 `. J" w0 X8 m. A
    }, Open  ]],! s7 V& @, X% |3 j% \  |. l8 r

    " q, K* X2 q- x8 j! l% f+ K/ ZCell[CellGroupData[{4 h# P" d/ h% v6 A. x; q9 A
    - _# V$ n: W: V
    Cell[BoxData[
    + g" r' S% b6 J8 j! l( I% Q1 | RowBox[{"C7", "=", "Ca"}]], "Input",  z. a1 G. _. [5 s
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 3 f3 U! V. K) B' y; j7 [( f
      3.577921316125*^9}],
    & _$ {0 p7 Y; Q  O: Z- t) z/ C
    - ]  M6 F, K% f; y0 @Cell[BoxData[& \) P9 Q$ ?; K: f% E. ]1 j
    RowBox[{"{",
    4 ^, W* i; q4 z+ C( o) i7 Y8 T% r  RowBox[{: J' F6 E- h" I( F4 h
      "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
    ; y" X% V% a$ x' j& f   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}], 8 m1 O. u4 |2 t+ P0 p
      "}"}]], "Output",
    ) M, I1 v2 v9 X CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    6 c; w: I* q: d4 v" V  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
    $ W# w! W4 M) `: G# i7 |6 k}, Open  ]],
    3 I5 E4 R2 Z9 f
      ^" I. [) o; G* K& mCell[CellGroupData[{1 r$ _( h, r. x7 h# a
    8 V9 h1 J) ?0 }: r. S1 t: g
    Cell[BoxData[
    ; t% c1 U5 {1 _* z" ]3 d+ ]& r RowBox[{"u7", "=",
    4 Y0 X! J! ?0 Y  RowBox[{
    1 \1 S; B+ S! u- c" l. h! M   RowBox[{"Exp", "[",
    + s  T1 p! ]6 Y6 L) p    RowBox[{) K2 N6 J7 A- J- \4 \5 a
         RowBox[{
    - B( E, q4 @2 O& K1 e. T- C7 U  d2 `) p      RowBox[{"-", 8 P, D0 o" i! r2 A: _$ w
           RowBox[{- K7 L# Q0 t9 p# u$ n7 e, L
            RowBox[{"(",
    1 L" m- {5 y; {! ]& d4 Q' b) _  v         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ) o8 l) H5 e; Q" M+ C! l
            RowBox[{"(", 2 g0 t) t( k9 q) D
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ! g2 ]) G& Q* A. P" D: Q     "]"}], "/.", "DeltaX"}]}]], "Input",
    : Z: M1 ^' }6 m; G6 ?: z CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    ' k8 A" X% a$ E2 O  3.57792132028125*^9}],/ A, j% O9 _8 l" T9 ~7 f5 k; R
    / k& i$ I/ C: ?% S* r
    Cell[BoxData[
    7 I* j" H5 O' u$ U; q2 X SuperscriptBox["\[ExponentialE]", " u- b$ H, h: h0 U0 r) _" r
      RowBox[{"3.141592653589793`", " ", * U7 p8 S2 `" ?4 ^. X8 e! |
       RowBox[{"(",
    2 n9 K, Y4 P5 @3 {1 r: n& H    RowBox[{0 q! `) U) i4 b6 l
         RowBox[{"-",
    3 k' Y3 H- M9 B      SuperscriptBox[
    4 e8 f% ?  \8 t  K( ]       RowBox[{"(", 4 x$ \6 t0 j" P' \4 a
            RowBox[{
    0 w+ I1 N0 Y2 m% p: [; a! ?. M         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", * N2 @! K+ n1 R0 ~, ~' V) o0 j% {$ K
         SuperscriptBox[
    " P. i. B8 L+ x: ^% ~      RowBox[{"(", 6 \8 K' R$ O5 ~6 I
           RowBox[{$ `  J5 ?# H3 T/ t) ?& F
            RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", # h% K. X. e, z: I* n: ~
         SuperscriptBox[7 }5 |4 k) {7 U5 X
          RowBox[{"(",
    , ]. @; P, _! K& _  k& Y! d9 [       RowBox[{. N) D6 l  O) r; z' @% G
            RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    " V% [  X9 b+ d     SuperscriptBox[, i) H( N- a" P. V% Q' h
          RowBox[{"(",
    ; m( W" T! M3 L       RowBox[{
    5 b% T2 P+ {5 z) `; }: j        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", 5 E$ {( n0 z: E, a3 k3 C
         SuperscriptBox[
    0 d1 Y- `0 l0 P" T* ?+ c7 E      RowBox[{"(",
    # ~3 H9 o( ?, e3 Z6 h& r, K       RowBox[{0 O. J9 U6 y1 k) ^6 L
            RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    ) b3 X% R6 P4 T) a/ N7 B  V     SuperscriptBox[
    / n( ^8 l' Q9 L# |6 D1 R* H      RowBox[{"(", . l/ r" D4 `: S' A
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 5 w5 d9 x: ^8 W' z4 j" ^" w$ u
         SuperscriptBox[
    5 W; j& Z, i" q7 D. o+ Z      RowBox[{"(", 6 G( ^' {# t! L6 ^9 J2 g
           RowBox[{
    / f% X0 t# {6 B  k5 S        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 4 W9 g! ~# H0 ]- D
         SuperscriptBox[
    * e, ^- ~9 W3 j8 w$ N- c' e      RowBox[{"(",
    - f/ q, D- @( @" L       RowBox[{
    0 g+ j( M) c! @1 C1 B4 [        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", ' ^- s# `: v8 p+ ^( Y; I. |. |
         SuperscriptBox[! b1 j! X. e9 V7 n- h& h! q
          RowBox[{"(",
    : P0 D4 j- m, [: p       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 5 C; R5 I2 T8 s. T( ]
        ")"}]}]]], "Output",
    8 `& c( P5 E$ C CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    / s. M9 p1 Z, G  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, 0 F4 W* X) V  Q! K$ a
      3.578012251359375*^9}]
    & g; u1 W3 F6 J( {& e}, Open  ]],$ p. \; b7 e( J: Q) S. @

    " h) K; Q# J; MCell[CellGroupData[{
    0 w% B! s2 l0 q% v; p' c6 ]
    7 o) w( K( }' J) DCell[BoxData[1 S# {: b% ^+ X- S. T9 |
    RowBox[{"C8", "=", "Ca"}]], "Input",
    ' t3 C  P$ G- O+ _2 I  K CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    3 y) N7 |4 y: w: l  3.577921316125*^9, 3.57792141421875*^9}],$ {" H# j1 O4 T! b' c

    5 A: B& V0 _$ y( Y$ [Cell[BoxData[
    * d" p/ I! \9 g. X# F3 j& n RowBox[{"{", * }' Y- }  q3 S
      RowBox[{  ^' i( O5 B9 M8 c( x9 A+ g
      "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
    ! U0 [" a& V6 R8 N# i2 Y; J, A* [. U   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}], 3 y7 {7 T  _; Y$ W* A2 C
      "}"}]], "Output",2 E+ S+ K0 Z" P; Q
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, ! L. p& k9 g5 d4 T
      3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9, 8 j8 a3 u; `8 g% U% l! ]
      3.578012260515625*^9}]
    & u# X7 ~3 r+ r, F1 o}, Open  ]],- \& O8 M/ ?& D: J
    * E, {. x" v6 g
    Cell[CellGroupData[{
    " O! B- ?% f6 w5 G: D; N
    ! K: ^2 c. Z' ?' L0 {- E0 u% k; WCell[BoxData[
    . F: M4 P( G  U8 I& ]) N5 o RowBox[{"u8", "=",
    " n8 T% x9 m0 L+ [! L( {  RowBox[{
    . e& F) q+ V+ d! n& ^   RowBox[{"Exp", "[",
    - q/ Z8 B6 [* l/ `/ R! `7 l    RowBox[{1 ^! S0 e8 g) [2 [4 b
         RowBox[{. _) ]7 g+ `0 i. t( }/ F2 Y  e  u
          RowBox[{"-", 2 E& B. [$ Z% E- @
           RowBox[{5 k; D' N) X6 w7 |
            RowBox[{"(",
    ' Q  e  b0 I' s) W8 i3 y         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    : Q0 W+ w; |3 W5 i: M8 ~        RowBox[{"(",
    ; E; b4 L5 F% _         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],$ ^& U2 i6 r2 e0 ]' C: n
         "]"}], "/.", "DeltaX"}]}]], "Input",
    4 V% O2 N8 x! h% {0 u) z# a CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, ( D4 R; i$ W5 ^
      3.57792132028125*^9, 3.577921416921875*^9}],/ u4 c! U* K* a: J- X

    " E; p" u( K* i8 G" \Cell[BoxData[
    $ p6 s& j4 S# @7 j. [ SuperscriptBox["\[ExponentialE]", * ~& t1 `8 K5 H* ~) D7 \% t
      RowBox[{"3.141592653589793`", " ",
    9 U$ K* \; M% Z5 J   RowBox[{"(",
    & W& q1 |+ s3 F6 U6 E  A+ H    RowBox[{8 j; m* D  w' P* ~) Y4 y/ m1 ~
         RowBox[{"-",
    : d3 b! j6 E) M& T      SuperscriptBox[
    2 \: P/ ~( D; _( F  z6 i+ z3 ]       RowBox[{"(",
    " W* v( Z6 C# ]% i! o$ q/ Q2 x# T        RowBox[{
    * r3 w, A; h, O. E2 w' ]         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
    8 }/ k8 F3 t' k% ?# Q9 [- S4 d* j     SuperscriptBox[
    " A" U( K. |% L! n# H      RowBox[{"(",
    5 F3 Q3 X6 y' o  e" b, _4 k' {" z       RowBox[{
    ) y+ O: v* U& ^7 p/ S* e        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", ' j3 ~# o1 u& k- T7 h
         SuperscriptBox[
    4 A3 u' k6 P# Y- I' n. N+ X  B      RowBox[{"(", - ]  ~7 u4 I0 x' B/ Y
           RowBox[{3 a- B  k9 z8 z- C
            RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
    ' K  o" l. ?/ D, ^2 b0 p8 r     SuperscriptBox[/ i, G6 c+ U4 ^/ I% t: c
          RowBox[{"(", ' S" L7 U' W+ S5 R; `4 i" i9 k/ r* l! Q
           RowBox[{0 F( l# y8 w, p' r! w
            RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
    * b7 K3 T( P7 n( O5 F) n; ?     SuperscriptBox[# V; w  Q- i& G9 q& x$ ?2 Y; F9 L0 ^
          RowBox[{"(",
    2 x4 D: R0 w# F" R2 }$ C# f( Z       RowBox[{7 V& I) Z! y/ S" H4 C$ R( ]8 M/ p
            RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", ; m; G! d2 G8 Q' D2 P, L  m
         SuperscriptBox[
    + f' [' R3 Y+ q, \( j      RowBox[{"(",
    $ b  q7 }3 c% @; k; h5 V       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    3 e+ T2 E2 r) [) P     SuperscriptBox[
    & }# C  P4 Y& I& I1 v$ w, P+ C      RowBox[{"(", 5 C' W6 G/ a' ~% s% z/ z; I
           RowBox[{
    / K& Y* y( r0 i% b3 K        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
    ( [3 |; x! |* H* Y5 m6 x7 @5 c     SuperscriptBox[
    , E9 ]& M" }3 R# H* H/ H; T# i/ j0 U" x4 x      RowBox[{"(",
    & [3 }# }: M* O2 @$ v* [5 A; j* u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", + p* f5 d0 y- O+ g2 }
         SuperscriptBox[, n, f( O1 ^4 e- F) t
          RowBox[{"(", 4 k" |8 ^# F1 Z; [/ b
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ) S+ C$ b8 l% m) j7 T+ k
        ")"}]}]]], "Output",3 S4 j* V2 O' J: D; C+ k* n# c
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    : a  Q: S3 _5 S! R5 U  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
    5 U* ^9 e$ ~; c  3.5779608945565863`*^9, 3.57801226165625*^9}]
    ! A* T9 G0 Q+ `* ~7 r: T$ ?}, Open  ]],
    2 I) y3 c+ m2 F5 M* O" u
    $ j; e! j) `5 xCell[CellGroupData[{
    ) z/ r: Z# b# [+ d" B% x/ |" W* I
    Cell[BoxData[
    2 v% w3 w6 _0 w) d RowBox[{"C9", "=", "Ca"}]], "Input",7 w1 A* g4 `0 ~! o
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    8 }6 O6 S0 X% k4 a" A9 J  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],
    6 ?+ p- ]! Z: g; m
    4 d8 ~3 Q+ [0 ~% ]7 d0 A# rCell[BoxData[# X/ [4 D: s" n$ ?- V. s* X9 n
    RowBox[{"{",
    ' V: @7 ^1 Z8 [  RowBox[{; ^2 @; v8 ~3 P4 z& C# H$ f
      "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",", / |1 v' K/ b  K9 x
       "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], / l, R' O$ A) H5 f4 S
      "}"}]], "Output",9 X6 j) @; b7 S% p5 c' I. K
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, - s: k* c7 }6 ]+ K
      3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, - F+ g0 n  u; i# |, [
      3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, + [( F) x: I" a
      3.578012268234375*^9}]7 c1 U$ b, A+ y
    }, Open  ]],( I. y8 _1 A  J
    9 s) T5 o  ^% W, \% J9 c; O
    Cell[CellGroupData[{4 f$ w% Q8 S3 d9 t/ X9 y$ n
    % D8 x3 x) F' q( m. f) p! g
    Cell[BoxData[3 g* M; i3 p, Y+ ?& a" P3 `
    RowBox[{"u9", "=", ; h# }) ]; N  m9 I! ]0 W
      RowBox[{5 f, B0 K; L1 G
       RowBox[{"Exp", "[",
    * V( V7 d, W/ {  y7 N    RowBox[{
    - o/ p5 F. f1 `8 j! Y     RowBox[{
    0 E  u, c- U4 Y9 y5 i9 X      RowBox[{"-", ( [  p3 @* `5 i: D4 Y4 b
           RowBox[{
    ) R  O& D) s* S6 ~  `; ?# p        RowBox[{"(", + w! u& G" ?6 g' T. c
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", : a9 o  ?! J( P! L7 U3 _+ h
            RowBox[{"(",
    # F4 r. f- @5 M) F3 R) E! x' i         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],# W8 D. w& ?- I$ N
         "]"}], "/.", "DeltaX"}]}]], "Input",7 d, t! T4 t0 x3 Y* U
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 6 |8 ^4 p5 A& [+ n  |3 |1 f
      3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],
    $ v6 B& s3 S- c6 d
    ) d. q0 p/ c* W* O# n# QCell[BoxData[
    2 T* W0 E( b: t! } SuperscriptBox["\[ExponentialE]", 2 R. [0 M: u! c8 |/ ~
      RowBox[{"3.141592653589793`", " ", 8 Q, ]) e8 ?* G2 z2 j
       RowBox[{"(", 9 O& k" z8 n& k& Z' U2 T, O& V% x
        RowBox[{8 @5 _7 P/ j! g1 i$ z$ M
         RowBox[{"-", / t' t" m- O& ^; Y2 ]' m% s
          SuperscriptBox[. Q- j* |/ b8 m6 X
           RowBox[{"(",
    # ], }. d+ H% q) K( k$ m. E        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
    ! h* V% I, |" P# O% r3 \( D     SuperscriptBox[
    ; ?8 I1 j# _% b. C: ~  @8 g5 E- D! f3 c      RowBox[{"(",
    * n- j$ I5 K) J       RowBox[{$ ]$ H! @' J% {" V1 C
            RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", ( E" D' e3 e5 }8 ~
         SuperscriptBox[/ Y# @* ?. r, ]3 Z. R) E1 K
          RowBox[{"(", , M+ [" A) Y) f$ J# a7 r
           RowBox[{4 s! E$ D* X8 M; Q
            RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    * s3 x& e& _) q0 u     SuperscriptBox[- f% T) S! B$ |) R' x
          RowBox[{"(", . J- D# D6 U, h  b) b
           RowBox[{) ^  Y$ Z" c0 r7 z) x1 o
            RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", 9 _2 ^4 n9 ?/ H# X4 J
         SuperscriptBox[! m& m1 d# F7 P8 \* R
          RowBox[{"(", " t5 b3 U  i- {7 M3 e) C5 }
           RowBox[{
    1 i2 ?' u) w3 V        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", ' g7 u: t) \1 e( y
         SuperscriptBox[% s* Q3 e; w* N) \
          RowBox[{"(",
    + Y" T  x% J( g       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    : o. T0 V8 a4 k8 j! x     SuperscriptBox[
    $ w) F" Q! i: O      RowBox[{"(",
    ' g+ M- y2 A1 [3 I* w. m. l       RowBox[{
    - |% S: S+ _  y2 |# |$ a        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", + [. K- y' U4 G
         SuperscriptBox[0 w( s. E2 L  E/ Q; v
          RowBox[{"(",
    : k' G+ Q) e& P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 5 a0 [/ G0 d4 g! v! [; {
         SuperscriptBox[; x5 M, c, v5 S4 V3 F2 _
          RowBox[{"(",
    7 C4 I! Z8 k  h  q+ H  ~       RowBox[{1 j* I0 f& q& Z, p- a3 J; c% k2 f
            RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
    : w9 w- O) Q; `$ X+ M    ")"}]}]]], "Output",8 U5 j1 R, }2 {+ j! V
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 0 h% m; U3 L6 {
      3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
    0 b& w2 J5 `8 H  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
    4 f0 C' c/ n3 o/ q1 |1 U  3.577961530421959*^9, 3.578012269125*^9}]0 e) x! [2 `$ ]% i1 R$ k
    }, Open  ]],
    / h3 X6 L* o7 r# C. a2 n: {; ~3 L" A2 }. q
    Cell[CellGroupData[{
    4 N3 \) _* i' b, Z- c# V* U5 v" S$ A3 p* q6 f; {
    Cell[BoxData[{
    ' ~/ W4 U1 ~* V" O( j9 n; r RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",   @6 P. c7 B6 o/ `5 r  B
    RowBox[{"u10", "=",
    2 F3 N4 ~: E- y. e1 ]2 ^  RowBox[{
      D- J  O5 E: @9 B0 E! E2 T" L   RowBox[{"Exp", "[",
    % q: X5 B" [' R6 c$ f    RowBox[{8 h% I: W6 Z( D  w# Z
         RowBox[{
    * N8 T$ ~4 \2 D( o      RowBox[{"-", 9 C) [, N0 A+ S+ n
           RowBox[{
    ; ~6 z: H, n& e& m0 Q7 y9 B& n        RowBox[{"(",
    ; w7 c, F$ N& q: r         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 7 u# B. |9 z# x" r, c/ @
            RowBox[{"(",
    6 w* J0 X, @* Y. w* Q         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    8 [% i% [( t* ^. H. B1 j0 ?, M     "]"}], "/.", "DeltaX"}]}]}], "Input"," ~7 Y& L3 Z- _, l% ?& D6 ^
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
    ) m- ~2 Z$ i: C3 t5 q7 G; i3 z  e8 p$ S
    Cell[BoxData[
    * Z9 h3 z5 m! L; o# o RowBox[{"{",
    # O7 V! y. {0 @/ b5 c  RowBox[{) W0 a$ Y# ?: T0 c' Z) H4 d
      "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",   G7 j$ z. W  ^! {
       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",* a' |! O+ y: r* O+ E# Y
    CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
    4 r7 O5 E; W: B; W
    # j+ ?: F8 X3 E& L9 X% @5 K" ]* Z( ~5 HCell[BoxData[
    0 u) D  w5 l% b  ]4 J5 P SuperscriptBox["\[ExponentialE]",
    ) h$ k2 r: C' X  RowBox[{"3.141592653589793`", " ", ) {8 L! @' ^- `: a0 e; u8 Y
       RowBox[{"(",
    / w/ W3 P" {7 |& ^% ~    RowBox[{
    % r5 |4 Z: Z& R6 u5 W     RowBox[{"-",
    , O' g. x. q: r7 h      SuperscriptBox[: x  r; I7 J, ?" m
           RowBox[{"(",
    ! E$ a' I) w! V4 V7 Y' O8 h        RowBox[{
    : c- b2 G# Q2 @, B$ y. }% o) d. y         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", / E; u* E+ |) I/ R" n
         SuperscriptBox[
    3 r8 [5 O- ^- N6 _& a$ S      RowBox[{"(",
    , t4 s) V6 }1 e. I" E' m       RowBox[{
    $ d4 K, X6 |$ g% t" ]# i' I( R9 o* @        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", ( C0 T" [9 ]6 _: {8 B8 h
         SuperscriptBox[! ~5 V/ c& \3 l2 H: s, k8 M
          RowBox[{"(",   u7 L  y+ o: p* t
           RowBox[{, `5 ]: j# x; N* ~
            RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", ' R! p* E/ }  Q) a$ I' K  X  \
         SuperscriptBox[
    8 K2 g8 \. G) Y# j      RowBox[{"(",
    0 p$ A2 W$ Z9 w( F& K       RowBox[{5 N7 x$ h1 q* w! }
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
    7 m7 j: G5 \$ h0 R  s/ K8 R! t6 E     SuperscriptBox[
    * t# t$ W7 X* y( R8 W8 _+ i      RowBox[{"(",
    ! M& c4 ~, J, s3 Q) ^       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", 9 z8 Z' w! O8 [  C! E; B; K" x
         SuperscriptBox[- Y& _4 J+ o. Z8 l/ v2 y! U. |: _5 d
          RowBox[{"(", / ~7 X. T9 P. U
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ) [4 _8 l% ?5 X/ Z     SuperscriptBox[& P7 L  K; R& P4 Z2 T1 P8 |& `4 g$ I
          RowBox[{"(",
    * t- ^% B- z! l* |0 E5 {' J       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 5 V2 h8 {6 V; e. O* y9 m
         SuperscriptBox[+ b* p" h5 W7 J" s+ w+ `9 t8 d
          RowBox[{"(", + I; d$ B6 A4 L2 ]/ V4 g
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    7 P/ M7 {5 r0 }     SuperscriptBox[
    - J0 H$ h7 n0 U( B; D- E      RowBox[{"(",
    . i0 F4 |) O9 w1 @1 a- z5 c       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    , M) T* w; G5 V% n6 o    ")"}]}]]], "Output",
    4 Z( Q: K, l: u$ t1 o CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]9 d' Z( \; i; V2 a
    }, Open  ]],8 i0 S& [+ t3 s! ^; U9 {
    % J" i! Q/ B$ ~" M
    Cell[CellGroupData[{% N; x1 `" Y. r- u
    : h1 \) C2 C" q6 A8 a! e9 A
    Cell[BoxData[{
    # O3 n  x, P3 h. w RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", 5 P/ z( ^) @9 N; s' G3 _
    RowBox[{"u11", "=", 6 q5 n( |. B9 y" Q0 J" }" C
      RowBox[{
    ( c! v9 I5 n  U5 p, f  @   RowBox[{"Exp", "[",
    - v- `. I3 e$ U5 C4 e$ ]4 _    RowBox[{
    * V) M+ x. B& B4 D6 H/ W2 ^     RowBox[{
    6 E2 i1 H1 C. B: `      RowBox[{"-", $ e) W% r  n1 w5 q$ p: y% k; o7 L
           RowBox[{. |% C" r+ W% S$ [! R! v
            RowBox[{"(", ( e. X* h3 \% D6 L
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    + V! _" h$ E1 ^6 T' q        RowBox[{"(", 4 R7 `; E$ z3 [# D. C
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}]," ~9 |% s( ~1 N' |  U7 j  C. G3 z. z
         "]"}], "/.", "DeltaX"}]}]}], "Input",& G2 f9 P7 l" X% i
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {# z- h* `* C6 W6 l* ^6 I+ m( }" F
      3.57796154237158*^9, 3.5779615434011817`*^9}}],
    " F) ]/ G& b$ O4 B3 C1 }& [2 S
    9 ~, N& b5 _1 |( cCell[BoxData[! [- ?3 R6 r& {5 P) `2 p1 b# K6 [
    RowBox[{"{", $ r, Y- S2 U" q" V' [( d9 S# H# ~
      RowBox[{
    7 `" U4 [' a) n( D. E( W7 g& [+ W( F  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
    % _0 R9 ~) i  @- \' s- m; J   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    2 z$ x- _, u) O! k  "}"}]], "Output",
    0 g+ y0 E3 S0 {6 o/ ] CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    5 S9 z( B+ }" T2 j( j- }% v  3.57801228203125*^9}],
    # t/ K4 w/ A6 Q
    . k2 ?. H, f9 [8 W3 \. _# aCell[BoxData[* S' k: e0 k- R" N! i8 E+ u1 n
    SuperscriptBox["\[ExponentialE]", ) @- p# |* Y  B5 ^* V0 U& w
      RowBox[{"3.141592653589793`", " ",
    0 P# h: t4 z9 ?' E( s   RowBox[{"(", ( s9 `5 ~0 S! f+ w: }
        RowBox[{  M7 \4 R! C7 t9 e. q, e* {
         RowBox[{"-", 1 h  k8 Y. y; L5 m4 F( s, g: l& A
          SuperscriptBox[6 P# n( O) }6 g/ A' {
           RowBox[{"(", ' x: _  Q% z& |' Y
            RowBox[{; U  z- I* o8 [; J# f
             RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", & g" d" w. M* [/ O1 x( |  [
         SuperscriptBox[. K" R4 i& ^( ?. c+ k3 x
          RowBox[{"(",
    5 k9 m( t7 T2 N, n( R" S5 u& z: {       RowBox[{
    1 k' s" Z: l% r- U- \' P3 t7 \        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
    8 ~, z- d& K. ^# S+ R: _3 a     SuperscriptBox[- R4 T7 x3 ^6 t& G# F, {! j/ m
          RowBox[{"(",
    & E2 l+ J# H$ \$ Y6 t       RowBox[{! P. N5 m2 Q2 Q4 a1 _1 u
            RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
    7 v( j* u4 V. k* L( S7 k     SuperscriptBox[
    : ^3 u! f+ K1 E0 u. s3 U      RowBox[{"(",
    & I+ }" U1 [' c5 ^       RowBox[{& j: P  L' J$ v- X8 A1 s1 R
            RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", / m& M( T+ O, U
         SuperscriptBox[
    1 H- o6 N# C6 O      RowBox[{"(", ( G1 w3 j7 V5 ]5 k8 q
           RowBox[{
    # R. z# S! u& z: c" J        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",   u6 k7 {; @' u! G1 P, ~$ ~5 ~6 k
         SuperscriptBox[- C) O! s0 I; O6 C; b% o  w8 W
          RowBox[{"(",
    7 g7 I+ _3 p, F& L* k       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ! F4 S, s, X! N+ X7 U     SuperscriptBox[, Q' F8 R) a2 |: n
          RowBox[{"(",
    ) L- O% m2 e9 }+ D) O       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", - d% Z, v4 q( b. |
         SuperscriptBox[3 T. x& ^9 O3 o4 ?- T% M0 C
          RowBox[{"(",
    + `4 C0 |* o5 h9 z' T+ ^6 s       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    9 U9 j: }( Q  y5 L/ d; z) G     SuperscriptBox[
    1 f% ?0 T7 l4 `+ [  L      RowBox[{"(", $ D! V- U; B$ H7 V5 b
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 7 a+ f, @  V$ M! {( A) g& A- a3 [3 j
        ")"}]}]]], "Output",8 G! Z! E  ?! }; o$ u4 A; H! \
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    + b5 H1 u* b) y7 Y- d9 b6 X  3.57801228203125*^9}]* ^5 }' y! h  L3 C. `' k
    }, Open  ]],# f' m! n' Z) Q
    & W; A5 v! @/ Z, c% w
    Cell[CellGroupData[{
    ( x* R* o* [7 w1 K2 _
    ; j. ~& T1 `9 c8 Z4 J# V& b* OCell[BoxData[{
    0 w+ y5 G1 f8 J: U5 D$ L) F& { RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]", 2 @" A9 J2 h" ?$ {: S5 M+ I" w
    RowBox[{"u12", "=",
    - Q8 y# {& l- T7 p8 t  RowBox[{+ p% z3 r! |" L% P5 q$ E. A. G
       RowBox[{"Exp", "[",
    9 J2 I, M& V/ v% H9 D1 r, n    RowBox[{
    & V" \; M" ]/ |( Z! A$ t     RowBox[{( i, ]/ q5 B  `' b6 e
          RowBox[{"-", # W/ }$ f& I3 O0 Z2 U- [+ ]
           RowBox[{* X! v+ R- h7 ]6 q
            RowBox[{"(",
    $ T( v4 n2 ~0 I9 t# Y         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", " t" S; O9 X) d0 M  U
            RowBox[{"(", + [* m# W; y% z1 d, a
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],- C; @. {/ j; k: l. E
         "]"}], "/.", "DeltaX"}]}]}], "Input",0 ~' a+ r' ?, u7 Q6 S( P& D: L
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    1 T% W5 K3 N4 n( G1 v' o) W7 M  3.57796154237158*^9, 3.5779615576284065`*^9}}],8 _' P3 O- g6 w

    # A  [# ~/ \; x4 |# }; k& ^+ GCell[BoxData[
    ! @: Q6 l( y$ i: P% K; u3 | RowBox[{"{", ( [/ f7 U( v% R: H1 d/ U
      RowBox[{
      c) ~: S, J5 U/ {+ n% M6 H  "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", * |  V! c1 i+ n
       "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}], 7 @' d! {# X1 a& |; n) K0 R
      "}"}]], "Output",
    ) F# f1 q4 Q* ]6 M7 k, u6 j' ?1 k CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],
    4 L5 l) M+ ?8 {$ e+ h/ M3 h( U) a+ M; y$ ~! ^6 L
    Cell[BoxData[
    . \& @5 x. t; |7 q+ B, B& J2 p2 s8 D SuperscriptBox["\[ExponentialE]", / e8 o, Y9 ^  A0 L5 M' I" u9 Q
      RowBox[{"3.141592653589793`", " ",
    7 V; E3 y# \7 E) \   RowBox[{"(", & J* v) O+ p" t6 @. K1 S
        RowBox[{
    - W; o" n' j  ^& u     RowBox[{"-", - `; J: Y3 _4 I! m( [3 V- F8 }
          SuperscriptBox[
    ( n% u+ ?, P3 y* E' {. |1 W0 m. H       RowBox[{"(", 6 Y9 w+ O5 |  R% M" ]
            RowBox[{
    . m  R& p) h2 K# v         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ! `2 M$ @. ]+ ^- b1 M- U- m$ H) S     SuperscriptBox[
    ! B. N# _& }, M7 r! W* d2 v6 t      RowBox[{"(", 5 g+ r8 G, U+ B+ U% M  P- l# E
           RowBox[{
    ! A! C" B- T" \: b1 v! \+ v; p$ S        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", 0 m6 v. M5 P+ |6 A& H
         SuperscriptBox[8 k# `8 t& m+ r4 G) r
          RowBox[{"(",
    ! I! T9 e' A5 k$ `- U! K       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
    % \6 S' o( [7 M  @$ x0 }4 x     SuperscriptBox[4 z7 Q- T! H  o; D& b1 R
          RowBox[{"(", - \8 [+ S, X$ [7 H. h
           RowBox[{
    7 q' {/ P( W$ C        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", & D. W' G5 M+ A, E% [* Q( g. o
         SuperscriptBox[+ J+ D7 }! c% [) h0 @/ U# U2 g
          RowBox[{"(",
    & x- d( A% a% k8 Q9 v2 t1 O       RowBox[{
    . G. A. l5 W, s        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", ! b* X. A6 `+ P7 R
         SuperscriptBox[$ S: n0 m9 t' v! }& a5 r% t9 b  {
          RowBox[{"(",
    " j$ z3 X, r" t# e" ?( m) Y! q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 8 p  g4 J! I0 P6 i7 V6 B2 q
         SuperscriptBox[# z9 s% z, O- a4 k9 R% B0 |
          RowBox[{"(",
    . H$ d, G9 @& d4 K       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", * ~  O& m- M( B& e: A# O* [3 ]
         SuperscriptBox[( i- z; d. T; g0 L$ V0 @: `  H
          RowBox[{"(", 2 `" U9 ?- j1 A  C+ o
           RowBox[{
    / K; u6 y/ C, p# K7 Y; a8 w8 L2 T        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", ! n2 _& W% T2 ]0 R* C, h- o8 w4 i
         SuperscriptBox[
    / _/ I- s5 K8 C/ M      RowBox[{"(",
    7 m4 I) p% h  K" N       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], % |  d0 a/ u! f& G/ z: D
        ")"}]}]]], "Output"," }" h; Z& D1 K7 e- s4 |! f5 W
    CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]* `# R5 t/ T! I
    }, Open  ]],# @( T. I# e+ s" _7 J
      ]! F/ ^$ ~' I! H% v% i' t' r
    Cell[CellGroupData[{" g2 A. w/ i. E, n5 p4 M
    2 K" P. i4 w) C3 o/ c, s
    Cell[BoxData[{
    0 {, d- V: v4 n: T. i5 U. D RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
    " _* O# P/ O: ?" }6 q) m# j! r RowBox[{"u13", "=", 4 H: B$ @+ Z7 t8 S9 [
      RowBox[{- G8 u" u. }5 L) m& t& F& a* y
       RowBox[{"Exp", "[",
    1 h# \+ H/ M) `/ t    RowBox[{
    ! f, |) d' j$ H& @+ f/ I     RowBox[{1 T9 B0 C3 ]6 |2 ^
          RowBox[{"-", 8 A. L* ?, x1 P9 v
           RowBox[{
    6 C4 g1 N' S/ W/ [( p, _        RowBox[{"(", 0 M$ r0 [$ ]  E' M
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
      @3 `- G1 t* ~% C  @: B0 f        RowBox[{"(",
    5 G, k1 @5 S0 \( X6 k# r. j  J         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    % Z7 P; i0 `- L9 @     "]"}], "/.", "DeltaX"}]}]}], "Input",
    7 `5 z8 a: W. Y! _. }) e( ` CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {2 C6 r: r1 s- A+ H" ]
      3.57796154237158*^9, 3.5779615599684105`*^9}}],  `0 B/ j* B! l/ ?
    * H  O9 u2 a5 C, ~6 n2 O8 J
    Cell[BoxData[
    9 k* {# W- i8 ^4 ]% J1 o RowBox[{"{",
    2 k9 R) R# ]1 Q2 \  RowBox[{1 P& W( O9 d" a+ u3 T/ }% S, D& D
      "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
    5 h. `9 Q! G- {7 N$ V" C2 N: Y/ i; Q   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
    9 q6 g$ r& f% o0 J: A0 M$ W  "}"}]], "Output",' @5 y: N# X1 ^" w9 X
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],$ U2 j3 _) E1 V

    3 s5 v2 J1 f  Y2 O3 F0 SCell[BoxData[  c+ Y1 f; a6 _# q1 r9 o
    SuperscriptBox["\[ExponentialE]",
    . \9 s4 T7 {1 ]9 v, s6 K4 `  RowBox[{"3.141592653589793`", " ",
    - N; s/ j+ v$ |2 @5 X& F   RowBox[{"(",
    $ Z" e4 \7 N$ I. c    RowBox[{
    - F: ~5 D$ z6 W) r$ S6 b+ S0 Z6 t     RowBox[{"-", ! \9 @* T4 j7 A. f5 o0 o/ O) D, r
          SuperscriptBox[( F& I* B- l0 k3 Q8 g3 n2 r
           RowBox[{"(", / x) q0 O6 U% ~0 B
            RowBox[{
    / i: B% n& ~: x/ S9 a0 \: g8 G( G8 h         RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    * |# S$ q3 J9 ~& q     SuperscriptBox[
    2 J0 F- Z2 A' y5 e! G      RowBox[{"(", 0 B5 v8 _8 g9 r: y8 Y. |3 F7 p
           RowBox[{% Y6 {( y6 q+ c5 B% H+ f) W
            RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
    1 W0 z* X1 F' y( x  t/ z     SuperscriptBox[
    ' ^3 r% o' e! D7 W; F# U      RowBox[{"(", 5 w' L8 f$ S- x
           RowBox[{% E( j/ n. Y, e* s8 i) g
            RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", ( s+ m; z6 t; k: M2 {0 i8 z
         SuperscriptBox[
    : w: A* u6 R- |5 L, t      RowBox[{"(",
    . }% P2 }! L8 {$ _       RowBox[{
    - p8 b  r1 i* T        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", 7 U' J! K; P6 D, d1 l$ H! J. K1 X
         SuperscriptBox[
    7 w$ s1 `4 u* `2 E9 }      RowBox[{"(", ; \: R4 I' M5 F! E  n8 C9 t! ?
           RowBox[{& f  }1 H/ g' R3 j
            RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", + W4 e' D4 b- u$ C1 o
         SuperscriptBox[
    + e) S" {+ }% w5 R      RowBox[{"(",
    ) U7 t' v4 O+ M       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    7 ]0 u; e- ^$ g# w     SuperscriptBox[
    ! P+ c& M% K9 c8 k" k- R      RowBox[{"(",
    + R% ~6 s) W- h       RowBox[{
    ) f9 W! b: n( ~/ s0 N) v" R* Q! n        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", # R3 V% z, b" O: E2 g6 S
         SuperscriptBox[
    5 I3 w2 e# L) P) Y# i      RowBox[{"(", & [3 E: H' I+ d1 V5 ^- R+ J# Y. a: f
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    . z+ T; Z' F, i7 h! C     SuperscriptBox[$ a8 H0 l6 L7 C: n
          RowBox[{"(",
    8 T2 E0 `; M2 U% c3 j4 L7 M       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    9 h5 t  D/ ]5 j. |8 N9 o! @8 O    ")"}]}]]], "Output",; G# ^. o& o1 J; r
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}], ^3 k: G. l0 u6 j& `, ^) W
    }, Open  ]],# W9 j1 s9 t' i/ l* N% ~- T  n

    1 L9 L+ g( C. D. A/ I& i7 oCell[CellGroupData[{# Z+ A4 H, Y: [% j) m( z
    0 V7 ], f9 d* Y: ?; L- e
    Cell[BoxData[{
    ! v# e+ b# E# j5 }) R" b" r RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
    # |; P; S" P) L6 |* C/ k RowBox[{"u14", "=",
    + s1 [8 D; x% @  RowBox[{
    / C6 z2 P  y; X' Y- ~# ~8 D+ f0 E2 H   RowBox[{"Exp", "[",
    ( F( W: V! z) m6 ]% k$ P    RowBox[{/ {$ [3 e! O: L
         RowBox[{5 R5 @* P7 k0 L! \6 Q% e
          RowBox[{"-", 7 ?! H1 i3 E( i& t5 Q/ W5 ~
           RowBox[{) G" I- q0 e, i0 S5 u5 S
            RowBox[{"(", , J/ O/ k9 @5 o  g' w
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 4 ^, T) t9 o5 ]
            RowBox[{"(",
    " k8 d+ l5 ]2 b         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    . E7 V+ |/ V( G4 |3 p: \     "]"}], "/.", "DeltaX"}]}]}], "Input",; l3 H6 F1 t1 a) f1 S# ?
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    3 @3 u. Z, ^4 T& }8 l  3.57796154237158*^9, 3.5779615663176217`*^9}}],8 w4 s# P7 N$ j7 h2 g
    ; D1 U% O% }6 o* I: Y
    Cell[BoxData[
    & ~4 ?, X1 K) n  ?5 M! u" g RowBox[{"{",
    1 N6 T8 A8 Y- r5 C3 F2 P1 ^' }  RowBox[{
    9 t" {0 x1 k/ V: }5 F/ b) F  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
    # T3 Y# u" z0 `( j# F5 u* E   "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], & Z1 u! B* ?) w5 k: o$ b& H
      "}"}]], "Output",/ E3 a( h# D4 n7 d- {; h/ Y
    CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],3 ]" A: D: r% R, J2 t+ F* B

    & J6 K6 ]5 J  D" N+ lCell[BoxData[
    % S) H7 F1 A& H& b* C+ {0 Y SuperscriptBox["\[ExponentialE]", ! W' L: z. n$ p6 s/ v& K* f; i' m
      RowBox[{"3.141592653589793`", " ", ' e+ o  z* E9 P5 |
       RowBox[{"(",
    * u% g' n1 [; y- p    RowBox[{
    , \7 Z3 Q/ n0 }: A$ d8 n  \4 h- j     RowBox[{"-",
    . H8 @( O5 c" l7 c; O! ~. V# J! Q      SuperscriptBox[
    * @# x9 e- G2 Z- B2 J! D0 i       RowBox[{"(", & w! J: s5 x9 p
            RowBox[{$ o7 `3 Q( m6 _: C% _* }0 R
             RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-", 1 }6 G3 J# Z; Q  I% t% }
         SuperscriptBox[" f. l# e) b/ i
          RowBox[{"(", 8 v" N5 Q4 C! I' C
           RowBox[{8 K  @* c  i9 Q$ C- G
            RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
    1 n! ^: ]0 w8 {     SuperscriptBox[; x% T2 v( j( v5 A$ f* y
          RowBox[{"(",
    & A0 z% {. S9 X$ Z6 a- f5 Q       RowBox[{
    # L! `- [' M9 N        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", ( q' j. W) ]# \" S  S/ B' m) I
         SuperscriptBox[1 _/ \+ n# V& k7 w2 _6 y9 [; _
          RowBox[{"(", ' w: T7 S% V8 j
           RowBox[{% X2 x: z. u: @* x
            RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
    9 e: t9 l% H9 S8 \- p- Z     SuperscriptBox[( v$ y( k4 q5 x$ Z2 r
          RowBox[{"(", 1 C$ e) g3 I% K* b/ t, n$ g! u1 y
           RowBox[{
    - F( \8 U. D; t% }        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
    & w) M; W# n0 n( |/ O     SuperscriptBox[
    ; y4 k* G. Y# G5 m8 B      RowBox[{"(",
    . k+ ~  I6 a4 ~       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", # J  x& |8 ?( @: v9 G' [* }2 C/ m$ I9 S
         SuperscriptBox[3 d) n$ C, M# R. l) z% S5 W
          RowBox[{"(", - E. f2 E) d9 a3 ~% k+ N. j. v
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    + v5 U: r' M8 A3 z+ a     SuperscriptBox[" P( G& j7 v' h* X% x6 e; Z) K1 |
          RowBox[{"(", & ]9 `) H% `1 s& L/ b* T
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 1 [8 O0 a" }; [
         SuperscriptBox[
    / y. M1 u" E6 x1 f      RowBox[{"(",
    , P) @4 ^1 ^3 c" M! x, F& Q- y- b       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 5 X* w$ G2 A# ]& I3 ?, H
        ")"}]}]]], "Output",
    " G6 ~/ x6 [% |) |4 r CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    7 o( u! s3 `/ E! n9 y. {9 F}, Open  ]],: ~8 m) a9 c: d" d( l# T! [1 J
    0 w5 z9 k1 O  K
    Cell[CellGroupData[{& s" {+ n* R# G- F- z
    6 n; S7 H9 G; m/ Y) C2 x  N/ O
    Cell[BoxData[{
    , J4 A; G- u; @% `1 I RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]", 0 I8 @5 U0 ~, f# c6 I" u, s) R  S
    RowBox[{"u15", "=", ! u/ N4 v% E2 |  C& F3 Z
      RowBox[{
    % P( e: P" w% o& a  p3 I   RowBox[{"Exp", "[", 5 j# `' S9 g6 ^2 \' V$ T. |. u5 @
        RowBox[{) G- e, R, Y3 h7 U; r( M
         RowBox[{
    2 Q9 C8 p  K& f' Y& l: P      RowBox[{"-",
    ' |' ~8 Q2 u% W: k3 d; [- _5 X       RowBox[{# i, c/ [7 {0 P1 K- ~2 ]9 L
            RowBox[{"(",
    $ J* q/ g; z7 i/ C$ x         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    4 p4 @5 x  D/ }0 P7 U        RowBox[{"(",
    - M! t5 ]3 p' v  Z, G+ j         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],2 U/ `, G* y( ^; X5 O
         "]"}], "/.", "DeltaX"}]}]}], "Input",5 p3 Q6 P. S4 Z2 v' j
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ! N" v) @" a( T! G( A4 N  3.57796154237158*^9, 3.57796157098203*^9}}],  E# z& p/ _$ e( X. A/ B4 B

    3 y7 R5 r' F; ^' ~3 sCell[BoxData[
    ( ?' O/ S6 z/ z5 F5 O" G  { RowBox[{"{", + M- ]5 O, L7 Y8 ^
      RowBox[{( C! g5 K# g, n8 e. @# ?0 g
      "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", 3 q  U: b, T. P+ Y  e* j
       "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}], & U6 n" h- [  A" L  U
      "}"}]], "Output",
    9 R4 V" d2 t4 i0 y CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],& M3 [$ c% F, S, J+ O  f  q

    $ [7 H$ c8 D3 _* j" S% MCell[BoxData[1 D& M" Y6 G0 a1 S' S$ b: f4 @! t% O6 o- e
    SuperscriptBox["\[ExponentialE]",
    8 Y' c# p) c/ _6 i  RowBox[{"3.141592653589793`", " ",
    3 W4 w' O; l# J   RowBox[{"(",
    : l' i  V/ ?! T' V    RowBox[{- t/ g& `) g( b8 [' W3 \
         RowBox[{"-", 1 w6 x1 q, L4 q
          SuperscriptBox[  }3 s" Z, |8 a: h% Z7 v5 H9 M
           RowBox[{"(",
    3 o( d: S; G$ L        RowBox[{/ |. G- y5 M% r  b+ x! C3 y: b
             RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 O/ U" _0 J/ ^
         SuperscriptBox[
    0 H$ l+ F% F  j% G% [$ ^" t      RowBox[{"(", & d3 `# L, {# V1 Y2 v, V% X& `
           RowBox[{3 j. n, T$ f) C+ n# M" J
            RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
    , C. L" D8 {) K; X% E     SuperscriptBox[2 e9 l* S9 f  S( ~2 U
          RowBox[{"(", 7 f+ E- W7 F* p" R) ]
           RowBox[{. |4 M- v5 \$ G
            RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
    % O$ ]. ~/ _! E' A* r     SuperscriptBox[
    # l' T! q$ m, y, g# K      RowBox[{"(", & h# U4 S+ @7 V
           RowBox[{
    ' a/ J" k- z0 c" O! ~% h7 |( ?        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", , y& ]7 Z8 t& ~4 ^
         SuperscriptBox[6 ^+ t( g3 {7 m1 Z+ ~, e; Z
          RowBox[{"(",
    7 P7 @! g. p' W5 D. z/ Z' c7 b  L       RowBox[{
    , C1 O0 {9 w0 b) E& [7 v        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    ' G0 ?7 `8 s! h3 u7 ~2 I. {     SuperscriptBox[
    & l+ x8 M5 O# Z' F( N      RowBox[{"(",
      \9 W% z& R) |* u4 N  i       RowBox[{
    ) g7 z' l" n, u* O/ M4 ^        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    ! ^: K3 A( r& l$ q# X) X( j     SuperscriptBox[" X  m5 l+ Y1 o) _& ]$ t4 P" b- @; o# t
          RowBox[{"(",
    0 \2 e, I' [7 I6 w       RowBox[{
    3 l- ]! @: a. T. j3 O* d: v        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    " f" @! S/ ^( Z7 y     SuperscriptBox[
    - M* L" }( H; I+ G( d/ U5 `+ ~0 l4 L( I      RowBox[{"(", $ X# I" m, K5 w# Q7 o( t
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    % R" w* ~$ a4 z( Q     SuperscriptBox[" C; c2 R2 @& I5 {, [
          RowBox[{"(", 2 }. U0 s8 T! F# G2 `3 H' ]/ Q: ^8 ^
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 2 Y) _9 k- T+ A+ a# w/ V
        ")"}]}]]], "Output",
    9 u: N( z, f7 _ CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]4 a. W8 }& ?, E9 J, ~7 V% t
    }, Open  ]],
      t. X: T/ c; x
    $ A% t) d6 |+ M; uCell[BoxData[( m. m" I. J% x+ N
    RowBox[{"For", "[", 3 P3 {# {: x  l( y
      RowBox[{- H7 N1 P- H7 h+ o" C
       RowBox[{"i", "=", "1"}], ",", % F) q( v. @8 m7 y6 `! b4 O! @9 V) t
       RowBox[{"i", "\[LessEqual]", "9"}], ",", 1 w7 j4 R4 y" o
       RowBox[{"i", "++"}], ",",
    * h' `3 _& I. n2 e   RowBox[{
    1 z. S5 q% p+ g9 t6 Y( X2 ~! g    RowBox[{"Ca", "[",
      J4 j+ ]) |  H  q2 W     RowBox[{"[", "i", "]"}], "]"}], "=", 1 z* @, F5 E. r! G: I
        RowBox[{"CM", "[",
    & v3 s9 `5 M7 p; [  q9 j. f     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    % n7 j; S6 [, ]9 a% N% J# _ CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],5 O/ f) H9 Z3 r+ B0 y# P

    , t8 z9 F: ^# @. NCell[CellGroupData[{- K0 h5 Z9 b/ o7 c. W

    2 P/ i4 k2 N/ eCell[BoxData[{2 g5 Z! _# J& W* s3 ]' c
    RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
    + g( m: i( _/ o$ f1 G RowBox[{"u16", "=",
    % q0 r7 a8 E; K/ ~+ h7 }7 Y! \- ?  RowBox[{% ]% q& b7 a- }# N) o  |' \7 p2 c" L
       RowBox[{"Exp", "[", 1 i; g5 r8 C' Y! }! n3 [; T
        RowBox[{
    9 M& ?0 r8 d, b7 F6 y6 @     RowBox[{9 n) F! Z* G7 g( S
          RowBox[{"-", % S* y5 A6 [1 U
           RowBox[{2 E, u& H( ]3 H- |. f  X
            RowBox[{"(",
    6 m1 L7 [- z7 {& P0 A# ~/ p         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    2 O& J+ _2 D8 b: `+ E9 c        RowBox[{"(", 0 k+ N& W! N& c, r5 q( j
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],# T, V; N# P) `6 i
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    $ n2 ^) i& e, p* t1 q% e+ U& @ CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    " C. S' M9 g$ U9 Y' M! b  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9, " I5 `1 \) \2 y
      3.5779615751004367`*^9}}],& f+ }. P- N* D$ Q! k7 a3 f
    ( u: B2 k/ m) P: }) R
    Cell[BoxData[1 K9 ^0 X1 u0 ]. U9 f
    RowBox[{"{",
    / q6 f2 I' U; ^# m; Z  RowBox[{  S* M; Y. C2 P
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
    ( w3 W- O& }& I' c# e, U. S   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],   f. g$ }( ?6 n; S
      "}"}]], "Output",
    * \' @* w- I- R/ w  P CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],$ T! j% ?* e) M
    - v; I3 e* p. E7 L9 v6 {9 ]% |5 a
    Cell[BoxData[
    0 Y$ I0 M2 J/ {7 t& r& \! J SuperscriptBox["\[ExponentialE]", 7 e/ y; |( i, q1 n7 u( r' n
      RowBox[{"3.141592653589793`", " ",
      q. t" ~1 o) _! N. t7 G   RowBox[{"(",
    4 m! X3 [( X( V) a    RowBox[{
    ! J2 O; i5 }4 }" w8 r" k1 L9 ~  z     RowBox[{"-",
      J8 _9 V( e7 {5 B2 [1 n  \! T      SuperscriptBox[- b/ q( n; d  E; R6 x  B
           RowBox[{"(", " x& q3 N5 F( }9 r
            RowBox[{
    * |/ I" k+ T1 Q0 v         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ( h9 Q" |6 u) m$ k  U. [     SuperscriptBox[: S2 [2 n: ?: r
          RowBox[{"(",
    $ f& ^/ x) x6 @! o5 c       RowBox[{. G) X: [! z; R) Y! n
            RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
    - Z2 O8 c* y7 s. ]     SuperscriptBox[* r* o4 B& @! Y) X& e
          RowBox[{"(", # S7 U- l* _0 u
           RowBox[{
    : j# j) q2 {& {- g0 M1 A        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", / z0 b9 k* e* a# B7 _
         SuperscriptBox[
    . o3 h& n2 e- @      RowBox[{"(",
    3 g& X% f" K( P/ [9 J3 r) F1 Y       RowBox[{
    : v, W! t: I( z( X8 z6 }        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", 0 K# P- t  g; {) B6 y4 \6 J
         SuperscriptBox[5 S  A" t& z+ x; P+ l" ^
          RowBox[{"(",
    # }1 d0 B: H1 q/ t8 f8 X$ ]7 L$ V3 t/ E       RowBox[{! V, M, U7 w7 q' t$ r- R( z
            RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", / p/ ~: l" j* }& C
         SuperscriptBox[; k7 P1 q6 R* M* D2 J5 ~; d# {
          RowBox[{"(", 7 Y9 R, l  t+ f9 x3 A+ n
           RowBox[{
    ) ~" ]$ A; u; D$ j: d* u- v  L        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
    6 X! G5 q2 M" u, _& J     SuperscriptBox[4 S6 N8 T, T; F
          RowBox[{"(",
    2 M6 g. }! K: z# v6 J8 u3 @' G       RowBox[{+ H; l" s; A+ b: t5 `) ?; s( J7 ^/ D
            RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    2 Z2 Q; v+ ]: ?: ]$ u, ~2 H     SuperscriptBox[
    ) |2 R3 J, N8 c" u0 L      RowBox[{"(",   V" S4 H& b  O5 ]7 ^! o2 B; M
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", " V! j7 _/ f* J8 f! ~5 Y
         SuperscriptBox[# G8 @4 C7 Z3 J+ t& M$ @% {$ O
          RowBox[{"(",
    3 d# V7 n4 w8 G9 r! ~$ t* v       RowBox[{* q' ~# K( K' b; t
            RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
    9 Q# o8 O7 q8 w- ^ CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]* ~  U1 ]% ?+ O4 P. P: ~4 I
    }, Open  ]],
    4 @4 }3 n/ ]  r$ `5 r! ~" R5 _( u- E5 |. N2 O* ^
    Cell[CellGroupData[{' R3 p. p( z8 S$ s
    * S3 Z% D0 P8 \# i+ i& _- J
    Cell[BoxData[{
    # J4 }, ~3 q# K RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", 6 ]# {1 K% ^# n5 L
    RowBox[{"u17", "=",
    1 w7 y- R$ A: Y5 h: o! [- n* R  RowBox[{- A" I+ M7 m# z. b' g
       RowBox[{"Exp", "[",
    7 {  W9 s" E8 e0 }3 O    RowBox[{4 [! i1 r+ k  m4 ~/ h( [
         RowBox[{" V  F, ^2 E" K" i  n: s
          RowBox[{"-",
    - D. G. v2 ^* o       RowBox[{
    $ I( t8 `% r' I' f5 S7 q        RowBox[{"(", 5 Z# _5 ]/ j1 ^" p
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    # H: ?4 d( }- _' P        RowBox[{"(",
      m4 ]3 M2 V* V( M! L# s/ @         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],; v0 A5 R; f( u; E# b3 S
         "]"}], "/.", "DeltaX"}]}]}], "Input",: c6 H# d! Z2 U) g5 w& m5 ^
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {0 U+ m* C0 A$ z6 P1 Q- V( W. Q% U
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
    # F8 d" z0 l- |4 a+ F; A  3.577961578953644*^9}}],3 X3 }5 B& @) x, V2 N* t) K9 Q& c7 ^
    ( j3 m  y: m2 d, t* ^' T  G% Z
    Cell[BoxData[: M3 t' n5 ]  i$ |. Y8 k3 J
    RowBox[{"{", : s0 J& M+ y% I1 W4 w. c
      RowBox[{
    ! j) H0 c  b$ j1 e5 N5 p  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
    ' a# q- E9 \! f7 g' |; B- A+ L$ H   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
    / s7 m  ]" a2 K0 i7 O3 @  "}"}]], "Output",: Z5 J6 A' o6 l* x
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
    + e% n: G) c* H" j2 t4 i: n1 d6 }0 q3 O" R% C8 g2 j( F
    Cell[BoxData[
    0 |; _+ I3 t1 H. v2 I$ B SuperscriptBox["\[ExponentialE]",
    - K# E! O* X% k" n% ]3 w0 E' T  RowBox[{"3.141592653589793`", " ", : K3 g9 c7 p3 M& f8 @  l) x# s
       RowBox[{"(", * z+ R: k4 @0 T$ t
        RowBox[{% c1 }& a0 Z1 b4 b
         RowBox[{"-",
    2 O* k& X2 I2 O7 I8 _" N      SuperscriptBox[4 D& U; y4 i+ E& [& @
           RowBox[{"(", * M: Y  [+ T2 O5 F
            RowBox[{
    + m" n! c) {2 ]( e0 ?- c( y& l         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", ( `9 z- i6 H; c: ^  B( S
         SuperscriptBox[
    % S( n# X4 t4 _1 m7 e  m+ L/ V      RowBox[{"(", 2 W+ d2 i" i# i8 q1 A- N
           RowBox[{
    ; X0 n+ {* m8 W6 y$ t+ Z        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", # A& `# F+ k% f3 L( v
         SuperscriptBox[
    # [; v7 f: B1 \      RowBox[{"(", - E! V* M6 h4 E
           RowBox[{/ D# X* A% w' x# B1 E" ^' g
            RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
      G  I- h: V0 ]  m     SuperscriptBox[7 B! K- @  d$ q! s  u3 i& [
          RowBox[{"(", 8 [9 ]- {0 j. G2 S* B
           RowBox[{* ^8 h+ [' ]% m- Z, X/ [
            RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", - Q$ N. }" e: f5 h
         SuperscriptBox[
    " z2 x, H0 }3 R8 g% h      RowBox[{"(", ) I; E% m! F) @- p3 f% O7 ?
           RowBox[{2 j1 P$ }3 c9 c4 u! m; u9 u
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    ( a7 G" C2 G* I     SuperscriptBox[
    / o9 P- F* ?. |/ L5 ]9 K      RowBox[{"(",
    " P& v8 B* n  N0 O, E       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ( c! [- k+ y% r8 X6 ~# Z0 ]9 q4 [, C     SuperscriptBox[% y) h( p$ H1 C+ Z3 z; W5 O' O: Y( m
          RowBox[{"(", + T, [% K  O* z' u3 S' q/ S
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    7 k3 I. j: Z9 _; ^     SuperscriptBox[
    5 L& y( N( R2 r9 t& {- R) e3 k      RowBox[{"(", & @+ ]! y, I" }$ r% X
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ! k& g/ g. E4 j! b     SuperscriptBox[2 ]6 p6 q; u1 D! }& B
          RowBox[{"(",
    ' L" ?/ q& ~' T: [$ S* U* \( t       RowBox[{
    : e" X; b$ y1 ~4 ~! f; S+ f        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], " e* _6 J" O/ f) z' ]4 [
        ")"}]}]]], "Output",
    , |0 s! ^  [' X( r' A CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
    6 z9 u; n, n: l}, Open  ]],+ C5 S& k2 v+ }) z/ R

    - x! O1 R$ Y+ W+ Y5 L1 |Cell[CellGroupData[{) v. b8 V) h; I0 a* h+ M

    3 C8 N4 w- s3 V1 G1 tCell[BoxData[{
    + [; S3 E0 g# I8 {) j1 F. Z, y RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",
    . X- I; k3 y! A; z$ C& O RowBox[{"u18", "=", $ }' g2 b) v! v# `, }
      RowBox[{( a) {5 l  m/ C0 a# ~
       RowBox[{"Exp", "[", " ~0 g+ ~2 S; d5 b' D' Q! d# A! S8 Q. C
        RowBox[{
    + P  Y3 V8 @- s5 s# D  i& w' B/ m     RowBox[{3 T  t+ A% Z% X% a
          RowBox[{"-", % L: P# u7 ?6 h5 h, ]: \2 B
           RowBox[{0 O. E- {+ L; ]6 h" g9 r9 D
            RowBox[{"(",
    ) f* h4 W$ P: N5 A/ v: g         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    $ Y+ P5 N" d8 G4 J# O5 n        RowBox[{"(",
    * m: ~: r+ }5 j- |$ v( i' H         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],1 q% a4 \; c4 e6 q
         "]"}], "/.", "DeltaX"}]}]}], "Input",) |# G& N1 x$ V: z6 j/ @
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    - i2 U% \/ R2 F8 X3 P7 A  V% w  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9, * |) a8 i) k  {% {9 K% M2 F
      3.5779615828848505`*^9}}],# k9 b" r9 T7 j) G$ [8 d, `: ]* W( b) m
    8 a0 {8 ?4 d4 h9 \" L
    Cell[BoxData[# G5 {3 ], j% L3 C
    RowBox[{"{",
    ! \/ B, f, ?- O( B5 a8 R' k  RowBox[{& ?2 p) ~, x5 f  G
      "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", 2 M8 l* `$ u& P: Q0 P) b- f
       "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],   p. m$ O; Q7 I: ^2 z) c
      "}"}]], "Output",
    6 ]9 }. e8 @! U, n3 z7 i; F CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],9 u" f, z' X7 `8 K( J! D
    , @% g* u% l" I' \
    Cell[BoxData[5 e$ _0 |' R# t0 ^$ ~' o
    SuperscriptBox["\[ExponentialE]", 0 f. j; s6 L$ g+ Q* T2 P7 y
      RowBox[{"3.141592653589793`", " ",
    " q# t' D' }+ q( b, p4 D   RowBox[{"(", 3 k0 p  V0 f0 u* i, H3 {
        RowBox[{) Z; {, z( w3 X6 z! F
         RowBox[{"-", / L; b$ d! ~5 ~6 I4 n/ r5 g7 q
          SuperscriptBox[
    " R$ x# P" S) R# R4 R, p- j# {       RowBox[{"(",
    " k" W7 ~, \3 Z: n9 E' C        RowBox[{: Z' m# O! G( Q( ^! @% ^
             RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", ( s" Y- S5 h9 i
         SuperscriptBox[  A* x( r. H- Z2 t) x. ~
          RowBox[{"(", # v) u# c+ M! T. p* {4 b5 |
           RowBox[{
    & \3 B% _- _) g  H8 ]5 p        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", 5 H% }6 h& W7 @2 g5 b# Q9 g3 ]
         SuperscriptBox[/ O5 M; f! [& q' e& X
          RowBox[{"(", 9 M$ \$ a4 I8 K; h' `8 S- c
           RowBox[{/ o4 W1 q% e, j7 [
            RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    2 U9 N4 A+ U( k2 r# m- f     SuperscriptBox[
    # N2 F8 \/ g% N      RowBox[{"(", 8 v: R; c8 h0 N7 o) m
           RowBox[{
    1 `- |" E5 S! j) ~& _        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", 6 t1 e! K- q( p5 C
         SuperscriptBox[; q% f. e% S  c# Z9 V* J
          RowBox[{"(", 4 n  b) ^0 I3 U
           RowBox[{
    " v' f4 e; L' ]: X5 A7 _        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",   V& I; }4 }9 K
         SuperscriptBox[; J0 W/ T: F0 ^1 V5 M: n' r
          RowBox[{"(",
    % `4 }" z  k1 W) q! O7 ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ( W* A/ P+ C* C2 q     SuperscriptBox[
    . ~- i5 `8 h2 o7 d      RowBox[{"(",
    * h: X7 b% W7 \6 W/ H       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    4 H% I$ ^0 L9 m6 n) f     SuperscriptBox[& _1 s, @3 f2 `) t
          RowBox[{"(", : O$ y6 Y" o' i, ^" g. n
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! F, F# P* `( Z. Q# \$ }4 }
         SuperscriptBox[
    4 M1 Z6 Y) d% V" z* r" l* M" l      RowBox[{"(",
    % `5 a" r, w4 e* j* P& ^       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    , C4 ^/ ], H/ T3 T4 l    ")"}]}]]], "Output",
    ; Z' c: Z8 p0 b, H- x( c) y CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]( [) ~5 C# u+ A  ?2 F1 N; P0 a
    }, Open  ]],
    ) ~$ E- o# l7 R: C. M& P( s3 w, |2 M; P* [, [8 ~  d3 {
    Cell[CellGroupData[{4 v$ ?' i( L* q4 j* S8 y! \, f' h

    & t! |  f7 |' s. T: A7 SCell[BoxData[{
    ' o! J% J) |9 u RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
    7 @0 X: F: y  D% o0 N4 \ RowBox[{"u19", "=", % F( C  U0 @! j) @9 s) P- e
      RowBox[{
    2 B0 p4 A0 G: k4 q   RowBox[{"Exp", "[", ! H2 W0 m$ f! R' t( p
        RowBox[{' y- x* z9 Y) E1 i
         RowBox[{
    5 Z  v1 S! P$ _( F8 [* z      RowBox[{"-",
    ( z% f/ }, m' ^9 T       RowBox[{
      E; T3 L; G* O$ b* q/ Q4 g+ Q/ V2 F        RowBox[{"(",
    6 W; f+ ^) t# A         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 4 c/ W5 T8 b( d6 }
            RowBox[{"(", & i; C/ |9 [, G/ P4 E
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],0 T& K7 U$ h" A7 R, o
         "]"}], "/.", "DeltaX"}]}]}], "Input",, b& L( W5 G  P& @- s) V- G0 O+ Y
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {% R$ [5 R- v8 [/ h
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, , B5 v7 b/ c7 |2 b
      3.577961588890861*^9}}],- U$ |/ f3 I& X  Q* t

    ' R7 P# l' i) ~3 FCell[BoxData[; r0 l9 J8 ]( f# C) s+ q
    RowBox[{"{", & G/ i  n# `% v) e# \# f
      RowBox[{1 O) \- b6 n/ ~# W  F3 O
      "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", 4 K! ~- \6 K2 Z$ E% n
       "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
    % X8 L( m( Y) c9 y2 W" l  "}"}]], "Output",1 g: c: }4 F% P0 p, }0 ^
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
    9 H  u; p- M& S0 j! w& U+ j9 r/ N% N7 D8 C7 Z
    Cell[BoxData[5 ~+ `- G9 v* k3 F2 U
    SuperscriptBox["\[ExponentialE]", ! ]2 Z3 a( N+ o( Y+ |
      RowBox[{"3.141592653589793`", " ", / C3 N1 f7 f: z% u/ [  F3 |' l, D
       RowBox[{"(",   p, E6 A8 ~" q) Z+ I6 I6 ^
        RowBox[{* I. \1 J+ Q8 [" A, S2 g
         RowBox[{"-",
    + Z5 n  A5 h  Q: E7 u( |2 F( a      SuperscriptBox[
    % D( |9 ^7 q# ]# G* |       RowBox[{"(",
    : \: V& m/ L9 F) j" A        RowBox[{
    7 s+ w9 @; L  r) n5 \/ a6 R         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", $ A& ?% R. O; h
         SuperscriptBox[
    % G0 }0 T" y& ~: E6 P$ ?" @      RowBox[{"(", ; O$ T& C# s% p, x# J
           RowBox[{
    + B4 V" n+ j5 c3 K+ V; V3 t        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
    ( ^1 Z5 d2 ~0 f7 b     SuperscriptBox[
    1 F* ]6 c: O3 A7 t      RowBox[{"(",
      K9 a( z# \. I6 m       RowBox[{) H8 \% d( h' ]* y# }1 `
            RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
    ; j& R/ `1 {& B     SuperscriptBox[. k; f0 Q9 b$ S& G) Z
          RowBox[{"(", 1 J5 }" w) y/ l: ?" T' o( i
           RowBox[{
    ' c- J% T! u2 O, q5 ]        RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", $ k7 C1 K. @8 `: Q6 w+ X, v" \
         SuperscriptBox[
    - c4 @$ _4 I  @9 b% O  d: u5 w      RowBox[{"(", $ P* m/ k. t& T) C" j- R- J
           RowBox[{4 S! i7 i" ^' ]; L" J: z
            RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",   Y% ^$ a/ B0 g2 I
         SuperscriptBox[
    * P' ?7 |& u; ^# a& ]      RowBox[{"(",
    3 _0 N2 t2 v+ b. S  S  }# K       RowBox[{9 r; C1 M; z) r: M) L; q
            RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", - H7 G" b3 }! u% V* T) p8 S" U& W" y( a
         SuperscriptBox[
    % |: C/ {$ W' U8 z      RowBox[{"(",
    + D. i; f+ z1 t' y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    7 n4 @! s( r9 i) \+ g( N/ b     SuperscriptBox[
    5 ^  p# o/ F7 r' d9 P% Q+ ~  T      RowBox[{"(",
    $ H: s+ D4 t" G0 @8 L1 c8 g/ U       RowBox[{
    $ O0 h% Z$ O4 ~( G1 S  [        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", # }/ {5 j+ t* h! \2 S8 i
         SuperscriptBox[9 |+ e2 x0 a* L
          RowBox[{"(", ' d8 X  ^0 C4 t" \( v& U- f; o
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    % t7 c& G3 r% t' ?, S+ ?6 d0 D, G    ")"}]}]]], "Output",! `7 C) V) \1 Q9 e
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]& F9 m7 X2 {5 r& A4 _
    }, Open  ]],
    & {  s1 O: n5 d/ V" Z  i
    8 O3 P8 N- a# X. ]Cell[CellGroupData[{
    ; p% L3 h, W5 p( m. g; m* ]: `" ]+ _( r2 \: _% `8 s
    Cell[BoxData[{
    9 m9 ~8 w3 E5 O" V RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", 5 v# G! y' f8 R0 l
    RowBox[{"u20", "=",   d6 j0 J) \" A+ `
      RowBox[{- {0 ]9 u, S2 [! C
       RowBox[{"Exp", "[", * n( m% `2 A# S* ]. F' C8 T* T
        RowBox[{3 N2 j) F: M) y/ @' K1 @, k/ A3 f/ v
         RowBox[{7 [: E9 a# @: P. o
          RowBox[{"-", % Z& K. a% P# v2 y! l8 _
           RowBox[{
    + O/ p$ c  H8 U        RowBox[{"(",   r2 E8 X! V8 K4 f4 m9 S: [
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    7 y  _* I. m1 n! v; {# i        RowBox[{"(",
    2 O* c7 l8 r+ M9 L: S% e3 l         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],4 r/ x2 O) v; h- C
         "]"}], "/.", "DeltaX"}]}]}], "Input",! I1 ]' x* e# v/ c
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {" `6 I" N3 ]/ ^" \1 f
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
    . U* N1 p- H8 g, W# `  R% L/ ]3 @" z  3.57796159382047*^9}}],9 g' J$ W4 I$ c5 ?; I

    : I$ {( H2 `4 D: F+ d2 @Cell[BoxData[/ n- K; ?8 G+ u5 N1 l2 Q
    RowBox[{"{", ) o2 {) U9 N1 ~4 h: N
      RowBox[{
    , F( y/ T# I* @! D  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
    7 I7 v- T  X  w( w   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
    3 L; j! L9 l/ H* {1 ]  "}"}]], "Output",2 x+ X2 U$ i1 _8 ~9 ?2 f2 M
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
    4 r- R* ~1 s3 ?* q& i* L/ H, z& p5 H# u- h& H
    Cell[BoxData[
    0 h# W5 i1 i# N- J5 }' d SuperscriptBox["\[ExponentialE]",
      d7 J6 ^0 q9 e7 W  RowBox[{"3.141592653589793`", " ", ) e# k# ?& h% l; {( m
       RowBox[{"(", # [- }$ f6 a& _& j8 ?
        RowBox[{7 {& c' ^" S) G3 o0 I5 p1 E% s
         RowBox[{"-", 0 D& L8 t: h) r
          SuperscriptBox[
      q  {( \: l' i8 \( I: `( q4 g4 H' M: I       RowBox[{"(", " X+ _7 ~# U, ?4 F& U
            RowBox[{, H) D+ _8 [: X2 e" v+ |  d# p- z7 w$ w
             RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
    , F! z+ p2 k% J( e1 p     SuperscriptBox[
    : K1 n/ c* P6 ]) Q      RowBox[{"(",
    . a. @. C( R, i4 B8 }4 o4 S, n       RowBox[{/ v- {# |) ~6 T9 T9 J
            RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
    . h. p" |4 f( Z+ c5 D# a     SuperscriptBox[3 T3 G9 i1 {% N/ a
          RowBox[{"(",
    5 G; ?: Z; Y: z) d       RowBox[{; `" ?$ ^9 n4 C% W' w. j& ~/ z
            RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    ) V; Y$ ~# [* D- \+ X     SuperscriptBox[/ T' ~- D1 V/ V+ ~& l1 Q7 p) K
          RowBox[{"(", 7 ]1 X( e7 Y' ]; d) x
           RowBox[{3 q5 q+ l( Y0 [7 i: j
            RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
    + g+ s8 h  n( N5 P) @& c; q  }+ @9 b     SuperscriptBox[
    " A& G+ `! b' E& {$ F6 U      RowBox[{"(",
    % H4 p1 o# k8 O* E# i       RowBox[{
    : }5 x, g5 p+ v6 n5 P        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",   F! e1 h8 {" C% S
         SuperscriptBox[+ i* n: J2 ~. x0 `9 ?
          RowBox[{"(", % ?1 V6 G5 E2 H; ?
           RowBox[{% w& e  b9 q) H
            RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    2 g/ U' `1 e8 p+ L8 U# n     SuperscriptBox[
    ; v, _2 Y; G! Z/ ]+ Y      RowBox[{"(", * K/ ?- G7 F; O! W0 G: C
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 9 c6 V# |  n2 a8 G: P
         SuperscriptBox[
    : g! T) N: @, h7 D6 h      RowBox[{"(",
    9 j1 ]9 E8 q9 P( N! R       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ( K" X, ^! T# d# F" N& ?- v3 g8 T     SuperscriptBox[
    " }8 O, U/ m% Z) r$ l      RowBox[{"(", * O4 x  p1 ^! w  k0 ^/ L" ]
           RowBox[{
    * `( g. d) v% m1 V* G        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], 8 p, O) F# g3 ^8 B' j" h( K
        ")"}]}]]], "Output",
    9 v% a+ T- Q& ^3 f2 W' H: ^' ^ CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]% x6 r# \  J( E! F1 Z
    }, Open  ]],
    7 l6 g( z3 y( V3 u$ C/ b! x0 k/ z
    # v5 e$ w5 }; |. q, C/ o$ }8 CCell[CellGroupData[{8 ]! r  P7 W& i# i
    3 q& P" d; l; u7 z
    Cell[BoxData[{* X( u& _; [! I# @4 A9 L
    RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
    * _1 O$ \  o1 h RowBox[{"u21", "=",
    ) h5 s5 J" C/ Z8 C2 M4 y5 U6 G  RowBox[{  B+ b+ |. Y: v8 W* k- J+ j
       RowBox[{"Exp", "[",
    , C% @/ S+ \; p0 n, e    RowBox[{, e5 I0 E) R3 B
         RowBox[{
    $ h. x' \9 r/ [/ H; P8 w      RowBox[{"-", ! H6 Y0 S1 ~* b; `9 s# t# }
           RowBox[{9 r. }' b( b9 T( f; e7 ?" @- t( O
            RowBox[{"(",
    ' E- D1 K! j, f2 ^. P) b; `) Q         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", & L, z$ ~# G- `( F
            RowBox[{"(",
    # Z& u8 t7 }. q! d) Y7 b0 A6 O* c9 g9 W         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],/ h$ q# P1 P) w; _
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    ( U8 _4 W4 i. c! c( a/ C4 g CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {3 u5 x# P$ w: P' U  k
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
    & D/ I% h4 ~1 r2 c& Y  3.5779615991556787`*^9}}],
    4 T0 _0 w7 z$ U; E& s. I$ u: |" k# S  M; e4 ?
    Cell[BoxData[
    " o4 P1 w% w6 Y3 T5 v" Z RowBox[{"{", 2 H' W) ?+ q/ U! U
      RowBox[{4 K. P7 q6 K% m0 E$ Z6 p
      "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    % o6 n0 {" E5 \, f1 g   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
    9 L! a, G5 c  \$ V! c4 x  "}"}]], "Output",5 g3 V/ R* m$ q- |3 ]. q
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],2 ]* u; N" O3 O+ E  ^* }+ |
    # L; d4 I3 ]7 G. }% I+ t- w# A) {0 C
    Cell[BoxData[
    9 V3 c6 n# F! O; v" O) G2 E6 }1 } SuperscriptBox["\[ExponentialE]",
    7 E$ a9 i% R) W3 Z/ l  RowBox[{"3.141592653589793`", " ", ' m: W  V1 j  f9 V4 I
       RowBox[{"(", ; C+ E$ G$ ^8 r! Y3 h# z- l9 A
        RowBox[{
    1 t/ @1 v" H0 a: M     RowBox[{"-", / ?, B3 S# }2 U3 K; g4 }
          SuperscriptBox[0 {& z* Q- C2 \
           RowBox[{"(",
    6 r, r! z' p: z1 j        RowBox[{' c! \/ t7 w# X  t- [. x# v, d
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", / r' Y# S0 P; \0 x3 E
         SuperscriptBox[
    ; ]. d' k$ ]: a  r      RowBox[{"(", 9 ?$ j, Z. R; o- A# `9 B0 T2 B
           RowBox[{
    5 V' ~& Z) H( o: A" i2 c        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
    9 j9 a( E0 C3 H) w  d0 J" |6 Q$ F     SuperscriptBox[" n: ]# Q6 w% E9 |+ L, _1 R& {# w
          RowBox[{"(",
      H" [" h+ I! [. A       RowBox[{2 s) ?; u; R. F8 J0 a: }; J
            RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", & f+ n7 K3 a: e  D
         SuperscriptBox[& R' G! d+ x. [' ?
          RowBox[{"(",
    1 \! {2 O! f2 V0 y, a( L* A5 z/ i       RowBox[{+ h) I9 d& i- i9 T9 ^+ ?6 Y
            RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
    # f! R; o3 ~! j" s$ S4 s6 q     SuperscriptBox[: T  ?3 w, [5 o5 m
          RowBox[{"(",
    : p6 ~; ?- Y7 F8 y/ o, y' z       RowBox[{7 b% Z( d0 \4 l" K6 f0 x7 a7 Q: h0 R
            RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", 5 |! q* `5 n: r5 a& `
         SuperscriptBox[* n( R/ [9 _0 o$ v, X, Y2 p6 t+ I
          RowBox[{"(",
    $ H- e4 ?) C; \! X* E( z7 x       RowBox[{9 v+ ~! T' w$ K! V5 ~
            RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    . d0 V2 X6 q" x     SuperscriptBox[
    * R/ x0 p! Y  W( A0 h, K9 |# V      RowBox[{"(", + [& U: a+ Q9 F; V' E+ U4 d
           RowBox[{! I7 E, t5 |9 M% @; x
            RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", , V3 N: l1 G( `: d; @1 a/ b
         SuperscriptBox[
    0 x- T; j0 u/ U5 X# d      RowBox[{"(",
    * p  ^7 X5 Y" M. K; F! O% \5 b       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    " j/ ]) v7 w3 X7 e7 n1 k2 f4 U1 y     SuperscriptBox[% m9 u6 s- s/ G( h; I" ^
          RowBox[{"(",
    % p( {7 c9 K! @) U( J/ J       RowBox[{
    ; w' U" A8 N8 u8 V" o/ |        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
    6 X  n( ~& i" {0 Z, J) Z2 V    ")"}]}]]], "Output",
    / P3 }. O( f8 P. d CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]9 B! g9 o( [" |+ t, Z
    }, Open  ]],
    - `5 C; T& Y6 `8 t9 K2 s- @. m
    - K+ k: x: o% X) a1 xCell[BoxData["\:62df\:5408wi"], "Input"," i; _9 y5 d; N6 N
    CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
      {- {  N6 M- h" m- D# j) g# V2 B# C7 A, i
    Cell[CellGroupData[{( S1 {9 l0 M/ p

    $ i8 |, {; l6 J$ bCell[BoxData[3 b7 ?9 E' `' r
    RowBox[{"y1a", "=",
    ; e) \+ |! ?) P0 a  RowBox[{"Table", "[",
    9 C9 i& x8 X5 U# H; [/ B4 F   RowBox[{"x", ",", 5 Q9 L: r2 p. Z; i, E) H* i+ _' J
        RowBox[{"{", 3 Y& [7 A+ Q/ I' J) F
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    , e6 z: M8 o" C% N1 } CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    2 `$ o  c8 q( ?. t  [  3.5779226649375*^9, 3.5779226810625*^9}}],5 u7 A& J0 |2 g/ |* V

    - ]3 j( ]& x* I" tCell[BoxData[/ ]' ?/ e9 d0 R# ]& p0 t7 B, m
    RowBox[{"{",
    ' x2 Y9 i* `  M  RowBox[{
    + q. ?& R* V, I2 [& C  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    % @- N# p, D9 h& ]4 n   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    $ R$ g& G5 T$ y3 L    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    9 k) M5 T% j/ h+ b# X- b   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    + z6 I1 E  b" n1 o   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 0 }5 v2 Z% `: I; h& c
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 4 t1 f) ?4 K- h: P
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", 1 h, n9 \7 w% j8 i
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 2 N( e4 _8 |/ S( [2 o
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
    5 \. l/ w$ e! m) A; x- [  "}"}]], "Output",6 ~2 P' d+ O. q7 J1 E7 z
    CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
    ' `# N3 g$ [/ u% K  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
    # y$ ^! Z3 P! P$ E3 Z. `, }}, Open  ]],
    ! N+ n/ @$ U' c# A& c( E' u( |( J, q
    Cell[CellGroupData[{
    : `& E% L. k- x4 X8 ~1 k" h/ q% O# M' w  I3 c. t- Y& u- ~( M5 y
    Cell[BoxData[  D: }, f. e2 t" }
    RowBox[{"Data", "[", $ [( Y4 l" S: z% G! B) Y
      RowBox[{"[",
    ) K& z7 ?8 ]/ U! ~6 u1 k: x3 Y   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",/ [1 q  I& i- _5 V* y$ I, z4 O
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    3 n7 U' ^! T: M8 x, _. }   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
      g# l4 m/ ?1 Q/ |
    ( y  a3 D" F' ACell[BoxData["0.899882`"], "Output",$ D" x  }" n8 O/ W3 i
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    ( e+ m+ T. Z0 Z   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
    8 D- {5 A& _0 @2 R% [, w) R6 m   3.577961929080654*^9, 3.5780123419375*^9}]
    ; k7 q$ c5 S' s" `}, Open  ]],9 _3 `9 b6 f* c: P/ [3 T; n
    6 m/ q/ c& X+ N% Q
    Cell[BoxData[
    : P; }% r: @  |& P* f* v RowBox[{"For", "[",
    8 k& o9 C# f9 O: l. c  RowBox[{
    0 A/ p6 q0 k: v5 X! ~- L0 X9 {7 w   RowBox[{"i", "=", "1"}], ",",
    ' R6 `  d# F4 i( n) E5 V   RowBox[{"i", "\[LessEqual]", "60"}], ",",
    9 `2 T" Q) f5 v5 B- X) V4 E   RowBox[{"i", "++"}], ",",
    % h3 r' z4 Y! ]' ]6 F   RowBox[{
    4 S  q' Z4 U" ?6 V* j3 X    RowBox[{"y1a", "[",
    / V1 `3 @9 v8 l" h* r     RowBox[{"[", "i", "]"}], "]"}], "=", ! b& R8 r/ L$ d8 C( }
        RowBox[{"Data", "[", / ~9 D: a4 B( \3 L8 c: o
         RowBox[{"[", & J' n: D- H  V$ p. F4 I+ u2 }
          RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
    1 r# W& ?- Q0 g' g  V9 O- L: n1 s  S CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {/ e9 z6 w( s) D: j. J# h
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    ) k: q2 M; c/ ~  Z+ Z   3.577922923203125*^9}, 3.5779588839702806`*^9}]," l  w1 A1 Q( B# n1 p1 [/ }* V& @7 k/ U
    & x3 l. \4 M$ _
    Cell[CellGroupData[{
    " J4 c7 p2 @7 ?( C
    4 p! D! S- _+ K& iCell[BoxData["y1a"], "Input",
    & `/ u% D4 [2 ^+ ]1 b$ ~. c0 n CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],# I+ N- G0 j! a: z

    9 `& e) ~1 Z' h3 x) L% zCell[BoxData[
    $ o: S! J& ^; r% S" k: E. m* Y4 ` RowBox[{"{", ( |: a! L3 T- _+ i1 j
      RowBox[{: _) H- }" u$ D3 b6 s
      "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
    ! ?9 o# t8 O5 V1 @% [- s* ?   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",", 6 V4 b4 f& s  \, G
       "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
    " J6 s. ~# L$ O- H' ^   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
    ' N- o* d( C  b6 c3 \   "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
    ! ]) e* L6 X" P   "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",
    9 d* [' e; Y( @4 r5 ~# e* A   "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",", 7 F. T1 _/ Y; w8 J- z
       "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
    4 r5 }4 n) Q+ Y) v) f# ?0 r3 w   "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",",
      V/ e  w: {  c1 G/ X   "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
    / `( e6 T, X* v$ Z4 r# n2 m   "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
    / q  r7 e7 T7 c$ f6 M   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
    ' Y2 M' v4 R. Y! p: G   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",", 2 h9 i3 Q' s% k: L% Z, ]; `; X
       "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",", & Q" |# \# P( M
       "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}], 2 @8 Y" H' _0 S& y6 U0 Q" o6 p/ z
      "}"}]], "Output",
    2 y$ B$ ^6 D. d- ]6 S CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
    7 R6 g4 ~- s0 k1 H+ ]* q' }, ^  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]/ U& {4 h5 L8 A+ I' L" \9 y
    }, Open  ]],5 }8 i$ `5 c$ R- r- ?( g

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

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

    6 f1 P( ?; y7 u1 QCell[BoxData[
    ' Y' A- \0 l- \. K; o6 Y4 m RowBox[{"y1fit", "=", - \0 E9 f) Q: H& X
      RowBox[{"Table", "[",
    $ K7 b  z, h/ B3 |9 ]   RowBox[{"x", ",",
    $ ?5 H9 y6 j0 |  g    RowBox[{"{", % a+ f9 |: V; r
         RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
    * \0 j$ d7 G4 J# `* h' h9 q% O! z2 w CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {
    7 L0 @6 K" _. J  3.5779252768125*^9, 3.577925277484375*^9}}],8 [" o# _$ R! G5 t4 k
    / X8 U0 o% ]5 t6 X
    Cell[BoxData[9 O$ s4 R0 ?$ a! o" f
    RowBox[{"{",
    . j* @3 w) @- k- a7 ?2 Y& z+ K% x  RowBox[{; `3 G! A/ ]/ T/ y# k8 `: w) R
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 5 l' h3 @( {3 P& u7 O) ^+ L
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    + f4 p" z5 r  ]) T: N, O, m: }    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 7 c) S# K7 B) d$ v
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", : [# v' x$ Y  {' w; N7 t+ A. F
       ",", "29"}], "}"}]], "Output",  q+ ?) V6 H2 `: ?! B& A
    CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9, * b3 w) F9 U3 R: y  _# A
      3.577957594916795*^9, 3.5779589579612093`*^9, 3.5779621294942036`*^9, 8 j$ N6 x' E$ f) {4 c
      3.57801235340625*^9}]
    % _7 h, f! y/ d# [7 ?" I. ~% E}, Open  ]],& c- I' N/ ^" a0 h+ W6 d  S7 k

    " R" [3 t2 y3 uCell[BoxData[2 a0 r/ d) m, J7 \3 w. r! X1 E
    RowBox[{"For", "[",
    , R5 r. Q9 k! S  RowBox[{7 C/ |/ W0 S+ a: s
       RowBox[{"i", "=", "61"}], ",", # U% D: x8 Z/ r  Z
       RowBox[{"i", "\[LessEqual]", "89"}], ",", ! {8 J) F: b8 }# D& ^
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 7 q4 V6 M" B. D9 t4 l
       RowBox[{& I) |9 r" x$ s5 L1 j3 @7 y* V+ t
        RowBox[{+ }2 F  k/ a- l/ @7 q5 n
         RowBox[{"y1fit", "[", ' l8 o! Z& @2 \0 I/ Q
          RowBox[{"[", & R3 h5 Z! x1 X0 k, w
           RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", $ ^& L, f/ N0 r7 @/ h! z9 e
         RowBox[{"y1", "/.",
      X  ~* Y& N# W1 O7 t( E- S: m2 g- D      RowBox[{"{",
    4 e) B7 y+ k3 ~+ c" B9 X/ T8 L* |       RowBox[{9 k: ?1 u  P7 s& n- k
            RowBox[{"x1", "->",
    ' P8 \7 {; j; A5 |* o! n         RowBox[{"Data", "[", & R8 E+ s( [$ O' x! ?: k, U
              RowBox[{"[",
    ) Y% r! e# X! V. \& P% l2 Y           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", : \  N) E7 ^$ n! ~1 X
            RowBox[{"x2", "->", 6 n$ |- b+ k5 d. l
             RowBox[{"Data", "[",
    # {& D" A( O3 d. T) W+ D8 q( Z          RowBox[{"[",
    0 U, Z+ n, T7 P1 y1 U# Q% y2 I           RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", % ]# l" H8 d; N0 O
            RowBox[{"x3", "->",
    % i  C+ R- J0 N% ?+ J7 ~         RowBox[{"Data", "[", 3 E- J+ S! Y& K& t7 I
              RowBox[{"[",
    0 \9 l5 R3 U9 j3 H           RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", * a0 C9 F3 T) L7 ]
            RowBox[{"x4", "->",
    5 U5 {  M! I7 n2 w+ q8 n" b) J3 ~         RowBox[{"Data", "[",
    2 f4 b7 U+ q& H# C8 K6 _          RowBox[{"[",
    0 B, b9 c  G6 H. V0 H1 i* J- M           RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",   b/ t+ t* h, }6 I
            RowBox[{"x5", "->", . w/ g- ]& _2 S. j7 P
             RowBox[{"Data", "[",
    2 S3 ^6 y* Q6 g$ t2 b: z- X2 s' W          RowBox[{"[", ) [2 [% R% G  k- b
               RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    ' Z0 B2 {# s  b- r  b, z        RowBox[{"x6", "->", & m5 }% ^2 x$ U
             RowBox[{"Data", "[",
    0 b5 P- I) }, j3 g5 q9 d$ B! ]          RowBox[{"[", * Y" M# r5 n" W: Q! v+ P
               RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", * @" c: X) \2 m% I! A; W/ w
            RowBox[{"x7", "->",
    7 q0 n$ ]& y- L7 I+ P7 H         RowBox[{"Data", "[",
    - f8 m+ y, E3 i) k& m" a/ ]+ x8 ?          RowBox[{"[", 6 f& [: j, I2 _# E1 ]  V
               RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", . i( \" y8 |3 ]9 t0 y5 P/ V
            RowBox[{"x8", "->",
    0 {( N1 X" S9 P+ g4 S5 w! {         RowBox[{"Data", "[",
    ! c* {+ G" n( G  a          RowBox[{"[", . V( m9 H; L3 X
               RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    6 @# J6 n( J. N; g, K) G        RowBox[{"x9", "->", ( C: B, E# k" c- E  s- _3 i) D
             RowBox[{"Data", "[", 9 l2 J+ n' m9 p0 i1 b' W  R
              RowBox[{"[", ! Z5 u6 D1 Q6 v5 y- j8 Q
               RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
    ; Q4 c2 J1 }+ L" V0 V+ N. O) ]1 Z  "\[IndentingNewLine]", "]"}]], "Input",
    % p2 J! i. c+ R$ _8 u CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {' v/ N" m0 W4 I0 Y& t5 d
      3.577925286140625*^9, 3.577925306765625*^9}, {3.577958922517948*^9,   D) }4 L! Z; f; q
      3.577958922549148*^9}}],8 m4 h1 J+ R) J  \, C% H
    4 M% f1 C" b3 ?* g* @
    Cell[CellGroupData[{
    ! _3 b6 ]! x- I. @
    0 P6 ?, k1 d2 P+ V: I1 c6 w9 fCell[BoxData["y1fit"], "Input",
    , Q# e7 Z2 x8 [: p$ H, r" E2 ` CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
    & Q/ e& z3 b3 [( Z  3.577925040484375*^9, 3.5779250440625*^9}}],+ ~& b# _- h: \( r! n6 ]

    $ t% ~. C$ j  o+ [; ]' OCell[BoxData[8 b. g. [" i, e/ A$ T+ ~5 t
    RowBox[{"{",
    8 }: j' n5 f- h  RowBox[{( i* `0 O' O7 q7 @
      "0.43193416525930517`", ",", "0.4501634853493982`", ",",
    + a7 b( w" i! A3 T/ K# {9 C   "0.33336034768525247`", ",", "0.4418609896858925`", ",",
    9 b5 X. {" k# a8 y, s2 o1 |   "0.41030378932283024`", ",", "0.516814798191575`", ",",
    ) h. u" `+ r- c( p   "0.4476631213729994`", ",", "0.3016552978696669`", ",",
    0 \1 y  T6 _. f; V1 X- A( k9 J. x   "0.378122167437847`", ",", "0.020339844919720733`", ",", 7 L1 V6 L3 @: i. K" u& n( z
       "0.018745375782087376`", ",", "0.2919925992695025`", ",", * @7 r. h- m; Y) H+ D4 [: K( S7 D" ~
       "0.2649067959681263`", ",", "0.16343444284525593`", ",",
    / T8 {) C" n- |4 ?' ]   "0.4182466778551563`", ",", "0.27347752211364934`", ",",
    * P9 n* Y% G& ], ~/ |7 q   "0.38554057386385654`", ",", "0.35253160453718047`", ",",
    * ~. B2 ^# b+ g0 |& O   "0.2054745841100774`", ",", "0.45504377112716676`", ",",
    5 _- K% s0 b7 P) i   "0.1598805094678612`", ",", "0.18662509982279485`", ",",
    5 H; F7 b, Q% Y   "0.10684797493248213`", ",", "0.013349212673286828`", ",",
    5 @: x! p2 b- {$ ]   "0.08215836003004297`", ",", "0.2979041599362813`", ",", . m! Z% j' ^* q7 B
       "0.05995976512343641`", ",", "0.3884793499104568`", ",", $ b1 j, N: M. ^1 Z5 S% V
       "0.5361889337034293`"}], "}"}]], "Output",: K- v' k1 M& e9 p4 j: u
    CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9, 3 F  b' q/ s5 |! ?0 H
      3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9, ' T5 M( A, x& L* X4 U( z2 Q
      3.5779621416934247`*^9, 3.578012355546875*^9}]/ P8 D! |5 w8 x% z  j# I
    }, Open  ]],
    1 c5 X! p* S6 x5 f( ~6 g9 W; q$ @% \. l7 ~/ m2 u. ]$ t
    Cell[CellGroupData[{3 {) k% i3 e- x5 |( I1 K

    : O0 ?  x- R; i2 kCell[BoxData[. z2 m/ X. S& Q+ T  ^' {- A1 K4 i; M
    RowBox[{"y1fit", "=",
    9 m: l4 [' [( S6 z% B: `+ U$ H  RowBox[{"{", ' R) Z$ R5 @: w% g
       RowBox[{* |1 s! U: {$ k7 U5 r
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 a" Z2 h) w, B5 J( ^4 r( {2 ?    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    . N6 h: `; M0 ^: v/ @5 z    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", 0 z* l( G5 d( n7 J' k2 i/ t
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    . k0 o7 x  ]( s9 U2 e3 g) N/ B    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ) i" a/ \& J. H6 N3 u, \/ n
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", 6 l0 N2 H) a+ n* |' ^3 e
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    ) t; C! }% d0 W4 c/ Z+ J2 `" H    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", 2 ^* D3 |) y, @: V7 X4 r# J4 @/ {+ r
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 1 m8 f% u5 \1 e& Q# ^- N5 Q6 p
        "0.4319341652593058", ",", "0.4319341652593058`", ",",
    3 ?1 o5 Y& c9 [) V6 y. o    "0.45016348534939865`", ",", "0.3333603476852527`", ",",
    5 M! v* A$ [" l8 z& \    "0.44186098968589294`", ",", "0.41030378932283074`", ",",
    : H$ G$ d0 X  N2 \' M% }    "0.5168147981915754`", ",", "0.4476631213729997`", ",",
    8 S, ~- j3 m, B5 o  j% v    "0.30165529786966755`", ",", "0.3781221674378473`", ",",
    ( ?  w* F! C1 C8 j4 @. D" X    "0.020339844919720775`", ",", "0.018745375782087393`", ",",
    ! O! w/ M4 _4 _3 `! m" \% x    "0.2919925992695026`", ",", "0.26490679596812655`", ",", ( R8 m! c/ e3 ~$ e! y- V6 F
        "0.16343444284525593`", ",", "0.4182466778551567`", ",", 4 w7 n( h* [5 M; ~& B& a  m1 m* A* @
        "0.27347752211364945`", ",", "0.385540573863857`", ",",
    2 r+ l4 }# t# D5 C    "0.3525316045371807`", ",", "0.20547458411007796`", ",", ' m- j; r. J6 G) b! _* M: x; O
        "0.4550437711271672`", ",", "0.1598805094678611`", ",", 1 L7 C! X. n; ^: \
        "0.18662509982279502`", ",", "0.10684797493248224`", ",",
    ( @5 p8 l6 u* r' c* r! \    "0.013349212673286806`", ",", "0.08215836003004302`", ",",
    * t! C2 d# ]; {% E  X3 r* K    "0.2979041599362817`", ",", "0.05995976512343637`", ",",
    2 P0 C. R# H# {. [0 D    "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",3 O* K# Y8 M* q% V
    CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {7 n5 h7 f4 x  _7 T' R% ]; W* I
      3.5779621548286476`*^9, 3.5779621618642597`*^9}}],5 t% n! U1 L7 z/ F
    2 E% e+ g8 P- P; \3 T
    Cell[BoxData[
    : E: q  o& ^  E8 S2 m: n* [ RowBox[{"{", . P8 c8 U5 d8 H( w, |
      RowBox[{
    4 G4 I* H1 {- q+ z  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    - c2 f& a9 I! E4 ~( n3 J9 _1 t' N   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",+ G/ J1 [) ^) Q! k
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    ; V+ W: x5 z( X, J* n   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", % c; A5 ]' C5 o1 i
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", $ ]( a8 p- ^- [# Q9 Z) [
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    # K( ?0 i# G( L* V  N( N   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", % C! X; P- B5 v! o; `
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    ! P! D9 g4 {% f2 P. w6 h  w* j   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    $ j: P! ?) i3 W' ]) h3 L   "0.4319341652593058`", ",", "0.4319341652593058`", ",", - d% F1 P5 N& ?! Q* T1 C
       "0.45016348534939865`", ",", "0.3333603476852527`", ",", 9 I+ X  ^" Y# F. f+ k$ w" n
       "0.44186098968589294`", ",", "0.41030378932283074`", ",", & G. d8 L! T% m7 E0 \
       "0.5168147981915754`", ",", "0.4476631213729997`", ",", ! V! B# W% x6 ?
       "0.30165529786966755`", ",", "0.3781221674378473`", ",",
    7 }. u. i5 X! _4 t+ k) V   "0.020339844919720775`", ",", "0.018745375782087393`", ",",
    / t6 d4 j  [: ]  C   "0.2919925992695026`", ",", "0.26490679596812655`", ",",
    $ q! c3 I& l2 ~$ F4 @   "0.16343444284525593`", ",", "0.4182466778551567`", ",", 5 {9 i9 ~! D% {# X) Y1 e# |( W- J
       "0.27347752211364945`", ",", "0.385540573863857`", ",",
    : q4 @8 S# u* W5 r1 p5 |0 ]   "0.3525316045371807`", ",", "0.20547458411007796`", ",", 4 j, ]5 n4 y, r
       "0.4550437711271672`", ",", "0.1598805094678611`", ",",
    4 P) G/ e( F# J- H# |/ l$ O8 |   "0.18662509982279502`", ",", "0.10684797493248224`", ",", 8 T: e2 ~' P% X$ K* ~! U  {) h
       "0.013349212673286806`", ",", "0.08215836003004302`", ",", 5 G9 D; Y( x) q9 U% k. n- ~
       "0.2979041599362817`", ",", "0.05995976512343637`", ",",
    8 [" }  y, T3 ^# E3 t/ C   "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",
    ( h- h" `% ^6 g: i1 W* r CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9,
    6 V9 D5 G: N7 S& c2 z1 r3 L  3.5780123569375*^9}]
    . O) h5 ]0 ~7 A( t) D' w9 l' |, G}, Open  ]],
    : @3 z3 s2 ^- F- c) e2 }- m
    7 p: t5 [: u% O5 ECell[CellGroupData[{& M9 i1 D  A) C' N4 {7 A& V

    , ^1 Z  z1 ^+ ]  @Cell[BoxData[9 @& b" o! R* p; L6 F
    RowBox[{"y10", "=", 2 e! H) u  q2 @! Q: a" ]/ E
      RowBox[{"Table", "[", ( \& r, z: J' C& W# R
       RowBox[{"x", ",",
    5 ^* L; }4 P, ?    RowBox[{"{",
    / J% e1 d+ Z7 f/ l/ S/ M4 Q. {     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
    " n0 Z' ]9 X: y  b' e CellChangeTimes->{3.5779253628125*^9}]," k% j) ^0 Z2 F9 d
    0 H# _1 R' c* B" N
    Cell[BoxData[3 J3 X/ ^( l7 B9 n/ S
    RowBox[{"{",
    & I' K7 s9 m7 j  RowBox[{  Z' P7 _. @  H0 k% W
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ?9 l1 v' d) {; F4 r. D   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    ; {/ R8 h8 s# h. i    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 7 r, Z# C& K' X' `2 ~1 A
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", * M" D/ f' I7 J% n' K
       ",", "29"}], "}"}]], "Output",+ {8 K, b- \7 R) C! U
    CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9,
    : x- C% v5 h$ d2 b7 N& |  3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]
    9 `) A# o5 A; h/ ]}, Open  ]],+ B" B9 ~+ |9 T
    * x8 ^+ W* `8 `, o3 y9 _+ h
    Cell[BoxData[
    ( H7 A) n9 C3 Q RowBox[{"For", "[",
    / Z& Z6 D& G/ f; P  RowBox[{+ x& l. G& z* |
       RowBox[{"i", "=", "61"}], ",",
      Z0 S" r' R9 e8 W  @   RowBox[{"i", "\[LessEqual]", "89"}], ",", 4 P5 A3 J6 L' P1 \4 g, \# w
       RowBox[{"i", "++"}], ",", 6 f3 k) s  `) q& E
       RowBox[{: H, H: X9 H! g" X# d8 F
        RowBox[{"y10", "[",
    , e. K' L2 \7 j8 f' D     RowBox[{"[", ' r2 A: G8 o+ K8 a
          RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", , R2 X0 J' Z9 q& @
        RowBox[{"Data", "[",
    0 p4 H+ ?! R9 ?. f# _     RowBox[{"[",
    ' P+ f( }% Z# h1 y      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",7 o' N) X. e* e3 |+ k3 M$ n
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    - ]* a( m+ v, u1 ?. ], A2 y& i   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    3 _9 U& O$ `, J7 L& ^  x$ O1 y! {   3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, : z- Y* s4 w" I% \' i7 I- O
       3.577958922549148*^9}],. c. W* L2 Z* U6 j( w
    ! r4 w" o# ~. [! r% X& G
    Cell[CellGroupData[{
    + L1 p' w6 _4 C/ ]0 c! D- v  _2 M9 n
    Cell[BoxData["y10"], "Input",' K: S0 n5 V$ e8 S  b6 L
    CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
    $ r+ B& E; f4 b* k2 n   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],+ {; w  P( m5 k' `

    ' G& k5 f, u; Q& x) }6 WCell[BoxData[* A: o, P4 T/ k; a* h
    RowBox[{"{", 8 L7 ?/ Q& H* i5 L0 Q! U1 v' G
      RowBox[{
    / n* L' i3 [0 Y. L2 U  "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",",
    9 R  ]) m+ l6 Y6 t1 o   "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",", 7 a" {3 A5 |: B% d* T/ o6 N6 Z
       "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",", % j% E* i6 z5 M1 ^& v+ a
       "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
    8 B$ T7 [$ {1 k6 l   "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
    + r3 i3 d* ?/ F. D, J* _   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
    * F% ^) ]! h0 I0 G+ I   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",", ) u. Q+ j& p; j# ?. x& \5 Q
       "0.694935`"}], "}"}]], "Output",
    * G8 m0 s& E  v3 d% q* F CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, $ ~$ F. S$ G6 d* p6 Y% O3 b
      3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9, , Y7 Q, i/ W- ^4 V$ i
      3.5779621736734805`*^9, 3.57801236071875*^9}]. B7 i" j! r* c2 [- n' P9 g% H
    }, Open  ]],9 k2 |+ w. [/ a- r# H+ P6 E4 z

    5 }5 ^# e9 W& l# D$ fCell[CellGroupData[{4 B. n( Z, N( `/ U( x) G$ ]
    6 V" C7 M9 j: {4 U  N6 v* ?
    Cell[BoxData[6 w$ }: R9 L! R7 i) B: F
    RowBox[{"y10", "=",
    6 H: t. L/ J' l! H7 G  RowBox[{"{",
    - C; F/ r* v0 d   RowBox[{
    : R+ ]2 T! D" n  v* h   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 7 \7 q/ }7 d5 s1 s; Y; g! q* [3 J6 K
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! n+ I- O2 n; u; c/ e    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", 6 |  V! T! E2 q% R0 m
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    . q, @* z  {( {9 q& D9 [* L    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", 2 V2 _* W# Y$ `
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    3 c5 u2 u7 d/ d& }) f/ N    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    3 G! _" \% ?; x7 K6 Q5 @4 d    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", * X) d+ _& y( j- i: D0 o; a
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    % v4 K% I# ^: U( o0 D- M  B6 o    "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",",
    : ]5 P# ~+ v% `% B/ z    "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",",
    & @- ]+ E' c3 \- k4 [: O$ I0 ~* m0 l    "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",",
    / ]/ l! a6 q! y    "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",",
    , x1 R* ]/ P0 R: n& H    "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",",
    4 y% \& V& V0 Z2 j! y    "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",",
    , d3 u9 p2 a+ @! a3 Y/ I" I    "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",",
    # W, o5 @. D, ?% G4 b    "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",
    ) d, U7 j# m7 E1 u; U CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],) _, i# z6 P3 t* u/ r( W5 k" T. t
    9 e6 v4 C, m. N0 o
    Cell[BoxData[
    & O0 k( `8 ~) v" X: J, H3 M RowBox[{"{",
      i( ?" R( G8 J$ H/ `# h5 g  f  RowBox[{
    : [+ f1 ]2 }4 ~, n: h: u  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : I) P% N( E; Q4 q6 f   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",4 H! [% r" y( o4 u9 m9 u
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    : e' \" z/ [% ^  \& E   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    . E# M$ c9 n8 \   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    ; i. V3 w5 f& O. I4 [% K   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    7 \, K8 c$ ^+ v   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    9 Z, D, u/ n0 Q; ~5 l9 q8 B' }   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    - L% T; r0 q) D( ~' g4 k7 l, L& Y3 P# P   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`",
    8 j" ]' z1 s& i2 l   ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", 8 _: _6 Q6 t9 K8 @8 Z* o
       ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`",
    : ^$ d! g0 T  u9 N+ f   ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
    2 [5 Q/ k8 G3 j8 `: ?    "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
    6 ~0 O! d. m: |1 q" s0 ]7 E( A. \   "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",   c. ~: V+ ^  Y7 q" v) Q- @% o4 M
       "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",", 6 U' G& f# U$ W" a
       "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
    * R. n7 {' p# |. O% o" u   "0.694935`"}], "}"}]], "Output",
    - ?1 |6 M3 w4 G5 A CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9,
    , s& L7 Y' U! h8 G2 ?6 L; u4 G/ W  3.578012361734375*^9}]/ A2 R  k5 d% _7 ]$ X
    }, Open  ]],8 \6 P0 v$ _% U6 y/ ~  K

    + N1 E# D3 l! V4 `- |1 }Cell[CellGroupData[{( J; J! B- E6 B5 ?. ^  g( U) `5 a

    3 ]# L* L% \) e/ l. l0 i) \Cell[BoxData[
    - Z8 U5 `2 i" d RowBox[{"p1a", "=", ! h- Q0 `# ]0 Y% d6 h/ |
      RowBox[{"ListPlot", "[",
    9 l7 T; ^0 A8 k( ^0 C* r   RowBox[{"y1fit", ",", : u+ x! S3 t6 V; y4 {! n
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", : X( x& I2 l' f2 t3 \
        RowBox[{"PlotStyle", "\[Rule]",
    8 C% {5 s7 K* A- r$ [     RowBox[{"{",
    0 k8 ]2 P9 j1 R! z5 S      RowBox[{"RGBColor", "[", ) i# r. J( H% W
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
    ( H, g1 B* E& Y$ P5 m    RowBox[{"PlotRange", "\[Rule]", 7 ^" B4 R1 s4 Q+ \: m7 {8 G
         RowBox[{"{", " w  z: P. i' Y7 W: s- G/ [* y
          RowBox[{
    ! v9 p: q- }" s       RowBox[{"{",
    # s+ x: j. [1 U- I        RowBox[{"61", ",", "89"}], "}"}], ",",
    ' v& L/ i, c! y6 E5 g  I1 U* [       RowBox[{"{", # U2 K9 t9 |8 e( \9 n
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    . C* F1 n$ ?3 e2 m# D& t. Z    RowBox[{"AxesOrigin", "\[Rule]", 2 a6 P0 B9 x- p
         RowBox[{"{", $ Z; \! W3 R- m- `4 W
          RowBox[{"61", ",", "0"}], "}"}]}], ",",
    & r( x  ^: M; t2 o% j6 m7 z    RowBox[{"Frame", "\[Rule]", "True"}], ",", / [& }5 m3 x$ D7 k  L
        RowBox[{"FrameLabel", "\[Rule]",
    + [0 Q" ?" i! Y/ x5 s9 b     RowBox[{"{",
    " x; {1 |/ R9 F/ |  `3 ?      RowBox[{# ]3 e1 ]5 G  \3 U
          "\"\<\:7089\:6b21\>\"", ",", : P1 b4 U! e3 e5 n
           "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    * b0 ^! W/ k& p0 e9 v: M\:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",% Q3 d. n( B, G7 j/ ~
    CellChangeTimes->{
    # e7 T6 o) i& \/ q( b0 K- ?  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
    ) h3 b. ]* E$ h2 W+ @   3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9, 1 `4 }, I0 {* g+ l8 O8 a$ x' Q* z  V9 T
       3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {
    3 U( Q) W; R: Q0 U- ?   3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],
    2 K# ^- z$ K% h4 O3 R
    ( e" H% X* D! e2 i5 j7 e$ N( fCell[BoxData[$ B! K9 i$ O7 M& ]. l3 S
    GraphicsBox[{{}, {}, $ h: I4 }) u3 C
       {RGBColor[0, 0, 0], LineBox[CompressedData["6 v8 c& r: d  J( g9 C$ d
    1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
    3 `* @* Y6 a2 [- `8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
    ( \1 F# ?" A( ]4 G2 a/ W+ [: jD3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
    * ^% h. N9 b8 U. X* E3 z1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX4 V6 h4 f! _' {/ j, j! ?  h
    C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN! p4 U3 R3 b) F! f: f. }
    a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff- z+ }% B6 c- O- H* n3 S
    yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb5 r' K9 O( G9 c( b
    wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
    + F; R3 Y9 N# C5 p$ ?. zY6nGQ3sAieueIw==; J+ J7 ]7 A, m; C$ F1 i# G% W& F, O
         "]]}},
    / ^. c! G! K$ ^* K) _: l' V' F  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],6 j4 T* T: R0 b) w, |
      Axes->True,
    9 M7 ?3 R* O8 @( Q+ z7 }  AxesOrigin->{61, 0},
    " w4 x8 U1 S: r  Frame->True,
    1 m0 d. r4 R3 o0 M  FrameLabel->{
    4 z- Q+ j. D  g4 q    FormBox["\"\:7089\:6b21\"", TraditionalForm],
      s4 o% V$ D1 T+ B- b    FormBox[
    9 r2 X* i  S/ S+ [+ }' j    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    2 S9 h( D' U7 U\:ff09\"", TraditionalForm]},2 x4 m- g* V+ ~9 i
      PlotRange->{{61, 89}, {0, 1}},6 r# B, i% Y- Z( |6 Y! v
      PlotRangeClipping->True,
    : q/ U  x7 F) J$ h3 y% q  PlotRangePadding->{Automatic, Automatic}]], "Output",
    $ T: ]8 u* c  m4 l" ~$ y CellChangeTimes->{+ S) W9 P9 e1 ~- \, l2 A! G/ e6 R
      3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9, + T& _- E) j# u+ P, h
       3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9, 2 c; r' U4 `" N; Q6 W1 x; F3 B
       3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9},
    8 \. D2 W. Z7 L* S   3.577962187510705*^9, 3.578012396921875*^9}]  Q; \* x0 F# |( z; o
    }, Open  ]],
    + g. ]9 o' h8 u) W2 Y& i2 R3 v
    , E$ p4 J  x% D( GCell[CellGroupData[{! s' w0 f, R3 h+ }
    : r; M1 a$ ]( ]! M+ G. ?8 a
    Cell[BoxData[6 e) |* K+ X4 \$ v$ a
    RowBox[{"p1b", "=", / q& a8 \- I6 s7 d7 F* Z) j- B
      RowBox[{"ListPlot", "[", , J& p8 p' f# Y  Y' l. Z& }( _
       RowBox[{"y10", ",", * Y3 K0 C) ]7 r8 l* O' X0 `
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", : X! {% @4 o% \" I
        RowBox[{"PlotStyle", "\[Rule]",
    3 B1 Z% y2 R6 u0 d1 F8 e7 S, j' L     RowBox[{"{",
    7 [8 g' w/ J' i0 v6 s: ^6 [* N      RowBox[{
    * z; `1 Y2 l2 W$ p2 h       RowBox[{"RGBColor", "[", 9 F6 E4 H5 o7 p9 Z
            RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    0 _0 N( O! Z4 B# ]& w6 J    ",", 1 u  I* W' C; q$ e2 ~4 [3 D. Q
        RowBox[{"PlotRange", "\[Rule]",
      x) B# K4 W' ~8 a( |/ z4 A     RowBox[{"{",
    , q$ @/ W' A; O      RowBox[{
    & s/ v( J& I) M$ ]8 x       RowBox[{"{", , U7 L1 D, S/ t9 A  F2 f- V
            RowBox[{"61", ",", "89"}], "}"}], ",",
      V* a2 }' g+ a- |" Q' \2 [       RowBox[{"{",
    4 D, O8 b+ {3 R3 Y9 \! G        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    ) D3 H1 l& V. b    RowBox[{"AxesOrigin", "\[Rule]", & R$ ?1 z( g4 e7 [! s
         RowBox[{"{",
    : P; y" |" }/ G/ \$ K" I  G, H      RowBox[{"61", ",", "0"}], "}"}]}], ",",
    % E5 T4 N) {& r  A2 \5 d    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",# [/ X* R) u$ `+ V4 q
    CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9, - }& F: U, V8 Z$ b! J7 e' E% m
      3.5779597764166365`*^9, 3.578012409265625*^9}],
    # L" S8 }: C2 T0 \3 q
    1 L) `5 X( W8 d( e( x' D# ^Cell[BoxData[
    " V  T6 k0 c9 F& c& F. v% f GraphicsBox[{{}, {}, 6 c& p8 T: ]5 L$ R8 ^5 ?  N
       {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    ! C9 U$ d7 e5 G/ m! ~  Z1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ' t. B7 N  E- h2 _
    /B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy4 n' Y9 B% G7 u+ Y/ p7 E% H, R5 I4 d
    GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy2 s* U" D* J2 c% D6 g' `+ R* j. C
    GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
    , m' K. e9 x' E( {1 F0 w7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
    & y0 Y" c' \- w9 ?" i; ^0 mQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
    / S0 V" y$ ^( a$ u8 P& r9 bH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV& A: g5 a1 w$ p. Z& L
    rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T+ ^- p! p  L' h# Y! }
    vA==
    / R+ w$ S; ^( u2 a     "]]}},
    ! F/ I/ A, {# j, x  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],: `( _. _% W8 f9 H! C
      Axes->True,
    + O8 M+ f- w; z  AxesOrigin->{61, 0},' ^+ x, y9 d) G+ m" N
      Frame->True,
    8 x! y9 ~2 b) g6 a9 x  PlotRange->{{61, 89}, {0, 1}},4 O* p3 |- ]) v( D
      PlotRangeClipping->True,* A  k" z! N2 e. S6 [& r
      PlotRangePadding->{Automatic, Automatic}]], "Output",
    # L! m. ]1 Z+ R- y- c/ y3 P CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
    : Q7 J# B7 R4 _& e  3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9,
    / n9 C, Z* K0 T( T' x  3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]
    % P: I0 E, K/ A; O; _}, Open  ]],# A5 u$ T7 a" O& L& I: f" }; n
    ) p% t' {5 }4 A( z
    Cell[CellGroupData[{
    . d( G3 w. I" J5 o5 \+ ]/ h
    - ]& X8 i) x0 `' qCell[BoxData[
    + r8 k( `( T: g. w" o  L1 l RowBox[{"Show", "[",
    : w% ?% b1 s* E1 o0 n. r  RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],9 Z! M( O  E8 {' v) g
    ) g) U* x7 _/ s. i0 U3 H$ @, P  P% _
    Cell[BoxData[7 X! X0 V5 X( y! v" ~& w
    GraphicsBox[{{{}, {}, - @/ ~1 d2 e, ]
        {RGBColor[0, 0, 0], LineBox[CompressedData[". Q% E3 F$ }1 O5 d7 ~1 @% z7 q: U6 V3 d
    1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
    $ c) I2 U/ |5 A! }6 [4 V8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
    2 o: Q- b( `9 M4 `) _5 d0 S" [/ u" s& }D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B# [1 {$ A& A! m9 D
    1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX# q* _+ u% v- R7 y# Y$ {% S. d
    C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
    5 f/ W2 v/ J$ {$ C& g, da2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
    , V% F( A5 F3 }yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb: \; M/ [+ }1 q5 L" z& g. d
    wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
    6 C4 q' H  V+ SY6nGQ3sAieueIw==
    & X3 u' u+ O" Q4 V' z' F- j5 j1 ]# l      "]]}}, {{}, {},
    " [: g' p; \  U, P8 {' V  h$ A    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    * J3 r6 A& d6 v* y& {# p: @& b* h1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
    / S' c! ]8 o: N; g9 g; C7 |/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
    2 H9 F( A$ u% x9 n" ^GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
    ; n" h# t! e7 e8 P! d. F9 EGFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
    * K' M+ Y+ T% v% g* w7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/; U- p& K! r3 X2 `) ?  p2 j
    Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
    - \! w# L3 k/ Q6 [7 B+ LH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV" J( g0 l, }1 W5 [' J
    rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
    ' g# f; B+ Q# L* evA==
    ) `( V( P7 E, G1 N" a0 B6 v      "]]}}},1 a& m, L' K& J# n& M# |
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],4 e2 B, d6 N; v1 f
      Axes->True,) S! R" u. [* e; I
      AxesOrigin->{61, 0},) g3 H% y. f: F8 \
      Frame->True,
      m( |4 G) |) m" q  FrameLabel->{1 S7 {/ w( ?, g8 Y2 L0 F; o1 ~" r3 T
        FormBox["\"\:7089\:6b21\"", TraditionalForm],
    . T: D, J' B! J    FormBox[
    5 ]* I& p' v7 ~+ h" X. D" e    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    7 e# [: s+ @0 ^/ d+ t  O. Y" Z\:ff09\"", TraditionalForm]},
    & ^& I3 l( [2 m6 O  PlotRange->{{61, 89}, {0, 1}},  o! P% `2 i" m& j1 y8 ~$ E
      PlotRangeClipping->True,& P7 y" @! @, o9 E+ ?, J
      PlotRangePadding->{Automatic, Automatic}]], "Output",- q; M: e3 O3 |! Z
    CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]7 k. Q' m( c0 n# @  ?& r
    }, Open  ]],
    : ^$ @* b* B( u6 z* z4 o5 T$ T# _9 k/ j' X) T
    Cell[BoxData["\:62df\:5408wi1"], "Input",
    0 v$ q3 f( o0 K; `) ]; ]1 R: x CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9},
    0 c2 m- B  V% _   3.577959662349238*^9}],( {5 y( Q. L# c. h+ w" t
    8 ?6 j2 n, B. E; `+ P
    Cell[CellGroupData[{
    2 g! x0 p/ s0 t6 m6 w
    ( \! a+ d: I3 T0 D) D$ eCell[BoxData[
    1 ?# n3 k9 A& G' }1 j# _, w RowBox[{"y1b", "=",
    $ x: {" ?7 @/ G) v  RowBox[{"Table", "[",
    : Z9 s' b3 D- D) i: b   RowBox[{"x", ",",
    - `  S# S$ A  S3 i7 M0 s    RowBox[{"{",
    & G, _: i! X+ N. b) Q  f     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",, t$ H# O1 F. [: M2 {( A, z, \) R
    CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    ; ?7 _4 @5 B& ~: o7 [# J4 u; @   3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],7 A! E) a) i* \$ N( {! {

    ; z+ P& z3 M1 n" {# x# j  u, iCell[BoxData[
    4 M+ K% A2 p' h0 X  K RowBox[{"{",   M4 K# e" H& ~/ A
      RowBox[{
    ; x, B2 X' Z5 v$ Y4 H  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : ^& H* |3 X8 e( ]) X   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",% n7 @1 F! E# ^; |3 D, y+ o
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    ! e4 e% t" H6 [+ K! J$ L   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", + D/ B2 y  _4 i
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    & e; K4 L+ o6 l" A% M   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    * M" n8 Z" ^# G8 Y" }  V   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", ; q. S/ I) S3 d* x8 f6 {
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 3 h- t3 Z6 ]1 B, R9 M
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], 7 {& @+ P( y; r- `; E' V3 ~) E8 F
      "}"}]], "Output",
    ' @4 D( M% j- z, i% e6 X CellChangeTimes->{- q- S( v( T1 [. c7 Y
      3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9}, 6 c: P# z& @, L$ t! f* Z
       3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9, 7 @! D% F$ `' Y2 f+ M) ^& `+ C
       3.578012438953125*^9}]1 u9 V) p1 e% t5 `1 C# Q
    }, Open  ]],
    : @; o6 Q0 k% M4 s! _9 ^7 t0 R, S4 I! w2 B7 y5 r
    Cell[CellGroupData[{
    6 T: V/ t- y& D: p& M
    6 T( p. `$ z$ F+ x4 ICell[BoxData[  C. f5 {5 A3 }
    RowBox[{"Data", "[",
    / @3 Q: Z6 S/ a/ h  RowBox[{"[", $ m: w# u# C. i$ a! L3 ^4 \. f
       RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",/ U# K( @* U1 m# k! @% ?4 n5 z; T! C. i
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {. T7 p' H) E) M% z# B+ ^& N, W
       3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {' t4 y3 r. P  E
       3.577959014090108*^9, 3.577959016040111*^9}}],
    + U. i8 s8 x; X6 [" w/ D' [
    2 @) K; ]% _+ f4 r+ W: mCell[BoxData["0.492958`"], "Output",
    6 ?( o; i* X5 R: R4 ]2 D* z CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, ) o- o2 V, b+ S# n: p. _
       3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9,
    6 t# \7 W. [! {6 Z   3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}], \/ ~8 [# O& C2 h. v
    }, Open  ]],
    : `3 ~% ]" Y" i. F5 Z( T! w
    ( u; q3 R6 s& N- Q# jCell[BoxData[+ p7 w6 E! c( M2 F% f
    RowBox[{"For", "[",
    : q& L( b0 L& p. K, t/ i1 f  C) O  RowBox[{$ W! m: g" b9 J8 f! @* Y
       RowBox[{"i", "=", "1"}], ",",
    : I% S) @3 H: W( ?: ~   RowBox[{"i", "\[LessEqual]", "60"}], ",", , W8 n8 ~6 q# g  [! ~! x* b- R$ d
       RowBox[{"i", "++"}], ",", . v% h1 `* Y- T- q- u  A
       RowBox[{
    , p, r2 ~& [& Y, S6 L/ d2 u% w    RowBox[{"y1b", "[", 4 ^: m3 N* A5 c: |9 D/ s/ z
         RowBox[{"[", "i", "]"}], "]"}], "=", " U) O& k! _+ m* X& y
        RowBox[{"Data", "[",
    ; q% O# M, Z4 e& q( A# C/ g+ s" ]     RowBox[{"[",
      Q' P2 `# j8 k# h$ v. S      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",; e) R0 c3 [5 x
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    4 g- O  g* n  g( |% ~* ~+ \% u, i5 n   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    " z/ M8 j$ ^, Y   3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {( I8 T8 @# `2 I" p
       3.57795902089172*^9, 3.5779590227793226`*^9}}],% L4 r' Y8 p9 @: {# y6 {' r8 J

    5 _7 }) {" Y1 d7 j# ]Cell[CellGroupData[{
    + }% |- y+ h3 T* r7 O
    6 A5 ~/ S+ F: PCell[BoxData["y1b"], "Input",7 Q* v# L" @6 \
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9},
    : }7 g' I1 [8 X9 k# \6 F   3.577958484172784*^9}],
    ( d5 u, }* C' i5 i+ o
    , ]4 T6 O' B" lCell[BoxData[, [: Y( t! }" ~7 b
    RowBox[{"{", ) J' q# E. j) r4 ^/ Z
      RowBox[{" G, k8 _$ Y: Y5 S# R
      "0.873239`", ",", "0.464789`", ",", "0.492958`", ",", "0.774648`", ",", % y: q8 ?& b) m4 t7 I$ j
       "0.380282`", ",", "0.647887`", ",", "0.56338`", ",", "0.295775`", ",", 0 ^8 d) [1 _& ^' Z
       "0.338028`", ",", "0.211268`", ",", "0.690141`", ",", "0.43662`", ",",
    ; K* _, A3 ]+ c0 A6 G, i4 A4 p   "0.`", ",", "0.267606`", ",", "0.211268`", ",", "0.408451`", ",",
    6 p$ h# g9 j, M3 q/ l/ {   "0.478873`", ",", "0.380282`", ",", "0.211268`", ",", "0.43662`", ",",
    ' n* O7 R- f% I% A9 t9 R0 x   "0.478873`", ",", "0.295775`", ",", "0.028169`", ",", "0.43662`", ",",
    - p1 l3 |& z. {; I" T6 ?& O; A0 w* R) l   "0.394366`", ",", "0.295775`", ",", "0.830986`", ",", "0.169014`", ",",
    * z/ @4 o, C0 e   "0.366197`", ",", "0.309859`", ",", "0.352113`", ",", "0.309859`", ",",
    - Z# E! j# o: K" a   "0.774648`", ",", "0.422535`", ",", "0.887324`", ",", "0.887324`", ",",
    , G# }& T- S3 k! @4 {   "0.859155`", ",", "0.239437`", ",", "0.295775`", ",", "0.746479`", ",", * @- ^( @* a' x) L1 s: z
       "1.`", ",", "0.549296`", ",", "0.366197`", ",", "0.549296`", ",", & j9 L* R- [& I! T, r/ E: \
       "0.577465`", ",", "0.690141`", ",", "0.71831`", ",", "0.521127`", ",", 4 i4 q) I7 O) T; P% H2 }7 P
       "0.929577`", ",", "0.521127`", ",", "0.338028`", ",", "0.380282`", ",",
    & t( c9 A. F) c6 g) \/ D$ ~   "0.676056`", ",", "0.591549`", ",", "0.464789`", ",", "0.295775`", ",", # s/ X  S" Q2 D4 p: H) q( N' L
       "0.380282`", ",", "0.211268`", ",", "0.253521`", ",", "0.28169`"}],
    " q8 K7 h6 |- }& w  "}"}]], "Output",
    3 B8 V! u0 H, ?( U5 h! [4 f CellChangeTimes->{3.57792293246875*^9, 3.5779582549771843`*^9, + x1 J/ Y7 {- J
      3.577958485420786*^9, 3.577959026460929*^9, 3.5779622288195767`*^9, ; i( J3 @9 m; W! o6 a
      3.57801244275*^9}]: F  H. T" V: m4 p* y# U
    }, Open  ]],
    , A5 ]3 r& x( D8 i" P  D* P  }7 b& j, @. z+ ^
    Cell[CellGroupData[{
    ; C: H% K1 q+ O- j/ |- K0 b0 f0 G- E. ]0 _) J( B$ v
    Cell[BoxData[
    " N+ V. i; R8 }' S+ F. _& W, M2 U RowBox[{"m60n21", "=", 2 i% U& P9 p* D# l; d8 z1 K
      RowBox[{"Table", "[",
    5 O8 \" g3 g, l. ?5 b0 C   RowBox[{2 h# S; c% J5 m  Y/ @9 h
        RowBox[{"Table", "[", 7 E) d# w, B7 z& |; @. d
         RowBox[{"y", ",", + N' H3 ~! S1 s
          RowBox[{"{",
    " ]- i) b/ {" p4 M) F' ~0 T6 t       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
    ( @1 Q' z; |+ @    RowBox[{"{", 0 M! V. a9 ]4 K$ f7 J
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    2 Q( V. ~" F9 X( W4 W1 r CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
    0 T( J3 r+ J0 e6 l  3.577924052828125*^9, 3.577924101671875*^9}, {3.577962237961193*^9,
    9 C- ]& @7 a' p  3.577962240082796*^9}}],+ R2 G8 C: d; W- O: S0 _, [

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

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

    % I6 S# C6 T6 m6 vCell[BoxData[2 u/ \5 O* ?& p
    RowBox[{"{",
    - q3 O% q6 D7 Q1 Q) T9 i+ d$ [; f  RowBox[{8 @  Q6 \3 f$ b6 p5 t2 W
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", : ^( k+ [- }1 @' T
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    # _& \+ @9 i' c. Z: c    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    / \) l2 Z# }9 S1 e( k+ _0 [" _: D% [   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ; m& K% _1 Z, [0 z+ O* {& h
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 6 g" i1 ^1 z$ L! T
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    4 s1 x$ X8 _1 ?* y/ y: g   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", " o  l$ \* ]  B) ]' {$ W, \9 X
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", # W% t0 T& u9 m( k6 A8 z9 @% T6 }: ~
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    % c" s8 ]; c& X- C. V: \- O   "0.48531711328591953`", ",", "0.48531711328591953`", ",",
    1 e8 S/ i2 s. ?  H) d: P! {/ w   "0.45086352166650845`", ",", "0.36421192417525217`", ",",
    * `: j1 g! n  K4 n+ p# \0 h   "0.4285207742559556`", ",", "0.4712694272667811`", ",", 1 n2 d' s' h2 a: X2 c
       "0.5257533056184786`", ",", "0.4862065814071623`", ",", 2 q/ q" C/ M. ]' p
       "0.41106838915592014`", ",", "0.5486894206610683`", ",",
    ; I( K& ~0 s- r/ a& V4 |$ X- P   "0.007731168540073532`", ",", "0.013872406140339166`", ",", 0 I, U. H* o$ O& Q/ a6 y; a
       "0.3956995051659565`", ",", "0.3663118256142717`", ",",
    : `7 G2 t4 b% W* H8 N   "0.29094217358055185`", ",", "0.5453093690736568`", ",", ( l* q+ |, U. d
       "0.4413889888077799`", ",", "0.42944922031163585`", ",",
    ' g  O1 d; x/ N# x1 D( B& P   "0.4309289055674891`", ",", "0.5942402821739983`", ",",
    4 x/ T& K1 e9 E. ^: y   "0.33004609078545805`", ",", "0.18938658036630632`", ",",
    " h4 d: D2 T) C  _& }4 j   "0.4263720292858688`", ",", "0.23377136184738778`", ",",
    2 r9 T  ^' A6 `' l$ O7 M- A/ p4 h   "0.022328581933099827`", ",", "0.24436420008426807`", ",", ' N( h% a" |/ X. ]& }* u
       "0.5562383565309981`", ",", "0.13114103402954314`", ",",
    5 D! W5 W0 g, a, Q( A7 C0 d; ~7 L   "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",
    3 T3 L1 m% O9 ^- _ CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9,
    - L. Y9 E% c4 \. o7 F% m3 R! C  3.577962342060174*^9, 3.57801245340625*^9}]' b8 P1 [4 [% N  B/ j% N9 H
    }, Open  ]],
    ) u0 H0 m; m& Y- `) D. L& W% p
    ' N* {6 u/ H+ t. N7 W8 |8 r3 ZCell[CellGroupData[{6 e( D) u! e) b" I. a1 S
    * _% Q6 f9 c  B; F" c( w$ u
    Cell[BoxData[
    7 W4 `; y' T1 U' H- L+ _7 t9 R RowBox[{"y20", "=", ! ?) G% j  A" ?5 P' H! p
      RowBox[{"Table", "[", 6 _. m% ~8 L9 R" z. a; p
       RowBox[{"x", ",",
    . G, V" ]: r7 t  X9 J9 f    RowBox[{"{", ( r- w! ?. z) @9 F
         RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
    ' r) O0 p9 _' a- Y' k- `2 L CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],9 X7 V# u$ K, {0 `  R0 m$ X" _

    ; Z2 f7 {# x. wCell[BoxData[
    ' g% x/ x  h- M RowBox[{"{", . T( R& }7 D" s% G  F, I" {6 D& ~
      RowBox[{
    & Y7 Z3 [7 S* B; k5 s( X  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", " n* D3 O6 }! G) [4 z3 I
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    % u" {) {- B) Q& }% K; n% A    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 8 Y7 l/ G5 |( K. O/ O" d
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", $ s* ^/ p8 p' ]4 h8 T
       ",", "29"}], "}"}]], "Output",
    # {! \; o8 U1 b. X CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9,
    $ s" a( }  t  O  3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9, - |+ h- q0 ~2 c1 T! ~
      3.578012454875*^9}]* y- x$ }" y$ q8 X; [& G$ j
    }, Open  ]],
    & Y/ N" v: l7 R+ z8 j* }; p$ h" X
    Cell[BoxData[- h$ T! T5 r& B
    RowBox[{"For", "[", ! T9 r6 z6 M; C1 v' m
      RowBox[{( r/ e* X' r, t
       RowBox[{"i", "=", "61"}], ",",
    ) c0 Q1 S9 y6 G$ p* d3 {: f/ A. F& R, F   RowBox[{"i", "\[LessEqual]", "89"}], ",", 2 v7 w, S; W& e9 f- F* _, d
       RowBox[{"i", "++"}], ",",
    : i9 ~1 P4 X# Z' Y! \. O   RowBox[{
    ' e$ J! V! h6 }# |; G    RowBox[{"y20", "[",
    / G! }6 R# E* \6 S/ t     RowBox[{"[", 2 \& h3 K0 y8 C1 j1 M
          RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", + \4 M, E. g1 }# c+ o
        RowBox[{"Data", "[",
    2 V; A. a; z! J) Q     RowBox[{"[", ; |4 ?7 x; n9 k/ L* n) B9 O
          RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",& ]+ C3 I8 ]! N  X# Q6 C
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {3 P( \/ X9 o' p; q0 `0 z
      3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, % ]9 L% \& d) Q$ B1 ?& d
      3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {/ N( D5 D, ?% w5 n6 Y: D
      3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9, 4 \9 t. c! E/ w. S# O) p
      3.577959058690585*^9}}],
    % v% [, F% O- h! k0 c7 Y
    ! B/ n& L7 q8 F3 i' U0 c  a0 b6 j$ PCell[CellGroupData[{
    - H! K  J/ \8 G4 S: D  m0 e  C" [1 t, g$ c3 B
    Cell[BoxData["y20"], "Input",; q3 Q- [  K1 ^8 ~2 }9 V
    CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {3 D' K# y7 a1 `
       3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9, 9 H& r6 i4 [8 Y% S' r: V
       3.5779583657841773`*^9}],
    9 v* {9 Z4 }! O, N0 s6 u0 W8 j* O: ^/ G1 Z' j3 ~
    Cell[BoxData[7 Q, c  A. }+ ?0 ?5 P
    RowBox[{"{", 9 f9 J6 _( A/ h( K$ H
      RowBox[{
    ' z) B$ g$ _! R  A, S) p  "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",",
    * _$ ~4 ^% G: ?. I   "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",", ) i, L9 X7 E% m( n: [/ T
       "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
    1 k$ A' G! Z( ?: G  j7 w( \   "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", 5 ~3 v# s: X/ w0 `+ Q: T0 c, b
       "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
    4 n$ l, n' c' N) }   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", " c' i- v: `2 Y3 g, V# I) f
       "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
    : K2 U: b+ x0 \* A0 e9 x/ {4 g   "0.323944`"}], "}"}]], "Output",
    + R. ^) m2 {8 w4 E9 R" y! s CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, # n1 F# ^* m: h3 c, @+ o6 y
      3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9, 4 M4 V3 _# [, Q) e; e" ?
      3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]0 ]3 j  {  b' |
    }, Open  ]],
    " D; w( H: M" `- k5 s: o  [
    # E* m/ z- g3 w  [$ PCell[CellGroupData[{
    5 _+ Z% x4 c( w6 w. R( C1 E( ]7 P; O  x1 l
    Cell[BoxData[' G" F6 H: @; h5 @
    RowBox[{"y20", "=",
    : S1 E2 c' R& H# B0 [2 S6 f  RowBox[{"{", 6 R) g5 N* I8 m6 Z4 h" J$ V0 h6 l
       RowBox[{8 M# N  H7 @4 h8 }2 k
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", + `( n0 c- }6 i2 D; h+ S8 i
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    5 x) k, c3 J7 t: J) b    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    , T+ |; c+ i! K; L! m% M# Z% R1 F    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", / b* ?0 u2 h+ I4 M3 i1 b
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", , a: [: ^. S; u/ Q
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    * f- T7 R% L  H6 ?% T, ~! j    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    $ S% J! \/ [9 ^8 {% q* T    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    ' G0 Y, m$ H+ N2 j! X    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 0 F8 \" P. Y7 j
        "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",",   M# P; D& p, F0 s+ L
        "0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", 0 o$ D) i4 X$ I$ v, t5 C, P
        "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", ) A: {4 u  @) e: a- O
        "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", 7 d* F) p1 i5 u( d) U) E8 M0 P
        "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", * _  ^8 ?0 C, l# Y/ ?3 u2 Y
        "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", ! ]" x5 m8 m! J' h( e) K7 f0 Z
        "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",",
    ; D+ u- A! l+ \    "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",+ \9 Y. M) m" x+ t% T
    CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],
    0 N: A5 ^* i3 r& ?5 L8 d& R6 z/ p5 _" s2 ~
    Cell[BoxData[
    ; U0 V' A0 w+ e5 r9 l" r RowBox[{"{",
    % W* S/ f9 y8 x  RowBox[{4 x$ |( l# R! I* R: ?5 K2 e+ r
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", + u6 a" K0 y6 Q! K6 H$ I: ^  t6 z
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",# ~2 [9 Q  j, c2 O7 S
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    / ~  M/ r& v9 ?/ ^   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    " }; f! X# V' L4 |' }   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 9 d& D. ~& D/ a. j9 \! L4 g& K
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    ; P( Q; R7 z# j7 R  r# K& Y   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", " t5 I  }8 U* M
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    % L% q  p3 P5 x- E   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`",
    2 X4 D, S: o+ d; w7 q   ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", # }7 O; x, N% W, b2 E7 |: ^- \
       ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
    : p9 w2 b: _% Z1 x/ ~; }6 k/ n    "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
    : \+ Q9 D1 ]# D& j& b7 C; p; ~   "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", * d$ j" f5 A. k+ f# q9 \6 T( R
       "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",", 7 r$ J9 K: K2 P5 H, f6 Z$ \  n
       "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", 2 E% j8 q0 O/ C7 z; t& P+ [
       "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", # o0 B  i' @# M
       "0.323944`"}], "}"}]], "Output",
      l3 ^# b: Q: y8 Q$ l8 ] CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9, " B  g$ S8 ^* m7 f* t0 p$ C4 t
      3.578012457234375*^9}]" }$ x# F9 f* L: u5 k# L
    }, Open  ]],9 H5 j6 c0 T) p! o

    1 h$ ?  S9 E1 A- r5 P$ B2 aCell[CellGroupData[{
      A( o, x, C& l# b) ?' W; X
    $ f2 g( ^2 a! q+ V0 s. `" U7 tCell[BoxData[3 p: ]: e7 c7 J# Q4 t
    RowBox[{"p2a", "=",   R4 l4 n2 N( ^) L: \9 a
      RowBox[{"ListPlot", "[",
    ; D! F+ Z# b* c8 d4 ?6 w2 I   RowBox[{"y2fit", ",", % J% ^- O/ l) i
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    9 n0 w3 A: P+ j. @0 a5 J- w    RowBox[{"PlotStyle", "\[Rule]", ' t! i2 _6 y& Z! j1 b8 G- I8 J
         RowBox[{"{", ' c9 N/ `0 g+ q+ p7 B
          RowBox[{"RGBColor", "[", - U8 {- s4 I1 I5 F: [
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
    - p$ U, N( W7 o) [) D. s( d7 `( F    RowBox[{"PlotRange", "\[Rule]",
    ( u6 b' J* ^/ z     RowBox[{"{", " i6 `( A6 P7 L2 E, T* ?% z+ z
          RowBox[{+ f7 j( U6 y- m. y
           RowBox[{"{",
    : Z; E' @5 b; V& @4 J        RowBox[{"61", ",", "89"}], "}"}], ",",
    ! Z( s# F  q) i/ g       RowBox[{"{",
    ' ^  {2 z0 }0 m& w) c, C        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 1 x9 h: w' ]& z' T; z' g1 f
        RowBox[{"AxesOrigin", "\[Rule]",
    ; Z! q. N  I7 r" K5 y0 g) M% z     RowBox[{"{", ) }( ]& t, \& H6 k9 a5 Z3 ]. \7 w
          RowBox[{"61", ",", "0"}], "}"}]}], ",", / t, ]( R! e: u+ {
        RowBox[{"Frame", "\[Rule]", "True"}], ",", & t% M9 U- H# h# l6 A( X8 K6 }
        RowBox[{"FrameLabel", "\[Rule]", : a" D. E. l! @1 _1 n9 t, O$ U/ m- d* z0 o
         RowBox[{"{", ' a# p. A8 @$ F6 `
          RowBox[{* F% _: A! l. N/ ?& _7 g  }) n( i
          "\"\<\:7089\:6b21\>\"", ",",
    + w; [, p; C. _1 Z( \6 A" i% A- R       "\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\  \1 x$ a- `: x* ^% Z
    \>\""}], "}"}]}]}], "]"}]}]], "Input",
    2 C7 G4 B- v* _  {! J: y& x9 Z; y CellChangeTimes->{+ [4 e7 e# K' b6 ?
      3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {* T! p; \. |/ T; P
       3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9,
    8 k: p7 @' Y7 o   3.5779585491624975`*^9}, {3.5779592802577715`*^9, 4 |9 M; d7 }" D+ M8 }
       3.5779593014270086`*^9}, {3.5779594039971876`*^9, . w" K2 I% Q. [# }8 ^. ~
       3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {$ P3 C$ w. a" |8 o& D7 }8 _
       3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9,
    / b9 i. @# J. |   3.578012920859375*^9}],
      M; i+ Z6 D( F% n; [* [3 ?
    7 ~8 {- J- ]2 uCell[BoxData[7 M3 a6 c+ X3 P7 e
    GraphicsBox[{{}, {}, $ s3 U7 C1 ^1 i5 H
       {RGBColor[0, 0, 0], LineBox[CompressedData["
    ! }3 ?( N& Z% q# k; Q1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM" \# U5 B' l: j7 M' I* l
    /g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
    6 p" V2 i3 g8 g8 j7 h  l9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P$ `- p/ ]  x7 P$ c/ G- k( v: p  v
    ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
    / _; R9 m' @% DqPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
    $ ~1 Z' S5 k) `+ M. r1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
    7 U8 r8 ]+ i; D; c7 H0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1. ]3 l3 w1 H% f* H1 [
    sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH# @( p' w; U7 c2 Y6 @7 b& _
    99yxuG0PAHw7nyU=; W- ?4 Q, B" T# j  }* D
         "]]}},
    - [  T; L. V4 ^, A! w  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],. F* _$ m  m- C3 y
      Axes->True,
    % U  f  _. j- h6 J+ Q  AxesOrigin->{61, 0},
    1 D- r* h, C* s: |  d  Frame->True,
    ( L+ q5 ?& {) ]" n$ |) p  FrameLabel->{
    3 L1 c, `& _! g0 K- e    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    ( T7 `* C1 g  Q& h( @* @$ Q    FormBox[) @6 k1 K# `5 g, q: [$ w) H" i
        "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", % P( W) T- X- V* R
         TraditionalForm]},
    * e- b, u, D# d5 m, y  PlotRange->{{61, 89}, {0, 1}},
    & }1 y- H- r. o" ~# P  PlotRangeClipping->True,2 j* }! {  x5 y: J9 l- Y
      PlotRangePadding->{Automatic, Automatic}]], "Output",
    . X' l& ~2 K+ Y1 P: a& }9 W CellChangeTimes->{
    ' X* d0 m4 x( t! F! W  3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9,
    4 W4 x- B; \! B: k8 t. M   3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9,
    2 z9 n1 T8 g' N; H3 _   3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9},
    ' c1 N/ K* D' h   3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9,
    ; L) ]2 i" W- F5 s  J" R8 ^* p   3.57801247209375*^9, 3.5780129225625*^9}]& Z- e; u" Y% M$ U& _) W
    }, Open  ]],
    1 E; I3 T5 F/ s' m
    8 p* y$ Y7 {1 D& h6 L% aCell[CellGroupData[{: O$ ~# T9 |9 n' S( x8 @

    ! o3 S; t/ {/ _' DCell[BoxData[
    , j: d0 @  _& Z) Y5 Z. p RowBox[{"p2b", "=", - G) ]  n* l6 J5 V
      RowBox[{"ListPlot", "[",
    . H# u6 t5 i+ `) |: W% d   RowBox[{"y20", ",", ' t! Z  Y" _3 r) {2 @% x
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 1 Z9 W9 n0 ]6 p7 h! o1 s, B8 l
        RowBox[{"PlotStyle", "\[Rule]", % c$ r+ n- y8 s1 K
         RowBox[{"{", 2 v4 N$ `$ x3 M
          RowBox[{
    $ s4 O- d, o$ }4 o+ [6 g       RowBox[{"RGBColor", "[",
    ) I, u# q6 g" W; a% t4 E$ U: x        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}], & ~# [* @" Z* z1 \1 u. D/ B
        ",",
    & ?' P7 b8 G$ Z- Y    RowBox[{"PlotRange", "\[Rule]",
    ( C& m# ?' m- K' G' h- v     RowBox[{"{", 7 Q4 L: J5 c( q& }5 b4 O
          RowBox[{( b+ ^5 q, Y7 `- Q
           RowBox[{"{",
    ) Z8 Q4 A  `: n        RowBox[{"61", ",", "89"}], "}"}], ",", " `7 P6 I, D! m4 t
           RowBox[{"{", # S$ l5 d( Q4 |* i9 t
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", " G* E/ n9 O4 B1 |  d; f* X- D
        RowBox[{"AxesOrigin", "\[Rule]", ' c: V  Y, Z7 \- e3 i
         RowBox[{"{",
    # h0 S9 M; t# q( s9 ]      RowBox[{"61", ",", "0"}], "}"}]}], ",", $ ^3 ?* S6 Z3 y% Z& n5 F( z7 c
        RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",7 _* M. c& q7 Q# o. r' ^; T0 [
    CellChangeTimes->{+ l; y4 F! o9 p
      3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9}, 8 x+ X  C: N( t9 M- L- q
       3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],
    / T1 r: e. H- P, \$ G' I
    8 q0 @5 W" _6 P  z" A; _  vCell[BoxData[
    3 Y) U/ f7 h# L5 i2 L) m GraphicsBox[{{}, {},
    . i" C, \, T8 ?; t4 c$ I) N. _   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    . |. Q2 a8 |& ]1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn6 R4 I, M& m- T" o( T8 Y
    8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV8 S8 X$ o, N# c6 K
    c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
    " `" {& O  `8 n' W! D" {iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
    0 Q7 q. A" O! `2 Z2 i* @% xTZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO" t+ n& D* S7 u  F2 F% [" r
    fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
    , |* S3 @1 u7 [, H9 ZTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG, m& O. p/ A1 Q9 x
    p0OYg4Fg/tz63VfsAdsCnzU=
    ' Z  b" A0 ~1 ^" Q; |4 A4 E7 z     "]]}},# B1 `3 M" n+ Q8 t9 s: j& X2 z9 a
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    7 E$ P1 X. o* s+ y% u( e' T8 }) w  Axes->True,
    ; [1 H! b2 ^( L- @/ M8 J  AxesOrigin->{61, 0},( ]# S- L  [0 r8 q' T! w5 L
      Frame->True,2 ]3 a+ R" c( i4 A3 |& D% U
      PlotRange->{{61, 89}, {0, 1}},
    $ l+ c$ C4 d  B; |1 t4 U  PlotRangeClipping->True,; [6 ]3 u- _9 r9 J+ O+ z
      PlotRangePadding->{Automatic, Automatic}]], "Output",
    # g6 T3 ~( ~" E- Z CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, 8 R+ U/ W) v. y2 O* V
      3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9,
    & K0 \+ ^: [( g  3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9, 4 K0 S( q7 o& d5 x
      3.578012484703125*^9, 3.578012925875*^9}]
    , m5 I* V0 ?9 f}, Open  ]],! z, k$ o. B1 P4 J4 z
    $ L9 y5 S1 M0 B' T! M. X& _
    Cell[CellGroupData[{* r8 m: _; F* E7 j: ]
    ' @+ d5 n5 f: E
    Cell[BoxData[, g( b; O, z9 N  j: ?
    RowBox[{"Show", "[", - Y1 J' Z4 q( Q. l5 O( @
      RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],1 b# D- k& n1 s& i' e* b) b1 d
    0 Q+ p# f8 Y' n& x9 w/ L
    Cell[BoxData[
    ( y$ b1 s$ v$ s0 u# E GraphicsBox[{{{}, {},
    5 Q; H; r3 V' @( G9 }; \5 t    {RGBColor[0, 0, 0], LineBox[CompressedData[": [* [, g" }; t7 _. E9 U
    1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM% b+ s+ Z4 e7 D, p* y( k) x+ X
    /g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
    ( C/ S* J1 I+ G* b- M! c9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P2 F9 y+ e# t- R& U2 E
    ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
    ; I% n% n7 B# v0 ]2 ?- WqPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK  `1 t! F/ ]2 ]0 s
    1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx( L0 Q  i$ t) U) q( Y' U9 |
    0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1# I' d% C; c7 L
    sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
    . c: ^" x4 P( L$ w! y3 ^99yxuG0PAHw7nyU=+ H4 v, k& ]6 _9 j5 @
          "]]}}, {{}, {},
    & s; m0 M8 U: j  g7 U: T    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["5 w( ^. R" g1 F% w2 M7 d
    1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn$ u# {' m9 Q/ P, G
    8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
    ; J( t% e  R! c: `c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
      ]0 L0 e2 X2 \8 s; c( yiX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4& B/ w* v% ~8 r8 z4 Z+ H
    TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO, w# r; c/ ~- K9 l
    fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB( y, I  U% W/ R/ R) ^2 K2 h
    TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG) e2 Q" S* L# f3 z0 p, U$ Q% p
    p0OYg4Fg/tz63VfsAdsCnzU=
    , w3 [) l6 h* K      "]]}}},* f  D$ ~/ R: `. [5 M9 z8 h
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    2 X$ Y% J: x9 z" f, D  Axes->True,
    3 ~8 k$ u2 I% B) n  AxesOrigin->{61, 0},
    ( d& u5 x, c% N& A# S/ r2 c$ s  Frame->True,6 U8 f7 s/ E' p9 _+ P* p% E; i" ^
      FrameLabel->{
    9 j1 U& d% u' p: ^- r1 [    FormBox["\"\:7089\:6b21\"", TraditionalForm], 8 X% N# V3 L  z
        FormBox[* c: z' D; D: Z8 s  w+ R: j
        "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", ) Z9 j! f8 S3 {6 T
         TraditionalForm]},4 r( e' V/ w4 Q7 u
      PlotRange->{{61, 89}, {0, 1}},( F+ K9 O9 X" y) {
      PlotRangeClipping->True,
    5 R3 Q8 v  ~7 Q1 I; ?7 P3 p  PlotRangePadding->{Automatic, Automatic}]], "Output",2 `8 i, i% ^0 x* o9 i" I( O6 h
    CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9, + x( [# A/ k3 D2 ^8 W$ w5 G
      3.578012927734375*^9}]
    $ c) }! t% D2 T1 G}, Open  ]],; \$ w( L0 C5 c0 }* p4 N' P

    0 d5 G3 [, O* E$ N" T/ FCell[BoxData[# M  l/ S5 l4 Q6 ^1 O% y5 k- v
    RowBox[{"\:ff08",
    . q7 \! R  {! X% _8 Q) x  l  RowBox[{" w: x# v$ |7 y6 s6 W& k9 m1 E
      "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406",
    6 O/ y4 \2 D; \* p/ }   "\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621",
    7 q0 z) n2 u# ~4 q3 ~8 {   "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208", . E/ I1 j4 D, _4 W7 Q+ C
       "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0", / L) ~5 r7 G) X! G, x  J+ J
       ".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\; A) o# s9 }) G- y& G0 D
    \:4e3a0", ".6224", ; b, `- ^' @) F* a$ ^- H* A9 p  \  M& N( i
       "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],
    ; |5 q# L" I. Y: O9 b4 R& d   "\:ff09"}]], "Input"],2 k9 P2 m9 y  t4 W
    + `: _2 f0 m, o
    Cell[BoxData[
    * ?- L; C" W& @$ { RowBox[{"{",   z5 |" A, N: `/ U- m$ I4 v
      RowBox[{
    2 B- q- o  _8 u& K4 V7 f( X; f  "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",",
    + f% {; D% l3 [$ x5 o# [" s' z0 |   "\:5439\:6c27\:91cf", ",", ' b1 ~  \! M& _0 Q$ m5 B* I
       "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",",
    7 A* T: d3 ^* G( `7 G4 [% |   "\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",",
    ! Z- w- z  Q7 Y" f4 U2 X* z   "\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",",
    ) a6 Z  i0 p. v. F   "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",", , a! L7 X5 e$ B5 e' I
       "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",",
    * s2 {  i! u* W5 s& r9 g# Z3 G   "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],
    7 {7 J" E4 S1 n* t- z. h0 V
    * _+ n; t5 `8 h1 W% y' NCell[BoxData[" "], "Input",
    4 M" d! e- P. F' [ CellChangeTimes->{3.577962834553033*^9}]," ]( d  v6 M- G2 K- {& A& T

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

    回顶部