快捷通道

QQ登录

只需要一步，快速开始

  注册地址  找回密码

数学建模社区-数学中国

留学>>
返回列表 发新帖
查看: 10670|回复: 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
    问题完善一下！或者把代码贴上！4 r/ E& C" j8 m- S
    回复

    使用道具 举报

    琳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 7 ~; X) @. x! l( B' O" v% P
    神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
    & G' P4 Y8 p* E
    (* Content-type: application/mathematica *)
    . r" o+ m. C0 M& i; B; J6 n; Z: b# u; j2 ]8 @
    (*** Wolfram Notebook File ***). t8 L5 m/ N! Z, G; F$ ?- _: A
    (* http://www.wolfram.com/nb *), P- b/ I1 \" K

    ) Z% c( u' }" N6 h& a  D(* CreatedBy='Mathematica 7.0' *)3 r7 D( b8 a, B4 k. U5 c8 i

    + w- D- h" z: Y* j7 s: G(*CacheID: 234*)" x) D7 I/ d6 b" ]: a) Y& A
    (* Internal cache information:
    , F) Y6 [) H: \5 U$ n7 N9 B+ @' d' _NotebookFileLineBreakTest
    $ c# ~. C& e5 m2 [" cNotebookFileLineBreakTest) g8 A, Q% `" o* K0 Q; E. J$ p5 }1 n
    NotebookDataPosition[       145,          7]( b  o0 f: ?- R$ H7 W
    NotebookDataLength[    423629,      11534]
    - [/ }: X$ H% }! ONotebookOptionsPosition[    412607,      11173]
    ! |( l/ I, Z$ _) e! h) a/ qNotebookOutlinePosition[    412953,      11188]
    7 H: {4 `0 |8 S$ DCellTagsIndexPosition[    412910,      11185]7 S# H; Q/ v7 e1 a
    WindowFrame->Normal*)
    ! @- ?! V0 \( p, A
    $ |* z, i- H# _- U9 r) _9 i+ t! ](* Beginning of Notebook Content *)
    & |/ g3 `7 [8 e# Y  a# }  r; ?Notebook[{/ L* t3 s7 N  u$ j. f6 v* `; I

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

    , p3 Y! j: g, B; aCell[CellGroupData[{
    4 S+ P- Q1 ^! ^4 A3 L& a: v
    0 v1 j( l4 z* bCell[BoxData[{1 X$ ]; F1 [4 i' y5 u
    RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]",
    9 Q# \; a& N0 g1 ^& ` RowBox[{"M1", "=", "1"}]}], "Input",
    " i/ a1 l/ D% i0 d CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {) o: q7 _1 y( X9 A/ S4 [" A: @
       3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9,
    7 c2 a6 K2 J3 a  G* n% I  P$ ?# l! c   3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {
    3 v. o& l) W' v& Y, f& V: G   3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9,
    . M2 K! ?; A, O' x   3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {3 k3 L) u( O" U, ^/ G8 I
       3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {3 ]$ U) {: W* \: x4 _
       3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9,
    0 r  z! T: }, i   3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {0 Y- n4 @! `* B
       3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {( H( i( u; l# l' U8 H. O5 r
       3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9, 9 W4 l9 |0 O2 a6 ~# |/ }1 N$ e
       3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
    . J2 {6 v: Q/ y; ^1 J, x4 h* q/ ^6 `/ P$ i' B0 ?
    Cell[BoxData["0.2`"], "Output",, X  w9 ^" c8 Q4 K/ C. y
    CellChangeTimes->{; Q( b3 {' D; S- T, H4 `. Q  R
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, 6 a9 Z% r2 G- l3 Q1 {- y! [9 X* M9 G
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {& B1 E. J* u' y* l
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    ( a% K6 \& E8 P- [" T1 N  |5 m   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {3 }* H4 r$ c" k- [9 y
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    7 t1 y% o; H& s2 x* u   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    & B4 ?  G$ ~4 ]! `: o  {. z& o6 o   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, + s* Q1 j; A) W' D; s1 Z
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {8 l: o9 s  M* g4 j# B; E5 `) V
       3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
    % t$ p' Y  V' `+ ^. R. p   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    ( C7 Y+ x% R! O6 @9 }3 p4 N$ H   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, % B+ I) P- M% r/ O9 ]: Z( T
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    " h. P- v. E, l) Y   3.577960510686717*^9, 3.578012149296875*^9}],
    : H6 L+ O9 y6 |$ ^6 U: R9 d
    2 ]$ ~+ f# m! H0 V5 G3 E$ k& lCell[BoxData["1"], "Output",
    2 V8 j  _' F5 {7 `/ O/ C CellChangeTimes->{0 j! V: `9 `! i% z6 n
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    3 |) V2 L+ S' g! B   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {/ f7 w- U5 J! D6 U, i
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, $ p, N2 V  l( [$ f4 a
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {  {" ?  \$ t) `- c4 k
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    $ w; ]1 Y, n* {, x6 n   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    & U3 h* }" M) i' a& q2 b( J! G& `1 N   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, $ p6 i* t+ m. q# A1 \/ [( u
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {6 }5 R7 f- r. E2 \' C
       3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
    5 \3 j, y- {( c* x% O1 `6 k   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    ' T+ A3 G) ]+ h' P+ N) m   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    5 Y$ v) `/ k/ e( Q4 z   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    ) @& t9 ?7 l3 u/ Y9 ^+ Z   3.577960510686717*^9, 3.578012149296875*^9}]( |  f( y! U1 D+ q0 m# P4 i$ t
    }, Open  ]],
    , z: z9 I! p3 ~
    , g# T3 c. e  x% g" i! [! `7 H1 YCell[BoxData[
    / K, ]# b" u7 U. P0 E  K- }/ h9 }- v RowBox[{"For", "[", $ {% ]% K. j% u8 v# y. n$ m6 e+ Z( p
      RowBox[{
    ; J  `" F' i0 V   RowBox[{"k", "=", "2"}], ",", * a5 g0 H0 a/ m( |3 o& ^
       RowBox[{"k", "\[LessEqual]", "60"}], ",",
    . ?2 ^* J" A" I8 ]) G' c   RowBox[{"k", "++"}], ",",
    ; F) Q3 z! Z6 U7 K0 d: Z   RowBox[{"{", "\[IndentingNewLine]", 0 B. M# U9 B- B6 G$ T
        RowBox[{% M+ t( D" n- J# U% ?) P- \1 O
         RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
    " t* f6 [4 r: r: I     RowBox[{"For", "[", 4 F/ n& r! p: z" E1 F/ Y) c
          RowBox[{
    . K! I; h* A" @3 ~1 h; U7 I2 t       RowBox[{"j", "=", "1"}], ",",
    + Q& Y' _& c* ?0 p, E. j! d2 R+ o       RowBox[{"j", "\[LessEqual]", 3 B7 e$ n. k; P# J. |, P# a
            RowBox[{"k", "-", "1"}]}], ",",
    . t! D& p1 h( m0 c: x       RowBox[{"j", "++"}], ",",
    + u  t; j, s7 u) o) @. I       RowBox[{"{", "\[IndentingNewLine]",
    - B0 Z! h% G4 Z- N) C        RowBox[{
    # t/ y. _( g8 ~+ M0 E# A         RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]",
    + N- ]- M7 [3 [, Y! h# R         RowBox[{"For", "[",
    + Z# U/ w& n% l2 h8 x3 d4 B          RowBox[{8 d9 q, R5 O" I
               RowBox[{"i", "=", "1"}], ",",
    / j8 i% ~1 t5 n6 j' m6 Z           RowBox[{"i", "\[LessEqual]", "9"}], ",", # Q3 ?" k* q* p0 P( x
               RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    5 e+ o) Y% p4 ^6 [1 M           RowBox[{
    : P) T" I8 Z8 D' s2 `) ^            RowBox[{"r1", "+=",
    ' y/ }( J" A$ n. B0 p             RowBox[{7 Q$ g% d5 r! L9 _. X8 o
                  RowBox[{"(",
    $ K3 \6 V5 n0 v( `2 k$ y               RowBox[{
    ) s( f  I1 a4 @8 f+ o$ W                RowBox[{"CM", "[", & ?' L& Q- m8 J7 p
                     RowBox[{"j", ",", "i"}], "]"}], "-",
    # J8 w1 R" S7 l1 ?' g9 r                RowBox[{"Data", "[",
    8 @  Z2 L0 H  ~1 W( ?                 RowBox[{"[",
    , X( t& u1 M: j4 P; p, o+ y# n4 b                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
    + {/ I; l, W. c1 |: _% D              RowBox[{"(",   k8 |0 f3 J! \5 ~9 A: h' r
                   RowBox[{
    8 M) W7 _. A* T                RowBox[{"CM", "[", 0 |# X0 u  ]0 y# x9 ]4 \1 g$ g6 H  m
                     RowBox[{"j", ",", "i"}], "]"}], "-",
    ! x. C: o& `7 z. H6 ^1 m% d                RowBox[{"Data", "[", - o" j2 x7 M4 v6 K6 u
                     RowBox[{"[", 7 a( ~3 Y; N/ }# X; ?. B
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
    % k; l  s  O, r! @. E. f  d           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
    / N( ~. S! n- C* ^3 A- D# }- q         RowBox[{"r1", "=", 4 y  n* u2 o, e# x0 i3 ~8 {
              RowBox[{"Sqrt", "[",
    ' d* s, ^8 f' P- @+ Q           RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]", 5 O6 K3 x3 [3 M) D9 @& \
             RowBox[{"If", "[", " ", # \) q: Z& K) F3 z
              RowBox[{. d3 V, }0 `0 `& `
               RowBox[{"j", "\[Equal]", "1"}], ",",
    " R3 A+ l+ a, o; l* G           RowBox[{"rmin", "=", "r1"}], ",",
    5 t+ ~7 R# L& P& Q! i! d           RowBox[{"If", "[",   ^6 K- B2 o& o* h# m
                RowBox[{
    9 J: l# I1 Y; b0 ^  F* k1 D" U+ P( c             RowBox[{"r1", "<", "rmin"}], ",", + c8 A, L& @- d, C, Z
                 RowBox[{"rmin", "=", "r1"}], ",", 5 `" g  Z! J/ E: r
                 RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}], ( O$ f$ d. r! V: B
            "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";", ) h2 L. k0 l# [+ R; ~7 ^
         "\[IndentingNewLine]", 0 g: z5 @5 J" J4 g
         RowBox[{"If", "[",
    & ?: J) P/ p+ I' p2 D( ]* t" ^/ D      RowBox[{
    ! a. ^* U" ]' X6 z9 W       RowBox[{"rmin", ">", "r0"}], ",",
    5 {3 y& Q% ^! \" d& Q6 O       RowBox[{"{", "\[IndentingNewLine]", ) B! h2 L8 @5 V( j
            RowBox[{
    - c: ~- z0 f; Z4 |! c1 L/ Y+ F& M- N& W         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]",
    ; E0 @& A3 E" Y/ U4 T$ x         RowBox[{"For", "[",
    , O9 O7 A" `2 E* p9 I* ?          RowBox[{, [( i- d# r( V, y
               RowBox[{"i1", "=", "1"}], ",", / `# j) F. Z  W( x* y3 a3 h
               RowBox[{"i1", "\[LessEqual]", "9"}], ",",
    2 J1 j9 Z  F0 `! U. h& z* M           RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
    9 {' z6 `1 T+ z7 Y# N/ t           RowBox[{5 ~( T7 u& U( C$ E; o, z
                RowBox[{
    4 u( N/ h# W/ s             RowBox[{"CM", "[", ! R& S/ |/ d4 ^0 d, z
                  RowBox[{"M1", ",", "i1"}], "]"}], "=", ) s6 F0 J6 L6 T4 Y2 q8 ?  x$ }8 M+ F" _
                 RowBox[{"Data", "[", # h& b$ K- I( G% w3 o
                  RowBox[{"[",
    6 \  Z- U' o! |               RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}], ' ?0 O3 k  o% |" K1 M5 ^
              "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", ) K% \7 P# h9 M1 _( U9 p
           RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}],
    - f' n5 W1 ^7 N  R+ @! U" n5 Z0 v4 M    "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
    ' G8 q5 E0 d- d5 P3 l* K+ v# Q. s0 }" a CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {4 A9 a0 X# D* h; ~) M6 Q
       3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9, 6 _4 ^0 Q! L7 l% g) m% r- C
       3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {
    * u& R/ ~* w% v: T; f5 r6 }: k   3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9, # J" h0 S/ a# N+ P& c- p" _& r- @
       3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {, |: \8 n. [/ n- y& t2 `* p# g0 x
       3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9, 0 T1 h2 t3 W! `" R  F- m* d* l- E- p
       3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
    ! ^8 m+ j/ b5 d7 H   3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9, 8 C" M& o5 o2 [6 t  S1 g
       3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
    , N5 j+ ^4 g$ X3 y   3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
    ' s+ G, ^& J7 f   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {) {9 n$ E! [, a, u; }! y2 P  b
       3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9, , W% H1 i- Q) @( U2 n) R
       3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {
    3 T# }- j. k, m  U* y+ v- D   3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9, & L% c* Z  ]$ L" w8 n' X- a8 j
       3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {5 D$ u0 u8 `% ?' q' c
       3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9,
    6 \  j0 B0 ?9 c. H5 r6 t4 a   3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9, " z$ @' ]1 Y) r; E: e; R* D; g
       3.577958821991373*^9}}],! j# z# S: I1 e! t7 k- m9 G
    : \+ K! r! ^+ y( h1 D0 T
    Cell[CellGroupData[{5 k1 h* z' a  k, [) e- ]* m9 j
    $ B3 w+ y1 H& F" d8 _7 Q" H% {
    Cell[BoxData["M1"], "Input",
    ! V1 K( p; Y9 v CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
    6 c  \. m6 q/ F2 r" N, y- ?4 O/ N! y( f
    Cell[BoxData["21"], "Output",
    3 M% D; }' v7 ^8 i CellChangeTimes->{8 p/ |6 W/ B; f. c& G
      3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
    ' k- B' |/ V' Y   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9, 5 |+ l) y0 l+ e1 R9 b5 C
       3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {1 t( K( y9 o2 T% q  ^2 G
       3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
    " J+ y9 \: X  i0 b% ]6 [: B: A   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {+ `& }) W$ P# C' G/ C5 g9 [
       3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9,
    & Q1 R/ ?4 N7 U0 D   3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
    ; q8 j% e, ?1 D7 p: L7 z, ~& L   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
    8 t. G  j  f7 f9 G' J9 K   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
    6 a; V  g5 O# P4 v# s: g7 d   3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, % z( x, V( }) q% u' e% s
       3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
    0 H$ J! E( N& A( |( A   3.577960515600726*^9, 3.5780121541875*^9}]
    % S- r8 A/ ^% b0 [( y}, Open  ]]," P, M. O# F: J$ O& a8 \
    . D" v+ K$ l. {! A7 P% J
    Cell[BoxData[/ S3 Q- X" [; s: p
    RowBox[{
    " x7 q" K1 t& q1 |8 B6 G  RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", 2 j# i  f' G+ ]+ L
       RowBox[{"1", ",", "i"}], "]"}],
    ; u& S, |# T/ ?& J  RowBox[{"\:5230CM", "[",
    . e' h) V1 h5 B) E$ h2 Z. ]9 ]3 l0 w   RowBox[{"21", ",", "i"}], "]"}],
    , G, p2 M1 q  u  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
    & g9 [2 t1 X  E$ r1 D& c" i\:51fd\:6570u1\:5230u21"}]], "Input",
    / n1 v3 \9 Q5 F7 i. ? CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {: k" c$ g' I: Y, X% v$ f
      3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9, . L- m: V9 b+ P  v( H3 D
      3.577960526583145*^9}}],2 x* k) r6 P4 s5 U# d+ q

    1 N7 [8 n0 K8 ~# ^& Q) S* y1 lCell[BoxData[
    / c: P6 K$ f) J) E RowBox[{"Clear", "[", "Delta", "]"}]], "Input",2 U$ X4 O+ c! y4 c! {# C
    CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],& C( r; j$ A- o9 Z+ T
    / X4 }- |5 B* I, ?$ e' E
    Cell[CellGroupData[{
    " d" r7 h0 W6 F3 m
    " u3 A2 V! }- m/ Y. U' vCell[BoxData[' P' C1 @% o2 \
    RowBox[{"Xa", "=", % k3 N/ N( W, u4 Q! c
      RowBox[{"{",   a/ g. _1 ?  C
       RowBox[{% ~1 h7 J! Y: W9 k* X
       "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", 4 s1 E4 R! g( s& m
        ",", "x8", ",", "x9"}], "}"}]}]], "Input",
    ( j  C6 @& ]2 U' [ CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
    % ]/ a$ c2 ^4 ^( p5 s
    ; a: [8 T, A# J0 \; xCell[BoxData[( B6 n5 X  u, v" o9 b
    RowBox[{"{", 1 M1 h$ J1 X6 p$ A
      RowBox[{
    - b) E6 n0 Q" ~+ m6 F: G  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
    & Y; |/ K: W( d' f) }: F    "x8", ",", "x9"}], "}"}]], "Output",
    ; ]) q& @( K  y. \0 F CellChangeTimes->{
    % ~, M: t% {4 A$ g$ s: Y  h  3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9, : e6 U8 T, S* _1 t( e
       3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9, # G1 @. a% d7 k) y' N
       3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9, 8 U& q4 J/ I! L" D2 p2 M; Q1 I
       3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
    2 S9 M; p: y( f1 h7 m* c% y   3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {% m6 h% F9 {* s- u  B' t2 Y7 ]
       3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
    # V) g0 i$ C# Q( y9 \5 a: h, h   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, ( \- D; O8 l& v4 C
       3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
    5 f6 D4 e. n4 z- M) f   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {( Z6 W2 P2 \) j, E, Z$ \% t! s0 g
       3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9, 1 o4 A2 L+ F+ ~
       3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
    " F- }1 s  C7 O+ l  Z# Z/ `$ X$ p   3.57801215725*^9}]# X7 I8 T+ j& C- z& V
    }, Open  ]],6 M; t4 z) S: Z1 \; R' N
    / q- s+ V" ^5 _, |- g
    Cell[CellGroupData[{
      C, P5 r6 I' X4 T1 E/ R3 U: |$ ~. {. R2 B9 f
    Cell[BoxData[' p( r5 o8 g; E
    RowBox[{"Ca", "=", # o2 @! E( T7 y  n6 G
      RowBox[{"{", 5 F$ n- Y/ F' Q, ]' e
       RowBox[{
    1 |: c# G6 C2 e' ~1 W   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ) ?* ~  G/ _2 S8 W
        ",", "c8", ",", "c9"}], "}"}]}]], "Input",; e9 b( e- @2 t- {9 S
    CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
    4 t" I2 x, `! L+ @! G  R! `7 N; d3 F; r  W
    Cell[BoxData[
    5 L" X* y7 n8 J/ P* j6 \- V# s9 v RowBox[{"{", ! Q+ g( s4 M6 {" T; c9 @: J
      RowBox[{3 z$ \5 e$ P! m* Z3 E2 q5 B
      "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",5 D8 `# j0 j% t+ D$ L& T+ B# s
        "c8", ",", "c9"}], "}"}]], "Output",
    # z5 C* |+ t( T" m' M4 w4 W" d6 j6 h& W CellChangeTimes->{- D9 x& w7 O# y
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
    , N- `' Z5 X# G# U   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9, & h4 Q" m, {& j4 B7 `, d
       3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
    ! F( J: p: W" K7 T1 a   3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {0 N  T+ v0 w" y7 F* s6 c: M
       3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, 5 l' e1 c" D( n& @* ~6 q( p
       3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
    4 ~) {( Z9 W" y' ^# G; R1 x) F) L   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
    - O: b6 S- P" |* j1 a" X4 s0 j! Z   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9,
    0 z) D* Q) N# W5 o/ m- s! {  t$ m4 Z   3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
    % o6 Q# q/ t2 h# s! ]   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
    7 Y2 D1 k' }9 x% t8 o- x   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9, - z6 n3 x, n& A2 u! {: w; c/ p
       3.577961904604212*^9}, 3.578012158671875*^9}]
    ! |# @( \, ?4 m$ K  f/ `}, Open  ]],+ P6 v1 O/ h0 e
    0 A: [, ]6 h2 `# Z; G2 M: t5 Q
    Cell[BoxData[) ^- O1 W- e* g( E; q
    RowBox[{"For", "[", ' P% ?- b4 B% j+ i( a
      RowBox[{
    5 O3 L' L' J8 Q9 E" ?   RowBox[{"i", "=", "1"}], ",",
    $ e. A" w: [$ s, s   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    + o) S) _* p# ?5 G$ L' A   RowBox[{"i", "++"}], ",", ( f) \4 p' X: j  {. X
       RowBox[{/ W5 Z) x0 u6 E7 `9 Y4 L! ]5 L
        RowBox[{"Ca", "[", & D0 e  z9 k; Y$ j  F
         RowBox[{"[", "i", "]"}], "]"}], "=",
    9 C3 S# |0 w; J% b! n7 u3 c    RowBox[{"CM", "[",
    - M4 p. `6 p! W, `  M     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    9 {; i! W8 ~! t" T4 ^9 E- V  h CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
    % O# t/ ~+ X$ C2 r   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9, 2 J' F1 p" s  ~0 C' N
       3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9, * @+ N8 o# \5 e' b
       3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9, 1 d& L" S, V! A+ K# \
       3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9,
    ' w4 w4 f! Z! s. L- b( G  P" O0 h( N   3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,   S$ p( ^% Z( b* u5 H5 T/ Y) X
       3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9, " `" y  W- E% j( Z- v* G. A. N
       3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
    8 [- \, D  d; b   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9, ' h  @2 P, ~! r8 e
       3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
    , [4 E; h$ l9 h# I   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
    0 V7 S" q# u+ Y" k7 `- K   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9, 4 m  ?! n# U; P% v( P9 E
       3.577961906897415*^9}, 3.578012176296875*^9}],
    , E( K! }# m2 _* \. m" Y8 m: C! X$ y' f' m  K5 o& j! \, C
    Cell[CellGroupData[{8 z% C& Q, G6 Y. |
    9 h; w$ `5 M8 l3 y0 \( |
    Cell[BoxData[% W& `  Q3 L% O) W3 V8 Y) _
    RowBox[{
    ' @5 |# L( [" u# B2 D0 J  RowBox[{"(", 5 ]* X' y/ {1 c+ ^
       RowBox[{"Xa", "-", "Ca"}], ")"}], ".",   }2 J, b; E: @" S4 g/ i: F
      RowBox[{"(",
    4 U  Y7 i* p: H: ?; e( p   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],* |2 N" _- H5 v/ |- O

    6 ?; ^  R' [( p% I. bCell[BoxData[
    3 P& B( V$ T7 k8 D/ B  M2 j0 z RowBox[{' \$ [) R$ K. _
      SuperscriptBox[
    * Y  g) e4 V& x* p/ R- D3 b/ R" ^# g   RowBox[{"(", 3 p/ R+ V2 A1 y  ]$ u0 [" i( @
        RowBox[{
    ) n6 _+ J/ v* a% x, b, P- J     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+", + B) M5 ?( C( X8 u: E9 n( `6 J
      SuperscriptBox[
    # E" `/ f9 ]% C& q   RowBox[{"(",
    # w- @/ J( k6 D; K& h    RowBox[{* @2 R: u! ]$ g+ t# B% ]( \
         RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
      D$ m/ K: @$ s6 T$ Q  SuperscriptBox[, J. l0 d' v4 K% b: Y1 l
       RowBox[{"(", 5 q1 T. o# M2 n' f. C
        RowBox[{
    ' R. v* N% M' n, n     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", $ N+ y( z, O2 q7 H+ L$ g+ d
      SuperscriptBox[
    4 F( ^5 P$ \4 {+ \; I   RowBox[{"(",
    , H+ u/ p  ?6 h2 u% Y& r$ J    RowBox[{4 F+ I4 m, j$ I) n9 z3 y4 o# `7 H. r, `
         RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
    7 D- i; N% h/ u/ n9 X( j, M  SuperscriptBox[
    7 \( h0 K& Z) d   RowBox[{"(",
    1 {4 U+ d- @# o* s1 A8 O) t& ~  G9 G    RowBox[{0 y5 Y( f& B4 Z  C: @
         RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+",
    7 v2 f* O# O# u  SuperscriptBox[
    8 \6 L+ S6 s: d   RowBox[{"(", ' m) `! e: I) Z+ P( P2 b9 c9 ~
        RowBox[{
    , E# t6 Q- b9 M0 P     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+", ) i3 E7 b% J1 A# D- W- ]
      SuperscriptBox[0 y  S- J. K: g$ i$ T
       RowBox[{"(", * o& K; v# C( a4 Y& f
        RowBox[{
    - d/ A* M  e5 _( ?     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
    # W: u# O- {3 w! q0 i  SuperscriptBox[8 f( Z. m( V/ N% l8 @6 l
       RowBox[{"(",   d' X0 p4 G/ _) e) ~/ p
        RowBox[{
    7 W) W. q, ]% O     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", + X, m+ ~, v6 K/ N; ]
      SuperscriptBox[
    0 u1 R, D9 v. b5 q* |3 B& A7 o   RowBox[{"(", 7 V# Z, }1 S9 e
        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
    7 T0 m/ B1 W! n- m8 d CellChangeTimes->{
    4 i* r5 `- c" V4 |7 d& G, R, f  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, + m( R4 S* ~  R
       3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
    , Y, [, j6 a  ^% K  V   3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, + ?5 D0 N# S# P4 ?  X
       3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9, # j1 \" M7 Y; f  H9 D
       3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, 3 @% |+ ]( Z- d, i. }& l7 F
       3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
    * I( S5 ^- ?5 F# U! e  |   3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {. t* s, e; \8 D  q7 I
       3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9, 5 A( N" s. }. G) ^. m
       3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {( r! _) \: {0 ~4 n5 g+ g; p; T
       3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {6 f' t6 L" r1 u3 a7 e
       3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
    - N# q: ^9 ]+ T7 o$ o7 n   3.5779618537169228`*^9}, {3.5779618846049767`*^9,
    ; K8 y  d6 b! T& j/ J5 p: _- h   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]  m: O) ?( S' B8 z' `
    }, Open  ]],' Y& s3 K( W, v
    ) C% I6 k# h% q. N: e- b4 N# ]. K
    Cell[CellGroupData[{. r9 O8 D0 B% i* G" ^% H

    ) s8 Q; M, ^2 i+ F( _Cell[BoxData[' c. ~1 {- W& p4 b, D- q. `$ Y
    RowBox[{0 S7 s# W* K! E  t4 H6 }
      RowBox[{"Ca", "[",
    . |( f& j' q, t; k; o) J1 m  g   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",
    : w. O) Q% J- t1 j/ d2 o6 D7 d- I CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9, & L' S  @* r3 f! c
      3.5779616465173616`*^9}],5 A  [) p: q# j$ f0 H- ~

    # C9 j/ C9 I' J7 P8 N) ?3 jCell[BoxData["0"], "Output",/ I+ l. I! N& J. q  [- w# {1 |
    CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9, 7 {. }2 }2 m; e3 ?' \! D: A: T
      3.5779616484049644`*^9}]$ W; `: j. ~' X: C6 z) A, B- b
    }, Open  ]],% [, V5 h! W/ V4 z

    * Y% ^  n  A" e3 w1 ?2 i/ kCell[CellGroupData[{9 ]+ R* B0 C& o+ l' Z. I- y+ A0 l

    2 V5 _; l* q. {4 i' W8 |" q. ^Cell[BoxData[
    / o4 B! P1 ]8 o0 u8 I  Y& y: f3 B RowBox[{
    % Q( |' f% H9 O  RowBox[{"Ca", "[", * ]4 B2 s5 W" E$ _3 {8 o
       RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
    ) Z. w7 U1 P: a3 H$ d2 v3 W CellChangeTimes->{3.577957376235614*^9}],; n# \: ~0 A$ l7 V# G4 v& Z
    5 g+ a4 H) w- a
    Cell[BoxData["0"], "Output",! [0 M2 V0 _3 f1 z
    CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]) g# C% R, F* K* P' t- M) ^
    }, Open  ]],0 I, E' U& C3 `. u

    , x# S+ M" X3 P! s( f0 Y& B, t* }6 oCell[CellGroupData[{
    4 w9 D+ W4 \5 R  y9 W
    7 X$ v, f6 J" Q7 Z) C$ mCell[BoxData[
    ; ?& g9 U" ]- l+ D- U RowBox[{
    ; G+ C2 e1 j$ k  RowBox[{"Ca", "[", 7 z5 M: U6 F! I& E- D
       RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
    # I7 h' ^- B' w) t8 v$ a% Z2 _  L CellChangeTimes->{3.5779573112927003`*^9}],
    ; a5 g; Z+ [, C, j3 h
    ( G+ r- g/ {0 _! YCell[BoxData["0"], "Output",5 j, i# n9 ^( U+ e  @) Z6 U: X
    CellChangeTimes->{- u5 N7 {. I/ \* q; }
      3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
    ( H5 j: U& L* B, \   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9, 1 {+ d$ C- C7 I$ v% _
       3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
    6 C: W0 X+ V3 D# f! E- `2 Q   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
    / \8 Y) @* b8 n+ D+ K   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
    6 ?. w( @+ j  `/ F& U3 ~   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]; |% T. z- s4 _
    }, Open  ]],
    4 L8 `5 K- ]5 A( M, f2 g' w/ O4 q7 I- q0 n0 `. i8 J* k! r
    Cell[CellGroupData[{% D1 R$ F) H  o2 B/ q

      j; y. O0 ?6 P9 A* R& BCell[BoxData[- b- C# k9 |8 r1 I
    RowBox[{' L1 H/ j* k) }! Q8 B
      RowBox[{"Ca", "[", / H5 O' ]$ c  R; K4 g
       RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
    - z: f! t, j! x" o, j- q CellChangeTimes->{3.577921461734375*^9}],
    8 f- X! `( K" [4 W0 Z5 t( m, x2 g7 r* C& Z0 }( x
    Cell[BoxData["0"], "Output",
    4 d, ?. U6 f7 Z: @. G  t CellChangeTimes->{$ C% c; w! [$ a9 b5 L
      3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, ! A: {% l( ]% M0 s' k. M# {) N( \1 Z
       3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9}, 2 M8 \# R1 x! x( i0 u8 @6 I
       3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9, 7 F1 P' Y3 q; p/ N
       3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
    , T' ?9 V3 x1 ^   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]
    1 m  \4 F9 R# H2 r' s! @' z% {$ ]}, Open  ]],7 e  E4 q8 L) b5 a+ u1 w

    7 r& J0 p8 ^- L6 k: p' r/ T9 q+ i- cCell[CellGroupData[{
    3 }7 x8 F5 p. o& D* H5 A) u2 k1 F! l5 i- Q6 B
    Cell[BoxData[9 B1 E5 Z) P- h% ^( p) @. T" c
    RowBox[{( [  G9 R4 e7 b4 ~* p2 i" U4 I
      RowBox[{"Ca", "[",
    : ^5 m$ d9 f# B: x3 O   RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",2 P4 P1 ?: p  x
    CellChangeTimes->{3.577957303118286*^9}],  W$ f9 _% `0 O( J  f! B
    . M. T/ y/ q, ]8 a2 Z
    Cell[BoxData["0"], "Output",! V% O1 t8 ?' G: a4 c6 ^' Z0 I
    CellChangeTimes->{
    2 m9 ^: A+ U" ^8 ~8 w) z& D0 c  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
    : d. f4 p  p7 K0 P   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9, ' q" }$ B9 V2 G  v- Y0 l
       3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
    1 ?- M8 [. o3 r6 g   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
    0 h* B* R( s: w: A* T! }& [7 A   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
      C7 q8 D9 A; f0 B" i9 b   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
    9 V; O/ Q% E' T' ^4 N% P. w1 r+ [   3.577961889378585*^9, 3.577961912965826*^9}}]
    & V& y! d1 A& I. I* ^( v% R! L9 E}, Open  ]],
    " [$ o: [3 k8 v0 b/ ?6 X- m& r0 M4 [; F1 G0 |/ a" z; ?
    Cell[CellGroupData[{
    % i# o) S  ?" I7 x  _( l' Y* K! `# P% _9 D4 E; j8 m
    Cell[BoxData[
    ( @* g8 e: f6 j6 k/ c RowBox[{
    2 G2 V4 m3 r+ O: [  w5 T/ k/ o) O) U  RowBox[{"Ca", "[", 1 U0 }7 o. B1 T
       RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",* }& \2 h" G; e% w9 P- N9 w1 B
    CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {1 v! E# v& G1 O$ |# u0 U2 J5 W; U1 s
      3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
    $ F' z) a& q1 A1 i3 i  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {3 \" I; g6 P0 A) d2 j" P
      3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9, * f0 r" x/ _, Y
      3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
    ' \. W& W  p  m) z  3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9, 7 j( R+ `1 z7 I  r
      3.577921435703125*^9}}],
    , E) @2 U) {5 E1 o( p; V4 ?$ I9 r, ]8 e8 Q0 I
    Cell[BoxData["0"], "Output",3 O) s9 `8 p( ?
    CellChangeTimes->{
    - ?0 M' r+ S+ m% h4 R  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {7 v: T" N# L# b+ q, K0 O" ~2 ~
       3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, % M. r' Y, Q1 |6 Q, b# L3 ~
       3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
    6 b1 w2 d* G9 s6 {; |7 g   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
    % M! f3 r+ w$ V/ I% @" q   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
    8 p. w6 Q2 f6 A7 @   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9, $ b' Z2 n3 c6 q; W- L% |- l/ n% ^
       3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
    3 B9 b" X, a$ Q7 K" B& i7 U   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9, # `9 I- M1 d' E. U. `
       3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {% T9 M: L7 ~( n9 |) k5 [$ ~$ F
       3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
    * A4 J5 G& X2 j; m% U   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
    7 t" L* e+ X+ V, D  C% g: Z5 G, R% [   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
    7 G, S" ?1 M; |  n& D) i2 c   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
    2 A, g/ Y( L% E1 w( g}, Open  ]],
    . u. x: n/ p- F
    " C$ x; u2 c* @Cell[CellGroupData[{/ c6 o; h: t% K) A  p
    4 ^$ U- y8 ^1 T9 E- U
    Cell[BoxData[: L4 T- n4 ?3 d+ j% i. T" V
    RowBox[{"Delta1", "=",
    / D5 O: V, S; S, a# c+ v( G: a  RowBox[{! b* u5 {) A/ Q* K: f1 x! X
       SubsuperscriptBox["\[Integral]", ) g' L; e! c) R: h7 {
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], # B" z+ ?& _% r7 v5 }
       RowBox[{
    1 K: b4 D) j4 F* H    SubsuperscriptBox["\[Integral]", ; L% |; g# z; @+ Q
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    0 y) n) h* n7 z& N    RowBox[{+ u8 Y& I' J" t) m$ D
         SubsuperscriptBox["\[Integral]",
    $ I$ z: L' h( J( S6 d! |& u      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    , T1 H  G% C, F% B! w     RowBox[{
    - t2 h$ D1 z* n4 P1 V3 b' Z$ _      SubsuperscriptBox["\[Integral]", * ]9 j: D  Z/ ]  t, K; r% e
           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ' w7 |; y! G3 X2 d" N      RowBox[{
    & ^: w0 n) w8 ]0 C) M, I       SubsuperscriptBox["\[Integral]",
    ' I% W8 ~: ]8 W+ m8 ]" P        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    5 w, i* V; r0 k8 S( Z6 Y  W       RowBox[{. g6 f' o1 W4 l
            SubsuperscriptBox["\[Integral]",
    2 g7 S0 ~' A% p/ T" k8 n+ F         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ) U& b4 Q& F4 J5 |  _& ?        RowBox[{: ^) h% K9 b/ P! B
             SubsuperscriptBox["\[Integral]", $ u6 a' ?* U! _/ J# }# k
              RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    # t  \3 o" w( a& t         RowBox[{% l& \+ H( Q9 f1 x5 ^
              SubsuperscriptBox["\[Integral]",
    2 T$ s5 m7 m. R8 g9 z6 r! y           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    & P0 a' L1 K$ G* U7 R2 x! a; b          RowBox[{
      }+ z4 G! t( C9 L: h% J$ _* L" A           SubsuperscriptBox["\[Integral]",
    . o0 S/ t6 P" _- c* ?            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ; l2 p* d$ t! \5 A9 p! w2 [           RowBox[{
    * ?$ e# b5 }, @( g( g) F6 Z' v            RowBox[{"Exp", "[",
    ( g* _7 A; Y+ W- E% a  k             RowBox[{
    / b: N  N# C8 B/ A/ ^( l3 {              RowBox[{- p0 Y6 [7 M( G% {! Z
                   RowBox[{"-",
    ( \5 J, D6 R4 L6 }  H4 {# ]                RowBox[{+ q- h+ s2 z" o% B" J! p
                     RowBox[{"(", , b: B! A; f4 f6 n
                      RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 4 h$ P- {$ R5 d; x" N' J- l3 n+ f
                     RowBox[{"(", + ?9 K& u% l, M0 q
                      RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", 6 I5 w1 D, B' A
                  "Delta"}], "]"}], $ j* x) ~9 ?. Q/ ]9 P& h
                RowBox[{"\[DifferentialD]", "x1"}], ; B7 I$ L6 g* e8 E
                RowBox[{"\[DifferentialD]", "x2"}], + f/ s! J6 Z! N
                RowBox[{"\[DifferentialD]", "x3"}], 4 ]; P4 @0 m+ q6 ]. s/ ^
                RowBox[{"\[DifferentialD]", "x4"}], ; m2 x: k5 m5 n  s) Q- j
                RowBox[{"\[DifferentialD]", "x5"}], & N# `5 _/ _$ k7 Q! }
                RowBox[{"\[DifferentialD]", "x6"}], ( b2 H1 `$ R. [6 [& {- j+ Y. s
                RowBox[{"\[DifferentialD]", "x7"}], : z* `& Z. X  j2 J2 s
                RowBox[{"\[DifferentialD]", "x8"}],
    2 w" S2 R  e3 X% a( U* @            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
    7 {( d5 j3 x' L6 [( a CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {3 K- G$ _3 e) r# s! M
       3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
    ) V' v9 e+ }/ R   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {; s% r6 s- h" _! p5 [) K! A
       3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9, " w. S% D! l/ E7 X: [
       3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {& r) l* b/ D* K  Z1 _2 u
       3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
    # `/ h1 X" Z5 M) R1 ^   3.577918964453125*^9}}],
    8 X4 p2 t# @! {" y. @# ^. |* J# |$ {" V- Y
    Cell[BoxData[
    8 Z. e' I: u& @* l8 [6 Q RowBox[{"97.40909103400237`", " ", 4 |; g5 z5 d7 G
      SuperscriptBox["Delta", "8"], " ", 3 o9 n+ K" x' K& n/ ]9 @
      RowBox[{"If", "[", 9 X- `  Q! V+ X1 N" L0 |
       RowBox[{
    5 L% F) V7 F% _8 v1 n4 |    RowBox[{) _0 y. q% ?& v2 k$ Q3 z3 V
         RowBox[{"Re", "[",   Z' f* @; _9 I$ X5 o
          SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",", ; N, `" ^: l" ^7 u2 {
        FractionBox[3 l  o( k1 }3 W+ y! c
         RowBox[{"1.7724538509055159`", " ", . C! k/ d' J; L# m4 x. B3 a2 P: W
          SuperscriptBox["\[ExponentialE]",
    + |5 u( h7 B9 x. s       FractionBox["1.1102230246251565`*^-16",
    " F, u- x, f+ u1 k, s! B1 O        SuperscriptBox["Delta", "2"]]]}], 8 u2 v5 ]$ Z# x1 W
         SqrtBox[7 m& I3 Y! N( N/ o0 j7 y. D
          FractionBox["1", 3 d& [4 \+ [2 F3 R( j5 K
           SuperscriptBox["Delta", "2"]]]], ",",
    + V9 k# Z! a& o1 ~* R    RowBox[{"Integrate", "[", - {+ f8 p- s# Y; H7 b! d
         RowBox[{
    4 e+ M3 e! s1 w" g      SuperscriptBox["\[ExponentialE]", 4 [6 m3 _1 ?# j: f) k( y2 q
           FractionBox[7 q6 o' h! \8 W1 K6 o6 o
            RowBox[{"1.1102230246251565`*^-16", "-", ! b' P! v7 x5 H$ R+ s& J
             RowBox[{"1.`", " ", # ?. A, u# o) ]3 A) G6 F4 p; S9 F+ V
              SuperscriptBox["x9", "2"]}]}],
    . t: y6 Z. W# o" k3 i! y( q4 s        SuperscriptBox["Delta", "2"]]], ",", 7 N' f4 u( W* H1 Z
          RowBox[{"{", 7 [" H3 a3 n; G, f8 r
           RowBox[{"x9", ",",   T2 Q+ k0 d* u  Z' o' V2 o
            RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
    - R( T/ Q" n4 U      RowBox[{"Assumptions", "\[Rule]",
    . `, t3 c0 ^4 |  c; q, l  A       RowBox[{, {% E7 `1 u# B; n4 L
            RowBox[{"Re", "[", 8 G/ d8 Y3 {, J$ L, J7 j
             SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
    , m- Q4 K5 ]" V. s9 D# E     "]"}]}], "]"}]}]], "Output",, z" ~1 l  v/ ~: Y- k" I! t
    CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, 6 U$ K: m2 Q% z
      3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9, 3 y, h  u2 v" a0 X0 I4 A! ]; ]6 j  ]
      3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
    ( w) ~0 [& r/ B+ W- a+ y6 e* H& r% l  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9, / K7 ]- H8 `2 T( ?0 x
      3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
    ! j# U- x8 L3 v  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9, " j+ x$ T% ~- G  k/ M7 i, y" Y; B
      3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]/ a( I  T, |, C. I, c/ k% q
    }, Open  ]],- N) s1 z- J8 n  R4 W  Z! j
    . C. f% R2 v6 l% ^
    Cell[CellGroupData[{
    5 i# A6 z" p6 d- k& P% l" o5 u3 T0 _( ]6 W8 E' P; _
    Cell[BoxData[
    . E6 y: I6 U7 \* v3 R* J0 t; ^: A RowBox[{"Delta1", "=",
    " L6 t7 _; F$ F# J  StyleBox[) Z; F  h, K$ c+ S" X5 e; X
       RowBox[{"97.40909103400237`", " ",
    # d- b: l7 c5 C; o! c9 g    SuperscriptBox["Delta", "8"], "  ", 3 ^' p# N7 U4 y" U
        FractionBox[/ U) B. B( ^6 s. j$ T8 l8 x: [! k$ {
         RowBox[{"1.7724538509055159`", " ",
    & c1 b/ ?" \. n) ?8 B, f      SuperscriptBox["\[ExponentialE]",
    ( w$ ~- c* G% H9 c5 q5 g8 G/ t5 c       FractionBox["1.1102230246251565`*^-16", * E; Q1 F9 G& ]
            SuperscriptBox["Delta", "2"]]]}],
    % m- D3 c1 \# l+ R2 n1 u     SqrtBox[
    7 h8 k6 q0 R/ p4 a; X. v$ q      FractionBox["1",
    9 \! {. {/ Y% S' J       SuperscriptBox["Delta", "2"]]]]}],- j# U: ^0 U7 P6 T; M& B
       FontWeight->"Plain"]}]], "Input",+ q4 q4 h6 M2 d+ k& }
    CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
    $ s+ C# D3 K, l  [: A   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9, 7 h* i( i& J% S* |% y2 I  A
       3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
    9 g& F1 C8 ]# ^/ ^   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
    # c+ ~7 \8 m0 Y8 `* u! h5 n   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9}, 0 k2 Z$ V; S1 Q4 g6 O
       3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
    ) y! J) a) x$ T6 V7 U
    8 @% m" ]: }! DCell[BoxData[
    5 H$ @3 P2 ?7 ]. F9 T FractionBox[' ]6 {. ^* H  Q+ x) r
      RowBox[{"172.65311851642346`", " ", 0 F5 g. a5 N$ a8 F2 l
       SuperscriptBox["Delta", "8"], " ",
    : _+ |* Y: N4 a* V! ?5 H% ]- K% o   SuperscriptBox["\[ExponentialE]",
      M; g# u8 b' U  d    FractionBox["1.1102230246251565`*^-16", : B3 J6 d  \& }
         SuperscriptBox["Delta", "2"]]]}],   Q. Z% [9 K7 ^8 u9 ]2 O( K1 r
      SqrtBox[% M4 L) n& G8 _9 G
       FractionBox["1", # |4 H/ B% ]4 H* F" U- Z
        SuperscriptBox["Delta", "2"]]]]], "Output",0 `: m6 W' ~& C4 J" \8 ?
    CellChangeTimes->{% @" K% `+ Y+ r3 E0 z1 b9 I% e
      3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
      c+ P0 A% c! `' m8 s" A" ~   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9, % u1 F$ m5 U: C9 X! ~! x4 G
       3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
    - q! [3 Q; ]  i0 r9 H   3.578012166234375*^9}]
    , d- ?, |( }/ _/ ^* _}, Open  ]],) i1 z- Z5 I% w5 J9 q6 |

    - \$ [$ Q8 D- ~5 D' ?$ h" v* uCell[CellGroupData[{
    ) L5 j, Y: \, `
    + o, m# |: \& {& `$ O  _Cell[BoxData[9 p2 N/ E/ B# t' c3 o2 f
    RowBox[{"DeltaX", "=", / O! e, M; o% n
      RowBox[{"FindRoot", "[", & P% |2 F* U3 W  |6 A% P2 X
       RowBox[{4 f  {$ P3 T) x7 Y/ }& s0 N# q
        RowBox[{"Delta1", "\[Equal]", "1"}], ",", / j& P& ]! E; j& V. y3 ^2 O
        RowBox[{"{",
    ! F& R. W; ~0 p3 @2 z4 U$ r6 O     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",) N9 l" \% j% D$ F
    CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {/ E: r! F+ x6 @3 T+ u& w/ ?% o
       3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
    ' [, L- w# T( J: \   3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
    % `: M* W* `" A7 s   3.57791921584375*^9}}],
    8 |. K' W; b" q  A( B9 X" z% S3 F9 F" S' @, W
    Cell[BoxData[
    ! l3 t' E4 F  ^ RowBox[{"{",
    ! M  m& s: t2 c! b" r  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
    / s# A5 o# N3 R% i7 _( y9 y( r CellChangeTimes->{
    * I* U- Z0 ^4 O/ [0 x  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    " \3 \$ j, d) v9 ?9 d   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
    ( M- P$ f% E' h& K+ x1 J& H% T   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9, 2 x+ e. O- v$ v$ ^0 V4 V" K
       3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
    : s4 r; b+ C6 h# x: M   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {% d+ K) Y* z+ X& c) f  h  N" t
       3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
    ( y" Z; |/ C! b( W. g* S' A   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9, ! [2 V, z4 b' |! U% g# k; L
       3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9, & y4 r, I2 I# u" a# c+ G
       3.57796070150625*^9, 3.578012167703125*^9}]+ L& R* r; N! i
    }, Open  ]],- F/ N3 T' W  L1 f8 ^+ x; R; @

    4 [2 u) b( X2 t6 J% n8 |) l$ m& ^Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
    ; L# s, J( O# ]* k1 y\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",) R, h" A; I3 J; T+ j( H6 C. P
    CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
    " x3 I( y/ \% W/ ~  z' W- T  3.577960705312657*^9, 3.577960707621461*^9}}],
    7 J5 D, v1 I$ Q. X- ~0 S: ]
    * a2 k8 ?/ Y% R9 Z8 D8 vCell[CellGroupData[{5 X3 d# ~6 _$ i$ M

    , h+ ^4 p; o# H4 r) S3 u% R* MCell[BoxData[
    1 r& v. w9 j! l- L/ X RowBox[{"C1", "=", "Ca"}]], "Input",
    ( P! ?! H  Y! G# @2 \- ] CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
    " p6 r7 w% U% B4 ~: @. }0 n9 J1 Q7 H4 s1 G: B# v# o
    Cell[BoxData[
    7 p% C" m5 \4 H! f0 W$ k& D RowBox[{"{", 2 f1 h* J( j+ D0 i/ U8 _6 G) [
      RowBox[{$ t4 I% U7 h( a2 T  A
      "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", 8 }4 p# B) ~+ n/ N' G7 K
       "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
    9 C% h$ U) W& N. w% ?% K   "0.`"}], "}"}]], "Output",
    1 Q! x7 t0 ]9 [, ?1 ^; _5 d CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,
    " X1 w* C' X/ ~$ t  3.577960710273465*^9, 3.5780121855*^9}]' g! I" ?( C  c2 k
    }, Open  ]],+ f3 f2 T: W. c* a( t" [6 ~: y9 a! a
    $ b+ u* t: ^+ Y2 ?( {
    Cell[CellGroupData[{3 W- c% V; V* y# h* P9 Q, o" F

    . T2 ?* ~, G0 f0 ^Cell[BoxData[9 t" ^" K  C0 W( k/ T: j# j. }6 _
    RowBox[{"u1", "=", ! W; x1 S  _% }1 Z2 |( j; d& N( L  `
      RowBox[{) P: [8 B2 o0 J$ F0 E; u
       RowBox[{"Exp", "[",
    9 s( z) }" B) S/ I# [    RowBox[{  v" C7 t" Z0 e
         RowBox[{
    ; Y6 c8 \6 u% D$ M2 M* w6 d' h      RowBox[{"-",
    * N/ ~* e+ d+ r/ I/ O       RowBox[{
    , X9 _( C) e  D2 E: W  m        RowBox[{"(",
    9 a* ~  g+ L- V7 A! _         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    9 X* |: G5 K) R1 n4 Z; n        RowBox[{"(",
    ; Y; c3 f' T  m$ n8 [8 |         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],1 b/ i% p- o5 _* k
         "]"}], "/.", "DeltaX"}]}]], "Input",! W3 [; g- \1 G4 F  v( y
    CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {) e' M- f- r- H, Z* R: Y
       3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {. i% c5 l) \* }8 g& j, N7 a. x/ J6 H- F
       3.577919193484375*^9, 3.5779192326875*^9}}],
    1 W* ^3 A5 L0 \# e: F
    ' `, l+ y# x( O, [( jCell[BoxData[) K* s4 A0 ~$ ?( `, \
    SuperscriptBox["\[ExponentialE]", 7 s7 D5 Y6 w4 @9 N
      RowBox[{"3.141592653589793`", " ",
    # l: k1 {: C; Q3 Q! N+ o/ P! e" @   RowBox[{"(",
    & M/ `" b9 d' T" B% a3 n1 l  t    RowBox[{
    ' ]: Y( r$ C, z8 J4 C. E6 x. X: n     RowBox[{"-", 4 h, a0 W3 O4 C( p- @% R
          SuperscriptBox[3 U. K6 I( |% c' h
           RowBox[{"(", 9 i# V# e  A9 ?5 F; l3 Q
            RowBox[{
    9 v) q0 d) M; D% G         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", - }$ o9 y- ~% X7 e# N$ a$ w
         SuperscriptBox[, ~( @- E4 f) E1 a3 D( C: A
          RowBox[{"(",
    / @$ d( e# t, {/ }4 I       RowBox[{
    & W( i" i/ l+ I) \: I! u5 O% U        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
    1 W$ T; n. a. v+ n  Y& I     SuperscriptBox[9 g  H, B/ s# ]9 B1 p! Y; ?
          RowBox[{"(", $ ?" m( Q' z+ l; L) K/ {
           RowBox[{
    / C: K0 j8 s# U! F, ~* s+ U/ n  `        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", 1 w$ Y& u& e* M) ~) t
         SuperscriptBox[8 @5 @* Q  C. T" ~" `
          RowBox[{"(",
    . k; K% T4 R) e) W       RowBox[{/ ~! F7 V8 K  D, b  c+ Q5 |
            RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", - K" g( b* z. y9 Q2 V
         SuperscriptBox[
    " v* M  y4 r% p/ Z2 z( l* K$ ?      RowBox[{"(",
    7 w8 G, v) U& v- ?+ z$ O- t1 l       RowBox[{
    + J+ t  r) L, e1 y; S4 c        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
    7 ~2 G! K1 n4 K9 ?3 c4 A5 x     SuperscriptBox[3 v) [0 Y. q" J% X9 c- m3 L
          RowBox[{"(",
    7 |# X2 J' G4 M; P" |! R       RowBox[{9 G. \$ B6 T3 W6 ^
            RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
    1 }8 ~9 h3 F+ V2 `8 `! x' m     SuperscriptBox[
    ! U! o4 Z, f1 _6 \$ F      RowBox[{"(", 2 |- d3 w7 B$ g6 u3 P* |7 C2 s
           RowBox[{
    * m# B2 O/ ]/ h* v# o* b        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",   K; g! w' }- D- d: F( }# \  r
         SuperscriptBox[
    # G& l9 g* H' W8 k! R; M      RowBox[{"(", ! G) t1 `4 V9 t# k( a+ a- f9 P0 p
           RowBox[{
    ; J# }3 a; v* X5 ~        RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", % i9 J) b! T# Z1 j9 P
         SuperscriptBox[3 N. d- O: V& f" l9 s
          RowBox[{"(", 4 V1 [# i2 a  _! H- z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    # g8 `4 S. f2 D/ q; V    ")"}]}]]], "Output",
    " Q# ^& V; r" N; G" s CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
      @( y+ z# Q' W3 f9 J  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
    % s1 S5 V8 `! {$ w- R7 P# \  3.578012187078125*^9}], i. N( t, _8 [. }; u
    }, Open  ]],
    ' J9 C$ g  Q7 U0 \3 U$ B5 x) }5 z
    & E% s% l, p9 F" _1 gCell[CellGroupData[{1 B0 z' I9 s8 O8 |
    % a2 l- x& m5 @: v; q" s$ ]
    Cell[BoxData[$ z5 m; Z+ n9 V' {5 |4 r( Y
    RowBox[{"C2", "=", "Ca"}]], "Input",
    5 B5 X! a  Z& x$ a, f CellChangeTimes->{3.57792047321875*^9}],
    # L/ ]- L# F( F4 x0 R& |) ~" v/ p8 e' g
    Cell[BoxData[+ |1 J0 @+ K( l3 H. }7 X
    RowBox[{"{", . G. x$ Z( U: n$ ?+ I
      RowBox[{
    . E; H5 ]& J, M; g  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", * r8 n' g) v5 n) N, u
       "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
    2 q8 m* F! q5 t) M& c6 j  "}"}]], "Output",4 }+ k  i6 q7 F! k
    CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
    ) S7 J3 y- u1 T% B% _% C1 p  3.5779607401163173`*^9, 3.578012204671875*^9}]5 {8 T, t7 ]5 u4 c% G
    }, Open  ]],
    * t; R1 V6 S+ R5 m; f+ {7 q) R9 ?' m! k! D6 l- B& d8 M# h3 w
    Cell[CellGroupData[{# Y$ Q, `* ^/ C; A' D
    " X" @) t" q# ?
    Cell[BoxData[
    + e8 i6 ^8 q" `% w RowBox[{"u2", "=",
    % y5 E$ @0 M: P- G4 B6 D1 s  RowBox[{
    3 {  g- ^& I7 U9 T: W  r   RowBox[{"Exp", "[",
    % s& w  C) J) M+ ]  u    RowBox[{% ]1 B1 A9 S; L2 [1 a
         RowBox[{
    - |+ W* f5 Z: V9 p! }( H3 R      RowBox[{"-", ' k1 Q8 y: _2 }& |( p" Q% I/ T: d
           RowBox[{
    4 z, J" S$ Z) q) h( H        RowBox[{"(",
    " b+ t9 f1 `; q9 x7 ~% @         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    : a2 n2 X% e. y, F6 x. g; f        RowBox[{"(", $ z) N1 K4 w" l, F: c
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],$ M# M7 O5 l6 d
         "]"}], "/.", "DeltaX"}]}]], "Input",# ?5 X1 {+ F  t6 @4 q
    CellChangeTimes->{3.577920484109375*^9}],
    + u$ W% Z0 f  Z6 C0 e. B: G# t, [: |( g) {/ w5 s
    Cell[BoxData[' B6 K6 H/ h' e
    SuperscriptBox["\[ExponentialE]", : {& x6 w9 P1 x) Q7 y
      RowBox[{"3.141592653589793`", " ",
    ( ~/ p5 M. w5 S/ \   RowBox[{"(", 3 H! i+ O/ o% [8 G6 Q" \
        RowBox[{; Y- }4 H6 ]5 `! E( h) Y0 g
         RowBox[{"-", ) E1 n, Y) R8 E6 d( q4 w; d
          SuperscriptBox[
    1 D+ N8 a1 x5 f7 ^9 j$ T       RowBox[{"(", 1 N4 x: s7 Y/ B% [* b/ _( i
            RowBox[{7 P$ @5 ~0 Z- I# {, v0 t- w
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", + V0 l, D/ j' J( }$ A
         SuperscriptBox[
    9 f7 N( {1 \( b0 O5 [      RowBox[{"(",
    , W! @& r9 e& r2 q       RowBox[{
    ' k4 k$ \3 _' e% z# V. P9 Q/ z1 r        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", , k, c9 l8 T$ y: I
         SuperscriptBox[
    & N6 f6 ?& v& b2 ^  f/ Y      RowBox[{"(", . `  f; V; B0 k9 P
           RowBox[{
    $ K0 Y/ N: N3 w  p" \1 t        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
    6 n( L6 g2 A% D2 g& h) y0 H5 C! w     SuperscriptBox[& v$ E4 p. a2 s# J
          RowBox[{"(",
    ' F& v" ?) m3 j0 ?. ~       RowBox[{3 D. z) h  i' L& A
            RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", . ?! p) r* f2 ^, G7 ?, Z/ _
         SuperscriptBox[" y) d0 D; s, [2 k( S+ I
          RowBox[{"(", & a0 m( _- t. I" r
           RowBox[{2 q& o3 v; Y$ Z) {4 Q- |
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", 9 g, z3 @( y4 S- p" D" K
         SuperscriptBox[( C; b6 F" ~1 I
          RowBox[{"(",
    ! Z/ v2 \% P2 ~       RowBox[{. m4 `# U, l) F6 v
            RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", % o; E. [- s; B+ A" N
         SuperscriptBox[
    7 v8 s9 [2 _# s4 `: R      RowBox[{"(", + c+ F7 q2 q6 f/ e# E: [6 ^
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    ; e  x6 k' Z: g- e/ P( [     SuperscriptBox[
    6 G9 u2 D9 ~9 b      RowBox[{"(",
    . @  r4 T- P6 P+ i! D! T: k       RowBox[{
    3 s0 x3 X# Y8 p9 t0 w  _        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
    8 U6 v9 c/ `5 `9 X& z     SuperscriptBox[" C  D1 l4 O# W* m& f, @; Y, W: u2 p
          RowBox[{"(",
    ' }0 C) y2 ]1 v3 o7 l6 `$ r6 E       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ' V5 m8 R5 {  c) O+ m    ")"}]}]]], "Output",6 I6 n* _6 R2 h* C; ~. O
    CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
    + ^# B+ \* D% g% }0 U  3.5779607413955193`*^9, 3.578012205484375*^9}]
    8 f5 q$ `# o( E; w  z}, Open  ]],* D" b# i4 ~! ~/ W+ `
    . [# [+ F% k: q$ G5 Q9 d
    Cell[CellGroupData[{
      _% G$ R# M' @9 J) n% T0 n; X( M5 ~! n) t
    Cell[BoxData[' O9 ]# y& c5 A% v& L3 |& _
    RowBox[{"C3", "=", "Ca"}]], "Input",( e8 W$ l; w" ?3 }# L
    CellChangeTimes->{3.57792064125*^9}],6 |9 {" ~5 ~) U4 J) G

    ! z. c. b$ m% {9 _' SCell[BoxData[( |; d; j- s! E7 n+ k, v# ]
    RowBox[{"{",
    8 ~, X+ X( Q; ]9 v% n7 @5 c8 w  RowBox[{5 ]( J; j) v, i8 e& ?
      "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",", 5 y2 ~# V7 ^  p; k& b. s& G
       "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
    8 A  q- ?  c- j( I. S4 B* a' X  "}"}]], "Output",6 z' r0 \' L& g$ M: X6 b
    CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9, , m1 u' L1 ?. p) f1 o+ G7 l  J% e4 F
      3.5779607642027593`*^9, 3.5780122103125*^9}]
    ! E! h6 C( Q0 k) {  L6 ^: W. o}, Open  ]],
    ! N' `" @0 A; {& B1 {; b9 P: A/ J, H9 R' e$ V2 a) V/ P9 Q
    Cell[CellGroupData[{# A; {# r+ u+ _
    0 j8 a8 s* f8 g
    Cell[BoxData[, U. z! `* I& W
    RowBox[{"u3", "=",
    - E# d2 o9 x- q) j, X6 }; N  RowBox[{
    * B& q" ?4 [$ h   RowBox[{"Exp", "[",   J; {2 R  `! M, H4 m( x0 H
        RowBox[{
    ( x" ~( D/ e  `9 U     RowBox[{  K/ {* q  E3 g1 e* M  B/ a
          RowBox[{"-",
    ; a# V" R+ ?7 C       RowBox[{0 E! n8 g) ~& ?3 u0 R6 y* Y
            RowBox[{"(",
    9 S- k  g8 m& F( A         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 Z# B0 d/ a! N: Q9 z7 U
            RowBox[{"(",
    + w- @5 |" K$ T- V         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    5 R- X. l% Z" e8 m4 Z" D7 @6 S     "]"}], "/.", "DeltaX"}]}]], "Input",8 ]. a% c7 v7 r
    CellChangeTimes->{3.57792064921875*^9}],
    2 k) X- x7 ]3 D6 F, i! d
    9 {; s+ i7 Q4 N& n! {& tCell[BoxData[) v* U) O; M% G/ Z! }$ X
    SuperscriptBox["\[ExponentialE]", & S8 H& O# d; U
      RowBox[{"3.141592653589793`", " ",
    ) s* B! n1 \% `3 x, `   RowBox[{"(",
    * E9 H- j0 Q1 w4 h9 q    RowBox[{
      x( V! _  }. O& y9 o     RowBox[{"-",
    # S! f+ c2 J' O8 b      SuperscriptBox[' n+ i2 H2 R( W$ {( o4 [2 c- e9 X2 ~3 J
           RowBox[{"(",
    8 E- H: k2 c  d5 G6 B        RowBox[{
    / [6 b& l* H1 ?( N$ W         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", 9 M" S1 C2 j+ B# ?$ R! a
         SuperscriptBox[& S, W4 g& q+ f% |( X. d% q
          RowBox[{"(",
    1 G7 @2 W- G/ c8 K) X       RowBox[{
    4 ]8 s6 ?4 L9 Y        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
    , T4 s8 X1 b% m& o5 B6 m. J6 Z     SuperscriptBox[
    , n# p; U0 C; y7 Z4 ]      RowBox[{"(", - o" `# Y, j2 M: j
           RowBox[{
    2 L1 O  y) k" ~6 [        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", , H% z  G2 }/ b- m: G' H
         SuperscriptBox[
    1 q' g; p- f" J6 u6 P; M      RowBox[{"(", 7 a0 P# n# }; w- J/ I( V( [+ W
           RowBox[{- w. L$ W& j) X7 e
            RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", 9 I9 l; F4 @$ j8 b  R
         SuperscriptBox[
    ! ^& [9 G, @5 o+ {) C; B      RowBox[{"(", 9 E8 y6 D+ y6 \% U
           RowBox[{
    5 v5 h& E5 `% j3 q: C* w) t; D        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
    / Q* R0 Q$ ~; N3 r     SuperscriptBox[
    9 l1 `9 f4 I: \% f      RowBox[{"(",
    ! D0 O" W; y4 }. d# p  i       RowBox[{
    7 H5 U- |" p1 L$ M% ^5 W4 t7 n        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
    - \- @9 O( O" Z8 H     SuperscriptBox[
    & N+ F* m1 S: T+ S1 ?) Y3 y      RowBox[{"(", 7 J6 T2 T, C6 }! v3 d( ]
           RowBox[{. u" s6 T6 l7 M3 r
            RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", ; Z  K8 {7 f+ j2 m' N2 G0 i+ w
         SuperscriptBox[
    ' X; M/ a8 Y3 `2 w      RowBox[{"(",
    3 m$ J+ w- |: y# B       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    + b% l# N8 H+ [  |, j  f     SuperscriptBox[
    $ w8 Y7 l: F. n4 R- I      RowBox[{"(", 0 f" i& ^* r7 q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ! e4 _8 T, a$ q! w) ~" L! m    ")"}]}]]], "Output",
    0 j' n8 m7 R) f7 }) ]; N' W CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
    * `) P. h# r) H# ]6 C1 V8 F  3.5779607654819613`*^9, 3.578012211515625*^9}]9 \5 R7 U1 @) |1 p% b
    }, Open  ]],
    8 M) @6 L9 j. E# m2 k; U' G# [  s% E
    Cell[CellGroupData[{
    2 Z; ~! k- u5 i2 S) V: Z' V& \% s5 D5 `. M% g. X
    Cell[BoxData[
    - P! j8 ~! @  u# y( Z+ e RowBox[{"C4", "=", "Ca"}]], "Input",
    9 n0 d! M5 j1 e" c5 W4 o* s CellChangeTimes->{3.5779207559375*^9}],$ P$ _: I  p* N1 G2 C. u6 a  V
    ' w2 R- e" |4 o: }3 u$ y
    Cell[BoxData[
    / @! K2 m( u) U+ a0 O: z RowBox[{"{", 2 ^" o7 O7 _2 V) {0 w+ o* \# v
      RowBox[{
    7 l* I' O+ x( F  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
    " P3 T: m# D8 J, F) |, W   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], 7 I& Z+ t, V+ u8 {0 s3 S
      "}"}]], "Output",
    - k7 ]+ h$ C) c9 G7 ] CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9, 6 H+ h* f& I8 [0 ^; }# Y
      3.5779607861363974`*^9, 3.578012216171875*^9}]- [/ f8 y! n& _2 H1 n, u% P- ]( S
    }, Open  ]],# t& B, o2 O% @5 k+ a5 U* H0 `

    $ e# P' c; ~$ F* g" mCell[CellGroupData[{7 D2 l; ^9 t( ?  D- F, K

    ; ?7 b* L0 T8 z8 xCell[BoxData[
      [/ N3 H0 E. a) L% e9 j4 y, f! L9 ` RowBox[{"u4", "=",
    & t& j/ n: T) u# J& E  RowBox[{
    ! r: O# L0 N( b5 P& \1 f, m   RowBox[{"Exp", "[", : v$ U- D' H6 a# J7 U& T
        RowBox[{* W/ J9 p3 V1 }+ m8 p0 [( H; B* w
         RowBox[{7 }6 Q' L# m" F' R( o# t/ P8 N
          RowBox[{"-",
    " n4 q# _, ]# a1 W& v' a       RowBox[{3 ^" M( n: i/ N4 A! f! P# \* H
            RowBox[{"(", 0 r" n2 Q# `. K; Z& x; h9 [
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 3 u9 M( X( c2 r& j
            RowBox[{"(",
    3 I$ N  m# f) `+ `7 E         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],. x; f7 {1 l3 d$ w. ?
         "]"}], "/.", "DeltaX"}]}]], "Input",* ]4 L/ O( [9 C$ ^+ m
    CellChangeTimes->{3.57792076325*^9}],
    - m1 I* x% y0 K, @# F8 v1 e1 K
    1 e. t7 s+ N$ j, n1 a- h4 CCell[BoxData[
    0 \5 b9 d" Q" B  W  E0 d, V7 E' ^2 g; k8 r SuperscriptBox["\[ExponentialE]",
    7 M. V* j* V" v5 ]+ k  n) v+ b  RowBox[{"3.141592653589793`", " ", - P  u: T& b% L& l( I, a3 X
       RowBox[{"(",
    ; t& X+ G2 i; ?5 Q& Z    RowBox[{
    . v, [+ P3 C- {3 Q7 _3 I     RowBox[{"-", 3 i& q1 A! N6 B/ D4 Y) ]; Q
          SuperscriptBox[
    , M1 Q  k6 X5 o3 f       RowBox[{"(",
    9 z' N8 c; }; Z1 E        RowBox[{; l& c  s+ j& {  _% s5 d% [* b' X
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", + d" d, s8 I1 _" Z
         SuperscriptBox[- `+ P1 u- P% t7 p- e2 Q( N6 W3 ~
          RowBox[{"(", - W% C; J- g2 F9 F2 n( @: Q9 m4 A
           RowBox[{
    $ z* K. Y5 J# ^) f& K' N        RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
    : o7 t" ]: w' L8 [/ A) K+ V     SuperscriptBox[5 Z* V5 @/ _- n( W6 g
          RowBox[{"(",
    , Y8 z. w) E7 k6 K6 O       RowBox[{! |+ A  t, I2 o; G* G) r5 v
            RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    3 x8 V& h; F6 L7 _/ N     SuperscriptBox[
    3 d' F% b4 @0 s      RowBox[{"(",
    % H) q- O9 W% ~7 d0 d. a) w       RowBox[{
    " E+ K) C4 B8 n+ I" m        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",   B' i& x. k: k. e; h9 Y: o
         SuperscriptBox[
    : x, Y! ~  C3 X1 \; x      RowBox[{"(",
    ' x9 p0 i- G7 D, L       RowBox[{
    ; ~% a' f) J- K6 b        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", ; f7 P' W, _8 d7 U' o, `
         SuperscriptBox[
    8 `% k) u! ]. q6 Y      RowBox[{"(", ; e. C+ F3 G( m
           RowBox[{; `( }" @" |7 P1 S  H! y
            RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", % n! n8 W/ i  J7 ]
         SuperscriptBox[5 R$ [0 {1 a& w( u
          RowBox[{"(", 8 S5 H# c% ?3 E  |$ L8 N
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    % o6 K" ]4 S4 k3 Q; b     SuperscriptBox[
    ' a, H. C. o+ N1 j5 u8 t9 J9 j      RowBox[{"(",
    / B, S% w2 y2 F  F0 T& f3 x       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    2 k9 }' m# H0 f4 A     SuperscriptBox[
    7 b, k  D* K) ^! g, d2 W2 S      RowBox[{"(", + U0 H: X4 C: h
           RowBox[{2 z7 y9 E1 I4 d( s" }
            RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
    , x' p  ?8 b& ^( l( t. L    ")"}]}]]], "Output",
    9 o4 b/ q8 b' V9 Z4 x* B; _( V- h CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9, - a$ M2 E5 P1 l- ]: Z
      3.5779607873531995`*^9, 3.5780122169375*^9}]; c3 P* f% C" [: E6 s" p
    }, Open  ]],% L% K# C8 a0 r' h
    3 @' l. @1 o, w7 z! ~
    Cell[CellGroupData[{! y- z* ]2 _; D- c

    4 ?) G! Q5 a! g8 k4 z" p; eCell[BoxData[
    2 W( m: A7 y) x& ` RowBox[{"C5", "=", "Ca"}]], "Input",# F4 C, x+ k) u1 X
    CellChangeTimes->{3.577920860671875*^9}],! h+ W' ~* m. W" {+ ?; |

    # m7 G9 B  m" c; A9 @Cell[BoxData[( P. ?2 N6 ?. Z1 O! K9 i$ h0 C( x
    RowBox[{"{",
    7 M+ q; }7 z1 X2 F+ W. T  RowBox[{7 b* z% A' v# A% V
      "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",", - p( l5 ]5 ^+ `* X! f
       "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
    % J9 L5 W. i3 }" }, c  I  "}"}]], "Output",7 Q$ K1 x7 w$ k
    CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9, - B" d$ q; F! X3 y2 a
      3.5779608137328453`*^9, 3.5780122209375*^9}]6 k+ f9 p8 C" E) a0 ^/ g2 r
    }, Open  ]],+ c8 I- }* Y' u/ i: j4 k" n

    ) H( Z$ P9 P: p2 ^2 C4 u! ZCell[CellGroupData[{
    , ^+ B& m$ P/ e3 i' r& n6 b
    . s  \: @4 ]9 R) f# i, u: Z# {Cell[BoxData[5 O9 M* _+ F% |) \2 g
    RowBox[{"u5", "=",
    ! D, B& h( g' C4 y0 r  RowBox[{
    8 c$ ~! g/ U! q" c3 i; r% R   RowBox[{"Exp", "[", : j- f7 W4 S$ k8 ~
        RowBox[{
    . ^* n, Q" c: G) g+ n7 {% t     RowBox[{
    5 Q$ Y3 r, Z6 M0 W* k- M      RowBox[{"-",
    ( m7 z% G- H9 G+ V( J+ |       RowBox[{
    " L  \( |3 }$ ^% |' b        RowBox[{"(",
    4 P( q3 G& E3 c5 a1 g         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ( ^7 O3 G$ h9 }9 ?% j& K8 d
            RowBox[{"(", " ?# V$ Z9 y: G- O) I* e
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],3 a. F% r/ S- o$ i2 v* l( j
         "]"}], "/.", "DeltaX"}]}]], "Input",
    0 ?$ x9 M% E# j/ p CellChangeTimes->{3.577920869375*^9}],' ^! B( w* T/ ]0 Z
    - P4 L$ B! R' t' P- `
    Cell[BoxData[. {2 V; P' N* i8 U8 F. u
    SuperscriptBox["\[ExponentialE]",
    3 e: ]' l! U8 J. f1 s7 f  RowBox[{"3.141592653589793`", " ",
    ' C0 Z8 R+ g# M+ T) L   RowBox[{"(",
    9 F) N  O8 D- `" M    RowBox[{, I% C9 J7 m1 J/ |0 a  P
         RowBox[{"-",
    , D2 v9 \3 P6 K: N+ ]      SuperscriptBox[, g0 ^. M! F; k/ ^$ p8 U% R
           RowBox[{"(", & e! ]$ h% k5 `' F% [! U9 k5 n1 e- J
            RowBox[{- h3 z. U2 G4 ]7 t" f! e! C
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    / _4 x/ Y. s$ k' `3 \5 H     SuperscriptBox[
    ) n2 \! B0 t7 E4 y# E      RowBox[{"(",
    * b! o' x( L$ G3 t7 J% N       RowBox[{
    : h  D: Y- Q5 y        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
    ) g! m1 a3 F8 H     SuperscriptBox[) M, E& K5 ^# ^4 J4 c  ]
          RowBox[{"(", # t- ]' v% O0 p) M- u2 k
           RowBox[{4 M  X/ _8 v8 F! o" \
            RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
      x0 x5 ]. q( O     SuperscriptBox[
    * O1 t4 s& r/ G, O% o! l: ~      RowBox[{"(",
      P, Y/ w. _+ R+ f% E       RowBox[{
    $ o) v4 O( t8 R8 m; u# X) p$ e        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", . g  o8 m" U& k5 m+ ]: d- N- x
         SuperscriptBox[
    1 _! @7 L3 a2 K' J0 y: S      RowBox[{"(", ) e" y; V% U4 M- S9 }. b
           RowBox[{
    / x+ }, C! Y1 n; @2 Y! [        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
    9 Y( x* C6 E* Q$ N" C4 k     SuperscriptBox[
      t  n# g4 m* ?# A  |      RowBox[{"(",
    4 G2 P. m& j0 ?- v- y' Z, K/ T       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    7 Z5 I- j. L# K, _; f% v$ j     SuperscriptBox[
    " v+ b; M6 w7 g8 u* g3 e      RowBox[{"(",
    . v! |( \& T# W       RowBox[{
    3 P7 M& ^/ N6 _9 M, q% |. @% e        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", # G" B& s. B- \3 t! O
         SuperscriptBox[
    " h' @1 g  n, k; J0 n3 ]      RowBox[{"(", : E( M. a+ |( l& x1 V" b% a3 \
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 5 C. q) h9 I& A- E0 ~
         SuperscriptBox[1 \2 B1 [, u; V
          RowBox[{"(", ) ~; n4 C3 |5 ~
           RowBox[{
    2 _9 C' T& D- G        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],   M! q) B7 y; Z+ f3 o9 d
        ")"}]}]]], "Output",
    # f7 Y" z/ K; c  i  Z. N. e- {2 J CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
    ' p' p4 }/ {" u. O  3.577960815043248*^9, 3.578012221953125*^9}]$ b; U* N3 X* V- k
    }, Open  ]],
    3 ~& U; }3 y1 P4 E6 ^9 J0 @# c1 z3 |5 x0 m
    Cell[CellGroupData[{
    ( x1 F# Y% M8 u# J2 X
    : @; S! o3 Q6 c0 C0 X, V. WCell[BoxData[3 ]0 S4 d7 d6 u
    RowBox[{"C6", "=", "Ca"}]], "Input",
    4 ]- B' R; N" ?8 {. D7 U9 m CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
    4 D: {/ v' F# n2 Y& A- G0 j* N# e0 F! k! j& g
    Cell[BoxData[' f8 K7 R# F5 v8 A  u8 c
    RowBox[{"{",
    8 q; u/ `6 ?3 a- e  RowBox[{6 Z/ z% D; z# T0 o+ p& K
      "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", - E+ q! X% l. u+ }' q
       "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", ' K2 i" \* d( n' N5 A% v0 b
       "0.494866`"}], "}"}]], "Output",
    ( ~9 O6 T  s% ?* g( A; M: q% | CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,
    8 {  q5 w' p) b& G9 ~5 a' R7 C   3.5779608373044868`*^9, 3.578012227359375*^9}], o6 [  l+ u/ s  B5 H) `
    }, Open  ]],/ O; I2 \) J  M6 c, M  q

    % w' M4 R) l# C% wCell[CellGroupData[{
    , z5 z, B, L; B5 e' a8 j  w( q9 O( i% K6 u+ n; \8 g' k* q
    Cell[BoxData[
    / ~# M9 }' d% s( Y6 x RowBox[{"u6", "=",
    / y% b( C8 @! ~5 m1 M% N  RowBox[{; R# l. y6 F. G3 k/ d# w
       RowBox[{"Exp", "[",
    , M, B( ?" n% }1 s4 F' R* H% L    RowBox[{+ G4 t; Z- _" ^* |' j' ]
         RowBox[{' _( o7 d1 q; l9 _5 S3 g: F
          RowBox[{"-", 9 V9 B5 F, K0 M0 N- _; Q
           RowBox[{
    % h" R2 w* G) d, d0 d        RowBox[{"(", 3 q5 y$ d7 ~) d! _" Z& j
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ) k5 I, i9 C$ |1 ]. Q7 \9 T0 a* B, n7 v        RowBox[{"(", . Y4 F$ Y( E. y1 Q- t8 F5 H  g& m
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],' R2 k0 B. x0 e3 }, T( L: H# y
         "]"}], "/.", "DeltaX"}]}]], "Input",
    % ]; H' Z1 j0 ~ CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
    0 F$ j5 t6 k4 ~$ [7 t4 |* u+ a
    0 E- c/ x5 j/ K3 m# P. NCell[BoxData[* x  A4 k6 M  M/ C6 g5 o
    SuperscriptBox["\[ExponentialE]", , G/ h- ^5 K8 C0 n, I0 \9 S
      RowBox[{"3.141592653589793`", " ", 9 j: Z/ x5 O5 L
       RowBox[{"(", # y$ d2 V, u* ^! G
        RowBox[{
    ( |2 c* ~: x& y! g1 N7 r     RowBox[{"-",
    " b8 z* k5 A, n, r/ ~. `. T/ }      SuperscriptBox[* o: Z2 V/ w5 b( i* S, L9 b* A: g
           RowBox[{"(",
    " X, f( M9 Q" \; U; I8 S, G. W* Q        RowBox[{/ i/ ^" x! x5 v5 |1 I- s
             RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", ) E% u+ N+ |$ d; m
         SuperscriptBox[  ?# L/ `: S- G/ T+ T* ~
          RowBox[{"(", * t  |& y  m! g' p8 V* D
           RowBox[{8 l+ S; v  c/ v
            RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
    ; L/ h& V" U; Y     SuperscriptBox[) N9 j+ }/ z+ d4 I1 a, S
          RowBox[{"(",
    ) T/ `: ~# T+ P5 s3 e/ U% I       RowBox[{, `" }6 Y- X' P7 o
            RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
    . m& K8 n% A' U, H- P$ B# l     SuperscriptBox[( ?1 J6 x5 \: z/ u0 S7 M
          RowBox[{"(",
    ) @8 ?! O& V, i2 Q! e' D" M) J0 H       RowBox[{
    " P/ z2 }: Y9 `7 K        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", ; r7 @7 P6 G( }7 _  W
         SuperscriptBox[5 e% z6 k5 O( k/ }8 ~0 j
          RowBox[{"(",
    # z# d1 @6 w/ R: f; U% q       RowBox[{
    0 d1 ?3 {3 P) H        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", ! [- _1 Z+ j, V  v4 D
         SuperscriptBox[2 m8 R1 ]+ ~4 O4 z# x6 V; t
          RowBox[{"(", 3 U3 e' M$ A( }$ V+ I7 i/ l$ U' R
           RowBox[{; [' m4 U  K. e6 Q: n* O7 G
            RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", ) k# P9 {( P; P$ M6 }  C; D, y1 K
         SuperscriptBox[
    4 N3 e8 B& X$ W4 Z" x      RowBox[{"(", 4 j6 H+ @0 R* h) j# I3 V4 R/ V
           RowBox[{
    5 e  }# n" R! U8 k( H1 S2 q# \        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    + k: q- r& J# n+ t     SuperscriptBox[3 q" d6 J1 E4 i, U
          RowBox[{"(", 1 Q3 F5 Y1 G: T4 n1 G+ [
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    8 o* E. y- E& w8 Z     SuperscriptBox[( \' @2 {0 l; d7 B( ~1 e
          RowBox[{"(", & H# [. }- u8 T. q3 Z
           RowBox[{/ o# k0 i" Z4 C7 H, z0 z
            RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], 9 C: K* Z4 ]7 A
        ")"}]}]]], "Output",$ n1 b3 `) f2 l6 J
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 1 w* M( o' P9 ~% m# s
      3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]* O; p5 P4 H9 }- O0 l
    }, Open  ]],
    ( Q4 s/ E$ X* n7 J2 X
      x9 J2 T% L0 }0 T& J3 \4 NCell[CellGroupData[{7 h& ~6 `( G' B& @. P4 t1 {- C

    / l! Z2 M+ N' a' N8 u6 @, {- gCell[BoxData[
    % _- _. k7 u# p6 A( e, U9 G RowBox[{"C7", "=", "Ca"}]], "Input",) x# M- m( ^" f/ Q6 |4 c
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    & i% \, V* w0 T* _* }3 @6 y  3.577921316125*^9}],
    " O. `5 }7 _9 ]% N, c2 D  p1 l4 L2 ~# U; T+ O8 O$ D* W
    Cell[BoxData[  H' W+ O& G$ i1 @$ A
    RowBox[{"{", 1 @! L, H0 ^* A5 A  ^( t+ o9 n1 H
      RowBox[{% o7 L1 {( u( c# H2 _7 J- [6 F
      "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
      t- U, h2 i% m* z   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
    # L# @9 u: c( u" N9 l$ J  "}"}]], "Output",& Q0 r0 Y: o0 t8 r3 P
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    / f, @" Q; h2 H5 L" K  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
    $ v" B7 u6 H& }# A4 u0 w}, Open  ]],
    & O1 a4 y) C$ O
    & v& [  D0 j. u) Q* \  N4 m4 ~3 XCell[CellGroupData[{
    , W( S7 `, X; ]2 B: F/ Z$ V: @
    # c+ C0 H/ q. k6 P7 j" Z% dCell[BoxData[2 G# B0 G' ?/ M! {/ w
    RowBox[{"u7", "=", 2 |! i8 B& ^/ P! n+ s
      RowBox[{  i! S+ q+ |, C& J& x$ p# N$ U1 F5 Q& L
       RowBox[{"Exp", "[",
    / x) i/ d* S# ]* G4 ?! ]& C; p    RowBox[{
    ; h7 |- I. N7 B$ t/ `     RowBox[{  u" J3 A! W. @  X7 s  n5 u5 s
          RowBox[{"-",
    " v+ t0 v1 i5 L  L5 L. s1 o       RowBox[{
    1 \- A7 H1 f0 i( A6 ~, n7 H; E' C        RowBox[{"(",
    6 o2 Y+ K( [7 q" v; @         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    + p9 Z* F# N7 f' H: @; B        RowBox[{"(",
    " ^. Z6 A( }* G. @* [, C         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
      Y( p& D1 M8 w% @  l     "]"}], "/.", "DeltaX"}]}]], "Input",4 x1 N( P! H7 A3 E
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 0 i: V( h1 m6 [. H7 L7 V
      3.57792132028125*^9}],
    6 C2 Y& B5 j0 w! g0 ?
    " T, A# q$ ]. C! `2 c- \Cell[BoxData[
    * R$ N; i9 S% n* c7 ~# w" A1 P SuperscriptBox["\[ExponentialE]",
    * D0 B7 |1 C. B  RowBox[{"3.141592653589793`", " ", % ]  w# _) Q7 |: A2 ~5 r+ o
       RowBox[{"(",   R. p2 I( U  H" H; ]
        RowBox[{8 ]+ Z( D8 G% m1 i0 M# `1 y) f
         RowBox[{"-",
    + e) x5 k3 U$ [) I* ^# e      SuperscriptBox[9 U/ }' f% q9 T
           RowBox[{"(",
    ' V$ B" r3 ]9 Z/ W4 ?        RowBox[{, q0 M2 M6 ^% z! D7 U
             RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", # A$ `# J. B! s& a1 N
         SuperscriptBox[1 |' U' F; Q* R8 x5 z" B# S/ _
          RowBox[{"(", + N/ H2 Q. {  x
           RowBox[{$ N. z+ f" Y/ c1 U. ?0 R( N
            RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", ; A$ K: A  m5 k, ]
         SuperscriptBox[8 \7 L7 [1 O, H  P5 G+ L/ b$ k
          RowBox[{"(",
      s( B* I, n$ J9 _- d& b       RowBox[{% J8 I6 V0 R+ W8 f  @  Y
            RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    4 p  }& X2 [0 x( K' r' d     SuperscriptBox[( @$ }$ ^, _0 _& _  u) T
          RowBox[{"(",
      b5 \  m% }& E6 g2 x4 I! L       RowBox[{
    , k8 _$ G" `; T0 B7 t        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", $ `$ }! [8 x) {
         SuperscriptBox[& c% U. D; V( b$ |6 }2 f" A
          RowBox[{"(", 8 p- \9 ~& }% }' R& H* g
           RowBox[{+ U1 ?$ F0 a; @5 }
            RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    2 X8 P, M6 u( ~     SuperscriptBox[% K4 u: Y+ \7 S8 V% S1 s5 w
          RowBox[{"(",
    ' Q" O( {2 w4 k       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 4 L! Z( A+ F( ^' N. s; r
         SuperscriptBox[% M4 U0 A, M+ A- B4 _
          RowBox[{"(", 0 E' |3 c- e( n5 X9 d: V
           RowBox[{9 c9 h/ \0 E5 ^# ^3 b; D
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", % s6 r$ a' f  ?5 P8 q9 v
         SuperscriptBox[
    ! U- Z1 K, q* j3 i6 s7 B      RowBox[{"(", / ~/ y; l7 R+ p; W3 j
           RowBox[{6 a* w1 V+ [% _( |' p1 Q
            RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
      o8 L6 x% r. [( @; C/ O     SuperscriptBox[- w) ]* }+ c) j2 ~% t
          RowBox[{"(",
    . n2 `/ {& s" t: x- i! @6 n5 ~       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], " n( P  B$ X. A
        ")"}]}]]], "Output",
    1 k+ E4 g& d- \6 c: s2 U" ^5 H CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, , Z; H# h( n0 _. ]5 y, q
      3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
    : F3 v( w2 D0 `# ~2 S  3.578012251359375*^9}]5 e& T# j  A# `5 u$ j! s
    }, Open  ]],2 V; l* r: l4 I9 |8 D$ m

    3 g, E$ e5 h/ k5 e4 b, Q! k$ JCell[CellGroupData[{
    6 y. r6 p' d' ]5 o( d- `" Q2 H+ s6 X/ I4 X
    Cell[BoxData[3 P1 }* ~+ @' I2 D; ]
    RowBox[{"C8", "=", "Ca"}]], "Input"," ?2 }1 O# b2 P. d! \" X
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    . ~) l" O7 n# D2 j  3.577921316125*^9, 3.57792141421875*^9}],5 I9 N  g6 Y& |/ L2 r$ S

    1 e7 @: y  P! @' T6 W! ACell[BoxData[) N) x4 J+ h, z
    RowBox[{"{", 9 f$ i  H% K3 Q- w& |
      RowBox[{
      o  H2 J% d% q# e, L  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", $ A- P% k: q3 \/ Y
       "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}], / g" n, a1 q, A. d6 {" f
      "}"}]], "Output",
    - S/ Y' X, T! X7 O9 M& J CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    1 y: }& `1 J! `; X/ q2 }; E  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
    5 S' c) L# ~  k) _$ r- ^/ a  3.578012260515625*^9}]
    9 ~1 t1 c: J/ y, U* g% {2 ~}, Open  ]],
    ; e8 A$ f  B# E+ k
    1 j6 s# A) `1 H3 MCell[CellGroupData[{9 c# O/ B+ q- u
    * l8 c8 ^! ]# D) t  ^, v; f% T/ g  _
    Cell[BoxData[
    9 t2 e+ j1 Y; k# j1 @ RowBox[{"u8", "=",
    5 O9 O* g# E8 m' x  RowBox[{8 j. j" l1 j( y$ \2 T4 |* L
       RowBox[{"Exp", "[",
    8 P8 H" L2 {. ^$ @4 E, q: F6 a    RowBox[{7 Z+ T/ r7 J) y6 x; B
         RowBox[{
    6 P/ J" a8 q4 u      RowBox[{"-", * t, P' W( Z, r, {2 N
           RowBox[{
    ) K; X' f8 W5 c3 P/ s& H        RowBox[{"(", / l3 p6 l) G  w! o) O
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    - H$ P' s# N2 C  k& |        RowBox[{"(", # d" `; c: {0 M% y
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ; J+ g# F* B! A, M! y" G* ^6 m     "]"}], "/.", "DeltaX"}]}]], "Input",
    / N# ?, u2 ^2 y% M3 J- M/ F CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    4 m0 U2 Q% Z+ b2 f& I0 j  3.57792132028125*^9, 3.577921416921875*^9}],1 _3 v! i, v9 V, ~; Q

    # u/ M( y3 y! B# S0 G5 \Cell[BoxData[' Y7 v% i, Q! K5 T* z
    SuperscriptBox["\[ExponentialE]",
      g0 y. y/ U# n/ t. d( H  RowBox[{"3.141592653589793`", " ", 2 j3 C8 U2 z+ `7 I" @" b
       RowBox[{"(", 0 r5 T- Y" w2 w' z$ u. p. }
        RowBox[{
    : l, h" h- _: |- I" S     RowBox[{"-",
    * }* u+ C% q, s1 O. a$ o) l: y- }      SuperscriptBox[6 e2 B9 @$ E5 _, b, O9 @/ Y
           RowBox[{"(", 2 s6 e& D5 m/ Z7 S! r) d
            RowBox[{
    % X' N6 M1 i% O6 W) ~* V( _         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ( A; N  G1 d  F! t! J     SuperscriptBox[- G: d$ k) Y- m
          RowBox[{"(", # G5 y+ L5 Q6 g% a6 Q
           RowBox[{: {1 E, J% r) Y6 H; f5 j- Z, [. t
            RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", , n+ T' M. A$ [. _* M4 r& [( E
         SuperscriptBox[, n5 G$ V% v3 D' F
          RowBox[{"(", * h  t0 ~: U; h$ j
           RowBox[{
    : Q9 @5 `5 W+ R, i        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
    1 f0 Y/ D) e& r. j1 v     SuperscriptBox[* t: ^% k0 }* J' g! g, T/ ~" q
          RowBox[{"(", " x5 ?2 _% Z  r5 o
           RowBox[{
    # q( u9 F, v  s6 w        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
    % O3 A. R1 t+ P/ W3 w/ u4 r3 I) `! l     SuperscriptBox[" F0 E0 Q) `& s* Y
          RowBox[{"(",
    / p# B+ ~9 H& t6 B0 F8 ?4 r       RowBox[{" ^6 O4 N. h5 Y6 s
            RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
    $ t; ?; M/ T8 `- D( ]; Q     SuperscriptBox[# p# N4 @$ N7 ]6 [7 Q  C' B+ I
          RowBox[{"(",
    ) Y+ ]. q' D8 W7 P* i       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    % W+ v& Q3 }4 T$ Y/ m     SuperscriptBox[
    ' j0 q9 T8 h+ }* F      RowBox[{"(",
    / t+ G. u# A- f  F, b3 n- |, @       RowBox[{: A' r3 E- h3 W/ M
            RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", ' q  N* j2 G' J
         SuperscriptBox[- V4 v5 V# b- e! @# Y+ J
          RowBox[{"(", ! U( _4 j) r3 I2 ?
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 9 k8 i! J# f6 K$ M1 }1 ]0 |1 X' h
         SuperscriptBox[+ ]/ q3 @0 r7 |8 I# s( r
          RowBox[{"(",
    / B) E0 l3 D9 R3 j7 @       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    , m$ x; x+ G: r  J/ n* K    ")"}]}]]], "Output",
    7 |# u7 E$ X* J# @6 b% b CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    ; O) v$ A4 m* l; T; e  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
    8 J( v- e0 z+ K, P( A  3.5779608945565863`*^9, 3.57801226165625*^9}]
    $ G2 F3 `  K' \; |}, Open  ]],
    # n3 L& w8 B8 }
    4 k" C7 @8 h8 s5 G- }% v3 bCell[CellGroupData[{
      E; ^2 ^  O5 d+ [9 `" h, z" E( t/ D% g& f7 r% |
    Cell[BoxData[+ B. G* n/ `3 k& E. }* M7 f
    RowBox[{"C9", "=", "Ca"}]], "Input",2 M& y: @3 X4 f: K4 Z
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, " {* Z" X- r% I' q4 H3 u3 S2 |5 y# a
      3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],; I2 g. _% {. z& ~" s- s

    . M  V6 J! Z: @& D/ \4 o1 ECell[BoxData[
    0 A0 O( d; ?' G0 c. h7 G5 O RowBox[{"{",
    + [8 u4 D6 N; X9 G  RowBox[{6 j/ W% g; d# l9 D7 I$ q' y7 H2 ?
      "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
    4 d, q6 |* o" P/ J& \' n! p   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
    " \( O. R5 E& K% c2 u. T  "}"}]], "Output",( h# s7 h" r  Z7 p% {/ b. y0 [
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, / C: N# B2 g0 i$ e, f
      3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
    2 D, N; E$ }$ z5 ^  3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, : l* L* T  g, I+ [
      3.578012268234375*^9}]
    & Q+ W& Z% g/ D  z. m- D, [}, Open  ]],
    . S% {+ l1 j  p2 Y& m; h
    ' q. [9 h- k" w( n1 x& TCell[CellGroupData[{% r( y& a- i2 k- w* Z6 m" v) J

    2 s5 v4 e+ E! z5 L' xCell[BoxData[
    ; o: w- g& n" l% R RowBox[{"u9", "=", 0 _6 |, e% Z( e# x) a
      RowBox[{  Z- Z* ~1 i; C
       RowBox[{"Exp", "[",
    : X  k( s% m' g" S7 ^6 [2 r3 J    RowBox[{. v8 g$ n7 B5 N
         RowBox[{
    4 a* A3 j' }* N      RowBox[{"-",
    - F; ^0 v( n' {       RowBox[{
    1 b: y, Q+ y. U8 Q, i# u        RowBox[{"(", 0 S5 i8 V' L( h3 J. {- N
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    8 E5 v% Q7 z) r  L9 B        RowBox[{"(",   L- B2 X' @3 X. g) z& n6 J! r
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    & u! p& N4 y. d) B5 N6 l     "]"}], "/.", "DeltaX"}]}]], "Input",
    " v& y+ ~8 t  a# u CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    ! `' @  f6 ^8 S  [  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}]," p7 p1 y$ L9 `* N

    7 c+ D7 a* r5 k( A8 _! {Cell[BoxData[
    * {, g9 a6 R6 Q. K: z SuperscriptBox["\[ExponentialE]",
    ) N5 J9 o4 p3 S4 v6 u$ a  RowBox[{"3.141592653589793`", " ",
    * c- P. q+ b$ F0 C5 _   RowBox[{"(",
    ! G; ]! _4 U1 z    RowBox[{3 l" `) p4 ?. L* |8 \' h9 K
         RowBox[{"-", $ ~) {3 T- @$ l
          SuperscriptBox[
    % w6 ]" `$ y% P1 `/ B/ Y       RowBox[{"(", % l/ S3 `" v! P; w
            RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
    ( W6 `* y+ b5 @" U8 K+ n     SuperscriptBox[
    - I; Q5 S) M" x# U      RowBox[{"(",
    . B2 U" o  E& b       RowBox[{7 ~6 ^, X: O1 k  U
            RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", ! R4 z1 m; i" M! d8 ?  e4 j
         SuperscriptBox[
    : O' h* N' l# ?8 V0 j3 e      RowBox[{"(", 9 C- O7 U# a/ D4 G# n& E! B0 F
           RowBox[{! i) ~9 x) f0 A! r. W% a# |
            RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", $ M' O& i8 [. M4 t2 u( x
         SuperscriptBox[
    - _5 ]8 }% |5 ]; e' Z& m      RowBox[{"(",   R& s) r8 k% X! d% n
           RowBox[{
    / D! t; w0 x- @2 i& ~2 Y8 Q% @  s2 ?        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", 7 o) {" G* I1 y- O  X# c+ I
         SuperscriptBox[
      }: m( F, \. B5 r      RowBox[{"(",
    , o/ ^1 a  |% j$ e! p# e% v- w, [       RowBox[{* g7 m- w$ F/ `8 O# ?. \' Z
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    . a! u3 q9 s% V: P# o' w/ f1 H4 x     SuperscriptBox[& j* {1 f2 M3 ]3 Z2 e
          RowBox[{"(", ; Q+ s3 D9 j, r
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    7 G, e5 |$ n! z& W* V" {" r     SuperscriptBox[
    + G8 o4 n" M; |( n3 k      RowBox[{"(", 2 C# X5 [$ f+ O1 ~8 a
           RowBox[{% T$ w+ z. [. N* e
            RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    8 u: e) `8 O3 B     SuperscriptBox[5 F+ O1 @( a+ J( L, r+ V+ H  C2 f
          RowBox[{"(",
    & }. [" j/ }+ g0 ?* L       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
      n, U4 Q9 d6 F, k* P& p1 I# s# N     SuperscriptBox[
    . {! B* E9 G+ u7 t: \8 `/ ]      RowBox[{"(", ! \/ B+ {) Q, A
           RowBox[{, ]! m% d+ N& B  f* z7 H) b
            RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ! T! |( }! L/ }, G- n' L7 h
        ")"}]}]]], "Output",* S0 P0 A: t1 ~; J* i4 V- T
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, ! |& Y7 a- ?) R- o# \
      3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9, + i! s9 `7 |6 M7 \# Z3 a% a) V
      3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, 9 T  S# r, p4 a1 I/ E7 m  }
      3.577961530421959*^9, 3.578012269125*^9}]1 D. w, [6 ~9 Z$ a9 h- R
    }, Open  ]],0 c. s8 }! u* J$ g

    $ m- v/ {- Q  a: u/ o6 m6 BCell[CellGroupData[{
    ) k, q. p& [& `- {
    3 Z% n/ x! [( h0 [6 f% v# vCell[BoxData[{
    5 O/ y/ _/ N- I2 T6 N RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]", , |, D" a! l' A! k0 y
    RowBox[{"u10", "=",
    3 k. M3 s4 @# J7 l# u  RowBox[{
    2 f4 D0 ]5 q6 M4 ]5 L; B   RowBox[{"Exp", "[",
    : N( ?! o4 E  p' S2 I    RowBox[{
    ( j7 H, [; O4 d! O- q     RowBox[{& U6 O# A  U7 X9 M$ h
          RowBox[{"-",
    * r0 }0 X! K3 _       RowBox[{/ c1 x& |6 f' M; B1 {+ e  U" x
            RowBox[{"(", - t) r" p1 N9 a  |
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", , g+ C3 L) c7 a  g. p/ {5 v
            RowBox[{"(",
    ) S9 i* x% A2 ^& b* v- Y         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],. f) S3 v% F& L  b+ P
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    8 ^# G% z, x" X, B CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],3 m. e/ r7 Y$ j- z# O6 p

    + r! n# w& y9 q1 C8 XCell[BoxData[, ~4 z/ m( l# P. ?" v3 o
    RowBox[{"{",
    : K6 y, F( w* G: I# E. R+ L  RowBox[{
    " t% q7 U1 F* S8 b  P5 e  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", 5 S( S4 A9 Y" w0 ^; ^! W
       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
    ) U; G% S1 {$ T& f6 p CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
    . B+ J  W! N' b
      j. E4 Z- Z. }" r8 J  M. f% C$ ?Cell[BoxData[
    8 C$ k3 |2 J( Q( z7 a SuperscriptBox["\[ExponentialE]", . r6 T) Y% w9 P* R1 U: c5 e
      RowBox[{"3.141592653589793`", " ",
    % o) f" h: W) ^0 I% e& n# m( l   RowBox[{"(", % N' ^8 H) @" D0 I' s: N) |% j1 f
        RowBox[{6 m5 Y; N& [+ W2 P$ J
         RowBox[{"-",
    + S4 q+ R! \' p: |; k4 s6 D7 O      SuperscriptBox[
    9 B$ E$ T( \- ?! x9 T1 T2 O       RowBox[{"(", 3 r9 a; G1 j* Z) G+ \
            RowBox[{
    ; v+ f& V5 S) |         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", $ T+ e1 g5 B5 J! q6 ~& s
         SuperscriptBox[0 c6 D- Q+ h- L" v1 w; n, w9 a
          RowBox[{"(",
    # Q* e' g0 N3 t! _, j: t# @+ z       RowBox[{) {0 I! Z, D7 t
            RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
    0 Y. y# b% C+ `) ]% u     SuperscriptBox[
    : h% [) o+ S/ ~8 c      RowBox[{"(", / i$ h9 K% k6 O1 {0 z: z/ \
           RowBox[{) o2 [( o3 J( v. V: k' D
            RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    ) X8 \) I' [3 M8 a! E4 S     SuperscriptBox[+ t: r* v& \4 g# K
          RowBox[{"(", $ B& G. d1 q+ K5 [
           RowBox[{  l6 [; q/ l/ g$ P" f* v6 w: D
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", % l, H/ F  e, s$ @6 V, ?
         SuperscriptBox[& }4 D/ [* b+ U7 F+ h4 M
          RowBox[{"(", 4 a6 K2 n6 g* {( N
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", ! F4 ^  D7 v% n# T3 m& R1 Q/ V
         SuperscriptBox[
    # K" j' m& P% H: E) ]/ S      RowBox[{"(",
    + O, l5 K0 {* Q; Q/ q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", / n: N: y  b0 _  f0 S3 v/ i
         SuperscriptBox[
    # f: r% \$ O1 x( b/ R2 q8 L( U      RowBox[{"(", / d! G' S  q, Z1 ~; d. Y: K7 P
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    # @7 }1 A4 g2 j, A3 h  p     SuperscriptBox[
    6 T% t, n9 G- ~  p% Z      RowBox[{"(",
    ( l- Z; g+ e: ]  w       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", - M! Q+ r8 M. @* F# j) o/ K
         SuperscriptBox[
    ; ^$ x  p' b  N$ e& N& e      RowBox[{"(", 9 z- F1 N! D3 d* |
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    # |2 i  v# K* Y& H# h* `8 w    ")"}]}]]], "Output",3 O# p* b0 k. o3 ^& H
    CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
    $ t# Y% k$ a. d) d+ a}, Open  ]],& b0 G9 H0 V. J

    ; v2 \2 d2 Q( N7 q) S3 LCell[CellGroupData[{
    6 I/ D0 W+ P5 j# \) l" p4 Y" G- I1 `' z: _
    Cell[BoxData[{  n/ U! n9 _& F* _" X: ~
    RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
      W9 O5 V( ^, l( L1 s. F RowBox[{"u11", "=", . e5 h& q& |1 i9 p% B$ A5 z" S
      RowBox[{
    1 u4 ^) D( q1 P8 ?. x0 v) b' g" F6 n! Q   RowBox[{"Exp", "[", $ O: A  _+ @( b, W. E
        RowBox[{
    . k8 S5 A0 T- X: O" o5 D! _, G) v, l     RowBox[{- D3 a: j& d8 Y) Z' }, H
          RowBox[{"-", : n* H) Q; A- i+ }) P  a
           RowBox[{
    ' b5 X/ n* _7 F8 ^7 p3 X8 v& ?        RowBox[{"(",   d4 `; c" e, w# D
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", / y( A+ g. u6 O0 x1 Z$ D
            RowBox[{"(", / t* n' a2 \  E
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    + |+ O9 Y' ^3 w! d0 G( X     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ! S# i, @+ U; }/ Q CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {! p. p4 w2 J; J1 W7 j4 _' |
      3.57796154237158*^9, 3.5779615434011817`*^9}}],( D) y2 L; Z5 w! [' Z3 l4 b
    - |# u$ j4 }9 M) u, d1 t
    Cell[BoxData[0 V( l4 W2 _' S( D; m" t' \
    RowBox[{"{",
    " [9 {9 d8 d+ B2 {1 f/ x( [& b  RowBox[{) v, M# B5 ~2 X, O; M/ N
      "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", & v# M. l0 B; ?# w7 \, e( C
       "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 3 D7 B6 @& D; o) D
      "}"}]], "Output",# a0 M# G9 E2 D% P: w0 V
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, ; Y- @! y5 _- e3 V; o1 z
      3.57801228203125*^9}],. h2 L- o! ]  v6 e
    + E; v* i: K+ R0 W( |
    Cell[BoxData[
    9 Z+ B; l% M' D/ c! h SuperscriptBox["\[ExponentialE]", 2 @' l5 _8 `3 O) z, N% B
      RowBox[{"3.141592653589793`", " ",
    & w) C: D3 p9 Y/ C2 J9 X' J   RowBox[{"(", ) X6 s* W+ z. \& p# l) w6 D3 m
        RowBox[{' h/ K# h# ?/ d2 F3 T1 o0 s
         RowBox[{"-",
    ; A- J. s# x8 A5 c& k+ x      SuperscriptBox[
    ! m, J" p, ?  f       RowBox[{"(",
    ; F; }- O: k! F4 Z6 w        RowBox[{, X% o7 P5 A8 k3 T4 C: I9 l! N
             RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
    1 Q' T  U. a! y) V9 T     SuperscriptBox[
    ; a6 ~+ v$ m6 P5 A8 I      RowBox[{"(",
    & |: N3 Y" R6 |       RowBox[{' F5 G/ E6 D" `: P2 C, g
            RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", # r  Y/ t* J, ^, q7 a( f' t
         SuperscriptBox[% L9 ]" r. `* [& I( W: q
          RowBox[{"(",
    1 r# z# d& `" @% K. {$ H; W       RowBox[{+ d% }! g& w  u8 l2 W
            RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", ( i- x! r' A7 ~( T! \
         SuperscriptBox[
    7 H3 l2 l# h! k* I0 z      RowBox[{"(",
    4 a+ Q2 n2 J$ k8 F3 V. O, c       RowBox[{
    # S5 U0 y% L4 f        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", % r& `2 G# F  `2 K% j$ h+ \
         SuperscriptBox[6 t6 l) H! n! e; M* l% K3 q
          RowBox[{"(", * O* E, E+ E$ }8 E* t, Q
           RowBox[{
    6 X8 D8 u1 R; r/ ?5 J        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", ' K; T! p" Z( D# m1 S) _
         SuperscriptBox[
    ' k* ?, W. P. T      RowBox[{"(", 5 K/ q5 i$ r; B
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    8 P- u" l# w0 Z5 {% R     SuperscriptBox[
    & S0 ]7 ]9 ^6 [9 N      RowBox[{"(", ; e/ A0 w6 m1 q' l
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ! e9 ?' d) r  A6 n
         SuperscriptBox[/ w6 W/ d7 R5 Z) Y' [9 Q
          RowBox[{"(",
    - S9 f6 C0 I5 \" I9 c4 Z: W, v) A4 L# w       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", & X9 G6 w( W9 P) ]
         SuperscriptBox[. }& m5 A) Y! J
          RowBox[{"(",
    : X6 l8 s8 G. R6 T* f- h, v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    8 f# G* L2 c2 m6 N+ c; s    ")"}]}]]], "Output",7 _" w2 L* p8 j# H; A% r
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    . Y- D! |2 G' C" W  3.57801228203125*^9}]$ g7 H: j* v: b, i  J) o
    }, Open  ]],8 F6 H0 f2 B# e5 T, d' ]

    9 t9 S' O- Z( ]- ?. _) t; k2 n3 n" ?Cell[CellGroupData[{
    0 N& n7 J& b+ C# g; j6 a) w$ @6 n
    Cell[BoxData[{+ ^6 S9 j# V! }
    RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
    * l/ `* P0 }0 S, S% d+ _/ R8 `, Q RowBox[{"u12", "=",
    ) g! ~( F9 f" h4 E- s$ b- G  RowBox[{
    7 W* x. Y3 B0 S7 q3 i2 d2 E* P* \   RowBox[{"Exp", "[",
    ' H9 O+ h, ]5 f3 y2 q    RowBox[{
    ( ~1 U/ v6 O( f4 J+ h! ^, {# a0 l0 J     RowBox[{! c- k5 Z5 t0 O9 e0 D" t+ f4 Z
          RowBox[{"-",
    2 H2 y3 i, h8 ~2 L  F7 M! v# y7 U       RowBox[{
    - j! k  a) j+ V        RowBox[{"(", 1 B0 V# ~# C  x+ `$ K3 _1 `5 \+ W: X
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    7 d" j, U$ T: h$ i$ y        RowBox[{"(", , M/ z- M! v: u5 P0 g6 R$ I
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    # Q+ L! O6 \# ^3 `     "]"}], "/.", "DeltaX"}]}]}], "Input",- k6 g  u, u: Z
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {. k; `5 Q( F  E) a6 D- n  |3 f
      3.57796154237158*^9, 3.5779615576284065`*^9}}],3 K! v- }0 W* X9 Q& `# {* g0 ?

      p& J3 {) G1 }Cell[BoxData[% \0 ]8 e: N% ?5 s# L
    RowBox[{"{", ! X% g$ @% J. {- ]/ [& @/ V0 C5 L
      RowBox[{
    6 U8 j! {& L1 v$ T: K  "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
    & b) V! l$ @+ a. i) X! B6 F   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
    * \; D- _0 z- V0 _" D/ t% ~+ f  "}"}]], "Output",  r8 ^% `; B& ^2 j8 v9 i: O5 X% ]
    CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],. _# |' O0 f! @$ L( Z

    9 f* V3 _. j" S: y! e8 ?* z- rCell[BoxData[8 S8 ~! E4 U6 B% L2 U
    SuperscriptBox["\[ExponentialE]",
    8 c" T8 w& |# N  RowBox[{"3.141592653589793`", " ",
    # g- m/ p! e9 E# ]  I   RowBox[{"(", " ~1 Y7 W5 r8 @2 w' R8 A
        RowBox[{2 X6 }" b: o$ {1 c, x/ q7 M3 I' J
         RowBox[{"-",
    $ `' X$ e; w& `: F( O7 w      SuperscriptBox[1 p: o1 L* _7 f0 l7 ^( C
           RowBox[{"(", / M# \  J( \6 d7 g/ B
            RowBox[{% D7 @% v2 ^# r- w0 j4 v
             RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", 3 c' d1 z! F; y, t& k$ v2 q
         SuperscriptBox[
    5 a  M) G4 F1 u  Y' g      RowBox[{"(", + A% Z2 F: a3 O6 i/ t5 x9 g/ R; ~
           RowBox[{
    8 V) L! h# ?& q! Y0 [        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
    8 |7 v# E' u7 P; ^( f; V6 ~     SuperscriptBox[' ?8 b8 m1 s; w
          RowBox[{"(",
    5 h) o% }, ?  l; @9 p* A0 P6 R4 P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", " c7 \* e# v5 ?! u: ]
         SuperscriptBox[' T1 G1 D# d& `/ `
          RowBox[{"(",
    / l( |+ m" P" r/ Z# x       RowBox[{
    * u" W' e: t# q0 t        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
    , T6 H( w% O# K/ f# |& i( O     SuperscriptBox[
    " ?5 Z# A0 H) ^$ l8 L1 \      RowBox[{"(",
    - J6 q- ]# f" n2 s; z* J+ ?$ y       RowBox[{
    8 m4 q) m& n! V' g* t& ~) R: K        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
    ! ~' `# X( ~4 W5 ?2 A7 `6 z     SuperscriptBox[
    2 ~  R1 D) P3 P/ S      RowBox[{"(", 9 r1 R5 C5 x" r5 p5 _* `
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", % j7 {6 H8 M, r$ g: T7 H; I
         SuperscriptBox[
    8 ?9 N* G" H+ ~2 d; }/ y" n4 p      RowBox[{"(",
    2 V6 F- Y0 h- J       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", , p6 W+ h- l  E6 w' y9 p- @  J
         SuperscriptBox[
    ) `8 t$ ?/ Y  o$ C# D% w/ l! R      RowBox[{"(", ; z! b9 G" r1 t& ~6 J# V7 M# j" U
           RowBox[{
    ; L& j# f1 E# W        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", 1 P' e" N+ d8 `3 F
         SuperscriptBox[
    ! p* d8 \2 }, r: P/ n/ m. Z5 H      RowBox[{"(", 1 G0 D$ c8 g: F8 _/ O
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], / G# @8 x* [$ f# n, ^! r  }
        ")"}]}]]], "Output",
    ! Q0 O( k  ^/ X) _8 ]8 H( i CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]3 y# U  s/ a3 d0 Y
    }, Open  ]],
    : d& k5 n$ ^6 b% K, A  x2 a3 V% C& V# g; N/ l
    Cell[CellGroupData[{
    ; t$ x2 I" `1 u$ W" P/ [5 F; u- P; ^
    Cell[BoxData[{
    " b$ Q" ~5 Z. d( n1 q$ U) k RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]", / {( e7 l9 u7 z% L
    RowBox[{"u13", "=", % C, s# Q; }  Q* B7 j4 F' E; F  f; g
      RowBox[{5 L/ T+ s1 w# r+ V4 ~/ V
       RowBox[{"Exp", "[", & `! }' r) `- |; q" g: T4 B
        RowBox[{
    . j! ^3 e8 I6 k; I9 t" k& g     RowBox[{* I; b, A9 V- R  k+ a  R
          RowBox[{"-",
    " [0 {4 ?" o4 l3 i6 Z       RowBox[{
    7 h3 Y( w5 u/ j( M; {/ A! d        RowBox[{"(",
    # [+ f5 F) j3 t' E         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ' P2 n* R) R9 v6 E        RowBox[{"(", $ n& Q4 T+ j8 u7 J3 b1 H
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],. u) D7 \" V0 k
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    ( ^7 x. E* q' i: z/ x! O7 D: N% e/ P+ ^ CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    4 H0 W4 k& g& v# P  q! e& _$ u  3.57796154237158*^9, 3.5779615599684105`*^9}}],
    5 K# p- |6 R$ u! v3 t  q
    6 I% S+ W& i5 y2 J/ ACell[BoxData[* b5 y$ }( W0 k  l5 d8 u
    RowBox[{"{",
    $ g- m, n/ [6 z  RowBox[{
    % N' Q% C; V. N1 e$ F6 h% o+ s  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
    0 T7 t& a1 J+ V   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}], : J/ n4 @; r9 P7 d! w6 T  ~  w% A/ r- _# ~
      "}"}]], "Output",; u2 p3 s: i, [+ u/ r
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],- s' C" h- g7 s' p
    * ~5 T/ Q" G3 o# @
    Cell[BoxData[$ U- E# A, K- d+ b0 Q" P
    SuperscriptBox["\[ExponentialE]",
    , a) q1 l9 D8 \1 `  RowBox[{"3.141592653589793`", " ", 8 W; U2 {4 V2 q7 g
       RowBox[{"(", & E, F, N6 b8 v3 W% G4 ]/ g
        RowBox[{
    . r# W; M! X( B     RowBox[{"-",
    ( Z: Y- w' d+ S/ R9 ?! X# r      SuperscriptBox[6 \, S" `- R% a4 i* _7 [; A1 }- g
           RowBox[{"(", 5 _: c* H; p# D- x  v
            RowBox[{: N! a* X; n* r$ k$ r
             RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    $ e& i. A7 x- x* o. u     SuperscriptBox[
    % T7 h) C0 J" h! Z. E      RowBox[{"(", 8 y1 g& f$ [( J- ]1 s) }, p
           RowBox[{/ f6 Z+ @* O2 B( G  A6 U8 B
            RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
    9 h; z+ X: I, o; Z0 o# a     SuperscriptBox[3 o. \) B2 r/ h; q
          RowBox[{"(",
    , t& n4 \# Y4 A$ ]       RowBox[{
    $ k1 B$ n4 o3 ?" a( G+ R        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", ' n0 x5 I- A  f1 A) O. q4 t: F
         SuperscriptBox[- J3 c7 x4 e8 C% r9 `$ r6 Y
          RowBox[{"(", 6 Y9 o' J% O. q' \9 _$ c
           RowBox[{  {' d* e$ h: [% n' b( M
            RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
    2 H% p# n9 x# a# b: X1 k- X# l     SuperscriptBox[% S6 n/ M* K& S$ B+ l
          RowBox[{"(", * P0 b8 t& \- z0 [! p
           RowBox[{
    ; d( @. B% o7 W        RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
    ! x( [7 c  R0 [0 ^( d     SuperscriptBox[
    1 b% E+ y$ {7 _& y9 a      RowBox[{"(", - z( v8 Z  W& I8 ~
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 0 @) b  O3 c4 f0 _1 I
         SuperscriptBox[
    % Y3 C( B; Z- j8 O( J3 q0 h2 h( \      RowBox[{"(", 9 q9 H+ y" o, G
           RowBox[{+ G( f4 z* Z6 {* b7 ?( j' j. F
            RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", + L4 H4 \  S3 z0 |% C6 s
         SuperscriptBox[# l2 P9 h6 J; N% D: c
          RowBox[{"(", 4 Z) f" H2 ]  N# S% d3 n0 @
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    6 U: V  W9 P  e7 \+ z     SuperscriptBox[6 [, o0 }9 S; m& E1 Q: A
          RowBox[{"(", ( M) C4 q, p; d+ V( l2 f
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ; a; z. B$ q& ?7 X2 x5 {0 P  \
        ")"}]}]]], "Output",
    7 c& H9 i: d/ u& _' v, Q! K CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]- l0 k* R5 Z* M( p+ Z) {2 s
    }, Open  ]],
    ' N. s8 q* L) Q3 C- ~" O& @8 e
    : h, S* o+ G! D' x6 w/ Z8 A2 B9 [. qCell[CellGroupData[{4 L/ x+ k: F- A" N
    6 g+ i, p8 i9 Z$ q6 r& `  R2 g
    Cell[BoxData[{
    9 b7 ?; Q$ q; p RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
      R" S: c/ q+ F RowBox[{"u14", "=",
    " n' A8 Z/ T+ b* m5 E- V: U  RowBox[{5 ~& i0 H/ u" f* S* Z3 V
       RowBox[{"Exp", "[",
    1 A: y. U8 H* F    RowBox[{
    ' E8 r. T; _4 a     RowBox[{3 F) L: L7 ^6 H( U2 ^5 T
          RowBox[{"-", ' c5 W& A6 p2 z2 o$ n+ s# w
           RowBox[{
    * m9 u" T0 \* p+ C5 _        RowBox[{"(", , F1 z0 d$ v+ b6 [- l5 g( l3 ?* j
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    2 A9 |+ t1 ]! z  n  p4 |        RowBox[{"(",
    % b- n( v0 D- k' F+ V         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],8 S* J& l) \+ {
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    / x6 b, d9 D6 h4 m- T CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    4 a7 y* K, K+ a3 t8 Y4 o  3.57796154237158*^9, 3.5779615663176217`*^9}}],
    4 o) F/ P$ h/ g9 q# b% v. r' d) S! u" y9 c8 E& z% h' z
    Cell[BoxData[1 Z! S- }7 H0 @/ k7 R
    RowBox[{"{", ; J* i* R3 E( @  S
      RowBox[{2 D/ }. |; E' _; h# c
      "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", 6 `8 Z) \# n$ G% `2 V
       "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    - T4 x8 D' _5 E  ^2 l) a2 N  "}"}]], "Output",8 t9 X: {. o9 P1 {% R# J$ P
    CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],( d8 m1 ~! D0 y+ F$ T! T5 ^. d. M6 P
    " h! r" y8 ?5 W5 q) ^8 D4 J
    Cell[BoxData[7 w) L' H4 q4 u7 G+ w. x+ c8 n
    SuperscriptBox["\[ExponentialE]", - t, k+ |2 v& q& n$ `+ F
      RowBox[{"3.141592653589793`", " ", 6 v2 @+ p- P9 x) j4 ?  _
       RowBox[{"(",
    ) T0 V8 v" S+ R" I8 X    RowBox[{4 d8 A) v, M( E6 D* F7 P, g7 G
         RowBox[{"-", % R+ Y* Z0 y8 ?5 K
          SuperscriptBox[$ z5 W9 T* x1 A6 S3 w% H0 u! o
           RowBox[{"(",
    # m0 I2 d- U9 x5 a) g  T' j        RowBox[{
    6 H" K' G5 Z+ E3 ~         RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
    5 U+ i  _4 y7 u     SuperscriptBox[
    8 ^% y5 A6 Q* Q      RowBox[{"(", $ w% C1 H! B* i
           RowBox[{
    ( \- K( U3 ]1 k        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
    . u9 s7 ]. a1 l' }' \     SuperscriptBox[
    3 s; ~( w! [# z4 D4 Q3 R      RowBox[{"(",
    ) ?4 i2 B$ h/ m) J' j       RowBox[{& G/ P( M0 O+ l2 D
            RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",   d" P4 C9 u3 N5 N& P$ ^7 v2 }
         SuperscriptBox[
    * q% t  [2 G5 P& ~" I' v      RowBox[{"(", 9 J: Q/ x6 q4 P2 R9 J+ m  F; v
           RowBox[{* Q5 g. Y! t& ?  a
            RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
    7 E2 V0 U8 {" e: C0 c     SuperscriptBox[! K5 p1 c% Z+ |) x; M& S# ^
          RowBox[{"(", 3 c) E  g% f7 h/ y  c8 x
           RowBox[{* U8 y( l- f) p
            RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
    ( ?) {' J; K, X5 i6 K     SuperscriptBox[, ^, T( j5 L" f2 _- c/ x/ t9 f
          RowBox[{"(",
    . `# N9 w0 s* U6 R( ~       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 6 A# @; A  J6 n6 E7 p
         SuperscriptBox[
    1 U1 V/ T% [2 K, x      RowBox[{"(",
    / a' M9 P# a7 S* @7 y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", $ F  d( H+ P' m6 X
         SuperscriptBox[! {* r/ D6 O5 @" ]
          RowBox[{"(",
    9 R: [# ~9 c- o* m       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 1 [; o8 S4 _$ e' S' l. W5 {
         SuperscriptBox[
    0 W- J) {2 d! Q6 \4 v( b$ ^      RowBox[{"(", ( b. |- u) G/ T1 b$ r
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 9 @; g; |  c: K+ a8 I
        ")"}]}]]], "Output",
    - [" l' @' t/ ]- e: a CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    0 z9 n) a2 e0 a; G9 d}, Open  ]],
    9 o7 u8 ]$ l& a4 ^3 {% p
    ) n3 q) ?" E, Q- Z# ^1 [Cell[CellGroupData[{
    " B2 G+ g8 i- o7 H  E( g8 c6 j/ Q* ]0 x+ ~- I
    Cell[BoxData[{
    # g9 E9 \! J2 e$ D% T% T- t7 R RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]", 3 c& U0 j  {1 h1 N0 M
    RowBox[{"u15", "=",
    ' u3 a9 D. z* l3 ~( T3 o8 G  RowBox[{( O$ O% s' }5 V  I. z
       RowBox[{"Exp", "[",
      i% L5 N! U6 R7 [8 y    RowBox[{
    0 k/ S( b7 [; o+ w8 F: g" p& U     RowBox[{
      `6 l6 _% i1 B8 l7 l1 L' O      RowBox[{"-", , ^+ n& j7 K  l+ ^. \7 y* y# o
           RowBox[{
    7 B1 m  h7 m1 B: S        RowBox[{"(", + f# Z  c" ^! m, A6 O& G: e4 R
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    - M: `, c. r( u/ g$ X: l& q        RowBox[{"(",
    ; w, A: s% t3 u! l         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],: y# Y$ Q+ c4 l( d6 U' t( J" X; E. Q$ ^( k
         "]"}], "/.", "DeltaX"}]}]}], "Input",+ H) ]3 |+ ^$ s+ `. X6 g# @& a3 ^
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {9 M# L9 h3 N' C8 D$ e
      3.57796154237158*^9, 3.57796157098203*^9}}],
    # ?, I& i/ ]- G( e- R: W9 v
    9 K4 [' ~+ A5 p1 `( O" X  v- aCell[BoxData[7 Q- A3 ^9 i& N8 Y- f
    RowBox[{"{",
    * @# |9 [/ H9 ^, h  {+ [) m. N- b7 E  RowBox[{
    + I/ U' _8 F: L0 W7 d1 j  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", , T3 A4 A! X8 G$ v
       "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
    ' G' Q0 V: ^& b& c  _: A6 s  "}"}]], "Output",
    9 l- z: @5 j8 Q8 f0 t, X CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
    - R: c: }% r$ L& X5 q/ a$ v7 l* s: A" j7 E8 ?
    Cell[BoxData[
    1 l% u% ^8 r( r. a- i  `) B SuperscriptBox["\[ExponentialE]",
    / w0 G0 d2 }" ^+ v* y! R  RowBox[{"3.141592653589793`", " ",   F  n* Q0 t3 N2 r8 u% R- g
       RowBox[{"(",   D6 `6 Q" W$ g) |/ ^" Q
        RowBox[{+ R3 G# h# `* `9 U/ u6 P% E
         RowBox[{"-", ( U+ E0 k/ j! S0 A0 a$ }
          SuperscriptBox[5 Z( c2 D' g/ _1 N  S' s
           RowBox[{"(", ( {* s/ t6 B: B3 q5 a# S% t" I$ ^
            RowBox[{
    9 n9 G  n& z, [- f9 E0 v         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", ; q+ g8 \/ f  i. p
         SuperscriptBox[
    6 m" Q, a# g: E% R/ f: X      RowBox[{"(",
    6 v/ M; _4 Z) |       RowBox[{
    / l# ?' z- c/ I        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", 4 @1 z( T$ {! @% v7 _
         SuperscriptBox[
    4 B5 G5 Q' M6 u. N) r      RowBox[{"(",
    3 x9 }: v+ {- [9 }5 Q7 {$ Q       RowBox[{* R* |$ `3 F9 G! N& v  {
            RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
    " H: B) b% V; O; s$ E, A0 {     SuperscriptBox[
    3 c4 m& ~" [2 B1 u7 {  j' R2 V      RowBox[{"(",
    3 u7 C; \/ j. H/ x- g6 ?       RowBox[{+ T/ D8 y# m* _
            RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
    - [9 n3 y- X9 \* B& c4 O: T  A     SuperscriptBox[
    ' H* T9 [( ^& F      RowBox[{"(", 6 y0 p* Q  ~: l# c2 i4 T& p
           RowBox[{  `' q9 ]9 I3 g) _# [( e
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    ' t  _  z; J, T8 m3 U$ G) y     SuperscriptBox[
    . ~6 H7 y: m" J/ e  b" t  {4 q      RowBox[{"(", . y' t" ]; o7 v4 d' C9 F4 Z
           RowBox[{% H7 ^1 W2 j5 z0 w: Q
            RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", 0 I" q, B# z3 K/ }; T
         SuperscriptBox[/ O% p1 U1 I! B. T/ [5 b$ N6 z
          RowBox[{"(",
    4 ]+ p& h! f8 N& p/ g* i0 b       RowBox[{
    & u/ c2 `, y3 O& L' l6 K        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    # s) H2 O/ B$ F/ Q  N     SuperscriptBox[1 i5 \' u) O4 J% q5 P; r% Q
          RowBox[{"(",
    8 L8 R9 a$ \% `3 u" A% c       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ! C8 `& M, B% v3 S% K! B     SuperscriptBox[2 m) V3 r4 s; H, ~* X0 E, x3 P
          RowBox[{"(",
    - T/ `9 W0 M3 O2 T' J       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], # {" l/ h' z- v: c0 i' i
        ")"}]}]]], "Output",
    : b- D+ X8 V0 v9 i8 K CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
    ' v) V; c$ Z0 x}, Open  ]],
    ! ~# m- Y3 D$ L' U9 O, n0 h. M6 ?  J( l  C
    Cell[BoxData[" e- m% b$ e0 {$ s
    RowBox[{"For", "[",
    , B) a7 b. G1 e+ |9 O  n  RowBox[{
    ! p1 p) g6 l7 L( l% P" w/ D8 U' M1 t   RowBox[{"i", "=", "1"}], ",",
    - j3 @/ ?) z+ R   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    ) T9 l. k1 T4 ?9 H3 I. {   RowBox[{"i", "++"}], ",",
    ) |# J6 u3 ]9 K/ e   RowBox[{8 q3 l6 K, Q% l9 Q- |( f
        RowBox[{"Ca", "[", ( P( H) L9 o' F: i6 Y7 m
         RowBox[{"[", "i", "]"}], "]"}], "=",
    3 n+ ~& n, b6 V+ l7 Y* i4 c8 y    RowBox[{"CM", "[",
    ' _& V1 h4 ]; I9 i     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",+ @2 K  |, P- N0 u
    CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
    , C. `( H; i* K- X6 o3 P, j
    8 V$ x  B' a: ~& \6 l" _- L1 S2 kCell[CellGroupData[{/ w$ v8 Y! a: t; D
    ! ^  ^7 {- j% _
    Cell[BoxData[{) F1 z. w' X/ r" j7 U0 K, K
    RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
    8 w6 q. v' m+ H7 q7 r5 r8 i3 \ RowBox[{"u16", "=",
    3 K3 z! r5 Z' }5 G# y7 u$ l  RowBox[{
    / D$ }, v  p1 E5 _; F% \3 X" n   RowBox[{"Exp", "[",
      n- @# E! \9 p' s7 E# c% {    RowBox[{
    ! O- z% ?3 `# {4 `! ?- O& [% L7 a2 M     RowBox[{- E/ V( {* ]. O: y6 @
          RowBox[{"-",
    ! ^" v: p, P( G6 s3 H6 t       RowBox[{5 \. k, L  ]( O- l6 J
            RowBox[{"(", / D5 u) J% \! d+ H1 z8 @
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    & s: r) |' G' I6 a. |! h* H        RowBox[{"(",
    ; P$ w4 V( R4 f0 Q* g- A2 [2 e' ?4 A         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],+ f0 @4 d0 U6 B+ [% s: T
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    3 t, i: \. B, z* }3 t7 y4 z% ` CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    3 q* \. U) v, B7 _  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
    # N) r) B; H- E' A6 z$ {, V  3.5779615751004367`*^9}}],, m0 |7 H& ?! ^) ?. k

    ' c( @/ u. P! f! D) N$ hCell[BoxData[
    & E6 k7 h6 X! b# A+ R( `$ o  ]6 I7 n RowBox[{"{", ) R  p+ ^7 r7 c
      RowBox[{
    $ n: ^, g% a$ G! P  "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", 6 d$ [+ P  J( z
       "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}], 7 e, u2 K: s: F& F4 E0 i! B
      "}"}]], "Output",
    * _  R; _' p/ O; n' l; f CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
    0 Z6 T; x2 ]( T
    ; R, ~9 M- \  o! K) a+ N7 k) Z! vCell[BoxData[( o  P$ C" ^8 l2 @
    SuperscriptBox["\[ExponentialE]",
    # q7 S# F" u3 ^' K( }: }  RowBox[{"3.141592653589793`", " ",
    3 s, s& x# o0 a% e% v# m% ]6 a   RowBox[{"(",
    / @* h; c, _; z2 Y- m- N5 S9 r' w    RowBox[{1 z/ S' L* A! ?8 d2 v- P% H. [
         RowBox[{"-", % B; y$ W% Y/ b+ ]
          SuperscriptBox[
    , }7 ?+ d$ o# Z2 k       RowBox[{"(", ( c& A# H# h+ M. X
            RowBox[{7 ^1 |- U* l6 h- b' A
             RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",   z5 V/ _% f& @& j1 u
         SuperscriptBox[
    ! h# {+ S. _$ b& N( m: D      RowBox[{"(",
    0 q1 L% w8 Y3 T) s* f! z: ^( W       RowBox[{' g$ V0 [) p' \" ~% z2 O
            RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", $ R  X" ]3 X- n* ~
         SuperscriptBox[
    - |- {( H9 c$ `: u, [) x      RowBox[{"(", 7 X# x6 q! Z9 |9 c
           RowBox[{
      O" N; m2 v* h9 y& P6 h        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
    * {0 f  N6 R0 q0 [) m% z* G     SuperscriptBox[
    7 u% F2 r! d+ e0 x- ?4 P. w3 R      RowBox[{"(",
    7 _% [/ K0 O; t7 }8 o6 i6 a       RowBox[{$ L' I1 Y5 Y5 _- o
            RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
    , Y5 J$ o; @: o: j     SuperscriptBox[* m& F, }) T/ ~. ~: [9 m5 M! s
          RowBox[{"(", 0 e8 A7 c  _& ?  K6 Q
           RowBox[{
    " O) W) M6 m: R        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", 6 X# s. [; r& `4 O$ @
         SuperscriptBox[
    " X  I0 l: g6 N3 M( J6 U      RowBox[{"(", " L+ j  U3 |8 w: }8 ^
           RowBox[{2 t" S- M" F6 W2 {
            RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
    , C8 k' E3 v7 ~  Z7 M9 _% m     SuperscriptBox[
    . V/ }$ @9 k  d" ~. S7 k% D, i      RowBox[{"(", , H% b( K7 T5 W! [( S$ F0 A
           RowBox[{
    ! V  Q) p, f; V! W3 }# ~        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
      ^8 @4 N* `; q- C4 R     SuperscriptBox[6 l' d: o/ i! r4 C
          RowBox[{"(", 2 W# Z/ M* D4 u5 r9 D
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ' n! f; e9 o5 h) s' |* m. B     SuperscriptBox[0 ~# @/ H% v2 `1 J
          RowBox[{"(",
    . g5 f) A# l8 X& F( F0 }8 c7 s: q       RowBox[{
    3 E$ m: B; w& x% [- D4 K        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
    & b4 w* t; l9 h0 U" N- S CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]. i- h' o8 q7 A. f0 ^
    }, Open  ]],  |0 r' Y6 G8 c, M0 H) l; x8 i# A

    1 A" ^, B4 T- Q/ m6 P6 d3 G% ^Cell[CellGroupData[{
    5 Z5 R* o, A2 K3 w" h8 H3 x. z% m( ]9 R' q/ B( G2 h+ e: B
    Cell[BoxData[{
    / g/ l- q' Q" Q& y RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", 4 O. W- w" L6 I9 x
    RowBox[{"u17", "=", 1 N/ ?. [$ @5 Q4 ]0 z/ q' M3 ^
      RowBox[{
      X  ^5 \6 ~2 g   RowBox[{"Exp", "[",
      `+ H  U1 A0 t2 z5 Q' p9 c    RowBox[{
    ! w$ d' T0 v5 R' ^7 r7 c9 o, c2 v, J     RowBox[{
    / t6 u+ C# o. k+ G& P/ I      RowBox[{"-", 5 M& I1 l6 ]5 O  n
           RowBox[{' j1 N2 P" j: g' ?2 H$ N
            RowBox[{"(",
    2 @0 E5 {, G8 c1 O. B. Y         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 5 q4 f# |4 ~5 u1 T4 \
            RowBox[{"(",
    ( j6 q; E' C4 O- q7 b         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],  i' [9 Q( J" E" U
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    8 ^1 f. Z/ R. ^# { CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    + D8 U8 H6 `& g! F8 v& c/ |  V  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, ( |" A" ^# q5 U& H, Y4 }
      3.577961578953644*^9}}],# m  \$ p* i+ A: W- T

    - }9 J1 c* a. k% B4 TCell[BoxData[
    ! T! v$ _, b0 m2 p' ^: w6 R2 B RowBox[{"{",
    3 e& F/ U1 `: i" w  RowBox[{
    & p7 }# o. Y; j& e: r. u& F- B+ W  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", , h5 T. y' p/ F6 t# S1 E8 e0 N
       "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
    ! j* Y) `2 ~7 s( ]: q3 s! v6 s$ s  "}"}]], "Output",2 {- n# i& P, }. y) E1 q1 Y2 H0 @
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
    * P; E+ ^! c% u0 U9 D2 F6 T' O, \% L
    Cell[BoxData[/ k4 w2 x1 t; x& j4 t
    SuperscriptBox["\[ExponentialE]",
    0 H9 _' p; [4 r, s' }2 t5 ]  RowBox[{"3.141592653589793`", " ", - B4 o, s* L  K+ L
       RowBox[{"(", 3 n% ^$ t- f4 C) m7 S3 }
        RowBox[{2 u0 S% D; I' a( X
         RowBox[{"-",
    ) o0 q" Y( ?1 }$ W' u( x; l      SuperscriptBox[
    9 x  Q4 @6 `+ G  A6 M       RowBox[{"(", & X, P) l, b2 o* L6 f& ]
            RowBox[{
    1 |" H; K% |/ N( c         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", . E$ s& O2 A: s, {
         SuperscriptBox[4 W" `5 J4 N$ D  I. E
          RowBox[{"(", 9 e# v8 Q1 Y9 T( ?1 q$ V' O9 b
           RowBox[{
    5 k1 O2 M: P$ Z3 K' V3 ]        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
    ( E5 @8 K* v- t" z6 H, e# L# S     SuperscriptBox[
    / @& b* V2 L* K7 n9 B# ?% F      RowBox[{"(", ' R3 t' K/ Y: z2 |( A/ ]  A, U
           RowBox[{
    ; G$ n( z0 s  @        RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", / f9 W: O, j/ c5 S/ Q$ y, E
         SuperscriptBox[6 f5 a- j1 `- d
          RowBox[{"(",
    ( L. e' Q* s4 P       RowBox[{% ]& l; E7 c2 M! A6 S9 A5 L
            RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", 6 R# Q) |/ L, {/ x
         SuperscriptBox[
      F, N3 ^: B& h$ D' J1 R      RowBox[{"(", ( q1 y4 ]6 n0 N/ w& e9 e
           RowBox[{
    4 `) }6 t2 U" \  a7 g5 f2 E: s7 l& \        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", * E% g. o. I; D, f% V
         SuperscriptBox[- F, U2 p3 i3 Y! f& k1 v8 n
          RowBox[{"(",
      r* [- Q( Q& g$ g3 ^+ B       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    8 Y) ^* R$ z+ X+ ~. D  G2 Z6 p' v     SuperscriptBox[
    * F) j9 Q9 f) |) J: B+ Y      RowBox[{"(", 0 L6 Q" g3 V/ \5 b7 A% \
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", + e7 \. I. @8 f0 l3 K- ]8 V
         SuperscriptBox[
    ! S1 b; H1 F$ S- R      RowBox[{"(",
    $ o+ G! k, o) V1 r) P5 D) u* n       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    3 B" c1 d9 |/ I8 j- m4 o  i. E     SuperscriptBox[
    + S0 N5 J+ J2 }; i. s( X  b      RowBox[{"(", 2 S! R- r0 Y* e) L+ ]! Y0 C" n5 X
           RowBox[{7 F5 G( l8 X: a! [: u1 @1 d6 V2 f
            RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], 1 y6 c: {: l% E/ }8 f
        ")"}]}]]], "Output",
    ! R( ]6 L$ \# o8 d) v; d4 U2 v CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]  s/ R* }9 s3 R, I4 ^! I
    }, Open  ]],( ~# B2 N: m+ Z5 |
    7 A* _) z- {# j& V/ `3 O2 X# x& K
    Cell[CellGroupData[{$ I. \, y1 r8 D7 |6 f! w
    " C' g/ s7 v" ?. r% `) w) Z" ]
    Cell[BoxData[{
    ' m9 {6 ~' n! O) D5 S RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",
    . Q/ O  e9 r' n3 B4 a& Z& O: q RowBox[{"u18", "=", 4 |. ~* }3 g- V/ J
      RowBox[{, h# B9 M; n8 I& Z8 }
       RowBox[{"Exp", "[", ) i# m4 \4 m! a4 _
        RowBox[{4 B& J* D# I: l6 [2 K5 r( d
         RowBox[{
    4 ?- q4 [, u8 B# z8 p' O      RowBox[{"-", ) V" m* L! [& P  f# e
           RowBox[{
    3 @) f, g. B8 w5 X# d' L        RowBox[{"(", % O; E% {$ h6 Z0 }0 f
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - H' A; c6 y& n; X0 R# u
            RowBox[{"(",
    " t( c( z0 s; b" c: A) x         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],4 `0 F6 L. K# O- h
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    * n) |, ?  |2 I  Z CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    9 F: K) q) x8 ]  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9, # S: \* Q6 k  P+ P
      3.5779615828848505`*^9}}],
    - h, N# A$ `1 P
    : U7 s+ ~; _; G$ KCell[BoxData[, f; Y" {" `, e4 W! D- h7 K
    RowBox[{"{",
    . @, x+ |% Q4 m  RowBox[{1 g0 Z$ w; K7 P) V  P: Z
      "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
    + ?! q5 o; Z1 d- o* M3 q: S4 R3 P/ v   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    & @* k5 l) K$ D% g  "}"}]], "Output",. c0 V; i2 q/ @7 C/ e
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
    % P/ E# f7 v4 r$ }, m. ]1 |' |
    Cell[BoxData[
    + I  ]6 m( E: i; H SuperscriptBox["\[ExponentialE]",
    9 r7 H. O: J$ v  |* g. z' H+ f  RowBox[{"3.141592653589793`", " ", ( N& w! l% `. l: ~, Y% v+ P
       RowBox[{"(", , d' d7 h/ J# G0 n6 U: A( j3 w6 b$ B
        RowBox[{
    9 T& u: _0 O- f$ ^2 b& O! H+ ]     RowBox[{"-", & l0 n( \, T3 e% W+ r) r0 i
          SuperscriptBox[
    * o/ b& C: [; o. L1 l3 |% m1 e! g6 ^       RowBox[{"(",
    5 a2 I9 U8 C% U7 R' Y+ J        RowBox[{$ p1 c7 R' Z# ?/ T0 M/ S9 [
             RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", : i# O+ b! q% l5 B5 r" l
         SuperscriptBox[
    & V. x. X  I  M" _      RowBox[{"(", ' f0 j9 a5 z0 z7 g4 y8 B( M
           RowBox[{
    5 r! k* x9 O+ Y3 P- G3 t        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", 0 Y+ O; ?6 O+ B- \+ a& b
         SuperscriptBox[- ~: U( p" E$ w" p+ k. Y  Y
          RowBox[{"(", % w7 H- U4 W% q/ c
           RowBox[{
    5 m4 J$ ~; R& X  J; x) M        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", * ^" x9 g3 B$ v" @
         SuperscriptBox[+ @$ v0 [1 w+ E
          RowBox[{"(",
    : t* ^' h- ~  n& I       RowBox[{# g6 V- @) c! A& k5 e1 v
            RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", : Y3 r4 E4 @4 J* t5 T. Z8 w
         SuperscriptBox[$ J: C- @1 A4 {- L
          RowBox[{"(",
    . ?' b8 u* C; G' r; v       RowBox[{
    % C8 n, U7 R, p! {) [        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",   @9 |0 f5 {: E3 {' T$ B1 x
         SuperscriptBox[
    8 F/ V2 ?, y+ s" p  S+ A( P      RowBox[{"(", % \3 t: j" F# ~' `* p
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", % `2 \; {/ C" J: }
         SuperscriptBox[1 m3 ^* ^/ k% e7 w9 P; j' u
          RowBox[{"(", ; ^4 t" \+ z* O3 N
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    9 H1 A, Y3 Q7 D! `* t     SuperscriptBox[
    " \: y0 S" G4 J2 E- @      RowBox[{"(", ! F; g6 M3 j* w
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 L$ n5 q" g! h, b
         SuperscriptBox[. V7 @3 L; Z/ W) Z! O
          RowBox[{"(",
    . ]6 s; W7 W- \       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    / @8 [$ R2 h$ X8 I0 |    ")"}]}]]], "Output",
    ( z2 t, r6 E5 D CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
    : U# d0 w3 h  B( W: ?& Y: A) p: D}, Open  ]],
    " D+ a+ c' J' J; V' K; y7 z
    ! X; h: j; M7 G. u% YCell[CellGroupData[{0 v1 j6 G2 p, @1 N
    : H) l: Y: v2 V# d( R
    Cell[BoxData[{
    ! x- b; c% G6 c+ J RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
      d, d+ A) ?9 t RowBox[{"u19", "=", $ l. ^# \" @6 B( o5 }+ |( L
      RowBox[{
    . E1 h6 d7 P9 y- B" N   RowBox[{"Exp", "[", 3 u* Z- U: Q: ?3 b3 Z
        RowBox[{$ S: ~+ h* I9 ~
         RowBox[{
    8 w$ w1 C) w) h. K      RowBox[{"-",
    5 @6 B* S* V3 n' h* E6 }' R  ?* d       RowBox[{7 a0 `2 a; \) f& [0 J5 S) k
            RowBox[{"(",
      {( D$ `! {' o- ^/ a         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 4 R3 t# S  M, y; [6 W
            RowBox[{"(",
    1 \. x, Z4 {' h8 a         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    / i( A' y$ ~3 x; I" o1 {) M/ S     "]"}], "/.", "DeltaX"}]}]}], "Input",
    8 Z  \) u( a* i; p% A CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {" ]* o2 F8 C- J" j) |6 D- a9 [
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, 0 X" q+ c$ p+ J4 b2 \- p
      3.577961588890861*^9}}],
    / i0 z, d7 k5 z* [# R% r0 i7 l( m  Y. a1 ~7 x2 J
    Cell[BoxData[6 V: b1 Z/ A$ h# B3 y: C, ^
    RowBox[{"{", 3 \# {9 ^, x. Y. U5 a
      RowBox[{
    / l% |' \8 r, T" a  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", + h. ?! M; ?4 l: v( U
       "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}], 1 D1 N9 n# \' Y8 S4 s
      "}"}]], "Output",
    % Y) A0 ^; w7 k. u6 P1 } CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],4 j9 H8 C9 ]2 ]8 @

    3 m# w) D6 q- x% b$ [. o7 \# E: \Cell[BoxData[
    ; [7 w6 Y" }# G/ T. N SuperscriptBox["\[ExponentialE]", $ o9 w' l+ y- `; J$ q/ s
      RowBox[{"3.141592653589793`", " ",
    ; G" ?1 H1 x1 g   RowBox[{"(",
    : g) z5 I6 m8 m, N5 O" ^& u3 K    RowBox[{
    3 Z4 ^1 m. l9 ?, p: y9 |& F     RowBox[{"-", 1 t! ^! K; U# [) C+ d
          SuperscriptBox[
    0 U& C* O& W- ]) m9 l# F& ^& }! m       RowBox[{"(", ( {- {& B& H+ V8 L( J
            RowBox[{+ Y1 Z8 ~8 I6 t/ T# m, {2 G
             RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", " T- H" y6 t6 c; I
         SuperscriptBox[
    2 g) f; d1 P; V8 u; M! m      RowBox[{"(",
    ' C$ W& U8 f1 W7 k       RowBox[{9 B5 G% q4 C; s2 n3 G' Z
            RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
    0 t3 R  i" ]( c$ N" D: i) V: i5 ]5 T     SuperscriptBox[$ H# G, V$ U, r+ d& _% ~6 \
          RowBox[{"(",
      H+ M7 B6 b8 t7 {) J+ t+ y       RowBox[{
      G+ `* Z; h( x; Q) l3 W        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
    0 `* _5 @3 Q* a9 c( j8 j% z     SuperscriptBox[
    4 C4 M) f6 j9 F' p+ L      RowBox[{"(", , N1 d$ Z) p. b& y& `& }
           RowBox[{0 W# X. N3 B$ q* r) A
            RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
    $ g2 b5 }$ A# f6 L     SuperscriptBox[' b% _/ v5 h! }2 r( l8 \2 G
          RowBox[{"(",   g4 P6 i  E5 R2 }
           RowBox[{
    - G7 k% K* O# q' F5 o        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
    . N6 T$ ^; o) w+ e7 `5 f$ A     SuperscriptBox[
    ' b" \1 S" z! Z; \3 u( j      RowBox[{"(", 4 K/ @# ?8 Q$ T4 ^: D6 r* v
           RowBox[{
    , z3 {& x  ?5 v: @) I) ]        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", , g/ [5 Y* x, o% K7 [- g
         SuperscriptBox[8 e! S& n. C8 j
          RowBox[{"(", 9 V  j3 @! w5 s) V7 K& r/ ^. i
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    ) Y7 c7 c3 @9 n+ C2 k$ p     SuperscriptBox[+ F5 ]8 d3 R+ k. }+ g% Q
          RowBox[{"(",
    ( p! R1 E& w8 r7 f" N& F9 O5 Y- }       RowBox[{
    8 |8 ]4 ^/ |2 t% B7 J/ M1 l        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    % |' i' M: {2 z  F# b9 K     SuperscriptBox[( d& e8 ~& {8 K3 D/ }- o, \
          RowBox[{"(", 6 q: t7 P2 e- \. M  @- T
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 9 Z4 |. V% Z* ^4 J
        ")"}]}]]], "Output",5 s/ U; G. ~9 p4 U) S) z
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]# r6 }8 [0 J3 I* q+ f) d
    }, Open  ]],7 }" h% }- Y9 o* D$ n
    5 l8 @" J2 u! R( V) d0 k
    Cell[CellGroupData[{
    . s# b# F6 i" _" G8 {5 v4 }  E3 v, w) C! e" f& m' J: H3 q0 ?! b
    Cell[BoxData[{- k- j. E: i1 ]- [% m
    RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", 1 f2 x, D0 b# R* b; n; _/ S0 C
    RowBox[{"u20", "=", * m3 {" a  P( {9 n; u* y
      RowBox[{
    3 a3 L* t0 f6 F) d' E   RowBox[{"Exp", "[", # O6 R) C. g3 k# a8 {0 t4 M8 ]
        RowBox[{
    5 n5 Z" [8 U! O1 y2 t% u1 X" K     RowBox[{
    . q* \2 L! f2 O5 w2 T+ ?      RowBox[{"-", 6 [2 `! B7 k8 Z! k% E/ E
           RowBox[{
    4 M2 i  X* i* r, D2 ^        RowBox[{"(",
    . T# P" a2 R) U6 `% @2 K         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    1 H$ i7 @+ }0 F9 ^: T& A/ i4 d        RowBox[{"(", 0 N* S, r. F# e+ T5 K
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
      S! w+ v/ _* ^; f; S$ d     "]"}], "/.", "DeltaX"}]}]}], "Input",
    4 v( x% A& Y- U CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ! V3 |+ v: r$ ^+ e! P# G! }+ m( V% U  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9, ! {. L: _9 A2 N- A( q+ T: B# G
      3.57796159382047*^9}}],8 f7 e& N; W$ W! p  E
    $ @2 q8 M1 X5 z+ [* r( a6 F# Q/ H
    Cell[BoxData[0 d- x& o2 T  _; l
    RowBox[{"{",
    ) b% i9 a0 D" C5 x# i6 f  RowBox[{* f, H% h3 q0 c  Q/ Q1 }
      "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
    8 ^/ q5 [: q9 p( f   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}], 8 p4 \+ @8 X$ C+ X
      "}"}]], "Output",
    , t9 y$ P; t. G4 g5 v CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
    ( \; j7 ^3 B6 C# L) \/ I' K) ?$ ]; i$ J% p& w/ I
    Cell[BoxData[
    8 V8 u: {% I2 S) y: J- l8 n SuperscriptBox["\[ExponentialE]",
    & u: o/ z$ y' v* T2 |5 N! K  RowBox[{"3.141592653589793`", " ", $ x( _; J+ N) {: I- r  G
       RowBox[{"(", + q8 a3 F2 x2 t6 S9 P) W0 T' D3 l
        RowBox[{( F" M3 U& [5 S- i' h
         RowBox[{"-",
      I% L: H1 h1 ?8 G9 `. m2 s% F      SuperscriptBox[
    2 t$ v! c6 ~" z  m9 m       RowBox[{"(", ' u. C  `+ u; A7 h2 }- Y1 M
            RowBox[{0 T- ]5 k9 _. C5 a
             RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
    : [+ k9 l$ Y) |, e  O     SuperscriptBox[1 e3 v, J  c0 I8 q' `% N! c( w8 m
          RowBox[{"(",
    ; f3 j. S9 j/ k9 e; R8 u+ ^- M2 t       RowBox[{( o9 g9 T7 H, m/ Y2 b* J  V
            RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",   T2 n( U" ~5 m) F# U* p# v
         SuperscriptBox[% Y2 H8 |! X0 |" N' K1 w
          RowBox[{"(",
    ) m0 N& o$ Y0 l0 U: t( B       RowBox[{& \% U) Y/ ~0 R$ ]7 ]
            RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    / J( \: [- w1 e" X6 l" Y1 N( ?) T: E6 N     SuperscriptBox[
    " q+ R7 o2 q, l! @; x) h/ i* b      RowBox[{"(", ! l  W+ U( L5 `3 c4 k; H, j9 [
           RowBox[{
    + H3 {: w& i& X$ [5 e/ `        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
    & F9 h  a4 K0 X) x$ s- d. f/ ^     SuperscriptBox[
    , \( I/ L' j+ s( B2 H      RowBox[{"(", . }0 f) p$ ]$ d1 Z( ?$ X5 B0 v
           RowBox[{. p+ N( U% ~. K
            RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", " ]2 j' M5 f% g0 Y) m6 w+ H
         SuperscriptBox[
      b5 p/ s: ~" G& O      RowBox[{"(", ; N1 G& k( ~- J& j7 M
           RowBox[{
    % L- h) a, f9 \* \: Q        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    $ d& s" x1 G3 }) b8 A     SuperscriptBox[
    4 ]' q+ X8 m  M      RowBox[{"(",
    ( V+ P3 F! L5 ^; `1 G% J. l" S       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    % g, }$ v3 x$ s. Z) u     SuperscriptBox[  d* s+ M7 H: k
          RowBox[{"(",
    ; P7 l! Z4 p0 F       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    * w+ ~: u/ o& I2 i     SuperscriptBox[
    ' f( u/ o* P+ l7 d      RowBox[{"(",
    + ~4 t8 j- l2 Y- F+ W. d       RowBox[{. x0 g$ o: S2 N2 _; X9 ?! s# ~
            RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ) g4 R  s1 H, Z1 n8 m) e$ J! t
        ")"}]}]]], "Output",
    , M6 E( d% q8 Z7 G: W CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]
    ) A, c& c3 I& S2 U  E}, Open  ]],# h6 T  b; t' k9 p" q
    3 {8 a* f  Z' w8 R+ P! m. C; M+ z
    Cell[CellGroupData[{; J7 [0 ^; h  _- i" D0 g0 ]1 n6 `% s
    ) w! ^- }# n2 g/ }2 @8 A. i- |
    Cell[BoxData[{5 ]$ G% U1 n7 F- e# e7 i
    RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]", # d- A& n* _  j# p7 D" p; w
    RowBox[{"u21", "=", . ]; I( E" f& R# Y9 D; u
      RowBox[{+ p' X0 Y! j# ?
       RowBox[{"Exp", "[", " X% i1 ~6 f8 N: L
        RowBox[{, Z  g; D' ?1 p9 R7 Q$ F
         RowBox[{* l& \, T6 {! d0 E7 l1 m0 J
          RowBox[{"-", 3 R+ n! `1 Y$ ?3 L/ c
           RowBox[{. @4 }/ f$ j+ Z9 F/ y' I3 F; V
            RowBox[{"(", # {) f7 `. `" L* ?0 E( Z0 R
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", / i0 r' Z5 v) \
            RowBox[{"(", 5 R- g! M) p' P, n: \+ x3 T" i% s
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    6 J* ~/ Q6 g! ^# d     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ; v, Z( X, y& H CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    & X! ^" |6 c: }4 T- ~  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9, ; S) T1 N  ]4 }, q- |& S( M
      3.5779615991556787`*^9}}],
    & e( m1 y, n3 F5 D
    , \2 X1 A4 J3 h4 l6 P- e, XCell[BoxData[
    5 s; |. Q3 S0 O2 C! _7 G( S& ^ RowBox[{"{", ; e, G2 I6 m& {  G. x3 @" Q9 W
      RowBox[{$ _. T% e+ j3 p9 `% A
      "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    ( X9 y: H3 a2 `3 _; w   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}], 8 H2 q6 f; z* x4 {0 E3 G/ S
      "}"}]], "Output",8 _# q" w# g) ]
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],( V. y  c( T& ]+ u  Y) T

    1 y4 C6 z1 I9 @- I" ^, s5 gCell[BoxData[- L4 Q* d6 f  y
    SuperscriptBox["\[ExponentialE]", , }5 V- X, c2 R3 W5 I& L1 B
      RowBox[{"3.141592653589793`", " ", # R5 F8 @* C1 q; i' G4 r! `
       RowBox[{"(", + L( ^8 Y6 Q  L$ j, _; h) `
        RowBox[{
    + H) q! r* Q- w& f( l# c     RowBox[{"-",
    & W2 |2 F! d. u3 K- u# A      SuperscriptBox[
    ! |) o9 ?4 G2 n, B6 I- L* Y       RowBox[{"(", 4 a4 @! D7 d1 U6 C! b$ d
            RowBox[{
    " h9 d6 |. ~- p5 F, Q8 H         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", ! L' h% i4 J# U& F% ]$ C
         SuperscriptBox[
    ! r1 ?2 y" X" `# [; m" _. p      RowBox[{"(",
    ' g+ e0 u. @, ^       RowBox[{6 {  K" p: E9 G. w# J" o
            RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
    * J5 A, Z  B7 K9 ], Q# V1 K% x     SuperscriptBox[" W1 R5 E+ m' B4 t/ S) \  c
          RowBox[{"(", , @& X% o* S% l% I
           RowBox[{% ?! k/ V4 X8 w7 ^1 r! i, l. Y7 X
            RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    # c% p% N& Q# I3 e# j     SuperscriptBox[
    ' ~( C3 G! O! d' [3 |1 l      RowBox[{"(", ! ?  b) I! T/ L! F, S
           RowBox[{" K' j+ _& p# K: J5 l! @; t
            RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", , r6 }- [9 g+ |6 [
         SuperscriptBox[
    0 s6 e- Q& F) c9 Z      RowBox[{"(", 4 T$ c/ l: P' @/ ^/ z
           RowBox[{
    4 Z6 c" q# o/ x) `        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
    , n9 b  R; e3 R) t% ?! x, G     SuperscriptBox[0 x( P9 G( `! z
          RowBox[{"(",
      u0 a0 b! Y5 Z/ }+ B       RowBox[{$ }4 A5 @' `- p- l; _8 ]
            RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    : r8 a6 y* J3 H( Q     SuperscriptBox[
    # b% {% g% Z6 K4 a# G' q      RowBox[{"(",
    ' [4 K. |1 X  `- e, I3 D1 l, a       RowBox[{
    9 \7 T& }8 n. z$ a        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", & z  e2 W. N, P' F
         SuperscriptBox[
    / Y  b5 V3 @0 h9 P7 g4 H* @      RowBox[{"(", 9 }* A7 ?: z, b5 j6 l$ b
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    9 b% o* J) b! z! o& G8 [3 O     SuperscriptBox[
    2 V3 q9 X/ f5 u% U6 S# k* ]      RowBox[{"(",
    ( Y. a% i8 v7 R3 Z       RowBox[{* F5 `7 m5 O, m1 W- _1 B
            RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
    2 C) h0 ^( v0 G* h    ")"}]}]]], "Output",
    : T# o  C$ \, B4 \% k CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]" D1 _7 c! n. I; y: e* G/ [
    }, Open  ]],
    + S" |* H$ u1 ?' L
      a/ V- p* {6 [  z* cCell[BoxData["\:62df\:5408wi"], "Input",
    7 m- U$ S+ L$ a- {0 O( L2 J& A CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
    ' G, r& U, ]. i6 w$ w2 j- n0 j4 b! h* B/ J( Y1 j- I
    Cell[CellGroupData[{
    ; Q! {0 B& K! p* E" ?$ J# b, E  [  h: x0 r. t/ q
    Cell[BoxData[% O9 Z; Y1 O: h; o5 ]: W
    RowBox[{"y1a", "=", 5 o/ P" }3 _; q. d- R0 \
      RowBox[{"Table", "[",
    / {' I. r& Q" t/ T( ^" j   RowBox[{"x", ",", : h9 N( g+ \1 j" o' U' i# V* D
        RowBox[{"{",
    . p7 Z/ X* f1 m+ L  d( H     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",% [* b) H1 M9 r% X3 I6 y
    CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    4 E7 A, }) y; `- t2 T  3.5779226649375*^9, 3.5779226810625*^9}}],+ W) A- f; b' L: S% t

    6 T0 P6 o8 R  b& b8 N# |4 aCell[BoxData[
    * P# [4 l3 t6 U( p' ] RowBox[{"{",
    . W+ l$ m$ O4 I& U1 k  RowBox[{
    * k- a" B( \9 u9 Y  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 5 A% e$ I9 k: Q3 f
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    2 D# ^+ O! r& c: k    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    " }, ~* I; o  @6 ?   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ; Z  _) d( [1 w) p! x
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", % ?9 E+ |5 a- N2 t/ c* p4 y
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", & i" @. c6 x5 I- Z$ m
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    % t1 T2 m- R- l/ y% G( n+ L   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    8 d- c# {* L+ l3 [   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], 4 C. j8 G& M$ D
      "}"}]], "Output",, w0 B* K2 Q! K+ W# o7 H" l
    CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
    / G& r7 s; A1 _5 Y. s6 n! z  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]2 _. _: L9 P1 `
    }, Open  ]],! j2 E1 t7 W! ?) v3 ]
    1 l) L( S: j4 _1 Z4 a2 C' `
    Cell[CellGroupData[{
    * ]5 o/ D' O" J' v) q7 J7 ^" f1 D7 E8 F
    Cell[BoxData[
    * e7 R% x5 C2 \ RowBox[{"Data", "[",
    9 ?2 w8 y7 c3 S+ ^  t( e; L1 x  RowBox[{"[",
    " Y( Z$ w5 K2 g0 J5 Z   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",$ `5 u1 ?+ V) y' o( a: E& v# @
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    8 }0 p: E/ |4 i   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
    " s2 M8 U2 }" G; q* r8 N( {2 C1 y; ?
    / u# z% Z5 V5 @) N3 \# n! Y2 KCell[BoxData["0.899882`"], "Output",
    ! }# v, w( Y3 O5 q3 w, Z5 q CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, " D- i6 X5 f, r1 r
       3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
    6 l& `! P8 ]3 v- V6 j/ G3 q   3.577961929080654*^9, 3.5780123419375*^9}]$ Y9 P% }( ~+ w" i7 T' Z
    }, Open  ]],
    * K$ u" ~1 j8 g" R) u
    2 K4 H9 g0 {, E$ C: f2 K9 w5 LCell[BoxData[5 B( z1 {& k9 E) n3 x( l
    RowBox[{"For", "[", 3 i+ w" A* f3 w* l4 ~0 G
      RowBox[{0 v, ], M5 P9 r' {: e/ W
       RowBox[{"i", "=", "1"}], ",",
    5 U' [  h; D; ?) x) u   RowBox[{"i", "\[LessEqual]", "60"}], ",",
    . F* B( l  N/ x( k; G. t4 ]   RowBox[{"i", "++"}], ",", ( `, k( q8 l) t! _/ y
       RowBox[{, s2 t2 \. x& v
        RowBox[{"y1a", "[",
    0 _) I$ b) }  D" k% J5 d9 O" }     RowBox[{"[", "i", "]"}], "]"}], "=", . O! l* g& u6 f/ u& c; v4 x
        RowBox[{"Data", "[",
    5 n  d' E6 e7 H0 n' Y     RowBox[{"[",
    ' J4 T* x  F' Y! b: Y7 i5 H      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
    / O4 F# O2 w2 n3 {& v- l CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {8 D  n9 I, b" W% E7 {
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    + @0 Y+ B5 n$ i$ Y4 _4 v   3.577922923203125*^9}, 3.5779588839702806`*^9}],
    : J( P0 B9 y' e" r& v% |/ |% y# b% r& l
    Cell[CellGroupData[{6 o0 E! x& X0 h$ i* Z8 e
    6 v" J+ ]) r. q/ G' D& N! ~1 y
    Cell[BoxData["y1a"], "Input",# k4 w1 E+ U% }) @
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],5 B5 Y6 P0 V2 _, C5 w% p
      H8 H8 Y( r4 S# W: {( B
    Cell[BoxData[
    4 t. u+ n& r& n) H5 Q RowBox[{"{",
    * A) S' Z! y7 F1 |8 g  RowBox[{
    4 q9 C& ~, H  _, K/ @* |+ o5 Y  "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
    / Y; ]' R! D  c, A: V$ }   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",",
    ( `7 ~" f) _3 Z6 v) A   "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
    3 `6 w4 O% B  Z! f! X( y' n   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",", : {8 B: l8 H3 R/ Y* j
       "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
    . I  Q9 N& t$ K' k* ~) Y( T   "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",
    ; E+ T' u) u' i0 K( n   "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
    - A1 x2 P. W+ T5 W   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
    8 t9 ]( \0 f/ V  e" E, c! A; ?   "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", 7 |8 e0 |3 R1 r, S: T1 d$ v
       "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",", 6 \8 p$ y% E0 A3 J7 t3 K
       "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
    8 Q8 M4 y; S1 L2 ^: Y2 U: z   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",", 4 q. r4 B; I5 _% Q4 y; u2 V9 _
       "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
    : q  P9 j# Y1 n7 \7 |. d3 s   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",", 5 u$ a; U; ^& L
       "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}], + |- R: d# l: A4 d9 R  C# j
      "}"}]], "Output",
    + Z% F* w. c4 V. G  |9 M CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9, - W  K) H: Z" m9 J$ C) b$ c
      3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]$ S+ {: @# d" t% x
    }, Open  ]],' T8 ^8 M8 M& P- d8 @8 v
    + J! u$ r- G1 @# p+ N8 e
    Cell[CellGroupData[{/ [% y: D. Y& K1 l5 y

    7 C' V. p. R7 s: p) D/ S( dCell[BoxData[
    ! F# X# N, z/ _. i- D+ A% H RowBox[{"m60n21", "=",
    # c4 _; H1 `3 I  ?  RowBox[{"Table", "[",
    $ ^+ K0 a: a7 z( J0 o   RowBox[{  K/ s, m1 i) f6 ]; C
        RowBox[{"Table", "[", . @# N5 Q) i0 c
         RowBox[{"y", ",",   ]* t, s; b$ F+ @  a
          RowBox[{"{",
    $ K5 V7 E/ T# S5 n' E& V5 v       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
    & G4 k  ^2 H8 H' {- ~, u7 e+ [' B    RowBox[{"{",
    4 T# c; O) {/ E3 ^     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",- C( v5 {) S: E" `
    CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
    : T* P. q& }. P( l  3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,
    5 b8 ]1 A0 @/ |, ~/ k6 x  3.5779619706547265`*^9}}],8 ]( B8 m- T9 W1 l* x! F

    1 c. T6 j/ l' _/ m2 u( V' KCell[BoxData[. g' f$ |3 p2 D. ]& o( b
    RowBox[{"{", ; [! s9 z) O$ k- y7 m
      RowBox[{! ~" T% v- X2 r) e. K# g* M. {
       RowBox[{"{",
    & ]* ~8 d+ \( A3 V; Z4 z    RowBox[{
    % J( l* e3 h4 K0 H9 h    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    3 X8 S& D) d/ M% A" u: [7 K- h      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " a7 g1 O2 T# U6 {1 |5 h# u
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 d( m3 `* T) V0 t! e; `
         "}"}], ",",
    $ z$ Q5 ?$ w" j" \   RowBox[{"{",
    ( n. I- w1 U1 C* C8 n    RowBox[{
    2 N: {8 G# |8 X+ Z: j) S) m6 j    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 V8 X2 o, D" [" W' N! C' s  d      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 o: T) J2 y2 ?. C     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ' y2 r& v) o$ ~# T7 t8 e5 f6 M     "}"}], ",", % t/ z& W4 h0 ]6 @  H, N
       RowBox[{"{", ' M* f5 c& S8 W; R& k2 h; _  H
        RowBox[{
    $ B/ S: l, l8 i6 x4 e( T% q1 h    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% e/ Q7 t3 ^& P" O, o1 d  h. ?
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 \" t& q8 B% w2 D& w" }+ o
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 c, ~( [: G" @7 Q+ v8 i% n
         "}"}], ",",
    : B) C  m  x7 }' k   RowBox[{"{", , P# s9 h7 X: P: K, J
        RowBox[{
    , F: [) `0 j2 g2 G- |    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; {3 g8 t0 {9 B) @' Z
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; h* h; L* U  r/ W; ?$ O( l# H
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ! d& @' Z/ E$ H( ?( V! e     "}"}], ",", 5 E$ z2 G8 o1 d! N8 r) ^
       RowBox[{"{", 4 ]9 {  M! _6 [- @$ M. e
        RowBox[{' v) b( T0 N0 Y
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 X6 j  P2 ?: ~  P" m      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % l, O: [) q7 E( `/ Z' I% `" @  Y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # h  x. @0 V' Y6 X2 H1 X     "}"}], ",",
    8 X# Y' C, e$ B' u: @6 ~   RowBox[{"{",
    , X8 @# P, r7 ?0 ^    RowBox[{
    . s2 U9 I3 [. t$ W3 J+ q" L    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 d0 v" ?  g, x0 D* J
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 v, u' Y0 U% h! c& b1 i" R
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    4 e3 w2 D8 o2 W: J9 L     "}"}], ",", : U  {/ @! M1 X& \
       RowBox[{"{", " I/ ~+ ~: n9 e  q( c
        RowBox[{
      K! Z. ?/ L( s' I$ D: i7 o% u+ @    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    - ~8 n3 \+ Q) \8 g3 X2 `* j, E      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      \2 J& [& h* h9 ?1 ^9 H" |, u     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    + u9 r( B  Q( Y     "}"}], ",", % i) h% _2 a; t5 A6 C2 P! q( L
       RowBox[{"{",
    0 F! `+ F4 w  E9 z9 d2 m& Q7 M    RowBox[{/ w# d/ n6 z( ?8 G: w
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 p) c3 B9 V- Y; K5 X" j3 @6 n
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    - A' t5 J9 I9 ?9 G- W% }- m6 E     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : k; k: k+ _- k, q" l& r3 i     "}"}], ",",
    $ f$ U" M$ u" ~+ Z2 F8 G   RowBox[{"{",
    ! E7 B/ p8 a" e    RowBox[{
    8 N8 Y0 [  @2 b/ F    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    " |# L( d( B4 z3 T* y. I" b      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 i/ ?5 W) ?8 I7 ~
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 Y8 c4 G4 d6 b" s; c: g- |* N
         "}"}], ",", + B# b% }# M- o. y9 F) O4 E. O
       RowBox[{"{",
    ) ?& M2 k$ R" o; N/ b1 D! S/ F# n    RowBox[{
    & |0 Y' H: V6 L1 U. s6 N    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' a; M3 O( B) U3 |4 A) m( ?. l4 m
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) j; f# ?! }2 T8 [     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ( ~( B9 _7 p7 ^) x     "}"}], ",", 8 M# Q! S5 d5 S4 W  G4 H
       RowBox[{"{", ) s+ m: f9 F' {5 S
        RowBox[{6 E' ~: k9 P0 G( B3 q$ T
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 I) p8 T' o' W% Y! ?/ w% u( o
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / F& B  ^( _/ y% d9 R3 }
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ' C+ k" ]. Y0 f) O% l     "}"}], ",", " J5 j2 w( _2 W; u
       RowBox[{"{", / d$ G& x# s. G4 l
        RowBox[{
    5 }! ^1 }; N1 [/ P    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: h5 q' W, @& ?2 ~$ b
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    + s5 e- G5 s5 i4 W  y" j( F     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # Q* ^' G" ?8 v4 s: a7 v4 j     "}"}], ",", # V& L5 G" L1 a1 f4 O! q
       RowBox[{"{", ; ~4 y8 ?) F9 ]' H# j% D
        RowBox[{
    / r: D, ^; \2 J! W' M0 F    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* n" T: W" N7 J) I" r& f8 o7 `3 \
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 A9 D6 r1 t) g9 B$ @6 Q
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 P3 g  d( W; I" @
         "}"}], ",",
    3 R. G) G+ s& k+ K' j7 ]' S) J1 l* o   RowBox[{"{",
    ; e( ~5 [1 ?8 [( y    RowBox[{9 \$ x/ O4 Z5 Z0 ~( k
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 M% _7 \" x9 ?4 C% N  @- \      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 g7 ?  F6 c. S; m1 F
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 b: B4 `* |9 a/ A1 z) M+ C7 I  \     "}"}], ",", 4 R% r  \; S, [5 S
       RowBox[{"{",
    9 O& N/ W8 i8 L    RowBox[{
    ; H8 Q; o2 r- }6 [% ]    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 b. M/ `7 P7 S% S( g$ [$ M: M
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    $ H! }% ]2 N9 h1 V1 @! d7 q$ {8 V3 @  d& b     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 Z" ]/ i7 k4 Z7 L1 [     "}"}], ",",
    ) ?2 O  H& @  V. O1 P5 |   RowBox[{"{", 3 W  z% b# C3 |4 Y6 O. Z
        RowBox[{
    " u7 f  o8 V6 N    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; T) A$ @2 I1 O3 `7 u8 U8 ~      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , z' E- n/ S1 a+ X. X" s     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # |1 V* J& R( H" B; i     "}"}], ",",
    * H4 Z; T! i) J   RowBox[{"{",
    ! W" e4 i3 w& d  e    RowBox[{' i( o+ T0 V1 d; l/ c
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      d& `3 X6 _- M4 h( p4 _! j      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! q9 V) V) N" J! s% J8 |! |     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ) H5 C: n* G' P     "}"}], ",", " J" O# E; _# f+ ^
       RowBox[{"{",
    8 B5 H0 r2 l) ^! w% {. F! u6 O! p    RowBox[{
    & \- d4 b  R& t- N5 c7 Y/ l    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' E7 H0 [, k5 T
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 z; S2 y* T' d7 V
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; H4 s5 f  I$ @0 B( ~6 C     "}"}], ",",
    " }1 i' L" ?% ~; y* o4 V9 T, s   RowBox[{"{", ' C) @, z' R: ]% A2 l
        RowBox[{
      b5 {3 {0 s/ y( _! Z3 y- m    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- [3 q4 m/ I! y- I5 T0 T' a
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - \, U5 x( g7 G, i
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ) u! `1 H5 J; ^, p, \8 d$ R5 ]     "}"}], ",",
    5 v  F+ @/ D* T( Y8 Q5 k- Y   RowBox[{"{", , n3 `4 ]* n$ D- ~" Q- @/ u9 q* `: S! i
        RowBox[{
    1 |3 U' v5 K! g$ Y- F& n/ n    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ \# Y2 J1 [/ x! |; J4 d- Q: ^
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 P2 @1 h2 R, P' Q& P- Q
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# V, ~* _7 D: v8 Q' g
         "}"}], ",", 1 [/ m# J& ^4 S3 v0 k
       RowBox[{"{",
    ) w6 E5 q( h6 n4 n# c    RowBox[{
    3 A5 \2 \1 ~  @7 Z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 ^2 ~* C* @: @8 |6 z3 Q+ w      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 B. s: b2 F* ]) H     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    - Y7 c6 \5 j' j% N     "}"}], ",", , [8 S  G8 K5 J; [2 q7 J1 h
       RowBox[{"{", 0 I) Q) p) t3 y3 e( w
        RowBox[{
    * j7 T: |: t' A9 B! T! c7 {    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 R8 o  X: F4 t. e$ c      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " {; o6 M) K5 j' R1 z
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 v, N" B2 n. e" `( p" ?     "}"}], ",",
    2 b# I6 m1 o) A/ H   RowBox[{"{", / Y/ L- c7 g- D. i
        RowBox[{
      u5 _' S$ {. B7 @# I, B$ w+ Y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( W8 ]% g" a  ~. j      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , x1 K3 l; S( S' n7 k     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' f7 w" g+ [( X7 t3 T3 `$ A2 i+ q
         "}"}], ",", & Z6 [( Y9 A. {+ N, w' H" l
       RowBox[{"{",
    + \6 @7 K$ W/ j0 A    RowBox[{
    9 j. l: y1 z$ i. Y1 `    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, K; _# f# x4 R8 ]7 ]1 u
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 w7 g) g/ R( C4 j, s3 q
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ n& l( q6 q; L
         "}"}], ",", 4 i$ T/ S0 Q/ _( x7 w! P
       RowBox[{"{",
    + e, v4 o" {  @& e    RowBox[{
    + R: y! y$ O- [9 J9 a    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 e! ?# |4 }) t! [      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( B. W3 w& b; W# o  |; C
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    * |7 ~  R1 k3 s     "}"}], ",", + ~4 i6 D# v5 i+ y7 z2 Y' R
       RowBox[{"{", 3 m' O0 b0 e' L5 B
        RowBox[{
    " N& t0 O; r% |7 e    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    % c- F' j0 h6 z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + q& w. `7 `- L0 e! k4 y
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  O: S3 X1 [  ?# s
         "}"}], ",", ! L! E, e* {* J9 N/ j. f: F
       RowBox[{"{", 4 g/ s; q$ w7 t" b' Z' @
        RowBox[{: z* u- u4 j# t5 S) p; B
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, r' F* B- Q2 z' m: f* f, C0 Q
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / R: P  r6 w' x; r; B) G$ v, p  Z5 X
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ' z" N+ [. m0 f. C% R) f! E' ]     "}"}], ",",
    # `2 o+ W' z" Z7 H  b6 i   RowBox[{"{",
    2 I- u) J  @: x* w+ R, K" b% o    RowBox[{8 }, ]/ Z) ]) C
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 X5 F- M) |0 L/ I! h  C( s+ c  A      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    . S1 i6 w) S3 h9 i5 d- O     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    - k. l) i5 X% ]" h0 p1 g  c: V     "}"}], ",", 2 H9 l6 {, u6 o  c% o$ x
       RowBox[{"{", . V% H; _2 G/ p2 S: }( b6 \$ `
        RowBox[{) @1 _  i7 C0 F" w2 H- a* s: x
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      c7 t; K% A1 M1 ?( E      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , ^& K5 O* H  }3 i& f
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' Q8 Q; V7 Q9 x- ?1 |9 v
         "}"}], ",",
    0 ]6 c% m6 A. w9 Q6 H   RowBox[{"{",
    . x0 `% W4 H3 \  q5 t# C    RowBox[{: H) F) ~+ [! B, P2 f. F5 G! F: Z
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 }+ S' M9 H+ K! b. d% C      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - a; |/ [& R  r, Q
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; D4 e1 `" V% w' N     "}"}], ",", 6 {) J# a# A% G
       RowBox[{"{",
    ; Y/ X0 u/ f$ X$ l+ u0 q    RowBox[{. a8 V' S. ]0 c; e+ r  L
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ _& f/ \( M7 H
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 `3 I" J/ k4 j+ L; V     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ r7 Y& H! e0 X0 t% F
         "}"}], ",", 2 S8 e: B; E5 ~) V8 S: w
       RowBox[{"{", " |. F4 {* l! _) w2 ]; h! W2 w$ V
        RowBox[{: d+ D" L2 U# g- Z3 G0 F
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 s3 w! X. n- B7 g' `      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 t9 }4 @5 r7 X6 W: q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ I4 o1 R; ~- R* u4 Z( n8 l( j
         "}"}], ",",
    5 S$ Z2 t5 _( b1 q8 V$ \   RowBox[{"{",   Z8 [% x7 E5 ^: H0 p. |
        RowBox[{
    4 V0 r  [$ \/ j! X5 q    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    3 }9 n" c% x! d      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - @0 l$ p+ T  i8 K  B( b
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( p" ~& L/ s" `1 _* @& y) S# `8 v
         "}"}], ",", ; f, }* p% [( }" s9 d0 v. [, p
       RowBox[{"{",
    3 n3 X0 ^+ Q: F$ Q6 P    RowBox[{
    & |" G4 u* x. w4 r- n    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 d$ U% e5 F# R9 l: X) w# w      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & S9 ^0 X. f2 S, _     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 }9 E. r3 O+ q7 m5 X
         "}"}], ",", " S5 s: P5 j& Y$ |$ ^
       RowBox[{"{",
    ' f4 j; l; w) ~5 V5 J+ a, B, R    RowBox[{
    2 w8 j& i! Z  {( e    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! w; Y% v9 N! C% F. o
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    / x8 U7 y" P8 }4 r' S     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," M2 }% c6 B$ \
         "}"}], ",",
    + i: r* S) [- {; U   RowBox[{"{",
    + F1 j4 D1 U; {$ ^% r    RowBox[{
    % x+ c9 V% \- f" M    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 C3 @2 \/ D, A  w" ^: c2 n4 o( I      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) W# C( j0 a! Q# s; d6 o# D
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ( e$ r% R5 o5 N( Y     "}"}], ",",
    2 Y1 A- X1 H7 y- R3 D: B. c   RowBox[{"{", : v, ]# h& q9 K' N/ r+ s3 @
        RowBox[{
    " i$ _# e" d8 e* Z/ {) k    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 \( p# Z" P+ D2 U' k3 m4 F! r
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 z4 G; H% a3 J; t% A9 l' Z: ]. d
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 l% e" I7 Q8 ~* P, u5 K0 M' T
         "}"}], ",",
    7 l$ @, ?8 g5 |; p   RowBox[{"{", * E& L4 N7 J: L5 M7 d# O3 c0 E
        RowBox[{
    ' [! v8 j4 _  Y' ~. ?( m) d" ?+ ~    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 d& C& ]( |- l. j" d
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , b/ a5 t& |) m7 ~/ b; ~     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 Y9 b; I  t! l8 y6 T
         "}"}], ",",
    3 W; Y5 p" u3 b2 U0 q! T   RowBox[{"{",
    , }" Y* e+ [6 L3 ~    RowBox[{. f" ^) T6 D: d$ S
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , A3 c  |3 N: Y0 X/ h8 ]      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    $ I  X* @" x9 A9 e0 U2 n2 r     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 ^, ]; @) w1 [# s/ x1 `& K$ `
         "}"}], ",",
    ! A1 q% s& P; J- O% ^   RowBox[{"{",
    $ o7 S+ Q+ r3 @  R+ D    RowBox[{3 ~! I2 p3 k# V) [9 s) o! w5 M
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; b* I- {6 b5 H- t# B! q! H9 I      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    / r1 ^6 T4 C; K     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 g# X% ]! o& v- @
         "}"}], ",", & `" f! R1 u! U0 P* J' h! ]3 R
       RowBox[{"{", / `" w( c; ^5 J
        RowBox[{/ x7 u5 R# r- X3 Q$ |/ |' z
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      Y  f* R$ m$ @% m  ]9 i2 V" Z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' G; X6 p5 y+ T1 N5 L6 ?1 P# K
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    * K8 r$ T7 `; I4 C  b6 l) n     "}"}], ",",
    & @1 [9 h! U, k* S. I   RowBox[{"{", ' m+ c  r8 X' o4 N9 I$ z
        RowBox[{! I6 V' q7 J( b3 N* z8 d
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : {% r( h2 j% R9 ?( g      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) Q7 s/ r) M* \% C. S     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* J. i" M4 B1 K9 h' l" y
         "}"}], ",", 0 @6 e# \: T1 m
       RowBox[{"{", 4 E# O8 j% e) G# D
        RowBox[{4 H  n0 P+ I. t1 x2 R7 ?8 k
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 w6 n$ V: ], Q9 ^+ P  X
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & j1 x3 u0 m+ y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 }: x! m6 |1 S. l9 X. Z8 T     "}"}], ",",
    3 W. B& ~8 h* R: f9 v6 A* l% ^6 _   RowBox[{"{", . }# Q& ?, E7 |/ d+ S( p( |* Q3 P/ ]
        RowBox[{% P* I" q; R# u! }) J
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 \2 w* L: P+ N% S# m
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' b0 Z) \  Z9 D' ?
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* x6 R9 B- M( n
         "}"}], ",", 0 Z4 ?. j# M# o' [$ X; S& H- K4 J
       RowBox[{"{", 5 l* _9 s* h8 Y- z1 _- w6 {5 I
        RowBox[{
      @# y' F# ~" \    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 N8 L3 }6 d/ F1 [. `8 f3 r  H- `      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / l' Q" F2 q& o3 c7 C' Z5 \/ |
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 q8 c2 }1 d9 Z" }+ U* a) m; y
         "}"}], ",",
    ! h' ~. B8 X$ v/ i: C1 Z  V   RowBox[{"{", 0 N# T# o5 j: ]& @3 J; R7 Z6 i: C! \
        RowBox[{
    / ~7 K. o. i' J0 L( `  _7 A    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ |+ s, M5 d5 i4 V' M% M- m
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " V! W) O. a* @5 `2 _" C
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; D7 I7 J0 r  |% M# R" `     "}"}], ",",
    7 {% S0 e- R0 z   RowBox[{"{", - U4 O7 g5 j6 G+ a
        RowBox[{7 {, d2 F. ]. ]! x4 l# e; I; @
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, v6 f' c0 q9 o' [0 D0 r, Z
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) p: F7 e: y" z- T5 X9 n. C     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ x3 t4 w" O% [% z" R/ T; @
         "}"}], ",", & m: E, f$ g" j8 ^3 c( A3 w
       RowBox[{"{",
    1 U2 u) }& I5 q- G" b: O0 W3 a    RowBox[{
    % E$ @5 d0 T1 B) ~- x. `0 s    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' F+ {: l8 D5 }5 r+ |0 q: b# w
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * K# a6 y. J; M0 d     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : ?8 V8 I' K4 K0 o5 @     "}"}], ",", 0 g1 p! h0 l6 D) m2 h
       RowBox[{"{",
    " g: T" H& [. }( C  M+ Y    RowBox[{
    ! h( I* k, ^# n% O% D    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- {  h- K6 ^4 X
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( u# J6 i! x  f
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% X7 L! t' D) C  A& I7 f3 u
         "}"}], ",", . d& L/ Y* O9 }  u* j' X
       RowBox[{"{",
    : z0 w" M" i9 O  u2 e0 A    RowBox[{! j9 e: V! F3 i+ q; I
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ j* k" ]+ ^  O$ g5 k
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) w' R' V7 g+ `  H1 }! j     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    4 V% q6 t, x* F     "}"}], ",",
    5 G: z; h, m; R1 H3 x" c; ]/ H   RowBox[{"{", & Z( D! K7 Y: `- S; y9 b
        RowBox[{
    . H. [. |$ ]! y% z2 B    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; y0 h0 {% j' f1 z, s' j      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! v) u# d' b+ R" u' ^- e5 C     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 c# c0 z8 H# S8 B7 x1 O6 t# z
         "}"}], ",",
    ; v( k3 a: C* `: o+ `6 T   RowBox[{"{",
    + ^4 ^$ V$ I- m" t    RowBox[{
    ( A$ X- j* ^4 k- L: M2 n4 i2 ^+ F    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 O3 |# U1 x( x      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! B7 i$ a+ I6 ~6 _6 }
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) J: \- r, f' t
         "}"}], ",",
    & o* ?* h/ R3 ]! D7 c  J9 h' E   RowBox[{"{", ! o2 ?% [3 |# x4 J) ]
        RowBox[{
    6 O! r4 u( z8 k9 e; p2 t" A" c: y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 K: q4 o  |. R/ V- z/ n% R
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 v' L2 o3 n  c9 {' V( \& I
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," @' N; V; _1 Q# U+ y' q
         "}"}], ",",
    ' g6 @0 [' q9 T/ q5 ]9 _0 E   RowBox[{"{",
    , @; U; ~) n! c    RowBox[{( J3 l, ~1 R  ?+ D$ U- g& H4 Q) p, z6 s
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  S0 J( e- f0 e: ]; W0 f9 a
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 k* V8 ~" U% m9 K/ \/ N* J# U, a
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    + e; k( r4 @6 Y5 Y5 c; E7 a     "}"}], ",",
    2 f0 E- X; ^' f# v1 X   RowBox[{"{", " H" T' c3 d9 L1 q0 o' a) T
        RowBox[{
    7 V7 ^2 H6 g2 \# ], B    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : B( s% Q' d  [; w9 {      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 K2 k7 P( N; P/ S: m
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 ]: U7 p9 k8 ]
         "}"}], ",", ! L5 x$ W: d' ?' M0 p3 C4 w0 ^
       RowBox[{"{", 2 V8 ]2 n4 X* i, A6 H
        RowBox[{
    . v+ f- i- D; O( Q    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 d3 _2 w# \3 ]/ n' I! A      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 J  r$ S! u' I) Q
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' f2 ~) H) h% e+ X* q
         "}"}], ",", 5 U; P6 D- ?( i( h( n2 O) Y8 G) N
       RowBox[{"{", 1 x! `  A; p& H; Y. _% e9 E
        RowBox[{; A& q- `1 [4 V& f$ |
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    7 w0 G1 }3 P! ]1 o/ C) R      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 a/ [0 p- Y( j/ ^6 y
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 {# g, A: A: {6 c  K& q' ]0 T
         "}"}], ",", ( f* j5 e7 S; [- D) e
       RowBox[{"{",
    ) P3 z. l7 u  E. F    RowBox[{& l' H* U% x% \  Y; I" o1 D
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! V1 T3 E8 M4 }2 b# P      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & S  u, l; n5 K2 G& ^& q8 ]     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; ^* G0 d' \8 E9 {+ C0 `' v! r3 m! K
         "}"}], ",", + Z) r6 o0 C  y6 w# O4 [
       RowBox[{"{",
    2 u9 i7 z. Q% C% ]) f" b    RowBox[{( M1 I) [9 _6 V0 s* i& p
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, P( }. A2 T% k, J& Y& s
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 D4 N4 G4 D! d  W. z- x' t" _
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 [4 N; ^6 [# ^/ E. U* W
         "}"}], ",", 5 M" }% T+ D9 g* o# A
       RowBox[{"{",
    9 R7 ?! r9 l0 m+ q  a2 B+ W' C8 b    RowBox[{( Y) B1 j& w, @
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 k. P2 `. `4 u: x" n
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ' o% V- k1 f/ t, r$ ^     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: b3 p' b0 q' A7 r
         "}"}]}], "}"}]], "Output",
    % l. j: s0 [1 u& e" C$ M# @. ]  l CellChangeTimes->{
    ' ^2 W! ]9 v; r4 K  3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9}, 1 k, R8 ?2 }! ?/ z  ]$ f! u: R4 A- k
       3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9, # B! p/ a2 K' X$ W5 s% i
       3.5779619748823338`*^9}, 3.578012345453125*^9}]; S# X6 V. t4 g( Q
    }, Open  ]],$ M; O& [# O( a: l7 Y( q
    4 i, g. @4 B8 P" y$ m0 s
    Cell[BoxData[
    6 k. N8 i7 Q. f: V, [ RowBox[{"For", "[", ( o6 _* ]( k- P: y- g3 s4 t1 k
      RowBox[{
    ' A3 F7 r- c) Q$ A* x! G4 n   RowBox[{"i", "=", "1"}], ",", $ i3 d' I8 X4 J7 ?- i2 M
       RowBox[{"i", "\[LessEqual]", "60"}], ",",
    + q3 N' D% h4 `1 V7 n" E) V& ~   RowBox[{"i", "++"}], ",",
    ; `- c1 z) i0 x   RowBox[{"{", "\[IndentingNewLine]", & [3 R. \( v- M& h, x# c
        RowBox[{" B( I9 I5 z; \( v3 X
         RowBox[{/ w8 r7 m' o- w3 d
          RowBox[{"m60n21", "[",
    1 o# J/ j; x6 F% ~' l5 ]- N% U) X0 \       RowBox[{"[", 0 U, B; z5 |% i: x/ C0 z
            RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", ! Q# u: ], F" N% E  Q
          RowBox[{"u1", "/.", 9 J9 J9 C5 b2 C; a( I% ^: A
           RowBox[{"{", ! q! ^% T9 V, V4 m+ g3 C
            RowBox[{
    6 ~8 V* A' G( j5 @( ]         RowBox[{"x1", "->",
    1 G% A  B2 J$ b) r0 v* l          RowBox[{"Data", "[",   D0 J( g7 l$ l. R7 Z! `
               RowBox[{"[",
    ( g6 S- Q4 Q$ j3 U% Z- f            RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    $ u+ o/ i  l2 ?# T6 t3 ?, S         RowBox[{"x2", "->",
    # f" A- f7 ~* ]' d1 h          RowBox[{"Data", "[", 5 i( _/ n" a# Y" K8 t
               RowBox[{"[",
    9 r, s  J( S% Z& [, b' p/ m            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    7 h% j+ P0 c' J! q6 A         RowBox[{"x3", "->",
    4 Y9 u* y' F. \* A          RowBox[{"Data", "[",
    $ t  m: Y( Z) s$ j$ h           RowBox[{"[",
    # X0 q' B& I  `6 `            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
      I& M7 `- W3 w/ J9 U( l         RowBox[{"x4", "->",
    / u9 b$ i5 R" O. G+ d6 I# H          RowBox[{"Data", "[",
    3 [* O5 ^4 l# Q/ k$ V           RowBox[{"[", 6 I$ d8 F  {- Q# C( W6 a5 a
                RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    6 \9 r4 j3 @" T2 E( o, `         RowBox[{"x5", "->", $ {3 B( B, `% P
              RowBox[{"Data", "[", % k5 N% S. D5 A& O. B
               RowBox[{"[", 5 U" u+ N9 ?. ^/ G; L
                RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    7 ]& N9 @5 o! Q: {         RowBox[{"x6", "->", ! L0 j& o5 l# d) j' ?
              RowBox[{"Data", "[",
    8 i/ h6 P9 E) u* ?           RowBox[{"[", / q6 b7 _" p. l
                RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    $ H, L# m/ y2 B  W; t. u         RowBox[{"x7", "->", 9 M; z. |; w# l9 s/ z! u, N
              RowBox[{"Data", "[",
    6 J' p5 r) H' t+ z- w           RowBox[{"[",
    % g& Y! b7 z  o4 ]! v            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    ( K% V$ C# n& ?         RowBox[{"x8", "->", 5 @! Y* x$ ~& O% r( t6 o
              RowBox[{"Data", "[",
    2 R6 k) k  }& }/ M! `- m           RowBox[{"[",
    + U& P; ^" ?7 d3 U4 T7 ^            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",   \; i# m6 D, P7 j% P
             RowBox[{"x9", "->",
    8 q9 ]' C. k! a+ J9 J6 E          RowBox[{"Data", "[", ( Q8 ?2 r4 D5 U6 G2 g) G3 e
               RowBox[{"[",
    : ]6 B# k" r$ A  A            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 2 f9 Q6 B' v( Q  u
         "\[IndentingNewLine]",
    4 f+ a, |( z3 D. k7 J     RowBox[{, Y& G  r. k/ A2 S( P7 t
          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 ' V1 y' r4 I  T
    神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
    * `5 K( B" e( A0 z
    (* Content-type: application/mathematica *)  S- d" Y+ S& _) f9 g- Z

    4 y$ U. B$ \* H- O(*** Wolfram Notebook File ***)
    . V/ b2 s( Y7 f6 T. U  P(* http://www.wolfram.com/nb *). ?. \( a9 g1 a9 a
    . |( X% }2 i: M0 D1 |" X- b, p
    (* CreatedBy='Mathematica 7.0' *)3 A% M0 D+ b  J! w: f; d! S1 X$ r

    9 T5 n9 b& ?' J; X(*CacheID: 234*)) s7 }0 E, ^. ^! m# K% f: V1 v) u
    (* Internal cache information:3 r$ x0 _$ o) A7 K  y
    NotebookFileLineBreakTest
      N# f- E% p% Y6 F7 hNotebookFileLineBreakTest
    3 I; s3 m; c7 j% M; v7 w! B& ^NotebookDataPosition[       145,          7]$ c" t) v  z  L7 F8 K
    NotebookDataLength[    423629,      11534]
    " z* H/ {2 S- `( i9 fNotebookOptionsPosition[    412607,      11173]; f2 f2 U0 j+ v/ n$ B
    NotebookOutlinePosition[    412953,      11188]2 S9 b# e1 ]! j( t9 Z5 a: M
    CellTagsIndexPosition[    412910,      11185]8 A; t* v" M* X# D! B3 N1 Z
    WindowFrame->Normal*): t0 [# K/ D; O1 ]- R* v

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

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

    & U3 A5 m8 z7 F' J2 i/ t( G. E6 `Cell[BoxData[
    : C2 P1 }$ H' Z2 @6 x RowBox[{"For", "[",
    3 W3 b0 G# |& C& g! r  RowBox[{/ M& i( x0 }0 Z- g# D
       RowBox[{"i", "=", "1"}], ",", * j! z- m% C2 v2 y  C' K
       RowBox[{"i", "\[LessEqual]", "9"}], ",",
    ; p+ }3 A- g1 H( T/ y' ~   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    ; ], a3 F8 G! N& Q6 n6 s* ?   RowBox[{2 W- Q8 t3 P2 _7 o! Z' f
        RowBox[{) T! K0 j# P# l; m9 k- U, ~
         RowBox[{"CM", "[",   D" @6 F6 }3 a, e
          RowBox[{"1", ",", "i"}], "]"}], "=", " m3 }+ |$ P( s+ Y- d* d
         RowBox[{"Data", "[",
    : H  g+ G7 C# L; r2 q; g/ S2 b) s6 P      RowBox[{"[",
    , C$ |" N$ `( [$ ?" C* _       RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}],
    / x' b' f. I5 i% f  e1 p  "\[IndentingNewLine]", "]"}]], "Input",8 n% n& S4 m0 F2 F* O
    CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {! c% W6 \3 }5 }. O
       3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9, 0 f$ g& y0 M8 d/ M  z0 T8 w$ K1 k
       3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9,
    3 z& i) C, Q" m   3.57791344209375*^9, 3.5779588070933466`*^9}],1 e% I9 x! D! i# L1 N2 |

    , T0 D: I8 y8 Y' Q0 v2 c) QCell[CellGroupData[{- a% R8 D! @( k8 E# Q
    ' \* t" _/ f5 H' D. b
    Cell[BoxData[{4 I. ?' y+ l0 s/ T0 e! q* p
    RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]",
    3 M& u. w0 G+ o6 T. K: i! ]/ O RowBox[{"M1", "=", "1"}]}], "Input",
    6 h. \9 W, f% T$ H5 ~( ^. b" t CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {0 H4 N& a. |0 Q, @  o
       3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9,
    & l5 H1 I. e! @" {' U. Q   3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {0 v1 X+ f4 u0 R% I1 q( a+ N6 F
       3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9,
    * b& G6 D! P' f& _   3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {, p! K- u- N- m( B( o* M- O
       3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {: r( e; l: E0 ]
       3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9, $ T2 q2 m$ `) @) U( A. J
       3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {/ U6 Q* u1 h* M7 j
       3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {0 X8 a+ ~/ t: m
       3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9, / V! X. t  C2 p5 n
       3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
    * v/ J4 B1 g. y3 H3 `1 q1 R: I4 T& E6 \" o3 r0 }6 p5 [/ j0 _& }
    Cell[BoxData["0.2`"], "Output"," F4 _; \( D$ J1 j
    CellChangeTimes->{
    % M$ u7 A- b0 P: t  R  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, ! d% i3 A) Q9 ?4 X, G4 J
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    6 `& o/ V* ?% `% j( w   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    ! U) Z+ X' I$ r* s   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
    3 R! a3 m0 V$ K" O2 v2 u* G3 i/ g1 C   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    - V) {7 J6 |" g7 u& I1 {  Q   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {. r8 F! _: m$ ~5 d  ?6 s" y5 L' q
       3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, 0 r- e/ T+ m9 s  a0 k: p3 ]
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    ) F( {- b2 W6 P9 K4 a# s9 H4 p   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
    , o. P8 b2 T4 O/ a4 [% c# _   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    % R4 u: t, s' X5 v   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, , Y+ j4 |4 l0 T
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    3 ]7 r2 A! l+ e% L% i% n   3.577960510686717*^9, 3.578012149296875*^9}],# _0 R8 S. J  n! |
    0 T/ }7 G+ ?3 T7 P8 H, \* |; Y! X5 I+ @
    Cell[BoxData["1"], "Output",  k0 [0 u8 ~( }
    CellChangeTimes->{0 i) f* N+ r$ L. ]% Y" q
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    7 i% Q: v* ?9 t# L  W  E: C   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    5 T8 z% f$ [3 p' a$ |   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, $ ^1 a& n% w4 l" p+ T- m3 @- z
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {7 @' l" Z5 X5 d) G# w
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    4 A( Y! E, m1 r& `& M3 C3 N   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {1 {) x5 G- n( D/ ]! z
       3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
    1 J, `: @9 \% m" T% \/ f4 [   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
      w' c2 ]/ b8 }7 n# z4 R. ]) g) z   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
    2 K5 \1 X8 ?4 E/ k   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    : t8 F; C2 H$ T: L' v" d9 }   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    2 n6 R( m5 A+ p; w   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, ) c& E) u/ \! i0 U3 c
       3.577960510686717*^9, 3.578012149296875*^9}]
    # G4 e+ I7 U" j7 T}, Open  ]],
    + n/ U2 G4 L  D% I+ t/ K# I3 ]. b+ D/ |2 `
    $ t  b9 H$ f! o* b5 r1 ~  GCell[BoxData[1 x+ A% I  Y% f9 _- K" q
    RowBox[{"For", "[",
    , u+ o  q, E4 U  RowBox[{
    , l+ W: Y( y* Q   RowBox[{"k", "=", "2"}], ",",
    ( a$ S9 G1 M/ T) ^. Z8 G6 |   RowBox[{"k", "\[LessEqual]", "60"}], ",", # Y, ?1 r# |5 m+ `0 a0 Z
       RowBox[{"k", "++"}], ",", ) ~, X3 ~, D1 A4 @. \, q1 U
       RowBox[{"{", "\[IndentingNewLine]",
    5 s; ~; L2 |; j8 S" C% J    RowBox[{3 I  m* i; f& |* U
         RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]", + ]( O9 K# }- r
         RowBox[{"For", "[", $ }/ h0 s; ~7 c9 X) J- K
          RowBox[{  u0 f1 k1 [$ h/ y2 S. d
           RowBox[{"j", "=", "1"}], ",", 7 L- L$ A% k8 z# [2 @7 i
           RowBox[{"j", "\[LessEqual]", 6 s# F+ b0 r1 x- g( o! H7 i
            RowBox[{"k", "-", "1"}]}], ",",
    5 R. u. D- N5 [* t: F9 e       RowBox[{"j", "++"}], ",",
    6 S! V8 i5 X+ D& t& Q4 X8 b       RowBox[{"{", "\[IndentingNewLine]",
    & {' D7 F9 j4 N" t- e2 g1 t1 g" G        RowBox[{
    % g' Q" O: S" F/ f: G         RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]",
    - @  k* f- H& f' d* e' V' j, C         RowBox[{"For", "[",
    & n. r* S* X9 I  l          RowBox[{" }3 [9 a. c. b2 W3 t
               RowBox[{"i", "=", "1"}], ",", ! a* V, p) w9 n& Z& H. ]) g3 y
               RowBox[{"i", "\[LessEqual]", "9"}], ",",
    $ l9 m4 u% v! Q* Q% s           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    , O: m7 a# C+ e, Q7 w  z& p, c           RowBox[{8 \2 S, Y: D# m' H! M4 `- d. J
                RowBox[{"r1", "+=",
    ' J5 k& O) m" n+ G3 Y# g/ ~             RowBox[{8 I) j" v5 `1 o1 C5 @
                  RowBox[{"(", $ R0 z7 D3 E" W5 [
                   RowBox[{
    $ X7 [' f2 }/ b! k/ Q' o5 `                RowBox[{"CM", "[",
    * Y/ e5 A3 F( H. f$ c& V8 L                 RowBox[{"j", ",", "i"}], "]"}], "-",
    6 K- A- Q! J, w( w0 m; d                RowBox[{"Data", "[",
    * |6 v$ q. v; `7 z, {( d7 ?+ p8 t6 \                 RowBox[{"[",
    & I$ Q+ @+ p0 @9 r                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
    ( X8 a1 N! R" Q" {9 }: m              RowBox[{"(",
    3 A5 b8 v6 k  M8 E" K' T               RowBox[{' A+ ^3 |# f1 R9 J
                    RowBox[{"CM", "[",
    ) i& ?9 D( i3 V& z* _) {                 RowBox[{"j", ",", "i"}], "]"}], "-", ) R# C2 o" M; a) c! G, G
                    RowBox[{"Data", "[", - V' V, f7 v: B( j8 [
                     RowBox[{"[",
    , I3 S- N+ g3 U, {                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],5 ?7 [* c' G/ m* @- {
               "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
    4 Q; d4 {8 l" P+ k: h/ M         RowBox[{"r1", "=",
    . x7 J  }4 |- b- g2 o1 D# F* b. y) b$ ]          RowBox[{"Sqrt", "[",
      h- R2 l- T, `4 U- n$ g           RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]", 7 y! K+ k3 M/ h  K$ Y
             RowBox[{"If", "[", " ", 0 a# w/ C5 \/ p# z7 c' D
              RowBox[{3 ]9 ]" }2 l; L
               RowBox[{"j", "\[Equal]", "1"}], ",", - |! t# S, w2 {3 ]" R% m
               RowBox[{"rmin", "=", "r1"}], ",", # E. D9 a( i9 Q9 @7 Z
               RowBox[{"If", "[", 0 D6 T$ J/ l- L+ R
                RowBox[{
    & C2 R: K7 I$ R) I% h             RowBox[{"r1", "<", "rmin"}], ",",   E# r1 D( [2 a- Z1 E5 m- [
                 RowBox[{"rmin", "=", "r1"}], ",",
    ! J* j6 I1 b7 X7 O& l7 h             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}], * v3 D2 w" m+ N" f* g1 o5 H6 w6 v
            "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
    7 K" A* U; J& Z9 q# L  W' ~     "\[IndentingNewLine]", 8 J# {9 y, i- S4 I8 f. F/ e' f( r! @
         RowBox[{"If", "[", " y; r: x0 I2 s1 O' i
          RowBox[{# h: B3 e+ t6 @7 b' ~. f3 m
           RowBox[{"rmin", ">", "r0"}], ",", ) v0 i3 F# a1 r9 u; z& F9 V
           RowBox[{"{", "\[IndentingNewLine]",
    * ^; N& R% i: C        RowBox[{
    9 L  L6 c( ]3 D; f' m         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]", 6 f/ n7 j/ f/ f/ p  p! n
             RowBox[{"For", "[",
      n  v4 D% v3 A  S, @$ {  I2 a! z          RowBox[{
    2 c1 _' C: n7 J           RowBox[{"i1", "=", "1"}], ",",
    * l9 T9 S! @% `) }7 ^( g           RowBox[{"i1", "\[LessEqual]", "9"}], ",",   c3 f0 S  D$ V. y
               RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]", $ Q6 r2 E" H, t
               RowBox[{  m3 Z5 G$ h+ U& R1 Q2 w+ l
                RowBox[{
    ; X9 }/ g1 J. j: N; X2 u             RowBox[{"CM", "[", " Z4 I$ Z. p8 l
                  RowBox[{"M1", ",", "i1"}], "]"}], "=",
    ; l5 q2 y* p* d8 a3 P" D! M             RowBox[{"Data", "[",
    ( t, O) M, g7 c5 D/ J' f* @! U              RowBox[{"[", 8 K* n5 z+ o/ B% s# D, B# u9 }; x
                   RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],
    ' e( b, X, F' e: D/ f2 F' F6 y$ N( }          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", 6 r6 p7 S" V: M) `  N7 t
           RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}],
    + v* b  _- @$ V    "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
    1 A# U3 G" a6 q& M- A+ [ CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {5 }: [2 b9 a" k9 B" d; T
       3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
    5 W6 D8 O4 M4 C   3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {0 |2 M2 {! ^0 H( r' A* ?! w
       3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9, # T* U9 l9 F. G. b* N( b8 {
       3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {) _5 }" l4 A) `5 }( m
       3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,
    # O, P" q( f; W+ q6 r9 W   3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {2 e, Y4 x! L3 |- e) A4 R9 L
       3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9, # W( F) b  m/ C: Y, o
       3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {( n# p* S: F5 n( g  s4 r! q
       3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
    % c# E2 P, z! g9 u: V; U6 G   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
    % u8 W, ]" p' Z( w/ a* C$ h: h   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9, 4 B) c6 _6 a( P5 W* P
       3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {+ G* B+ ^* n4 \! C0 F( T: G
       3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9, # W% @* A6 P9 r% E4 M
       3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {2 p5 e# m0 {; S0 `
       3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9,
    5 \  k3 O1 v$ y) Z4 w& _6 i   3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9, , o5 F* G+ M$ u1 S. Q
       3.577958821991373*^9}}],1 Y) v1 B4 q. q; O% N  b! s
    * B* W" r% e/ B9 ~. ]* u( ]& u
    Cell[CellGroupData[{# z+ H. g- C) ^4 r, Z  h

    # b" M3 r5 U' Y! n- r7 p8 uCell[BoxData["M1"], "Input",
    , ~! b1 S% b6 x& m7 c CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
    6 e, U- G% T7 e5 W$ I, B9 \8 u# A1 q  w) t( r$ H9 @/ U; m' D
    Cell[BoxData["21"], "Output",
    0 g7 A( F/ u3 h- W* ^ CellChangeTimes->{
      h/ a: a, |7 D  D* M  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {7 s  \. N+ a' D2 |" S" j) J
       3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9, # M0 W5 B5 u0 [+ o1 F: A  ~
       3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {) c( y9 k" K& x2 h9 r$ S
       3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
    , Y* E9 Q1 m# Q   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
    + o* x. \3 l/ T* ^- M" J0 Y; ^   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, ! Q3 T1 E: a! |4 d7 _
       3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
    * f8 U7 l9 c3 c, R- b   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9, 6 v+ C  V" l3 e2 N/ V/ \' J7 p
       3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9, 1 S3 o9 ]- H% E; L' @; K: ?
       3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, * M3 J3 a' ?/ R/ `; e& I0 ~: a5 N
       3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
    1 t+ M3 t3 N: p/ M8 _+ ]  k   3.577960515600726*^9, 3.5780121541875*^9}]- i+ n3 T) h) U/ Q
    }, Open  ]],/ ?5 ~. O6 L+ w

    2 a* G" n; z, R; z$ oCell[BoxData[0 H% P7 j/ u" j1 _
    RowBox[{
    ! c+ t/ j* @, B  RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[",
    ( E' f+ d, L, |' m   RowBox[{"1", ",", "i"}], "]"}], 2 I: E) D* Q7 e$ f9 @+ c
      RowBox[{"\:5230CM", "[",
    1 M  I( B, r. f. T% z3 d6 h3 G' u   RowBox[{"21", ",", "i"}], "]"}],
    4 _! x) b; O. T! m9 x  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
    3 {; x! N5 e8 Z( H\:51fd\:6570u1\:5230u21"}]], "Input",: j; ]' Z. W, {8 ?" H
    CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
      @1 ?1 ~* s8 \  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
    ) @* A" _' t! v$ G3 L) k  3.577960526583145*^9}}],7 K  z0 L/ b/ B  s  \! f: a3 ^, L

    ( b: o7 l' D! _( Q' Q# Z, ^Cell[BoxData[! A4 y% T2 ~* `  X* ]8 C
    RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
    7 X% C- g% U. w; J' ^ CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
    $ i* O) t; h" b% G6 G& e8 T8 z/ j
    Cell[CellGroupData[{2 l4 Z9 f% T9 K( s6 r( t. ~- n2 G
    & ?$ s! N7 b8 U1 {
    Cell[BoxData[
    6 c1 E) O; I  P9 A" W, C RowBox[{"Xa", "=",
    + Y+ ?7 a, ^1 x8 x9 M8 S9 U7 B. I1 B3 {2 \: d  RowBox[{"{",
    7 j: }* v4 |# S4 H9 {# F0 g   RowBox[{) M8 }  C* M# v$ @) }# F
       "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", $ s4 R9 h9 A# F) s; o7 Z( V
        ",", "x8", ",", "x9"}], "}"}]}]], "Input",  M4 `: h; M4 Q/ }
    CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
    6 z( Z/ G( g* q; m( I5 l, y! G0 T5 |& W& [2 l: Y
    Cell[BoxData[
    1 u2 X+ T4 a% J1 x3 r! v) } RowBox[{"{", / B1 T% V) _+ E+ M5 I& Q
      RowBox[{
    ) S  r, q9 p; m6 }! J& i$ I7 U* h. y  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
    " a% I4 w8 }2 h$ ]5 W: s! n    "x8", ",", "x9"}], "}"}]], "Output",
    ) L0 {2 q7 b5 I, X7 t- z CellChangeTimes->{  C' p# K7 u4 ^5 t! X* Y# s  c
      3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9, + o" C. `8 ?% ]+ b$ v2 R
       3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
    4 k( m9 R  K0 T( P3 ^* K0 H% B   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9, . a8 |3 j# T3 Y3 X
       3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
    0 J- B4 s$ y# C  q8 M; d   3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
    + |- |' \2 s) W; J5 u   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9, / p9 f' ?% `* e# B6 r& l
       3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, * N- V1 {. _. l2 s' Z  N
       3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
    3 T) w+ \" E$ Z1 C   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {1 W  ~$ B* r5 W* m
       3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
    - I0 z6 I( Q( `* B0 Q& _  I   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9}, ' p+ z. D. r2 w' @8 X( t
       3.57801215725*^9}]
    9 N  p0 B6 c  l}, Open  ]],
    4 B5 U! P" I% ?" n3 Q6 o6 t# E
    5 [1 h, U5 A! k# {+ u/ [Cell[CellGroupData[{9 m+ g0 \( [3 d0 A4 H/ L' X( L9 c' q

    ! w! w: u+ l3 K) A& KCell[BoxData[# O1 A- k. j2 ^2 ^5 n
    RowBox[{"Ca", "=", ; ~% a2 b( S  v0 f1 s7 S2 A
      RowBox[{"{", 4 K% z3 r3 i# k
       RowBox[{3 T: _; \! D1 ~
       "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
      p( z- m: x0 j2 `0 }' ^% J5 ]+ |    ",", "c8", ",", "c9"}], "}"}]}]], "Input",* u# P8 Q+ w( `
    CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
    # U2 n5 W) W, `% k; J4 z% l  r! V, o" |6 ?
    Cell[BoxData[" v- L8 s" J4 v8 C" z6 K4 A2 o" ~
    RowBox[{"{", $ k$ Q6 _/ t' y/ }
      RowBox[{+ n3 p+ e- [* \8 i1 k
      "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",+ Y) r* @2 n- D
        "c8", ",", "c9"}], "}"}]], "Output",6 x3 [- H9 N' v; ?
    CellChangeTimes->{
    ' w. P* e5 b. d4 f  3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9, ; Z' ^9 d0 \% l( h1 A' q7 E
       3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9, 7 M& z* N2 k% e- v' z# j) y
       3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, " a( f! I5 v/ W5 K8 j2 }2 l
       3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {0 B% r' e4 O1 U$ \1 S5 o7 k. Q6 a
       3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,
    $ R9 E) v: i! E9 _8 r   3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
    ! o) o6 g. A7 R1 O( V   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9, 7 x5 P. \& J. ?& z
       3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, ' f$ w4 f4 |) h( T% ?
       3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
    3 q) k9 J) N2 `: A+ S   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
    4 Z- U7 O$ J5 X  X: f+ q& Z   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
    : ^6 ^$ f" g+ f   3.577961904604212*^9}, 3.578012158671875*^9}]
    , c2 G. F' Q' ]. p}, Open  ]],
    ; F. N: [5 p# y5 G) S& f! a$ ^2 D$ X. ]/ U7 L9 g& q
    Cell[BoxData[/ I( H! p: C( g' v+ S  b+ A
    RowBox[{"For", "[",
    + ]+ ^; T0 }. q8 S$ J0 u4 P; Z; d  RowBox[{
    6 J) ~; t, S) W6 k) r* H, u' I  L   RowBox[{"i", "=", "1"}], ",",
    5 `. _; L+ f$ {+ ^   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    8 }/ m, l! @- o) V8 b' A   RowBox[{"i", "++"}], ",",
    0 r% ?) b+ |8 d1 u   RowBox[{& x& s5 D3 M+ }8 L, M) B7 o
        RowBox[{"Ca", "[", $ O6 S3 r3 X0 J1 f( [2 S  ^" B
         RowBox[{"[", "i", "]"}], "]"}], "=", ) _$ V3 @. X6 \) ^4 R1 A
        RowBox[{"CM", "[",
    + c$ R  i8 f9 }3 P- H     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",' }' ^1 ]( @9 q4 ?# z3 ^
    CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
    / m% \- ~5 D, ]. P' N: C   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9, ( L3 F5 R) O& O
       3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9, 5 K( X7 c9 J2 E: ~& E+ V* K
       3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9, + P4 }- I: L) A& j
       3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9,
    - D; z; u% ~2 z- ]! M. ]   3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
    % V6 r4 f2 q1 s2 L9 o2 u; Z% Z   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
    0 ~, ^4 v; H  _. X   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
    / Y- T5 _( @- z% t$ J   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
    ! A0 O! p0 P! U* {5 b. o/ d, J   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9}, 3 @) ]# I9 Y- g+ B6 ]6 ~
       3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
    4 W" B  E7 s$ \' |   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9, : ~5 l& p6 w8 ?3 Q
       3.577961906897415*^9}, 3.578012176296875*^9}],/ H7 @  j* s5 m& W
    , X/ t% N4 c5 c3 d; K/ \4 a
    Cell[CellGroupData[{
    3 k& z# t* J+ W) O( F* I! C1 l' h
    3 Y9 t! @/ y0 gCell[BoxData[3 d3 A& q" _' L9 o1 d# Y
    RowBox[{+ U& I9 ~. O. h
      RowBox[{"(",
    ( U& d6 i5 T- H) ^  C& \   RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    0 ]; F4 }+ J$ J1 q- I) v  RowBox[{"(", 2 K* o7 h: j. s1 M
       RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],' r. ]9 W# Y' w) r+ @

    3 F$ f5 D; y6 t- s0 M# iCell[BoxData[
    5 U1 S* Q5 P# y# C8 E RowBox[{
    % G3 W/ M  _6 ~' i  SuperscriptBox[# G  W' Q  _9 T
       RowBox[{"(",
    ! U: U4 ?. `# s  t    RowBox[{
    / v  a/ w8 k1 Q- B" j; A     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
    # L/ q' R% D+ Y. f1 C' C+ o  SuperscriptBox[
    ; ^# u7 H8 U! c* b0 e   RowBox[{"(", 0 {2 n! ^$ m" A. ?3 x
        RowBox[{
    - O& Q* T+ v! l, ]3 K" ^0 a& \     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+", 0 C+ g: ?+ W8 J" u7 Q' i
      SuperscriptBox[  J# n" [$ ]" F
       RowBox[{"(",
    2 O1 H/ H' w% T8 b5 c$ \! T    RowBox[{
    * K9 O: m* T+ }     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", ( `. ]2 \: y( |
      SuperscriptBox[- Y3 i9 C6 [$ q% }6 Q
       RowBox[{"(", * @/ [* J1 X% v& _" c
        RowBox[{
    9 A2 {' H" z+ g7 \     RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
      H2 H3 x( D5 Q& P& f8 n5 x  SuperscriptBox[' ^, s( }+ k8 Y
       RowBox[{"(", * F6 I* e$ R& s! o2 V+ D/ j3 L7 R
        RowBox[{
    ( W: a% A/ w: V     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+",
    / S, X1 r8 D/ |# F  SuperscriptBox[
    9 i+ C- R) O5 v8 b, G. k- K   RowBox[{"(",
    7 i' X* W& s. }8 G. c( f  v    RowBox[{
    " ^6 O; u) d+ r4 f# k     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
    * \9 g0 A! \  D. h# h  SuperscriptBox[  g2 s& z* U; b4 E$ [% j
       RowBox[{"(",
    + l' ?# d5 w6 |1 E" F9 X5 H2 ~    RowBox[{
    ' Z0 M1 a! H- {+ E8 ]     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
    / Z! D, w- m' v+ i: v5 d  SuperscriptBox[( y, `( E3 a& M# p5 F0 W
       RowBox[{"(",
    ; Q. I: S" i, }9 s/ x  T    RowBox[{
    2 O, f4 D2 s1 T/ F& u3 i. a     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", % A( [1 V  N0 a
      SuperscriptBox[4 x$ O: x! T" A- m
       RowBox[{"(",
    ( e- [& h: B1 D    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",! A" z! j/ _1 W6 A9 Q
    CellChangeTimes->{) C% B- ^4 R) \% G4 x# L; [' _, Z
      3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9},
    ) u5 ~& c+ D( L$ I2 o& h, y2 t   3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
    # t5 Y1 o; Z' W/ D8 P. @   3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, 5 U% T; ~' S" j
       3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
    - ^# u) D7 l$ L% ~  c) g   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
    5 e# q9 K0 V$ N4 e. o   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
    ! \8 @5 v- J% ?9 _0 T   3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {' l0 U  l4 g, q3 ^
       3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9, - I6 f: ~4 i9 p2 A, m3 R
       3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {% ]6 p" l' g/ l7 O  s+ e
       3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
    , q1 d# o) K( l   3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, # X. f9 L  Q9 Z1 u" r
       3.5779618537169228`*^9}, {3.5779618846049767`*^9,
    ; F& \) `7 \7 ^3 J   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]# r6 _4 [) _) F. b) G" Q
    }, Open  ]],7 H+ E6 F* N- t/ k* O' A

    8 }% o# P# r) r7 h8 T9 @! ~$ tCell[CellGroupData[{% f* P) Q: S: b0 P; F

    ( r" K& H: e' O. M, dCell[BoxData[
    6 i- w7 }, z, R RowBox[{
    4 _8 ^: b3 h, `6 v0 n( [) o  RowBox[{"Ca", "[", + D8 P4 z, f0 ~  Q! \1 j" `) ^0 _
       RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",4 n. H$ Q6 D( J2 G
    CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
    " Y/ {2 N$ ^! i* h  3.5779616465173616`*^9}],6 ~- l" K+ w% g  x4 N
    ; q/ J# z2 e" g
    Cell[BoxData["0"], "Output",& Z9 w& F' ]- L6 [: a
    CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9, + F  I4 Z* h, `6 e
      3.5779616484049644`*^9}]
    * S5 e$ }7 T$ h$ y" e- ^/ w" K, O}, Open  ]],
    . P  D5 M, d5 `$ D- f/ M1 Z
      z! f; U# r. c# z5 D4 rCell[CellGroupData[{
    8 j5 {) Y: S: }
    1 m9 E6 D& Y1 |2 X. z! v" r! V% tCell[BoxData[
    0 l" d! e, J" ~# Y RowBox[{, }9 g0 O- G7 W+ b! f. X. _
      RowBox[{"Ca", "[",
    $ }8 q+ ?: a- w% D% Z   RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
    + f, ]7 M: S6 q% |% S CellChangeTimes->{3.577957376235614*^9}],& k# A7 G* L* s9 }1 R
    6 {; ^& o0 l+ e3 [" Q
    Cell[BoxData["0"], "Output",
    0 `; `' L8 V+ y8 T CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]2 ?  n4 j$ t# D7 n0 r
    }, Open  ]],
    3 b7 l7 ^/ x. Q# f+ M: @! R" a( ~5 l3 I+ _) \: E
    Cell[CellGroupData[{
    9 c" q. m9 @( P% W$ B4 C3 S7 G/ [4 A7 l" C8 _* {' N/ D1 O3 y
    Cell[BoxData[
    , V0 |. y1 `' e9 a RowBox[{* A- B$ a/ J3 _4 `" y% O: Y- h
      RowBox[{"Ca", "[", 1 d8 b0 f2 o: w1 m' c6 n
       RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
    8 Z2 r- g3 G+ Q4 [; h3 U CellChangeTimes->{3.5779573112927003`*^9}],
    ; n; v" E  ?$ K) T; z! {) \, ~! \3 h8 }! N- [
    Cell[BoxData["0"], "Output",
    3 P& r2 ?, A2 r' n: M6 ~0 _ CellChangeTimes->{/ N0 j, A; ^1 g# b) x3 R7 K! g
      3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9, 2 q# F9 V! X2 a" C: y$ j/ z1 ~
       3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
    & ~1 O. J. v$ g* t   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9}, ( d. N& }# a, h4 [8 `8 u
       3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9, + W, X  o' B" J* c0 H9 Y( v. g
       3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, ( o4 J/ G/ k$ @( z3 B
       3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
    $ Z6 V- X8 s) R$ j( ]  q8 n& f* s: Z}, Open  ]],% F: t1 Z/ k4 X& X+ [5 D
    * J8 I5 {! T" S$ a, p! s1 [
    Cell[CellGroupData[{- X6 {0 R9 g9 f! d2 q- f: x) }
    8 z7 z$ A; G* {
    Cell[BoxData[
    . d: V3 [! A3 E1 i RowBox[{
    8 J/ |/ w  }/ H1 o! N% Q' c  RowBox[{"Ca", "[", $ @% _5 x# a# j6 T
       RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",1 x1 W( j5 p! d) F& T
    CellChangeTimes->{3.577921461734375*^9}],6 W0 _% g8 K6 I8 i* K' j2 o& H

    & h8 ?, W  V! B5 T6 K, ]3 KCell[BoxData["0"], "Output",0 f2 x1 s7 t) ]5 j' N6 J
    CellChangeTimes->{
    3 T: d: a5 w8 @' G  3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, : a; w1 f% E8 p$ a. A( w
       3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
    " B( V* _  h% O4 z2 s; S  `4 B0 o   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9, & A; A2 @2 N: O! G4 u5 M6 k/ H
       3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
    , K4 d6 K, C6 d/ Y- D   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]) X8 C/ P( {) K$ L" h
    }, Open  ]],
    / z5 I* T0 M/ e3 H& q% f8 y
    : v" X; F+ o6 U4 RCell[CellGroupData[{
    6 w8 N2 y9 T* _7 ~
    4 E  [6 I, e- U: X. qCell[BoxData[; s! [1 v/ {* @. |
    RowBox[{: k$ J- |/ P* Y9 }( X
      RowBox[{"Ca", "[",
    ; J6 o1 ?* w5 Y/ n) s7 U   RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",; Z! e2 x  ]1 a& h* f& W
    CellChangeTimes->{3.577957303118286*^9}],
    ! E) K, {$ O3 I
    2 v+ Q6 |( }/ B7 LCell[BoxData["0"], "Output",0 L8 f( _: t7 A5 r4 A) ^; P
    CellChangeTimes->{3 @/ R" v1 G7 F: T
      3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {/ }3 c9 q6 p+ s4 I4 G8 R
       3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
    " q/ d0 `' D7 P# `% V7 n7 a   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9, ) q2 a7 o# }, ?' d
       3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
    & p$ D4 l8 W/ X0 @* A* L# T; t4 y6 t% r   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
    3 e* i' E9 o8 b/ a  h% X3 l. i   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
    4 V, s  B4 T  E+ u+ l   3.577961889378585*^9, 3.577961912965826*^9}}]% g4 z0 |9 [' u* d9 }
    }, Open  ]],! ^9 M1 J7 y$ f4 X" z
    5 _! V, j& M' y+ k3 g  L+ Y: M
    Cell[CellGroupData[{
    3 x6 `9 x3 @+ y8 d1 K0 H  ?$ L( E
    0 Y; Q" s: i/ ^. w) PCell[BoxData[8 x# _3 r; m$ i( _; w
    RowBox[{
    9 ]% K; Z. n1 R$ R6 h/ z  RowBox[{"Ca", "[",
    + U0 N  x+ @! `- j1 y6 h$ N; T   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",, t9 f) U7 V6 w; i9 w4 w
    CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {& F. E$ V+ `# \% m, u9 M+ b
      3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9, 3 f7 p0 }  k0 S7 X+ L
      3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {( c4 s5 U4 E2 Y1 I5 Y4 M0 b# `8 d4 q
      3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9, " o, w! G8 M! F0 S
      3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {8 Y9 ?* @& q5 k$ a- O, r3 `
      3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9, 4 l9 p1 Y/ D) n( c  p- N" l
      3.577921435703125*^9}}],4 ?# T- I6 }: X; N: r

    ( k, p5 Y7 u- sCell[BoxData["0"], "Output",
    ) d! ^9 D- {% o# @ CellChangeTimes->{
    / |, L0 A7 h: N0 S: ~/ b  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {( r! I; x% q" c3 I5 O
       3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, " A3 V  v# x( v  a: Z
       3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {0 T! v1 D: ~1 q( ?, v( C$ j
       3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, # k7 U: i0 _5 O) a: X; `0 k& E
       3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {; R) p4 j2 H& Y
       3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
      i9 o; e4 ^2 M   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9, 6 W* h. X  Z% L6 ?; ^' K) E
       3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9, # t4 b# }* ~4 ]0 O$ S8 a6 O! q
       3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
    ; p: b' f$ |5 W& W/ ?! U2 V3 W   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
    % p5 O/ p6 L- c7 y* B& X   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {% E# C# }, `, ?4 K9 N
       3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
    : B: B& @* \0 l8 ]) I   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
    ) P6 A9 Y/ v( J}, Open  ]],4 `5 J( t# V& c/ D

    8 [2 F1 ^# P3 ]  |' XCell[CellGroupData[{
    ; x' `2 [3 Y) A+ E( t9 K3 ~* p9 d* C' S' S8 F( w. Q7 v
    Cell[BoxData[+ A6 K  }0 l& F7 X$ h+ q
    RowBox[{"Delta1", "=", 5 c6 `/ r8 A& y. G
      RowBox[{
    8 r  J! L& w* b. [. X1 y   SubsuperscriptBox["\[Integral]", , s- K% h* Y3 r* R
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    $ W7 @' E- E5 s   RowBox[{
    1 C8 H4 d8 d8 O; u, r5 M, R    SubsuperscriptBox["\[Integral]", & H; l+ U6 T$ I
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], # r! c( z" w- K% k7 t' O( {. L! j
        RowBox[{
    " p+ L. c+ a7 v7 ^  R     SubsuperscriptBox["\[Integral]", 4 n9 X- t3 z4 p# t: D! w9 K8 K
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], / w$ |, Q% j2 n( b) w) t' ?5 P) b
         RowBox[{
    % Q" x( M. N. ?, z. I      SubsuperscriptBox["\[Integral]", 3 @! u: {" y4 j1 @' @( ~
           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    0 e7 o" p0 G+ _9 D4 U2 g9 S      RowBox[{, b! S1 p% c# z  [/ b/ f) N
           SubsuperscriptBox["\[Integral]", ; O4 N3 ^& V# U0 x1 g- f
            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],   \) ^1 D% j& P# i
           RowBox[{. Q4 {2 u* r1 L/ d. w0 n* h
            SubsuperscriptBox["\[Integral]", : x4 b0 |4 c/ n0 _, `6 P9 a
             RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    0 c; ^* T+ v* s        RowBox[{. x3 o# ^' T8 u% i- Z' E. y7 F1 V
             SubsuperscriptBox["\[Integral]", 8 c% j( S+ z; B1 Z; E( L7 G& I
              RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    $ Y  V# }" k# j  u* ~+ r. J         RowBox[{1 q2 _7 D- R" w! n2 K
              SubsuperscriptBox["\[Integral]", & E+ y( w5 G* l6 [
               RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    1 e% Y; h% l/ a. y          RowBox[{; C1 i" R8 p0 v3 a5 j4 ?
               SubsuperscriptBox["\[Integral]", ! o( [8 O* \% C6 D/ Z' Q; w/ M# j
                RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    $ J  ]3 C) X3 J+ C0 M  z           RowBox[{
    " q1 y2 X  b; p# M  E            RowBox[{"Exp", "[", 4 P; O! s5 \3 `, D
                 RowBox[{1 g3 w# h8 G: ^1 C4 v7 D! }
                  RowBox[{0 }6 m8 I! s, @; h# B
                   RowBox[{"-",
    5 @7 [0 o" m2 A0 C$ }9 `- a! I  u                RowBox[{
    - a+ Q" ^9 q: Q( \' ^3 z! I                 RowBox[{"(",
    7 I& A: o& H' G1 j( C+ p+ p! J                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    . o1 _' |- v8 ~. `. W9 J& A& S! a                 RowBox[{"(", $ x6 G- v( i. Z, v& m
                      RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", & H9 M+ C- q. p6 V, n
                  "Delta"}], "]"}], * y" T) K% o9 P. Y" d, B
                RowBox[{"\[DifferentialD]", "x1"}], " j3 i+ u' N( B' \7 h
                RowBox[{"\[DifferentialD]", "x2"}],
    " T' j- T$ k$ N0 E. m7 r            RowBox[{"\[DifferentialD]", "x3"}], ! T: t4 i& C6 k" ]. M5 {1 ?/ u
                RowBox[{"\[DifferentialD]", "x4"}], " A5 M" d+ [" h! |& C0 E
                RowBox[{"\[DifferentialD]", "x5"}],
    1 |- ^/ w9 k0 z- Q, `            RowBox[{"\[DifferentialD]", "x6"}], ' ]; b# o5 D4 C0 D+ ~
                RowBox[{"\[DifferentialD]", "x7"}],
    # m7 X$ }) l, V9 W! @$ C4 O9 l            RowBox[{"\[DifferentialD]", "x8"}],
    ! D0 f& d5 x  y6 T0 G            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input"," P& K8 X4 q* \3 T3 B* x
    CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
    ' _, Z- g( l3 I$ N7 t: b. s   3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, * }+ k/ ~; b5 E: |9 u, B' S5 Q
       3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {# n3 w* R8 w6 S7 S
       3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
    * ]) d; \0 @: ?1 G+ s   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
    4 i! N, a' P/ B  p7 N% G   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, ) t7 p, `- @+ e, k* v; W9 ?
       3.577918964453125*^9}}],
    & y+ G, S+ u( f. E9 a* G0 L
    3 C$ i! o/ ^) i4 M2 GCell[BoxData[5 d$ R, u. d0 Q/ f' U1 Q
    RowBox[{"97.40909103400237`", " ",
    5 t; c9 ?& O6 V  SuperscriptBox["Delta", "8"], " ", / Z& \/ i. o/ ^% k
      RowBox[{"If", "[",
    5 @+ y1 W9 }. `   RowBox[{( K& R2 ]8 v! q  e2 N9 p8 u8 Y
        RowBox[{
    $ w1 U) `% B$ i  E  b- z     RowBox[{"Re", "[",
    9 L' d* y4 c! R/ R+ `& o8 Q      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
    - |, K/ n- n& V9 w    FractionBox[
    % m$ \% v: z: @2 V2 R' {  P     RowBox[{"1.7724538509055159`", " ",
    6 [  d( B. m* M3 e8 @      SuperscriptBox["\[ExponentialE]", 4 n2 _* J& p+ Z$ h
           FractionBox["1.1102230246251565`*^-16",
    ' S- r9 m- }% n& E        SuperscriptBox["Delta", "2"]]]}], & n1 |- I1 P* n: r
         SqrtBox[2 H* X+ v$ q) j- m6 Y7 K
          FractionBox["1",
    ( M6 F1 n: [) `9 o/ k6 e3 z       SuperscriptBox["Delta", "2"]]]], ",", * f1 B1 l- B9 |
        RowBox[{"Integrate", "[", 9 D# G0 n+ x3 R6 m& d% {% W" a
         RowBox[{4 H+ t: j  C" p9 N9 Y
          SuperscriptBox["\[ExponentialE]",
    3 X+ d2 F6 F2 Z2 ?# v1 X# q/ n+ H6 E       FractionBox[
    1 r) W5 B3 {+ F; n, Z        RowBox[{"1.1102230246251565`*^-16", "-", " ~6 {5 O0 ]9 N7 L
             RowBox[{"1.`", " ",
    2 r! g% k- c% j& J: }          SuperscriptBox["x9", "2"]}]}], $ Z, E- ^9 {. g4 j
            SuperscriptBox["Delta", "2"]]], ",",
    7 v4 D$ Z+ v/ i6 w# w; b7 }      RowBox[{"{", , X1 _8 Z1 P6 l5 V2 o
           RowBox[{"x9", ",",
    - ~/ s. x2 g" q+ p" o        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
    5 K2 W$ E' L1 L  {5 ]& y      RowBox[{"Assumptions", "\[Rule]",
    " e5 n7 [1 d+ w: Z6 w       RowBox[{
    : v9 V2 @6 q5 q5 S  B        RowBox[{"Re", "[",
    4 _5 V" l, n5 h; e5 |         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
    : M7 g3 C( g/ F7 s3 k1 F% V     "]"}]}], "]"}]}]], "Output",: ?% x4 t+ C% h3 d. B0 ^4 O$ C! _
    CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, & b& L( f! t6 P2 G# O( }
      3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
    ' b% q- c$ \! a; D- Z% ~2 t  t  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
    " v' ]% C4 g0 u7 |) N& i  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9, , R5 |1 b" V9 n# r
      3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
    ) [$ X* B" z1 I/ g" ]4 I, J  E  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
    ( Z6 m- v* _1 I" i' s# W" L  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
      e: ]7 Y! K6 x' P' U6 `}, Open  ]],
    & j: J4 }5 g4 b! b$ w8 K; O; v- |, {' V6 c; c5 K* n3 O% q# R! V! S
    Cell[CellGroupData[{
    ! o  ^; Z! a( i. j. @- `' `$ x+ I# D; O/ j
    Cell[BoxData[
    2 j& ?- c3 c2 e: }5 u! I& ` RowBox[{"Delta1", "=",
    , U3 |9 [- i$ K  StyleBox[( a7 i& ?+ a2 i) h" Q
       RowBox[{"97.40909103400237`", " ",
    4 m& F. q) D* B; `3 T4 S. }8 p* y, ^$ j    SuperscriptBox["Delta", "8"], "  ",
    " |! Z! j) `& ~, j& Y) P0 z    FractionBox[) l& q; p. K: r
         RowBox[{"1.7724538509055159`", " ",
    5 G) ?5 e2 O% I; h& `4 X      SuperscriptBox["\[ExponentialE]",
    + Q" t6 S! d; W, a* _. `       FractionBox["1.1102230246251565`*^-16", 1 |$ C0 b; z  D$ O3 F! p% d
            SuperscriptBox["Delta", "2"]]]}], 3 e" `' x4 m/ P* V. v
         SqrtBox[
    3 F/ ^6 u. {9 [/ J0 g6 D# V      FractionBox["1",
    , R3 V5 h/ N) O0 j. H8 }       SuperscriptBox["Delta", "2"]]]]}],
    " P3 _/ {1 i. T   FontWeight->"Plain"]}]], "Input",7 I! }( T: @  m3 g" R  D1 P
    CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {$ O4 O) W# q+ v
       3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9, . G* V5 N2 @, O' \% f" m( z& l
       3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {. A( _% ]' D/ F- }+ e
       3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9, 7 C; Y3 I5 K. O; [" Y# U
       3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9}, # [! }  V) R, J
       3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],+ K# E0 L: \4 ?- V
    ( B; x: g3 v! h' @
    Cell[BoxData[
    " ]2 p  U# T) f FractionBox[" B: Q( q* n) D3 A
      RowBox[{"172.65311851642346`", " ",
    ) M8 p! g3 K+ P' s0 c   SuperscriptBox["Delta", "8"], " ", 2 Z5 R8 ~" e5 M* P
       SuperscriptBox["\[ExponentialE]", + g9 [* b# }6 m' v# h+ e$ a
        FractionBox["1.1102230246251565`*^-16",
    7 R& }, O! D- m1 i8 ]4 M' d$ t     SuperscriptBox["Delta", "2"]]]}],
    2 B+ B6 b. v, {  SqrtBox[
    0 k9 j6 P3 l% n   FractionBox["1",
      ^- T6 i: I( e- c* a% y5 {& }    SuperscriptBox["Delta", "2"]]]]], "Output",# u, L. v  p& F
    CellChangeTimes->{
    % F1 e: K* B5 c: U) C9 O  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
    6 V6 `  N+ f5 A5 ?# Z2 z/ R7 S2 t/ E   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9, 0 I; x+ d; a6 e+ l; [. S& G' L( S
       3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9, 3 D" n1 F* ?) @+ R. z) g* m
       3.578012166234375*^9}]+ S* c/ k: ^1 t( T% w: z
    }, Open  ]],( E9 s4 T8 k$ R2 X: P

    $ {; r6 ^% y' E# E! l  X  bCell[CellGroupData[{" n! H: Y+ W9 m! I4 X% E1 P0 z& v

    ! d" C0 T$ S6 B+ S  nCell[BoxData[6 M$ |0 Z% C- Z; I
    RowBox[{"DeltaX", "=", 6 O& g% }" g8 K  y) r" Y: C1 y- i+ o
      RowBox[{"FindRoot", "[",
    3 p" [& B3 x1 P   RowBox[{7 M' A8 O1 w* p, e: q1 y) u
        RowBox[{"Delta1", "\[Equal]", "1"}], ",",
    - |% t6 y+ W0 N& p. i) E    RowBox[{"{",
    2 _( b  I- m: G; X0 B     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",& `! v9 F$ \5 e- a: V; ^/ f
    CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
    : K- n, _- P' P1 Y* T   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
    & W# j. k1 c  S  {# ?8 d   3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, 3 E9 W: E+ ^! l  c
       3.57791921584375*^9}}],  o/ W5 ?7 Y- z! [* [
    ; O0 F$ U! x) s
    Cell[BoxData[
    3 x% A8 H5 `  k6 Z+ ] RowBox[{"{",
    5 n' n! j, A0 t6 u5 I7 H; C  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",4 \$ b$ \, x9 M: [2 J! y8 ^* N
    CellChangeTimes->{3 E; E9 n+ F0 W& {2 x
      3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9}, % p3 L$ S, r. V3 ?" z$ s
       3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
    1 ~0 ^6 D; Z5 I3 L1 E4 x, t8 X   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
    / A% S2 S$ w8 A0 c3 f3 U   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9, ' E% V6 S  T6 t
       3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
    ! c* l$ v" Z) w2 G   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
    ) o) l5 b( I/ \0 C6 t$ o7 Z7 s* H   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9, * G, B9 p- ^6 w3 a/ |
       3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
    9 j' R: I- j8 n, P% u6 c   3.57796070150625*^9, 3.578012167703125*^9}]
    8 s4 {7 q" z( P7 z5 S}, Open  ]],# {. W) f6 T6 u* y, C. O
    " c! m5 v0 `' `5 V& M0 X9 M: ]
    Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\% O) Q3 R/ D* J, x6 d3 T; G" D2 T
    \:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",  Z; \% n" r$ r6 |! k
    CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
    ! M  C0 B, [- }0 J1 p  3.577960705312657*^9, 3.577960707621461*^9}}],/ P9 _( J* H+ |
    : c* \7 d$ w, O# ]) M) u9 v0 t4 V" B
    Cell[CellGroupData[{
    3 g! Z- k4 D4 r2 D) ^
    1 [/ e9 s$ m& ]) WCell[BoxData[
    * Z' n# W# [+ \ RowBox[{"C1", "=", "Ca"}]], "Input",
    & @) W  T2 a4 K# L2 y$ K0 x: h CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
    ) s& a) m/ S2 k7 q0 z/ h0 w: b& u0 d% z* Y; E/ ^1 I- u$ d
    Cell[BoxData[* B9 L2 K4 |% @# Z( z
    RowBox[{"{",
    , @$ _: y0 d* }$ J( i/ s& X  RowBox[{
    0 N5 ~7 M8 N) a! d2 _. v9 r  "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
    " j8 {( N' d% u  H5 ~) @: f$ N   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
    1 i$ F5 v) U! I3 v   "0.`"}], "}"}]], "Output",5 w8 p( v( y8 g. y* [2 v1 ?
    CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, 5 d% C9 ?4 V& w- h( a
      3.577960710273465*^9, 3.5780121855*^9}], c7 }. _0 _# c9 u0 O
    }, Open  ]],8 p" I, I8 i% z) R7 V
    , i; |) c4 @; f  N3 {
    Cell[CellGroupData[{3 q; T+ P' b( A% h4 }2 R
    / R) S( O7 \6 m+ M; r9 f
    Cell[BoxData[" u$ g& Q: e: F/ w) [3 @
    RowBox[{"u1", "=",
    # Z& E- `. z1 {+ X, s+ {( Q% f  RowBox[{5 N- V8 Q* |; V& l% [6 Y. C
       RowBox[{"Exp", "[",
    , y2 U1 o' W! z) F    RowBox[{. {- \) ~8 F" X  x; W+ }- u
         RowBox[{) g4 ?" Z% L  k0 w0 _
          RowBox[{"-", , Y& D( P. K. w* @* o  u
           RowBox[{
    5 [/ I$ H' t2 e: i  T        RowBox[{"(", ! j: C1 r8 n- d* p1 q1 P
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 2 N: n1 C' j' N% {  I$ G8 M
            RowBox[{"(",
    / M( y% g  Y) h# P! D         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],: H3 H# z, w$ a8 s9 N
         "]"}], "/.", "DeltaX"}]}]], "Input",
    $ d% U7 Q( `/ q, H% Q CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
    / i$ n4 y, T, }  c; O7 Q" w   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
      {# s/ @( f1 p0 h+ ]' b   3.577919193484375*^9, 3.5779192326875*^9}}],: u, t8 x* s9 R

    & p6 z* I; A% n+ }3 G% a2 @Cell[BoxData[; S6 V6 S/ l( n  m3 m/ g' |4 D, S
    SuperscriptBox["\[ExponentialE]", $ z+ k# j+ D6 E: M3 d/ Q
      RowBox[{"3.141592653589793`", " ", $ K$ K5 Z2 b9 L: M" A
       RowBox[{"(", ( e  a/ D9 Q. r! }3 M6 P- U0 n
        RowBox[{/ q& G) p- J6 e" h
         RowBox[{"-",
    " m9 p/ v: \; b3 a$ f      SuperscriptBox[1 J( U6 G3 {% j) z0 u
           RowBox[{"(",
    6 r1 Q6 c+ O" ]$ Z8 s3 g$ h8 d        RowBox[{
    % G0 V4 y, ~$ P) c3 }         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
    : ?  l( B1 V8 e& e/ f     SuperscriptBox[$ L2 w/ k  L. M; d7 h* M4 ~
          RowBox[{"(", . t1 T3 ]" p* O" C! f6 C
           RowBox[{
    6 q* O" h" k* o  I        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
    + K% s2 a" }* `8 |     SuperscriptBox[, _/ L  f) |* u/ j+ @
          RowBox[{"(", : D, Q1 R/ C9 y; f  W/ h& }
           RowBox[{
    1 d1 Q' e$ _3 T. ?        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", 9 g* D8 n. w$ e" t$ O) w
         SuperscriptBox[
    . q# w9 \1 D' |7 e/ t      RowBox[{"(", : N: Z/ f+ L+ U8 B
           RowBox[{
    7 j" p% x0 U$ t: |" w) L4 s        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", $ K  q$ v$ _2 ^. ~
         SuperscriptBox[' D3 H8 P9 @3 S6 J
          RowBox[{"(", / q2 P  M* @& y" t
           RowBox[{
    $ J' P/ B5 @/ H: u" R        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
    ! z: ~8 f: p6 q     SuperscriptBox[
    " Z& c2 n0 `$ k  A      RowBox[{"(", 5 Y0 G  J8 |% J( o  ~  n
           RowBox[{
    9 K  T( c8 B5 s( ^; Z        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", ) A3 w1 r2 s% O2 D# C- Y: v
         SuperscriptBox[
    & W. b& Q1 W6 j4 `& B$ @  t" B8 @      RowBox[{"(",
    9 P; `2 i- X5 B! ]% K" d4 B       RowBox[{& p8 Y: ^2 _  m8 S
            RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    5 e6 e6 J3 V$ y$ q& ~( [0 n# {     SuperscriptBox[+ b; t( M' s: \6 W, S( \
          RowBox[{"(", 9 J9 p$ H3 P3 }
           RowBox[{
    ) S; w; `9 H) f8 F$ m' B2 B        RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    9 U3 }5 t/ C+ A- d; @     SuperscriptBox[
    + H& |/ }+ x) V( R5 u  _; s      RowBox[{"(", : W7 l9 T6 A8 P4 t/ Y  R
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    3 X) L0 r+ f0 S0 N" U" z4 R    ")"}]}]]], "Output",; G" X+ |5 q' a1 \! w/ O# {7 s
    CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9, - C' m: i: \( |; ^" N4 a
      3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, 2 K# I0 A- w; F/ G$ u
      3.578012187078125*^9}]0 D  O4 c5 A) N. L
    }, Open  ]],
    / x  w' d! I8 G, W; @- x9 B
    ' J' ?6 U  Y% W9 JCell[CellGroupData[{
    5 a4 v: m, \) g, C* y. H2 j
    0 h' @7 s3 f. w. h, ~: z' b. rCell[BoxData[
    ; I7 y& Z2 k2 n! t RowBox[{"C2", "=", "Ca"}]], "Input",
    * O" z. ?! o# }+ h5 L% d5 }2 U CellChangeTimes->{3.57792047321875*^9}],
    " g. \% B& E! b" w" F! f' w! L% P* u( c, i; W0 t# `
    Cell[BoxData[
    / o# K" }, n1 n* d RowBox[{"{",
    2 K8 X, }4 B. v/ ~" Q  RowBox[{4 O: c% D; p* P9 H; \- H
      "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
    * E2 \, k  R0 F& [   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], 4 M. m# f' f6 N8 q
      "}"}]], "Output",
    ( A/ g, @8 @/ g% v$ H0 A CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9, 2 T% f) T* B! S$ R( ^5 s4 y( }
      3.5779607401163173`*^9, 3.578012204671875*^9}]2 C& F7 J* b4 G' A5 v
    }, Open  ]],! \+ h, [" j, U4 j- a; Z3 ]
    0 z( c- X8 f; q' n" M! {0 M) b
    Cell[CellGroupData[{' @1 O- G# j) v0 `! k, V4 L$ q
    0 Y- S( e9 J) @5 R; ~3 t0 d! I$ J
    Cell[BoxData[
    ( c8 \3 Q5 D; e) V RowBox[{"u2", "=", ; f+ U* a! l4 B( C
      RowBox[{
    ' @8 A0 q, O4 ^  S$ K4 I   RowBox[{"Exp", "[", ' {0 y8 Z8 }# H& s$ g" m: c+ P- @
        RowBox[{
    3 c3 T! C- G% t+ V8 W1 L' g     RowBox[{4 B# s3 y7 c+ u& A4 Q6 V& g
          RowBox[{"-",
    0 e% T3 g1 [" `( M5 }, C: d       RowBox[{: o/ C: p3 O, _# j
            RowBox[{"(", 6 W3 H9 a3 C" E2 V0 M6 D
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    6 l$ s5 v4 a  V; C; K        RowBox[{"(", * c7 J$ U) Z; s$ ]8 ?
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],7 I+ T6 z. A) T) g# K
         "]"}], "/.", "DeltaX"}]}]], "Input",
    ; G! O2 Q: B' f CellChangeTimes->{3.577920484109375*^9}],* ^1 G) g2 R2 ]$ E
    # R: d8 t# M1 |( V7 t5 w
    Cell[BoxData[' I$ p6 P/ C% C5 F* T
    SuperscriptBox["\[ExponentialE]",
    - Q, d( k0 D# s3 C- q( W2 p3 D( |  RowBox[{"3.141592653589793`", " ",
    5 z2 r% i; N! i0 M" c   RowBox[{"(",
    5 _* e/ @1 T; Z& M% F8 A; |2 e$ K    RowBox[{
    2 Q0 D. l) ]  @2 g; X     RowBox[{"-", $ N1 W6 b$ v8 h- P* B+ B
          SuperscriptBox[
    ( ]4 O1 J, x' ~) Y$ k       RowBox[{"(",
    + Z" C& b2 t2 I' O! ]        RowBox[{( t1 f  R9 C+ ^/ X1 c
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", 3 j( |8 A- T) Z. ]) d4 ^- N% P
         SuperscriptBox[9 _) ]& M5 A2 g! B! G; m
          RowBox[{"(",
    / x% N. l5 s, b/ w! m       RowBox[{
    % u# z: k. e! `8 }0 G% w) P7 o1 v        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
    9 D6 O0 z" S+ S; x- B2 e     SuperscriptBox[
    2 O4 U$ Z: x: o3 m) R/ k      RowBox[{"(", 5 N1 Y- ^" k  i( s& F# a( h
           RowBox[{$ t' d. \8 Y; Z6 k/ w4 G0 z. n  ]
            RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", - ?' \# I5 n7 v7 C: V; o( ^
         SuperscriptBox[
    ( j- u$ f2 C, `      RowBox[{"(",
    8 W+ n1 j: B2 @( u' N       RowBox[{' y* j6 e! F1 l1 s8 V; h
            RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", 0 Z* e& z* e* p8 J' C9 q$ B. P# ^) C
         SuperscriptBox[. L. c: l+ U7 j( q
          RowBox[{"(", % O6 M9 N& U: P. p; c' w1 o
           RowBox[{
    2 W0 D% J' f# H' ~2 y7 E        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    $ M* x% k6 s9 V' X     SuperscriptBox[4 z) M& r" [  X" D* e5 j: B
          RowBox[{"(",
    " J, x- O- B4 h2 @+ u1 X       RowBox[{
    1 B5 _5 ~! b) ?9 H  w4 L        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", 0 u! c7 g0 [  ?7 r; _9 H
         SuperscriptBox[4 v3 o. T3 |1 n- l
          RowBox[{"(",
    1 L1 ^! g3 t. P, q) ~3 F% o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    0 o  u  b% d: h- g& _3 Y; z     SuperscriptBox[
    , C! ?9 ^0 ~4 Z      RowBox[{"(", & Z. t0 ?6 b/ B) ?  I* m8 e
           RowBox[{! A( Y, t( I2 u% b' N5 n+ `
            RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
    . n: E" p8 z1 g7 u. Q) Q# L9 f) m     SuperscriptBox[3 S0 k) x1 ?) c
          RowBox[{"(",
    1 }7 R  c. @1 Z* ^6 G) ~       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ' w! ]: F& I# T2 f+ L" _
        ")"}]}]]], "Output",
      w7 y0 C+ f% o* ?# f$ s CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
    ( Z* f8 f. |/ A# D  3.5779607413955193`*^9, 3.578012205484375*^9}]  D. s0 {* E) ~- s( B8 f' m
    }, Open  ]],
    $ w, ~- P$ p  d- Q( p0 v  S% @/ X. R0 f+ P; F6 j7 N
    Cell[CellGroupData[{5 G) M: _# r7 E9 u: z) S# u
    5 {- ]" ^( V! x
    Cell[BoxData[
    4 A( b2 s1 h! B RowBox[{"C3", "=", "Ca"}]], "Input",
    4 y. G; q7 K3 f4 X+ J; A CellChangeTimes->{3.57792064125*^9}],& O& I4 @) g7 c, c- z& C+ L7 B
    * p! q& [1 n; s) [$ i
    Cell[BoxData[! h, K) m! [, Z
    RowBox[{"{", ) n; n" \6 `7 E0 o3 S9 `
      RowBox[{6 \2 l. I, n4 _6 e
      "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
    ! S$ a: z" g* W. D8 E# C! i; z   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
    & t; r* Q# _; U" Y9 w- f  "}"}]], "Output",
    - y+ R9 y5 e! P5 L8 v2 ]! }# n CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9, 4 D+ o% r. g; ?3 `
      3.5779607642027593`*^9, 3.5780122103125*^9}]5 F. I/ p+ B) d4 v2 e1 u
    }, Open  ]],
    - o$ g. Q/ S- l' M: o4 v# ?; u6 w' S0 X1 L: C" `  ~
    Cell[CellGroupData[{" ]4 x( _: `* d: ?5 K. F. \
    # A" {# s% m9 |7 G; o% @% O$ @" ?0 B
    Cell[BoxData[
    2 n( J5 b7 k9 {& B* Z7 U' i8 N RowBox[{"u3", "=", 3 _! k  W; B$ C/ Q7 ]
      RowBox[{
    7 r& x/ V$ |6 a   RowBox[{"Exp", "[", " v" i+ X( V% M- I6 V4 {8 D) g: ]# L
        RowBox[{
    * g& `4 }, F4 m1 p- B4 M     RowBox[{# E6 A) b* t4 [% B1 t
          RowBox[{"-",
    $ Q4 E  c/ r, o       RowBox[{/ ~1 B& Y% o$ W% G8 ~
            RowBox[{"(", 2 H) w. j. ]5 x9 p/ j2 n2 V: c! X
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    7 r1 ~3 e# [; q! T3 D) `% z- A        RowBox[{"(", # f* l. r: x# C
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],) |1 J% J* v# o. }) d) w
         "]"}], "/.", "DeltaX"}]}]], "Input",
    ; }4 H: ^0 s. i1 U- c CellChangeTimes->{3.57792064921875*^9}],
    8 L' B& e5 i, {! W
    / ~9 R% J% `) d" U8 V7 {Cell[BoxData[
    " w$ S9 R, f; d# s0 h SuperscriptBox["\[ExponentialE]", 9 f( I1 t2 d+ |6 X* a) d" J, u7 X
      RowBox[{"3.141592653589793`", " ",
    ! K  }* K/ J" G& P6 i) r   RowBox[{"(", , t1 J& y9 F4 W1 ^9 p& E! i
        RowBox[{+ O8 v# k# M. K+ s
         RowBox[{"-",
    7 S+ M2 J! G/ `' J0 P6 C& v      SuperscriptBox[3 `8 D% C6 M, Z2 G2 {
           RowBox[{"(",
    7 o, T: |6 r1 Q; u! h        RowBox[{5 m4 [, g) E+ C. T
             RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
    5 W' Z! y( G" E8 Z3 M     SuperscriptBox[+ E/ E7 c; k; ?% T; R
          RowBox[{"(", . l/ p" P  R3 f; a+ j9 v
           RowBox[{
    ( ~% J* k7 H% @4 ]        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
    - }5 t' H& n9 @) u) \9 @+ ?     SuperscriptBox[
    5 T4 J2 P% j, Y& V5 r0 v      RowBox[{"(",
    + [# b+ b" }8 w! ^8 `       RowBox[{0 z5 E- ^0 P. q+ I- F$ g
            RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", , K) t; @$ a( s  u5 M8 H$ O
         SuperscriptBox[$ z* \/ {5 R& S( V) U
          RowBox[{"(", 5 i1 K9 R+ v7 y2 G( q% k
           RowBox[{
    2 Z' g9 D9 u" Y% b        RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
    ) P) e8 C0 t% h# N     SuperscriptBox[7 l% M6 [6 ~3 i/ [' Q$ f) ?, G5 o1 o
          RowBox[{"(", 3 U9 ~" V8 G0 u; @: p
           RowBox[{
    3 ~% a, Q* W* [8 |7 Z        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
    2 O. g! R1 ^9 o: ~% i3 I9 }2 l$ r/ f     SuperscriptBox[
    % H- ~" G' Z: v% J      RowBox[{"(",
    7 Y% G2 D8 R8 @) Z+ |) ~' M       RowBox[{" k9 T! [. y& W
            RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",   j' G) S% k! I5 q  J& @
         SuperscriptBox[1 A( w" b( m8 I( H+ u2 y5 x3 O
          RowBox[{"(", ( u& L7 v# ?0 c! N
           RowBox[{
    + L, g7 r! a; _# c, ~9 ?        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", ' R0 o; A1 d  V0 N/ H+ k% G
         SuperscriptBox[
    + V( D: s" L) s8 J0 D- l( Q  X) [      RowBox[{"(", % |! G% _# q0 d, w" y  L- b7 \
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    7 @+ z# H+ j- o# Q; l! F9 ]0 |     SuperscriptBox[; Y  X* h' V! }9 I" {) D
          RowBox[{"(", 6 Z% R9 _5 H9 [+ p
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    - X! R8 m" L# \& H# D3 O9 \: Z% k    ")"}]}]]], "Output",
    ; B2 f1 O( o& C3 P/ O, \) i CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9, , n$ D$ T7 b" H2 w2 L/ J5 M
      3.5779607654819613`*^9, 3.578012211515625*^9}]
    , Y  h% V1 |/ N. g% w, o}, Open  ]],
    9 H2 t: z4 m: E9 L  ?' u$ X3 @5 @
    Cell[CellGroupData[{, v3 M4 C+ N, l, }% y% Q
    & Z& d4 F0 R: r
    Cell[BoxData[: j* }  I) J* R1 F
    RowBox[{"C4", "=", "Ca"}]], "Input",
    $ {8 a( O) {% k! t$ E+ x' w CellChangeTimes->{3.5779207559375*^9}],
    . h. I5 k! i; A1 T& W7 J" e; ~+ i0 q
    Cell[BoxData[: J5 @8 v5 s, I8 a4 H
    RowBox[{"{",
    - D  I3 n- J, `1 E  n6 O  RowBox[{% g& ]$ l5 S+ z2 Z1 A
      "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", $ ]: w- `4 A3 \; i
       "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], 9 L) r7 I* N. `
      "}"}]], "Output",; m+ j7 c0 P0 L# _" P) _* G  \* q
    CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
    6 A9 J3 v! d' ^3 \# e  3.5779607861363974`*^9, 3.578012216171875*^9}]
      m( N5 g$ ^! z7 I}, Open  ]],
    + Q& B  I- k" y7 y! |+ r& ]/ M0 S) Q8 P. W
    Cell[CellGroupData[{, D( `* X) N* O' r4 V
    ! ]7 i; k) w- y' k# ]
    Cell[BoxData[
    - y. V* v# S* A, U% W$ J RowBox[{"u4", "=",
    9 K4 \4 ?) W5 K  Z& I  RowBox[{+ L% s) X: @/ D) R- x
       RowBox[{"Exp", "[", & m) z0 t" [, s2 ~" c
        RowBox[{6 g% l# F# W! @. d% v0 m$ r
         RowBox[{
    ; r' F& W( p9 Z3 y1 y      RowBox[{"-",
    & g/ w" i" |0 u0 T       RowBox[{
    ! S- x8 i, c9 [" o3 ?        RowBox[{"(",
    : `% \, F5 I0 _         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
      ^! v: Q. h+ R' q1 i        RowBox[{"(",
    . ~1 U! ~7 E. @% D( w         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],2 E( H+ l( T" m7 c* j
         "]"}], "/.", "DeltaX"}]}]], "Input",# \' Q$ O# X( D4 m5 w3 k1 A
    CellChangeTimes->{3.57792076325*^9}],% O) ^; V3 A' C+ }& B( F
    # O0 e& a- |; M; Z6 i1 B7 B# R
    Cell[BoxData[
    ' }- }& [+ ^& ]& m SuperscriptBox["\[ExponentialE]",
    1 z' t5 n  n8 x; Y' W+ m  RowBox[{"3.141592653589793`", " ", 2 A6 ~/ _; Y1 m
       RowBox[{"(", $ V& d( u8 k- n; j6 `
        RowBox[{: z$ h3 |5 Y) G: k" Z
         RowBox[{"-", & `- I* L& }4 }4 }$ L% B5 i; R
          SuperscriptBox[$ Z- g7 i, v9 [( Y9 [
           RowBox[{"(", , m7 R& e( V4 G- H. Y( m2 Z$ t
            RowBox[{6 B% W+ a  ^1 m2 s& F
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ; S8 _5 j3 N8 u, V( e$ N) P
         SuperscriptBox[
    ! i! T1 g" ]  O1 ]      RowBox[{"(",
    : g  Z) t. ^( I       RowBox[{5 r& i, v! ~1 S& z5 Y
            RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", 9 D( C5 q4 ^8 Z% B" G
         SuperscriptBox[1 U3 ?1 U. y' c" l* D
          RowBox[{"(", . d/ y& a$ Q! ^  E% K
           RowBox[{
    & f! ^8 m4 w9 q$ `: J7 k0 ]        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", 5 a2 T* R7 H' p' W/ n1 p
         SuperscriptBox[$ }* x8 {7 J7 _7 }+ j2 K7 c0 e9 Y
          RowBox[{"(",
    " k9 d; n7 @& p: q' e/ S       RowBox[{/ T3 e2 e1 G4 ~
            RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", ! v: a) ~7 v3 j( _( B) g; V
         SuperscriptBox[
    4 R) B& z2 |( N, [      RowBox[{"(",
    5 O+ }$ O2 a/ f/ L0 y       RowBox[{
    3 b$ o0 w: N' M! `5 b; b5 {        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", + ]# K# I7 R0 a3 l) t4 Z
         SuperscriptBox[
    6 l0 C: g! u0 N9 a      RowBox[{"(",
    + c/ M2 U) S3 n4 \/ W# \       RowBox[{5 y6 M8 A7 T! V( N* p% T
            RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", ' j' i/ Q8 Y, Z. m* B" O' s
         SuperscriptBox[
    * @) a  P1 W- M1 @7 P4 j* B5 |      RowBox[{"(", 8 Z) V. i: r6 ]" M7 j3 w
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    % @, ?* q7 ]3 A8 `6 ]" ]& z- Q( l     SuperscriptBox[- G' o, o' j( M/ O- T
          RowBox[{"(",
    . l+ z- p1 R: G: R8 P7 O% L, H       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    $ t! W9 N+ L) o- s1 n4 d/ Y0 C( x+ o     SuperscriptBox[
    0 k! _' F, g+ c+ S" u/ |7 e) t      RowBox[{"(",
    8 y, r6 k1 R3 H, D1 |       RowBox[{8 t! k4 I) I, w( `8 n% P
            RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], / k) ~3 r" F9 S: S6 \# d5 Y
        ")"}]}]]], "Output"," }: R3 S# m' Z1 @: H( f# M5 t1 N/ _
    CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9, 1 K$ S" \8 ?) |' C8 O  t
      3.5779607873531995`*^9, 3.5780122169375*^9}]! h# m* L+ Y8 l
    }, Open  ]],
    4 t% P2 J7 s3 q! ]- A5 k1 i8 k( ^* a5 S) }0 {* R
    Cell[CellGroupData[{
    . q  S; n3 r; I5 m: v5 `# v6 S7 K1 }, R3 J
    Cell[BoxData[; X; {3 L: f; a
    RowBox[{"C5", "=", "Ca"}]], "Input",* R5 e( h- N, Y8 y
    CellChangeTimes->{3.577920860671875*^9}],
    " F+ B! @; W6 O; G8 I
    0 x& ~- p% N: {Cell[BoxData[
      ^7 k- U+ {. O/ n0 T! y RowBox[{"{", * t0 u# B6 s1 p& F8 w& H9 P) \
      RowBox[{
    7 R: x3 d: x# N- C; e2 ?/ I  c+ K  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
    1 ]) t& M& h4 u   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}], 3 D) W  p) D; @6 Z) l" k% b
      "}"}]], "Output",
    0 k) ^; e/ q# d; _4 d CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
      Z; T! i; R: V& C% [  3.5779608137328453`*^9, 3.5780122209375*^9}]& W+ ~8 v" |9 ~
    }, Open  ]],# e3 E! [* n4 }5 f5 m
    / b: b; x' C" o
    Cell[CellGroupData[{: I% n. P: t) P* r. F

    6 ?$ N9 o( ?+ ^1 R% Z7 `& iCell[BoxData[; h* i$ i3 S  U
    RowBox[{"u5", "=", ' H: X1 q/ L; M( ~
      RowBox[{" P. ?7 s3 s$ m/ S
       RowBox[{"Exp", "[",
    0 R% Z9 _) w" \$ Z# Q* C3 G, |    RowBox[{- V, D3 P2 j! |* `
         RowBox[{
    1 _$ _* j! u3 x4 I, l6 l3 I      RowBox[{"-",
    ) Q: k* }5 p0 g% t" p% E' S! b: E; g) p       RowBox[{
    ' c. D3 U4 a" ^6 ]* h7 y        RowBox[{"(",
    7 _) {4 j5 ]/ E7 l3 K; d         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    8 B. h5 r; p/ j  A4 ^        RowBox[{"(", . Y; y( N5 a( ~3 \
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    / ]" V* ?4 b8 ?2 u/ u     "]"}], "/.", "DeltaX"}]}]], "Input",7 T' J# @0 u( W: O
    CellChangeTimes->{3.577920869375*^9}],
    # L$ o' d! C2 X' x% M- E% k; f$ R) Z* W% f! U
    Cell[BoxData[
    # K2 D* ]( U" ~# N& Z- w" { SuperscriptBox["\[ExponentialE]",
    7 p, B* A; Z2 {7 M  RowBox[{"3.141592653589793`", " ",
    1 x2 Q' k+ @: c' R5 k( x# P) n9 L   RowBox[{"(", 1 U4 i9 U$ |7 a0 }5 ~
        RowBox[{* [3 d7 R8 l$ |( j( V
         RowBox[{"-",
    ( O. r/ G, ~; J1 O: W      SuperscriptBox[
    $ z1 B: k8 A6 {- W+ z/ q. ]2 t' g9 a       RowBox[{"(",
    6 c8 q. g' b! F# m9 K. k# v5 U6 _        RowBox[{
    + X$ W2 N* O4 x, S" M% m5 D         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 9 p8 {- i( s4 T' p6 ?1 n
         SuperscriptBox[
      ~' R2 |  [& z8 ~& M1 F      RowBox[{"(", & R! {9 f. l& w! c# w
           RowBox[{4 X$ L: o# f8 A# i2 b6 [) }
            RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", ( c4 Q, K6 Q  M
         SuperscriptBox[
    9 {5 i7 {, z8 I      RowBox[{"(",
    4 A* K+ W" s$ ]' X# b$ Z       RowBox[{- a& J7 c# G" \$ X' k
            RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
    $ W! `' K2 K6 @     SuperscriptBox[/ D# l3 b8 Q& o" p
          RowBox[{"(",
    - N8 I0 t. `# p$ a       RowBox[{
    - l6 x  k- O5 g/ H        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
    9 z7 x+ _9 b+ U/ Y6 N# t     SuperscriptBox[
    0 X/ W- h2 x2 c      RowBox[{"(",
    2 Y1 W$ _# s* O       RowBox[{
    # r0 F+ s2 E8 q5 g        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", - O( c$ b8 Q+ V7 V6 F! t, i5 d( C
         SuperscriptBox[
    # I' H9 w. v# A% M% f. [1 n      RowBox[{"(",
    9 I. q* \/ u, r" f" ~- g' r% m       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", " X7 u/ _4 }- E8 B& g
         SuperscriptBox[! v+ K1 T7 ^& Z# y/ d  ?3 v
          RowBox[{"(",
    : |/ b% u- C6 w       RowBox[{- d  }6 U$ m% u
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    ; k& v- H4 i) j3 n* Q     SuperscriptBox[2 S- n# ]2 i& V1 |. i& W0 A+ F- L
          RowBox[{"(", : d  a+ T2 R3 [' W# g3 H& O
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", . n" U8 Y! a& y: }1 s, a% A
         SuperscriptBox[
    8 l; h3 @; ?" x9 ~3 @* ?) Q5 ^      RowBox[{"(", / C( S7 ]+ B  y9 e) K! d6 N
           RowBox[{
    : S1 K' {6 w3 T0 H0 A" |        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], 5 d7 G. K1 F# E: S5 x
        ")"}]}]]], "Output",# u1 p- l! z9 n
    CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
    + \$ \, u& Q; o+ W( {5 f/ \! G" G! ?* h  3.577960815043248*^9, 3.578012221953125*^9}]
    ( ]7 Y$ r% J# _$ h6 t7 c}, Open  ]],. N& J7 K. P2 A: Z

      g2 s. h) B& S$ t" k; XCell[CellGroupData[{- J6 N: h3 j8 W6 l: C3 D5 B. c: k
    : @. ~& B8 }$ [
    Cell[BoxData[
    3 X" H" F% ]' @, T+ I9 F RowBox[{"C6", "=", "Ca"}]], "Input",1 R" C8 s7 }. I: T+ b) f
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
    % z. N' @  X6 S, @: k. f' d  m% {- l/ C' I4 l) M
    Cell[BoxData[4 M8 I2 {, X( p5 D' {4 l
    RowBox[{"{", ; F+ P' l$ j4 s6 u+ ~- D/ m
      RowBox[{& O  \$ p5 c" I' X/ j. k% Q  ^9 t
      "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", * }# t* `; r1 A  I
       "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", 8 C& |4 [6 }$ E# X
       "0.494866`"}], "}"}]], "Output",4 ^' V& o8 d4 t7 @
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,8 `  _% f/ a# I% Q2 z: t2 o
       3.5779608373044868`*^9, 3.578012227359375*^9}]
    4 C) R# k% U- j}, Open  ]],
      @% g' }, t3 Y$ c; G( A& b3 ?. p& ~/ S& E% o5 {5 Z2 @* h% Z* s
    Cell[CellGroupData[{+ ~4 u$ v" `4 ^+ H+ e: a* o# A7 h0 b) y

    & {, N0 S) n  M- u, U, |6 ECell[BoxData[
    * U7 f0 }7 @0 z* Z- a RowBox[{"u6", "=", ) `# u  K1 F6 L5 [" ]" |" F
      RowBox[{
    6 P' @1 X6 X/ K6 R8 F   RowBox[{"Exp", "[",
    2 Z$ f, w+ x( S2 Z    RowBox[{
    $ _5 ~! x! P, |9 R5 v1 v     RowBox[{
    % G* ?! p1 x5 F  l- g      RowBox[{"-",
      X. i1 ?7 B6 N1 m       RowBox[{
    : m3 Y& o  Z, Y        RowBox[{"(", 5 ~2 `/ {# r1 i2 Q
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ( ^7 ~& r" v5 @+ _+ f3 h3 s7 Y        RowBox[{"(", 7 |% r" h0 g# d
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    7 C1 w) ]$ ^) [     "]"}], "/.", "DeltaX"}]}]], "Input",
    ! z5 T, @5 \5 h5 M2 {. X CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
    , e7 W: _: o+ t5 N! A$ r. k& {4 c9 x9 U: O
    Cell[BoxData[: f, Q/ w* i0 @3 r' p
    SuperscriptBox["\[ExponentialE]",
    0 Q2 E' y# J; Y: t/ ]; L! T: Z  RowBox[{"3.141592653589793`", " ",
    ) e+ j0 N$ t8 q0 D. n   RowBox[{"(", 0 Z3 ?$ X- W- A. K$ C
        RowBox[{( W$ M2 G3 B7 O. N/ J5 C* O
         RowBox[{"-", ( K6 m6 a# G3 T; |" J, ^8 I, a, v
          SuperscriptBox[5 i) v6 u/ \7 i
           RowBox[{"(", 9 c/ ?- l3 C6 d9 S
            RowBox[{5 Z; I9 l0 T, F' m3 u
             RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
    1 C; e" ^1 _. }2 y" I     SuperscriptBox[- b# i) i/ v9 V/ _6 S% x7 `2 P9 r
          RowBox[{"(", 7 \4 X" i3 O: c
           RowBox[{
    + e7 a7 a, H$ i) r  Z) @        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", ) q4 `' d  q! {
         SuperscriptBox[) a  l, b5 H2 O: Z
          RowBox[{"(", / r) F3 P: n' ?0 \
           RowBox[{. F# ~: W" v; @* x" \) ]6 j
            RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
    # {- S7 i2 F- D) w+ K     SuperscriptBox[8 ~" n1 K9 s# k8 }1 e( ]. g
          RowBox[{"(",
    ( v; @  Y) J& w) \$ `; b       RowBox[{
    1 s: Z' u- Q& |+ d        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",   N9 W% \% }( d0 I) a
         SuperscriptBox[6 D0 Z% r- R- z; D
          RowBox[{"(",
    ' r( l& t8 K4 ]% c2 m- }, T       RowBox[{# J) z5 F1 @  W' y, n5 m$ [  S
            RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", 0 P' o7 D# m4 d/ g9 I6 \9 s& d
         SuperscriptBox[
    9 q* z; t% K6 Y0 \! |- O      RowBox[{"(",
    ' r- M9 q: g6 g" K1 ]       RowBox[{
    6 c! L. Y" x% U! d        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", * m3 j7 l2 k8 f  _4 W# h/ {
         SuperscriptBox[
    ( [; z' u3 m( e- f& w$ r      RowBox[{"(", ( V3 `( r) I/ _
           RowBox[{
    & s; [# v$ s3 T" Z        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", ( {3 |; O4 x4 `5 Y# l, F! E) j4 ]
         SuperscriptBox[' @2 {: h" Q7 l1 M+ _: Y3 W! u0 D
          RowBox[{"(",
    3 }% ~( T/ P0 }' e! L$ U       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", " l. M& b$ J; |+ G6 [1 n/ V4 `
         SuperscriptBox[
    & x! G  r' C# L; _5 h$ n1 I      RowBox[{"(", % L$ q! k/ f# ], O( }  s& }
           RowBox[{
    ) b! D4 u4 K# @8 B- J, l& n        RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], $ X- q7 \; |. n
        ")"}]}]]], "Output",
    * q( A+ s( E+ v$ f) s CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    , E* H/ P. W8 G. K+ F' e  Z: [  3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}], P. Q3 }, _% @" W, R2 O* S% e5 P5 \
    }, Open  ]],
    6 c+ Y  {8 q$ ^* C$ P- X
    " R; ^) u; U/ Y/ O1 oCell[CellGroupData[{
    3 l: Q2 L" y% d, x) J" d) v) x
    Cell[BoxData[
    : Y3 J7 P2 l/ o  W1 f# Z RowBox[{"C7", "=", "Ca"}]], "Input",
    " ~" z+ ]1 l& ^7 ~, K6 `2 v0 z( ~* s CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, / e! p. }& j- z8 p) Y3 t5 N
      3.577921316125*^9}],
    % \$ R! U$ K( e) I# L! o1 W* `& B. J- L
    Cell[BoxData[, s7 Q# M+ i' ~* B4 H3 n0 s
    RowBox[{"{", 5 u0 i! i; P1 t% \/ a; X3 X
      RowBox[{
    ! o7 ?7 D# U% y9 X$ v6 s  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
    3 Q. y. n  L8 K* i7 [3 k   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
    8 Z* Z% y6 h  C  "}"}]], "Output",
    4 v0 W9 H; N) b1 G CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    3 e' m! X9 m$ P) }  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
    % n7 x" a; f0 e}, Open  ]],
    ! j2 B) ?( z' B- x
    " a* z. G9 G* ]7 J' o/ w" H* A$ ~Cell[CellGroupData[{
    3 T9 s9 \& M! }% p9 E
    / Z3 ?2 |( h" M: d0 q: n* b* C6 FCell[BoxData[+ ?6 s/ p; v! _" i% j# h
    RowBox[{"u7", "=",
    5 Q$ \3 Y& k8 A7 S" A3 l  RowBox[{
    3 m& @" K& ^! H$ S   RowBox[{"Exp", "[", 7 [! W) H* |5 ~1 \5 ^  B& F. V
        RowBox[{5 q$ P0 e& a- B
         RowBox[{9 A  U$ n5 ]: z* u/ a$ M
          RowBox[{"-",
    % I7 b! f* g2 L- n5 Y       RowBox[{
    5 F$ T) s1 w- V+ k$ U        RowBox[{"(",
    3 g3 u3 T% i8 [- p2 T  Y. Y- X2 H) C         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 B. s4 G# X% p) ~5 N' g
            RowBox[{"(", : B# G: \' M, _( v& k
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    1 O5 N+ u- I* u5 z% r  ^# E     "]"}], "/.", "DeltaX"}]}]], "Input",. M. R; x( }0 B. ?& L6 U
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,   \6 j: k& a! R9 `
      3.57792132028125*^9}],
    ) K5 g. [4 N, f6 w9 f4 ]1 ^8 J* o1 ]6 o
    Cell[BoxData[
    7 q4 E5 S: q& R4 Q& E3 Q" @ SuperscriptBox["\[ExponentialE]", 3 _* u& H7 X; o$ B2 D# y
      RowBox[{"3.141592653589793`", " ", - |' @+ n  C  A( Z- I* A+ H
       RowBox[{"(", ; J! a1 i4 j& B" n* C' G& {% {& k  B4 r
        RowBox[{
    * z" W+ H6 w2 a2 m     RowBox[{"-",
    ( ^7 ?1 v3 W* z3 z- c/ ]6 n      SuperscriptBox[/ C2 H, ~  V5 w4 @8 U
           RowBox[{"(",   p7 d/ \" T1 W- Q- `5 R
            RowBox[{
    % u( m0 P2 A% D2 j         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", : q! @0 J; t2 l7 E
         SuperscriptBox[
    1 _* [: p% h2 |- M      RowBox[{"(", # P* S" D9 P) \+ z* k; C. U
           RowBox[{
    * y6 q4 I" w0 N! c' ~        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", - w) ^& K; S! X3 s
         SuperscriptBox[9 x) [' P) i4 H1 Q; k& [
          RowBox[{"(",
    8 `4 R& O* u7 l$ v% A4 e3 t. q       RowBox[{
    - |9 R0 N+ X1 B3 a2 C) q+ f4 |        RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", ! J, q. V' j! P: i3 B
         SuperscriptBox[; q) g. F( i- x) L( d+ Q9 p
          RowBox[{"(", 3 @4 {" @- D! k9 o+ b8 L2 A! E
           RowBox[{* q& J* k: l2 S0 ^
            RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
    * i6 c. c5 W- O     SuperscriptBox[; c: b0 g! B+ ]  ]  G
          RowBox[{"(",
    2 a; O# ~5 Q" Z9 x' Z       RowBox[{
    ; r$ T& C: N* ?% O" Q% o        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    4 z9 Z; e8 B; C  i     SuperscriptBox[
    ! t: C) i3 I" ~  V2 w5 W      RowBox[{"(", - @' T5 g0 y5 t9 `9 Y
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    % {: B- N6 B; `1 g) }- J     SuperscriptBox[. [( w' ~4 j% x7 Z
          RowBox[{"(",
    - S& F# p! A# C2 g" i3 P       RowBox[{
    ( l; Q' r* _8 n6 P" I; u, J        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    ) u8 Y$ @" H0 @, L' e% ]     SuperscriptBox[( [% k% C! ^9 t5 a+ u, h1 u( F1 K
          RowBox[{"(",
    4 Z8 @, r# g8 P& v       RowBox[{8 m3 `. |6 Z  v
            RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
    : W* z7 ?; o8 C  E7 n7 u' o' B2 Z1 c     SuperscriptBox[
    * x; E1 L- p: S2 X& ^' G      RowBox[{"(", 3 z* E5 n- @/ m
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    3 w6 \' G6 [' u9 W5 R    ")"}]}]]], "Output",. J. L! \/ ~3 c9 ]! p
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    # r% I1 m- _8 d1 J& V  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, : |8 X' s* |' D
      3.578012251359375*^9}]
    ( P: A5 F5 g3 G! }}, Open  ]],: Q$ _* }5 s# a  }  S( s# }

    ) W, W) L3 V: K, k( v* \* v+ h0 nCell[CellGroupData[{
      Y0 O! v3 ^: U9 X; y" }2 f7 M- G* P' a" f0 m
    Cell[BoxData[
    : M! r. S& g/ [5 H RowBox[{"C8", "=", "Ca"}]], "Input",8 z/ n& c9 @- d2 S) ]2 U
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 3 M: A, M) Y% c5 T. }/ M9 G6 n
      3.577921316125*^9, 3.57792141421875*^9}],
    2 A! m$ a/ [6 {  E# |( n3 z$ L) M# a. E# x0 i9 K
    Cell[BoxData[
    # ?. z; p8 Y: {0 H RowBox[{"{",
    3 A' L! D0 |8 u* x1 _' ]  RowBox[{
      ]0 I" g9 ?, S2 q  A' M  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", ) f" J+ K' q! ~: }( U/ i
       "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}], 4 o) s5 i& ]  o) l
      "}"}]], "Output",
    4 b; k9 z/ r: ~ CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, ) M) F2 n( ^& O$ k& v
      3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
    ( u7 C; B3 R) g) r6 D' q) v  3.578012260515625*^9}]7 n* n+ W0 a# N2 l) ]  C; |/ y, Q
    }, Open  ]],  d' B2 h( a+ w9 f4 F5 s

    / C5 s& V4 n/ eCell[CellGroupData[{
    5 E( R% C1 m/ N: `* `% m& |
    6 ?. k" A+ i* [5 Z6 \5 OCell[BoxData[
    ( D! c: G- r1 C. g4 L& @! Y RowBox[{"u8", "=",
    $ b( @8 M( W6 `2 U  RowBox[{
    9 V: f- R) @7 |   RowBox[{"Exp", "[", % D' [  e4 l6 F, X' ]: O7 \1 u, F
        RowBox[{7 m. }, x( J0 ^  @0 j  y
         RowBox[{( b" e: A# J9 k" h& I5 g3 f
          RowBox[{"-", " y( P; ?$ P+ ~/ `5 M: g
           RowBox[{
    ) c  P& @* @3 K- K        RowBox[{"(", 4 f6 w$ `9 L# h. }' x) \& p0 g
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ) }% @3 H1 O2 S1 r/ f  k: v
            RowBox[{"(",
    & L* g6 P5 A- c- w' _$ |         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],) s/ m% ?" l. D9 f- k1 |; D
         "]"}], "/.", "DeltaX"}]}]], "Input",  F6 V% ^  c3 [) N. w% I9 c
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    $ S& Q/ p8 e, \5 L. m  3.57792132028125*^9, 3.577921416921875*^9}]," O0 {, b5 m4 P1 P
    8 h: S7 r% y5 x: s
    Cell[BoxData[5 x3 W& t& C% m1 j4 B% ]) T
    SuperscriptBox["\[ExponentialE]", 8 g5 a7 P/ @, F$ L6 d
      RowBox[{"3.141592653589793`", " ",
    5 ?) Y  m0 S% c" e% ]( K   RowBox[{"(",
    % @, ]4 E/ k/ A5 w    RowBox[{# Z) X. n" v" H- C3 R
         RowBox[{"-",
    * u% {6 ?' x7 X0 |5 R      SuperscriptBox[
    ' a5 p/ ?: e" D% _. @$ Z3 [# K       RowBox[{"(", ' j, D/ A% s3 k$ X- _7 x5 U
            RowBox[{
    " E; n+ q- Q4 M+ q         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", * N. u8 ~) E7 m) u
         SuperscriptBox[
    $ b0 x5 v7 x$ {0 {0 M' x# e      RowBox[{"(", ! q8 a: q5 L9 `1 V% {- ^1 W
           RowBox[{3 B% a+ P9 `9 M* L9 P
            RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
    , N3 ?/ ?7 U# t4 @     SuperscriptBox[1 e. B! N; P3 N# H; l8 ~
          RowBox[{"(",
    1 O& D0 ]! X0 o0 ~! L' @       RowBox[{3 C3 R5 |3 w! h
            RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
    / k5 g- L" s9 `0 Q     SuperscriptBox[
    5 u- h( p: L. K$ A      RowBox[{"(", - d/ Q0 L( g; t3 n
           RowBox[{" _" L7 r' y2 I0 B" X, G
            RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
    5 s6 T) Z0 a' b- p) j  X2 h7 t     SuperscriptBox[
    ( a1 w) b& }: D5 T! o. }1 }" z1 \      RowBox[{"(", - U9 I5 G# R; |0 m# r
           RowBox[{7 ?5 j0 h$ n6 @( V$ F+ x
            RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
    # a6 @8 D. D6 ]1 X- v     SuperscriptBox[
    , C& O) m) p+ j: p5 {; N      RowBox[{"(", . n. T4 H  G/ ~! A
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ) m+ k' m( k$ c. }5 {
         SuperscriptBox[* M$ b) v8 u) [; E: T2 m
          RowBox[{"(", ( z# h3 x: Y! g; D, J+ {
           RowBox[{
      H: E/ n" V! b! E$ J8 N        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
    - L- D5 ?; S6 S  a' g. P+ P     SuperscriptBox[- V( w# E" H7 p3 I# F1 [
          RowBox[{"(", 1 }. a2 O" n# {
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    9 @% d8 F7 ~8 x" P, i     SuperscriptBox[
    , V& u3 ~( i8 U      RowBox[{"(",
    3 }+ }/ G4 |% O9 K. u       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], % l- T7 n( s3 }5 Z5 j* e& r
        ")"}]}]]], "Output",
    & f, |+ S- m. J CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    " v& J  Q9 U$ {- F8 X# P9 |7 \  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9, + r9 f5 t7 ]7 M
      3.5779608945565863`*^9, 3.57801226165625*^9}]# M3 \# @3 Y8 C, `# ]8 Z
    }, Open  ]],
    % F9 o4 Q+ W5 h8 B  n
    ' j& y# V* L( ~Cell[CellGroupData[{) x2 ^) w- D5 u6 d# T  p# i
    ( L5 t' F0 ]! w3 h$ [- M
    Cell[BoxData[8 h5 n3 z1 x) C! Z0 b0 P. y
    RowBox[{"C9", "=", "Ca"}]], "Input",
    , f9 G6 _0 Q/ p0 n3 C4 Z. a- w6 u CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,   e0 U) o+ A6 o  l
      3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],6 i6 v+ z7 G+ u/ ?0 k% Z" A5 w

    2 C- y  V  D4 X* VCell[BoxData[
    5 r$ X6 I9 F, ]" A) C& h! h& s$ w RowBox[{"{", 9 P, I  h3 g1 d# Y7 E
      RowBox[{9 v3 b( e& u7 o
      "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
      }; n( v% F# q/ L   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], - S9 c& L6 V7 G% U3 K
      "}"}]], "Output",
    - ~1 ^6 h2 x- [ CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, ; `% Q) E; f( z8 s
      3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
      N0 X- `7 G4 E0 S9 r  3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
    ) S! T3 ]4 b! M7 }# _& U3 w( w9 y3 R( t  3.578012268234375*^9}]
    8 T4 C% j# J, G9 n6 ?}, Open  ]],
    % O/ M  @. m- i/ q" K/ n2 I" H* A. B7 R3 B, [+ b
    Cell[CellGroupData[{
    # b  R5 U; l7 ~& y0 r& f9 L9 |& {, ~2 p
    Cell[BoxData[
    4 F4 v) Q+ [( f: f: h; g- k RowBox[{"u9", "=",
    0 I  c% E* O7 R" j( R  RowBox[{; W* O- c: L8 g. G, I
       RowBox[{"Exp", "[", * ], m! T! {1 x: ]+ h' l6 P
        RowBox[{
    9 f7 t) \8 ~8 A5 Q6 a( H2 ^     RowBox[{
    % j+ Q" f& o) a/ {) v/ e      RowBox[{"-", ( k; v6 o3 M' o
           RowBox[{
    ( k. \! W. L2 k; S        RowBox[{"(", / _$ [2 M( A" M- x( Z5 w
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 9 \/ E4 A$ ]' k# A# k2 B( u
            RowBox[{"(",
    , n& F9 m7 \# v         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ( {2 w% K& \: P" j: u     "]"}], "/.", "DeltaX"}]}]], "Input",0 m, ~, v3 e; N; Z1 a
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 9 }3 I, a$ F1 {6 k$ U, q
      3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],
    1 u! q5 D: r  q: L9 E
    & W; B; s# P4 _; X4 a' mCell[BoxData[7 r$ I5 w- ?8 Q3 G
    SuperscriptBox["\[ExponentialE]", 5 ^  J: N$ C3 l0 B
      RowBox[{"3.141592653589793`", " ", 2 L% B3 p1 Y" }
       RowBox[{"(", ' \+ j: P0 f1 U5 V/ O1 c, T+ _
        RowBox[{  s: ]# k8 n# n
         RowBox[{"-", 0 q% p" `: x7 ?2 M/ q
          SuperscriptBox[, n6 ]' F& b- [; D4 e
           RowBox[{"(",
    & d/ X' N, ?- @4 \        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", - M# B% F/ F' B" ~7 s( ?* S
         SuperscriptBox[
    # z- M; y- N) P  N* C! o* I; O      RowBox[{"(",
    $ ]* B# ^) F! `( `% [       RowBox[{, z0 N( n) K( @" v  D
            RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
    7 e7 n3 ~1 e& Q1 F     SuperscriptBox[
    & _8 |+ U, |" _      RowBox[{"(",
    7 t# z, N7 h; V) p$ Z  J  ?' G       RowBox[{. N' N* H& X' L+ b4 K( c
            RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    . L7 C5 `: p# Z2 u6 m! f     SuperscriptBox[
    $ o9 a; m; |! H      RowBox[{"(", 1 N8 @0 K3 h6 l( Y- P# q% ]
           RowBox[{+ X9 E) O4 q# o8 ^& \
            RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
    " W3 `4 H  ~' h! Z( u/ |3 g     SuperscriptBox[
      i. Y5 e, z, q6 J* v' Y      RowBox[{"(",
    - o% e, k1 Z; `0 J9 M$ _       RowBox[{% e+ q  X% {" e4 D8 d
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    - G( }; n9 n, z. K2 Z8 }; Q     SuperscriptBox[$ h. b2 a$ X4 G9 x$ D" R
          RowBox[{"(",
    . {) _$ M) o7 N& d! g3 e. T& n# k. ^       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ; l3 X7 w3 d' m1 ?     SuperscriptBox[
    9 W6 ~. [) I2 n! a      RowBox[{"(",
    , u) W9 v! g- ~) J       RowBox[{
    8 t7 [8 l: E. S( H. B        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", ' {% n( o1 M  k) L% t
         SuperscriptBox[. s% I4 |8 b6 t8 B" {
          RowBox[{"(",
    3 x; P% N! a/ W1 M       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ( `7 [+ f7 L+ O7 }7 S7 J% F2 ^9 ]     SuperscriptBox[( d  }% ~% F& @& u3 s
          RowBox[{"(",
    : N$ P4 u$ z. R% R       RowBox[{+ Q1 y3 F9 Z2 a% ?/ k% h" y1 t" S+ j
            RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
    + K/ Q- u) p" r+ J$ d/ n( N    ")"}]}]]], "Output",$ [* R% n' a9 K1 v6 M  ~& W
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 3 U9 R8 e" X  B0 m
      3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
    $ j: D' l& t: @6 J  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
    ' v7 _+ I- ~0 ~8 D  3.577961530421959*^9, 3.578012269125*^9}]
    , K; a7 g: Z7 _8 K' J& g}, Open  ]],
    5 P0 n" t4 l3 D+ B( |
    9 I: I3 @! Y7 g9 \# CCell[CellGroupData[{  Q  ?( m4 {) X  l* j4 T
    3 \/ |0 a$ D( }6 l2 f# ?
    Cell[BoxData[{! P/ O3 _  V# ]3 X0 y) d/ u" A; e3 R
    RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
    ( k. ~! N1 h, [; j; {5 i" B RowBox[{"u10", "=", . k- M$ T$ G  b: G  l1 `1 Z. o
      RowBox[{
      q6 X5 F3 J! }. \, h8 l* e! ^  N  ^   RowBox[{"Exp", "[",
    : w0 K; ~' K4 L( b7 e0 V$ c    RowBox[{
    5 ^- J7 i) ]: t6 p- ?$ B* |     RowBox[{& i8 _0 A' ?/ G
          RowBox[{"-", ( e' G7 f# v  q* `6 X% _! X
           RowBox[{
    1 \) L& j: w) n5 h+ e$ r8 t        RowBox[{"(", 8 ^& t# ^3 p  [' B/ c/ H$ \
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 1 ?! @$ T, H; ^* Z5 C0 X
            RowBox[{"(", 9 E' D* ~5 y/ Q$ M5 m
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    : E. b2 `. R7 W     "]"}], "/.", "DeltaX"}]}]}], "Input",* e& @1 [+ e$ `6 t2 s- }
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
    & z( T1 E2 \8 h5 b0 u( N' u& a$ |0 ?/ L
    Cell[BoxData[
    8 q* S* ?" A5 ?# a, o. z RowBox[{"{", " L$ d' i" R; s! k( g1 K
      RowBox[{( {+ _* k/ S% l7 v3 S& {
      "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
    $ M% M7 c( t3 E8 z3 `2 @   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
    * h0 l6 O/ |* B0 i% G0 W CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
    ' b* j$ o8 [! \* O' i4 D4 W; b7 [7 n
    . e$ g# T/ ~4 H7 k) f; P; }& ^Cell[BoxData[
    ; F, m/ j$ [3 E4 Y+ q SuperscriptBox["\[ExponentialE]", 5 n' e8 {+ S5 ?. e3 f
      RowBox[{"3.141592653589793`", " ", ' w! W8 ^* _# U) z/ P
       RowBox[{"(",
    9 H7 L7 ~. M9 ?( W8 }6 V( `2 o& F    RowBox[{
    + L3 U. s# U& m2 m     RowBox[{"-", 7 B. _. [) a" Y  \, w# c
          SuperscriptBox[
    : z, R5 o9 X: m; O4 Z       RowBox[{"(",
    2 i" V4 C$ @+ f* R; ~2 h( D        RowBox[{
    ' ]& o5 A8 l2 V% w( s8 R- g         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 9 Z3 i8 t5 @, A. a9 C) K" L
         SuperscriptBox[
    1 I# V  E; ~$ h8 Z      RowBox[{"(", ' [' Z9 F) E/ I( f, |
           RowBox[{
    ' U8 d: M# \7 b1 B4 I3 O/ i        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
    7 S- [  v! K) O) _     SuperscriptBox[# i2 K& R: A% C% g. {  N) a6 m
          RowBox[{"(",
    9 I7 Z# Q# ]+ t, P       RowBox[{
    4 r* P. x/ W9 O% ]: v7 h        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", , P; ]$ m" m: M/ j& W2 T& M" j
         SuperscriptBox[
    + _/ y& m: k( E% B5 d& }. P! C      RowBox[{"(",
    1 @( z- `5 |2 T6 H       RowBox[{- ]; F* N: U# F6 d$ u) \$ D
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", 9 Y$ R- l9 I1 F* @& O
         SuperscriptBox[, r2 r' m/ N& k  z5 h/ W
          RowBox[{"(",
    2 A- i9 n2 O) J. L2 s) j  a8 e# D       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", 5 f. V5 u0 ^5 W# w4 E2 i  H
         SuperscriptBox[
    , S5 s. {. ]; ]8 `8 s5 t$ E      RowBox[{"(",
    0 F, F$ e+ r+ [2 a% s9 a       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ' A( o& u" P/ z$ B/ ^. @5 a& M3 _     SuperscriptBox[7 \( a9 s0 I9 z! t4 l
          RowBox[{"(", ) V% s% Z" u( a- I6 M1 E& ^, Z* C
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    - b  o! e. b0 ^: u( G+ J     SuperscriptBox[8 c! ~2 G. w+ I
          RowBox[{"(",
    9 ^2 Q- q9 ~/ G: }/ T  I& ^0 t       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    , L8 T/ L7 o' V; F. v     SuperscriptBox[
      c1 O" {4 x4 h7 {      RowBox[{"(",
    & u6 A% K1 G6 [       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    9 l7 \/ I' d7 P1 X4 o4 e% D0 S9 s    ")"}]}]]], "Output",
    7 o( I( F# I- [1 v9 P) q; ]- B$ J CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]! g& F  b" P" S6 Z
    }, Open  ]],
    1 A; ?+ I) r+ _+ Y# C3 `$ ^
    ; X/ G/ v1 x: g2 [! CCell[CellGroupData[{2 ~: I, \# ]6 p- \8 n2 f) q: H: v
    / ~) ^& s7 r3 }
    Cell[BoxData[{* E! J+ w6 C1 S$ a
    RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", : f& w. w' |# K3 }: E
    RowBox[{"u11", "=", $ R$ N) P$ q6 j4 o& c# o
      RowBox[{4 \1 p3 _+ O) m! C
       RowBox[{"Exp", "[", ) M0 m' z; T9 x% M( F
        RowBox[{
    9 [0 F, E5 f" V, `' }% _6 J     RowBox[{
    . b+ v" V, M& w4 K! W      RowBox[{"-",
    * _- w/ i: j8 g) l  O6 A       RowBox[{% i) B( }) y4 M8 J
            RowBox[{"(", " ~/ k1 C* m7 b1 v& Y0 }2 G
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 3 E3 y8 s8 H9 Y0 I: m& {
            RowBox[{"(",
    5 E2 j3 ?: t% N5 v5 }5 D! y: ^         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
      X1 A; W% h2 u     "]"}], "/.", "DeltaX"}]}]}], "Input",
    # a% j# R5 K$ k" t' }9 t! q" T CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    " Q+ I1 m+ Z: a$ T. H6 B  3.57796154237158*^9, 3.5779615434011817`*^9}}],# @$ T+ W9 t) r8 g; W0 Y  o4 w0 l
    ' ~( c1 o( y' h2 T$ G* Y1 q+ @' c: D, r
    Cell[BoxData[" x/ C& @& b! {; P- [7 b
    RowBox[{"{",
    , j1 E: `2 g/ i  RowBox[{1 _4 f) f' e0 o2 T
      "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
    # T  F* V( w  C7 ~+ `   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 2 c6 x- j7 U6 x. g- _. A& ^
      "}"}]], "Output",+ c5 _1 M% n; p. u  l
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    8 G+ Z7 a- \# J6 {, [) ]  3.57801228203125*^9}],6 T+ p; V& q0 l/ a, e
    * Z5 Y4 e' }0 W# I5 k" e& T( L
    Cell[BoxData[% Z) _5 ^5 y5 K8 R' L
    SuperscriptBox["\[ExponentialE]", % m  }: c4 t4 }5 K1 v; D
      RowBox[{"3.141592653589793`", " ",
    0 |% Q- ]) i7 {% g. t$ r# C   RowBox[{"(", ! ^& o* T* c+ L* Z/ t
        RowBox[{5 A" t* M" i$ h" U9 f
         RowBox[{"-",
      w- Y- _1 S5 M      SuperscriptBox[
    ! z! h- r0 l1 V3 e% M( q       RowBox[{"(",
    ! b) W. x3 A$ P$ }; n. e        RowBox[{( H6 K. e9 H8 \6 C) E1 K! y
             RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", : `3 ~3 _/ B# X: T9 b6 P
         SuperscriptBox[
    & @1 k6 p9 ^4 C      RowBox[{"(",
    - T/ S3 i" S  n! m$ X       RowBox[{
    8 L2 c1 U6 G/ l; @        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
    , P3 N$ r) b3 _0 k9 v. Z     SuperscriptBox[( k% P6 t5 S/ q+ M3 o5 I" r
          RowBox[{"(",
    : N1 |# A1 \4 r/ [: Z       RowBox[{
    5 \/ V- G. c% J4 M& N4 [        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", & K6 w  B9 j+ S
         SuperscriptBox[7 V, v( d' Z4 E" I* `: i
          RowBox[{"(", " b+ ?: g1 m, Q) o6 j9 x# Z
           RowBox[{
    " J" n- l7 s: O0 U1 w6 _# ~$ D        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", " u8 s, c2 h4 r/ K, i' q, |
         SuperscriptBox[* R  u/ F/ \" a
          RowBox[{"(",
    & p& h- u/ R, N+ k5 X; j       RowBox[{
    7 F5 Z1 B) G. Q+ M$ \9 l$ E        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", - ?8 h2 g6 \, W/ }4 h
         SuperscriptBox[9 t/ v6 x( Y" T7 I5 Y3 }
          RowBox[{"(", 1 V1 P  a, f0 b+ h
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", / D0 _3 {% Y8 v: q7 ^* }6 `' B
         SuperscriptBox[  \( P0 j1 m4 g& ^  E
          RowBox[{"(", 5 M) j8 Z* t  O# ?: ~
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 2 ~2 K; A7 Y  R' [+ T4 k: v
         SuperscriptBox[
    - {$ M5 ^$ e' x: R" B0 U      RowBox[{"(",
      M* g9 G& s& `5 |; l       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    2 o1 c% e3 [/ E' ]2 w, S: M; B1 H6 R     SuperscriptBox[
    9 X- m$ B  ^4 r- t; l      RowBox[{"(",
    " v& I  {0 g7 D4 v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], + L3 V# i( I& l1 i0 m/ n: e
        ")"}]}]]], "Output",& t  F; e3 f! X2 x/ P7 `0 R5 v
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, ' h1 \. w, B  `1 e
      3.57801228203125*^9}]
    & ], ?- }6 [1 ?  F; b3 w}, Open  ]],/ Y: J8 y  i  C$ m7 ]; L# P

    / n8 e2 m  G  r6 R$ h# l$ sCell[CellGroupData[{3 B" w4 w/ B0 F, v

    7 j$ R; K# H* o( U' c% b3 FCell[BoxData[{5 \/ K4 R' F$ F0 v. N/ A6 K
    RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
    / @) Y8 f$ W" |! }) r% W  ~ RowBox[{"u12", "=", 4 y( `6 T( \) ?! t: M. t0 t
      RowBox[{
    0 Z( `8 H+ s5 M$ [   RowBox[{"Exp", "[",
    2 d% K4 D1 O7 L    RowBox[{% y$ M% l6 K' x6 e/ X$ e/ g
         RowBox[{
    1 P3 n& o, N9 d0 G, ]      RowBox[{"-", ! o( ^) \) i- Y  J
           RowBox[{8 {8 G6 r9 _) @/ |
            RowBox[{"(", 8 e  v- w" c+ G2 C
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 2 g+ L6 v9 h5 b. N3 U$ ~
            RowBox[{"(",
    ; g* f& q; P/ [: L         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    : A! D) e8 \, q* X7 h- V     "]"}], "/.", "DeltaX"}]}]}], "Input",% N* ?- n0 i# R; H' y
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {+ D; W  S& E1 h6 a. A
      3.57796154237158*^9, 3.5779615576284065`*^9}}],
    3 t9 G* D# R' @" A$ O/ W; }/ `, h$ f5 s
    Cell[BoxData[
    . v9 \, ^+ s, ?$ F5 c RowBox[{"{", : B! f1 O) P: x" p1 M
      RowBox[{- x& U3 Q& \* k& x3 a
      "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
    2 o3 f* r9 w" I; ]# c' l   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
    / T. p( e2 W' k( r+ O' u  "}"}]], "Output",- P. j) h  Y6 m/ O: D* I
    CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],2 C7 Z7 ]( Q; G9 |
    * p# h3 K- M. d) P8 i/ U
    Cell[BoxData[0 M6 @7 I0 _( i( g
    SuperscriptBox["\[ExponentialE]", 4 q: u" M- Q+ z% R$ {
      RowBox[{"3.141592653589793`", " ",
    8 \8 B5 ^" N, {& O: v! F   RowBox[{"(",
    , [( ]8 m$ h* p    RowBox[{3 t/ y. s2 H* n
         RowBox[{"-", ! j, ?+ @- z+ a- G* F& t. g9 M$ ?; Q
          SuperscriptBox[
    ; l; Q6 g& Q4 h4 v' d: N       RowBox[{"(",   ~, n. y) k; m
            RowBox[{; J( F' t6 K2 E
             RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", + f" F" C. q; D
         SuperscriptBox[0 B0 ?8 E% k: p, ?
          RowBox[{"(", 3 p  |% D2 N- o2 e' v
           RowBox[{
    $ [3 G$ Y) N. @6 G        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", ) {2 @: W- @& g
         SuperscriptBox[" v& P( T' e1 Z6 C1 i9 O
          RowBox[{"(", ' x* G, {2 M5 V8 j9 _- @5 Z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", ; S" i2 X% q2 s6 ^
         SuperscriptBox[7 f5 A/ ?4 j% v! s8 z* ?
          RowBox[{"(",
    ; `  Y( ^: C8 l" _. b$ U# n; B8 x       RowBox[{. V( g; Q4 M& `! P% x
            RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
    4 n& ]/ [6 S9 E/ w' I- U     SuperscriptBox[) l1 v- p; ^2 r
          RowBox[{"(", 5 D. s5 ^, U: X
           RowBox[{
    ; S$ k! G1 Q# V/ m        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", ; _) V2 a/ n- d8 f( X
         SuperscriptBox[
    : I7 s# [( Z) J$ [/ }  _/ N" i      RowBox[{"(",
    . h! F# v1 O. e2 M+ f       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ! \4 n  T: ~5 D
         SuperscriptBox[, H; |' I" s2 G
          RowBox[{"(", ( b- J' f( n* G& c8 r3 l/ j
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    5 O7 a% y4 j! R, j     SuperscriptBox[+ k6 H' K& j" L9 r0 L0 f9 M- ~
          RowBox[{"(",
    3 Z$ ^' J+ y& w3 M, R       RowBox[{
    % U: x5 L4 Z7 A: {. W3 W        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
    % C7 M7 G4 c9 b9 q* N7 n# }2 ?' S     SuperscriptBox[7 w7 J% [. X# R3 m5 k
          RowBox[{"(",
    0 U6 F4 v# q! q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    3 I7 l8 e6 }9 |: u2 n1 j    ")"}]}]]], "Output",, D/ k  A9 A! M* r8 D' l
    CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
    ; a" _7 N4 f$ r6 [: ]}, Open  ]],
    $ s; ?+ R( B1 h' [0 u1 k) l: q: L5 z7 b  H  _% k
    Cell[CellGroupData[{
    . o: y/ |" w- R- C- M1 |3 R% Z$ n4 W/ R; V7 v3 ^) e! N
    Cell[BoxData[{
    7 x3 v1 K; X, Z6 ?6 i4 ]2 R RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
    : ~1 d" L  n+ o1 W$ b RowBox[{"u13", "=", " N# d9 f  w/ M( g" R; b& s
      RowBox[{
    % e9 m! \$ [' r   RowBox[{"Exp", "[",
    " |8 K) R6 x3 P$ W! x! h    RowBox[{4 U8 ~/ P% I) p$ w: `
         RowBox[{( ]6 X- C# u' V. |& u
          RowBox[{"-", % D( r0 d" h# t! B! H  Z
           RowBox[{% W. Z* n6 b# j2 E
            RowBox[{"(", / T  A( |- i! S- y& {
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    4 M, x* g* b8 U        RowBox[{"(",
    ' ]4 D' X* ~, ^2 u         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],: W: k, ~! v# R/ a& P) j0 ]: x8 f
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    / b/ Q& i7 O# I9 t CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {( f: d4 w( q2 k; w$ X8 X$ ?# g
      3.57796154237158*^9, 3.5779615599684105`*^9}}],
    8 q8 V! a+ Y  K; C/ q  V& e2 U1 g) @+ u
    # ^4 L7 @& S$ M3 z6 c7 F& t5 vCell[BoxData[
    + x) s' X  h% @! m4 g" C5 h- M! { RowBox[{"{", % Q" V) L) K# g+ c- a5 f
      RowBox[{: f$ K  }4 `# ^! a" w/ E
      "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",", 8 _9 i$ }. M9 w- k9 d$ _) l! C
       "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}], 3 B5 o1 s- t& p& }3 L! \
      "}"}]], "Output",8 f. g9 ]3 H" p$ J& g8 u2 {, p
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
    % D. ^! l, s+ ~- Z3 Q, ^( k/ }; u8 i8 i6 w& |
    Cell[BoxData[6 H4 w* p5 t8 F0 O4 l" q
    SuperscriptBox["\[ExponentialE]",
    ' W( {3 V1 J4 q% `  RowBox[{"3.141592653589793`", " ", . w! B2 S# G9 b, i
       RowBox[{"(",
    ( C  S; U! h4 y    RowBox[{
    , z" T& G) [. J! L4 y! U# }     RowBox[{"-", 6 r, f4 D8 W. p# {
          SuperscriptBox[
    / z& ~1 u* I. t       RowBox[{"(",
    8 V8 m/ q0 T. M- c& j3 g1 e        RowBox[{* C+ s: A, |# v
             RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    / b* o* O2 r4 e( J. f     SuperscriptBox[5 E8 f4 L* S9 p8 [5 \5 v' X
          RowBox[{"(", 1 A3 C9 U: ~. h# c: x# y
           RowBox[{
    8 S8 t9 K2 `( s0 K        RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", ) n) }& f+ z+ N+ i' X. Z
         SuperscriptBox[
    / Q3 z# k5 @7 e# G9 N0 h      RowBox[{"(",
    5 @+ r/ K* U5 d% Y9 L4 q       RowBox[{2 Z2 P( T2 F5 N7 t3 F- ?
            RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    - H/ q0 G* g' A  V     SuperscriptBox[
      R4 J2 y. \' A7 r      RowBox[{"(", % C. l. w) f$ p
           RowBox[{
    4 g: Q( a& F) U+ I. Q" }        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", & N8 w( E  E6 A8 @5 A! D
         SuperscriptBox[3 A  A9 ~$ X+ X8 p6 l. j7 s
          RowBox[{"(",
    0 ~, @, g  Y2 a* B: s/ s' Y       RowBox[{3 O3 C* d4 F* `
            RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", 2 w9 `" K, I  }& P
         SuperscriptBox[
    % m8 q* w& n; B+ ]; S      RowBox[{"(",
    + y& O0 L+ ~, g: _. E       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    - x$ S( N9 J5 H* k- }     SuperscriptBox[
    ' }  o  g! K) x      RowBox[{"(",
    ! n% ~( S: ]; D; ?" l4 Y1 R       RowBox[{
    * U. r0 d+ W' r% z        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    , F: Z6 Q0 [; J% p     SuperscriptBox[
    & ^! T( w* z* P: l* [5 U      RowBox[{"(", $ E( l! S7 ?. Q( t! N  J, n# s
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", # C: ?; ?* L% B9 \  d) A/ S
         SuperscriptBox[$ f" f4 S1 H9 O
          RowBox[{"(", ; v& d+ G1 U7 \$ d' n
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ' A) L% o( Z# ^+ A/ c8 e: ~
        ")"}]}]]], "Output",+ @$ k; y* b% R0 i
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]1 D  o5 Z$ b; r# s& w% y1 d! j, {
    }, Open  ]],
    1 r' |* K" h5 ?) V) ?) Q$ }& A
    8 n' a  i' F5 [3 g7 @: @Cell[CellGroupData[{
    * J; b8 I, h9 f) {2 c1 c& L0 n1 z* d5 g; _, L. |
    Cell[BoxData[{( r0 ^9 C8 A* g$ B  E
    RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
    0 g" J! r! ?6 V RowBox[{"u14", "=",
      ], A/ d' _7 F/ ^; I( j  RowBox[{
    & x5 x' \3 c. _   RowBox[{"Exp", "[",
    . F, U3 d- Q, T. \    RowBox[{$ h8 @5 p1 u. X  f0 ^
         RowBox[{
    & v% ]  l$ k4 H+ J      RowBox[{"-", & w5 q, J- q" P! E/ u3 @* G0 Z
           RowBox[{
    6 U( U, O: @; ]5 v        RowBox[{"(", / O; Q. `; I+ \; _# g4 Q+ N" Q; y
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", , ]/ _0 D/ c3 j2 z& @
            RowBox[{"(",
    ' k. x+ x0 g9 t4 Z, ^$ P( t/ o/ j         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    % `4 y8 v( R7 R1 _6 g/ i9 e1 F& S9 j# D     "]"}], "/.", "DeltaX"}]}]}], "Input",
    9 Y# e* Q7 }1 G  u CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {5 U5 }6 h) B' s, m& |" }
      3.57796154237158*^9, 3.5779615663176217`*^9}}],
    ( P# V4 h; ~/ U  b: T/ N+ l7 S4 S) y2 M
    Cell[BoxData[
    3 K# f  y7 c6 p9 {4 Z RowBox[{"{", ( e$ h+ {, J9 [. |; Q: x0 ~# [
      RowBox[{
    2 U; ?$ L$ w2 b" R* k  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", & B$ q, d( z$ M* Q
       "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    4 g* @+ r7 y- J2 Z7 U  "}"}]], "Output",
    / n" A, z: `" s+ X- V' X/ S CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],$ t6 F9 V! H- {, t

    ) u4 |9 O; @& y) V5 i  B7 |Cell[BoxData[
    7 G3 j' b; F8 r; u SuperscriptBox["\[ExponentialE]", * D9 S; }7 R( u7 W; U# ?
      RowBox[{"3.141592653589793`", " ", ; @/ ~' m$ H, r% F' D
       RowBox[{"(", ) G9 @) R$ P& e- m: w
        RowBox[{
    & a3 K  J4 J" Q  B4 m4 L( n7 u, N     RowBox[{"-", 8 m( B2 r7 R$ k6 l/ w4 b
          SuperscriptBox[. u: L  b- T0 Z, a( Y  h
           RowBox[{"(", ' [  d* j, F% i0 m4 P
            RowBox[{
    " e9 A0 A; x) X) i$ q         RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-", % j4 E- A+ x; P  A
         SuperscriptBox[
    2 Z: _# ]: F+ J$ @4 [9 B; [      RowBox[{"(",
    4 d5 b. K) w5 F1 L* _, t" N; p       RowBox[{
      Y9 L, d1 b7 Y! A7 }+ V        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
    0 f8 w2 v: K* p3 _/ f* L) {/ j     SuperscriptBox[. ^1 g; B6 q# \. k6 k6 w1 p
          RowBox[{"(",
    9 f4 I. L1 R! |- G- }0 \4 _       RowBox[{
    6 [, v! @; W! ?        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
    % Y9 V. h% v1 j8 L( ?& O     SuperscriptBox[
    . D7 b( D" c- D) `      RowBox[{"(",
    2 S# [! X, B" e; j$ Y) e       RowBox[{6 `1 f7 Z7 u8 l1 P4 g! K
            RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", . s# Y/ _# Z8 W6 c8 K+ r0 z* u/ p! P7 ?
         SuperscriptBox[
    2 m3 a$ S7 ?" }0 P2 q1 i4 ~: S      RowBox[{"(",
    & p; b9 I, X% F: o       RowBox[{6 k, H! ~5 {5 s, K9 g4 U% T, U
            RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", , `% p! w& x4 P4 \
         SuperscriptBox[
    / a: s( [* r, [) p% e3 S8 J# ^# e& X      RowBox[{"(", + i* S9 F. p/ P% r. N/ J
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    2 d4 i  A/ s3 o5 P+ x* n     SuperscriptBox[& O+ L9 m7 K4 b2 a1 }
          RowBox[{"(",
    ' s' k$ J' w* m. m( c/ ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
      C* d/ `0 ^& Y     SuperscriptBox[
    . o- |1 r% ^! S9 n, F( K      RowBox[{"(",
    ! O  Q( K: i! o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",   @: _3 v% [5 c8 l, r
         SuperscriptBox[
    & [! o- @( P2 o* L9 C      RowBox[{"(",
    : j# P! x  p+ e       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], % B  ~" y" v. ^6 r6 n) \
        ")"}]}]]], "Output",
    * T" m) r  L  x CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]( l; b* ?4 Q# W) `% Y
    }, Open  ]],
    + k( A) M& X2 h& Z" z0 ?( X; o& m7 m
    Cell[CellGroupData[{3 I+ ?+ q- t6 }" v' |2 w0 A' z
    2 L' H+ R+ F: n! c2 L5 S- b7 I
    Cell[BoxData[{& Q* b1 Y+ e* U6 h3 S
    RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]", 7 Y# H7 a9 F+ {/ B4 L
    RowBox[{"u15", "=", 3 Q. P6 l9 k) S+ A! _. D: C7 E
      RowBox[{9 ^3 Z+ t* E' h" c( N: Y4 O
       RowBox[{"Exp", "[",
    ! \3 f7 y  T) J& d" P7 `+ a% j% M    RowBox[{- }9 |! d# N/ `9 T
         RowBox[{. i: w. I* L7 i/ I8 b$ `& b
          RowBox[{"-", 9 N! w- I; O# K- B% ]3 A
           RowBox[{
    ! u% C( L. q2 v8 ?6 {3 Q; U0 h        RowBox[{"(", 9 a; m' _+ z; A" r' f2 h# ^" K
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", $ A% i/ S) \& d+ b0 a5 A% h( f6 l
            RowBox[{"(", 7 K0 T; ]2 H' v9 M, o3 y* f/ N4 @
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],5 p1 N; Z1 s3 k8 ^* a) o1 V8 N
         "]"}], "/.", "DeltaX"}]}]}], "Input",, }; Z% f* f+ L. ?2 p
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    / G+ X4 s: m: u( v/ V) l  3.57796154237158*^9, 3.57796157098203*^9}}],
    5 v( g# ^# p2 C- ]% w) R' j5 f9 x0 O; d8 ]. C% v* a. l
    Cell[BoxData[
    ! g7 |; ^: P$ l. q: t9 R RowBox[{"{",
    3 K9 v8 k% P& g  {: [: S0 T* C. S  RowBox[{' G7 X/ L1 x1 I+ c$ s
      "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", # r* n( H9 r8 N
       "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
    ; T# c; n% M- p- c" Z  "}"}]], "Output",
    + f: S1 _! c( I6 h& L CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],+ G: {. i6 h* e& Z6 l5 ^# c/ Z/ k
    ( ]5 ?5 q9 M( i9 I1 h3 I- T
    Cell[BoxData[
    " w- P; [; [0 |" I, B( i1 L SuperscriptBox["\[ExponentialE]", 3 D5 P0 h4 T7 G+ ?) |9 C. f" v
      RowBox[{"3.141592653589793`", " ", 2 P8 r/ M; u6 U7 E' [3 m+ Q2 F" b
       RowBox[{"(",
    : n& K: t2 y- f: K    RowBox[{. m: T# L5 F( [  i7 ~1 C/ T
         RowBox[{"-", ' N% g7 i( T  j- A7 C+ Y* ?' ~
          SuperscriptBox[( D" s  s! m6 b5 Q6 y* |5 z: L
           RowBox[{"(",
    ) \7 i6 ?9 c& U" S        RowBox[{
    4 e4 C7 C: x. Z( }' @: c( V; M3 ?         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 \% d' y. Y+ c7 L1 C' h- p& j
         SuperscriptBox[, O2 M: B* ^( Y6 W7 G
          RowBox[{"(", : J6 C& ?3 z1 p( c; p+ r3 E
           RowBox[{
    & L+ C* R/ S( i9 m( D        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
    3 h: h% H# V0 }$ y     SuperscriptBox[
    9 l( |  O6 P: K- n+ I      RowBox[{"(", 7 h2 ]' }/ c) v# h& f& [6 ~
           RowBox[{
    9 ^* a; G8 F) ]' r1 G( R* _# I        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
    / E) |) ?8 \* z7 }$ e0 q     SuperscriptBox[
    3 C* `0 @! d/ V      RowBox[{"(",
    ( l  I& i% A6 a7 `  v! Y       RowBox[{
    ! t# q: S& `* u2 X$ i) `        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
    1 {0 @6 p/ [5 _9 G8 d* o1 v' u     SuperscriptBox[  o6 n- u9 _3 B( A6 ]: F
          RowBox[{"(", 3 V0 g, ^* Q% x( F; K2 m
           RowBox[{
    ( i% k2 c( E" z# v        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    9 ]# d5 J# F, L) m* e/ [+ T- I     SuperscriptBox[
    : x- h( b4 b' _' ^# M; |8 K- `* m      RowBox[{"(", 7 {5 P+ r1 I1 Q, a
           RowBox[{9 A4 M- G% f3 ]3 M; J9 A
            RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    ' S, L6 K( ?- D  L. l( g     SuperscriptBox[* O- n, q/ q% a1 h. j# Z+ l! t  y
          RowBox[{"(",
      q0 l  C3 t% a) t5 ?) ?: w       RowBox[{
    + M* Q3 E) z/ n8 T$ d0 k) n8 U, s        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", ) A4 k  S6 E7 o7 ^) _3 U; w
         SuperscriptBox[4 W$ L8 k) D. S1 T1 |
          RowBox[{"(",
    ) B9 o3 G( Y* c  p       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",   v- G/ \0 e( w% d3 G3 R
         SuperscriptBox[/ I! Z1 |4 q, V% V
          RowBox[{"(", ' P2 X2 D3 u2 h' _
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 6 l& h$ N. x8 K; z1 B
        ")"}]}]]], "Output",
      v( z/ ~7 R; ]" \+ l  o CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
    . [6 p3 C1 W1 ]3 u; W}, Open  ]],0 t: S$ N- [) N6 J

    ' J* C) E& U1 R5 Z" @! NCell[BoxData[6 W1 b5 P' n- b! R" ]! _
    RowBox[{"For", "[", 9 D1 t' w; {/ H7 \/ N* Z$ `6 h! L
      RowBox[{, B8 `/ b6 I2 F! j/ `
       RowBox[{"i", "=", "1"}], ",",
    % j! }" ]! X- X% m- s   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    5 P5 [+ c* s0 F$ t/ u   RowBox[{"i", "++"}], ",",
    4 k) O4 c8 p' l1 H9 }   RowBox[{! Y0 |0 B3 u+ ?1 z9 Q* B
        RowBox[{"Ca", "[",
    " \3 p" _7 S4 H" }3 `" l     RowBox[{"[", "i", "]"}], "]"}], "=", ! V4 n+ ?5 {, j; C2 V
        RowBox[{"CM", "[",
    6 |8 p8 C7 s' W' i     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    5 b6 v$ s- ~$ G  w1 A CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
    / p% ^& Z9 e4 j4 ?1 W, j, _. D$ w: I/ E
    Cell[CellGroupData[{
    5 Z; q  \( ^! b+ G( g) r
    8 m% {9 r- h. a  BCell[BoxData[{
    , K& e# j" k8 W+ F- h9 } RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]", 2 |! X( o' T  f3 z9 C
    RowBox[{"u16", "=", : _+ k: n1 @/ e) l
      RowBox[{
    + H1 k4 t8 B$ ^# u( q1 E( L( u$ H   RowBox[{"Exp", "[",
    5 {2 l; e# [  ?- d) k' s% ?3 G    RowBox[{! a/ {: t8 @  X8 @
         RowBox[{; @8 g# R$ a0 `+ ]1 w0 L
          RowBox[{"-",
    $ }3 q: {+ G: x5 ~$ J+ `' t; q3 W2 a, C       RowBox[{
    ; L& A# T" a! D! R; R        RowBox[{"(", ! b. L; b* V* v; @! H. C
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 5 Y6 q. U. J% U$ C9 O2 M
            RowBox[{"(",
    ( T1 Y$ h' ?4 A( u  Q         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],0 x$ e, h! d7 D# _4 y  ^6 i, U
         "]"}], "/.", "DeltaX"}]}]}], "Input",2 ~0 y6 U5 e& k. ~
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    . M+ X( _8 N; }! z9 e5 a& B  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9, " v7 b9 [; B! d. }  z& I( x& A
      3.5779615751004367`*^9}}],. A8 T0 T1 w9 w$ V) f0 j
    & R% Z) a8 G* v  y) S. n7 Z' A
    Cell[BoxData[
    6 e4 K2 z* I7 J RowBox[{"{", / E- ?' Z8 V2 f* v$ G1 D
      RowBox[{# Q( p& N# ~3 P" Q6 }& r
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",   G$ ?8 J2 B! W& D9 H5 y0 x
       "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
    - r8 i/ A3 w/ r+ o# E; G  "}"}]], "Output",, p- u% `0 ?0 T, R% J. M' O
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],. l0 u: y- j. X: D3 E5 @& ?& e

    ' }, r1 u' R) b. V8 n2 }1 d; QCell[BoxData[& ~$ d: @% ^2 ~! }; b; P
    SuperscriptBox["\[ExponentialE]",
    ! b) v9 f3 k. U6 u# N  RowBox[{"3.141592653589793`", " ",
    ' v+ v# e! w9 S   RowBox[{"(",
    4 a6 A- K1 q' V4 X. u' j8 U. B    RowBox[{
    ; Y+ ~/ f1 ]! E# u) u     RowBox[{"-", ; ?, l. }0 r: X0 o- z
          SuperscriptBox[; b7 A( K$ z9 e" D8 {+ A) [
           RowBox[{"(", 9 L; f' z+ x" p( ?, l+ r
            RowBox[{7 d; H7 ?. m! D" B9 z8 ^3 O) e( K
             RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", ( U8 v1 P9 c( B/ ~& ]1 b
         SuperscriptBox[
    " d+ K, b0 P  r      RowBox[{"(", : j: K7 C. r/ a" c$ D2 S3 f
           RowBox[{
    ; V& h) u0 C! ?" ?9 U        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", / L: |, v3 c% U; C5 t0 Y9 b4 R
         SuperscriptBox[
    % T& z3 w/ c9 D/ F      RowBox[{"(", 9 \7 Y5 f' p# N% O
           RowBox[{
    + T; A+ F7 N% W+ m        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
    : m6 X( `) b8 B+ l7 W  ?) @     SuperscriptBox[
    ' v! i: k7 f8 s      RowBox[{"(", $ U1 A- R  k0 \
           RowBox[{
    8 s2 H) Y$ z. p) N6 Z; J        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
    0 q6 u4 p  q4 j% `* B8 `     SuperscriptBox[8 T& v! g4 A* d
          RowBox[{"(",
    ) E/ b/ e/ M# q5 s/ ~6 E       RowBox[{
    , {% u0 @$ {' z# Z        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
    * p" G/ H; n& |7 Z! @5 O, Q' d+ M; i     SuperscriptBox[
    & {. J+ ]1 J5 W- v8 H      RowBox[{"(", # n( P" }; p8 Q) B$ ]( D8 H
           RowBox[{
    2 N# y6 [, l, P        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
    . N0 h3 i0 G6 [- I! n- l  q     SuperscriptBox[. n4 V: o3 e2 X
          RowBox[{"(",
    ) j+ q3 }/ y3 `: z9 M5 ^       RowBox[{
    / K5 j; }0 G* G0 h( F" r/ H        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    ; d8 L% d: h' P: y" c     SuperscriptBox[
    2 j& q7 B, m' i+ k3 k2 }      RowBox[{"(", + `- J4 `, M, _% d7 n& e) H! G, A
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", $ h& Z6 i4 l7 T! ?" m
         SuperscriptBox[/ l& n( N3 `8 A) M9 l. ~6 w- u
          RowBox[{"(", 3 d- _( B7 j( x) j
           RowBox[{1 I! j9 B8 _# ]3 A3 Q6 @
            RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",: \4 J7 L/ T4 F# L+ S$ C. v
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
    6 b5 N" I: F! s7 B! E  J3 w}, Open  ]],: p7 C% A! _+ T# ]1 E' T1 Q
    1 [. `( _* |" l0 i! S
    Cell[CellGroupData[{. T. T6 V. A/ f9 U& H+ L
    3 ^2 ]6 e8 |. J4 u% D" v
    Cell[BoxData[{
    6 `# B4 d! N+ i# J" O RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", 9 A( l5 a) ?2 k5 M. z& F+ m3 ^
    RowBox[{"u17", "=",
    9 L3 l. s7 |( t) Y3 R  RowBox[{( e0 Y' _/ J# S* E' H0 a
       RowBox[{"Exp", "[",
    . F+ M: U0 Y9 n' r. O3 s* ]. w/ |    RowBox[{
    : o% ^6 z. ]* C; _6 |2 f     RowBox[{
    8 M+ T8 ]" r/ w5 x      RowBox[{"-",
    : c+ W9 [: y+ m! y8 o( S       RowBox[{
    * A2 S' k$ j% I* q  {) h; A$ g        RowBox[{"(",
    ; _6 s0 g' p, j         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", . O1 N# @& D  M1 {, t1 y( O3 c4 a" v, T
            RowBox[{"(", . l9 O9 V3 N* B0 p; O7 [6 i
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],  V( n# Y/ Q& s* c9 ?! q& O
         "]"}], "/.", "DeltaX"}]}]}], "Input",% j( t1 p1 ]: d, I
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ! Z0 A0 I9 [6 |8 k5 J1 J7 N  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, . k" s: v6 a/ r4 C. B" W
      3.577961578953644*^9}}],
    0 H6 U8 w) ^2 y6 `8 i2 o. t& n& V) _/ r8 O8 `2 d4 A5 u' z, Z
    Cell[BoxData[" {# p4 `7 N2 W8 d+ C" _  z9 _- ~
    RowBox[{"{",
    2 h4 p( _" N/ I" @1 l$ ?  RowBox[{
    * Q" }+ P# Y) ]  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", : U9 d7 i- S$ t6 `
       "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
    ' ?0 W+ e$ i- Q7 P4 B$ c  "}"}]], "Output",, U, W8 K+ n9 S1 _% X$ r/ T2 h
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],! N% k: Q  D( v- O* \

    + f4 z5 q" k, y0 Y& C: q  B2 `Cell[BoxData[) q; y. @9 t( {  y( k1 H8 x" z
    SuperscriptBox["\[ExponentialE]",
    2 e3 f, q* B9 V; o; m  N  RowBox[{"3.141592653589793`", " ",
    & K% _6 m, _1 S, P" X  T& {/ S   RowBox[{"(", / Z" W5 ]9 A* ?" D
        RowBox[{6 D" m+ c" L' Y
         RowBox[{"-", # o& ^' t  ]/ E3 z2 n3 k
          SuperscriptBox[2 I6 W& H. }- x3 n; h: a
           RowBox[{"(",
    " w4 u& s) U+ {& e) F        RowBox[{  I2 z+ d* A% b' m8 C* f0 \, ~
             RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ; \" C5 I+ A4 f0 U     SuperscriptBox[8 e  L: L! ~! n: W8 d  t
          RowBox[{"(", * q1 O/ Y, o, z1 a. k
           RowBox[{
    ( M" T, k3 r* d, F! B# O% c- m% ]2 m        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", $ ~( Q. v* f& A
         SuperscriptBox[2 c" t$ C  r& i! ?0 I" A! Y
          RowBox[{"(", - g* t. M+ V% R1 M) q
           RowBox[{3 ^' }+ ~5 g; I  _' _: G8 _
            RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", " d2 h- n  S7 |; z9 J+ z/ f. ]; N! g7 Y
         SuperscriptBox[
    8 G# U) |+ m& Z$ f  m      RowBox[{"(",
    ' E$ B: \- O2 _' Q       RowBox[{: d8 a. X8 X7 T1 h
            RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",   N. ?8 ^3 t1 c2 h/ S) g3 D
         SuperscriptBox[
    ( c* e0 N9 Y' b5 ~1 x+ b      RowBox[{"(",
    " O, P7 `6 n. j. r& R       RowBox[{
    * M) v; j' x% i8 f        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    4 \2 s; j1 q7 J$ O" s9 S     SuperscriptBox[
    8 S* Z/ F/ [. }/ [      RowBox[{"(", 6 a# N% v* i: g3 w
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ' M% }$ E1 D5 ?2 c& G
         SuperscriptBox[
    3 {/ S: Q" P+ z( N      RowBox[{"(",
    9 Y, {9 G$ E* v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 2 A& K% Y& c/ e$ Q# T
         SuperscriptBox[. ?, d! X3 S! h3 ^, O
          RowBox[{"(",
    2 ]: k. }/ M* L* N, c( P  G/ ~       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    : ?. R* T; N" y3 \: N( s: R; i+ U     SuperscriptBox[
    3 g* ^( _% A# s! B$ H# v      RowBox[{"(",
    7 g0 I$ b, _3 J* ^# I: |; B8 r       RowBox[{
    ' E1 c2 P% r5 w$ d6 R9 ^9 g        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], 1 v, B2 d" M8 t4 z- m# f
        ")"}]}]]], "Output",
    - a6 T6 m& x# ?; g8 x9 \1 H CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]# d2 ~/ i# o, E: p: \2 d
    }, Open  ]],
    $ ^* `/ x) B# |- q
      J. @$ Y/ Z4 z& \7 K* \* D" L2 p5 zCell[CellGroupData[{+ }; ^0 v, q+ O6 l, t
    & ^* }; S+ p7 d) j; i* T% L8 u
    Cell[BoxData[{
    1 W4 F  h- z# i RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", " o: B' p1 s) _* v/ j6 X) l
    RowBox[{"u18", "=", + O; c' j7 M# P% S
      RowBox[{9 R; x9 S7 Y  L! y3 N5 C3 X
       RowBox[{"Exp", "[",
    8 p0 G' ]: b, \" j8 S* k    RowBox[{/ m0 }0 G) I! V8 e
         RowBox[{
    5 e7 f( u( }+ ^9 G( B/ k( r      RowBox[{"-",
    ; [  z( j5 A) }4 Q- y7 r+ t6 M       RowBox[{. i) M) T4 }- Z4 C+ r
            RowBox[{"(", 3 H6 k7 [1 U8 A' `
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    9 @1 P* g( M! S" v        RowBox[{"(",
    * Z( R# P" Z! o% H         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    / D( @! l' \  e$ C% P; K+ X4 s     "]"}], "/.", "DeltaX"}]}]}], "Input",  _* _+ @* c/ B+ n; x
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    & v  Y0 n4 R3 \/ J. j' w( u6 g: p  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
    3 Q, V( Y9 `* j* z$ b  3.5779615828848505`*^9}}],
    $ K( N# [) [4 P: x; _
    8 u% L3 W" ^1 w5 c1 PCell[BoxData[# m" u1 g5 N3 U, D; l+ _8 w
    RowBox[{"{",
    % |( y, ?" Q7 W" A& U4 p  RowBox[{
    $ r( J! {. w- F# j* V  "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
    & {8 B# T6 Z* x: @( y   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    ) c+ Q" [9 X" I- e  "}"}]], "Output",
    # x& c5 Q" Q8 _7 V" U CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
      V6 E, `* Q3 l' ~! c7 P9 M7 N( ^  j2 }% A$ A9 v
    Cell[BoxData[: P) t6 N3 b0 n& i$ W; {7 [* u, D
    SuperscriptBox["\[ExponentialE]",
    ' q* _$ r( O, k. O  RowBox[{"3.141592653589793`", " ",
    ( }: }4 V4 n: j$ T0 Q% i# }   RowBox[{"(", ; Y; i( `6 Q1 s8 ]; _
        RowBox[{$ ~7 G" S/ M# G* j: L
         RowBox[{"-", 7 R, H& q; z8 ^! S" V9 g" [
          SuperscriptBox[
    ! I% q+ c) _3 @6 R2 d. f       RowBox[{"(",
    # R9 D4 b  f2 t( r( ^        RowBox[{
    * v( o8 c+ h5 k- p         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    # T' B: w8 b% L2 J5 S8 V$ J     SuperscriptBox[
    9 d! J  X) ^7 ?0 ~, l      RowBox[{"(",
    . v6 y' g5 K% T( A       RowBox[{
    / I# W2 e( y/ f! S+ B' I4 k        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
    9 w' O* }! T) _/ x5 {     SuperscriptBox[
    & j  C2 ?5 O3 w0 |8 U8 ], s      RowBox[{"(", ! e* l' R5 `- J# Z$ Q& c
           RowBox[{3 r& p3 Z4 p! L, k8 Q# Q2 e
            RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    % z+ j9 }5 A  f# a     SuperscriptBox[0 r/ ^; W: d$ H
          RowBox[{"(",
    $ V6 y8 c* _! m+ q  C       RowBox[{
    * F7 K; n7 D% Z/ U( d# I        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", 8 @! e3 C4 k# b7 I" v
         SuperscriptBox[
    % r$ [1 f0 P  b) Y2 p1 N$ l* B      RowBox[{"(",
    $ {0 U2 `: {8 J       RowBox[{
    ! P* N' [' S- c5 d        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", 3 W: v0 O! F/ V
         SuperscriptBox[: b8 s: F3 W3 y/ L2 ~  [
          RowBox[{"(", / @3 D7 Z3 {& `
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", + M9 W. h3 l. C  G2 ~$ _# Z
         SuperscriptBox[
    4 O/ m0 l' E8 S7 U2 p      RowBox[{"(",
    0 }/ ^% S5 ]- a$ r' n" I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    , D  k( _7 U/ E" l' K     SuperscriptBox[2 e, d6 U; o8 j! x
          RowBox[{"(",
    5 N) _6 ]0 p) L) a5 R       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ( Y- ~3 z6 b, e, j" K/ O8 G     SuperscriptBox[
    5 x% E8 R1 o# d0 u" s2 H- N' o      RowBox[{"(",
    ) u) U& V0 G/ e5 K2 k( o9 e       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    & Y7 |  L, b, j" c2 _' M    ")"}]}]]], "Output",$ m9 O& u; w% S# \$ v2 @6 R% a
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]( @$ J; y: ^7 S% M6 q0 `" ^" {/ o; y
    }, Open  ]],9 ?2 C: ^5 k9 U! e( B5 X* ~
    $ [; ]/ @+ S. P3 p! _) G
    Cell[CellGroupData[{3 d( G* T3 H3 G
    + s) A7 n1 A; z5 H
    Cell[BoxData[{2 V5 ]2 {% M8 d0 e$ {5 a" Y5 v- o
    RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
    + b$ {3 l$ z3 C- o- M RowBox[{"u19", "=", . `- T4 b0 k4 {, }. W5 d( k
      RowBox[{5 U3 s; a$ T9 X5 t3 y' k" Y1 ]
       RowBox[{"Exp", "[", , K) O6 ]0 |3 s$ S6 O$ @
        RowBox[{
    7 T' D4 _0 t5 Q0 {     RowBox[{
    - Q" F6 M0 I- q" ?/ L      RowBox[{"-",
    - S- q! M/ R) s9 ]: {       RowBox[{! A0 o5 S7 [  u" M
            RowBox[{"(", : I; l$ `1 {3 y, Y" P4 d6 _: g$ ]
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    : M8 c  J- T# |8 h5 {        RowBox[{"(", : q0 Y: ]) v  r2 V: a; w5 m, O2 J
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    " u7 b1 d( v* m     "]"}], "/.", "DeltaX"}]}]}], "Input",% q: P- D% \: _, U. e4 G. h
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {0 Y' T. W' ?9 H. i* _: z
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, - h3 y8 f0 [; m
      3.577961588890861*^9}}],( r1 ^# d/ b5 d" A

    ) \6 n! \7 e6 f+ P2 L6 YCell[BoxData[  c: L5 _8 N. [' ^  ^) w4 C
    RowBox[{"{", " j4 q% s$ W# n  [' C
      RowBox[{4 H/ g$ p4 g. }- s) F
      "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
    7 {( h0 S# m" c$ y- U   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],   Q+ b- y- L' K2 j5 K" H: d) i5 [4 B
      "}"}]], "Output",$ h/ N, u! F. F& `  B, u, x
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],* O6 d" o5 u" U

    4 V3 j% [! d1 d' t3 s3 JCell[BoxData[
    : D/ O; E8 X% C9 U6 V- S SuperscriptBox["\[ExponentialE]", ) K- d" _( ]" b9 J* q
      RowBox[{"3.141592653589793`", " ", . d. }$ \+ }. O
       RowBox[{"(", ! i' @0 h! d+ e2 }) h% h; j; K: i; R
        RowBox[{2 K: x5 o* T2 J
         RowBox[{"-",
    ( X! I) L+ @; Y/ M/ d      SuperscriptBox[
    , G: V9 I6 W& _$ }       RowBox[{"(", * X' l$ R; |1 T7 S% E! a
            RowBox[{
    9 J7 D) g  S7 H3 a7 s2 O2 V         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ! y& W  _0 T9 ~& Z2 r     SuperscriptBox[
    ' M- X. ?* s$ Q4 o( X      RowBox[{"(",
    & U+ R5 }: R. u. `7 i       RowBox[{
    0 Y: B" m" a  `        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
    7 H* R) o' W' x% X0 L4 ^     SuperscriptBox[0 y9 D1 Q* H* O, U+ I! X) J5 z
          RowBox[{"(",
    & b* p  w6 S& f/ l       RowBox[{
      D) x9 A* ?1 ^        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", : s" Y& w+ M" H7 ]. O- H' R
         SuperscriptBox[
    9 b  \3 Z9 I( i5 F      RowBox[{"(", - A: j/ [9 e7 f) l
           RowBox[{6 |0 A2 `# v. R
            RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
    % Y) ^0 q5 H5 T* e9 k     SuperscriptBox[
    : q: G9 ?# B- C3 l) v      RowBox[{"(",
    6 T6 C+ Y, s; k+ X       RowBox[{& p8 N4 `6 j( i8 t) ]# d/ U3 u
            RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", % \. W" b, `/ b. A/ ~
         SuperscriptBox[0 R2 d9 d" u3 X
          RowBox[{"(",
    3 V2 B2 J# F8 }0 i6 T: S       RowBox[{
    : }; K; w+ W. ~0 Q7 K& b        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    5 _! \+ E- F8 n( F     SuperscriptBox[
    # R8 g4 Q/ g  e+ i/ y      RowBox[{"(",
    ! H( N5 [0 V' i: P" W; ]/ c       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ' A3 V2 H& R9 g7 e
         SuperscriptBox[& `( ]4 X: V3 p% Z
          RowBox[{"(", 0 Y* v& q- S& r3 S
           RowBox[{
    7 c' Y4 C# z8 m5 }5 G        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", 1 B6 O) W" }3 ~- J# W4 }
         SuperscriptBox[2 |) f: E+ s+ t( F9 t  b- B
          RowBox[{"(",   r( z- E4 u2 Y4 ]% [; f3 K
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 4 h$ X( A3 y* \' s
        ")"}]}]]], "Output",2 W1 u' @( Z9 o. A$ A3 O9 k; M% c
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
    7 V. r) p( T' P: H( b}, Open  ]],
    : O9 D/ f2 Y3 Y7 ]7 B) j. b, W0 V
    + k6 @% [8 `) N5 L0 J5 LCell[CellGroupData[{
    : u4 U1 I- x( F$ s9 m& G3 \' e8 J% y7 C! ^) U( u; d' s' f  y- G
    Cell[BoxData[{3 A+ l  S3 t" J0 a
    RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", 7 c# D6 I/ m; R5 V( h6 g; I  N
    RowBox[{"u20", "=", , l% y3 [# g0 ]& b: Q
      RowBox[{8 u1 e8 [6 ]' ^% ~: ]2 j
       RowBox[{"Exp", "[", 8 l' n; H+ J* S1 Y
        RowBox[{
    . s, `6 @  P, f% R- ~, F: C     RowBox[{* j* v7 o2 E, K, E, }
          RowBox[{"-", 7 i  |+ c4 [+ W+ j" y  U
           RowBox[{- ], e3 s7 P: O5 {
            RowBox[{"(", + F4 S$ q+ ?. G
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    9 V8 S7 R6 A4 e" R# {7 {7 F        RowBox[{"(",   Y& ?/ S' ?- r3 @
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ; P+ \0 A1 ^( m3 i8 B8 T6 \. Z! H     "]"}], "/.", "DeltaX"}]}]}], "Input",
    5 s  g( E% N* u, c* |, I CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ' l" Z0 |/ a( B) P0 W7 u; |" S  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9, + a& l( R" l7 T' J# {( Q0 O  L
      3.57796159382047*^9}}],9 P8 @3 Q6 V* C1 }8 f7 f
    : }1 D0 P" O& }" J7 N, J; |
    Cell[BoxData[( t( x& j" z; V6 x7 I* j2 a
    RowBox[{"{", . d, F9 x# w# m: n
      RowBox[{
    + p" ]4 [/ k7 j5 q& g% Z  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", " p& S  Y# R( _1 y3 x" ?
       "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
    : a7 s; u( Y+ R  "}"}]], "Output",) \" g! j( _1 N
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],2 p, T; @2 J  x  M$ D. {3 G' U7 o

    1 `' u+ Q' @! t" s7 Z! @, V$ m- `Cell[BoxData[7 }* u# o- f6 K# l
    SuperscriptBox["\[ExponentialE]", ) I! r5 j1 \0 g8 D7 w1 C' B! R3 }% ?
      RowBox[{"3.141592653589793`", " ",
    ! ]( B8 p7 u2 b2 ~4 B1 T   RowBox[{"(", ' M# y6 A9 q' W( l& L/ T9 v
        RowBox[{: @# `2 f+ ]+ P; S2 I! U# G
         RowBox[{"-", 9 R8 P& p* b* |" ?
          SuperscriptBox[
    + f7 g$ H: p  E* \2 p: X* T       RowBox[{"(",
    & {0 R1 y$ n+ L6 S, ~        RowBox[{" O/ ~" S5 e8 @. k: I' a
             RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ' c0 x! r0 N# g5 G     SuperscriptBox[; M, {4 G3 \/ v9 \% _
          RowBox[{"(",
    - v3 r2 ]' H3 K7 ^       RowBox[{4 z0 `& v5 F, M
            RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", ! m, ?5 m1 x! v! J( m* H0 |# Q4 f! n
         SuperscriptBox[
    , f+ y! [9 O2 L6 u      RowBox[{"(", 5 R2 S9 |/ h  @- h( g
           RowBox[{
    . }5 X9 [7 X% R% O6 X" V        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    + V1 l8 ~& K' a$ t     SuperscriptBox[, J2 }7 |! W$ k, o
          RowBox[{"(", + F7 C1 x- N* d
           RowBox[{4 g8 k1 A1 ^/ g" k- c
            RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
    + A7 ]: X5 u! r. w! y- z     SuperscriptBox[
    - H" m- t7 u  m4 }1 f      RowBox[{"(",
    * @- _* e  J3 `3 ^2 a       RowBox[{8 |1 W" G) f  e, o  h# ]! _+ z
            RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
    ( W$ r+ L, P  M: ^( b     SuperscriptBox[+ w5 W& U, j, A. S2 o
          RowBox[{"(",
    ! ?* z: s8 \, {5 F0 k       RowBox[{' [. A3 P: ~3 e! o
            RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", 7 t) L* l' B0 I" s# ^
         SuperscriptBox[
    ) \( {/ ~: }, t3 J" w# z# {      RowBox[{"(",
    + o/ L* H4 U  n. b. h       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ; {& m- q3 [) P7 s% W7 E# I
         SuperscriptBox[
    7 S% D9 j( D$ _# m" `8 p      RowBox[{"(",
    ! f& B9 s9 G2 ^# U: I( Z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
      @+ J$ X! M) G2 p( O  N! R4 ~     SuperscriptBox[  R& o- X" Z6 y
          RowBox[{"(", 4 J- K, r, p( F. t( ~$ M
           RowBox[{
    5 |3 _. e$ F* i1 C2 a* R6 c& k        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ! C4 V7 @# x2 B; v/ N
        ")"}]}]]], "Output",8 f2 H8 a) Z3 J% W
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]
    6 a- F% G& G9 }/ Z6 M" r}, Open  ]],
      @; n1 }3 h5 G7 f: A& @5 r1 \
    3 ?0 m, f6 B$ E& \Cell[CellGroupData[{
    ; z5 g# Y0 {6 f: g# b) }3 {4 k% b6 d3 i
    Cell[BoxData[{! t1 d3 v; n7 w) e% b) N/ I  U
    RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
    " q0 l; {, }: j  V* X" ~# J3 \ RowBox[{"u21", "=",
    5 }* J. x3 |8 F4 {: Q, t$ T% e  RowBox[{
    / _; q/ u& v* w  T6 n! K+ c   RowBox[{"Exp", "[",
    & H8 I; f; E5 K# h& q4 R    RowBox[{
    . k& d& R+ r8 i- T" {% L     RowBox[{' \; Q% A9 y* B1 h9 H0 m& {$ T
          RowBox[{"-", , |- l* S4 c; F1 u, i
           RowBox[{+ X3 W/ q6 p  _1 p7 l4 h: Z
            RowBox[{"(", 7 D, R! k6 T" k( I9 e' m
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", + O* H( ^( I2 R4 k, r  w
            RowBox[{"(", 7 Q4 b  l- _% U1 e- J
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],! {2 N3 @5 i% a% h$ U5 Y7 E
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    5 o4 t# {; I8 k8 V CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {# j3 ]* O8 p2 W0 T1 w( }
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9, 7 d% N& ^/ `3 v6 y( C; {
      3.5779615991556787`*^9}}],
    / P" {: S! K2 U) u
    3 t  I6 d5 l* VCell[BoxData[
    & i  y9 A( d$ q- p0 }2 q RowBox[{"{",
    , w& m: }& T5 l  RowBox[{
    1 s  D" Y0 [; _! A) X" {+ ~  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",", 4 e) A% V# F5 D4 _
       "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}], : g0 d$ i  T- Z
      "}"}]], "Output",
    & M" k) h2 h; [+ K; ]8 Q  q CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
    , u+ t$ B  p7 L1 E5 [, L' i# s
    7 |$ D3 h' I/ U; g2 v# h% {7 jCell[BoxData[
      r& S  a" d" _2 e- T SuperscriptBox["\[ExponentialE]",
    + D6 w& }/ B4 ?, T* V) V  RowBox[{"3.141592653589793`", " ",
    , q0 A+ a% G; S9 e4 N   RowBox[{"(",
    1 u  ~% M. Q" J, h    RowBox[{
    4 x/ @3 c# W( D     RowBox[{"-",
    ; u: ?: a" ]' L. F) _      SuperscriptBox[; V  ?  S) T1 n2 ]; U
           RowBox[{"(",
    ! V7 }1 a; j: o0 T2 C        RowBox[{0 p- f- g* [* ?
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    : F7 Q4 M* r% q$ T2 d     SuperscriptBox[  B, l, n& E% v9 G5 o
          RowBox[{"(",
    * Y3 U, R" f  w0 q. }' A       RowBox[{
    : _2 h  r5 ^7 b        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
    % {( h$ j( o3 P- h     SuperscriptBox[
    : m4 D6 u* }2 o' V3 g      RowBox[{"(",
    7 a9 p" Z; w3 U/ j/ a  v& C       RowBox[{
    ! w! o# k1 o+ w# N+ Q& r        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", ( s9 _1 ]1 [1 ~8 b- Y
         SuperscriptBox[; E. ^: `; f- h2 ?, D
          RowBox[{"(",
    2 Y1 b* B1 Q. J/ }$ G9 P       RowBox[{
    + |" h: {. [& m; L& q; I! }- y+ @        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", 6 G' `# d$ Y5 z0 N+ V- d2 n$ A
         SuperscriptBox[3 _2 w7 O! b/ V/ u
          RowBox[{"(", : w9 Y# k3 Q6 Y% h' u! F
           RowBox[{1 X! w2 r6 @6 O( }4 Q# ^
            RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", & A9 b9 X4 X5 E# z* a
         SuperscriptBox[) F0 \/ ~7 C5 m& t- O4 u
          RowBox[{"(", 6 K$ J0 [4 c( C8 j, @) F/ q' j/ O
           RowBox[{
    3 Q$ z) H/ S( L: y        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", . L2 X0 g8 N; q% y- O
         SuperscriptBox[
      V0 r( B7 B! m. O) H      RowBox[{"(",
    , |' o' I+ d: [; F       RowBox[{* D) A) U, l) K& p
            RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", 6 I! s" ?2 y( Z9 `! Y1 j
         SuperscriptBox[
    0 e# @% x! X2 Y! R0 a3 _0 ?8 X7 F      RowBox[{"(",
    1 S4 ~" z( v- a- `4 t% H7 i7 m       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    . G; u+ j- n, p. A4 P" n/ e     SuperscriptBox[7 J: h8 _9 m- T1 N' L. T7 a
          RowBox[{"(",
    , y5 u$ Z7 o+ \7 Z. c- ~9 `       RowBox[{
    ; ~& V1 _$ A1 z8 u        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], % m" B0 [/ \0 V- T
        ")"}]}]]], "Output",
    5 n, h' e4 J8 A: H& R CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]5 u% f0 q) x* p& d
    }, Open  ]],
    0 f$ J1 a! y# L. @" \) I6 x1 ^2 b3 O, o+ ]$ q. V$ |
    Cell[BoxData["\:62df\:5408wi"], "Input",
    : Y/ d# ?- s( I1 F, ?; p! e' o. P CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],6 d- c1 H  [7 o1 [. J

    . R  R8 M- u, w. |' f" f6 O: D5 w* iCell[CellGroupData[{; w* T7 Y; T6 ?- D* ^& l

      \9 a7 A( g' P0 A( O! P6 J! y) \Cell[BoxData[
    : Y% I7 a8 c& u8 L% n! G  y RowBox[{"y1a", "=", , [3 H0 B$ b! d1 _8 d: V
      RowBox[{"Table", "[",
    " Y6 B8 C" T! w3 A4 x   RowBox[{"x", ",", ( z  _4 D$ l6 B0 H; J& R8 ~6 |
        RowBox[{"{", ; \% q' J. q/ D1 Q( D' U4 s' t
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    1 i( h( D* J4 l& f CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {& ^- ~9 {! o' `: T& y
      3.5779226649375*^9, 3.5779226810625*^9}}],. q: t, d& a* u$ h

    % G  ~6 ^$ I; _5 u9 b( L* GCell[BoxData[
    % x1 B0 }" ?6 x RowBox[{"{", " J  B+ i0 r8 Z# `9 Y' t$ u/ `
      RowBox[{
    5 _4 Z0 z) s  w: {  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ) I* ]% L6 Z9 Y: J( R) Z- f
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    9 y% H1 _7 L* {2 ]    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", % m% C7 h  }# z0 \/ w1 _8 q+ Z( c3 p
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    4 W- s' x: [; v: Q- v) c+ i( z" Z   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    " b0 [  ^5 [: W. \# ^   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
      E# `, K* c. C   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    1 R2 O  s0 h7 L( X1 Y6 _" J   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    : m# b; ]" U8 q* ~, T   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], ; P/ H0 L5 p  A
      "}"}]], "Output",- w+ l3 n1 P# [1 c6 O: h
    CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
    : y* p9 n8 h, T# s; }  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]* i1 K. F$ X2 `1 N4 W% b" o: Q& D
    }, Open  ]],& @' |$ E% {( c! U1 s+ W5 }

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

    3 Z- X5 `( o& s+ qCell[BoxData[
    ) [' l: `# b, Y, O) C3 L4 c RowBox[{"y1", "=",
    : I/ p% @; T$ f0 Z. S( S  RowBox[{"w1a", ".", 2 \; ~# I6 d; K( r) N$ {
       RowBox[{"{", ' v9 w' U/ l* o4 t) j
        RowBox[{5 R2 z- Q. K# F2 y5 W# S
        "u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7", : K6 O6 A. N  H$ S7 n$ B
         ",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13", " J7 a3 U) {& C( F8 m- O
         ",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19", ' ]9 I0 k- f0 U, D# h! f5 F" L
         ",", "u20", ",", "u21"}], "}"}]}]}]], "Input",: N( n/ `7 m6 B2 d$ Y
    CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {7 n& i0 ~$ N- J" p# g
      3.577924897078125*^9, 3.57792491596875*^9}, {3.577962095642144*^9, ! g4 e/ J( Z1 D, Y! P3 L1 u- `1 r) k: E
      3.5779621231449924`*^9}}],8 B$ c; L) p  I% J' W8 J( [: b

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

    6 |6 I# Q1 o0 T' ^- ZCell[BoxData[
    $ {0 s3 P2 U& [7 B/ L$ a, M8 r RowBox[{"{",
    9 y# q. d0 R" u  _  RowBox[{
    : O% r( B+ s: O6 h9 ^% i# @0 W8 ]  "0.43193416525930517`", ",", "0.4501634853493982`", ",",
    ' O0 K( q# V* p+ U/ x* U   "0.33336034768525247`", ",", "0.4418609896858925`", ",", 9 u1 A7 l, {, @) b
       "0.41030378932283024`", ",", "0.516814798191575`", ",", & P* p- e) L1 m4 w  m
       "0.4476631213729994`", ",", "0.3016552978696669`", ",", 5 _& n3 r, F5 |2 N9 [1 Z( u$ I
       "0.378122167437847`", ",", "0.020339844919720733`", ",", 3 K# c2 \6 i# s! H- v0 Q- c
       "0.018745375782087376`", ",", "0.2919925992695025`", ",",
    : p& @4 T* w6 E! k0 V$ ]& Z5 X  [1 s   "0.2649067959681263`", ",", "0.16343444284525593`", ",",
    # t' a7 J* m5 a' b' j& \  E/ k   "0.4182466778551563`", ",", "0.27347752211364934`", ",", ' q. V& u4 _8 n
       "0.38554057386385654`", ",", "0.35253160453718047`", ",", , u- l0 Z- X$ O8 P
       "0.2054745841100774`", ",", "0.45504377112716676`", ",",
    & p2 k" _4 W4 p) P# L   "0.1598805094678612`", ",", "0.18662509982279485`", ",",
    / s1 @; c( m$ `+ V3 z   "0.10684797493248213`", ",", "0.013349212673286828`", ",", # U& F0 [3 \* I" ?6 }$ Y: n6 }- J
       "0.08215836003004297`", ",", "0.2979041599362813`", ",", * c9 p9 n& Z+ \2 ~
       "0.05995976512343641`", ",", "0.3884793499104568`", ",", 5 s2 h  e. D4 @/ R
       "0.5361889337034293`"}], "}"}]], "Output",
    * u3 X) z* G" y5 l CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
    * j7 V" \3 g* Q1 ~& o  3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9, * I. z: g2 n; L" Q: F
      3.5779621416934247`*^9, 3.578012355546875*^9}]. W! T$ m# U( W5 u9 y
    }, Open  ]],
    * }* {$ W& t9 O
    , z* g# @. }4 M7 Y/ R! ICell[CellGroupData[{4 a3 p; S- v+ u& K( |
    4 o1 Y( {% E4 ~- c' ^
    Cell[BoxData[' e" A& Z1 T& ]! \
    RowBox[{"y1fit", "=", , g+ a2 C4 [# g3 Q: M% d7 B( N
      RowBox[{"{",
    1 B, O/ z  v; U1 b0 l+ z9 y+ G   RowBox[{9 w  s& C$ ]7 }2 c! _
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", . O& \6 [1 b5 h& ^2 o3 }+ p3 j
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # B) n* K, d4 `, p1 v' V7 e" Q: ~1 s
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
      ?# [5 o* @& j1 B/ q+ o    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", ! ^  @& O! B, J
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", 1 W" ~1 ]5 \- A; H5 M
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", " w, L" X5 D  l1 {
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    / l0 l' b0 n# `5 U5 \$ E    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", # [. v' b$ h4 S$ m5 M
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    6 [3 _" c' \. J5 V1 o" E# u    "0.4319341652593058", ",", "0.4319341652593058`", ",", # W( y' ~# x( j( X* |* h
        "0.45016348534939865`", ",", "0.3333603476852527`", ",", ; ^5 }. T% o' h; V( J) P. H
        "0.44186098968589294`", ",", "0.41030378932283074`", ",",
    4 {* I; _. c/ \  m- O; V. I. B    "0.5168147981915754`", ",", "0.4476631213729997`", ",", " V  `1 V0 ]" A. P
        "0.30165529786966755`", ",", "0.3781221674378473`", ",", # m9 N$ @1 ?. H
        "0.020339844919720775`", ",", "0.018745375782087393`", ",", 9 k$ ^2 H, \% K) [3 \+ g
        "0.2919925992695026`", ",", "0.26490679596812655`", ",",
    ) Y* @% b: P. ]+ W. o3 |/ p. |: t    "0.16343444284525593`", ",", "0.4182466778551567`", ",", 1 S% N/ P1 H; a7 {0 m8 y, x
        "0.27347752211364945`", ",", "0.385540573863857`", ",",
    9 C. P4 s2 C9 ?: ^1 p* x/ ?    "0.3525316045371807`", ",", "0.20547458411007796`", ",",
    " l' W& g' A8 f% r# N, f' Q6 r    "0.4550437711271672`", ",", "0.1598805094678611`", ",",
    * o0 ]/ U; Z- v" Z    "0.18662509982279502`", ",", "0.10684797493248224`", ",",
    4 o! ]1 c! T$ l* k5 T0 j- g: B    "0.013349212673286806`", ",", "0.08215836003004302`", ",", 6 `7 Z  P9 @2 \3 P3 M' y( a
        "0.2979041599362817`", ",", "0.05995976512343637`", ",",
    ) v8 k* r7 A) X6 H' Z    "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",* |$ n/ W$ h/ |( X& }0 X
    CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {# Y( k, X% O- y- u7 r* m; ?
      3.5779621548286476`*^9, 3.5779621618642597`*^9}}],
    & |$ T! y2 z& S$ C
    % I9 `& t- G- Z# UCell[BoxData[+ [$ A7 ^) P0 a" N
    RowBox[{"{", : |$ f6 P0 H/ G
      RowBox[{: L' i6 w! W- W. N
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", & B8 |; \& e: b! c- ?& G
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    2 }3 x( b! C9 I! A2 b    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    4 {2 g9 i8 S  g! p/ e" K* l. B   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    * G9 y' l  Y5 D* L# V3 r   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", # j! w' t6 y6 H& a
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    + O+ t* x4 r; J+ ]   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    0 f# B: T8 ?% s$ G% }$ E6 v" f   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    ) F  ?- {; A: J& @0 g- i2 D1 Q' L   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    ) p3 m& v4 {# ]3 W: l# a   "0.4319341652593058`", ",", "0.4319341652593058`", ",",
    ; ?3 F" D- n) f; J. r7 y   "0.45016348534939865`", ",", "0.3333603476852527`", ",",
    6 o/ P+ _+ R( e2 C4 @& X& {   "0.44186098968589294`", ",", "0.41030378932283074`", ",",
    ( F# Y* r8 M4 N7 A7 S% P   "0.5168147981915754`", ",", "0.4476631213729997`", ",",
    2 X7 L- k- L& ?. o, j   "0.30165529786966755`", ",", "0.3781221674378473`", ",", 2 `5 c+ c! S; y
       "0.020339844919720775`", ",", "0.018745375782087393`", ",", & C' l1 x% A8 I) [
       "0.2919925992695026`", ",", "0.26490679596812655`", ",", ( {/ {' j: v, l) d( e9 [5 d
       "0.16343444284525593`", ",", "0.4182466778551567`", ",", & k4 {, _+ d5 I5 F. J$ {
       "0.27347752211364945`", ",", "0.385540573863857`", ",",
    8 E8 e  N) W! @% x) e  @+ @5 w7 V1 L4 p   "0.3525316045371807`", ",", "0.20547458411007796`", ",", / [6 z# L$ I& N- f
       "0.4550437711271672`", ",", "0.1598805094678611`", ",", % ?2 b6 d1 i, [$ y
       "0.18662509982279502`", ",", "0.10684797493248224`", ",",
    ; G( q" _3 m5 C$ P   "0.013349212673286806`", ",", "0.08215836003004302`", ",",
    ; m( ?/ V3 `+ t7 C6 q% d   "0.2979041599362817`", ",", "0.05995976512343637`", ",", 2 S. \* o- Y4 b- g9 g, |5 c! [8 V
       "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",$ [+ x( A- s# k& @8 i+ b' l
    CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9, 6 S$ l# I3 Z( Z& l! x) G
      3.5780123569375*^9}]
    + u' {5 i3 u" q- G% t& z}, Open  ]],
    , U- R2 U; @( a( o1 C) m- y* ~& E+ Y* T  \" C; l$ d
    Cell[CellGroupData[{" a6 T( @. x% _5 I( z

    9 B2 `6 H9 S, `8 \Cell[BoxData[" i% @2 P$ p& q# D% n( h/ [: J
    RowBox[{"y10", "=",
    4 r1 H, Y. z0 ]9 b  RowBox[{"Table", "[",
    6 j4 S* @7 R  m   RowBox[{"x", ",",
    9 r" b6 H: ^) j5 C2 M    RowBox[{"{",
    / r2 Q/ w& ^* s5 x% x5 O     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
    1 ?! L9 C( A' N  o3 J" H; v3 V CellChangeTimes->{3.5779253628125*^9}],
    4 R! C& M4 @" F9 U; `4 R
    / \: k  |* E4 E6 N1 W9 wCell[BoxData[' I% X5 M6 ]. |
    RowBox[{"{",
    , Z# m. ~; B: {4 M  RowBox[{" z. @, n, \/ P& S
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 2 ~5 W8 [* I2 y6 }8 Q1 W
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    9 \+ `! n2 P( N* p, W& p" v1 l    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    ( d/ n/ [4 Z9 F8 P6 S   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    , v4 b% R9 w: T   ",", "29"}], "}"}]], "Output",
    " I- G3 z% x; s- k. C CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9,
    7 u8 N6 a/ u/ C: f- a* S  3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]
    * K- s& |: B" [# t}, Open  ]],3 E8 _7 n0 a" d  ?1 O
    ! K+ D6 C( B  q
    Cell[BoxData[% Z% T9 h2 A) f& o! N/ q4 T( ~; `0 o
    RowBox[{"For", "[",
    $ v$ u% Y# G' J  }4 l) }+ a; D& ^  RowBox[{4 r! Q' z! H: G% h2 B
       RowBox[{"i", "=", "61"}], ",",
    ' H# l4 |8 R( X' \   RowBox[{"i", "\[LessEqual]", "89"}], ",", 0 Q/ `7 M  h# A1 Y" V
       RowBox[{"i", "++"}], ",",
    + A1 ^# U( O. x' O6 a9 M   RowBox[{" E. j% i$ Z. v7 t
        RowBox[{"y10", "[",
    # O0 s; F: _9 }* M: z7 M) E5 \     RowBox[{"[", & R- U7 G( {- m2 [) B8 S! E( {
          RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",   g9 V# b+ v( |# j1 M1 O
        RowBox[{"Data", "[", / v% f- V, y' f, h/ R* I9 X
         RowBox[{"[", ) ~( E) d3 X1 A7 h& S
          RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",2 r$ u/ M- [& R# @9 }0 t
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {) C5 O! g2 x0 G- c, X
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    + P: {0 q1 u/ ~   3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, 7 A; f  ?5 R. W1 d* u
       3.577958922549148*^9}],
    ) p' P  l/ m. q0 N) G* q
    / f/ L9 n. g' t7 ~: x$ g: CCell[CellGroupData[{; l, n% _# [" f( x0 H

    / k( _0 _6 ]0 v# SCell[BoxData["y10"], "Input",
    , K. e% z1 p  G8 Z: @* c( Q CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
    ( V3 E+ t2 S4 A8 y/ ^   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],
    5 F5 w: M4 g; u: W
    % s& J' Q6 u% z; P: H9 u# v* P) j0 b5 tCell[BoxData[
    & g8 d/ P5 Q( S" s* ~1 A RowBox[{"{",
    4 L8 q4 w/ k# J; J+ ]  RowBox[{
    ; ^' Y6 I! R8 S# J9 f6 d  F  "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",",
    + L& I* c( C- _! q' v5 l0 g   "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",",
    , Y0 C0 d& N4 S   "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",", ' p/ F$ G+ j7 d9 F  V; c
       "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", - J. r8 P. ?* }
       "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", / e0 e4 u6 F2 A" E- v2 x
       "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
    + Z. k/ w- v% l2 `: v. i5 N9 U   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",", + D; X- y' u/ K$ L" A, ]# F6 P
       "0.694935`"}], "}"}]], "Output",5 R7 F6 g/ t' w1 J( d& @& e# C
    CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
    , E2 c% U9 ?; w& I2 C6 s% I  3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9, $ @" o7 {. D9 d4 `9 X( j- Q
      3.5779621736734805`*^9, 3.57801236071875*^9}]
    : z" }$ M4 k' ?9 H! D% O1 R6 i}, Open  ]],3 j/ U9 w: C% A$ y: p; H: G

    , ^8 q: [& C+ Z; w9 K  I  BCell[CellGroupData[{
    . M; j1 {( Y8 L, ]* ?" A/ {5 \2 l7 [+ W; J! w) x1 l$ y; D; Z4 o
    Cell[BoxData[
    + \! Y6 Y% G1 V" M RowBox[{"y10", "=", ; y$ b. C$ g! e5 u# P- K# M
      RowBox[{"{", / H8 j9 y5 }0 l5 s
       RowBox[{. q  f, x" m& @* A6 ]
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : {7 N: F6 _: @9 K8 Z8 ^1 Y! y    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! U0 @2 W; }7 K! ~- R  N# V    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", $ h+ B8 b* C5 B  Y% A+ V. u/ r
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    9 R% D8 ]! U. C) v) \; }2 D" {    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", " \  r$ m9 }7 X
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", & X8 s  s0 Z/ ^( ^2 ^% y2 S/ Y' j
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    * A2 i! T& ^" _, H" }    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    " ]( \. A# h1 S$ F7 M. F3 l( w! t    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 4 {+ Q( y0 |& N! [4 u; L
        "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",",
    8 ^& |, `- ]* |8 C8 `    "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",",
    . G4 I9 Q2 S  x1 N2 a0 W/ J3 E) w+ ~    "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",",
    8 U: Y+ ~9 B' L5 J" h; @; d    "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",",
    / ?! A, t4 ~! j, C* n    "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",", 9 n0 C+ D% f9 y2 `3 @4 G% d
        "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",",
    : N0 c6 Z, t. e4 S) y( ^    "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", : b% K& \) l7 v7 \4 C5 Y; M8 }
        "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",7 B# a& z, N- g2 t: D
    CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],9 u, ^2 `) \/ F) N
    # Q0 N+ e. f* z0 u/ k
    Cell[BoxData[
    ' A( _" U+ \- {* ?9 r RowBox[{"{",
    - b+ }( d7 p- Q& C% }9 Y7 m# u  RowBox[{
    ! {; D, N. A' D# u" j7 A) S: Y  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + j+ x; y) B- c' p% q' ]   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    " q! q4 W% G+ P( [2 r4 ~; k    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    ; w  ]" n* Y0 q8 K   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    7 ^. Q8 x% L: k+ v: s   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    4 V# E# L3 ^% H1 W8 b1 A2 l   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 1 d" t9 J; y! y& u- A8 U
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
      h" q% f+ g% T- S0 M% X$ }  Y) [3 z   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    * L8 r* q8 S' c& e1 }   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`",
    1 `- m1 H$ |! t, @% J) k   ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`",
    " b! h4 K3 }$ h   ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`",
    6 L* w" F, S" {" S   ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
    ( C' ?/ i& t. S+ l% a  k9 Z    "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", ( k. Y' X" Q. K) F0 h& W( o
       "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
    ' q/ o5 {( s# v   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
    8 V* r/ m( d0 E   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
    % m+ V: E5 ?6 M+ h   "0.694935`"}], "}"}]], "Output",
    5 x, Y- E, Y! }, ~ CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9,
    3 _. J. l# `; j' r( k  3.578012361734375*^9}]
    1 l2 W7 x* N) b! L% N- O}, Open  ]],9 q  r1 K+ x7 Q

    ) t5 x7 V% f  G3 O. T0 UCell[CellGroupData[{
    4 U- i- R5 \# H" |
    0 Y$ N6 ~& J6 a/ A, pCell[BoxData[
    1 C6 @6 K$ M3 I RowBox[{"p1a", "=", . t6 {+ L- S8 ^
      RowBox[{"ListPlot", "[", 5 a0 r, S9 U. }" H2 m; L! Y
       RowBox[{"y1fit", ",", , s/ p7 Y) d  m0 w3 F
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 3 P) q* z4 a, o5 ?
        RowBox[{"PlotStyle", "\[Rule]", : ~; p- t+ K6 e; u3 r# c
         RowBox[{"{", ) S# p1 v6 S) y6 r
          RowBox[{"RGBColor", "[", 2 k2 ~5 |3 t8 c  E
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", - Y2 r4 E0 W$ U, u) j( T
        RowBox[{"PlotRange", "\[Rule]",
    ! }* V1 o& c7 l# \- r; W3 x     RowBox[{"{",
    8 z+ g- D& }0 T% J# ^      RowBox[{
    2 D% @5 a$ ~6 c2 B5 X7 @       RowBox[{"{", ' l4 c, B: Q2 ]4 j$ G5 l
            RowBox[{"61", ",", "89"}], "}"}], ",", 3 W7 z* N% y2 C7 {5 h
           RowBox[{"{", 3 a3 S4 o$ s2 Q' I6 R7 L
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", - b( B- Y: s3 f4 L: A% E' y
        RowBox[{"AxesOrigin", "\[Rule]",
    - V7 f, m( C6 \% }& e. b& m     RowBox[{"{", 3 B3 I- g( r( R2 R+ Q! T
          RowBox[{"61", ",", "0"}], "}"}]}], ",",
    $ z. S" @5 B+ e. W: T% i0 C' R, {    RowBox[{"Frame", "\[Rule]", "True"}], ",", - J9 h2 \1 B5 y4 {
        RowBox[{"FrameLabel", "\[Rule]",
    0 e9 t' C6 ^) p- ]7 \3 l% W8 @$ |% J6 m     RowBox[{"{",
    5 X. Q- }: U$ M! d      RowBox[{0 |' [) b. `' {  N
          "\"\<\:7089\:6b21\>\"", ",",
    ( {; }+ ]% g- M! Y0 x       "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    9 {: e- b% R, D\:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",
    ( ]& O  v7 E, ]) G8 ] CellChangeTimes->{
    ( b) C; z& U1 X  L/ O2 x, D  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {  _. I! e: f6 O$ p; r2 K; ^! ]
       3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9,
    4 N8 @; ?3 l( R! @   3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {: V! S: N8 w: [1 j4 F
       3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],4 @, P! ~' V4 L% q
    5 o# n3 F2 m( m6 j4 l
    Cell[BoxData[
    " K0 V. S3 `( D- f. c" k# S GraphicsBox[{{}, {},
    9 f3 m. M. H! @4 I( x   {RGBColor[0, 0, 0], LineBox[CompressedData["
    * r* t8 F% g: R* g- B1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
    # }- J/ Q9 J' G, X. y' N8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq3 G& O6 b! y6 v6 t$ j
    D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
    : K4 @. B5 T$ O2 t+ `0 `1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
    1 l( @( e0 d5 O0 O5 H5 d: T; T' z2 IC1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN0 o1 |2 r( Y( N1 `: ]  U0 t/ q# d
    a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
    5 W( D$ c7 T, y5 pyqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
    . b" r( G- T/ y- A4 UwrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59: R6 N2 k1 _# u2 i. Y) z& M7 Z
    Y6nGQ3sAieueIw==
    6 c1 N. C4 f' d6 h9 ^     "]]}},
    2 |$ ]7 j6 ~. q) ^4 ^, ]7 E$ Q  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    : \0 t/ C; J8 e' w$ [8 J  Axes->True,% f6 r" t. e" L6 B
      AxesOrigin->{61, 0}," s/ ^$ J2 Q5 O; v; @
      Frame->True,7 M- q. E* {: M
      FrameLabel->{
    $ r+ m7 l6 N* e. h4 U  u    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    2 p4 q1 A6 G% S    FormBox[1 X+ c% |8 y4 _, O- @# Y6 m0 h
        "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    3 _: I8 T5 c& ~5 H0 C\:ff09\"", TraditionalForm]},
    3 E( w5 L' G+ ~  n  PlotRange->{{61, 89}, {0, 1}},9 d. y1 P& h0 j4 G, ]( W* F
      PlotRangeClipping->True,
    2 t7 g+ K( X4 _4 D' n0 t  PlotRangePadding->{Automatic, Automatic}]], "Output",
    5 |1 w5 ?& Q# h CellChangeTimes->{
    1 v/ m% L5 r  |8 a- E  3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9, & @! z% a: n9 u* k0 N
       3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9,
    + Z* t" a" q0 B) C   3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9},
    4 r) y2 A- D; u5 \$ W6 |# O7 E   3.577962187510705*^9, 3.578012396921875*^9}]  W! f' u2 X3 }/ i9 k' s, ~
    }, Open  ]],4 H0 B, F/ }: D$ e; }5 o# Y

    0 ]' ?, W# a) w2 eCell[CellGroupData[{- N% Q" x$ K: q9 r

    ( u# z( J. a( |Cell[BoxData[& h$ _  [  R* H! t( o5 U
    RowBox[{"p1b", "=", & ?+ J6 N( h6 Z2 k& W$ Q" `2 k
      RowBox[{"ListPlot", "[", 0 I3 O* M. I: s- D5 F
       RowBox[{"y10", ",",
    9 o: |( P1 l0 @* f3 l% M    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", ) ?. Q' S9 s. b
        RowBox[{"PlotStyle", "\[Rule]",
    $ N7 j; K( S' Q# x, W& ~3 t# b     RowBox[{"{", & G# y* S% ?, v
          RowBox[{
    9 p$ e! b4 M. i  b- G5 U       RowBox[{"RGBColor", "[",
    $ M- @6 ]+ S0 E        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}], " m0 |; P* C3 f
        ",", ( U1 i: H3 S0 W0 H) r9 E
        RowBox[{"PlotRange", "\[Rule]", 8 d. D( H& M# ^  y. p
         RowBox[{"{",
    ( M$ A; \) R' U. D; y" b      RowBox[{. F5 v* |$ ^2 S8 j& ^+ t4 r) o% `
           RowBox[{"{",
    $ A7 u4 j0 L2 O5 O& G+ y        RowBox[{"61", ",", "89"}], "}"}], ",",
    4 y% f3 _7 r9 I0 ~       RowBox[{"{", $ O9 k0 Q  g6 G6 \/ G, i. N. N0 o
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    - [% y$ ^  W: B4 y* G    RowBox[{"AxesOrigin", "\[Rule]", ( g+ a2 D9 @' D  P$ E: r
         RowBox[{"{", 2 h+ @5 p+ d+ D; f. S
          RowBox[{"61", ",", "0"}], "}"}]}], ",", % u: W* H8 ?- V$ A
        RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    # i7 {. ~1 o3 s3 _- x; p CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9,
    ; u, S1 O6 o3 s% G) C1 R9 C3 A$ I  3.5779597764166365`*^9, 3.578012409265625*^9}],
    % C7 o% [  L2 \+ Z$ Y
    " Y1 }3 F( _  X5 r2 ZCell[BoxData[
    : o9 w# r) b% _$ t6 \% } GraphicsBox[{{}, {},
    " ?$ H" W/ v4 w; d% `- F* O   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    ) f* x, E* B$ r1 e1 |) E  E# s1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ" C$ V% V! V" w4 k" b, |5 g5 p
    /B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
    : ^3 M& _, E6 x2 \7 S2 d7 }GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
    # N8 o# x5 j* _( I- h+ b& aGFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy6 e" Q* z1 \  F; g2 j$ u
    7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
    7 {; G3 `& m! a( T3 n' uQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
    ) p+ W+ V* H  WH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
    : J% n" b$ B' xrQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T6 o5 A  f: M2 v7 j  @$ x8 W4 N% s
    vA==
    ' Q0 V5 N9 h! q- c% X' a     "]]}},
    ( V7 |  F2 H' M3 |1 Y$ z) a  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    ) U+ h4 J3 r* u# o$ m8 c: l7 p- A  Axes->True,: D  n: h2 U; s
      AxesOrigin->{61, 0},
    $ T7 l" A4 u, s. ^/ z& Z  Frame->True,
    4 _, [% x& @3 B: i7 m4 L  PlotRange->{{61, 89}, {0, 1}},; P* F. X4 b) E# r$ a! [4 P
      PlotRangeClipping->True,
    5 k5 z( }& u: V/ |  PlotRangePadding->{Automatic, Automatic}]], "Output",  V" j9 F) h' Q8 P
    CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, 5 `( {+ q1 {, @9 O# }
      3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9, + ^4 s9 {8 {$ t; K  i% O
      3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]" C$ l1 R- D% N) ?7 j' M7 {
    }, Open  ]],# e; z/ C0 v) S+ M

    # K2 {- {" z) Q0 ]" \5 ZCell[CellGroupData[{% U8 @4 j7 E' @* b: a

    ; Z/ Q/ v1 E) Q( N* {7 sCell[BoxData[1 z: Y# P& t6 j( L8 b
    RowBox[{"Show", "[", , C% W; b' f4 U! Z# P
      RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],
    ( k# u6 J. P2 y( g+ |: {# [' S! P. R) {' u3 s) a. s
    Cell[BoxData[
    % p  }7 |9 B1 L2 U GraphicsBox[{{{}, {}, + f8 h/ Z3 i1 j& w. C1 y' U
        {RGBColor[0, 0, 0], LineBox[CompressedData["* i0 s! `' \* a" U+ D4 F: X- K; u5 O
    1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
    " D+ a5 p' `$ r6 r8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
    , v( F# o' ^7 i( l: Z. V7 t9 TD3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B# z5 I& r$ ]$ h- Q( k4 x
    1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
      d) P) [- i# b6 B. z4 SC1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
    ( G4 {4 b- G  [: ~$ K3 m  Ta2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff: s# B" n+ ^3 O2 B6 d# O0 Z
    yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
    9 w6 S! }8 g% OwrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX590 G) ]2 l4 X" L% r4 f% v# J! e: @. p
    Y6nGQ3sAieueIw==
    ( `; x, Q7 D4 S! G      "]]}}, {{}, {},
    " ]' @9 f! d" W9 _# i    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["7 a8 P# ^  \- X2 _" `9 [' n- L
    1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ( H, E5 t7 R* X3 C5 b7 _% `
    /B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy0 y8 ?$ y( n$ R0 W
    GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy: {9 f; k  K  ]) K2 n7 q9 Q. b
    GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
    5 J& i( E/ ^: @, p1 y5 _7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
    / w  O& w  y2 w+ ?3 DQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri! z5 k- n0 F4 i2 t1 i# g
    H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
    ; n! n1 o& D& k7 q; |8 f; qrQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
    5 ]% _) i! p( C2 R1 b# J2 W* YvA==7 {4 h9 r2 \- B0 e
          "]]}}},& v/ |0 x" W9 p9 k
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    / Z* Q( E3 g9 A# U! s  ^9 C# s  Axes->True,& w2 Z7 S! ?# q! I4 `
      AxesOrigin->{61, 0},9 n' Y* m$ ?; E/ ~. A
      Frame->True,! S. y* ^& ^8 N* ]3 g" r
      FrameLabel->{
    ; {% Z0 {- m2 Y- @# o/ H    FormBox["\"\:7089\:6b21\"", TraditionalForm], ; }' y# h3 C* c0 |3 _1 U! y
        FormBox[: H" m2 l0 y1 r
        "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\5 O. Z' f* m+ W
    \:ff09\"", TraditionalForm]},
    $ T8 ?0 b& p# s' G# |; Y3 P2 p  PlotRange->{{61, 89}, {0, 1}},
    , U0 u. |* n) _9 c6 c  PlotRangeClipping->True,
    ' o9 P. f  E: R+ k) V* B' R  PlotRangePadding->{Automatic, Automatic}]], "Output",3 b% R+ Q- Q9 Q2 w, K* O0 T
    CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]
      X: L9 d+ b/ \}, Open  ]],: N4 [% z2 M8 H8 K  @

    8 o( l8 b" t" L) b% X5 f+ w1 rCell[BoxData["\:62df\:5408wi1"], "Input",
    4 e3 v& c) B, f  Y CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}, / g& K. X& L2 k$ @  u& T) ?$ Q
       3.577959662349238*^9}],3 U; n  S5 N; J; I1 U

    , C! j9 P# A" s$ s0 `) `1 a3 sCell[CellGroupData[{
    * r/ y. _5 V* F' I: M% e7 {
    $ N( c- ~9 D+ Q- Y7 K, GCell[BoxData[- p/ [: |5 n3 I$ c' m% l
    RowBox[{"y1b", "=",
    , [6 ^9 X! q" j6 H  RowBox[{"Table", "[", 7 q0 M8 W$ _7 j
       RowBox[{"x", ",",
    4 h; W% _. @1 B% d. T& T7 S4 `    RowBox[{"{",
    5 S# T7 p) @( p) j/ j2 ?     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    * m$ O( o/ i" C( B1 g CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    4 t! _; q' d/ r. z1 [   3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],+ y# O/ I7 c) m* }5 r- Y

    2 C( N# M$ B; g: H8 i6 HCell[BoxData[
    7 M+ U$ L% n+ D' F: v  p8 [ RowBox[{"{",
    3 O7 q+ [/ @& j9 K  RowBox[{; j& Y) b8 V+ S
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    - x/ e+ `* J( ]& L& p3 i! f, D   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    & Z8 [3 \" z7 o, Y    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    : B& e2 K; f: M1 a# ]: y   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
      V$ x9 C4 N; O7 V8 m   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    ) l& i+ b+ w1 ]  O' ]9 P   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    / V( T* \4 I, D   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    5 X, d$ j  {. t- x   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", % G" w3 r) E2 v" f0 ~& X+ a( i
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
    7 ]! `; e4 G% b  "}"}]], "Output",& R/ \3 O& N% J$ n
    CellChangeTimes->{
    3 _3 N6 a$ k7 U; G/ T  3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9},
    , Z5 c% p9 r0 g1 [   3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9, , z# t  V4 s) L. g6 q3 N1 E+ e! M
       3.578012438953125*^9}]- ~( G+ c) _0 {3 f* F
    }, Open  ]],
    % J6 E9 i) Y# ?2 E3 F/ d
    - h; ^* Z( e  C0 V  {8 FCell[CellGroupData[{1 J* A. R2 ]# I

    7 S1 @% o' S2 q$ [Cell[BoxData[9 s/ A/ r2 ~9 @2 W* G0 X
    RowBox[{"Data", "[",
    2 I2 [6 }" q: w  RowBox[{"[", 3 q+ x, }# ?: c1 g
       RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",
    ) o# d3 w$ R# u2 z3 {# G9 | CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    ' @+ [7 a7 m, \7 q6 y   3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {  g) M, e+ @: f8 c; I  V: T  v- s
       3.577959014090108*^9, 3.577959016040111*^9}}],( C2 m% [" F, b1 `9 S5 Y0 z" n

    ! w3 w/ R% k" ]6 y1 i1 NCell[BoxData["0.492958`"], "Output",, A, i; j0 n+ Z. x3 O/ v
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, + g- X+ \# f' S. n8 v3 k+ m
       3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9, " y6 F# n6 u8 j, i
       3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]
    - Z& e9 t5 D) ~% v& A1 D5 g8 S}, Open  ]],
      t. b$ _1 u* s+ J0 ~$ E# b* Z+ Q
    Cell[BoxData[5 ?( I5 B$ i& Q, H- `' k! q
    RowBox[{"For", "[",
    ) C4 F3 X1 L0 p0 N8 J' s. `  RowBox[{+ ^& L2 e2 X; M+ C; V0 W6 n
       RowBox[{"i", "=", "1"}], ",",
    , g* `; C, y: t   RowBox[{"i", "\[LessEqual]", "60"}], ",", . ~/ R7 @2 @) t" x* r* [2 {
       RowBox[{"i", "++"}], ",",
    0 Q9 ^* i. n! t. }$ T   RowBox[{
    , r4 O, Y' O7 |/ K! y% z    RowBox[{"y1b", "[",
    + T2 @6 O. l+ A  N' e2 e     RowBox[{"[", "i", "]"}], "]"}], "=", ( i5 q$ K6 w, r( X( z5 u+ g4 [8 Z" q" H
        RowBox[{"Data", "[", ( W; g% N4 s0 u- o. q
         RowBox[{"[", $ W3 b& @7 e- _& U6 i
          RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
    - K, b% w6 @. h: \# h% o' U! d CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {/ q; L) Q: w& ~5 ^/ D, m5 G* L
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, 8 r7 }" d7 y% S
       3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {
    " G& a9 T3 {& r. _7 g+ {! T# R   3.57795902089172*^9, 3.5779590227793226`*^9}}],( c5 w: ^/ S- ?+ q) A) C; W

    $ s. k1 [% }6 A" }2 `" yCell[CellGroupData[{0 |0 w" j+ V" R) j, S2 {

    , O0 Y  w) @2 oCell[BoxData["y1b"], "Input",
    / C- ]; k# P/ A+ L0 k+ V CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9},
    2 O9 k" {0 \6 U" a( {% Q   3.577958484172784*^9}],
    9 G/ e0 l9 _8 e% T* K' M6 s" u4 n# U! C0 R; M2 U
    Cell[BoxData[
    4 l1 Y. S! I# {  v RowBox[{"{", 0 l8 I0 Y4 Q" V8 i
      RowBox[{1 t2 ~5 H# u3 w# m  T
      "0.873239`", ",", "0.464789`", ",", "0.492958`", ",", "0.774648`", ",",
    $ [9 x, I. H9 s, b  a  W   "0.380282`", ",", "0.647887`", ",", "0.56338`", ",", "0.295775`", ",", : V9 B% [7 P, L. G- D) u5 Z) u0 ]
       "0.338028`", ",", "0.211268`", ",", "0.690141`", ",", "0.43662`", ",",
    0 o, f3 l8 c3 W. t0 a# n   "0.`", ",", "0.267606`", ",", "0.211268`", ",", "0.408451`", ",", : G+ _/ z( |/ G" o) ]; R/ K
       "0.478873`", ",", "0.380282`", ",", "0.211268`", ",", "0.43662`", ",",
    1 L) s: ^; [6 a! H  x9 m   "0.478873`", ",", "0.295775`", ",", "0.028169`", ",", "0.43662`", ",",
    ; J9 s  S3 |6 y0 R" h6 O   "0.394366`", ",", "0.295775`", ",", "0.830986`", ",", "0.169014`", ",",
    % F  C' l6 ^$ ^/ V* o: }   "0.366197`", ",", "0.309859`", ",", "0.352113`", ",", "0.309859`", ",",
    7 I* r8 n/ V! \+ O  s" }/ D- H' u. [   "0.774648`", ",", "0.422535`", ",", "0.887324`", ",", "0.887324`", ",",
    - P1 z* C7 F* z$ x* I   "0.859155`", ",", "0.239437`", ",", "0.295775`", ",", "0.746479`", ",",
    9 F( b+ J4 ~5 r! l$ z* e9 E   "1.`", ",", "0.549296`", ",", "0.366197`", ",", "0.549296`", ",",
    0 h0 v" p4 ~  S6 V! Q  O0 O" N   "0.577465`", ",", "0.690141`", ",", "0.71831`", ",", "0.521127`", ",", 8 \+ Y) n4 y+ q* O* U* g$ g* y
       "0.929577`", ",", "0.521127`", ",", "0.338028`", ",", "0.380282`", ",",
    . ~4 V1 y0 x9 Q2 L7 w2 Y   "0.676056`", ",", "0.591549`", ",", "0.464789`", ",", "0.295775`", ",",   l" S* ]6 `7 y8 g$ `- q( Q; d6 \6 S
       "0.380282`", ",", "0.211268`", ",", "0.253521`", ",", "0.28169`"}],
    7 L" _$ Q5 |  t, E7 F  "}"}]], "Output",3 Y2 ]- Y7 R# [( K
    CellChangeTimes->{3.57792293246875*^9, 3.5779582549771843`*^9, - u3 h# }7 J+ }+ J) h
      3.577958485420786*^9, 3.577959026460929*^9, 3.5779622288195767`*^9, 3 Z7 ~* {' V. h1 d7 S% _
      3.57801244275*^9}]9 K" k: p( X/ g% u* M2 |/ V
    }, Open  ]],; K4 a8 L9 b/ E% s
    : \5 T& q! J# L" T
    Cell[CellGroupData[{
    $ p) `, a+ _2 t- \# P
    ; c1 D, U3 P8 x' SCell[BoxData[( f* a! [* ^( q: X" L  A7 V7 M) N9 [/ B" F
    RowBox[{"m60n21", "=", 9 k, n  }7 t! c+ g6 L) D! ~8 O) U
      RowBox[{"Table", "[", 1 v- Z% x+ J" A' X2 r
       RowBox[{% t; s/ r/ z1 e; r8 a8 E- x
        RowBox[{"Table", "[",
    % o6 B* V( U0 d4 @% S$ o% E9 O     RowBox[{"y", ",",   \1 x# g9 ^3 T/ h. \1 B
          RowBox[{"{",
    1 E: m0 }+ q2 Y8 A       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
    $ u# u2 S. [0 @! C    RowBox[{"{", 8 n3 }# Q. z1 W% D6 k. L9 z
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    . b4 {: ]0 ?' j( ~7 u CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
    + B6 t5 [6 I5 R% X$ U# t/ q! |5 A( c  3.577924052828125*^9, 3.577924101671875*^9}, {3.577962237961193*^9,
    5 Y7 K6 ]+ M3 G" V! p* x- l  3.577962240082796*^9}}],; j1 {) A1 I+ K  u
    7 M1 O$ z, x. a1 N# H3 M# g  @' M1 ^& t
    Cell[BoxData[  k2 P# X6 K0 L1 n, v4 R- {
    RowBox[{"{",
    & l0 P+ H" H. L4 U' S; n  RowBox[{
    , i3 u  ~+ [& U1 V   RowBox[{"{",
    6 N* H1 ^3 z2 ?5 z' P/ N- W$ S    RowBox[{
    " l. N  F6 H( ^* @$ S    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 t( O+ ]: R8 Q" X      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 @2 E/ Q$ s7 x7 J     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 S0 g& x6 w: Y8 U  K
         "}"}], ",", ; m+ f0 [: E! e- ?9 a3 G
       RowBox[{"{", 3 l3 q% T6 t* A; ?0 x( {, x7 O
        RowBox[{/ c+ u) i+ S0 r, |' u( R
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 a' H2 S4 {4 i; j' b+ ]& _
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    $ b$ H& {0 ^+ b, a  @& ]" {& ]& ~     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 O2 T- _. y% m5 U
         "}"}], ",",
    1 z- Z. z9 d# N1 L/ ?/ u; Y   RowBox[{"{",
    4 i& a" j' j( s, O% i3 Q    RowBox[{
    2 K$ B% d9 U+ w( y0 V: U& |4 T' T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    $ \! g( F+ f" O9 C  i9 a* x      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ( K3 z1 W; e+ z1 c     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 \( L' t3 T: z* U$ }
         "}"}], ",",
    * k/ j( V3 K7 o4 l1 b   RowBox[{"{",
    ( n3 n( Q' K* ?4 b7 C) [    RowBox[{
    / C/ d3 d8 \2 w! M- ]3 x0 D( c    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / V7 z7 f- B$ V' |4 s8 I& y      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 B- @+ \$ f: n( g/ s  R
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    4 T. `7 A3 W5 H6 a     "}"}], ",", 6 S0 {. Y9 L: H" Y- w: r" |* K; p
       RowBox[{"{", 3 T: l6 Y! w7 o+ Q* P  S
        RowBox[{
    ! m% l- r- u7 f1 P    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    5 U- s6 f* W# B5 X. ^      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    : ]2 T- s8 A/ I- E0 ^$ N; M( D     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      ]) A( }. A6 g) l% x) V+ G     "}"}], ",",
    7 ]4 k& N6 ]. G& m; [   RowBox[{"{", ) M$ n5 b% ?% g
        RowBox[{1 g. X$ L6 P9 s) x) N& q
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, F: m1 H4 z7 j
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + l4 j8 F; T- x- B* R# h
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 {  m) w# l/ F     "}"}], ",",
    4 T% i/ X9 Y0 T1 Y0 k+ F   RowBox[{"{", 9 A, s8 e. c5 F
        RowBox[{
    ( M; |4 g; c2 x9 A  y' b/ T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    3 F3 x! n7 E- l# X$ k      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) C: s! |. n2 D; Y/ I# p
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 _# I+ s' W9 B! z8 [; k     "}"}], ",",
    & p/ K* p  }, q9 V+ ]   RowBox[{"{",
    / o0 \1 p  H/ ~" S    RowBox[{, }0 B/ l& j) i/ X: F
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 F5 ~* V8 h( X0 Y3 {! s      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) Y# M! E4 ]- Y3 x% ^$ u4 u. q
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    7 U0 q( {! J+ w2 [; |5 k: n( t' N( P     "}"}], ",",
    8 g- S( Y5 n5 t7 H$ r( V   RowBox[{"{", 3 d- `5 W- \- |6 W
        RowBox[{" \2 Y- H' ]7 j% `
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* \6 ]& a& E9 ?# ]7 \& Z
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 x- R9 Z3 r1 f' A# n     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) T' V8 A: W) B% i7 v
         "}"}], ",",
    ) H& s: w8 h6 _9 |- F5 `) K   RowBox[{"{", * E/ H9 J/ R% l. k
        RowBox[{
    ( {- x4 x% l0 E- W# G% h& `    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 c+ A+ d! y4 @) v- f
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : w, [) i/ l9 K: a  a, P6 w. T% h' Y
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 z7 r, w0 C- \# \! h3 ]: A2 Z     "}"}], ",", - U) r5 \' P9 v1 ^+ H. S6 i1 ~
       RowBox[{"{", " B6 t( R  l: ]6 f+ J
        RowBox[{
    ! C/ E* {% R! `2 [  H- J) ^' v    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ z) `' O. Q. l, R0 H
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 M$ v8 h2 U: I" ~" f1 G3 z3 F     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    % B7 Y! n& d5 b/ k$ E: N1 |     "}"}], ",",
    3 y( _  \# [4 j8 h7 _7 f   RowBox[{"{",
    + r* z: ~' y0 N$ {    RowBox[{
      d$ h2 Z5 B! y3 Z7 H2 p    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ C9 _1 b- k9 E9 ?; e3 a4 z# K' X
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! M+ r7 w; H- X$ C     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 l5 ]. H4 g5 M: X4 z) H! W     "}"}], ",",
    9 c3 ~8 U; |/ ~$ L8 O7 i   RowBox[{"{",
    " l4 }2 U0 Q) F1 }    RowBox[{
    / F7 h) b8 {- f1 r: k% n6 D  P    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 N5 q9 t/ v, |; U0 m* S      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 w  z4 P1 s. d5 h. K4 y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# t' |1 E* e; G9 a
         "}"}], ",",
    + G7 Q' ?0 c+ |7 }" b   RowBox[{"{",
    ' m5 H% ?/ O! Q8 n    RowBox[{- H2 k2 Q0 F5 O$ n" T# V  a0 g
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! J# `3 w9 [' v      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    : @9 D5 x5 |. e' ]     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 E+ r. r) Z' q, @3 Z
         "}"}], ",",
    + _8 |2 H) c$ y# m- v   RowBox[{"{",
    5 p8 B3 H$ c! _" D    RowBox[{# x4 m# t+ t  I5 K* Z( D
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 U, W! t* c- Q
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : I+ ~- U; V4 w
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ' d4 w6 U! o4 Y- q1 X% }# W3 P1 a7 S  v     "}"}], ",",
    ( d, }+ d- U1 z" h) J1 k; T   RowBox[{"{", - z7 ?: u! W8 }+ G+ ]! z
        RowBox[{
    # j7 m7 h$ [' ]$ ^$ `    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ `: M; U& ]# Y2 X1 S; D
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; X* H- n/ E: n. h
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' n9 l5 }, L7 r2 z" R/ A7 R
         "}"}], ",",
    " Q5 _& G- T7 ]( O. N   RowBox[{"{",
    0 _) l3 l4 }. H& p. v3 I    RowBox[{2 N! l) [( R/ }
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    - }% c9 F4 u, ^      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    . @  V1 [2 s; i; p. f+ z7 H2 B     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 l- _  j% H/ q6 f' Z
         "}"}], ",",
    * O1 n! u6 p8 s, b$ v! d6 s   RowBox[{"{",
    , W8 ?7 x9 R% A0 }) X  q$ W' x    RowBox[{( P7 f; Z+ [9 g
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 Y2 t- p8 f2 H/ U1 J, t
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! B$ s! M) p+ H/ x' U9 C     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," O" V. a# N* a# \% m
         "}"}], ",", 7 b* r% q, f. B
       RowBox[{"{",
    / P4 I3 N0 m; n4 O- u    RowBox[{
    $ P: ?5 v6 m% p8 j    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 b0 m8 J" Q) j      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; E% M5 L9 Q. P  l1 g3 c" h$ g     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& H! U: i2 P0 F
         "}"}], ",", 9 j. q2 n4 |7 N* g; D
       RowBox[{"{", 1 q. |/ V5 V6 M$ q
        RowBox[{6 b) c7 d( I0 r6 e7 i3 i$ l
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," [$ u4 h, S" C3 r
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 W6 e' _# G% G, g! e5 t     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 `2 z6 x% T7 J$ H9 w* L
         "}"}], ",", 6 o* W8 z# X% P8 v* I  D
       RowBox[{"{", # _, w) p% M% I; e) L+ E. ]. m7 w
        RowBox[{
    ) X: l/ F0 [+ K0 y8 r3 t. G' _    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 i5 g: B6 x6 u" H4 J+ B3 h/ n      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & m6 }, h6 u: H- Z) r  b& {+ G
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    " f' T4 H* [: y7 u9 ]6 {6 |7 u' |5 F     "}"}], ",",
    4 ~  N" N2 m4 |   RowBox[{"{", 3 t1 V# _3 U) q* x% T
        RowBox[{  b6 f6 \# [2 M$ S
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! S6 @! t9 J5 ~: z$ p4 v
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    # L% L( Z5 }3 Z/ k, C2 b& o- M     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ( J0 _4 y  e6 n+ Q- s8 Q     "}"}], ",",
    ) M- i" C+ f8 O: |   RowBox[{"{",
    ; r7 B! o; Y! g. g! A. h" B; ?: Z    RowBox[{6 x; s. `6 H% J' c
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    - n9 k5 i& @9 n; u5 [" b      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      _, J2 ]# F3 ^- F: y& R     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    4 c/ b6 _6 J% P) K     "}"}], ",",
    * F4 Q+ W/ b+ [0 [/ d- i' d   RowBox[{"{",
    6 m/ e4 W' S, q8 [: _+ D    RowBox[{" W' X% D2 j+ l! ?
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, u$ t2 n1 b5 @* i2 C% o3 ^, K
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * m0 a" T2 x5 _: D# l4 M     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% b: }0 i4 t; T
         "}"}], ",", ! m& R5 z2 O  U5 f8 o! v) L# c
       RowBox[{"{",
    ( o9 g# _6 u' r7 F    RowBox[{$ P, Z! ]8 N$ c& o& ]$ H8 i
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & m( \, Y8 @6 i: c      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    : k' C3 w* J. i, e. }     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 e/ \* N7 Q1 ~, I
         "}"}], ",", 8 F' F1 I3 Q/ ?( `$ h
       RowBox[{"{",
    3 B% H/ C2 n, l) }& N    RowBox[{* k$ h2 _6 _5 k: I3 l, z) n' D7 X
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & J5 {4 z' v3 N# b8 y* B5 j9 y      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) ]. I, R, ]- M3 |
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! I% }! S$ T' K4 h' k4 Y8 H
         "}"}], ",",
    4 F- \# o( d3 C* J3 q0 s3 C   RowBox[{"{", 6 k4 t( r# g& r" F" U$ y
        RowBox[{$ a! D! W2 }: w/ u
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) l1 O+ ]* {" s! W. k
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & k# A2 @. [& A. [- N9 ~     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 n+ S, M2 E5 |% _4 ?# q
         "}"}], ",",
    # w8 F# S6 D8 H   RowBox[{"{", & m6 o, n9 N6 B: @/ x
        RowBox[{
    + N; x2 |. ~; r; g8 l* ]2 r* c7 {: l    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # X3 m  d& R# v6 D0 z$ T3 e      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 v6 k- [/ f8 h2 x6 F     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ' ^- E! \4 l( A8 p4 D% Y     "}"}], ",",
    3 z2 k% U3 T# M9 P: O4 \- t   RowBox[{"{",
    9 Z, j2 x2 Z9 n8 R: g    RowBox[{
    6 d8 g) \3 L1 k8 i    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      G1 Q2 k# v( U2 w% a5 y4 g      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 r& Z& n$ T4 G1 M; i. [     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      W  R7 p8 \' t0 Q) P! ?( L     "}"}], ",",
    8 [7 ]* A9 {2 h* g& Q   RowBox[{"{", ( k; x! a4 m% _) h$ r
        RowBox[{
    , F; Q# D" Q/ q    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 s) f  T" _. E: \& I
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 R( M9 B$ G6 e1 x2 A2 v0 W
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ! ~: C% Z1 z+ U6 \! ]& I( ^$ U     "}"}], ",", $ r$ b- i2 t! E8 C2 v$ B2 W
       RowBox[{"{", 9 o: B( g, L4 G' U7 R
        RowBox[{0 U" C4 \% ?  o: k  i
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    " T; u$ {( t1 {* C7 V+ r5 b      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . ^; c5 Q; q! j/ P* ?9 ^: i
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- l9 @0 Y) b2 ^5 J
         "}"}], ",",
    7 ~. Z  B; H/ W   RowBox[{"{",
    * Q/ I1 [5 n4 e( Q0 t    RowBox[{( D; v3 B4 H! f! l
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; m4 r# h5 W% b$ W5 W. I
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * j) _. k; v" @- M( K% q! y
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    * i% ^/ s7 S1 O; l' [" u1 W     "}"}], ",",   U7 \! {7 ^8 Y* A
       RowBox[{"{", 0 }/ k/ \! C. G! z- K
        RowBox[{
    ( b8 c; O3 e6 s    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 U1 k9 ?3 k; C0 Y; N  l
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! i  I, q, ]0 p. L+ G. L
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      s) K6 k/ F' |1 U     "}"}], ",", , d3 n: O* J/ y! t$ j8 Z% U) R
       RowBox[{"{", 3 E  S* O0 Y0 o$ K
        RowBox[{
    : @# E3 {6 i: u$ K, P    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ |% X  j' v8 A7 r: \) ]$ L5 h
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 D) s2 u) `# H
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      Q# M) y! c3 c! M     "}"}], ",",
    , x  F( X% s$ ]! v, \; b8 R" a7 L   RowBox[{"{",
    0 e) E4 _. F" t* ^1 X6 z    RowBox[{
    % {  ]; M: `3 o! Q' X. U# e% M) A    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 S' _; u4 N) t* C
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    - r- E! Z! y& C9 e     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: L0 Z9 N- c  V+ E
         "}"}], ",",
    & k4 ~9 Q2 W+ s9 D9 z   RowBox[{"{", " m4 O2 k/ A; y
        RowBox[{
    , W" I2 U) p0 g8 A( i: g7 E) S    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# m3 Q! h$ W9 l) G" n
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 M6 z1 T3 B6 |# w' s
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 H! }5 `( D  i& z: w
         "}"}], ",",   ]: D9 q9 i0 d" Q5 l* h& ]
       RowBox[{"{",
    & t0 f6 @3 q7 f9 a; f    RowBox[{
    + M+ r- k7 H0 ^' w    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% ~+ c/ I* h* `6 M5 X1 T
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 E4 Y" \* ]1 G& g) c/ y
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ Y6 \  C; }* r0 Z1 ~  u4 ^
         "}"}], ",",
    5 ]5 K, a# ?6 O/ S   RowBox[{"{", + R( Q+ X2 d2 U" }
        RowBox[{
    9 j) [, b" J, R" R8 s5 a! [, O    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    * X3 P- \3 v, P      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " I) K/ `5 T# v) U, F     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; T7 B% Q+ m2 O! k2 o/ y$ j     "}"}], ",", 5 x6 T* W# r5 f3 F7 s
       RowBox[{"{",
    ; C( d4 C. h$ D/ M( Y8 S    RowBox[{+ F% a" x0 s" k+ X2 @$ m$ [
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& E7 K3 H& ~. r+ Z/ F0 q1 z5 j
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; j) a/ y0 v0 B9 r# c8 |/ x     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; |$ p( G1 y$ K1 M* a8 l' |
         "}"}], ",",
    ) L  [5 t" h7 Y( O5 f* l- N   RowBox[{"{",
    ; i4 J2 D  i, `- |9 e    RowBox[{* L. |1 [/ u6 |  o# Y
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # l8 h4 b$ W& S! _0 S! o1 ?      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    - l1 O2 x: e% M     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' e. x, C  ^) G. g* _9 ]- u
         "}"}], ",", ( |, r' T7 c( X# M6 d
       RowBox[{"{",
    5 X+ [% }/ |5 s. m* t    RowBox[{
    : P: v* U5 R6 O- |: v! [* }: u5 _    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# R8 |8 ?3 O. d. m( r9 _
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 |+ j6 v' a; s) E2 r7 ~* f
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 s6 a* }& S% i9 l' Y' M     "}"}], ",", + A- {/ s# ?, V, q! l+ Y  G
       RowBox[{"{", % c$ J0 w: J# v; J* Z9 {
        RowBox[{: e1 w) o9 Z. Y: B7 C% Z- R( q
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / t5 Z# x! {) N0 Z0 n      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; \1 K: v1 C3 W( M     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( l. t$ P( V" J/ a& a
         "}"}], ",",
    # F$ v2 ^  D  [- n( ?* _! i% \   RowBox[{"{",
    ; c% I) V6 m! d1 ?& X    RowBox[{
    ( d6 t. K( }$ {    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. E7 p+ J3 s4 z0 S$ p( g
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    8 Y. V: f( U8 o3 l, h     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    4 E2 B# y2 K3 o9 q; e0 u/ q     "}"}], ",",
      q1 m* u1 D6 v6 Q, o+ H' c$ P   RowBox[{"{", * m" X. |  b6 H/ c3 D
        RowBox[{
    % F% u5 Y$ O' ^; }2 r/ I- g/ z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / P- g6 l5 \; ]      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    5 q2 g5 _+ d1 w% ]$ g     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( _+ m8 t1 P8 ?) d2 w
         "}"}], ",", ) ?4 f" B$ \' t) }1 Q! Q
       RowBox[{"{",
    ! s" D0 _7 ?( @" m" L; x) f    RowBox[{$ q4 M8 O/ P5 ~# `! f: a/ [
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , V' M+ l3 r$ g3 n8 P  ]      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % a4 z: g+ d  S8 J8 t* P0 ^) L0 ?     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 i  Q$ i5 L- o     "}"}], ",",
    . L( Q  Q" J) H% `3 V+ e   RowBox[{"{", & e% a9 w" \) d, b2 d
        RowBox[{) U# G. j2 c7 e& Z5 B
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 A/ g4 r" d; g! j; U7 `' u
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 \4 W' O3 j6 V0 B) S9 h, P
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : X" J* n+ s5 R6 E5 [( R, Z( L) \     "}"}], ",", : t% [' ~, Y) ?1 i
       RowBox[{"{",
    ' ^6 u) Q: W, ~    RowBox[{
    : t7 ?( \3 w0 d! q+ M0 i+ r    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , [  I, N# x2 J$ ]. ]# c: c      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      u# M% k0 L; G; c, {8 W, ^2 r) y2 c     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 w) ^. M. Y  i/ N5 ]/ z$ @
         "}"}], ",",
    9 O4 s# I0 k3 ^" n* v9 J   RowBox[{"{", " k& V9 B, ]8 a* ^/ w+ j
        RowBox[{
    7 Y3 K5 Y  Z( K. A2 _    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / o# R; }2 b7 ~! Y3 x      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 d0 a. K5 l% \. M# ]0 a. |
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% Z* Q; f5 M, l! P5 l1 D- M
         "}"}], ",", : f& S3 p1 Z9 l9 ?
       RowBox[{"{",
    % d" Q8 x3 F4 {' j" D    RowBox[{9 W/ x! N1 b8 z. e1 @
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / B% Y, b7 D% k- L8 z! _# c" d      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " q5 p1 u" ^4 v     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, y; s" _$ h0 l/ [  U
         "}"}], ",", , E5 ^4 ~  j1 f0 X# O+ t0 N! [7 T
       RowBox[{"{",
    . P9 C! s! A1 a    RowBox[{
    * u1 M2 \+ R. Z! r    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 }/ v/ o/ e1 W+ h  A      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ ?1 `" ?, W& M8 `! F
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    - W. @1 ]* m, E: ^+ l1 t     "}"}], ",",
    / `1 i1 ~$ a( M0 x. R   RowBox[{"{", ! P5 g3 @0 P8 M" A7 R0 u
        RowBox[{
    ! M8 r1 m( \7 @3 B( y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    - `. A. O, t- O8 p# ^# l1 ^+ V, P1 ~      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + W1 U* S8 k6 L  o  T* ?0 ]; B
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& f4 P) \/ e6 g/ A* U
         "}"}], ",", : t$ S( |1 ~% Y% R1 z
       RowBox[{"{", , _' x0 ]3 Y! \
        RowBox[{0 z9 k$ M$ P7 i  h9 n1 f4 C; ]
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 x% s9 r5 B8 `9 j% ?- N  _
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / R! z  O- E3 }3 Z* Y! q, ~
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 S3 J6 s) a) z
         "}"}], ",",   e8 K/ x# e8 ~# U4 b" P8 g6 A6 ]' H
       RowBox[{"{", + `# \  K+ u: V' N
        RowBox[{
    * g. l8 P9 e2 L) N2 L  q: W    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& j: A  T1 l9 e! g8 g1 R
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ( W# I( o( U0 L     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    - u8 o7 K% X3 S2 a0 a! J7 y& \: D3 X     "}"}], ",",
    : I. |& \+ U5 @: D% w$ o4 ?: ^   RowBox[{"{",
    5 q: w. L- k! Z2 B" \$ r  i) A    RowBox[{0 q; A( D  }8 G) \/ j6 [5 u
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ ?; Y5 ]/ ^* {) h  A8 U6 r8 \4 g% D
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * P# P8 \: {% a+ r0 |* j9 s8 n     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 m9 n" Y: E8 x1 N( V+ P
         "}"}], ",",
    ( U3 K7 x8 t$ v3 |9 I2 @   RowBox[{"{", 4 r  d6 _( H' F
        RowBox[{$ l& q1 ^, r/ n1 v! L7 v% a
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, a" g2 b( f9 \7 _6 I* I/ X. [) x
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / u8 M( g2 s  }/ f$ I
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: {  N3 {) K/ u  l$ i
         "}"}], ",",
    + v: }5 y& P# |) U+ D! R* c4 D/ q   RowBox[{"{",
    , K% _, j, J& e% N3 }* }3 a1 m    RowBox[{
    7 D- {/ N# _' L6 N    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    7 B' y* o, Q. D, L, d0 h# v      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' f3 B+ s* L4 s% `9 ^' Y6 b% n( C+ p
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    $ B% C  v# u; E# |1 J+ Z     "}"}], ",", - s2 R( J3 P& c
       RowBox[{"{",
    . S/ H6 \* U5 \; X8 x    RowBox[{
    8 g; s9 H- ~) `" Q  Z3 |- v    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 H. G) @( d' D. ^6 a
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 g% ?8 {& N( i( w9 Y5 Q: u; e9 Z, y
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    $ C# p7 \3 w+ U% d* V# V1 g8 K, @     "}"}], ",", . g. ?  G% h: e! d% t
       RowBox[{"{", % U$ i$ I& U0 g
        RowBox[{# V8 O' G) Z; l7 g2 t  x( S5 m- f5 E; B
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & |3 e# _. s  g; W) O      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 t! g* \' ~% i" N& I! ?     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ Q1 S3 n' q- w% y* Q0 p
         "}"}], ",",
    - ~: z. t7 t7 Z0 U6 T4 `* D   RowBox[{"{",
    / F2 w8 v: l5 @$ Q    RowBox[{
    : o& f; G9 [* b0 W    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( g& G8 a+ A9 I" S' X      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % H2 c( @6 _& o     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- d, F8 Y5 X& u" `. {7 _/ t) y* a! I
         "}"}], ",", ' K+ I# s; B. g1 ?- Q- [
       RowBox[{"{",
    , b; e5 S1 O1 u    RowBox[{5 V- N1 g/ ^2 A- j4 }& u7 o
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 g! d2 X. l% I, S5 q
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) `  O8 }8 S- Y' \# y* @3 n
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& T& q! e8 m) v0 p# f
         "}"}]}], "}"}]], "Output",3 F; D$ {6 m' I7 h$ s( q
    CellChangeTimes->{
    # _- {# e+ V2 F- d  3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
    , }3 o; O" }. b1 S  M   3.5779582609987946`*^9, 3.577958492393998*^9, 3.5779590297369347`*^9,
    6 H/ u3 j8 {% `7 O/ l   3.5779622422980003`*^9, 3.578012443890625*^9}]# N: T- N6 |5 @
    }, Open  ]],2 z6 T) \2 }5 s5 D

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

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

    ! }, Y" q. W2 c' B/ `' k2 rCell[CellGroupData[{/ u  L( F) }; E, ~9 t4 r' E7 D
    8 b9 ^2 d6 G& V# H! v
    Cell[BoxData[# _4 {6 P9 n  b# C& J  ]4 S; O) _( |
    RowBox[{"y2fit", "=",
    ) |: o: P  A4 t- z3 `" ^  RowBox[{"Table", "[",
    9 d4 L, W. H( V' s, b1 u  r* T   RowBox[{"x", ",", ' j4 x' P! O3 n0 t" ~+ g. Z4 _& O
        RowBox[{"{",
    3 e' w- D' r2 c8 p     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",5 y* b3 a) x6 |# K
    CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {
    + I" r4 a( X* K. G% s9 ~   3.5779252768125*^9, 3.577925277484375*^9}, 3.5779583246625056`*^9}],: E4 G- P/ @# z, ~$ c

    * T7 o6 b3 W3 x) Y0 [2 V# o0 B. ~Cell[BoxData[3 T: ^4 r+ |4 x- F) H* }
    RowBox[{"{",
    2 D9 l. F* r0 D3 W2 \  RowBox[{2 G$ c8 ?( {  \" \  ?' ~: n
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ' I3 g" m! m6 L# [  `   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",: ?. h5 S7 |. N; q
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 7 O* S; w) ^8 J3 M! A
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ) m& m# v6 W" i! n: o3 J
       ",", "29"}], "}"}]], "Output",+ b2 @7 q  d/ [- T5 I) O
    CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9, , R4 C! u' X' x
      3.5779583268153095`*^9, 3.577958508118826*^9, 3.5779590470685654`*^9,
    % x, y! A3 K& E3 Z8 K4 C  3.577962320173336*^9, 3.57801245028125*^9}]
    " k: o2 o( r8 a) x. b0 G- a% B% B}, Open  ]],7 C, M0 C6 ~" J2 B9 p
    9 z2 K: W2 U1 E
    Cell[BoxData[
    " m" B5 B8 v1 [1 P  w6 a9 r RowBox[{"For", "[", ; J" H; S, }! F9 @5 u6 {# H2 H
      RowBox[{
    9 A1 ~/ H) [: F9 @   RowBox[{"i", "=", "61"}], ",", 7 Y1 k0 \% r+ c* b
       RowBox[{"i", "\[LessEqual]", "89"}], ",", 5 A! f- Y& Z  H" ~7 n- `
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", / C) o5 [. [) |* D) m2 ]
       RowBox[{
    $ g  T* g9 x. }# r% M1 ?1 k! j    RowBox[{
    # N/ }1 I& q, g) f% z     RowBox[{"y2fit", "[", & k* a! k/ S& j* P4 E# z& B# C& o
          RowBox[{"[", 6 h8 @) U/ S/ b$ j7 d$ ~: o1 L. C4 i! K
           RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", ) O, S6 U1 t# R' P. g* r* p  _
         RowBox[{"y2", "/.",
    1 e- t7 U$ J4 C% ]      RowBox[{"{",
    9 @3 u; X: P9 H  O2 B# U3 [       RowBox[{
    4 M+ `& K9 r( q9 g        RowBox[{"x1", "->", 8 k4 i/ ?* F6 t& m* V9 c- s
             RowBox[{"Data", "[",
    6 \: n4 H$ B9 a4 j3 `5 K6 W          RowBox[{"[",
    1 X6 |! P  c( U: p6 R* C" b           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    - h8 t) K+ ^8 v        RowBox[{"x2", "->", + Q! n3 M5 c2 t# [$ X
             RowBox[{"Data", "[",
    ; w/ |2 A& G, C          RowBox[{"[", % d! |* p1 ~1 {1 h* q# G6 H
               RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", : d' E4 v# E; {" y
            RowBox[{"x3", "->", + t9 [6 L/ p* L& M
             RowBox[{"Data", "[",
    4 k6 f- O& C. s. D          RowBox[{"[", ; v3 t% |! f% z( E2 J( k
               RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", & Z$ [- Q' H7 ?. i0 u. i
            RowBox[{"x4", "->", ' P. `5 U6 o5 [* p' F
             RowBox[{"Data", "[", & s. p9 [: I2 s" l; B' U! l
              RowBox[{"[", 5 M  B: N0 Z" y, V
               RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    7 ~4 P0 i$ [- C" W# }1 n9 C        RowBox[{"x5", "->",
    9 V* @7 ^' S8 o: C& Y0 u( R         RowBox[{"Data", "[",
    : b/ e9 y# k5 e$ R9 C% `  N( |          RowBox[{"[",
    & C8 ]2 ], B( P           RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 5 j# C% g1 Y! a7 v/ X
            RowBox[{"x6", "->",
    9 \2 q1 h; `* ^         RowBox[{"Data", "[", , O: Z2 ?7 n3 t0 I
              RowBox[{"[",
    / w0 R- v+ B( a3 ?           RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 4 ?6 I5 k0 y. K. B
            RowBox[{"x7", "->",
    7 n" B# Q; Z% @' ?2 `- P0 \! F         RowBox[{"Data", "[",
    1 ^8 W2 b+ h/ _6 e  m  z          RowBox[{"[",
    7 `! x' s% h7 n$ f6 N( M, g           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", / n- R% M! f* j* Y+ h
            RowBox[{"x8", "->", ( }0 m/ Z& [$ O( j  ?/ q
             RowBox[{"Data", "[",
    ! K; D: X6 I+ B1 X# _7 V9 I! E          RowBox[{"[",
    0 \, h) K& o/ s5 i; ~0 c& P; ~           RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    : ?* W$ V4 s6 S+ h# o        RowBox[{"x9", "->",
    3 C' E6 T; n  c$ x% X& i         RowBox[{"Data", "[",   S- Z! E+ L8 _7 S+ J
              RowBox[{"[", ! g" N/ V  w0 P: o- i: S% u
               RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
    1 ?$ o8 s" y3 g  Y) N3 K' N  "\[IndentingNewLine]", "]"}]], "Input",: P5 O% _8 h" i% n- S% y/ H! [
    CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {
    / U9 [! s! W# B, q" U, z  3.577925286140625*^9, 3.577925306765625*^9}, {3.577958329919715*^9, 0 E& x8 b5 }# W& j
      3.5779583326341195`*^9}, {3.57795892351635*^9, 3.57795892354755*^9}}],' X: R. I5 u2 o8 M2 ]4 I2 B( y

    $ f, }6 _" u5 @# T* h: g7 W3 dCell[CellGroupData[{
    8 h3 L5 y9 _' ]7 w1 t0 w  e3 N% h6 u% E3 D6 s( P& b1 t
    Cell[BoxData["y2fit"], "Input",+ ?1 ?) B$ R/ j' ?8 n0 E
    CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {7 |: V" n6 W1 X
       3.577925040484375*^9, 3.5779250440625*^9}, 3.5779583419785357`*^9}],
    - h# y5 t7 u$ j3 `2 B( x1 D2 ]( X& x  {; J* X( ~8 p) C
    Cell[BoxData[( ?, }- ~  R1 O/ l. `8 S# z4 ?( q
    RowBox[{"{",
    8 [+ |* z" _5 @& l  RowBox[{% Q+ I! }& ^" g! @0 E; P1 L$ f
      "0.4853171132859182`", ",", "0.4508635216665074`", ",", 3 D+ [6 v( |. n( J/ m/ E: `+ v+ |
       "0.3642119241752518`", ",", "0.42852077425595436`", ",",
    , B/ q4 u+ q& L7 n7 p   "0.4712694272667798`", ",", "0.5257533056184774`", ",", / u( l. k) n$ M8 [* ~) V
       "0.48620658140716133`", ",", "0.41106838915591876`", ",", ' w" I" G$ {; {4 |/ h; a& K8 J
       "0.5486894206610674`", ",", "0.007731168540073459`", ",",
    % A( u$ F3 F! D; P   "0.013872406140339109`", ",", "0.3956995051659558`", ",",
    ; v8 c. W% j9 g' I# F   "0.3663118256142708`", ",", "0.29094217358055163`", ",",
    " _6 t+ b: i9 Y6 {4 F" Q   "0.5453093690736555`", ",", "0.44138898880777927`", ",",
    6 W. u$ ^$ q% G" x* Y$ t; t( Q& m   "0.42944922031163496`", ",", "0.43092890556748836`", ",",
    * n# n* a4 a1 r   "0.5942402821739969`", ",", "0.330046090785457`", ",",
    1 V8 m# r! ?0 @- Z- o: H2 {   "0.18938658036630585`", ",", "0.4263720292858679`", ",",
    & b. F8 ?2 T$ F* |   "0.23377136184738775`", ",", "0.02232858193309988`", ",", ) P2 b2 i- q# Q& ?! n. p( h
       "0.244364200084268`", ",", "0.5562383565309971`", ",", 1 F% d% \* b" B: P5 U+ d* q) S; c0 ~
       "0.13114103402954333`", ",", "0.5815052048989465`", ",",
    . z' i6 E9 t* B8 s6 U, W- _   "0.4253455966293501`"}], "}"}]], "Output",( M& H+ r- F0 b; P+ f7 w+ }
    CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9, ( ?8 \, e$ ^3 \# [
      3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9, % g* i) A! e, q3 b. @! v
      3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}]
    ( X8 X2 C# }. L}, Open  ]],2 [$ N. L; G' n: ~0 `2 p+ k; e
    1 G5 Z0 W; H( @) S* o( E  p
    Cell[CellGroupData[{$ V/ Z( ]* D3 v4 x* F
    1 P6 N* _' O( r( k* b
    Cell[BoxData[& @  O# p1 b# X: g3 h4 M. _
    RowBox[{"y2fit", "=",
    6 V& r- ^% z" `& w2 `5 C6 X  RowBox[{"{",
    # W, j) J9 e& ~! S% E   RowBox[{* n7 ?  ~* I" n; b8 q
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", " `9 N" r( L1 N5 q, n) N8 }
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 w, ^7 n' Z" u7 q; Y
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", / s5 Y; e7 ~7 @9 m# n$ y4 b# Q8 U
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", % `. Z# K: _7 S7 u3 A
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    , c9 Y, z* f2 p/ y1 R5 A: s  r$ R    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", - U% d. ], [% P* B. ^2 a* E- _$ j
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    : U- A0 Y# N. c8 q+ k# G, e    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    ! d, A' R: ]) T) @2 s, f    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 4 s) }, W! k. X- E
        "0.48531711328591953", ",", "0.48531711328591953`", ",", 7 `6 A. {$ `. p4 C# X7 K& z
        "0.45086352166650845`", ",", "0.36421192417525217`", ",",
    . B- Z9 q' _; ]    "0.4285207742559556`", ",", "0.4712694272667811`", ",",
    . H6 V5 ~+ C* l    "0.5257533056184786`", ",", "0.4862065814071623`", ",",
      H/ M9 `8 E+ ~6 M    "0.41106838915592014`", ",", "0.5486894206610683`", ",",
    : c; ~4 J% P' t    "0.007731168540073532`", ",", "0.013872406140339166`", ",",
    5 O1 \. y, B7 g    "0.3956995051659565`", ",", "0.3663118256142717`", ",", $ T+ ]) h2 O4 p
        "0.29094217358055185`", ",", "0.5453093690736568`", ",", & I+ `% O5 ?2 o3 q% w, E( H
        "0.4413889888077799`", ",", "0.42944922031163585`", ",", , y# _- `6 J( |5 P4 t
        "0.4309289055674891`", ",", "0.5942402821739983`", ",", 3 Y" W. W. Y7 i5 u
        "0.33004609078545805`", ",", "0.18938658036630632`", ",",
    ! u$ o9 j% [3 v/ V) g" c8 D    "0.4263720292858688`", ",", "0.23377136184738778`", ",", ; r, k+ m5 h% }  B
        "0.022328581933099827`", ",", "0.24436420008426807`", ",",
    - U) \2 }/ @: k1 a) g& B    "0.5562383565309981`", ",", "0.13114103402954314`", ",", * h2 Z& s2 p2 X  A- W7 ]
        "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",
    9 n( T1 ?! @7 r% N9 J  V+ j CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {- K8 v- T) L" \
      3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9, " D% X0 U/ q: {: U; m* E6 I  I1 G
      3.57796233957977*^9}}],
    5 V7 Y: a! |, M  N' t3 A+ x& w* X: ~0 r* k+ r% }% d
    Cell[BoxData[
    / y. Y/ C) S7 M4 A& U* e$ g) n RowBox[{"{", 4 ?$ i( i4 F. V4 x/ j
      RowBox[{, d+ @4 \# j; O9 F( \; j
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; j: K. W# F: V) a4 G) U   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",0 w5 \2 C4 J" d: h( g" h
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    * c& r( [  O9 ]* W9 W   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    - Z! _2 l, a# I% ]( t$ k# L- u' [   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    # c2 ]  I+ r+ j" [% S0 [7 e) h   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", ' d) {7 ?# t4 @6 c5 N5 n4 I" h
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", * ^8 v: o0 M2 I  A5 R" F
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    ' ^2 p, b: U, O3 w1 U   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    8 h9 v. K7 \, D, x  o3 `+ {8 M   "0.48531711328591953`", ",", "0.48531711328591953`", ",",
    3 a! F! ^/ A# g! g7 B2 T   "0.45086352166650845`", ",", "0.36421192417525217`", ",",
    ; h7 O) U) B2 {   "0.4285207742559556`", ",", "0.4712694272667811`", ",",
    1 z( z( K2 `; e3 b5 y2 a' Y" q" Q   "0.5257533056184786`", ",", "0.4862065814071623`", ",",
    & L  y& j: W. U1 b0 g   "0.41106838915592014`", ",", "0.5486894206610683`", ",", : E3 T4 O- I; a# n4 y# s% j) G
       "0.007731168540073532`", ",", "0.013872406140339166`", ",", ! G; h2 x2 F4 Q; n
       "0.3956995051659565`", ",", "0.3663118256142717`", ",",
    8 j8 g4 N4 g) I+ m6 ^0 v% w   "0.29094217358055185`", ",", "0.5453093690736568`", ",",
    0 L% g7 H5 s9 I7 Q- P+ Q. D, a+ b6 `   "0.4413889888077799`", ",", "0.42944922031163585`", ",",
    : Z6 ^1 Y& g9 [   "0.4309289055674891`", ",", "0.5942402821739983`", ",",
    " e" J6 A; b$ F- X0 y" m   "0.33004609078545805`", ",", "0.18938658036630632`", ",", - O( \% S5 o2 G$ S- R; m7 g
       "0.4263720292858688`", ",", "0.23377136184738778`", ",",
    0 o& W- V+ e' q  K; k0 a+ L" X   "0.022328581933099827`", ",", "0.24436420008426807`", ",",
    ) B8 M7 ]; |2 Y; h7 g$ f1 y   "0.5562383565309981`", ",", "0.13114103402954314`", ",",
    * h* z  i' F2 `% h: i   "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",2 u2 W' M. s# y- a
    CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9,
    1 O0 P' k* u0 M7 b4 J" L  3.577962342060174*^9, 3.57801245340625*^9}]! _' E) ~3 i7 M2 D6 g
    }, Open  ]],' V6 I- t+ ?+ H+ A7 X0 x6 `

    # T0 R3 w* e& p& c8 rCell[CellGroupData[{; s2 t6 v9 V+ L% S

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

    回顶部