快捷通道

QQ登录

只需要一步，快速开始

  注册地址  找回密码

数学建模社区-数学中国

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

[问题求助] 怎么在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
    问题完善一下！或者把代码贴上！( ]7 O9 N- ?3 p, e) h* q' ~# E; @
    回复

    使用道具 举报

    琳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 6 K9 [; J& w+ v: `* m$ G9 f4 J
    神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
    2 J# i4 P! T7 \! N8 @- [+ B# }% T
    (* Content-type: application/mathematica *)
    ' W; K& x. K9 V  F* \0 p; E
    8 f1 I, U/ e2 D* T; w6 T+ S$ G* m) E(*** Wolfram Notebook File ***)1 t1 }* U- z8 o
    (* http://www.wolfram.com/nb *)
    1 P, v. p& t3 w9 C+ N! h) X
    3 F9 n, \4 L) @' s(* CreatedBy='Mathematica 7.0' *)
    1 F5 u8 Q  U1 x! Q* {% l& W; p5 }. E
    (*CacheID: 234*)
    ' e7 }0 l% `) d; a1 ~" }(* Internal cache information:% y) X) T/ W7 n0 ?: i% n" i; L
    NotebookFileLineBreakTest6 E& |/ }! q" w/ B# K- }
    NotebookFileLineBreakTest5 ~$ l- f4 B: j! Y% N8 u# D
    NotebookDataPosition[       145,          7]
    . d3 l0 H, h) ~3 Y$ T: [5 v& UNotebookDataLength[    423629,      11534]8 }# o6 p% H5 G
    NotebookOptionsPosition[    412607,      11173]
    3 [5 d% [# A3 F! K3 O" eNotebookOutlinePosition[    412953,      11188]/ _, z. o9 d% o% X
    CellTagsIndexPosition[    412910,      11185]
    - k2 Q9 U. W- q9 n  @  `WindowFrame->Normal*)) r, b* @6 p1 N$ K# k

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

    - F' w1 X+ p( u* d: eCell[BoxData["0.2`"], "Output",
    , G, X/ K/ D  V" B CellChangeTimes->{" n8 U* k( O" Z6 k
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, * i/ D2 T* c0 D) Y2 J' X# T: ?
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {4 l7 B" n$ l6 D* s
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, 4 ~4 H- P3 C- Y8 h; y( `# v# j, G
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {) r' `4 r( K8 e$ k0 J
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    + x. a. I: p. l( q* X( F4 q   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    ! G( g: z) f' T7 S$ r& d" ^8 g   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, - W  |' A$ M3 W( l* _) e
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
      [: [8 ]  q$ w; @( b+ L* l/ |   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, & s' b+ Q2 ~4 D$ D2 C( q
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, 3 E# M' ?5 A+ t! _; ~) ^! l/ E  g
       3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, $ _7 |; I$ C/ Z/ [% Z( c
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, $ d$ {# W) [- a$ l
       3.577960510686717*^9, 3.578012149296875*^9}],- R, @3 `' n7 u& P7 y8 h4 S. I

    ) h. S) X% ~/ ?9 c- W* ZCell[BoxData["1"], "Output",) N/ Z" I7 \1 K
    CellChangeTimes->{: w8 P5 M; g/ r9 p) \" z
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
      R. e8 m0 k- u* Q% Q( q* q0 a   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {3 `+ [" f* h: u: r5 a
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, 7 E6 r1 {9 i) e% R- J
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
    2 i& ^* q/ w9 m   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, 5 V' l6 Z0 W  F" T3 D5 g: @
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {  V/ T: i' s0 ]/ t' ^
       3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, " q# N# `$ E1 `
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
      w, T6 O. l7 X& w   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
    ! G( X, Q: k0 f- l$ f   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    / ^/ C6 ^5 m' ^" ?   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, 1 V- F2 J7 ?# {- O
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    $ p! r1 a) F+ a  S8 G" f% H+ c. N   3.577960510686717*^9, 3.578012149296875*^9}]4 c  y  f- P: H% z8 k/ p; _- ]$ }
    }, Open  ]],
    6 f. g2 H; u7 v7 Z
      P: Z# x3 {- W6 ]  Q2 Y% K7 Q6 o& wCell[BoxData[
    9 g- z- c! q1 n- h) u+ o RowBox[{"For", "[", + S; @5 O) A  \4 R. J3 P
      RowBox[{
    . E) l' v. d$ u& n; T9 Z+ M   RowBox[{"k", "=", "2"}], ",",
    ( B: {" E3 ]5 L( w3 T8 t  ^" h   RowBox[{"k", "\[LessEqual]", "60"}], ",",
    . J6 {' e9 \$ U9 P# L% m! G1 _   RowBox[{"k", "++"}], ",",
    . x, x  N- r2 k, x8 j; W   RowBox[{"{", "\[IndentingNewLine]", 8 l% g+ {1 ?* [- g( v6 Y! \
        RowBox[{; Z# t( y3 p6 e' U4 `9 S/ V
         RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
    ' y# g# }! J9 y0 Q* Q' e     RowBox[{"For", "[", . E: D- W, c' G0 V
          RowBox[{8 H1 Q# r9 U7 J6 L, ?: q1 A4 e. m5 n
           RowBox[{"j", "=", "1"}], ",", 7 N& N  j2 V) i$ f7 O0 D! Q6 P
           RowBox[{"j", "\[LessEqual]",
    / j) h  N' ]: Y4 ]5 H        RowBox[{"k", "-", "1"}]}], ",",
    ) r5 z7 S% ?# H" g% r       RowBox[{"j", "++"}], ",", ' x8 \1 F: V5 s' V' j* ^
           RowBox[{"{", "\[IndentingNewLine]", 8 B' C& K4 L  p0 V) @, b: I
            RowBox[{( i: n1 N) M9 J# O* z% ]
             RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]", 3 _5 g/ ?- Q8 ?- B0 f2 G( G6 Y
             RowBox[{"For", "[",
    8 G. |$ X1 a( C+ \          RowBox[{/ m5 ?- c# O! {3 {. v+ B( ?
               RowBox[{"i", "=", "1"}], ",",
    , d6 L: t, t* K3 H: H2 f1 c- i           RowBox[{"i", "\[LessEqual]", "9"}], ",", ) Y- o/ g1 [) i- l* b, k! R
               RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 2 |% y! i! n, p! n2 I6 t
               RowBox[{
    / M# |) O7 J2 j( M/ V            RowBox[{"r1", "+=",
    7 w; U2 j( x7 T/ B: J             RowBox[{: ]5 m5 v1 H+ T0 g4 P
                  RowBox[{"(",
    : l* e8 t1 v2 \0 ]/ [               RowBox[{5 f; [6 E* B' A. ?( G; q: C* g! z
                    RowBox[{"CM", "[",
    3 w6 j  t; U5 x3 I/ B- k+ T, e5 A* g                 RowBox[{"j", ",", "i"}], "]"}], "-",
    * i8 ^6 y  U8 v0 l/ `, P) M, e                RowBox[{"Data", "[", 3 e2 i& W. J* s8 T; z' t
                     RowBox[{"[", $ E$ m3 M! u7 n4 k
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*", 6 B* [) K! T5 m' N) X" F% N4 H
                  RowBox[{"(",
    / ~% X& O1 f, y( ]/ A. j& u: l               RowBox[{( D  h; I" i2 K" Y  D
                    RowBox[{"CM", "[",
    9 T$ Y; x' p1 f) o                 RowBox[{"j", ",", "i"}], "]"}], "-", 8 u5 y% R; P; Z' u8 R( f7 Q
                    RowBox[{"Data", "[",
    $ f+ q8 ]% A% a* l- Q- p                 RowBox[{"[",
    . l6 [# {; h6 O                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],& S: q- A  _/ T% K. O6 C; A. x
               "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
    7 o+ ]: F. u- P+ [         RowBox[{"r1", "=",
    0 }( L$ M- S% i4 m( G4 P( Z          RowBox[{"Sqrt", "[", 0 G* v, S& c) h0 t9 w2 d9 Y
               RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]", ! y9 p4 Z/ [. ?9 s6 ^5 V# ^
             RowBox[{"If", "[", " ",   c' c! a* t4 L/ r0 v" W
              RowBox[{
    , d, m! Z8 e; E% ^1 V           RowBox[{"j", "\[Equal]", "1"}], ",", ! `8 m$ M! B5 {! Z+ d9 S  u
               RowBox[{"rmin", "=", "r1"}], ",",
    * I: J0 ]; G: f) e9 Z3 H: d           RowBox[{"If", "[", 1 o) C  u/ U) R6 t# q/ e' `$ ?
                RowBox[{: @" E( Z) x( L/ @! W7 B
                 RowBox[{"r1", "<", "rmin"}], ",", - O" v2 Q7 a% I
                 RowBox[{"rmin", "=", "r1"}], ",",
    ; z: Z. ~, R" b             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}], - A) R- h' a# K( [1 B& y
            "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
    1 R4 G2 y; j, f" f/ V     "\[IndentingNewLine]",
      z& s1 h& x7 `" ?     RowBox[{"If", "[",
    $ h) h& D6 B+ d, O3 D; n% N6 Z      RowBox[{
    / [: v, J8 \; E. @# s6 v, r* |; Y       RowBox[{"rmin", ">", "r0"}], ",",
    : h1 @0 A- C, N$ z9 L( B- x/ @  y       RowBox[{"{", "\[IndentingNewLine]", 2 z8 |; I* |! g
            RowBox[{
    2 ]/ @, ^: M0 T8 W% P/ u         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]", ' \" S% F; _$ w+ M2 A" z
             RowBox[{"For", "[",   |0 y: Z5 C5 }/ j
              RowBox[{& ?" }% `, t8 m5 x' m" y0 ?9 v! N
               RowBox[{"i1", "=", "1"}], ",",
    5 e' _% L! i7 r; c           RowBox[{"i1", "\[LessEqual]", "9"}], ",", 9 D+ L! P. ~* @0 F  w; X2 ~* Z: g
               RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",   p# g) v0 }9 Y7 a( p' _3 [* Q
               RowBox[{
    9 x# h" |5 l- g/ W2 V            RowBox[{
    ) [4 y9 U1 [2 l: W2 g8 f) r0 s; s6 _' Y             RowBox[{"CM", "[",
    1 r7 R2 _- R) }              RowBox[{"M1", ",", "i1"}], "]"}], "=", 6 I& p2 ~( b$ x9 K9 ?8 R% \& f/ D1 q
                 RowBox[{"Data", "[",
    5 [7 c( w! u# p* x/ Z5 F              RowBox[{"[", ) b% v/ a, g' \+ A+ i# d! ~
                   RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}], 1 I8 \0 ]5 N  o( I2 {8 F! Q- y
              "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", ! b1 N, n6 R4 B1 l3 D6 B9 P
           RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], 3 V/ y) B" i* \1 y' Y7 x
        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
    0 J& W$ f6 O6 R& k; D' e7 ` CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {
    . S4 w: h( G. |# v$ d9 g/ `   3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9, ; _9 x' e9 K5 Z- X" b
       3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {
    4 o; J  c2 i6 A) f3 `   3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9, 5 ]0 R3 M. f  ^6 N, D+ z5 y8 q
       3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {; M5 ^9 }2 s: A5 S( E, U
       3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9, 6 X1 O( K* V- J9 `$ d: z+ s
       3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {: |- N. q$ J6 G) Z3 T8 H
       3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9, 2 w8 p2 R% M- N: B
       3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
    ! H0 @' ^' }8 m& X( P   3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
    5 t6 L5 c* v" w6 {: Y$ G5 q( m4 K   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {, R2 [2 E1 s9 l0 l# I& }( ^6 S0 y
       3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9,
    & }0 W, q. n; [7 z4 u   3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {
    - @8 ]  H' l5 l# I' a   3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9, 6 B6 j, y! ]3 ?( i2 y/ l2 Y
       3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {9 C" [# e+ \3 v! t6 S% Z
       3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9, & d' L% }" e. j4 M* K
       3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9,
    * E( w. \. U) ]/ ]4 K) d   3.577958821991373*^9}}],
    , Y3 [% ^0 C7 p/ U6 X5 K. r, g
    8 g* C/ b( u) K/ H" }" `5 T! f! w( aCell[CellGroupData[{' \5 k: Y- s$ F" C6 u1 ?
    1 b& t8 V) N  o" t
    Cell[BoxData["M1"], "Input",9 i- X  ~( [" o! X+ J  m
    CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
    # l& S% g/ z' _5 c3 d& z6 b% {3 X1 p5 z! n6 N2 W$ E
    Cell[BoxData["21"], "Output",
    8 x3 U- K1 I' Y3 C* e& y# M1 [0 Q4 C CellChangeTimes->{" P/ c7 X. C9 K* r9 d
      3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
    . r! h" G; X' R. b# d   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9, ) H- P1 U( I! z' M. `
       3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
    * Y- R1 ~; i" Y8 K6 P3 w   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9, . |, K  Q1 h! H. Z' h/ C
       3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {) a7 _6 d$ y5 p( X# ]- I
       3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9,
    , Y2 q  o/ d; o: S9 e' [   3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
    7 g! b/ I% Q: o3 N/ B   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9, ; z3 I; p7 F5 k# l9 [/ F
       3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
    , N* S- A9 |( X7 i   3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9,
    - s) j/ q. J% {0 D% B1 `   3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
    : s3 d" O5 C1 _5 R4 p8 A" K0 U   3.577960515600726*^9, 3.5780121541875*^9}]6 m2 X7 p, X- }6 k3 L/ g
    }, Open  ]],, X. }3 y' ^0 q, A. j4 G. y- N$ E
    9 P1 x9 B* K! E
    Cell[BoxData[) B% G# B  q: P/ ^% {, y
    RowBox[{; H3 X- c4 C: ^
      RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", 0 @8 J  O4 O, a/ x" c
       RowBox[{"1", ",", "i"}], "]"}],
    7 l* ?! I2 j. Y  f( V/ V  RowBox[{"\:5230CM", "[",
    ) [6 v5 d' @$ h& E' R, a7 X   RowBox[{"21", ",", "i"}], "]"}],   Q* h2 K" {7 D; e" i; B% ^- ?" J/ {% _( U
      "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\; ~4 Z; D9 s2 T7 h. B+ l% b
    \:51fd\:6570u1\:5230u21"}]], "Input",
    4 b9 u% e- i6 V' A  F CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {6 J0 x  T% k( F3 D2 ?/ ^
      3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9, # T. h) f( \/ L; G7 h* L
      3.577960526583145*^9}}],/ @2 K: O2 C, Z  p3 q' ?
    ( K; r- W; j# Z" l( F- `
    Cell[BoxData[
    7 f7 b; b; |, s. k' g RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
    , T1 F4 w0 {( z8 U' a" [) C$ G  u CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
    # A0 D3 ?3 S7 F) _- c) T( V9 T
    $ _) Z+ e$ J0 j/ K: N5 O( X0 w. rCell[CellGroupData[{! G5 [- L6 R2 f: D7 y

    ( m' h1 r7 i6 q4 tCell[BoxData[1 e: m- m4 [% u5 G
    RowBox[{"Xa", "=", , H3 b) Z- H* a) E; h( B
      RowBox[{"{", ; @: I" E+ }* [! d5 [
       RowBox[{, n8 R- X; ?0 j2 G0 N5 \8 p% \
       "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
    $ H  {7 \( H$ i; @( m    ",", "x8", ",", "x9"}], "}"}]}]], "Input",
    " Q1 x5 a  v, g! y CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],, l- M+ ]* K. G8 |

    4 X- W- C1 U  x" gCell[BoxData[' ^! l! P- Z2 {9 r. z
    RowBox[{"{",
    - b+ x3 X0 k. f! O  n7 |* }  RowBox[{+ N/ @. I& `& v, W. J0 s- f  s
      "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",3 g: l: m& Q& w, y& `
        "x8", ",", "x9"}], "}"}]], "Output",
    . n% ]$ E  U( d CellChangeTimes->{  B7 ?3 p4 Y. X! i  ^7 e
      3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9, 5 y- U; z8 I  X
       3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
    7 n# J/ ^7 `3 V: B+ {$ h" M7 {   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
    , A. Z4 R$ i0 Y, `+ _   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
    0 q  x' }5 K/ w( C3 v8 S: t   3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {# x- t$ N0 E6 I* \! z" }$ X6 U
       3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
    ) ^& G' {1 g7 X/ j6 A% w& D$ F   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
    , Q3 N9 {6 \$ ~   3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
    4 Q+ B% Y- v; q- w7 {+ w7 q" j$ C( B   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
    # D+ m( `5 {5 S2 [: j   3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
    1 A5 q1 G! ^) i2 ~' N   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
    ( c5 y2 Q6 i  N1 }& ~   3.57801215725*^9}]
      {+ m/ w, J7 S2 _: }# g; Q}, Open  ]],$ l! Z4 i& ~) y0 U1 l

    - W$ d/ J  L  O) XCell[CellGroupData[{
    ) ]! U. ?, {/ M$ r& P2 k% s1 B% V% f% R4 T3 w
    Cell[BoxData[  L2 c. y. A$ A; t4 D$ q
    RowBox[{"Ca", "=",
    - [! T, V- H( }7 g  RowBox[{"{",
    0 n* ?! e4 t; a6 P8 E. ~   RowBox[{2 b5 s" w" T: a+ q- k
       "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
    , s' H! j5 E0 z  I    ",", "c8", ",", "c9"}], "}"}]}]], "Input",
    $ W5 l) A  p6 `" a/ s CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],- T2 p" @  _: j  c" m
    1 O/ L1 L4 w$ Z$ I
    Cell[BoxData[& I- w7 E1 D% q0 u6 \7 i. F; A
    RowBox[{"{",
    : Z9 w; b# _  g! u8 b& M1 O& S  RowBox[{5 z9 Y4 a8 R8 x( I  N
      "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
      w" Z$ H$ ~# V" N5 p% L    "c8", ",", "c9"}], "}"}]], "Output",
    ; O/ J7 i2 ~& ^ CellChangeTimes->{, E9 l- q1 J8 U
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,   @" f# d; F: X* q6 t, v/ Q4 }
       3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9, & y+ d6 m8 @4 G* q/ }' T
       3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
    8 e" a4 t7 ~7 O! b- ]0 z) B   3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {3 u# E( n  t/ e) J# ~* v
       3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, 2 U7 z5 w) d& |$ |* m5 L: {/ o
       3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9}, 8 Y: d; x; ]4 Z$ a
       3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9, # o5 F6 t6 w, N5 S1 i- c
       3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, / ~* b1 C1 I% f* Q4 S/ ~
       3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9}, 2 Y+ L3 q' ]* h: j5 t8 _# @/ O8 A
       3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {* t4 S9 E  ]0 k& n
       3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
    ! {# d- ^! a; m4 X* `' F8 N- H$ e   3.577961904604212*^9}, 3.578012158671875*^9}]* X) ?4 s% H/ O- H' y5 T
    }, Open  ]],# k) A! k! n1 ^( A  Z  t

    - h( A$ W2 s5 r9 C/ ECell[BoxData[
    ' h" r: w, P7 _" U RowBox[{"For", "[",
    ) @- M! X4 p" d0 x3 P" ]& ?& W  RowBox[{1 z) c; `) k2 \$ k1 y' V0 w
       RowBox[{"i", "=", "1"}], ",",
    . y8 \" F4 a0 ~% m   RowBox[{"i", "\[LessEqual]", "9"}], ",", 3 s5 ~( D& O: M. ^& n
       RowBox[{"i", "++"}], ",", " P% Z6 w0 G( \4 I! g8 p9 ]
       RowBox[{, d# Q% \# {( @: @# n% t
        RowBox[{"Ca", "[",
    8 a- \* @' J; t! u7 F     RowBox[{"[", "i", "]"}], "]"}], "=", ) g6 ~+ m, U5 H- g) C* V0 z
        RowBox[{"CM", "[",
    ! M# E9 D* Z+ j! `  C$ p$ V1 `' [, m     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",. \% \" }8 Q+ x0 ~$ T- h
    CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
    " Z! v  G+ [, t) F8 R3 ]4 L$ g) w   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9, / c; m, \4 z$ H7 F6 W% _
       3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9, + H+ d$ H7 O  R4 X
       3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
    6 |4 a$ U3 |. h6 U, E   3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9,
    % ]* ~0 [, k0 w/ n' r0 a7 I   3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
      Z5 e- V6 w6 R, G  W! Z) O5 B* `6 O   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
      |9 D. }8 _* j% c   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9, + p* P  x! V5 h) u; ~
       3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9, 7 w6 C; D. V% C; O
       3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9}, ; C6 S' m/ t  c
       3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {) u% U# Z2 k9 @  P: F
       3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9, ! h' |1 i  p. l" o) }, J5 N
       3.577961906897415*^9}, 3.578012176296875*^9}],
    1 G2 k* k& G& x( T+ o; J! D- c. [
    ( _2 t) o& g% \6 ^) A/ w' d; ]Cell[CellGroupData[{
    # C/ j0 o0 R/ k7 d
      m% r. h/ ^/ r% `- rCell[BoxData[
    6 j% g: R5 ~( I/ A1 E. Q RowBox[{. {% V& F" O# A
      RowBox[{"(", / J8 u4 p& T$ A2 h0 V( D
       RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 5 B6 \6 N# m9 F9 _! \  b0 u
      RowBox[{"(",
    " G4 q) A2 b$ q+ v1 p( U# z   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
    . j% G6 P: T, C! u" a# U" V" o4 @& T, T$ J
    Cell[BoxData[
    9 }* @# E6 \! e" q: f6 d7 q RowBox[{( h/ U6 ~4 y% R0 E* |! r8 p
      SuperscriptBox[  F. m( s! o7 G* C5 ?
       RowBox[{"(", 5 @5 f* S: j9 U" I1 l# e0 b& _
        RowBox[{
    9 Z) ]. K1 ?$ |1 ~, ~8 F2 p     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
    1 y# Q8 ]+ W& `/ u- v; r. g  SuperscriptBox[
    % ^+ p5 S/ u% W5 |4 I- R   RowBox[{"(",
    " M# ^  i1 ^- A    RowBox[{
    % G. T4 k- l8 ]     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
    % @' q5 D$ S8 Z+ }- U% Z  SuperscriptBox[
    6 U: V  m  m' ~1 B& H   RowBox[{"(",
    2 }, }( c# I* n$ m5 T  ~) [% f' S    RowBox[{
    . \5 [* y  j. \. Z! w# n     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", 1 _$ @2 h- E1 K3 X* D% B: ^* V0 W/ h3 `
      SuperscriptBox[8 I8 ]* P4 l# A( I7 n
       RowBox[{"(",
    ; j2 _& x3 V) W' Q    RowBox[{1 W0 R: x( R& @5 G# n* J/ [! a" V
         RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+", 4 H- j5 ~  g2 D7 x
      SuperscriptBox[
    & ^# p  x$ f" q   RowBox[{"(", / i1 E; `0 k3 M  M4 m5 C  p5 g
        RowBox[{
    ( r" W* f$ g) f- i     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+",
    . |' C, u, r2 o1 Y& ?# U  SuperscriptBox[
    ( Z: ~, K* b& I# @. Y+ D( q   RowBox[{"(",
    0 h0 P2 A0 ^; Y+ `    RowBox[{# t* ?3 K2 f; Y2 N
         RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+", 3 x. N+ D3 _2 k# t' S& E# X" p& T
      SuperscriptBox[
    + l* H4 g/ P5 s; [   RowBox[{"(", ( r4 n( {; e& Z$ C$ l4 e
        RowBox[{. w1 Q! o! Y, e; Z$ g9 s7 _/ ~3 d9 M
         RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", ' @2 V. f4 \" A
      SuperscriptBox[. T8 h. R% X4 Z
       RowBox[{"(",
    8 g. U( _. Z( u1 ^( p6 p    RowBox[{2 V, b; c. X, j1 a8 J9 T
         RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", 2 X; k" \3 k' \7 \, c% Y
      SuperscriptBox[7 r# S* [0 p! y- Q, |1 T1 n+ p& f/ Q
       RowBox[{"(",
      L2 T# v9 A4 t* a0 o; G* s    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
    ! }# V& S0 x2 B& a CellChangeTimes->{
    + K' }+ y% j6 N2 j/ y) B3 Z  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, 6 G0 _4 ~5 J- @2 ?2 x9 \7 p
       3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9, ; P* @8 J. I8 r3 R( |; S
       3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,
    " W: j# u/ t  j6 X0 L   3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
    " C$ ~# o5 T1 e9 W   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
    8 e+ N: F8 Y& e# u0 e  ?. c   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,   N0 _) _2 D  T# `; _, X# ]- F4 d
       3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
    7 [, J' _% Q: `# V9 `* ?7 r0 p   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9, & S; j" n! W. A9 J$ d2 F# R
       3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {; h+ P: d' p* G( C+ _. {
       3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {; Z/ U' S8 Y  @# q; _1 y
       3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
    - \" V  A8 s+ N- v3 w/ A   3.5779618537169228`*^9}, {3.5779618846049767`*^9,
    , b& B& g) v: O9 Q/ Z   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]/ e6 o: A& M9 W( p
    }, Open  ]],
    1 {. J7 m$ D$ H$ V5 d% m; q9 s8 @% D3 [# g$ v
    Cell[CellGroupData[{
      A) o" r- K* [, f0 y0 R7 G1 b: O. d" x) m  b, |
    Cell[BoxData[6 W* y% X8 m  f: O, I
    RowBox[{! H# `! ~# E4 V' F# |
      RowBox[{"Ca", "[", - X+ `. z& r6 e& \. b9 k1 c
       RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",
    1 L: M8 `8 F6 B  O CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
    - a, t1 F& H. A# n0 W- {' j  3.5779616465173616`*^9}],1 F7 [; g/ P6 W4 _

    ( g) A, P. U4 k4 G) S3 ?/ ?Cell[BoxData["0"], "Output",
    ! q$ X* I6 S, {/ _: e CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
    * ~( y* a. |7 A" w4 D1 k+ u5 E* f" p7 {4 ?  3.5779616484049644`*^9}]
    . C" h: B& ?& w}, Open  ]],
    9 s, L8 w* M  ?/ i+ p' b6 w. H6 V, Q& M' G: C
    Cell[CellGroupData[{
    ! \3 x, k, p; s$ o
    0 y; S# l1 M$ X0 `6 q1 kCell[BoxData[
    1 Q9 E- X( n! X' i RowBox[{( v9 h. b  E7 n6 c; w; D& A5 g7 y
      RowBox[{"Ca", "[", ' [: L9 \" ?' Z: x) Z
       RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
    , Y1 b% V; t# C+ X% Q CellChangeTimes->{3.577957376235614*^9}],
    , i* b& h& G9 N! }$ o* P$ q1 H" H) v4 u9 R
    Cell[BoxData["0"], "Output",9 g9 L& U" g& e* s
    CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
    2 L. I0 Z# x0 c* Z}, Open  ]],2 N* o4 k- g& ?) |
    8 T  @/ }! R% U$ ]) s) W& x
    Cell[CellGroupData[{+ {/ X' C( j" X/ G
    3 P( f; U8 a. y( n( H7 h
    Cell[BoxData[
    , L9 M9 t4 E/ y, w RowBox[{1 G: e1 ~- p0 R4 x9 P) W+ X# g: g3 I
      RowBox[{"Ca", "[",
    - X& |4 N. ?8 |4 i# ?: }) V   RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
    + M* l, ~5 b: F7 m2 E+ B2 F CellChangeTimes->{3.5779573112927003`*^9}],
    / \: ~& W1 l/ J! [. w2 \3 {. R0 L% F- T/ {5 C! T' `+ b: w5 W
    Cell[BoxData["0"], "Output",
    " ~+ H/ h2 k8 ~ CellChangeTimes->{
    2 B0 s$ q: G2 }0 s; N5 }; B  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
    0 V2 U* R! [. f  C   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
    3 M  E& Q3 y7 T8 q0 i   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9}, ( L! u5 q: d3 P1 n. {) }6 M+ Q
       3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
    / B3 y0 T9 Z) [7 f/ r! w" J+ H4 p( N   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
    . @$ i& a& J* e3 |/ d% ?; }' U$ ]   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
    * C& u( [* _3 X/ @" ]3 z3 _$ G}, Open  ]],
    ( {" J* w5 K: D/ |) ?1 |* i$ C5 d3 H, O3 D3 e1 T' g
    Cell[CellGroupData[{
    % z6 O. C1 ^  b
    5 f, r" G& s0 U& {9 A/ h1 ECell[BoxData[
    2 Y' {2 T, J1 L0 Q1 b: k RowBox[{% }3 `) J, }& p" \
      RowBox[{"Ca", "[",
    ( }: X& W, c" K2 V9 _9 w   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
    ' v( M4 @  @- X" f, z9 W3 l8 V, ^ CellChangeTimes->{3.577921461734375*^9}],0 q1 f! v, g. N' C3 g7 \
    + A4 p) R, s" @4 H$ W
    Cell[BoxData["0"], "Output",
    , F2 P3 |5 h/ ^" {; m8 [6 @ CellChangeTimes->{
    6 [2 x# t( K$ H  3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
    7 }; O' ]+ O" G# ^   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9}, ' Z& n2 }) m' Q* d. S  A8 f1 u
       3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9, $ H. z; U" P1 Y% ]. u4 r
       3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, * a, r# n- R- f4 G# i
       3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]
    : d+ x% j' A2 m! \2 j}, Open  ]],
    9 X, ~& N0 z1 Y% ^5 ?2 `0 D: c2 e# j% _! L$ a* L3 A$ z
    Cell[CellGroupData[{
    3 Q3 u- ~8 }! v9 c* J* Q& Q
    , s8 }6 T! e4 XCell[BoxData[' a3 F! B( f$ @" A# c
    RowBox[{1 o8 t* K5 \3 \- i; Z" |$ j& F
      RowBox[{"Ca", "[", * C& b/ w) m6 t* U
       RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",5 W6 h% Q6 V4 k/ v
    CellChangeTimes->{3.577957303118286*^9}],9 {( Q. Z* w) T( ]+ @- G* s" U! u

    7 P6 F5 _, ~+ z0 s6 R! ]! O# rCell[BoxData["0"], "Output",- I8 p% z5 s: o% |; _) I
    CellChangeTimes->{
    ( I2 h6 H& p5 c/ F/ b& M  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
    5 x  H& I1 [1 c( I6 q' F$ H   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9, , f4 L/ M: C) b' f
       3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
    1 n1 Z! [. O9 Y: O6 H   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
    - X0 j; u* f8 `% l# c. b4 z% W   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
    1 y+ X% m! e* a' v- F   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {4 y+ s- K' v, F, \% `: m4 s
       3.577961889378585*^9, 3.577961912965826*^9}}]; ~% o0 ]% i1 ~0 x+ J  ]2 g5 \0 [
    }, Open  ]],6 I+ m; i+ J8 w3 @

    - x' r& P2 h* G  b9 MCell[CellGroupData[{- y" y  R  K' `7 [. J
    5 t2 u. ?1 t7 D
    Cell[BoxData[$ M3 b/ v6 j$ }( ^- I- p+ [
    RowBox[{
    + W9 D7 ]" t4 [, x8 ]8 L  RowBox[{"Ca", "[", 7 I0 k# K4 Y0 d: C+ o- A1 L$ U
       RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
    4 Z; k7 y+ b6 G) R# o, I' y$ e2 |8 I CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
      m& a/ l  Q* d% U. W/ V) l  3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
      q9 O" K- g* f, T+ s  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {5 C0 j8 [2 [* i- H& w
      3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
    % ^, B. \9 w' l6 v! p7 ]  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {. R! ~. Z( X& g; X5 h) G. G9 F1 y( ~
      3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
      S7 g$ \: j4 z$ P  Y) V* }  3.577921435703125*^9}}],
    8 u- v5 q, \2 s% Y0 N. X- V0 x& w
    Cell[BoxData["0"], "Output",8 w6 V2 a- @, Z8 ?4 }- J! C1 D
    CellChangeTimes->{) E6 A2 T  r/ o
      3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {) T8 L; E5 N+ y' v
       3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
    / k6 s; K6 X. m   3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
    + l  V5 J8 H' K" P; |1 n' c! |   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, : f. `& t$ [3 E) \
       3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
    4 Y' z/ ?/ w& k+ |   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
    % D0 D4 U3 B1 f( B   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
    1 X+ J! J, u7 A( M2 D7 u   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9, # f* x, f8 Z" H  O/ {8 N. G7 h
       3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
    4 D- k$ H; X4 z% c7 N   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
    8 Y) z) {- `0 J* o8 ]- F   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {# B# }2 i5 d  e* M( K4 l2 W8 i
       3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, 1 U( d4 u, E0 B' q: n) x
       3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
    $ Q' F8 B6 n4 F  J- K! f  F}, Open  ]],
    $ g2 r$ ]# r8 x
    / d# d$ P% v; @+ H0 N5 J7 J+ |5 FCell[CellGroupData[{
    # t/ j' Q7 @( ?( X0 f6 D+ H
    3 D$ I4 M% e- ]. o" y5 ?Cell[BoxData[) m; B/ Q) `* o* Y( a# a
    RowBox[{"Delta1", "=",
    " g6 Q" a. x5 h# O5 F  RowBox[{; S  z# s# y3 k6 B3 Z' q
       SubsuperscriptBox["\[Integral]", 9 _7 _3 l6 a1 e8 H& `; L9 E
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 3 k/ q; {) Z( i: @7 l. g$ a
       RowBox[{
      l0 ]/ G& G6 `. l' h    SubsuperscriptBox["\[Integral]",
    5 r/ z! d% e: W) R0 Z4 S) D     RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], . ]8 |; l0 P5 u# g
        RowBox[{
    " w- S. K( ?1 R0 M4 l* y     SubsuperscriptBox["\[Integral]", ( U$ r0 A0 W/ o. `: \
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 5 g" g* Y1 v- C( J, [! W) ]
         RowBox[{& [/ }& H2 W% R' {3 }$ ^: x5 m
          SubsuperscriptBox["\[Integral]", 9 K  S8 [/ t% E$ n8 Y
           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 1 d( ?' i  w- {5 E0 h: |$ L
          RowBox[{
    6 H1 ~7 ?- O8 m5 ?5 U       SubsuperscriptBox["\[Integral]",
    ( ^9 R5 W4 F" f8 V) h        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], : |' q+ x% }" {7 G( ]
           RowBox[{9 E2 s9 }( z% E
            SubsuperscriptBox["\[Integral]", $ \: I1 x" \1 M2 z8 H0 r+ P
             RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ) R# C. e$ q3 p; e        RowBox[{' X3 y8 ^1 H* L) U  }& n& W, U& m/ F
             SubsuperscriptBox["\[Integral]", " z) |" n+ J/ X6 z( S9 ~+ w
              RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],   e$ o$ E, h+ _
             RowBox[{
    2 i6 F. e4 Q/ Q3 o7 Z- U          SubsuperscriptBox["\[Integral]", % Z: C6 T! i+ [- ~
               RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ) a4 @& ^6 A# }          RowBox[{: m8 z( P7 p2 K) A+ q1 r& r" r; v
               SubsuperscriptBox["\[Integral]",
    ) i1 R/ i7 B' E- T, W- l            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 1 Z8 v9 H1 A; c
               RowBox[{
    7 P7 Z% ^* g5 o            RowBox[{"Exp", "[",
    4 q. q0 r8 J; v# O             RowBox[{
    8 u1 r' R8 \" _, [: H              RowBox[{$ w+ j3 F7 `! w/ O3 A  b
                   RowBox[{"-", ( U' O& a3 X0 T; d6 t! [
                    RowBox[{
    9 m% s9 d- R) _+ ?( i6 B                 RowBox[{"(",
    ' B9 i1 V3 i2 G9 I. R9 i                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    % a4 Y. n3 B/ e. p/ C                 RowBox[{"(", 6 w. m9 l% `7 v7 ?
                      RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", " D' z% I; G) p. P+ q
                  "Delta"}], "]"}],
    & U% o2 S& C1 s4 Y, f: O: Z6 F            RowBox[{"\[DifferentialD]", "x1"}], 0 Z$ D( P6 {8 ^* |- f; W
                RowBox[{"\[DifferentialD]", "x2"}],
    " C9 z2 U1 I2 B, d' `            RowBox[{"\[DifferentialD]", "x3"}],
    $ \  X1 [8 C+ w: l% z            RowBox[{"\[DifferentialD]", "x4"}],
    : w+ Z, p1 j8 q; K  ~4 P            RowBox[{"\[DifferentialD]", "x5"}], 9 ~, E# B2 c! u
                RowBox[{"\[DifferentialD]", "x6"}],   M8 x' l# T5 c+ c6 K) \
                RowBox[{"\[DifferentialD]", "x7"}],
    6 G& o9 k' U$ c; j4 v8 B7 E: M7 i9 y            RowBox[{"\[DifferentialD]", "x8"}], 3 e* y# d5 k: i. ~, u" O
                RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",# j& J) x3 ~* t9 j
    CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {7 i$ k8 `1 M8 Y
       3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, ; p6 l# h4 C( h( U! k" S8 N& w1 I+ i
       3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
    ) {3 q+ V' l4 `  d0 r0 [2 D   3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
      o/ W$ A) c" E; p8 d' J   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
    : p$ `7 O! z0 i3 O  s, e1 T! ~   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, 0 \7 w9 y0 d. i3 n& E' d! l( `$ _
       3.577918964453125*^9}}],
    ( |: f. |" p8 U; A  Z8 I6 E+ O% s6 C, K6 o, J' B; [7 a
    Cell[BoxData[
    4 N3 v# M( m* H RowBox[{"97.40909103400237`", " ",
    ' ^4 |0 `+ h) g9 _. f) Z  SuperscriptBox["Delta", "8"], " ",
    9 Q- H  m1 e2 F8 p  RowBox[{"If", "[", ; h, K, @; X  R8 i; z; u4 X$ v% V
       RowBox[{
    ! q2 O4 P1 H, W0 x3 T9 a' p    RowBox[{
    & ?) p  n: e  l+ e     RowBox[{"Re", "[", # U* p/ X7 B& I
          SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",", ! }2 @; P2 g8 ]1 [8 t# V3 u6 I
        FractionBox[# H, [2 m' e) V, c# D
         RowBox[{"1.7724538509055159`", " ",
    ! R* D( P# J4 X      SuperscriptBox["\[ExponentialE]",
    0 j9 l. D5 g: h4 E: u/ J       FractionBox["1.1102230246251565`*^-16", ( y- e9 B6 t9 a3 H* |, m! O
            SuperscriptBox["Delta", "2"]]]}], : ]  t& Y2 m$ Q- ?; q( L/ s5 G7 x
         SqrtBox[
    4 M; o# m+ e4 O) C) h* U* }# b: F      FractionBox["1", / z3 L8 n! z0 d  U9 o
           SuperscriptBox["Delta", "2"]]]], ",", 1 F6 r3 N; H/ x( s7 P' \) F
        RowBox[{"Integrate", "[",
    0 _7 d" z  ]( D7 s     RowBox[{
    . ]8 E0 i% w2 H      SuperscriptBox["\[ExponentialE]",
    4 D$ P8 I% A* r) m6 c* ?) S% h! P       FractionBox[* T6 n4 u- q. \9 n
            RowBox[{"1.1102230246251565`*^-16", "-",
    : Q- U. s# `6 b4 w* M9 @         RowBox[{"1.`", " ",
    ! u6 [+ q( K% ~          SuperscriptBox["x9", "2"]}]}],
    ! |5 O( P; p( Q. n) L        SuperscriptBox["Delta", "2"]]], ",",
    & `1 ~6 `7 l% x/ z3 I$ d! M) e      RowBox[{"{",
    / f3 t/ l! P7 S* H# p  }       RowBox[{"x9", ",",
    & s; T9 Z4 G9 B( Q+ K: d/ Z        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", # A1 {& f' D4 o; d+ b
          RowBox[{"Assumptions", "\[Rule]", " }3 L' W' k; V- E+ e
           RowBox[{
    3 O" n% ]* G; M2 o" S        RowBox[{"Re", "[", & Y' i  }6 W; v3 h
             SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}], 7 F1 x' U! l* e9 l& x
         "]"}]}], "]"}]}]], "Output",
    & p2 a5 t5 W6 l2 P# Z% [6 e. W6 G CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
    2 U$ E. j! x! ~  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
    5 S! U4 y, C( O+ l. }/ n$ `+ V/ {, {6 M  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9, ! {! f8 R4 o$ I
      3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
    : K) r1 N9 H  t. ]* R/ |1 m( ~: Q8 M  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
    2 u. ?1 }5 h/ f2 n% o3 E. D  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
    2 ]9 N! ]( y) p% \8 d. O  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]) s9 _1 [! ?$ \8 L' D
    }, Open  ]],
    1 `; R8 K! D7 G
    ' W, H5 m; d- QCell[CellGroupData[{# f: O1 o: e2 I9 s
    - j' `( ~! i. {- m* @
    Cell[BoxData[: |+ V  f1 l& F9 Q
    RowBox[{"Delta1", "=",
    ( k/ k" H# d7 {3 u% {4 j  StyleBox[  v2 i0 R! B, {) d9 ]# H" x
       RowBox[{"97.40909103400237`", " ",
    5 y6 F3 `( \0 _    SuperscriptBox["Delta", "8"], "  ", . d; j, S* d3 P
        FractionBox[* R6 @- V# n7 s. Y  i- H9 e! o
         RowBox[{"1.7724538509055159`", " ", ! `. Z0 d) K# k# y( L" N
          SuperscriptBox["\[ExponentialE]", # t9 k: H- ^" Q, \& J
           FractionBox["1.1102230246251565`*^-16", ' U- P+ o0 S# f: v
            SuperscriptBox["Delta", "2"]]]}], 9 T9 X) Z( Y8 [) i: {
         SqrtBox[* w9 \; r8 }( K( U( e( e$ a
          FractionBox["1", % x4 P* ^3 v0 Y. x7 u
           SuperscriptBox["Delta", "2"]]]]}],3 Z/ }" A. y# a- B1 s% w8 t
       FontWeight->"Plain"]}]], "Input",
    : G3 K) ?& Y( C; m8 P CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
    2 S2 T; E( k/ V$ k8 f( l/ [   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
    8 o+ p' E/ y( L$ r   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
    4 z! r" r. i$ w   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
    7 k. K" o! }3 s0 R( K   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
      L: G$ A8 L$ Z' M9 \   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
    / I4 O9 H  X5 u5 F9 |6 O% ]" A
    , `% q3 b3 u- R- h% K/ d* {" `Cell[BoxData[, B- R, d) F" F  t# Q
    FractionBox[
    " n7 E9 W. h. S+ [6 m2 P! ]6 x- ~, R  RowBox[{"172.65311851642346`", " ",
    ' f: h9 Z- [% o; B   SuperscriptBox["Delta", "8"], " ", - l. \0 G5 x9 D$ c1 P
       SuperscriptBox["\[ExponentialE]",
    - C' e2 H  _" q8 [5 o, F# H7 m    FractionBox["1.1102230246251565`*^-16", 2 ~2 o) d4 W+ C7 h
         SuperscriptBox["Delta", "2"]]]}],
    + p, a# J7 ~* Q+ S  SqrtBox[
    0 T3 N4 D& y$ q, f: A& M6 s5 l   FractionBox["1",
    2 J1 j: _, ], v" B9 N    SuperscriptBox["Delta", "2"]]]]], "Output",
    : x: a7 [# x6 `0 j CellChangeTimes->{# {9 H: R6 f$ `& _& f
      3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, : B& J) f4 x1 b: L- @
       3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
    . d" i# a+ M' K) o   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9, ! y2 u6 T3 m/ T
       3.578012166234375*^9}]' W$ Q; i- \2 u  S8 t* `
    }, Open  ]],: p! K7 J- c) a+ E  u/ g+ n& z$ N: {
    / q& ]5 e" ]  Q+ q# n# Z
    Cell[CellGroupData[{
    9 u3 G. V* P) ?6 m, i2 Y
    * H& {6 D7 R8 p; JCell[BoxData[) q) {' H# }1 O, U$ n! _$ v
    RowBox[{"DeltaX", "=",
    0 d/ o/ U( m4 o& _% o  RowBox[{"FindRoot", "[", 3 S; \6 o/ y3 J/ ]) T
       RowBox[{) v/ k! U" ~$ f9 N
        RowBox[{"Delta1", "\[Equal]", "1"}], ",", / V6 x/ r8 @3 S, R+ x" @
        RowBox[{"{", % L0 T) c! s1 q9 u' r# f0 O
         RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
    - P- r% h1 K( P# _ CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {% l; i. D  {/ o# A. W
       3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
    6 t  S$ V8 D3 b( f, W   3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, % z+ f; \) E6 H5 i
       3.57791921584375*^9}}],8 q+ p+ |  p% S
    9 M+ s: j$ y3 Y; q1 ?
    Cell[BoxData[
    8 q9 Q8 n+ Q5 b, n) u+ Z RowBox[{"{",
    # X) a* k7 L* [5 J) e  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
    % v0 H  K# @2 Z, `* G" d2 c CellChangeTimes->{
    3 S0 C- }" w. E# y; i  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9}, " U. O; v. m  _1 u% @6 _" B+ `
       3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
    2 ?6 K+ F" U- q+ a& _   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9, : a4 g9 z( _1 k# n
       3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
    , T: H4 [* r# w$ s5 a6 E: Z+ O   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {, V7 Y/ o; b& V4 |5 U! F
       3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
    : D( ?0 }- P& I3 O' |   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
    ( ?, b& ?( G  _9 d+ z, O8 k$ i   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
    , Z6 s+ V1 P0 g% s6 }! p   3.57796070150625*^9, 3.578012167703125*^9}]
    / F5 o; ]/ K; y% Q. e- c9 d}, Open  ]],. H# y3 C; [, Z( l
    * X2 u9 s8 g* @3 o# J$ G. n
    Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
    , A% P7 p; _; J9 k2 n" f$ v' x- ?\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
    , p7 ^- i6 u5 }$ p' i3 ^$ ` CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
      F& [; s, X+ e7 N1 V  3.577960705312657*^9, 3.577960707621461*^9}}],
    1 t7 d" e  {8 B0 r+ O: s- f& R; s" g6 P" O: I
    Cell[CellGroupData[{+ V; O2 e5 d' s& F5 _
    ! N, Q. I; L+ B* v/ I5 `
    Cell[BoxData[% k4 s) v8 w0 N# r4 {: B
    RowBox[{"C1", "=", "Ca"}]], "Input",
    / K8 P/ x' u5 ?# k' s CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
    : K8 s6 g- n2 ^. l; J( l2 Y
      A' ?' J  w4 h' c9 lCell[BoxData[
    2 k' x" s' L3 r RowBox[{"{", + P" l! G; k: _! |( F  U- W
      RowBox[{7 I( C% U( G/ @3 Y- [9 \4 }
      "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
    1 p, I  [% D' L/ B/ Z   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", , \+ i7 V: r- Y( w2 W' H3 [" g
       "0.`"}], "}"}]], "Output"," w1 h, ]- V" Q+ o4 y1 U, P
    CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, / ~: K/ V6 n& e
      3.577960710273465*^9, 3.5780121855*^9}]
    * r+ N# }* w# Q$ G# M) N}, Open  ]],8 D  R" m1 j4 D1 a; K: i9 R

    4 u' `5 f! ~5 F1 h/ X5 DCell[CellGroupData[{2 V  c$ B: K! G$ L" t! q1 l
    4 R( p+ L) e3 O8 o. y" g& V$ D
    Cell[BoxData[' Z3 z5 t4 O4 ~. C
    RowBox[{"u1", "=", / @3 O& W& }0 u1 U2 X
      RowBox[{! O5 n+ n8 |0 F9 D3 j* C5 l
       RowBox[{"Exp", "[",
    : U3 p: r2 u5 u    RowBox[{
    : j2 f3 i( G0 c$ O* q. Q     RowBox[{5 J* C; X. f5 s! r
          RowBox[{"-", $ @9 C; j/ H6 S  C
           RowBox[{1 o) R! v" K* }+ n
            RowBox[{"(",
    0 q. \* C( ~) c. ^  e0 k         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", & w, j, j& G) e% ^, n& g# z
            RowBox[{"(",
    # V2 t# z. z) H  |# e' v, M/ y1 S& p         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],+ f- N, C4 K; z1 e3 s* u# S
         "]"}], "/.", "DeltaX"}]}]], "Input",
    / X% s. c8 V/ _! y! b; C8 W, n% ?/ V CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {8 u5 e' x: l9 T( u4 q
       3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {5 D' Z- o6 _8 y' Z
       3.577919193484375*^9, 3.5779192326875*^9}}],* ?; Q' M  _1 ~0 V+ ^2 a- y) t$ |
    , X& H' K: I/ l1 }
    Cell[BoxData[" ^. X; ~5 X" c5 f' R- o
    SuperscriptBox["\[ExponentialE]",
    2 c4 l' }: f# z2 O  k( B5 e) a, C% v  RowBox[{"3.141592653589793`", " ",
    ; z2 w; i: O4 H+ L' i# o# g   RowBox[{"(",
      t. w) b$ j+ n+ O0 @& o! g  b' H    RowBox[{
    . P+ \+ ]- V' u+ ^     RowBox[{"-", 2 K- p7 ]+ `* B5 L! o. S8 O! x
          SuperscriptBox[7 I( h; ?* p: X: y, E% [2 z
           RowBox[{"(", 0 p! n9 o  K( m% q) ^' z4 h. v
            RowBox[{
    4 p& H/ u1 C4 y         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", % Q, M7 ~$ X. D3 [  r$ j
         SuperscriptBox[
    . ~- N" w2 F8 }2 H      RowBox[{"(",
    ) a+ p* q5 X# Z7 ~" }6 _- G       RowBox[{- e3 G9 s# [6 e3 G- M. \  X- M
            RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
    3 G. ?, s  M/ o, y. k3 h: ]7 m8 y     SuperscriptBox[
    + s2 ]4 i% O% l4 n9 N4 d      RowBox[{"(", ( {4 _7 K0 L9 F) u9 d' [* D
           RowBox[{" M0 S+ Q$ ^& F2 i/ Y; H! U$ \
            RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", ' k$ a7 g7 `  h8 g
         SuperscriptBox[! m' m4 l6 @$ V' {0 X: y" ?
          RowBox[{"(", 4 R6 g( M( }# m- L4 a
           RowBox[{$ K) k2 n, k  p8 g
            RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", 2 L0 F+ u# @  r% W3 T
         SuperscriptBox[7 @% \. I, l, I0 |( J+ ~* C: Q$ }. \
          RowBox[{"(",
    # T3 H) ?: U/ c# \4 V3 r       RowBox[{, v% ?0 V% m0 d( f: r
            RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
    + m1 I  H" Y4 {  y     SuperscriptBox[0 w0 K' V6 O: ^/ m) a
          RowBox[{"(",
    1 c' U1 L, W3 P) N9 ~' B       RowBox[{
    / y1 B5 \+ C# {; v/ a9 H) N( M        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
    6 s: L* B0 _  m1 [     SuperscriptBox[
    , E+ b5 ]: e# N6 p; O3 E0 n      RowBox[{"(", 9 L1 @) |; @- K( Q
           RowBox[{
    2 w, W  Q% T: l4 f        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    # `$ d8 ^6 u. Q% j     SuperscriptBox[' D- u+ r3 E+ E8 I6 D/ E
          RowBox[{"(", ' `2 R1 A- k( ^- ~) A
           RowBox[{& b3 g" A1 o' U+ X2 ~2 Z
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", $ Z: U. F2 }+ h
         SuperscriptBox[
    " x) Z% ?. g1 k4 K4 c  ]" z- |      RowBox[{"(",
    & T1 N8 O9 i* n       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 4 n5 L$ s2 X: u. |
        ")"}]}]]], "Output",- \$ \" C6 [2 v( ^. U& [) [
    CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9, + g# U! H5 C0 N3 N, Y9 z
      3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, $ b# [$ z/ @0 y$ U- o
      3.578012187078125*^9}]
    ( W" Q6 D8 e+ t, B, K}, Open  ]],1 a9 B/ `- N/ ~3 P8 t" F

    8 ]; [) W% }& U4 y. i/ j/ `Cell[CellGroupData[{/ R- Z! c; O5 r2 N) C+ m# u% \1 ]& N

    ' @9 r1 T1 \9 L: s& _; ECell[BoxData[
    1 G) ^& z0 j2 L5 C% X6 C8 D- d5 g RowBox[{"C2", "=", "Ca"}]], "Input",, V- R* n" l5 [2 q+ j8 y
    CellChangeTimes->{3.57792047321875*^9}],
    & \3 _) ?2 B+ N( A+ {' ]3 Y
    ( u5 M3 p* v2 g8 @Cell[BoxData[3 x' Y2 c# g' C
    RowBox[{"{", 1 q1 i5 j) W0 x4 v
      RowBox[{" m6 |+ M! c6 V0 U; E
      "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", 9 d4 y' G/ v/ V! {- w* g- F& g0 e8 N
       "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], ! {" q0 n5 r  m. w
      "}"}]], "Output",, g' i- c4 p- k" D/ h
    CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
      Z" s' a1 g8 u: E* t% Y  3.5779607401163173`*^9, 3.578012204671875*^9}]
    ; T, M  s4 {9 |6 o& E( b}, Open  ]],9 p% A% ?+ o; r9 _
    ) V3 y4 G& c. P
    Cell[CellGroupData[{
    * [/ m8 ~5 C" }) ^9 G- _4 U% {  ^( u
    ) X; G8 k5 s$ y' K2 w  M. [# sCell[BoxData[: @' p7 |9 O+ @6 v1 ]( k# O! _
    RowBox[{"u2", "=", 2 h) ]2 ~6 D" ]; e) M+ ]
      RowBox[{: U9 W! U6 `# _3 ~5 y  t
       RowBox[{"Exp", "[", 1 Z$ i1 \+ E/ j: g% W+ T- F
        RowBox[{" w) E: r% l6 e. }$ H; @
         RowBox[{! z& O6 k0 j. ]" O* U8 j
          RowBox[{"-", , N: v/ O& A, K7 _3 \! i
           RowBox[{. H/ g0 t5 ?  {# G: X' O, p
            RowBox[{"(", 0 u$ s1 l' I% R
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", , D# r# m  q3 o3 x+ U  c
            RowBox[{"(", . \0 t3 G; e& C
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],3 Z5 s, I+ F5 H3 a( p5 I
         "]"}], "/.", "DeltaX"}]}]], "Input",& k) D3 [3 U( ]$ ?$ @1 `
    CellChangeTimes->{3.577920484109375*^9}],& [2 w9 Q7 x& d: n: |

    6 ], H0 W) V% F3 X; ]2 ?( V, _$ sCell[BoxData[
    4 g# H' f% {6 o" w SuperscriptBox["\[ExponentialE]", 0 S3 c. v- q) K$ @8 {  r, T
      RowBox[{"3.141592653589793`", " ",
    9 m* s+ |: Q! C$ n# D0 S& G   RowBox[{"(",
    4 Z6 T! Y# L# ]" Z. N% Q) P# l    RowBox[{' u* a; ~7 }2 c/ \5 [% f
         RowBox[{"-", & {4 m7 w. _4 V4 \" N" j0 h+ ~
          SuperscriptBox[3 Z0 j1 o5 u) ~3 H$ _& K* ^" f
           RowBox[{"(",
    , F$ ^  ?. {* R0 c5 s        RowBox[{
    + o  e% h/ S2 {1 F' F2 d         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", ; P3 r/ U2 e6 ?( ~; q: e4 P) F
         SuperscriptBox[9 g7 @; \2 P' _; k4 L5 }9 j9 T
          RowBox[{"(",
    - |4 F% C/ p) M/ k       RowBox[{
    . Y0 s8 C; B7 w) t5 y        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", 4 `0 i7 b7 t9 C; X$ ?
         SuperscriptBox[
    7 {( O( I1 b  c( Q: n      RowBox[{"(", ! B/ \; `: ]: ]0 e
           RowBox[{+ ?, c$ n+ J7 O2 t  B
            RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
    3 G. ^6 t- n# b' Y5 f0 {% h     SuperscriptBox[
    : M0 O( ]9 |2 m. I6 U      RowBox[{"(", 0 D  y/ i1 ~  a! e
           RowBox[{
    9 K. T  z# v! r' k) ]! T, K        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", 0 W1 W, c8 j- {$ R$ N. q
         SuperscriptBox[
    & G* b# a0 J/ c+ o      RowBox[{"(", . M; q% I5 o# ^2 w5 `5 h, z
           RowBox[{
    $ g2 y- m1 g5 |: N        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    , V; t4 N  m' ^) @% s; k; o/ Y% G     SuperscriptBox[8 Z4 M7 l. H( e+ D2 o" m
          RowBox[{"(", 9 W+ A: w# m! I, R* N+ I9 s' w) G; q. t
           RowBox[{" c1 I. j/ a! J: F9 Q/ _
            RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", ) |# v; y0 g+ b' h. P# w! O
         SuperscriptBox[
    7 _9 D$ Y4 v( G5 T" t/ ]      RowBox[{"(",
    4 F0 B+ |9 U- `5 t# m7 p) }       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    1 |$ r+ \' M* O0 c/ c     SuperscriptBox[  A1 n8 C7 b/ _0 W
          RowBox[{"(", ( d! c- K- i' z& @/ B
           RowBox[{5 Q5 }. g: w) D
            RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
    $ r& U) t$ \: z; K6 F     SuperscriptBox[3 k5 S4 h0 L* B* d# T7 Y
          RowBox[{"(", ' a+ }, P8 o& s2 ^. [
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    : d( R  L! ?0 D9 z) t* z8 i5 }/ q    ")"}]}]]], "Output",$ L9 q! T  ]- I( F/ L
    CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
    2 l% P% Z( {( R3 w5 K! u  3.5779607413955193`*^9, 3.578012205484375*^9}]
    $ o& q. j7 A% k9 R}, Open  ]],
    9 _# z& Q  N! R. G& R: s. }; \! [1 s  A0 k
    Cell[CellGroupData[{. P3 L5 f$ P: N4 d+ Q: c6 B' t

    ) A" [9 c" J  N3 B) jCell[BoxData[
    * b4 j3 x& a: C" z! I# J RowBox[{"C3", "=", "Ca"}]], "Input",
    0 t, L- X. Y0 @4 `& F7 A CellChangeTimes->{3.57792064125*^9}],
    $ z1 r4 l0 C/ [2 p
    4 E3 A; `1 G. C3 @9 u( M4 ~Cell[BoxData[
    4 ?1 @+ y, }5 L9 V# D RowBox[{"{",
    7 b" M6 m1 P% p& I# C9 A  RowBox[{
    + O* u$ o. V9 W& v' T  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",", 5 a' \9 i6 J1 j8 F- x, p! u& x
       "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}], 9 p. N! K, T/ @6 d! O8 L3 y$ C. s, z% D
      "}"}]], "Output",/ s* V+ W* q, ^: X/ `
    CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9, " h3 R) P1 Z$ g+ c6 z; I
      3.5779607642027593`*^9, 3.5780122103125*^9}]
    , Y# D5 l" e& V; s1 n; ~" o1 i) O4 v}, Open  ]],
    - W; {( y: W; \9 Z3 ?1 I  e, D  q2 }; j" Q. K
    Cell[CellGroupData[{
    2 }3 s' L. {5 s9 B# ?# Z# f$ B6 h  Q- M4 ]) w  y- \
    Cell[BoxData[
    ; w1 l6 [% O# {3 c RowBox[{"u3", "=",
    8 p, x, N5 }' Q5 j' o+ f" q& U  RowBox[{
    . O& L% q0 m3 Z2 s   RowBox[{"Exp", "[", & g% l# l0 L' F1 x' Z: @& f% a
        RowBox[{1 s' h: k; }! s' H; ]. U, |, z
         RowBox[{( I0 J7 M' [  S5 O/ ^
          RowBox[{"-", # u3 y* B% G5 I9 ^8 K
           RowBox[{+ U6 D2 X) c) `1 @  [1 t4 w
            RowBox[{"(", 3 U5 e9 [0 g/ L0 f
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", % C7 H! l8 m2 p: S* l  D: ^! f
            RowBox[{"(", 1 E( |# N! k; p
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    % f5 L) W5 a2 ~# H8 e5 c7 x     "]"}], "/.", "DeltaX"}]}]], "Input",7 a5 n: J6 Z2 m  j
    CellChangeTimes->{3.57792064921875*^9}],
    ( [3 k. S9 V) q0 i' X7 a  c- \/ ?% |0 i  G/ i
    Cell[BoxData[, a& K  f/ B) J/ ~
    SuperscriptBox["\[ExponentialE]",
    6 U, d& C  _  }  RowBox[{"3.141592653589793`", " ",
      z+ Q1 N) _- N9 U# Y' y' V; E   RowBox[{"(",
    . }6 g/ j6 U" I9 Q9 f0 D    RowBox[{; f. R. v) K, U7 K8 W/ P* @
         RowBox[{"-",
    - Z: l6 q3 j* L. w; B% e2 {7 `      SuperscriptBox[
    # f4 v4 W" S2 Y9 R1 {8 R7 G& g       RowBox[{"(", 5 v' I/ \$ Q1 }- F9 Z( `0 I6 U
            RowBox[{
    " e# S* b9 N6 Q2 {- g1 j         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
    " t3 w; _9 t" g; ?  [& e/ Q& j     SuperscriptBox[
    4 D7 q6 u" P( |& t      RowBox[{"(", $ `4 l$ m' ^4 v9 z
           RowBox[{
    5 M, `' _/ J3 e  a$ t) T        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", ' r* I7 l' V; `! n' _+ }
         SuperscriptBox[3 C- B: K1 U" M
          RowBox[{"(", 2 [5 M& Q! Z: a1 c& q; X5 G
           RowBox[{
    6 Q* l4 F6 x( [$ V9 x: s        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", + r: p0 d+ P7 y, c. @- {
         SuperscriptBox[, `7 E' |- ]. C0 x# x" ?8 u
          RowBox[{"(",
    & N6 {9 j! V- c/ w) K       RowBox[{4 q. B$ T* X3 {4 Z. t: u
            RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
    $ H% F, Q5 n, ^+ B; l+ `     SuperscriptBox[+ f2 T, H5 @* f( \- J9 C6 X" V& I
          RowBox[{"(",
    # B& F/ e+ R+ S1 ^3 O; `       RowBox[{% `) w4 i7 [1 c$ M7 D8 W/ Y/ y# I
            RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
    : V1 Q# H7 E! {8 g     SuperscriptBox[
    " z* ^% V1 G; `: p4 \) a      RowBox[{"(", & `! t) l  z; C, r9 T
           RowBox[{6 S. `! a2 v+ s) j# ^
            RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
    + s" f+ u* U5 i% ]4 C& x0 j$ m. U% _     SuperscriptBox[
    ( o. l9 R& k. F" @% v      RowBox[{"(",
    5 B* l1 j0 V6 e' C1 t  D3 S) C. F       RowBox[{3 x7 ~% F, \' {4 P% K1 U! J* H
            RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", * f, s/ ]) r' ]: \! ~# G
         SuperscriptBox[; j2 H3 k6 _. l4 d" E8 u
          RowBox[{"(", 4 _+ `9 ~& J. f. t* P* Y; b$ r" p
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    $ ?8 f) O( X- i2 `4 |     SuperscriptBox[
    " ^2 B8 E9 p! F6 d- [5 ]5 F+ b# S. ^2 e      RowBox[{"(", ( w- z- Z. `% s. \
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    $ k2 Z7 K! [" r% a6 w4 l4 z    ")"}]}]]], "Output",
    ! w, Z. W! _* v# t: z: e' q CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
    & a' }3 L% a9 g8 r$ C  3.5779607654819613`*^9, 3.578012211515625*^9}]
    4 z" E. n4 d$ v6 U/ L4 A# p}, Open  ]],
    ) O/ M* Q+ g: U- d' h% K- u
    & P3 K- b8 g& U! L- o! ECell[CellGroupData[{
    # p/ T  w& j% s9 P9 W2 D4 o7 y* P1 D5 ^
    Cell[BoxData[
    ! b0 ]. Y+ V$ p9 _' k RowBox[{"C4", "=", "Ca"}]], "Input",
    ' t# Z: {# V" Y8 p; u CellChangeTimes->{3.5779207559375*^9}],
    8 b. m& ^' }& @/ Q: c+ P9 H
    6 R+ ~4 M) @6 g7 R6 jCell[BoxData[
    : C$ [' _7 W. b+ N/ E RowBox[{"{", $ R1 v1 W1 x* K# h
      RowBox[{
    ! p7 x* S6 y4 O9 l; U0 A/ w- G' E  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
    6 e$ w, e. q2 a9 x, \, o   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], + A- q9 s; a. ~: |. N# Q* y
      "}"}]], "Output",
    . {. Q' i" n* H: H4 ~  m CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
    ' h, i. n' M/ a- v! ~  3.5779607861363974`*^9, 3.578012216171875*^9}]
    , U1 }( X5 E2 U* K( B0 M}, Open  ]],
    - P  \% H* @% ]0 l& x3 ^, F* P9 l( n
    0 L! z' E7 h) {" m4 u$ NCell[CellGroupData[{
    1 X2 Q/ a1 N$ E; R' w1 f
    " X1 f6 K" l  h0 gCell[BoxData[
    2 L* v, d; f+ o. `; b$ Q) G3 z$ n( F" e RowBox[{"u4", "=",
    2 l  S9 E! l4 M# t  RowBox[{( Q7 k+ T# N  f6 u, C/ B- |8 r2 f
       RowBox[{"Exp", "[", 2 L9 `) \; f( }' W
        RowBox[{3 Q4 c: ?( h0 ^) t- n, ]8 V
         RowBox[{
    1 {4 o% W; {, @8 T      RowBox[{"-", - P# l' G* z% J# C) f/ F
           RowBox[{4 b2 Y3 R8 n; U
            RowBox[{"(", 8 k  U: @$ p9 E  o% g' D
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ' n& h7 d! S" s
            RowBox[{"(", % T, s( C  x0 {9 Q; S2 D
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],- @. E+ A5 X9 G" H9 |8 |( A8 e
         "]"}], "/.", "DeltaX"}]}]], "Input",
    8 |( w1 G7 T& z2 c CellChangeTimes->{3.57792076325*^9}],
    ) N; r/ `  i! u* A0 m; d
    & Z. N" c/ Q/ `# \( b, U9 M6 l( tCell[BoxData[, q( G3 [( V- n8 f. K" i! D' M
    SuperscriptBox["\[ExponentialE]",
    . a  y; Z7 J$ _- A  RowBox[{"3.141592653589793`", " ",
    , o2 H* w3 o2 n/ `! y1 U# N   RowBox[{"(", " K6 r1 o% c3 y$ y+ W  g
        RowBox[{
    5 N% I0 k5 g! |! S     RowBox[{"-",
    9 B# K0 R3 \/ t! p      SuperscriptBox[
    / A0 `) H4 r* j+ i+ ~; Y       RowBox[{"(",
    # C1 ]% \/ R+ A6 W        RowBox[{5 w: r+ {0 b  b3 m  J5 p" b
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 l5 @. w: r; Q! G
         SuperscriptBox[) d, P  W7 L1 s/ z) n/ \
          RowBox[{"(", , r' d, S/ b  }
           RowBox[{" ?7 t. ]6 f! }( c3 @. v8 Q( g. a7 `
            RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
    7 P4 O+ N5 O5 Z. I" m     SuperscriptBox[" P4 @! |& b5 [5 J; z; a
          RowBox[{"(", . q, l- c# K! Z  s$ r& ^1 i
           RowBox[{: G1 o3 T, t4 o+ o* F5 I+ T4 `
            RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", . V: `7 U1 n& H/ B% y
         SuperscriptBox[6 O: e) {! E9 f1 S' W
          RowBox[{"(", + \  @$ m1 ]: t/ p: m/ y& k' k' e, N# {
           RowBox[{
    $ ~8 `$ U' I+ l( _. q  S        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", . @% o5 [4 R$ l2 ?3 E
         SuperscriptBox[
    $ K% X2 l8 k% L+ A      RowBox[{"(",   U) {' ?, r6 {6 u: j
           RowBox[{
    5 Z! G4 W. F0 S2 v7 u& B        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    & J+ J0 A& n7 k. h9 G     SuperscriptBox[; y& @9 m$ H/ _6 g% t0 y, e* ~
          RowBox[{"(",
    3 ^2 j+ A) a. r/ o& Y  N4 G       RowBox[{! Y& N5 X4 M1 U& f" I
            RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", ) I8 O/ H+ J$ K1 }% O4 r
         SuperscriptBox[
    9 [0 g. Q& O& Z      RowBox[{"(", ! E- K& E0 ]$ Z/ q3 H" d* P  z' }5 [
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 9 M% `) h' f/ U& c
         SuperscriptBox[' _" ]! E; }7 X# _7 R! y
          RowBox[{"(",
    ( K9 \8 p$ b" m: o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    + M+ T, D; k3 B& H5 N! r* D     SuperscriptBox[
    3 }; b! w" f' p% J  d7 T) M      RowBox[{"(", ' n2 {9 k' Z# v! R
           RowBox[{+ S/ \/ ]- }) t! R
            RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], * U% I+ `# c6 u- o% h1 l. B
        ")"}]}]]], "Output",2 Q! b1 x9 P# G7 w
    CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
    , ~$ ?: x0 ~8 J  F; E  3.5779607873531995`*^9, 3.5780122169375*^9}]
    5 k2 ^6 u' u$ x4 ?8 _7 f9 O}, Open  ]],
    " ^, o* r" a# n0 ?& h7 z2 t# o7 a  i2 A! n- H6 Q5 T8 A8 q1 u# P
    Cell[CellGroupData[{/ V. E5 \( c0 T" X) w+ C0 T/ [! k* K
    4 a/ z3 \; ^  y' `) S+ \
    Cell[BoxData[
    , w$ ]7 q8 I1 x6 a5 b RowBox[{"C5", "=", "Ca"}]], "Input",  I+ o6 F) ^" c& `0 Q5 F
    CellChangeTimes->{3.577920860671875*^9}],8 v+ U/ ^$ X2 j9 P# A1 C9 H" T4 X! e
      `# U1 ^5 x: M4 g- N
    Cell[BoxData[, c1 _' G) [. g/ j& c% j# g
    RowBox[{"{", 1 M) x8 [4 C& s4 M" U7 B
      RowBox[{9 l3 B; {$ l' i9 {. }* e3 \' ^
      "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
    4 V( B- b$ h: {0 h6 ?1 a   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}], 1 C& @5 {6 L* t) q' ]
      "}"}]], "Output",
    8 g. h7 _/ ]1 @# o" |  q CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
    . M/ E9 A  z$ G, a  3.5779608137328453`*^9, 3.5780122209375*^9}]
    ; e+ o% p3 v; j+ E4 y}, Open  ]],( i, R! ]0 x) ?# D$ l! j9 R

    , \, Z, g7 w. {; S$ ~  m  B1 I) b  O: XCell[CellGroupData[{
    ; H% c# n! H% Z0 _1 R  n  ~# g. }4 n8 [8 H  x# D) H
    Cell[BoxData[
    # D' F& x9 I& ?% _ RowBox[{"u5", "=",
    / m" p! g: _1 R1 n  RowBox[{  T9 s) K8 f/ N! `
       RowBox[{"Exp", "[",
    ! M' q& F2 ^- t" E0 i; X" {0 _    RowBox[{
    9 P' d  M% y# a( [2 k/ ^4 D     RowBox[{
    + {: m, V" A6 X. P$ h8 x6 F/ l7 N      RowBox[{"-",
    8 }# N! V* v+ Z' T) F" f8 Y       RowBox[{
    5 A% o0 X1 G! w        RowBox[{"(",
    ) w5 W* F! C2 M$ D3 h         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ! e* L6 L  F! s6 ~8 h        RowBox[{"(", 3 B! t& _( x6 p
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    - {5 e* I- ~! O     "]"}], "/.", "DeltaX"}]}]], "Input",
    + _% P: {2 T6 J) i CellChangeTimes->{3.577920869375*^9}],
    $ ~9 s! m, f3 T1 w, g/ S9 u5 U& [0 R$ [/ e$ T
    Cell[BoxData[& w# W, c* f  T& m9 \( A
    SuperscriptBox["\[ExponentialE]",
    0 z7 Y- \* v3 D- J9 s  RowBox[{"3.141592653589793`", " ",
    ; a9 d" H$ J. M   RowBox[{"(",
    / X8 z. f: Q! h! j- c' \    RowBox[{
    , K- y+ i# _. ~2 _9 ]     RowBox[{"-", / |" c1 q# n" |( l9 ^$ s3 P3 _6 c
          SuperscriptBox[
    * c0 D9 ]5 f% ?; T       RowBox[{"(",
    " m4 @- {7 e* w# I" \        RowBox[{
    . j% n9 k3 c. r2 O. B9 B         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    $ |9 t' n1 }9 X' v: w     SuperscriptBox[
    7 ?8 u) K. D: @5 d0 Z      RowBox[{"(",
    . y8 l6 i( O1 P+ b       RowBox[{5 k; Y7 |" d/ w  i" G
            RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
    9 Y: J/ Z  Y% _5 M. E. `/ R     SuperscriptBox[
    ; A. j( i) t5 b% J$ r! ~3 d, e      RowBox[{"(", + r  m- H6 ?5 u& v7 o
           RowBox[{
    % O6 e! x/ p2 J% r( I        RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
    2 W' T( f  U! E) p     SuperscriptBox[0 J4 F& f4 t: z7 C; G( C. d
          RowBox[{"(",
    7 x' g4 D& l  M       RowBox[{9 Z1 m' ~5 p7 m1 c8 Y
            RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
    + j; m8 M7 K8 i5 o9 t. b: r* u7 ]! V     SuperscriptBox[
      r. g; ^& D. h7 o$ h4 V$ L      RowBox[{"(", * g- g. {" m" M7 ^% y# r6 s
           RowBox[{' g( j4 w( D- K9 x# |. p4 B5 M3 f; v
            RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
    - |) ], _5 C0 C5 u1 q5 o9 K2 x     SuperscriptBox[+ k" }: f* Z  a" c6 k; `- K; c
          RowBox[{"(", 3 N! c3 z$ K0 c# |
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    2 m! j9 C( W+ p     SuperscriptBox[4 X' C. R- a& v2 Q8 C6 @. i
          RowBox[{"(", ) `9 P; U  e& {* [4 A
           RowBox[{
    3 _7 n: e5 L/ D. r& j& w9 j3 |        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    + u0 g, t0 \7 F# Y* A     SuperscriptBox[
    2 F& O' O' _) j      RowBox[{"(",
    , ~  c5 m" t+ _+ F       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 0 ?5 k, i6 U1 L8 L
         SuperscriptBox[+ T! z6 N. O% {
          RowBox[{"(", ; \, I9 A- J; S: J
           RowBox[{
    / q* W, r0 `( x! F1 H        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
    7 S- s2 a" D) z4 M& F    ")"}]}]]], "Output",
    ; E: t3 y/ d( |) q" J CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9, 4 E. M  N2 E' q' y
      3.577960815043248*^9, 3.578012221953125*^9}]
    1 p" F$ w7 Q6 D}, Open  ]],
    0 L% U/ I' Z$ O, K6 w9 w$ ?  l/ {: y
    Cell[CellGroupData[{( A* b9 r" Q/ R
    ( e7 g5 {" T8 W  P2 ^! v8 q
    Cell[BoxData[7 m- ]# K* [4 z* S
    RowBox[{"C6", "=", "Ca"}]], "Input",9 ]5 x( ]2 a. Z
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],. k6 c' Q8 n" G( `
    9 b; d9 C! g) `4 @( g
    Cell[BoxData[
    : S6 ?/ D+ V" Y! J9 S RowBox[{"{", $ B! u% x, O% Q
      RowBox[{
    0 V4 S/ ~( y0 z0 G" }  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", 2 I+ j* a, s& i; ~
       "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", & `* G3 [8 J, q- M
       "0.494866`"}], "}"}]], "Output",# \$ J. r* d/ ?
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,) D. L# V$ H, k1 g% y, N
       3.5779608373044868`*^9, 3.578012227359375*^9}]
    " w7 o& T* r# n3 R- `/ i) C}, Open  ]],0 t4 i" X/ Y" S0 F  d

    + I  P4 Y/ X: p; X! |7 j8 [) HCell[CellGroupData[{
    # u: {  t1 g. o6 g8 H7 d! l% N7 s- E' O9 }  h9 j5 f
    Cell[BoxData[& q9 T  E9 {7 z* f/ C* I
    RowBox[{"u6", "=",
    : j7 t# C: l( y  @$ Y  RowBox[{( t" U3 A3 E3 U7 Q: x5 ]# S
       RowBox[{"Exp", "[",
    & U& A& \1 Y# h( ?) D0 J) f& w5 ]    RowBox[{
    # l, G! i3 P6 A+ {) E0 O" D! s     RowBox[{4 l- r2 c, Q; a" G2 `& `2 ]3 u- t- p
          RowBox[{"-",
    4 m# `; y, K  A- d) K       RowBox[{0 u* e; v$ i4 k7 X/ I5 U
            RowBox[{"(",
    # e, j6 @3 D) e4 X         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - M# v/ q. ?9 \
            RowBox[{"(",
    : \! h3 w. [: T6 A& O         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],5 n$ F8 ^* s+ q& L. F' _* H3 G. l
         "]"}], "/.", "DeltaX"}]}]], "Input",
    ) B1 S# r9 g3 r+ }; x- s CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],/ U/ J$ s; C+ l- E

    : _) _4 ~! G4 \* M! XCell[BoxData[" H7 b% `$ o2 |9 ]8 s8 b
    SuperscriptBox["\[ExponentialE]",   c; N2 m8 N9 u) C
      RowBox[{"3.141592653589793`", " ",
    ! D4 W+ C0 L3 `. Y" W+ L   RowBox[{"(", 5 w' A: R. D: y5 q' y( Y, Z. q) F2 w, [) {
        RowBox[{
    5 m& h. J; X3 c  l0 ?$ M     RowBox[{"-",
    ) a3 b& Z& g( W      SuperscriptBox[
    / i9 `5 ]% f( i- l       RowBox[{"(", 1 J8 j' t, H: M  l+ p( e2 f
            RowBox[{# n# r9 Z2 @0 [2 W, s  r: @" }
             RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", ) A# r) L$ Z" ?
         SuperscriptBox[
    " I" `4 B0 C9 n* Q5 x4 z      RowBox[{"(",
    3 p1 c9 {. G. p- h& x3 h1 H8 S       RowBox[{
    7 g* [- H  Y' ^- B" f4 b        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", 0 a/ u( f& G; j; ]! z0 W7 G0 o
         SuperscriptBox[
    ' V& e" N& c: V# Z: m: ?5 {      RowBox[{"(",
    8 e: y% K( m2 C0 {       RowBox[{# `6 q3 f6 f& Q
            RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
    ( A8 V& S- Y! I2 r- V& g     SuperscriptBox[6 T& P+ _% N% Z' x
          RowBox[{"(", : j1 O# `  Y7 I$ N/ }; f+ p: _
           RowBox[{( `- b3 u% C$ g( T4 Q
            RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", 8 ~1 i3 z* G( D- s# Y' _% O; e# ~
         SuperscriptBox[
    7 C4 Q# B  @: _" p0 a$ v. w9 ]      RowBox[{"(",
    2 O- L, h0 ]( V: v  s2 v$ `       RowBox[{# X* }( Z" R  F8 {/ v' R
            RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
    ; q: M" l% o3 p6 T. B     SuperscriptBox[8 J; i( `4 q7 m9 L
          RowBox[{"(", ) A' n6 U: A' C
           RowBox[{) w$ R' v! j# z8 z3 H/ r* U
            RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
    0 o. B4 z4 H3 e' x; o     SuperscriptBox[
    4 x5 U9 ~# k( x9 J1 l8 ~      RowBox[{"(",
    $ R8 S' T0 B' k       RowBox[{5 h, y( u: _% _! D8 V' r
            RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    " J7 ?: Z: u, w0 d     SuperscriptBox[" @2 u( u9 Z! K) q
          RowBox[{"(",
    2 a0 c/ f" {  Y) F. N4 k       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    : E6 i5 i2 B/ E* p! W+ }% ?9 k     SuperscriptBox[) L. i( \7 k0 `% ]. }6 ~
          RowBox[{"(", 9 b4 E% ]+ Z* s5 A' N
           RowBox[{) ]# I& b% b; ?7 V
            RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], + A+ i$ a" z0 T( H$ G2 k  l
        ")"}]}]]], "Output",8 l( |8 e; o' Y1 y7 @
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    7 B! M! _' ]4 K* ?! D, R  3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
    % X; p1 w1 `4 m}, Open  ]],8 Y$ U6 G8 O" ]8 U

    5 @/ `6 E% L8 E! h' O+ NCell[CellGroupData[{
    ) w2 @) d! e3 ~, Q) m) ^" z
      {% d* `* X$ v3 y5 NCell[BoxData[/ z* Q# G) @" u3 ^
    RowBox[{"C7", "=", "Ca"}]], "Input",
    : _. a) _" }8 c  h- B( |+ u/ H CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, % c6 \" q+ y! x- b
      3.577921316125*^9}],
    4 I- ^$ `8 @9 L7 I2 Y1 U- K9 C4 R" r8 k: M& {4 u/ m' o% n2 z
    Cell[BoxData[
      J9 H- a; Y# H2 j/ ?6 m5 ? RowBox[{"{", 0 i5 w$ m6 _7 d
      RowBox[{9 Z$ p" d4 k$ y# H. ~
      "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
    5 c. t9 _. Z! u) X% K' E. B   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}], 7 v# o1 I+ B. ]$ b7 p9 ~; J, `
      "}"}]], "Output",3 U/ _/ H& `% J0 {  r! ?4 [
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 5 x# d1 @- P, p" n8 }" W7 r
      3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
    * u% Q9 X' F: v+ X. y# }) j}, Open  ]],; Q2 K6 u* L' J$ ~$ ]. f& l3 g

    ; _0 k6 y4 J6 ECell[CellGroupData[{
    & t  p) z6 {/ o! ]
    ! U- C- ^. w6 u% n, |Cell[BoxData[
    + ]+ A& v" Y# n& Y( ~ RowBox[{"u7", "=", : C* [7 E% {9 A
      RowBox[{
    7 t0 v$ n' b  r9 ]   RowBox[{"Exp", "[", " @5 E3 B# H6 v+ y4 M  m
        RowBox[{
    3 B# t+ @* F3 K     RowBox[{/ @. p1 z# i; a. K! e
          RowBox[{"-",
    9 d2 e3 ?% i/ X) I/ |# a6 F  S( [       RowBox[{2 Q" e4 z& X" Z0 O1 V
            RowBox[{"(",
    8 `7 l* L1 G- q+ N% J         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    1 ^6 R8 D" u, u6 M0 Z! g        RowBox[{"(", 9 r6 z) F: |1 M' j- s# s2 T
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],( W/ V5 M* T1 b6 Q6 S1 P
         "]"}], "/.", "DeltaX"}]}]], "Input",' M( W# S% l) x" Z4 [
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, - B9 l! W* Y& t3 L+ h0 Y8 t! g# f
      3.57792132028125*^9}]," v/ K0 P$ Y6 L& X0 B9 H% A6 f
    4 S2 b% v6 x' ]/ c2 j
    Cell[BoxData[
    ' f; f& f% w' m- f3 Z+ S8 j  F SuperscriptBox["\[ExponentialE]",
    3 x. s" k7 x1 i* e; O1 i7 W0 R7 M  i  RowBox[{"3.141592653589793`", " ", 4 N( i: [* R2 F9 W7 ?, F; R
       RowBox[{"(",
    3 F1 _* U+ i7 D& V5 h3 F2 \    RowBox[{$ i% y$ u1 i, |1 D' X
         RowBox[{"-", 0 C% d2 E5 ~% N, ^/ h0 T
          SuperscriptBox[6 @# g" f# k6 n' b  ]2 Z2 d
           RowBox[{"(", $ P7 T# U# ^$ M7 S! d1 L
            RowBox[{7 W7 G9 @8 w$ S3 t, z6 C
             RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
    : j/ {) s1 r. L- N3 c4 T/ n     SuperscriptBox[
    $ Q+ E, J0 A, Q0 K; r      RowBox[{"(",
    . L: q; M4 s- W% T7 F       RowBox[{
    7 p3 X9 v) Q* L7 k& Y$ B        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
    . I- A3 s, h( k7 [- S1 d     SuperscriptBox[6 v8 f% o0 ]* D9 ^, h
          RowBox[{"(", . d4 }% U- p' |2 v" v' y
           RowBox[{; e- d3 p& t  ~1 F  M% K
            RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    2 f2 @) o3 O/ Z" Q. R9 G7 y3 e9 m     SuperscriptBox[5 J# z$ T: K* i: y
          RowBox[{"(", 5 \& A; F6 N3 p8 l; H
           RowBox[{
    & B( M" j/ A3 W0 R        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", - i9 o8 |9 q3 e) V
         SuperscriptBox[2 K- M5 @, A$ p! G- K! ?
          RowBox[{"(", 9 T+ S) q7 V& E5 d! G9 o8 f2 y
           RowBox[{  Y- ]2 i- H3 B& M" l) J! F& g: V& I
            RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    ! T' q& F! s& Z% ~     SuperscriptBox[
    " h$ r9 U# [' t9 j  I) ]      RowBox[{"(", 2 e. P: k, p9 ^3 T$ I- }! u- O
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 1 H) a7 _4 k; ~; [# v
         SuperscriptBox[5 Y/ ~: c- \2 r; X8 E+ K
          RowBox[{"(", 5 d* V' I$ w# V& g
           RowBox[{
    $ v+ e6 x$ a2 j+ X- u8 ]        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 2 _$ A3 l' f$ c  ?4 E( x
         SuperscriptBox[
    . e% T& I5 B5 `( \0 [) ^      RowBox[{"(",
    5 r7 U. f% E# k; \) [       RowBox[{" F: T( T! I2 @# @( R. z
            RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", 2 W. m3 x3 f( R$ v5 [6 m: u& X& L
         SuperscriptBox[
    8 ^/ Q) y6 f! x4 H3 ^+ n; I      RowBox[{"(",
    & X$ t7 h; a' F8 U: \  l       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 9 `, Q0 v% {6 _' c
        ")"}]}]]], "Output",2 f+ i: U" X0 x) B
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, # s7 B) Z- D) u0 K2 j
      3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, 7 ?7 e6 _  p" W1 Z1 \
      3.578012251359375*^9}]0 s' L( K, H7 A# C4 [$ }
    }, Open  ]],
    / ?- ~4 W& s  U, x0 g( E& A+ ]$ C
    : F9 P# n" M' ]8 H3 `Cell[CellGroupData[{2 D5 E8 `9 d$ a1 r* ^5 K

    3 `6 l& K) }  Y5 s3 zCell[BoxData[/ {) B) |6 E! C+ Z5 Z, _
    RowBox[{"C8", "=", "Ca"}]], "Input",
    6 B4 Q& [* H5 h7 b! \- S CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, ) j% ^& \4 g2 U1 l- c( v
      3.577921316125*^9, 3.57792141421875*^9}],
    4 ?% P( l* f: y- m9 \9 R, _) ~6 s4 n/ ]% e" `
    Cell[BoxData[
    . w1 {- S5 E" r- T RowBox[{"{",
    ; D' W. P+ k# D$ R8 I  RowBox[{& e& {( |2 Y5 J
      "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
    8 q3 q7 o9 R/ d) Y* d4 o# Y' l$ z   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
    " V/ p* T( e6 E' J2 [8 h, ~  "}"}]], "Output",- \3 _2 h' E4 e
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    ) B7 w6 z% ?9 |3 o# u  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9, 7 M4 \- R" F3 p9 I
      3.578012260515625*^9}]+ b' h0 @. m1 q5 d8 }% g3 a
    }, Open  ]],
    0 P& X% J0 F; g% v* `% ~
    ! \  ~, |7 f5 j; lCell[CellGroupData[{
    ) p2 N- ^4 Z! m# Z% f" r$ l: ~: r  W2 B. y/ \
    Cell[BoxData[7 Y# B- n2 d" ^' H
    RowBox[{"u8", "=",
    & _- Q% v7 X& `0 h  RowBox[{
    + j# g  p2 G' v* m   RowBox[{"Exp", "[",
    9 n- B) ]- X# \3 o    RowBox[{" B0 s/ x* K+ r0 m$ e: j+ Z2 R
         RowBox[{
    / n, v6 n3 a- _      RowBox[{"-",
    3 W% @# T% @, G3 H0 }" O       RowBox[{- x' l, `; N1 c0 x1 f3 U2 f
            RowBox[{"(", 6 i' A) N) a% M3 ^8 u7 o
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 7 }( s) a* r& @" n" l6 z
            RowBox[{"(", ( m2 w- j4 a, {$ E; E& f2 J
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    " o& [. H. c# C5 o     "]"}], "/.", "DeltaX"}]}]], "Input",
    % O1 u, Z" v( l CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    0 e; E, E; f9 |% o* _  3.57792132028125*^9, 3.577921416921875*^9}],
    ) Q6 V( ^' K( \" N
    4 J! A6 G4 D) d- a) ?Cell[BoxData[
    , I2 k2 Z% R, z SuperscriptBox["\[ExponentialE]",
    * X0 w, q$ \7 W; L! _$ J  RowBox[{"3.141592653589793`", " ", * f2 U1 H1 ]6 j  ?
       RowBox[{"(",   J- K: t- d- u! I
        RowBox[{+ s/ ]& ~/ H( s$ _- s
         RowBox[{"-",
    # J9 O1 K, h1 l5 {6 V      SuperscriptBox[2 w1 t- S# y: p: y% b2 F* ]
           RowBox[{"(", : O9 U, [3 y; g& c8 k
            RowBox[{/ c' o9 s6 ~* A- b8 t
             RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
    - z; n" x; n" e( \     SuperscriptBox[" \# \6 p+ y% x' y
          RowBox[{"(",
    1 R9 D; v' r8 ?( M6 b8 Q% l       RowBox[{' [  P% b( m9 b7 w5 D7 G
            RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", 3 m5 @* N( q9 r( t2 i4 z" X
         SuperscriptBox[
    ; y* S+ U/ Q5 c2 I. w& K7 e      RowBox[{"(",
    - c$ z+ z& p  ?, ^8 P# J2 o% B$ v       RowBox[{# t& V3 V9 G8 L2 t! M
            RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", 2 [: `# I: _& Y6 ]7 ]
         SuperscriptBox[* t7 `2 ?+ W  v4 A# d/ e" _
          RowBox[{"(",
    0 t4 A' Y6 _$ R' v' M1 k0 v       RowBox[{
    , T" i6 m/ g3 U) ^  a        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
    : P7 g. n3 X; l1 q# Q& h3 d     SuperscriptBox[- D6 r# Q5 |& z+ p0 L; J$ q( j9 G1 I
          RowBox[{"(", 3 |9 Q" P. {1 ]# m2 E
           RowBox[{
      B3 w7 A" @- [        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", 1 ^9 N5 O# ?& d# Y1 ?
         SuperscriptBox[
    4 P! [. ?7 X) t: t$ O4 |' a! Z      RowBox[{"(",
    $ E3 k# c! P( D# p- p8 Z5 q2 S, N/ T       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    3 D1 ~% u  S6 E" `: P( E4 {     SuperscriptBox[+ I9 l: D5 R& u6 ]7 g: ?
          RowBox[{"(", 9 ]/ K0 Y/ Q  e$ d" g" Z
           RowBox[{
    9 F9 _$ |. L" |! Y) }        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", 0 o# A8 }  H' M2 I9 @" i, z
         SuperscriptBox[' {) M& K# t/ }2 b; _( U
          RowBox[{"(", 9 v6 d+ M$ p: D! |1 X  O" i
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    . B* l6 y- Q3 {% Y/ A% w$ R) c     SuperscriptBox[
    ) j; x) j. E/ ~$ ?5 x9 R" ?. b0 ^      RowBox[{"(",
    ; W- S4 |6 R0 F; P4 y1 K3 M# `# S9 ]& N3 f       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], % J8 ^- Z" e$ B# |8 e# D5 S
        ")"}]}]]], "Output",
    # _6 [9 [& t+ D7 i CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, - \( C3 j6 k% p7 {  g* v; a( _
      3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9, + P& n. \$ F0 `( `, w0 w
      3.5779608945565863`*^9, 3.57801226165625*^9}], t0 M) }8 b7 t3 q4 j/ c' p' g
    }, Open  ]],/ v# X. W, E+ X& Z+ d
    * d% D! A2 g/ |2 d* n9 ?
    Cell[CellGroupData[{  z" a# X/ C# r# f' ^( d( G
    4 X3 [/ L' L3 V5 Q
    Cell[BoxData[
    3 Z+ q1 ?; K  c: T1 i, d9 M RowBox[{"C9", "=", "Ca"}]], "Input",& p3 e& g* }& r
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, # y% K' J: C: }2 G
      3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],: s* U; G1 o0 \, G5 O- R/ n8 K7 z

    + Z  x) n) C7 K3 ]Cell[BoxData[
    7 |# a! E9 N% ? RowBox[{"{",
    3 G' e! y% x  m7 e7 F4 d* j  RowBox[{
    6 d6 U* \' O+ ^/ _2 K: Z# ?. {9 k  x  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
    # ]% u: w+ c, V   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], # ~( D9 E+ o9 y4 B* I* W% _# c3 k1 ^
      "}"}]], "Output",
    8 ^0 D5 k( ?  m9 N CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, " S; C3 `+ y8 T7 i7 z3 }- m
      3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, 2 F* e7 B( {0 ?) E* Q9 p* r
      3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
    % i* T; E4 D( v5 R* w( \  3.578012268234375*^9}], @0 e7 E- L( g; B1 E3 g
    }, Open  ]],6 y" r; l# q+ b+ j) F
    1 w& x2 O% A; ]2 u* M4 L6 v% z* a
    Cell[CellGroupData[{( m+ f4 R& A1 D( i

    1 t0 k9 p5 U, H9 D' o* zCell[BoxData[* T8 C6 L7 a4 }( r4 C% J
    RowBox[{"u9", "=", 7 ~4 G6 a& r* K, e6 X
      RowBox[{
    # A* I; Y* y0 j   RowBox[{"Exp", "[", . s6 `+ l7 g; G' Y3 i
        RowBox[{
    % r4 v; H$ z, _; w( F     RowBox[{
    % c% l5 V" a! d; d; v" q$ T      RowBox[{"-", 0 o0 F$ @; ~, [- K
           RowBox[{  @- e2 |2 C4 d# P2 ^8 n
            RowBox[{"(", ' c' |" E0 U  s4 f- O2 L2 G# d
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    9 v+ _: l' [4 D. z1 J( y        RowBox[{"(",
    / }5 v) J) x7 q& i! [1 W- G         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],/ P% M1 L# ~7 E/ A  S# \
         "]"}], "/.", "DeltaX"}]}]], "Input",) y" [4 b; j1 R2 I9 a  O3 N
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    8 E" k6 y. ~, M' T/ _, r# f  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],  m: ~/ y" }3 p, J" z! i( G5 ~
      Q7 p$ |7 U$ \
    Cell[BoxData[
    " i/ ^2 W; A: ~; ~/ z SuperscriptBox["\[ExponentialE]", % Z+ g" V7 Q- m$ s
      RowBox[{"3.141592653589793`", " ", / ?/ V8 @5 r2 f' Y
       RowBox[{"(",
    - A  _" |% d4 y* H( ~( K    RowBox[{* @5 y8 J( z- p2 S& v, b+ A+ Z
         RowBox[{"-", . t7 |9 S/ N  v, x/ Q
          SuperscriptBox[& V3 |; C6 b' p
           RowBox[{"(",
    * b% `7 B1 E$ d, B# E        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
    ! _2 t9 S1 A' B) z. o3 G     SuperscriptBox[
    # b: P  K0 f9 Q3 ~+ }1 c      RowBox[{"(",
    9 u9 n6 }& ~0 l* @8 z3 I, K$ X% m       RowBox[{
    ! R8 n" _! H! a! A% o8 L        RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", ) y& t. v: s$ o' y8 E/ U, M
         SuperscriptBox[
    2 S+ z2 J9 Q7 |" J8 p      RowBox[{"(",
    1 M6 k8 \' \4 ^( r( y: ^       RowBox[{
    - X# x6 k  j6 v5 ?        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", ! F& y8 Q- k# Z$ J6 S9 L1 c
         SuperscriptBox[& h2 j# g9 i. b$ v( d1 Y" v) G. [' s6 [
          RowBox[{"(",
    7 \7 S: ?2 {  D0 Y5 t- N       RowBox[{
    & C. ^: a7 m# E        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
    9 P9 i: P% D9 E     SuperscriptBox[( P+ M0 {& e$ ]( ^
          RowBox[{"(", / U) Y4 x( l5 B( b
           RowBox[{8 `; t0 C7 i) {, J; c
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", + V! X7 ~" B: L) g
         SuperscriptBox[# X9 p: D: A4 Z- q/ n  x% q# K
          RowBox[{"(", : H& a! b) _* m& l
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    7 i0 i1 s, }, h% n     SuperscriptBox[
    % i. ]! Y, l  e* x      RowBox[{"(", ) r. w; U' Y$ o, A* {1 ~
           RowBox[{
    % I1 G$ A; n. d6 g( S" x. C        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    4 l7 |% T+ K9 F# l4 G/ b/ m" S     SuperscriptBox[; }1 h& G% K- {* m% C
          RowBox[{"(", 6 y& I" x; t6 @3 m* M! @: Q1 m8 k
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    6 Z# h9 g4 m0 W/ U2 U( h     SuperscriptBox[. Q) u$ {+ |3 E; E8 S& [. }" c
          RowBox[{"(",
    5 e* l& V6 B/ N       RowBox[{& c& H3 ]& Y! s  Y
            RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
    + e* S& f5 e" {4 H    ")"}]}]]], "Output",8 P  C- J9 ~! _2 I# s- L
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, . \% |, r( |" f% ~. m5 m  j
      3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9, 6 w) F( o( O) o5 p2 t
      3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, . b2 L- L* f" [9 b2 ?
      3.577961530421959*^9, 3.578012269125*^9}]
    3 ^# i4 X; l: H* D7 G( M}, Open  ]],
    ! E" Y- r0 r  o* C, m7 k: _0 n, N7 w& u8 K7 U7 P
    Cell[CellGroupData[{
    ' Q' ]" w5 i1 |& W$ ~  _% p- `) |+ j& K2 \  g
    Cell[BoxData[{- Q  e: A* `7 X. x' k
    RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
    , ^( t3 e8 n. O5 R- b2 g" c: d RowBox[{"u10", "=",
    ) F5 ^; k1 a0 Y' i* z. h) q/ }  RowBox[{( `1 e/ I- t4 @
       RowBox[{"Exp", "[",
    0 o7 W4 h! M" D: y3 o* @: a    RowBox[{! c3 |8 _; {# ^* g; a$ T
         RowBox[{
    $ E3 i9 Z* U) `      RowBox[{"-",
    " C" R. f; H/ @7 }+ g  u+ J* }       RowBox[{' ?+ e; M5 Y( V2 j. `) b5 e
            RowBox[{"(",
    , W. x" r( \; ]8 N" z5 t         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    , M5 _1 T7 Q, {/ w4 m        RowBox[{"(", ; }* j6 \, t0 f. N) R- r
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ) M. E# ^# T% ?# p; f1 ?     "]"}], "/.", "DeltaX"}]}]}], "Input",
    0 F( b$ f3 }: z- C CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],: y; H. n  J: I+ q
    # u( h- {6 ]: N" }
    Cell[BoxData[# S6 x: @6 Q8 i+ _4 m+ ]
    RowBox[{"{",
    % {1 M0 ?% W/ p/ M, b: D  RowBox[{
      `) ~8 E1 V: ^3 T3 o. g  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
    ; T! j8 z+ j/ G; b. z% D$ q( P   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",5 m+ I( S9 @* `  y# y
    CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],% g0 _9 E0 M6 n1 Y3 e6 a

    & a6 C7 I+ Y* m8 CCell[BoxData[
    * j$ V0 w  g2 c& ?4 o3 M7 U! ] SuperscriptBox["\[ExponentialE]", ' u, s0 ^, w4 X: \+ [3 h6 V4 ?
      RowBox[{"3.141592653589793`", " ", , ]4 I( b5 F- z
       RowBox[{"(",
    0 M* s. W6 v1 e; ], y3 O  W    RowBox[{
    & c& v' V5 s/ _     RowBox[{"-", ) z# W" E7 T/ G7 L
          SuperscriptBox[6 L- W, h* G5 V2 @+ t
           RowBox[{"(",
    9 I" d' f. @( l' g        RowBox[{
    8 W- s2 z  @- g9 V* i8 k& x5 N# ?0 B         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 l! ^- \6 @' W8 v7 |# _) w
         SuperscriptBox[/ d4 R+ S+ @# A
          RowBox[{"(", / v/ F! e# \6 l' {+ R9 d( g& L3 C: i
           RowBox[{4 d& E7 w: p4 o% p$ n8 I
            RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
    7 s: }: S% E# @- a6 r     SuperscriptBox[
    # i7 P( |) J8 K& o' b      RowBox[{"(",
    3 r0 B" ]! W3 t- \$ l2 J1 T       RowBox[{5 m( C3 p1 |; R0 Y) m
            RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    8 N, j1 G) N$ ^     SuperscriptBox[
    5 u* q& H( F' m4 _$ [4 u' |      RowBox[{"(", ; ]1 K* v' S' k5 D4 G+ M. @
           RowBox[{* P3 \, D& W, f3 E
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", 4 A- \4 A8 {% G: v  }; z" ~
         SuperscriptBox[5 M7 w9 ]6 M+ G
          RowBox[{"(",
    6 J: B4 d: O/ o! t" y) e       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", & F. y9 o0 N4 X  R* R
         SuperscriptBox[
    0 i  _6 b- y2 Y3 M# B1 o/ p8 }9 ?7 O* D      RowBox[{"(",
    % x( O" k1 I* N7 D2 e" T       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    6 Y" {2 q# Z. ~: J8 \1 ~' {     SuperscriptBox[- M4 \4 A% v5 ^  X$ ~6 L9 u# }
          RowBox[{"(",
    - ~9 x9 y3 B9 j$ c) G8 w       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 9 r4 k0 R7 G2 k: O' V
         SuperscriptBox[0 r( B4 e5 T7 U' w: p2 c' ~
          RowBox[{"(",
    ( E5 [  b' F4 K4 I6 b       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", - z, J5 F" ~  a! L; L6 x$ K
         SuperscriptBox[. i! x+ P( b  j+ t* i
          RowBox[{"(", + U- X2 z% K5 z% x" }" O; [2 b
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    # m- i4 j% {- k" v6 p    ")"}]}]]], "Output",- K9 g: S7 T# |7 s) O5 ^2 X- o
    CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
    8 B8 T* ]/ z) K8 I7 L}, Open  ]],
    ) C, R! I3 z) ?4 c4 @5 V* [/ n& X/ l5 b. f
    Cell[CellGroupData[{- I0 ~6 b- F  `. m$ Y
    " v7 [. b. R- d2 F" ]* C# M
    Cell[BoxData[{9 f' o) b# D- T" J; ?+ U
    RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
    * k7 K' }1 f! W2 X RowBox[{"u11", "=",
    7 o* ~1 u3 K' h' Y4 j  RowBox[{! E/ n# A& M; [8 g+ n
       RowBox[{"Exp", "[", ; y7 E- ^: P$ l+ L+ p1 ^
        RowBox[{' m) u5 W$ `# u2 J" j$ ^  ^
         RowBox[{
    0 j# R2 S' O7 R6 f: c, d$ F" W      RowBox[{"-", 9 b  G$ F! e8 i
           RowBox[{7 }$ A. ^% z5 c2 I+ D1 }8 ~
            RowBox[{"(", 3 w  N1 j% R( i# S3 F6 Y) u" |2 R1 l% u( _
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ( |" A0 O& b( |5 x  i# ], ?9 R
            RowBox[{"(",
    + B0 _! h. t& S2 p1 d         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],: {8 _0 }( a9 A+ Z
         "]"}], "/.", "DeltaX"}]}]}], "Input",' i! s2 }3 b# K1 o
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {3 |4 ~& ~7 N/ i; P
      3.57796154237158*^9, 3.5779615434011817`*^9}}],
    " u# L6 U- \, q
    6 @" o) w) ^' ^1 ?Cell[BoxData[7 o) |  `. p9 [. A
    RowBox[{"{", ) d  q' o7 O' x) _. f3 \
      RowBox[{
      e9 Q4 O: }' F+ p" I0 U$ z% k  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
    7 g+ j, E5 S. o' O   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 2 V  b+ `- \, l0 Y% S/ F
      "}"}]], "Output",
    & u! S1 ~* V* U  _$ J( \! D/ ~' P CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    / z' O, _- E; \& O  3.57801228203125*^9}],: J$ e% J) C8 H, q& O1 `. b

    ' _/ ~  d/ P" V+ K  Q3 YCell[BoxData[
    , p) W9 z6 x8 V2 J SuperscriptBox["\[ExponentialE]",
    9 h$ g- H' s( t# P1 n' q  RowBox[{"3.141592653589793`", " ", / |4 C6 s) a; M6 @% [3 t
       RowBox[{"(", % K- j% H( }( b. s3 W0 Q' {9 X
        RowBox[{% z. E+ x) V# j# E. _  f0 I% c
         RowBox[{"-",
    8 O: W' m* o' i  p7 L' V      SuperscriptBox[
    0 S" S; M. l$ r) ?. r       RowBox[{"(",
    - Q9 J: N7 D, f  K        RowBox[{9 l7 {- T! e/ \) [
             RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", * m* e; T! d( X
         SuperscriptBox[
    4 [& N2 t; @) m; k      RowBox[{"(", , x$ l* |/ P, R& S4 U
           RowBox[{
    * F! d. d% y1 F5 L; Z$ y        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", ! [) N) e: k1 N& p( Q- ?
         SuperscriptBox[8 Y3 K: f6 l. _4 j
          RowBox[{"(", 5 _5 x+ E  P6 q3 t" z
           RowBox[{" ]' s8 }  a8 t8 U
            RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", " X# A7 Q  v! s# O$ m* x
         SuperscriptBox[
    & |; }# C$ b+ \. [- e      RowBox[{"(", ) ?7 }* |7 ?; t5 t1 G: G
           RowBox[{
    ) s: R1 W! c  T        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", 5 X& V& N) n2 {9 W# T
         SuperscriptBox[- P; y1 U0 n: U) F  Z& [
          RowBox[{"(", . k9 X2 P) N2 O5 D! B7 G
           RowBox[{
    - z& j- [8 S/ Y8 o) E$ \        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
    3 M( T( m) s  Z9 a     SuperscriptBox[; U$ N" R" g9 z4 j" Y* c
          RowBox[{"(", 2 ?0 H9 j0 ?4 M$ k9 Z+ ?" X
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 8 F3 K' R$ J' w* h5 y& {( I4 J( D
         SuperscriptBox[
    - [2 F" x- _6 F      RowBox[{"(",
      j$ ?3 M, O3 N* P3 s       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 9 n9 V8 h2 ?4 o- ]) C& _6 u0 ~
         SuperscriptBox[5 T( s7 R8 E7 B0 G6 z) G
          RowBox[{"(",
    7 @& x" [8 W- a' `) b/ k2 W) _       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", + d9 I* D6 C9 n
         SuperscriptBox[
    5 _# \8 t0 o; f1 u. ?, z      RowBox[{"(", 2 T5 F  c! b! H$ i4 b. A3 q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 8 `. Y) {+ w& B" D1 j4 I
        ")"}]}]]], "Output",
    1 H, x" K( ?* S0 q CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    7 h# H8 Y. P$ R( D* B! o  3.57801228203125*^9}]
    ' @- L) ?% n2 A& [# D, F}, Open  ]],. L5 z9 W8 C4 \) j6 _1 D: P+ q5 C% [

    0 L& P+ C/ N5 UCell[CellGroupData[{# P5 R9 W2 z8 n. T: B9 W
    3 c/ \& E! U; g7 g" M
    Cell[BoxData[{
    ! T' u5 _+ u* H+ X8 Q/ o+ d" v0 B RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
    5 \; C8 r) w8 Z& z. A( ~! p3 z  \ RowBox[{"u12", "=", - T! U( \' e3 E) V( [# C
      RowBox[{
    # G* M7 j1 f7 w" f1 M4 ^- L   RowBox[{"Exp", "[",
    & H1 l* v0 a' g& K# t    RowBox[{, e2 O. J* A$ G6 [; M+ E
         RowBox[{1 f3 d) Y( m5 i% J, l
          RowBox[{"-",
    7 o7 V" p1 i. \3 w* g! \       RowBox[{
    . }+ H$ ~* E2 f" X& t  R        RowBox[{"(", 2 s1 w9 {. u. n5 @4 p7 C! r- p
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ! ?. T, i- w5 j
            RowBox[{"(", ; i7 z6 [- \- F. v7 P# d8 y
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    " s. @5 S% p- [- {8 Z( r     "]"}], "/.", "DeltaX"}]}]}], "Input",
    , e7 h9 a& y: t8 S( B" G& f# z% F CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    $ t; \; X, H- z, ~5 Z7 }0 j  3.57796154237158*^9, 3.5779615576284065`*^9}}],
    % `9 i5 Q! {9 v8 y$ s! N, T# ?7 N  U7 m% z0 E
    Cell[BoxData[
    1 b1 P' f7 a9 `. h RowBox[{"{",
    4 L3 z* T- M. r6 R( n6 B# \& O  W  RowBox[{2 }9 \1 [& S5 o' ~/ r0 u
      "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", 4 E* {3 A! B- f) b( R# A# Y: G
       "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}], 3 J8 b* x2 r  _* D- X! G4 x
      "}"}]], "Output",
    4 g7 e! e% G1 |8 j CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],0 i" d9 s: Y5 l) w% F% j$ K0 u' ]

    ! `& K. L2 X6 `0 c4 ^# a1 }Cell[BoxData[, }+ I4 W5 c* V9 X# l
    SuperscriptBox["\[ExponentialE]", 3 {" s; y; J2 G( S% D
      RowBox[{"3.141592653589793`", " ", 2 a* U0 w+ b0 j
       RowBox[{"(",
    - C* ^  ?( X! j" Q" V6 T9 J/ p    RowBox[{, f3 |1 Z4 j9 A7 c( \1 u7 b
         RowBox[{"-",
    * s; x% ?# H/ c' M      SuperscriptBox[
    & a# L& ~8 j% L) Z  \/ e: P1 ~       RowBox[{"(", , e, A1 ]" ~4 o4 l1 [. z7 F# ?2 ^8 g
            RowBox[{1 P+ _) z7 y" x2 S# P; E
             RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ) ?. G3 |: R5 ^, e* w     SuperscriptBox[
    : E% G, L9 ^' d4 ]      RowBox[{"(",
    * }! X+ d" W- O/ z& L2 e  V5 c       RowBox[{& d% ~0 H1 k' P: \, I- K, g4 A
            RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", . z1 t8 f7 g: r4 p' ]( B: }2 d! W6 N
         SuperscriptBox[8 X# i  q2 g4 G* W6 A
          RowBox[{"(", 2 w, T* U) o/ j. k. V) m7 I% V
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", % P0 F$ K; k, y( n7 S
         SuperscriptBox[6 S9 y: t- M9 h* E7 o! E
          RowBox[{"(", ) g8 @& P9 x2 a
           RowBox[{5 e- w( B. n1 _9 ^4 m& C$ E
            RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", 9 ]& G: B* R" D! {( }- V# \
         SuperscriptBox[, q2 f1 u# T/ F7 N# A) @# k
          RowBox[{"(",
    ( j! @# E0 H4 n; t1 X; `2 o. m/ O       RowBox[{
    & b8 E  r$ ?2 c        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", & x0 ?% }* T0 u
         SuperscriptBox[
    ; r/ O. g# e- Q      RowBox[{"(", ' b7 z& t! u1 `* B
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ( {7 p& t. T- B3 g( |& x
         SuperscriptBox[
      n: ]# K7 D3 N4 p( T      RowBox[{"(",
    2 x* K. p4 K. i- j  f  ^, p       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    8 P) `0 C" u- A5 z' a     SuperscriptBox[+ Q& ~5 u- R9 f3 G; m! l
          RowBox[{"(", : \% C8 z/ Q: @5 H2 Y( a, m! m
           RowBox[{+ |. O0 u/ [% N/ o
            RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
    ; H1 ?8 v" E  `" q7 y& G* F1 }     SuperscriptBox[6 {* |3 O( C4 o+ f
          RowBox[{"(",
    * x% p- y9 [7 S) @7 i       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ( E7 m- y% z8 W* r. _1 O5 p, T    ")"}]}]]], "Output",; Y) T$ Q! U" h/ g# @6 T; i  P
    CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]" ~1 g  G) D7 h4 L
    }, Open  ]],
    , L- o8 n% J' C5 c/ _( K7 v1 e' z  K8 ^' K$ K. S8 @" n6 N, b
    Cell[CellGroupData[{0 x- X& `  K3 A
    8 L- ~9 t) H+ U) A$ E3 O! T
    Cell[BoxData[{
    5 {+ V) v* e; V$ [ RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]", & u; n, j- G- Q6 |3 f+ p+ ^5 t
    RowBox[{"u13", "=", 8 M$ B( L3 L$ s2 I2 J; N# [
      RowBox[{
    1 V  y! G3 \3 a* B: |" i   RowBox[{"Exp", "[", " ], y- j( s7 ^6 s+ [
        RowBox[{$ I) _/ `- n: v3 ?: f
         RowBox[{2 Q3 n* u: ?( K% p" P* j
          RowBox[{"-", & Y7 G2 P' H/ }3 Z, M- T' M0 D
           RowBox[{
    0 a: u8 L* z+ P. X3 s        RowBox[{"(",
    * F) O- C, k9 {% s# q" ^8 r4 G+ i         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", # ?9 m5 y6 E+ D) |7 L2 g
            RowBox[{"(",
    , c8 _; a0 W1 W) F: J1 q0 v& w         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],  W6 O/ o# k% f6 w
         "]"}], "/.", "DeltaX"}]}]}], "Input",$ U& H% v- c% u1 J  m) Y! D
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    . `; f' }* y; H0 o  3.57796154237158*^9, 3.5779615599684105`*^9}}],) d& H+ J/ k' X2 ]9 s+ @8 A
    . x6 f" _: q& c* z
    Cell[BoxData[
    3 M) h3 J3 v4 A$ J; m RowBox[{"{", # ]* T' H! y+ N+ F4 |
      RowBox[{
    , |2 f1 }0 D  w8 Q0 _. a/ c  {  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",", ! @+ [5 O3 {" @$ C" @; `2 d# K
       "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
      k8 O5 x) t/ C$ N3 f0 R% x  "}"}]], "Output",0 p* \" J3 j. K- O5 g
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],; @! B! C0 p* F8 G" {6 O
    / K+ \/ S) Q7 H- l5 z8 {
    Cell[BoxData[
    " ]2 ~* [  g% [/ w6 S SuperscriptBox["\[ExponentialE]",
    0 V- K" F+ o: O/ d1 S/ \# i  RowBox[{"3.141592653589793`", " ", ( `( ?( @: S* x# O- n+ q# M
       RowBox[{"(",
    : H/ H" X& k1 t5 N+ c    RowBox[{7 \( a3 r+ ?: p, ?
         RowBox[{"-",
    1 ~* K$ c) k4 h% \3 d9 L) O+ A, X      SuperscriptBox[" A$ q+ }' G& K) l7 b0 X% p
           RowBox[{"(",
    5 G$ V% ^1 B/ a/ p+ k6 N' {        RowBox[{
    8 M/ a. k/ w, e# ^* j. E         RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", % {# k1 c3 p4 m7 c" ~: X% f5 A
         SuperscriptBox[: f( E8 s- k; w9 X7 J, S0 r
          RowBox[{"(", 4 O9 `! h* Y6 R7 G* A& m
           RowBox[{
    ! E& w" w7 F% Z( A& g        RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
    2 |( k, A! U2 E& Z# {     SuperscriptBox[8 o  k- i- p9 y" @" W6 D$ J# @
          RowBox[{"(", ( a$ K' g, t# a* J# u8 x- ^' [+ q1 n
           RowBox[{  e6 n. K2 a# _
            RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    ( @( K# R% `% L+ M: b. W     SuperscriptBox[
    ; w9 E0 w( `; p; n      RowBox[{"(", ) P4 ^& q+ d6 u, U
           RowBox[{
    7 t; p9 ^  E2 y5 r( Q: D        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
    ' x6 `: ?* T7 o/ f     SuperscriptBox[
    * x8 G$ x& n# j2 s( b      RowBox[{"(", $ U8 X2 I! J$ N
           RowBox[{; B7 q, a0 m6 u. \3 f
            RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
    & x2 x: E4 c4 l4 R1 v     SuperscriptBox[
    1 U* J+ ]* r" ~4 l2 L8 L      RowBox[{"(",
    9 P. l1 I# `& {' a( _- d  i       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", % p, \, C: B6 Z
         SuperscriptBox[! c! W$ X4 V. ^( D4 M3 M0 G" H
          RowBox[{"(",
    $ v  N6 }5 C" C# D& J       RowBox[{
      Q* l! X: T" V  E. H! k        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", 7 q/ U! o' W4 G1 G8 G3 L
         SuperscriptBox[& D0 Q$ o, c7 \
          RowBox[{"(",
    ! r) v  I" }: c2 b, N       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    " F& R8 U9 J. ^4 o     SuperscriptBox[
    7 A9 `$ O+ Y: }# C4 z  C2 N4 Z1 L      RowBox[{"(",
    , I" ?6 R( Z) G# t3 e# B; o- N       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ) V7 i9 T& g8 {7 ]- ]3 E6 k    ")"}]}]]], "Output",
    ! h+ _( O1 w$ T' @1 n. ], }) C8 I! M6 `# J CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
    & z  J+ A. p- M' {  w7 g$ ]9 l}, Open  ]],
    ) l  w" W) a8 @4 i0 B9 t- _+ z: |# S0 c2 H
    Cell[CellGroupData[{
    % F9 A0 E5 |5 y' d
    3 ^/ K, L* s; C, U. S5 T. nCell[BoxData[{
    7 u1 `/ A8 L4 W3 `. w$ b RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
    ( S; V4 e4 s$ J9 @ RowBox[{"u14", "=", ; M' G! e& v. D8 C5 i
      RowBox[{9 ~: I( D+ j. s# H3 `
       RowBox[{"Exp", "[",
    ( j  F+ V3 Z: n# P$ @7 P) p    RowBox[{2 |" T2 A2 ~- P6 h) ?9 ]+ U! H
         RowBox[{
    : s  X; P% I8 r+ _1 {7 G      RowBox[{"-",
    / p) E: M2 _8 L; j' V# a* p" e       RowBox[{
      M$ i5 l- \7 h        RowBox[{"(", 4 n/ w3 s% x% m2 P& z6 o% T
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
      \5 i& ]' j9 p3 E        RowBox[{"(",
    ) r+ X; b. U, h/ a         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    - g/ x8 N. R6 ^0 k$ ^& P5 s' B* `     "]"}], "/.", "DeltaX"}]}]}], "Input",
    * H- e. ^( R: C CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    3 o% i# y' C0 \* S) c9 J2 O; K; M  3.57796154237158*^9, 3.5779615663176217`*^9}}],+ ~* O. B9 x% c1 s2 ~# S0 A! F( m, N

    % f" m0 E; \: i( U6 u2 o% I  p2 |5 ~Cell[BoxData[
    8 f, G2 f, [/ ?, {2 c# }- C& \5 D RowBox[{"{", 5 \$ X! L  i$ q1 J% D" [
      RowBox[{
    , @! k  {, s! \  R+ a+ z  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", ( u, M$ F( c9 x, Q! D* z, }' P) f
       "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    9 S6 N( m2 K# B9 y  "}"}]], "Output",
    0 _- ~  d4 P- i8 b* m CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],* N1 ^+ x5 y: I9 G! Z) q

    1 X) R+ D. x( d( q, E+ s* D$ r0 h( |Cell[BoxData[& |# T7 O* \) }3 E8 I9 z; j* n0 N) ?
    SuperscriptBox["\[ExponentialE]",
    ) g8 ?+ {9 D2 n5 d- g* K  RowBox[{"3.141592653589793`", " ",
      q3 j( U" O8 `5 ^/ W   RowBox[{"(", - U- h- X! T+ Z6 a
        RowBox[{5 d, m6 p  h8 Q0 G( K
         RowBox[{"-",
    ) I# W, B2 A# r! u      SuperscriptBox[
    * j+ ?' I; _1 r8 x6 Y  k3 i9 O       RowBox[{"(",
    0 T5 H9 _$ D1 a" \$ r6 X        RowBox[{
    ! L& q2 j/ P+ [7 W: `- Y: T         RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
    - ?  V6 k, R7 Z: L* [3 b' B     SuperscriptBox[+ y' h) n7 S# L* O0 ~7 }2 B1 n
          RowBox[{"(",
    2 e5 o3 e% w* Q* [1 ]3 [       RowBox[{9 \) o" z/ d- P' M( S- Q) a
            RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
    5 l% ?- l/ n3 P! h# `( A     SuperscriptBox[* b# b+ j- M8 W& Z6 b
          RowBox[{"(", & |; N  c+ A+ s4 X' [1 T! {. M4 X
           RowBox[{
    1 }( g1 W! T' t& E0 s        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
    5 U$ ?* _# [% ?$ `. T8 b     SuperscriptBox[3 }: ]" t0 @7 a4 w5 Y
          RowBox[{"(", 5 P# M$ i9 Z0 K& X
           RowBox[{7 G+ l' `7 p6 e( K' Z5 M; \
            RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", ; w, C( L4 ?3 Y3 w& {: U
         SuperscriptBox[
    1 w( S7 `, J% x9 H      RowBox[{"(", ) {# a  c; X( u4 v6 V/ l, p1 B
           RowBox[{0 h$ ^. t# t; x( W; l
            RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
    . i+ r1 ?7 L& T8 ^1 ?1 M  w) _     SuperscriptBox[
    0 n' B  |& F! K5 h! E6 S      RowBox[{"(", 6 e7 n$ F" F* }% ]
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    3 s/ Y$ D" p& w7 W  P+ v     SuperscriptBox[: @& }" L' f# m. E, f1 p) r. k/ u6 M
          RowBox[{"(", " l$ {% b- j+ O  N' `( s$ U8 `* I
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    ( T' \$ J9 ]8 D  V     SuperscriptBox[  d5 A3 |  V  u& c- o* [
          RowBox[{"(",
    % ]! I8 l# D* M& B7 O; |       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    9 }9 a! ?2 L0 I     SuperscriptBox[9 {7 g, `! R. C; \7 Z% N
          RowBox[{"(",   l! v. {* c: Q7 C
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], / O# R% k! y0 g) t' V" m2 `! g
        ")"}]}]]], "Output",
    : V0 Q2 ?8 P7 I4 \% ^4 z& F CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    9 m6 j- c$ d' F! O" X3 _1 q# E: ^}, Open  ]],
    0 R; L6 b; Y  {- m; S7 w! [, @/ ^9 v: j+ B' C9 Q0 d
    Cell[CellGroupData[{! p  d4 ~7 a% T8 [5 [0 a9 q# R
    ) `$ _6 v' X+ n
    Cell[BoxData[{
    9 k) {! W" `1 p7 p  u' c# c: D' A& ` RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
    / }5 Z# E/ V, j0 |* ~ RowBox[{"u15", "=", 9 @' z/ W8 S( l& B8 r- n1 o: L
      RowBox[{
    9 j) `! ~; G3 F1 Y. ]% v% G   RowBox[{"Exp", "[", ! a2 e- u/ E8 Y. f
        RowBox[{
    ! C$ _( K3 O* d6 W/ Z- Z+ f     RowBox[{9 t4 k8 w/ v8 g0 `1 v* y
          RowBox[{"-", " J9 u% ?: R7 ]4 H  W' p( ?' U
           RowBox[{" B1 {, F( s  J% j( |. Z' L
            RowBox[{"(", ) o9 W5 m. q& x+ F
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    # }! x0 y+ w! k7 k        RowBox[{"(",   D# F: I8 a6 D  g# z; {# \
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    * \5 x1 U6 S/ C" K     "]"}], "/.", "DeltaX"}]}]}], "Input",
      t  y9 R& i: ?7 B! g5 M CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    4 Z% L+ d! j7 o  3.57796154237158*^9, 3.57796157098203*^9}}],
    % r8 b: G: o+ R$ m, P% y: s/ H7 a; d& e" q9 N: B
    Cell[BoxData[. b. {/ ]- G( C% O$ Y0 A9 y/ E- a9 V
    RowBox[{"{",
    , a* J  z; F( J2 @' c  RowBox[{, R# c; a4 Q" L8 p* w% E# k3 t' ?
      "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
    & N7 c3 E! _' Z' f& k   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}], 9 W4 B8 W: s, H5 o/ g" K
      "}"}]], "Output",. v( [' ?3 z: J- b. _
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
    : y2 G6 |2 A& e  ?' e0 ]2 ^* ~. ~! k
    " w' B# V4 g7 K7 M% p3 q( m- f" SCell[BoxData[
    ' T) _. T3 q; F7 j7 i5 _ SuperscriptBox["\[ExponentialE]",
    # u1 F; k7 m  T  W  RowBox[{"3.141592653589793`", " ",
    9 W5 P! l/ b8 j. `: q   RowBox[{"(", # a# v8 h  X1 p2 {( |
        RowBox[{/ j* S$ d+ m9 D6 H. v1 K
         RowBox[{"-",   h' G  _: K0 M1 X
          SuperscriptBox[
    7 ?) v7 T7 O* E7 d$ m! ^$ r5 g3 O: Y       RowBox[{"(", 4 @# _; N3 E0 v. L& v
            RowBox[{
    " z) O) L& W4 Y0 v) o         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    2 }  x7 J5 e5 d     SuperscriptBox[
    ( a/ j" O, o/ y9 d# A) x1 C5 e      RowBox[{"(", 9 d0 A1 d, [' F- z
           RowBox[{
    7 f9 G: a8 M! Y( }, Q1 v        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
    ' W" @5 n# s3 G  T     SuperscriptBox[
    ' H; {/ s1 \" C) C; ?2 D      RowBox[{"(", 3 l7 a2 I5 ?2 x4 W2 {2 H( R3 q
           RowBox[{
    , E, P' U9 Y# {        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", ) o3 U) N8 C. b$ ?  Z/ @4 Z
         SuperscriptBox[
    . Y5 A. q* l. Y& p/ i" i/ ^      RowBox[{"(",
    % {( ~+ f0 D/ R2 y8 ]; v8 v% W       RowBox[{) `1 G( {3 x% o
            RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
    0 r) a# _- c; ]5 y     SuperscriptBox[$ t4 d" `( e( F1 f
          RowBox[{"(", 5 b! o, e. o0 d
           RowBox[{1 P! u" z1 O2 H0 E% ?1 ~/ @
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    & Y4 C5 v; @. R3 _0 n     SuperscriptBox[
    ) d% }8 M, n& \. b4 M      RowBox[{"(", 6 B$ h( y, H4 R" W9 ?- S) s
           RowBox[{+ l: f4 ^& q$ g- b( b9 g+ [6 P
            RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    ! O( v& L: W! s1 v1 o     SuperscriptBox[2 O% ^8 T" x* K! `9 v  K
          RowBox[{"(", * \8 b1 r" y% c* Y! C# r
           RowBox[{7 M5 E) p" N. v; b
            RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    ' B( r7 l; Q! h+ V7 x     SuperscriptBox[. d; j7 L% L: v( d. M5 c2 v" ~
          RowBox[{"(",
    ; Z4 Z' n+ z0 T! s3 u$ C       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    , E' s: f; i- q0 G7 y9 H     SuperscriptBox[
    # I8 y  H& p( \8 E/ L6 a      RowBox[{"(",
    ! s6 ^2 L0 H- H2 t. Z6 Z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 7 Z2 o% Y8 q6 [5 X! ~
        ")"}]}]]], "Output",3 _; K" ^' |7 J2 k( m9 ]
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
    ' i, h3 L+ ~6 S  w0 }}, Open  ]],5 G3 ~( Y1 H% Y: k

    % [: Y7 K" J$ e$ ~8 T* T1 WCell[BoxData[" t$ t6 i& l" [5 a' j
    RowBox[{"For", "[", * b+ U. `4 J' y9 F  Y
      RowBox[{
    & l4 n2 a5 B9 g% f   RowBox[{"i", "=", "1"}], ",",
    ( E9 }! C3 S* y* @   RowBox[{"i", "\[LessEqual]", "9"}], ",", 4 J& k8 d6 _9 q: J
       RowBox[{"i", "++"}], ",",
    3 @: I, o9 q8 d- P" a8 @; o! i  L   RowBox[{" I/ V& E. p4 i: t  q, a, f  ?
        RowBox[{"Ca", "[",
    : B+ s1 z! W3 t& V3 {     RowBox[{"[", "i", "]"}], "]"}], "=",   L& ?  {$ X% n0 l- B4 [
        RowBox[{"CM", "[",
    6 F; I# K1 p' p1 `) i     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    : _! N& N+ o2 }& J+ l8 r CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],5 V% s; E' }5 C) R$ H9 u
    / L# ?& e# `3 a5 \" g- u% A, V
    Cell[CellGroupData[{! n  p! R4 ~# i+ p2 f
    1 r7 n4 k5 R9 s% c
    Cell[BoxData[{
    $ m3 j3 X8 v% i; {% u3 n7 j. B2 o RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]", 0 E  X/ ~" h% P" g, i9 ~0 P2 a7 ^
    RowBox[{"u16", "=", ) `6 _) Q' a8 _$ O( M5 q/ s
      RowBox[{
    $ _/ z  d0 h. G   RowBox[{"Exp", "[",
    8 b' }! K  K: m+ s    RowBox[{$ i6 f& g- H$ G. w5 t
         RowBox[{
    4 K2 ?1 u6 C( N6 Z) L      RowBox[{"-",
    # O' @7 P* H. S8 U) w* f7 Y6 K       RowBox[{
    ' l0 Z3 I+ I3 A& E+ H( o        RowBox[{"(", / ?! r/ {: }: {' ^
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    # ?0 g6 N! z! f* ^' v8 D        RowBox[{"(", # o7 X) Y+ Q" `" |3 `" A9 z8 U
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    8 S* Q& U( v/ e" E+ q     "]"}], "/.", "DeltaX"}]}]}], "Input",3 @. m$ `5 A7 q% z$ |1 }. {- i5 Q+ I
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    4 c0 Y* D; H, T: w+ W9 F3 c  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9, 6 N1 Z& Z* J( N
      3.5779615751004367`*^9}}],8 p2 H5 T/ G9 X' X
    1 T1 N5 A! t2 r# k$ k1 H
    Cell[BoxData[
    " _0 ?' H2 m( A* X( |; \( q" j RowBox[{"{", 9 c; a1 S  f7 G# {( i
      RowBox[{2 p6 j0 X; ]7 Q2 w3 A& B: n6 E# b
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
    ; _" w) C8 e4 G& I# N   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
    % k8 ~0 I3 B/ w# b$ I  "}"}]], "Output",. W: ^. Y' q3 K) `3 K7 I8 o/ K2 w0 @. Y
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
    , U2 l) T) C: L/ D
      a+ \0 J8 W. I# l, ?9 iCell[BoxData[
    ; R+ g; W, f3 ~$ j- f3 ^, P3 o SuperscriptBox["\[ExponentialE]",
    ! P' i  \/ t8 ]* n3 Q  RowBox[{"3.141592653589793`", " ", 4 r6 K( T0 s9 J3 K( f  \
       RowBox[{"(",
    $ ?5 U) K6 F2 u; T2 n% U    RowBox[{
    % V5 w. C: J5 }0 @     RowBox[{"-",
    ; X; X* |; @/ ]! k& i      SuperscriptBox[
    + k) N6 W5 s; Z0 L       RowBox[{"(", $ F$ |  {4 E7 y1 v7 v
            RowBox[{
    9 v2 ]) D6 }; I8 x: `+ W! O/ V! W         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
    4 `+ [: e/ |8 Y% {     SuperscriptBox[' g# V% ?: b8 C
          RowBox[{"(",
    9 ?* n1 y# s: F) g6 f       RowBox[{' b8 b! x/ e: j( L
            RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", & r1 O* S  ]% x# n6 }
         SuperscriptBox[* `) I; {2 s+ X  c$ \0 l
          RowBox[{"(",
    2 ]* u' R$ I2 D" |( q       RowBox[{6 N# u3 {. g- u
            RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
    2 E3 Y, g4 {/ Y2 m. M     SuperscriptBox[
    $ a3 @4 J$ q0 h# n      RowBox[{"(", ) a9 M4 f% O4 E; I1 {! j( O
           RowBox[{
    8 K9 ]  Y" q) {: q* t, S* R' `/ [, Z        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
    ! J+ k8 h# w& F, D, T  l     SuperscriptBox[) I+ x7 g4 @+ \/ B2 C; |
          RowBox[{"(", & V  l% B; ?$ y
           RowBox[{
    1 [+ b0 i' \" x! I' X9 D        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", 1 I9 w4 T9 v. Q5 d5 S7 e/ s9 H0 ^
         SuperscriptBox[- c2 G1 J3 E' {. x/ P# j/ A
          RowBox[{"(", ' _0 ]6 A8 P- ?8 G- \/ i9 P" c
           RowBox[{3 u' i  @0 S* K( U; S: P0 X" k
            RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", ' h! J  }" u; a! i+ r, k1 g9 |8 j
         SuperscriptBox[
    * v: f. h+ ^9 A+ Q& d" P. z      RowBox[{"(", ' ~" |* k+ \  t) o
           RowBox[{
    5 {' B* m3 a. |        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",   C8 `* _  J' c$ }. g
         SuperscriptBox[
    * [% |3 j! G: a/ h( G2 ^  _* j      RowBox[{"(", ! n8 t$ A$ N* ~' Z) s# ~
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", * d6 z5 c" T& k$ `& M
         SuperscriptBox[7 Y8 b" g8 a* R" i! }; l
          RowBox[{"(",
    5 Q* r2 T, T' G! P7 a& u! `       RowBox[{
    # [. g8 b7 ~5 F, J0 z        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",3 _2 W; i1 Y8 A
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]  v# d4 O9 T: E4 l4 e) D
    }, Open  ]],
    1 X: d# X/ P8 `: C! l; f) U% e6 E# M3 ^- u. x9 q- j8 G
    Cell[CellGroupData[{/ T  R; C  G6 L/ |: A  V

    2 y1 S& L( [, X) `4 BCell[BoxData[{; D) N" D0 Q& L7 w2 y- Y, i% G
    RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", - [0 w* C- f/ i' b: G" ]& I$ i
    RowBox[{"u17", "=",
    4 I: J+ Y: \$ u9 p; A3 ]) L  RowBox[{2 A- x& N' m. D; M, R: v5 z) Z
       RowBox[{"Exp", "[",
    4 P; r( r7 i; J8 z$ S" L  ?# W    RowBox[{
    / l. O, I- M0 y7 r7 Q7 A     RowBox[{3 W+ |% F- N. L+ i: C* F: o( Q
          RowBox[{"-", ! m+ T3 f) R% J) j' G
           RowBox[{( j5 g$ Y9 g, {
            RowBox[{"(", & |  a( N& n% X+ l9 d
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    + a8 m- j& d- f5 e4 k5 l( F        RowBox[{"(",
    " ^. X( M9 U6 n  u9 C0 V% E& {+ H         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    % u7 i- L) W) t' h+ x     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ' ~0 H9 {! c# ?2 T) u9 P CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    8 R5 F6 o; a; v! ]  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, ) ^. q* T) @- Q, q! V1 L
      3.577961578953644*^9}}],$ F& H, I+ E  C' M; m6 j. _8 |2 m
    5 {$ Y% S) ^. p
    Cell[BoxData[
    + S7 j3 ^2 e* O; t RowBox[{"{",
    7 j: h" r6 O% W1 k3 n/ w1 r  RowBox[{
    : O8 r: n& Q. B. E9 w) X7 Y  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
    $ V% g: a* b! i8 P* P8 [5 l   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], - ]1 ?1 q2 O8 \' T* M7 J1 O1 M2 g
      "}"}]], "Output",
    : p& r5 ]- J5 D& m1 ^5 f+ X3 X CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],. Z3 {  D* \2 V2 h" h

    * ?' ]2 Z0 v9 o- E6 t5 a: h2 ACell[BoxData[, l- @6 e/ D% Q+ O
    SuperscriptBox["\[ExponentialE]", $ _# {; D' F4 C, r% S
      RowBox[{"3.141592653589793`", " ",
    3 d( ^; k) j: a: l  V4 B# L+ \* N   RowBox[{"(", 1 U$ J4 _8 Z, W, S
        RowBox[{2 @' {  h, [% ~5 W7 e0 \. b4 m5 G
         RowBox[{"-",
    - Y  I* V. M4 q* H1 }      SuperscriptBox[
    2 M! U; y. }, |$ ~* i+ c. O       RowBox[{"(",
    * z9 N0 B& K* E# L        RowBox[{
    ' v/ E% d- A1 V9 i$ k         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
    . [# C0 }7 K$ ]" [+ |9 }. @     SuperscriptBox[1 B% P: e7 |* W: p7 H# F" V1 S
          RowBox[{"(",
    4 l' ^# s: D+ O$ F  K6 I       RowBox[{
    - T# ?3 F# c" D# r, ?        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
    ! c/ Z4 O  u# f9 K5 P9 f3 q     SuperscriptBox[
    & `7 q6 |0 A( {' T2 |; z6 N      RowBox[{"(",
    ( Q3 b: {/ o; N" e4 T- ]       RowBox[{. Y, Q6 _* j7 p' g# ]- R* q
            RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", $ j8 v4 K6 ?! i# _' H$ B7 U
         SuperscriptBox[' x. Y  h' ~# b8 _5 D1 {+ U4 v
          RowBox[{"(",
    - L9 A0 X# V8 n- o$ C: b4 G% `       RowBox[{' \5 A/ Q  C  v7 N9 K: L
            RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
    " ?1 k2 B; a& Q! a     SuperscriptBox[( h" T& j1 q1 v% k+ V8 A+ J
          RowBox[{"(",
    # R- ?' d, N- ~' H& W  {! j: x       RowBox[{+ w: b, x9 Y( a- B" \3 _+ D
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", 6 \8 ?6 g( _/ }4 O" V
         SuperscriptBox[9 I. L  C7 l0 t3 F( [
          RowBox[{"(", , a8 p# m- p2 J* o: ~' {2 `. w: d% \
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ! n" t8 y3 w+ S  g& W! S, v5 }     SuperscriptBox[
    5 h5 d5 i0 o% A2 v+ E$ U: r      RowBox[{"(", # \, B7 m% Y, H+ N+ y  d& T
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    ) Z) J$ W/ g* i) Y     SuperscriptBox[3 `& a' Q3 B0 j' r
          RowBox[{"(",
      ?& ~. j6 P* ^4 r4 W. z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 2 h; _5 G+ ~5 s' q% X0 _
         SuperscriptBox[) r8 j* i: B" `0 F( O
          RowBox[{"(", + R! L' a4 `, ?
           RowBox[{
    5 A8 Q( s2 V# o4 c3 [1 f, ?        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], / v9 N2 t) H8 P! `( ?& r/ p8 W9 n  G
        ")"}]}]]], "Output",
    2 v  B; X2 v' V( \ CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
    . f3 L  K4 C# c! D1 y4 V7 g}, Open  ]],
    0 h( Y1 \" }( i; q3 U
    1 y7 {7 m2 m3 f. U. LCell[CellGroupData[{4 O% r. X) ]( g  {/ ?4 h5 K
    ; L1 h2 f7 e- ]) r3 ^7 |; \
    Cell[BoxData[{
    5 p" J1 S; I/ T4 T RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", + G. n" ~; Z6 \9 O! D7 _9 I
    RowBox[{"u18", "=", : L- f' O1 u/ |+ _
      RowBox[{2 {( M5 h$ M& t, m
       RowBox[{"Exp", "[", ( H4 n3 @( K& n; T+ ^  ~
        RowBox[{
    & c  e+ s2 W- o7 \     RowBox[{& I* V8 j$ p6 u2 g* n) J% i
          RowBox[{"-",
    1 B$ r5 ]; p1 m0 F1 K       RowBox[{' ]; W2 t% u& s0 j3 u
            RowBox[{"(",
    1 c# o# [) K) R- O1 Y& c5 ~         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ' k. \6 l( @2 l  S0 k        RowBox[{"(",
    ! Q4 ?( x3 H, E- H         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],8 m$ h* Q9 |* c. q4 A0 S; I, C
         "]"}], "/.", "DeltaX"}]}]}], "Input",  y- [6 j2 d7 h$ ^3 a. }
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {! R! h# n% a% K, _  E" C' j; T
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9, ( q1 S4 f/ T: y) r
      3.5779615828848505`*^9}}],
    # q' M, ?2 z4 l8 j2 j' J
    ) [! y* J% e& iCell[BoxData[4 W* \) Y  x3 q
    RowBox[{"{",
    $ Z+ g8 j4 u- L; c  RowBox[{9 c0 J* A# V% i* s/ n
      "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", # k. ~. L6 l3 r+ X1 L
       "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    0 t& G+ @2 x( b- T& K9 `6 S( b$ w  "}"}]], "Output",
    ; b; q9 I  O7 C' M+ ` CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],1 r  I, n) }/ u, W, X
    & P; u! T% l; i, ^, i
    Cell[BoxData[
    $ B" A: A- {4 W$ z1 b+ P% E SuperscriptBox["\[ExponentialE]", " D* q; l0 S3 {. U
      RowBox[{"3.141592653589793`", " ",
    5 o- Y' C9 m8 T) D$ v" h# C, w   RowBox[{"(", ; o, I6 ?! ?% c1 D. E" J
        RowBox[{9 T% f3 }. n  e$ N
         RowBox[{"-",
    . C! x1 P& m1 ]) J3 b9 X. F8 R# c      SuperscriptBox[5 a' g- j! w" ]* k
           RowBox[{"(", 0 Z* |$ K4 G  K8 G! _* w1 G
            RowBox[{- ~2 `! x) L8 S- ]3 u
             RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    1 d3 z+ E2 u# c/ _4 A0 N     SuperscriptBox[7 g2 q' \3 ?0 B; H( t6 E# V
          RowBox[{"(",
    $ G1 O6 O, V! I6 T! m       RowBox[{; H! v6 W6 I0 J5 E( r4 ]; \5 b
            RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
    5 u; [# s4 g1 r     SuperscriptBox[$ k/ n# B( I* _
          RowBox[{"(", 9 k6 }4 A5 X' v0 W% N% K
           RowBox[{
    4 L- y1 ]/ ~+ d9 u; y+ @        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    9 j- w: K! D- P; u. d7 b     SuperscriptBox[$ N- g4 ~8 z# E) T- U
          RowBox[{"(",
    : z5 ^$ D1 ?, M5 U) j+ l       RowBox[{% \- g* r/ e& M3 L7 o) _& w9 d
            RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
    1 r/ K" d3 |5 R& H     SuperscriptBox[
    ) Z, l6 A! C/ r# p      RowBox[{"(",
    1 G& n' u3 L" b# M: c. G7 q       RowBox[{3 n$ z! ]# U6 K4 v
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", 4 r8 j- c5 k9 N1 s
         SuperscriptBox[2 f( w  `# d- R
          RowBox[{"(",
    & f% _/ C" ]. _       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 4 ?" |- a/ @( I0 J# Z
         SuperscriptBox[! S( \0 Z3 L6 G1 }
          RowBox[{"(",
    ! {" \, [% X5 A1 f  B3 y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    4 x) U9 z, t. X: k8 l4 S2 I     SuperscriptBox[  V  S! W- X4 u4 Y. I7 ^) v1 N
          RowBox[{"(", 6 R' K( |2 a: J6 K2 a/ k& i
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ! [8 q: @" P2 F     SuperscriptBox[- y5 d5 m3 D! Q8 r3 ^; {' p) b5 F
          RowBox[{"(",
    ) |( W0 h" e7 n# [       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    / A4 D3 G; `, h  |; N. k    ")"}]}]]], "Output",
    2 r" N/ Q3 Z/ G4 {; b& \* X: @% o: c CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
    5 }; ^& L0 e8 A' B: {3 W}, Open  ]],2 i" g6 i1 u3 a" T, \: t
    / k% b4 A1 g8 X0 v
    Cell[CellGroupData[{
    0 Z: ^8 C6 ]& I% P! b: Y" C4 T4 l3 L* W9 t
    Cell[BoxData[{2 h, K+ h! e) r' O8 e- O- p
    RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
    ; ~  M- ^( l) ^, [2 K, ` RowBox[{"u19", "=", ( X# T/ l) V2 i. k6 E) ]
      RowBox[{
    7 U/ ~; j  N( `5 Q1 p   RowBox[{"Exp", "[",
    . c. X6 n6 r+ Q2 e    RowBox[{
    5 u, K) j$ N; ~8 T+ T, q     RowBox[{5 O4 D, c- u% {3 y1 z  m2 y: D
          RowBox[{"-",
    % ]3 I% [& G; M3 i       RowBox[{! a2 ?9 @- ?/ }" }+ L; i
            RowBox[{"(", 0 z" n3 `5 \! U6 S
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    7 x# ~' w* {# R. V5 l/ B5 [        RowBox[{"(",
    # {" V" M( ]8 f! B0 o         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],8 m  x9 h* F" s5 P
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    , t# K+ ]. A5 h. u0 o3 B CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ) h1 ]* X% b5 n6 I( k  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, " o0 y; {) b( Y# p5 x) w6 g
      3.577961588890861*^9}}],
    ( @; x" G( l- v8 }
    " u' t  r! M# L8 v: Y1 K- @Cell[BoxData[' U; K* W$ A! |) t; n) t
    RowBox[{"{", ; k9 ^) n4 V3 X; y' }& B9 {" j% M1 `
      RowBox[{
    ( {/ R3 W# i" A/ c9 A- N* m  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", 8 C9 F# n. x7 b! [" ^% C5 X8 A. C
       "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
    ; C- \4 E' O! o' J( {  "}"}]], "Output",
    % Y( C( ?# l: B2 g CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],4 B1 ]* l' J" m0 j. W# Q" [

    " k0 }  S9 f9 X0 O' HCell[BoxData[3 p, @3 c; @) p
    SuperscriptBox["\[ExponentialE]",
    , i7 K7 |8 ?+ r+ s  RowBox[{"3.141592653589793`", " ", + g& ?# B, f. k2 k) \; b$ U
       RowBox[{"(",
    ( x" w0 D& o1 e, K' U4 }    RowBox[{) z5 X7 `- q, _$ I8 c( R8 O+ l. a
         RowBox[{"-", ' \0 C1 m# F3 J; {8 c
          SuperscriptBox[, S: }# m  ?" \8 N& U
           RowBox[{"(",
    $ f) F' s1 ^) N3 b8 q8 B. k        RowBox[{
    9 Y. s1 ~7 [; a         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", # H2 u4 i: k( y: a
         SuperscriptBox[4 ]1 Q9 O& D1 f. r% S2 x
          RowBox[{"(",
    6 U6 x3 C5 `3 z2 s       RowBox[{& P7 x/ c5 M: x/ A( v4 U
            RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
      T: F$ [2 [- M     SuperscriptBox[
    ' t& d  N' Z# P      RowBox[{"(",
    $ w( f! ?- z6 S  k! v5 o" p  T" z! N       RowBox[{1 N  a( T, o3 j& D
            RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
    8 `3 A1 i) v. u# M; `     SuperscriptBox[% @) M4 Z: @  J4 _( B/ I
          RowBox[{"(", ; T( A' j: _" d, m9 w
           RowBox[{
    3 R- L7 Z$ `0 i  s        RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", . m3 P' e& e! W7 I; A% l5 \
         SuperscriptBox[
    $ F. z! W( @8 e      RowBox[{"(",
      t. {. \" o4 a       RowBox[{% X' u: A1 i3 o
            RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
    2 [, W0 R8 t$ P     SuperscriptBox[
    4 E0 g$ G1 R( o      RowBox[{"(",
    - O0 c  u+ K! C9 C5 i       RowBox[{
    + O( J# h( B5 n  v$ q, k9 l! x        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", 4 Y/ m. h6 e& z& l, z8 f- t
         SuperscriptBox[3 S4 l2 [: {) J" N, Z
          RowBox[{"(", 6 I' e( k8 ~7 b0 x( }
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 0 l) \- v9 K$ ]3 R/ I* M
         SuperscriptBox[
    ; C4 q/ t* S0 j      RowBox[{"(",
    % o- b* \+ ^2 _       RowBox[{% J' J# [; ]+ Y7 u+ d
            RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", " \* {/ a5 \- o
         SuperscriptBox[9 r8 q1 m+ a8 w9 y% t
          RowBox[{"(", 8 H/ R* l. {- K, O# Z" `
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    . q0 c3 w1 v4 `# M9 j1 Q- \    ")"}]}]]], "Output",* Q, J. U4 m3 R1 h2 @  R$ h5 x4 o: H
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
    8 O9 y# @8 k! q+ L* D* {; g. a! W}, Open  ]],3 m: m' m, _2 K. d* I1 A1 T# z  ^
    ' C* j& |/ @0 k7 I8 G. J; K
    Cell[CellGroupData[{
    5 H- M6 c( ]/ Z! l
    4 ]7 z& W. H# j% O! x# FCell[BoxData[{
    6 p/ d4 Z  L, ^. ~ RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",
    5 c( x" q  ]9 l1 K* q- S RowBox[{"u20", "=",
    . t/ {0 t" a) P2 L; B/ [  RowBox[{) R  S, h- E. R# ^) ?
       RowBox[{"Exp", "[", " `7 L) m& }! Q. `# g8 ]
        RowBox[{
    / p6 b# d+ ]3 U6 i) {# B9 s" q! A6 n     RowBox[{
    ) \6 ?( x& w$ s" O5 ]! T      RowBox[{"-",
    ! Q0 v/ O2 E3 s. T       RowBox[{
    & F  O- b8 r- k0 i% t" N        RowBox[{"(", # @0 Y; U' c# Q: Z6 L) B4 b; b
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    4 y; k- b! x& }; J! J; I        RowBox[{"(",
    : r$ z9 G9 U; _( y         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ( }! W9 U9 x9 ]8 B: E1 _! K+ ]     "]"}], "/.", "DeltaX"}]}]}], "Input",6 u* c. a6 D6 p+ N; I: M
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    $ X, N% ]. |- L) U6 I# s2 @% X: ^) r  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9, - r$ P  u  m5 i/ P- d& h
      3.57796159382047*^9}}],
    8 \4 G  Z/ c; O, @1 S0 H, ^: T9 I+ c! o; @3 L  U4 k$ D: d
    Cell[BoxData[; X1 a# D4 Q0 }1 K
    RowBox[{"{",
    ; e  R$ l3 \( G* [! x) `  RowBox[{
    ' O  q1 X  Q0 y8 P$ ~  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", 7 S" d% ~6 x9 k5 A0 T8 g
       "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
    4 b  k( I* ^. `  "}"}]], "Output",9 N; _. i- y4 w$ d6 C
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],7 e5 r0 T- r: Y4 {0 }

    1 G6 i4 e4 W5 F' |9 kCell[BoxData[
    ) }( f; o) d2 V( c SuperscriptBox["\[ExponentialE]",
    " i. n) c5 Z  g- H1 h) p4 z0 Y6 _  RowBox[{"3.141592653589793`", " ",
    2 |) t7 V5 @0 H  v' ^: ]3 R   RowBox[{"(", # z; J  [$ `. |
        RowBox[{& ]5 |/ ?7 {* H! u" d# M! I
         RowBox[{"-", 3 {( L1 s) {- v. Z" Q5 J$ p/ @
          SuperscriptBox[/ G! C& `- R$ P; h2 A
           RowBox[{"(",
    6 y9 u) U' T; I3 C$ H9 G        RowBox[{6 M- M5 G' y4 i5 [
             RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", ; ]+ W) L4 a' _, n3 e6 i8 o
         SuperscriptBox[# B7 Z3 E6 j5 U% Z; p1 _; ?
          RowBox[{"(",
    3 U/ L8 b' s8 U/ ?       RowBox[{# h  f* {4 k4 L/ q6 z
            RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", 0 M6 \1 v8 \5 Y
         SuperscriptBox[2 ~% Y$ R1 S) x/ Y
          RowBox[{"(",
    9 C% g0 \. \! [8 Q4 Q( ~       RowBox[{: z9 D3 c' q& r  E" @
            RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", ' a: j; R3 _; p0 \, s
         SuperscriptBox[2 k* b( s% b7 m0 s" ^
          RowBox[{"(", ; X5 f5 c, z2 E. k
           RowBox[{$ x+ q# X- y+ }2 c, |
            RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
    , N( Z6 M" A9 R4 ?: |# N) w     SuperscriptBox[
    . c1 w: K6 ^/ ^) ]3 v' Q      RowBox[{"(",
    2 {! G9 s9 `# V& H       RowBox[{- [" K) x! Q# A$ i' e. f
            RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", # G% M7 r9 c+ {( ?& z, W2 I2 l0 w
         SuperscriptBox[5 o6 ~; _, r2 p+ M6 }, L
          RowBox[{"(",
    5 u1 v' s9 f; {) Q* G8 _       RowBox[{
    , g5 V1 N  A' p        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", - {9 E3 w* h6 C) N; {9 I
         SuperscriptBox[
    & g- }, T5 F( L; g' v, _      RowBox[{"(", * P) Q0 B* `* r9 R$ K* I- d/ e4 ~
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", " r( E& K+ A0 o7 E
         SuperscriptBox[# w) s& f7 F' s, `' a
          RowBox[{"(", 6 s, S3 d% G* w* r6 t  e
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! U6 v- y3 ^. @1 T; N
         SuperscriptBox[' Y2 p2 u' t' Q: E( E# C
          RowBox[{"(", / A) l) z# @' a; {5 [3 K: a! b
           RowBox[{
    9 d' e$ x9 c+ r9 q        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], 6 K# ~' C7 W& m2 I8 b: |
        ")"}]}]]], "Output",
    6 T  ^) f1 [9 e( ]& y6 p* g CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]
    ; A  z- l: I- `5 B) [! W}, Open  ]],
    , ^) \' a2 S, D: x6 v, F4 [" C( y7 a3 j& E$ N, u: Q# E/ f
    Cell[CellGroupData[{
    0 x% q9 s1 D) f+ {3 I$ s0 g4 o. E- o+ }( V  U
    Cell[BoxData[{
    6 i9 a0 i( d) k- ^$ [3 s; w( J1 c RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]", 5 v, g3 J( x( \* t4 S% E6 [
    RowBox[{"u21", "=", , J( N$ l  X# V2 i
      RowBox[{2 S% g0 b: D' ^
       RowBox[{"Exp", "[",
    & v5 z& b: W2 `. Z0 x- \4 w    RowBox[{
    " L! \2 k. l6 S- a, `4 U     RowBox[{
    ! M$ A/ h! N. K4 d      RowBox[{"-",
    / s  _# n' o3 X  h( j1 ^8 g       RowBox[{3 @- g  {# x" u! k# ~+ A6 [
            RowBox[{"(",
    8 a# c/ V+ _* D6 o         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 3 f' F2 e8 R, d7 N9 C! D
            RowBox[{"(", / O; M6 \/ ~9 ]9 I  N
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],0 W9 L- y" O" ?
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    0 ]5 O; J6 z# X5 f CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
      I1 \- [* Q0 z. o0 I  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
    / ?! U* T4 I4 c, x  3.5779615991556787`*^9}}],: P2 b! p4 h  n0 U

    # `; l" _. _) xCell[BoxData[
    9 H7 g5 I9 [/ b7 q RowBox[{"{",   L+ j9 J" y/ x1 j" }6 B& S$ C) e  ]( E) c
      RowBox[{
    ) @+ \5 _0 {' n$ O+ X$ U  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    7 G* Z$ ^- y/ t1 G) b   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
    8 g2 j* o5 A3 P& X  "}"}]], "Output",
    : f! G0 g3 K# `8 N CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],7 t5 B# z$ ~" T
    % V4 m1 T# k4 q! [2 F. _
    Cell[BoxData[
    ' C2 [1 Y0 V1 D; Q SuperscriptBox["\[ExponentialE]",
    $ i6 Z: h# c8 x7 c6 @0 E! ^" ^5 ]  RowBox[{"3.141592653589793`", " ",
    , t  J, n7 t( M7 v  E   RowBox[{"(",
    7 T$ n& w( q4 y    RowBox[{$ Z+ b3 Z" @% O8 L; g/ S
         RowBox[{"-", + [2 S5 K$ ~5 N, K* U
          SuperscriptBox[7 {8 n$ Z, s1 c
           RowBox[{"(", 6 e5 n  L) n- a- K
            RowBox[{  e4 C4 H& x. A# v3 F. N
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ' i5 c; U9 }6 h; N. o5 {% t     SuperscriptBox[. t% B% P9 y2 Y) M9 O; Q: t
          RowBox[{"(",
    - Q7 b# R- [1 ?: @5 M       RowBox[{4 V% r, I  l. Q- O2 f% x7 }
            RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
    7 E) H) G; f1 ~7 l# i' b* [# f     SuperscriptBox[
    6 t/ ?: V3 q/ Z9 w      RowBox[{"(", 8 N0 u! m9 H) Y
           RowBox[{
    * ]8 {. t( e' y1 }) j. K2 s/ ^        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", - o, Q: {, l9 [( j
         SuperscriptBox[$ ^. h+ G- D0 \, U6 o
          RowBox[{"(", $ m+ ~8 p5 e( c9 O) q
           RowBox[{
    7 S* L* B2 H  l% u$ j        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
    7 f: k9 v% L9 R     SuperscriptBox[
    6 J) ~9 E5 }, z7 U1 b      RowBox[{"(", ! x! [4 y1 h$ A1 F; T) L
           RowBox[{  t2 M9 i- J' \
            RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
    3 N2 }; z6 i$ h7 o( u     SuperscriptBox[
    6 O* ^- {/ D  q' C4 \      RowBox[{"(",
    & N8 ^6 J* d) |9 ?$ ^& }3 w3 l- q& f       RowBox[{
    ; i2 ], j& ~, A* g        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    - q% i% V$ Y; ]7 t     SuperscriptBox[% s4 u# G+ t! |: E( B: ^3 k9 l7 N
          RowBox[{"(", 0 {# i1 H1 J3 r- M! ]1 O
           RowBox[{5 G1 U0 i  \( E" i9 B0 F& U( N
            RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", ; p+ o+ b' U' O2 \+ g' I
         SuperscriptBox[# G3 T: k+ S! W
          RowBox[{"(",
    , a$ f7 B  f( S       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", / R6 Z# r" F6 a( a
         SuperscriptBox[% A4 t! G- L; ]) l( e' V, a
          RowBox[{"(",
    0 M- D+ y8 z& P' W! V- `/ c" b* {       RowBox[{5 W! B- ^7 w* z. A! k
            RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
    9 u4 D7 {" o9 s1 o4 ?    ")"}]}]]], "Output",
    & S( b2 Q8 k6 I' k6 _% s2 K CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]
    + C- S" x2 Z8 X! ]3 @3 z}, Open  ]],% A& B- c4 m6 C' e  w2 o) N6 w' ?
    5 r# M2 `% p, u* b  `# I
    Cell[BoxData["\:62df\:5408wi"], "Input",
    6 j! @: C% N$ j; f4 B. n CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],! c+ y& y0 j, e3 @# h

    3 m. ^5 @: d0 `& f/ wCell[CellGroupData[{. S) c' X2 ~8 Y# ?; ?0 y
    # b% ^; E% Z4 z. `* y7 F) e# C
    Cell[BoxData[) {$ ~) @! ~4 p* }/ b9 U5 z
    RowBox[{"y1a", "=",
    5 X0 c' H8 D) f1 A  RowBox[{"Table", "[", * J) S$ W3 Y- i7 S2 w* E
       RowBox[{"x", ",",
    1 {7 e( e4 j6 H    RowBox[{"{", 2 S- |( \' Z; b- I
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",. \& U0 a1 h5 P7 e
    CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    ) Z( ]3 W4 g9 U9 L( o+ f; N  3.5779226649375*^9, 3.5779226810625*^9}}],6 Y- N) d. R  B

    5 o% _& ~7 z; x6 {! M; F* I+ sCell[BoxData[
    + u6 U# l- M" M# L% w$ k RowBox[{"{", % M; [5 z  X7 O& |% ?7 K4 i- l
      RowBox[{
    1 c) ^3 ]7 @, \( x- W  A  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ! l5 o) f2 @7 \/ X* B
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    9 m& y! ]" W& I; F8 `' }* n" T0 N" L    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    ' g2 o& E! M# m0 b* @; S, y   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    . m/ ^' L+ T% `) v# i0 Q   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    ' t% O5 A% ~; q" f   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 3 I" t" E9 U+ J
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    3 p) g3 e# O* K7 h   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    " d! E6 K' c( \- T8 V   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], , E! ^& J! B6 Y  I( f" Q' J
      "}"}]], "Output",
    0 Y  e' Y4 R" w+ H CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
      S3 T! M. L$ _% ~$ S- G& _  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}], ?+ B/ h; n) {3 }
    }, Open  ]],
    # a* |* s$ L4 L- m+ t5 b! N( R
    2 z. R% o' w/ L1 D( \Cell[CellGroupData[{8 C& ?6 V; B  X9 k7 U- |
    1 m3 J; P) Q% S8 i
    Cell[BoxData[
    ; l4 U& B+ [* L8 [: P RowBox[{"Data", "[",   n( _4 ]3 v3 D# R" M8 }' ]& u
      RowBox[{"[", 6 _+ H, Q5 t( R
       RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
    ! i. r5 Q6 s; O- Q, h3 a CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    + {& h% N: C$ [5 L   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],! S! O* q9 n. M. I# p0 U
    1 ?: ?; ~7 S; g) e* ^" x
    Cell[BoxData["0.899882`"], "Output",0 P6 |) m: u7 ?3 o+ v
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, ! Y" w! y$ o7 ^1 U' [- g
       3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9, 7 V8 Y4 k) ^5 D7 x+ t7 y$ z
       3.577961929080654*^9, 3.5780123419375*^9}]
    : f6 i5 z* C' n4 a2 P/ [}, Open  ]],
    3 u! G& a8 D2 v- m- s4 U! _/ m
    Cell[BoxData[
    $ i. C2 L4 F& k8 W' `* E& h: @ RowBox[{"For", "[", + @# Y4 W- T$ d  C0 L1 Z6 n( o( R
      RowBox[{/ j1 q* X' Q' r
       RowBox[{"i", "=", "1"}], ",",   b3 H/ X* `0 b7 T- V7 [
       RowBox[{"i", "\[LessEqual]", "60"}], ",",
    ( j9 M, R& W$ h3 ?: H. M   RowBox[{"i", "++"}], ",", ( O- P6 W, ~) y# ]& i# G
       RowBox[{0 P0 f" b7 {. Z4 c
        RowBox[{"y1a", "[",
      [" M8 L- {  {3 p& T4 m     RowBox[{"[", "i", "]"}], "]"}], "=",
    - |( q; h- {+ d) D8 x& B    RowBox[{"Data", "[",
    0 Z" X# W$ a% K/ S6 l% e& I     RowBox[{"[", " ]* k9 ^! L9 {% `
          RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",- j4 E$ I7 E- f4 K1 a# V  ]1 f  P
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    6 \) a2 P* C! ^: e) h! j8 S   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    * v8 G) H. L! [+ M3 _0 A& z  \3 Z   3.577922923203125*^9}, 3.5779588839702806`*^9}],
    3 i. z% |4 E* H% j; x* d
      X* ?+ i* i" @Cell[CellGroupData[{
    # T1 p1 s3 \$ B; C) U, Y: q* {3 j+ G4 @5 c
    Cell[BoxData["y1a"], "Input",( T# t1 \1 n" B
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],
    * _- c2 h; p: p8 d% W# `3 s  H# \
      Q5 ^! S& b% |- NCell[BoxData[/ \! @+ F' p+ |
    RowBox[{"{",
    & y2 T! N' U9 `2 E  RowBox[{
    6 g4 W0 l- ^9 u1 J+ s  "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",", 7 g( I& d$ t& \( Y% p
       "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",", 9 N1 ^( W8 ^8 Z# t
       "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",", 7 q/ p$ U2 F3 V) R6 b; F6 W
       "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
      j% B( c# W+ A( Y$ |   "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",", 8 a' @# y" N) [8 q
       "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",", " L* H1 O, e+ Z0 o" q
       "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
    / C) p5 @; a# B% d, `8 h   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",", 4 Q2 x# {# |5 B: \1 ?6 Q, H
       "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",",
    + Z( J9 x$ f1 z! Q   "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",", + C$ k+ X$ I+ O' r# m7 g
       "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
    ! [6 w" F. I* C' N! o0 U; y' o5 Y   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",", 5 G: v# C9 T& v: `. d" Y0 g! N
       "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",", ; X& V  ~- o" _7 j
       "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",", : z9 F6 l; d$ j& p- U$ E1 ^3 K
       "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}],
    : G' ^6 @- Y- s4 v  "}"}]], "Output",
    # M# S  H, Q" j; m  S; _ CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
    ' n2 d( x; n7 l; R1 Z/ Q  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
    0 y# q8 N8 }+ o+ k9 z/ g$ p/ C}, Open  ]],( q7 d. C1 i8 L# X' t; ]/ ~4 _
    # ~) x0 U! Q$ \- m: l
    Cell[CellGroupData[{
    & ~3 a2 p. l! _7 F0 T, y' @: r4 `8 _
    7 i  v& ]7 T0 N5 z. f+ q9 }' s1 S. BCell[BoxData[; X  e( K6 r: o2 S
    RowBox[{"m60n21", "=",
    & w* m. o7 h5 T  RowBox[{"Table", "[",
    ' b' f3 j6 p: V   RowBox[{
    8 {  {% P  x/ n1 ]    RowBox[{"Table", "[",
    " W" M8 z$ R- d! X3 S     RowBox[{"y", ",", - u2 Y- D5 m2 x
          RowBox[{"{",
    3 `2 j. ]+ v- A( Q3 ?, E8 I       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
    : s9 M2 w- ~+ `    RowBox[{"{", 7 N# ^  w: a; s& B
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    ' P& C8 K" {+ q" N CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
    + M; M' c: t9 @4 t! y/ C  3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9, ; e3 P& C: U$ k6 Q. T' b
      3.5779619706547265`*^9}}],
    " _$ B$ V& Q/ x$ [  q7 ?$ c, p0 y1 C! i) z  l" ?
    Cell[BoxData[. x' X: G: c8 X, D& T7 A
    RowBox[{"{", 9 k$ X% K7 t& H6 }2 e- @
      RowBox[{
    / W+ a' V8 G4 B6 Y) g   RowBox[{"{",
    4 t+ h: X' R* N' d! G- ~    RowBox[{
    8 V6 x# J* n' r; r5 M4 I- x2 W    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- G4 z3 X, N6 @& L9 s$ Y, {
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & S0 a; O4 C' k6 {# i     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 N: f& Q1 {9 r0 z1 P1 V& p. s
         "}"}], ",",
    ! {, U8 G1 N' \   RowBox[{"{",
      |+ l2 f! U  J    RowBox[{3 \+ l8 q3 d  o. w" c2 z" o
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    $ J9 G. z3 x( l3 _5 X" k      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & @( ~/ u: A. s+ d, N( e! l     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 m9 X3 V9 n! J( q     "}"}], ",", ( a( U8 L" Q& ^3 z. U/ ?
       RowBox[{"{", . J% Z: J+ m# w9 C7 a, j" C
        RowBox[{
    & T4 c' o+ s1 V    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( f$ w) C9 K+ m& S) F      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    - s+ l/ n2 l' i9 Z9 c% p! H     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 o% ~/ \- z2 L2 x# @     "}"}], ",", 6 z4 L( p7 @% \2 t
       RowBox[{"{", 0 |2 M/ H- Z+ y$ U6 U
        RowBox[{/ |2 k( ^  ]  |
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 b6 ?4 ^; x7 ^7 _, c2 Q& w8 H2 N      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( P3 w+ z+ C0 i0 p6 u9 h$ K4 n
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 t$ h9 R- N5 f5 M+ n0 H
         "}"}], ",",
    # K8 ]; O7 t3 W4 K& T8 B; V' J$ ?   RowBox[{"{",
    0 l1 i3 X. r3 Q% ~    RowBox[{, l& |: s1 e& Z# J  B' @
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 x, @6 u# H) l3 L) s
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & z% c! A' u0 V2 C* Y: ^  Y
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 v6 Q# G! Y+ @; H8 S
         "}"}], ",", 6 f* `! x2 s' W8 `  x2 x5 V1 d
       RowBox[{"{",
    : _* C7 }6 [. j% w: c: f6 m! d    RowBox[{$ C$ K' p* {2 w, l: M% H! b" }
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* X3 @. {; W  A3 c3 @( z( z
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - `0 V6 Y2 @: `/ S: `
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . J& Z! c/ f: ^7 p     "}"}], ",", # n( _  M" W6 |. y3 w9 r8 v
       RowBox[{"{",
    ! i' H$ [7 n/ |& H, u    RowBox[{
    6 M+ r, Y3 F+ a7 _& }    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( Y' r8 C# O( K4 z# k  [; L      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * |* A' b/ O' E* k) z% r     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ Y/ X2 W* d+ l
         "}"}], ",", # w) I5 v* D0 ?
       RowBox[{"{",
    ! J& Z" w+ H/ o    RowBox[{
    . z" X. f! u" n" z9 [. Z) P1 L/ j    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 `/ w% ]  a- ]7 C2 Q) w      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , {4 d# k6 d8 I( J* ?: R/ w
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 S  t- y* {! X+ m" r# U! q
         "}"}], ",", + u: P" f. C9 t; ~
       RowBox[{"{",
    " ~3 D2 w! X0 k2 V& b* ]    RowBox[{! H) u1 g5 H7 X7 J8 M
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% E" l3 V* |/ p+ E
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! ^6 }8 h0 g: ~- O! P& K
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    " b( u0 {5 y, u' L$ ?( C7 m     "}"}], ",", : g7 o/ y9 U' K* z7 G
       RowBox[{"{", : @2 Z. I0 \; J0 j
        RowBox[{$ f) M- I, m7 O$ G- {- H8 D7 r
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ' t! y# C' S; j. u( P- d' D      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    : M) U' U3 D7 M2 x- z     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    * o) j! v7 T" A  Q$ A# g3 P     "}"}], ",",
    - y+ P9 B$ b5 T! @) }8 D) W6 H   RowBox[{"{", ( k4 J; r# j$ l& \6 B
        RowBox[{7 H" j7 e( y& k% a3 X
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: r( H1 P/ u% e9 |
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 D1 W) a- M6 Q' H3 c5 D     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, P+ e9 B) W: _8 U$ `4 `- [; k
         "}"}], ",",
    " b6 W8 T6 |3 k1 s( J   RowBox[{"{", $ B  f" i8 B0 J1 d. r% d% W, v, e
        RowBox[{
    / I/ e3 Z% K' f/ S! z. a3 w; ~    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 t7 R2 _2 W; a3 z  q" Q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 Q- `# M# X1 p5 Y2 `' I     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 @  a% H8 Y- p* \
         "}"}], ",",
      v+ q% Y% ?3 v% A& l# [# G   RowBox[{"{", + C7 H8 |7 o5 G
        RowBox[{
    . z+ b$ k% U% v. ?# w    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + ]2 m4 x8 G5 d8 U" U0 T5 I" n; }      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 ~* M0 X' {3 r: w& J% T3 u, {
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# C8 I0 M* p- Q( v
         "}"}], ",",
    ( z" g$ |3 Q$ t3 D* c! n   RowBox[{"{", 8 z! ^1 ~2 n1 P( U
        RowBox[{) X' ?2 o* \6 O2 d' L5 s
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- f8 V( {7 n1 z/ M; X
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 y: U5 F. v" c- v5 z& K; p/ d0 R     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. x" _6 Z- v2 o  Y7 K5 n3 I
         "}"}], ",",
    - G: H; m1 Y( e' Q   RowBox[{"{",
    ' P( j1 z' t" o/ B- c7 e6 d    RowBox[{
    # p0 D2 L$ F2 v/ b    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 G* C6 w1 h: A. ~4 A: f      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' c7 _( {( V. J! Q% p) L
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 x* z& |, P7 x4 N) B9 b     "}"}], ",", 2 [' K, `7 O1 G
       RowBox[{"{",
    ( f; B' z6 d* X+ b8 f- Z- [( q    RowBox[{$ D" H+ e- ^& r- l# X5 i
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & H1 r1 x# {7 j, b$ W5 l: {: w+ l      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; Y+ y" o: y/ R7 a- J
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 s3 V4 ^2 Q. ~: _; M6 e; E, k1 b
         "}"}], ",", 1 R+ q" t, ?- X+ i
       RowBox[{"{",
    8 G. o7 V0 z2 |# Z- h( Q    RowBox[{7 U* C- B) D1 t4 t( E8 @
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    7 j$ R( K; w" n0 V; g* p' I      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + n+ H. {; y5 w4 M+ q" @
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 E8 P# b, V  X+ a9 {4 Y( Z     "}"}], ",",
    3 m+ D, O4 \& o; ^8 |4 v! k$ R   RowBox[{"{", 1 @( ~" E- o" g
        RowBox[{& Y8 |- q! _& O/ [! v6 G# z' K
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    3 q8 v2 L/ h0 i, M; S% C      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , u4 q: L+ N: f& t4 M
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; [5 z2 V" U7 `0 ?3 @: I- Q     "}"}], ",",
    3 S- U6 H% s5 s% H9 N   RowBox[{"{",
    % E" \5 l9 C2 P7 Z1 f    RowBox[{
    7 M3 L: A0 ], f: J    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ L( g" r4 v. ]
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 a1 d- s4 C7 z9 b( P4 y* d% k     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , x' R) |* @5 D, }+ N     "}"}], ",", 5 M! k# ?& _$ b4 d3 X3 _
       RowBox[{"{",
    ; S" }6 z/ p. Q/ x+ H    RowBox[{
    + t; s. u  {& p( U/ ^: K  r1 v    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 l/ ^  |/ X  S0 k      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & n" e  w0 G) Z: Q0 l1 d0 Z4 D
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 _. o) F/ x  B* A; I/ P, e     "}"}], ",",
    ' x) X) z3 G/ h' }" U2 W6 @+ R   RowBox[{"{", ' A, S. e5 F( A4 R; s/ w
        RowBox[{
    3 [2 p% N8 b5 ~2 H+ k8 }- H    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 n& o3 ]. f7 D( o
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . M( r9 v8 \1 g, j2 j
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    - V1 g, z# K9 I( L) a- k3 m( {' y) R     "}"}], ",",
    + W" Q% x) O& @" W   RowBox[{"{", ; x! M- f" i9 a: x2 U% z- G
        RowBox[{
    , B( }$ L/ g( K: ^( y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 B) Z3 \5 O0 x; ?8 N      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " p7 \7 w5 w) D7 w* E     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    6 C  Y' P4 \  {" n- Z' }     "}"}], ",",
    + W/ W1 b& y6 j! E9 |   RowBox[{"{",
    . b5 P7 B, ~4 b) i. @! p. n    RowBox[{
    3 b* G$ k8 {" C- M: q5 G* ]! \    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 c& L4 ?8 v- t
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * A: `  a, ~( b9 J
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 z* b9 t; l. e. Y0 j" J, v
         "}"}], ",", ' D6 [8 U. E7 D. n( A
       RowBox[{"{", 4 g# P3 @/ C) ~  C) T+ K5 N3 N
        RowBox[{( h: ~+ n( @. a6 S7 o( E
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & W/ O, P6 A2 `/ S& Y      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 M4 S& D. y8 W/ l- i( n' S0 i0 F: Z     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: e1 G6 J$ r! t4 V- S) [9 W7 N& z
         "}"}], ",", 8 k3 g$ ?: T5 e9 t
       RowBox[{"{", 4 w$ c* T' O) V7 H4 C" m
        RowBox[{
    # W( T/ a8 Q8 a' w* Z' X    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 g, U* S8 v( S0 Z" U5 e0 Q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    6 B9 v( h# z- m5 ^& c; t     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ( I$ w3 d9 p# K. t1 R) R     "}"}], ",", $ E. o$ Y0 j4 y8 D6 T6 R
       RowBox[{"{", ( d( W2 s5 f9 ?$ A; f
        RowBox[{  x- E! }2 v8 Y: x( n/ X. i
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 z( i0 q6 i8 z/ O6 \
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 W) v2 _7 l6 \; u9 ]7 R: ~7 B
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    7 X! |0 T* `  ~     "}"}], ",", 8 t4 r" i, c$ e$ u8 }) X3 \
       RowBox[{"{",
    0 L4 Y& L! @- h+ |$ {    RowBox[{: N: [( t0 ]8 r% G
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 O3 f2 L+ n9 k3 M$ Z. r$ Q* S
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 `7 e; G7 A% I! y4 @1 v
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    + D, N% C' v2 s0 _# \     "}"}], ",", 6 Z1 y- w, a0 K6 x2 X/ R
       RowBox[{"{", 9 r; k5 m- j( g+ G& O- R
        RowBox[{6 p3 D. N( B& |
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- r) v4 y2 m- |* K& [4 D  G
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % F( k$ p6 H% R" ^6 `2 B% {     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    4 F. v/ _$ r" f8 j& B7 x     "}"}], ",", - ~7 U1 ^6 b' ~1 [" l
       RowBox[{"{",   _& {. F( }3 i1 p+ T, K
        RowBox[{
    2 n- w+ ~- M3 ~    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; {1 i0 _  q- S5 r      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   R. _" q4 X5 d1 ^& Y# v
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 l- x3 o$ I$ Q- J4 h9 c, X     "}"}], ",",
    % O5 }6 F; y, j  V! g& P   RowBox[{"{",
    7 e& e# ^, m& d2 s( Z    RowBox[{
    ; D; C8 \# j# {3 F    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! G" D2 y* e# ]% ]. a      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 a0 Z( _. `- D4 r5 M     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ! I& \* ?- c. s. |- ]6 W/ e     "}"}], ",", 3 @0 p1 s6 L. H/ ]. Y  A' ?
       RowBox[{"{",
    ' _8 u  y: B$ {  y9 H, b  u. D    RowBox[{
    5 F) a& _: x5 B& o# Z& n7 y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 K' A% f8 ?; W. E; C# e' Q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 ^/ f7 k* _8 H  y" M
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& \; ^4 L. W$ m, N. K
         "}"}], ",",   Z0 q  k4 {6 s4 D' u
       RowBox[{"{", 2 L/ Z/ m% V$ _1 u/ e) B: m* H
        RowBox[{2 g: a. x6 I# B
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & ?& ?# h0 {9 J, e/ U6 F3 J7 \1 ?      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - F4 J1 Y# z& s" Q3 |1 K7 [  o+ y
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 n( B" o3 j5 I2 C
         "}"}], ",",
    " R& _" D7 M. c; E0 |2 L. }4 ?   RowBox[{"{", 1 q4 D9 j! p  H/ F  _' m
        RowBox[{4 E7 g5 e, j8 o  v4 \/ ^  l( h
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; p4 A2 C: p( D& d* a      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    - a% @+ m0 i, K" d7 [     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; X" d: u4 \: ^
         "}"}], ",",
    # B; a) N  H9 x$ P( h   RowBox[{"{",
    4 r! q7 {* N- J! {$ \    RowBox[{
    % O  |$ J8 A/ m* O4 {* B    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 K  A; t. Y# g! N* _
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " g# o& ?/ E, H
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    " n' d$ j- ~! r3 x5 F1 }6 {) B     "}"}], ",",
    ; M: i  ]7 _* W: ~) Q* ?: S   RowBox[{"{", ) j: e; ~+ ]- R7 p$ a8 I
        RowBox[{
    - C' G; L. d6 r) z1 |. Y4 j    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      Y+ y  z2 U$ |$ e7 F6 R# @. Y" Z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & @; Z" Z. V6 W  e! h2 G
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, q* e; D+ R3 t/ F
         "}"}], ",", % Q$ Y; d9 j) j9 ]6 r8 h. ~& K
       RowBox[{"{", ; f8 P$ `/ ]9 n6 ~
        RowBox[{
    $ }0 c1 w8 S; @    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- t! T$ E! t5 l; M% u
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 E& C4 F( Y- E3 x  H6 S# ?+ l     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 w. G5 L& j* T* J! |+ b
         "}"}], ",",
    / j# s6 @2 W* Z  B2 \! [" M7 |   RowBox[{"{", 4 C+ D/ u/ B; I+ G5 Y
        RowBox[{
    5 [3 c( t+ U  [: V2 o    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    $ \7 S0 G( K9 l$ V1 W* f      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    + u/ k% d' Q$ j+ L& V( H9 j" R     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 H6 f2 S* E5 d& ]! f
         "}"}], ",", * u, K, [- E2 ^
       RowBox[{"{",
    8 y8 q. h" a9 {    RowBox[{6 a: r) Y: u$ S2 B# [
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! A" E( [* x* d; f
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . `; C8 e1 l5 {6 J
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 d( @- e% ], I# {
         "}"}], ",", ' Y9 c1 X- P$ |# t/ J9 I5 F7 A
       RowBox[{"{",
    4 i* J" Q. n- }& i* Y& ]. k: y! {    RowBox[{* ~9 D5 M/ q6 r/ a) \4 O& e
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 j5 d) D) V2 x8 ~( T$ `0 b: W# o      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 _3 s: F, ~0 l) N: C0 c1 R& s
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    $ V4 k  h# v2 d3 s" l     "}"}], ",",
    - d" o. m0 a. j9 n1 e   RowBox[{"{", , }* k; a+ }" H! y3 r6 [" ~
        RowBox[{
    + J; j9 J2 G3 A; X; t: u8 ?9 V1 D    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- x8 R& p1 t) Q% E* U
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 Y4 {) B6 y2 p; @; d* A  n
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, G* H5 E+ e) z$ D
         "}"}], ",",
    ! B& ?3 l0 N, ^  E   RowBox[{"{",
    9 P2 ^4 h8 {  w3 [1 _    RowBox[{' I6 ]. V) G4 V1 J: T
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 [' Q& s+ A9 V9 t+ V) e/ \
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - Y: y5 U% Z7 t" N( @, z' R
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: o/ Q, m; L/ [; y, j! u, k
         "}"}], ",",
    % O7 V: u5 X" H, v" K7 d4 T, q1 c+ T$ l   RowBox[{"{",
    0 b, U1 a$ A+ m6 x) Q) h, t& r    RowBox[{
    ! K  `( h  b, w) k$ ~8 ?    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    % H1 P5 _% M9 o1 B      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   w8 }' K( n8 Q. K* s5 P# I1 [3 N; L
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 C7 m3 N3 `* B
         "}"}], ",", & ?& P5 {; O7 ]% W( o! F0 E5 o
       RowBox[{"{",
    1 j* G* E6 Z7 q# R    RowBox[{
    / p* ~, V; T, z  A9 M* e9 T. b" a" T    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ g5 Y* y, k0 P+ c0 O0 R+ [
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 h% v0 q: q! F) f3 }; w     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 ~3 m: T# v) a0 ?
         "}"}], ",", / V" G. C% [  O* G% w6 O" t, b& r
       RowBox[{"{", " C1 y* r/ M2 j( d, a
        RowBox[{
    5 h1 a' M2 \/ ^6 W4 k# I& q; K$ `4 V    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ A3 h% V* ?, G* e: j' i& [; o* X
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    $ e. ]: G9 o- k( A2 c0 U1 |     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    " p; V9 h2 W9 B  a( N: C9 W     "}"}], ",",
    1 c9 Z8 z- g, k0 O   RowBox[{"{", % u% L3 J2 Q) h" @2 x# Y3 Z0 o
        RowBox[{
    ! H3 ~: z# ]8 ~    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ' l, E: I3 z( F% |9 ]( ?( l+ k5 l      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) d1 }$ `# A' V     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    6 [  f8 l! F* W     "}"}], ",",
      j- `& N" A- }7 Y" S+ r   RowBox[{"{", - q4 z* u) a: Q
        RowBox[{
    ' p2 [+ x7 F/ G" a/ a5 Z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 E. @0 r0 q& w" J" x      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    6 W, J! U0 X0 h' N  q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& T: l% g5 |" a6 Z2 G
         "}"}], ",", % ]1 N4 S0 w9 c" P
       RowBox[{"{",
    1 d: S+ @' M! g* W/ _3 U- k: o    RowBox[{  S! i8 f1 Y3 n8 @8 K( C, V' m
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 g( X  l  S6 ]" \
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 ]3 ^) L: H. Z
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    7 z9 R' I# _1 f5 H4 f+ s! n+ o     "}"}], ",", " J# R2 V  X. f- m7 @
       RowBox[{"{", 5 e; G3 ]) K- A# G1 r- J4 L' v
        RowBox[{: V! P, `( r, `" V: ]' J
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 `7 T/ o8 A' ~5 U+ P1 p
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    : |( g; s. R6 i) z7 R     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 E# D* ~3 \, S3 w
         "}"}], ",",
    & A6 S- k9 Z; L( ?* I- w9 u   RowBox[{"{", & D: q7 j2 j9 N! J
        RowBox[{
    + n* q; x( U" L7 Z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' @, y* V; D( a+ C2 X3 f3 n
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 E0 W; y3 m% Z8 |     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# }% ^0 f  R; t9 i9 ?
         "}"}], ",",
    ' V  T$ n0 O; F: g1 w   RowBox[{"{", - f- Z% L, R8 Q1 B
        RowBox[{: Q& X7 f+ m& a, A# [1 H/ @
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 n* w. J, ]- X+ S/ G& n8 v6 ?
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " U( D/ R$ \( w* ~: m' i/ s     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 r9 y/ K2 P. d1 O3 T
         "}"}], ",", : i0 J8 v6 h+ O( Y
       RowBox[{"{",
    : w2 G! u8 _2 h& v; H    RowBox[{+ c; h* F5 |7 c: g* J( g4 x
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 Z- L+ S4 Q( i! @0 q: c% D
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # h! n3 F7 d* z, c! W. g% ^% T/ f
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. ^) z* q* f7 {8 o& U6 E  F9 ?
         "}"}], ",", & C* W5 y2 Q% g
       RowBox[{"{",
    6 d, c4 o  F1 F# ?& x+ l0 ], z$ A    RowBox[{
    ( n: ~+ U; c( e, u. j    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 ]' Y9 v) c8 S: D8 _* i! ?- P1 Q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : N6 B( a' q" P. Z; ?+ q7 Q
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      y4 i3 ~0 [" y6 }6 O     "}"}], ",", : j, h# c5 x5 h
       RowBox[{"{",
    8 n3 X1 _8 n- }& I% x% o    RowBox[{3 n- p. i8 G* }
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , F  j' W: j: Q, J9 x      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; j9 f" j% K/ v! M* Q" \     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    7 t1 R$ D* z% O8 j& a     "}"}], ",", * L) E: ~  c8 @: U; r4 |
       RowBox[{"{",
    ( j  u4 i7 q# ]+ t7 c    RowBox[{7 C+ r3 o6 w! q* o
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 x6 q1 r+ a) ~6 G" F. A/ @      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 Z' s7 `' ]' _& l0 |# n     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ' c3 o% c/ I% D  }8 x     "}"}], ",",
    ) A8 p, _4 C3 o4 {3 ~   RowBox[{"{",
      M9 q  I6 p0 T0 P3 S  f0 j" H5 ~    RowBox[{8 b/ ^: j9 C& z
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , G4 J  R7 d' S4 b1 t0 g0 {      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / P7 p. n! X1 w# i: ~
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    $ ]5 Q5 b7 \9 k5 W* \4 x1 T' s8 G* T     "}"}], ",", , U7 _9 H  t, i2 h. e5 }+ p7 W
       RowBox[{"{", 8 P5 M$ _8 A+ O5 p
        RowBox[{
    + a& E. j  k6 i4 f  A; T0 g5 s    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' f2 d! K0 F& X6 Q$ s1 S
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ I: c4 E7 s" Z$ [4 V
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% ^; o, M1 m; E& B$ A
         "}"}], ",", # [* M% c+ d. F/ n% {
       RowBox[{"{",
    + F0 `. `# b/ `; z: f6 C9 Z1 X    RowBox[{" o+ A; j0 {. D' P$ c+ Q
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 W  C- R( P( o0 l& \8 [; f      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 Y- h' _/ U6 e+ G0 j0 n  ?
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& y% r; v0 v8 ?. K
         "}"}], ",", " C3 H, v: E+ _" o: l! G
       RowBox[{"{",
    / g- Y# \' t6 G+ Y" @7 k. v1 ^    RowBox[{
    ) }" l3 r/ s7 i$ r    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    . r- Y* u% o0 I, R* V2 C1 @8 ^7 P      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; ]& L" v# e& ^6 o4 d     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 G3 f1 y& c& N' S1 q+ y
         "}"}], ",", - x# k! Z& j+ h8 C
       RowBox[{"{", 8 @& |5 H0 k& c# n- G3 q
        RowBox[{
    0 _2 F# U: G. P& u$ L! C; B( u    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- w% \8 x6 R% R7 x; ~
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    + A; E6 O) i, C- \9 \, S     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# T, g; F4 H9 e# k
         "}"}], ",", ' T6 z. A/ O; ^, j
       RowBox[{"{",
    / k& a, d- K! t# A) o# Q8 d! s/ b    RowBox[{
    6 v/ l: u) P% p0 A    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    . j, l# R/ N/ ?* X. \      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", * }0 X' s+ F2 ?; L8 E7 L6 m
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( h' \& q3 {, L  F3 C+ N
         "}"}]}], "}"}]], "Output",
    * w9 h, O8 G* U$ X3 `" ^ CellChangeTimes->{! U) \6 `: i1 G1 m
      3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
    ) t: c; t6 A' V4 B   3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9, % U, c- L5 K* p" M. U- ]+ A
       3.5779619748823338`*^9}, 3.578012345453125*^9}]1 k# s* z+ c# B# G  s" a
    }, Open  ]],
    : _4 p; H0 G& Y' p& d& A0 ?: h9 `9 ?) l* b0 G% b
    Cell[BoxData[
    # p# Q$ |2 W" Y RowBox[{"For", "[",
    7 j: P! K+ {8 u3 n* I  e5 U  RowBox[{
    4 B! w9 B0 \, ?* O: F9 G   RowBox[{"i", "=", "1"}], ",", ; x  x7 z, d1 `) Q  h0 o- U1 T
       RowBox[{"i", "\[LessEqual]", "60"}], ",", % Z: _+ V0 {- P; O0 o2 L
       RowBox[{"i", "++"}], ",",
    & K* `3 E! E/ f: a5 N* E+ `) ?   RowBox[{"{", "\[IndentingNewLine]", . X9 k/ m3 O; o0 t$ M$ A7 g
        RowBox[{
    ( \) p$ o( }: M9 k8 b; ~     RowBox[{
    + I6 Y# u* X" J, y" z2 R8 h) C      RowBox[{"m60n21", "[", - z  K* n! i! G; W) i" ^: m0 B
           RowBox[{"[",
    5 h) T0 D, r) D# A4 }1 Y$ w4 U8 p        RowBox[{"i", ",", "1"}], "]"}], "]"}], "=",   b, o- `* U' ^) F1 L1 Q2 x
          RowBox[{"u1", "/.", ) M; s$ i& W- S" O7 |
           RowBox[{"{",
    & g# V$ Y. g: {1 h+ v        RowBox[{
    ! }0 q8 w, p0 f+ M0 L         RowBox[{"x1", "->", ' ]! a& c/ _9 d* J. y. R& b9 q! P" x
              RowBox[{"Data", "[",
    ! E" ?& `. [2 w) p% v           RowBox[{"[", . O7 a3 z" |, J# V$ k4 D
                RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", ' A3 h+ |) _) o
             RowBox[{"x2", "->",
    & M7 D4 U9 r7 M. r$ |1 D          RowBox[{"Data", "[", 5 K' F* S1 r0 l' C1 ?( k
               RowBox[{"[",
    5 {$ O& K! O% o& n+ h3 e/ ~8 R            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    0 a! R- H' C5 M# w# K. p         RowBox[{"x3", "->", ' i3 }  j/ H, _& O
              RowBox[{"Data", "[",
    , F4 b, z4 {( Z6 V" \           RowBox[{"[", 4 Q( t4 G& f7 b
                RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    $ s* ^; ~% D- m; m# ^6 N         RowBox[{"x4", "->",
    / X8 Y3 h& G+ Y& F4 X( x          RowBox[{"Data", "[", ) c4 [1 ^# L$ \, E1 s0 J' K
               RowBox[{"[", 8 A' f- x  ~" p) M6 G* N
                RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 6 j; }/ w+ D& m
             RowBox[{"x5", "->",
    : J& P# e  k; R          RowBox[{"Data", "[",
    % ^/ v! S8 g& c( g0 }. Z$ B           RowBox[{"[", # z3 W6 t8 W4 D1 H/ q5 d' d  o
                RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", " ~9 R5 G: D0 `7 @$ a# n/ q9 v
             RowBox[{"x6", "->",
    ) R9 H" P! p6 j1 i5 j8 O6 E( {0 S          RowBox[{"Data", "[",
    - n$ L- O6 R# b) z           RowBox[{"[", . D4 r3 X9 Z7 k6 n5 H# y/ t* h
                RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", 0 A* f$ |4 u, p, r
             RowBox[{"x7", "->",
    5 p& y9 U' W1 n4 B          RowBox[{"Data", "[",
    ) x& k( }" Z! e9 B# u( [           RowBox[{"[",
    * W! {' b! g' n            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    * a' _1 F, {1 H4 {5 M# \- u         RowBox[{"x8", "->",
    ) s% d: x! F" S, q' `0 `          RowBox[{"Data", "[",
    & J( ~" S  `$ B* R& C8 S" l           RowBox[{"[", 8 ]* ?" x% E: ?% t
                RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    & N. U7 n6 p9 I% m/ L         RowBox[{"x9", "->",
    3 B8 g: B, N+ n! D- W& O  \4 L          RowBox[{"Data", "[",
    - b$ _4 D  U5 |8 W! i           RowBox[{"[",
    ! R! z! ?2 H( Q, ~% r2 T8 P            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
    2 J  K) f+ W4 W! x     "\[IndentingNewLine]",
    ( n* }8 z9 _. Y5 B: O     RowBox[{, Z; Z* q- D1 k% d$ v% Q- m
          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
    % w+ k9 P( V! ^- `4 C4 c- F: @神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗

    6 x5 u+ q: m& r, _( O(* Content-type: application/mathematica *)
    : a. f) d" w; J
    7 X, C9 z  R. ^) v(*** Wolfram Notebook File ***)
    % d: X* y# M7 Z7 s6 S8 y(* http://www.wolfram.com/nb *)" @- S4 @  ~2 G) y' a+ O: s

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

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

    6 o0 }( W' }0 Z4 u5 jCell[BoxData[+ T! R: z, Q/ H9 t" O+ M
    RowBox[{"For", "[", 6 O0 l" b- b; H. j2 ?' ]# Y9 w/ _
      RowBox[{
    0 R4 \7 t* N) p% V  n, |   RowBox[{"i", "=", "1"}], ",", ( H8 @9 M. D2 ~& o/ u' G
       RowBox[{"i", "\[LessEqual]", "9"}], ",", 9 D6 S0 |: H# D4 {
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 0 R& v, v0 v8 l1 {& d* w3 L
       RowBox[{/ k8 c  y4 x5 W9 L0 ~7 Q  A
        RowBox[{5 B/ q- z; f* w! \; l9 J! y
         RowBox[{"CM", "[",
    ) E: E; Z& g; \* E" n' g( W      RowBox[{"1", ",", "i"}], "]"}], "=",
    / t8 y8 q# F: _* u; r     RowBox[{"Data", "[",
    ) C* s  S4 f3 G4 l      RowBox[{"[",
    / N+ D4 i1 ]# K4 o7 ?6 {* h+ i+ l       RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}], # }+ H9 Y8 W# _
      "\[IndentingNewLine]", "]"}]], "Input",; Z  b* Y  \$ @. O0 h8 `
    CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {6 t, W. ?, Q4 w4 V
       3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9,
      [3 l( h, o1 B: V4 Z' U   3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9, % P7 _' ~1 c% `: p1 k; T
       3.57791344209375*^9, 3.5779588070933466`*^9}],
    9 Y. G. ]% m3 ^6 \% h- P7 ?6 ~: g8 @- @6 N2 O; S( j5 }. h
    Cell[CellGroupData[{: Z5 K+ d! d: K8 z; ?/ ]

    " R1 _% i; `. ^5 \; BCell[BoxData[{
    6 e) I; A1 y# U4 a5 C RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]", / @8 ^& t/ @+ J8 j
    RowBox[{"M1", "=", "1"}]}], "Input",& l' E; I$ J2 v( M
    CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {" U; |4 }, v: ?2 n4 e2 d. i) c
       3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9,
    0 _) l2 Q# ]8 h0 n   3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {0 ?8 @, l8 y& G% T0 x
       3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9,
    ( c' Q" e- p6 X* W$ C1 s0 J. \   3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {' w& K$ N1 O' A; B; Y) _1 E/ t
       3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {! U* U; H1 s( }' _- h1 M
       3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9,
    ! c% g* _& G* j4 D# @+ Z  `7 J7 b   3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {' p. B, w. d5 X, L0 m4 K# |6 G  x
       3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {
    : E2 K' v# \! j$ g   3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9, # D7 }0 e+ N& w) k6 B$ Q, q3 k/ Z
       3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
      {- B( N) _5 V' H. U, y* U
    ; C/ I/ A# c% B7 qCell[BoxData["0.2`"], "Output",
    4 |$ ^; [  ~; E9 F, x. a CellChangeTimes->{
    . h, T. U1 n; p  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    " ]0 b: W* J7 u* X   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    % t; I% R- Q8 Y  X9 f/ M   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, 1 d& N' x. F7 F. R8 _7 G
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {# n  w- z3 `+ N3 H7 v5 W4 r2 E
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    5 {, G+ f) I" W$ j7 M$ W' t   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    + ?& l* l5 ~% E  n- J' q   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
    * |) S- D2 E$ @6 ^5 e6 X   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    # Z2 x2 z9 D3 d   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, + P8 a% [, ]1 ?, U
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, 8 K8 X* m2 A) G% Y% Z
       3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, + h4 ?2 p: v0 r1 S. D# B
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, ! B% l- r% A5 T+ t  ^
       3.577960510686717*^9, 3.578012149296875*^9}],$ @+ ~0 @1 B7 Z. [) i3 F0 f
    % U% \: m; i8 T, n4 u
    Cell[BoxData["1"], "Output",; [# |6 ], n: ]! I0 h7 N8 z/ J1 r
    CellChangeTimes->{5 T: c7 V# g, v: I9 _8 G
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    5 @8 g6 @' O2 z# F" q' c   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    - d7 [# l" w, n  a   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    3 w3 g. y0 K5 t5 X- o   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {- C6 F3 |8 a' q4 f
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, % J* p" ^+ d3 F' f9 p0 n/ a
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {& u- \  p; _  R1 j
       3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
      T/ d. D, a' ~9 o   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    % B* n: H' o* m/ O   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, / v6 }9 x( O2 k5 Q  X9 ?* `
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    & T5 q* A( C+ Z& T  f   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    " J* T/ O& Y3 C; Z4 U4 G# H   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, " `- B! z8 i! K) E6 {
       3.577960510686717*^9, 3.578012149296875*^9}]
    - T& n+ V) ~5 Q- j}, Open  ]],! U4 R5 Y" W: L9 Y
    3 B. E: M6 V* R: {  q
    Cell[BoxData[
    / |" O+ u6 o5 U' T. r" @ RowBox[{"For", "[", 9 [5 S# _" ~0 `/ X9 M  g$ ]1 G
      RowBox[{
    ; C' o* C: `7 D   RowBox[{"k", "=", "2"}], ",", ( Q. n8 V6 l# `- v6 R
       RowBox[{"k", "\[LessEqual]", "60"}], ",", 1 |1 h) k2 O/ V2 N$ `( V
       RowBox[{"k", "++"}], ",",
    ! N* d) z0 b. k5 `! u2 N/ D% K8 S   RowBox[{"{", "\[IndentingNewLine]", 7 `' e5 p) X4 B% F0 |
        RowBox[{
    ) \1 m3 ~: D8 e+ D5 n& }     RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
    2 X! _2 X2 V' X8 d! U( y" @     RowBox[{"For", "[", 9 p; D9 A. d& |# Y
          RowBox[{
    , T5 I  z: _: K2 X) U/ N2 O       RowBox[{"j", "=", "1"}], ",", / J5 v7 x9 _# D/ N4 q  |: m! N
           RowBox[{"j", "\[LessEqual]", ( L# e7 j7 S3 y- Z
            RowBox[{"k", "-", "1"}]}], ",", $ j3 I2 M; P2 b) G9 l
           RowBox[{"j", "++"}], ",", 2 I, N3 S/ Q' ]: ^
           RowBox[{"{", "\[IndentingNewLine]", 3 z$ P# D0 J* \4 i8 v
            RowBox[{
    % G- R; i8 u' `7 M! ^. @         RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]", 9 E/ G# ?. Y0 A/ {, D% c
             RowBox[{"For", "[", 0 v$ h9 b3 K, b' f% F- V/ N
              RowBox[{
    & R4 l# G3 k/ j; n$ F$ B           RowBox[{"i", "=", "1"}], ",", ( D6 J, |% G1 X7 a- m
               RowBox[{"i", "\[LessEqual]", "9"}], ",", 0 y, c7 [1 {2 t8 O6 a  [
               RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", , O1 j; s8 J) s+ z4 S
               RowBox[{
    $ }/ h3 t# H# K' ~. h, i            RowBox[{"r1", "+=", . E7 Z0 P" ^# n3 @7 |
                 RowBox[{
    6 J3 M1 C6 i# x+ @1 }7 A              RowBox[{"(", " d- x- J* T! q" Z
                   RowBox[{3 Y. L9 {) M$ V9 Q# q0 j  M
                    RowBox[{"CM", "[",
    2 y9 }" F  U  q3 ]: H/ w  D                 RowBox[{"j", ",", "i"}], "]"}], "-", " q8 e- ~7 h, N0 }5 _5 y0 b- i
                    RowBox[{"Data", "[", 1 F7 o7 \$ V0 [/ S& }& k, Y
                     RowBox[{"[",
    , G2 E( f9 y# J  w! t& A6 x                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
    $ r7 S+ U6 W: e  F+ T              RowBox[{"(",
      J7 W' n5 H  S& \               RowBox[{9 k0 s. u5 M  f. O+ I$ Q0 @
                    RowBox[{"CM", "[",   E. M! q6 d/ h3 ^
                     RowBox[{"j", ",", "i"}], "]"}], "-",
    ( g9 A" d' n- j                RowBox[{"Data", "[",
    * q' q/ w5 ~* m9 e6 J4 `. C                 RowBox[{"[",
    : h7 d- c3 j: n/ \                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
    9 {- G6 Q0 |! k5 b           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 8 a% \- A  Q4 _
             RowBox[{"r1", "=",
    # j/ Q3 Q3 i6 b$ o          RowBox[{"Sqrt", "[",
    4 {7 k9 z2 U% F4 C% J; e2 S* p           RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
    & w4 C5 n) l, Z         RowBox[{"If", "[", " ",
    ) e1 R1 O. b7 e+ W          RowBox[{
    : v/ d+ _/ F6 s) V( I7 P" T           RowBox[{"j", "\[Equal]", "1"}], ",",
    ! [' A9 n( N. W: L, V3 ~0 f           RowBox[{"rmin", "=", "r1"}], ",", % }* j' r/ @( I  f: L5 c. c
               RowBox[{"If", "[", & ?8 C5 J2 c' B: J
                RowBox[{2 ^$ D  U; z# t- e& P2 s
                 RowBox[{"r1", "<", "rmin"}], ",",
    2 D# {7 F  A+ L+ I8 n% b( N             RowBox[{"rmin", "=", "r1"}], ",",
    9 T! \/ C: y1 V( C1 x' h             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
      m* _0 r$ W' b        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";", 6 c% M: z# \6 m
         "\[IndentingNewLine]",
    3 X4 }0 I! L  x: s, e7 d3 S     RowBox[{"If", "[",
    0 u9 M; B; b2 k& d3 m7 A      RowBox[{! b3 h$ h- D6 x$ Q
           RowBox[{"rmin", ">", "r0"}], ",",
    $ F) g! `+ r1 Y$ b/ a1 ~       RowBox[{"{", "\[IndentingNewLine]",
    3 Q5 J& }- c( H+ z8 f        RowBox[{. K: i% e. v/ |- i. [& O( R
             RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]",
    ; ?9 e5 r* |& ]+ d+ l         RowBox[{"For", "[", 1 W8 ]5 l3 _: z' L/ r* |7 j
              RowBox[{2 w/ S- D  n$ B: t0 P+ k0 W
               RowBox[{"i1", "=", "1"}], ",", 5 n& d6 E/ ^7 ~
               RowBox[{"i1", "\[LessEqual]", "9"}], ",",
    8 E8 i- |0 I$ d! \* Z8 B           RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]", , j1 A$ C9 U9 V
               RowBox[{
    , s% H( I' j' ^+ q5 {            RowBox[{) u/ D0 L! M' ^
                 RowBox[{"CM", "[",
    ( L9 Z2 H4 `; P, c0 H  \5 A              RowBox[{"M1", ",", "i1"}], "]"}], "=", ' x: X7 s- ?' s9 N" }2 H8 L1 J
                 RowBox[{"Data", "[", ) Z( D) L0 n( s+ a, [
                  RowBox[{"[", 4 S$ R+ \) J: |$ H7 V* S( W
                   RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],
    6 g  L' e# q# Z6 n' d3 b          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", * i+ h6 z) E* U2 M1 t
           RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}],
    ) K1 d) {& p1 v! @9 _    "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",6 R5 L3 h  a/ k* ^! w
    CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {
      {5 a8 M6 A% k9 w   3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
    * i* W' A/ {8 I+ d+ G   3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {3 |& b& A8 m7 |! |8 ^9 n4 O# f
       3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9, ( M8 M  e+ V4 Y3 @3 V
       3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
    ' J! \3 J* ]/ d1 {' k8 Q   3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9, 3 \( Y  S% F5 z+ s
       3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {! w8 I( c3 c; Z- V! W
       3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9, & d9 ]: ?8 r$ J9 Z1 @& _; A1 u& L
       3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {3 T+ n, L% ~/ X+ \" v6 X
       3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
    - o- d0 [" K( w) b" z# V. c   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
    , W! C3 n4 c" x7 J/ }0 a, N   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9, ( O! O4 L; M/ g) c: b: Z$ J
       3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {  g5 R! Q  d+ X3 T' z5 i" m
       3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9,
    ) u" L6 x$ `# w2 i9 f! H   3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {+ g7 H, q! }& H" q
       3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9, - N' Z/ R8 v% m! N* K9 f
       3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9, $ `$ \( w9 v3 w
       3.577958821991373*^9}}],% N- i4 t6 l1 ?5 I/ @- J

    9 a" r) ~4 c' D7 GCell[CellGroupData[{
    5 F# O( F8 U( _: L7 f- E% y" H  \9 l8 |2 c
    Cell[BoxData["M1"], "Input",5 _7 H8 B' q9 W, ^( f
    CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],2 w9 f% e9 k6 Q! G! H

    $ d9 ?$ i( l0 ~  ]Cell[BoxData["21"], "Output",! B* x8 J$ h/ O
    CellChangeTimes->{
    ( _! v7 F7 O! x# N4 E& V4 n  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {7 }. Z; Y( F1 _3 G# s3 y
       3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
    5 Z6 i: @8 A6 x7 A  x! g   3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
    " d1 C1 C9 |9 \" A0 [   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
    2 v( {& I- P, U# q* X; D   3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
    8 O3 \$ f) Z! f, R  R3 x   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, 4 J& t8 J/ n! P& N
       3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
    * c- c9 Q: x- M# G# C6 a   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
      s- r2 m' }& g6 b   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
    6 Y1 i) }; U0 A" f& _- G* C   3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, % l* o( F* _9 ~2 F% o
       3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
    ( G0 A3 g& u+ z* O; J8 _   3.577960515600726*^9, 3.5780121541875*^9}]
    # r$ i8 h2 ~5 R2 w' q/ N}, Open  ]],3 n! d5 a( u! x/ [
    9 y  J- F& X, |2 e
    Cell[BoxData[
    . T/ E( W5 m5 b( b$ [/ [* l3 t: K RowBox[{0 _. d2 u2 @. t+ K5 O! m
      RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", / L: S1 l( h# D
       RowBox[{"1", ",", "i"}], "]"}], 6 o& x: P8 T) }* G' z4 u$ r2 W; \6 T
      RowBox[{"\:5230CM", "[", 1 P% J" x# d: u  v: I' y  O
       RowBox[{"21", ",", "i"}], "]"}], 2 k0 ?9 ?1 e" J* l" X& V2 C
      "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\0 D" z$ A  u; d% m) n9 ~$ n
    \:51fd\:6570u1\:5230u21"}]], "Input",
    : P% Q3 [! z2 |, C; ~( L CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
    6 M! ?. U# y! p8 _  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
    " U  j  U' g# k  3.577960526583145*^9}}],2 Y# e2 n& f! o1 V. i5 m

    / a" l; u% D" l5 [  xCell[BoxData[
    8 W( u) T6 w1 q: c RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
    4 ^9 c, I+ Z$ O CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
    ; b% C: U4 u& ~2 f. s
    $ X! s- ]3 w; L9 Y! S* z7 VCell[CellGroupData[{8 Y( |, O* s8 ]8 a& v
    ! m( M# {. `! f2 S; t
    Cell[BoxData[8 J) V" K& \7 s
    RowBox[{"Xa", "=",
    ( k2 ]3 s& Q- g% x4 u' ~: N1 W  RowBox[{"{",
    + m+ x' r* b& N9 ]   RowBox[{9 H7 k5 e3 [3 i; d; J1 M) P* |
       "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ' L9 g: J0 m  [3 v
        ",", "x8", ",", "x9"}], "}"}]}]], "Input",; @- b$ T5 b' @9 U% U' G
    CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],0 P9 h3 f/ a# H0 k+ W  f0 e( y
    % h- L  ]3 {# E$ G) z3 A4 K) Y) n2 z
    Cell[BoxData[, ^! U! r. c: @6 W4 |: |; z. D
    RowBox[{"{", 1 D8 N/ w, n7 ?" Z, c4 G- d
      RowBox[{
    8 L& o1 q( R* h1 Y7 `) ~: o% b) v  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",! m9 j8 f, U0 u. q- u6 M) }% E
        "x8", ",", "x9"}], "}"}]], "Output",+ S0 F' ~, b& ^$ ]0 F9 |; @( Y, m
    CellChangeTimes->{7 k6 ]5 q1 M7 |- Y  P, a
      3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
    ' o* s8 a  E3 i4 i   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
    5 V" t% ^. z6 r' T   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
    4 A( V+ x+ C5 j" y   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
    ; I3 |$ \3 _1 ~" U   3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
    & w) t4 P" G: C3 [   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9, - u9 y' }/ x0 w$ \5 w
       3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
    1 x, X! @0 V; C/ g" I   3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {$ F9 E( Z, @7 C
       3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {3 Q4 a* [$ ?6 w7 s
       3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
    - a. @; Z8 V& ~& J: _$ s) l/ g# F: I: R   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
    3 h: l1 R) O" i& @5 ~   3.57801215725*^9}]
    " U% s1 }' n' ]3 u0 j/ o: ?7 ~# J! }}, Open  ]],! A: q5 @' K# Q7 X. x+ F& o& k

    ( T) C; F, j1 FCell[CellGroupData[{
    4 R. n& d7 Q) h3 Y# Q. F: I$ M/ \1 A" U: b
    Cell[BoxData[2 z6 g$ l/ M, f( p
    RowBox[{"Ca", "=",
    + Q& z8 j" E9 U# r& D  RowBox[{"{", 8 N' B; f7 [- k. [
       RowBox[{6 K1 [+ A7 P  U
       "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
    ) {+ F  }# l" s    ",", "c8", ",", "c9"}], "}"}]}]], "Input",
    ( T$ ]9 F7 O- \1 _ CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
    1 H# g4 m- O9 {! G  P& i1 w; v
    ' W7 Q7 t* u6 ]8 WCell[BoxData[. q9 e2 o) m( h. P5 v
    RowBox[{"{",
    * x2 X2 a8 D" u  RowBox[{
    ) A% ]/ F+ S% i( I: e$ }  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
    & |$ H- u: H5 l    "c8", ",", "c9"}], "}"}]], "Output",
    & \% C- k1 m, k0 \% q CellChangeTimes->{3 S# K6 a; e& ]% |  y2 O% U0 J# b8 d
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
    7 ^1 A( @( d8 f! d   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
    $ U+ E" \1 H  Z+ Q; |6 h& @  E   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
    / _, W; b6 a- K' U   3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {1 e; M8 Z9 C- v1 f" F% ]
       3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, : Y6 |- W8 t- a' d8 B! E
       3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
    / `/ V" U' @  k4 V2 c% x   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9, 6 R! U2 C7 _9 W# t  q1 \
       3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, 7 n) z1 ~! {# E" S1 z  a
       3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
    ) _. c/ B/ O6 L* B0 @7 R   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
    9 P2 [) `7 q! ~/ e9 X/ e* y   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9, 7 s  p8 H0 {! O9 T/ O
       3.577961904604212*^9}, 3.578012158671875*^9}]
    8 @. p5 x. ]1 t- |& e9 d}, Open  ]],
    7 J& k4 ^- ~/ t( x# Y& o7 V% M1 \+ l* X: m7 N/ x7 h
    Cell[BoxData[: `  ^; T, i/ ~1 @' Z% u3 y9 C
    RowBox[{"For", "[", 7 Q6 }' o( E7 J
      RowBox[{2 N0 e$ A# T, Q6 M4 I& O% j, x
       RowBox[{"i", "=", "1"}], ",",
    . ~2 M6 q) L0 D7 s   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    . n( l* i/ {5 a+ L   RowBox[{"i", "++"}], ",",
    ! B' j- ~# b- T  P% B; W! h& d5 T   RowBox[{$ y  M; h, T, n7 Y8 |5 t
        RowBox[{"Ca", "[", + |& r; q/ O5 Z# d* E/ P
         RowBox[{"[", "i", "]"}], "]"}], "=", ( d8 Q% r) s9 q7 ?4 S: {
        RowBox[{"CM", "[",
    7 T8 P( N, B2 L0 a     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",0 {: d: T0 ]# `1 Q7 s& n
    CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
    ! V# I+ p! D& j6 G   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
    : a* F/ }7 l4 _3 [. T   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
    0 D' D8 _4 _. w# x4 w4 A   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
    ) ]+ o" \! V; U+ a: X% `   3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, $ |( w+ L3 N, e" _
       3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, 6 u% R: a# ~# H& @$ A) z: E4 D, J
       3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
    3 q0 i, m  L+ a% C6 y3 t/ E8 x" Q   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9, - m+ R2 e  g3 `) V
       3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
    $ `5 U1 A+ Y" C+ Y+ l& S   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
    - t# u" [- W( d) w   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
    4 v6 Q6 }/ W1 x& G" \# u+ N   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
    / }/ `) M9 D9 U   3.577961906897415*^9}, 3.578012176296875*^9}],
    4 V/ A& b( \% K  c2 L" T
    $ d# s+ N2 d- _& H8 r# ]/ BCell[CellGroupData[{9 |* i) W4 C- Y/ \2 j) `
    + C& V2 _2 H; V2 V* i) X
    Cell[BoxData[1 X* i5 @8 t3 t
    RowBox[{
    2 l  ]1 X. ]; _# M% S  H8 `, ^  RowBox[{"(",
    2 Q3 S# ~, n; |' W3 \2 j9 Y   RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    0 }' w# ?$ p1 [8 t  RowBox[{"(", " n3 z2 J$ a6 ]5 E: O& ~
       RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
    1 P4 Q0 j2 Y/ \5 i
    7 p0 T$ |% U5 {9 M6 {4 DCell[BoxData[
    7 O5 [$ h+ e! b RowBox[{# T2 J: I# [) }
      SuperscriptBox[+ C; u1 l0 e, o: |% e
       RowBox[{"(", 6 _: R/ ~7 [' E3 j
        RowBox[{
    % e- A- `( h' C4 z2 H     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+", 1 X  K7 ~' c; C) j  f" `7 [( e
      SuperscriptBox[7 P1 e, V, W1 T
       RowBox[{"(",
    . z# w1 _$ r9 Z$ R& i# m( X0 Q& d( I    RowBox[{
    : ]: h: x' ?3 F     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
    8 S5 S( y0 l& o! |; ?6 y# K  SuperscriptBox[
    . ~( z, F% n! H   RowBox[{"(", " K0 _) G* _5 ]( m% S
        RowBox[{
    2 d4 i8 Q/ C/ q# u     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", # b( u! O$ ^' X/ l$ l! P/ i( l% Z1 [
      SuperscriptBox[
    4 a1 _  T4 P. J5 m% z2 F& B   RowBox[{"(", 2 u$ S4 a& Q$ M9 H  d; Z- L
        RowBox[{: L) F8 G6 ]4 H, T4 e: H$ \
         RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
    5 Q, Q* h5 h, M; M9 u4 z( r& M  SuperscriptBox[3 g# w$ K" Q& S. @4 _* [
       RowBox[{"(",
    ! f. E/ C! G6 E: k3 ?+ _; o; `% v    RowBox[{; A1 I/ x& e& {' D
         RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", * g, c$ f  T6 ]7 R( f$ N
      SuperscriptBox[
    . \; _+ T! A1 _, Q) N" l' F   RowBox[{"(", ) U* ?4 v0 T/ G4 t; R5 M
        RowBox[{
    3 `4 O9 J7 Z* `2 A     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+", , f5 {: s1 ]# d4 E. F
      SuperscriptBox[- t; B8 P7 n5 {' f9 X& Y
       RowBox[{"(",
      j3 D3 P" h! q+ z( E" D    RowBox[{
    8 C4 u9 l; K7 d; N; x7 H# V     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",   E' e9 h& |6 e, k( n. m" Y5 H
      SuperscriptBox[+ {' V4 g8 t( g6 `/ `3 O
       RowBox[{"(",
    , N* m% `8 m7 v6 y/ x    RowBox[{8 y+ s- X5 g- z! V
         RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", ; @- u$ a  A/ [$ N0 j% c8 o
      SuperscriptBox[
    : ^; g, V( a" m! s) R+ p% ?   RowBox[{"(",
    0 n% }; F, v7 s, n    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",, c6 L4 a# B6 S1 r: D- ^. A5 _' a3 `
    CellChangeTimes->{7 `4 |1 j+ ]+ n! C6 V
      3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, 0 P6 }& N" B' ]  x) c* n
       3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9, 8 A0 A3 d7 k# E, Q8 y
       3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, 8 T" o% H- j* l5 o2 G
       3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
    3 R9 e3 i7 `" I8 F   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, / V+ `/ B6 a* c4 n
       3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9, 4 K  H- l, ~: S+ P) Y5 k% [
       3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
    & p7 ]3 |5 ]6 w. Z   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
    1 e( u( ^/ C5 d3 V3 [1 b   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {$ g. ]! b' s$ n# w
       3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {2 M5 Z0 f8 @$ U' f. a+ R" ^: i
       3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
    4 Q- A( L' Z" L$ h$ a- o   3.5779618537169228`*^9}, {3.5779618846049767`*^9, ) c  g+ Z( L4 O  J. S
       3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
    & L8 C: U4 J; }7 q- i# T}, Open  ]],: ^! I3 T' [/ }: ?

    9 }& j) A# N/ W& s* U) \" ZCell[CellGroupData[{& X2 T( r0 c6 I9 f
    # J6 h' m3 k7 c, d6 ^: G
    Cell[BoxData[2 R% e: A- b3 p
    RowBox[{% [2 z2 Z4 W/ S& {
      RowBox[{"Ca", "[",
    2 Z) T' J7 b- K, }; Z. _   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",7 D/ F" [! e; d5 Z; y1 E
    CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
    # S; k. S: f# r- l; a, y% ~& l  3.5779616465173616`*^9}],* V6 }8 k" A2 k  B; ]

    - |9 q2 {: x4 c& qCell[BoxData["0"], "Output",4 X8 }# `0 g  G& V" {; W5 G6 y
    CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
    , V) h  b* s$ R  t& o& H5 Q5 L" q  3.5779616484049644`*^9}]( Z8 A# O3 S( y" y: a
    }, Open  ]],9 o# _# ?( q  v# [+ {- a- L  K" A

    ) H/ p9 B! f, G# h! _1 BCell[CellGroupData[{
    : ]# w) ?0 C& T
    ; D6 J, V7 Y9 N6 nCell[BoxData[9 |' a. Z2 k$ h5 q* n9 v& j
    RowBox[{
    * s6 x6 k5 A. K- B) Q: N# T9 J- H) ^  RowBox[{"Ca", "[", 1 s1 E! f; q& R  Q6 c" K
       RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",: c" d( H0 ^+ j
    CellChangeTimes->{3.577957376235614*^9}],  w1 b( v+ U8 a
    ' Y. V( _6 ^3 h0 \4 E- t' [
    Cell[BoxData["0"], "Output",3 a4 \! M% j" a+ o1 A$ {- C
    CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]$ N/ l- H1 X* C% x$ i
    }, Open  ]],
    + U) f" X0 P( r) ~  o! F$ a! d% `3 }2 q" I1 \, O" u
    Cell[CellGroupData[{( p) t- F" t; k2 _- y$ g% z4 W
    - {7 Z% M1 i, N9 x3 N  Y
    Cell[BoxData[
    " E& ~+ V1 w9 Y( [+ Q+ X RowBox[{
    4 K! Q9 H( K( Y& o6 Y- C  RowBox[{"Ca", "[",
    ; ^6 |1 M* x" A- P  S   RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
    $ a2 A( {- f0 A CellChangeTimes->{3.5779573112927003`*^9}],
    # H1 U" R1 f& j( i' G- J6 u
    3 D6 i$ O! C  l0 R% J3 dCell[BoxData["0"], "Output",
    % l' N6 i7 q8 O1 W  I% U, t: O# q CellChangeTimes->{
    ( c1 a# l; z* ]- n# ~  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
    2 h$ g$ @* Y8 P2 U   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
      o+ \: v6 y! M1 n5 v   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9}, ; P' a6 D( ~# b
       3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
    8 {: `& r/ @* j7 Z  ^5 X: w   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, $ M/ i/ g; {6 i! l) t& E
       3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
    4 I( u! \, L. W* G) `) [( A: r}, Open  ]],
    & X+ D; q$ c! }( G. N+ M0 ?6 G4 ]3 r+ E* M8 U
    Cell[CellGroupData[{) g" A. U" G- A4 ~+ u5 E

    ! u: d; z- R* M' O- yCell[BoxData[
    - u" Y0 Q$ ~6 ^& z RowBox[{& k/ E& B$ g. ^2 t6 ~9 Y* j6 d
      RowBox[{"Ca", "[", ' V" p3 M! U3 Z  W7 a
       RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
    " B8 y4 e* V& ?( \9 X' V# q' O CellChangeTimes->{3.577921461734375*^9}],
    1 r4 p" }% B) T& f: |
    - I( f1 g: ]. }2 l+ H# n; \' @Cell[BoxData["0"], "Output",
    ) d) `) Z" Z5 g5 Q CellChangeTimes->{3 }+ [; `7 p% n' w+ V9 X
      3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, 1 k3 c7 C" n: _& W% c+ _+ ?
       3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
    - W# Y9 z) ]6 _% z* `3 O1 y* F   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
    * U0 i% `2 z) }/ h' p( p) s5 `   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, + n8 t' ^( |0 O5 G1 p  Y
       3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]% r8 U* k2 E4 M# U1 |
    }, Open  ]],
    . Z5 `" n" Y; n# V( L! p, f& [* p' W/ h7 K
    Cell[CellGroupData[{6 i4 ?5 v5 v/ T

    7 ~2 H. r& e4 d  A! NCell[BoxData[
    5 e6 B2 K) L" t* t RowBox[{
    0 v( n2 [% K  T$ P3 i  A6 m" o5 _3 I  RowBox[{"Ca", "[",
    * ?# ?& B* t/ Q  N/ g. `! O   RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",# k1 N1 h+ q8 U# C* _
    CellChangeTimes->{3.577957303118286*^9}],
    + U8 w9 t. Y! ?: }! O* _
    * ~4 D- v. ~8 o/ w, q0 m& yCell[BoxData["0"], "Output",+ K/ q9 ]0 l- o, J$ ~, a4 F" G
    CellChangeTimes->{9 k* g$ s" [8 N* E$ a& u- B
      3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
    ( I0 w9 J- {8 R   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
    7 \3 H! T; O/ A% w   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
    5 _4 ?+ D1 O0 S% A3 N, s   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9, 7 W* ~, S- k6 d3 B
       3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
    ) m" _3 I  A9 l& ?" m7 W   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
    5 Q! m3 n2 O5 J9 s4 P- q5 e  \   3.577961889378585*^9, 3.577961912965826*^9}}]* L4 E) v8 P' B( N; q
    }, Open  ]],- r' S% w  `: \1 e; |8 Z! L

    1 q2 b. ~- E3 c1 f: D6 X* nCell[CellGroupData[{- a" a1 ^9 k0 d$ m

    . J4 _2 y4 F" F. K) t9 `; X2 c' aCell[BoxData[
    ! ]; M2 ^& `& t RowBox[{
    7 f  D6 X  G4 a) Q$ h- F* o9 z  RowBox[{"Ca", "[", ; V3 y: G6 a( L3 K1 }+ C) X& ~
       RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",$ l3 [5 T; V& W
    CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {+ y3 Y5 A6 g3 p5 K: w1 ~
      3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9, 9 k! }' N2 Q" z4 Y# Q
      3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {; B/ h$ [3 ^( c0 ~! @2 l5 ^. y
      3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
    8 V( p$ X% g" e# Z0 B  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {( |# M  [( U9 y8 r5 v: o
      3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9, + O' X* P; E4 {, o  B
      3.577921435703125*^9}}],  c6 D" C( l( y* E" G' H- J( [2 @

    9 {2 b. y8 F) a# P/ s% NCell[BoxData["0"], "Output",, S8 D  z% J' P0 J) {7 G6 g1 ]/ p) ]
    CellChangeTimes->{( Y& w7 h$ }/ U6 g  p
      3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {
    - `6 \% A+ m8 o* ]% Y0 o! t   3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
    ( W: r; \! L- G4 @1 m% `$ W. P   3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {& ^# w# {& m. F5 ]4 u! v7 p$ P
       3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
    : E0 {+ d# f  C9 h) U   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
    7 \  Y( _5 b, g6 t4 E' G4 J   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
    ; d1 a/ ?  n) W   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,   r$ D* t9 O7 T1 R* m9 g
       3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
    2 N# ?0 O9 P9 e% K" t   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {& {; k3 C  Z3 u. U' c- O
       3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9, ; I, H. c. H* n6 A: R
       3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {9 }( I- q& p" J" k8 n/ g! P! Z+ q- {% L8 x
       3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
    6 f4 |& A# z( U- ~  A. C& \. p2 Q   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
    9 b6 E2 s  G- k4 G}, Open  ]],
    1 A8 t6 `( C7 y. R' v, k1 v" k
    ) a! c, q6 B1 F  qCell[CellGroupData[{# E4 H2 f0 y$ l4 o6 _# e8 r1 q" F

    " I% \1 a( a9 j5 L( K2 kCell[BoxData[
    1 E2 Q6 ]9 p) u7 J" P8 ` RowBox[{"Delta1", "=",
    2 t+ D  r3 b) r' e5 ?- Z4 d: P  RowBox[{, x- f- |3 j# Y! Y' l. \/ b
       SubsuperscriptBox["\[Integral]", ) }; v8 W, M. Y/ }* Q
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ! h* \. t; M$ _
       RowBox[{
    8 ]+ H8 e* |1 h% Z: p! ^2 {/ g    SubsuperscriptBox["\[Integral]", 9 J& y9 W8 n: B6 c8 p# A
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ( m/ }) s: Y- R* H    RowBox[{: \  C7 j) k( U9 z/ J1 G, [- Z
         SubsuperscriptBox["\[Integral]",
    # M2 e2 z% J/ }! s+ u( |      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    4 v1 L2 S* a* R' `     RowBox[{$ i( s* W# p% X3 x9 E
          SubsuperscriptBox["\[Integral]",
    1 E, M3 P( L% G5 S       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    - H% [, t& x' H3 U. V9 `1 \0 V      RowBox[{
    / Z+ a& l% H3 I) D/ V  R       SubsuperscriptBox["\[Integral]", " |/ @, U& d# m9 `, x) K. P. q
            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], & o" V- {: G4 F( L! B. O
           RowBox[{
    2 V# W5 y' o0 `9 K        SubsuperscriptBox["\[Integral]", 7 w- ~1 d8 c3 i+ ?
             RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ! n$ t( e; b' m& K  J5 o        RowBox[{
    , a7 o' I& I  B6 A: Q8 o& s& O         SubsuperscriptBox["\[Integral]", 1 H# ?6 N% G" b
              RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    % a- d7 g! Y; ^         RowBox[{
    ; Z1 ^! G# K. _! W& U; c- r& ^          SubsuperscriptBox["\[Integral]",
    , A! A+ M# n$ i+ S" x           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    7 e# X& T; K6 ^/ ~$ b" O          RowBox[{9 c3 w# V" @  \& i
               SubsuperscriptBox["\[Integral]", " a) w, r9 R" C5 p7 k0 @; Y, W1 h
                RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    : n, e& S* B- ~  i% z! H% [           RowBox[{
    ) N7 Z+ D( V+ C$ K. Y            RowBox[{"Exp", "[", ' w) u% P3 m! G( M( A; P: s2 ^
                 RowBox[{  U2 _2 w, x% h4 P8 b/ h0 M
                  RowBox[{
    ! P, J6 r9 ?3 E) H               RowBox[{"-", 9 N! o3 q& w; z0 i4 K3 S8 @5 p
                    RowBox[{
    . I( b, F  Q9 I, r                 RowBox[{"(",
    5 Z% y; V7 |5 m! Q# K% z                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 7 K" K8 Q% q2 v! w  t5 Z4 @
                     RowBox[{"(",
      m, C8 G4 I: t" X7 T                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", ' J1 w, {0 x0 x  g
                  "Delta"}], "]"}], " Z) \# Z- Z, L4 F/ e- v* W
                RowBox[{"\[DifferentialD]", "x1"}], + i% U& T; D3 s; B" `7 R
                RowBox[{"\[DifferentialD]", "x2"}],
    2 H' m) I/ G8 {* K, B7 k1 f            RowBox[{"\[DifferentialD]", "x3"}], * j1 W& v) g! f, k& Q8 L+ g$ F
                RowBox[{"\[DifferentialD]", "x4"}], / y) Y1 Y, U6 P! t4 {$ |: I' D# H
                RowBox[{"\[DifferentialD]", "x5"}],
    0 z4 E3 \( c# {. B9 n            RowBox[{"\[DifferentialD]", "x6"}],
    ; i  `$ p* k" ~/ N            RowBox[{"\[DifferentialD]", "x7"}], ; U8 |8 L2 K% I0 T
                RowBox[{"\[DifferentialD]", "x8"}], , O1 |" k1 U8 o$ H$ Q" q3 E: u* n
                RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",- y: h7 W6 Z  q8 Q5 v8 Z! K
    CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
    4 C' e% Z6 g; u' V6 a8 V2 K   3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, ( I, {$ R' m3 O0 s2 r
       3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
    7 z1 T. R( B" ]- x0 F) b   3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9, , b7 J' l* E3 a1 T7 Y& d
       3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
    " v4 L1 Y% m& M# }   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,   e, g! M6 i2 h/ i; C# t7 _8 Z
       3.577918964453125*^9}}],
    2 S! C! n1 M8 L% R& E( l' T8 p, r& y7 M0 R3 R) M: e5 d
    Cell[BoxData[9 w; ]" a. g0 }5 q
    RowBox[{"97.40909103400237`", " ",
    " x, o) w+ h7 W$ ]& z  ~, M: z% }  SuperscriptBox["Delta", "8"], " ",
    6 k+ r) i; F/ S  I  RowBox[{"If", "[",
    1 N0 Z( |8 |( q: R% Z( N   RowBox[{  Q+ {7 L" k5 Q' I- z/ \# ]
        RowBox[{7 V. F' {4 H+ C. v0 [& m9 x
         RowBox[{"Re", "[", + D* S5 c8 N, W/ Q8 D* f7 c
          SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
    . N/ b, r9 x* p7 x" J/ |! b/ \5 e    FractionBox[
    % p8 t) A7 Q; o5 I0 `2 c     RowBox[{"1.7724538509055159`", " ",
    0 [- e" Z( q* ~: K0 t% w      SuperscriptBox["\[ExponentialE]",
    9 Y: J7 j; s& u& x       FractionBox["1.1102230246251565`*^-16", ' |! x! }# t% y( O- g3 b# S$ A3 L
            SuperscriptBox["Delta", "2"]]]}],
    2 L9 I/ Q8 T9 V' Y0 z+ _' k1 {$ ]* j' i     SqrtBox[
    * i$ ~6 @- l2 g' ^) C" V# V      FractionBox["1",
    0 h" t' \0 d6 J% t9 n$ }+ n       SuperscriptBox["Delta", "2"]]]], ",", # D% c) k9 Q, a# a" R$ C6 s  h6 ]
        RowBox[{"Integrate", "[",   ^! C( C  ~$ R7 M& L7 j5 {
         RowBox[{* p* g! v4 p: s
          SuperscriptBox["\[ExponentialE]", # `2 ]* n2 b) ~" e* n1 E
           FractionBox[
    9 o+ X  p. `  Z9 J        RowBox[{"1.1102230246251565`*^-16", "-",
    $ `2 f% D$ x/ r9 f) k, Q         RowBox[{"1.`", " ",
    0 c2 A( K% t, k3 |; Q6 a          SuperscriptBox["x9", "2"]}]}], # M9 y2 z. G4 [1 ^7 O( Q6 o
            SuperscriptBox["Delta", "2"]]], ",",
    % A$ v4 m( V5 d& d# m: ~      RowBox[{"{", . I& t2 \& t1 ]
           RowBox[{"x9", ",",
    ! Q$ L  x9 l% J        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", . n+ ~. ^! R  i' ?& e
          RowBox[{"Assumptions", "\[Rule]", $ j0 a/ T4 ^( l; l( S
           RowBox[{, k  J1 `. q% ^
            RowBox[{"Re", "[", # h: W' t1 v! w/ r; T& K4 ]& v
             SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
    $ ^3 a* m  f3 |7 s  s     "]"}]}], "]"}]}]], "Output",
    1 b% S8 x; y" G: `/ b/ m, S, u CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, ! P- a+ E! k; o$ [: A+ x4 O
      3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9, - \# d* t: J- W/ d( M
      3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9, : g1 W( M& ~: w: D$ S4 v7 c
      3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9, 5 k+ N5 F" M4 R1 }' Y
      3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
    - G( u; D( a; J3 m  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9, & Q- B3 k  T8 f1 T
      3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
    & w# D- o+ }& e; k+ R+ `5 T/ o}, Open  ]],& G% x& W, E' o* s+ I$ k0 p
    ' R: h! y4 ]1 a$ H! w* w# I
    Cell[CellGroupData[{
    4 z) A# p  i  l1 a3 \. z
    + ?8 p: g  I0 f+ B- c; sCell[BoxData[. ]2 W& N6 G1 ]( x# i: Y+ `' h' U
    RowBox[{"Delta1", "=",
    : J2 c' N, f: b1 m) f# \, q2 h3 {  StyleBox[
    ) R1 e  F" |' t  W$ Y9 w$ e+ V8 U   RowBox[{"97.40909103400237`", " ", 0 \. S5 y! F8 F
        SuperscriptBox["Delta", "8"], "  ", " n6 }" V# P) c( I0 a
        FractionBox[! Y* n& v$ ]4 a/ D$ }; B3 W
         RowBox[{"1.7724538509055159`", " ", 2 `' f" Z  O. i7 A% \% Y
          SuperscriptBox["\[ExponentialE]",
    ' I6 q+ a/ H- g' P- C# N- D+ ~       FractionBox["1.1102230246251565`*^-16", + `% E0 d" X0 M3 f9 Z
            SuperscriptBox["Delta", "2"]]]}], + e; M: p$ L+ T3 ~- F: Y& E
         SqrtBox[% A1 Z4 V8 |- N+ B5 {( d2 E; Q4 [
          FractionBox["1", 1 j  |5 ?( Y  P9 Y$ f+ d6 t
           SuperscriptBox["Delta", "2"]]]]}],1 _0 _" P' W% C
       FontWeight->"Plain"]}]], "Input",- h. p) Q: I! T) t% }+ I! C
    CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
    " N  w1 d  }" y" n   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9, 4 v7 {+ C9 z" H2 e. h
       3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {+ P7 a0 e/ E7 V, n0 f
       3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
    % `6 j0 e1 |$ W4 ]   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9}, # a8 u, i) A- _# y3 Y
       3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],+ w: x$ A$ D* D
    ) j) R5 C3 Z" H7 o# F
    Cell[BoxData[
    9 A& n, n0 Y, }/ n6 w9 G9 l FractionBox[
    / P/ n$ a$ k  e+ V1 u+ \  F5 C# X: v  RowBox[{"172.65311851642346`", " ",
    - W0 \, i6 n+ G$ K# Q" l   SuperscriptBox["Delta", "8"], " ", 3 E* k5 R. Y* S4 ^7 L  Y" B
       SuperscriptBox["\[ExponentialE]", 7 B5 [+ t+ \9 ^! ?* v; g5 _
        FractionBox["1.1102230246251565`*^-16", % \2 n9 |% P8 o* Z: ]+ I- k
         SuperscriptBox["Delta", "2"]]]}],
    $ I3 `; U- R: k( A" A4 x7 S' i4 E  SqrtBox[5 v. D( _6 J2 T# p& Q
       FractionBox["1",
    - O* x" o, N( b! i    SuperscriptBox["Delta", "2"]]]]], "Output",
    7 M; ^. h" w& j0 Y0 u/ o CellChangeTimes->{5 T  K3 _0 w7 i# W; g  e3 S& b
      3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
    / {* I2 E$ d: n) D; @4 P   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
    9 ^. M; ?" `6 l4 L- G/ O   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9, ! B5 O  }) W' c. i" n
       3.578012166234375*^9}]' w! S6 O) K  a2 i
    }, Open  ]],* P9 B9 q9 T) O2 v* K, V

    * }. f+ ]9 H1 X# S" L* dCell[CellGroupData[{- _* ?* P. p' {% E
    2 ~3 ^- M& J  X& o) S
    Cell[BoxData[
    : {  _* C: d- l0 A: F" O% w RowBox[{"DeltaX", "=", 6 [+ I. ~9 j  X+ q  o
      RowBox[{"FindRoot", "[",
    " e0 D; M( s. g$ r, \3 ]4 A! T   RowBox[{6 }1 L& o) r3 D, V& G
        RowBox[{"Delta1", "\[Equal]", "1"}], ",", ' @+ U% y; Z9 M, s  v( m) g0 E
        RowBox[{"{",
    & [' N" s* F) ~6 n     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",9 Z2 D9 m$ N7 O) I$ U) C. \1 s
    CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {  u0 m* h! o: X1 d; O; q5 H
       3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, : Q  L$ b0 Z2 s8 @, A' |
       3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
    ; e4 x- \/ G+ [$ e( V0 u4 o   3.57791921584375*^9}}],7 h& e7 E6 [9 u5 G# I% v

    : E7 m3 Z( h1 m' h6 c( k% @8 VCell[BoxData[( ?. Q8 H' z# h4 D% x
    RowBox[{"{", # T( D2 w9 Y3 r9 c
      RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",9 i9 Z  y# Q3 {5 s/ J
    CellChangeTimes->{+ }) M( R+ A* |7 [
      3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    , v2 c4 ]9 n: M; c' H4 `   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
    ! M# T% Z+ I+ d: W& p" g( a, _   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
    - T! [( ]" A" s   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9, 6 _7 O( O: p6 |' D3 ]! N* F
       3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {- ^; l$ @; N% ^4 u6 G/ ~
       3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, 2 N- r5 |" H3 ?
       3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9, 2 k# Z+ d2 x+ C( C
       3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
    ! {( |2 p0 X  {, c+ X' k  c8 h   3.57796070150625*^9, 3.578012167703125*^9}]' C, F7 `" s5 f; Y
    }, Open  ]],
    " e* r$ o' g- \" q- c9 ^, x! \& a, v
    3 F8 a. f4 A7 X) Q# @$ p8 e( K! E( F" oCell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
    8 [" C* K3 n5 D! I! R\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
    3 d  |# R6 x7 N- k" N1 A CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {! N1 V9 v" ]6 h. Y: z3 k: ~
      3.577960705312657*^9, 3.577960707621461*^9}}],# s+ a7 U3 r2 }, d" k! B0 m( l& b

    8 ~7 X# [* a1 S8 yCell[CellGroupData[{( p6 ~/ ]$ W/ o+ V, K4 V
    5 r1 M4 F  i7 |# k
    Cell[BoxData[
    - a+ W. u6 H$ y& x8 @* q RowBox[{"C1", "=", "Ca"}]], "Input",6 S8 l0 R, _4 E
    CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
    1 y0 c  z0 V. Q, O' k* B6 O  s# k% _( \! i8 S) }8 R
    Cell[BoxData[% K  U2 u4 E; D9 |7 k! O/ E
    RowBox[{"{",
    9 J" i+ l( H. [; G  RowBox[{6 a$ n- W1 n5 o* N$ m9 O2 `& }, \' n
      "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", 2 k$ u: `* Y/ u0 y& W/ h
       "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
    2 Z" D) X5 U* r8 [1 i   "0.`"}], "}"}]], "Output",
    : h) S6 a  {5 T- r& p7 z! j& m CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,
    . |7 q5 S8 v* B1 Y  3.577960710273465*^9, 3.5780121855*^9}]1 T" Z& p: ^# p% ~0 o  q+ Y
    }, Open  ]],
    : X# w( ^  }$ t1 Q* _& H) K3 C
    & m, u; C3 {6 t8 C( q/ cCell[CellGroupData[{! d0 W0 O2 @) u6 q/ r" J$ P: }$ |

    2 F' G' n, m/ l9 ^+ QCell[BoxData[. D  p6 C. ?( E! ~
    RowBox[{"u1", "=", 7 O- a- c( `! Y: d" x8 L: I
      RowBox[{3 n6 [& m( n. W9 N1 S: L$ V/ J
       RowBox[{"Exp", "[",
    . q( D. g7 Z( o    RowBox[{- t# r) x/ g7 i, n. x- L; G7 D3 P
         RowBox[{
    9 w  j+ I, ?6 R$ u      RowBox[{"-", ) Q* u9 I4 B: ~9 _- h. ?9 r4 e
           RowBox[{" d' t  Y, g. p5 L
            RowBox[{"(",
    * V* R+ e1 o, C         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    & ?" v8 E" z4 m( x        RowBox[{"(", $ \1 ~  B3 ^5 k, p& @9 f9 G/ W/ w0 [
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}]," g6 L" F& p; I0 D
         "]"}], "/.", "DeltaX"}]}]], "Input",
    7 I; r2 m7 n% C9 O; `9 q CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
    ' K  x/ Z4 x- }- W- f2 u  F- C; c   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {' e9 ?* Y" ]" x& X* A' q% _; h8 a
       3.577919193484375*^9, 3.5779192326875*^9}}],& g! X8 l. D; h0 n; W0 O

    , {" C2 }7 v% _Cell[BoxData[$ T3 ~- Y( x5 \- Z
    SuperscriptBox["\[ExponentialE]",
    / {/ {5 ~: I2 y/ L, m, Q6 B1 h2 t* E  RowBox[{"3.141592653589793`", " ",
    6 Y3 ]. E8 z6 s" n   RowBox[{"(", ! Q! W$ f0 [, e1 B5 A) v% r
        RowBox[{
    ; s+ t2 W1 Q! z6 R0 D) G1 l     RowBox[{"-",
    ) n. N1 D% b# ?      SuperscriptBox[9 ?" u# U/ w) N9 v+ l  z
           RowBox[{"(", 9 A% X: l1 s! }$ ~$ Z% a
            RowBox[{
    3 W+ ]$ Y, c( [& f: _- O/ d         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
    : c0 B& Y  x/ @     SuperscriptBox[/ L: U3 M  E/ b# A1 c3 c
          RowBox[{"(", ! I' m, M, ~/ k9 A
           RowBox[{$ k( ]  E- ^: v* Z9 {/ Z% \
            RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", 6 V* s+ }5 r- B5 R4 q- G( R
         SuperscriptBox[9 r5 E% N0 V  Z4 A! H" l7 @2 U2 G# i
          RowBox[{"(", ( l& u4 z2 q2 X" W. B8 d2 S
           RowBox[{$ A% a3 t' \# g* ~1 r. ^* C; A
            RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
    * [$ U! }* T$ ^- e& E     SuperscriptBox[+ c9 X! L# `1 F
          RowBox[{"(",
    ) T8 Q' }1 t5 d5 @       RowBox[{' t" \/ u1 V0 D% h0 b9 l
            RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", 0 K7 h  k; b8 c! }, ]- Q- R
         SuperscriptBox[1 C2 I0 S/ _5 c- s/ @
          RowBox[{"(",
    6 F6 A+ N: h( G6 V+ i       RowBox[{+ E+ j$ q4 N' a! b: F7 V3 Y9 \
            RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", ! Z9 o1 |, C, n& O- Z
         SuperscriptBox[# s2 E6 X6 L2 `
          RowBox[{"(", $ c  v7 d9 C- R; I1 C
           RowBox[{# u/ s+ g9 C2 D4 u7 ]  `1 g
            RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", $ P  }# ^& J& s; L$ F  X
         SuperscriptBox[, P6 O& k) K) z0 X
          RowBox[{"(", $ y4 |& y9 U! L: {# A
           RowBox[{% O) o2 M+ S0 Q& F- m4 i' j( J: f
            RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    2 ~4 ]9 V6 r0 J4 Y4 @     SuperscriptBox[
    , Q. E% [% F* @1 }% v: U      RowBox[{"(",
    & Q# c1 z( G6 ]5 v       RowBox[{
    " T( M$ C: w( p) N' G, t! M5 Q        RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", & P9 c, @2 t. P# A
         SuperscriptBox[
    0 n9 [& K3 r0 ~3 K4 c      RowBox[{"(",
    * a: B. z5 ^) E       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 7 E5 F9 Q( ^9 e$ n) w- d& h7 K
        ")"}]}]]], "Output",
    5 J, c3 x1 |" ?! Z/ i$ L  z' l3 e CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9, 4 A& f8 s" d- t  c6 a* h
      3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, # t! E: w1 j3 w
      3.578012187078125*^9}]" F" e$ Q9 G; u8 D" ^" L" M
    }, Open  ]],( ?- ~% W9 P4 n. ]' \

    4 o  L( |3 t, W& b8 c/ ^Cell[CellGroupData[{
    $ H3 [2 t9 F4 x5 f) h  Y/ `5 f4 D' k8 y2 k% H% Q8 m
    Cell[BoxData[
    : d9 k" t& w( b, x5 v RowBox[{"C2", "=", "Ca"}]], "Input",% L  O7 @7 L0 l, C: I
    CellChangeTimes->{3.57792047321875*^9}],
    3 `. Z6 v8 o9 H$ R2 T. Q. u& h& I0 V2 m5 C- a3 R
    Cell[BoxData[
    $ i: z% \* J+ |) ], Y RowBox[{"{",
    + M- e- r% W5 Y( \  RowBox[{
    5 n& ?( F* l2 ~8 a7 L& j6 z! A  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", 3 U$ @9 `) e. a
       "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], 1 k) a; D* O9 P+ p) V' }
      "}"}]], "Output",
    / G- Y. n- V  S- S( s CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9, ; u& M5 w! ~# n* M0 Y" X9 s* P) D
      3.5779607401163173`*^9, 3.578012204671875*^9}]2 `; t/ F5 R5 `8 m
    }, Open  ]],7 T, L- e, O) W- q% e
    7 f, P! P7 d% A0 n# f: C
    Cell[CellGroupData[{/ {9 _7 k7 h3 a

    & ?2 G: ?+ o8 n1 `% I; ]$ sCell[BoxData[) ]8 C8 ]9 k+ S: x0 v
    RowBox[{"u2", "=", * i; r1 x* E  N3 w
      RowBox[{
    " O2 i, H' ~* U  f4 I8 \" p  j   RowBox[{"Exp", "[", 3 f# F# b6 h  v6 m9 k: q3 S
        RowBox[{
    3 l. b' i/ d) h9 t( H# B     RowBox[{/ b1 {, S* |, M0 v8 J
          RowBox[{"-", 0 k$ G6 p/ c. g, X
           RowBox[{: j8 T7 _' A& q! e7 j" Z
            RowBox[{"(", ( z7 p6 y( P: m, y
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    * {+ m6 ~$ }: ~+ f8 ^        RowBox[{"(",
    % Z) F7 G3 L1 d         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    - Q# I% [) \) H& v9 n* M     "]"}], "/.", "DeltaX"}]}]], "Input",
    ! [) c# ?* D! ` CellChangeTimes->{3.577920484109375*^9}],# c6 w% L1 v5 e: O( f  M6 g

      z( r% G6 H$ P( }6 c. gCell[BoxData[
    # e# ^- x0 K0 q! ?, w SuperscriptBox["\[ExponentialE]", ; K3 [' M' l6 s7 K8 g
      RowBox[{"3.141592653589793`", " ", 1 N) p; Q" X8 u6 k' v# r1 y% U
       RowBox[{"(", 3 q$ o  N! ]3 I
        RowBox[{+ V" R' I" M5 R1 N
         RowBox[{"-",
    5 ?$ o3 [5 e8 E9 n: f. c' G      SuperscriptBox[* G8 q& Q- E& w" J$ E1 M
           RowBox[{"(",
    . W+ z, M9 K1 U4 x0 L        RowBox[{/ \+ _8 e: y' ~! Y6 w2 v
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", : z, g. \* x: b& G
         SuperscriptBox[4 a- N5 h6 M9 p; Q/ ?
          RowBox[{"(",
    & b- Q; b/ |+ z) W       RowBox[{
    - U* H; a/ B1 K8 C, O" V, B2 z# f, {        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
    / x& b7 ?* K& G9 J  i) z/ Z     SuperscriptBox[7 w' x7 @; _' y5 h7 }- i  }
          RowBox[{"(",
    ; g- V/ I, _- e. q; j7 ]3 r       RowBox[{5 y# b! s8 O! O7 U8 \7 l7 @3 {
            RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
    & H" n4 [" n& O, W& f     SuperscriptBox[# I9 J5 y4 D8 x& D2 \0 h2 L" r
          RowBox[{"(", " f, V+ C3 M2 a/ n9 |% {! V
           RowBox[{: Q1 M# B+ |1 \2 N: x; n
            RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
    7 T8 B. C% r4 l) G* |     SuperscriptBox[
    - c- J) l+ v  k  i. G; _$ u      RowBox[{"(", 8 d8 p6 |- O: o2 q
           RowBox[{
    3 g8 E( i. o# k6 @- H        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    / y4 v8 j# d, ]4 R) T$ c     SuperscriptBox[) B! d# Y$ k& v
          RowBox[{"(", : w/ M& `# t8 P$ w
           RowBox[{
    8 `: f- X# u& E3 I. r        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
    # w3 L" k; w* D. Y     SuperscriptBox[
    ; B& X7 S9 Y% |9 h  l      RowBox[{"(", 1 }. p) h- B# [8 H4 |4 n9 v
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", $ s  E9 a3 |+ X- m0 {2 b& r1 O
         SuperscriptBox[8 V' G: m6 u- P, j) q
          RowBox[{"(", 9 u! o, l$ X0 D2 `, z/ i1 ?
           RowBox[{
    , F: E( M6 A5 f2 f  Z( S$ g        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
    ' }  G) E$ _  f     SuperscriptBox[# L7 n4 @1 T% R6 B% j. X
          RowBox[{"(", * f. f4 m- c# I1 k
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ) h1 c* E; z" W" h6 m' v6 U
        ")"}]}]]], "Output",
    2 B& q9 A, H* X" O CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
    7 k! ~8 x8 _! x+ A* U0 b  3.5779607413955193`*^9, 3.578012205484375*^9}]# b( c- T2 Z& b1 O, [, X$ K
    }, Open  ]],
    . q( s2 W5 V1 G' w2 K0 `9 P6 e* q1 V$ _# j6 {4 Y" M" g0 p
    Cell[CellGroupData[{* g% H' z( {- u  f' k  D0 r
    2 j7 |* W: y6 l) }, v5 f# `6 t
    Cell[BoxData[
    ' y# x. j3 G1 o6 m% w RowBox[{"C3", "=", "Ca"}]], "Input",3 ^2 j& C) w6 i* s, p3 ?
    CellChangeTimes->{3.57792064125*^9}],
    & C8 A4 w' o. l. I* W3 k) @8 @4 E0 S3 O! Q* G4 V
    Cell[BoxData[
    - [/ A$ @1 n2 {- h5 p, ^ RowBox[{"{",
    4 w7 @$ e9 e: c) ]  RowBox[{
    * x! @2 Z% k1 w  M  N  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
    ' F: r# [& u: v; `5 a( T) l" ^; i. e   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}], ! H: x" b$ ~: L# ]) }( F
      "}"}]], "Output",
    + q" M/ g! |$ h CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
      y# i9 A) e4 q/ M* t  3.5779607642027593`*^9, 3.5780122103125*^9}]
    , m' A( k7 K" |}, Open  ]],) e- @4 F2 V+ x7 N& k! s
    # _5 {( n1 D1 T* b! `+ U
    Cell[CellGroupData[{
    $ t  ^+ b# r6 A5 l3 `: a
    $ K. Y1 v  C  p, p) I2 bCell[BoxData[1 p# L0 B9 f+ c$ ^
    RowBox[{"u3", "=",
    8 X& A3 U3 }9 m7 L$ V) h% |  RowBox[{
    $ O2 |5 [2 s  d6 E; l   RowBox[{"Exp", "[", : U! m9 u, a8 ]9 k' Q
        RowBox[{5 C* v* {% J5 I0 J/ K  Q% ]
         RowBox[{
    ) X' t% A/ q6 H# M1 t2 f      RowBox[{"-",
    3 C  v& r6 q$ F. d' q) Y       RowBox[{# I' h5 V0 m- U2 ]: u
            RowBox[{"(",
    , }4 s6 D. k: h+ P: y' \         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ' y* A- p/ b8 |# x& X! s0 j        RowBox[{"(",
    - K$ b0 }! b+ W& s' H) h         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    " {1 R4 T4 n* \  |, M7 _     "]"}], "/.", "DeltaX"}]}]], "Input",
    1 t6 e9 p( t1 W0 [ CellChangeTimes->{3.57792064921875*^9}],
    0 ~* X" j% k* X0 V( ~9 [  y7 d
    6 F1 |" W* h6 c( ]- k( l: w# XCell[BoxData[6 Z! ]1 Q- C' C5 ?
    SuperscriptBox["\[ExponentialE]",
    $ {  [( {& M' L) o  RowBox[{"3.141592653589793`", " ",
    ! p0 ~# B$ ?, h& ?3 e   RowBox[{"(", & N3 e9 F2 @, i) O4 `2 l/ d7 y' c
        RowBox[{
    - r' k( ]3 h- k- g     RowBox[{"-",
      p( q& O8 S  }/ L0 C. _4 x0 a% C      SuperscriptBox[
    , r& p# @: E+ G- c% u       RowBox[{"(", / T/ X  \5 Q0 }0 D/ w4 x
            RowBox[{+ C) \: z/ s3 K# O4 e4 a/ F! n' @
             RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", ) @; ~8 B$ e) p  @. V
         SuperscriptBox[1 ^( @5 T# I# P8 [& c, k( G! P) V
          RowBox[{"(",
    $ J1 t9 ~7 q0 N4 d; p       RowBox[{: p4 C2 w/ S8 Y# f* n
            RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", 9 c3 n8 P9 A, ]3 c- h
         SuperscriptBox[
      T) r  V3 T4 R" S+ @      RowBox[{"(",
    , s' t5 x# `, h2 R9 J7 [$ v       RowBox[{
    0 j! }6 n9 q& q* _+ R5 p) P. e        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", ' y* k8 @0 S+ P0 R0 |0 w
         SuperscriptBox[" U6 Q0 w8 v  G
          RowBox[{"(",
    2 s/ M2 W& p: u# M3 X+ z# n       RowBox[{5 F4 [" T9 @, z1 F
            RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", , H( o6 E  K) E0 v8 @3 @
         SuperscriptBox[
    . m; u2 h) w. B3 M+ s: Q3 _      RowBox[{"(", 3 h% m8 a0 }. f+ i
           RowBox[{
    + i9 t3 r6 [& F, J9 R7 |        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", 7 O" x) K. t4 w% w
         SuperscriptBox[
    2 v8 e8 x+ h1 [      RowBox[{"(", $ M, u+ P( g# k( [* Z1 m, w$ J1 G; ?2 G
           RowBox[{
    3 N4 E* z: B3 ]2 |        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
    . v: D' f8 s2 E     SuperscriptBox[
    2 O! V, U  {0 Z' X      RowBox[{"(", 9 v5 z- q6 E2 j, C
           RowBox[{
      O! o; ]9 @1 k. j# Q        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
    # Y7 \0 g+ Z; \* m     SuperscriptBox[- l# O2 }* {, B' o# X9 h
          RowBox[{"(",
    % U+ Z/ Q! s: V  I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ) i' @: w4 x9 A" f2 w8 `     SuperscriptBox[7 J# u/ A2 m6 z) ?0 [4 `
          RowBox[{"(",
    : Y- i) h: f0 J       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    / |7 k8 ]5 {/ P3 e% g: z) ^6 S. w( c    ")"}]}]]], "Output",
    0 L: u! _- Q) b2 @! a CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
    / R  t3 [" j6 o- o$ D  3.5779607654819613`*^9, 3.578012211515625*^9}]
    & J7 Z% L8 a) ^# h# S}, Open  ]],6 ^; o3 m/ |* P7 }% y
    $ l% h3 J7 S& M0 O5 g# R3 Z- R
    Cell[CellGroupData[{
    0 `# L, O5 e) ^# y$ D3 n# P' C+ ~
    ) n0 u- K  c9 I( B( U  ~Cell[BoxData[
      ]. D: P2 ]0 G$ @" A  j: x( D RowBox[{"C4", "=", "Ca"}]], "Input",
    1 F  Z7 ?7 s9 ]# T. Z3 \* H) K CellChangeTimes->{3.5779207559375*^9}],% U7 w5 A8 D, i' Y7 X4 _
    , l- @) Q' ?& U( K: W/ m0 g- X
    Cell[BoxData[
    ) f$ t- A* |- k0 U: c& N RowBox[{"{", # T3 C) v- r) w
      RowBox[{
    ' z7 P2 `9 S4 C6 \9 g+ ?! y  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
    ! Z# T# A3 J2 D( p, o   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], 1 y( z% @7 |; b' J1 ^: U. I
      "}"}]], "Output",
    ) {# G3 E) t5 \4 W0 A CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9, + {' ?+ d1 ?5 A
      3.5779607861363974`*^9, 3.578012216171875*^9}]
    8 L' d2 V3 q6 z2 l}, Open  ]],
    4 s% c* d- q7 K' U; x0 u
    6 t  A/ S: N% `  p4 CCell[CellGroupData[{5 O) G  ~$ `1 n7 q  g
    4 W: `+ I( Z) @# A  a, K
    Cell[BoxData[- A5 G( X  T/ _8 Q% ?3 n$ T/ b
    RowBox[{"u4", "=",
    + i" k7 J$ s* t4 ]+ Z  RowBox[{2 ]2 A! |) P2 u, i: g" d  H
       RowBox[{"Exp", "[", , H' V8 z) u  N
        RowBox[{
      s; X, P% H' i2 i  W/ r9 D$ G     RowBox[{
    - G6 o. C6 q5 h9 \) i' s4 ^      RowBox[{"-",
    ) e2 D5 P" g$ z/ U2 S       RowBox[{: Q/ f3 M5 {8 |# @8 h- A
            RowBox[{"(",
    & q) U( x' I# f* |, u         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    1 m. w; E; q! \( P8 u        RowBox[{"(", 7 y4 [$ K2 u  g+ Q/ M* M' N+ y
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
      o2 D  e% A: _% t7 h/ ^6 @     "]"}], "/.", "DeltaX"}]}]], "Input",3 s" W. _/ |, A9 V6 h8 B& Q
    CellChangeTimes->{3.57792076325*^9}],
    ( E. i! Q! Y* F) k% x8 h0 }
    " V. n2 q! ~6 Z7 lCell[BoxData[1 E7 t3 L/ y) w4 ]0 {7 R7 `/ w
    SuperscriptBox["\[ExponentialE]", , G3 B7 T" c" ?. i. ?+ t0 W% |" ?
      RowBox[{"3.141592653589793`", " ",
      E3 M: n5 y4 o. y; E   RowBox[{"(", - F" c& r2 @  {. C4 f; b+ J
        RowBox[{! b4 v% M  K4 ^, {* [& L7 {
         RowBox[{"-",
    2 Q, K) e0 h3 a+ b) p9 s4 ~; {      SuperscriptBox[5 b) b: g  g  t6 k1 T% {& G+ f
           RowBox[{"(",
    , b% Z: N5 ~' c; C6 p: F$ k. t2 W        RowBox[{  U0 S1 c# {, X7 g3 l
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", $ F0 y. c* w$ j0 y$ h9 i
         SuperscriptBox[
    4 \) \5 z% D& Y$ O7 M7 P      RowBox[{"(", ; F# N9 E8 c% o+ c3 g
           RowBox[{$ \/ y& i* U& P; ~( E
            RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", * }0 i9 Q# \1 `! b7 `% s
         SuperscriptBox[9 Y) P8 k  q: ]+ {/ @% ~1 X
          RowBox[{"(",
    7 y0 d+ f) l1 x5 X7 d" R' G, A       RowBox[{' W" w0 J% l3 {9 g1 C" r
            RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    9 V, r2 _, c) N     SuperscriptBox[
    # Q5 F+ j7 m6 ~) G. I      RowBox[{"(",
    ! P# `4 v' Y" B7 ^) G6 `& t& y( y6 I       RowBox[{
    6 b8 q/ o9 R; @+ _( h$ _        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", , |8 P% `: [1 _
         SuperscriptBox[- q1 r( ~- A% v4 D7 ^
          RowBox[{"(", , H. m+ l" i  j, R. m
           RowBox[{7 ?( x. F3 |3 b, x) R! g
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    7 ~9 }2 z( {! L6 {     SuperscriptBox[
    * s/ n; s6 l) M7 k      RowBox[{"(", 5 J6 F+ M! c2 o' d
           RowBox[{
    : L4 J8 O+ F( E3 W. X( |! y        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
    - f+ Z" K$ v, J4 X! w7 `; q; f     SuperscriptBox[- [6 G% ^  U: K! _. n( [5 F
          RowBox[{"(",
    - O4 m) {; r3 W! P" D- R       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    0 [% {+ O7 X3 }7 W  A$ B4 k     SuperscriptBox[
      Z1 A4 V) c1 m, F      RowBox[{"(",
    ) M0 H4 Z, S  g6 s  r$ l       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", / k( v% o$ c' y4 N% i1 U) J7 h! a
         SuperscriptBox[8 B' y! T( }: `, {* i9 a- N4 v* N
          RowBox[{"(",
    1 M7 D  [  E9 N0 r8 m4 M       RowBox[{
    % ]' Z. H3 N' L, I        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
    0 p+ X; _1 i. W7 j    ")"}]}]]], "Output",6 N9 f) `4 {) V* c! c5 o$ p
    CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9, 2 D7 ~2 B2 U; [7 i
      3.5779607873531995`*^9, 3.5780122169375*^9}]
    ) S4 q4 m  A8 P  H}, Open  ]],
    / Z/ }8 R" A" Q: G+ n) l" {9 _/ Q& i/ U+ x  M% a
    Cell[CellGroupData[{
    9 l) r4 W' X  z$ G2 J7 t" f8 d1 E3 m) \$ ?' V  M8 Z
    Cell[BoxData[
    8 `% C3 \" F7 X2 Y RowBox[{"C5", "=", "Ca"}]], "Input",4 L4 J" M$ w$ z. C
    CellChangeTimes->{3.577920860671875*^9}],
    6 I$ t  x' u0 ?3 E# }* r% O9 J- L1 h1 y
    Cell[BoxData[& v- A# C  o3 D3 a- @, _
    RowBox[{"{", 5 a" \. S, ?* y/ e
      RowBox[{+ y  H) Y* v  b2 t4 {$ u
      "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
    # R1 w7 R: k. M" Y7 L: J/ K. s8 Z6 ]   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
    ' L5 u4 {8 A9 v, u; Z/ `2 q9 ^3 D  "}"}]], "Output",  F5 z9 ?$ I* H; p. c! y& {! |- G3 q
    CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
    3 t2 Z$ P! z3 K7 y5 ?8 T! k  3.5779608137328453`*^9, 3.5780122209375*^9}]
    " b! c6 U$ ]8 ~+ s( U% h3 n}, Open  ]],
    6 i+ h9 t3 U; N: I) v1 A1 O  R
    6 r3 E9 U, P% q1 t" u, u7 o  \# UCell[CellGroupData[{
    ; _8 X& {5 D) V& P) W
    ! ^/ v$ v+ {% B6 O9 uCell[BoxData[# A3 U: t4 B3 U  C. U
    RowBox[{"u5", "=",
      N& z. O5 F6 `  RowBox[{
    8 B8 j$ j0 D$ c0 A6 ^' J8 o   RowBox[{"Exp", "[", / M0 K  m6 j# P! X4 A0 ~+ J
        RowBox[{7 Q5 O& g9 ?1 K/ h5 ?* ~
         RowBox[{- w$ B* ^6 Z" P
          RowBox[{"-",
    ' y1 c1 t1 _& L) ]       RowBox[{
    8 E4 n7 l  P" o0 V% s        RowBox[{"(", 1 k; B5 t* C2 ^& C) c
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    - l2 f8 ^: O! M        RowBox[{"(", . v; h- p" T2 ]6 d2 Y% O9 Q4 W$ w9 ^
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],' K, V( \% I  P+ z- |# J3 s
         "]"}], "/.", "DeltaX"}]}]], "Input",
    ; e' s1 L8 _4 n2 v+ I. ^ CellChangeTimes->{3.577920869375*^9}],
    2 O9 H  k% F8 ~! a! F# E3 K, P/ ~$ O3 K5 ~
    % A: O! i& R2 F  sCell[BoxData[: |$ |9 i- F5 F5 J
    SuperscriptBox["\[ExponentialE]",
    7 n5 L5 }, x9 d' S! c$ w  RowBox[{"3.141592653589793`", " ", + q) s7 c. V+ [
       RowBox[{"(",
    4 n+ u9 Q, T# \. u# o    RowBox[{7 j/ ~; a. n5 Z6 o/ c2 m
         RowBox[{"-",
    + w9 H! s: ^( p9 ^6 ^( c      SuperscriptBox[
    ; [% E/ U1 `" S9 F  v       RowBox[{"(",
    ; ^/ S( |. k& E  A$ X        RowBox[{4 B" Y  J- g  f( h9 }, z
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    9 D. w$ x7 A# J- R- x% u, V2 b     SuperscriptBox[( G/ Q& z! ?$ s
          RowBox[{"(",
    7 ~' e8 j8 C' g0 m. I       RowBox[{. M8 e1 B. P2 o4 ?" L
            RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", 6 ~% |" J! a3 ^
         SuperscriptBox[# F6 J  u$ `2 |3 V' C3 A8 i
          RowBox[{"(", , F9 V& x- y0 Q1 Z- W
           RowBox[{& q5 ]- |% n6 B& |% C! S
            RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", ( i: \7 m7 ~4 v
         SuperscriptBox[6 S9 w5 n7 m/ g! W' l$ f
          RowBox[{"(",
    + b4 z, N0 M- A1 G9 F       RowBox[{% a% N! Z% y1 g; Q
            RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", 5 f6 g8 P% k: H4 t/ M- v1 n5 |: Z
         SuperscriptBox[
    1 n; C  y5 Q1 Z% {7 d, B+ G* ?      RowBox[{"(",
    & F( q8 {8 q! `5 R9 _0 c       RowBox[{" k7 G, x1 }( U8 E6 @+ B
            RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
    : Q# a8 i0 D1 Y8 z/ k7 C% @  m     SuperscriptBox[% O; h1 {% i5 R/ g- d( m
          RowBox[{"(",
    , `% L) U+ @/ A; w9 P  W( G       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", / \- U! f8 h, ?7 y
         SuperscriptBox[! e+ c0 A, o4 ?7 `3 X; I: {* q
          RowBox[{"(",
    " s; ~* G  H: g% _/ V! N/ b" ?       RowBox[{$ b# t- b+ f$ d* J# l% I
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    ( R2 a0 I& X0 S     SuperscriptBox[: W3 C5 b" _! a
          RowBox[{"(", 1 `. z  A8 z  H3 j
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ! S5 N( V$ U- S- P' m
         SuperscriptBox[% {0 H5 f0 f5 @+ Q8 H
          RowBox[{"(", * j. q" j2 W2 i/ E$ ]+ N# Q
           RowBox[{
    9 T1 d6 M4 t) G( o: M; |! p4 w        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ' e7 c% [- x. b9 M' k) X/ [) L
        ")"}]}]]], "Output",
    - L/ O; b# y' z% z CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9, , W+ B, D# b& Y% a# K2 J. ]
      3.577960815043248*^9, 3.578012221953125*^9}]6 o% m% H" f( ?, H
    }, Open  ]],
    , c  C8 P3 Z, u3 h3 U; F9 f( ^$ }& T1 z1 P, u
    Cell[CellGroupData[{
    7 |" @; z: g$ i" S/ q8 N
    & D  Q4 d8 o' ACell[BoxData[0 T% v! i9 s0 V( V
    RowBox[{"C6", "=", "Ca"}]], "Input",
    # f$ k; H: U; l& K# ]# a CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
    0 }& s& w7 W3 |- s: U; P3 x3 u, w# k' T$ V" j) U+ Q
    Cell[BoxData[
    $ o/ _% Y' y, a, O( }" M RowBox[{"{", 4 D# y: v+ _& E9 k- L: |! c: N
      RowBox[{# h$ c) a* ~9 E- \% V
      "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
    / K; ^' h& |( l; c   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", 5 A6 w4 H* [. L: |' Z2 |/ z
       "0.494866`"}], "}"}]], "Output",
    * u% c' F, f9 {& m; A CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,) W3 p" E6 p4 N
       3.5779608373044868`*^9, 3.578012227359375*^9}]
    . s# g, k9 G: Z& ?! q  L}, Open  ]],: M0 x# e0 A$ U& Q# u

    6 @* T0 E. ]& Y/ E8 r2 nCell[CellGroupData[{
    4 K$ F' u! W7 }* |! B3 a
    / `4 n) {: {7 j+ t8 N+ e+ Z4 r7 F) FCell[BoxData[: s# C# O4 w- J) f& G6 Q% k
    RowBox[{"u6", "=", 3 o) A. A, ?7 X) ~$ |. N
      RowBox[{5 ]: t4 h$ m  t+ |4 ^# a) o' D/ Y- e: v
       RowBox[{"Exp", "[", , B1 l6 Y( B4 b4 l" h+ o6 q0 k# Z
        RowBox[{9 b  n2 |8 B, |, N
         RowBox[{
    . o9 e8 n5 t9 F& Q, o/ z      RowBox[{"-",
    - ^( H: s3 E. Q) P, z) N' \       RowBox[{
    / l4 ?4 b8 D5 G; @. o( [7 }2 v5 T        RowBox[{"(",
    0 s$ O( b& I5 R' d$ J         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    7 r+ f4 s- E# o3 V: K3 h0 U        RowBox[{"(",
    / U. c* a7 \) b1 P) Y         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ' n- E0 M' N4 T% Z# I$ a. g+ ~" x     "]"}], "/.", "DeltaX"}]}]], "Input",% ]% E7 b. h8 k) E
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],. R/ X( j, a6 A% U/ Z

    * k7 v& d* x! U/ PCell[BoxData[. K% {7 Q0 I+ D3 x' f7 E* \
    SuperscriptBox["\[ExponentialE]", 6 {  G* d5 B" s. J: T1 s
      RowBox[{"3.141592653589793`", " ",
    + c3 }$ }5 B% _7 `- M   RowBox[{"(", 4 I. g8 L# r! g( G1 }
        RowBox[{; r3 z. y% a7 K- ~
         RowBox[{"-",
    , ]' ]* S* T9 S) Z, ^      SuperscriptBox[
    # f3 T4 t/ S* V& J4 J' V       RowBox[{"(",
    5 f: E- y5 ~  ]: t* ?# H) ?, c        RowBox[{" Z' E. A. J9 s
             RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
    $ |6 b9 I$ Z1 a% D     SuperscriptBox[
    " y$ c# s8 H0 j. _, B      RowBox[{"(",
    8 m0 L0 T. t- K. u7 [       RowBox[{
    6 _- A- y9 p4 S8 Z& Q6 c( E        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
    0 x+ ]8 ]4 ?+ w     SuperscriptBox[# ^7 Z4 m9 _7 }3 x& Z; D/ e0 ^/ B
          RowBox[{"(",
    / C) R$ B9 W. Y+ O7 l+ k       RowBox[{
    % a& S9 U2 p8 O7 ?/ [5 N7 x+ a3 |        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
    / U8 M; w. Q/ B$ o- X     SuperscriptBox[! g1 M6 T" Z3 w2 t
          RowBox[{"(", $ a+ f; P1 T" ]6 x( X* a( U0 v
           RowBox[{
    5 l! o9 k' b. Q4 G! @        RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
    ( G; Y$ t4 Y7 Z% V$ h7 m3 f     SuperscriptBox[7 D2 s+ m3 C7 N5 R
          RowBox[{"(",
    1 l8 E) b3 S1 x( @9 [       RowBox[{
    ; \7 n4 o5 C, [        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
    $ ?+ G8 t7 L9 |     SuperscriptBox[: Z; B2 R5 _" w, ~+ m+ x5 @
          RowBox[{"(", " p/ }# W" [+ \7 }/ {* _3 {
           RowBox[{
    ) B5 |3 r. r! h( ^; D, p& b        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
    ( m- T- ]* _0 T/ _) o" E     SuperscriptBox[
    : J  O: @- z( q      RowBox[{"(", ( I6 \/ P. h/ O* q" `
           RowBox[{
    ! v' m" c/ n- I% ]        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", ) Z2 Y; w2 c6 Y% J1 T+ W# m6 ~
         SuperscriptBox[: V& W' m8 Y6 y/ @! y3 r8 D6 s$ C
          RowBox[{"(", $ ]) q: B. `$ V0 \
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", / n$ c* H' {% J4 `) q1 z( D: n) A
         SuperscriptBox[: c/ f, w5 p6 Q$ j4 [- F' U
          RowBox[{"(", ) M' a% r% E; D, O: i0 a, @0 v
           RowBox[{
    . d5 _2 N0 \* s/ f* v        RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
    5 Q( v3 F5 L: _  Y    ")"}]}]]], "Output",  \+ K0 Z) f7 \4 A3 M3 _
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, * ~: |% @6 p0 h7 _1 P4 L. `" C
      3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]# D: M& v# u% T' D1 o' u% ]
    }, Open  ]],1 E3 [0 I' e- T: \+ d

    + C+ n# L6 ]7 P" z' S7 I! kCell[CellGroupData[{
    ; \) H- m! H  d/ L0 \- w7 t
    + \- B) P* C5 ~$ d9 qCell[BoxData[
    : R; z7 Q6 H& X0 c2 @6 [) n. s RowBox[{"C7", "=", "Ca"}]], "Input",
    - H0 ?4 i+ i& N  l CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, " b$ l1 J. R0 y: _
      3.577921316125*^9}],- G( @$ n! T1 a7 M/ Q! w3 N$ z
      Z* U- j7 {/ F  [- X
    Cell[BoxData[
    * u6 A: H2 {' I8 `$ @ RowBox[{"{",
      T! X' m1 d6 _6 R- }  RowBox[{& s5 r0 G6 J% M+ V* ^, D6 h
      "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", 5 A3 P2 A6 K3 `" R  j9 u) @
       "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
    % t3 W3 R! B: n  "}"}]], "Output",7 R. f: f: B8 f
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    6 f( V/ O+ P7 B# N  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
    % \7 h0 V2 v! h/ K( L3 c3 j}, Open  ]],
    ' D( A. z! a2 }9 N- c8 R8 T2 J+ ?1 g6 x. M, U
    Cell[CellGroupData[{
    : q$ _1 |8 C+ C! E3 p, g. l2 G$ l
    4 ]4 P( m0 g( O: J% Q& C' X4 T" PCell[BoxData[
    ; U, M/ |7 O3 E6 I5 F+ R7 c$ | RowBox[{"u7", "=",
    7 M) [9 D8 [  @4 T0 A" {: L. |8 x  RowBox[{
    - R& [) h( t. e! m   RowBox[{"Exp", "[",
    3 \- f6 X: ^" R    RowBox[{; \; H$ s* f0 V7 z  Z& o% g5 ?
         RowBox[{: k% q) _. K5 m) n5 z: B7 Z7 m! C
          RowBox[{"-", 6 K  b( D- h1 h4 m) k: d  H
           RowBox[{5 Q5 n2 C" N+ t9 L0 t; l
            RowBox[{"(", 8 P" {" _- I* ]- n6 u6 y
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    . }& A/ z% G" R        RowBox[{"(",
    3 o9 K; l1 Y/ c  d3 r' q# a         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    8 S. Z+ Z( ~5 P: p, l     "]"}], "/.", "DeltaX"}]}]], "Input",* m8 t+ ^3 K% `: c' K6 D6 f* C9 k
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 9 E) t5 N& S4 V% I. x4 E
      3.57792132028125*^9}],# {, E% [( y* R- y4 O& C
    " |/ f+ ]! q6 c/ R. r0 G5 `
    Cell[BoxData[8 ~) k( m( w3 C4 t1 c/ u$ b* }
    SuperscriptBox["\[ExponentialE]",
    % _7 A  B+ k2 n2 c. c* C+ r  RowBox[{"3.141592653589793`", " ", 3 u  o! t( ]+ T7 p' u& j
       RowBox[{"(",
    * S) h  e* Q4 @( q    RowBox[{! Z( ?) @4 O1 s4 e% U4 G1 ]) Y4 Q6 \
         RowBox[{"-",
    ( s0 x/ Z$ K- ^0 ^* E3 J6 {      SuperscriptBox[
    $ u# Q0 p$ A0 E; Z" K       RowBox[{"(",   D. r4 R! ^: B) }# t
            RowBox[{
    2 P. P/ _# M9 l- S( v6 m9 P: i         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", . p2 K/ D' A* {) L$ @$ x
         SuperscriptBox[
    ; j; X. H0 a; {  u- B* S: H" M& `      RowBox[{"(", + p. \8 @, |" `3 p) E
           RowBox[{& X1 O6 v' M/ D4 H7 [% w
            RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", 9 ]. X- {9 x+ g$ I+ j4 Q8 [
         SuperscriptBox[5 _0 G( Q' o  B+ B' c4 y" s0 U
          RowBox[{"(", # {, X* g* g( q# a* [
           RowBox[{* u6 E3 M% _! a5 }- }" u6 T8 n
            RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", 8 Q, {  @' `8 B! Q. _# l
         SuperscriptBox[' `) I6 Q9 d. v) V4 S! ~! E
          RowBox[{"(",
    / G6 B& |% {$ C% Z8 [       RowBox[{
    . L; J% Z  x# Z, V        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", ( S/ x4 m/ B" Z3 T  D/ t
         SuperscriptBox[+ {$ J3 ~6 ~- I& [' T% E5 f) w
          RowBox[{"(", / a8 o: v/ M9 ~- @
           RowBox[{1 H/ |* h- g) N3 \8 v2 ^9 w7 j. @5 ~
            RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-", 0 I% r5 [$ u# x, R. g
         SuperscriptBox[" `% f& K6 L, k
          RowBox[{"(", - E( M" p, T* g- R+ x' J: f
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    # `5 R! @4 G1 G4 G% w     SuperscriptBox[
    2 G8 z7 `( e0 _3 t' `+ a* ^      RowBox[{"(",
    8 E9 ~6 T5 G' U& R       RowBox[{
    , x+ Q5 _! z  i" @' h        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 7 @" i. K0 v+ j; a7 ?& y
         SuperscriptBox[
    # I$ s" K& e3 Z8 T5 W" j2 r      RowBox[{"(",
    & Q' H! K$ _2 t7 B4 ]& p       RowBox[{! Y) n, _" d( n( X- a! X: n& Q' y
            RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
    8 c3 M- g0 g+ ]8 m- f2 d% ?& D  s     SuperscriptBox[* I: m( K7 [4 S: R5 @& d
          RowBox[{"(", ! u; V2 G  q& n# I! z9 K' r* K
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    1 G, c* ^! H7 w% q    ")"}]}]]], "Output",% i, H- y. q' i) F
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, % |$ W1 B, I# j" Y7 e7 m
      3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
    , p0 U* G+ Z: Z6 E' U. @: I  3.578012251359375*^9}]0 m& v+ _1 z3 `
    }, Open  ]],
    ; {8 i* d- Z  J" r8 w$ W3 B: t# P
    Cell[CellGroupData[{
    ( H! ?- c  p( f( _* E) J
    6 ]9 M. M6 u# k7 @Cell[BoxData[6 W7 k6 F0 e4 A% H5 x) I1 Q
    RowBox[{"C8", "=", "Ca"}]], "Input",
    ' }& f! s3 c& `9 W. [9 a% b CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, + @8 r, f/ j9 ~3 V: o4 f9 i
      3.577921316125*^9, 3.57792141421875*^9}],
    ! B2 `2 a8 U2 s% U
    ; [; i& k! N5 L" E2 |# d/ D# L8 RCell[BoxData[
    4 d! y8 F5 _, G, X) r- T! H$ c RowBox[{"{",
    # K6 s' F8 W$ K( P) C7 q  RowBox[{5 B. ^5 i6 N6 f) {; o
      "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
    4 T8 i2 ?/ D" v% a, s. R$ W   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}], ' j  B- p9 e- Y# n/ `  p  `
      "}"}]], "Output",
    9 k; ^3 h3 [  `5 b CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    2 D6 o8 ^7 ~4 @; @  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
    0 p4 f. ]* v( [* X( g$ h  3.578012260515625*^9}]
    , J% M" t, r8 W4 L2 a}, Open  ]],# b  P6 q- s, Y; U% I% r  P" e

    ' J; ]+ \7 b: _3 B% s8 BCell[CellGroupData[{* m4 I6 V: y7 t
    $ ?: N! C3 D) s: a
    Cell[BoxData[
    , o& m; @- s" ^. [* A# b$ t RowBox[{"u8", "=",
    + q- i0 w9 F5 m1 y$ N  RowBox[{9 C: E+ X- r. O( R- \
       RowBox[{"Exp", "[", $ k2 L5 f* ^) o8 d3 ^' ]
        RowBox[{7 b- Q: J; f0 R. ^, B2 O
         RowBox[{
    . @4 P7 T* i. X3 O      RowBox[{"-", . w! j# Q% {- q; f+ x; i
           RowBox[{: @/ B& |" ^* |( `
            RowBox[{"(",
    ) i% z: T. `2 y: |4 S' ~& U$ _- G         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 2 l# f+ C# }0 U% W) v; Q3 J
            RowBox[{"(",
    3 H9 J  H8 ~- e         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    8 Z7 y* ?: l" {     "]"}], "/.", "DeltaX"}]}]], "Input",. y- q6 H1 ?% A3 A3 J5 @
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    6 R+ r) A# C# L2 ^0 B  3.57792132028125*^9, 3.577921416921875*^9}],
    , F, Z9 h! {4 a! _( O( z0 c  }+ G
    5 U8 i6 L3 ?+ k2 v) b. H; d4 W0 Q1 LCell[BoxData[
    5 l4 z( |5 J( k8 t' o2 [ SuperscriptBox["\[ExponentialE]",
    / Y* Z+ P0 Q) K6 Q, W* N  RowBox[{"3.141592653589793`", " ",   h9 F: s4 C! t  M" P0 A
       RowBox[{"(", + x' X" `% k& X
        RowBox[{
    % ^& `2 Y* z( S6 ]7 r1 r     RowBox[{"-",
    % C8 u  P& g# W9 C( j. c      SuperscriptBox[! |7 c; Y( H/ }- }' S( o
           RowBox[{"(", 1 f% j7 l0 z2 y! a$ q
            RowBox[{
    & w8 S. J: x% k9 j, o         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ' ^0 _/ F8 l! ^% a+ ]% \$ s2 `5 s% g     SuperscriptBox[+ K6 L# u' Z3 n% o; g" _4 `2 m2 {; v
          RowBox[{"(",
    + W, [2 P( W* D7 P; x- Q0 S% ~  F       RowBox[{
    ( R5 s) E0 h* ?4 ^( `        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", 8 g# K6 ^$ u, W: e5 z( P
         SuperscriptBox[
    ! e$ |8 @' I- L* E& z8 r. r      RowBox[{"(", . n1 j; k; L6 K$ i- f1 Q% ]. K
           RowBox[{
    4 q6 W% d5 k" T        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", 6 B% ^1 O7 W, \4 |
         SuperscriptBox[. ^# g* }7 ^, e% R" }+ ]' r/ n
          RowBox[{"(",
    , F" R1 W7 v/ Z. c) o( @       RowBox[{0 ?: g: {2 J* i& t. j& i
            RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",   q% o' b+ U$ I
         SuperscriptBox[
    ; r! X7 K* O' K' l      RowBox[{"(",
    + C- v& H- j  I% D" U' h! {       RowBox[{3 X8 J4 S7 ~3 E- g$ T9 j
            RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", 5 R/ H/ z% I$ z8 T
         SuperscriptBox[& B* C" \& L8 g) v" |: X
          RowBox[{"(", 7 g) f8 ~/ i7 b! g
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    & m/ u0 E; \4 n8 w2 B     SuperscriptBox[
    : v2 f9 }2 l# Y0 {% B* {5 G      RowBox[{"(", # L( j' `1 y9 u3 p
           RowBox[{, I% j" j. Y9 n( N' Q- B
            RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", % }8 |8 Q, I. b7 a
         SuperscriptBox[# Y# p& S$ T' k2 B- j0 ~
          RowBox[{"(",
    7 z! v' x2 b( \+ Z% W- R2 D' x) K       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ) l( a0 o% d/ a: I) q
         SuperscriptBox[% b) q7 E* O: U1 ^$ ~: S$ V
          RowBox[{"(",
    " Y) E5 m  Z3 l- f       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    - `: z# V$ @$ c$ W/ n1 n5 ?    ")"}]}]]], "Output",3 V- n' D; }, P9 H6 Y, j
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, ( z8 G! K5 B3 T
      3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
    ; z4 E  v9 x0 C; ]( V8 P' E/ J  3.5779608945565863`*^9, 3.57801226165625*^9}]
    % ~# j5 ^5 g+ I% o}, Open  ]],
    ; S) i0 V2 a9 u5 c; _2 T! f$ l/ T& H7 x4 W# s
    Cell[CellGroupData[{
    3 l5 j" o" R/ y3 \' B
    - |! s: v% b6 B+ TCell[BoxData[+ Z8 t, t5 C) |
    RowBox[{"C9", "=", "Ca"}]], "Input",- V% t8 f. f) {4 j  Q4 i  Z
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 1 w& V* U" l/ w; X+ A
      3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],
    ' x. L9 e6 E# r. k: |; ~* M, g: ?' G9 c$ ?& d
    Cell[BoxData[7 T4 _/ k0 k9 m! ?" E, ]) x" _7 \: s# t
    RowBox[{"{",
    , y/ G' ^6 ~3 O/ G4 ^  RowBox[{+ l5 f1 h, ?) c& y' N
      "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",", 0 x5 @  [* P, g
       "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
    2 m3 l* s2 ]0 F8 }; f, S  "}"}]], "Output",
    2 g0 P9 I5 `% v  \; @" g CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, ) C3 v& _& w* D  C+ f3 j
      3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, 6 {4 e' [" b6 t: G
      3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
    7 @8 y) K7 q* X" [  3.578012268234375*^9}]
    & k: ?. ^: \* Z/ i  m}, Open  ]],9 M, D! Y  r0 U
    3 O: C4 m5 W* Q, p0 K( f
    Cell[CellGroupData[{3 f- N  l) M) J% F

    + e+ r  M6 G  Z6 w) y; [Cell[BoxData[. x" [' S8 x/ `
    RowBox[{"u9", "=",
    . e6 y& K" d. W; R, D3 q0 U/ ^1 p  RowBox[{
    ; g: P- I  f4 i6 w   RowBox[{"Exp", "[", : u( c: W) p9 N7 `  I) p, e9 t
        RowBox[{& s- B4 e0 r! H
         RowBox[{
    ! @( J; m! e: i' A  i2 H) Z6 x( h      RowBox[{"-",
    : j7 B9 M) R  g, V* }( }       RowBox[{$ w( W% k2 j$ n% o
            RowBox[{"(",
    $ g0 c' O# s# P# x8 A6 A+ t9 T" c         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    * J9 W/ o2 a2 z3 m% Y        RowBox[{"(", # }$ w: D, J! }, z: g( L
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    8 d9 C, ~  D* O  W) K; N' `: [     "]"}], "/.", "DeltaX"}]}]], "Input",
    ; X1 Z/ |7 \; E( k! e- M$ d0 W CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    + G1 f, R1 x6 V* }3 B  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],6 ~# q! y0 o* Y7 A& y! ]( U
    - r; b) \, s% U
    Cell[BoxData[
    , P  v% x1 y+ ~3 H0 O5 a8 J+ M/ [ SuperscriptBox["\[ExponentialE]",
    * U6 p2 p) u& O. M1 `; G" o  RowBox[{"3.141592653589793`", " ",   _+ w; v6 g5 L" R4 p, n8 k$ k
       RowBox[{"(", 4 G, k8 Q! n1 m
        RowBox[{( h% G& c2 ~: `* _% i3 P
         RowBox[{"-", 3 @5 W2 N% e4 s( v0 }/ ?
          SuperscriptBox[
    6 j! W: o0 n, o6 X- e5 r       RowBox[{"(", 9 z  Z  R: p% F) U1 X+ v
            RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", 1 i; ~, D8 q% `& `( G2 [
         SuperscriptBox[
    ) W$ @9 E. N9 H/ V' v1 e" U- m, h, \      RowBox[{"(", # }  r0 J$ B4 Y
           RowBox[{
    6 F$ R1 ~% N% g. |( n        RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
    0 r1 u0 C" @+ g9 j3 ~+ m     SuperscriptBox[- O* z/ L8 \! ~6 E
          RowBox[{"(", 7 q. W. H& c" Z9 N& a
           RowBox[{% Y, s6 y; \" r9 ?" n% u, u( e
            RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    $ m" c5 u2 V* {0 c# J     SuperscriptBox[
    # s2 i( }0 ^" E      RowBox[{"(", ) o& V$ H0 Z! t' l" C4 C$ K* R
           RowBox[{6 z0 t% r" g! G) v& `) g
            RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", 0 H' ^$ @) K3 y+ _, d1 [/ A
         SuperscriptBox[
    ' W& Q( M3 {& r/ n' d/ {+ c, a      RowBox[{"(", & W. G6 P# J: M, y4 e$ b6 Y
           RowBox[{
    ! T2 Q4 ~) A2 g) a1 g" F5 S; S/ P        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    , O6 C3 k. B+ _2 t     SuperscriptBox[
    - r( Z+ G( u& E6 F. j" G6 q; v8 \; `      RowBox[{"(",
    - Q" I( Y7 S, @( O0 h- l5 v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 4 `5 r0 Z5 f- |1 R  D
         SuperscriptBox[
    ; D% K$ h9 D/ R0 o/ j- [, Y  Y) ~      RowBox[{"(",
    2 ~1 Y; c7 A- m4 H% [- {9 U) H" E       RowBox[{% }3 `) \! u. }3 E8 B! I
            RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    1 h0 d$ G1 T& d  s+ {5 t7 d     SuperscriptBox[4 ^7 u8 G3 K& f( y- |
          RowBox[{"(",
    1 `2 S% I) z% c! c& b0 M! B: j- q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 6 ^, q/ x+ ^; Z& V, o
         SuperscriptBox[' k+ X. x8 x) {; }
          RowBox[{"(", ( R0 Z9 C2 f% B7 s
           RowBox[{3 F' R- q# I' K# J  V* o, N
            RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], : W# y! I0 P, m1 X/ u
        ")"}]}]]], "Output",
    " o# A7 @1 M- t: H CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, - O0 v0 t. Q  D$ ^+ z. [# d
      3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9, $ K  t' e. z) R' }3 d* j. l4 d2 _
      3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, 4 w7 }4 _# a' a/ b. l
      3.577961530421959*^9, 3.578012269125*^9}]
    ' z( X% k* C+ v" k  }+ H}, Open  ]],/ n8 M$ v# d7 K. L, e. v

    : a; Y0 b0 k) N& V( t. yCell[CellGroupData[{6 l( x3 r# R, _" r8 y

    4 I9 b7 v# i/ ~, |Cell[BoxData[{
    8 T  Q: H: o2 w7 @$ Y: O- \ RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
    0 }) k, z7 i. b RowBox[{"u10", "=", . G3 c3 N6 ~. ^# }7 W3 ^
      RowBox[{
    * c. p3 V3 F" U+ I8 e. G9 X% U* Y& s   RowBox[{"Exp", "[",
    4 Z; N0 Z/ C" j4 l/ \9 s  t& Q& z$ V    RowBox[{4 D- G& q. W4 e2 Z1 @5 g* L  v
         RowBox[{
    ; {$ f. x; [0 Q5 P      RowBox[{"-", - p8 X( `' X& l
           RowBox[{* O) x) [' u: [5 s, i& k+ j8 {
            RowBox[{"(",
    . k! i/ i) A# M" j' G0 Y4 _         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", " D" W! V0 I) n5 l& L+ k2 W  L. N
            RowBox[{"(",
    3 B" A2 _+ S, Q5 a         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],9 i. e! m6 {# v" t1 F* P
         "]"}], "/.", "DeltaX"}]}]}], "Input",. Y. @7 Y' |" R  n) X# W$ R& D
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],+ {" k+ H4 ?; e: d7 l2 `# D9 y
    ' |& b; l& u) m6 N
    Cell[BoxData[4 [! g  g4 j& H* H( W0 t$ H# q6 \
    RowBox[{"{", - `5 N/ v9 ?9 a+ V* I& w1 z
      RowBox[{
    ; D/ V3 V! y0 v9 D. S  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", + ?* H5 U# e+ Z7 [9 \
       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",; n' J$ ~7 ^: r7 ]; L
    CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
    8 x6 N. R) `7 ^' R1 s6 L! M4 G$ _4 C+ a5 N. d0 s4 o, |9 K
    Cell[BoxData[' V* X8 O" b# h! X6 N
    SuperscriptBox["\[ExponentialE]",   n5 \: L* l) v) B
      RowBox[{"3.141592653589793`", " ", 3 b8 i( ?$ `+ X9 a. B
       RowBox[{"(", " N# @* Q) h% b% L( y
        RowBox[{
    - T/ |. d' `$ ?% J) |; E2 Q7 i     RowBox[{"-", 2 e0 F, z+ K; d( U8 l! j
          SuperscriptBox[
    7 W" }. n: r0 @" u, |4 {( p' B. ~       RowBox[{"(",
    5 [  y8 }/ i; a        RowBox[{
    * {: i! i2 p# w, ^$ U         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ' M. h0 b6 K( r, T3 ?
         SuperscriptBox[. w( M* E& r1 c) N  E
          RowBox[{"(",
    ; i  Y, |, o0 s8 W) o9 W       RowBox[{, J+ c$ f4 K* o, O4 [; o" D, R
            RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
    * R3 K' ]6 `9 ?8 h( z     SuperscriptBox[1 A+ P, I0 g: |  p- d! _
          RowBox[{"(", 2 v' d+ O' c* T& U
           RowBox[{4 \" p2 m5 E" F2 v& n. }3 g
            RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    , y$ y# F" B# z) q0 C1 K- ~0 |     SuperscriptBox[
    2 ?3 n: |3 V8 \5 w: ]2 t5 J      RowBox[{"(",
    " w1 r* Q; V8 `       RowBox[{& C/ P9 H1 E4 z% Q
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
    4 ]* l# d! M4 I& k' |+ X     SuperscriptBox[" s2 V( i" a7 t. F% Z" g7 W
          RowBox[{"(", , _' b& s- m0 R: ]2 a$ B
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", 2 O  g& W  c1 q/ M  A4 h
         SuperscriptBox[# W# B" h  X' ]( M
          RowBox[{"(", 1 b4 Z! u2 V1 o- L2 @, a7 A0 d
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", $ Z6 Z9 N  `5 ~  i: b
         SuperscriptBox[) H; b: h7 _+ T0 Z: K. X3 R5 [: g% x
          RowBox[{"(", 5 p# w( ?) J: U. b5 m
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ; p, e- x% o6 q( t. t; \& R
         SuperscriptBox[
    $ T/ \, i2 Z; g! q: R+ ~' H      RowBox[{"(",
    9 p8 p2 z0 e, o' Y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ; Z) B% M9 n% F     SuperscriptBox[
    9 \8 d2 j- Q0 t, ], a5 |' e6 q6 A* I# K      RowBox[{"(", - e: l$ U# s5 |: X, ~
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    7 _: V3 S' {0 `& d2 n+ H; _    ")"}]}]]], "Output",0 b$ k7 E: l9 R$ K/ r" O% ^
    CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
    ) z- X2 u8 N' `) d1 S6 j}, Open  ]],
    4 J' b" g6 \1 |4 v' o6 r* j# v3 I. f4 [- j( g7 Y) E
    Cell[CellGroupData[{
    - |7 G& ?, f+ Q+ B5 h
    1 {, x7 G+ B& r; TCell[BoxData[{
    # o' m* |1 d- ~, i RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", " r" ]) W/ E$ X
    RowBox[{"u11", "=", . Q9 X$ g8 f$ @
      RowBox[{, n' B1 h8 N8 s5 Y+ H/ I9 D
       RowBox[{"Exp", "[",
    , J2 L) d) A* M* V5 _6 j/ Y% I    RowBox[{1 M$ i7 @) ^( l5 ?2 h' D2 B* B
         RowBox[{( F* d  W. w# Q
          RowBox[{"-",
    % M) }: R* Q3 U) G/ R; D       RowBox[{
    $ B6 j; N' G* ^# {0 s" _        RowBox[{"(",
    + q. ]9 d, ]6 S( J. _, H         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ! s3 ~6 n( G8 p9 u  g; M
            RowBox[{"(", 2 i$ f0 h- ]4 d
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],, G5 L$ a7 U( F7 y. k
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    9 ~7 `) P" F6 X: b4 [1 Z$ l. D( N: C CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {: ~4 @. j0 D) ^
      3.57796154237158*^9, 3.5779615434011817`*^9}}],
    + l: r* q6 A) L5 f6 S/ M5 Q6 J: ]0 ~4 N( x6 {  ?
    Cell[BoxData[
      O% v: n# ^# z RowBox[{"{",
    6 R+ u9 M$ d2 P, r  O  RowBox[{6 B. J& q6 ^0 U3 ]( ?
      "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
    ( }' L& Y7 X, ~# Z9 {; q7 S   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    6 q9 p) X9 I, P  "}"}]], "Output",
    % g- L+ ]2 E+ d: Z/ K3 N5 H CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    # l# ~* q" P8 O( g0 o+ c  3.57801228203125*^9}]," {& a+ }5 B& ?1 t& [5 g) R0 M
    : C: T% \- @  }
    Cell[BoxData[& |) Q) F$ z/ ^( C
    SuperscriptBox["\[ExponentialE]", % Z' ~+ r* P  t1 j/ g8 M$ m
      RowBox[{"3.141592653589793`", " ", 2 l. m: L# ]% p* D* W+ i; a
       RowBox[{"(",
    5 B( Y& K6 w# q    RowBox[{
    6 D5 {: P1 f: b) q( K, T     RowBox[{"-", - {5 ]; X7 Z, H- `2 o- ~
          SuperscriptBox[' w( H" _1 C. M( _2 q1 Z' t
           RowBox[{"(", ) x: U) |2 [9 f/ R2 E
            RowBox[{3 A4 `& H/ L, U9 f; w" S3 i5 R/ r7 _7 _
             RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
    & m1 O: ?" |! R$ q) G& B( u     SuperscriptBox[- |2 l! ^" Q( p, [* o$ U8 \# p. }7 s
          RowBox[{"(",
    * {# _6 A4 J( s. v' {  n       RowBox[{
    % E) @' n! c* u; Z, y3 G        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
    + R( O, l6 ]' L# B& ^     SuperscriptBox[1 }- ~2 N/ R- f% }, u
          RowBox[{"(",
    # g0 L' G* [& m: U       RowBox[{+ @1 B/ Z. x6 i1 v- Y) M
            RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", 5 K' l, W4 P0 I# M/ {
         SuperscriptBox[, l5 Q1 L6 i  m' h
          RowBox[{"(", , [  e7 \. d5 u. |: s& Q4 H' L
           RowBox[{+ c7 p/ `0 Q" V0 {% l
            RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", , H; x5 C  G4 |- l* Z: V, `1 {; g
         SuperscriptBox[0 H, ^+ w7 T) R2 }2 M2 k2 M4 L
          RowBox[{"(",
    " S0 D! r9 j$ W- R. p9 n, p: X4 V       RowBox[{
    " _) N% y1 y0 j        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
    $ c* N) D! g- V* m+ L     SuperscriptBox[
    - n; n( \8 Z. D5 B6 y  ]6 B      RowBox[{"(",
    8 ]4 {8 q& Y+ Z8 |( e6 ]9 i       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    5 g# l' |$ ^- `' w/ {8 h+ @1 F     SuperscriptBox[+ C1 f- J4 K1 c3 A2 _( V
          RowBox[{"(",
    # x* q% q  G/ z6 ]) W4 ^       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    - j& M2 H2 [( Y) P     SuperscriptBox[+ g, h: S* I7 `2 J1 s1 ]6 E
          RowBox[{"(",
    5 L$ I& I0 d8 b- A; Q$ x% m, m       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 9 e7 T; b$ R+ C9 K7 Z& ?
         SuperscriptBox[# _/ c# `/ e- o, p6 W; K) z3 C
          RowBox[{"(",
    9 @5 M; X! b# A) Y0 \       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    6 y/ j9 S# _, f. e7 {    ")"}]}]]], "Output",
    , }* ]: S* Y9 S% _$ t' J0 X CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, 3 V$ m0 v' J7 o3 Z1 s
      3.57801228203125*^9}]; x$ J; I% i$ y# i/ L
    }, Open  ]],9 ?& X/ N- ^; z' Q  x
    " [6 L+ }$ c% `
    Cell[CellGroupData[{
    2 S4 [, s3 X2 I" w% N$ f$ o0 @) s3 Y7 \" e1 ]
    Cell[BoxData[{
    % n$ t- z- X1 Z1 J8 q RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
    * f$ t1 I6 ~+ \ RowBox[{"u12", "=", 1 z9 ~% p- C7 [6 v) i; i. p1 |- E
      RowBox[{( s/ k% {; Y9 ^
       RowBox[{"Exp", "[", ! Z9 W5 ]3 b6 s: n8 D5 }7 S+ Y
        RowBox[{2 A) V; E* E4 R; ?
         RowBox[{
    % n! `. e; [$ j& t( s      RowBox[{"-", 0 f" a3 _2 D" u# {2 a
           RowBox[{
    : {1 N( [: A+ v# h: S        RowBox[{"(", / ]( F7 c9 x8 u& K
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - O* ?$ W! R# b! f- }2 e5 J6 c) {" I: D
            RowBox[{"(", ( a% @8 o: ]/ @
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],4 m7 H2 B( a  d3 r! P. {0 Z
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    ' ]) n8 d) t0 J/ Z8 S0 a$ G CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ' [. F2 l% \9 C4 ~/ A/ Q  3.57796154237158*^9, 3.5779615576284065`*^9}}],- L3 ~0 _# R6 C8 K

    & F# @, i% P4 ^. z# X: K- w6 qCell[BoxData[7 G. C( b4 b# |" t
    RowBox[{"{",
    3 i2 j. I1 [' r  e8 d  RowBox[{
    ; S( l5 N: ]/ `/ n" a( [% @, x  "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
    1 f; g5 e6 }0 A; p4 K. Q( L   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}], % B. @3 @" e- K% v) ^6 D
      "}"}]], "Output",- n2 R- _" L7 ^& |7 ]
    CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],
      D, V& W! ]2 U
    , V- M1 c7 Z9 ?7 U" M) ]Cell[BoxData[6 k+ G- w0 {" Q% o
    SuperscriptBox["\[ExponentialE]",
    7 a$ b5 N" I0 [8 k+ D  RowBox[{"3.141592653589793`", " ",
    . C, `1 l' l, b0 [4 k   RowBox[{"(", & Z  ?: p1 L9 ]% u% U$ S
        RowBox[{# E& T: @" x0 h$ [' e
         RowBox[{"-",   \  [# q* g: @7 ^$ ~1 M
          SuperscriptBox[
    " Z) H+ D5 y/ C6 O  s& @       RowBox[{"(",   E3 v- c% ?) C4 y
            RowBox[{8 ]1 d, ~7 B" M( [) B9 G
             RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    7 p' n5 s8 q1 d6 O# H     SuperscriptBox[  a9 i# P0 _, `8 i. S; |+ R! N: `
          RowBox[{"(",
    / o: u& r( q& m  ], i* x/ G       RowBox[{
    : ^. b# x0 t* k- O1 `/ V8 \- t' {        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", 0 ?3 b) L: e/ C3 L
         SuperscriptBox[
    6 ?. I# i+ H* @. t9 W, h3 @      RowBox[{"(", 2 n4 }/ r2 Z* H# l8 W* R  U
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
    + X) [7 A2 R1 h9 f     SuperscriptBox[. L$ L. m8 G& A$ l9 q' n2 q' \
          RowBox[{"(", # Z7 Z; e" I$ e5 H, K0 a
           RowBox[{# |* k+ Z+ @* p# |
            RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", + P9 v" S# b% `' M+ A
         SuperscriptBox[5 ]8 y7 `- c* {$ h& e. H
          RowBox[{"(",
    ; j0 C! y1 ^$ l' J6 F       RowBox[{
    ; h, ~& G- S* w4 M2 R- X        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
    3 y( ^4 F. {0 B     SuperscriptBox[
    : K: T' g) N8 g4 q3 v      RowBox[{"(", 4 W( c2 U; h3 I: `6 X( U: [) U
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", $ k8 x3 l" k8 C# @$ i5 P
         SuperscriptBox[
    / K. N; ]# C( a4 s      RowBox[{"(",
    0 a# P! X* H0 o. x/ c. K9 r       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", & a& A$ s, g; l+ W" I
         SuperscriptBox[1 D. |$ I8 ]2 K4 A
          RowBox[{"(", ( ?6 R, `& k  R& J) \. k
           RowBox[{
    8 R, Z' U; b- S" h& ~) X        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", 6 S. Z7 V9 {5 L6 Z' N
         SuperscriptBox[# C+ c3 s6 y- q/ u% {1 c
          RowBox[{"(",
    ) v% P# U* d( E" k+ ]7 {       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ! R' _- m8 E+ n" e    ")"}]}]]], "Output",/ f4 Z  Q: H8 M
    CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
    4 |* t4 q" }6 \; N' _% t}, Open  ]],
    * k9 D$ z' U, D) x2 w# |. p5 @* q, X/ T" k( e* p
    Cell[CellGroupData[{3 `+ G% O6 Z5 ^( m' I6 ^
    ) q2 r% k9 q7 y: P0 t$ l. U
    Cell[BoxData[{
      x. T& @$ u# |+ B& C7 X RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
    9 i5 y) s# t' }5 n/ T* ^& t RowBox[{"u13", "=",
    6 L1 T4 m* B- r( O  RowBox[{9 u* k' q  f; `
       RowBox[{"Exp", "[",
    9 u' T' O+ @" M# t# p* q" m) Q    RowBox[{
    . X! u& s" r1 N) V# @/ n; L     RowBox[{' U- S- o+ l6 z3 [3 ~) |
          RowBox[{"-",
    3 m0 c5 z% |4 Q  c       RowBox[{# b. c8 V( |' i9 C4 v# ^
            RowBox[{"(", ' }! }4 D) z. ]
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", - R$ C! p: t* ]% V' K4 i9 ?
            RowBox[{"(", 9 _3 g3 x( w1 V
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],6 l7 S9 G3 M/ d6 |6 P& Y$ J
         "]"}], "/.", "DeltaX"}]}]}], "Input",* T/ _; [  {+ u, @
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    / v8 M1 ~6 A# P6 u# z  3.57796154237158*^9, 3.5779615599684105`*^9}}],+ B+ H  M, \  z" w

    ! V1 v0 J! [( {! J" _- TCell[BoxData[
    * X/ M$ |, N5 C" H RowBox[{"{", 8 V7 N" r( s* ~5 k7 f
      RowBox[{8 ^8 Q9 N: z# D, _7 a7 m  o3 Z7 q1 ^
      "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",", / z8 b* z! ^% n: k- v* H* z  b
       "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}], $ q. n( a+ _. ?' j- P
      "}"}]], "Output",
    $ G  S% y/ \' u! l" s CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],7 y/ _- s0 q! S- u- O# @9 a

    1 z* U6 J' S' y2 g8 QCell[BoxData[! o4 G/ N5 N1 k
    SuperscriptBox["\[ExponentialE]", $ c6 X8 Y1 d' i  T9 S+ `+ @
      RowBox[{"3.141592653589793`", " ",
    1 N$ z' Q! K3 t5 _3 }) G   RowBox[{"(", 5 y* j3 Z% n" R. E4 ^" ]2 {- \) R1 U
        RowBox[{
    . |4 v' M" v: `     RowBox[{"-",
    9 i9 Z% g: |' _      SuperscriptBox[2 _9 Q* t8 [* B& f# c; z9 ?9 C: v
           RowBox[{"(", 4 a5 }3 O& Q. P/ a% a
            RowBox[{, ?3 `& p7 v9 h' N9 n) g: |
             RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", : K# W7 N- \0 ]7 r4 C
         SuperscriptBox[
    8 ^/ M4 ~) }. u7 c' l      RowBox[{"(",
    3 z$ }8 R  N: B  Y& v  A       RowBox[{  q9 \1 M/ {6 U! D  a. t; j
            RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", 3 O$ k- q2 t2 m8 G1 a5 w
         SuperscriptBox[
    3 `' m1 G! Z6 a! i# O/ L      RowBox[{"(",
      I+ ~! k6 F0 P; _. p" ]  K  K       RowBox[{
    ) a& H/ m, N6 g        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", ) y6 {+ `- \' @, M
         SuperscriptBox[# v* W7 G  k, \  \4 {
          RowBox[{"(",
    ( ~" N: Y6 L( D- G       RowBox[{
    * G; A) L: V8 Q" [) ]/ ^1 `, p4 M* ~        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", 6 [# k/ D  |8 H1 M; L$ w0 k
         SuperscriptBox[4 k) i0 ^3 u, D+ [
          RowBox[{"(",
    2 M* `& p  s, Z+ Z" G       RowBox[{2 _8 d: Y) I/ x) A8 U! r# r( G
            RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
    ) S/ C0 B; _  \* O8 f$ l     SuperscriptBox[
    ) W% N% ^* _, [: ^. B      RowBox[{"(", ) G3 R; ]" |# O5 N0 A; t
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", . P# N5 o+ C+ p# L  Q
         SuperscriptBox[
    6 g+ n( W$ [& c( b) {      RowBox[{"(",
    4 Y2 b# H* c- g" s       RowBox[{
    : N  f0 t+ K8 R! S        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", 9 M- o7 ~+ X& u$ J* M" ^
         SuperscriptBox[
      _. o! B. ]* u0 M! o4 s      RowBox[{"(",
    ' X& o" _9 d( J8 T       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", - h: N; w8 B& O. T$ I
         SuperscriptBox[
    2 ^7 Z; t" N: E* G0 P; y      RowBox[{"(",
    * G; F9 Z/ f) Q( @! Q) V* B$ t       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    % v6 I  J1 F- h3 d! y+ r0 y5 x    ")"}]}]]], "Output",
    8 j# m" B+ k/ O( h0 T5 m; g CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
    5 B0 k: K& B( ~2 L9 ~) c2 Q}, Open  ]],
    ; u$ q) Y) H) ?5 H8 J7 ]0 ^; W+ [% H. j* k- p
    Cell[CellGroupData[{3 f- U7 L7 }# V' q; g

    ! J( {1 q( K# t" A/ O- rCell[BoxData[{
    7 L4 ~1 H: v8 y- v1 S RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
    # s( [5 l3 t; _ RowBox[{"u14", "=",
    % F1 f/ ~, S( v2 ~9 B/ F  RowBox[{
    # P$ `# \2 F: H3 S+ a* ~9 r   RowBox[{"Exp", "[", 1 u" a- T9 j3 y% C8 [3 k# Z8 P$ m& b
        RowBox[{0 B; t: N2 R# s% e7 v
         RowBox[{+ x; t% z6 G# h8 M" {% ?! E
          RowBox[{"-",
    , |% R5 e2 s7 |6 ^+ Z: {) ], o  H       RowBox[{
    ; H* s' s, ?, t" |        RowBox[{"(", 0 v* Z* T4 c+ e  L2 g9 F5 x; Q
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    5 c/ N$ X5 R& m2 P( u        RowBox[{"(", ! ]5 z+ E& `0 Z" y6 B3 s! X1 b
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],2 A; E6 @2 C; J- b$ [3 f
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    ( S7 E! `. V+ y$ ~ CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {& n7 P: s( y5 l3 A4 H. ~1 R4 z
      3.57796154237158*^9, 3.5779615663176217`*^9}}],
    + O- n; @" N( s5 C. C1 D, u+ s+ P. `! E; z
    Cell[BoxData[
    % F5 Q' R' o$ ?/ u1 C RowBox[{"{", 6 S# X2 C2 ~, `4 r9 s
      RowBox[{
    ' b% X3 l$ a/ S  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", $ X5 z8 I1 {6 F, Z
       "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], ( k8 ^6 z' n( ^" L! K
      "}"}]], "Output",
    7 _) }% X, e; M/ f* f7 c CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],4 k. J' y; ]! M$ h1 K
    7 W& u2 N1 O" [! {6 \
    Cell[BoxData[
    0 \% \# c8 S6 K SuperscriptBox["\[ExponentialE]", " A' V* {  j) k' I0 G
      RowBox[{"3.141592653589793`", " ", $ O% A; n: L. K/ I4 K1 H
       RowBox[{"(", 2 Q, A, o+ K! `5 b5 i
        RowBox[{
    & V/ y- ]* r. b+ f1 ^     RowBox[{"-",
    9 C7 q! W/ X, D  D% n: v      SuperscriptBox[3 z. D5 K7 n  X5 T$ }; y0 ?
           RowBox[{"(", : B1 _- {/ Y0 o2 b' a
            RowBox[{" b  @1 \" e4 S' D5 ~
             RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 X, g" {, ?( ]" x
         SuperscriptBox[
    & l0 Z* I6 u2 ?/ F9 M7 z* V& V      RowBox[{"(", 4 D( I2 Z1 \; r' B
           RowBox[{7 r* W6 o' x8 m9 Y9 d
            RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", ! X' ~; |! g+ `; _- E, Z/ F
         SuperscriptBox[: P) a3 h4 q- `. y9 s9 M
          RowBox[{"(",
    , z* J) G! S! ?: j  n1 ]       RowBox[{/ H6 `8 M9 H# ]/ r2 j; y' Z
            RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
    : }' n) U4 H: s7 @1 c" \3 {     SuperscriptBox[( y1 R& u+ y% f( t% R
          RowBox[{"(",
    ' d7 {( Z) k1 |& c       RowBox[{
    2 y8 a# `, X' W; C2 U        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
    4 ^1 F& _2 D# G; o9 P     SuperscriptBox[3 Y8 p; g+ y3 f7 }6 Y8 K
          RowBox[{"(",
    ; ^8 ~0 a% O/ _1 _6 j       RowBox[{! \7 H! N2 y. l8 J8 U9 w
            RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
    & U! T% Y1 n* ^8 F2 L" k     SuperscriptBox[9 _) u) f% q7 |# U
          RowBox[{"(",   D6 S  _7 s+ q5 |% x) v, H4 P1 L
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 0 c$ h6 ^0 I1 r' V) @, p
         SuperscriptBox[
    1 q0 A9 e' [: F( H' O( c* p      RowBox[{"(",
    1 \* K% N  j5 _* V5 w$ G; L0 v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 5 b  f7 p7 I! |# B
         SuperscriptBox[
    , C4 ~/ `3 v$ Z5 W( m# Q      RowBox[{"(",
    2 h; F+ ~( `1 a: |7 X# y0 `       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ! i% H: L& L$ @$ a* T1 K$ t     SuperscriptBox[5 G* N6 [) P& h" y
          RowBox[{"(",
    - b& ~/ i/ z) G  O1 l       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 5 b3 F7 b& g2 d6 i. l4 O
        ")"}]}]]], "Output",6 B4 q8 S. Y4 ^% ~% G; ?4 l
    CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    / g% Y* S$ t2 m% ^: D+ d2 p}, Open  ]],1 j7 J/ t1 u" ~8 [$ M2 D% `

    ; t- ^- ~- ]- n) }) sCell[CellGroupData[{+ k8 A7 M- U. b- o& {; q, e7 C6 g

    2 K4 D# T$ w. t5 B6 ~Cell[BoxData[{  p: ?; K# J) o6 m7 M' m4 p+ v
    RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
    7 s# t2 S+ Y% Z2 c" o9 D/ W RowBox[{"u15", "=", ; {% W( b* A% j/ V9 C* i
      RowBox[{
    0 T% ]$ y. _* ]( @+ I   RowBox[{"Exp", "[",
    " c5 x$ w* W1 G2 m( k' f    RowBox[{
    . w5 G: L3 ?9 f0 |. [     RowBox[{
    $ [7 c" e$ Q* x" Y$ x      RowBox[{"-", . b  G6 k" U! N: W2 [: G
           RowBox[{
    - V) I# ^1 E( r: i! s        RowBox[{"(", 3 j3 d; e, N- [0 ~2 u6 v6 M7 t
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " R; U+ Y! Q( k# K1 G! M$ Y. C        RowBox[{"(",
    , i' [' L5 d# j         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],2 i" Q: W9 u9 ^9 |; [
         "]"}], "/.", "DeltaX"}]}]}], "Input",* d2 ]4 t& y# k5 m
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {: o  P0 h8 |' X1 k
      3.57796154237158*^9, 3.57796157098203*^9}}],/ t5 o  U' L& t$ a
    6 w" d( ?- t8 ~6 k% u& Q
    Cell[BoxData[
    8 _" E6 g+ h4 k! f9 A RowBox[{"{",
    ; U0 X1 e, b* z/ }  RowBox[{  M5 }( S, w& J. j( j
      "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", . W+ V4 Z% q- V8 v
       "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
    - q/ G1 C! i6 A6 n# d9 J  "}"}]], "Output",, b/ V/ r* L. d3 ]+ [& W
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
    * [, l2 p7 S) a  g  r  G( A# Y. V' @) _# \
    Cell[BoxData[, Q0 D: T, W# n5 w  ?: G: Z# i
    SuperscriptBox["\[ExponentialE]", % {& `& X9 j9 a1 T8 C  u: R
      RowBox[{"3.141592653589793`", " ", : K/ N6 Y- G7 \) H2 T) m
       RowBox[{"(", # k8 \% ?, n% O4 ~1 c
        RowBox[{
    7 U( I5 f+ l! \/ x5 I     RowBox[{"-",
    5 v) I) R: V8 w8 t      SuperscriptBox[+ b. c/ t" B8 D1 k& G
           RowBox[{"(",
    6 V/ \1 S* L9 U, p" M        RowBox[{3 E# r5 U+ ~; @+ w" B- L: q' r) K
             RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ) B; L8 Q3 r9 t' ^+ {. v     SuperscriptBox[
    : W% B0 o/ Y- f- J- w      RowBox[{"(", 1 i1 B; i! D) R6 W
           RowBox[{
    / [/ }; `! ^$ Z. e- M/ c        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
    3 F' W" I; b" t7 W( N     SuperscriptBox[7 U0 a( ~0 p9 @
          RowBox[{"(", - j& \5 a- S) N4 d
           RowBox[{1 M2 r' M$ ?1 U. m
            RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", 9 w$ y. Q! u) @5 N2 M9 U
         SuperscriptBox[% j! c* K; p! b6 d  C' `- o
          RowBox[{"(", , d. i" i4 g& u& a1 R
           RowBox[{4 o- u7 E, K3 ]: W, M' L1 G3 g/ N
            RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", - i4 a+ u0 J, O  Z+ p4 C7 s
         SuperscriptBox[9 ]. E& H; D% I) `6 {" i: L
          RowBox[{"(",
    ( C' T3 j# U, E$ N* ^       RowBox[{
    4 N: G  E0 a! Y& F1 a1 Z        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    7 R4 i4 T7 f# @3 X     SuperscriptBox[& O8 m: |. m( v4 i5 |
          RowBox[{"(",
    2 |" c: Y4 j1 O1 C& J8 A2 v       RowBox[{* Z2 b# Q; c; c7 ^
            RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    3 e% {+ d3 K6 M) Q2 f     SuperscriptBox[+ C: q7 C# x6 Z0 Z' R+ m5 N
          RowBox[{"(",
    2 g5 k4 @& K. A+ n# E' O       RowBox[{" |; \3 D- P4 f# m- B
            RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    ! c; G6 o3 B" x5 T1 W0 W     SuperscriptBox[  c2 t9 }: l2 {6 E
          RowBox[{"(", 9 O! }" x* X5 [6 Y+ G! b8 R: m
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 X* z. U: R6 o
         SuperscriptBox[. Z2 ^% s- p/ Z! j' g
          RowBox[{"(", : P: c3 o! z" m; X% O* k
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 2 K( X; S# t+ N' d7 [
        ")"}]}]]], "Output",, _. T. [! m, t, x3 @) ~" \& a
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]) ^* `8 n3 o! m- C/ x
    }, Open  ]],
    7 U# `0 ?5 R5 j
    & a. X  Q- n0 fCell[BoxData[5 c. T! c9 o6 S" o
    RowBox[{"For", "[", $ S8 c( S5 o8 B" V- M, ?
      RowBox[{
    1 |, h- N: F1 L( k$ e  D9 {   RowBox[{"i", "=", "1"}], ",", : v  @+ p! F2 V. Y6 E$ V, u4 z
       RowBox[{"i", "\[LessEqual]", "9"}], ",", 1 [! i5 H  o% `1 X. w) ]1 S" q( g6 a1 b
       RowBox[{"i", "++"}], ",", 9 M' o3 R- A4 M5 R
       RowBox[{5 j* m" s$ n9 A9 U9 c
        RowBox[{"Ca", "[",
    6 k  x, M, c" {! p6 I) b  |8 G     RowBox[{"[", "i", "]"}], "]"}], "=",
      [8 ~' t. k- z1 S& U# p    RowBox[{"CM", "[",
    $ G) z9 L* `0 {& s6 C     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",( ?9 o# ?% D( {# }" ?
    CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
    1 z; o$ a( `: F- u+ T$ Z% _, U0 y' e6 Y
    - N) [1 y  f7 K' }) CCell[CellGroupData[{
    - I( P* f" W( j+ X6 N1 w
    2 ~/ d1 K9 e) y" ^/ E6 W2 q5 FCell[BoxData[{
    - v. {% |5 d* N! y3 ~ RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
    " y& i2 a. F$ n) n8 P: x( g/ X RowBox[{"u16", "=", ! ?3 B3 C+ Z) Y- Q
      RowBox[{
    ( b! L0 S& {' f% |; N; O   RowBox[{"Exp", "[",
    , F2 {$ c- _& K' K" }" F    RowBox[{# T; v% g8 i* _- g. l6 j
         RowBox[{! I  d: k7 B) [
          RowBox[{"-",
    2 Z' m! n$ ?5 f' e       RowBox[{- ?! x) f9 m" m! q+ _. Y8 O
            RowBox[{"(", " G( V  t/ U2 _- l# ~# o5 y
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    9 u0 ~" T. L# Z6 ~" R        RowBox[{"(", 2 P8 h7 Y9 i& ?$ O
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    6 Q' T) G1 v( r$ m$ m" L( G/ L0 _5 y; N4 L     "]"}], "/.", "DeltaX"}]}]}], "Input",
    $ i# w4 R+ w0 }+ B3 P% k5 j" U CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    8 c. i6 m$ c* d  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
    ) N! Q! s- y  H- S  l. G  3.5779615751004367`*^9}}],
    ; k& [7 b& C- ~
    : G. V6 \8 l: A1 l2 T- l) ?Cell[BoxData[2 y" t6 J, e# n0 K# e) \
    RowBox[{"{", : F# R# Z4 A! i/ A# k5 n$ g0 ]" L
      RowBox[{
    5 F' c+ r3 l: w3 S8 S  "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", / W  P( Y: C5 N. A0 n
       "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}], 3 c# q7 r. W; P. h$ P
      "}"}]], "Output",
    : O" x. k5 J" _7 i6 Q; ?) G5 ~' ? CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],4 z: D& d& V+ `. G4 m! O- Q! y) ]

    ( X0 }+ K& x# L& ?2 y0 P" FCell[BoxData[
    & l3 R- d' J: J9 c SuperscriptBox["\[ExponentialE]", , G% v3 y" r  U3 w, n" V7 u
      RowBox[{"3.141592653589793`", " ",
    ) ]' s4 _4 `8 g' w3 ]! i6 M   RowBox[{"(",
    6 E5 V3 A* Y; ^% s" I6 t0 k& [    RowBox[{
    4 {  u% ?2 A! j) x3 l) @     RowBox[{"-",
    : H5 d+ E1 h3 ?0 Q( B      SuperscriptBox[' ?1 K: s: W' J' a
           RowBox[{"(", , C4 A9 G5 l) l& y' K
            RowBox[{
    0 z) k. p& c: v4 g- [         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
    " A3 S0 ^! N7 r4 Q9 S     SuperscriptBox[
    ) F% y- N/ D3 f9 q, V. D/ ~5 ~      RowBox[{"(", . x, d: z, P+ m2 J) r6 ~# R
           RowBox[{! N* F1 U# x0 F5 s4 l6 w
            RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", 8 Y: U* ~& t2 e! c; N3 T. N2 l
         SuperscriptBox[# j# w( k' S0 L  U( T& t9 I
          RowBox[{"(",
    & p! e8 v& b) ~( E- l1 S2 s       RowBox[{. k; Z# W' I& z  B* Q* P7 s
            RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", 1 u; O- C( i0 N. I1 {, y
         SuperscriptBox[" k( L- _# T( x
          RowBox[{"(",
    / `$ F  d( [9 x# e3 u" s* J       RowBox[{! m: l2 @' d& k0 L( W
            RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", 3 Z- B4 i/ e8 e& `6 o9 C
         SuperscriptBox[& p  m0 }7 @1 F0 K' @' |7 f" j' C
          RowBox[{"(",
    ( z5 X' T, Q8 ^( p% B1 E       RowBox[{
    6 ]8 z! p+ V; _& t        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", - A+ t: T) s* ~3 @: A7 u
         SuperscriptBox[; e: d$ i! o; D% h
          RowBox[{"(", ( f: o6 H0 S+ i$ c; \) b. H
           RowBox[{
    " x) e1 J! Y  n" F. k        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", ; a% a/ @$ S. ^# z! O* R
         SuperscriptBox[+ S& P: X9 u: `) h$ S3 h- M* }
          RowBox[{"(",
    2 j- J% I, W- C0 {       RowBox[{
    " L3 T- F; f+ B2 }( x) U" l% Z        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", 7 n5 w, P6 I4 }4 I
         SuperscriptBox[
    ) `2 Z  x" x4 l' x5 @! A2 W& @9 }      RowBox[{"(", ) ]- H7 t2 E  p* M/ _4 H8 P; I
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ) e# k1 m: c* i2 v5 U     SuperscriptBox[' B8 g4 J4 N5 H& v1 O
          RowBox[{"(",
    & e/ [. k( a: k; ^2 U       RowBox[{' z  o1 g; r3 _8 `
            RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",$ s9 ?& C9 V( M( Y
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
    ) x, M5 R) e! v) G6 [7 J6 F* M}, Open  ]],8 j4 K: y8 s% i2 y, p

    ' o' k/ n& A2 J. ^Cell[CellGroupData[{
    ! C5 A5 y- b& I! P, v3 Y+ y# j$ M( ~8 w7 s2 i2 f+ G/ W
    Cell[BoxData[{
    $ a! a, F; r. {: e3 _5 J RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", 7 Y* l  s  y$ E- u, _
    RowBox[{"u17", "=", % E6 _) u$ ~. s( g0 [
      RowBox[{
    0 y% K2 t# V/ z  x; h   RowBox[{"Exp", "[",
    , i1 x& h# E* n/ q2 R5 Q    RowBox[{( ^5 T5 y$ l6 U2 w  D# e
         RowBox[{5 P' z8 ~- n9 ~
          RowBox[{"-", 6 n8 ?+ i4 X( Y
           RowBox[{
    4 d# U) C- p- i9 g2 z& ^$ o: |        RowBox[{"(",
      q# `/ k$ j: k% ]. v# p% ]         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    3 @. E8 [) n& \5 H1 d: Y8 S: Y4 F        RowBox[{"(",
    $ {$ V3 `. a* r6 }- R4 W         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    4 v) i" Q0 l8 p5 F3 C# b     "]"}], "/.", "DeltaX"}]}]}], "Input",- e* g: X+ X( v7 ]0 K
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    # n& R2 u/ H. ?& X# g0 Z  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, ' y- j" C$ r0 c# S# X
      3.577961578953644*^9}}],
      ?! B( \+ ^6 {* R2 C; n5 |+ ?& Z" c6 V# g
    Cell[BoxData[
    5 |9 r2 n7 E, O* t RowBox[{"{", 0 i: }" q( T/ V# g
      RowBox[{% ?  O, X3 Q0 _, e" ~7 j+ f# F; H# \
      "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
    $ a7 ?7 W. t( i/ }0 x   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
    7 m3 D" J6 \( H! ?0 S  "}"}]], "Output",( o9 ?7 k/ l6 q" ^( q$ g( ]- q
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
    3 a3 F, @4 T! l0 E# J0 S8 A
    & W" i- |" S4 R" @# [0 ACell[BoxData[
    8 Q, N2 G! ]* B; r SuperscriptBox["\[ExponentialE]",   x% g  ]& l; U# r3 t: q
      RowBox[{"3.141592653589793`", " ", 5 p8 ]. ]) b5 v' C
       RowBox[{"(",
    + W" ~2 V3 W; {9 f- U9 _! X    RowBox[{! }/ ^( O6 G' e. k" r! X
         RowBox[{"-",
    - \$ s5 T6 f% b. `) N7 y      SuperscriptBox[
    " G# L$ ?5 z  e" e& C" P       RowBox[{"(", ' ]# e7 |: y% f1 G% l
            RowBox[{
      G% S( K+ \6 Z& h         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
    * j/ H* B4 d! q1 A( A. z" i- T     SuperscriptBox[
    2 D- {/ `2 [4 l/ Y  N3 o      RowBox[{"(",
    ! ?9 N! T0 K5 a8 ?       RowBox[{3 K9 `/ L# P7 t  E- s. _, O7 N
            RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", " q" d( n8 p& j' C
         SuperscriptBox[' b/ ~) z2 D8 C% }9 d& g
          RowBox[{"(",
    % B) C+ x. R5 D) r       RowBox[{
    , O( e0 \+ e+ ]$ `6 a1 ~        RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", 6 p9 h0 J3 D; P* p3 i# G
         SuperscriptBox[+ o- K) G& \5 k# C" R% Y( T) _
          RowBox[{"(",
    4 O4 `2 x4 R5 ^: R/ D( o       RowBox[{" z' S: ^; m/ m0 x- D7 i  D
            RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", ! S1 ~9 z1 t: z) T8 d( T
         SuperscriptBox[# \4 y% W4 r" }3 P1 a. ^
          RowBox[{"(",
    # ?  N% a4 U0 R       RowBox[{
    6 ?/ k# j2 l: a) J. K        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    6 [1 h) c- V2 f6 k$ y3 l     SuperscriptBox[8 A& u/ b; k- d3 G+ {
          RowBox[{"(",
    3 ]3 {0 `: w, X       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    0 K: c9 q% J. |, s6 P     SuperscriptBox[
    4 R) f6 D' L- ]; h      RowBox[{"(", 2 R8 C! v( [7 O5 e2 v4 T5 C/ J% r0 x
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
      [  Z' K# K% p. ~- n     SuperscriptBox[
    1 P+ H4 Q5 g9 A      RowBox[{"(", ; V, K' U  x. ]6 q" {- }% i1 H
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ' }) Q) B5 X" X     SuperscriptBox[
    : c! c* R* e* m* J0 O( s, |! ]" I      RowBox[{"(",
    ; T9 u' }) L* f# L& E/ Y# B, J* @) d       RowBox[{; \% \1 m4 m- V9 _7 V
            RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], 6 y7 }9 S7 l5 p" Z& {! @; k
        ")"}]}]]], "Output",
    * d5 V7 q/ k; M1 _! }; f+ ~ CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
    . T2 ~" \1 j3 M  J7 w/ K' ~}, Open  ]],
    + V' _. Z$ D- j  S# ?! ^
    , e& W$ W( K" R! U7 H& I8 K' vCell[CellGroupData[{
    3 o, v& d, G8 @3 [4 a4 i4 t! _: R/ D# W0 A
    Cell[BoxData[{# B7 O. p0 d6 k" C' N; R* H2 X
    RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",
    6 L1 \% K3 Y9 }" {6 i  b RowBox[{"u18", "=", # q0 f/ [0 h2 k& d' h
      RowBox[{- r# t$ M; Z' i+ e& E& m9 y
       RowBox[{"Exp", "[", 0 _# K; C# z7 U) }9 y
        RowBox[{( E# o0 L" @# j6 A8 j& f
         RowBox[{, P6 N/ |  a4 u* s! c
          RowBox[{"-", # y, B9 p, J3 k1 _) |+ R" @
           RowBox[{
    # J4 F2 Z5 [6 |% j: D        RowBox[{"(", ) d/ x" \: w/ D& K0 \( B1 c6 U
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " D* s/ M& G/ E! s5 `# f: b. Y        RowBox[{"(", * e. K, J( I: J: W# o* i8 c
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],9 z7 N# e% \7 Z! H; u$ B
         "]"}], "/.", "DeltaX"}]}]}], "Input",, m9 E2 @0 G  ^
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {6 a5 ~  i( {; W5 H( C
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
    & @6 M  c; }4 p  C4 A8 M" L0 @% s9 U  3.5779615828848505`*^9}}],8 \7 {7 z8 G8 a) G; R% S

    5 |  R2 K+ k2 m2 U6 yCell[BoxData[
    6 V6 b8 p2 B6 q$ q% |( o2 i/ t RowBox[{"{",
    $ m% {  H8 ?; t# G/ V3 R  RowBox[{# P# t* u3 g) `/ f# H$ H
      "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
    2 @! y( |* `+ ^( {' s. b+ E5 L& e5 c   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    ( }+ T- T7 L5 P2 G6 F/ I  "}"}]], "Output",  u2 x4 }# O! U- E1 @2 j: z8 Z8 w
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],! p; d' N3 H8 J, E: d$ I0 ~
    2 L% S7 I+ p: x
    Cell[BoxData[- ?. c' {3 A9 x0 }% Z! `
    SuperscriptBox["\[ExponentialE]",
      X' z6 H8 L4 N) w. M3 v% R/ v  RowBox[{"3.141592653589793`", " ", : w, _: g8 t; T9 ?+ k# n  j: w
       RowBox[{"(", ) k) C5 t; F- \; @- V
        RowBox[{+ O) l- ]" ~+ q. E$ E- w) \0 H: H
         RowBox[{"-", $ _6 L3 L, \/ Y  k7 L8 q
          SuperscriptBox[
    9 _7 A* E9 F2 A0 E. s7 W/ f& J6 I       RowBox[{"(", 5 R1 R- g, {. n$ ]; L6 p
            RowBox[{# n- U* r8 T. z! z: K& |# c
             RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", ! Y; M& W1 I! V* \6 Q+ w! z
         SuperscriptBox[
    * I" |- c1 q5 \# I2 R/ o' o      RowBox[{"(", ' _) k% G  o8 t7 Y5 |6 V6 B7 @. X, s
           RowBox[{% y- ~- {4 N! C3 X! Y; U5 p
            RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", ( y* F0 n& d. d4 `1 \
         SuperscriptBox[
    ; ?. O5 N4 n+ G+ z2 d      RowBox[{"(",
    7 R# s0 X* a; l" q+ I       RowBox[{
    # w8 c, y$ G: _: [        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    ' F  c; O3 i8 A4 j$ m9 R: i     SuperscriptBox[
    ) ~; x! V* Z# R& X0 |& {  Q% g      RowBox[{"(",
    ) |% z0 ^# R/ V/ y3 ?( z9 n& X       RowBox[{( i  r" X* N+ I
            RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", ' e( {& V0 k3 n. Y% M" a: h) y2 i
         SuperscriptBox[; N: h: g' s0 n' O
          RowBox[{"(", ; C9 B: e0 z0 q7 x" ^5 Q6 G+ Y
           RowBox[{3 B9 J+ V8 A9 A! p
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", / w) v$ p; _6 {9 l
         SuperscriptBox[8 K/ C" D; Z' U+ |, l- `+ c
          RowBox[{"(", 6 h+ o) x/ c- X/ i# Q4 s% v
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ( |% l7 J( G4 B) v5 r
         SuperscriptBox[: }4 Q; X8 q* [
          RowBox[{"(", * q+ P6 d2 d& D. k
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", % w( D2 J. G, d+ _6 r) Z; D
         SuperscriptBox[: e0 C: w9 D% u, V! V$ f
          RowBox[{"(",
    ( Z+ Q( ~& I' I2 U       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    4 Y2 H  g5 O  V7 _3 d     SuperscriptBox[% z8 n# @3 c/ }4 J: X7 `& x
          RowBox[{"(", 2 n1 c# U5 ~5 ?. T$ X
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    * {: L' f" v, a' A3 s    ")"}]}]]], "Output",) Z1 P' n2 ?- c& ~! O- W
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
    & d9 w6 M% P4 \# a9 i" S}, Open  ]],- d' m5 r4 q' g, g6 w" |

    / W% A, }: w, z0 `2 |Cell[CellGroupData[{' ~% ]1 V+ x& W

    4 K8 z8 x5 ]& h5 o% lCell[BoxData[{8 Z+ n, g, G! b) |( q
    RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",   x  G$ x1 I: O) a; i' i. `
    RowBox[{"u19", "=", - H4 S& ^& O. q: K  H
      RowBox[{
    ( K% y  [; G1 x% G( J   RowBox[{"Exp", "[",
    / _0 S: z" y" g2 \    RowBox[{4 u% {0 A0 \, ~  e2 k% F
         RowBox[{5 ]  ^. o! E; t% k* g# v
          RowBox[{"-",
    - s/ E" k: V! x" `2 s7 p( y: O       RowBox[{
    / Z+ [* L" S( \0 e) n$ b        RowBox[{"(", # O' c$ t8 _1 K% I6 F  d
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " |1 q. h6 j* `" I        RowBox[{"(",
    8 A! G" o' Q$ \1 C0 B9 }         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],3 e+ Z+ F& v& O; F
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    ( G: W9 C- p) {, ^# x* W* v CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    0 h4 i/ [3 ], E2 [0 o7 w. c  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9,
    : c3 L# m" e' ]/ D  3.577961588890861*^9}}],; o7 B) w3 L: K, |8 B- S

    : t* K2 K; j/ Q3 I+ Q4 }5 k0 _Cell[BoxData[& O& r; o  }! J5 ?: H$ G
    RowBox[{"{", / k1 L1 _4 e5 |/ q* C5 ?
      RowBox[{
    $ T2 j" T: {2 N+ X+ K% x6 [  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
    9 P- K8 m/ s/ E- t   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
    # Z( P& r& ]& a) @$ M+ x  "}"}]], "Output",
    / e: j  n+ |' l6 \ CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],4 m% T+ }% d5 J7 ?. v/ [6 h
    . O, M0 |' l$ G9 p4 [+ J( Y
    Cell[BoxData[  r" i2 b8 [4 u" M0 t- X
    SuperscriptBox["\[ExponentialE]", & b+ t/ b7 W; I. u
      RowBox[{"3.141592653589793`", " ", 1 y. o3 J8 V$ F  o
       RowBox[{"(",
    " u7 _* f( [( w& U5 j    RowBox[{' l* s  R6 ?. E5 h1 I7 S  j
         RowBox[{"-", ' n6 e" y7 j1 P2 ~" L$ u: ~: G
          SuperscriptBox[
    8 Z; a, ^3 K- Y$ @  l+ A       RowBox[{"(", 9 s9 \& Q, p! Q$ a. ]) E6 i
            RowBox[{6 @; F0 z# X, d# E- o& v3 y5 S
             RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
    - ?  P; @" l, E     SuperscriptBox[
    : X3 e/ X; R& @; \- e; h& F      RowBox[{"(", # Q. P) d/ I  q1 S- C% M- D* Y8 ?
           RowBox[{$ S1 e6 V0 h4 F  f: g
            RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", 1 u1 F0 Y+ h) S7 b7 E4 `! l
         SuperscriptBox[
    7 W# z; X/ f. y0 ?; s) p      RowBox[{"(", 7 b# ]" I, c9 j# K6 q
           RowBox[{
    0 a! ]0 G0 [* E1 Z        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", 5 @' K9 \  |' G8 a) |- C) y
         SuperscriptBox[. r" h1 w: }' d/ e. {
          RowBox[{"(", ! r0 G3 v) B# `. w4 N/ n  P1 ^; ?" ?
           RowBox[{: d, G+ v$ y- ~( }; E, E. R  @
            RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", 3 U. S: i3 X6 K
         SuperscriptBox[& u6 H( B$ S+ N8 K- I/ A
          RowBox[{"(", 8 C6 y0 j( W; H  c
           RowBox[{4 |0 e  |9 ~- q! s# s
            RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
    9 D. e- P+ B* V; ?* M5 M1 z1 o     SuperscriptBox[
    " ~: ~: J! \2 k* @2 l+ N  [      RowBox[{"(", ' X* J  ]9 J; ]' k. Y! ^* @
           RowBox[{, u# Y6 [$ e( T" x0 o- {
            RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", 3 L  D7 ~6 Q9 J7 \4 X( g9 B/ Q
         SuperscriptBox[& ^* Z1 {9 t- Z# ^2 S
          RowBox[{"(", 0 ]: U7 K8 q/ Z7 k" D( L
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ! ~( Q) I' k, A0 w' m# F. U
         SuperscriptBox[
    6 }: K  U. a% [      RowBox[{"(",
    & Z0 m6 e$ f3 ~0 d  X       RowBox[{
    % _# P& |0 V" r, {; A        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", ) N+ l0 Z! N& u5 c4 t4 M1 H
         SuperscriptBox[  h" `' S2 S5 I! C
          RowBox[{"(",
    9 a2 f, z& L; l3 n       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    # f+ r& y5 Q9 u& @: j1 S; }4 A: Q    ")"}]}]]], "Output",
    * B' D6 Z% m+ R$ Q CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
    - j$ o9 B; e& Z; k, K. A+ y$ t}, Open  ]],
    7 D$ ]. z5 w$ m8 l4 W" V3 n( J# r9 u3 [( \
    Cell[CellGroupData[{
    ( X$ b# v  I( G/ G( Y( d
    ( o# R5 M$ v  ?, e( O$ A- O, i3 H" @, lCell[BoxData[{8 A4 [# C# c+ x! e0 z
    RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", / K8 P( {& y5 H" `' g3 J
    RowBox[{"u20", "=",
    1 Y" S! h% F! ?, I9 ]" |  RowBox[{5 ?  D6 i0 X2 N# O- b/ e3 q6 L
       RowBox[{"Exp", "[", ; _/ D3 e. Z/ \4 Q* `8 n5 x
        RowBox[{# `& G- ^! H, H3 W
         RowBox[{
    ; _* B) g* ~. y6 L- ?7 k7 z      RowBox[{"-", " N6 b' z. b( D# {
           RowBox[{
    3 |' D: w1 F7 U* S        RowBox[{"(",
    1 v5 C3 \; \% d0 E         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    , I3 I6 i) ^2 W9 _* ~  m        RowBox[{"(", % ~8 W6 N: z& J' k$ [% M% M
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    : ?1 ^" }5 U9 L* Z' o0 i3 N     "]"}], "/.", "DeltaX"}]}]}], "Input",- K; Y7 B' k- G* O
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    4 B. M  ?& _' P. p5 M" L' r  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
    3 E' _3 S- a8 f0 c  3.57796159382047*^9}}],% h& L, y& _- V& L& X

    8 h1 Q5 w% p5 W5 Y1 LCell[BoxData[
    ! w' q# }/ w9 A0 D8 c' e- o/ z; ~0 ` RowBox[{"{",
    - X7 Y, }- b, T% I' h" x+ l- d  RowBox[{
    3 m" F+ [8 C7 h0 ?* z  U1 j  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", 0 I9 F! m  B; C
       "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
    3 C) }: ?8 k' W5 p) G  "}"}]], "Output",& B, ]5 x9 O8 {& c* N
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
    & s# Z+ g) M' ?3 ?$ {! a1 P8 e
    ( e$ }( F2 u- Q- P" ?% s8 S: lCell[BoxData[8 ?. b# @7 y, {) _5 Z$ Q! A/ t
    SuperscriptBox["\[ExponentialE]",
    # Y- P7 s8 _. {1 Z6 u! n3 m/ G  RowBox[{"3.141592653589793`", " ",
    * x7 b5 E! U& M0 l, p( s   RowBox[{"(",
    $ Q/ x; h& L$ ]/ E" H6 d* `2 M( M    RowBox[{2 q2 T! p$ ~7 c" A+ d( [
         RowBox[{"-",
    7 {/ ^+ Q# `) W7 |      SuperscriptBox[! ~/ m: N. h7 Y" w0 b& |
           RowBox[{"(", ; x  J- P" d6 }* Y
            RowBox[{
    4 F7 E0 o( P& p# I0 [' O8 k9 }3 }0 l         RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ! X& }' W8 s( {2 h' u     SuperscriptBox[
      t% Y% H$ Z3 i3 m9 C/ m5 J      RowBox[{"(", - j5 g0 `' _# ?5 M
           RowBox[{
    9 f1 q( x  k5 w" |& m7 [( O        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
    2 p6 v9 Q* d. g/ X' n3 ]& [     SuperscriptBox[
    9 L8 u1 K1 Y0 s2 o  c  g3 v- f      RowBox[{"(",
    8 R0 A. [. E: C: T+ w0 N9 a9 B$ G2 `       RowBox[{
    : G7 D- A- J! w# ~: ?        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    4 h0 `7 |$ ]6 B+ }$ G) \* A) \     SuperscriptBox[
    " p, z. Z: x; {% Y' Z1 r+ l6 Z      RowBox[{"(", + ^" T) }! |  V1 J
           RowBox[{6 z9 M+ A$ p# m. _
            RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", 8 e" }9 R  X8 o6 S
         SuperscriptBox[7 R( k  y/ w2 [5 `. {
          RowBox[{"(",
    5 n: ~. N5 {* }! f7 d       RowBox[{
    * C' k+ ?2 X7 M- P: Y, T  e        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", / \8 c: O4 b3 H# n5 x
         SuperscriptBox[
    ' n# Y/ |- D. c3 ^& W+ j      RowBox[{"(",
    # X$ D2 \. ^. b) P" r- C* e" |8 s       RowBox[{" ?( ]3 ~4 I$ D& E
            RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    3 d' j  x8 @5 {* ?# s7 E: v+ O     SuperscriptBox[+ q" f! s6 o# n
          RowBox[{"(", ' I6 v. A! H2 `5 s* D* |. F
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", " @) U! u. u0 v7 D; `
         SuperscriptBox[" n; a; w5 b- B+ d
          RowBox[{"(", - Y3 _' }% a2 K+ J
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", - @; G8 H3 k( P2 r% Q* w! |, D
         SuperscriptBox[) f+ k8 N0 R8 A$ p4 \. T
          RowBox[{"(", 8 d9 \6 t* P3 j
           RowBox[{+ ~% S2 q5 Q% N
            RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
    / \+ v9 l( k7 {9 Y! v0 x    ")"}]}]]], "Output",% Q+ U; F9 V$ t0 V' a- h5 v
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]$ F) G7 f" m) x2 M2 w
    }, Open  ]],5 W5 I1 r2 m/ U
    # |8 `6 f! [1 A
    Cell[CellGroupData[{; P, N! B0 @, L/ J0 g7 `

      O$ {8 M/ H. L% i* z6 f& pCell[BoxData[{
    ( ^5 L' X7 j# Q. t9 I4 M RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]", 6 \5 u8 Y) _. U9 w, H$ [
    RowBox[{"u21", "=",
    ; i( ]  k* e3 N: ?  `  RowBox[{' ~4 P- u' l+ \1 c+ Z& \9 A6 \
       RowBox[{"Exp", "[",
      \- o9 s' y3 j4 T    RowBox[{2 [9 T5 t- z& l. u' Z: O
         RowBox[{& d6 w7 \; _' X4 r- }  I! O
          RowBox[{"-",
    ' w, N' a7 N' x2 A9 c- P       RowBox[{. H# v* R/ Z# q* ?+ F2 `
            RowBox[{"(", / U4 _- Q8 [# Y/ |, E
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    7 S1 u% I( U# i: C0 l3 \) X        RowBox[{"(",
    2 m5 A6 }8 j2 ~/ E1 y/ F$ m+ Z         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    - D1 E' s+ c, c: }  _1 U( W( a     "]"}], "/.", "DeltaX"}]}]}], "Input",% L4 D, F4 e- I1 p: F0 ~+ @
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    / O; v3 U3 {0 N  L7 @: ^  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9, 6 y9 T8 i7 F; @, s: m" g# N+ g
      3.5779615991556787`*^9}}],1 F: i5 j9 x# D8 c7 g% r* O

    2 b' t3 b% ^/ T2 ]Cell[BoxData[
    ) k+ _3 v" K/ R* O" @& ] RowBox[{"{",
    % e0 r8 s& d' m% U! [- b$ b9 a  RowBox[{
    0 Q( t) H; z2 ^6 w; i  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",", / X: H4 _7 Q" U
       "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
    & R( I- j! U1 ~( P5 s* T: j  "}"}]], "Output",+ q: P# d' j$ A% S# g( c, @7 y
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
    / `2 Z* W- p' w  X3 N1 U( z- d* c" z! [; W& t1 y
    Cell[BoxData[
    ; \+ s' ~. s3 | SuperscriptBox["\[ExponentialE]",
    " i% x$ ]1 E" \% {6 A+ ~  RowBox[{"3.141592653589793`", " ",
    2 d+ k/ N7 ]: ?! Q5 {. v  [   RowBox[{"(",
    ; l+ d3 W+ E7 M    RowBox[{
    ( n6 \! j. m2 C     RowBox[{"-", ' K9 q% b9 [) C! a; M4 a/ V6 C
          SuperscriptBox[+ k9 Z* V. l0 x( R8 N% k
           RowBox[{"(",
    # A/ d2 p" x, y7 V+ L        RowBox[{
    1 |# A8 ^( H8 f/ D# C4 C         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", ( h& A" j  l1 o" z( e
         SuperscriptBox[
    9 V- e6 o1 S( w7 p7 [3 n7 F3 `      RowBox[{"(",
    & S! j$ {6 |5 w" u' G7 @       RowBox[{4 _; A! q9 Z3 I: f
            RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", ; w) Z8 k" H5 v' r* p+ ~' h
         SuperscriptBox[
    * ^: n6 P: i  N9 r* e; R      RowBox[{"(", * g% _- V! E: Z# w
           RowBox[{
    , H" i  A5 ]* t; c3 B7 T8 ?  [2 s- I        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    4 [: T/ p8 }6 L6 A     SuperscriptBox[: q7 {: U0 J5 _& j! S
          RowBox[{"(", . J# w$ Z0 x: d6 \
           RowBox[{+ h, f# y& y, V5 l- g% u3 {0 A1 k& U
            RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
    " T7 Y) h7 S' W     SuperscriptBox[9 X% X; O' K9 O* e5 T$ H/ L
          RowBox[{"(",
    % U( g/ U* D$ z% ?- m! m+ Q& P       RowBox[{
    5 `# S& l- A  ?. \! P        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", 2 j6 t# H5 L* i" @* A! ]9 K/ H
         SuperscriptBox[- n( R; a7 i( M4 N5 F
          RowBox[{"(", 3 Q6 p% K/ @$ [: k" D
           RowBox[{! }5 r: N2 h  V/ @9 K9 R
            RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", 4 ]8 M& Q/ x' ^  x
         SuperscriptBox[
    & Z" c" q' k  Q2 I: V3 o/ I      RowBox[{"(", 2 \% L/ d+ l& X6 V2 L
           RowBox[{$ W! F  n; w2 }( U- j
            RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", 0 c: k3 g8 r) c$ j1 h4 W+ R# L6 R
         SuperscriptBox[/ Y1 J  T; w& F& L: z: x0 L" R  _
          RowBox[{"(",
    ' F4 W5 T5 _0 D+ \; W       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ( F5 |8 s- B  `9 Y5 m( o8 e/ F     SuperscriptBox[
    $ L( i/ x( N, f      RowBox[{"(", + ]. Q9 E9 }: t
           RowBox[{- T, x: ?# ?+ E$ Z: ~3 y, Y. E
            RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
    % q: |4 h3 b5 Y1 |1 J1 o    ")"}]}]]], "Output"," s/ m) j$ Q4 R; g, ?
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]5 ^+ ~9 P* [; b! p9 Y1 Y6 f6 G
    }, Open  ]],0 u; k* c9 \& R; m- X5 O/ ?# x

    ) n5 A( }& F7 h' Y1 a+ W' g) \Cell[BoxData["\:62df\:5408wi"], "Input",
    : k& B; L1 r- j: i3 D" a0 A CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],2 I, [1 i6 J! S5 M3 h7 Q" M, w( c

    & L( R) B4 @$ {8 m& c* |Cell[CellGroupData[{
    0 N2 j/ r, d1 ^& S- D* z" ]9 E7 D# m0 r: l# W; R% P& W# H
    Cell[BoxData[4 w( S) l6 V9 {" f/ s7 |
    RowBox[{"y1a", "=", - {$ T: z4 m$ B+ N4 {
      RowBox[{"Table", "[", - O, X& w4 g7 ~5 v+ l
       RowBox[{"x", ",", 0 x: h3 C: s5 }: }, ?5 M
        RowBox[{"{", - c+ M& H! U, w3 R) g6 x
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    : j' @6 |, o5 e( G( O' p, G* Z CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    1 f* x. {8 H! I7 p  3.5779226649375*^9, 3.5779226810625*^9}}],
    : E0 u" g! e/ Q5 n. H4 Z5 v
    - F& M! u3 ?: v5 f/ W: [: RCell[BoxData[
    1 g) g# h- U( }; e  z' f/ p9 Z1 r RowBox[{"{",
    , f* g! A8 R+ A- g( @6 f; R  RowBox[{1 i4 M$ T* e. k0 S* m# |# e
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : e, v$ h& q8 o/ G% c2 Z   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    1 n- g5 Z5 y2 S" R3 {7 r    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 2 C) ]1 I: i6 m7 P$ r: U" G( T
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    9 W. G* u( v$ O/ f; A* \" D   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 9 |8 Y: [/ R3 z) b) N0 p' \* w
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", , l$ g: a. O& v8 @( s5 T# u
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    4 F8 \! X; b6 u( f' y* V# F   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    " E! N4 G* k) q6 m1 A   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
    , g, ~- N: e4 o0 A% n! d/ z  "}"}]], "Output",
    - [( k, j; z6 A0 U3 c4 r CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9, 5 ]' ]; p4 W' v/ {4 J2 a5 y" _7 ~
      3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]3 A8 W& M  X  Z- j- }0 ~
    }, Open  ]],
    7 s9 B! b# W/ y$ y  J. t) x& z' t1 L4 N- B0 X, p
    Cell[CellGroupData[{
    " p& M) |6 O$ R* {% A! `
    - x; |  V0 |" c# jCell[BoxData[+ `9 w& z+ ?2 K" K0 ?
    RowBox[{"Data", "[",
    ) O6 p6 q3 }; r, Z6 I, x4 @+ ]  RowBox[{"[", 5 N' I- |& f" X" y# ~
       RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",% H8 ]0 \# G7 c
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    9 p7 y2 q* G# w- X! x* N  x   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],7 N( u0 N6 Q) I1 U) D

    6 K) p/ N: {+ W  z/ q5 tCell[BoxData["0.899882`"], "Output",
    / H9 i& ]: f+ `7 d8 ^7 s; J1 W CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, 7 _0 P4 z+ V* J: _9 m- @
       3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9, , R* N2 a# [; B9 a/ D
       3.577961929080654*^9, 3.5780123419375*^9}]  w: Z! E4 T7 z$ V, @% ?; c% F# x, g3 T
    }, Open  ]],) _2 I! L! p- A! s$ t6 X* K5 Y

    , x% |# \+ O( z( |# \Cell[BoxData[
    + v5 ~) V+ R) Y: q" A* E RowBox[{"For", "[",
    0 t3 F8 q. r) M' ]9 |. \$ O  RowBox[{3 b; c' `; o$ P1 Y
       RowBox[{"i", "=", "1"}], ",", 9 i/ ?+ e  P6 C
       RowBox[{"i", "\[LessEqual]", "60"}], ",",
    ' o+ @9 j: O, S8 g% |   RowBox[{"i", "++"}], ",",
    # U/ \7 G; ^  b7 [. ^7 |   RowBox[{
    % v! r( @) }# V- l: o& k" j0 E2 p    RowBox[{"y1a", "[",
    - |" m/ o" w6 y) H     RowBox[{"[", "i", "]"}], "]"}], "=",
    0 S/ ?! j5 K8 x8 o0 c9 Z    RowBox[{"Data", "[", : K# r  i$ A$ x& Z0 w1 l
         RowBox[{"[",
    - l; X) O- f5 f% Q  n' o2 v3 J      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
    2 E4 ~3 t+ w2 A' } CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    ) j8 A$ `* X* T' T( p7 J   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,   V* Y( Q! y0 U1 h
       3.577922923203125*^9}, 3.5779588839702806`*^9}],( ?  b' F4 K; g6 X" S. t% c9 I

    % q2 A# {" f2 `  pCell[CellGroupData[{
    $ n4 V' c% X9 ^8 v( k4 ], |- j0 |8 s& B6 s2 A0 s0 t! z% _
    Cell[BoxData["y1a"], "Input",
    " H3 c  Q5 W+ [4 k CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],
    ) [, S) J3 N8 j' J1 H. I! i' L) f7 \9 \
    Cell[BoxData[; l: R3 o4 E: s8 R% _
    RowBox[{"{", , @7 q. S" ]( G3 E7 b
      RowBox[{
    ) _/ u% }; N( V% T, Q9 Y  "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",", ) M/ g( H* N6 e( a
       "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",", + a8 f7 L4 C+ {& c/ Q0 |
       "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
    2 v. J1 Z8 u6 F+ p5 h* H( B   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
    % z' x7 L' M5 u  G0 z! q2 O   "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",", 2 |% s9 @  R% e0 q7 Y
       "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",
    ! k1 e" g# j1 T" V5 p   "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
    6 h3 h4 g" |1 Z. b   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",", ; a/ P4 X: b' _1 s
       "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",",
    - l! l1 f( \& a' T* [4 W: ^' j   "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",", 4 F0 Q  {) U0 O* _9 \% l3 Y
       "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",", 5 x! o- Z, F( w% w
       "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",", - y2 \& E( f1 ^6 ]/ h7 v8 Y* [
       "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",", ; G$ F% Z2 t: `) m
       "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",", 4 x% K, s" f% g% g3 \
       "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}], ' ^. _+ ?5 Y/ V2 r5 R. C
      "}"}]], "Output",
    ; P, _; i5 ?5 V1 H: Y: g- i CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
    - `: _, `- z7 m$ V  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
    6 J" l% |6 D1 E1 F6 c, i4 s}, Open  ]],3 A5 @$ K& ~2 p3 l: Q
    & R/ q' h9 @& T5 V! ~9 G
    Cell[CellGroupData[{" i- m/ m/ c1 i* k4 a! ]7 P) k
    + [# _& ~# \5 A9 d% `6 f
    Cell[BoxData[/ J9 g( n9 ^; q  H# n  H  c$ `
    RowBox[{"m60n21", "=", 2 Z) c. N8 K6 a3 h5 A0 M/ |
      RowBox[{"Table", "[",
    : {0 `2 r. Q2 t; B& i* Z   RowBox[{. }- Z$ r+ Q2 `5 d* s0 A# d
        RowBox[{"Table", "[", 8 k7 F' H* b+ ^6 }- l! F5 E3 o
         RowBox[{"y", ",", , F# z( q0 X; n5 u) `1 u: F
          RowBox[{"{",
    0 F1 e. j1 s+ h% l- l( M# Q       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",", 3 g& g/ b$ v* u
        RowBox[{"{",
    * j- m: C, V2 W- P     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    ' t0 k8 f$ v, v8 I3 E7 ]8 m CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {; F0 |  p. }2 ~3 d' R5 w7 l
      3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,   c' d4 G" J8 P6 F. R
      3.5779619706547265`*^9}}]," F; H& r" e( @

    8 [- J  i' E3 C% d. A" ]) O/ q% [Cell[BoxData[) {9 ]: X1 d. v
    RowBox[{"{", ! m& s+ h9 N( b
      RowBox[{
      j& k3 G# u# h% D   RowBox[{"{",
    ) f# A" d9 ?2 L6 L; K' r; C    RowBox[{. U+ E0 H& t9 w8 [$ H
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & ^3 Q4 y9 o" E3 I$ x      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 m: G6 i5 z; \' S( N     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," H7 j  l7 O3 w. r
         "}"}], ",", $ F2 w0 d0 @& c( `+ J* O
       RowBox[{"{",
    ! o+ T$ \. L2 Y+ C7 d    RowBox[{
    2 D0 I: @: L7 |7 {" e    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    $ z" A# Y8 S5 I" ?+ Y) u      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      \+ v0 z, @! i' U" E     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    % T* r$ n+ [& L# X+ N5 r     "}"}], ",", , f' M3 {4 B! g* N3 q7 Y
       RowBox[{"{", + J3 P$ a/ s( H% }1 O8 y) p4 @' [: G
        RowBox[{
    6 @( }; h9 w+ k) a: l    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ v$ \" i8 t, Z5 f- q  s3 X
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      V6 c5 l- F: B/ M" M! `( {; d. [  A     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 C( v' U- Z( @     "}"}], ",",
      \  Q, g8 o: l   RowBox[{"{",   _- J' h& t; ]6 G
        RowBox[{
    ( ~: j$ C  {- Z5 O8 \. Q  B    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- G) r' \1 _% z6 X: F1 g
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    + B* R  r/ E/ t1 \$ o7 W     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; ^4 W; d) F; }4 h     "}"}], ",", / r' \7 ?8 i3 h9 z% k3 W
       RowBox[{"{",
    6 k' S8 ]9 H: e5 o/ Y    RowBox[{
    $ ?" r1 L, e$ A9 _* V6 b    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    5 V/ E" [) A( [      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    # i9 [1 ^/ {/ f( y2 z     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 M! @5 E% I; ~
         "}"}], ",",
    8 B+ }7 ^" J# g$ r1 a+ U   RowBox[{"{",
    : P9 d% m: f% [: a- f6 h+ m. u    RowBox[{# ]' Z0 ]5 @! |7 h0 v' A* e: E1 F
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 J* T- v& ^0 ?5 t8 s  i      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / x, A# j" w0 ]/ w) s! w
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ( ]  I; a# @; W+ S# w* t( Y     "}"}], ",",
    ; i1 h3 e% g- r+ f6 U" S2 `   RowBox[{"{",
    , X! J4 D1 x! F; v    RowBox[{
    * B! @4 L# G% A7 O    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) _6 Y3 j  Q& R% ~/ f% \; x
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    5 R5 K$ u: O9 F' ^     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 Z- }. I! e' a3 O; |. e
         "}"}], ",", 5 o  i- @6 `7 e! q3 |
       RowBox[{"{", : i( L8 y- G0 h& ~7 X
        RowBox[{
    & K* V8 h  O; r+ F2 c    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) k3 T; D" C& j! c) n/ a" \
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 d% q, w, n! f& X+ U3 e5 M9 C
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 P0 e* K! y/ y" M* K) B) ?$ W# K
         "}"}], ",", . I4 q6 e- `- l
       RowBox[{"{", 1 u3 B6 s1 F2 e' h  c; F
        RowBox[{
    % o0 @: |( [! J, C- A/ c    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) x" p3 e, K( |# O
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / c  P% u/ X' o$ q$ p0 r
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# t; N! h/ u5 j
         "}"}], ",", ( E5 a0 K2 t# s! D( T6 v* Q
       RowBox[{"{",
      T% L0 f9 A! t: l0 g    RowBox[{
    6 F2 I* Y" M( ]9 I. M0 d    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ i1 f9 p( @! n0 L- ?
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    6 ?, k. s+ R1 A! M     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; K. V! j' U6 l     "}"}], ",", 1 Z7 [0 g: x9 f1 a* l0 {! Q2 P
       RowBox[{"{", ' {9 M! f0 x! R  H4 f
        RowBox[{
    , ?* L% {0 I( T/ d    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 l8 S  N3 T8 H' y      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 m! h  j% S, C  H) P5 o3 K" F0 G
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    6 G, F5 q/ r2 t6 R9 I1 L! ~     "}"}], ",", # @0 i+ y# B0 V. R  h6 V
       RowBox[{"{",
    / v+ _  S7 y4 U& i0 b: U0 b' @    RowBox[{
    0 U4 S1 y8 m/ n- `5 H, l% |# c    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , b# q* Z# Z1 P6 D: y1 x9 |2 `) X$ l      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; I, x' P8 S4 X; \
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  }* n8 h7 O+ H2 }" C8 r" w
         "}"}], ",", 8 T1 ?8 @0 b! G: a: J
       RowBox[{"{", 5 P3 b6 [9 j/ D; E+ {4 C
        RowBox[{
    : U2 b+ H) X, x5 a& a4 d. f- o- Y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 m) t  Z7 }+ D4 p7 g8 I" p
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , v: u: E8 E. W0 L: T4 ]/ Z8 {
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    / t! ]! `0 Y8 @/ n# u     "}"}], ",",
    ' N  V7 [: `  x% h" d7 |$ Z. r# T8 A   RowBox[{"{", * A  Q! ~3 b8 j
        RowBox[{
    $ D) m- }; }0 \" g/ n& B7 A" }    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% K, D, i: u; B+ x  M1 h6 u. U, N
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ' I% H) {- X# K& Q* W  `     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    " W/ e# K- D: m     "}"}], ",",
    3 a2 K; s; j( y) O. p   RowBox[{"{", 6 _% T9 I6 b% o$ Z$ E, R5 y
        RowBox[{
    $ F2 N/ P1 z  K+ \    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! R8 c; f! A7 [$ j7 y' C4 G1 M
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # H* g1 J5 Y8 z  a" C1 K+ b
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: n5 ~* X1 K7 K1 M' }& b3 V' M
         "}"}], ",",
    : m9 |; F' v( W! y* }" s   RowBox[{"{",
    " V! t$ a' a5 O) r: S" v    RowBox[{* ?  O1 p, O5 s* M6 }
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) W0 G1 G2 R+ M      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 w# v3 Z& k1 |     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    & X' i  r2 i1 v- w5 B, G     "}"}], ",", : T% Z. z5 Q$ F* J
       RowBox[{"{", + Z  j% k7 m7 c8 G7 h
        RowBox[{
    : b' n' x2 G9 ]5 m9 y  Z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# f1 `8 _7 V4 Y# U
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # k% M" v% Z1 M" M. Y* L$ D3 b6 O
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , f1 e' Q6 z4 ?3 h* V! C* ^3 i     "}"}], ",",
    ; T: i0 q) K9 P" N% b   RowBox[{"{", & q) c- |4 W1 R5 l
        RowBox[{! T4 P, I3 r, R
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; b' M5 m) ?' ?9 ?* d
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 L8 N6 K* ]( D# a$ J" [     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  b! A6 K( n7 r* m; B7 ]8 \
         "}"}], ",",
    ) @3 J2 @% W5 j$ E& [" p: i   RowBox[{"{",
    ! y& w3 |9 @. g, Q( g    RowBox[{
    8 W$ U3 G- b) ]3 P* H1 q    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' q/ A+ G# p, U: J7 F( z
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 m% Q' W  P/ d# ~  [3 K- X: F) B8 [
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    & C% u: P( Q, i2 O% s$ @; D     "}"}], ",",
    & F4 z; Z. `9 v+ @   RowBox[{"{", , \0 L9 E7 @9 q9 z
        RowBox[{
    5 G. ^' F: e- H" [: M/ N* F/ I    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 N) A% x9 y& f5 S
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ K+ }* r) P2 Y1 F3 h) O+ q. Q3 X4 E; x
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 Q( k: R7 W# ~* A
         "}"}], ",",
    : ~% f' |% T5 s   RowBox[{"{", : R+ s8 b7 b7 W  p
        RowBox[{; j  X$ l5 s( Q* p3 y
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 l9 K( _, Q8 N' T& ^& [; R
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    / q0 a, z" ^) a# E" E     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    $ I5 R. K8 A2 i     "}"}], ",",
    ! ^' W$ {, T# j5 S& V0 q( y   RowBox[{"{",
    6 K& ?- l( N6 p, f4 G    RowBox[{. S6 K2 T, r: d5 h2 ?1 @
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 w; \' r+ H* A. K
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " l" j, J9 |$ a& g2 C     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 k$ n3 Z( Y, J( Q
         "}"}], ",",
    ! c' E3 W2 a5 J6 D  `   RowBox[{"{",
    4 {' g: U; M/ I4 j8 y    RowBox[{
    4 V% g% e; s- ]. O8 j    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # b3 v! U2 Y( ^      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( h9 _+ v$ W6 E" D" V
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    * b/ I* L$ B4 j9 L0 y- x- C+ E0 X     "}"}], ",",
    ) D. d) `( z7 [& ~: V) ~  K   RowBox[{"{",
    3 G2 o  v- I3 e, n" `# I: }    RowBox[{
    . M8 n9 V6 W* E9 i/ H0 q    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ a2 `4 }5 ]( Q% G+ ?1 L& {) G7 \( H
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    6 B% K( T% O  @, Y" ~" i/ c     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 `! b! a  ^6 M8 V( j! j# u9 `; {  @     "}"}], ",",
    % B* A& V  k# c$ |! A% g/ ?7 G   RowBox[{"{", & y  Z. y  Z. k# W" B  p- ~
        RowBox[{
    % |% B: b1 _2 p  S    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 q% j" o. q8 `$ x+ M
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) ~* v; @  C: C& p     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 R! q6 I& |7 @- l4 z$ U0 c* _     "}"}], ",",
    & G* m/ x- m( n" S   RowBox[{"{", , k' B8 p  E) I$ `! l: d, V8 t8 W
        RowBox[{
    $ c* J. @; A8 y" t) P    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 F8 T( L9 C7 A; U7 h
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * o( T! X& u4 C/ q3 n. N9 u4 m     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 f; T% P+ h: _: g! W8 Y" A     "}"}], ",",
    " n1 ~- `+ i. b" G3 o% O7 P   RowBox[{"{", ( l( ^( f. j+ e
        RowBox[{& t2 S9 t5 y1 E  D8 a) p
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 C  v+ u( Z/ e0 ~
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 `: t/ v' D: X) }! ~! g4 u# L
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    - {- o0 K% S0 h" a6 R3 b     "}"}], ",",
    . \% C: Q1 r7 n" r   RowBox[{"{",
      l- i# O4 N. u- u$ C2 c    RowBox[{+ `9 a$ Q2 p  s7 O9 F
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  F6 p$ v) C. T$ B% Z
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 h* H( j: T2 T) I( F     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* I1 S7 ~$ i$ B4 |# O  A( }
         "}"}], ",",
    3 b- j2 t* S* l3 @* E6 |* W; q   RowBox[{"{", 2 a8 G+ X; C  {9 g% N% ^' }$ s0 f
        RowBox[{2 N# V0 I$ A0 t1 l0 k
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, G* S6 n) ~9 J7 E
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * u4 i0 n! @$ }5 i2 l, n     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    7 |/ E9 J& C5 D2 \1 Z7 T' @8 ^     "}"}], ",",
    % A( z8 K5 [0 z2 M8 b$ C0 F$ e   RowBox[{"{",
    / x" T3 \) c" W) W    RowBox[{3 r& u# v) T# h" O2 F' c$ @
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' W- [: i$ J8 r
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 N2 c0 `$ \% [
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* U9 E; e. t7 e0 {& s
         "}"}], ",", - K2 ^7 u; i. u6 Y* }: W* I' T
       RowBox[{"{", . q% g' h$ `) Y+ `6 g
        RowBox[{/ S) d  g' y. r7 k
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) `5 [5 m& O, h0 J. L' @$ b/ c2 C      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % L! w# n& z$ d; N: j     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; G- B: ^7 ?7 l9 v( J" I4 G     "}"}], ",", / Z8 ]3 Z+ r* M7 k6 c
       RowBox[{"{", + [* r8 i0 t5 ^( u: Y8 K
        RowBox[{
    5 f9 c/ p! }8 B1 r    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ q. F5 h+ ~) t9 }
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ' @3 f2 h( f. K. d# N/ @     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ( _! R+ i* _- z2 L/ B# {$ d     "}"}], ",", ) S4 L( }7 ?' c# p4 F6 J* g1 K
       RowBox[{"{", % ?1 N" x6 d# J" u$ _0 k
        RowBox[{
    ' R6 V. @% L7 W" U: W! j- ^    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- _* k' b0 C  {$ [6 m: q6 k
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ d$ K0 \$ c& n& j- H
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  R& l  Q5 F4 \
         "}"}], ",", $ J$ \% k( Y6 w% J* a5 L  r
       RowBox[{"{", $ e( M% ?3 s  v: x2 ?
        RowBox[{
    * g& _9 C' ^) ^, A7 s8 y" u    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! I, Q6 @3 v# t' H( P4 Q9 x" W% R      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : X+ d* I+ O1 L2 V: b# r3 l
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," Z% T# Y- Y" w  G
         "}"}], ",", 7 f9 S( X4 M) |" b
       RowBox[{"{",
    & i' F) v/ _1 `( k/ l0 y/ i) }    RowBox[{, e; T1 O9 M, D% X% i% w
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      t7 H" q; V1 Y      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! V! \& N2 S. R3 N
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    + m% e. T; x. V: R0 r) N     "}"}], ",", 1 {% C% w4 I8 `" t: R1 J
       RowBox[{"{",
    ! g4 ?# Y# g" U$ g9 w7 Z    RowBox[{; X6 O; Z7 }' E+ Q& M
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 M4 T4 @0 o5 c% \
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 E$ `* r( h  @' M( C& V# R% N
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. G: U0 s4 {0 I
         "}"}], ",", : W# G) d7 L5 z5 y% W9 ^
       RowBox[{"{",
    + F  u) t2 U, v, Q    RowBox[{
    & m1 x. |* n5 I* h, F    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / Y3 \" W% q7 a6 e, q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 s* V5 Z- u+ w9 ?+ ?( o) ^
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 C- k6 w; p  T4 ^% W  I     "}"}], ",", ) J, V5 G" `9 M% Z. |2 \! {% u: `
       RowBox[{"{", ; E# i( U3 Y  E# C# f- n+ Q1 ^" t
        RowBox[{
    % A. K# w8 @; |8 l% I$ j    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      N5 w9 Z- u$ h# r, I      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " Y8 G+ L9 ~- L: i( F' v- h8 s
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 C5 c* k  |# y( y     "}"}], ",",
    " k5 P8 u* o3 N* x   RowBox[{"{",
    / I" X. Y7 G3 i2 H$ `    RowBox[{- [# m" U. _" p8 V5 P  G
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# T( J- F8 H$ r' B0 I
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! i+ R6 m. R: A! C4 u! l
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 w+ _- `7 y: u  }8 J/ f+ y$ f0 n
         "}"}], ",",
    $ K0 T7 l3 _  V8 H- ^   RowBox[{"{",
    ! O3 v: d' m, x( A" \. g' p: Y- _    RowBox[{1 w, t! t( i! i) D3 T) k
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( {0 h) e3 x8 b/ g
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' \$ P8 }3 N& Q3 E% `" U
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' R  s$ q0 G8 W- o( S3 r0 U- `
         "}"}], ",", $ [# H) F7 p4 Z, J3 z1 f
       RowBox[{"{",
    - G" Y# L/ f# x+ u    RowBox[{4 |0 g; u2 k* a  W! \& s
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 d9 F. Y" Y: d
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " w% ]7 }7 e1 }& {$ ^. w0 o( K) u     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      Z8 R" {0 y$ i. D     "}"}], ",", + q% w2 a  X6 z9 H- W
       RowBox[{"{", 2 `' A/ a; `" u7 j
        RowBox[{# v3 I) ^& Q' s/ y1 U
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 n: C. w$ ^; A% I4 ~
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * c# x6 D0 Q& w  K  p2 o' l9 f     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 @8 u8 c$ Z3 s/ g     "}"}], ",",
    ( U4 m  m0 A. }5 h9 H   RowBox[{"{", % q0 k- D' l3 N+ m- _8 P
        RowBox[{
    3 N% D& w; r. Y0 I    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& e# x5 G  m/ W) N
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! W: a" `' |; |/ W/ X. \) g
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ H) y3 |$ r) Q8 V) v6 A' u
         "}"}], ",", - N1 N, V3 ?6 d. C0 D
       RowBox[{"{",
    & |0 e; e% B# I% ^' l    RowBox[{
    8 Y- j! N: V& F. k% |    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    * b% D2 s# h  U; V# c6 A      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 [0 r7 c2 T! r. Y6 M. H# j/ ~     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 K/ o' s/ ^: o2 c& [+ S  o5 b
         "}"}], ",", / L! c' `, I( a- O: S) \
       RowBox[{"{",
    % I7 i' ]- k0 M5 U9 c& z( o    RowBox[{5 a6 I' ~* Z, ^" |
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , o) G+ M; q; ]* c: A, C      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( y2 M8 D6 r* O" F: f) P
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 Y# n1 O( Y' l     "}"}], ",",
    ( Y, j; t& ^% W/ L" K; ^# M8 C. t   RowBox[{"{",
    2 h2 B; ~5 Q# s! `    RowBox[{
    ; M' _, Y% n2 c& d+ }% w    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; p" ~: d1 [* w. V7 v: l, c
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    : J2 z# p& ]1 u- d     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 h* d+ H9 \$ S" k8 D" p# G
         "}"}], ",",
    . V) d3 ^  ^# B* w2 P( A7 @" D   RowBox[{"{",
    . R% D7 z: ]. i    RowBox[{
    ; k2 E  S$ a. t3 e    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      Q& s5 Q1 X4 u. ^+ k; q3 W      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - Q0 H+ t; j: M. z
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ' J& E9 b% @/ w3 b0 x" X     "}"}], ",",
    * x. x* g& \2 p5 k* \* l6 K   RowBox[{"{",
    6 M2 Q4 H; r3 N7 U. ?2 X* o6 E    RowBox[{5 J8 g3 @* ?9 l3 ]) a
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( i- D( @& {5 w( Z
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + O$ s$ Z  D* k$ J- _/ i0 x
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    6 O' q& g9 v6 X     "}"}], ",",
    3 ?' S* ?2 Z; C8 ~! A. D7 G" L   RowBox[{"{", / \4 I! ?! ]9 c. k& a4 b
        RowBox[{8 K1 R$ b% l  }/ w6 K7 I; l& j
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , Z. Y. K% Q/ _$ N  q$ n+ ]* }      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 J8 E, E/ r  W0 D6 q
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    & T- V/ m* i5 I! X/ F9 H" l. i5 h4 h  G     "}"}], ",", ) E( }% u' S2 \5 T4 c6 {8 ~
       RowBox[{"{",
    , R9 Z5 s; U7 V( g1 y* j    RowBox[{% j. P& a. n1 n% ~3 @" J  [
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 E: r; I' m! }5 y      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", # }7 c6 g% f8 w- i8 y( A
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ D; I# H, |+ S6 Y# S
         "}"}], ",", 9 z  r. x% k+ L6 ]% i, p! y3 W; |
       RowBox[{"{",
    3 |9 I3 }8 r) I6 P    RowBox[{8 a% w( }1 h9 ^
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : t2 g8 U+ K' C% Y      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   s8 T' Q* y' H! L/ X1 C
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    - s5 {! @3 n- U0 ?2 q3 T( N     "}"}], ",", # F9 {+ c* X0 X3 k& _
       RowBox[{"{", * q- t* D1 O0 A& G: x& Q) a$ A
        RowBox[{& ~; z4 {* W) W: h6 S& W2 V' p
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 U: P7 y' y' M) \$ n, L
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! w$ U) {+ d+ z# G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. p* T$ t% B7 |( Y, ]  y
         "}"}], ",",
    * [; i* Z- i8 Q   RowBox[{"{",
    / |2 Y9 s) V5 [    RowBox[{
    - O, e! v/ V% o    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% I. Z1 w* r" @/ w, v8 `1 Q
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 W. X) z* W" v, V; E  k$ S" r/ B     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # q" u; w5 M7 O' n, f/ k     "}"}], ",", ; K( ]$ {/ z5 x9 |# ]0 }, b
       RowBox[{"{", 5 m7 A- _" A9 r; ]1 L; A8 h1 k
        RowBox[{
    7 W; h/ C6 `  X3 A3 U    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ }* w) y; k& x. c: y8 [% s4 ~
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    5 I# X9 i9 \6 T/ F( ~( f+ H     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    * a6 z3 g- K% w9 |& j     "}"}], ",",
    4 _" R$ U# O& X5 o   RowBox[{"{",
    ; e( H6 b" p9 Z; e    RowBox[{5 G6 [" _9 O5 ~# g: f$ @+ h
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 d5 Q6 k# V% \9 O- l" S      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 K  k, r) s* S8 k3 @     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 M, d/ l4 Q% T6 r3 D" B( O0 v
         "}"}], ",", 6 u# V* F3 `3 X; E
       RowBox[{"{", 7 T; U+ L/ {0 B6 u
        RowBox[{3 w+ q* u. I9 ?$ h; M& a
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 V* Q4 ~1 R9 J& ]. m      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    $ H" ]/ o% x! r( f& \) A6 Q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 E; k: s8 `5 r5 V     "}"}], ",", 3 x- Y$ E7 D6 t$ Q' z8 x( _& w
       RowBox[{"{", - N; `! c7 l7 u
        RowBox[{
    1 o) \/ ?/ Q7 P1 c: A) C    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 R/ I9 V$ J8 M, W" ]; K- \+ @
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    6 D6 s$ n1 d+ \     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, c% R( L6 u/ [" B4 C& h8 x( q* V* @8 ?
         "}"}], ",",
    , d  p! l) K" S% C/ ]% I1 [   RowBox[{"{", 1 r4 U4 Q5 a. o' ?4 z, z
        RowBox[{
    2 u  `0 E8 V2 Z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 N; ?6 X( @; h3 q7 v: t
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . f' \9 d9 o7 E& x
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& G- Q, S1 L0 U4 y  J
         "}"}], ",",
    : k5 Q! C, `) _$ G   RowBox[{"{", + W: K  L( c$ x; M
        RowBox[{# D; ?' P0 g# S# J9 N
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    - |! P8 F0 _$ G% e+ y  w9 w      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' q. t3 ?. b$ b2 o1 X2 ~
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% z# j0 p& B& F  [
         "}"}], ",",
    8 l# N1 ~1 N5 [* N" G   RowBox[{"{",
    ' Z& t# e. L$ k8 d; V    RowBox[{
    8 Z# n) {, D, p    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: v0 i+ E# s+ G9 K, C* C- c# t# I) H
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( _4 |& b7 ]' [3 N: ~) P
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( V$ U% J# H! k: r2 z
         "}"}]}], "}"}]], "Output",' s+ @) z2 a8 T# @" S
    CellChangeTimes->{- ^, O2 H( [8 W
      3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9}, - l4 s! L5 \* c# [1 Y5 y
       3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9,
    9 I8 v5 E6 O: \" N+ }   3.5779619748823338`*^9}, 3.578012345453125*^9}]: K! Z. l: j+ @
    }, Open  ]]," V$ U: T& I+ O% P, Z- j9 E

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

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

    2 W0 H( n" m% p. hCell[CellGroupData[{
    ; [, a* ]; i5 O) A1 C' K) N2 N7 G
    Cell[BoxData[! U, a) F) e  Q4 |9 P
    RowBox[{"y1fit", "=",
    / j5 |9 |' n+ S, w5 r' K$ {& ~7 R; i  RowBox[{"Table", "[",
    6 {" u* p: s1 e& M  ]: h+ [! E   RowBox[{"x", ",", 5 d. z! [$ X: `: |. }& x1 D2 v
        RowBox[{"{",
    6 w& g- A, G9 Y9 g4 B. L% I     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
    4 y2 P6 |/ g% w. ], H" l+ A( \ CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {- E# S4 O. u; y7 D7 X
      3.5779252768125*^9, 3.577925277484375*^9}}],- `7 E  \( P6 k) }

    4 E5 F0 K; E# C0 kCell[BoxData[& i! e6 ]2 d2 [% p0 s( U) L
    RowBox[{"{",
    ) ^" O+ z/ d" `2 |9 X4 ?$ T" F  RowBox[{; {5 q- `9 p) p0 \2 s& @  p
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 G7 @0 c" N1 T4 g. s9 P' d' V- d/ E   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",& Q' d) \; s3 @- h
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", ; c) Q2 j+ A) b5 Q8 }) V1 B
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    7 q6 S3 I& Q& F   ",", "29"}], "}"}]], "Output",
    ! X* o% W- n6 K CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9,
    5 c) k- m  _7 r' J4 Q  3.577957594916795*^9, 3.5779589579612093`*^9, 3.5779621294942036`*^9,
    1 I$ z% _! |/ O6 \' [! `0 _) n  3.57801235340625*^9}]9 T+ B, t2 ?: c6 D4 y: O; q
    }, Open  ]],
    $ M: \0 \) e2 a: x6 S
    : P9 s/ P8 I/ M1 x* ?# |Cell[BoxData[
    . t& j* d! ?8 i' H' H# V& W! ?& B: [2 h RowBox[{"For", "[", . h" I- f8 Z0 n- `" c
      RowBox[{
    7 `, ?; Q, `' b   RowBox[{"i", "=", "61"}], ",", . v! c2 v0 ~" V" k- C1 z8 ?6 J
       RowBox[{"i", "\[LessEqual]", "89"}], ",", , {7 X2 X7 E( b" h' U* b
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    ! J1 C# r# h; o$ s- y   RowBox[{" N2 j% T+ g% K9 W
        RowBox[{
    * l+ T% w3 Z% s4 I4 |- G6 t     RowBox[{"y1fit", "[", 8 [& z. J: y& q& V4 R
          RowBox[{"[",
    0 j& b: j! L* _6 q       RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", ! |9 @6 D' _+ o$ {
         RowBox[{"y1", "/.",
    - h  U0 ?' h& t4 Y% i  P6 @      RowBox[{"{",
    1 p/ k+ ]$ b: _3 H       RowBox[{
    4 V1 I+ j; Q$ o( n        RowBox[{"x1", "->", ' L% j% s4 K4 q: ]- v
             RowBox[{"Data", "[", 3 M8 b& ^9 U0 J, _
              RowBox[{"[",
    ; J' b; V/ q: z& f/ s5 H           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", : Y9 f6 Q9 `1 ~3 `( U: v, W
            RowBox[{"x2", "->", / e. C4 Q# |/ S
             RowBox[{"Data", "[",
    * U5 D: s# z: c( L          RowBox[{"[", + H5 Y  c4 o3 F% a! d6 E2 `8 }
               RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", " T6 m! z8 j, s3 W! _  @
            RowBox[{"x3", "->", * r. y* M+ l2 r8 U3 |3 t
             RowBox[{"Data", "[",
    3 x5 x9 S# Y' i) U+ M          RowBox[{"[", $ C* j( ^( L2 g* y& M, [
               RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    ! p# }6 L' O$ K( T5 Z        RowBox[{"x4", "->",
    $ c5 p1 g( a3 A6 o' U         RowBox[{"Data", "[", ) B- m& ^# b! _
              RowBox[{"[",
    6 }7 k2 N. l9 e3 h9 o' N# [* N- w1 L0 \           RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 4 H; W& K' i+ r, Z1 B6 ~% ?
            RowBox[{"x5", "->", ) J- S$ J1 `0 y( g; ]" @* @
             RowBox[{"Data", "[",
    $ [( r$ T( O7 s, F) n          RowBox[{"[", 1 T+ {8 q# S. N# f% D7 @
               RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 8 P: Z7 M) J, k- z
            RowBox[{"x6", "->", 1 G3 D/ E8 T; D2 v# y! d. Z
             RowBox[{"Data", "[", # C$ r/ {# ^9 {. ?/ X: s; p
              RowBox[{"[", + C1 `  D- y: A5 H9 V( k4 F, K
               RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", - w$ Y0 D: S$ q: I. j5 y
            RowBox[{"x7", "->", $ n1 J5 C3 J4 f. T% }) y
             RowBox[{"Data", "[", 3 Y) a2 s% B5 B3 u
              RowBox[{"[",
    # i7 K6 U/ w" B& h. \           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", # r$ r5 U3 A5 F% A! e
            RowBox[{"x8", "->", 4 p5 M- T. S' u; o0 }$ L: T' S
             RowBox[{"Data", "[",
    2 C! S  L$ {4 Z# I  b          RowBox[{"[",
    & h4 j+ {/ W+ U  O  L8 t           RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", # U* {1 ~! J, O8 A  \$ E% r4 J$ f
            RowBox[{"x9", "->",
    1 B8 ?: W8 p/ C         RowBox[{"Data", "[", $ k# R; Y# k( Q
              RowBox[{"[", * W1 I* |  C, u- \& z/ \
               RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
    + @. v  R- T5 s0 ?8 q  "\[IndentingNewLine]", "]"}]], "Input",6 _, j9 Y" O4 ^- t: X% x
    CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {6 A$ Z* D+ c* [# k8 ^
      3.577925286140625*^9, 3.577925306765625*^9}, {3.577958922517948*^9, 8 v; B. }- w* ~. @' ?, N
      3.577958922549148*^9}}],6 r# r9 |) o; \$ b) T
    6 q( O5 n: m1 g) m. {$ l
    Cell[CellGroupData[{
    2 n- [! B: C7 c; n$ F4 `+ r( ?; B" `/ K; k9 O& ~
    Cell[BoxData["y1fit"], "Input",0 U8 p  w" T! s3 V* ?4 T
    CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
    " i9 F% X7 M0 @  3.577925040484375*^9, 3.5779250440625*^9}}],
    % \/ E2 ?: K+ N/ P; d+ b, v! |$ ~, b" t1 `# y
    Cell[BoxData[
    ) [2 Z9 o, `# |( l; R5 @8 e2 f RowBox[{"{", 5 Q2 g5 H8 w: O! i, S' c
      RowBox[{
    ; m: P1 h5 |" g  "0.43193416525930517`", ",", "0.4501634853493982`", ",",
    5 X  P8 t, k0 l6 t" E   "0.33336034768525247`", ",", "0.4418609896858925`", ",", 1 n4 a+ E6 e+ g! x# f$ }% ]
       "0.41030378932283024`", ",", "0.516814798191575`", ",", 1 ?+ C7 h3 w& T  [1 A7 A/ |
       "0.4476631213729994`", ",", "0.3016552978696669`", ",", ! W1 G  @. p5 j
       "0.378122167437847`", ",", "0.020339844919720733`", ",",
    7 T. m3 e2 I' S  m  q7 p/ B   "0.018745375782087376`", ",", "0.2919925992695025`", ",",
    . D2 f0 E( c5 |8 l) I; b3 p8 q   "0.2649067959681263`", ",", "0.16343444284525593`", ",", 3 j5 M/ d$ I. `6 E3 N5 F. u
       "0.4182466778551563`", ",", "0.27347752211364934`", ",", " ]  |6 W$ e, f  h( `  `/ z) _
       "0.38554057386385654`", ",", "0.35253160453718047`", ",", 1 T+ |  J# a% e: \2 ~  d, L
       "0.2054745841100774`", ",", "0.45504377112716676`", ",",
    3 Z+ S; e0 N  R: b! }: a; w   "0.1598805094678612`", ",", "0.18662509982279485`", ",", , p5 A% A4 ^/ |$ [8 T; d
       "0.10684797493248213`", ",", "0.013349212673286828`", ",",
      s7 G! Q7 Y5 v! M: n* Q1 D3 S/ S" m   "0.08215836003004297`", ",", "0.2979041599362813`", ",", ; _. w" Q. u) s/ `
       "0.05995976512343641`", ",", "0.3884793499104568`", ",",
      d% m, K" U' z1 H   "0.5361889337034293`"}], "}"}]], "Output",
    & I- l4 c/ i! m! I CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9, ( p5 f$ M4 ^5 w& q% @$ c5 W1 w. H# r' Z1 U
      3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9,
    ! r2 ^8 t" Q+ e) c8 A" g  3.5779621416934247`*^9, 3.578012355546875*^9}]
    6 V+ y; X2 y8 I}, Open  ]],
    1 a0 t: ^+ J6 G; p  t7 z& C" X5 g5 C9 n! h% H5 z; b- x, Q. X1 @0 o; ?$ ^
    Cell[CellGroupData[{
    * a  z7 ]. H5 L" ~, x
    % E* ^- ?. p+ ~Cell[BoxData[" M& h- @. |5 r6 l' O
    RowBox[{"y1fit", "=", 9 k! v1 q, U! L" o1 F+ P! R
      RowBox[{"{", ) a# w! j8 @0 A& m2 J2 ]9 R
       RowBox[{
    % `$ a  `$ v- u, n& V/ s. V5 m0 |, Q   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", * r; x6 K7 Q0 N1 o) R2 C
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " b" I9 h: X& F: h  u- ?) n
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    6 J; t+ L# D" {! C. ?    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    3 a. l! m6 Y4 G" c% c    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ; H2 b# s9 T7 N" n4 p2 N
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", 7 k5 K5 l* p/ k3 i$ \" z
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", 3 ]( j# r8 \/ V
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    ) q! c6 V+ o/ g1 ^    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 4 q" J( a/ r" {" a5 M
        "0.4319341652593058", ",", "0.4319341652593058`", ",", ; E+ e  v, g# _/ r* \' h
        "0.45016348534939865`", ",", "0.3333603476852527`", ",", 8 O& F, x7 k9 l% r
        "0.44186098968589294`", ",", "0.41030378932283074`", ",",
    , }- W5 q8 I0 B5 D    "0.5168147981915754`", ",", "0.4476631213729997`", ",",
    7 \2 R$ f$ m; j    "0.30165529786966755`", ",", "0.3781221674378473`", ",",
    9 F9 ^* X' n% H& V0 [$ h    "0.020339844919720775`", ",", "0.018745375782087393`", ",", 5 `% b# q, B) \& F
        "0.2919925992695026`", ",", "0.26490679596812655`", ",",
    8 u8 R8 X" D! X7 O    "0.16343444284525593`", ",", "0.4182466778551567`", ",", 1 S( ]7 t9 H1 `# f8 w
        "0.27347752211364945`", ",", "0.385540573863857`", ",", * E1 {! O3 L: y. O0 B2 M" g6 c
        "0.3525316045371807`", ",", "0.20547458411007796`", ",",
    2 g" x' b! X7 @    "0.4550437711271672`", ",", "0.1598805094678611`", ",",
    % ?$ ?5 J  q7 b" i. d    "0.18662509982279502`", ",", "0.10684797493248224`", ",",
    8 L! n4 I# s5 v- k. s" t    "0.013349212673286806`", ",", "0.08215836003004302`", ",",
    ! |% i+ [/ Z0 F5 Q1 O! q* i    "0.2979041599362817`", ",", "0.05995976512343637`", ",", 1 C' ^( p+ z1 l- V+ L
        "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",$ f8 K4 X' u! k# f1 g, Q' \  y) R6 D/ Q
    CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {
    3 r4 a$ A! V" y8 I9 N7 R( I0 _! M$ m  3.5779621548286476`*^9, 3.5779621618642597`*^9}}],
    ) c' P9 W& j& I/ i8 q. Y5 S" k6 E$ V" X
    Cell[BoxData[
    4 w& c$ ?) l, F! E" _% a+ n RowBox[{"{", 3 R$ g/ n$ ~% ~) t& m+ g
      RowBox[{
    ' a" n) R2 H0 n/ X# _  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 N  q% r* j: E4 A' a   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    % l8 ~3 Z/ L4 l. ^* K, H( q# U    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 5 O2 z4 \9 J3 H
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    : ~& T: Q3 P7 L5 O   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", + G8 s# N  F4 A! _0 i9 F3 s
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", . m+ q2 g8 P$ ^/ P6 K' W! C2 c
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    ) b! V5 A$ B2 e9 G( w+ ?( E   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    8 m% e0 e3 B4 ]   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", , S0 I) K5 L; ]! T
       "0.4319341652593058`", ",", "0.4319341652593058`", ",", ; f; u4 p1 ]  w% l4 V, G6 y
       "0.45016348534939865`", ",", "0.3333603476852527`", ",",
    ) i4 X0 S! |: T   "0.44186098968589294`", ",", "0.41030378932283074`", ",", 5 p  S  b2 m4 t
       "0.5168147981915754`", ",", "0.4476631213729997`", ",",   |! q8 G8 s! v0 K) N) r; o
       "0.30165529786966755`", ",", "0.3781221674378473`", ",", . x& i: m2 O/ e9 h7 m: q8 f! l7 v
       "0.020339844919720775`", ",", "0.018745375782087393`", ",",
    $ @% {( L& j8 \+ t& l  E   "0.2919925992695026`", ",", "0.26490679596812655`", ",", & x/ _( Z5 p" P
       "0.16343444284525593`", ",", "0.4182466778551567`", ",", 3 ~6 F6 y0 B3 Y/ C; G
       "0.27347752211364945`", ",", "0.385540573863857`", ",", 4 K% c. K2 T9 z" Z7 e
       "0.3525316045371807`", ",", "0.20547458411007796`", ",",
    7 S! o. l# b& z8 ^   "0.4550437711271672`", ",", "0.1598805094678611`", ",",
    / l5 x; p& t& H  I. Q   "0.18662509982279502`", ",", "0.10684797493248224`", ",",
    & c, M' E7 ?3 R# n% v   "0.013349212673286806`", ",", "0.08215836003004302`", ",", . Q2 ?( E  E7 ]1 L* D
       "0.2979041599362817`", ",", "0.05995976512343637`", ",",
    . W# ?* K$ G/ R$ g   "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",
    : C' m" M* ]% f, w  r CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9,
    : K, {: ~: S3 G: h  J! w5 H  3.5780123569375*^9}]4 ]6 ?8 V+ {% y, L
    }, Open  ]],
    8 d' O9 U: L8 M  a: s* J2 i# a5 u
    $ N+ M: g1 r- ^" E# P4 \Cell[CellGroupData[{
    . C2 Q. I2 N4 ?6 g, D: v
    # K( J. o0 s1 `# h$ p! U' g* pCell[BoxData[
    2 e! a% F! \2 d- {$ }/ C RowBox[{"y10", "=", 3 r6 ]6 \' \9 I" Z
      RowBox[{"Table", "[", 1 N( `" t. q" U* q' Y. L
       RowBox[{"x", ",", - Y7 a' A1 T0 T# }4 `) h" a
        RowBox[{"{", - L, K0 ~# R( j+ e
         RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",- h7 C0 B; v) s3 U4 T- v7 k
    CellChangeTimes->{3.5779253628125*^9}],# m% d) T6 ~' ^
    8 E1 X8 f( W2 G: S
    Cell[BoxData[
    - _# n3 P7 W) `! R7 z2 ^ RowBox[{"{",
    2 v7 B$ }. {2 c* T( d1 @  RowBox[{$ \/ s- e3 ^4 t: ]9 l8 V
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ; a# N- O8 k5 O+ w1 L' T
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    0 k! Y. n* V( l8 f, k3 ]( ?    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    5 |' r  a. K9 M; }, \) e! [   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", # J2 X% m7 J3 s4 l2 s' F
       ",", "29"}], "}"}]], "Output"," f" c3 @4 `1 t
    CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9, - K6 }2 q% F. i
      3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]
    % K, x& T, v' z* u3 i7 i}, Open  ]],6 l) b! i- O$ t, ?" |4 r6 ?! N7 p* _

    / I; ~9 m, {5 Z. K2 I1 gCell[BoxData[
    3 z3 \6 z6 U& ~6 E( S# p3 B6 w7 F6 D RowBox[{"For", "[", , r8 }6 D  h. E8 `# G' P$ m
      RowBox[{
    1 K9 m; W: c: j4 E0 ?4 A/ I   RowBox[{"i", "=", "61"}], ",",
    - N7 h. ?, {- Y$ ?4 n   RowBox[{"i", "\[LessEqual]", "89"}], ",", 9 a$ {. J) N* s  R+ M4 I( \
       RowBox[{"i", "++"}], ",", $ h8 B: z, T/ M( d3 A
       RowBox[{3 c$ V/ O+ h9 \$ t7 c. D
        RowBox[{"y10", "[", + y7 G9 ^1 w+ y0 F; K- Q0 ~5 h" x  V
         RowBox[{"[", ; v& L2 d) \8 r  m7 l% _/ y
          RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", 0 N9 s0 p7 y* B/ J7 u
        RowBox[{"Data", "[",
    1 H2 Y' Q* ^; n5 ~: ]     RowBox[{"[",
    7 F3 e! Y" B+ g      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
    0 h) \0 z3 d, t( d  B CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {* P, t  O) R/ ?1 k, T9 n# l' @$ h8 o% d
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, ( s4 B- C  D+ I3 D, v3 ^
       3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, & I5 _: o- h9 t4 S
       3.577958922549148*^9}],2 p7 @) x0 J- y$ l; _5 e3 m4 I6 f
      i: d4 S1 B, h: N
    Cell[CellGroupData[{7 q# L! ^2 ^* l# ]9 z
    - a; J) b7 `4 g0 n& W/ g6 a4 v
    Cell[BoxData["y10"], "Input",1 U; A' T' i  A8 x
    CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
    & E+ Z  X5 U6 q9 a3 f$ ]   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],/ V% R- D  T4 U* \

    " g  N7 U# L8 U( ]. \7 CCell[BoxData[
    * r- W5 w! {- ], h RowBox[{"{", # V3 ^  m( L9 R8 e: t0 ?
      RowBox[{: f/ T9 U2 k! C% J
      "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",",
    5 W9 g3 T$ n4 t" D9 L5 \   "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",",
    0 J& a! n# u( b" h0 [   "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",", ' j3 B) b5 Y/ t* H  C
       "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
    # ]  j+ C3 ^8 a0 v+ H) e; A; n   "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", 0 A2 H- t5 V* p5 |4 [
       "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
    " l4 g5 }6 D+ c. e; z3 N4 d- x   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
    + B1 F: U5 o0 x   "0.694935`"}], "}"}]], "Output",8 v. X5 d( P8 H" h3 o: q0 a8 `
    CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, 1 d. l+ f" q! M: ^$ E( T8 g
      3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9, 0 v. q) }1 F* v( y
      3.5779621736734805`*^9, 3.57801236071875*^9}]$ J" S( r6 |) [; m4 j; `
    }, Open  ]],, F) K: t: w3 G) ^4 P

    $ B0 i/ ?0 j6 w; i+ wCell[CellGroupData[{/ S- U9 A$ }1 w# J' t4 K
    . E0 v5 k* w6 I/ R
    Cell[BoxData[5 i. N9 X7 t( i( M
    RowBox[{"y10", "=", 7 H1 T, l& C% T( S: c! ^
      RowBox[{"{",
    . h: a8 O6 n! ~/ m   RowBox[{
    : t+ M" r6 [* \; ?7 A. n  R   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", & C6 R; E: j3 `7 ~+ d% m7 }
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    3 L/ K* F& ?  I: G* v; }, o/ S9 K    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ' Q& y- @3 }: R# k$ w' G( @
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", $ q9 Z; X& J9 ?) b3 ~: ]
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    1 u  R, J3 N& c/ |' X) d( t    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", * Z6 V9 ~  L9 ^# }9 E: w; u
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    ! o4 V5 B5 m9 s9 O    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    & o7 N7 S$ y! X" f7 @! f" Y/ b    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", + V0 T* Z+ z& C
        "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",",
    % n( Y3 b$ y( n% J    "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", / I4 s% O/ J+ S! W& k
        "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", 2 H6 F. n& X# I9 ?0 `) Q7 c
        "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",",
    : |( b- x  ?9 Z    "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",", 9 P9 W4 k) F6 i+ B/ k" Y4 S8 P
        "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",",
      c7 D& @* Y9 N8 ?+ K) S    "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", ( k; d$ C1 U3 {* l
        "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",& n1 x/ {. U1 ^6 x
    CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],
    ' y2 I( D2 c9 |8 o# C" d6 }! @
    . k! p+ F" @5 T& B1 ?5 l' gCell[BoxData[, m8 J; H& v$ |2 X# W( o0 s7 G
    RowBox[{"{",
    0 C0 Z8 z% M( p/ i# W  RowBox[{6 I) s) n6 t6 p3 `
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : U0 h: |2 J' r   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",& \2 @& g0 p9 E/ n9 _( Z
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    $ W! _; F, Z6 b% n% Q" x   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 4 Z% q5 b2 q0 j8 p: q
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", . V* u, d2 A9 ~$ l' i* v( u
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    8 i5 T6 Y5 x0 g, Q   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", ; c; _, m% s9 r* x. p7 U
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", ( r; H0 j+ U6 @# y8 e0 d
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`",
    8 _. a$ p- |. ?- d5 J   ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`",
    7 v9 i3 z9 c* x2 P+ _* U   ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ) i& i' J: ]1 X9 y* K
       ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",6 q# i+ [2 R! G* C
        "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", $ O- K9 g% |3 d' V4 h" t
       "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", 9 `' S; F" E/ r; ?: Y# g( J
       "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",   ]( T) R6 T* f( e& z
       "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",", ' i4 D4 E3 `1 n. Q+ s
       "0.694935`"}], "}"}]], "Output",3 X, [/ M6 |" p) n
    CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9,
    8 t% T: x7 X# E6 A* }  3.578012361734375*^9}]
    ( ~+ m  x6 E, N; u& i}, Open  ]],! }: q" o5 Z2 H. E

    7 x1 A5 ~/ h# C( ]1 E% zCell[CellGroupData[{9 a/ ?. N. p6 n( `6 v/ k
    2 W+ B3 b! A6 {# g
    Cell[BoxData[: {0 u3 ]4 T2 c& w  J% s
    RowBox[{"p1a", "=", ; w' S5 L9 M3 x. v" k
      RowBox[{"ListPlot", "[",
    , i5 r" y; E" B$ w# f- h# U) |   RowBox[{"y1fit", ",",   S6 e0 e$ A) l8 J: Y
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", $ E% w$ M$ G. C3 J
        RowBox[{"PlotStyle", "\[Rule]",
    + c. }( G- U8 _( u/ J     RowBox[{"{",
    8 o/ u! e1 N$ R. `  p8 U! C8 ^      RowBox[{"RGBColor", "[", : ^3 Q# h0 ^5 \  u& q; \' {! v
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
    ; s3 j9 M  V4 n) r    RowBox[{"PlotRange", "\[Rule]",
    + r  X$ i5 G5 ^. Y     RowBox[{"{",
      Y7 O) k: I+ L4 _( a; K      RowBox[{
    5 H# n' h) ^) y, k/ m       RowBox[{"{",
    . {8 j5 Z: ?0 ]# q# ~" G        RowBox[{"61", ",", "89"}], "}"}], ",",
    & @4 D2 R9 a/ z& Q       RowBox[{"{",
      g% D; G. r: |  ]  @+ \        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", & A, O& A1 z  k2 a
        RowBox[{"AxesOrigin", "\[Rule]", " R3 T# W  G* R
         RowBox[{"{",
    4 _+ U1 G! B$ t. g7 w      RowBox[{"61", ",", "0"}], "}"}]}], ",", , R7 Q: z! x0 R
        RowBox[{"Frame", "\[Rule]", "True"}], ",",
    6 m$ |8 W8 ^$ U. k* z    RowBox[{"FrameLabel", "\[Rule]", - E" w2 {& v7 y, M5 M
         RowBox[{"{",
    4 I5 ?) {3 }& I7 R# X( V# a# l      RowBox[{
    $ c  B+ w: O$ [      "\"\<\:7089\:6b21\>\"", ",", % G6 C/ `6 s" m  |: a; e
           "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    5 ~' U/ ?; s* U+ D; }* ?\:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",8 N' r& Y6 D/ k; s' v; D
    CellChangeTimes->{
    . b+ r2 G# b/ k; k. F. y( e1 e, j  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {: d  E+ K9 E6 g! f: V
       3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9, : O% {2 {- P7 J! `3 T* n0 u7 E) V
       3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {
    + U/ c" x: u: g5 q0 u   3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],9 j# b6 b& `9 N- B, L) ^

    3 _/ q5 D$ G/ {Cell[BoxData[" L# A4 y* ?5 o9 V3 r. t/ V  }, T
    GraphicsBox[{{}, {}, # n0 G  }0 G- e
       {RGBColor[0, 0, 0], LineBox[CompressedData["9 Q- J. d$ v0 G
    1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
    6 ?2 S, f; h0 G6 \% B" [8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
    4 q5 _  W; I; h% u- F2 m# t; aD3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B' z3 n. g% y/ O0 p$ N
    1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
    " }, M' _7 J! V- {& r9 M3 L, CC1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN* [: T9 t6 R' f! s1 d/ o0 g
    a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
    * C* w7 b& C; Z+ R. VyqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb6 v: Q4 V' w9 A  D" c
    wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
    8 h% x- T7 l2 {0 s& _: P/ d; lY6nGQ3sAieueIw==$ B6 I$ S& }4 E) |: `( N& `
         "]]}},; q3 V* U) y* p5 {& }% J$ H+ \- z  M
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],9 D* K: V8 h' `% P
      Axes->True,. y0 _" l  W1 V; b
      AxesOrigin->{61, 0},! Z! r$ Z! M  @$ m' Y3 ^% K
      Frame->True,+ Y. J8 [2 d2 L
      FrameLabel->{+ J) N( J8 D: x) d
        FormBox["\"\:7089\:6b21\"", TraditionalForm],
    $ [! K$ Z4 e% h- H' _    FormBox[; J. k+ a$ Q& l4 d7 u3 G
        "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    : q: K/ U- |- j0 p4 Y\:ff09\"", TraditionalForm]},
    / z) b5 s9 A# f9 C" K  h: O: V" s% t( \  PlotRange->{{61, 89}, {0, 1}},
    . r( l, v) K  J2 Y  PlotRangeClipping->True,
    $ p) `6 @  U: `7 W  PlotRangePadding->{Automatic, Automatic}]], "Output",
    7 v+ i* _- c+ M! m5 ] CellChangeTimes->{4 `. v, A% Q' J+ n  P
      3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9, 8 ]4 X2 u3 N4 }4 u& T1 _) m, ]
       3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9,
    % i5 f; j+ u" I4 x$ z   3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9}, 7 j5 @) C3 p) C: u
       3.577962187510705*^9, 3.578012396921875*^9}]1 l8 z" ^0 f! `/ s
    }, Open  ]],
    " i0 u5 V2 E0 i
    % Y3 q  i1 ?, l0 D$ n/ QCell[CellGroupData[{
    3 j0 V& g( h6 ~" O! L4 v  ?5 k2 q8 U/ x( [9 e7 h- E
    Cell[BoxData[' S7 Z  i! \% L' l
    RowBox[{"p1b", "=", ) W0 \0 y( u( g
      RowBox[{"ListPlot", "[",
    " U8 U, t5 a5 w7 z! S   RowBox[{"y10", ",", - W6 G7 t6 z: z! H- L" j3 \
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    ' S$ b5 ~5 \& t2 b- w    RowBox[{"PlotStyle", "\[Rule]",
    * g0 z4 M6 L; ~1 v% l     RowBox[{"{",
    , M* O2 v  p3 z! m5 x+ C: k$ [      RowBox[{
    ! }+ f5 d: C- K$ L# @9 Y7 G       RowBox[{"RGBColor", "[",
    6 B, E( O7 K; P* M4 V; s        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}], % W2 O- _7 a" X) j
        ",", : i" G9 v9 }* I: Y* _! t
        RowBox[{"PlotRange", "\[Rule]", 0 R) ^# `' I" \! i$ [# B
         RowBox[{"{", 0 D* h+ a& W  U5 i6 |5 @1 e% Q
          RowBox[{
    * G5 V+ e) E9 c       RowBox[{"{", 6 |; I* R$ H: D7 C4 `0 \
            RowBox[{"61", ",", "89"}], "}"}], ",", 7 C9 ?0 y7 p; e5 ^. I1 V
           RowBox[{"{",
    $ w5 w8 `9 @4 t        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 9 d' u! a8 }4 Q3 [4 T2 n
        RowBox[{"AxesOrigin", "\[Rule]",
    * o; r8 w# n" H- B     RowBox[{"{", $ c" r. [$ r9 D3 V  o! b
          RowBox[{"61", ",", "0"}], "}"}]}], ",",
    $ B/ c4 D! j" v9 q- L' g, T! o4 I    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    7 w3 D  _* C; y+ ^/ y CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9, 3 m1 ?* V3 ]9 C- ~# v
      3.5779597764166365`*^9, 3.578012409265625*^9}],4 ^/ X# {3 N0 T1 U

    : w+ x& _" t* T9 g4 [, TCell[BoxData[9 j/ ^, a- C6 C
    GraphicsBox[{{}, {}, 6 b2 ^5 i+ I. U: F& ]
       {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    ( ]7 _: Q$ }" b2 w' D. u# i1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
    ! j; f, w( q0 `4 |; V3 }7 z- \/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy( ]: N; w6 p+ N5 u
    GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy( u1 i$ n* A* l5 h* p( f
    GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
    7 V  R* Z9 e& S" T( l7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
    . g' w" h( |; k0 Z. A4 ~Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri$ k% R. x& F* A& a3 Z
    H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV. W) @3 g# F. y" D  J
    rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T* E& B* k  ^. V/ s
    vA==
    ( U$ \5 B9 E* u. o/ r# |* `; ]" S     "]]}},7 X2 U9 y( l& r! O# l
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],3 S: P1 b, Z/ X( r3 \2 ^0 |
      Axes->True,
    ) c# \- l3 V' P  AxesOrigin->{61, 0}," c, c- a7 S+ c0 U
      Frame->True,
    7 i- D: p! }& g4 Y+ Q8 J  PlotRange->{{61, 89}, {0, 1}},
    / X% B; `4 B, D8 K& A! f  PlotRangeClipping->True,
    / W  _' m# r5 Q, U/ s4 O  PlotRangePadding->{Automatic, Automatic}]], "Output",
    & a. f' {  U) L& E CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, 2 v, r2 S; `2 b) m. J$ K6 q
      3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9,
    ! M+ f# ]" z! L& X) D# {  3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]" Y9 R; u' f8 `  @0 e
    }, Open  ]],
    6 S! y( b3 L3 f( X0 f# V9 @! P
    ( ^! m8 @5 @1 ]5 G, |! l, d) Y5 Y, bCell[CellGroupData[{3 H+ K3 S0 y  N8 E# n2 g
    / f1 k& w8 z; ]/ f' @% f
    Cell[BoxData[
    ' Y8 v7 \$ A# X4 u RowBox[{"Show", "[",
    7 H) k* K1 j1 b& @* z$ O  RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],
    7 w  k- t  `1 [. d, _; k+ d  k% V  M5 m5 D; J4 D
    Cell[BoxData[( g  J  N6 l" G% ]* j4 `
    GraphicsBox[{{{}, {}, : O) @5 {' E/ w0 X5 i: ^
        {RGBColor[0, 0, 0], LineBox[CompressedData["
    " }6 x" z: i, n7 w8 F6 U1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
      ^5 S4 T# n3 u3 M4 O8 G8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq5 g" a* T- ~, S' d
    D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
    . I: b% h/ }+ e* v9 l' D; V; E/ V) R1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX' H/ x: y+ e% n/ I- l- I
    C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
    * a$ z# F; G; E8 f$ Da2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
    # g9 P0 H% x6 ^0 \1 PyqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
    $ k) Y6 I" Z" _6 q8 AwrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
    & o: X7 m7 [! [1 h9 SY6nGQ3sAieueIw==
    ' r& c% F( H4 P0 S5 r3 w      "]]}}, {{}, {}, / e) P! }  @  S$ J: @
        {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    7 B6 X( i+ [0 j: i  `1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
      p. u- H" q  d3 t& O& x7 {/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
    . |. K3 Z( q  L9 l9 q( `, EGwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy/ H5 }+ v4 n; k
    GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy0 h- H, z2 D  Z: P$ g) {: Q
    7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/. O4 K- s2 d3 K* g1 @% W# K
    Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
    $ b3 h6 [: Q# vH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
    ; V- u4 I, G- T+ l( rrQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
    . E4 R# l- a0 ~% _- @vA==3 o7 a# X- {1 k0 x+ R% g/ A4 _
          "]]}}},4 R8 O. K3 r0 h, ~9 |
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],4 c, J. _! X) r7 q) z4 V. j+ L! {
      Axes->True,  |0 |7 m" @$ o
      AxesOrigin->{61, 0},& H4 s5 j5 F5 P9 H5 ^
      Frame->True,5 u8 A9 B! ~7 L' O8 ]+ J
      FrameLabel->{. W& b6 Q/ V* h. t
        FormBox["\"\:7089\:6b21\"", TraditionalForm],
    9 T3 s7 @/ x1 X% E+ F' h    FormBox[: G& [/ n% g7 H' O# w
        "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\- r+ N  p- y, P: l4 V
    \:ff09\"", TraditionalForm]},0 R, V3 ~3 }3 p8 I. U, d* t
      PlotRange->{{61, 89}, {0, 1}},. ~; ]0 g1 M9 i) ^/ n& G. u
      PlotRangeClipping->True,
    ( f. e0 O3 G* i# z% u% N, D  PlotRangePadding->{Automatic, Automatic}]], "Output",
    + Y; R* C5 R! r( o CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]6 `. C0 T: t* O. N; B7 \( X
    }, Open  ]],5 ?2 {/ r0 S' o/ |

    $ J) n6 A- k5 t: p' I0 ]0 qCell[BoxData["\:62df\:5408wi1"], "Input",
    : A. r  b" ~8 @! Z' C, X5 {4 w CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}, 8 X7 B, o8 ?$ z; k' \' F
       3.577959662349238*^9}],
    ; b, F/ H. A) i: C; Z  B9 P0 u" j* e$ {& C- |
    Cell[CellGroupData[{
    8 d0 t- B3 [% F; @! R5 W0 `
    $ ^3 M2 N' I- d9 VCell[BoxData[
      x- C: K* [  h& V* F- P- x RowBox[{"y1b", "=",
    ( C2 Y# B  E7 h& U# J/ [) c  RowBox[{"Table", "[", 0 H( L3 t: l$ \! I
       RowBox[{"x", ",", 0 Y. N3 m! x9 R1 ?% M' P! |  q
        RowBox[{"{", , K5 v! U! G) m1 f
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    9 F0 [- n+ m$ {3 q; v, u- \ CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {: G# L$ T2 d! G, K5 L3 N
       3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],( `( z4 w8 B- t

    6 m! {* L! I( ZCell[BoxData[
    " k' [8 D  S. ~) B& R RowBox[{"{",
    . _6 c5 d; f4 s* P  RowBox[{
    ; q, u' H6 K  N6 `  \) D7 V  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 9 Z3 M! {" m1 \/ b6 q( e4 S
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    ! u* ?0 V5 f5 B# ]- ^6 V& z1 i    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 1 t0 F- f: F3 R( [- @. D
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 0 D8 F) N$ L6 A' Z. J: C
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", ; X: x  ~% V8 y0 v/ d# z
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", ' C  m. L' p! q  Q4 z! A
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    $ I+ g1 i/ t4 B* X/ \/ u, v0 o" x+ \   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", # w3 Y+ l  w6 }% }
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], % G  ?, z# Q$ i& N9 A0 ~( O
      "}"}]], "Output",  Z6 i$ I, C* x/ h
    CellChangeTimes->{
    ) ^2 x5 G7 v9 m" P- p4 b% M  3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9}, ( N2 C& [/ E5 t7 i5 Z3 e/ x- \) Z/ w
       3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9,
    - a0 f; P* j3 `6 b/ n* o   3.578012438953125*^9}]( [6 s. I) T6 O, K
    }, Open  ]],; j& F4 C  g) C/ X9 [# I
    ) c" B8 {. B9 F
    Cell[CellGroupData[{9 V* m  M- s# C4 ~" q4 {

    . I6 M, G; O+ U2 p" ~% {; {; v; y3 tCell[BoxData[$ J. \( Z, I$ o# C/ P1 H; C2 v
    RowBox[{"Data", "[", ( e: M, i6 Y" v
      RowBox[{"[", : {3 x" ^" }; q: z/ v
       RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",
      q! K; ]/ s1 V& }% _2 Y CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {; `. Z) s9 t& j- w  r7 x8 o
       3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {3 S" B% V  X* j, R& x; s
       3.577959014090108*^9, 3.577959016040111*^9}}],$ }& T* t5 v" a: h! x7 D* R+ B# S. ~8 |9 }
    4 v# ?6 h9 W) L9 B+ f' a; j
    Cell[BoxData["0.492958`"], "Output",
    9 m' r) d' D8 N0 D2 q CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    & S: Q, r$ I7 b5 c/ D2 b) G   3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9,
    8 J& k4 J* T) E2 v' @8 x   3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]
    + `5 v' |" g9 M* a* _}, Open  ]],
    ) u7 L% v4 j$ ^1 g0 u  v" p3 n1 g8 y. o8 E
    Cell[BoxData[
    $ _: i! A; m! D, H RowBox[{"For", "[", ! N, ]5 s5 R# h  ]# A, o6 C
      RowBox[{
    ( ~) i, j; [5 I9 ]4 I/ W5 |   RowBox[{"i", "=", "1"}], ",", " i; e/ ?3 k: Y7 H. S9 F0 C
       RowBox[{"i", "\[LessEqual]", "60"}], ",",
    4 M3 f0 J. A  z( V! J) d   RowBox[{"i", "++"}], ",", % p* W# U2 C+ P0 }( J) r, [' S
       RowBox[{
    / W+ c5 A' w. }& Z    RowBox[{"y1b", "[",
    + x: S# d5 K* A6 c. L$ Z0 u     RowBox[{"[", "i", "]"}], "]"}], "=",
    : _: p) h0 ~8 Z    RowBox[{"Data", "[", + j; M  V# {) {  C6 q& j
         RowBox[{"[", 1 m4 O1 O( \1 M, q9 `8 I+ }) ]
          RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
    0 [# v% x& M% u+ M* Z- a' H- n CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    ( v% r- G$ ?9 ?7 Q& q0 q$ d   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    " v+ r* r; r$ c4 [, M, \4 R   3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {
    ' M) ]2 l/ B* r* Q  t   3.57795902089172*^9, 3.5779590227793226`*^9}}],
    4 }% F" ~7 k% Y# U. Z2 \' Z$ }' ]
    8 h( Z# i# `; b3 x, OCell[CellGroupData[{: l2 V5 B$ ^6 y! G! n- G0 \; U/ I
    " N/ k; k0 g/ Y/ X. i
    Cell[BoxData["y1b"], "Input",
    " {1 h% T' i. n7 h6 { CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}, ( x. W' P& W( x3 C& h9 A
       3.577958484172784*^9}],& `; o, Z! h/ I" v3 l

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

    2 q5 t8 I$ p8 aCell[CellGroupData[{) g, c3 |$ W' `1 I+ Y1 b
    " F6 N% q3 i0 O1 U
    Cell[BoxData[
    # O3 m0 i1 `; W RowBox[{"w1b", "=",
    ' J6 }0 L8 G  E. U, ]5 h/ i: H% P  RowBox[{"LeastSquares", "[",
    6 m$ j# X8 }8 ?   RowBox[{"m60n21", ",", "y1b"}], "]"}]}]], "Input",
    + h4 C* V; Y4 \. u CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {" V* J; h* s, N5 B
      3.577924662765625*^9, 3.57792466596875*^9}, {3.5779582865360394`*^9, * ^  |9 ]2 M' r4 P1 k. }
      3.5779582963172565`*^9}, {3.5779622900808835`*^9, 3.577962290377284*^9}}],
    6 `; u, n' x6 h5 Z% b  l2 U" j7 [. {
    Cell[BoxData[) J9 n3 m! C! C% d
    RowBox[{"{",
    : G9 m* G- K! c" K/ R  RowBox[{
    0 X, `! _5 @: j& m' e  "0.48228184971363947`", ",", "0.16041393254115022`", ",",
    5 O; [7 G! [5 k+ X6 q   "0.3741982811661129`", ",",
      Y4 V" D+ Z3 Q! Q   RowBox[{"-", "0.12620581913715245`"}], ",", "0.28831860112966734`", ",",
    * d& |% A& W9 I$ Z% X. @8 U   RowBox[{"-", "0.2282993884666894`"}], ",", "0.3207174990295839`", ",",
    ) H5 F7 E% {; U  h   RowBox[{"-", "0.4666313851213302`"}], ",", "0.27551257162880227`", ",", : u- G4 i9 T# @( w4 w
       RowBox[{"-", "0.025873988843993667`"}], ",",
    # ^) k( j) f& w) Y7 s* t9 A+ }7 j   RowBox[{"-", "0.1339854044819916`"}], ",",
    ' D! i: F9 s: X/ d; N- t0 F0 w/ w   RowBox[{"-", "0.15852708848338315`"}], ",", "0.3129687276967983`", ",",
    6 P- l1 j! d% l" X! h0 t: t3 S   "0.45723850991134063`", ",", "0.2954923840077215`", ",",
    ( W6 T% Y; R' Z# E' _   "0.9125798890455868`", ",", "0.21159052285983104`", ",", 5 W! k( {0 \* I7 n. p: R! M0 U" S! V
       "0.5575503376854456`", ",", "0.6019775648968265`", ",",
    4 E. d1 R# S$ k# n   "0.2361524780938108`", ",", "0.12782130225993923`"}], "}"}]], "Output",
    % z: f' a) n- \1 c: k4 E CellChangeTimes->{2 q* ~$ a* C/ O0 T
      3.577924621953125*^9, 3.5779246688125*^9, {3.5779582894220443`*^9,
    2 V& }- [$ I+ ^: A: @   3.5779582992968616`*^9}, 3.5779584995700107`*^9, 3.577959040157753*^9,
    - x6 I9 O% p( ?   3.5779622919996867`*^9, 3.578012447734375*^9}]
    / |! O6 @' q# E" R}, Open  ]],
    ( ?( q% ]7 t$ m6 ?6 z8 a5 H7 Y5 p" r. W+ f4 B( m9 A/ f) ?, Y; G
    Cell[CellGroupData[{
    0 f4 F$ Z- [! T% V# T$ H5 L
    4 m1 E+ E. q. \0 iCell[BoxData[
    $ h$ }0 v/ U. [2 U; v' | RowBox[{"y2", "=",   y* n% J3 r$ g6 f# W
      RowBox[{"w1b", ".",
    ( Y0 n$ e) r6 l# A4 m   RowBox[{"{",
    ) l% D, r' A- \6 W; `  Q/ g    RowBox[{
    , N5 G9 Q, B% \    "u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7", / @. @  U) d. y# o- ^7 }
         ",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13",
      |: z- A+ i' k  U; ?5 z     ",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19", , J& W3 ^" s( |9 y; o" |8 q2 L
         ",", "u20", ",", "u21"}], "}"}]}]}]], "Input",
    6 P+ Z) s$ t" x! D" j CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {' @& |4 }( P9 z2 w1 c( J6 r' L0 N3 s
       3.577924897078125*^9, 3.57792491596875*^9}, {3.5779583101856804`*^9,
      I" v4 z3 U* e1 r) u# V   3.5779583178920937`*^9}, 3.5779623163513293`*^9}],* D  T2 A' a" g+ V" n$ k! _

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

    7 b2 j1 a, _: w& W7 v% D+ s5 MCell[BoxData[8 ~0 H4 l8 }' x% P& C
    RowBox[{"{",
    - V0 v7 n4 T5 U. a  RowBox[{
    " q% l  H8 ~8 I/ ?; O. x  "0.4853171132859182`", ",", "0.4508635216665074`", ",",
    8 i/ `$ I; F3 Y) t, [   "0.3642119241752518`", ",", "0.42852077425595436`", ",", / r: D% E. A  `: V: [' F. o
       "0.4712694272667798`", ",", "0.5257533056184774`", ",",
    ! f6 O8 O' r! W   "0.48620658140716133`", ",", "0.41106838915591876`", ",",
    / w* g; ~- q5 o- O* [# a3 e  n   "0.5486894206610674`", ",", "0.007731168540073459`", ",", 2 S8 b% i$ K; ~, \- O) x
       "0.013872406140339109`", ",", "0.3956995051659558`", ",", + b3 n% R! s9 [- x  V7 w8 U! P
       "0.3663118256142708`", ",", "0.29094217358055163`", ",",
    ' B9 d9 m, o$ Q( f9 s" @- R2 L   "0.5453093690736555`", ",", "0.44138898880777927`", ",",
      z- a; l6 c- K' @9 p- D   "0.42944922031163496`", ",", "0.43092890556748836`", ",",
    , E4 C3 ^# p& d   "0.5942402821739969`", ",", "0.330046090785457`", ",",
    9 F. Y+ T' `; Z   "0.18938658036630585`", ",", "0.4263720292858679`", ",",
    6 f, D! ]) E6 X; h" t* X   "0.23377136184738775`", ",", "0.02232858193309988`", ",", ' j. ]  R+ _* e- I# q; O+ b: c+ X
       "0.244364200084268`", ",", "0.5562383565309971`", ",",
    8 z" p% c# r% e+ W$ O7 c   "0.13114103402954333`", ",", "0.5815052048989465`", ",", , ^7 p3 y; L4 s3 @2 Q7 \
       "0.4253455966293501`"}], "}"}]], "Output",$ c& t) L. {* B  v4 s
    CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
    ( F- N# V4 m4 l6 h  M3 a% O. ^  3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9, % Q% \9 ]0 v+ X
      3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}]
    3 D+ ]7 ~# N8 D0 W8 T}, Open  ]],! \0 K/ Y  U: c2 l' P
    % C: V, t- w& w' a7 L& T* R
    Cell[CellGroupData[{
    ; Q; {# r7 e8 B0 U  A
    . Q( h+ U- k! A9 g! N, lCell[BoxData[
    . l3 y& ^. J$ Z) v" ~0 j RowBox[{"y2fit", "=", * z! k9 a- u$ X0 y( \
      RowBox[{"{", % Y: u* e, x/ M4 w
       RowBox[{
    6 K; e  o* y. A. L" J   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 6 ^7 q7 o- m5 Q6 a$ E2 u
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    6 |# d% o. s8 j    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    . l; c, y+ A5 [    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", ! ^% e# ^3 a9 l
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",   s; h; h9 h4 o% a8 T1 }1 w; N
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", 7 A" O8 t4 j% O4 v
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    5 k7 B+ m- A( R3 x9 }    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", 7 u9 M! y7 f8 z
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    ! Q2 _2 ?8 t; r( q( U2 w# i    "0.48531711328591953", ",", "0.48531711328591953`", ",",
    ! `, g0 Q; c9 {# T    "0.45086352166650845`", ",", "0.36421192417525217`", ",",
    ( Y% ]8 x0 Y9 `4 m    "0.4285207742559556`", ",", "0.4712694272667811`", ",",   c8 \$ I: \7 O% c
        "0.5257533056184786`", ",", "0.4862065814071623`", ",",
    5 W+ K; @4 H4 `4 o0 Q    "0.41106838915592014`", ",", "0.5486894206610683`", ",",
    0 b: N6 M3 B* C9 R6 A    "0.007731168540073532`", ",", "0.013872406140339166`", ",",
      n( @6 B1 Y$ B    "0.3956995051659565`", ",", "0.3663118256142717`", ",", 2 e# Q# l* A9 a% l
        "0.29094217358055185`", ",", "0.5453093690736568`", ",",
    3 J: f  i$ k" w2 H( U" v% O2 I. k    "0.4413889888077799`", ",", "0.42944922031163585`", ",",
    ) ~4 x( ^) ]4 @, w5 a; r. i    "0.4309289055674891`", ",", "0.5942402821739983`", ",", % N+ }/ F3 ?7 }/ |! D& {
        "0.33004609078545805`", ",", "0.18938658036630632`", ",", 9 i; C$ L) I9 @( J8 U
        "0.4263720292858688`", ",", "0.23377136184738778`", ",",   S5 F, U' Q5 t. K9 B
        "0.022328581933099827`", ",", "0.24436420008426807`", ",",
    6 G9 L% h- c6 M  C( `! W3 [    "0.5562383565309981`", ",", "0.13114103402954314`", ",", ' a# S& E/ ~- o
        "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",
    # J/ `/ u6 ^) e5 I+ C6 f/ i0 j CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {, D. ?3 @8 _3 c, [" D$ j  }' }. E5 s# o
      3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9,
    3 r( p2 ~! v2 e, s: c# O4 U& C  3.57796233957977*^9}}],
    7 |& I* J4 o, H, ?& g6 m/ K' L) M. l: E% p
    Cell[BoxData[
    5 c1 Q5 ~% w7 q( x RowBox[{"{", 4 M3 E4 m2 T' B9 k; m# @5 k+ F, ?
      RowBox[{( a6 V6 k+ d3 _  N1 G0 Q& s
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", * m9 I+ z& Z) o
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",2 @, e! S/ ^, j+ W
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", # r* x" T) r7 y
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    3 O# k, e; W) y+ |7 I/ e   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", , M9 }# ]- s1 D" e
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 1 r% |8 g% T4 W( b& U! R
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", * o  D2 l' m' k$ m
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    2 Q) ?' T$ a( w8 g/ v, m   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 0 M) Y( r9 L, [$ Q2 f) L
       "0.48531711328591953`", ",", "0.48531711328591953`", ",", 7 I/ R2 k/ j7 F, w7 {* V
       "0.45086352166650845`", ",", "0.36421192417525217`", ",", ; H! g0 x$ O9 \& q# k5 p
       "0.4285207742559556`", ",", "0.4712694272667811`", ",",
    6 H: M  Y1 x6 @& ?   "0.5257533056184786`", ",", "0.4862065814071623`", ",", ) t8 `$ D5 `1 `
       "0.41106838915592014`", ",", "0.5486894206610683`", ",", : N& ?2 P  o9 o8 ?7 }8 A
       "0.007731168540073532`", ",", "0.013872406140339166`", ",", 2 ^, `  K' E4 R7 p& m& C
       "0.3956995051659565`", ",", "0.3663118256142717`", ",",
    ; r  d/ S9 k# y8 X! K" |   "0.29094217358055185`", ",", "0.5453093690736568`", ",", . X. v% X- Z$ S0 N' A+ r6 H* h
       "0.4413889888077799`", ",", "0.42944922031163585`", ",", 6 k! O# g* u1 u6 M( d
       "0.4309289055674891`", ",", "0.5942402821739983`", ",",
    4 J1 d/ O$ U; i2 q  b& t+ D5 k4 o# }   "0.33004609078545805`", ",", "0.18938658036630632`", ",",
    4 G! p/ ]7 o9 D' N3 j- r   "0.4263720292858688`", ",", "0.23377136184738778`", ",", " N2 {" X5 q4 i- q. M6 B
       "0.022328581933099827`", ",", "0.24436420008426807`", ",", 2 C" x" J* b8 Y- D8 Y) x$ }
       "0.5562383565309981`", ",", "0.13114103402954314`", ",",
    $ N1 Q  H5 }8 H1 Z, N- }+ {2 Y   "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",) \5 }; {" y; j9 O% ?) v& ^
    CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9, ' p2 u) r# B1 e, Q, o2 m0 C0 W
      3.577962342060174*^9, 3.57801245340625*^9}]  }5 }" C$ z7 x7 q. I7 j$ j
    }, Open  ]],
    3 i& S2 u( Z- u7 O  U5 u2 c* V( P8 |9 a
    Cell[CellGroupData[{
    ) E: L% ^) }9 i9 {! I9 R
    % ]; h# r. T; U( @1 }( m( LCell[BoxData[
    2 K7 j! l, `/ r. ^; \; K5 O RowBox[{"y20", "=",
    * M) V; k0 ]' i0 e) p  RowBox[{"Table", "[",
    , Q- M) t/ s2 i8 G   RowBox[{"x", ",",
    9 G7 u9 ]1 z/ V$ L* U/ Z. s: _! t    RowBox[{"{",
    3 b6 P& a) Q, N5 N, f     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",8 K$ H$ ~0 Z8 M2 q6 X
    CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],
    5 s/ X. p! l! C4 |2 Q- `( h: X# P" G" v9 M" F3 @2 m
    Cell[BoxData[& p8 d2 h3 @  R7 ]; v1 q
    RowBox[{"{",
    ; H8 M! y# N& b$ F2 b9 Q  RowBox[{: Z0 j1 O( ?4 Z- G/ H; E
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", / f+ B! w& p+ ^+ C/ ^: f3 k/ P
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    * S2 t; l" ]( ?& J/ a    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", + h1 b6 i7 I7 f( k" H! p
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 5 f2 o' b' y0 e( E
       ",", "29"}], "}"}]], "Output",
    $ X) e2 Z- @" c$ f" S4 U$ t& l CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9,
    % V( t" e$ W0 j+ N/ Q' T, n  3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9,
    1 v7 @$ m1 X! l  3.578012454875*^9}]' c& J# _6 z: u& I' l9 C
    }, Open  ]],
    + U% F2 [& E8 n& E1 m, P7 l
    8 Z) A0 Y, z2 u" @( F& W! h/ DCell[BoxData[
    ; `2 b9 _/ {, S$ z! ~4 k% u2 z RowBox[{"For", "[",
    : W# |1 h5 }' a7 J  RowBox[{
    9 x! Q+ i: ^8 E1 `" a) ]   RowBox[{"i", "=", "61"}], ",", + Y# d0 Z- D+ n. r/ P/ R% G
       RowBox[{"i", "\[LessEqual]", "89"}], ",",
    * k  }; ]. U0 H# e1 D+ p/ ^( U   RowBox[{"i", "++"}], ",", $ O, }2 [+ x) P  e7 [
       RowBox[{
    ( p4 D4 b8 ]0 n1 K    RowBox[{"y20", "[",   I/ P0 A4 e2 M' u2 W: R1 S+ r
         RowBox[{"[", . I6 E. u4 C/ @, i, O! ^. L& W
          RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
    ! v7 a1 Z% |) ]5 c; M    RowBox[{"Data", "[",
    / F6 ^! Z. f! Z3 L     RowBox[{"[",
    $ P: s3 j( Q& E3 ]: |/ X      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",2 s3 D* e  Q  D9 U4 H# A; r
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    . i, \3 ^# j3 V( K$ Q9 |  3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, / Q6 S: C* u& Z
      3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {* M3 s9 O. p# r6 c$ r
      3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9,
    1 p( t& i! l4 y7 @2 f( F% _  3.577959058690585*^9}}],
    8 u0 M- [3 c/ l. N" P* ~# r
    5 d4 I5 a2 t7 w  GCell[CellGroupData[{
    4 ~/ |; d- |+ \- M  [& A+ F5 j' C( }0 t8 _
    Cell[BoxData["y20"], "Input",
    & [+ G% |& y) K% }4 |4 G CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {+ j0 }: s& M8 \+ F
       3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9, 7 b9 N, F0 Y* V& M2 W
       3.5779583657841773`*^9}],/ Z6 r3 w. a. W

    0 L5 E, I7 m  A) g* JCell[BoxData[& A9 X! o7 @5 E' S0 o  }: B' J
    RowBox[{"{", , g: C, b( H* y8 v' M4 }) Y* o( n
      RowBox[{* Y0 R! b+ K3 L
      "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",", ! P* K- c+ h  n. s( F; }2 {+ F$ J
       "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",   N! P* D1 q; `7 s) J
       "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", . r1 _( a# `. c4 I& |
       "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", ! n" `- `2 f6 E$ j
       "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",", 2 {0 z' E+ @, H7 u# y3 K/ C
       "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", ; y8 R4 h: @" W$ o: D! m
       "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", 7 C* m5 l+ f5 A  i8 a0 g9 I
       "0.323944`"}], "}"}]], "Output",
    : x: u. o; t2 t) Q2 o CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
    ; j- j/ N& H/ k  3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9, ; {# B: Y; n7 h' L
      3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]
    . C) L( y2 I7 ]0 Z}, Open  ]],& B* k' N1 O- i: O* ^9 F# G8 P

    1 i' C+ T( H' r0 B$ yCell[CellGroupData[{
    7 q5 p- c5 y4 h  V" b
    + e9 F% q2 \( x: g6 ], M9 n) J9 @Cell[BoxData[7 g$ l+ Y) p7 N/ g4 e/ ~+ \5 q
    RowBox[{"y20", "=", ) h, h# `- d/ ]: A$ R; e* O
      RowBox[{"{",
    ; f: @" c( v8 b- H& o   RowBox[{* \. `+ V- O7 X6 Y8 \0 s4 q
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", - h% T8 ?' L+ t% }  {- U  U0 g/ E
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 F5 J$ m! k' V, U4 b6 R
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ) Q- C7 u2 u4 ?. n7 n# j+ r! {, y
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
      r' k" {2 R: Q1 B) W* r/ i% i    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", + K, c5 c# C3 W! {$ @4 ~
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    9 i5 j2 U3 z# V. p6 ~; F# j4 c+ v    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", 2 }. V  w  l6 D- U& {
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    $ x0 v% K, \% T! G3 n3 L( z7 N    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", - G7 n6 y6 f. ?: i
        "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",",
    ! o0 r, L% z( S: @* l    "0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", 2 \/ _7 _* \# I
        "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", & a( P3 D  n+ A
        "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",",
    ! X; X. J) [. k0 T3 j    "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", ' C1 r1 H# l2 y7 X( l5 K
        "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", ( D& ?3 Y/ e8 F) L- G
        "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",",
    2 p  w7 I$ j( O9 g6 n3 o, g- p: |% z    "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",
    ) }/ P; i* v: h CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],$ _. ]# _( x/ S" k/ T. e6 z
      j- ^0 s$ u2 W6 F% e( I1 {! a
    Cell[BoxData[
    9 i2 }  p$ h4 L( o& Y/ E$ N RowBox[{"{", 6 |) |% K) g: I% j4 g
      RowBox[{& r- V& ^7 j9 v5 P3 n
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) p% v; ^+ ]$ \6 W# u9 e" m! o   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",& \6 _  M5 R% l$ e& M0 \! R: [
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", + S1 N; v. i. O* A8 i4 m% p
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    8 s/ C+ B4 I. \0 A   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    2 C: T2 V* \. K   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    ; |: o8 l( [% V& y3 `" P7 y5 ^  y' q2 M   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", - k* g2 u6 l2 R8 V; k+ `
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    7 d7 k8 ^5 F, D   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`",
    & r7 \  t; J% R5 }3 p   ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", % Q: g% m  l1 w& v
       ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
    ! _0 O6 I2 \$ s, U- h    "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", & u, q2 [( x' @8 {2 ~& Q
       "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", 5 z1 M9 u9 w! h/ w2 b2 O, \- b% q6 R) s
       "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
    8 O/ z% g! ~9 l1 `" B3 S   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", " }8 S( q- n, M
       "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", 9 J- W" Z6 q0 V) W
       "0.323944`"}], "}"}]], "Output",
    9 Z: L. f: M- U; n& c3 @3 j( t0 t CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9,
    ' n( M; O0 A7 o: S  3.578012457234375*^9}]
    + h: x& k6 e  T6 `}, Open  ]],
    ) B) i$ i/ g/ f9 a) h) S, S
    ( v7 }. K1 P; W. x" {4 q% f7 @Cell[CellGroupData[{8 [9 u& @, ^) M- ]' b7 z( }

    6 R* ]/ _2 m. p! K# N: bCell[BoxData[
    & D% ^4 t( r( W1 U7 I RowBox[{"p2a", "=", ; }0 \) i; ~: S# s0 i% W1 j# c8 B
      RowBox[{"ListPlot", "[",
    $ w1 N; v/ B1 X, p   RowBox[{"y2fit", ",", # s2 }/ r3 S- O2 }4 W* ?
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", , {1 w! O8 R* C( \7 U
        RowBox[{"PlotStyle", "\[Rule]", 7 ~+ C$ N# g2 {3 V8 Y
         RowBox[{"{",   p* F5 {/ e( E1 s9 h9 y7 T
          RowBox[{"RGBColor", "[",
    $ ]9 R3 C4 @) t5 t1 U) ~       RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", + I. H, J9 ?- O+ m
        RowBox[{"PlotRange", "\[Rule]", * O. X! b5 X# {6 G' o9 T: O
         RowBox[{"{", ' b* ]$ Y1 J* e
          RowBox[{
    " Z8 A5 e* s  p4 ]       RowBox[{"{",
    3 p' s9 l2 O6 h8 k0 p, f        RowBox[{"61", ",", "89"}], "}"}], ",", ' b& P5 A& b9 H
           RowBox[{"{", & P9 L/ M" V  V- M! f8 W7 U1 c
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    4 ^# Z% Y: @5 V7 \& G+ M    RowBox[{"AxesOrigin", "\[Rule]", 5 I( Y! M2 j1 S0 s
         RowBox[{"{", , b2 X* S3 \8 J% y3 p) O
          RowBox[{"61", ",", "0"}], "}"}]}], ",", / g& n6 x" q; T2 Z
        RowBox[{"Frame", "\[Rule]", "True"}], ",",
    + a0 c: g/ Y: B! p2 S    RowBox[{"FrameLabel", "\[Rule]",
      }0 y- u' M) _7 T5 P     RowBox[{"{", 2 ]9 s+ v4 s0 ^. A  x; H( e
          RowBox[{
    ( P& k2 `& d( ^5 E' c! s8 f      "\"\<\:7089\:6b21\>\"", ",",
    + ?# Y/ \& M- M/ P7 L       "\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\9 _" ~* Q- |& M* S) e9 y
    \>\""}], "}"}]}]}], "]"}]}]], "Input",
    ( t) {: t) l- \. P CellChangeTimes->{7 c$ x6 Q; y' ?$ @
      3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
    * \4 G: b4 _# a0 R) |: h   3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9, * k6 D" B- B4 ]$ O8 Y3 [
       3.5779585491624975`*^9}, {3.5779592802577715`*^9,
    ' E  F# k8 o- E) D9 ]* b$ p   3.5779593014270086`*^9}, {3.5779594039971876`*^9, 9 Q! N* @6 U7 k  F+ \$ m
       3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {
    % l  V# D+ h8 i7 b6 F: L   3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9, ! r/ l; k4 c2 |! p6 S1 E
       3.578012920859375*^9}],3 m+ V1 a  h. [% o, W9 `8 j6 z

    ! q! a/ k5 M# k" {  y5 T7 b( vCell[BoxData[
    7 M' C& c( ^5 \! [& d GraphicsBox[{{}, {},
    ' ]) F3 |0 q. x+ b) X! i. t- |   {RGBColor[0, 0, 0], LineBox[CompressedData["
    3 l; R4 x" J# Y% }" ^2 k. O, ^3 v1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM$ `8 d/ I2 ~2 T+ b: ~; f
    /g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
    9 J1 {; k7 j! U9 |/ C9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P7 `' k- i/ L! [# m( D6 I* O
    ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC! F5 p# |7 o) I' L
    qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
    $ F6 v1 p$ b; a5 N: [! P* k1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
    ; X/ F& T/ |" V6 }0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1; U. G! |* Q; V- X4 O" G  ~& y
    sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
    : t0 Q8 g! t9 ?99yxuG0PAHw7nyU=4 ]! R5 D0 X. I& h. `
         "]]}},
    * }3 S0 a* j* @2 z, [9 e  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],* M3 ]) _% f" E0 b
      Axes->True,' G: v5 T; P& _# h
      AxesOrigin->{61, 0},) Z8 A. Y( v7 f. M
      Frame->True,
    + G% W3 {8 k* S* T, Y/ z  FrameLabel->{  k: H, j2 ?7 t* n8 L
        FormBox["\"\:7089\:6b21\"", TraditionalForm],   B9 w) q& S( c( O  V
        FormBox[& q" w7 w' p; w9 `
        "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", . o4 k+ @6 D; `0 m$ f& Z1 c1 p
         TraditionalForm]},
    8 g+ ^7 Y5 C2 f' Y- t) [3 ^  PlotRange->{{61, 89}, {0, 1}},9 J/ m/ b# w8 N! r- G& J
      PlotRangeClipping->True,( S& Q8 U: m% _! C  _( V7 e0 [
      PlotRangePadding->{Automatic, Automatic}]], "Output",9 Z& S5 e/ s) U+ n
    CellChangeTimes->{
    ) b" M1 Q. U% X6 E: I/ R: I& Y  3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9, * ?9 E" h  P' Q/ ?. ?$ j
       3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9,
    , M$ N/ {' b' _$ \# O) G3 {3 ?1 Z   3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9}, 8 D. h  F0 n6 K1 [9 A% l
       3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9, ) p% j3 m: s9 j8 V8 J# n
       3.57801247209375*^9, 3.5780129225625*^9}]
    2 W' @8 G- x3 v4 c* n}, Open  ]],
    ) x& p% y' R1 E: B6 V# H* w" @8 v: w6 Y, L$ u6 Y
    Cell[CellGroupData[{) F3 x' ^- E4 l2 s8 p( o6 h
    ! Q/ Y& i) B7 r* N/ ^( Z5 H
    Cell[BoxData[( W. N, e: w0 `9 G7 J' G
    RowBox[{"p2b", "=",
    ' N1 @$ R" K- ~2 G  ~4 i; [  RowBox[{"ListPlot", "[",
    6 M, ]8 A6 v! H# I2 {: B* j( X& a( L   RowBox[{"y20", ",",
    ) {. J" K7 b; C- r: `; e8 r    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", $ g! @; J/ R6 x7 e; a! B
        RowBox[{"PlotStyle", "\[Rule]",   Q  S1 c5 @( E/ o7 }
         RowBox[{"{", & ?+ q, a$ X: d' W
          RowBox[{  F$ o1 `$ q$ q! Y6 u
           RowBox[{"RGBColor", "[", ! |# l' u# g2 ?1 v
            RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    ! V! J* Z6 U; g* e) H" F& D/ ?    ",",
    . X  |; I( e$ L* K/ t" M# [5 M    RowBox[{"PlotRange", "\[Rule]", 0 M* J& `$ Z6 F( ?5 ?2 W
         RowBox[{"{", ; Z- Q6 S8 u2 ~$ d2 s2 m: a) _
          RowBox[{
    & E& `2 ]  Y0 G) X* d+ p       RowBox[{"{",
    3 d. g/ `4 [: r8 v# t$ u% T* \+ a) Y        RowBox[{"61", ",", "89"}], "}"}], ",",
    ) R( R. H1 _5 N' G* ^       RowBox[{"{", 4 }7 w3 E: h) r" R/ a
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 0 w# M4 f2 c4 T/ `( H& L2 H" m( T
        RowBox[{"AxesOrigin", "\[Rule]",
    , Z  Z/ x' k* t0 L4 ]8 J6 {     RowBox[{"{", 9 Z. r5 ?# N- V9 {! x$ o9 x" q2 I, k, B& i
          RowBox[{"61", ",", "0"}], "}"}]}], ",", + ?: J2 e" t3 C9 W- l5 w
        RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    " v. w0 |9 g4 }' {' d) a; O CellChangeTimes->{# [* K3 l+ ~8 `$ O+ Q( l' N2 }+ Y
      3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9},
    0 P9 c- c0 D( L2 J# P: y   3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],
    ) D8 T4 q, I' N8 D- q/ |0 Q; d7 u" P) G6 x; U! Y
    Cell[BoxData[. D0 S9 q0 g$ A
    GraphicsBox[{{}, {}, - c5 ]! d: V. |( K" l8 ^; h; D
       {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
      q8 ?+ m6 V/ q9 |$ J8 A1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn3 @4 |* ~% j7 m" V% n) Q2 ?2 C3 r0 b& a
    8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
    $ m* V$ K/ P" g' Dc/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
    $ m3 y6 C- k9 a# d' z5 f# KiX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
    ) V! p. Z0 n' t( R5 @- q4 PTZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
    4 |! Q+ m+ i# v# qfzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB: D; C6 \- ]8 ]4 E3 N
    TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG1 j9 I/ _( e4 y3 j6 U7 M# N8 @
    p0OYg4Fg/tz63VfsAdsCnzU=- @7 P& Z) N, Z- ?
         "]]}},
    0 m) t9 @  d2 `, Y2 c  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],: |4 u/ C) [, R1 E- q: j
      Axes->True,6 C" x% _: B" W& l* R$ o
      AxesOrigin->{61, 0},/ q7 Z8 }2 W1 `1 v! b
      Frame->True,
    7 N# U$ p& c5 s. y* {6 ~* A  PlotRange->{{61, 89}, {0, 1}},
    ; I. D# @7 s& w, G  PlotRangeClipping->True,+ j, }* K" V" }
      PlotRangePadding->{Automatic, Automatic}]], "Output",: p( Z3 h# m4 A, v6 R2 B5 ?- v
    CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
    5 e  _( w$ U$ A  H/ }7 Q1 y4 C  3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9,   [2 T/ e4 _* }) Y) j& s
      3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9,
    ' |8 g2 b$ I; Z% o6 D8 B  3.578012484703125*^9, 3.578012925875*^9}]
    / _! F$ S) d0 Y: P8 M}, Open  ]],( o8 [- ^2 O6 b3 p+ X( M% b5 f) A# T
      T. M. z2 x6 o6 P
    Cell[CellGroupData[{9 m$ S6 D# v; T0 O. }8 E6 x6 W" n: R8 O9 f
    7 ~  m4 x; H3 n0 l% \
    Cell[BoxData[- g0 V& |; N( K1 C6 w
    RowBox[{"Show", "[",
    ( X. o4 ]8 Q: Z7 ~- j3 x9 }2 ~! ]  RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],
    ; e3 ?, K* {/ D* {! s6 y' W8 e! B, }, _
    Cell[BoxData[
    # w9 \- ^0 z) G  F6 b GraphicsBox[{{{}, {},
    ; m, F! w. F& L$ w    {RGBColor[0, 0, 0], LineBox[CompressedData["  T2 ]% r2 J* i* p# \. y) c
    1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM4 z  L' `4 f* Y
    /g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
    6 V# h5 ~7 i: g8 E+ L9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
    0 v' S+ s' o# o3 k' ~' D! YofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
    $ V! c* b0 r2 F6 ZqPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
    6 t/ f" l& z. Y4 B& H7 ~+ J1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx. l' @0 {( ]5 F9 p0 ?8 H
    0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
    & c1 R3 B" X3 _/ R5 Z2 }. R9 }$ ]% XsPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
    9 j5 S+ _5 G9 F$ o- F99yxuG0PAHw7nyU=
    # Z" u! A& C' l* C) {      "]]}}, {{}, {},
    * \6 P) s% s8 r4 ]& p8 i5 }1 _/ w' j    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["# `' r- P* e3 J0 c, d' _5 k, T
    1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn) \& ]* {& s+ i8 u! V7 y+ f! o
    8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
    0 @( ^4 p2 z- N  ?9 nc/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
    8 K9 w7 H2 K- y4 g. `iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
    / B* w# g, A) a$ {TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO& g! I, Q( [/ p, B0 X+ S
    fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
    . ^3 Q# D5 T( KTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG# D/ z+ ]; S* \( [4 Y
    p0OYg4Fg/tz63VfsAdsCnzU=9 t$ d+ `: g! b
          "]]}}},7 ^( n. u" F' i9 |$ H' r1 E9 B( w
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    - d; P' `- Q6 v9 w/ ^  Axes->True,& \; W. R0 m; ^& P6 Y; ?: }
      AxesOrigin->{61, 0},
    0 w7 i/ n8 {# p6 A; j  Frame->True,
    " ^- s7 G# `  Q' A& S9 T) P# F  FrameLabel->{
    : l$ L4 r6 e: R' @0 H% Z! R4 Z    FormBox["\"\:7089\:6b21\"", TraditionalForm], : y) x; p, C- |" k+ Z. A
        FormBox[. D: w/ p; Y* T! f8 h# Y  G
        "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", ; `1 _: T2 Y/ t; _
         TraditionalForm]},
    " Z  m6 @9 P- }3 x% H4 A  t  PlotRange->{{61, 89}, {0, 1}},
    / N6 S7 |2 k, ~' _6 _  PlotRangeClipping->True,
    ) A+ ~8 h* j6 ^* X* n. a  PlotRangePadding->{Automatic, Automatic}]], "Output",
    % g: F0 a+ O$ }; ^5 v9 Y CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9,
    5 X' U1 Q. e9 O9 q; C, i* i  3.578012927734375*^9}]
      G6 B5 v  w; K4 j}, Open  ]],! k6 P* w! @1 O9 Q& S7 a1 _

    : S: i+ H& |( D% K- L$ t5 w8 t: OCell[BoxData[5 Q0 O! o6 Z6 Y: b
    RowBox[{"\:ff08",
    : x& g+ ~' O" ]+ E( }1 }  RowBox[{: H$ b. P: m& L
      "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406",
    2 X: Y3 e/ U4 g9 h( ^4 E   "\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621", ; j! V* F; T2 ^% {% ^/ P% j. @. ^: y
       "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208", - z8 O1 a. L$ n% Q
       "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0", $ u) X) O  L7 Y
       ".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\
    ( z) \; [% ~' j\:4e3a0", ".6224",
    / U7 r. l- n3 x7 b* b5 p. E   "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],
    ! j$ E8 x5 ^3 U; m) e   "\:ff09"}]], "Input"],3 S2 C& C& u0 B4 N0 I; t( g
    ' J1 ~) Q! \8 a( c5 q4 x2 x6 {
    Cell[BoxData[& \; t* p" j3 J+ u0 E
    RowBox[{"{",
    0 {6 X2 |1 q+ I  RowBox[{
    4 h/ p; O0 ?! u  "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",",
      h% s' s5 Y) O8 T: T8 a   "\:5439\:6c27\:91cf", ",", 2 C7 }2 D; j+ O! K6 O" {, P
       "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",", . C. O* z' s8 L' W
       "\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",",
    & @7 A0 G) j9 u/ M4 C   "\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",", ) d0 u% o+ Z4 _9 a6 F
       "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",", ' o4 l2 z+ f6 w/ x2 o' s3 M4 c
       "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",",
    ; O; ^* F2 x1 H0 h3 d   "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],
    1 O/ z1 e/ Y6 H# M  A7 T0 t. n0 }% ^0 [0 X0 p) x/ z( y+ k/ j
    Cell[BoxData[" "], "Input",
    # y) S; P* u* s1 Z" W* G; V CellChangeTimes->{3.577962834553033*^9}],$ f  v3 t2 [: Z, ?6 n& M+ B. g
    ; v7 Z+ ^1 Z( H% _: @! z
    Cell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],0 y, p, `3 V' s/ D. L
    ( V' h$ K% o# r- R% Q# K  q
    Cell[CellGroupData[{7 ~* [- ~* H; R' a) y3 H

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

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

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

    使用道具 举报

    -___        

    0

    主题

    8

    听众

    44

    积分

    升级  41.05%

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

    • 签到天数: 12 天

    [LV.3]偶尔看看II

    自我介绍
    wahaha
    9#
    发表于 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-4-27 10:37 , Processed in 1.618076 second(s), 101 queries .

    回顶部