快捷通道

QQ登录

只需要一步，快速开始

  注册地址  找回密码

数学建模社区-数学中国

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

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

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

1

主题

10

听众

296

积分

升级  98%

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

    • 签到天数: 75 天

    [LV.6]常住居民II

    自我介绍
    无

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

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

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

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

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

    相关帖子
    回复

    使用道具 举报

    兰秋小沫        

    0

    主题

    7

    听众

    31

    积分

    升级  27.37%

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

    • 签到天数: 7 天

    [LV.3]偶尔看看II

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

    使用道具 举报

    涳夢        

    0

    主题

    0

    听众

    1

    积分

    升级  20%

    该用户从未签到

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

    使用道具 举报

    冰E柠檬        

    10

    主题

    43

    听众

    1434

    积分

    升级  43.4%

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

    • 签到天数: 278 天

    [LV.8]以坛为家I

    自我介绍
    冰E柠檬

    社区QQ达人

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

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

    群组: 数学建摸协会

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

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

    使用道具 举报

    百年孤独 实名认证       

    3503

    主题

    538

    听众

    5990

    积分

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

    • 签到天数: 691 天

    [LV.9]以坛为家II

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

    群组: 2013年国赛赛前培训

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

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

    群组: 物联网工程师考试

    群组: 2013年美赛优秀论文解
    5#
    发表于 2013-7-30 20:56 |只看该作者 |招呼Ta 关注Ta
    问题完善一下！或者把代码贴上！
    & @: J/ J; R! J# c: q
    回复

    使用道具 举报

    琳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 , ?/ a% K4 Z2 Y* k  J8 |' l
    神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗

    9 }' [" A2 h5 Q/ V& ?4 A(* Content-type: application/mathematica *)
    2 a) k3 u  X  Y6 H0 D7 [: Y7 y0 E2 n6 w/ T5 r
    (*** Wolfram Notebook File ***)0 j$ n: G3 E! H5 e0 k% m& f# L& n
    (* http://www.wolfram.com/nb *)
    + T; [) h/ T" N. w( l( b9 d6 w/ K
    ) [" }- e$ X. m' x, a* E! u: \(* CreatedBy='Mathematica 7.0' *)
    / S1 M! e- j1 u7 @8 A0 P7 k0 w* \, n, h) w1 H5 B
    (*CacheID: 234*)# c* Q' {4 k( P8 G
    (* Internal cache information:
    7 s: |& k6 j7 C' Q7 I6 nNotebookFileLineBreakTest
    " ^- c$ a/ \9 _NotebookFileLineBreakTest
    # M# }" P% w7 E# J; cNotebookDataPosition[       145,          7]6 _+ B: F) W+ O) V3 F) @
    NotebookDataLength[    423629,      11534]% r4 W3 N- R* T4 T, f0 j
    NotebookOptionsPosition[    412607,      11173]" n$ k4 R8 T3 q/ O1 g; _
    NotebookOutlinePosition[    412953,      11188]
    % \1 B8 W2 n$ t& b5 bCellTagsIndexPosition[    412910,      11185]! X; G, ]; D% t) V1 B  R
    WindowFrame->Normal*)/ R" N3 a7 t, P2 X% G/ V: [7 ]

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

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

      l" z( y0 t% k8 e0 o+ rCell[BoxData["M1"], "Input",/ D# F( W% C7 {4 R- p5 Y7 X6 c
    CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
    4 ?4 a. R3 M$ P( b$ d
    9 k% b7 Y7 L( Z* `& GCell[BoxData["21"], "Output",) N# U( {$ r$ g
    CellChangeTimes->{
    ) Q5 w0 f# _; X; R& l5 v& h8 `  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {7 \) z  E9 }3 {; d8 l
       3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9, 8 h& t0 l! x/ W. b' |& O# N$ W( K
       3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
    ! P& W- N; n) K7 y; d   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9, 9 ?8 a# @" M- w/ ^$ e8 H4 D
       3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
    7 {/ U3 i- {. p) F/ p   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9,
    & u5 V6 U9 L( |, t' d3 k, ^   3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
    & q% R1 j& r: G& f3 R   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9, 3 x" s% e! ^9 n# ~* T8 C* q
       3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
    ! {6 D: k" ~" Y; |1 v9 N   3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, ( v1 O) _) e# f" X" W2 }  r
       3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
    : L; N4 r2 b# ^5 }   3.577960515600726*^9, 3.5780121541875*^9}]
    & ~4 Z! W0 S7 b}, Open  ]],
    6 L$ L! a6 _$ ]3 |0 ^, E8 {7 S& S0 w& U/ y
    Cell[BoxData[
    6 j. B" c- I1 D RowBox[{
    # j4 J- u- S- u  j# J; o/ Z  b1 t  RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[",
    ; d% G/ A- C# o( f   RowBox[{"1", ",", "i"}], "]"}],
    % s' _- c4 O. m2 N  RowBox[{"\:5230CM", "[",
    4 _9 c8 T0 k$ i) T9 ?   RowBox[{"21", ",", "i"}], "]"}], * }* O) A3 f2 i. N! `* O
      "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\0 t( p/ O- V) ]
    \:51fd\:6570u1\:5230u21"}]], "Input",
    6 x6 ]7 t, [/ a2 @  \ CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {+ I" v. a% |! \) ^; d( e& ~% y
      3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9, " e, `5 Q4 a- b; v4 n  t9 b# K. `! J
      3.577960526583145*^9}}],
    ' @2 p  Q" t4 m/ d, r' y) W$ }1 v3 g( O
    Cell[BoxData[
    & G4 b, N7 p0 N7 k* Y RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
    5 _% O4 O; M) R# l% p& v0 O: z3 n CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
    % w# k* E6 D3 L5 w0 a$ @, a; V) H( F& p! Z4 W0 G
    Cell[CellGroupData[{8 A) d7 X. _& `6 E! a
    3 o0 V. N* h: e! T
    Cell[BoxData[
    2 x7 h- O' A. q' p RowBox[{"Xa", "=",
    * z( U2 f/ \, Y; K  RowBox[{"{", ' V- ?' B5 J/ F* y
       RowBox[{
    5 z7 G3 Z8 b* I( j( i- G! c   "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", " d3 o; h  `" r/ |( e; t# S
        ",", "x8", ",", "x9"}], "}"}]}]], "Input",* V$ c9 m  }2 ^) P# C8 n* Q( [
    CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
    / D* a% ]- i/ v3 ^
    : `! B: V8 \2 ~$ K& ICell[BoxData[8 W% X! K9 W# _9 x# w. ?5 f( k/ G( p
    RowBox[{"{",
    4 ^8 O/ N2 K' u, Q  RowBox[{
    " g2 ]8 d+ ]8 A1 w0 w' K- g  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
    6 W: @, p( b# w0 b& z( r. s3 z    "x8", ",", "x9"}], "}"}]], "Output",
    : P. Q5 A' T+ K/ _ CellChangeTimes->{
    ! H! T7 m' X, l  f' U  3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9, 7 r! O: q- M$ y1 I) a! y
       3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
    : O- ?3 f. g3 h# q5 ~+ g4 x   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
    % W) ]7 M; y9 B& p1 M7 _& ?* Y* {) T   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, * X% b5 Z* G# u+ p$ @7 S2 H" b
       3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {% J# |$ {: f5 m' H% a
       3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9, % o( L+ }+ S$ r* L- t) }
       3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
    9 l8 o* i. s- ?4 S1 b1 _& M   3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
    1 B  w5 S3 ?6 A* A  G; ^   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {$ s/ L5 H$ I7 l
       3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9, " Q4 K' O5 j7 l, S- o& s0 a
       3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9}, * x" F. d4 @. a( r
       3.57801215725*^9}]- O& q* Z, n8 U0 F) {" Q
    }, Open  ]],7 P6 N2 S& Q+ I/ F# N

    4 m/ U0 t! E  B( Z2 C* wCell[CellGroupData[{! A9 S2 \- ^( W
    ; O; g* ?1 _# V& P
    Cell[BoxData[
      L/ k0 ~  Z$ J& k RowBox[{"Ca", "=",
    ( H$ t& w- a6 b9 ]$ g  RowBox[{"{",
    5 x, g& w' X# |  W   RowBox[{
    0 i" }+ n6 {/ b+ E, B2 D- v0 D" b   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
    # c! Z# V! l5 w8 U    ",", "c8", ",", "c9"}], "}"}]}]], "Input",
    ' W; {- P1 L5 N/ S) {: T2 C4 M9 Q CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],$ n5 U4 w9 J( R. ?  x

    % E$ X" |5 \1 C) V6 Z, m: uCell[BoxData[+ x6 S) c# }/ w" X. d1 h( V1 P
    RowBox[{"{", 5 p) A  ~% H! B* Z
      RowBox[{- E) W* z# G- x3 J7 ?0 y
      "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
    & y7 ]8 [3 g' |  }* J+ Y    "c8", ",", "c9"}], "}"}]], "Output",$ L5 F+ [. W) V& n+ B  X& X6 L
    CellChangeTimes->{2 a' h' ]6 _: K5 T/ y, g
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
    9 j  Z% v4 I& ^  G3 u+ s1 ]   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
    " d+ f3 b4 V0 |" I8 B/ S" l! C   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
      A* V2 K2 G' p6 E2 k- K* t1 z1 h   3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
    9 F4 {/ o/ O6 |2 s! R5 I9 g6 P   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, 1 U& Y! z* S. y; z1 `
       3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9}, ( f4 C- z3 j1 c4 F1 y3 s6 i: \$ C' R
       3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9, 2 y8 ~$ _- _, `+ F4 p4 _
       3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, , F' Q$ A, v$ y3 w) c1 E9 i& D
       3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
    0 L$ ^2 I% f8 D# i3 D/ o   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {# ]' m+ v$ r/ C, O
       3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
    " A( E4 ]. u7 Z# ]0 P   3.577961904604212*^9}, 3.578012158671875*^9}]& B6 E6 N$ O; S8 M) H3 C0 `+ [
    }, Open  ]],; Z! J* }# g: q+ r; Q$ i. c

    * R; Q3 ~, `* @/ ?& c! I: F6 Q0 DCell[BoxData[
    3 y9 v) u& t) E RowBox[{"For", "[", ; q& _/ m7 d. f* L) a$ X
      RowBox[{
    0 ^- \& i7 S. E: f% E2 q   RowBox[{"i", "=", "1"}], ",", 4 Q0 R7 j' j/ q1 G" q" p
       RowBox[{"i", "\[LessEqual]", "9"}], ",", % z  {# u2 x# s2 E& k0 _: L# q
       RowBox[{"i", "++"}], ",",
    ' z1 \1 r$ i! ~1 S( V  M3 S   RowBox[{8 n+ M& x& D/ U4 @8 z: q4 V
        RowBox[{"Ca", "[", + Y8 }8 N  V  J3 N7 w  c8 X
         RowBox[{"[", "i", "]"}], "]"}], "=",
    ) t. C  g1 F# T    RowBox[{"CM", "[",
    - B( X% y9 Q% W0 a$ _/ D     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    ; [% M' o, z  M$ z CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
    & N4 o/ ^8 W5 ~9 ?+ H   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
    / x, A+ P, D4 d: i, s   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9, * }. h8 _$ [, C' t& M1 {+ w
       3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
    ) y# {2 ^* @: r' a  K4 g+ e   3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9,
    ; y# C0 N, j0 e1 d/ ~) T1 C   3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
    ( r5 H  K! X  D, I* |6 a) S   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
    4 v' L) l4 R0 r% j% F: t   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9, 8 E" v* A$ d2 g' ^4 ?& v5 _
       3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,   A: W, Y( f* B5 V! W7 E
       3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
      ]) o0 B0 g1 @+ i   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
    7 l1 o# G& B% p' r9 \+ y! z   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
    9 ]- Z) O; S3 y0 ]   3.577961906897415*^9}, 3.578012176296875*^9}],
    0 ]* w. V3 i) [; r$ J+ ~& T! n5 t$ R$ q
      D4 W0 L3 {$ P7 {3 W' k- t4 TCell[CellGroupData[{
    ; x$ h3 N# u$ L
    3 y: d% P& h% z) N; L7 [Cell[BoxData[
    ) b( @7 A) L% Z6 O1 Z+ f, ^4 g RowBox[{
    ) j  F, ?6 Y0 H! \7 K2 Z6 P3 k  RowBox[{"(", : u3 H- m4 S! `) o" T, a- Z
       RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ) K! k# D) k; v8 F  RowBox[{"(", $ H' l  I9 V8 g4 h3 G& _  D7 G: C
       RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
    + P, V- R  o: E# Q' Z/ S( D% W+ ^3 Q8 N0 V, v5 c4 @* Z% Y& H
    Cell[BoxData[- a5 `7 p2 y7 a7 }# k' S6 I
    RowBox[{
    " |  A4 o, |* w/ i  SuperscriptBox[
    - a" h- O# b% @, e" w1 g/ S   RowBox[{"(", & ^" @5 |4 E! C
        RowBox[{
    & [  I! j% r5 g0 _) X+ r     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
    1 ^9 Z2 V8 @/ b8 b) i5 @& r  SuperscriptBox[
    $ J) i3 H) W4 M$ @: }  }8 U   RowBox[{"(",
    6 e7 ^' ?; J5 e' I6 B3 f    RowBox[{" ^: w, Z- }$ O$ e- k% z$ G
         RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
    : \- g; c' j( P: d/ O+ q  SuperscriptBox[' p$ T$ U( v* V( J/ i. w8 w7 b
       RowBox[{"(",
    * N+ }& {8 R0 A    RowBox[{' h5 ?8 k0 ~7 S, ]  ^5 B- f5 ]. u
         RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+",
    1 E% `# ?9 Z, a  SuperscriptBox[
    : ]6 f: q4 Z! t1 S- f   RowBox[{"(", . v' m+ M# S7 q1 R1 g' @
        RowBox[{
    ) T  S* A; c( V% U     RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+", 0 b) t& W5 c* u. V: y8 G/ z
      SuperscriptBox[
    : E$ j  Z# [8 |: N   RowBox[{"(", 0 N- W: F) R, \8 m4 S8 c+ }! e3 W
        RowBox[{! M6 _* {: B( A) k, A, J& B5 I
         RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", ) _+ c5 [1 M* Y
      SuperscriptBox[  d% z9 }$ k6 b: V. n* n" M
       RowBox[{"(", ; K/ b9 k6 j7 [# A- s6 i$ ]
        RowBox[{' f4 h- J! N& D# t! n
         RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
    - F5 |( w; c" L. X1 g5 f& l  SuperscriptBox[
    , X: L6 \+ T/ U& L1 H   RowBox[{"(", . f  M3 Q; {, k$ o  `) _) z2 X
        RowBox[{
    5 i% {$ M9 ?8 ~5 t     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", % U1 n4 s, }( \  J7 q3 H
      SuperscriptBox[6 V/ W8 k& h- Z
       RowBox[{"(", " {: n. S/ d  ~5 V; ?3 p, m
        RowBox[{
    : `% `4 J/ J; D% g     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
    , h' ?" Y  R5 r6 V1 ]: U+ I/ O  K$ `. r  SuperscriptBox[* u  h2 B% W# I
       RowBox[{"(",
    1 m8 F4 Q' K6 j9 t2 f. Q    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",( [1 t9 y  t& f0 b$ M
    CellChangeTimes->{
    / i  P1 o5 W1 h9 W+ B9 V  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, . s+ _! `; |0 c( H
       3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9, + a5 E! Z6 s9 r) f; o8 @, V
       3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,
    . a: t+ S5 O" b. Z' o7 k% z   3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
    5 Z' f" J9 \" g0 A5 f0 Z3 t   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, " v  g( T7 o) |# p2 l+ e+ J
       3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
    , c1 }, u- b, `5 K. V: n   3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {9 N+ G' P* q" y) H1 F
       3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
      u# U8 I) u4 g+ K0 I% i   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
    / L- E) C3 u6 y% J" Q& a   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {" t! L  I( g# u( y7 A; h; |
       3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
    4 i' C' q6 e8 w9 V   3.5779618537169228`*^9}, {3.5779618846049767`*^9,
    ; d7 P5 H5 {1 y8 r2 u1 t" P" U  N   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]0 q1 w7 l4 e1 J9 J# ^. ^9 ]! u
    }, Open  ]],- p5 W) n( t0 |
    : [; j% `- P- O
    Cell[CellGroupData[{
    8 s/ V4 x" D% k7 ~3 `3 `- I1 f$ X1 _# ^
    Cell[BoxData[$ X) e& Y5 p" U. s7 Q# C
    RowBox[{3 C0 [% t* J8 S8 H3 o3 Q+ |4 ~0 f
      RowBox[{"Ca", "[", " ?, `) E7 U2 q, M  t% L( H) K
       RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",
    $ O2 L: o! R& N. {% w* A CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
    ! S( ^* l7 ]  d0 v7 a; j  3.5779616465173616`*^9}],2 g" y. |9 Q* m, y' E. v/ E
    2 l# L  U+ q4 A( s8 k
    Cell[BoxData["0"], "Output",0 n# m9 [+ J: U! z3 q; z* ?
    CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
    ( [1 h3 \: D, M+ L4 F* W4 e  3.5779616484049644`*^9}]
    " L% n( e" q2 s9 \' W4 \: ~}, Open  ]],
    , P) O9 h* Q; i) L  X' [1 g6 k$ p) l- k  l0 B4 L
    Cell[CellGroupData[{
    7 P4 z0 D4 n9 ^+ D6 U1 h; n# G8 u7 z5 J4 c
    Cell[BoxData[: ]6 I+ n/ I6 x4 M5 G" m
    RowBox[{
    $ Z7 S  `) M' E3 F4 r/ C' I- B8 _! r  RowBox[{"Ca", "[", 6 I6 G7 A$ K* c! Z
       RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
    # F! M+ G+ a) @ CellChangeTimes->{3.577957376235614*^9}],
    & Y! A: f) @8 p( m/ I" v" u1 X; N
    Cell[BoxData["0"], "Output",
    ' a- E5 L0 w% Q% B* [& ?# v CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]' t6 `& x+ P5 u! ?) }& ]# |- G2 x
    }, Open  ]],8 F$ m- G- Z( L' B+ Z2 E: j! }

    * N% X) d& k$ f# i9 W$ q3 f" ]" [0 YCell[CellGroupData[{
    $ _% q- j( e# ^. i5 J
    + l9 u! A1 V4 B7 ~- D/ ^Cell[BoxData[! x0 O9 n+ [3 `2 A# v
    RowBox[{
    & ]% ]& S0 Y, y4 @$ |9 s  RowBox[{"Ca", "[", 2 D8 _7 W2 Q+ G8 w8 ~
       RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
    5 w; G- a% s! X$ z% P) A4 s. n CellChangeTimes->{3.5779573112927003`*^9}],0 F& E6 ?6 M6 k1 ^# w& \

    9 Z" T+ ?0 h, z( o; QCell[BoxData["0"], "Output",
    6 o3 I! q% Y  h) p/ ^7 r CellChangeTimes->{
    % c& E) h3 x$ \7 T' o; o3 t  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9, 5 R; J- N1 H( w
       3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9, ' s6 Z& W% j5 E5 t: t- c( Q/ W& v" }
       3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9}, + `4 c" B& z$ v1 q; _# d
       3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9, * |# y* J. J, g7 c5 v* Z
       3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, , Z% z7 `: W, S# x0 V& B3 ^$ z2 y- f# n
       3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
    ! g- l  j# _/ C: O" ], k( ~}, Open  ]],% W( B* q% p6 ^) C4 e" D5 M

    # q! u8 D" \9 o4 qCell[CellGroupData[{+ i8 V, o4 a+ m& y
    ; I4 Z% v$ o0 O2 u
    Cell[BoxData[
    : F% f' c' L' K" ]+ a5 _ RowBox[{, M+ d& t! A2 b& x  o9 w. ^
      RowBox[{"Ca", "[",
    $ _# S# |( d7 R, f0 G$ t2 d   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",7 y% A& l; ]6 W2 R8 a
    CellChangeTimes->{3.577921461734375*^9}],
    , h. M8 J  L9 ^2 \
    ( F! ^0 ^! a: PCell[BoxData["0"], "Output",/ G8 X- j! d6 u" i1 O& s( [
    CellChangeTimes->{9 [; k) j3 r+ [4 j/ p" ?# L
      3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
    + l: P0 y: B0 H   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9}, ; p" O. t1 z6 x0 @
       3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9, ! u* j7 Z. ~, Z! C1 y
       3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
    - H! l% ?% Y* y   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]
    2 A) C, e0 R/ u" r$ X) ^}, Open  ]],
    " Y4 _) I, E6 b+ b1 Q
    $ L" v0 n* l2 Q" q0 ^% T) [Cell[CellGroupData[{
    " G, z6 E6 {+ a1 N4 V4 Y0 v- T( A! S
    Cell[BoxData[% p5 |2 ?0 i9 S4 C: c
    RowBox[{: s" |- {5 N1 E0 C5 t
      RowBox[{"Ca", "[", 8 c% D- \% [& B1 X
       RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",( K1 x- E0 Y* K3 K( ^
    CellChangeTimes->{3.577957303118286*^9}]," Q* X/ U8 x6 N: x# z! [

    ! _  c( n0 Q7 k0 F: v& B6 B; OCell[BoxData["0"], "Output",0 z& L* E& ?/ J+ }0 S
    CellChangeTimes->{
    + l4 b! z+ A1 k4 _; e% ?  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {3 |4 R1 @" F* e+ F3 Y
       3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
    3 J9 M$ T) m9 B   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9, - i; j) K7 B# d$ F! G& O1 X
       3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9, 7 m8 V2 N  Y- g( ~/ {: `/ l! o
       3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
    $ I/ M, S. J6 K+ d: h. R8 B   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {  R, }; @, W1 x+ O" F4 W
       3.577961889378585*^9, 3.577961912965826*^9}}]+ {  p" d$ {! Z, g  Z4 C
    }, Open  ]],% ]6 k4 k7 Y8 ]" T; y) s
    ) C- m' {& X/ L9 ~; p
    Cell[CellGroupData[{. h1 F& O) ?5 s, }. D

    . h- i: W6 \# ^1 j5 YCell[BoxData[: s6 I: L, B+ w- a# f9 t: y) a
    RowBox[{
    + a$ K5 L; b# o* g0 o- u  RowBox[{"Ca", "[", 8 U( k8 D6 ?- P4 Z
       RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
    ( P% ]/ t3 `( u3 {" i- B CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
    0 s( G1 D: B$ j! W0 a6 C% ?  3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9, 9 [* S$ r! k2 f6 s
      3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {! w; |! D' ~2 w0 O" I( b+ a
      3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9, 4 z7 q! L8 q5 U" o
      3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {. j  O" K2 L! i% S
      3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
    ' K! r9 i7 W9 K/ ^$ ?$ d8 q! n& D' J  3.577921435703125*^9}}],) i% O4 k5 {5 k# U& U9 J. i, C
    6 b7 o/ h3 ^2 {/ a# q" l
    Cell[BoxData["0"], "Output",
    9 k0 m/ x& N$ \- S CellChangeTimes->{. T; v0 e4 g  \8 @- a! [$ a
      3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {0 R8 J" A" b& q. F+ @/ U. G0 r
       3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
      S! a5 v5 y! b) q9 \% b6 [   3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {: o7 S! L- f, Y% |8 f( e* e  ]$ I
       3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
    7 L4 }4 [  N4 [$ l4 w! D   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {3 N$ W3 _  W; {/ b; ~$ d' Y! X" I) M! j
       3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
    $ d* U/ K& d) l/ W) |2 B# K+ X   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
      F' G5 j. V; a* l" \' a1 g& P   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9, ; z! Q$ k# h+ L9 l6 y7 E
       3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {) K- N2 F0 J4 F4 o/ l! D
       3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9, ! d0 L1 ]# \: z) ^$ n4 J1 \
       3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {* z8 f5 `, ~1 O; N
       3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
    8 o' E& V" t  j$ `$ N' E   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]0 S) {7 c2 _$ R6 O5 t5 p
    }, Open  ]],
    # k% Y- J( h) N
    ; T% X3 m4 [. E  ]* }' wCell[CellGroupData[{
    ' K7 ^) ]! q2 T2 j
    % K( F. _4 }9 ]! B( i, qCell[BoxData[
    * A3 N; s- K7 }2 R7 }2 B% p RowBox[{"Delta1", "=",
    : C! V% g4 f, n6 v1 }  RowBox[{
    " A  c  E: X9 P0 m   SubsuperscriptBox["\[Integral]", % U1 |3 Q( _# |, G
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    1 t/ l. |( s7 a1 z   RowBox[{
    * N% R2 ^6 M+ K/ D9 Y# K5 Z* _    SubsuperscriptBox["\[Integral]",
    / E  o% U  H+ _$ i/ w     RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 6 d5 h1 w/ o* Q5 T/ S2 B6 C
        RowBox[{& X  t& d& h' ?7 z) c
         SubsuperscriptBox["\[Integral]",
    ' F) H7 ]6 B6 v+ K6 o, m      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
      b0 f- {; |! i& N& ^     RowBox[{3 r$ M1 E1 C3 S1 T8 e
          SubsuperscriptBox["\[Integral]",
    2 n$ T  Y; V0 ]- k0 s: F8 G       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ( x8 R+ X6 J/ y. X$ J6 r+ ?
          RowBox[{
    : I: P0 P$ G# x, J/ c       SubsuperscriptBox["\[Integral]", % Y$ b$ W; {1 C+ G
            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 3 R$ ]) B5 }! F0 V# _8 b1 g0 ^
           RowBox[{
    ( t+ P$ W4 r: ?& h4 O        SubsuperscriptBox["\[Integral]", 7 R* U1 N: _+ q; `" @9 h
             RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    / }0 D/ X. @, U        RowBox[{- e5 `, c+ r6 h# I7 ?
             SubsuperscriptBox["\[Integral]", * y' ?9 L! J+ T; e
              RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    6 ^% G4 X9 u& z" w/ ^1 N: K7 e, W! S         RowBox[{
    / P7 v# O7 r/ b          SubsuperscriptBox["\[Integral]",
    - w$ L& z( ~, Q1 K5 u' _2 Y           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ; M4 S7 `% [4 e0 f
              RowBox[{' A% P' c' k! [# m( h  g; ]
               SubsuperscriptBox["\[Integral]",
    * U: D% f8 h7 r* K+ H/ O            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],   J2 R9 a" M8 I- o
               RowBox[{
    8 d7 c1 i" e3 A( |) {  ]            RowBox[{"Exp", "[",
    7 z+ N5 L- Z- `6 Z7 i2 _! \             RowBox[{
    - S1 N! U3 Z" h0 _              RowBox[{5 _1 L$ G( P  [( q0 R% |0 m
                   RowBox[{"-",
    4 T+ g% T7 r' r* `                RowBox[{
    5 t9 B& x% h, Y( \- E                 RowBox[{"(",
    2 M: u% t  Z) A( k# p) w3 b& `0 K                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    . z" e/ b& M2 w) A, {                 RowBox[{"(",
    . ^4 r+ ]+ D3 c. i$ q! D                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", 5 j( p0 I2 {  W
                  "Delta"}], "]"}],
    : R0 U1 w9 V9 G; x$ T            RowBox[{"\[DifferentialD]", "x1"}],
    + J+ _9 o" }" ]            RowBox[{"\[DifferentialD]", "x2"}], / G' e8 z$ y: o, d2 M8 Y/ O
                RowBox[{"\[DifferentialD]", "x3"}],
    5 i' ?; Z# f2 H  a: u# T            RowBox[{"\[DifferentialD]", "x4"}],
    : Z# t' x7 A  {) \* f  o9 k            RowBox[{"\[DifferentialD]", "x5"}],
    ) V* ~( }- ~6 S8 u/ L            RowBox[{"\[DifferentialD]", "x6"}], # y. ]% L  V; H) b( x8 @, r
                RowBox[{"\[DifferentialD]", "x7"}], 4 A- W% N' u! D) D  s5 R
                RowBox[{"\[DifferentialD]", "x8"}],
    0 i5 j# X+ F0 j" J+ C" y            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",' O* l3 o& d) w  j7 y
    CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {8 `  l7 ?8 C" K: ~2 m" [
       3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, 8 x' `/ v( u. T5 Q" l7 W
       3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {' k% J9 m+ S* l* Z) d/ w0 p
       3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
    " V' m2 U! P" J( A   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {0 k- [$ e& |7 _$ }, J1 _
       3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
    5 P! I+ _# v% T2 l) O& M5 S$ y: `   3.577918964453125*^9}}],# ?4 @9 N. y3 k. A0 S! D
    2 e* J1 }! B" X, }6 e' k" T
    Cell[BoxData[. M5 Q* }- B% ?2 p  t: [/ G6 r- h
    RowBox[{"97.40909103400237`", " ",
    * [# E  B! F" q* a  SuperscriptBox["Delta", "8"], " ", # G! \' R! E" R# ^# J$ J, @0 l; T
      RowBox[{"If", "[", ( H7 i  B1 a; y7 o
       RowBox[{4 |  I: U$ o" h; V; R' H/ p
        RowBox[{
    0 L/ f4 K9 v6 S1 T- V" _9 O, k     RowBox[{"Re", "[",
    9 {  t. ]$ E7 ?) w      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
    ) U, h! W7 D+ D: d4 s$ K    FractionBox[) q7 T5 n& K# T
         RowBox[{"1.7724538509055159`", " ",
    + c- v1 M- L4 c4 m$ V) I      SuperscriptBox["\[ExponentialE]",
    $ l) [1 ^  G: E  W0 }9 I4 G9 a1 f: j       FractionBox["1.1102230246251565`*^-16",
    . c# j6 i8 C0 {/ d# f. ~7 i        SuperscriptBox["Delta", "2"]]]}],
    $ o) l8 W! f8 a" ]( l% C     SqrtBox[
    / i8 [' O! J1 p) N7 u      FractionBox["1",
    ) b) y, u7 O- A# B; v" t7 ^4 F       SuperscriptBox["Delta", "2"]]]], ",",
    : M0 R4 G2 e' w5 E  h7 E    RowBox[{"Integrate", "[", . R( L! ?) y. K
         RowBox[{; j1 [: p5 j  k! u
          SuperscriptBox["\[ExponentialE]",
    % U5 M8 G; j$ U% q! E( u: \       FractionBox[
    * J9 G. n1 H# S( R5 S; l        RowBox[{"1.1102230246251565`*^-16", "-", , M8 B6 f2 h* U
             RowBox[{"1.`", " ", 7 |+ r2 i& U4 ?% E
              SuperscriptBox["x9", "2"]}]}],
    ; T6 |$ Q5 g9 _        SuperscriptBox["Delta", "2"]]], ",",   X* D/ F$ U1 D$ t7 y$ E
          RowBox[{"{", * n/ k* R. u# m( Y
           RowBox[{"x9", ",",
    . w5 p: G% Q4 y( X) G        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", * L0 Y" F# j! ]& X; N' t  c
          RowBox[{"Assumptions", "\[Rule]", ! L5 N7 \1 L: h0 A
           RowBox[{  e% k% f% n( M2 l9 p4 h
            RowBox[{"Re", "[",
    * [) [/ O. n+ `1 N& ~: q9 t- e         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
    8 O. G9 d% w" v     "]"}]}], "]"}]}]], "Output",6 y. s$ Q& s) F3 U& j  E
    CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
    , G1 P0 n  H" M% ?2 u( N  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
    # h0 p1 X2 |8 n; W% D' D! Q1 h9 O. S  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
    & t2 h* F( H) F, k/ O- ]/ F" _  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9, 1 H2 q, f  [0 J& q
      3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
    4 r& g. D; ?/ [/ N4 Q: v3 U: I  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9, ! @/ U- q! S6 O# v
      3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]4 P" T( t  ^# U0 p, A  d
    }, Open  ]],
    ' y3 b$ _" j8 m, d; y. _3 y5 x# a* H: y6 j5 h% W
    Cell[CellGroupData[{
    ' u+ e& M4 j! |8 c# e) Q% ]7 L% ^; v
    Cell[BoxData[
    / F) U% i- m& K3 R# @ RowBox[{"Delta1", "=",
    # Q& g* B7 o5 v: b0 F; l8 `. \5 Y  StyleBox[
    * F7 U* P: }1 S. _. `3 b: g4 H7 J   RowBox[{"97.40909103400237`", " ", " ]* t5 ~: N6 N& U
        SuperscriptBox["Delta", "8"], "  ", ! ]* J* c& s& k' A2 [7 Q
        FractionBox[0 }/ W1 v3 \" R! X; a0 r  z
         RowBox[{"1.7724538509055159`", " ", 7 s+ k. {; z' C. o
          SuperscriptBox["\[ExponentialE]",
    / \$ U0 r5 h" n) _       FractionBox["1.1102230246251565`*^-16",
    % r' q( C& I; L' }# K3 ~% T        SuperscriptBox["Delta", "2"]]]}],
    : h0 l  b, \1 @* j! r/ e! }& ^9 S     SqrtBox[
    * k: I& R) [# @# E) A# I. W      FractionBox["1",
    ! c( d  v/ a) y- s  h7 ]7 U       SuperscriptBox["Delta", "2"]]]]}],: r- j/ x6 Q+ L9 k, U5 |, S
       FontWeight->"Plain"]}]], "Input",2 C7 R; U; e- E& D; Y
    CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {  h( l6 O- x0 a& K3 ^; w. s& y
       3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9, 5 A. \3 z; ]+ B% A- L3 L
       3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
    " D# _& N7 X: E. K$ g/ J# M   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
    ; T( e! l* U; d0 p9 q   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9}, 9 V$ u. J. [+ B! D- \
       3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],) Z* e, W% {: W3 W3 G3 w  ~

    $ z; s2 k+ A, k, s3 j( `$ f7 YCell[BoxData[
    - W. f8 Z' y/ N& ]( y FractionBox[
    / `( ]( Z( b' ]# Q/ M: J  RowBox[{"172.65311851642346`", " ",
    & t8 }' x- t/ s+ {" B' X   SuperscriptBox["Delta", "8"], " ", 5 x/ e- P; x. h1 V0 Q' _) |
       SuperscriptBox["\[ExponentialE]", , [9 \9 n7 C3 @# Y
        FractionBox["1.1102230246251565`*^-16",
    / x+ o5 }  |$ ~: l# f' K     SuperscriptBox["Delta", "2"]]]}],
    " O7 l/ X% F# K4 Q% P% ^0 p5 u  SqrtBox[
    8 F) D6 u0 M) Y+ s9 t$ \/ V6 I6 ]   FractionBox["1", 8 R4 W5 e7 q1 e) x
        SuperscriptBox["Delta", "2"]]]]], "Output",
    ! R; t4 @* ~( d( V) Q9 I CellChangeTimes->{
    : e9 s+ t7 }+ b+ y4 ~$ s: [# G" L) m  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
    ) n1 k3 p) A/ H8 y/ o- R   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9, ) l% i8 h: q5 ?% ^4 w1 H. ?- D
       3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
    ( p( C4 i% v& I. R3 Z( {. O5 h4 w   3.578012166234375*^9}]
    ! v8 m' D8 r6 ~1 Q, E: R6 b5 G}, Open  ]],
    . t1 B! [) w8 Z  N& S  S+ e( [! q+ E7 R& m
    Cell[CellGroupData[{4 n, l+ h2 v5 P3 ~) L5 z5 ?0 D1 _4 p5 F
    7 ]4 m3 J: N* N6 C6 H/ B* M
    Cell[BoxData[
    ; Q6 `" e: ?2 n/ s9 O/ i" T$ o RowBox[{"DeltaX", "=",
    * B4 Z0 G  U8 ^& B3 ?0 D% D  RowBox[{"FindRoot", "[",   p! L+ Q5 Y! M% x3 T: `* m! ?
       RowBox[{
    , C+ o8 b: @' W% R# o( |    RowBox[{"Delta1", "\[Equal]", "1"}], ",",   ]  K( o6 `8 y) E
        RowBox[{"{",
    4 X% n/ g6 U' w     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",& w! H# c- w, d  S+ Z4 P5 @/ m" _
    CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {2 }- A8 [; T7 \6 ?  m8 v
       3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, 1 o" J6 L: F- i1 S
       3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
    4 U* ]# L6 b  a1 w9 t0 i   3.57791921584375*^9}}],$ L0 M4 x2 \) m% I
    5 l# `, F4 R# b  `' z; F
    Cell[BoxData[
    6 o: @5 f( `6 t5 [' d, |/ b) t RowBox[{"{", 5 X( X* q6 N* `+ v( C
      RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
    + Z9 {: z, \3 S1 v8 N7 D CellChangeTimes->{
    5 p9 W- m; {1 ?  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9}, 6 R1 t+ ]+ F2 X! j% o( I7 {1 a! A
       3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
    & N9 s( _& i, G2 B- Z! j. G/ e' y   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9, ! e1 J; T# }$ b1 z3 F$ n: i
       3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
    * D7 e: y0 N7 Q' `   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
    5 T0 k0 g" v) C& g+ H1 M   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
    2 |9 t: }; P* O* o( D5 j3 B# y. T   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
    + K! z" l& ]  V) q   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
    ; {: u% l. ?7 t/ p" U   3.57796070150625*^9, 3.578012167703125*^9}]/ C% Z9 Y* ], @
    }, Open  ]],. I0 W! b7 E* J# \" t  k

    1 O+ N) Y8 {+ TCell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
    9 n6 J, A4 s7 c' u/ _8 j- d! C\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
    + j) u, f: }& p, v CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {4 }& ]1 e' Y- q) c. |8 a
      3.577960705312657*^9, 3.577960707621461*^9}}],
    ' U6 d3 k7 {* J, r% f
    8 a) d& @9 C/ ?- T7 Z7 N9 J( s7 KCell[CellGroupData[{
    0 }& m3 ?" k/ \4 B% P/ `4 [9 R% ?3 ?; l+ |8 F! M3 Z, ^" k
    Cell[BoxData[
    6 k9 k3 Y$ m9 e* X0 a RowBox[{"C1", "=", "Ca"}]], "Input",
    6 l  y/ {; ~0 ?  M) Y; l. q CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
    ) |; c$ v* ?" }; m' }1 p1 d2 D5 w1 b+ S# v# b$ R6 v. ~4 Y: E0 v; W4 Y. _% C5 V
    Cell[BoxData[7 A( v. R4 M; F- X$ ~! t
    RowBox[{"{",
    ! v1 l1 b! Q, \( M9 \" I) n+ }  RowBox[{* T3 V; [# k+ J3 O
      "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
    5 [1 Y: ?; L* p& ~3 N- |   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", * Q* G) Q( }( v# S7 s( h
       "0.`"}], "}"}]], "Output"," `8 K& B5 u' l, O
    CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, 8 r! X( v: s! z. S5 ~) C5 Q8 X: V
      3.577960710273465*^9, 3.5780121855*^9}]7 t  ~4 |; o) ?" ]
    }, Open  ]],, G8 f  C+ |1 K

    - d& b2 h3 N" M& d8 fCell[CellGroupData[{% g. X- Q* C+ M# h# o

    + b% ?, p% M$ A% Y+ ]3 @Cell[BoxData[
    # v: v7 R/ c5 B( y8 [; R RowBox[{"u1", "=", $ |- f+ q3 L* E$ s8 \9 d
      RowBox[{
    5 z* ?1 G. X+ R- I, D$ Z: e7 m   RowBox[{"Exp", "[",
    6 n' T  [" e/ Y% R+ Q    RowBox[{( L# T$ Z- E! K! ~% h/ M$ Y
         RowBox[{; U& d5 [3 {2 p& d5 [3 M8 @7 i
          RowBox[{"-",
    4 C8 j+ c% ~/ j) g# v, f( X       RowBox[{7 @7 H2 {+ |1 Z" Q# z3 ~3 D+ x
            RowBox[{"(", 7 v- J1 P0 m6 u. a9 E. C+ a
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 2 H& l# L) Y% ^% ?/ a7 q6 j5 `
            RowBox[{"(", ; B1 t+ @: s) l, U& p
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    $ Q) [$ s7 f* |0 T& V7 F$ t     "]"}], "/.", "DeltaX"}]}]], "Input",
    $ }0 X# D( m6 Z/ E7 M  |& E CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
    * [$ N+ o  N+ J) V$ ^+ C$ a   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
      n' d* ]1 J5 D- s* ~   3.577919193484375*^9, 3.5779192326875*^9}}],
    0 U% Q8 `, t: r0 Z; S
    ! @4 {$ n$ Q, I$ f4 ]' zCell[BoxData[
    + p  M! \) V. ^: J: k SuperscriptBox["\[ExponentialE]",
    4 S0 d  |' c+ s  RowBox[{"3.141592653589793`", " ",
    + b4 c" w$ N1 ]' i* ?   RowBox[{"(", 7 d# Z! H* v$ u$ k, T& |/ j) r
        RowBox[{
    2 w: W: L: |0 i" p3 ?% ~     RowBox[{"-", 3 p: B- R/ j9 C0 }/ D) e
          SuperscriptBox[
    % n8 [( Y3 e& z! h8 V! }" B       RowBox[{"(",
    8 m" l  e$ Z7 o6 X: [7 W        RowBox[{
    . `" o$ H' F, |+ `( o5 p4 y2 v+ E         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", % g( P# N4 V% h& ^" K
         SuperscriptBox[
    " M2 B  p) X: ]. m6 t      RowBox[{"(",
    " z# g$ q# }) T( f       RowBox[{
    8 y: i4 v: l) r7 D" S1 b$ a$ V        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
    ' l+ Q+ f- J7 s& S1 S     SuperscriptBox[
    # x$ _$ |, d1 u" J- v      RowBox[{"(",
    9 a: K, u8 w0 e  y6 f9 C       RowBox[{3 f: @1 Z7 s+ [
            RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", * ?6 C" S4 {( y& j1 n
         SuperscriptBox[" E7 q6 ?9 y' n# G2 L: R! W
          RowBox[{"(",
    2 m2 I! g4 N" R! p$ F       RowBox[{
    ) q. V2 {! T) m        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", / S; V/ L  t9 [
         SuperscriptBox[
    ! b7 [9 V# ?$ H      RowBox[{"(", * R- |: f5 y! K, V7 r" w+ D, U
           RowBox[{1 ]; f# d9 a2 Y/ S( m
            RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", 4 v( L  Q% s7 B9 z4 f* k8 C7 J
         SuperscriptBox[
    $ C/ ]0 |- ^9 p7 h6 ~; M2 d% i  u      RowBox[{"(",
    : y% u! y$ Z$ c3 `       RowBox[{
      D( e  P6 J/ ]; F        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
    4 r% [  V# U- Z     SuperscriptBox[
    * O/ R3 D$ ~& G' P      RowBox[{"(", & ?% K" x% d1 @9 p' J7 l
           RowBox[{4 F1 e  X7 g2 |' `2 [3 [
            RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    / D& x( J* U# m     SuperscriptBox[
    # o4 F) ^/ K& s( v6 u9 l      RowBox[{"(", 6 w7 d3 E8 F$ ]" u
           RowBox[{$ \- Y7 Y& _/ N
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    7 m$ ]; N; S' Y( b$ O     SuperscriptBox[) r( b) N* e- j9 ~/ I% S/ ~* t
          RowBox[{"(", 3 r/ B& C2 t) ~0 H, A/ @
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 0 x( E: m' `, i/ B
        ")"}]}]]], "Output",5 r3 N; W- B2 t  Q
    CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9, * W9 E3 W) U- [' [) S
      3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
    ; z3 G4 N) ~# |6 k, b2 @+ H2 u( l  3.578012187078125*^9}]* W7 ^5 @6 B# o' n/ T& F
    }, Open  ]],# p6 k3 S2 s4 [. ~

    " V$ D+ a2 z" F: ^Cell[CellGroupData[{
    , E2 z: V4 Z3 K( E( F1 l
    9 ]: [6 k- K1 w& `- R( _Cell[BoxData[
    % N( ]  e' ?& z, h1 U5 N- F2 q0 B RowBox[{"C2", "=", "Ca"}]], "Input",
    . e1 o4 U) _# Y- ~5 u# b! S' | CellChangeTimes->{3.57792047321875*^9}],
    / o9 A1 d* Y3 f  [- Y! N# Z) O% C
    ! |- U& K# k2 K, H) jCell[BoxData[
    $ M* J( \+ ]' l9 D; E' b RowBox[{"{", , |& ]) S8 T3 H$ K
      RowBox[{4 J+ A: E+ p& M! ?
      "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
    2 n1 Y4 A/ K' d( J- i5 Y   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
    ; Y. I% t! |* s  "}"}]], "Output",
    . X# [; g* c  U$ Y" i7 ` CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9, 1 b- D, K/ F+ [$ c8 |
      3.5779607401163173`*^9, 3.578012204671875*^9}]
    + }: E* _- t! I$ I* S8 B}, Open  ]],8 C! u: u) r9 a! `$ H
    8 y5 I. |& }5 t6 }2 n8 g* \/ j
    Cell[CellGroupData[{
    % }# {. B8 n) p: f7 r
    ' w9 i2 M8 ~# ]- i% Z% x# yCell[BoxData[! c- p1 \6 _7 T
    RowBox[{"u2", "=", + V9 |4 k" I, z8 L3 Q/ Z
      RowBox[{! P% `- p5 w1 |  q" S
       RowBox[{"Exp", "[",
    ; l1 u0 @/ I' z  L0 `3 y2 O- v    RowBox[{
    9 M8 X4 X8 J2 L: _     RowBox[{
    4 }4 R" x& ^( M3 E      RowBox[{"-", & b$ R3 g3 }. o
           RowBox[{! Q( M  @9 i  |* Y8 ?, c
            RowBox[{"(", 3 t% x) h2 F/ w1 X: q
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ( d9 d+ U. c3 I        RowBox[{"(", / Q+ Q' X, J7 z% j! Y5 V
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],+ W% A& R% z# q8 j
         "]"}], "/.", "DeltaX"}]}]], "Input",
    & W6 o5 H; B" H, p" A- r* M! K  G CellChangeTimes->{3.577920484109375*^9}],
    ; F- Z2 ]( C8 a1 l* {! G1 _  K: I: s( C5 J) i7 K
    Cell[BoxData[  m' d: r6 ?# @% G" k& s8 d, O5 g
    SuperscriptBox["\[ExponentialE]",
    $ p) ?4 ^' n1 {: s  RowBox[{"3.141592653589793`", " ", - y2 D0 N  _& e2 N: T8 p1 ?
       RowBox[{"(", , f: N9 y( s# a- v8 V: ~6 K
        RowBox[{
    ( I/ |; P% J, h0 z, @     RowBox[{"-", & M3 E1 W: C  W, \* h
          SuperscriptBox[
    . O. l# K3 F* Y! v8 F! g) @% d       RowBox[{"(", : h5 E# v4 I; @: f& k7 j% v
            RowBox[{- r7 N5 Q6 p, Q3 q9 i1 D
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", 1 P: w3 ~0 E0 z* e1 c& i
         SuperscriptBox[$ b. r& r. t, W: h; M
          RowBox[{"(",
    2 e8 C- s5 o" N5 d# y! }       RowBox[{) W4 }7 f" T- O& U# }: U+ W4 f0 s* ^
            RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
    ) d6 W8 p" v  s     SuperscriptBox[" }+ Z+ t2 b$ Q* r% Z) n7 F
          RowBox[{"(",
    * {- o, [- d6 [       RowBox[{7 y% V- P$ Q* c
            RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", ' q: U1 z! }/ K8 z2 o
         SuperscriptBox[
    6 `- H( c5 C8 S6 [0 m& q      RowBox[{"(", * T2 k0 ]! Y0 H  |
           RowBox[{
    4 ~' w* N$ u1 s4 s7 a  s6 q        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
    & E9 u- a* V3 q( K1 a     SuperscriptBox[$ S. n3 ]" l6 Z- j/ z7 D$ ~. ~( S. f
          RowBox[{"(",
    ! {! s& d7 W' x* N# x1 z9 N       RowBox[{0 s- g, ^6 j) d& F
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    , K6 d# O4 z) V  H/ L     SuperscriptBox[
    * g. U$ P! X  d1 T% ^4 H      RowBox[{"(", : ~9 M+ ?& e# Q( C
           RowBox[{
    9 v/ V) q" [: }; _. q; o; i; c        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
    , O. p0 W) l" _. p8 c/ i3 P  l: D     SuperscriptBox[
    ( _% T3 P& `; J# g. ]. E& f/ P      RowBox[{"(",
    2 \  Z3 e! ?. T6 M       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    % y1 N! F# U5 D. a0 w0 i! T# q     SuperscriptBox[
    % [2 y$ R, I' v2 Y, }      RowBox[{"(",
    & G: C% ?1 j7 A- ]       RowBox[{
    3 W7 U5 {. ~. m        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", 8 w, C$ c1 p" P: l9 i
         SuperscriptBox[
    ! N4 c3 d, u4 n( k      RowBox[{"(", 3 g* d2 Q1 z) y2 r
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ! O; K- u$ r* q
        ")"}]}]]], "Output",+ C  X# X) j! V
    CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
    ' E% z1 H/ n' i' E# N  3.5779607413955193`*^9, 3.578012205484375*^9}]' Q" ^( N; x! n/ X6 _8 V* x$ {+ H$ ^# S& \
    }, Open  ]],
    1 x; y+ D, u; Z
    / A5 ]" Y  O  Q1 Q8 n3 ZCell[CellGroupData[{
    ; O- s  B3 `: ]$ S4 E$ \: K, P
    . r& b$ Z1 B3 y0 @5 \* ?' f' [Cell[BoxData[& ~, k; N, W% }0 [& K3 H
    RowBox[{"C3", "=", "Ca"}]], "Input",
    3 W6 `" W1 m" y* C) P: ~3 ? CellChangeTimes->{3.57792064125*^9}],
    ' n3 p( A: {' M* f. o' K7 \; l2 j
    Cell[BoxData[5 s+ A) A- z, X. L
    RowBox[{"{", 4 m# d4 N7 S, Z0 D
      RowBox[{/ S' x! G" q& o- i" J' r, o) T3 b
      "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",", ) j# t" r- p4 i
       "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
    ! |  G) z3 w* ?( Y: m6 i! K; I1 S  "}"}]], "Output",
    % }2 ~. D; \" j/ q: H CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
    / G% ~+ G# a! A  3.5779607642027593`*^9, 3.5780122103125*^9}]5 M' U9 A9 u4 q; n4 t
    }, Open  ]],
    % A- P9 z: g* @) r, Q9 t  y  \8 p3 V9 ~) x
    Cell[CellGroupData[{, A1 K* S% \8 q- n1 {* P- K7 F
    ; [3 l9 X: O" E& }. l5 d, O  d
    Cell[BoxData[
    9 d$ m9 E( R2 J RowBox[{"u3", "=", 1 e* Q" `1 y/ S3 k, S% d  D
      RowBox[{
    2 f% G- A, `2 Z% z: Q# ]   RowBox[{"Exp", "[",
    7 Q- n. c6 _$ l: |  z    RowBox[{: f, P8 K' Z1 M  c2 w! {
         RowBox[{
    ) z- ?. K6 F& K2 j      RowBox[{"-", : Z+ ^# A( M$ m' `$ k; X2 Q
           RowBox[{
    8 n* P/ G( R$ |7 Z9 [' Y        RowBox[{"(",
    " c  U$ N  Q" i         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    $ y3 D) C7 t) I3 z9 |  z        RowBox[{"(", 3 X! P7 F2 a0 m( Y  \, t, `% I
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],/ A8 e8 T; W- h2 j- }. q
         "]"}], "/.", "DeltaX"}]}]], "Input",
    / O' L% u' F5 @4 s0 ~1 V CellChangeTimes->{3.57792064921875*^9}],
    , J# h  y7 ?1 U9 O
    , q" T1 }. b( KCell[BoxData[$ O" M: J5 |& ~+ N; r  r
    SuperscriptBox["\[ExponentialE]", ; L& B$ _/ v) V2 I
      RowBox[{"3.141592653589793`", " ",
    / C+ u- w/ b* R   RowBox[{"(",
    6 }/ m8 D9 Q6 w+ E  H    RowBox[{- B8 [. y3 n2 [% K8 `0 W/ ?" N
         RowBox[{"-",
    ( m9 Q/ a7 L; f3 ]0 \6 k      SuperscriptBox[% }, R+ b# |7 N* f
           RowBox[{"(",
    * k# U' _+ Z( }" b0 y- {3 ~7 v        RowBox[{
    1 U) T! q+ \( I) L* ^         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
    - V' n$ W6 i; K* q     SuperscriptBox[
    4 [  l4 Y9 z4 F  J4 p1 J      RowBox[{"(",
    / ?/ y! p- N4 A8 f! _- e- W3 V       RowBox[{- b: W' |! B4 _% o* v# P# h
            RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", " ~6 U  c/ d9 t1 t  r
         SuperscriptBox[
    ' w4 v) m$ B9 V% H' x# h      RowBox[{"(",
    # g8 ^& z9 M( Q8 f/ z- ^, x4 \& B! q       RowBox[{
    9 B2 ~* l6 X: U& L& j! p/ D- B* i        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", 5 E, v6 z4 y9 d' Y) X) o) i
         SuperscriptBox[3 T# L( o* b4 E8 e9 W- f+ d
          RowBox[{"(", ( B! I8 L# h* ~0 Q- w
           RowBox[{
    ; U* U* u9 s5 Q( O        RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", $ O7 s/ Q- J% ^
         SuperscriptBox[
    4 `6 p; j" s2 D+ |2 b8 h* r      RowBox[{"(", ' q2 O+ Y1 y+ ~7 @) `
           RowBox[{
    0 K% ]3 f- o2 D7 x        RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
    , ~7 o9 \, o% R; z7 ~7 ^     SuperscriptBox[
    * d$ D* V, W8 w$ C, P( j" }      RowBox[{"(",
    2 L9 Z) p) z- Y8 b- X       RowBox[{2 O# X/ k# R' x
            RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", ; n* B, y( J+ d# B7 W
         SuperscriptBox[/ ^4 d/ ?) ?( ]9 P* h4 [
          RowBox[{"(",
    ( ~5 A  q5 H! A% V' a& a       RowBox[{
    ; _" l' q  H$ r, U        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", . p2 n* m' u" d, v. D4 d% @6 T& f
         SuperscriptBox[
    : e* f4 s7 e& N; _      RowBox[{"(",
    ! b& D! i5 k# _1 J1 g1 n* y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    # t" i& Y: W3 K6 |$ T/ @     SuperscriptBox[
    ! X7 \9 x7 o  S      RowBox[{"(", ; x( s! x8 {8 @, J6 t" `
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    7 u& W: d3 `0 Y2 w# y. g; ~5 ?    ")"}]}]]], "Output",6 L- C7 Y1 s7 S- c0 h) @0 K
    CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9, " N6 W- u4 R' ~
      3.5779607654819613`*^9, 3.578012211515625*^9}]4 }3 {( w6 l4 \  B
    }, Open  ]],
    ) I: R. Y- a/ Z5 Z4 }( L7 J
    4 `% M  V3 b) C, H1 n% mCell[CellGroupData[{* S3 v# h' ?9 q6 U$ V$ p

    # S/ l4 [# d7 A4 y  TCell[BoxData[
    ! E5 u, {) ^! ~1 J7 n5 Q RowBox[{"C4", "=", "Ca"}]], "Input",
    8 B$ C' w7 h( l5 v$ E6 g/ y+ _ CellChangeTimes->{3.5779207559375*^9}],
    ! w1 o9 Z; e% R% E' P9 S5 }/ a; E+ _" L& w7 o% ^
    Cell[BoxData[9 t( R& K( N/ {
    RowBox[{"{", 1 J' \. e+ H' A9 ]6 E
      RowBox[{
    9 p7 h7 m5 E7 i2 A  y3 c  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",   J. |; _8 {; u  ~
       "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], . p3 x( D7 h/ a. F4 }
      "}"}]], "Output",
    , k; I# M3 @1 v9 k, Y$ u CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
    ! R; r* t- V) U( H8 P  3.5779607861363974`*^9, 3.578012216171875*^9}]/ H$ w9 u( r7 J: N4 L" l
    }, Open  ]],7 N( g. E# {2 Z2 j" j! g  w

    : w' k. q1 L: S1 m# fCell[CellGroupData[{
    4 j/ W0 n+ {3 E' g
    9 ~* M* z& J5 aCell[BoxData[  K2 I4 m) `7 N" U, q8 ]; U
    RowBox[{"u4", "=",
    ) ?) G" L  q/ S, f' B  RowBox[{  J, W$ x- N1 t, O
       RowBox[{"Exp", "[",
    7 K  M' G( ]+ y; @    RowBox[{
    - h0 q, Y" v. _' H7 w& b! n& ]% E     RowBox[{6 a- ~* l8 p) n& T/ a" M/ V
          RowBox[{"-",
    / ~! J+ @. `* T  z       RowBox[{* W+ t0 F1 G2 R4 I- O
            RowBox[{"(",
    / V8 [/ E# A& n( t) f: c. O         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 8 E6 L! P. @/ ^
            RowBox[{"(", ! e! l7 I8 c* d
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],* D# I& }! C1 ]7 X6 ^
         "]"}], "/.", "DeltaX"}]}]], "Input",
    ) X7 t& j7 x0 d- W5 `  j CellChangeTimes->{3.57792076325*^9}],
    8 ^+ f3 Z! ^. d% d) [9 h8 D8 V+ i6 G# ^+ o" o% B  [- F( v# e
    Cell[BoxData[4 k1 ~. I: b6 L4 c+ y+ i
    SuperscriptBox["\[ExponentialE]",
    2 p. U/ _1 E) h  RowBox[{"3.141592653589793`", " ", $ M0 T. w6 V& Q6 t% j
       RowBox[{"(", 4 u& c' z; O& k  F
        RowBox[{# x* r, n3 ]1 f" ]8 q- l* e& w
         RowBox[{"-",
    5 X5 _# M8 |! h1 e( ]1 D! J2 R. g      SuperscriptBox[
    ! R* {6 Z6 }" l$ ]( k# a       RowBox[{"(",
    + b! l/ |; A; B# y0 H  g        RowBox[{
    4 D; f8 N8 m/ M3 j% f5 b         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",   u/ O6 ]% \0 I" ~7 L9 }
         SuperscriptBox[9 L: Y4 X! G2 y3 z2 y
          RowBox[{"(", 7 ^% w4 D& P1 J4 D- t. |
           RowBox[{
    & K+ T* ]% w7 q1 \8 K( B* V7 F4 R% ?        RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
    , |' A( P" s# z  q* p* @$ ^     SuperscriptBox[
    1 Q& L0 X! |' m1 `$ S      RowBox[{"(", ; b0 W+ k& F, z6 L
           RowBox[{
    1 [, N, B, Q% q" w% n6 Y- q& Y4 b        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    : Y6 O+ R) z2 U1 n! q6 G     SuperscriptBox[' \' ~) v8 w1 T: L
          RowBox[{"(", : n- i# p- }" y/ I3 a5 k
           RowBox[{
    4 C8 O! L% Z0 L- P$ U        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", 1 J+ _+ Y6 D' _% V; s. Z+ o* e8 t
         SuperscriptBox[
    # F4 r0 Z) y) Y( Z; E5 I& ?4 ]3 U      RowBox[{"(", " ?3 b2 M( W! Y4 b1 P$ ?
           RowBox[{* C3 G4 m% c( W
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    ; O" A* i% m5 |: e     SuperscriptBox[
    4 H# H7 ]/ B8 W      RowBox[{"(", 4 k) Y$ r% ?) b& L0 H
           RowBox[{
    . v( y7 `% f& c. n5 e$ ^) _' g        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", $ h2 A, ~+ U' Q9 ~+ s4 W( {+ V
         SuperscriptBox[! ~% J  u0 t' x0 h( V$ B
          RowBox[{"(",
    : a% b, i7 i: B% z" b3 Z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 2 H6 w9 s  p% S% j. a
         SuperscriptBox[4 T& ?9 f& B, o
          RowBox[{"(", # P2 V  h- {8 V
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", % d% ~7 y2 J6 h
         SuperscriptBox[* B( x! ]2 J3 A) l; A
          RowBox[{"(",
    8 \& n1 J9 X  H* \2 E       RowBox[{/ q. U8 r7 s$ m( w, m  J: W6 \
            RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], 6 v/ [/ \% N7 D* _5 w( X; @" U. o
        ")"}]}]]], "Output",7 Y: _3 G' U' k  f  L
    CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
    / |2 @" k  ]7 S, \' |- \  3.5779607873531995`*^9, 3.5780122169375*^9}]
    8 w" D; q; Z" M9 P- @. ^2 b}, Open  ]],( [+ n8 Q" f. j" f
    ) Z( z6 ]- U. a5 H
    Cell[CellGroupData[{
    + d' k* C; ^8 A4 {" v9 r: U& k7 `5 R& H* Z2 G
    Cell[BoxData[$ I+ T. g* G1 N% }2 b3 M8 i8 G2 T
    RowBox[{"C5", "=", "Ca"}]], "Input",
    / d& }) W0 f7 a CellChangeTimes->{3.577920860671875*^9}],
    2 U: x; v9 P. B% q) X) U6 l/ r* j  m8 J9 ?
    Cell[BoxData[5 Q8 R; R% S: L4 c9 v
    RowBox[{"{",
    $ n: F$ y% d/ F  RowBox[{
    & N, w3 Q# R& L5 l$ h  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
    # V, a) b# ~0 F3 W9 O   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}], 1 x! c  s7 w- B- Q$ _3 [
      "}"}]], "Output",5 v8 U' m$ L# [7 R
    CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9, 8 j: u9 q8 c) h2 s( |; m# S, e9 o/ q
      3.5779608137328453`*^9, 3.5780122209375*^9}]
    . N+ A; n" e5 n2 }2 Y, u}, Open  ]],
    - E/ L; N- m2 A# g& X* l
    $ Z5 M2 U- ]9 x- U; X# q: i5 ?Cell[CellGroupData[{9 R; M. G+ ]1 M/ F( D" C. k
    9 I- G' ^# b+ t$ D( w  M- z
    Cell[BoxData[. b' x( `8 y( h, U
    RowBox[{"u5", "=",
      k% H/ w' A8 L6 b) r2 Q3 i- S  RowBox[{
    7 m  j# W) C* E( A   RowBox[{"Exp", "[", 3 I* t0 T! ?/ B+ T- r- m
        RowBox[{
    ! F; C* R$ ?- a     RowBox[{
    9 y2 G1 k; _( _      RowBox[{"-",
    " y) C9 C& x, \  v  ?       RowBox[{$ }( E% F& G5 z% a7 h
            RowBox[{"(", " b7 y) I8 d5 X3 D7 a
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ; O. z5 @9 g* C        RowBox[{"(",
    9 [3 ?1 K: Y5 @         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],2 G7 S, K* E8 l/ L- G
         "]"}], "/.", "DeltaX"}]}]], "Input",/ I% J4 Q9 r" {
    CellChangeTimes->{3.577920869375*^9}],$ H/ O! f, N& F- K% V9 M

    ! H) M3 V7 `7 q4 jCell[BoxData[7 ?' z! a4 a+ z
    SuperscriptBox["\[ExponentialE]",
    2 g! W3 d4 X9 t. V& `1 b% O  RowBox[{"3.141592653589793`", " ",
    ( h# I) u2 ~$ t& |% p+ G   RowBox[{"(",
    6 v+ q7 O3 B9 {$ B    RowBox[{
    ) j) |: o  P5 ^     RowBox[{"-",
    ! [; ^9 e4 y( U. B* S0 G2 n) }      SuperscriptBox[
    - l2 b2 B* s2 m& V       RowBox[{"(",
    5 t- u2 ~- @. r7 u4 l% p        RowBox[{
      w3 z" ^+ X0 Y' ^/ ]  o+ F         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ' K( \( X! A3 T: P6 b+ w
         SuperscriptBox[
    8 ^1 p: D8 y% N! B6 D      RowBox[{"(",
    5 g  ]; w) p$ I# u+ |       RowBox[{0 ]  c5 U0 v# H/ S- c- V$ m$ {
            RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
    ' S+ |" \/ p% Q/ {     SuperscriptBox[& ^& \5 s4 ]( J4 z. {
          RowBox[{"(", - l  o. D0 j$ h! l
           RowBox[{' W' X+ \( M; |+ ^; e
            RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", % f( m7 o( U, b" u) b+ k* [: `9 C
         SuperscriptBox[* @8 q( P4 s0 \# i9 \5 [
          RowBox[{"(",
    ! D9 I, I- c% Y4 G0 ^. H       RowBox[{$ N; y0 F% D! ]5 H2 G8 S' i  f
            RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
    ) E$ S5 }- l! L5 e     SuperscriptBox[1 w- ]! S: M9 f* j7 n! `" X  k( D
          RowBox[{"(",
    0 q) P6 R# v5 D- m* c8 {       RowBox[{
    , S: u- G! M& y3 \: g2 a        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
    * d9 h: ~) ^: D. ?: S     SuperscriptBox[
    1 r5 t& A+ W1 `- ^( d2 p      RowBox[{"(",
    " c2 R  X8 p9 N       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    % U1 {" A; C$ k! ~1 b/ V. g     SuperscriptBox[2 ]7 H/ u3 u. D' V5 {, h' C' |: h
          RowBox[{"(", 7 n$ g4 ?$ Y0 J  \) h% [5 D
           RowBox[{& l+ O' z  z  F: Q3 G, e( x
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    + D$ R: P3 m4 H) i7 v- M9 N& S     SuperscriptBox[: n7 g2 m, N+ [, I: J; p" \; n
          RowBox[{"(",
    ' u- L2 _5 r% O% `+ q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", - k, X% `& a+ l) E0 c
         SuperscriptBox[
    5 ~; g2 s! ^& I3 \+ K      RowBox[{"(",
    ; `  a6 A5 C% Y) _( |' ~! g( c6 w' m       RowBox[{, E: D/ c) I) [( d/ F! h; k
            RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
    1 p% p$ v! \8 B$ e$ V* [% u    ")"}]}]]], "Output",
    3 e1 h" q( g% _( o2 G0 ~ CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
    - I& o0 u5 B' X$ F  3.577960815043248*^9, 3.578012221953125*^9}]
    4 c/ {# P' W9 P& l}, Open  ]],
    9 K8 }; r! }' B) }& }) }4 ?  o- z6 M" x
    Cell[CellGroupData[{8 r- ^! ?0 o, ]9 W, ?+ c7 W
    % g/ C8 h" z$ a6 @0 G
    Cell[BoxData[
    $ C% H9 U. V" y0 J) s RowBox[{"C6", "=", "Ca"}]], "Input",8 s8 a  G3 V+ P" m0 ?& X3 R/ ?
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],! p; v5 y$ R6 J, s. V9 d

    2 V2 o. M+ [" N: Y! [Cell[BoxData[
    2 r1 n: ]  f% W) |+ S1 U RowBox[{"{", 1 Z: T" e, V; Z
      RowBox[{
    0 J( H) b$ p( @  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", $ h! P6 a) ^; }0 r5 H3 X- x
       "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
    & B  ~& u8 E' }" b* }. l4 r4 d2 d. L   "0.494866`"}], "}"}]], "Output",
    6 T) i- Z  Y7 x) g% I& H9 ] CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,9 q7 {9 z- J# I# }+ \6 I
       3.5779608373044868`*^9, 3.578012227359375*^9}]/ k# L2 T* D$ n9 O" h8 g
    }, Open  ]],
    ( l4 S5 Q, ]4 d4 q. I
    / T8 }3 w2 w8 @. c7 y  q$ ^Cell[CellGroupData[{
    5 K; @6 w1 R( ?& P
    0 y' E$ H' |" T9 NCell[BoxData[7 c* ?' l. ^" T  r. G) Y& y
    RowBox[{"u6", "=", ' ]6 R2 ?& W4 t8 C' g( b" Y
      RowBox[{
    9 b, D) D! C; n  a& w) _   RowBox[{"Exp", "[",
    3 ]. F$ p% U' \9 h) q# X1 q+ u9 \    RowBox[{0 e# _* \, s/ o# _" i
         RowBox[{! J! @- _' L, y* m/ [0 x) ?
          RowBox[{"-", 8 @7 e  L/ q2 v# e! p
           RowBox[{' h& }! V8 r/ H9 B6 }6 J& G$ O1 L
            RowBox[{"(", ) l$ K, E# v$ H, Z* v0 ~( f1 W
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    $ m: F2 [4 ^% l' \        RowBox[{"(",
    * X; x! s$ S5 j* k1 {4 u         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],6 @9 A; A* J  t/ Z3 v
         "]"}], "/.", "DeltaX"}]}]], "Input",
    % Z& r' |  i6 }! q' o CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}]," G. Z  O0 L' u$ ~- w0 _
    1 r- d6 U2 \0 Y2 a- m8 n+ {3 ?
    Cell[BoxData[( ^' W2 i0 @% D1 W
    SuperscriptBox["\[ExponentialE]", , q$ q) G; E. _3 T  h
      RowBox[{"3.141592653589793`", " ",   f" E* Y$ y/ K% {6 Y: G/ h
       RowBox[{"(",
    7 r+ x! Z' H0 }( f0 p+ t0 V    RowBox[{2 {: N$ a" \! A' N9 x# E) n9 A- n
         RowBox[{"-", , p2 r3 U9 r2 t! a2 \, {/ J7 C, D
          SuperscriptBox[
    2 E2 B# H0 h7 ^7 `5 ~; K       RowBox[{"(", " N# L; \, H( Z0 X
            RowBox[{4 G+ r' I$ a8 V; p
             RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", ) \1 I2 u! B  K2 r) u: w
         SuperscriptBox[0 U" N/ O4 ~; o0 d" `" w+ |
          RowBox[{"(",
    * c4 \* w9 R( W9 B1 W: u  e; i       RowBox[{
    4 w  ]8 a# j' [1 L( L: h        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
    & g7 z2 _; J6 W& |+ g5 A3 S     SuperscriptBox[
    & {2 h7 i! X7 H+ }- q' [      RowBox[{"(",
    ' _/ ]' f' i8 Z0 s- t- ]$ @1 D# A       RowBox[{; M$ A2 W7 U2 j
            RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", / q9 ?$ A* I$ }: O) ~
         SuperscriptBox[6 K  x4 P& s& Y* ]- G4 b6 N+ T
          RowBox[{"(",
    + K. w9 ]9 y/ R* E3 @3 ]       RowBox[{( e- v, ^+ B& w" d: r* |, Z+ z
            RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
      ^4 h+ N5 q- T2 c% J' g2 t     SuperscriptBox[
    6 N; ~! ^- \+ F( A  @      RowBox[{"(",
    3 z/ f# @- U( r$ _0 @       RowBox[{
    $ s0 t* g0 H' M: ^/ _" g, i2 j' S        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
    : u+ j  ?6 m+ r, B- ~8 Y+ N( I  F     SuperscriptBox[% S; V+ g9 Q' W1 L' d- l. i" G' T
          RowBox[{"(", " p5 O2 i0 W) s3 S6 r% K
           RowBox[{( V2 n. ~$ |/ T0 d# S
            RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", & t0 R7 E1 f7 d! d
         SuperscriptBox[' A, E2 i$ i) n+ u& P
          RowBox[{"(",
    - X5 d: X# Z% M# F, A) [: q       RowBox[{
    3 V) ^0 n, F7 q% L2 Y* j# k* [        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    7 G. i# [+ U3 W' k- H/ K4 F     SuperscriptBox[
    / \1 R. h* k8 B- T% {/ v; n      RowBox[{"(",
    5 q- K, v4 q- i0 Q: z: h; x       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    1 X' L) F0 n! s. f+ N, f- e     SuperscriptBox[, v" F4 }( P+ [# X2 |( M
          RowBox[{"(", # R! c+ w0 a: t) z
           RowBox[{
    * q7 m. g, k. d5 {) l        RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], 9 Y  J, y+ ?/ g+ ^
        ")"}]}]]], "Output",8 G6 w) r7 |+ ~' A' |
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 6 C* {- ]' M1 W) y
      3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]3 w6 U: Z; ~, u3 O, T$ Y
    }, Open  ]],) X. f% b0 h" M  G
    ' e% O7 M# m  j* |, t( l
    Cell[CellGroupData[{8 Q4 Q5 H( G' g& \1 O3 Q
    & s2 |  C+ q/ b1 n
    Cell[BoxData[' T9 Q( S' i7 m8 e8 D6 N5 d' L. N
    RowBox[{"C7", "=", "Ca"}]], "Input",
    * i+ V. H" y6 s$ u CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, : M9 b) T* z/ u6 |# C) `3 d
      3.577921316125*^9}],, B! o# e; \7 @- m& s8 }
    5 Z  a! u# e' y0 R. L: S, Y" @
    Cell[BoxData[
    3 S8 i6 v7 g/ w; A# _: Z RowBox[{"{", ! r7 X/ l/ c! ?! X; Y
      RowBox[{8 r3 A0 J& U+ h9 k
      "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
    & G5 f1 b: I( [0 B4 T   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
    ) ~, F. W0 @6 g7 `' r  "}"}]], "Output",2 @( ]2 x$ b- F2 X4 Y
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 7 Z& u. F) [* N  ^+ d  n
      3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
    6 ~; u: Q' j; H: k! {}, Open  ]],
    # F8 j5 _$ ^4 k9 M+ ?2 ?0 _' U6 F" X* H5 d# U4 b
    Cell[CellGroupData[{
    : ^7 R* k3 ~6 H+ @0 [! A/ x: v8 Y% G. @) ]  |) Z) O
    Cell[BoxData[3 W" `( B: X! s" O" E, O6 z* B
    RowBox[{"u7", "=",
    ( n2 G& a4 v  N5 b  RowBox[{' M. ^1 |5 V% ^2 _% b- L& q
       RowBox[{"Exp", "[",
    3 ~2 s( w, W1 ?+ L2 C2 Z& i; q    RowBox[{4 ]9 C& f6 T( u8 d. a6 \8 B; L" ]
         RowBox[{% h) H, \) h* e/ R
          RowBox[{"-",
    0 G- N! m( S2 L* ?- U3 V- x0 f4 R0 A9 |% V       RowBox[{
    1 m  T9 g  j0 |) h4 K  h. C2 a        RowBox[{"(", # C0 V0 H. _. A% _  K# v
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", " X& `1 t; n/ a4 A: m+ f* I' g7 D6 Y
            RowBox[{"(",
    5 ~$ B& L+ e- A3 H; Y         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ; h; z+ `4 P9 \7 v# ]/ i& M     "]"}], "/.", "DeltaX"}]}]], "Input",
    8 m: o% l% E- j" H: K* V! r CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    ) X' `6 |* v2 K2 A/ c9 u  s  3.57792132028125*^9}],
    9 |! T0 u/ K8 N& G& f
    7 `) o" Q  d  j5 y9 e  L* d/ q8 Q- CCell[BoxData[# o* U- u1 M8 X
    SuperscriptBox["\[ExponentialE]", : {+ Z: N4 u! U( Q7 K- V
      RowBox[{"3.141592653589793`", " ", 8 l- |- x$ }* r# A" @
       RowBox[{"(", 7 i& ^& j! Q4 w# H
        RowBox[{
    8 r8 t, r* C# ]2 w' D$ j$ l  [" L5 c     RowBox[{"-", ; G# }8 L+ f% k7 K
          SuperscriptBox[
    , d3 G. y- {) \# Y       RowBox[{"(",
    + H8 L; c, `& ?' P0 S9 k        RowBox[{
    $ S- E) r7 s8 S         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
    2 {+ V) C2 I; Q, U/ q     SuperscriptBox[4 t, k8 j: k6 d  q3 \3 u* m( {
          RowBox[{"(",
    : Q* u1 f' h- n       RowBox[{
    . F0 c! M. f2 g) B; V        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", + c$ \' \& C! j
         SuperscriptBox[* f9 ?3 m8 s( B- r
          RowBox[{"(",
    6 A6 _6 |% ], n! R       RowBox[{% p' N; [7 s5 p4 _; ?
            RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", 0 }; ^4 s7 U. H# v( S' e$ o
         SuperscriptBox[) F- C& S7 d* l! P4 K  F  @& }# Y9 J
          RowBox[{"(", & }8 N2 s8 `& r
           RowBox[{
    2 k7 Z7 o. \' f: _: ]- |! y9 a8 g        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
    1 G% p; S6 k* f, ^* Y; I7 R     SuperscriptBox[9 H% r! e$ E/ [6 M& `0 f, x, ]( E
          RowBox[{"(",
    $ |; i7 A5 T8 a* U6 L       RowBox[{
      A8 y! }. f. J5 k+ ^! E, s        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    # X* Y$ [) I# X! X" i% h  X     SuperscriptBox[
    + p0 F6 Z4 b7 [& e      RowBox[{"(", & I) I% @' K& {- ^8 n3 s5 C3 u8 Q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    $ z8 X3 G  ?8 D: X" g' |     SuperscriptBox[
    1 F* J( |8 {4 G, u4 i5 y) b      RowBox[{"(", 3 W  F9 f- `" ]' p2 U) e9 {# `5 I
           RowBox[{
    + V. l* z. e# d% F: ]% f9 q        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    % L( G! Y3 g  A6 D: m* \: R     SuperscriptBox[
    6 `' N: l2 K' E" g      RowBox[{"(",
      A# ]% U" p* M3 x+ y" {       RowBox[{8 _( y" F0 N" q# b1 h
            RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", & r1 T9 c) U& v- u, ^$ H% z
         SuperscriptBox[
    - r0 a: h; i$ I8 K( T      RowBox[{"(", 4 V. U3 k5 n: d# s1 d' L$ W, \
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], + U( {% H1 H8 v( @* ]5 J
        ")"}]}]]], "Output",
    & x6 M! W$ G7 \ CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, " [3 N. w" _4 S' u8 x
      3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, 0 B+ \2 a; O, B% ]- P
      3.578012251359375*^9}]! K" n1 ]& \# Y2 M
    }, Open  ]],
    % c2 Y: N7 {" p+ t5 p+ Q0 R
    ' X; P/ l% o; y0 TCell[CellGroupData[{
    2 _, @# N6 }0 J- u4 l8 o& k
    % q' c+ |  ]; F( n0 v, c* p# rCell[BoxData[. G3 t) h/ k+ S+ q
    RowBox[{"C8", "=", "Ca"}]], "Input",
    : E. {1 @; G* s# i3 E: h" ] CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 9 L- j( _. k4 E' w
      3.577921316125*^9, 3.57792141421875*^9}],
    ' q# X5 s% z: l! W& @" A+ \; Z$ z+ U- r$ Z- ?5 A$ n
    Cell[BoxData[: h4 ^+ `; z* F; F. x" }7 x! |
    RowBox[{"{",
    $ D0 ~+ K2 s; l& B; ^  RowBox[{
    6 L- D( H, G( `6 e+ V- i  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
    7 A/ t3 f$ T4 R' |: w) {   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
    9 j7 y' O/ m; w- W! V  "}"}]], "Output",  A6 I' X; \1 f( f& q  e
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    . |2 b1 s5 c6 q* |5 K$ h% j  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
    & s3 t7 h2 q" O9 ?  \' B5 E  3.578012260515625*^9}]
    / [, Q2 W3 j6 U' H+ l# [}, Open  ]],
    2 }3 t5 T4 C9 o
    * j) e) n2 Z( R# O0 C3 SCell[CellGroupData[{
    ' X  \  p1 Q  j9 t9 A/ `0 d( k6 C; M6 B' ]
    Cell[BoxData[
    % N& O8 ~( y# {, c+ \ RowBox[{"u8", "=", ) ~+ a" Q1 P6 }! b
      RowBox[{6 }" p0 ~9 j( L. }8 }
       RowBox[{"Exp", "[", ' C0 O4 ^) V% L( N
        RowBox[{% }- r2 M" @% H/ n  s
         RowBox[{0 M$ [4 ]0 v/ Q2 K* z8 Q
          RowBox[{"-",
    2 K$ I: }, `0 b# B  P" D       RowBox[{/ U( `5 [4 w- A; K3 ^
            RowBox[{"(", : A/ P2 j" ]- k
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    - ?5 }- k& U7 a5 H# o        RowBox[{"(",
      J% K( o8 [" H/ U5 e         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    5 O7 b3 C* y1 y4 J, i/ M8 q     "]"}], "/.", "DeltaX"}]}]], "Input",7 J# J( t& z8 v3 ]- e# D* c5 l
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, ( d; o1 v. Q* e/ D9 g1 A# S
      3.57792132028125*^9, 3.577921416921875*^9}],$ w5 A* l) e- g  U
    - w% Q! n* I: W0 |7 H- H
    Cell[BoxData[( n1 l2 v/ }: {! ?* b1 }8 |
    SuperscriptBox["\[ExponentialE]",
    % G5 T4 F2 h# H3 ]9 f( }) c  RowBox[{"3.141592653589793`", " ",
    ) k5 N+ C- c! N4 ~, N5 C   RowBox[{"(",
    " O: ]6 v0 A1 N5 x& y3 m0 k    RowBox[{
    6 q! v& D* D5 P, P  l( V! ]8 I" S     RowBox[{"-",
    9 B, ~/ P! W: t6 N. A! z      SuperscriptBox[2 T( v: T. C& j, T% J8 F/ z* Y. I3 g( U
           RowBox[{"(", 4 {* `% z) n% T. o& f9 r& u
            RowBox[{
    6 @5 g& y/ D) o0 T1 _  Q* T         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", 2 r5 L- U8 j" b4 q  H$ h( F" V
         SuperscriptBox[- e4 g4 T& ~9 d' q
          RowBox[{"(",
    7 X/ o: v5 K3 p       RowBox[{& ?& V# m$ f5 H3 O* ^4 r+ @1 e
            RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", 5 `* E! F; ^8 o8 o1 R4 j$ O- O( n' T
         SuperscriptBox[0 M: B2 U/ h, r0 d/ W
          RowBox[{"(", # V5 ], K7 q0 p- A8 C
           RowBox[{
    % f( }" g" e  {% B8 C& `        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
    2 J1 c3 L  Z3 E. D1 F/ g     SuperscriptBox[2 q+ X$ T, B6 z* D) {! D
          RowBox[{"(",
    9 u, d% r# Y( z+ f. w0 k       RowBox[{
    ; l- P2 }8 G3 y$ M1 B2 B        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-", ! a3 v9 d  F  r6 i* R$ g
         SuperscriptBox[
    2 c; U4 S- d( X' L' v      RowBox[{"(", % M/ }% J4 Q! h2 Y, L8 C& E
           RowBox[{
    3 v1 ]6 ?' q) R! @* d& G) I. w        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
    7 L6 [- B; J0 x9 B- o     SuperscriptBox[! e* \. t+ r" ^
          RowBox[{"(",
    4 M( _) d! n1 f6 b7 P+ i       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    3 \' f# H/ j, d/ h9 K     SuperscriptBox[9 L% {! q8 i& f  ^
          RowBox[{"(", 0 y6 p( G* p0 u; _/ W4 p
           RowBox[{
    4 M; Z# J' }) g0 D        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
    3 r/ U0 i% i2 t- F/ Y     SuperscriptBox[% c' m! K% P2 f2 M
          RowBox[{"(",
    ' J/ p- |5 ~* Q" D' M       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", $ H3 o* I5 }) j0 M
         SuperscriptBox[
    # P. e7 h+ P0 F6 u      RowBox[{"(",
    * J4 j2 }, S. x  {  f( L       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    5 I: s- H1 v7 \% _* g( h    ")"}]}]]], "Output",% e( g* x( R: d( I' d) b" h
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    ) d& i  P# m( A" {6 w! o) y1 k  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
    * @% F, R( {# t3 x9 X  b; x  3.5779608945565863`*^9, 3.57801226165625*^9}]4 P; j6 C( t7 `! t: t8 n
    }, Open  ]],! j* ]' Z1 n* Y. h! j0 J
    ) d8 m4 ?; t, u* {4 e2 L% A
    Cell[CellGroupData[{+ Y3 l, w: q& m- o. h, e

    ' D% n( {- o, g" N( o5 YCell[BoxData[
    2 w+ t* g6 Y8 y8 `) B; d# x  ` RowBox[{"C9", "=", "Ca"}]], "Input",
    9 F9 J8 J9 A% ~  v7 | CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    " {  F6 q! L5 `3 C/ U  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}]," O, W+ C' ?+ W% M9 T
    , \( m0 K" E- m5 o' W5 b" U
    Cell[BoxData[; U! Y" Y9 u) v4 U4 z, x" V
    RowBox[{"{",
    : I7 S5 T' B3 D/ C  ]" F6 q2 v  RowBox[{  J* F4 g- c7 g
      "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
    8 `7 {. q: A1 g6 Q2 v: G8 n2 a   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], ! H! Q) E& Y6 \# b$ M, U' {* f) x
      "}"}]], "Output",
    9 l, ~" B. b% \% ?" P5 M  _ CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, ( U, H0 k) L0 x0 Q" H
      3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, 7 y! c& ~! X% S! z
      3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
    & D& q5 [4 l1 D0 [* L  3.578012268234375*^9}]  f( n: Y# H- W6 }2 n: p/ I
    }, Open  ]],. C) E! f) i* J

    : U4 I. Z% w4 w" Z5 }) o& JCell[CellGroupData[{# k" q% L8 t" P, ?/ f: t9 K& \2 R
    : G8 F  m5 i0 v/ Y
    Cell[BoxData[
    . S' v5 |" \2 M% k8 T* {7 i4 T RowBox[{"u9", "=", 9 k: V  `  c. F7 Q& D* A$ y
      RowBox[{
    9 e: x: @. G" i4 Z6 e% s2 f, [   RowBox[{"Exp", "[", 4 I: V! j" u. o6 p4 ?2 S' ~, m
        RowBox[{: z2 M" w0 x3 G8 D5 Y
         RowBox[{
    1 m. ~. G2 Y: Z! _' y      RowBox[{"-",
    8 U5 O* O/ U( P       RowBox[{8 H# P; p3 `6 K9 K+ d; Q  ]4 p
            RowBox[{"(", + i: V: M( U8 n$ c9 H1 p6 p
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ! a" O2 N! S$ A4 G& x' {        RowBox[{"(", 5 [8 ~, _* U* k4 g, j
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],, f: O0 }! q, U( B; L  t; v
         "]"}], "/.", "DeltaX"}]}]], "Input",0 b) ^! Z6 ~+ e& p4 q
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    ' c) R7 D4 I# J  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],' a! ]% G9 x/ ^
    3 T* a% Y2 r* |
    Cell[BoxData[
    9 p& a) f4 ]1 g0 q4 C SuperscriptBox["\[ExponentialE]",
    9 b1 G8 ^: Z; h8 `. r& G  RowBox[{"3.141592653589793`", " ",
    / L% t, S6 |: J$ ?   RowBox[{"(", ! c1 Y) l0 u; {2 M& I3 L
        RowBox[{
    ( @: X7 I0 w& m% `9 o     RowBox[{"-",
    / \- d$ V: X: Q      SuperscriptBox[
    ! r3 \, B, i7 q% a1 D       RowBox[{"(",
    6 Y9 F* L" A. n* q! r        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", 6 m/ s8 c3 ^* }. p% d" F
         SuperscriptBox[
    ) K$ o. p! ~+ i7 |: f1 C7 b      RowBox[{"(",
    / U& |1 a# K0 K' ~9 n, o       RowBox[{- i- M) s5 A0 y' L' ?& l- {
            RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", ' k" i4 g* f- [5 w; a
         SuperscriptBox[
    ( L- n& }  W/ Z; p      RowBox[{"(",
    4 q9 i9 x) `+ ?+ w       RowBox[{9 L" M2 ~: ]/ Q7 H2 P
            RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    - ^/ E; O( {: I$ J: F     SuperscriptBox[
    8 `) ~  Z& t* @% Q2 b8 K. }0 r      RowBox[{"(",
    - s4 w/ d+ ?3 n       RowBox[{' X1 e5 d) y$ \8 h
            RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", + m$ y! R8 F$ W& E6 b5 G
         SuperscriptBox[" S/ w  A  C8 G8 k2 ^
          RowBox[{"(", 5 @" g0 N, y6 K: C) {
           RowBox[{
    , G, n+ {; q/ V) ^8 m        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", ! @. Q( ]3 t0 e" a& ~0 ]* `
         SuperscriptBox[$ W$ n" n1 k- r# p1 j
          RowBox[{"(",
    / o% f- t% f# {! C+ r       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 3 J) S% ^; ?* D' H# k$ f
         SuperscriptBox[0 O' h4 u% H- a  G" j5 a- v8 ?, G
          RowBox[{"(",
    2 f# m5 K! g5 w       RowBox[{( @4 K" J; C# i( q& H# Z
            RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    , F* y; @5 P- Z* y6 Y8 `* W     SuperscriptBox[
    % e; t! N6 R6 D- j0 i, |      RowBox[{"(",
    * G0 g) Z; Y$ O* |" V8 @; b8 m       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", / X5 y( D) q0 T6 c4 @' Y0 a0 M
         SuperscriptBox[4 R+ ]! j2 _' {. [* @
          RowBox[{"(", 8 Z* N  Y+ U! K. G
           RowBox[{6 {  Q: g# k( t; W3 ?
            RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
    ( B, Y: X- ~, t. l: `    ")"}]}]]], "Output",$ r5 a9 J$ ^. E, ^
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    0 V9 A2 S+ Y4 [3 n/ r  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9, ; _; _! c) h" @# }8 y: e6 k0 N  K6 o- R
      3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
    8 j" f2 T1 g/ {  3.577961530421959*^9, 3.578012269125*^9}]
    % x) w; I% j2 `3 q, y) t: L}, Open  ]],
    4 l  l) q9 k" D2 L  e/ U" I- a1 \% Q0 A+ P8 p2 ~, T+ q
    Cell[CellGroupData[{
    - n, A, \  J" i* R# ~$ f
    / r1 X7 ^1 a& m9 B' M# Z" sCell[BoxData[{
    ! u  R# [3 x0 S9 t$ B: k RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
    0 Z& \& X4 k5 H RowBox[{"u10", "=",
    1 b# i8 T% x: ?# r  RowBox[{; ]  [) y2 t- _( z' Y6 H! ~- }4 W% C
       RowBox[{"Exp", "[", " m! m9 }1 ~$ f" @% P
        RowBox[{
    6 S5 q! y; _+ |* y4 N- u     RowBox[{. _0 R* B' d2 o" j% ^2 Y" d
          RowBox[{"-",
    2 @8 b: M: L; y8 ?" }       RowBox[{
    + J& ?$ \/ V4 G% Y" T7 s0 v        RowBox[{"(",
    / b9 F, I) X% a         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", " g& Z3 q% D& w  I4 d8 B
            RowBox[{"(",
    5 ?, h  R2 p: D& o5 E2 _1 L         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    8 B3 A# G& R; q9 U' v, ?     "]"}], "/.", "DeltaX"}]}]}], "Input",
    / f; f7 Y( [( y; T CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],; M# R5 u6 Q2 N6 Q. q
    & F) X  E6 T' p! }' w$ t/ t# P
    Cell[BoxData[% w& y9 u1 O! F( o
    RowBox[{"{", 3 [( w/ W9 m6 h! G. b
      RowBox[{  H' L" ~/ Q' O1 j: N$ ^2 `5 ^7 _
      "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", : }; V& y8 W% U' Q
       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",' j- J  K# U' `! W% A7 W8 `) L
    CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
    6 u- j' f' r9 P  L. e3 U$ U/ o: K0 a
    Cell[BoxData[
    . i. f2 O" X4 y1 s  P SuperscriptBox["\[ExponentialE]", : l5 l4 J- ~3 r
      RowBox[{"3.141592653589793`", " ", # ?9 l) W# B0 o+ G
       RowBox[{"(", 1 ?, N/ ~, I8 M: ]
        RowBox[{
    4 z* M" Z" h9 I6 }- R1 H4 Z+ [% B5 r7 p     RowBox[{"-",
    # |. R+ i; b* u; x+ u1 \4 B# @; m: h      SuperscriptBox[4 H. A; Q/ g! a
           RowBox[{"(",
    ; H' N7 [' n& l. f# B# m        RowBox[{* M( y( R$ ~3 W% i% [
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    / ~: Z% j4 U; c. u! j! L0 [     SuperscriptBox[
    + m6 A; F5 Q0 S; N% q      RowBox[{"(",
    ) v8 A6 C6 ~2 E# w3 k' k5 f; N       RowBox[{, j; ?; z# A0 a. U# D+ I8 k; _
            RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
    : D) }' y, p5 |7 e& K8 H8 @     SuperscriptBox[; F0 E/ \! g& y3 ^" k
          RowBox[{"(",
    . j& R8 N8 V9 S- m( V       RowBox[{
    , f8 v" I1 [5 [2 P$ |        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", 2 N4 K8 M% d6 ]- z4 P
         SuperscriptBox[+ ]) g& w: c1 E) {" S
          RowBox[{"(", 5 P+ f% g3 Z1 y4 p; T7 s4 s% j  b
           RowBox[{
    + w$ ^% m' \% \        RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
    5 S6 z5 c  G' I# c- q6 T1 o' h     SuperscriptBox[1 f8 c8 ~7 ?* K, x7 C) Y$ h! [# ~
          RowBox[{"(",
    8 O3 p1 @2 R; O       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", : `7 f5 {- f0 b8 }, z$ k
         SuperscriptBox[
    * f, G4 C( A0 t& X* Q  `      RowBox[{"(",
    $ z! I. e" M6 o5 O: w       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 1 U. i# N# ^( R
         SuperscriptBox[8 W( ?( ~# c$ q: m& X
          RowBox[{"(", : H0 t& ?- F2 w# J' x9 C) I
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", : e, ~  a3 E9 y" T+ ]- T6 p2 S
         SuperscriptBox[
      M1 _8 _6 q- F% }. r0 x      RowBox[{"(",
    - p9 `+ L" z* b3 O$ Q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    , }0 C) W! `, h; F9 G( b5 e% Q( f     SuperscriptBox[! G/ E! X1 }9 i; R0 r2 B3 `
          RowBox[{"(", * k/ r+ N: k( e. \2 ]9 a; [* U
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    - ~) ]* R8 Y- H9 i    ")"}]}]]], "Output",! S0 g1 I! Q) j6 }: s$ ]& C: P
    CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
    % ^' m2 D" P' B8 M}, Open  ]],# D3 {8 R! Y& n

    ! T; s- e& b2 E) U$ bCell[CellGroupData[{
    8 J$ S8 D4 C; H& G2 u& b. r/ C$ e- ~, W8 @4 X' R
    Cell[BoxData[{$ k, J8 E2 N; W7 c) j
    RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", % {7 T6 Q1 A* `& b/ C; `9 ?
    RowBox[{"u11", "=", ) E; J) n- r: R
      RowBox[{* Y+ B$ Q' h3 t1 A" W1 h# {7 h
       RowBox[{"Exp", "[", 8 l# K' u5 j3 v7 g
        RowBox[{1 h( R; q8 o. a( y, G
         RowBox[{7 I6 o- ~! {4 Y/ w
          RowBox[{"-", . q% V! z' j/ s5 ^+ y/ K0 a! ^1 U
           RowBox[{
    4 k; E  K% A; y) w4 p7 p        RowBox[{"(", 6 h3 y$ j+ a7 k- s( o  G
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 6 ]' y3 g2 F3 h* M
            RowBox[{"(",
    * L& c4 W8 W, x1 d& j% `         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],: x0 a; {& |& V& W  s6 H
         "]"}], "/.", "DeltaX"}]}]}], "Input",( s8 i2 r+ r$ |# E8 o1 m8 F
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {1 U' P/ U2 O+ W  b$ }7 C9 v- i3 T
      3.57796154237158*^9, 3.5779615434011817`*^9}}]," p. R1 y; F! r
    3 C7 y& a0 X8 L6 c2 F. e
    Cell[BoxData[- b; ?7 c% z0 U! y1 E
    RowBox[{"{", / }; p! }. G- G8 N9 }# k, P, \
      RowBox[{% t+ J! j/ t& v% i- {' x5 A
      "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", " T3 j+ S$ a' y' X! r, d( r
       "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], $ i2 N5 t, n* w0 l- i
      "}"}]], "Output",4 s: h$ X, L& U+ a2 l2 ^
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    + F/ `# O  `* l9 P5 Z  3.57801228203125*^9}],
    7 v9 W+ \- W6 @/ ?6 a; Z4 w! f7 \5 T# s: F6 @
    Cell[BoxData[
    " M: u4 y6 q6 n" r9 D: c' x$ e8 o4 ~ SuperscriptBox["\[ExponentialE]",
    2 z. P% V2 M7 o" \2 j  RowBox[{"3.141592653589793`", " ",
    * Q( Z; A. ^- {* [  O$ b# E; q) ]   RowBox[{"(",
    + p4 i) S) E8 x2 `: ?    RowBox[{2 {( _) ?. x/ m( ^% m, V% l
         RowBox[{"-", # o1 n0 V0 @3 Q
          SuperscriptBox[+ r# t, I. s* x3 t) A
           RowBox[{"(",
    7 X: R9 z8 R4 [+ I* P8 W        RowBox[{
    * q" O; [; f5 \" l9 `6 L         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
    & X9 S: H2 C+ U8 O- K) @* J     SuperscriptBox[$ {7 J4 Y8 C# ~* ?9 B. T) c
          RowBox[{"(", * f" j' n: _9 h  H/ n- f" n
           RowBox[{$ K+ P5 a, r! w  d. o
            RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", 5 r, ]% s  B& Z, K* {
         SuperscriptBox[
    8 F1 W! Q, ]/ m      RowBox[{"(",
    " h7 Z  @2 V% L) \  D- R       RowBox[{
    - H$ d/ M2 {% }        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",   b4 K  Z9 M; w- Q) ]4 E" V, Y
         SuperscriptBox[) I5 G, s+ ~4 ^- m. T* B8 Z6 e
          RowBox[{"(",
    3 S: ~' v# P  x' j: B, d       RowBox[{
    6 ?; l: R) B5 g  v( E  G% _- g' b        RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
    & }/ ]- v: E7 e     SuperscriptBox[
    0 Y6 I: `. @) L5 ]5 ^      RowBox[{"(",
    ) L1 }( E$ e' n# y. N2 a4 U: Y% z       RowBox[{
    4 V; m' K  `1 y; g4 K        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", % W( Q( ]/ H% k+ E7 O
         SuperscriptBox[
    1 a0 N4 ^! q4 f0 n: u) P) b      RowBox[{"(",
    ' K& @, `0 k9 B) q8 F1 V4 S       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 4 N2 y1 [% H6 X- v* x, }
         SuperscriptBox[
    1 |% z1 O1 Q0 q7 |0 J, u      RowBox[{"(",
    ' T3 p/ f& J& O+ e; j: N       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    % K! A# f# n/ I9 J     SuperscriptBox[
    5 p6 l& T# o7 X6 C7 B$ h  O% @3 @" {; q      RowBox[{"(", 9 s/ W& _! p- [8 |( S; ^, b
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ( K9 `9 {5 U. H8 x. N
         SuperscriptBox[
    ; D+ H) {. A* _9 c9 g5 k8 C      RowBox[{"(",
    - N* D& F  T7 g3 g, }- U- g       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    6 b7 E3 H+ }0 i- Y& ~    ")"}]}]]], "Output",' ^, D* R! f) Q- S; P) |
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    6 K1 r0 A& N* G5 V  3.57801228203125*^9}]3 \- D; ]7 o6 t; B" ?
    }, Open  ]],% Y& U% J( B* ^% U* b: s1 s
    $ X! U+ C% g- g
    Cell[CellGroupData[{* b. [, x/ p7 D' z9 i

    ' P* O2 }8 z' p  @* h& v) fCell[BoxData[{6 ~* c* U. y/ `% ^
    RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]", 2 C# j# j) k/ |" A$ W
    RowBox[{"u12", "=",
    2 K% h2 r$ w7 O( C  RowBox[{
    + y# D- J& U5 G: t   RowBox[{"Exp", "[", " n( n7 u% Q2 |$ z% w
        RowBox[{
    % b) E- H0 g/ M, _# \3 y     RowBox[{
    1 ?/ V) T% Y5 Q! S: s6 {      RowBox[{"-", % x* _0 j7 V  E7 A  r
           RowBox[{
      a7 e. c' D7 K% _1 G        RowBox[{"(",
      y/ K: D; E' [! q$ w$ W. b         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", # W) l& |" W% m1 |5 N
            RowBox[{"(",
    ) N4 y/ N1 |% f# x( Y         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}]," \; A: Z$ O3 l! H6 m
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    ( @+ X- Q/ C+ H" l$ J CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {" o6 Q$ A, \7 n, y
      3.57796154237158*^9, 3.5779615576284065`*^9}}],
    7 H2 P9 j2 J3 z: C+ X: R/ B0 f) k$ W: g" M. J; S. I  }: ?
    Cell[BoxData[/ [# E9 C' \" R. n
    RowBox[{"{", ) H, [. k6 |3 ]; Q% M5 u
      RowBox[{. {0 t# O) k& }4 \
      "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
      ^) R+ ^: K. ~6 u( k" q  `0 ]   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],   K# I$ u6 q3 {. Q6 O( C/ D$ ]9 t
      "}"}]], "Output",
    2 Y; h5 b  l$ R/ z4 Q5 s CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],+ H' Q$ A( z' w. j( M

    , l  e3 ?+ _% d6 G8 A3 pCell[BoxData[+ T% X( J0 v- x6 E
    SuperscriptBox["\[ExponentialE]", ' S* S- @, \. e
      RowBox[{"3.141592653589793`", " ",
    7 A# P9 A7 O- q9 T# B, O   RowBox[{"(", 3 O! `& c% X0 {
        RowBox[{! M; L2 \9 ]# |3 {  n
         RowBox[{"-",
    6 v9 o5 g9 C. \' e7 m$ f      SuperscriptBox[* }" X1 G7 H2 |) F
           RowBox[{"(", / `$ |9 M" i+ j6 G+ R* k6 \
            RowBox[{
    : [& a) f7 Q5 T1 [; y" U' N         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", : K' ^; [5 x0 @1 C. t/ j
         SuperscriptBox[5 ^' v+ g4 U4 `0 K
          RowBox[{"(",
    ; R7 Q8 [. r. F1 l7 o; B       RowBox[{
    , g+ ^, r; s) L% M3 }        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
    0 S& _' w, \' M$ E( m     SuperscriptBox[
    1 J5 Z+ E" n. |& @, m+ W      RowBox[{"(", 2 I1 k* z4 w% [3 ~) o4 ~4 ?
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
    - N) L. T: B/ h/ T9 ]     SuperscriptBox[  H) ?1 k/ y/ `. J
          RowBox[{"(", 9 D) W2 {3 f& N- j; j
           RowBox[{- n8 H; Z& n. E$ `+ R& r( W% \9 L- G
            RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
    6 G8 L; u. ^$ \# G& w     SuperscriptBox[$ j1 y& \! x! a
          RowBox[{"(",
    * F" `8 w' e& q7 l9 _       RowBox[{
    1 j! \$ m+ K3 P$ j( J: P$ v, B        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", " F+ N0 |# x& @) V9 R
         SuperscriptBox[
    7 j8 K) a" r5 H4 z      RowBox[{"(",
    4 O  e, `( j# A8 A; M       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ( W/ D  \, R6 b8 E
         SuperscriptBox[
    " a% ]7 y  D) M3 j3 M% J. M% V) I      RowBox[{"(",
    3 E/ c! R) x3 @! h       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ' F, v# s- f+ P
         SuperscriptBox[
    - {1 F. Z0 s' S8 p1 B, p3 j      RowBox[{"(", + Z  X) y' Y1 B! G6 U
           RowBox[{
    ) X1 P* p2 K$ \% k/ V        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
    3 A- Y  w! [" a0 p$ b8 E0 v     SuperscriptBox[' ~& X8 j0 r1 J8 C' Q" K  H& [
          RowBox[{"(",
      h& d! c( ?4 u1 ]5 ^       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ' S! t5 e& a( q5 J* P, }  ^
        ")"}]}]]], "Output",
    - W% {0 i  i8 l$ U/ _ CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]6 R, S& h8 V6 C4 g& u
    }, Open  ]],
    . O5 N1 a: T3 F+ w
    5 m' q* J# o( m3 D: @" B( jCell[CellGroupData[{9 T) @3 V2 L+ Z7 a; j7 Y
    ' i' s9 ~9 Z$ q/ B
    Cell[BoxData[{
    & m1 ~* E; p8 e0 B# M RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]", 8 }/ g& y8 w) v8 ?- g5 ^6 F
    RowBox[{"u13", "=", : a4 g2 n, A; z& x, m
      RowBox[{
    $ w) D" S7 G, @3 e  V   RowBox[{"Exp", "[", : S$ P5 m5 L2 r, M% r1 I  u
        RowBox[{
    7 g9 l! L- S# d  y/ M     RowBox[{
    6 v& V8 L/ l; [7 Z5 V      RowBox[{"-",   |; B4 M, [" A. K, W, S6 C  y
           RowBox[{- k' L: S, U3 x/ j# f* _  |* i- o
            RowBox[{"(",
    7 Q4 b! v2 o" O$ m         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 8 P. V2 \. P9 u& Q
            RowBox[{"(",   _% y/ J9 ]+ g) `: `$ [
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],$ V& f( @) q% S# X% ]' b
         "]"}], "/.", "DeltaX"}]}]}], "Input",  W+ z* e4 I" J! C$ x6 M
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    * K$ H! z8 u% M' g% A  3.57796154237158*^9, 3.5779615599684105`*^9}}],
    ( q  H+ c: e  D+ i$ z" G0 z; }9 p7 n- Y% ]& [5 t: p: S
    Cell[BoxData[- J4 Q+ W) M+ T6 e6 z* v. \
    RowBox[{"{",
    : C, S- P4 J) \7 M6 A, Y" Z4 G  RowBox[{4 o8 t$ Q, b0 U3 Q6 R& b  ]' o& M
      "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",", % w8 ]$ O! b$ o$ N# W) {
       "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
    + _  ~6 n+ t+ Q% x1 U  "}"}]], "Output",
    ( T( ~* w, p. b- V3 \ CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],3 t8 ^4 O" X+ K  X2 P( p
    : p% D/ |# N, n! Y& u
    Cell[BoxData[
      u6 x4 D$ [4 x. C; o9 p. G% z SuperscriptBox["\[ExponentialE]", # V9 S3 h+ c+ _5 L' i
      RowBox[{"3.141592653589793`", " ", " z' W' ?' K# ]+ l
       RowBox[{"(", 5 O  U: @& V. G* X: m$ H
        RowBox[{
    " N8 V- ~4 C9 [, }  K. j6 y     RowBox[{"-", ! Q& B" l0 c. @- C! n8 r! W
          SuperscriptBox[7 t+ D  i5 A) r6 j! Y5 j
           RowBox[{"(",
      f  P9 b1 A* ?, T+ T! `        RowBox[{
    / H/ Z: H. l. e7 z! o8 T$ S; k         RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    1 ]( n; _2 O* p6 H     SuperscriptBox[
    + e% ^6 `9 G; g0 g6 r8 u% g2 y2 R      RowBox[{"(",
    2 D) J7 y* q8 a# }7 l/ P8 C       RowBox[{
    / e7 d. V/ ~  y; E6 J2 I        RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-", 7 p& V6 A" f) ?- L1 L" h. Y! g
         SuperscriptBox[
    $ ^1 K- _, l" ]7 V7 d* E      RowBox[{"(",
    7 N3 z# H; F( R* s% ^       RowBox[{
    1 U  g3 |2 ]7 V6 {; \2 N        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    # |; p% a) U5 t& `# Y     SuperscriptBox[; o. J# ?+ w" {, l' }0 ^# N( O, g3 m
          RowBox[{"(",
    : r1 O! M/ [$ ~  `7 `; l. q       RowBox[{. g- K9 M/ m- p; h- K
            RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
    - i' L( b; R: r4 K+ t7 K     SuperscriptBox[
    ; g. D* L  F& K7 d# `4 y3 Z3 C      RowBox[{"(",
    ; @, C# N! @/ g6 D; q" Y3 f3 }, j       RowBox[{
    " M5 f* R3 t  ]        RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", - z  G- Z/ \" T8 R4 E  Z
         SuperscriptBox[) G' l4 J6 e* v: p& \7 q6 q. v2 ]
          RowBox[{"(",
    ; n5 u2 j& n) J7 c- l       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ( L6 k' d" `* J2 u" t7 [
         SuperscriptBox[
    9 o1 B  p' P7 N3 c1 d5 w1 h      RowBox[{"(", $ W! E- E4 W2 y/ o! M
           RowBox[{
    / G9 `% |7 T/ |& Q4 ^3 M        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    , |# w! t( Z5 L; a     SuperscriptBox[
    4 ]  P2 ^2 n& L2 H      RowBox[{"(", 8 }# |1 V  E3 @# x( j1 I# }9 u. k2 e
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", - ^( B8 q; X  {4 \. L6 t* G
         SuperscriptBox[" A6 A$ K1 L( ]# Y6 n! N9 y
          RowBox[{"(",
    ) u9 V4 E( x, `9 }9 Z% ^       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    # y  [5 w: s' C0 M: x- U# x    ")"}]}]]], "Output",! q* M$ h1 l/ t$ s- \9 z2 ^
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]) V% Q$ b9 b  }9 Z
    }, Open  ]],
    4 ~+ L' Q8 y4 x' w9 j) c3 y( {4 r$ k. w, }
    Cell[CellGroupData[{9 O, L0 T: {/ G* X" _/ T6 l

    7 N3 y/ _) v9 uCell[BoxData[{
    2 w' ]4 M7 X+ y9 x7 g RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
    * N! J; {. m8 M0 d* { RowBox[{"u14", "=", 4 c2 d0 B3 t; S  G. X2 L
      RowBox[{
    1 |2 F- g' r( L+ E   RowBox[{"Exp", "[",
    ( w) c' N9 ^  |8 ]+ N' g& v    RowBox[{
    / [7 q$ u. t9 D     RowBox[{
    # u, t- G$ w) A! H      RowBox[{"-", ( r5 l% D. j4 O+ {
           RowBox[{
    # P6 N+ T6 |) y0 J" C' F        RowBox[{"(",
    ; C9 h/ L2 x0 @. G7 _# ]         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    7 P5 W( U5 E, d6 @9 _% O: i        RowBox[{"(",
    % S" m- k; ]- ]. G2 m$ T         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    1 Q/ Y" L" K1 @7 r& f1 L     "]"}], "/.", "DeltaX"}]}]}], "Input",3 M! t# ~* k1 q" [- v  i+ @# F
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {1 M  D; G# {% z7 `( U: M/ J
      3.57796154237158*^9, 3.5779615663176217`*^9}}],  h6 V. W! E2 z/ a, k
    2 e0 v" p- A" Z3 Z
    Cell[BoxData[
    1 V' s7 r" ^5 |" A" M+ N RowBox[{"{",
    5 b8 R* }0 ~  d  RowBox[{
    + Z8 o3 K0 k" a  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", & L% G' [/ [  D1 i1 r* x7 q
       "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], ' C' i* |& I3 K  F( ]' W0 l7 T
      "}"}]], "Output",
    / G3 D" P+ {( m- z/ z. S8 H CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],
    1 R( }* T3 }7 t0 f( g+ l
    ; R1 S- X3 D& J" F- qCell[BoxData[, a8 N  n: D5 P2 j9 y: t
    SuperscriptBox["\[ExponentialE]",
    % C; ]' D- ]* m; z  RowBox[{"3.141592653589793`", " ", ' z* U4 P, a- \: x3 \% {
       RowBox[{"(", ' }1 @7 A. X  a- |4 _' s. C
        RowBox[{4 w0 y  o8 N, P& Y) @* Z" f9 f
         RowBox[{"-",
    1 }( u* b" u  ?      SuperscriptBox[, e: }" W" L) j! A0 N" N
           RowBox[{"(", # i# q  \+ Y  E, |
            RowBox[{
    0 X) R, E& D! q- d         RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-", * T# U% D- r. ^4 w
         SuperscriptBox[
    6 Y# g: r# E0 f  c, b4 j      RowBox[{"(",
    - X& b1 _+ L. M% J$ v! V2 b       RowBox[{1 E9 {. R2 w: X
            RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", $ g% D$ y0 b+ E
         SuperscriptBox[1 A$ E( V! i- ^: u- u
          RowBox[{"(",
    6 g) ]) a- P7 c       RowBox[{- d1 x' n& `3 b3 R6 Q
            RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
    4 V/ r& j0 G2 q# w) ]     SuperscriptBox[
    ! @8 H+ I: Z/ N5 p: H5 `  b( `$ A      RowBox[{"(", ' w6 N+ [  W! A/ G
           RowBox[{% A9 ?0 f) t0 K8 v% ~9 g! L
            RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
    , w$ r0 g% K! u     SuperscriptBox[
      j) g" t# B% a9 N3 }) E      RowBox[{"(",
    2 X2 p2 @( U! H: n: p: e       RowBox[{1 r$ F6 ?& G) A
            RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", 6 d9 h( U  l' G8 B: L0 N- I
         SuperscriptBox[
    ( h9 P; F& t( J/ o( F. G: p      RowBox[{"(",
    + t9 g& {6 ?  y- x1 J       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", - }" z) b+ S; K  ?
         SuperscriptBox[
    1 g0 S: G+ ?7 q" j      RowBox[{"(",
    / T$ q" {" \8 _3 l. M       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    7 W  l" R' h& C3 s* p6 y5 r     SuperscriptBox[6 o' S% U8 e$ J9 e! m; Q
          RowBox[{"(",
    9 D( X, E! H  [/ u  o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    , W9 F7 W" w8 `  A2 o     SuperscriptBox[
    7 {  M. ~( [4 r1 B      RowBox[{"(", ( x  m0 t3 Z  v/ l! @0 E" Q8 y* n
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], " ]: a( g  p+ ?8 U! ?) y
        ")"}]}]]], "Output",8 u/ y% u; y- G5 ^
    CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    7 |3 Y1 [6 x9 u* F8 V}, Open  ]],- G4 ~/ N, q  L7 H, A9 R) a

    + u1 V! {0 c: @- ]Cell[CellGroupData[{4 [& p. S4 v* \/ P" {

    0 c1 S# v$ u5 I) @7 _Cell[BoxData[{+ V/ Y! m' k: h; s; w4 J$ z- N+ o
    RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
    . Z9 K; r! b. L# K) n' y' U& a RowBox[{"u15", "=", ( B+ A2 K8 K" Y0 m
      RowBox[{9 @$ n4 ^& ^0 s2 U
       RowBox[{"Exp", "[",
    * G- ]8 J1 T5 J; d4 N1 ]5 N    RowBox[{. M8 ]! n& P) ]3 u2 |: f
         RowBox[{, e. v% ^4 ?' v5 n9 E/ U4 q. i
          RowBox[{"-", 5 {6 s" A+ i; R* q0 s& m8 H
           RowBox[{
    , E: r: N0 c' D        RowBox[{"(",
    / B. ?* a: L) w5 U3 _         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ( U+ x6 P) W2 }( y        RowBox[{"(", 5 H* c0 o! A' I) m! R
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],7 r5 x/ W9 j8 y$ C
         "]"}], "/.", "DeltaX"}]}]}], "Input",+ z; b/ }- k, c( O& C2 g( X
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {: }6 p# Y# i) v: Y. x
      3.57796154237158*^9, 3.57796157098203*^9}}],0 i, H3 `! I8 u2 b
    " e- G: c) t  C% A3 s8 j' y
    Cell[BoxData[
    . e% C0 e3 F. G/ B! Q* o RowBox[{"{",
    0 E3 F7 c6 _! N$ H  RowBox[{
    8 X, C) O- l. B: g7 f( e) e: i& @  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
    7 t" K- f2 d1 R6 m. O! a- ^4 U$ F   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}], ( I  A/ ]6 Y$ x; V2 S
      "}"}]], "Output",
    2 ^4 B- Q1 A) N CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
    ' O3 D/ J0 m/ l
    / f% t2 r8 p) m' D  ?. h3 dCell[BoxData[
    ! M( H6 X1 j  y7 y( k+ F SuperscriptBox["\[ExponentialE]", 1 [/ A! j1 {* W% j2 g- R2 V: l* z
      RowBox[{"3.141592653589793`", " ",
    4 R$ l2 c) }$ S. L! B/ ]   RowBox[{"(",   m. Y3 V4 p! U7 y
        RowBox[{
    4 h! ^, e6 I) n; y& {     RowBox[{"-", & M' Z7 U% ^4 U0 r5 u. Q  ?
          SuperscriptBox[
    7 {& u( i" R( r$ h       RowBox[{"(", # U9 ^7 \* {# w7 X4 o
            RowBox[{
    , g5 Z3 m# t3 v" a         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", : W+ f  i. A( H- T( C. o' ~# W
         SuperscriptBox[3 \% ?+ J5 P! h# {
          RowBox[{"(",
      ~+ x  b* @) w0 F' I$ X" k, Y% |       RowBox[{4 K0 ?) e( |9 c" s
            RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", 8 w$ G( G% K, R6 ~$ N5 o
         SuperscriptBox[/ @1 u, h0 {9 Q: h0 R( r% i
          RowBox[{"(", , w, n* G1 L" D0 V
           RowBox[{
    8 D2 k: _% g; W9 w+ C        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
    , n' e% {0 r8 M" |; v3 X0 ^( k" w     SuperscriptBox[
    $ Y! l7 O6 u  G1 z6 M( b      RowBox[{"(", , V0 |8 q0 c  y
           RowBox[{
    " q! A( {; `, n' ]- F        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
    $ @0 m  h7 `' w& u     SuperscriptBox[
    6 R" u! g8 Z6 s( Y( k& u% s8 Q* Q      RowBox[{"(",   J$ X! Y7 W: ^! e
           RowBox[{
    ( F+ w$ q) Z1 ~- t2 l        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", " Y. \9 x  S0 R- `" ?& _7 h
         SuperscriptBox[$ p( W7 A. L  I' r5 Y
          RowBox[{"(", 1 V8 Z+ I. C0 `5 W" v/ l; p2 ^9 z
           RowBox[{
    ; K* l! e8 h5 }2 j1 O        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    : N: C* R8 J" Z9 y9 e+ b     SuperscriptBox[
    1 o. G! m0 c! {9 m% W      RowBox[{"(",
    2 O/ I5 L3 D0 ]6 v- Q- n  r       RowBox[{' r% ~/ A7 M+ [8 m; S, H6 L- k( x: n
            RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", ) Q' U, p( M' F6 S( V' G4 d0 R# \
         SuperscriptBox[
    0 J* \! V. h9 f) x      RowBox[{"(", ! Q: A' b6 I. y
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 4 V# r# s& M5 N3 Z
         SuperscriptBox[
    0 p  G; t# ?, H( t, W# @9 d      RowBox[{"(", 3 s: {  o/ K. {" C6 O, P
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    / z/ Q+ T5 B1 x1 C6 Z% N    ")"}]}]]], "Output",
    4 B- Z$ x3 S  y* R CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]5 N  P  w; V' g5 ~5 H  u' t% h- V/ |
    }, Open  ]],$ ]- R# D& ~" W6 v! o( G

    * O) s+ y: j" n3 FCell[BoxData[$ A, e3 S! s7 Z7 o* L2 w1 T
    RowBox[{"For", "[", ! b$ O3 W/ `( b9 \( h
      RowBox[{
    9 T  q4 o  q# |; \+ B   RowBox[{"i", "=", "1"}], ",",
    7 N. i; G1 e8 ?6 E- i; c   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    : ^: a* L/ L% Z+ q, Y* }: @   RowBox[{"i", "++"}], ",",
    - c  @4 n6 @7 d- J% Z5 y/ ~   RowBox[{
    2 @2 L4 z7 R! A) q3 f/ X    RowBox[{"Ca", "[", ( U* L& M  X4 z0 b0 x! H
         RowBox[{"[", "i", "]"}], "]"}], "=",
    ! a$ d  p- h% e0 G! [- T! L    RowBox[{"CM", "[", 3 @6 ~7 t$ k8 y2 m# X
         RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    6 a) \! W& ~0 v0 h CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
    7 s4 M: E, Z& v5 D9 n
    7 R* H- l' q& U( p/ Y, YCell[CellGroupData[{
    # t# n! S6 q# m% C) x+ x0 K. [- O8 k7 C4 I
    Cell[BoxData[{
    3 ?) G  c( z! n: N RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
    4 u( a4 u6 v: e1 `3 b RowBox[{"u16", "=",
    3 p# }' u. y( K3 A+ z  d, ~  RowBox[{
    9 \$ p# g2 g0 d   RowBox[{"Exp", "[", + Z7 A( l, o5 X! V) Q! A+ C
        RowBox[{8 t8 [3 t6 H) j- }
         RowBox[{
    & B2 i- s# r- t) I2 D7 D      RowBox[{"-",
    5 y2 c5 @, j4 p2 Q7 A# ?3 {       RowBox[{- p: X  V( B4 q% L& v5 d- |
            RowBox[{"(",
    ' |8 M( m  X# W+ }! i4 f         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    . e* U; [. Z9 E, n( [/ G        RowBox[{"(",
    2 E$ p7 S( J8 Q8 L& r$ ?         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],, n3 D! z: z$ F, p6 l; r2 z/ F
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    ) X0 S4 E9 A5 V# Y CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {" v9 |) h2 Q" [+ p' w2 B. k
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9, ) Y$ Q# @1 e% F5 w6 e+ o: |
      3.5779615751004367`*^9}}],
    ; b$ P3 |- [2 X7 M
    3 E; i+ }3 A: T; {2 [Cell[BoxData[# ?: s7 w' [, ]. E; U. E
    RowBox[{"{",
    ' W4 S; p/ |2 M4 k1 X  RowBox[{) s& _6 S0 q- p7 }" o( f/ U
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", ! \4 k& X" H6 q$ G% u3 q
       "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}], . |0 h9 U( L4 v+ P4 C
      "}"}]], "Output",( q; Z, y5 B  a0 j' T$ L* K
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],  [  N7 P1 k* ^; q

    6 m( i! o8 \2 L; K7 N& bCell[BoxData[( u# q: U0 k/ q& D# _
    SuperscriptBox["\[ExponentialE]", 8 E: A; I" h# F. W# m
      RowBox[{"3.141592653589793`", " ",
    & c/ G5 t4 }, z7 H5 F) V( M' q   RowBox[{"(", 5 N' w6 E* s, G7 {) {+ b' @
        RowBox[{
    3 q; w5 @1 w0 R1 E     RowBox[{"-",
    + ]+ y9 q2 D% B1 Q4 j" q5 I      SuperscriptBox[9 {/ k; e: m1 J( ~) ^0 P
           RowBox[{"(",
      }- s" E/ k: @' ^        RowBox[{
    % s3 [- B2 B+ F. A2 v         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", + n% w+ s. y( E
         SuperscriptBox[: @8 ^1 r, r; z/ ?* u
          RowBox[{"(", ! ?6 n) b% G* l5 b8 t2 j
           RowBox[{* w7 c6 k! U5 q* \# |) }
            RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",   |' ^( ^; A* @$ {/ U
         SuperscriptBox[0 d! O/ ^: b5 M6 \4 g+ E4 q8 u
          RowBox[{"(", - Y4 R( H6 g& t# Q7 m0 O
           RowBox[{
    ! z. U4 k; i. Y7 s0 a        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
    # O. k9 n7 ~% z8 j     SuperscriptBox[
    7 e$ |* _  _( o, S5 y      RowBox[{"(",
    . ^% S; _, V; @9 a5 K; f       RowBox[{4 U1 M- f9 I  u( n
            RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
    1 @5 b) l. a  x& W+ J* Q     SuperscriptBox[$ g  k9 {0 T1 l. p4 X
          RowBox[{"(", . j! p8 h! B6 |' R* ^6 b1 e
           RowBox[{
    & [* b9 \8 j/ b        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
    , W6 F3 H2 i* f4 I0 \- o     SuperscriptBox[
    6 u9 g0 I; G& W+ U/ Z/ K9 f      RowBox[{"(",
    5 ?6 [5 n* S/ v/ S$ d       RowBox[{* p# ?/ y1 ]( j  e* \
            RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",   z" a- D; R4 F' j4 L% i
         SuperscriptBox[
    ! R* s! C. W" g5 T4 a8 Q% r) t! S      RowBox[{"(", 1 o# h# f( |8 b& z; t1 Z
           RowBox[{1 u+ E, C) W, c: z) X) r6 b3 d
            RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    - P6 T$ _+ h8 ?     SuperscriptBox[
    $ n8 i3 E$ s' l+ ^# [: I3 M8 \      RowBox[{"(",
    8 X- _' ^# U$ v2 y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", : M2 m) X! r) F2 u6 R; Z' h
         SuperscriptBox[
      i( O( |5 w- @' T- f      RowBox[{"(", 8 h: `  Z6 U+ x2 r" c& ]+ l
           RowBox[{  N. M0 E# P3 [+ O% ]+ P
            RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
    9 Z3 K6 |2 {7 d CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]7 y  R. O. w0 b6 s7 G9 n
    }, Open  ]],9 g0 G/ h; e  `5 A9 ^7 f. C( m$ N

    - j, M( J5 H, s" z0 ^Cell[CellGroupData[{$ Y7 y. F' k* [* U) d$ {

    9 n4 M2 `5 s9 u, O5 p; aCell[BoxData[{( Y% }8 `% }# j  D/ L7 \
    RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]",
    ! `  x0 m8 q; ~9 P' U* s RowBox[{"u17", "=", * @4 C: k% j1 V( v& K4 h$ Y
      RowBox[{5 I0 o" O" s4 t3 f' z
       RowBox[{"Exp", "[",
    1 W' M% V% b. k  g7 ?' L* n. ]    RowBox[{
    # k6 h. }" {6 d/ i     RowBox[{
    & y1 y, h4 `9 X& f      RowBox[{"-",
    1 c# O' p: ^# S( i' b       RowBox[{$ b; B/ }$ V7 K4 O, V2 w
            RowBox[{"(",
      I7 J" K, o$ D- f1 b& ~/ n/ ]         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    . M# P" D2 |% Q" a6 U        RowBox[{"(",
    8 {' q) |) |" p         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    + K/ z# X$ o; q+ k     "]"}], "/.", "DeltaX"}]}]}], "Input",
    " S; o' ~! M) L1 u CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    : _0 i8 h% H( {2 D% I9 t  t  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
    : N' h+ |. }9 a- \  Z% f  3.577961578953644*^9}}],
    ( f/ v+ X6 w5 m( }9 B
    3 h; E9 V0 _; j9 A7 uCell[BoxData[4 t7 K/ z' w. {- ^1 G+ j& o
    RowBox[{"{", 5 W1 Y1 f; J$ g3 i. T# B( [
      RowBox[{
      A8 O* `. p+ T5 V3 {. @4 f  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
    8 }% Z4 N  Y- I   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], & Q9 i2 n% [: s
      "}"}]], "Output",5 n' S0 M4 }( v: [% W6 s* T
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
    3 `" w/ d) q/ j
    : \- {' {* q$ I) FCell[BoxData[
    ( C$ p9 @& m# W0 Q6 v SuperscriptBox["\[ExponentialE]",
    6 ?* P9 j3 m8 I' F0 C4 P8 W0 r  RowBox[{"3.141592653589793`", " ", # b9 G( U7 J; t9 v$ \
       RowBox[{"(",
    % p2 \; Q1 L9 c    RowBox[{
    % P8 e, k1 B+ J- F" a0 K- Y     RowBox[{"-", - ~3 C7 K# {4 V6 y
          SuperscriptBox[
    2 q6 C9 J! S& \' ^$ W/ u" }       RowBox[{"(", & T/ E5 o. m/ _- @7 Q" Y
            RowBox[{
      c4 O* H, J. u" }1 |/ I1 B+ C2 |         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ( K' C0 S3 L5 u. A     SuperscriptBox[4 K1 R  T4 `+ ?2 K* N! ^/ ?
          RowBox[{"(", 1 i/ n0 C: R8 n1 q2 F( C) Z
           RowBox[{& P1 {! M% F2 D0 t, c. a: A0 b
            RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
    - z7 [. g9 }3 t% J) Q     SuperscriptBox[
    / f" ?$ |5 F  K4 |$ w0 F) X9 }) _' F  z      RowBox[{"(",
    8 ]3 t) a$ {* J8 ~       RowBox[{: v8 T7 X3 F$ M2 Z8 p5 h; \
            RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
    * D6 U5 W' W! ]+ ~% w     SuperscriptBox[' @0 m% x! L0 |& a
          RowBox[{"(", ! p2 r  ~- y  Z: D: y* e9 \
           RowBox[{& _/ q5 i. G- x2 u- t% w
            RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", # g. L  m8 \4 A2 K; @
         SuperscriptBox[
    0 _1 e2 {' D% m  r1 ?0 Q      RowBox[{"(", - t8 E' m+ G2 g! |+ S
           RowBox[{& Q% t9 b7 U$ Y2 v3 F. N
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", " L- x, U+ \) e/ U2 s4 m  _/ t
         SuperscriptBox[
    9 {' V) _9 I1 Q1 X/ `      RowBox[{"(", & e5 h- o0 H! m
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", / i, x, i1 C  n4 Y3 ^) _
         SuperscriptBox[1 U: d3 b6 Q$ H% y! L$ L" G3 t
          RowBox[{"(", : U4 y( S- f7 `4 E. K. S& w" Q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 7 h& D# C, X- C# f/ }
         SuperscriptBox[
    ) ^1 J+ A. J3 ]6 p/ s      RowBox[{"(",
    # z4 q9 Z- @8 M1 e. T! @3 o+ ^       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 [5 m1 U9 A- ~* A
         SuperscriptBox[' c$ b  e/ b5 T% f2 U9 `
          RowBox[{"(", ' j% ?/ q; Q+ F
           RowBox[{% t5 H- b! J! Y
            RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], 2 y8 j! B' f# C2 F
        ")"}]}]]], "Output",. D: M8 b, r2 W3 b4 U' i# x3 d
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]$ A0 M; L( k& z- W
    }, Open  ]],
    0 D: h1 \% n, i$ s  ]4 }3 S2 R+ h
    Cell[CellGroupData[{
    9 |3 A$ c6 i& W5 u6 P) P+ {6 v" v5 T, u" U- P. F  Z$ T& _
    Cell[BoxData[{
    0 x. Z. `- S( w2 P RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", ) N2 ~: h' @4 n& H' q7 R/ K4 r
    RowBox[{"u18", "=", ( g  p% g1 e( p
      RowBox[{
    : n! Z( m* v6 l; `; i. e# k8 H   RowBox[{"Exp", "[",
    # E$ O1 u' S4 y( ?    RowBox[{
    : g' Z( w% o6 O+ O  T. n     RowBox[{
    , }% W5 [+ v. Z+ u( t$ j      RowBox[{"-", 6 ~3 X' _  _; F
           RowBox[{2 C( b4 T% L% Z  e* z3 N
            RowBox[{"(", $ Q  E8 w% M0 d$ R5 u2 d, X2 ]
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " A" z5 C/ C& ?" g& [: s        RowBox[{"(", 6 \1 H" B6 |9 A0 v# v4 a
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],6 i' L. D$ X2 N; R! `
         "]"}], "/.", "DeltaX"}]}]}], "Input",3 S! e' B1 b" a0 F2 i: A- ~
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    - h' S; X& H: o) A' |0 N  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
    * b7 P- w3 L! ^+ i0 o  3.5779615828848505`*^9}}],
    , l/ d; ?9 o6 v$ h0 d5 d' U
    4 L4 v* i0 H1 \4 _$ LCell[BoxData[
    % N# M; P4 I7 m7 P, h4 [, `6 v RowBox[{"{", ; H. V9 X) R' q; N" o1 K
      RowBox[{6 l7 w" Y$ D1 X* |- \/ V
      "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",   _( e1 e( I/ x, [% b0 B! k
       "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    4 Z+ X: {( |  s9 n* f* d2 A  @; F  "}"}]], "Output",# v7 b4 I4 Y' P8 W
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
    * A6 a' P  ^9 Z* R. U+ H: c, B3 Q( o4 F& y; ^4 A
    Cell[BoxData[2 z5 X! n4 r9 d% v
    SuperscriptBox["\[ExponentialE]",
    * U2 n! E1 M  G) @9 \  RowBox[{"3.141592653589793`", " ", 3 J. m% b; t5 ?/ u% D
       RowBox[{"(",
    . x& f6 N0 U/ A0 _( i    RowBox[{
    9 _1 Z" ~% G" F( J+ c# A% G     RowBox[{"-",
    7 r! n) u- P7 l5 W$ D) j& |      SuperscriptBox[
    % t1 S' u6 @2 }8 }! F8 y4 o       RowBox[{"(",
    1 M$ q& N8 X% ^        RowBox[{
    7 g/ h/ y' p- |8 P* ~% N' C& t         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    , u8 Y% v, W& l     SuperscriptBox[" Y* L5 _' X) r; W
          RowBox[{"(", , j5 \" x8 l, l2 g6 ^; G( L
           RowBox[{" g; V# j4 n: z! {8 a
            RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", : r" Z; ~: i# o" q7 m
         SuperscriptBox[
      J( h% K( G9 C3 ~1 w& R/ F      RowBox[{"(", 6 l4 G! U/ S  Y5 I, F
           RowBox[{& m4 e2 _. v" o2 d: o9 D6 c
            RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    9 h% i) U. _" K; A     SuperscriptBox[5 U8 f; F% d6 i: q! a/ g4 T+ }3 ]
          RowBox[{"(", ; u, I! [) y2 W2 ]; _: Z8 `
           RowBox[{
    : \& v+ r. Q& a# N        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", , ^, p/ h* @4 K8 V$ A# k/ V
         SuperscriptBox[4 ]" b% h6 N( l( l2 X4 c
          RowBox[{"(", 9 D/ t' R1 _0 M$ i
           RowBox[{9 C0 S. W4 T1 e
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", " z% ?& @9 x" d
         SuperscriptBox[
    " e% R" H" n3 n; D9 C/ n" J' e      RowBox[{"(", 2 T$ U* y* W$ j$ }2 D
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ; D: S/ p+ F* V7 [+ W" _& e
         SuperscriptBox[% f: d# @/ {9 Q0 s6 I6 X  }- u: D3 K
          RowBox[{"(", " A8 U, a5 k# L$ i9 v: G" \
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    5 t, t8 j& d, ^     SuperscriptBox[
    ! o; f5 C9 m/ \! d0 a# O, J2 ~      RowBox[{"(",
    ! M4 r: y8 R( W) a/ W! h( g       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    0 ]# ~+ G. \6 D2 h* C     SuperscriptBox[3 r! Z0 s$ }+ I8 C9 n" o
          RowBox[{"(", & d+ C1 a) k5 i
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ! b6 M# u. [8 f% ?2 l
        ")"}]}]]], "Output",
      \4 {( ]* O* o% \! p CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]3 q6 }8 ~; {5 D
    }, Open  ]],
    ( I7 f3 p$ [$ j; e6 p3 P) t6 @3 a. X, i) p6 Y
    Cell[CellGroupData[{( R% S% v" ]# V$ ^* d* L; G% a

    3 k0 o9 Y, n3 P# m+ iCell[BoxData[{+ V! \' c  m' R4 s4 S( k
    RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
    % U# F; P) ~6 f6 F RowBox[{"u19", "=", " s6 R' ]5 F! G' O! T0 i' ^
      RowBox[{
    : ?, S" v2 l2 F6 z4 g5 A   RowBox[{"Exp", "[", " ^# `4 A5 ^# P) k) l5 f* k8 S
        RowBox[{
    0 ~7 t6 o; a. m' N" R. W     RowBox[{
    / B/ j* j( ~& [6 B: ~% T      RowBox[{"-", ' v2 E' r; u5 c, Z
           RowBox[{
    7 h5 L) U# D& G6 O        RowBox[{"(", 7 h' U1 J# q' [! l
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    + h5 P+ Q3 k1 G* z9 V+ Y( Z/ x6 {: A        RowBox[{"(",
    5 o! z/ Z3 F( ]! o- P  P: l9 ^         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],/ M8 X9 s0 f, I- P  n1 |2 x4 c
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    1 d( ?) y# o) g; X CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    - w4 {) b0 m1 T- p7 t' G  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, ( X& E/ f4 B. f7 U8 Y1 L
      3.577961588890861*^9}}],4 N4 w) u0 A. T- L( ~& a
    9 }& A. F& s: l& N' ~9 Q/ q1 A
    Cell[BoxData[$ n* y2 m0 w  c0 W! w" C
    RowBox[{"{",
    # M! f$ W6 g# U. R" I, ]) G  RowBox[{) R, @* ^% {; Z
      "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
    1 Q) y% N1 G# R- H4 |   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}], $ p( r! b1 T5 n9 M% n
      "}"}]], "Output",. Z) t# }/ k2 W# h
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],' c. x/ P9 F) j

    ; ^6 \& g  a1 E, bCell[BoxData[2 V; J) D. D) h- d6 j# D+ s
    SuperscriptBox["\[ExponentialE]",
    ) d3 j. W5 G, N/ |  RowBox[{"3.141592653589793`", " ",
    : d' G3 o( [+ Q. w   RowBox[{"(", 4 R- \) w0 J; }4 `( v
        RowBox[{; n; f. M1 k7 l0 ]7 U
         RowBox[{"-", ) e6 m8 h& ^; |% O0 _! ?
          SuperscriptBox[
    $ |  g1 E/ x2 D& s! @8 Q       RowBox[{"(",
    % T. \3 X/ A0 m8 T4 F/ O$ t        RowBox[{' F0 u% I1 c* k. B
             RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", 1 g7 g8 F+ w3 I% q
         SuperscriptBox[
    $ Q3 ^& g8 L* T7 _  O      RowBox[{"(",
    * M  _+ t/ X& x3 l       RowBox[{
    ( Z$ Y/ k( e( b: y9 {        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", 1 R; D3 H% R8 u8 y
         SuperscriptBox[
    3 W% r  l8 Y% L      RowBox[{"(",
    5 T: x% T) L" o       RowBox[{
    8 _3 z" z: Y% N( l/ ]& p        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", 4 ^3 v( C1 p9 P) f$ r7 H' M# L( v
         SuperscriptBox[9 c) m: U  @5 [7 x. [- x
          RowBox[{"(",
    8 ?6 U/ b1 O' h/ I- w" L- N       RowBox[{( E! y3 f8 ?( U
            RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
    ( _7 P% \- `& h! d, C     SuperscriptBox[: Z! o0 C, h: C! ^- w9 G: Y
          RowBox[{"(",
    9 l% C3 v$ {4 i8 w  u       RowBox[{$ H( t8 F# ?" U& I# K8 ^3 N" `
            RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", : u1 ]" Z  B; D  `: q* k% \% U! a7 t6 A, r
         SuperscriptBox[' K0 a: U; `7 K* @
          RowBox[{"(",
    ; J. V; H( U/ D' n( ]" A; U       RowBox[{& W, N  H; ^/ ]5 v+ @2 h: y" Y
            RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    2 t; W3 E  K6 ~7 D     SuperscriptBox[1 z: {: K) g; k3 r: @2 m
          RowBox[{"(",
    & g" O3 Z: _* W4 Y. x       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    - h: |/ ]% V4 J0 _2 t     SuperscriptBox[. C! T5 C/ p- O1 y
          RowBox[{"(",
    ( W- _7 A& @2 Q% E       RowBox[{' E% E) y4 @8 y4 }5 z4 e: ?* {5 t
            RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    5 x1 @6 \$ Q4 g9 d9 u     SuperscriptBox[' h7 E* {, ?* z& o
          RowBox[{"(",
      G8 Y2 O2 L1 {# I. h& }2 r       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    . m0 B2 ~& L" Z6 ^7 B    ")"}]}]]], "Output",
    4 l6 C) d. q0 k  i7 P CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]6 }9 A8 M6 U  S
    }, Open  ]],6 B4 B: P9 M1 r$ `0 Y

    0 M+ q$ L+ t$ F' o; SCell[CellGroupData[{. O- f1 @$ a% V* r: `( W. w% U+ z. k* `

    * Z) e- ^( Z$ ^Cell[BoxData[{/ w  ?( x; A& i6 U" r1 i$ u
    RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", 9 V& v$ t. t/ a  @- ^; ^
    RowBox[{"u20", "=",
    1 r7 H3 L( M3 }7 W/ Z  RowBox[{
    ' n# s- x# |; X& O- r3 p& T   RowBox[{"Exp", "[", 9 s! E/ Q4 K' w$ ]
        RowBox[{: v! b+ z  t# n5 N8 \7 r
         RowBox[{' a9 a$ `& B* B- E7 q4 Q
          RowBox[{"-", 7 S5 U& @# q2 N
           RowBox[{
    3 I* i$ Y7 e2 I' F! F% L' U1 S        RowBox[{"(",
    ' V# y* h: x* T% O: M& q8 B( d         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ' R8 p' \. N4 L: J4 Y" u6 f        RowBox[{"(", % x$ w. H7 a! M! m1 ]7 Q7 [) F
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],# L3 F4 ~: [  ?" i4 w1 Z. _
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    1 U! i1 A; @% M; `& @0 _: n' P" } CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {5 @7 |1 y4 e8 t! R0 e1 [; X
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
    9 }' {- [! S) r8 _6 c" S0 n  3.57796159382047*^9}}],' `' e- H' @6 \( y3 l! W
    0 w( a; |0 r( t; s, _7 F& b
    Cell[BoxData[
    9 `2 N# G% u5 k6 T" e8 P. S+ t; i RowBox[{"{",
    6 d4 w5 n- }2 F+ W: e  RowBox[{3 @/ l$ F8 p5 m, Z& ]- f% \
      "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", ' z) q+ l; t) s$ F
       "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
    ( y7 Q+ r( A/ b1 p; v, k  "}"}]], "Output",
    ( @. F3 {1 O8 R# K( p CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],% [: J8 L+ f6 `- B. y) d# j

    3 [" A2 g" f& W. \0 }Cell[BoxData[
    2 w3 _6 A0 `8 U; L- r SuperscriptBox["\[ExponentialE]", 4 y7 p/ W1 x& C" ~1 ~+ E2 d$ h
      RowBox[{"3.141592653589793`", " ", ' J9 ^- R; u% z$ D/ U
       RowBox[{"(",
    5 w7 H0 y  @' {, d7 V    RowBox[{
    8 S  Q# j3 X6 k6 j     RowBox[{"-",
    5 l2 y: k, {7 V6 Z* F      SuperscriptBox[0 ]9 \6 e% f" T* }
           RowBox[{"(", ' \7 D; v5 n0 n$ L
            RowBox[{
    / w, h; u( K7 b3 ~* v         RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", ' x% r% q" H  R
         SuperscriptBox[% l% F, \6 m8 w7 x2 x
          RowBox[{"(", 6 ^+ v1 A# y2 Q* j4 q7 H- g/ ~6 C
           RowBox[{5 p; Q# @1 g- |5 S) t9 V  T& G8 O
            RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", , f& S3 j! L( g: Y# `! [
         SuperscriptBox[$ N) j0 M) @$ z* @2 h  G
          RowBox[{"(",
    , C( d3 T( Y/ c$ W7 t# U       RowBox[{
    # H# _1 k1 U* r# _$ P1 l0 z7 ?        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    * Q5 P/ s# W1 ?$ p  f     SuperscriptBox[
    , p$ a2 {  e# v3 r      RowBox[{"(", - m+ w/ ^+ z% G7 p$ x* x
           RowBox[{
    & l0 ^' t, r% y+ y# m% g$ y        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", / U/ A4 G6 h7 y$ j5 |
         SuperscriptBox[: q) q2 M7 b+ w% O" P
          RowBox[{"(",
    ) Z$ ]& }3 ?0 q7 i       RowBox[{6 b( y% n4 N9 I# j! @
            RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
    9 O" f* N6 V+ f, `     SuperscriptBox[
    $ t, g/ r. ]$ H3 p) A      RowBox[{"(",
    * o/ A* ~6 K; T/ n       RowBox[{
    ) _9 d. W5 t7 c- i/ @! O; E0 s        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    $ g) t6 [7 x2 ]& R+ X+ l     SuperscriptBox[
    ! h- \" t0 f2 p5 G      RowBox[{"(", 7 i# I1 W4 o) S+ ?0 V+ I% u* E  d) W0 I
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    / g, Q9 E0 r2 C% f     SuperscriptBox[0 p$ P; a. x, d, L* J; V
          RowBox[{"(",
    , V6 N8 T0 e9 @. g, e" r' s       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ' H- I7 u( D5 ?$ T" E' t     SuperscriptBox[
    ) ^) L7 P1 m4 e0 j) J5 Z3 u      RowBox[{"(", ' B* m1 |7 r8 v
           RowBox[{
    & B+ e6 D5 x# i2 @4 n0 M        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
    0 S8 l0 h( e5 N8 x5 v9 `    ")"}]}]]], "Output",- F, n  e, h3 |& k& w' S& [
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]: n; c# ?" a3 v7 ~( C9 n
    }, Open  ]],
    6 ]: ^1 m6 ]% n& a: C- [. w+ i, e* R* i; J2 _( C- o0 _( D: D. {
    Cell[CellGroupData[{
    ; e. x' I4 _+ d3 y8 U) W6 l+ K$ `$ s& q  I
    Cell[BoxData[{4 ~% @/ g, f4 W/ g5 l  O
    RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
    % U! {7 K# J; |4 T' V( W0 D RowBox[{"u21", "=", ! m1 Z# i+ }7 r3 |( [
      RowBox[{' |/ D$ V2 v- g- V/ w3 U) Q
       RowBox[{"Exp", "[", 0 w, ^5 E  \  X1 o
        RowBox[{& S1 I, Y( ^0 R! w  H( f. X5 \
         RowBox[{" e7 ^/ ]; i' i% `
          RowBox[{"-",
    # g8 k, u0 E3 t# s  o% L- \       RowBox[{
    9 n! T7 L2 a$ M; x2 P        RowBox[{"(",
    - y# O% n& Y# s& h, f6 t: q5 y         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", , J3 b2 d9 @0 Z1 T$ ^2 k
            RowBox[{"(", 8 m( k& r9 Z! t& e
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    - q8 K0 O0 U$ z/ J" I* f# @. t     "]"}], "/.", "DeltaX"}]}]}], "Input",4 R( C  m; g4 x. z: _$ t7 R2 f
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {1 E/ _2 K# u. I3 ]+ s
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
      \2 ~3 F5 Y3 V7 W  3.5779615991556787`*^9}}],6 L8 B0 r7 }, o2 W1 l
    6 ~2 Z; C& O$ M0 }( n
    Cell[BoxData[
    9 {, T8 V4 A% z# F- O7 ~ RowBox[{"{", & I- \  e5 ~& l* w/ c
      RowBox[{" U7 T  x9 ?& Q% ?
      "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",", / n% I: v8 F# |" x* w
       "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
    9 a% Q- \' H+ A3 q  "}"}]], "Output",+ V( k" |& U  l/ F
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
    ; `! R! c& b8 j% t  D6 v  M; r
    : O4 k$ p; x% ?Cell[BoxData[6 _9 c# A& ]. U( R3 J
    SuperscriptBox["\[ExponentialE]",
    1 k; N/ I2 F3 d7 L  RowBox[{"3.141592653589793`", " ",
    " b4 u2 P/ z, [! \% m   RowBox[{"(",
    . s1 e3 n( Z  {    RowBox[{0 y$ ?+ Z. h( t4 I& U" K
         RowBox[{"-",
    ' I. b9 n: P5 t, i- g1 B  ?, ]      SuperscriptBox[
    ' h" l4 `6 P: M+ b* L( a% q       RowBox[{"(",
    4 S9 P0 r7 K9 R" g7 X, Q2 y  f        RowBox[{
    ) Z- ~- y8 C0 ]8 d7 E( e( B         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    + P" ?5 f% a) _2 l  |  P* q     SuperscriptBox[
    , I4 F0 V1 `( k; Y- W      RowBox[{"(", ; c# ^! x) u0 b
           RowBox[{
    4 W! [) E$ N) C1 A$ q        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
    . U0 a, V0 t& O) J- W     SuperscriptBox[
    5 z1 p5 S" ^" e+ G      RowBox[{"(",
    , p# s; Q8 o$ }* r# h6 S; E7 X       RowBox[{
    3 V1 x- J  ]2 `6 }0 o) u$ E        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", 6 a8 c9 \+ K6 A! b
         SuperscriptBox[
    % R- v# K4 ?: S4 B2 e      RowBox[{"(", 9 U- T0 m/ k8 V  K4 @, r4 b+ `5 U
           RowBox[{
    3 i& E7 @' Y3 D0 K5 R        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
    % I% f( C$ p0 \: X7 x/ H; q     SuperscriptBox[$ }( Z: a. _1 U6 O3 y
          RowBox[{"(",
    , F5 i: _6 [. d" B' O0 K6 g       RowBox[{6 Z- e6 r0 d! a* V
            RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", 3 ]+ `+ h6 R) t* m" Q
         SuperscriptBox[1 [: f5 q# C/ n- |4 ?. }
          RowBox[{"(",
    - V- o  u  \$ h       RowBox[{
    . A" H6 K! I" J, I. z8 m' n. Z9 R        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    ' a# o7 a) `, y7 B. |     SuperscriptBox[
    - w' G* T9 Q9 E; H1 o; C; R2 @' E      RowBox[{"(", 1 {# `4 D% [. p5 L- X, z) E
           RowBox[{
    7 `9 r! E0 u7 h8 Q6 U  }        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
    % q( t1 l% o5 _; _1 Q: d     SuperscriptBox[8 j& y4 @2 P. H4 z( p7 v. ^
          RowBox[{"(", ; l% F1 e/ }" }! u. H% N
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    7 S7 X" b& z* m: `9 w+ M" @     SuperscriptBox[
    # }- k- S' O: K1 z& D% B5 a- [      RowBox[{"(",
    " }' ^7 x/ @6 K( D, I       RowBox[{
    , C, N9 X1 x9 j- Z6 X5 u6 \( {4 G        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], - j. F6 h0 P) U; ?. k
        ")"}]}]]], "Output",
    - H* O$ r9 n3 @; \3 y CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]: e1 w2 ]5 O# d, `- w/ H6 ~
    }, Open  ]],
    * Y: r( l+ A9 e% [9 r) F
    7 h8 h2 O/ `4 l2 i( X! F1 DCell[BoxData["\:62df\:5408wi"], "Input",+ |1 [% J) M1 k/ p
    CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],; _# t( r$ B) {( w0 K1 a5 |
    : k/ M& z2 Z; C. y" ?# Y. i0 A
    Cell[CellGroupData[{. |  o2 ?0 V0 o$ h. j
    3 ]6 C& `0 ]9 W/ ]& V# q# N
    Cell[BoxData[$ e% |7 C' j# Y7 b
    RowBox[{"y1a", "=",
    # @2 {, s% o6 `  RowBox[{"Table", "[",
    ( }( q3 d$ u: ~1 V, H4 R   RowBox[{"x", ",", ( r9 _: M0 H4 p/ D8 Z
        RowBox[{"{", & `) i- D( U. |! m% h% N" X
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    2 M% L" ?. `0 J' P; Z CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    3 `% G$ L( ?5 s* v& v  3.5779226649375*^9, 3.5779226810625*^9}}],+ D* _  K: ~8 G
    ; W: v  _3 l3 U  n! V8 t
    Cell[BoxData[) J+ o/ k; R, k9 [2 N& P2 T( A
    RowBox[{"{", 7 L0 {$ `3 C7 t
      RowBox[{0 n; T4 O' H  a; E. \0 l' k) }
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ' E, p7 ^0 _5 o, T. q. L( S. k
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    8 E# O4 K$ u+ I, j+ E    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
      W0 z' v8 v/ E* h- j   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    6 }. N( U; e2 u# O   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", % R2 }6 L7 t; e& ~$ H8 ?3 Z
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 3 I" ?* m) H& B- H+ w: c
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", * ?' w1 x; o" W
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    , D- F( M. a: t   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], : l" a" ]! C6 z# c5 T. P8 L
      "}"}]], "Output",
    3 y* P" J1 r: |3 C CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9, & T* ]% a9 o" x$ X
      3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]6 W4 t2 n3 H" V- D" t/ n  M* A
    }, Open  ]],# |! `, \7 B. e6 f) @9 R: U6 f9 L
    ) C! i2 a$ S$ s) D; T# }% m
    Cell[CellGroupData[{
      _' D* G( x# I% m+ k* O
    . y' }6 t4 W# G4 @2 D% {7 ZCell[BoxData[
    % Z1 a- p3 ?6 k2 C) \) E) N RowBox[{"Data", "[", 9 L2 x( S2 t8 r. K/ ~
      RowBox[{"[",
    # _' {& [: t* g9 j. B. E7 C% y   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",5 w0 j- g- h4 A
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    0 @6 j. D2 I$ ^   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],# L& c- _2 m5 ?5 R) D
    7 U. B; L4 K2 J( V
    Cell[BoxData["0.899882`"], "Output",% X1 d3 W4 J& l6 K4 N$ K8 m
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    # l6 N' H  E) J. r$ r   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9, + |! h+ i+ k0 N( s' b
       3.577961929080654*^9, 3.5780123419375*^9}]' U) G! H2 \& E- d
    }, Open  ]]," d7 f) `+ k( b0 o& R+ n9 u1 p
    2 v8 \0 [$ X  i( Q- |- L
    Cell[BoxData[7 R' u  d, F( o+ Z0 |7 K$ k
    RowBox[{"For", "[",
    % z% W% v  y$ ?+ t. N. \& C  RowBox[{
    9 n  g! _8 J/ d3 U! K! q   RowBox[{"i", "=", "1"}], ",", 7 A0 r  Y  j* J1 Z7 h8 t* m9 a( a
       RowBox[{"i", "\[LessEqual]", "60"}], ",", 9 l) p$ ]) Z# N1 m( L
       RowBox[{"i", "++"}], ",",
    ' G% C6 s1 c' O: t) g4 m! @! t5 P   RowBox[{
    ! r4 I! K" x& U" V+ N5 ?: l) Y    RowBox[{"y1a", "[", & {7 X& O% H, o: S
         RowBox[{"[", "i", "]"}], "]"}], "=", & F# s1 J: O* T9 Q4 U) y
        RowBox[{"Data", "[",
    " h. ]1 t# b  L! k% C     RowBox[{"[", / u. O# A4 J$ J! [9 V+ p+ |
          RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
    $ L7 M( |' s, V& m9 t& a0 E% g, i  l& v+ E CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {- d# w. A% Z3 Q: H' \+ d% g
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, & Q* L# O# T9 B& {* G
       3.577922923203125*^9}, 3.5779588839702806`*^9}],1 t2 z1 B7 J( K8 p/ Z6 L

    $ h0 M- ?: u1 I1 x3 ]Cell[CellGroupData[{
    % s3 n3 ]) Q) I2 j: m+ @
    ( V6 U" E! K7 v+ y- DCell[BoxData["y1a"], "Input",
    4 R# g. s, R8 n* `: r CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],3 }. o9 [  d! @) U# w% _
    % o! m& T  a8 t' Q- Q% O8 U
    Cell[BoxData[
    " f& z+ a& t6 ^. T  ~ RowBox[{"{",
    & ~/ B6 l  D6 M$ R7 p" [3 ?& R  RowBox[{
    / {, F6 Y1 ?$ [, Z/ d  "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",", # L4 [$ E* [- z& |3 a/ p% f& n
       "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",",
    $ P/ k* A# U- ?# I# r! u   "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",", ; e) R5 D5 Y" V7 I+ E# J
       "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",", 2 q, U- A; X: V# c
       "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
    : L. C5 Q; w) E7 J: \   "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",
    4 ~# H7 z/ k7 U   "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
    / B8 c1 I9 `: o! ^- |   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
    ( m! q: e( N" \0 [9 G/ S2 ^/ r7 A   "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", 6 K  b" y% v7 {4 U9 {, U
       "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",", * A/ t6 _( @" Y) S+ B9 p
       "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",   l7 {, a7 j9 p+ o: R
       "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",", 9 B4 Q8 A, Y' W& ]
       "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
    / {- F) R  r, O1 Z   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
    % V/ f5 V6 [; }$ C  B" ~; W& p   "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}],
    $ e8 _( r6 C; f4 K& n2 ^, ^8 n: @  "}"}]], "Output",& d3 T1 L, s. |, |& G( ~  G7 i
    CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9, % t- b: b0 {6 x' K# N/ ?
      3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
    # ]8 [& x0 v9 H4 ~}, Open  ]],6 T% P: t. m. i) d
    ) ]6 t( G' ^1 J$ _. o& t- t
    Cell[CellGroupData[{- a/ y: s* I; X; _$ C" \
    ; p  h; w- }  o3 p  |* D2 N
    Cell[BoxData[
    * Y# K7 r7 u" }' I7 U# [ RowBox[{"m60n21", "=", . A; s4 v. D7 L8 B" e2 i
      RowBox[{"Table", "[",
    0 D# s6 R' b. f   RowBox[{
    ( s, z$ ?" A; C4 J' X+ v6 W    RowBox[{"Table", "[", + N* b5 s& \* l$ b) n* ]# a* m
         RowBox[{"y", ",", ) J" s9 q9 U( ?
          RowBox[{"{",
    $ y; p- m5 [4 R) {       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
    0 n, j( N$ ~8 Q0 ^, b$ a    RowBox[{"{", & M6 a: Y$ C$ P+ w5 e1 X
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    " t4 N! p8 _) s0 p* V% d; ` CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {/ p9 O# r+ S" g/ R
      3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9, . ]/ D2 ^# F9 V" q+ o2 y
      3.5779619706547265`*^9}}],
    : e; B0 d* k% j
    ( l. I8 m! `" NCell[BoxData[
    1 T- M) x! c4 V8 }% e RowBox[{"{",
    - N, Y  ]% i7 t. D# y  RowBox[{
    4 J; f5 _4 ^. }2 o' ^  A$ v5 Z  D0 q   RowBox[{"{",
    " `. k( q$ T' ]* l    RowBox[{+ ^' w  C/ Z- ~' V: C
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: a" M$ a* G4 Y- p4 J' `( s
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' Z+ Z" f" b9 k# j# j  O
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 i8 q/ D7 `: r7 v3 D
         "}"}], ",", - X- e& T  E, D+ N" T" N$ t# b
       RowBox[{"{", 1 j+ B% O; T% U/ J4 [
        RowBox[{
    5 |4 k, ~3 k3 p1 }- u% x+ N    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," x$ d3 g# g6 G% _" p  U7 r; `
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ q+ u9 Z( W6 [  T, u. O" i/ V
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ) l. {/ m( D! _0 X% f. n# A# H     "}"}], ",", ( F& l: e$ e+ S+ T
       RowBox[{"{", 9 T# Y% Q" W0 i  p1 y
        RowBox[{% q" p7 S9 n: P# c6 U% z
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( r/ s9 ]  O5 |4 e! }- j+ c
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : {8 Z, Z! M5 H$ \  s+ U
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 g7 J1 y0 L, P/ X' m' @1 Y     "}"}], ",",
    # ^2 F) ~( O5 R7 L/ c- b   RowBox[{"{", . h3 `; u& {! P$ J) l1 w8 I
        RowBox[{
    ! @  A! G8 i5 a( Q6 b5 D, b2 H( l    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & r2 Q( I& y0 h; R      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      y& d2 J/ a; x) a     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    + v; X: q' G3 t     "}"}], ",", 1 ^! _; v6 Z& T! m3 q; L  `
       RowBox[{"{", 5 _/ Y/ I7 w6 B" u" P0 w  q+ {
        RowBox[{
    6 W3 y+ d7 l+ K2 ]/ [. ]: P    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ' l; y2 @' h* c4 x( o( G, t! o      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    # c: e- y% L/ n- S3 k8 ~) W     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' K1 F4 y6 p( Z- m! S( w& i1 T. W# r0 q
         "}"}], ",",
    1 e# K" A9 q& P" O# W' `' J   RowBox[{"{",
    5 c% m, f# |% I, F2 Q    RowBox[{# i1 i8 A$ `  k1 O. V( |
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    5 y# J* X* @# Q" s      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 D8 i2 l' r, t, J' e
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , `# c6 w- s# R. L1 \' m     "}"}], ",",
    & D3 t4 I" F- T7 }  k) `   RowBox[{"{",
    / h# O. V+ q2 x* ^' K    RowBox[{
    $ D+ g% g. p2 B1 z! n$ m% @! G    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ {' m: N: ?( t0 G2 I; F
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    . m: Y6 _$ u% _4 M; n: v# n2 T" J9 w& y( `     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 R2 G7 [, Z  e' h) n     "}"}], ",", 9 V2 K; n8 H1 B$ d
       RowBox[{"{", $ B  ^) P3 a* w
        RowBox[{
    2 \' U* P" R. R6 c+ `; q" M* [' s    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    * Y" A( `4 i1 M/ J) @      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 l# v+ A: a% N0 ]5 ]
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : ~) O. B) p" V8 m0 }+ `$ \     "}"}], ",",
    8 T' q) z! n* l! W   RowBox[{"{",
    * z, M* \" a7 I$ J6 L1 I: T    RowBox[{
    + d: `& E9 u2 [$ e" [1 n9 w    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 K$ I0 }' c. ]+ }3 @8 P# ?# O+ w, O% `
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 S. [, X2 d" H! a4 n1 P
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 t6 s# Y& z0 A' K* t     "}"}], ",", 4 Z/ [  M+ A1 E. ~. V: B5 ?
       RowBox[{"{", / d; l; Q9 i# k! F+ f
        RowBox[{
    8 ~0 O# v' ^& ~9 W    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," v0 q6 x8 w7 S
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) \% f6 D- v" p" s+ [; p" B     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    / K7 ^1 ]0 Q; k3 U     "}"}], ",",
    1 V0 q  {) @" G' v5 U   RowBox[{"{", 0 D' a, A( T' T* [4 E/ {
        RowBox[{# b1 u5 l- |% A& V# f
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# r5 Q2 k. ]  R. V
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " {0 H$ t6 t0 y- q5 n0 ?     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    " n! p/ |! w8 V* [. h: Q1 V     "}"}], ",",
    * K8 J! c# S1 ~, y7 J   RowBox[{"{", " `& D0 l8 |+ w1 b
        RowBox[{
    4 Z3 o5 c7 D0 k3 P# K9 \4 h& r" r7 f    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. ^: M8 A5 J6 s$ D8 R
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - c% p9 Y$ X0 n
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," j. j+ g3 x6 f$ Y: b
         "}"}], ",", ; _6 m% G2 p7 w; k
       RowBox[{"{", & r' u& j' J, Q5 ?5 `/ ^9 S
        RowBox[{
    - E& R9 J$ R' L    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 U; f# f; L3 ~# I- \1 l5 L4 B
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    + W: I' ]+ J5 f: x     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 x* q$ ?' {/ a2 ]
         "}"}], ",",
    " Q+ D4 w$ R, g. S0 h   RowBox[{"{",
    6 B# ~( M# U; p; J7 j: N1 f# H    RowBox[{/ K3 w- V( l& i; \  F' ~: J9 o0 v
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # Y6 T* c+ F# B; \% B) P  q5 i2 K; Y& k      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ' n) ^( F, U& J! L     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& {" X2 _; E* @# x+ A
         "}"}], ",", 0 e. q1 U9 i, c* k
       RowBox[{"{", ( b# I+ s5 a) X
        RowBox[{) m) _* e, @/ E" b" m$ A& a
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ M% C# y0 I+ n3 e. W$ S* w  V; B
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 \! o. n6 c! r6 f* U8 G) s$ X     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 ^0 x* Z/ h* N/ g: Q     "}"}], ",",
    6 ]5 O6 O) \6 O+ u   RowBox[{"{",
    ) c0 I+ P; s" m% O1 k! [    RowBox[{" J$ v' v' N; Y; ]
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: U$ E& b, d/ ]$ V6 r
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      E/ t4 `7 a: N/ G/ F- ?  h. B+ |7 m     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . |( L6 T$ [1 G# S( u     "}"}], ",",
    % ^1 v0 h9 r9 Y% b& h   RowBox[{"{", ' }& m, k9 G" N* a, J7 Z
        RowBox[{
      l2 S8 z8 t8 p4 v2 }    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 d2 Z  _+ n* _
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 O0 I$ c: _1 n' J" @     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! F) X) L& t7 G4 G' S- f) G- q
         "}"}], ",", # w% ^% u$ |8 l
       RowBox[{"{",
    + i- v5 Z, |0 C! \    RowBox[{
    - K5 u+ D- E9 B# t+ v    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    7 J8 m# Z$ N0 V3 G% I      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    + Y0 ~3 w  O( ^7 R     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," S# I' e8 J/ e- H
         "}"}], ",",
    ) `8 W, \1 @# \  _/ m+ `) ~9 Y   RowBox[{"{",
    9 I- x( P- l2 \: }: b* Y    RowBox[{
    2 V  c* J2 z0 R5 O    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ' r0 Q3 i. C( s3 C      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    + B6 f% S9 s7 l0 d" z" |     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 O6 B+ D9 a1 g# }2 [
         "}"}], ",",
    + W# C: y( y" O  E3 J7 Z% U   RowBox[{"{",
    & I) m" g2 _# l    RowBox[{
    # J$ n" \, M6 D2 E  Q! f7 G    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 D+ Z* j) m( p/ H" C
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 J$ B* J& N- Y% L% X- n# Z
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* {9 v, I4 Y' K/ g3 {
         "}"}], ",", 5 y+ z# J; a1 [! N7 T7 M
       RowBox[{"{", " Q$ W& L8 {% X+ n
        RowBox[{
    4 ]( O. Y4 b$ D) v' D/ H1 W    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," W0 C& ^! r& E& o" |: T
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; g9 v. n  {& l     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    " b+ N* c4 U/ q6 |" U2 ~* R     "}"}], ",", " b- Y4 q  `# j4 t& d3 R. k
       RowBox[{"{", 3 k! N% E* e0 _4 n" Q/ ?" V+ b
        RowBox[{- }' \0 S% o7 i, p* r" Q1 d+ J$ z
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; F9 l5 j4 Z* C      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * Z. g6 ^) }2 h+ [  {" M     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    % I# A3 V* r7 v  i7 n6 o     "}"}], ",", + `& K) n) W7 C# U' g
       RowBox[{"{",
    1 S' W5 Q+ `" t+ `* R( {7 O    RowBox[{
    ( [& k; d: H) W7 Q1 b$ r; b    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; B0 M& f5 H2 z; ~7 [7 G
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " u+ d: l; r) ?5 ]1 m; [     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 J3 B: P# ~) z1 i$ U# W4 p: F: W4 F7 [     "}"}], ",",
    ) I* b- a: Y+ j+ E' [0 Z  x   RowBox[{"{",
    6 [6 Z3 M. @  q" [  C6 N    RowBox[{
    , H; F- |$ R) Q8 j: C2 @1 x    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' s0 W- ]; }7 `9 H% {6 J5 a
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    / O/ k% G( Z4 H  p4 X1 X+ g; j     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: L! k: @' X1 m% P4 y
         "}"}], ",",
    ; Q2 o5 K8 \' _4 q8 ]! C   RowBox[{"{",
    0 P7 j( ^( j: U5 D$ Y- b    RowBox[{3 n8 N; f* m4 t( Y; P8 M2 g
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) i6 X% g1 `, F+ z; s# b, T0 W8 f4 v      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + O2 ~. V( M: x. ^
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* I  f, x4 E, z* K6 X" H
         "}"}], ",", ; [( z' a5 q* K+ C
       RowBox[{"{",
    2 w& V/ `( X+ X    RowBox[{# Y+ C* ?7 Q7 C# [) j% T' G8 N
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 q3 n7 `3 J0 ]% ?      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , t7 S6 w) j1 ?  k  W3 N9 t5 R' U* c
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ b: _, [7 v% [8 Y' ]8 H% ^/ O( \9 z8 E
         "}"}], ",",
    ' C4 a. {3 t) k4 Z) g   RowBox[{"{",
    & H0 V. j( H2 t, d' Z  p    RowBox[{" ?' n/ H, `0 a. ]4 L
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    - F3 q( x% i2 B. T* n      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! ^  y9 J- l% l$ x5 h+ N/ X# T     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ) L5 q$ k& E& {6 c9 u     "}"}], ",",
    1 `$ O/ L( C5 Q3 P( Y   RowBox[{"{", * I, I9 ~1 A/ d- c0 e+ m
        RowBox[{9 @9 r3 r0 l, @2 B8 W
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 T& e' T$ ~- E5 N* H" R+ |
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ' n6 p  L, j- d- T) \7 ^4 Y2 C  b     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; k. f- \( Q0 [- @: a; O( f5 o
         "}"}], ",", & F& p8 X6 T* q; w- [( e
       RowBox[{"{", / j- z8 F$ e9 S1 {  e$ s; L
        RowBox[{  Z! Y% b* K! Y7 V1 ]9 B! Q. R; X/ ^
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: S9 y% ?; g8 J4 A
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 l. A- u6 ~  t. a
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    4 P. K8 ~3 J9 I- F8 ~# J4 v: T* I0 a     "}"}], ",",
    $ }6 |7 ?) j- n/ W# E- f   RowBox[{"{",
    9 e, g& @  P3 g; E" g+ P4 M' P    RowBox[{
    , \: r1 l' d. d+ T. `2 r9 I1 w    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; d8 [8 u# m# m5 O      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 G. [+ u7 i' v, G7 n# L9 V- w     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 {9 N  {9 U- ]7 o( \7 J1 J
         "}"}], ",", # X, e+ n* G( r2 t" v
       RowBox[{"{", * P  @! x" y( P
        RowBox[{5 s3 ?8 u1 X, f
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # u9 |1 p7 T1 @5 V      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 Q( x2 s, A# |. z. a' A
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : X+ u/ ?2 N" F# o* t: U     "}"}], ",", ( _" h# Q- h( V) Q/ E0 G, c
       RowBox[{"{",
    * B8 x- [7 p% H    RowBox[{/ K. \2 ?$ l: L; j0 h7 n
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 u! k: h/ m9 m      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    - }0 X' j5 Y$ Y3 ~6 U- R4 A2 R     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 m0 s0 g  \. a4 ?- T     "}"}], ",",
    / }& m; ?$ e) a9 D9 [9 i   RowBox[{"{", ( m. y7 @8 f. K, }$ `! a
        RowBox[{
    ( O- D2 k2 R5 y# @2 E4 z, Y9 M    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! t4 t! I4 x; `7 ^7 X( Y; H" g+ q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . w- Q$ ?7 [3 i4 y8 H9 N
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : o8 f. p6 U7 Q; _9 }     "}"}], ",",
    & v# c: R& R- P7 j  k   RowBox[{"{",
    + s7 y8 f+ h# r( R% Y    RowBox[{$ s% b, t4 f* v
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; h9 K9 K6 Q, W7 X      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 M+ P* E" V2 Y+ s
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 a& ]3 f' b/ r/ `* m
         "}"}], ",",
    / E! u' V( {  a" a& O5 u   RowBox[{"{",
    2 n$ D8 T: D1 G+ w2 h    RowBox[{4 j4 ~4 V4 L8 k! l
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    5 l) ]( z( C# f/ |/ J2 Q, M      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 j! a( l3 N5 K. X* y' _, o     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& C  ^. x0 m# N0 H( t
         "}"}], ",",
    7 R# \, D6 j/ U$ Q   RowBox[{"{", " `3 F+ t- C9 G+ E& @: m
        RowBox[{$ O7 c# `/ q$ p
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    " @% {! D3 q/ y9 m) H: G      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , N0 D; w# q" W( j0 r     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    4 s3 W/ x5 L- `7 x6 M9 t; U2 r+ e     "}"}], ",",
    % a9 \4 n5 q6 z9 X   RowBox[{"{",
    5 ?3 I5 a- D6 s    RowBox[{
    * `$ S! Y+ K7 G& ]1 y! x    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 x8 d2 e% [4 Y2 z) {2 t* Y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( _) r$ t" E/ ^0 d8 H
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 L' A* {. B: s) z6 j- Z) {
         "}"}], ",", ; c! E  |: g# Q
       RowBox[{"{",
    ; D0 n5 b8 Q- e4 K" P4 [    RowBox[{) a: @$ Z/ ~, A7 F$ `
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' f# C$ E8 ^% _& e; a! R
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 1 Q- ]7 x7 s2 q2 D
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 C. c" m0 L; V, C+ E6 D& P, g& J, C     "}"}], ",", 7 C7 `2 d' C" j- l: ^0 i
       RowBox[{"{", - _! _3 z5 g- {
        RowBox[{
    ' m1 R7 X6 K7 e" F/ F    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",+ G; c' y! f0 O. n# q* I
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . E0 R9 M% h: O$ \
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 Z: O) E9 J" W     "}"}], ",", % t0 k5 y0 _+ @) w7 J- J3 E
       RowBox[{"{",
      R( F% k4 ?$ U( N4 _    RowBox[{8 M; E. ~! a2 F+ |
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    $ E. W) _; o6 m! [      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " X: f4 U2 e+ T
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 R* F. U8 S* `+ o$ j
         "}"}], ",", - v6 S( g0 r: y) |
       RowBox[{"{", ) {0 p+ F1 j0 u
        RowBox[{
    % U0 a! y! s) y1 I6 r& s    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  l9 E0 Y; \4 J- q3 Y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 U4 k% c3 V  r  s' _/ S
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 r& R: t4 X- T; P
         "}"}], ",", 5 D' g# R8 q3 S, i" E* }& [0 t
       RowBox[{"{",
    ' b7 d4 ~1 q% q7 Q+ }4 p    RowBox[{
    . B1 A4 G8 @6 M. R% E# O) F. Z9 i3 W    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 n  x* g, Q3 u+ H. I- r
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! `0 S7 z" Z, R- n% j% o     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* y3 N0 w' S% B/ V2 O
         "}"}], ",", ; ]* P3 b1 q1 Z3 @& }! C3 J
       RowBox[{"{",
    . d' _+ P9 x  P) s. g* l; [    RowBox[{
    4 l# `$ i' `2 o0 {3 c    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / x" G8 V% T8 v' n9 E) o      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    / y7 @# O9 h+ C     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    " c, P6 u6 J3 t) ]6 W  n. E     "}"}], ",",
    ! p9 ]0 \! _/ M7 \   RowBox[{"{", % t3 Z! K& T6 W( }7 [/ h, B
        RowBox[{% \9 o: }4 q/ |; r0 a: b# `
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: v) Q. ^+ Q+ a  }( @9 s
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 p( |! s  R/ B
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 Q' m/ U) x) q+ d5 }     "}"}], ",",
    4 A+ E! Q- P) K1 A1 b* ?   RowBox[{"{", : U- Y0 z* F) G( s( Q
        RowBox[{6 j7 f, U  m) ^& f. y( E3 T
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) j( S! \/ D6 c
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! |0 ]2 g. d  d4 k0 f     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      m) {3 X4 ^1 f) X2 s4 |# m     "}"}], ",", 4 R3 U6 K3 C3 c1 B3 Z+ }% z) q
       RowBox[{"{", 6 |9 v% M$ x# J% C' N  I. l; {6 c
        RowBox[{' z  F% J" g* h1 j
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    - V* {' k# h% {% q" j- }      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) `+ g* T  _# z- v5 x
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      v  D7 _, Z' }& B( K" |4 s3 l. V     "}"}], ",",
    3 p2 }2 h7 t8 ^- f) j/ I3 b   RowBox[{"{",
    ; V2 S6 q0 ~, i    RowBox[{
    7 v: ~8 q$ R' R9 ?8 ?% S: k    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# T' a) r1 K" k
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; b6 u, M! P' @9 E
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ q2 n0 L" ?6 T
         "}"}], ",",
    , g0 B, t; N4 E# D) y% K, G( m" t   RowBox[{"{", 7 T' A/ W" [; P- }; D
        RowBox[{
    : E9 R  {6 R) `' u% ?# l    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. n  \" i( D! A# K8 c
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ) \( i$ p. w- r2 R  f8 `
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ' [. @7 u. F6 E8 O* L  X  ^     "}"}], ",", ' F) r+ X+ z* \  p% e5 \
       RowBox[{"{", $ R6 c* k/ D0 K; d
        RowBox[{6 G$ D: t$ c, k/ n. V2 s1 g5 `7 S/ y5 f
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    " E2 [+ E8 ]: e      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 x( S8 T1 T  Q* z7 j( Q* q" X( T. d
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    " `8 Q% Y( O5 c* B6 o! P     "}"}], ",",
    0 L& L6 p( Y' W& X1 x  W4 d   RowBox[{"{",
    # ]( \: a, f7 g) _* v) J    RowBox[{: w' t. B; o+ N% }
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / Z0 h! x9 n: o( C; C" \" a  ~      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & z4 O; W7 y' O
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. w0 Z# `& K3 R3 u( R( T
         "}"}], ",", * o7 \( b: Z# z! Y9 {5 q7 J
       RowBox[{"{", , Y5 V0 s' j: E7 [: F
        RowBox[{
    9 i* h- d0 `2 ~8 d) ?    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : j( x, f" m+ J# ]4 A- H: M      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , c, z5 E1 t- f: S3 S/ B
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 N0 R5 K9 q- i: G     "}"}], ",",
    % l5 b- d) c% i* e3 g   RowBox[{"{", ( j6 S! M  A8 X* o
        RowBox[{
    % K2 D/ {2 D8 O8 c    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / y" I, W- q3 N3 T2 ]5 K7 z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 ?( n( Q1 J, m9 C
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , B! e; K4 P1 W* O6 L' z9 n% [" n; `     "}"}], ",",
    : E0 S" j5 L7 v  R  M   RowBox[{"{", ! n. |# v/ s0 S& e7 _" |' {, T# x
        RowBox[{
    0 g  o2 q6 L& A* `( t    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 d4 Y$ @! q9 e/ k& P
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + g. V: D" f3 k; V8 V. c' ~$ y% K! @
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 L% m) p/ T" J
         "}"}], ",", ; ?) Q8 c( j) \
       RowBox[{"{", 4 Y( A" F  m: Z( X/ \
        RowBox[{  B7 K9 ~2 D4 X) ~
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# W) q# {6 J; ?- m7 x8 k
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; R3 s$ W8 U- m- P, H% `     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: x1 E0 D$ m" B! r
         "}"}], ",",
      S' Q& ^% N; r  l% j) o   RowBox[{"{", + ~- {5 q) h) y6 P- _- i
        RowBox[{5 J1 W) L6 T8 I. _3 X+ L1 K# b1 r
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ L: q) h7 s) B
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    - w% Y8 c/ ^1 I  s6 r4 L6 k3 ?1 Y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 V3 I+ u- M1 S2 A; @/ F
         "}"}], ",", + U5 w- B1 P* ?& H
       RowBox[{"{", + ~! _/ j: B9 E7 w& a
        RowBox[{8 v% r9 X& \" T6 ^
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    5 c  H; p5 r3 j) N( N! F* A( }      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 A+ D% T2 d& W& s- T! u9 G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 e- p5 P  `) R/ Y     "}"}], ",",
    . m+ K; g' _/ |& S   RowBox[{"{",
    & j9 a, q7 w- b$ D' l) C3 G    RowBox[{
    , y# u2 O  u9 Q7 A4 Y' J! R$ F; ^    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% }. s$ h( a7 W+ x5 p- w9 b
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; w2 u: e* ~, p' T8 V4 U; ]     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," R9 Y3 y  p- d1 J' W; }
         "}"}], ",", ! o8 h, J) W7 v1 C+ {
       RowBox[{"{", 4 o+ }8 m8 Z& S4 z
        RowBox[{) t4 \+ {4 v8 ?* v
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! U3 m$ s6 |, D! g+ |* @4 e: q
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % A. G! j8 ^( g+ @' o) B     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # j& X2 T% R7 A9 G$ m* p     "}"}], ",", ! h9 g$ f( M7 C' k' l4 u
       RowBox[{"{",
    : i& X/ \' H2 A* M. ]    RowBox[{2 U- @3 u6 e' S9 B/ z  m
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: M+ x: D; V; X6 V6 N
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; {" N9 m5 |2 g' ~1 Q0 s( x     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; e  t5 U0 n" i! Z7 S     "}"}], ",", 3 j1 U- a5 }4 U1 X( m! |* \
       RowBox[{"{", + A  S9 a5 D# O1 R
        RowBox[{3 `+ j# @. g2 `! Q
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 L! s0 u0 v& l5 ]& F      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    : y1 c. D+ ^' A; C. |     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( L1 T4 |+ n5 Q: F- Y
         "}"}]}], "}"}]], "Output",2 g" J9 p/ m- w3 P. U% A
    CellChangeTimes->{
    ! |5 h4 g" |$ @  3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
    0 b! Q$ Q$ v9 E7 ?0 A; Z   3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9,
    # W4 ]0 h+ @  M; L( D9 B   3.5779619748823338`*^9}, 3.578012345453125*^9}]
    / H6 |$ g+ H- L6 m# B- |}, Open  ]],/ U; e2 v) u) Q2 q  b5 }. d
    3 T8 ~, \- B$ L
    Cell[BoxData[
    9 W. A. f* a( n4 |5 c3 ~& h( F RowBox[{"For", "[",
      n2 }: s: ^" [; P  RowBox[{
    ! ^! E) P4 t. p" ^- `$ p   RowBox[{"i", "=", "1"}], ",", 9 b5 I% i  |8 c5 b+ V4 y
       RowBox[{"i", "\[LessEqual]", "60"}], ",", + ?" k# s- f( \& x  d
       RowBox[{"i", "++"}], ",",
      h3 N* v4 j; P# N$ p# d3 [# n% X- K( d   RowBox[{"{", "\[IndentingNewLine]",
    5 N  p9 I! W4 w0 z* _1 [    RowBox[{7 D- e- l5 d: ?& X
         RowBox[{
    ) \# E0 c* x! y      RowBox[{"m60n21", "[",
    ' a) Y" k2 |" N) |$ o% W       RowBox[{"[",
    3 z4 O% |; j, R: M; B        RowBox[{"i", ",", "1"}], "]"}], "]"}], "=",
    6 u/ s( ~; E- j/ |      RowBox[{"u1", "/.",
    3 ?/ U1 l8 `" q       RowBox[{"{",
    7 u$ A! ~/ F1 b1 u3 m  M        RowBox[{
    2 I9 G0 X6 |4 Y' m# r) f         RowBox[{"x1", "->", 8 b/ V: Q4 w3 F1 O4 N& k
              RowBox[{"Data", "[",
    + i7 S  b9 X7 [           RowBox[{"[", ' @( ]6 R9 O" r' N( @
                RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 9 \4 A5 }% q- V+ d* v* x$ c: @
             RowBox[{"x2", "->",
    . W2 l5 c8 X" I7 n          RowBox[{"Data", "[",
    + S& `, G$ s1 ~  D/ |           RowBox[{"[",
    & a! ^1 {+ `/ c            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 1 n+ y. M$ J" G" u; k
             RowBox[{"x3", "->",
    2 s$ O" Q5 n* N2 P, a2 `( z5 g          RowBox[{"Data", "[",
    ( j( c2 V& p0 K3 [           RowBox[{"[", 3 P! D1 E& ~5 p. r+ e
                RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", + g( P* g. y+ ^
             RowBox[{"x4", "->",
    $ g% l- F- U' [9 X6 h  l          RowBox[{"Data", "[",
    $ I2 V5 j" |7 m" k- ~           RowBox[{"[",
    $ M2 l0 y$ n* ~, j            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", % m$ c! |" D4 h* a6 y
             RowBox[{"x5", "->", 3 t$ h5 k5 z5 ]' u
              RowBox[{"Data", "[", . D6 p/ O3 L2 w! x; D
               RowBox[{"[",
    : L8 k) |1 \* v" `            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", 1 ]3 M3 X2 K/ q( q- |
             RowBox[{"x6", "->", 6 z  t$ s, V# E  f8 L1 v
              RowBox[{"Data", "[", ! u/ [: Z! e) a/ d
               RowBox[{"[",
    4 ?0 p) \! n% O0 G+ w            RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    $ x3 P' s; _1 J$ _, y         RowBox[{"x7", "->",
    # s/ P* `- L0 I, r- `* M          RowBox[{"Data", "[", ) U# x! F% Y6 k! ]( B/ k3 o- R& i
               RowBox[{"[", # s( N. u" H0 X; M
                RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    0 K9 s: c. h! ~4 v* y4 I         RowBox[{"x8", "->", 1 k' r) H4 Q( Z, I0 q8 I' ?& B
              RowBox[{"Data", "[",
    7 _! U4 I+ v& j% G* D# x$ G           RowBox[{"[", + E) n+ v' |, F$ Y' t
                RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    ( i: G1 L" L- [$ E: |2 m; f         RowBox[{"x9", "->",
    2 T9 e- g& @* {0 @+ T          RowBox[{"Data", "[", ! R* v+ ]9 G% N& k$ Q
               RowBox[{"[",
    , E! t! I! a; r: v3 V            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";", + H: G, w9 d$ G
         "\[IndentingNewLine]",
    : K+ _! F3 N; c0 Y, n     RowBox[{. u1 Q4 n. a3 J
          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
    # G  k+ H# x4 f神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
    . g; u2 j6 B; [
    (* Content-type: application/mathematica *)
    $ s) q& h' p4 O# P2 `5 P1 ~0 b9 l  F1 j/ p+ a
    (*** Wolfram Notebook File ***)! b, v) |6 D2 J
    (* http://www.wolfram.com/nb *)
    5 w) n( S- ~  t/ ?
    3 h3 s! G. F7 {4 W6 W/ G(* CreatedBy='Mathematica 7.0' *)! X# |, O' y# r% w

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

    2 l/ j. |8 t/ n% g6 h+ D. e1 u8 zCell[CellGroupData[{+ i2 b/ S# U: ~- z

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

    : z2 x% w# Y$ F( e5 N& R/ j) |2 a7 ^, ECell[BoxData["0.2`"], "Output",
    7 @; r( b: ]( x: K* ]2 l' g CellChangeTimes->{
    ' z1 c, g3 `! e" `# O  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, 3 ^/ c3 B+ U* B6 H/ }# \. h
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    - f( W0 F7 ~# Z4 T4 v9 b, b8 F   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, , n5 h9 f: F% W) F6 P  V
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
    8 O. \. I( j2 H+ Q1 |6 k+ ~   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, 0 l  Z$ ^3 g" m
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    . p, X; b3 i% N8 t   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, 3 _& v3 s9 ~. W& b
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    1 L* N. r- @! }4 Z7 |2 j" f2 v   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, & h+ E( E$ d+ }/ B6 ^2 u9 @  H# y" W  m
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, . T8 O8 K. y: z' S5 @
       3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, 3 B# o. i7 h; w$ e
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    : @8 Z) O) V) V8 l   3.577960510686717*^9, 3.578012149296875*^9}],
    , U: X8 N0 p* b2 E5 b4 o2 ~. _' r7 k( I& C  G2 F# O
    Cell[BoxData["1"], "Output",& W8 d5 p. J8 L' Z
    CellChangeTimes->{9 m4 s/ T/ L& m
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, # C# o3 Q8 p# N) h
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {3 T2 u9 a! o* Y
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, / Y7 g" u! `8 @7 w$ R: L: R
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {& ?, h: [% {$ W! W7 C! W  M5 g
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    ; r7 a: Q7 @4 t2 Y% a1 B1 ~+ j   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    3 i2 W, z1 y% Y; I4 V: @% j   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, * e- R# S, c; K& r* c
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {& B0 i$ b! P# g, l( F
       3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, & m) l0 e9 O- G6 G  l$ R
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    & o8 Z' j. j# g! m   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    3 ~7 x( e, h  P# P  T   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, - J0 R/ E$ }+ }4 a, ?0 m3 K" e
       3.577960510686717*^9, 3.578012149296875*^9}]6 O9 U$ d) |/ ]% A
    }, Open  ]],
    + c# I" G7 S+ P
    ) w, ~5 W# ^2 J& ]Cell[BoxData[
    4 |* `8 [$ S7 \! L& y RowBox[{"For", "[",
    ( d4 N4 q# J# Z2 C) u  RowBox[{( S; t8 p1 f1 W+ m* k
       RowBox[{"k", "=", "2"}], ",",
    & q; U6 Z( B4 ?* z  j. t4 W   RowBox[{"k", "\[LessEqual]", "60"}], ",",
    ! q# V+ V+ y8 J   RowBox[{"k", "++"}], ",", * J- ^: i/ _" i/ L+ W
       RowBox[{"{", "\[IndentingNewLine]",
    # N5 t5 ?9 R" T. e! E    RowBox[{
    ! B5 ?9 J5 ^. L2 t$ A% Y     RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]",
    , D  G  M3 k  ?     RowBox[{"For", "[",
    9 p1 g6 h- z! R4 i$ p      RowBox[{
      R: b/ J. C# w, N/ t1 L- k       RowBox[{"j", "=", "1"}], ",", / r0 N# ]2 Q2 [& T" y4 O( t, z5 W
           RowBox[{"j", "\[LessEqual]", ; Z/ i$ J# |' u2 a; [# F5 X8 u
            RowBox[{"k", "-", "1"}]}], ",", + u5 }6 j$ _6 J) Y. }! B
           RowBox[{"j", "++"}], ",", * v. a/ \9 a. W. }0 J, c1 p/ ~
           RowBox[{"{", "\[IndentingNewLine]",
    & q! n: J0 |% v        RowBox[{$ |% V2 ]+ w1 K  b& Q. g. _
             RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]",
    1 Z' R- n+ F* L         RowBox[{"For", "[",   Q* c1 n2 O  b4 ~
              RowBox[{
    1 A; t/ G1 |/ t" e: n3 _+ A% b5 Q, c           RowBox[{"i", "=", "1"}], ",",
    . z' E; Y7 W  @& {           RowBox[{"i", "\[LessEqual]", "9"}], ",",
    " ~! D7 R; x) m$ r+ S7 \' z! ^           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    $ r, \: [4 k0 l: p2 s0 `           RowBox[{
    ' C' M' z) _; X+ l7 S) l            RowBox[{"r1", "+=",
    " ~0 `. u& p/ J1 ~+ ?             RowBox[{
    . a0 h+ t5 g. y: N/ B! X5 z              RowBox[{"(", 7 g8 h. `# C4 G  l1 S5 G
                   RowBox[{
    " O* `# y9 v, S0 L! B                RowBox[{"CM", "[", 2 C5 G8 E3 S+ D
                     RowBox[{"j", ",", "i"}], "]"}], "-",
      t  i4 ?% r2 U( r                RowBox[{"Data", "[", 7 A7 Z/ g4 }1 u! J  s5 d
                     RowBox[{"[", 3 U; N, ~5 I% I$ q' A1 K
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
    # X) b/ w: T: d7 _2 J. Q5 o$ z              RowBox[{"(",
    - J# ]0 r$ _  m, g4 E; v               RowBox[{
    0 I; d1 p. S) }. g                RowBox[{"CM", "[", 6 p8 Q8 H" O' i5 G/ s% W+ s
                     RowBox[{"j", ",", "i"}], "]"}], "-",
    . z) G9 m, m2 @9 _  O& e4 w                RowBox[{"Data", "[", 5 H8 s! `, [$ X& J( {
                     RowBox[{"[",
    ) |; a% Y( {  [) I                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
    7 |6 P- _$ W6 m- K7 s* P: D( i8 Z           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
    & H: U0 L/ g  |3 h- l, W         RowBox[{"r1", "=", % E" W* f) k/ j% S
              RowBox[{"Sqrt", "[", : b) M& d& i6 T6 l' o
               RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
    2 F' O$ O9 r/ I         RowBox[{"If", "[", " ", 5 i9 D- F. O+ t( {8 d! R
              RowBox[{
    4 q. D4 _1 @6 U3 W# I# d           RowBox[{"j", "\[Equal]", "1"}], ",", 2 j  z$ i* I2 A) q0 H) {0 S
               RowBox[{"rmin", "=", "r1"}], ",", ! H) V  C9 z  U! |' z
               RowBox[{"If", "[", 3 W' i; S% B6 h. K( i. l) `
                RowBox[{
    ! r; B+ |8 g) v- I             RowBox[{"r1", "<", "rmin"}], ",", # D9 G+ F* g- y6 q
                 RowBox[{"rmin", "=", "r1"}], ",",
    & R! @# D& F: G% D. a0 ]9 l             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}], , d! o+ l, z8 E4 M
            "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
    ) T' g7 U! P6 U5 A; t     "\[IndentingNewLine]",
    5 d$ N4 l' V$ h. Q3 t! H     RowBox[{"If", "[",
    9 q8 f% E( {% R" h: G      RowBox[{
    ) @8 r* A" F8 l. y: R       RowBox[{"rmin", ">", "r0"}], ",",
    ) |8 M' V& a( M) h, @( V, a- M       RowBox[{"{", "\[IndentingNewLine]",
    # S* O( K, n8 k, a1 M        RowBox[{
    * F' f7 c$ p/ W0 l! E4 r( z, t  L         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]", 0 }* j0 J7 _5 d3 G% _7 A
             RowBox[{"For", "[", ; ~# w( }. a4 [- O' c. o
              RowBox[{& Z: k8 E% Q# V: G# l+ l$ Z. \
               RowBox[{"i1", "=", "1"}], ",",
    8 n9 w* L  x1 g1 p! c' q+ Z           RowBox[{"i1", "\[LessEqual]", "9"}], ",",
    0 a/ f- {. z0 u! w+ p/ g           RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]", / P; p1 t5 I1 e. J; v8 j/ D. q
               RowBox[{( g' {+ c# ?7 i
                RowBox[{
    ( a5 K/ ]5 p) a$ t( x             RowBox[{"CM", "[",
    : t- E6 ^# \# n6 D0 g              RowBox[{"M1", ",", "i1"}], "]"}], "=",
    . L; |8 U+ w! u+ [& x# H& n+ a             RowBox[{"Data", "[",
    0 A6 r' m) y9 Q( ?7 D8 R2 F6 h& [6 S& N              RowBox[{"[", 0 q5 y+ _) f* a4 {& Z$ E8 d
                   RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],
    0 s' I  \( ~/ D, L: l          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", 8 ]" o4 u9 I5 Q" g6 l$ S
           RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], 4 H# Y* z5 L8 Q6 @2 s' A2 z
        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
    " r; e7 L/ i9 W0 F CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {. ^$ K& O& ?* r/ i+ o9 T6 W
       3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
    * Y' B# F2 _! _! W4 X" ^   3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {
    , M& A. w% E+ a   3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9, ( w3 }; j$ V+ d( d8 t) T4 {
       3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {8 ?& a% U% [2 v6 g
       3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,
    / H8 X8 h/ e( ?: \( A   3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {; V) @2 }2 C1 f& }* ?3 ^, z
       3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
    3 k  x, `; f8 j& t+ v" ]   3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
    6 j' [) n  B! b# ?% r/ Z/ ]. Z   3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
    , Z3 L3 t6 x1 ?  B1 M) q9 Q: U   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
    3 ~# D8 A8 D5 z; _( Z   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9, 1 y7 p# w5 C1 Y1 n/ ^
       3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {
    ( O0 ]$ I) Y3 c: ]   3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9,
    * w9 s5 J9 K, w! E- k   3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {6 Y2 R& R" l, ]( t1 o- A9 w) k
       3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9,
    / B* ]( b5 j: \+ T- z! \   3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9, . G4 ]5 N# g1 z+ U: B$ |, x
       3.577958821991373*^9}}],+ R: t7 Y; l5 C; y- A! b

    ) v, C% x# Y8 O/ c. y# \Cell[CellGroupData[{1 h3 L# h& T4 c+ u
    * w8 i  b% _2 S4 o  Z3 K' d7 O
    Cell[BoxData["M1"], "Input",
    8 K. {% k/ a. W6 e CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],1 G6 B% Q2 u& H7 M
    ; q" j, f! x2 w  V
    Cell[BoxData["21"], "Output",9 @8 J  a+ a5 c$ O/ n2 Y
    CellChangeTimes->{# ?5 I0 c2 l# L
      3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
    7 I- O2 n0 C# r   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
    4 H+ U/ W5 a- h" v3 d   3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
    2 d" R" [9 o; S; w+ f- O* P   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9, 4 I1 [/ m) N; x
       3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
    ( ]/ f6 T# v$ [* D) g9 G   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, . V* _, F3 c5 I
       3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
    $ T  X1 g" l' x: {  M) r+ A' }) B   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9, + `" E8 ?9 c% k; W; s3 h
       3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
    0 O3 _& C$ z: D5 W   3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9,
    5 g- w) {& v9 i7 d  C  ^) ?   3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9, 9 U0 h' I' q6 r! {2 f4 q, {4 `
       3.577960515600726*^9, 3.5780121541875*^9}]
    & d8 H/ H2 n) w}, Open  ]],8 @5 ^/ z' e8 Z% c2 a% {

    / Q' F5 M2 s" f4 Y& A, fCell[BoxData[
    * Q" w& e: [. e- q% s3 [ RowBox[{
    9 U8 m" B2 G6 T  RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[",
    - I# A+ L/ \8 h9 q) f& F   RowBox[{"1", ",", "i"}], "]"}], 6 Z) J1 E( b2 B; T8 Z% X- w2 Y) U
      RowBox[{"\:5230CM", "[", 8 R: v$ o: c. j+ w5 c) M7 i3 ?- \9 t
       RowBox[{"21", ",", "i"}], "]"}],
    " H7 {5 f- K$ X  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
    5 e/ q; ^* B' i3 ~2 S, }1 V: j\:51fd\:6570u1\:5230u21"}]], "Input",
    % A  Q# f3 F% F5 b CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
    9 O% h+ f  a+ J% u0 }* A  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9, + X( T, ]6 Y1 f; Z* ]- l# m! Y* j
      3.577960526583145*^9}}],9 ^/ U* B8 E; l) w9 T4 I) q# S

    ( h2 \  F* l, I, D0 n* P( YCell[BoxData[6 e) G) d0 d- R- I0 [
    RowBox[{"Clear", "[", "Delta", "]"}]], "Input",# e0 {0 u2 Z  _0 p
    CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
    3 \' }% ~! l6 [" q
    0 ^) h/ b$ M9 M) u# V! s1 N- T; LCell[CellGroupData[{
    # N0 q+ M$ Q) Q9 c3 B
    - g) h0 u6 u" c4 r# ~# V& ^Cell[BoxData[
    ) N# W; k1 `, {  \* U RowBox[{"Xa", "=",
    6 j1 z" l4 f* x* }* F' _3 V8 B1 m& a  RowBox[{"{",
    $ s6 [' W1 W5 g# O! T   RowBox[{
    1 ?) P; X8 J" @   "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", 4 d( C# T3 H/ }. y( W# a
        ",", "x8", ",", "x9"}], "}"}]}]], "Input",7 j5 O5 L! ~8 m8 k7 _+ d
    CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
    & h9 @+ B- C3 h0 h% c, b5 z3 h: u0 X/ Z6 V7 D
    Cell[BoxData[
    - F8 t& m/ q$ x+ v  h- P2 n RowBox[{"{", 8 x; V5 G2 N3 J( w, H. b8 @
      RowBox[{
    # [8 }' v7 q, l+ N. L4 k  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
    / Z0 c: ?* c& S6 l: T4 x1 A    "x8", ",", "x9"}], "}"}]], "Output",
    2 |) Z5 l# v0 f/ j- M CellChangeTimes->{! X% @" U' J/ v
      3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
    , W8 K! Z) a3 g3 [, d   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
    . F; l: @! X6 ~7 p   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
    - k8 ]5 w* O* k- @2 H   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, ; ^) Q) a7 M2 }
       3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {3 H: @4 v) G* ^
       3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9, ) G) T- o/ u: I) m
       3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, 8 d% ]  v' {, o8 y2 j0 w! z
       3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {+ B: {: {. h4 n: o
       3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {9 M; K0 s5 R+ g) n
       3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
    $ a' A  c; Y; A- v, |- ~2 p! s   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
    - x. E, A8 l& D( W) h/ r/ j- a   3.57801215725*^9}]  g# \9 T$ W; p* w  P
    }, Open  ]],
    3 k1 c% o. i' U, J+ L, G9 v
    + ]; s1 j7 @0 X* {6 \4 RCell[CellGroupData[{7 G+ e" @" a9 p$ q# }( h% z
    9 U3 o! O( g' {: _* B
    Cell[BoxData[
    + p8 M2 p* X$ g& `- \- w# M RowBox[{"Ca", "=", + O- |2 g( }) d# S: u" K- r
      RowBox[{"{", % b; ]" m2 N$ m. \
       RowBox[{4 D7 E# ~) x/ K% b1 o: X
       "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", 2 \  f4 ~& z- B  i5 u* A. I! Z
        ",", "c8", ",", "c9"}], "}"}]}]], "Input",
    3 f* u2 z. I% O; S* {4 U( y CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
    / i4 `3 Y8 s& _' h7 |) f; _0 d- F& u5 c
    Cell[BoxData[
    4 E2 q) ]! v' W/ y0 a, E! X RowBox[{"{",
    3 ]9 Z4 x. M2 n9 v8 r2 ~1 b  RowBox[{5 t% Q$ C( a7 c  y! I
      "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",$ e7 X# G" H0 d2 o. T
        "c8", ",", "c9"}], "}"}]], "Output",
    ( A- f4 t" N9 N6 {* j CellChangeTimes->{9 g& m* `7 n1 U  }0 {. B$ u
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
    4 A( ?5 H- l& d/ S" Z: W. _+ ~( S   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
    # B: M1 q6 Z7 e0 p( X   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, & S# X' g: u1 z
       3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {8 Y8 i  K0 E3 Z$ [" K! N/ B
       3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, ' o: `: a- J! ~) i3 G7 I' V9 B
       3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
    & T( n7 O) z% k. l, T2 m. y   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9, / A6 @% l" {/ q+ j' c
       3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9,
    # ~. o! p7 t* z5 U   3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
    ; Q+ D  E. [1 c   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {/ X  t% s# t7 h5 K: }% I6 o
       3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9, 3 I& W% r: U: g* n! `) A
       3.577961904604212*^9}, 3.578012158671875*^9}]
    . U6 n8 E+ k) `" E- e" _1 v) H}, Open  ]],/ s+ q2 _5 J( ?7 g$ L% n5 q

    # N; g7 N; l" s* S7 S% U& U* M8 NCell[BoxData[( T2 G! q$ V4 j. Y( Y( d, T
    RowBox[{"For", "[", ! M, @+ j" ~! C- ^7 |
      RowBox[{
    ! w9 m& f% F6 y- \0 x   RowBox[{"i", "=", "1"}], ",", & m1 ?! g' `, ?9 c
       RowBox[{"i", "\[LessEqual]", "9"}], ",", 6 C) B- Q7 f6 ~+ b+ o
       RowBox[{"i", "++"}], ",", 3 U- R) U" Y  j+ ]* X8 u( c
       RowBox[{
    ( z' p) V9 a" S8 K. C7 a8 ]    RowBox[{"Ca", "[",
    0 ~  t! x. \% W  H+ O, p2 W% D  h     RowBox[{"[", "i", "]"}], "]"}], "=",
    2 M2 v: f. D5 g; ?& q6 }    RowBox[{"CM", "[", , k* D( O6 v0 b. b
         RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",& {3 E( G* u# [5 b0 e. a/ A  U9 v' m
    CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9}, 5 E( `8 N- n  v0 f4 Z' w2 U' Y
       3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
    : F  x$ M. [4 ^6 Q* e: k   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
    6 k$ E$ I# m+ j4 J   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9, 4 S, e! V, S* }$ {# Z
       3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, 2 a2 P6 z, X! K- C
       3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
    ' X' h# ]: d; F" s2 F. q( Z   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
    9 e5 x; n( {  X  s+ d   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9, * Z6 d0 }% U8 \
       3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
    # v  i& [; m, z* z  p   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
    5 }! r* b5 V  j$ j7 N3 k$ P/ C   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {0 D/ T& F. b# S
       3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9, 3 z6 m3 E1 {* Q; ]$ K  C% j% u
       3.577961906897415*^9}, 3.578012176296875*^9}],7 M7 S: M# V! e, M" m

    ) |9 Y5 }' C( j8 q' c4 _7 a. wCell[CellGroupData[{
    % z" P5 O: R7 n8 x. t* \
      `/ b6 O  f. zCell[BoxData[% u* c( t* e' R* [' ]
    RowBox[{* Z5 n( m: p- Y! N' g& i
      RowBox[{"(", & A6 K6 W% ^& m2 ~+ [
       RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    + p' A0 ^: r6 X6 V& @" w  RowBox[{"(", ' N! T8 t/ _0 B6 D8 g& J( T; v
       RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],* c$ ?/ C  W& v

    + q% B; N, |- x4 a2 ICell[BoxData[/ T$ Q9 b+ y: }( a/ U# _
    RowBox[{
    ! o  W4 h9 f  k8 f; w  SuperscriptBox[
    * I1 C/ U  t3 L: o/ d" c   RowBox[{"(", 7 ~3 G. C- G* M# K3 U
        RowBox[{: v6 L1 r9 b( f9 y2 _5 A* {
         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+", " H/ `0 u6 Q4 j* R1 }7 @
      SuperscriptBox[) ?7 _! D% _4 |) a
       RowBox[{"(",
    1 P/ ^! I; G& N3 z( {. h    RowBox[{% @5 l2 a# I" j( M# I  _
         RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+", $ z4 }& r; L" F
      SuperscriptBox[
    + ?2 d0 \* x# _/ w   RowBox[{"(",
    4 [) t9 m% W6 p  P( z    RowBox[{: ]4 Z( R! \. y* s) U
         RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", 7 n7 K+ a$ q7 n* Z, T
      SuperscriptBox[9 K! R' f4 `! r; {- w7 t# |4 A! ^
       RowBox[{"(", 8 z- O  S8 q; Y7 n- O3 a) r, A3 Q
        RowBox[{- }/ F6 u! c- @. n, z- A- R. ?
         RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
    & a9 i! [2 N6 G3 ~6 @. q  SuperscriptBox[
    2 \; M; ~5 a# V, f3 N# }* B( {/ I   RowBox[{"(",
    : i; R, C: W  c, x, O    RowBox[{. }5 ?# a' Y' p$ R0 y* z
         RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", : `, S. t7 j# h# D+ h
      SuperscriptBox[
    ; e+ P! Y  k. E! _, R3 c   RowBox[{"(", 9 Q% i: `& x' i* l. k! V; z7 Q- V. A
        RowBox[{* ^: t+ _3 \1 t7 S7 \/ O% M
         RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
    . z* J" U# l4 w' Z8 p  SuperscriptBox[7 S) l% m  @( h/ j; s7 o( T, I
       RowBox[{"(", ; W+ U4 @/ [- A1 K
        RowBox[{$ E- Q2 c# i1 B4 Y
         RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", - }2 P7 m4 t0 o2 \8 \8 l
      SuperscriptBox[
    ; Y) X9 g! f; B1 b" \" T0 X/ I8 ?# @; c   RowBox[{"(", & t2 Q# }" t) r( Y* Z
        RowBox[{
    5 \: e5 b* ?% Y6 w     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", 7 [; _' ^4 E- B4 m/ {
      SuperscriptBox[
    * v7 O2 ?: W( ]. P   RowBox[{"(",
    ; p1 G6 O- K* y6 m    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
    : t' K0 C% V: m+ o4 C3 o  K CellChangeTimes->{' ]8 u' Q2 F' a) U' Z% M" A' h% o
      3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9},
    5 x5 i. J+ i: ]0 ]( X, q. D   3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9, ; a/ [4 i  A# c5 z4 o( g5 h0 n
       3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, 2 U/ c4 S0 G: b' ~6 n5 v
       3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9, : ~; ^9 N+ ^# n- r8 y7 L
       3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, % ~4 }) h: x& m) N* V) V$ L/ Q
       3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9, 2 i* S. d% E: y5 u8 j" n0 i; M
       3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
    ' n$ A& f7 h+ @# Q4 V' _   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9, ; K7 D  @3 @6 n& c
       3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {* }& C* |% b; f% g! m0 J9 j
       3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {& e6 e1 c% Y' e
       3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, 4 F+ J( |5 N. R% f- M
       3.5779618537169228`*^9}, {3.5779618846049767`*^9, ! S( _6 u' D- p. c" Q1 k- }
       3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]9 H7 l! j* p* L; `6 p, s3 R
    }, Open  ]],
    ( t, |: r& L  x6 n8 o! w, w- R! d
    . d! U, j& ?. P6 `* k% hCell[CellGroupData[{, k* g4 X! l2 C# ]9 u

    , y& ^4 U- k4 V* a( B  _( s& xCell[BoxData[& j& H$ l6 ~/ I- z0 Y2 ?/ E
    RowBox[{/ {0 d% ~$ y( W3 F3 A
      RowBox[{"Ca", "[",
    $ B0 t, {. u7 z5 t! s, a   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",
    8 @  U( f9 k, c. V) V: }7 @ CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
    9 O5 k) R! d1 X/ j8 {/ L  3.5779616465173616`*^9}],, g+ T8 b( q/ j4 ]4 F
    5 ~4 G- N1 A! s8 q! h. ?- N( b
    Cell[BoxData["0"], "Output",8 t8 B( j  J2 L7 S7 f6 {
    CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
    ; _- g0 j4 F8 [+ \0 Y  3.5779616484049644`*^9}]
    8 O- ~* s/ s- V+ T* `}, Open  ]],- D1 f" `% |0 ~* n

    % A2 {  a" e: V7 a8 RCell[CellGroupData[{- {. A1 X' F9 w/ T' s/ g7 m
    ' X+ e! |8 Z' l9 }
    Cell[BoxData[
    + h! V! h& D1 `* `4 |$ n8 u RowBox[{3 l% G$ @9 f% _! S2 r! t3 w$ M0 a2 }
      RowBox[{"Ca", "[", # f& @; ?6 o5 H+ ?7 w4 W
       RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
    & ?6 O: G, F. G$ F( C CellChangeTimes->{3.577957376235614*^9}],
    9 J9 c5 ^! `1 q
    0 w$ {1 \2 E" F) y- ]6 C# DCell[BoxData["0"], "Output",
    1 Q2 l9 ]. F4 ?7 K9 H CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]8 P. h& w2 u: G" i
    }, Open  ]],
    / y  v( t) ?* }
    8 g9 O4 E5 q5 cCell[CellGroupData[{& s; k7 a# T5 A5 R" D+ r' v
    5 a; Z/ F4 F& r1 s$ t& H) {$ w
    Cell[BoxData[4 A! h$ x8 e& Q) X# B/ c5 i
    RowBox[{% w5 R2 [/ I9 t2 r2 c0 S( p
      RowBox[{"Ca", "[", ' v5 U% V& r2 C9 K  @/ N# E
       RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
    % F3 S8 M# Z' X1 K CellChangeTimes->{3.5779573112927003`*^9}],0 L6 r% \0 d2 ~% g/ u9 ^4 H

    ' N$ f. o* w& v' \. D# ~Cell[BoxData["0"], "Output",0 r# S. ]0 \% R0 s( }7 o3 u9 l
    CellChangeTimes->{
    2 M( _* ?* L: S; u2 B  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9, + C/ p  _1 z3 p0 |
       3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
    + Z) K2 _3 e" o( @8 N   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9}, 6 e5 _9 d4 z, Q9 a9 E& F7 E. e
       3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9, / V% c$ ^; D+ c) m7 ]
       3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
    + c8 u% `, N( M( T% Q   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]" e9 Z; e2 q* X1 m
    }, Open  ]],8 T. K1 ]" h% B8 A- K% N

    * ^: l1 L- X0 {, a7 D+ a4 YCell[CellGroupData[{
    , p7 r% \) o5 C+ R7 v" n' F! y: q& T! f& d, q
    Cell[BoxData[
    , n; h. {4 K5 a RowBox[{3 P$ D! t, x( G) F) \7 J
      RowBox[{"Ca", "[", / J; r! A& T- G1 i/ O% |3 o
       RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
    # E4 M. y* B) }) a, M: H CellChangeTimes->{3.577921461734375*^9}],4 Z3 Z4 _2 E* o6 D
    9 b$ A  y; }) J0 B
    Cell[BoxData["0"], "Output",7 y3 y( i! a2 h  h' {8 j) C( a( y
    CellChangeTimes->{* W( e1 F6 Y& _2 q1 @. Y
      3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
    7 X$ B2 J- j. `) E$ \4 e   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
    * R) |8 _$ }% X7 ]3 a   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
    ) p& }7 c; [# E& L5 u: v   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, $ @: }; W8 S! A0 I, f4 X' C
       3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]
    ) _7 G/ v4 [( f5 M1 Q3 ]- ^8 B/ @1 p}, Open  ]],7 i7 p! O8 ?/ I6 x1 H* K

    3 }( b% |' f0 {) j' c5 BCell[CellGroupData[{! X: s6 x0 Q! n) V

    ) u" c/ ^: `! x9 z) v8 ]Cell[BoxData[! V/ j) F# S6 @8 d  T
    RowBox[{* R5 S. Z( N6 q8 \0 g2 x
      RowBox[{"Ca", "[",
    9 L; z# T% m6 L" @- t   RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",* a1 k- K; A4 S$ a: v
    CellChangeTimes->{3.577957303118286*^9}],4 ^1 I( T7 [# L6 X7 M; o
    8 k1 b$ r: M2 G4 I7 K: c" Y- i7 A) @' `
    Cell[BoxData["0"], "Output",
    : I8 A' q0 j# K! n6 ~, a* y! \  b CellChangeTimes->{
    * W% p2 p+ \% R3 R6 i' ^) O& v  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {/ B* l) I4 P& C' P
       3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9, : X6 E1 O7 O- c2 F5 d# B% L# ^
       3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
      D3 @( O4 O  M' t: a' B  V& r5 H( O   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9, ; R4 ]3 G! b3 H3 A& J
       3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
    + c1 Z1 I% Z) p; A' ^4 x   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
    ; H3 C( s( h4 k$ t% ~/ _   3.577961889378585*^9, 3.577961912965826*^9}}], I- ]; ~$ }; }
    }, Open  ]],
    1 p3 n7 L) ?" t5 _) w5 e7 D
    * W+ a) e# _( B8 m1 ~" yCell[CellGroupData[{
    * n3 O$ c( O5 u
    2 l. X3 E. G! }% _: z& @Cell[BoxData[
    5 l. ]# J9 a) t/ h% F$ W# b, x3 j% S RowBox[{0 r& D( H6 |4 N
      RowBox[{"Ca", "[",
    # `5 E) f( q3 ]! |9 n/ f9 y3 s3 B   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
    " J5 W% c3 y" {/ ? CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
    1 q# V" Q: h: r" [5 A0 |  3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
    : W8 s; Y" X5 m" n: g4 u  Q  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
    7 b( A% p3 m# \0 r% L  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
    8 N& Z6 f; p/ p  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {; y5 V" C3 t1 ^
      3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
    5 o( m) A' x: G, O. W+ B# w& W  3.577921435703125*^9}}],. l; D! b$ W; s  L9 t
    7 X+ B# B+ g$ J% w* v
    Cell[BoxData["0"], "Output",
    & I" A6 D/ I! N& Y1 b9 C CellChangeTimes->{$ ~  t- ^: x3 U! T  v& j0 y, L
      3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {( ]2 d& U  k1 f) j1 a& y
       3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, ( \4 T1 K1 c  J  A$ C8 s
       3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
    7 D' Z1 b# ^3 z- c: c   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
    : I) V+ ~7 L! ^5 v   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {9 ~: m. Q6 u( R7 \' ~
       3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9, : M- a- {7 X0 ~4 D1 R# V0 R
       3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
    $ S. i, k' ^. _7 n   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9, 2 }4 ]9 [, v  |; S4 M6 v0 Z
       3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {5 O& n: }. ?" _8 P
       3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
    2 Z  A) t% }0 |   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
    7 l) J0 J: l4 F   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, 8 [# }* [5 F5 y4 g" Z9 O
       3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
    # C" a" u+ n. U6 c& R}, Open  ]],
    / i& ?4 Q5 {5 `6 N
    3 A# I5 N* m6 f' {9 k4 S3 _Cell[CellGroupData[{
    ; s9 d5 U  g2 J1 g9 `* k) ^: b/ ]' N1 {& t9 n9 W- b4 S7 K1 s
    Cell[BoxData[
    * C  U- j# K) ?1 c) l RowBox[{"Delta1", "=",
      u, S! U% A! Q# |  RowBox[{3 P" c( _8 W7 g: ^
       SubsuperscriptBox["\[Integral]",
    ! n* E! {$ b/ B4 F6 a* r    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    # t0 |& I! M& U   RowBox[{
    6 J' B$ j2 z/ }% b! C9 h" {    SubsuperscriptBox["\[Integral]", # s4 F& w9 E  W
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    & A6 J# [: o7 P4 a4 s. {! s0 s4 V    RowBox[{
    ( a2 f! Y" y  s1 p     SubsuperscriptBox["\[Integral]", 3 S" D/ P6 Z6 D$ D% ?
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    7 h; L7 _- r( i, _* Q& l( B, y. v     RowBox[{
      J$ p* j5 c; [$ }8 |* [/ r" M      SubsuperscriptBox["\[Integral]", ! V* c9 I" x4 r0 {- U# F8 [
           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], : c' u" a7 }8 `: M6 r/ Y: `- m! H
          RowBox[{9 n" U: `9 ]$ A2 I+ u& V
           SubsuperscriptBox["\[Integral]",
    ) L5 @2 P( m. l$ g" B0 R/ L        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    & E' t/ l) s; N+ Q! ?8 j0 E, K       RowBox[{; ?* t+ {6 t9 X" |
            SubsuperscriptBox["\[Integral]",
    4 Q4 c( i+ Y, O5 ]; M+ F2 M         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], ' n; Y8 l% ?6 \# h- s7 \1 k0 ?2 ]
            RowBox[{' ?  @$ o  @8 I2 N! d+ T8 }% j
             SubsuperscriptBox["\[Integral]",
    * n7 `7 L. H! w9 F8 V. e0 F/ E2 C          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 6 K) f9 R7 I* S
             RowBox[{5 y) ^0 X( N" d$ n  j5 O! ]7 o1 z; F
              SubsuperscriptBox["\[Integral]",
    ) j, U9 I; {3 T, k           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    6 y8 ?. K+ J- p& M- D; W8 |          RowBox[{
    - M3 }- n3 w* l" D( k, Z2 T           SubsuperscriptBox["\[Integral]",
    ; f" I4 \  I7 x' o" I            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    $ f; |  W" U2 a* }4 F6 Y: C5 ~+ u( @           RowBox[{$ W& O1 R0 K/ `5 X. z- i2 O
                RowBox[{"Exp", "[", 4 R5 ?+ z' g7 f- d( t" f
                 RowBox[{
    ) Y/ D, \9 E* b* T: I( h" ^              RowBox[{
    ) [( U5 P+ q$ E* H" y! _* a               RowBox[{"-", - v4 p& Y4 U2 q- q
                    RowBox[{
    . N) o! m' G  u/ @% X                 RowBox[{"(",
    ' E) ]; o/ G+ K) D                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 9 f) W  }2 Q# B1 p. S- E- x' I/ C
                     RowBox[{"(",
    2 |# E2 S8 X& A* e% d                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
    2 N! ?( T$ B+ h' s' W0 j" c              "Delta"}], "]"}], 7 c" v3 c4 _& i% E* u7 d
                RowBox[{"\[DifferentialD]", "x1"}],
    ! ~5 W2 q1 l2 `1 x0 d  H            RowBox[{"\[DifferentialD]", "x2"}], ' W: \' f/ a; p% g
                RowBox[{"\[DifferentialD]", "x3"}],
    / ^% F% T6 w# P9 b/ F* p# C            RowBox[{"\[DifferentialD]", "x4"}], $ z( ^$ e' v) C- E0 e* [% e& O. q5 m
                RowBox[{"\[DifferentialD]", "x5"}],
    ; ^6 t0 b# M. s- D1 l            RowBox[{"\[DifferentialD]", "x6"}],
    . ?) x" f1 w  |4 Z5 ?9 G            RowBox[{"\[DifferentialD]", "x7"}],
    3 [6 s4 m8 T0 X+ [3 g            RowBox[{"\[DifferentialD]", "x8"}],
    ) C; @: L& w1 q5 {. b, w  k            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",; M8 H0 }7 k, L  _# n
    CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
    ( K8 R: C5 D7 {  \   3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, " n  i( `+ p  R& s8 ]7 z
       3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {$ g0 {3 A3 h3 O8 ]" e3 C6 o
       3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9, / r: W' ]$ w9 j2 i3 w4 {. F
       3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
    . Z1 J7 s* M0 z6 T) p; g   3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, , L7 w( I; o) ]5 i' b! k& B4 H
       3.577918964453125*^9}}],( i. c, f& p# S. l5 e
    + v9 @9 j, K+ l2 w6 N( p# w
    Cell[BoxData[
    2 B- D, h, F. M6 a6 C RowBox[{"97.40909103400237`", " ",
    & R1 p+ R9 w& G3 L+ f, V  SuperscriptBox["Delta", "8"], " ",
    , N. A- D/ O' X, i; I' i  RowBox[{"If", "[", % s2 ^8 f& T, l  p5 `+ U
       RowBox[{
    ( @* b( h9 C/ }, z% D) j3 ^3 z, s    RowBox[{
    ' J  }5 O' y: f! ?* A  J2 c4 [0 O     RowBox[{"Re", "[", + q& X, }& V; X4 P  N# a0 y' G
          SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
    6 Y/ }' q' P" q$ s& }    FractionBox[
    : h( V: N5 @8 p1 y     RowBox[{"1.7724538509055159`", " ",
    ! ]- l+ P- e1 R7 |0 L      SuperscriptBox["\[ExponentialE]", 8 Q# o8 O0 y1 X7 l
           FractionBox["1.1102230246251565`*^-16",
    0 N7 e9 o+ B" T8 d: e$ O        SuperscriptBox["Delta", "2"]]]}],
    , D$ O5 I8 P; s- A     SqrtBox[5 @8 U7 V2 i9 T/ @8 L
          FractionBox["1", - X- b, C5 O0 P) j' X3 _: A
           SuperscriptBox["Delta", "2"]]]], ",", 1 A- Z) P  e" b0 b/ l
        RowBox[{"Integrate", "[",
    ( d; {. ~0 R5 R% I7 T5 d8 Y% q. i     RowBox[{& n* @/ B% E7 k6 ?- s
          SuperscriptBox["\[ExponentialE]",
    + U5 s0 L4 M9 S2 A* G       FractionBox[! j$ D, L  p' n+ A" G2 C  Z# L
            RowBox[{"1.1102230246251565`*^-16", "-", ; q9 Y2 n- N1 m1 j% D- L1 e% h
             RowBox[{"1.`", " ", 2 b8 ~9 e/ k" Y/ f' u5 q" V
              SuperscriptBox["x9", "2"]}]}],
    : s- H$ r2 x& j8 O        SuperscriptBox["Delta", "2"]]], ",", ' R0 @' ]7 b2 f) s% Q
          RowBox[{"{",
    " R) R( T! g. C* h( o0 i2 z4 S       RowBox[{"x9", ",", ) j3 C* [- M& X# ~. m9 J
            RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", # S) r3 J+ u& Z
          RowBox[{"Assumptions", "\[Rule]",
    9 C: U8 I& [" h2 x& A       RowBox[{
    , T/ B3 C! `$ V6 B$ a        RowBox[{"Re", "[",
    8 E% g7 a) o3 V         SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
    % b4 ?* c9 B# C# l, V! g4 M     "]"}]}], "]"}]}]], "Output",
    9 E; b. W+ u; R# A  }" v0 b! L9 m CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
    ( y! B" R7 z5 @  Z8 i* R, n  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
    ( w/ j% B5 }' w% E0 l  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9, # _3 X# j( X3 B  B1 w
      3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
    1 o* u( A* R# Q  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
    3 p# v/ J/ f6 T" G8 k1 N  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
    , `' P% U* d. r0 c! K  t) h  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
    ; P$ ^# D/ a$ R% T- M0 a# w4 M}, Open  ]],/ P! `, s& H  D$ |9 v7 s6 m# i- s' _
    / o$ y( |' W$ o2 v# \8 F& `( H
    Cell[CellGroupData[{8 `4 y; V' p' j! R) y
    , I5 ?& ?  d7 y9 x# o0 G
    Cell[BoxData[" T8 S2 m+ K6 I: H' W$ S) Z9 E
    RowBox[{"Delta1", "=",
    7 `) T/ @5 q& _: u0 m  StyleBox[
    & l7 n& t1 y5 Q4 d7 t! G9 {* g   RowBox[{"97.40909103400237`", " ",
    ; Z; m. l" {9 ^+ d/ V' F    SuperscriptBox["Delta", "8"], "  ",
    9 A4 t$ B/ p% e( H5 n    FractionBox[; T9 l8 l0 t+ p7 t8 |  H/ \) u& {* i
         RowBox[{"1.7724538509055159`", " ",
    * }! J& \8 S8 G5 t' u      SuperscriptBox["\[ExponentialE]",
    - g* b; q4 {! P2 G9 W. V       FractionBox["1.1102230246251565`*^-16",
    6 P; s' C1 e2 p3 b        SuperscriptBox["Delta", "2"]]]}],
    6 e2 \/ b9 \! Z  {3 @$ D3 u     SqrtBox[% S; r7 y3 q! m) a) x: o# `, h5 J
          FractionBox["1", , F( N% u6 _: n' T+ L5 m
           SuperscriptBox["Delta", "2"]]]]}],
    ) ~8 Z1 _1 E4 g7 z/ h   FontWeight->"Plain"]}]], "Input",0 T1 Y! f3 j1 P( @; g* K5 P- R: w2 N
    CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
    1 ^. I# i9 _0 F/ s/ {   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9, 9 m3 D5 Q% f& y2 V  r
       3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
    - q5 [& G3 U6 Z( |* ?( j: s9 D   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
    9 J2 X+ V' z( G. N1 E0 \, N' i   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
    ' Y5 [0 S' i0 N1 d- a/ m7 R$ t7 j   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
    6 B7 ^/ t8 h; W9 r. {7 @, _: K! L" a* Q" T
    Cell[BoxData[
    ' i( d9 F; [1 [* P/ a FractionBox[2 M" l- i* Q/ Q5 ~7 q
      RowBox[{"172.65311851642346`", " ", 7 h6 l  O! R* \
       SuperscriptBox["Delta", "8"], " ", ( q& G) C1 b" a! Q6 a
       SuperscriptBox["\[ExponentialE]",   L4 F0 B9 z0 U0 }% ^" F
        FractionBox["1.1102230246251565`*^-16",   K; ]' i9 V( p4 ?0 S* Z9 P6 F4 p
         SuperscriptBox["Delta", "2"]]]}],
    4 Q  T* V$ p- E3 Z4 G/ e2 `3 h  SqrtBox[/ f" K' k' ]9 m$ P: x' {
       FractionBox["1", : I( ]/ P$ B, T1 D0 L7 w9 }% f1 f
        SuperscriptBox["Delta", "2"]]]]], "Output",
    . J0 C& C  I7 c& K' I" x CellChangeTimes->{3 h$ L; \& W: u6 N( l3 ~/ _
      3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
    & ?' i: a* @  a  i- W) e7 J& u2 z   3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9, ' n. {1 Y" B5 E7 w! b  }
       3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9, 7 n: y* y% R  b
       3.578012166234375*^9}]- b' i3 V# }* Q1 W0 U0 M
    }, Open  ]],4 {! o$ H9 d) {: Q% s1 F, v8 D
      V* s! X$ K* ]  v- H8 R8 J
    Cell[CellGroupData[{6 I8 A& R+ Q4 J5 C* q
    # T6 Z$ y! \: u1 f7 ]
    Cell[BoxData[1 x* n% d( l6 w5 z
    RowBox[{"DeltaX", "=",
    7 |( i) W) h3 G) \, {& i  RowBox[{"FindRoot", "[",
    . T& W3 L" @+ c, l   RowBox[{2 ~: @. A1 l  G& c! n
        RowBox[{"Delta1", "\[Equal]", "1"}], ",",
      O3 F( Q$ A1 S6 }    RowBox[{"{", . g6 k5 ^' r0 ]8 V0 f3 Q% M
         RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
    5 ~" A5 l; S3 S5 j0 Q CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
    , q+ @( w8 b) ]5 ]% q   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, , H6 j5 h1 [3 I7 U1 J
       3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9, ; W- _% w0 |6 o' k5 L$ N
       3.57791921584375*^9}}],
    3 `4 `$ R8 P+ \/ a
    - h: ?9 O$ R6 I' N. F9 cCell[BoxData[
    $ ~2 u* S( l6 i( U; b RowBox[{"{",
    , H. I2 X. P( Z% t3 i  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
    9 d# h/ ~' K) T# y2 I* O CellChangeTimes->{
    - x' d$ w9 z8 q+ h2 T& P  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    " U  E+ z8 t( {6 H6 b, `   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
    / E0 X" p9 `# W' w) U9 w. T% o: H3 i  v   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9, $ B0 r  d3 r: ~/ F2 Q  c
       3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
    0 ]/ O( k$ _+ u, q& _/ m$ v   3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
    / e" c% _6 [: }6 _% H   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
    + v$ j- J7 a  T6 _4 z$ B& j   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
    : p, e1 Q2 D5 d: _: ]   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
    # S. Z( t4 t* H* D% p' v   3.57796070150625*^9, 3.578012167703125*^9}]
    " T  L4 A* S  O9 ]}, Open  ]],
    , Y; X2 j9 R3 H9 g  E
    / X3 g& h. M/ {Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\' B% ~+ T  f6 J4 u7 B; Q. g
    \:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",9 I7 n. s1 x) D3 O. ?- r! X) k
    CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {7 t6 h/ S/ s+ a0 `; s% G. }# v: }
      3.577960705312657*^9, 3.577960707621461*^9}}],
    5 z- _3 y, e0 \& r) F7 h# D
    ' `: Y4 Y' v1 E, iCell[CellGroupData[{
    / n- M& f  K, k3 B8 G; d" o
    2 b5 o5 @, O7 r! a% @  ?. vCell[BoxData[
    ( x8 |, [/ f& J* ?3 `) E4 Y RowBox[{"C1", "=", "Ca"}]], "Input",
    . f* p- e7 v. n  q% n: K( i. E CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
    7 C' b) E; Z  y. a- g
    3 m2 m# D4 k: MCell[BoxData[/ l/ Q% X8 J8 Z9 ?/ }1 D( P# D9 G/ I
    RowBox[{"{",
    + ~$ I+ I# Y. y- u! ]% t! k) P+ X  RowBox[{
    , b* G6 m: r5 a  S- }( p7 L  "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
    & s- F" O, T# q  s, c  m' K   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", * ^3 ~% }" ?" g1 |
       "0.`"}], "}"}]], "Output",
      p( k4 `/ m- f$ c" U CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,
    * k) j7 H* z. }! z  3.577960710273465*^9, 3.5780121855*^9}]6 Z' M! L. J' K6 t. {+ T  A
    }, Open  ]],, A, r0 u8 a( k' M* C8 M

    : w2 i* H% a% o0 E/ cCell[CellGroupData[{7 j3 d: E( O; s* Y. ~+ ]2 j  A

    * [; y$ {- e+ j0 MCell[BoxData[
    # }4 _2 @0 v' o/ T, }: z9 M RowBox[{"u1", "=",
    : X3 [2 K. O( {+ M# ]7 X/ c1 q  RowBox[{# p1 d2 u8 Y4 S8 V5 K
       RowBox[{"Exp", "[", $ T, i0 c  z) t
        RowBox[{( W$ D1 O" O" l
         RowBox[{  b5 a% v2 G& e
          RowBox[{"-", ( a. j' Z& O5 \) U+ l
           RowBox[{
    - Z4 m- L6 f- b9 I$ c* \% |/ J        RowBox[{"(",
    7 q) g5 V/ s0 \! b( q& U         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", / G4 t) j" i+ K% E( c. O
            RowBox[{"(", + e; l% B) a# Z! \+ A) v  o
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    , j* s3 _& q/ B0 t1 t     "]"}], "/.", "DeltaX"}]}]], "Input",
    . o3 R, s: |5 C9 L0 x CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {: I3 @9 E9 r! J' {
       3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {6 h  H, k- L: W9 w( t2 f' L& K
       3.577919193484375*^9, 3.5779192326875*^9}}],: S) B2 w- ?( l4 M4 _, n
    ) A5 y' Z- |4 a7 R5 T- s
    Cell[BoxData[4 a5 H# T+ P4 v( B& b
    SuperscriptBox["\[ExponentialE]", 9 `# H) E- e3 Q! a
      RowBox[{"3.141592653589793`", " ", ( x  x  A% P5 g  D* D5 M
       RowBox[{"(",
    - G3 C) E, k4 M9 `2 [% |$ B! A% N    RowBox[{; o) H- S- z5 e9 R7 M$ C
         RowBox[{"-", 4 I6 Z% v9 g1 y; Y0 ~# f. L
          SuperscriptBox[
    7 G9 X& S0 ^9 J1 Y9 u  o/ e       RowBox[{"(", ! ]. \( ]" ~. D% M  t
            RowBox[{3 w' A% V& o" j: U8 e
             RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 o- M& j5 d2 f+ o
         SuperscriptBox[+ w- R0 W  w1 c- Z2 h2 F
          RowBox[{"(",
    ' ~/ z) T) s: a% m& V! ]+ O9 }4 @" b       RowBox[{
    8 M1 T$ C  {3 F6 A7 ~% B        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", $ \8 f0 ?% ^  n8 t2 X
         SuperscriptBox[) g; Y' o+ a5 z# w8 y0 L* d5 }
          RowBox[{"(", 2 {$ T; s5 q' K* u+ Y0 v. T
           RowBox[{
    2 l# ?9 ]8 [+ x% E& R6 n5 T9 W        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", 8 y, |: Y8 q  `8 u! G4 J3 l
         SuperscriptBox[% }$ M9 g' u% I# o- A4 a
          RowBox[{"(", & k8 C7 B9 g. r4 Z; J
           RowBox[{
    7 E$ I3 y8 }6 L  H        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
    6 l& e+ [0 A- n' v; }     SuperscriptBox[# T* f/ ^- ~1 g7 b. L* ?
          RowBox[{"(",
    % V8 x' ~1 z  W7 Z) y: M       RowBox[{7 {6 E- h" s% n# q. X/ i5 A: A5 V
            RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
    9 G+ z* T% [% o5 y% g- e: ~     SuperscriptBox[8 y2 A- s# X0 d5 I3 _9 n3 @" z
          RowBox[{"(", ( o8 k' H+ |3 Q+ z6 {; A
           RowBox[{" |3 b. g* E6 a$ H& I
            RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", : q7 h5 G& `4 y4 ?# }% \- O
         SuperscriptBox[
    6 m! r( Y( G8 N" @      RowBox[{"(", # m& g7 J0 Q& |, ^: }, ]
           RowBox[{/ M) }- Z7 P& W
            RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    * O; }8 K2 ~! V0 g     SuperscriptBox[
    6 m. ^& _7 `" E      RowBox[{"(",
    1 ]4 x) y) [- F/ W  H       RowBox[{4 O* m) A* F' `* B$ B+ N3 q
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    & e7 V5 g: Y5 F4 t     SuperscriptBox[0 _" m7 S; |# y, M" S* R$ L" f
          RowBox[{"(",
    $ |" y) ]5 f$ c( v( {       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 9 @1 i% Q# h* s+ @4 z. t* C  o
        ")"}]}]]], "Output",* y% L6 N% p2 S' ~
    CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9, 1 M6 L* J* B. v! w
      3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,   S" i/ F$ R( G7 V4 J% N; i. A  t
      3.578012187078125*^9}]* `1 `& t/ S$ v0 I- o# e
    }, Open  ]],
    / q3 m0 ~! Z2 a- S
    : @* s0 E! i; z, U. XCell[CellGroupData[{
    $ u. g# B; [9 ?8 P& K4 C
    9 }1 I: p+ j1 \: X# N  h. [Cell[BoxData[8 o: Q6 b1 e, B7 c
    RowBox[{"C2", "=", "Ca"}]], "Input",3 n& |" m2 e, @
    CellChangeTimes->{3.57792047321875*^9}],
    . B% ~4 n; O1 T' d2 r  S  a0 i/ f+ Z! U8 C. l
    Cell[BoxData[
      V1 p; r3 B3 f& C RowBox[{"{",
    9 V# n+ P. ]; {, v  RowBox[{
    - C, i2 l9 D5 S* l! v, @: S  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
    - V" n/ X0 W$ y# ?   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], 0 E3 z& B1 K9 y+ \4 {% [* M8 K0 e) I
      "}"}]], "Output",
    6 d8 l$ D' ^- Q, i4 Q# I CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
    8 J& l  \3 K) d" K  3.5779607401163173`*^9, 3.578012204671875*^9}]
    ! }' S6 _: n9 P/ O; V6 k}, Open  ]],2 d$ ]( N# m, o2 R- y7 k6 H! I

    + b. c. X+ f: l) @: `Cell[CellGroupData[{: a( m7 g6 F3 i* _

    3 c6 h. u. H! OCell[BoxData[
    7 P3 A5 `7 }/ ?6 K) ~% c) o6 q7 d# k& J RowBox[{"u2", "=",
    7 _2 Z0 H- V8 w+ W  RowBox[{5 b) t% k& E! r  W& v; D
       RowBox[{"Exp", "[", ' D, ?% ~/ D; t# ]! j9 O4 {7 a
        RowBox[{" p1 J- {: F& d( d0 H
         RowBox[{
    % k$ a% ]2 p- {, |) g) b      RowBox[{"-", ) u' \5 R" U: w5 o8 L
           RowBox[{
    9 ?2 a5 O! q& L; `0 y        RowBox[{"(", & e; a% g: o# E( P& T% T
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 9 @. l- X( R8 ?, U4 a8 M& h5 x
            RowBox[{"(",
    8 z5 Q: K9 N% x2 w         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    1 ^% l% ?# m$ G5 h     "]"}], "/.", "DeltaX"}]}]], "Input",' l' p0 t1 @+ y' d/ h2 P+ ?
    CellChangeTimes->{3.577920484109375*^9}],6 R3 M' j* y/ W' c# \' R

    6 j% e, K  ]) F, @" {- U5 g* sCell[BoxData[. A" ]3 E6 ^/ f, V
    SuperscriptBox["\[ExponentialE]", / C9 G  X* x$ g! F7 b
      RowBox[{"3.141592653589793`", " ",
    : `) o3 i7 \! P   RowBox[{"(",
    , J6 j. ^* k" j; A    RowBox[{
    # E1 O* w' b0 `9 E( T5 m+ e     RowBox[{"-",
    2 i9 P+ ]3 j8 G" b5 q- |) O+ z! c2 {      SuperscriptBox[. R# J5 O8 w0 Y8 q
           RowBox[{"(", : v$ f3 s9 U/ f& r7 C( K
            RowBox[{
    3 l3 Z/ @, K5 B5 ]# z5 U0 y2 F         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", $ n  d: i2 b- j3 O1 M% r
         SuperscriptBox[; r9 a1 U7 {. Q  f% ~1 B) {
          RowBox[{"(", - ?  K2 x; ]- v& N3 Y
           RowBox[{
    4 C/ w0 U' G5 g0 }5 U( h' o        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", , F2 h! m+ }' E' S
         SuperscriptBox[
    4 @5 ^) T% \  A; O9 X- ^      RowBox[{"(",
    " I/ U7 N' W; e* n* N. z       RowBox[{
    ; y: i* G8 U: c" S        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
    $ c8 C/ o( K8 Y8 Z9 J% g7 e! @     SuperscriptBox[
    5 Z; }4 W0 r) `5 M: P, m1 X. U      RowBox[{"(", , G# z& y0 m" O+ v3 g
           RowBox[{( c; |: P* X1 L# C# _- v7 e) i
            RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-", ( [* w# J" M% F" X. c/ H* U3 E
         SuperscriptBox[
    6 c- B' a) @) F; q+ h! a) }0 U      RowBox[{"(",
    2 z7 [: {1 V/ L. U, g, s- ~) J% J       RowBox[{
    8 X$ G6 s( M, }$ P' [        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    6 V" i  \' N: V0 s# M) ^7 W     SuperscriptBox[
      O' A' y9 O, z5 {# @      RowBox[{"(",
    6 m4 A, G, I+ o: d. [& O8 ?# w8 `$ U       RowBox[{# o  [$ P/ }* o, r% `, ^- s/ X
            RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
    7 `; v; X: Q# A* v+ F; v     SuperscriptBox[
    5 |  X! I$ X" Z# ~  k6 g) D: X      RowBox[{"(",
    6 Z% U3 G; o4 q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", % q# Q- Z/ o7 [4 y# {# W
         SuperscriptBox[) J" J5 V) b  g% D: E
          RowBox[{"(",
    6 \+ p& Q6 g  O  r       RowBox[{
    ! L$ D6 M7 O4 H7 A( F        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", ; H, C; G: e. o0 n
         SuperscriptBox[. ~, Q. q. C; x+ e' {
          RowBox[{"(", 4 Q/ b" n. ?8 p( M6 a! q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    * D* j# O  p+ K6 S2 A& M    ")"}]}]]], "Output",
    ( l/ X! s: b$ Q% \* c CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9, 4 G5 g1 G; ?# s! v& F: C( v/ ^; V
      3.5779607413955193`*^9, 3.578012205484375*^9}]; R% y+ F$ a* e- y% j6 H  ~0 m" z+ {( l4 Q% [
    }, Open  ]],
    $ F: V# z- J; d: [8 ~' m5 _
    3 ?: c7 K6 {  ?* }' ]1 vCell[CellGroupData[{
    , e+ R% [+ \1 v9 D; J( R; T2 \3 p; n8 C
    Cell[BoxData[
    . p, G: w  |9 i. I2 r! ? RowBox[{"C3", "=", "Ca"}]], "Input",; ?. p; T: c* }4 M! y
    CellChangeTimes->{3.57792064125*^9}],
    6 e  ]  b8 e+ p! `0 S
    * [8 u" a8 `/ j- Z, eCell[BoxData[9 v9 r( }! c& B, ?7 D, G2 b- y6 R6 g
    RowBox[{"{", ; n6 j# c( Q+ ~. B. a3 o
      RowBox[{  s  _  N2 J* ~& A
      "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
    2 |+ T* ^/ p, ?# ]3 V. V   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
    1 ]; p2 L; R9 A, ~% l% K  "}"}]], "Output",5 J* w. W* ^. ]) e! n/ u4 R  J3 E! r
    CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9, 9 |, ]) ]8 z1 p! A9 Y3 B4 }
      3.5779607642027593`*^9, 3.5780122103125*^9}]2 A( q' d) y+ H: y4 S$ x' b( S
    }, Open  ]],
    & `, u" C- ?! d  e/ ~% H; F2 T% D4 T# v2 ~
    Cell[CellGroupData[{
    # r; `# }: d5 H5 @* {' N3 F9 c  o" G8 B" Z+ U; {7 b# H
    Cell[BoxData[
    : [  v  g- D$ `  V7 f0 X RowBox[{"u3", "=", 9 H4 u8 @, M* w1 x$ n
      RowBox[{' m8 l- F: a: W9 I  v1 Q
       RowBox[{"Exp", "[", 1 @- }  l0 Q. Z5 _8 m7 c9 F
        RowBox[{/ \- L: e% J1 @. S: n
         RowBox[{1 e5 ]! z( F1 W0 ]3 X
          RowBox[{"-",
    1 j! v" C8 e# E: W  u* Y       RowBox[{
      \' A* T7 b/ i% Q        RowBox[{"(", ( |0 j5 |" D( V7 B: l. o
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 4 ?4 W. q: F; a4 Z) F$ ~4 J8 U
            RowBox[{"(",
    9 Q6 d' q+ e  `  j         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
      y4 ]( U4 p. t     "]"}], "/.", "DeltaX"}]}]], "Input",
    % ?6 u  e% D/ A CellChangeTimes->{3.57792064921875*^9}],% i; P, H1 Z4 T: q+ Z" @
    7 K: d* f0 {. ~& f9 L- {
    Cell[BoxData[
    $ M* M; l/ J( t1 J3 \: `  E; R3 t SuperscriptBox["\[ExponentialE]",
    . g0 c7 C+ d$ F1 B: Q  RowBox[{"3.141592653589793`", " ", . m. {  r! m0 B) Z3 u: O' P0 x
       RowBox[{"(",
      z: H1 ?- o2 A* u1 q' B    RowBox[{
    4 Y3 ~4 V0 g2 q. V' @     RowBox[{"-", $ U, b3 _+ T4 f
          SuperscriptBox[
    4 `" }. Y. M3 {; i0 h       RowBox[{"(",
    & ~8 Q# Z6 c2 m* R: l# z/ x, h* @* `        RowBox[{' l0 C# p4 I, i) i' `! V4 F
             RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
    3 }5 Q! i2 v" f" t' D     SuperscriptBox[% @+ y; W5 c0 j: x# V# ^: z1 F  n
          RowBox[{"(",
    7 T( s, p7 Z1 L+ I5 }: I       RowBox[{6 f% y9 }9 Y; L6 D; a" w, a- D
            RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
    ; `1 n! y7 F( q! u. ^) U     SuperscriptBox[
    $ k  u6 L/ K' M  V9 u9 S1 Y      RowBox[{"(",
    - D* e9 e5 t5 Z' O       RowBox[{' w8 z5 N  F6 P' K+ v
            RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", ! b- D" j  @4 _; b2 ~
         SuperscriptBox[1 E9 h. G6 N' ~
          RowBox[{"(",
    # V/ _' w* C5 q) l/ P' p7 @       RowBox[{
    " b8 J, K1 K$ s2 A2 H& L        RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
    6 s9 R; H7 p, S' q: u$ S     SuperscriptBox[
    ) |- e& e8 F% W3 O3 J9 r      RowBox[{"(", : d, ~# B: {3 P" l& \8 R# Q* M! y  h
           RowBox[{( Z2 v. G. a# V- n- C
            RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
    8 l, p/ [9 L/ y4 Y7 Z3 Y# a. J. O     SuperscriptBox[
      P$ S( U8 T9 j& _, g) s1 Z      RowBox[{"(",
    ) M* Y  T) Y+ }/ L7 M+ P1 a       RowBox[{! D# I! d& s0 F* R$ {2 t2 p7 S
            RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
    3 ]% d6 z+ a9 U1 E     SuperscriptBox[( W' |# a8 W: `% K* c7 q
          RowBox[{"(",
    $ B, V8 |7 c, I. ]" u+ N       RowBox[{# G6 @* F( ]  P% X
            RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", 4 o/ W$ t6 w* q% z, q, f
         SuperscriptBox[
    ! j( x: R3 n9 j5 s      RowBox[{"(", 6 t( d3 t' e9 b
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 4 f7 X1 o# u/ G4 t
         SuperscriptBox[' a0 y: ^  w, J: ?% I2 m! e# v
          RowBox[{"(", 2 ]; F# [) J: i1 d: i3 s
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 0 U9 x5 V, Q  O+ H9 s& O
        ")"}]}]]], "Output",7 N" K  {+ D5 M0 K  \1 j
    CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
    1 D) O1 u: v" N  3.5779607654819613`*^9, 3.578012211515625*^9}]
    2 Z" y9 H3 }/ W5 T) E" {}, Open  ]],
    ! z) e+ B3 K2 s- Y" C
    8 @* |. \7 ~/ }! ^2 o( w+ eCell[CellGroupData[{( \5 B$ {( I: a2 H0 f  A) _
    ; |3 m2 J* L3 f$ o% k
    Cell[BoxData[
    ( J& X) G4 r/ v7 j# r' c RowBox[{"C4", "=", "Ca"}]], "Input",
    7 R$ [9 d* U9 b2 Y! C CellChangeTimes->{3.5779207559375*^9}],
    / W2 T% W/ K* L/ ~
    + w" v8 k7 \5 N: V/ yCell[BoxData[5 J, w- L6 K$ T- e# j
    RowBox[{"{", * [" x7 k2 v# L, Q5 ]! F3 j
      RowBox[{
    3 k; C7 r) S. V, t  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
    $ L8 o- m3 O9 V( i. H% [   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], # R! o/ E! m8 g, Y; g
      "}"}]], "Output",- _& `3 P! S0 |& ^
    CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
    0 J2 G3 G! W2 n7 K  3.5779607861363974`*^9, 3.578012216171875*^9}]' e1 F4 c/ ?0 l+ U
    }, Open  ]],4 H4 [, {; ?  a, D4 K% w( }

      N7 U* Z/ v7 Y0 A" ECell[CellGroupData[{) S; B  H9 B6 d8 T8 ^

    5 l8 D) O5 k$ `Cell[BoxData[, G. \. I8 k* S" R
    RowBox[{"u4", "=",
      S( _) i7 k% ^- b- U  RowBox[{+ f+ J1 F2 r+ k  y% E. i0 V; B% p! Y; c: @
       RowBox[{"Exp", "[",
    9 L5 x) c+ M( K* f7 j) L9 F    RowBox[{- I, f% w5 @  ~
         RowBox[{
    ' Y; m; x& X) q' t! Y; X4 X0 y7 U      RowBox[{"-",
    ' v. d9 `' n' K% \' x% O# k       RowBox[{3 S% l# |6 Q0 r) p  k
            RowBox[{"(",
      n  d9 Q- s- q, B# y5 X         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 4 Y! D2 s' O: {) }
            RowBox[{"(", ( r6 \- J. C! x9 `, S( |
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    0 u# q6 P9 _& G+ S% J( P" G8 G     "]"}], "/.", "DeltaX"}]}]], "Input",1 [, q* L1 o+ S& c, H5 s2 @& K8 P
    CellChangeTimes->{3.57792076325*^9}],
    7 |$ n$ J* l* Q/ {+ K, O! P% A
    ; y% R' y( Y' p* h6 [0 U4 yCell[BoxData[
    ! _0 ?* ]1 N/ R4 l& P# O8 D* v/ B SuperscriptBox["\[ExponentialE]",
    ! U: }2 b9 S& Q" k8 r! d  RowBox[{"3.141592653589793`", " ",
    , }1 X* \, x, m0 t5 `   RowBox[{"(",
    ! A1 _4 S* S0 h' O) T- c5 \$ k    RowBox[{
    , D4 N+ K5 Q4 p     RowBox[{"-",
    - H4 D( R% Y, I% c* f5 i      SuperscriptBox[! H4 h! @" p$ F& D+ l* g
           RowBox[{"(", & P7 S$ w% w& A9 {
            RowBox[{
    ; o3 R+ Z0 M" U         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", # q; u6 o# F" c7 y& U
         SuperscriptBox[
    & o: z0 Y; M  l! z* c      RowBox[{"(",
    9 q1 o4 V, P& Z7 Z9 k+ d       RowBox[{6 H( c; P1 ~3 l; N4 e$ ]
            RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
    / q- Y" J1 I" G) G- l3 t     SuperscriptBox[1 M- ^  C/ U8 j6 P% i
          RowBox[{"(", 5 Q# z, u" i/ y0 x: u$ z0 B; E
           RowBox[{
    " W7 S; V$ o# b" [        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    0 k5 j: t, L1 V9 P3 Q, a/ o     SuperscriptBox[  J+ Z1 r$ a1 `* Z' |3 L7 I
          RowBox[{"(",
    7 u: ]8 T8 D4 @. G9 {$ e; H       RowBox[{6 Y$ }: _. y1 U. @# r
            RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
    & Q- u' ^5 L  P0 P     SuperscriptBox[
      x* e0 w# p. d. Q4 T" Y9 O" t      RowBox[{"(", 8 \0 }- v5 L5 O& B$ Z  p
           RowBox[{+ C: T- @$ c; O
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", / j9 [. k, y4 Y& p5 Q7 ^! n
         SuperscriptBox[4 S2 D9 K* n3 ?
          RowBox[{"(", / v8 k1 u$ S; s! I
           RowBox[{
    2 w  D4 V6 R" {1 b. I7 K        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", # X8 |6 {9 U. _
         SuperscriptBox[
    * u2 U, _: M2 V4 D& k& x      RowBox[{"(",
    / C) u  p2 I; e) t- M       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", " _8 Y0 G: J3 f/ p, _  t
         SuperscriptBox[* E; x; J& i' X/ u/ Q
          RowBox[{"(",
    . V" F, r- H6 j4 w5 V8 `! j       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ; U  h3 g& F5 C& _! Z3 c5 r, c     SuperscriptBox[
    " r* ]* L6 e9 j) w$ m      RowBox[{"(", 0 J# Y: C$ h7 m, a; f
           RowBox[{* J% U9 ?! \$ K( q* N
            RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], & E( Z7 `* b& a8 [
        ")"}]}]]], "Output",% O! i. D; _5 C; b) m
    CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
    . f8 I, A5 C& H7 q. E/ p  3.5779607873531995`*^9, 3.5780122169375*^9}]
    " m0 n% P" Q: X8 @}, Open  ]],4 n2 e: ?% s+ @+ q

    6 E1 S3 d$ H) Y% }# r7 TCell[CellGroupData[{5 R' h/ i; p% A3 l- ?& D" D

    : A2 ?9 K$ h2 \Cell[BoxData[  U' J$ U8 W+ P) }- m
    RowBox[{"C5", "=", "Ca"}]], "Input",/ \  S& P- ?0 B: D* a1 J
    CellChangeTimes->{3.577920860671875*^9}],
    : h* R* A( B" g: b3 _  e! j, R& i( `* @: v# S$ Y$ K, f
    Cell[BoxData[! k2 a; W3 g, q$ D6 p5 Z2 g0 n
    RowBox[{"{",
    % o* B" I( P4 z. |0 A  RowBox[{1 T- ^9 w$ X$ j  I
      "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
    : _, R8 q4 a  e% k" f7 K8 @   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
    ) _# [! X0 K: y; b8 N5 i; h+ E  "}"}]], "Output",
    . j3 Q* Z3 u; Z/ G+ v CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
    2 |' a% E" T, Z. ~8 H6 O3 `. z  3.5779608137328453`*^9, 3.5780122209375*^9}]" h% P3 G* L: j- W( ?7 |# U  @/ a
    }, Open  ]],
    ! b- u6 f! b9 D0 k
    ' o. G" @2 c( n4 aCell[CellGroupData[{
    3 \7 P0 z% a0 x% w3 r' J/ o5 ?/ j2 O  \
    Cell[BoxData[
    5 f$ a6 |6 Z3 Q4 T  R, F RowBox[{"u5", "=",
    + m" l( C6 F6 j! C  RowBox[{5 g9 s7 Y9 E" S+ n- b# U
       RowBox[{"Exp", "[", . J6 i& R! ?& V7 K7 b* p1 g: ?  Y
        RowBox[{
    8 w! r* t8 o  z8 G; T# D; N     RowBox[{. d5 D% s7 `& Y3 N5 _2 W
          RowBox[{"-", 4 O# `0 x3 e& g- C" G& x' E7 R/ Q
           RowBox[{$ H+ ^' ~$ c! p. x2 n% y% {
            RowBox[{"(", 0 K0 P- m- V$ Z6 k" n5 J6 P
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ' |( m2 I' N$ r6 e  h        RowBox[{"(", + ^0 k) H% W1 M% a- m
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ( _7 W: ~  F6 @3 F( s. z& m' j/ N     "]"}], "/.", "DeltaX"}]}]], "Input",# C) c2 Q7 r* _) v; o/ B
    CellChangeTimes->{3.577920869375*^9}],/ Q, W7 t, W4 U: [
    # ^, z" z% ?5 r8 ]4 p/ S
    Cell[BoxData[% |. Y3 O" l- [$ D% P+ w+ z
    SuperscriptBox["\[ExponentialE]",
    $ r% w& f# @- e) E  RowBox[{"3.141592653589793`", " ",
    + d1 I6 \' a( Z. q& ]   RowBox[{"(", , f2 m' M" [2 v: u. B: |
        RowBox[{
    ; L1 [, G% x( h$ R# z: \0 g     RowBox[{"-",
    3 w$ \2 D8 D3 _' `) o, T, c      SuperscriptBox[, a# D2 ]* u) Y
           RowBox[{"(", 9 |. F5 c, T9 d8 Y3 G) s
            RowBox[{
    : R  G" x. [% I% Y& \) r2 v  V         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", . ]7 E8 O8 y& T9 D1 t* h! b5 V
         SuperscriptBox[
    ( y7 Z8 o2 ~& A. W" r      RowBox[{"(", 2 a1 `, _6 h# h8 n- J( K
           RowBox[{% p" ]+ X9 U+ u. z0 \9 {
            RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
    * R3 q& o  i7 Z) ^     SuperscriptBox[3 Q/ N- Y, J' B, v$ F1 n
          RowBox[{"(",
    . K+ E  ]$ n1 a+ c& _. ?3 J       RowBox[{* K" B8 B4 ]+ ~( ~
            RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", ) }9 _3 Z' r, O7 c$ j
         SuperscriptBox[+ W) g) x) v" b/ L
          RowBox[{"(",
    ! u0 L& \+ ]; f8 \; j7 I       RowBox[{
    3 q4 @/ u$ c4 a  Z" k, v! ]        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
    2 U% p, P, E' l1 d" `$ d     SuperscriptBox[& R* U6 e; w0 |1 p. D- V. T2 p
          RowBox[{"(", 0 X5 ]7 H1 W; E  l6 \0 V" i
           RowBox[{
    3 A6 Q/ C% d* [1 Z  V: B5 X8 s" B! ^- [        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
    ! n+ k4 P4 _  c     SuperscriptBox[
    , U- U& c) q6 b- ]3 K( S, q' Z      RowBox[{"(", , Q8 y! ]- s" O0 j1 ?
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    % t# {, o5 p" N* n' x     SuperscriptBox[' R6 t. `2 N$ z
          RowBox[{"(", + f8 \* q4 D- L% I/ `+ c6 Z1 C
           RowBox[{
    2 I* f* F  H9 J% h6 d/ z        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    9 O. [# U- e( |9 y8 E" @7 \: D     SuperscriptBox[9 C; b7 F( O9 _( `
          RowBox[{"(",
    * y1 @5 D: P3 G       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ' T# P6 B& y; A* y' j: W) z( [     SuperscriptBox[
    ( I+ r, f8 k7 j. T$ T1 u( M' v      RowBox[{"(",
    9 z  V9 ~4 Y! i$ ?       RowBox[{% K2 U2 S8 c: C. ], \: j6 R
            RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ' C1 p, D- G3 p: U/ ]9 |
        ")"}]}]]], "Output",, ~1 t* ]$ m% m
    CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
    $ \8 ]  H2 o' h& l3 J  3.577960815043248*^9, 3.578012221953125*^9}]
    + Y& n( `6 E, i1 D$ Q; L}, Open  ]],7 a/ m  w0 _' p) H
    0 n1 R4 ]" q9 f' ~1 e. A! F# ?
    Cell[CellGroupData[{
    . l/ k4 Z, r. f/ z7 B( B/ h7 z# S' G: F/ g& B/ m# g# C% w
    Cell[BoxData[" o+ T+ }/ ?& s" w" E( m
    RowBox[{"C6", "=", "Ca"}]], "Input",
    ! F+ X% ~) u0 _6 n- y CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
    1 m+ f; T: Q& D7 z) i- p! l- \. C  X4 k& Z5 ?
    Cell[BoxData[
    / k' w. U+ w) z( o0 v+ P0 b RowBox[{"{",
    2 a" V! e3 P4 b- _( j$ O8 X/ o( y  RowBox[{
    ; i+ F& [; n8 m# x8 m  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", $ o1 |/ X( Y6 [8 P0 m6 k9 I
       "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
    8 P' z4 s3 p9 K3 s# C4 N   "0.494866`"}], "}"}]], "Output",0 O1 ?! I* I0 Q$ t" l3 Q) `
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,
    , L6 r" H; C) c. E4 n0 J0 r   3.5779608373044868`*^9, 3.578012227359375*^9}]
    7 d7 Y1 ^, p0 J5 p/ w}, Open  ]],
    ( t: ^- E, k( l9 b2 }) _5 t$ z" {1 e, {- s4 u3 @; j/ ^
    Cell[CellGroupData[{
    ) Q' n; x. Z4 ]
    6 L& I7 i: V  L* B! D" c/ RCell[BoxData[
    - {$ j! Q2 T7 _2 w! b* h RowBox[{"u6", "=", 2 h. _% q" @( Y8 C
      RowBox[{7 P8 @& k1 E7 e* @  R4 K8 @, i+ ?1 O
       RowBox[{"Exp", "[", ; V' F) U' B; [+ S1 f
        RowBox[{
    , r/ C9 v* n% A2 c$ a     RowBox[{" L& u" T) f! g3 Q* j& r; [' M" F( R
          RowBox[{"-",
    2 B5 @* K1 j7 b/ _2 B       RowBox[{
    0 @9 [2 R, Q1 ~1 T/ e: [        RowBox[{"(",
    ; O& w% W9 T+ ~1 g         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", " o' x3 D! Y: y5 U
            RowBox[{"(", ; \( m1 Y& X, j! \
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ! N; M, ]2 j# q     "]"}], "/.", "DeltaX"}]}]], "Input",
    4 x1 p/ P+ j% A; V+ L$ V CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
    % s5 B. `5 z! k3 a$ m# N
    ( h& j3 i, Z# }2 J5 }) JCell[BoxData[: r! O# n( V9 q& u
    SuperscriptBox["\[ExponentialE]", ' N2 p" |- E+ i
      RowBox[{"3.141592653589793`", " ",
    ( _2 R5 c% k1 V2 d   RowBox[{"(",
    , V; Q" [* `3 O! Q3 D  i    RowBox[{
      B. E5 y2 U1 Y+ @% t! a! d7 T6 d     RowBox[{"-", : p1 L5 _7 n% Y, K2 o" F
          SuperscriptBox[+ i7 v- X+ h, r$ g
           RowBox[{"(", - h$ X7 C9 F- q! d; @
            RowBox[{
    5 |9 b. @% `4 o8 k8 h         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
      v1 m  f+ s6 I; p     SuperscriptBox[
    5 X* @) [- l/ N1 v- ]+ k. X      RowBox[{"(", , {9 x9 _7 A7 E) t% x7 @
           RowBox[{
    9 O% f2 T, [  K- k* _. @/ N        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", " V0 `# q. r/ I/ M
         SuperscriptBox[
    ( W+ _$ W5 f6 n7 f  G$ `; {$ r      RowBox[{"(",
    & y/ {/ n  ]# a       RowBox[{
    3 i/ l0 V( k: G* g' l' g        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
    7 e7 ^1 H; S" z0 u     SuperscriptBox[5 `# C4 h; a$ `
          RowBox[{"(",
    2 {2 d3 q3 k3 ~. T0 `& M       RowBox[{) J9 N4 u$ k5 Q( b0 p
            RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
    ! @' `5 l+ ]9 E  y# J& i     SuperscriptBox[; f6 K( M- R+ s. S
          RowBox[{"(",
    7 x7 Z$ z  q# S       RowBox[{3 M# F  B0 `$ }) p! i
            RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", & p1 |6 q+ `. S
         SuperscriptBox[. Q  b: j7 w* \$ B  m
          RowBox[{"(", " c7 _/ M0 R+ u6 |& p
           RowBox[{
    ; I$ o4 e1 {9 n* q        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
    ; b0 F, J  \. B7 d8 Z4 s     SuperscriptBox[
    2 \/ S1 O% O) N+ ~, ^      RowBox[{"(", + j- ]2 z7 L  z/ y, t, }1 G( ?
           RowBox[{1 |7 }& i( i' K+ P! z- Z
            RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    & N  e& Y- C; r) N+ `4 f     SuperscriptBox[
    & ]# t5 O- A8 l/ ~0 W8 q! e, {      RowBox[{"(", ( s& y5 @5 c6 Y! G1 R# R8 l4 ^3 I
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ( s) w( ?% f3 F     SuperscriptBox[
    * u; T' j- ]" F) \! b1 k' t      RowBox[{"(", " v; j3 z* s1 ?
           RowBox[{" r$ o$ {4 A. l7 I* J
            RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], % V, s  n( D8 B/ z; i
        ")"}]}]]], "Output",
    / R& j7 x/ w/ k1 X* i. C CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    & f) h& q4 }# D: k+ \  3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
    . a$ J# D3 N% w7 F' K6 V( T% T* H% J9 M. y}, Open  ]],
    , u3 A- ]% j4 W+ Y) _9 ~! D1 L4 I2 K6 ]1 a0 @
    Cell[CellGroupData[{9 e) v( N0 `% o. P! p+ N6 y

    ) h( G1 T8 \( g: |8 X* f$ ?Cell[BoxData[
    * N2 i7 _+ n. }0 ]2 }4 t& i RowBox[{"C7", "=", "Ca"}]], "Input",2 l' ?. E8 Z7 t8 d) m
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    , h( E. ?% N' j  3.577921316125*^9}],- ~; h& c  w( u  U

    8 ~& k+ ]8 t5 L+ }4 R! GCell[BoxData[9 S- r# q5 O/ L
    RowBox[{"{",
    6 {4 t7 U; g8 P  RowBox[{
    8 j' k/ N  G' [: _# K: [4 ~  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", ; G9 N0 y) z) U; P
       "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
    7 w$ ?( o& K3 g  "}"}]], "Output",
    6 W' h( t* p- X" v0 b: G* Z3 R CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 1 j" o& T  e, E! |" K
      3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]* j" h3 Q8 K$ P' s5 z8 {
    }, Open  ]],* _7 |  }% z( H/ m. p

    4 S( H! H' k) l1 ]1 t* D/ oCell[CellGroupData[{$ R" L3 q5 g3 ], B9 V
      S4 f/ J. U4 `* e) N$ q* {
    Cell[BoxData[
    + S9 p$ n3 h, e9 j RowBox[{"u7", "=", 8 q# Y2 K2 T  K& n- [1 y* ?
      RowBox[{, s, I# S& `& w4 n
       RowBox[{"Exp", "[",
    ! |; {- [  M6 t! [# U& M    RowBox[{
    - y' V+ S8 W( I, _& Z2 L4 G     RowBox[{! G/ R6 N6 ~) K# J
          RowBox[{"-",
    3 k% u! K) V$ S       RowBox[{
    7 @# t' V" I5 H3 `3 [0 j        RowBox[{"(",
    ; W. v5 G2 n/ R' {+ l         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", . H8 g0 H6 @$ Q* Q9 ~5 m
            RowBox[{"(", 3 l( O, s& J7 D/ S
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    & C" O8 v' Y# j' M. |$ x     "]"}], "/.", "DeltaX"}]}]], "Input",; f0 M4 U+ B2 s- [& |  s8 ?
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    - A; R# N- {1 x  3.57792132028125*^9}],
    2 e% o1 X3 R& ?3 o6 i% `/ E0 d3 V. r  D/ l  Z7 v
    Cell[BoxData[
    * l- q9 Y3 @1 H2 U# T* a SuperscriptBox["\[ExponentialE]", - W! {# i" n$ M. M* c
      RowBox[{"3.141592653589793`", " ", " x0 z  x+ T% w5 p9 E) E
       RowBox[{"(",
    7 Q/ l% ~+ R$ j# I    RowBox[{
    ! \! o8 K2 l: o, O6 \" K% [     RowBox[{"-", 8 k+ u0 y' o6 ^  R7 \( e* X
          SuperscriptBox[1 x- F! f7 `' F$ n! E, x
           RowBox[{"(", 0 y' |$ b" @, S9 ~, N) A; Z
            RowBox[{
    ; C- m# o& K( o0 v- J! Z         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
    / z2 e  M0 a$ |- h     SuperscriptBox[* ?) ]3 Z6 b+ d# O# M0 \7 G0 N3 w
          RowBox[{"(", * J, Y" q, ~- u, L8 Z4 ~5 C" w0 i
           RowBox[{
    # Y) K4 [: z3 u2 X        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
    6 z- k4 {/ V9 @" A0 M0 I     SuperscriptBox[
    ( @- U& C. S( x( k3 G: M      RowBox[{"(", / ?1 w$ Z( N/ |2 w/ }& _
           RowBox[{) `( M2 P  }& O! s
            RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    $ I* i! o- V4 X/ j4 _$ K7 ~     SuperscriptBox[
    3 B" c: ?8 J$ g6 h      RowBox[{"(",
    8 x3 K# N4 f% C$ l       RowBox[{
    & D" C: O% N4 k9 s: g+ N5 _        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", + ]& E/ {/ O: i' v( G# K2 [
         SuperscriptBox[5 }$ L, y, q% ^" `/ r1 l' X
          RowBox[{"(", & Q9 o2 y; `. l1 d5 ]
           RowBox[{
    . u8 |! v1 {% @; D5 M' i        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-", 0 K& R$ ^/ b4 B0 K2 `
         SuperscriptBox[
    + U3 |( Y1 G' D1 I6 }# a, e" q      RowBox[{"(",
    8 s1 Q- G& u; m& d9 W; J1 y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    % E3 G! ^# W2 F" [9 z* y( l/ d     SuperscriptBox[
    - R% P" u/ c0 X: s! o$ A/ S3 `      RowBox[{"(", ( q* N7 S7 V) M& U- e
           RowBox[{
    4 u% J/ q* r) V4 S8 {1 _        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    , v4 Q) l7 O+ e- [+ N. s$ a     SuperscriptBox[
    6 K9 l: F" u4 C: h# _; i      RowBox[{"(", 5 M/ G$ o: d0 C
           RowBox[{" j, a0 R7 A7 w+ j( m
            RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
    & _7 i" U# u) D     SuperscriptBox[* i  x/ W( ?: R# p  Z# v7 l
          RowBox[{"(", 2 R1 l. r$ x6 h: v3 C% ?, T
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    4 p' n, x+ |  t6 T    ")"}]}]]], "Output",6 H- c$ N( A7 X$ f$ \
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    ! f+ H8 A2 y- N/ I& ?( J. c  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, / Q/ {" C. i4 V  ^9 P4 y% m
      3.578012251359375*^9}]  \1 |7 e/ h5 O8 }3 l3 e
    }, Open  ]],
    9 }( p" I9 S: D- @7 C& u0 h5 C0 C5 ]$ {; C, x
    Cell[CellGroupData[{
    " g* M% W  I$ z3 I! U
    2 H; Z$ `3 t2 Q& _Cell[BoxData[
    2 F3 N6 \% B4 b RowBox[{"C8", "=", "Ca"}]], "Input",
    9 A2 S/ Q; ]! L" I, H" r1 g9 v" D CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    ! O( h& i3 s, }+ v% l  3.577921316125*^9, 3.57792141421875*^9}],
    $ H: J8 a6 w( z3 {0 q5 r. e; @
    Cell[BoxData[
    % T0 D) F7 r9 j) u, J. u8 o RowBox[{"{",
    + F- i0 K; W5 j$ v6 ~2 w  RowBox[{* k/ G# ^; v- E0 L+ V/ X. L
      "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", 1 v8 |! \1 g7 D/ _
       "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
    & y+ P* u. B2 Z2 j, |( e1 j3 ~  "}"}]], "Output",3 Y6 N- ^5 N; B+ `$ ]# r
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 5 Z( h& y* C/ h5 Y
      3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
    5 G, o; y3 u( q' ?" I. k  3.578012260515625*^9}]
    : d; i0 U  l! u* Q3 W& q  @! \}, Open  ]],  A# T7 {- Q  O4 e
    1 p& |! v) a& `9 H# W
    Cell[CellGroupData[{
    # Y- U) c; E1 E& ^1 ?9 k: ~  h) v% [) q" u( S. P
    Cell[BoxData[
    ) I" D! e1 M  l% U RowBox[{"u8", "=",
    ) L& k" V2 `: D, i  RowBox[{' x8 {: J9 L* I  w/ x- E0 e5 i" e
       RowBox[{"Exp", "[", . f( m' u6 S& ~( S4 V4 k! b4 D
        RowBox[{
    " ?2 W* D5 e1 W) {8 Z- z  i/ ]$ S     RowBox[{' @% W' m& F7 p- r' A
          RowBox[{"-",
    : D8 p9 |6 b9 l. y! y# F/ B       RowBox[{, k( x: \" Y" ?. e( h8 p
            RowBox[{"(", # ^) y% v4 K! b+ X+ M' d- b/ Z
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ' W' Z: a8 p' u2 t  }) A& q0 Y        RowBox[{"(",
    1 A  y$ N6 y4 Q" J( @; F         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    0 x) u6 m# n) `' ?( S# q$ [     "]"}], "/.", "DeltaX"}]}]], "Input",
    . w1 h2 r" @9 U' I: O CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    8 r$ i' J  u% ?0 X- |  3.57792132028125*^9, 3.577921416921875*^9}],
    4 `" N  w; k, K( ]! ]& N3 f0 U2 A
    Cell[BoxData[
    5 ], Z& G$ \8 \) t SuperscriptBox["\[ExponentialE]", 3 d* B0 B  @) F" C1 ~$ K
      RowBox[{"3.141592653589793`", " ", 7 ]0 x/ {* \0 Y0 b5 M7 X
       RowBox[{"(",
    ! \3 R! L( g1 a# e+ E) v    RowBox[{
    9 u5 `# i" V. t5 T% D     RowBox[{"-",
    7 F6 _! v( D1 s4 E! z      SuperscriptBox[9 W# d& w( z5 s& u) Z
           RowBox[{"(", 8 {* d7 U$ n$ z3 \/ N$ H+ @* S
            RowBox[{8 B9 H8 W! E  s8 \- N5 x8 h
             RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 R9 P3 e! d* P, D$ b# v5 z
         SuperscriptBox[
    5 X9 u8 Z! j- d0 l      RowBox[{"(", 6 e, S, B/ N6 a( L# d, i) v
           RowBox[{
    3 J/ R9 b! `# R. p7 w        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", ) R# d& W" ]; @' \3 R
         SuperscriptBox[
    ! P) O9 m4 ?" L6 G; ]      RowBox[{"(", . d8 Y- F& g" h9 ^; }
           RowBox[{$ m) t, D. T# O: K! n8 P& H# {
            RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", 0 {; B3 @4 {. s6 i7 K! a* \5 K
         SuperscriptBox[4 S0 F8 q1 m9 D8 u/ K2 F
          RowBox[{"(",
    3 e9 i6 D* Y9 t7 ~: |9 J       RowBox[{
    ( n  r$ S- |5 U. n* \& H        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-", * K0 j7 C& B, H" q' {4 g7 S
         SuperscriptBox[& M2 k: f+ V4 ?" C! K, r
          RowBox[{"(",
    & m9 I3 k. }( Y2 E" Q* z1 g, v+ A       RowBox[{9 n) B8 @$ W3 k+ U9 b) y
            RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", 9 u5 O5 p2 R- Q0 c8 C) h
         SuperscriptBox[
    2 U6 ^3 U1 p( {1 K, r; P: s      RowBox[{"(", 1 A9 v0 T% ?$ f0 j( Z  K1 w
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    " [4 V4 c3 R2 j, l9 `2 H; J& m     SuperscriptBox[& ~, I! R$ D$ y9 E( w$ u) Y
          RowBox[{"(", 3 x5 U2 n: ^- z( ?1 z
           RowBox[{3 `- t8 ^; L2 U
            RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", ; i! N5 F2 Z/ h  K  d' j4 @
         SuperscriptBox[9 U* \8 u$ E$ v4 s, z" i3 x
          RowBox[{"(", 0 n9 Z/ X* r2 N, D8 ]; l" `
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", " s" w; c- Z' Y' V- y
         SuperscriptBox[& n; D6 D; M4 S5 r8 n2 o
          RowBox[{"(",
    5 p: |5 v5 B8 t/ B" E       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ' P$ R3 U) D( W& Z* b( A7 F6 W
        ")"}]}]]], "Output",
    ; v9 A8 \/ t+ g' r& x, J8 B8 _ CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    6 {# N7 s5 }2 M0 s  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
    / L+ H: x# O8 o1 B6 M7 t  m  3.5779608945565863`*^9, 3.57801226165625*^9}]1 }) `6 ^* y4 A" Z" {
    }, Open  ]],/ @: f9 H: c1 T& [& H
      Z4 z# c5 o& Y7 x5 p5 _+ e
    Cell[CellGroupData[{
    8 l. O6 M9 q* P6 Y- f2 x' c6 |. ~+ s+ P2 U- f* S
    Cell[BoxData[
    ) ^! X( C: K: ~ RowBox[{"C9", "=", "Ca"}]], "Input",
    ; H$ B8 u( i; _ CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    . M8 ?: @. c: b: h' g, d; R; G- K6 ]4 Y  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],: K& q& |1 U3 h: C& k2 }7 ~
    1 P- J% z9 q4 y0 Q% W
    Cell[BoxData[
    ; E6 C" ^. i! D, o! P* R' B RowBox[{"{",
    - g% F% v/ P: _. J; j" Z5 l8 t+ ]  RowBox[{* }9 a! I3 t5 T
      "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",", 3 A! Z7 }# E7 w% G" L
       "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}], ' J$ V1 P' g6 u6 i/ a2 ?
      "}"}]], "Output",: M6 U0 K7 o$ g5 {. M4 P4 m
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, % w/ f! m" @6 }
      3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
    : |; I  @/ v  u: @  3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
    $ F% O2 Z. O0 n0 O- ~5 M  3.578012268234375*^9}]( ^- |; u' t- `
    }, Open  ]],3 u0 a: [" e. h7 X$ a  E
    3 i8 ]" w" D6 {$ ]. n6 H  {+ W
    Cell[CellGroupData[{1 w/ A, B7 t( ~# b& o5 N; I# w
    2 A6 S# E6 n5 K
    Cell[BoxData[2 j* N2 U: m4 w1 F+ m2 ^1 t
    RowBox[{"u9", "=", 9 D7 n1 n9 F2 w) p( l& g
      RowBox[{$ o/ B/ U8 K: w7 s& j$ ^, Q, `9 A
       RowBox[{"Exp", "[",
    - d% R& |- w1 H7 V* z$ V, G+ w    RowBox[{
    ! a2 s1 c% T1 `3 B1 s7 g. _     RowBox[{* r& i  r# I" L7 G/ f
          RowBox[{"-", " [% I  k' j- d  B* @" n4 e
           RowBox[{
    ) m) @4 G6 N/ n  x' B! _  j        RowBox[{"(", * H; r% z) k) {5 ]' x$ m9 I1 [
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 s; c; b) N3 E$ b9 F4 V. P+ d
            RowBox[{"(", 0 R6 P# `% ?' l1 V' Z' R
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],/ B$ h0 z+ T7 A
         "]"}], "/.", "DeltaX"}]}]], "Input",
    - o0 G7 j+ \9 O* w CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 2 Q: o8 z. }3 z2 S
      3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],# F' F& o- C1 S# E- n! r
    1 M/ P3 M* R0 |6 r
    Cell[BoxData[
    % L2 F* U# e+ q5 @8 U6 o2 m- v SuperscriptBox["\[ExponentialE]",
    ' v2 R5 x8 C5 t7 C  RowBox[{"3.141592653589793`", " ", # B, t* z, r  I, s5 P
       RowBox[{"(",
    + T, q9 _$ R' t% w3 b% N5 g0 W    RowBox[{/ `2 e# z5 X7 @
         RowBox[{"-", & x5 `2 _5 x4 U3 ]4 @# m
          SuperscriptBox[; F3 _; N) }' F$ r: b
           RowBox[{"(", ( Z+ @1 Q% a4 t& O/ O3 N  l$ r
            RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-",
    1 n5 b* E3 r9 ^5 r6 e     SuperscriptBox[/ n5 y, H! G8 p* w
          RowBox[{"(",
    5 Z+ j. ^2 I2 A3 Q       RowBox[{' a/ v3 Y+ N; `, A' W* g$ ~
            RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
    # n" |) ]0 J- w1 i" y$ a9 O     SuperscriptBox[
    4 b9 n+ U# {% @: R      RowBox[{"(", . |8 z; Y3 a4 i; f4 L9 L. K
           RowBox[{5 P' R. {% _! ^! V) f, w* N
            RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    % K5 Y2 Q6 c! j! P     SuperscriptBox[
    , b4 q# t. I. m" T" X) k$ }      RowBox[{"(",
    ! \; ?" A8 h* |8 ~" C       RowBox[{9 n6 @' ~6 Y5 ?% |+ i
            RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
    $ ?+ K  k1 q' a+ p- @# x/ E; u     SuperscriptBox[
    ; G2 O7 b' V3 l9 j2 v9 {      RowBox[{"(",
    " d* |, S5 U" Z( k. T( o' M       RowBox[{
    : ^" Y* |/ Y& i6 L' @6 i        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    5 v# S$ b" u/ a: \* K) o     SuperscriptBox[
    5 [+ D. k3 k. _! u, e  _      RowBox[{"(",
    3 Z9 u( V7 m5 k# {7 d       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 9 Z3 K9 {& C2 b% y! m3 m  M
         SuperscriptBox[1 u& \- }9 @9 z9 Z  c
          RowBox[{"(", * Q, d+ z8 S3 l' p
           RowBox[{" @# l. s+ [- W0 R2 n3 `
            RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    ) B. {3 `$ [9 b     SuperscriptBox[- d2 K7 W. n7 Q. @6 k
          RowBox[{"(",
    9 I* b' j# s; E6 `2 B7 f6 Y  P2 l       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    + h1 B! U) y2 @; @/ q     SuperscriptBox[! T$ }3 Z4 s$ j" K: o
          RowBox[{"(",
    7 b& q) T! V: m$ J' z2 Z       RowBox[{4 `) k& G4 J- f# C% E( F; H
            RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
    4 g8 W" {9 L! Q% b& B$ U    ")"}]}]]], "Output",! z8 _- w, |% ?4 ^
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, ' B! b' h8 k2 P, q0 u$ U
      3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9, 1 l" }) q9 A2 {/ e% A9 R1 ]. ~. x
      3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, 3 f5 I) c) B+ f" E2 p
      3.577961530421959*^9, 3.578012269125*^9}]- |" O) U1 B" u& j0 C
    }, Open  ]],6 J6 v2 E) v, [

    2 `, T$ y) u- u. V3 ?* yCell[CellGroupData[{
      ], ~2 l" z" V+ D* q  X
    ( N7 o( Q* l7 E, J. CCell[BoxData[{( U# Z- Z, M. l9 {2 X
    RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
    $ r1 I+ a8 d3 g1 z% p. E' r RowBox[{"u10", "=",
    $ C7 D& y9 \* {3 x6 ~3 {$ \  RowBox[{5 N6 S/ u; t6 Y' K- `/ s" l
       RowBox[{"Exp", "[",
    6 K3 t9 h2 r/ I( |    RowBox[{# N: m/ X& N4 q' b6 Q; Q
         RowBox[{$ ^" [9 g' X$ H' `$ Q- Y
          RowBox[{"-", + Z9 r1 ?" t8 w: R
           RowBox[{
    3 }9 R. t% g' y. z" X        RowBox[{"(",
    9 H! a( j6 f0 R  W         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", . @, o+ P/ T. h6 d5 O$ S' |$ J1 ?
            RowBox[{"(",
    ) T5 K* N7 N: I         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    & U( N& ]9 V8 k& t     "]"}], "/.", "DeltaX"}]}]}], "Input",
      Z' N. }' Y) h/ Y2 r$ m CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
    4 v, Q, ~) F8 Y$ d. O$ T; i  x7 U( ~/ L  n* B
    Cell[BoxData[
    , O6 e) {9 T9 e$ S" D0 ] RowBox[{"{", * h* S$ v0 F3 z5 R& `
      RowBox[{: V5 v/ A6 {- S, C, ]( ]* g& \
      "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
    8 K4 ?8 {+ y7 \& J) Y$ K   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",& L6 Q6 T: z4 z$ |! o3 q2 c4 p
    CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
    - Z  |/ D% Y! }8 o) V  `' ?9 U4 |, B6 U8 [9 w9 C9 j+ k
    Cell[BoxData[
    4 k7 P/ x+ ]5 ~+ d" V SuperscriptBox["\[ExponentialE]",
    ! \3 [* B* a' B# [5 w  RowBox[{"3.141592653589793`", " ",
    6 q/ h2 S1 u9 Z  N  V/ n   RowBox[{"(",
    * i# V* V" ~, ?) j4 o2 z# N3 L    RowBox[{
    ) h. \8 R$ M/ g, |& V" X     RowBox[{"-",
    5 q" ]6 s' f# v& W; I      SuperscriptBox[2 j" U; ~' z* E9 ]% d7 s
           RowBox[{"(", / W  L; q+ q! x" J6 \
            RowBox[{1 o2 M% o# k) q( L. a4 t! |0 U8 P! _
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    , T$ y, T$ t( V! g2 C9 n" ]4 l     SuperscriptBox[3 H- D" Q8 \  m: K* n
          RowBox[{"(", % C6 z# V/ v5 Q2 E8 m: x. a
           RowBox[{
    6 Q8 V2 q+ I& R, f& V6 X+ q2 |        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", ; Z0 D1 v7 B6 s: \
         SuperscriptBox[1 a" O( Y+ e$ _" Q  y' _
          RowBox[{"(", 0 p$ U6 M& [/ O
           RowBox[{9 _8 b' \8 U# {4 n! s
            RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", ' E, \& C0 W$ O: B1 o* q2 e/ ?) H3 t
         SuperscriptBox[
    # \) n3 Q) k( y3 }) p      RowBox[{"(", " P9 {% K& u* G4 p8 N- |/ ^
           RowBox[{9 m2 z) I, i9 K+ u1 A
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", 8 u+ y& u- W4 e
         SuperscriptBox[
    ; r6 F! H) `; O# j' o% t# @( ?# Q% ^      RowBox[{"(", . T9 j; x! {2 W3 ?
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
    6 Y# S# p: B+ X     SuperscriptBox[- k1 r$ _; v/ l- f
          RowBox[{"(", ' c9 ~: P1 k* e- D( P8 n& b
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    9 Q9 J7 `2 n) N" a. Z! Q- p     SuperscriptBox[# Z5 b- s- R# m0 I1 o
          RowBox[{"(",
    , U: a+ p" L7 y" V  m2 D8 ~3 |       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 0 n9 J" ~' p# w3 F
         SuperscriptBox[3 M+ j& r9 }" V& t9 z- N
          RowBox[{"(", 0 R4 Y( a0 F4 ^% X) R$ {( |7 l
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    8 p% w( {$ y4 f6 D1 i1 e) w9 y3 H     SuperscriptBox[  C+ }3 t. Q' t3 s! d2 c
          RowBox[{"(",
    # l* y: h$ ?+ w7 E, Y       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    * N. n% }0 M1 M6 K- g0 }3 J% }    ")"}]}]]], "Output",6 [/ E/ n5 |- g5 K) `
    CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]/ V7 [5 y% v' r2 X' Q1 M
    }, Open  ]],
    * e) p6 N0 f8 a8 q* O' D4 D+ D1 p! m* y/ |# Q* R" t1 }
    Cell[CellGroupData[{
    9 l' a* l0 L5 s) ^3 {- z
    % m! \) |. }0 _% \1 \" e7 mCell[BoxData[{
    $ B: X/ S2 ~: t. f RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
    7 b3 ]$ k/ X0 r! C' I+ `+ H RowBox[{"u11", "=", : w2 r- @- J; \% `# x) A& r
      RowBox[{
    % B6 Y( W" A; I/ K& S  G0 z   RowBox[{"Exp", "[",
    5 A# m3 I( |6 G/ P% J; W6 R; v% q    RowBox[{
    . p/ b' c- [: a# [: g: R     RowBox[{
    ) ]% C7 L( A( J4 w# o      RowBox[{"-", + S. ^0 N! }0 q/ h- Y
           RowBox[{, N9 S3 r5 V1 H: e# C. O5 l
            RowBox[{"(", / y$ S- n" I' b" T' a) u+ M
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ; E7 G/ v; `- ]) J6 z# N- ]
            RowBox[{"(", , i6 s9 ~1 H' M" l
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],$ w, [, v0 b* t  F* _: S7 s3 h
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    1 l1 l9 t. n6 ^ CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ' o  [# j7 x7 R+ w4 e  3.57796154237158*^9, 3.5779615434011817`*^9}}],4 \" n$ a3 u% |! F2 `( N9 |

    9 F, ]: @6 Z7 o% Z( kCell[BoxData[7 S+ @! w2 |1 n! k- }" @8 g
    RowBox[{"{",
    & c6 N; t6 e* }, q5 N* P  RowBox[{
    % N7 B2 l: y" j8 `  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
    ' S! a) y4 u. ^, m7 m, m" K   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    : V9 t0 m8 H- Y  "}"}]], "Output",1 u' v4 z6 l7 J) i5 S( H8 b7 [
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    " K: m# x" f# W) a9 N/ Q  3.57801228203125*^9}],; Q" y+ p3 ~/ U7 g& D: c7 ~, ?8 }. b

    " O$ H* K( \6 Q' c3 _Cell[BoxData[& D/ e$ g+ C" d
    SuperscriptBox["\[ExponentialE]",
    ! Z. @5 n& `1 w- q  RowBox[{"3.141592653589793`", " ", % B$ o7 s. O5 i) N! L" B, i
       RowBox[{"(",
    , K# a, S5 c+ _' n    RowBox[{% `4 s# K5 T* O
         RowBox[{"-", 2 Z+ C# D$ K' `& p& r) r2 X( A5 q
          SuperscriptBox[7 ~) q5 f1 N- A$ K- y7 H' Z' {  F
           RowBox[{"(",
    ) K' ~% j. i" M7 H        RowBox[{
    8 g2 _6 S6 |- t$ k         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
    3 t* T$ r! k+ Y; Y  T1 l+ P     SuperscriptBox[
    ( V8 D4 U! T; _% d. g      RowBox[{"(", 7 ~9 Z7 H! o' e6 Q, i( y9 d
           RowBox[{
    ' E; W9 O, d5 G: e1 j* `        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
    1 v( e; f: r1 E- ~6 R+ C) [: L     SuperscriptBox[5 E; D/ p7 b) A, m8 l
          RowBox[{"(", ' l/ z8 O) {) s; j5 F3 N
           RowBox[{/ ?" C1 m! @6 B* a
            RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
    3 N9 b0 M; W" L- s     SuperscriptBox[0 ^6 w/ K# H; ]% Q7 M; C2 F9 A. k
          RowBox[{"(",
    # c0 O) U+ b) S6 ^& q       RowBox[{8 P' ~, Z2 W0 M/ D
            RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
    0 b1 r" `1 D! S; `' H  H     SuperscriptBox[
    ( l, T  c9 T7 x- D  @6 n      RowBox[{"(", ! X5 @4 p" ]6 ], [* w- }$ B( l: j
           RowBox[{
    . c; _) F9 W" w. c' N. Y5 a( w        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
      l& }2 A9 v9 x) Q& R# c     SuperscriptBox[9 ?- C0 b) K( M' }. F
          RowBox[{"(",
    3 ?) J* \' }* L0 A       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    " J# K& U5 r  l' o; E5 q' ^     SuperscriptBox[2 T5 V) b# X0 M) |& `1 G9 B
          RowBox[{"(", 7 y! s! Y' Z7 m( r: f
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ( `6 Q5 H0 h3 U( M' `' K/ A
         SuperscriptBox[
    1 P8 b3 V! `, d, x+ n      RowBox[{"(", ' c: Z: i1 |% k1 g
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    / v+ j! y4 L+ @% _( h     SuperscriptBox[% I3 b' Q6 ]' i3 Z3 ~7 X
          RowBox[{"(", ; w' k- c- P. o- t* Q% r4 R) m
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    - u: F( C" U6 }) ]    ")"}]}]]], "Output"," m5 M! Z  b4 C
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, 3 E% c. F$ t3 R! v/ F+ w9 e# J
      3.57801228203125*^9}]
    - \) T6 U9 g5 E$ b, p}, Open  ]],
    3 w8 h, |9 y6 e2 u! T
    ) g  @- A& ?  xCell[CellGroupData[{7 a5 t2 N0 N. ~! H
    / ^( m# Q9 \6 K
    Cell[BoxData[{& E3 t  O9 C; h& d& \/ N( \8 S
    RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
    % j3 ^3 ]& X9 h) \ RowBox[{"u12", "=", / {$ y. A# [% X* O! Q
      RowBox[{8 Y( @) p' e7 x2 r
       RowBox[{"Exp", "[", 5 o) A) e4 C& L' k5 ?
        RowBox[{
    # B3 _: H+ C* O/ L2 M+ s     RowBox[{2 t, l/ t. ~  R* j7 g
          RowBox[{"-", % g: e5 j! l) J
           RowBox[{% y, q; t7 K1 D2 a+ \
            RowBox[{"(",
    ( l; y( O/ A9 y. C         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " K: v- B- w/ y        RowBox[{"(",
    5 Y$ O: u# p" L         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],7 Z% ~3 Z# \% d2 J! v
         "]"}], "/.", "DeltaX"}]}]}], "Input",( y- ^! Q' H& a: r- ^/ [1 G
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {) l. W3 M5 B; A- C- ?0 l+ [, h3 q
      3.57796154237158*^9, 3.5779615576284065`*^9}}]," t2 _# k& _, f6 ?( T$ V$ \
    + k2 N7 T) W( D- c
    Cell[BoxData[0 o8 i/ }9 k: X5 q' K" F6 g
    RowBox[{"{",
    6 ?! m& T4 @0 u) R% I% H  RowBox[{$ E- p( B2 X1 k& A7 M
      "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
    . ]/ k1 s; Q' F! S. t   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
    ( C5 H, U$ N8 I: ^) e9 h  "}"}]], "Output",2 v2 j7 ?2 ^2 t$ y0 Y1 E
    CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],5 F/ a+ ^7 m0 T+ V5 |( c; \# L0 U

    ' A3 N  B0 M# N& VCell[BoxData[1 c+ H  f1 S) z) c" `/ P
    SuperscriptBox["\[ExponentialE]",
    5 Y; [( X; ?# C0 Z, i  y2 W2 S  RowBox[{"3.141592653589793`", " ",
    6 t- x0 L; f* M, t   RowBox[{"(", # \' _, P* ^% ?7 y/ K; p8 s' Q
        RowBox[{0 G' r* \, R& m, K
         RowBox[{"-", " C) n1 K2 I9 z5 ?9 T6 e6 D  |
          SuperscriptBox[
    3 {6 w$ E8 H$ g, r+ ~# G, D       RowBox[{"(", / H7 M  b, Y( J2 Z4 a
            RowBox[{
    3 x! a$ K; O# ~! c( Z/ J3 z1 S         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", 1 q) l. ~# P, V/ D9 i
         SuperscriptBox[
    ! Q! i+ v" ^( V' O; `% h      RowBox[{"(",
    1 D5 A- s* r) i/ @8 ^  m' W       RowBox[{
    . ~! S; D+ e5 F" u3 [' L        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
    * [/ z2 _2 E" Q6 D( x" a2 u  A# g     SuperscriptBox[
    4 \1 d/ F8 X  A. H# P; O7 k      RowBox[{"(", 7 s8 i+ \% v; q: }3 ^
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", 1 [$ l* I) j( `. U2 u2 M
         SuperscriptBox[+ l4 h- K% J% Y: k- @; ]! [
          RowBox[{"(",
    * b- I* s7 a, r; P       RowBox[{
    3 l5 q# y/ P. S* J6 A        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
    / ^: ^4 C! D1 l, h  Y4 k8 U: W     SuperscriptBox[; J9 T  ~+ U. r( k3 f) V
          RowBox[{"(", % P7 m) i! a8 m- F$ w
           RowBox[{# A8 R0 ~  u: ?# D! I+ z
            RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", / a! f# j7 _. A* H& Z" W! V
         SuperscriptBox[
    4 D1 I/ w) |7 [) R% @3 V: J      RowBox[{"(",
    ) P0 J) B1 }- P* k       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    " _2 Y* n1 ?0 O" r% u! h6 r' L     SuperscriptBox[! _" V  @  w$ J9 {
          RowBox[{"(", 5 k1 P$ n/ d+ I$ q% q. \) W7 \
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",   f' J8 ^1 W2 S# ?' d! N
         SuperscriptBox[
    ) o* Z* W" u0 I5 ?2 n$ p      RowBox[{"(", . G! ?4 c! ~" B. G/ L( w* d( K* e1 h, h
           RowBox[{
    / Q) X" Q( ^% [6 E        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", 8 \" g6 Y# I1 N4 f2 R8 x
         SuperscriptBox[
    * }. T. ?7 u/ \0 |# C5 S# ^9 m; D2 @      RowBox[{"(",
    & S( c3 w. h& {# h       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    : h% x; v7 k* `+ ?& y* D    ")"}]}]]], "Output",! y, Y" _1 b3 I+ s. M
    CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]5 D* o" E: l  l) O+ ~
    }, Open  ]],
    ; ~7 F$ d' F/ N$ ^2 d5 l% Y% f: F$ M; b/ x" B# ^+ z  o9 t
    Cell[CellGroupData[{; h# O* X7 K( j; W5 Z+ m4 P

    8 I6 x/ G; U9 F  ~( xCell[BoxData[{
    , d& Y0 |3 @: a) B  u$ z RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]", 3 N! f3 x5 D  G2 I, V
    RowBox[{"u13", "=",
    8 o7 m+ s* R0 V4 ?& n4 t  RowBox[{% _) l% f1 V% c+ e) R3 ]1 ~) b
       RowBox[{"Exp", "[", 3 M) D% a7 R8 O8 T5 |8 N( S
        RowBox[{
    , {8 U% h0 s; a3 y     RowBox[{" U/ R. l4 Q' ~. R: t( p
          RowBox[{"-", ' Y: O5 p5 H8 s4 ]
           RowBox[{& e. H8 O0 v6 a7 c  O  R# b+ S
            RowBox[{"(",
    ; S) x0 R- X9 h5 {; S) J         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 6 Z( t0 i- _! G% i0 {2 F
            RowBox[{"(",
    $ h9 k; L! G! i- W. @         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],8 V) A( ^" n8 T/ j+ L1 c* n4 h. j
         "]"}], "/.", "DeltaX"}]}]}], "Input",: a6 U9 ^3 `2 t( I3 q) M+ }
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ) U- }- A! R" m0 `* ~6 W. N6 x1 p7 f  3.57796154237158*^9, 3.5779615599684105`*^9}}],
    + c6 b0 W) [2 h% i% b2 h& q1 I0 n+ |7 D- k: N
    Cell[BoxData[* s+ f; t: k2 b. |4 l
    RowBox[{"{", 2 _$ B; [9 g" Q+ }+ D% v
      RowBox[{
    & |' s* n: i0 b, ?; m  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
    - ~3 G$ Y: B$ P' ]+ `$ ?   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
    $ p& A+ V* a8 C2 v4 d- C9 Q4 @6 l  "}"}]], "Output",
    * ~1 ]2 I9 d4 x3 K8 O$ E+ F9 D+ @ CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],! J: d. G4 R: U9 P
    , m8 o* G2 f. ~  R5 x$ q
    Cell[BoxData[
    ) P8 g% H- w# @/ N* ^5 @7 ?, {" F SuperscriptBox["\[ExponentialE]",
    ; b7 g6 P8 b) g& p2 l  RowBox[{"3.141592653589793`", " ", " X! G* y" A9 d( i2 G
       RowBox[{"(",
    , h6 S/ K5 v- c( _    RowBox[{- {; B  m4 \1 g, w, L' V; j
         RowBox[{"-", 0 F' K1 M! D6 b3 j
          SuperscriptBox[% v3 ^) t6 m; ]& D( I2 u
           RowBox[{"(",
    9 s0 ]- X& u& }8 y! W6 s* {        RowBox[{/ N8 s2 l9 Z- K. Y
             RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 p4 A2 ]7 L' j4 J3 @1 P. U
         SuperscriptBox[
    # e" J0 E3 Q5 s      RowBox[{"(", 1 z4 X' E8 A  r% E. r2 _
           RowBox[{  ~; u% [7 w+ A* c
            RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
    4 S# s& h2 r& s$ P     SuperscriptBox[
    . \* X- K( V# D. n' N3 u      RowBox[{"(",
    1 E+ T/ V( P6 u1 i4 h       RowBox[{
    ' j0 v6 D# ?9 i; i, I        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", % @0 W9 b3 b2 M! _' [* v: y
         SuperscriptBox[  m- @9 h% e& G# w. L: ^
          RowBox[{"(", 4 `; L( b* U! X2 N) b; E. q+ N% w
           RowBox[{& X; Z- b3 c8 ]0 |/ p7 x! w  F
            RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
    0 m8 w+ g# a8 t: }4 |# S( w) T     SuperscriptBox[
    7 g+ _! O0 h  |1 Z      RowBox[{"(",
    7 l  ?! E4 y8 a: [       RowBox[{
    ! G' A! O: v0 p# i8 x3 f, }/ I+ X        RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", 5 I( @" C* U! Q0 _$ H  |" e
         SuperscriptBox[- c, q" F; t' k# t/ _8 `& K, N3 M
          RowBox[{"(",
    - h- C. U$ r- J, |* C9 v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    0 k1 G& N; L4 @) R9 c! |     SuperscriptBox[
    & _3 s2 i- h3 a0 P+ b/ n      RowBox[{"(",
    , x3 x# q$ \; p! ?+ G       RowBox[{
    - `5 N, k7 E! ^  V+ r( g        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    1 k: A+ o) _  _" K0 z     SuperscriptBox[
    7 _% g. p7 [; f  l3 ]  a) @      RowBox[{"(", ( X7 O- U& I( T, W# f5 t$ a) d( H
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", # u' g9 [7 |' ?2 M& P
         SuperscriptBox[6 `7 e5 m$ F! T5 C
          RowBox[{"(", " v% ^5 H$ h7 `! C4 g/ Z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],   A5 |+ F1 g0 s" i5 M. ]- \2 ^6 d6 |. F
        ")"}]}]]], "Output",
    1 Y* g: d, f  G# u CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]8 J- s/ e% h1 R6 N
    }, Open  ]],
    2 r& a6 K/ o3 B1 f* [3 c! f" S) X$ C) l
    Cell[CellGroupData[{
    : h9 K4 u6 ]& F' J  \
    ! s; {& S: j' \. ^Cell[BoxData[{4 B1 E) g3 n1 I' I% V
    RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
    8 G7 s2 O5 s2 a3 X RowBox[{"u14", "=", & |) t) u( M2 I7 C" b
      RowBox[{
    3 t; N" ]6 D2 h7 ?5 e5 i   RowBox[{"Exp", "[",
    ! p# i& b+ }2 `/ P/ J    RowBox[{0 y2 O" X0 h# G7 _% g
         RowBox[{+ C; G) x& I. J$ x1 I
          RowBox[{"-",
    6 r4 K( E, i3 j; @+ d* V8 w0 I       RowBox[{
    7 {7 f  z2 j8 K( z% a8 Q        RowBox[{"(",
    + I+ h9 J) g7 m1 a         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    % _3 |+ b, _  |6 f+ c6 Q5 p        RowBox[{"(", 4 `; r. r8 E# L$ ?' i! v
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],. ?) y/ v- n# A+ |  ~
         "]"}], "/.", "DeltaX"}]}]}], "Input",1 d3 \& S$ Q+ a1 S, E7 A0 F
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    - ~- ^) B, q7 b& u7 A$ U4 C  3.57796154237158*^9, 3.5779615663176217`*^9}}],, ~! U1 j* s: V, k# n

    ! e( `# W. L6 I0 dCell[BoxData[- a6 p$ \% @$ _1 w3 {6 L  d
    RowBox[{"{",
    $ P1 D& e- v  I/ e& p' Q  RowBox[{
    6 V6 O3 b' ]" x! [  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
    " i6 @& }  r7 [. }& ~   "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], $ f) Y: y' w9 N+ m- L
      "}"}]], "Output",0 w" m- f4 Y7 x9 l- {6 R1 v
    CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],
    ! U! p( ~- ^9 `% [; V! [  \2 |* H" A9 l3 j
    Cell[BoxData[
    : j% L' ]# Q( l) E7 P8 h( r SuperscriptBox["\[ExponentialE]", ; j6 y" b4 K9 L
      RowBox[{"3.141592653589793`", " ", 7 u# W. D* {9 b8 Z
       RowBox[{"(", + C( h; b. v- l4 [
        RowBox[{# m: \! d+ E/ J0 r8 X& v
         RowBox[{"-",
    2 i; X4 M/ V7 [' f( d6 b+ a+ D      SuperscriptBox[& @3 Y$ ^- @1 J* I, v5 g
           RowBox[{"(", $ m$ \6 N6 {9 s: f- Z' p6 D
            RowBox[{
    6 b% m4 p$ h# Y4 O$ f9 @         RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-", # Q& q: Z  t  X0 p6 _7 B
         SuperscriptBox[$ ~; P% g4 T# u( R9 x( k/ p1 T) F
          RowBox[{"(",
    ! P3 t% ?3 G  r0 L- W+ U       RowBox[{
    & C8 P2 @& `# T3 M/ y1 |1 C        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
    , d; p/ o  d5 x5 ], n     SuperscriptBox[
    4 H' Z0 T9 g' Q& C" U2 a" `      RowBox[{"(",
    # H; h7 _1 k' u8 g* W  k. F% t       RowBox[{
    & v- o3 X  g3 w: ?# l. a        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
    0 X/ }& R6 `; `& P. n. T, Z- a6 M     SuperscriptBox[
    . D/ {  [1 v; g% s/ `/ j5 @/ o9 H8 i      RowBox[{"(", & V& V! o+ G" `1 M& K% ]
           RowBox[{
    , f6 r4 d7 i1 T& ]/ d# V  N        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
    ' ^- J2 w6 U/ L4 P$ b2 ]! W     SuperscriptBox[
    ' V' l/ I0 t# s. s9 X7 r      RowBox[{"(",
    . n& w2 q, d, y8 _& E       RowBox[{
    6 Z; [# N; }" |9 P        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", # i6 }8 k- h/ T# k% M) L
         SuperscriptBox[( [( P4 {+ f1 f
          RowBox[{"(",
    ) N. @% ?" Z( j4 T       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    9 h* \, B* h$ C9 M     SuperscriptBox[$ g% F" ^- q& c& H( |7 c+ C
          RowBox[{"(", , C8 @- s: |8 k" P+ ~; z( I7 d( w
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    2 J7 ?* l3 Z5 d0 d) b     SuperscriptBox[
    : L: K, P4 m* {2 l7 n# W      RowBox[{"(", - p- R/ V8 u2 f1 v- f2 M8 q0 O. |& ?
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 9 z1 a8 A% k8 y
         SuperscriptBox[
    % A" h2 D9 w: U/ W      RowBox[{"(",
      n) K5 B+ }) |, O1 }       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    . j# ?) u5 k4 _7 E  Y. Z9 K8 E    ")"}]}]]], "Output",5 T6 s  T0 F3 `6 s/ R" N. f
    CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
      F* P. K" I( d' G: {}, Open  ]],
    - l3 x2 n/ w# m9 I6 h5 e. k$ C3 z  x" A) U9 j! S
    Cell[CellGroupData[{# |6 R4 W6 x" d* Z
    , t" R. J) Q& w
    Cell[BoxData[{
    % T- j4 V) T& l! Z" n' H! F RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]", 9 h3 b! r. @" S
    RowBox[{"u15", "=", $ H9 g+ m8 y( |- z
      RowBox[{
    " F* \" U  R0 I( I! F, l# }   RowBox[{"Exp", "[",
    ' \/ Y2 |$ b/ m! T+ }0 _( P* `    RowBox[{
    0 e) m4 R' ?7 W! {* W; U- c2 [     RowBox[{
    3 E0 z+ p) r1 a* G      RowBox[{"-",
    1 W5 q, E4 o+ t1 ]* F, @       RowBox[{/ d, x5 J" Z8 _9 \4 U" _- h
            RowBox[{"(",
    $ a. f5 a2 {$ @$ X/ H         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ) `# q. S# H- }" g3 N        RowBox[{"(", * V; Z  d- i  L, m  ?
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],/ p+ E$ n4 n6 {8 h
         "]"}], "/.", "DeltaX"}]}]}], "Input",& N0 C" F4 V* R7 w
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    * Y1 C+ R" V/ V2 `5 O9 L  3.57796154237158*^9, 3.57796157098203*^9}}],
    8 }1 n1 @" t- `9 i1 J: ?( g4 ~; o" E5 Z6 W& ^& [; k( }
    Cell[BoxData[& `+ @3 u* G9 q3 q: A
    RowBox[{"{",
    / H' T5 q% e/ u& Q) T  RowBox[{
    - Y) v/ @6 }) |; p3 C& M  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
    . O( [% k5 s/ z4 r- Q- |% x   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}], 5 T- ~8 p8 C" D2 G) k1 n
      "}"}]], "Output",
    - K) `/ g( e1 a: _3 v+ R, ~ CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],% \5 B) Z% o1 _) D5 h3 D

    4 f; C; o: B$ A' i9 a9 p) a% ^9 ZCell[BoxData[9 z$ n& v7 R) g; u
    SuperscriptBox["\[ExponentialE]", 0 Y: X* i: V; z9 h; f& Z% d
      RowBox[{"3.141592653589793`", " ", ( A% Q& _) v1 u" R( G
       RowBox[{"(",
    . F5 P( F! S2 y" j* [* V, M0 ?    RowBox[{
    2 h6 O0 |* y8 N$ m( \     RowBox[{"-",
    ; r9 b) j4 ^5 q8 Z# E4 T+ y2 a      SuperscriptBox[
    & m* Y4 b( ~, t  p$ ]4 t* v       RowBox[{"(",
    / Z5 ~9 A1 M" }) S' I) k# _. A        RowBox[{0 m& j# F" w7 r2 Q- j
             RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", 6 o8 n) o9 D( b  G# s
         SuperscriptBox[' |' q; _+ @. e2 H/ o# j" M
          RowBox[{"(", ( h" H& M" ^; E, B3 n& F
           RowBox[{  l* L" y9 m0 x( w2 J
            RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", * z- |5 m+ I( ]4 f8 t+ S
         SuperscriptBox[
    4 D! c5 H* v# F/ }      RowBox[{"(", ' C* y  Q, M4 J# q  m
           RowBox[{
    6 ^% B+ p  j8 X( R: j        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
    ( r) u  P2 i. z* N3 R     SuperscriptBox[
    / M* c4 m( T. z- L( X3 K# e      RowBox[{"(",
    ( q6 w2 l# y$ k) j       RowBox[{
    ! c( P( a) B: u5 y2 g: i        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
    / K7 T; }" H- ~; c( k) I3 J     SuperscriptBox[6 [; x* J& Y4 j0 o. q
          RowBox[{"(", . |6 G+ t- j! B+ O3 M# K( O
           RowBox[{6 ^, r7 |2 |7 o7 D( r+ f
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 9 G0 t/ N9 ?) P  I0 N; o- S, z5 ?! I
         SuperscriptBox[! A( B3 E, p! ]" ]! I
          RowBox[{"(", + A. e; T3 k6 ^" I1 X
           RowBox[{: |3 q+ u+ L% g, _9 Q' ^
            RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    ! G% |0 t, o: K4 Y# H( \4 D     SuperscriptBox[
    5 T/ L1 o+ V4 Y" s2 B! s# [      RowBox[{"(",
    4 k, [# O/ U  P       RowBox[{0 n/ y. u* h; `4 a- Y
            RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", " ?) j; b3 l; K9 Y" W
         SuperscriptBox[
    ! v( j5 E0 C" l, w- ?2 p, t. m      RowBox[{"(",
    ! y  R' L( j4 Q+ r! R  v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    . X& U' m0 N& b" t- c     SuperscriptBox[, g* y% d: q& S) h: _" k# s- t; J
          RowBox[{"(", 0 s1 G: W4 B2 q0 K! M6 j
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    8 T0 @3 [) W. x9 f    ")"}]}]]], "Output",
    # @+ I5 V2 `, a  @ CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]: F4 Y1 |2 Q. S4 L: Y/ q
    }, Open  ]],
    ; b+ H' h. Y* j* A- i1 p$ k5 R  [2 d; [. d; G
    Cell[BoxData[" U# U( y- |* P7 Q* l) ~; @" k
    RowBox[{"For", "[",
    % I9 j" O/ p; s  RowBox[{0 c" i, M, o6 G4 P% f% Z7 F
       RowBox[{"i", "=", "1"}], ",", , D: U" F2 j% F, h* B% |$ Z1 P, S
       RowBox[{"i", "\[LessEqual]", "9"}], ",",
    / J* K! Q) w0 Q! F( q6 K   RowBox[{"i", "++"}], ",",
    1 {" E: D1 S5 a, j& O7 n- m   RowBox[{2 \& D% M1 i3 }  o# C; n! L& R8 P
        RowBox[{"Ca", "[", ( v# S0 K+ K5 p4 D# a. Q
         RowBox[{"[", "i", "]"}], "]"}], "=", ( m: o2 Y+ u; Y4 e
        RowBox[{"CM", "[", : k; r1 a1 v+ X, U, N) A4 u
         RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
    5 {. z) s8 k8 {) n; Y. @ CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],5 Z- H: u( U4 ], i$ }/ O1 d) F
    ' p' C/ t0 O5 q4 c) y: l
    Cell[CellGroupData[{
    - c0 S0 s- A! \0 u' y$ E* L  \% V% z* G9 X. }; J9 Y
    Cell[BoxData[{
    6 u8 m% c$ I+ S# D$ w+ d RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
    - a! ]! K7 b  I6 o$ z- ?% _( C/ f RowBox[{"u16", "=",
    6 H8 t: d9 I5 ?3 ^  RowBox[{' Z7 @1 d/ B( E" `
       RowBox[{"Exp", "[",
    5 B' {, ^0 I. L    RowBox[{
    ' p7 a( D0 \7 b; u& V7 _& F5 I     RowBox[{
    1 C/ T6 H. D: \3 z( s6 `# `      RowBox[{"-",
      q; z; M) U1 |' \       RowBox[{
    1 ]( W6 Q0 T  W. Z* j- O        RowBox[{"(", ; Q* l- V0 k" S- b
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    5 l; x7 i1 n+ S! h. Z        RowBox[{"(",
    : T1 h; f2 v- u7 _) U         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],2 q6 a; M9 X6 Q
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    1 u1 G. I: C$ j1 I/ v; R7 ? CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {* u6 W5 p) W/ u% u. J2 a
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
    0 x  f( Z0 o! [, z  3.5779615751004367`*^9}}],
    " u* o% D, b) i: B6 J/ e" x8 E6 V- \9 N% a
    Cell[BoxData[
    9 B- b0 m9 z$ P4 _9 B3 Z; T RowBox[{"{",
    % H: ~# g+ F+ m( a' _+ ]" [  RowBox[{8 u* Y- J" s, U( X4 `' r
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", # H$ B0 p) X/ X
       "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}], ! G& W' ]  d7 T" F* f0 Y
      "}"}]], "Output",
    ! i3 w0 r0 a/ q' Y: F  s+ G; l5 t CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],3 ~0 b. \% L- N: x6 N

    * T. [# L* V2 r6 L1 [; T5 ]7 JCell[BoxData[2 ~. k( P& d4 J/ T
    SuperscriptBox["\[ExponentialE]",
    " q+ v0 |( E$ N9 P( M  RowBox[{"3.141592653589793`", " ", # L  L; O, h9 H) v7 a
       RowBox[{"(", ; m& E/ t4 g; k9 f& _( `9 h9 F
        RowBox[{6 T# [& D2 j- K2 U, s5 i& V) B
         RowBox[{"-", / n6 u1 U' y9 a4 D& U
          SuperscriptBox[
    2 }1 C8 a& E1 A8 W: v+ |: `, J+ ?/ U       RowBox[{"(",
      M- n+ q# S8 M( k        RowBox[{& v7 O- h0 i* U* ~: l
             RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", , ]6 ]+ ~3 H, X2 k- Q6 L0 N: a* B
         SuperscriptBox[
    & T* P3 d9 c! @4 f' [      RowBox[{"(", 9 P( m8 w$ a  J  P9 m
           RowBox[{
    3 P2 u8 J3 b8 f& c        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", " I0 J8 c3 [) z+ J3 U0 H" b" v- Z
         SuperscriptBox[; p3 s: O9 i" D+ H
          RowBox[{"(", 6 w! B# R0 c) K( H4 p
           RowBox[{6 V. W. L5 I, j3 ?  O8 l
            RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
    & l+ ~- L& ~- D  E     SuperscriptBox[
    ; h$ i1 s: s& V+ C3 y/ X! Y) u      RowBox[{"(", 2 n' c/ T# B: @1 [6 z! R" `1 C
           RowBox[{: d: q6 K/ i: V! \
            RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", 2 ]2 M7 N  X0 O  W
         SuperscriptBox[0 {; P1 p6 y6 \7 E. @
          RowBox[{"(", 6 G" r" ^8 Y  y* F% H  D$ ?: w
           RowBox[{) _, M, a2 z" c" d8 H. M- m
            RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", * F  q7 M& Y( ]; |1 k! n6 \' V
         SuperscriptBox[
    8 @: Z9 M; ~3 a& v5 V0 S) G, W      RowBox[{"(",
    # ]8 V! g& N& {# {  Y       RowBox[{
    4 U  h+ l$ ?2 x        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
    * w" ?- {, `; N" R$ S     SuperscriptBox[  S; K% u, C& T& f
          RowBox[{"(",
    7 I  Z# u" R3 ]1 g1 m       RowBox[{% a" U( W" G$ F( C' ~
            RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    9 G% Y( E% e; O0 I: v     SuperscriptBox[
    , L8 ^. ?% b8 H      RowBox[{"(",
    : O+ J8 @6 }: s% ^& y! Q/ A       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    4 |' Q! Q4 T" j5 }     SuperscriptBox[+ h% p7 q' S% D2 F! J  p
          RowBox[{"(",
    3 T% K* N+ C4 w0 d/ A6 c/ [       RowBox[{( ^6 h, c, E8 ~$ _1 w* c
            RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
    3 c. e! u$ B1 i0 v CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
    ) }9 F/ {9 N! v7 B" P}, Open  ]],
    - p/ E% g. L: }  Y7 c& A: P( e
    ; V; C$ w+ I5 e  H; JCell[CellGroupData[{
    - A- o$ Y5 _3 \& N9 w$ q0 [' Z- @7 \$ V6 n/ U% i4 q, e" f
    Cell[BoxData[{+ R9 n( Q6 a$ w
    RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]",
      z( j& H" b- p: f RowBox[{"u17", "=",
    ! T/ H4 a9 m" T# {  RowBox[{, L7 P  u* J: V- ~$ M
       RowBox[{"Exp", "[", / O) u) D) x- a4 _: @0 @
        RowBox[{2 T9 p1 ?' t' ~% q% R( G3 D
         RowBox[{
    ) |5 H% R1 j2 Q) n2 v# N4 ~      RowBox[{"-", ' \# `5 G9 O6 a
           RowBox[{
    , R( b& T) R4 E: ?        RowBox[{"(", 3 }. m  k+ q8 g4 e9 N/ X# X
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", + f5 S3 n, h# I
            RowBox[{"(", # Z* i8 }7 u. B# u' T  w+ k: Y5 b
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    . P, F6 K  _; h5 i& C2 B0 Z     "]"}], "/.", "DeltaX"}]}]}], "Input",
    # A9 H1 q8 P* x$ L8 p! B& j CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    8 s, }; F$ t) Y% o7 S( w9 i/ t! y% b  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
    6 l$ L# W, {" k* ~& d7 M  3.577961578953644*^9}}],4 _# J7 v# _) l
    6 m$ j! z/ Z1 t3 C
    Cell[BoxData[1 [$ _9 H# k6 }' p1 _$ N) i' |% H* y
    RowBox[{"{",
    - C, e% T' y( Y1 r7 u  RowBox[{6 S+ b' a6 L% }7 b
      "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", / W4 M& I' Q  l" ]
       "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
    : g' S# M- Z7 a  "}"}]], "Output",, ]1 K+ r+ Z0 d7 n5 D
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
    8 T6 t5 y( ?. `# N2 T7 h% r3 a8 X2 X( z8 g
    Cell[BoxData[" s6 r) B, l2 Y9 ?
    SuperscriptBox["\[ExponentialE]",
    ( T  i! P$ y. n% O1 {) X  RowBox[{"3.141592653589793`", " ",
    - c& s) u8 H! j9 t, T: [   RowBox[{"(",
    ! @+ S8 O/ L9 H1 T- ]) I% v    RowBox[{% s* T1 B9 S# E
         RowBox[{"-",
    # o' r$ r  T+ O1 ]1 }0 [; T      SuperscriptBox[
    : w1 @! C* j7 l; C5 U6 f  `( k) {       RowBox[{"(", 3 j4 c9 e% O0 i2 b4 L6 {1 K
            RowBox[{% r5 t+ L. z: z9 f3 G+ g0 I
             RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", ) b0 B. M6 |! a# k6 E0 S% j$ }) I* [" V
         SuperscriptBox[
    : l4 I' T2 s3 J  A: o/ W      RowBox[{"(",   C( q3 \7 k0 d7 h0 a1 y% p6 @! S
           RowBox[{
    3 g# t2 `+ h% ?/ a0 H) [        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
      q0 C" T+ D8 U: a8 E% ^$ x     SuperscriptBox[
    7 G  {" z" P+ u: M      RowBox[{"(", * d) V) D( V% f# |- j; D5 H) y/ P
           RowBox[{3 }- U, v5 ]+ O* D* H7 o1 ~0 u# v
            RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", % i% ]) Y8 h6 T% t3 R4 {% H/ B% K8 Y
         SuperscriptBox[; v; o$ s) Z- v
          RowBox[{"(", & @4 D& w* a  ~" @/ i9 ~+ u& a. b
           RowBox[{
    . s8 H! N; g. A4 o3 }        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", - T* d: T* i$ ?% \5 I
         SuperscriptBox[+ _- v9 @# [7 E! o1 o, d4 j
          RowBox[{"(",
    7 f% a0 M  ]% n1 \; K* Q+ a) n4 @       RowBox[{3 `( ?! ~3 i( M* O7 a' w" t
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", * N# [9 p7 H; ^7 I$ Z# e
         SuperscriptBox[; L* K' p- }- k9 V+ T6 K
          RowBox[{"(", # }0 K+ F5 P4 _7 K8 K
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", . b8 g2 v: Q% z& ^3 ~  }2 v
         SuperscriptBox[
    6 N# L+ _! U3 f, O      RowBox[{"(", 3 H$ g9 }* Z3 i2 m. U
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", + j' H8 u) ]' [9 k2 W
         SuperscriptBox[
    ! m+ @' ?7 B% }4 Q% g: x& D5 \9 i      RowBox[{"(", * y- ]) `" \' }( G2 U, o: {
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",   j( \. t. J0 y) l7 G2 L9 U3 ]9 X
         SuperscriptBox[$ N2 i6 I. M6 J$ w# F8 M$ p# Q7 V! v
          RowBox[{"(", # k  H9 K" G: y/ b
           RowBox[{3 V- y, c! ?3 W; W0 i, g
            RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
      r6 c- l! D4 \% V' c7 g    ")"}]}]]], "Output",
    # e% k& U* R$ R/ l1 b: ] CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
    5 L  t) L% B  H}, Open  ]],
    6 z  `4 [6 ~0 R2 @6 s: Q! E4 Q+ Q
    Cell[CellGroupData[{$ _/ X+ a1 H) V$ ~* j4 E  R

    5 E" W; i% j% n* m- XCell[BoxData[{3 M$ B0 p" G7 C1 Z* W
    RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", 5 p  e8 O6 _+ s) y3 p% ]
    RowBox[{"u18", "=",
    # w/ k; d9 t: D  RowBox[{
    ; E$ C% y6 K, }   RowBox[{"Exp", "[",
    0 V# a5 F( ~* V0 J; K    RowBox[{
    : c$ [1 j- T/ l     RowBox[{
    0 T, `  A, a9 i9 X+ r& X+ q      RowBox[{"-", 3 {# A, v/ D; x
           RowBox[{' h4 i+ q$ n0 d
            RowBox[{"(", # G& A  U9 t; a/ J& m
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ! O# z% [# @, \! G$ ]& f& t        RowBox[{"(",
    0 u, W2 j% z9 j0 B) A" C         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    5 F4 W+ K. o' x6 y" g' \     "]"}], "/.", "DeltaX"}]}]}], "Input",
    - n7 B, W( ^4 \( k! d  B3 P CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    . n( \4 `3 s0 c  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9, - D7 t# G  C' W) e  \' o/ F, ^2 F
      3.5779615828848505`*^9}}],8 @9 Z4 c* M& k# P
    # x4 M, F  T6 J8 d6 N. Q& e
    Cell[BoxData[
    1 B# {' c% ?  W  T. c- } RowBox[{"{", 1 T: d- V( N8 q9 m1 L
      RowBox[{
      j! \  s( {6 X9 e  "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",   b  |! ?* }$ F/ B) f8 V2 ?2 V
       "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    ; ]* h0 z9 r' Z8 ]( D3 J( m  "}"}]], "Output",
    6 z9 H8 }( ^' p/ M2 L+ [7 w CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],6 D) I% j% ^: F1 f; m  m9 ]4 }

    ; z5 s$ m2 ?/ w( P9 h' t& `Cell[BoxData[
    . x3 H% x. h9 W SuperscriptBox["\[ExponentialE]",
    & F4 z& J5 D4 A) x5 Z) s  RowBox[{"3.141592653589793`", " ",
    $ r. h( L0 G" y$ L2 q; h. j$ @6 E# i   RowBox[{"(", * [5 W- h+ @; R9 a
        RowBox[{
      C5 y/ L) T3 Y$ x* ^" k     RowBox[{"-", 0 Z' s( _$ `& Z7 L
          SuperscriptBox[
    - V7 w' M4 M2 n( ~) |5 k       RowBox[{"(", 3 X- k2 r) y8 x8 U& b
            RowBox[{! m$ A, Z1 M$ @
             RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ' D) c! S) u; R9 e$ ~3 J. j4 I/ h     SuperscriptBox[
    - m7 t4 a4 ^3 F8 S0 l* s4 d) u      RowBox[{"(",
    & p7 i+ ~2 M  U* F" t7 ~& }! ?8 }! ~       RowBox[{
    ; G2 L- F1 P% f4 L        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
    ( n* D  g% M! e) n     SuperscriptBox[
    ( A$ L% P" l, m  R. f9 J      RowBox[{"(",
    2 _& m7 j! B# b8 I7 U* h7 U  t       RowBox[{
    8 \1 }4 h& C/ \1 P6 Y        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", ) `& i- y4 \  p% q9 l, ?- }; p; A1 K* b
         SuperscriptBox[
    1 |* |, o$ o1 C( ?: V5 r      RowBox[{"(",
    % L3 E. q4 S  W! n! }! s6 O       RowBox[{( R) ]7 |" x* ]+ u$ B* [
            RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
    # }- c# N+ a# c% a0 W2 {     SuperscriptBox[
    : _7 |0 a5 z7 _. u3 n' y      RowBox[{"(", 5 H5 p: \, g8 \' V
           RowBox[{
    8 G! \3 V0 `/ K$ I8 s1 G        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    4 ]/ |. C7 M7 t7 k     SuperscriptBox[
    - Q. f5 ^, l7 ^7 Y      RowBox[{"(",
    ; k3 i, \  J& N9 W; j       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ) C+ f/ Z2 ^' r2 u6 F: D     SuperscriptBox[. m$ r! ^& w; C' Q& U; K6 w
          RowBox[{"(", - f& t2 S6 q; u7 s5 \
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    # d  Z* C8 q8 ^6 T     SuperscriptBox[3 ^; j" K6 v* A" `7 S9 o/ |
          RowBox[{"(",
    4 d" P) g1 C4 }2 v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    6 E2 X/ k# v0 x" y; o     SuperscriptBox[( G- q- Z1 O2 v+ h5 w
          RowBox[{"(",
    # F- R! h4 Y1 R- O: V1 D' W       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    : A6 [" h" H. R! [; Z    ")"}]}]]], "Output",
    2 V+ L0 b' T$ ^! Q8 ? CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
    2 ~+ K8 X7 A3 g% F/ O8 \}, Open  ]],: J! X  C, ?- a/ l$ ~

    ! m: Z1 j7 z* R/ @5 [Cell[CellGroupData[{
    % M" q& H( {2 P4 m, `! c; `: {1 N# B( v4 z) M# _9 k0 R
    Cell[BoxData[{7 n4 L& n/ T7 a& \9 y
    RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
    , |8 x/ Q2 W- Z+ N- z# d& T; u RowBox[{"u19", "=",
    " ^" D+ A8 h, D# o& C5 u; o  RowBox[{
    ( _4 _4 g6 _4 A" \   RowBox[{"Exp", "[",   N4 ~+ W2 A. e8 A' |2 e! P8 h
        RowBox[{
    8 M( C0 j  I- G: D1 ~! a8 Z  C     RowBox[{
    $ w! o$ U0 Q% W      RowBox[{"-", . w6 V2 B: J0 r1 I) n
           RowBox[{
    9 {9 ~+ w4 t7 J& T        RowBox[{"(",
    8 N2 f2 y4 w1 I. {5 V( j         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", . C* m# ~4 f0 q' c1 d
            RowBox[{"(",
    ! |8 @9 {2 s0 Q  B5 ~         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],1 ?- u+ ]7 U( h  I; c
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    . ~+ Q, c1 Z7 u CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {- u% u" [& o3 z) @3 M! d" }: V. w
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, " W* Z* D- j  G9 G
      3.577961588890861*^9}}],
      v+ ~- a( W$ m& I
    : X3 X+ u, n$ K: o! y( `* tCell[BoxData[
    9 Q: C* U9 d. R4 e3 P* t4 [& d$ Y RowBox[{"{", # u5 h& L7 J/ r5 u3 b
      RowBox[{
    ! ~% u  p; [; z; ?' d( j  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", ) f$ p. F; o' B5 |) D, |# H
       "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
    4 r) t1 @6 Q, `8 y" B- E  "}"}]], "Output",
    ' I0 w# j. d7 C$ {4 \- t CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
    6 p7 P" ?) V% L4 T$ X6 Y! K' @1 y1 U. @2 N
    Cell[BoxData[
    . t5 |( Q: l/ n7 M# D SuperscriptBox["\[ExponentialE]",
    7 J6 {9 J  s, V' b- P  RowBox[{"3.141592653589793`", " ",
      Z( L3 q( ^1 I) ?6 r  q+ l0 X- q5 u   RowBox[{"(",
    # T( d5 r/ D+ P4 y  p. Z    RowBox[{$ i9 m9 q" R$ g& ^" d9 q8 N1 d
         RowBox[{"-", 4 M2 y4 h  [% X; J, S
          SuperscriptBox[% ]0 {( P9 J) a( _. l) [0 B" Y  B, y
           RowBox[{"(", 1 s  {+ }2 `. Q+ Q2 ~9 j
            RowBox[{
    # g+ W  @) @* H. \5 m& J0 o         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
    - N) s# o1 ?/ _7 j     SuperscriptBox[# u: x8 p3 M4 q
          RowBox[{"(",
    9 a5 `" T  u# M       RowBox[{) j8 {$ y" I* W- u7 ?1 G3 H
            RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", : _4 r) V! U! q/ S5 h
         SuperscriptBox[
    6 [" {& X" a: A0 e$ Z5 ]      RowBox[{"(",
    + B+ w4 P9 _0 f& @) z       RowBox[{
    ! M* R$ z9 `# ]+ L1 o5 A2 W0 g        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", ; G: q& M" s0 b& ?* |
         SuperscriptBox[
    6 I. e3 D2 w9 m3 Z      RowBox[{"(",
    ( I( ^  \$ V' H4 b# M. N       RowBox[{! y* u2 S  i2 n$ d  K
            RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
    # X# b+ t/ K5 Y$ g     SuperscriptBox[8 P: v5 G; i* y$ p3 g( |
          RowBox[{"(",
    $ X- {( Y4 E: R4 H4 [       RowBox[{
    1 U, R8 `7 ]1 G! b        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
    " C& p6 ?* Z7 J     SuperscriptBox[* `+ ?: v! H- g+ H- w( F
          RowBox[{"(",
    " q% F0 N8 a) L5 V  Z       RowBox[{& h+ S* W' c) j8 W9 b
            RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", . J9 _6 W  B5 J
         SuperscriptBox[
    , z2 V! E& ~. ]      RowBox[{"(",
    : w' V! R8 H* ~* K$ A% W' s" Q& v7 ^       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 2 H, h7 E+ z4 b5 Z( o, d* @, b0 Q: B5 n4 Z
         SuperscriptBox[
    ' q$ p" m7 E3 Q) Q7 t# w; P      RowBox[{"(", ! G0 N& c0 i# l4 T& _2 ]; a
           RowBox[{. ~8 r0 z7 P% I8 ]: n6 e( \$ G
            RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", / s+ g; M4 x1 B% [3 a; N/ x
         SuperscriptBox[
    ; A; h3 N2 n7 i3 N6 C      RowBox[{"(",
    ' G8 e/ X3 M, Q0 v  N2 e+ c) A* [       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ; Q$ ]5 N. s4 ~: C+ M    ")"}]}]]], "Output",
    7 H' H2 \' U- ~) Z9 o2 y$ n, R# y CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
    2 y' ^5 E5 |( f  K7 w/ F}, Open  ]],9 S- @+ V0 b" }0 B: q2 t6 t

    ( d& Y8 m9 {4 n+ l4 E( jCell[CellGroupData[{
    , i2 i9 B7 ]% D/ R5 V* @% J3 D, ?* O- I
    . A! K& r1 j2 q. _$ ]+ q; V5 ?Cell[BoxData[{
    2 s# ]! P& a7 e4 V RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", . Q4 {9 d9 h& v, f
    RowBox[{"u20", "=", & Y+ a' F- E5 b! i2 Z
      RowBox[{
    - Q7 c9 t" f1 T  _# ]   RowBox[{"Exp", "[", : z; U# i/ t- v. G) m" @- C. C" k7 i
        RowBox[{
    8 |( V* {8 E: y6 L7 Z8 m     RowBox[{
    5 @# R0 C- g+ Y+ z0 q& {      RowBox[{"-",
    6 C5 J) @5 `, w5 {9 Q" ?       RowBox[{; W9 M& d2 S1 Z/ G$ S- x% N' r
            RowBox[{"(", , o# e7 Y$ }: _9 l; J5 e
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 1 C% O$ y; A# C" `% ~
            RowBox[{"(", & x9 h6 y3 D  v3 o8 Z
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],: R" z, E' c& U" J! \
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    ! R) {4 Y; m  t, z8 ^) b CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {/ e( o; S6 n# d; y
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
    % l1 n% o; e6 {& r  3.57796159382047*^9}}],
    7 ]( f5 S# A2 B' h' t7 M% F' W6 F& Q) ?$ w  `9 N) T
    Cell[BoxData[0 F$ }9 B. A1 i! ^5 k$ L
    RowBox[{"{",
    , l' @% ~4 W( Q, A  RowBox[{
    # F/ U+ i: D' o. ?8 B0 C' \2 o/ _  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
    ; n9 f) R- I% o" v- X4 S   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}], / X6 k$ |1 e& B% |1 \/ ]
      "}"}]], "Output",  o( v9 z6 F. T& b; {" a" M2 {
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
    ' w: q5 T& q0 o4 t; ^! B1 @  H3 J) W
    Cell[BoxData[
    " g( [  o3 K: }/ Y: e1 | SuperscriptBox["\[ExponentialE]",
    - h6 e; E7 q+ M- d6 G# ^# w0 P  RowBox[{"3.141592653589793`", " ", 6 t; ^3 X, u3 j  \5 @. ?2 N  d
       RowBox[{"(", 5 ^2 D9 v$ I7 J% t
        RowBox[{
    9 U( P4 \, @/ b/ O5 r3 l* q     RowBox[{"-",
    9 }  w2 ~8 q6 J8 u      SuperscriptBox[( J  S  z$ t7 Q( B
           RowBox[{"(", 7 M- J. Z% k' R+ e* @+ _
            RowBox[{& L0 p. P5 Z1 K5 }( q" U1 q' Q
             RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
    7 w$ W0 Y! |  K     SuperscriptBox[6 s  H% t! u* `% o- O; S
          RowBox[{"(",
    8 j2 K: A: ^4 {, z       RowBox[{
    7 U. ~% _% T3 D! u# B3 k        RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
    - G, t3 e  G# z% i     SuperscriptBox[
    : K/ Q2 P: e. H      RowBox[{"(",   R, l! s% u/ \" B
           RowBox[{
    5 P  }) @' O6 Y) }7 Y. v+ \        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", 1 Q) L% L/ b. X' X) e0 e# A
         SuperscriptBox[- b+ v* N7 e6 G" V$ k
          RowBox[{"(", 0 `' ^% O3 ^+ p) q) X$ z" k
           RowBox[{) v8 R' m9 U# s$ K
            RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
    , D" e. d) s3 _! U) l1 u3 Q; m" e     SuperscriptBox[8 q, L# y3 A0 r4 [7 _8 m
          RowBox[{"(",
    1 d5 @0 q5 K6 U       RowBox[{. C9 W/ u. c8 c5 i# h- C
            RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
    ; I; R' |  S; x     SuperscriptBox[$ Q6 w. m; r% G- c* E9 U/ k
          RowBox[{"(", % B2 e$ u$ ]% r1 U& u0 W; r" @
           RowBox[{
    & u4 K: B5 }/ Y- B& Q$ k) c3 F' ]& U        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    3 E# F* L$ h5 `8 F/ ~0 c: |     SuperscriptBox[! i& n0 e! K% w8 l' f5 x0 ?
          RowBox[{"(",
    * {( N# S0 v, P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    . j( `# D# v+ b. N: i     SuperscriptBox[
    " V3 p! l) W7 s& W" o      RowBox[{"(", 4 _8 B+ }* p/ p$ g% g; ?( m
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", * [* ^3 V& i8 q+ R  K
         SuperscriptBox[
    . z1 ]" P$ \' [$ _      RowBox[{"(", ) V2 p: t3 G& X" B4 j) E0 t
           RowBox[{/ R6 M3 X5 _  l- L
            RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], $ w* M' I- r1 C8 k% \. a
        ")"}]}]]], "Output",( I3 `. ~  Q/ Z) S/ H
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]# t7 `) b( C& t+ \. z" `1 Z4 F
    }, Open  ]],
    - H! ^$ L. J5 j0 c& S& E, D! H$ _2 @8 Y% a$ y7 h$ ?
    Cell[CellGroupData[{# z1 z# B) t! o* J

    : w: Q) D, E+ z. @Cell[BoxData[{
    ' L) F" ]% m& [0 { RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
    ! z0 z5 G- V. ^/ j9 n2 _ RowBox[{"u21", "=",
    - Y$ I8 Q7 n! @, h  l8 O3 n* s  RowBox[{
    / [& N; p* h, n8 y! M# Q6 L: ]; C   RowBox[{"Exp", "[",
    ( p8 A6 j% I  e0 x6 |    RowBox[{3 z! O$ J6 T% Q! V. C4 j
         RowBox[{
    0 q& @, O! t6 T3 y      RowBox[{"-",
    0 J$ D* ]; h- e# ^  t' q       RowBox[{
    " B# [* f$ L( t4 K" g        RowBox[{"(",
    " s8 j1 J8 c+ s4 v         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 8 g# M( f) q2 r% U/ N" u2 J; P
            RowBox[{"(", $ }! e$ a2 l" i4 [( k' c
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    6 o2 M, W( W& ~; r     "]"}], "/.", "DeltaX"}]}]}], "Input",
    . [$ g, J+ ]$ ] CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    # N$ H0 I, Z, p6 _  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9, 1 x; F& f5 U# F1 r* a/ R- p9 D
      3.5779615991556787`*^9}}],, y/ E: j7 W5 r9 ~; }2 f9 ?8 `
    $ ^! y3 B( f' U
    Cell[BoxData[0 M7 z, A* H4 P" Z: ]6 |+ f
    RowBox[{"{", 6 N- H& n& M; d. |& X% _! E' Z
      RowBox[{8 M1 t* C2 r0 [+ c; P9 \3 s
      "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    & n+ q; V) q# Q: ?) b3 F   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],   `, Y3 t' A5 {+ y
      "}"}]], "Output",
    # J7 w" `6 h, a7 J" {2 S% A2 K# h CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],. r5 x  ^# L4 k, y6 g" ~, R

    5 u# @/ B$ I4 K- L9 U9 n6 S# U( xCell[BoxData[
    + u/ H# c/ I: t; B6 \$ z SuperscriptBox["\[ExponentialE]", ; |% \. l/ b3 g. i1 {6 O8 a) P& F( U
      RowBox[{"3.141592653589793`", " ", ) T7 G0 N- n# n5 h0 W
       RowBox[{"(", . l3 a( L; \% m1 h7 i, [2 b
        RowBox[{1 j5 t; F9 I& D2 B5 z6 ?# \! h
         RowBox[{"-", & M) v) e" A' P4 }. V6 |
          SuperscriptBox[7 C' S% u6 R: ?5 Y, q5 p8 \
           RowBox[{"(",
    ! ?& ]6 c& y" _' v# V        RowBox[{$ ^8 _4 |4 m) W& J
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", - B; j% \  R$ D$ S8 O0 @& D' F
         SuperscriptBox[- \' o4 t- U; Q& b0 o4 L0 n3 `. W4 ?0 q
          RowBox[{"(", ! X5 m3 f" P# J4 S
           RowBox[{
    / W, j2 j, V( q5 J- m        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
    " E3 k/ t5 h' B5 b" s  B$ w     SuperscriptBox[
    " {, H- v9 g1 i% w2 l6 v' r& Q! u3 {! L      RowBox[{"(", ) z- X% S: u0 U
           RowBox[{$ u1 O8 v! G5 X: t6 l
            RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    , L. Y& ~- a; c* y' S. `1 k/ j     SuperscriptBox[* s* z- L% s" I, S( b% d
          RowBox[{"(", % }* B0 K6 [/ K- w6 \" V
           RowBox[{5 X& ^. W5 X6 [) o8 u
            RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
    $ a2 v' v5 ^3 {4 E% q: {$ F     SuperscriptBox[
    9 ]  E! ~- }$ }  j8 }      RowBox[{"(",
    7 M7 h7 M9 F7 g* D6 I' [       RowBox[{& |0 P( S: c) m; v5 n: A7 O: s
            RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
    , ~6 p: X0 {1 o" V8 Z+ K4 `; k     SuperscriptBox[9 E6 [5 h" r0 ?2 {4 {
          RowBox[{"(", ! S- ]* G, ?/ n% c6 @& |
           RowBox[{
    1 r4 f5 N$ Z. K' O3 B* V) P, J        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    ( \( B2 b1 ?3 Y  q8 e5 B     SuperscriptBox[
    ( f2 |7 S, f. @3 g( w# z6 o      RowBox[{"(", 6 O* i8 h  i, m1 n
           RowBox[{5 D: i$ r# ?1 N& r. K( i
            RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
    " R8 O8 j; c' H7 W, j; l; l$ c     SuperscriptBox[
    7 J2 ]- d; V. Y7 u: {! w" m7 T6 S      RowBox[{"(", 3 C1 A" U/ U8 a7 }/ e% G( q/ S
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",   M" M  P! a. M' u8 o3 A
         SuperscriptBox[3 |. _6 e+ v* M; |9 @
          RowBox[{"(",
    , U8 y, r$ b, ~       RowBox[{$ n, L/ E) m8 `' X
            RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], , `9 g$ y7 E) q
        ")"}]}]]], "Output",
    % v$ f. ]( u' ]) i% }- k: e CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]! ^0 ^* U6 R$ Y
    }, Open  ]],# g  b0 @1 X7 D, A* m
    , ?+ c1 c6 T! r) e8 P3 u
    Cell[BoxData["\:62df\:5408wi"], "Input",
    ( d0 R6 ]" g  X: q' M CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
    + d+ j  d9 M0 S% A, `& R/ n( s0 n" k7 \# r
    Cell[CellGroupData[{, @, V! W  j! z" [) j5 y

    " }) s2 D) {. D, n: Z  [6 GCell[BoxData[( s6 b8 k: Z6 c; ?" A
    RowBox[{"y1a", "=",
    4 V* p: z! w7 }; C8 J0 y- j' z  RowBox[{"Table", "[", ! ~* \8 ~0 c4 @  R
       RowBox[{"x", ",",
    . {9 w9 d: H9 u+ g0 a) f( Y5 v4 T    RowBox[{"{",
    2 v5 I4 V. q! v3 R6 [# G" o3 S     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
      i# a+ q1 S7 b# D CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    $ q. w* G( i( \6 M8 J8 E# X" ~  3.5779226649375*^9, 3.5779226810625*^9}}]," H" O9 ]% g9 C
    ( v+ k3 }5 X& W1 g, H* P
    Cell[BoxData[# X/ i5 B$ r; l* m9 b' Z
    RowBox[{"{", 3 g" ]4 m7 a% `; F$ x
      RowBox[{
    : A$ @4 Q3 C+ k% M: b4 s  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",   c2 v2 L* r# H! S
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",* U9 `4 d' |8 w0 t
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    # C% s; e- F5 `" E. t, u   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
      C3 R% s: O6 f: v   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", . P8 ~1 h( [& x+ Z
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", ( b8 l8 S4 Y# D! D, r# P8 ]
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    $ {! J% F9 l+ q   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", ' g: X" s6 h$ R1 t+ D: v( E
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],   ^& r) r6 E- Z7 u9 x2 J+ D
      "}"}]], "Output",3 z6 r6 p, w& D. G- ?
    CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
    ; e8 y2 m, c" p- |* |5 o4 C1 p  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
    - v2 V$ f( m" V1 d8 E3 z! X) |}, Open  ]],
    - B! i7 k, A5 j$ Q7 O6 i/ o% [4 d% N1 p% }$ n
    Cell[CellGroupData[{
    ; a9 K2 x, C% U) M. H  B. Q( A3 C2 z% X1 p- }* ]
    Cell[BoxData[0 @% v: @- S# y+ @! J2 B8 l
    RowBox[{"Data", "[", , K- E0 k; z# O- x
      RowBox[{"[",   S( w* ~0 q! n: j( W
       RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",2 x' |3 r0 @* m5 u, V1 \% a: Y
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {( o7 [7 o* I' B  }  G
       3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
    8 @4 V" ?5 o; g2 n) r2 ?
    , A* K$ n( q4 V# ~6 J) PCell[BoxData["0.899882`"], "Output",3 }$ t) l& [6 ?8 ]& H; d( O
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    , g9 V4 {- s# ^+ N. e) _   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
    , U# ?1 F$ T; R! c   3.577961929080654*^9, 3.5780123419375*^9}]+ q. q# j, m2 t# F$ c( o+ r2 ]  l0 j
    }, Open  ]],
    ( N0 z5 V4 k; N' W8 \( V9 |  h* V! y* |0 T9 c  V/ e! m
    Cell[BoxData[
    3 Q! U' }1 O: m RowBox[{"For", "[",
    ' \2 ]' d  B/ G3 X  RowBox[{
    6 }0 s, Z( I! }( R  f3 S: t   RowBox[{"i", "=", "1"}], ",", ' F# [4 q/ `( Y1 T
       RowBox[{"i", "\[LessEqual]", "60"}], ",",
    5 }( K& e( w; X6 v! ~   RowBox[{"i", "++"}], ",",
    - h2 }7 G9 U* }6 E$ H0 @# f7 }1 a2 T( I   RowBox[{
    ) ]( v% ^) p9 V! p. n# T$ }+ u0 `' x    RowBox[{"y1a", "[", $ i  t0 V" w% Z  U
         RowBox[{"[", "i", "]"}], "]"}], "=",
    5 l0 F, l2 O- |( v    RowBox[{"Data", "[", 7 m! t4 F5 u$ y' v* O  B
         RowBox[{"[", . l/ v) V- t5 U. x
          RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",( b0 m$ D5 c* a- ], i  u9 J
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {2 `1 f9 T$ n5 [- t
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
      P3 t- K: C2 w4 \5 p   3.577922923203125*^9}, 3.5779588839702806`*^9}],2 M' G/ n. V  `

    3 E8 r/ U6 m9 N7 J" t: p# j5 @! GCell[CellGroupData[{
    ) c+ c+ @: j6 e7 z1 j4 V
    2 Z( _' Q6 b9 Y( f$ T- @+ z. @! u8 nCell[BoxData["y1a"], "Input",
    8 y5 M! [1 O' @4 O* _$ Z CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],: n( |8 E: m6 r, a
    1 S9 e/ t* U0 Z" q
    Cell[BoxData[
    ! S0 m0 t7 F- `/ f4 x: W* N/ q9 A  p RowBox[{"{", * b- A8 M# q) l  H3 `1 E; J& g
      RowBox[{
    * Z% i: O4 L/ L  "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
    ( a2 T% M1 x) ?5 E+ d* c   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",", ; `4 Z* f& |0 y0 e3 C: b6 E
       "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
    0 w# N7 L- R5 c6 k5 |3 q   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
    , f4 _2 Q; \& j8 V3 Y) ?1 Q0 y   "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
    ; u, h. B! Z0 A  _   "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",", . N& H$ M. Q- r
       "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",", 1 |  F" `* R8 i/ r: h2 T- M
       "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",", 4 |5 X# z- b# B7 B
       "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",",
    & x7 u: `: {" H- `) m& b   "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
    , G: M; x5 b! {- [9 u$ V2 }! [   "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",", 2 g% n$ L1 x) h3 f  [
       "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",", 8 t+ n. A2 O! `) C* y3 O
       "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
    - _) g$ \. Z; y. E   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
    " B' i! o) W$ s! B2 S0 d8 d, s   "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}], 0 x6 Y3 J/ C- n
      "}"}]], "Output",
    , o0 E/ q. J4 { CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
    ; o8 D8 k) a( x2 [( `& C: }7 ?6 C  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
    2 ~0 d9 L3 u. b! W8 W}, Open  ]],
    , U2 I% v* m% g5 X* a2 \
    8 b& M) ?- y, ?! V1 V) T+ @# @% YCell[CellGroupData[{
    * L" j0 Q( d) d8 J
    2 \* Y. h4 q" @1 v1 R! zCell[BoxData[; P% }& B: T6 g- s: e
    RowBox[{"m60n21", "=", ( L6 P) X: E. C- C& ?6 O' b
      RowBox[{"Table", "[", 0 P% Q% e1 y; N/ O% f4 T/ Z# l
       RowBox[{
    6 k9 ]( q3 k' H! C    RowBox[{"Table", "[", 0 |% N2 a0 ^, [) s. N
         RowBox[{"y", ",",
    + L2 l$ X' Y# A% h! X6 e/ U6 j      RowBox[{"{", ( Q8 e! Z( N; S( }( E
           RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",", 4 e# `# r( b2 g$ u- V* K
        RowBox[{"{", " X: y9 M0 k6 ^! D" Y
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    # E* }& l: T/ |5 r0 ^ CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {$ E; j& q/ H5 t: P1 W1 o5 c6 ]
      3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,
    % i2 T8 e6 H/ E) b5 S  3.5779619706547265`*^9}}],- L! O3 O3 Y& h

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

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

    3 f7 b, e7 P5 h& u$ l6 uCell[BoxData[
    ! A0 w, s, F9 z% f) O( ? RowBox[{"For", "[", 3 y! r/ J& V( z7 z, ^
      RowBox[{# D9 u0 ?0 f8 b" R/ H2 U* E, p3 Y
       RowBox[{"i", "=", "61"}], ",", 5 N2 {) L8 e7 v5 z1 P
       RowBox[{"i", "\[LessEqual]", "89"}], ",", - Y. B- Q8 q0 N4 M5 p
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", : @; s% \- b& \; @+ ]. b9 x
       RowBox[{
    7 o! ^: U: G( C) W* h2 {    RowBox[{
    2 W, p7 j  C, \) ]4 ]7 @     RowBox[{"y1fit", "[",
    5 D7 f4 ?& s% z' T3 w, ]      RowBox[{"[", & `4 A2 W1 ~6 w" [8 y0 b: y
           RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
    $ Z  h, ~$ F; n1 ?5 ]     RowBox[{"y1", "/.", , g* h; Y9 V( z; n6 G; v* ~5 `
          RowBox[{"{", 7 G0 D; J* T4 W: M/ T
           RowBox[{, b/ P7 F: G$ q; l! U
            RowBox[{"x1", "->", 8 j$ B2 `# l/ t5 \
             RowBox[{"Data", "[",
    * l5 w3 @- Y, N5 o1 L1 H          RowBox[{"[", * J2 f% _4 I. d- L0 ?* w
               RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 9 P1 m( K2 P% ^3 g. P
            RowBox[{"x2", "->", 4 a3 _+ O- A' N3 W
             RowBox[{"Data", "[",
    * _( C: k9 t- o          RowBox[{"[", 1 d1 k1 _& j4 V
               RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    1 I2 _, n+ h5 t$ h! Z, g6 k        RowBox[{"x3", "->",
    " C" V: G; v; U         RowBox[{"Data", "[", 6 W* n' Q4 e' a. i! `
              RowBox[{"[", 7 @: t2 W+ T5 `8 t- U" e9 y
               RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    0 j4 U# s2 m4 g, G, f$ Y8 u        RowBox[{"x4", "->", $ q6 N/ l1 f4 l, R
             RowBox[{"Data", "[",   H9 C/ N6 \6 k) K/ _
              RowBox[{"[",
    7 Q" V  D4 P' j) ]" H) o; w- ~7 E           RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 0 o1 ~6 I8 A. g' n
            RowBox[{"x5", "->",
    1 W/ V- X$ D( w6 }1 o% A         RowBox[{"Data", "[",   l! z6 `0 Q3 t, f- b) `; Y
              RowBox[{"[", # B* m# O( V! j( i3 }* ]8 d# c
               RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", / r3 w3 p! C5 L6 \4 h
            RowBox[{"x6", "->", + x" X! F7 r& w6 L; D1 Z0 M
             RowBox[{"Data", "[", * _# P$ W& b# m7 g
              RowBox[{"[",
    , |) g$ h6 Q6 p           RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    " q, W$ K2 K8 W" N+ R        RowBox[{"x7", "->",
    $ w" I1 u/ _8 Z; q         RowBox[{"Data", "[", 1 d! U2 W% d4 R; {9 b+ N9 Q9 y& d
              RowBox[{"[", 3 t$ J( d/ {0 G7 G9 W8 d  a; w2 I
               RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    $ t9 S+ g  f, y' d$ t        RowBox[{"x8", "->",
    % j- @5 h9 y' Q' S' {1 |, {         RowBox[{"Data", "[", " j5 o" s- t" L' X5 ^
              RowBox[{"[",
    7 i7 U4 X  v/ `0 t. s6 P- @" n1 }           RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", % g, A8 g0 G7 ?# e! y
            RowBox[{"x9", "->",
    : S3 O4 Y; l5 |* w* f         RowBox[{"Data", "[", # v+ D2 f" P& c- t2 j# v4 W" H5 [
              RowBox[{"[",
    7 W# O  P3 W3 a; J, B           RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}], , s8 ^' Z5 G. J' i& z) D' }# G
      "\[IndentingNewLine]", "]"}]], "Input",
    ' k5 m+ W% a$ r+ [( u CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {& Y% ^3 F) l% r. k, {7 W2 ^
      3.577925286140625*^9, 3.577925306765625*^9}, {3.577958922517948*^9, ! D) x, T/ q: n( t9 x" Z! U! e! O
      3.577958922549148*^9}}],
    : |1 y) v: B- q5 t/ Y7 ~- i2 d+ r
    " J4 u3 ?. P9 z' L6 ^5 ~Cell[CellGroupData[{- M8 c( X* Q, D/ I0 m7 y$ g
    . z3 v5 e/ ^8 v6 t7 w: p* _
    Cell[BoxData["y1fit"], "Input",+ h9 X7 ^: G/ J$ X. ]7 K0 X
    CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {, M5 J' ^! Z  U7 o+ M4 A: r) N( J
      3.577925040484375*^9, 3.5779250440625*^9}}],
    / g% R' J/ ~+ `% B2 H: N
    ; }6 o& t$ U4 s9 ^9 \% KCell[BoxData[
    4 \. g  u7 d! [+ I RowBox[{"{",
    0 c  ]1 a, ^* w+ C, V  RowBox[{/ `. e- M' h& L2 o! O7 w
      "0.43193416525930517`", ",", "0.4501634853493982`", ",",
    2 J4 \+ G! C6 b9 V3 t" Z   "0.33336034768525247`", ",", "0.4418609896858925`", ",",
    6 G& e, J" H7 B  v, O   "0.41030378932283024`", ",", "0.516814798191575`", ",",
    & y1 O8 V& G# _* I' w   "0.4476631213729994`", ",", "0.3016552978696669`", ",", 8 a* B: V  _0 ?4 N4 j
       "0.378122167437847`", ",", "0.020339844919720733`", ",", / U7 D" k0 j0 H: ?$ v$ r6 a: [
       "0.018745375782087376`", ",", "0.2919925992695025`", ",",
    ( k7 s. L" P; T   "0.2649067959681263`", ",", "0.16343444284525593`", ",", 8 `4 \1 J" E! w8 r3 T! _
       "0.4182466778551563`", ",", "0.27347752211364934`", ",",   ~; [- B/ F* f/ }2 _  O' E3 M5 |
       "0.38554057386385654`", ",", "0.35253160453718047`", ",", + ]" t4 h2 O2 }# j
       "0.2054745841100774`", ",", "0.45504377112716676`", ",",
    8 L7 a% V8 V2 H9 b$ m% e   "0.1598805094678612`", ",", "0.18662509982279485`", ",",
    " c7 N( ~: n9 Q5 J, b" z" f   "0.10684797493248213`", ",", "0.013349212673286828`", ",", ; B% Y, G- b7 ?
       "0.08215836003004297`", ",", "0.2979041599362813`", ",", + w; j2 ?" ]9 `  J* r
       "0.05995976512343641`", ",", "0.3884793499104568`", ",",   d. u* _( I0 p
       "0.5361889337034293`"}], "}"}]], "Output",
    * e* ^, y4 N+ u5 d CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
    ( C$ r9 }9 v5 S$ M0 B6 p( ?  3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9, ! R. [; i) a( H) n
      3.5779621416934247`*^9, 3.578012355546875*^9}]
    / `7 G+ v9 o7 H1 n6 l# I- E}, Open  ]],
    4 P/ N7 [0 g+ `' E5 l+ m9 R5 o' _7 H) n+ Y7 x
    Cell[CellGroupData[{& N7 y+ S- p& t6 G  q4 s
    , _* G) ~2 R! ?; T; K
    Cell[BoxData[/ T" D# b/ g6 P+ u6 d, [; h7 E
    RowBox[{"y1fit", "=",
    " K  o" ]) ]; `2 z  RowBox[{"{",
    " c0 x# E- @" q  p   RowBox[{
    ' u, {8 O! a$ q1 s4 f$ t* ]   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 N3 l- h& y/ n* ~' F    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " _, E; u" V& O# @! m
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    9 I& P' }( T9 Q/ I8 h6 }    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    8 L, q: l" Q# s8 D$ \* }    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", 5 e$ C# W. w" W( g0 K
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", / w' b& i1 _' m5 V- O+ I: [5 V
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    6 {# [& X, v4 z8 X    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", ! U. Y. P& Z, p* n, U' v
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",   H/ D$ e8 l) p  m$ E( x
        "0.4319341652593058", ",", "0.4319341652593058`", ",", 8 U- N- N: @* V) B& }$ @. l
        "0.45016348534939865`", ",", "0.3333603476852527`", ",", & n4 m/ H; Q) }
        "0.44186098968589294`", ",", "0.41030378932283074`", ",",
    ! [$ K1 `, b" ?4 x" }5 f- R) m    "0.5168147981915754`", ",", "0.4476631213729997`", ",",
    . ^6 @! `' x& a# J5 H    "0.30165529786966755`", ",", "0.3781221674378473`", ",",
    1 @' ~$ `9 _/ K' n! C6 n    "0.020339844919720775`", ",", "0.018745375782087393`", ",", , d7 T) ~7 f! i
        "0.2919925992695026`", ",", "0.26490679596812655`", ",", 4 F7 A% @. Q# _8 W
        "0.16343444284525593`", ",", "0.4182466778551567`", ",",
    : }4 D& |- r: W: i) L" i    "0.27347752211364945`", ",", "0.385540573863857`", ",", % `9 K7 a8 @: n4 }: k& P5 p) u3 {8 Q
        "0.3525316045371807`", ",", "0.20547458411007796`", ",", 4 z: \: m% _0 _! S, B+ m& `
        "0.4550437711271672`", ",", "0.1598805094678611`", ",",
    + j# Y4 x! L9 z% ]; C+ g5 s    "0.18662509982279502`", ",", "0.10684797493248224`", ",",
    9 \8 e% y9 l3 I5 ]+ g! h. z7 a0 ]    "0.013349212673286806`", ",", "0.08215836003004302`", ",", / s/ A3 ~0 F. N  i5 w( o
        "0.2979041599362817`", ",", "0.05995976512343637`", ",", 3 `+ b1 \. v! D: \" G
        "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",; `: {: D# d. P4 d7 s# e
    CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {
    % K* H7 Q  N' A* H8 P2 s7 a6 ?  3.5779621548286476`*^9, 3.5779621618642597`*^9}}],
    * w( t3 O0 r/ y. \$ y1 u* |; y7 _3 f0 x/ ]$ x) L& C1 D) \6 I) {2 o
    Cell[BoxData[
    $ r, A/ h9 P2 ~* E RowBox[{"{",
    ' N# N/ M  ?) e; f# Y  RowBox[{5 A: ]6 N, P" k5 W8 i# p$ F
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ! I: M; D. ^# |! ?: m( Z
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",$ r  k/ H  W+ I" R7 ^4 m+ L
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", % c( B& [* l. v6 w$ X4 C  [
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 0 s9 Y1 F% d  U, Z- r
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", . g( f/ D" W5 C" S1 ]6 o+ p( L
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    6 D% ^, P( m: x  t( c8 y   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", ! p" q# a7 ]. ?0 ^$ A- j5 ~+ l
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", ( F- Y( E1 [7 i- ]( l
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", , z5 F9 R$ {- {& E. a4 E& E0 O
       "0.4319341652593058`", ",", "0.4319341652593058`", ",", % x8 o, H: A/ y. @5 B, O
       "0.45016348534939865`", ",", "0.3333603476852527`", ",",
    % S$ ~3 ?/ G$ ?6 P7 A   "0.44186098968589294`", ",", "0.41030378932283074`", ",",
    1 W& z! U; j/ W) P! \   "0.5168147981915754`", ",", "0.4476631213729997`", ",",
    6 n; N  r; w4 Q8 h( j/ R0 j   "0.30165529786966755`", ",", "0.3781221674378473`", ",", $ n% H5 Q+ H2 r$ p& `6 r
       "0.020339844919720775`", ",", "0.018745375782087393`", ",", 2 N$ Q# F7 V. p6 O2 ?1 B1 N# v* x, m
       "0.2919925992695026`", ",", "0.26490679596812655`", ",",
    8 E  x7 c& A6 R5 z* x( Y* R8 r, A   "0.16343444284525593`", ",", "0.4182466778551567`", ",",
    # A; d+ y2 Q9 I) Z4 |   "0.27347752211364945`", ",", "0.385540573863857`", ",", : y: i; ^  ^# b
       "0.3525316045371807`", ",", "0.20547458411007796`", ",", 0 L" T% K% y7 r+ [1 p. n3 q: y6 [" }
       "0.4550437711271672`", ",", "0.1598805094678611`", ",",
    . G/ k* q$ S: Q   "0.18662509982279502`", ",", "0.10684797493248224`", ",",
    ' Y: S0 ^3 D( q* A5 p) \6 C   "0.013349212673286806`", ",", "0.08215836003004302`", ",", 4 _. ]4 R7 E# S/ y8 |
       "0.2979041599362817`", ",", "0.05995976512343637`", ",",
    3 o  F! [7 r" |1 o# [3 x   "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",
    : T# w' b# n1 M8 K; C CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9,
    & N+ L. a2 w7 M9 I1 N  T3 b  3.5780123569375*^9}]( O* W! ?/ A$ L+ b) n
    }, Open  ]],6 _; T6 t( i$ X5 T
    3 O- y; h6 g  C) I
    Cell[CellGroupData[{) s, L4 y3 s" l- z
    6 k* l! b6 {" z( K7 Q
    Cell[BoxData[! \8 i3 u' n4 Z5 z$ m$ H  _
    RowBox[{"y10", "=", 3 I9 P$ N; U: P1 \
      RowBox[{"Table", "[",
    & x# R8 H9 K1 Q/ \   RowBox[{"x", ",",
    / u3 l9 f$ E. I+ S    RowBox[{"{",
    & M" t7 R) K/ ]* h7 B     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",) D" q! N5 R/ X% S* s2 {$ R0 O* q
    CellChangeTimes->{3.5779253628125*^9}],
    , b. E, d# |$ G1 {# `4 f/ @- x; R+ t! C' H
    Cell[BoxData[" e+ P/ o" u, r+ |9 H  `
    RowBox[{"{",
    # a  y  V6 \9 O: P( s  RowBox[{0 i6 q" V7 M$ s  F/ L1 r3 |
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", $ \! a4 T, |. g4 C
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    5 ^8 F2 \: x& a/ H8 X) y% {+ U    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 9 F8 C9 f3 W/ n5 J
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    ! C4 ^2 E0 Y( m   ",", "29"}], "}"}]], "Output",; R' j( h# a) H" H8 P6 s
    CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9, 9 L* k1 G: a. Q+ L5 S  Q. d
      3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]
    " Z/ r5 R2 {4 _) X}, Open  ]],
    / x% h3 x6 e" ~" @+ Z6 r- H- K. g# J3 v; R* Y4 a
    Cell[BoxData[! i, k& w  f( H
    RowBox[{"For", "[",
    ! }# K3 w9 E8 E$ |  RowBox[{
    : b: R+ p! `! Z' \7 s' {8 i   RowBox[{"i", "=", "61"}], ",",
    * A3 G: n# i/ u2 c  f, k   RowBox[{"i", "\[LessEqual]", "89"}], ",",
    0 `5 l  w. B( r0 V: W! C0 |: G   RowBox[{"i", "++"}], ",", 2 D0 D; c  A* k9 k) I& }8 m7 w9 g
       RowBox[{4 J2 y" T# f( d( A) O* G; n$ G* V
        RowBox[{"y10", "[",
    # ]- I3 h$ p7 _! C% O     RowBox[{"[", ' M6 s+ Q, z9 O" a
          RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", . U% V- \% Z/ J" C3 F5 s& Y( j4 Y
        RowBox[{"Data", "[",
    , x6 ?0 \- Z0 Y- }  P% g     RowBox[{"[", " a2 u- T1 Y* K4 i
          RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
      ~; M' f1 [/ R0 h7 w% W% z& V. u CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
      y2 [  y) w$ @' @9 ~: u2 p& N   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    # K. [7 l% O$ I   3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9},
    0 _4 _' D4 \, @. F2 [   3.577958922549148*^9}],2 t* ]9 @% v! L$ b6 |* W
    9 o+ F. i: s! b( w8 e8 T
    Cell[CellGroupData[{: p- I, ^" T2 W% L& `4 W: o

    9 \5 H8 E/ d& |' X9 B3 a$ Z% mCell[BoxData["y10"], "Input",' g. m# Q2 b. }; }0 i) L9 ]
    CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
    8 F1 Q  N8 L+ T4 Y& t) b- Z   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],
    4 O' Z7 B7 J% \" n9 }% o- e- H
    : g. m# m  ~2 w( ]9 D; @Cell[BoxData[
    . K& K( S4 }: h" F/ c RowBox[{"{", . j) B4 n( H. E4 z+ j/ @
      RowBox[{, R8 Y, \' [/ N
      "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",",
    ; f3 P5 ?0 I- G. z8 p7 N, E" |   "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",", / A; a! [' e3 e
       "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",", ' [* ?8 K* f& w/ |) D
       "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
    5 l" r0 y$ X, a   "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
    + u3 h) j1 y% P, a9 ^1 M   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
    & F# c. D* u5 s) q" C: N/ j$ z# G   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
    8 k' V8 L) s! k6 y' \& p2 ]/ e' {   "0.694935`"}], "}"}]], "Output",
    ) e1 [. B6 ]7 w4 _ CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
    " c8 [/ J  N, w( G5 \8 E% a  i! g' C  3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9, , Y+ \; p3 h5 R% p. D$ g
      3.5779621736734805`*^9, 3.57801236071875*^9}]
    ) U/ i, V, l, r* ^% E0 Q+ r' q}, Open  ]],, d$ _1 U9 u5 P" I; Z$ c+ p

    : \3 x/ Y- t4 B+ jCell[CellGroupData[{5 }4 n8 M) V* g2 B
    ' N& r/ r# A: V2 ?
    Cell[BoxData[/ Y3 J. Q0 Y  H  ~5 N) j) u% b
    RowBox[{"y10", "=", , y) a' Q1 v4 @4 k3 _
      RowBox[{"{",
    9 T. p& D3 N7 r) W  B% r+ j; O   RowBox[{
    . ]9 s! i/ y  C6 J& V$ D6 _2 G   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 9 g# {+ Z7 R1 E0 b4 M2 j  U
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; N! d, M& Q; ~$ C7 S1 E1 N! A
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    - Y7 w( z$ n( Q( o    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    6 p* e3 q! t8 h: w    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    $ u& d* w' S. F& C4 k3 g    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    % M6 S) ^" k4 u& Z0 i6 w, v    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    3 f! s( n: p! Q    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    5 b. K- Q4 i! x) P8 L    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    ) e- t& U0 f0 Y& N; T    "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", + E4 [$ e8 o" I% p
        "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", 9 t* }) k" q) T; ~1 D8 N8 P
        "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", & ^- m" P- c/ Y
        "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", ) Z3 ~/ h4 k: H
        "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",",
    $ t$ J  X1 b. Y  t- j3 Q    "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", 8 {  d3 E$ x5 ?4 A9 b
        "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", ) ~; i% M! e/ o. t1 @0 I; I1 Z
        "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",
    ' W6 K. i. F+ f5 _6 ^+ e" A  H CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],
    : m! E  K) E# D% U
    $ H2 L: I% C8 q* c  _Cell[BoxData[6 v9 A( j0 `( N, v6 O0 \: j4 u" Z
    RowBox[{"{",
    : ?' m# b$ U" x# o3 g  RowBox[{8 y, V4 C3 T$ ^( F* v# I3 L  R
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ; w5 H+ h. o# Z. C5 a9 ]: e
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    8 L+ ^/ A; i& `2 x0 v! g7 w    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    7 [# y5 _' o5 H2 @% U   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    " G1 s) C  n' ~; @+ Q   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",   E; K5 {# ^/ J( E: k4 k/ \7 o
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", / F' V9 Z' F6 k, ?
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    $ `, O* j: E+ N9 J/ B   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", / R+ D9 C3 l% @6 @% e/ h. E- b9 \% R
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`", 4 q  O4 Y. g1 _. [) m
       ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`",   T3 h  _- R, ?
       ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", # ^" H9 Z* M/ v9 z  z& K& b' E. m
       ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
    " r% F3 r! C2 P: _& Y/ v" B' o    "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
    : U* ]% Y$ ~: k: |1 L   "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
    + R( Y& V% R2 z1 l7 C3 k; @& g   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",", ; w1 F" P" W* w9 Z9 ~0 F
       "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
    3 S0 c6 g: P5 Z7 P" }   "0.694935`"}], "}"}]], "Output",
    ! n4 n! q' r8 f9 V  X" n CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9,
    / \- N7 ~7 J) R, k  3.578012361734375*^9}]9 C2 u6 C& }  e2 R* t+ X
    }, Open  ]],5 o, n" Q" e5 e- U9 C0 X
    0 ?6 v3 G$ o! _  N( R4 R" ]
    Cell[CellGroupData[{  U- K+ l) I5 M: v' x* @

    - \9 u* G, Q; MCell[BoxData[
    , N8 g6 Q4 S! ]) w RowBox[{"p1a", "=", 5 g0 G" b: b* u6 i
      RowBox[{"ListPlot", "[",
    3 e' n$ o- i$ i- z" {9 x; o   RowBox[{"y1fit", ",", . K6 @, K8 B/ R8 K$ z
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", % c/ Z1 ^6 P$ f
        RowBox[{"PlotStyle", "\[Rule]", " d6 T) t: q$ V. y. x
         RowBox[{"{", ( D1 L0 p, q+ I6 k" U. }
          RowBox[{"RGBColor", "[", ( h; p1 G) G, a2 d4 R3 g/ u
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", % L. M; Z: A/ W2 `, E5 j  Y
        RowBox[{"PlotRange", "\[Rule]", % |1 R2 ~2 x7 Y) X4 L+ C
         RowBox[{"{",
    # \% P5 H+ B* K' N+ _% ?      RowBox[{# ?6 B( i! \) W  a& \8 M+ j: i. k  g
           RowBox[{"{", ' C) i% V2 p  g: J9 G5 S) s
            RowBox[{"61", ",", "89"}], "}"}], ",", ( h$ Y8 @% K# f/ A5 k
           RowBox[{"{", 9 u+ [) n, z( S" Y& o
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", * }) s2 E) Y$ Q! ?8 G* v6 y+ P
        RowBox[{"AxesOrigin", "\[Rule]", ; J$ j% i  f3 Z
         RowBox[{"{", + s. u) }; d) j3 R( z3 ^4 Y* _
          RowBox[{"61", ",", "0"}], "}"}]}], ",", 5 I! ?8 S3 |6 N; ?: K! a" ~
        RowBox[{"Frame", "\[Rule]", "True"}], ",", . B7 {$ [- w  f$ H) ^, F; G7 @
        RowBox[{"FrameLabel", "\[Rule]", % u# v+ m( n/ ^+ V6 v$ _5 R- V
         RowBox[{"{",
    2 e4 I* \' d- [/ ]0 g* ]& ^! M      RowBox[{  [7 ^/ E$ S2 u; `6 M' S' ?7 C
          "\"\<\:7089\:6b21\>\"", ",",
    * }: H- i7 J1 I       "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
      p! Y) E& ?$ D: x8 B, s3 m\:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",' E( Q4 a/ G6 Q: B9 a" f
    CellChangeTimes->{
    / }4 v% D  t* L  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
    ; o0 R6 A* I) S) n  M8 m   3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9,   X! {* E6 q$ G( N' V, R, R8 O
       3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {
    $ `8 x+ x1 {7 N! B0 M  N   3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],
    4 f& d  y+ q# C! C
    9 f( Q  w! r5 N# ], r1 ~# `Cell[BoxData[- a- Q$ N& C6 v: Z% u5 s
    GraphicsBox[{{}, {},
    ( D# G) M+ O3 l) s   {RGBColor[0, 0, 0], LineBox[CompressedData[", W. Z: l# T9 i8 M5 i- {! l
    1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
    6 @# H! |  w6 Q8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
    % u, w. v7 e: H4 z' |D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
    7 c% V6 M5 `) F1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX; ]# k6 d$ t9 ]3 }! z! y
    C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN! b1 N. C$ @& H! J" P5 L  [
    a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
    + u- O! o+ v- I& ByqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
    + R" F& T! m3 b9 lwrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
    # H  f1 ?8 Z6 e3 d& J' CY6nGQ3sAieueIw==) o1 a! ^1 B2 s
         "]]}},0 }1 O( g) L0 g/ G
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    ; Z( |0 e2 D+ e3 Z8 x& c7 M! I7 k. J4 }  Axes->True,
    8 U: u6 `. F6 ?& l( \$ `  AxesOrigin->{61, 0},) f" a; ?! w4 y4 g; g6 e, D6 O- V# @
      Frame->True,
    0 O( n3 X$ \+ u$ Y8 v1 v7 x; y: R  FrameLabel->{
    7 r) M+ _8 I; L: _    FormBox["\"\:7089\:6b21\"", TraditionalForm], ! a+ R; H) ?6 x& F2 S
        FormBox[
    % p7 o3 k0 j9 m  j    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\2 L3 H$ `& u! {% `% G
    \:ff09\"", TraditionalForm]},/ v0 N4 d  \: g& L' C1 G# n# Y
      PlotRange->{{61, 89}, {0, 1}},1 v" ?0 L6 l: J* L
      PlotRangeClipping->True,
    # X# b3 ?5 R- L! u# I  PlotRangePadding->{Automatic, Automatic}]], "Output",  ]3 B' g# ]4 Y% {$ T4 n
    CellChangeTimes->{
    % s8 ~& E9 L0 j6 n0 P  3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9,
    % b% B' T( x" c0 B   3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9, % B2 t% h$ g' f; V; @# y
       3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9}, $ p, [  u- H5 h
       3.577962187510705*^9, 3.578012396921875*^9}]
    6 p" q* @" F' u: K}, Open  ]],
    9 ^! K) E" V  {6 P' C) _$ K2 \/ S  D& C2 Q% [) K5 V
    Cell[CellGroupData[{
    - O/ i' E1 a/ z8 q  I4 v( k$ G: S
    Cell[BoxData[
    - i( L! w3 m% Q( u1 \ RowBox[{"p1b", "=", * }$ @- A8 z: j) [) Z' J
      RowBox[{"ListPlot", "[", 0 J* v  X$ y" _- @
       RowBox[{"y10", ",",
    , j+ H6 Y8 U' J. F+ R    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    7 Q+ V3 r$ x, @- {7 j    RowBox[{"PlotStyle", "\[Rule]", * j0 W5 b' z3 F0 k  d
         RowBox[{"{",
    ; X3 ~/ G/ h7 d; w      RowBox[{* V4 `1 }8 R, Y
           RowBox[{"RGBColor", "[", ) d# W- F$ q; f5 m9 P/ b
            RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    - ]) ~7 Y; V4 y    ",", 0 \6 C8 `7 {+ i: i$ E4 Z: Q
        RowBox[{"PlotRange", "\[Rule]",
    ) K, y, {2 @* _3 P: @     RowBox[{"{",
    $ x2 S% P9 l" \  j( `+ k      RowBox[{) y3 D( J: i* G, k  ]9 F4 c+ R
           RowBox[{"{", . Y) x; d) ^4 `# i$ z( [( i
            RowBox[{"61", ",", "89"}], "}"}], ",",
    . W9 W3 e, _: y( W0 h. @) K       RowBox[{"{", % N, D: P% l# ~4 C; v
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", ) n5 B! j0 @/ f$ t( f* C
        RowBox[{"AxesOrigin", "\[Rule]",
    $ b$ i( u+ I. d; ]/ k     RowBox[{"{", 5 v: o* G' p1 c; j/ |: u
          RowBox[{"61", ",", "0"}], "}"}]}], ",", 5 M7 ~" c; B4 Z
        RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    , c! Q2 u2 Y# ?2 H" @6 W CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9,
    # n9 D. P& J, Q' g" O  3.5779597764166365`*^9, 3.578012409265625*^9}],
      q7 d& B1 c2 l( R  R2 O) f- s' Z% q8 |8 `9 F( E; `8 J
    Cell[BoxData[
    * t" F( i; p$ P4 \  W+ h( u6 |3 O GraphicsBox[{{}, {},
    " _: J! t. }9 V) R0 y5 C# L3 G: i   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["0 w5 c2 o! g  o- N/ y
    1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
    : V6 l( f3 h8 ~/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy* v6 b* R$ x- R8 R3 \
    GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
    , v) {  r% y5 g% B) O, gGFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
    8 J9 ]% W8 c! X; w# r# U( Y/ V7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
    8 m& n$ G/ W/ I& A) G8 Q7 h& b" bQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri; N- o5 m2 ^" K& _# s+ s
    H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
    # a9 l8 ]- L% d4 ?/ `rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T6 Q+ F" H& j$ z. A; ~
    vA==
    7 `, V  A4 W! A  l5 c     "]]}},
    . n! G; E. z: k4 `7 ]  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],  Z+ m  ^; u0 d/ `0 J
      Axes->True,$ W2 U) {- X* k3 g
      AxesOrigin->{61, 0},$ n9 c) \% I, O; d( Q0 q1 |5 F
      Frame->True,
    6 q2 y; Q$ {- @- b& j8 W1 C5 W) b  PlotRange->{{61, 89}, {0, 1}},: @! W! s$ I; {( i. ^
      PlotRangeClipping->True,, N: O; M* ~& v# l1 G' O
      PlotRangePadding->{Automatic, Automatic}]], "Output",7 |/ E+ X: Y2 {
    CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
    * h% o' \4 i5 A' l5 B0 [$ {  3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9, 9 _$ J. r: p! O% {
      3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]. M6 |4 f6 s& ]! N
    }, Open  ]],# K! Q1 u0 r* }. N4 n, T' K& S6 Y2 w

    2 g/ @3 ~. o! C7 M" \5 m8 NCell[CellGroupData[{
    % ~8 `, X9 b9 E
    % {: H9 X1 v+ }. D9 j# ~- U+ {Cell[BoxData[2 y: p! N. m$ a& x7 s' @' d
    RowBox[{"Show", "[",
    8 E& k( y. T: Y2 g# m* O$ W, R  RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],
    ( d* T! Q$ p3 `6 _6 R. ~2 ?+ r( R( f
    Cell[BoxData[
    ; z5 D7 c9 c1 G( D GraphicsBox[{{{}, {},
    ; t2 p& _. r5 i6 \( h3 H; A    {RGBColor[0, 0, 0], LineBox[CompressedData[": u  K, a! O2 n" D# _# T
    1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn4 D  e, W, }, k2 M7 y
    8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq& m: ?  w9 G# ^* c& Q* O9 M
    D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B/ j1 z( ^2 {5 S, j) P
    1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX3 S, ?: U0 s5 \) p( g
    C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN" _& S0 K) z! p( j' D# E; z
    a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff2 d! i: w  ?  ~& x9 h" l
    yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb4 w! P# P! L* C) w" V
    wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59/ o: v) ]6 {9 E% e; I  a# B
    Y6nGQ3sAieueIw==
    0 \! Y4 T3 a2 o* p) m- R) `8 I      "]]}}, {{}, {},
    " Y2 _0 A  u4 Q# `+ F    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    9 y6 M* k  Z, H, N5 a) a1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ' f# X3 \  O  x( z% d$ i
    /B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy& e5 {: W1 {/ B- E3 n0 J( z
    GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
    ; o" d! w: l/ v2 z3 V0 WGFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy1 W1 `2 e3 f9 b, f+ T5 I
    7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/% t( y9 }/ i  o2 M7 u' d% ]
    Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
    1 `/ M/ ]9 u; ]% s+ b0 d. A! OH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV& |5 z: `8 x. O. p: R
    rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T5 O, p8 F, e% Q# u& r4 E
    vA==
    " @0 z+ P5 \  W5 H0 K      "]]}}},
    % s7 m1 {4 W1 K  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    7 O0 c: z( Z# P4 z1 e+ s* `  Axes->True,, ?  v7 }# I7 B* u2 @- J
      AxesOrigin->{61, 0},5 Z& @& u0 y# i. [
      Frame->True,
    6 d7 y( [. r8 l  FrameLabel->{: G; K) B2 N2 {4 T, \' o
        FormBox["\"\:7089\:6b21\"", TraditionalForm],
    . V2 [. s% ]* `3 E    FormBox[
    $ B+ l5 O9 [/ e, ~& m1 B2 `  e& |0 B0 C    "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\/ [2 ~" d0 D/ J2 J
    \:ff09\"", TraditionalForm]},
    4 V9 k0 M( o2 _  PlotRange->{{61, 89}, {0, 1}},* P. A  J( v# c4 b5 ]. @# @& q
      PlotRangeClipping->True,
    6 \! k; |: {! s6 J2 m0 j5 Z( Z/ \& r% E  PlotRangePadding->{Automatic, Automatic}]], "Output",; z: J8 \- U7 W) c8 R2 t# {
    CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]
    6 C& `5 p2 H2 {7 Z' ?* e% F}, Open  ]],
    # Q" ~5 M% p0 e& G0 r
    ; P# i* K. l2 x! iCell[BoxData["\:62df\:5408wi1"], "Input",' b& e& w. I6 U; K$ z
    CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}, ( _6 S( C: g& f
       3.577959662349238*^9}],
    8 ]4 _, H7 f' L, ~$ M, u7 A! y: E) x3 f4 Y3 T
    Cell[CellGroupData[{
    8 k( K! {2 y" x5 a( j6 a4 w
    + _' i2 Z9 u% M. vCell[BoxData[
    ; ~+ l& i! a/ f1 {3 a RowBox[{"y1b", "=",
    # C9 F5 ^9 @7 K3 A5 a; A  RowBox[{"Table", "[",
    & k& E! S9 I& ?: _% ~( X   RowBox[{"x", ",",   z7 s6 A/ B/ i  A. {
        RowBox[{"{", 7 D: e% |+ n) r3 z! Z7 X
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",' ^% @0 ~8 H$ p
    CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
      z! Y7 i. w3 F+ M- {; q1 d( L   3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],6 P% K$ W! K# r' {# b/ Q
    2 h3 i; X3 g* ~2 j0 F. U
    Cell[BoxData[& M9 o$ ]2 Z) [" I- s
    RowBox[{"{", 7 `# ~/ r/ J3 Q) Z+ @( t2 X
      RowBox[{
    ) Z4 Y9 O, p6 r  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 [" ^: g$ k; \7 Y   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",8 ]) Z1 |( ?0 L$ c# S
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 1 n- r! t' F3 H0 U
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", . h9 t7 g( j4 g
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", : s0 s7 I, i% q7 w4 Y
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    2 ]: p9 x% J. J4 Z: P; W& |   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", ! o7 |+ t' [# b+ a! o% D0 ~
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    9 U, Y) d& O: D/ ?! y   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
    ) R, x. x1 t0 H& T$ ?$ v# _8 s  "}"}]], "Output",
    , ?3 k7 ]: m; E( [- y CellChangeTimes->{& e( H; p7 c. t
      3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9}, . @* l6 S! Y7 s5 S5 u5 W# E
       3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9,
    * c7 B1 K- I3 c% U: W) Q% x   3.578012438953125*^9}]
    ( ?) f% A8 T0 @+ G7 J3 P% M& A5 a}, Open  ]],4 {" G; O) O# @& s
    # E3 \; m+ G5 a+ L  r9 w! }
    Cell[CellGroupData[{7 z3 C+ |% T* @0 m8 M+ l/ _

    1 q+ E1 }# A- C( SCell[BoxData[& k& ^0 B4 o/ ]
    RowBox[{"Data", "[", 1 h  P5 I0 J. C, n) \, r: I
      RowBox[{"[", : x5 o- x- j6 w& o5 s5 [
       RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",
    ' ~3 d9 W  k7 Z* s: G CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {- u( c- {8 K2 b/ J5 H, d. t3 D' e+ A
       3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {9 v: N! t$ s/ V8 z  U2 u
       3.577959014090108*^9, 3.577959016040111*^9}}],2 F& R0 T9 i; c1 O+ i, {

    / H8 d! L3 u9 Y/ i9 }- Y# P0 oCell[BoxData["0.492958`"], "Output",- o+ H; \& {5 E3 _- F. P
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, * z4 b9 J7 ~2 u
       3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9,
    & Q1 Q" A, [8 {9 q   3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]
    . r) h: F6 B" M  d0 c0 v}, Open  ]],
    6 s0 W! L) w/ `9 r, l3 x. Y$ g; p
    5 Y5 ?- C1 q) U+ {2 b/ x3 QCell[BoxData[; W, N; D- H7 E6 }; i
    RowBox[{"For", "[",
    8 G" e* y: W" @, Y  RowBox[{( O$ S+ k( x$ }9 x4 ]
       RowBox[{"i", "=", "1"}], ",",
    2 w7 ?6 }( o% T3 K   RowBox[{"i", "\[LessEqual]", "60"}], ",",
    ! p, W2 Z7 ~3 b# x6 F+ q$ _   RowBox[{"i", "++"}], ",",
    ' e/ |# k) F& p   RowBox[{. D, [1 A$ t. e. _0 q* Z5 B
        RowBox[{"y1b", "[",
    + r& V  u( z) ?# t! I% w     RowBox[{"[", "i", "]"}], "]"}], "=", * R: [4 P; b- S1 j# J
        RowBox[{"Data", "[", # ^  I, b6 \* |3 R- {! Q
         RowBox[{"[", ) H1 _# d( \6 b& r# T  a0 \
          RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",8 |% O2 A' H6 J. E$ Y
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {. f& i: r) s0 q# z' S) ?1 F
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    9 s6 E# x& z& f8 e2 i/ E   3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {
    0 |7 C- r7 A# U6 w# N   3.57795902089172*^9, 3.5779590227793226`*^9}}],
    + r7 a1 M- m( Q  s3 }# o0 }% c$ n! d" h, Z4 {& w4 \
    Cell[CellGroupData[{
      A7 G$ o& M9 H* P
    & v0 C* A2 I; U6 m/ h2 pCell[BoxData["y1b"], "Input",$ L6 K6 c6 T) ]8 ?5 b! G5 X  Y* W
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}, + W/ Y) y( {7 R* c. U: U% l
       3.577958484172784*^9}],
    8 |7 M$ A) ]: \6 t+ p4 r8 g0 q6 @2 d8 E
    Cell[BoxData[6 A) `( w- B% U  G- u
    RowBox[{"{", ' A. _* a: ^3 b2 z1 C
      RowBox[{
    8 E1 w* [6 G. X& r* S6 K  "0.873239`", ",", "0.464789`", ",", "0.492958`", ",", "0.774648`", ",", " O0 y  g  c$ h2 ?. h) Y
       "0.380282`", ",", "0.647887`", ",", "0.56338`", ",", "0.295775`", ",", $ S3 h. c% W! n2 a
       "0.338028`", ",", "0.211268`", ",", "0.690141`", ",", "0.43662`", ",",
    " H$ W4 E+ Y, k0 P0 y1 d   "0.`", ",", "0.267606`", ",", "0.211268`", ",", "0.408451`", ",", / s" A6 O2 x; Y3 V
       "0.478873`", ",", "0.380282`", ",", "0.211268`", ",", "0.43662`", ",",
    ( Y3 s5 }- T6 }7 I. W   "0.478873`", ",", "0.295775`", ",", "0.028169`", ",", "0.43662`", ",", 3 p, q8 s1 [- j, i; `, p
       "0.394366`", ",", "0.295775`", ",", "0.830986`", ",", "0.169014`", ",", $ ?* J2 `; q1 J9 H( z
       "0.366197`", ",", "0.309859`", ",", "0.352113`", ",", "0.309859`", ",", ( {, S- y: o0 l( R! x
       "0.774648`", ",", "0.422535`", ",", "0.887324`", ",", "0.887324`", ",",
    9 S# C, ]( t7 L  o+ W/ q0 h8 `   "0.859155`", ",", "0.239437`", ",", "0.295775`", ",", "0.746479`", ",",
    ) p- k7 e5 S2 P9 s/ J0 b   "1.`", ",", "0.549296`", ",", "0.366197`", ",", "0.549296`", ",", ; [. C" U& r6 n( b3 p9 G% f
       "0.577465`", ",", "0.690141`", ",", "0.71831`", ",", "0.521127`", ",", + M0 O! H; p1 \" u" e- _- y
       "0.929577`", ",", "0.521127`", ",", "0.338028`", ",", "0.380282`", ",",
    / \$ O- \9 \" L   "0.676056`", ",", "0.591549`", ",", "0.464789`", ",", "0.295775`", ",", 9 Y7 D" C5 ~& }1 ~& n4 g/ @
       "0.380282`", ",", "0.211268`", ",", "0.253521`", ",", "0.28169`"}],
    ! w' V& c# z5 f- H$ C  "}"}]], "Output",, \9 g- {2 l5 i% ?0 a. o
    CellChangeTimes->{3.57792293246875*^9, 3.5779582549771843`*^9,
    3 C" m: U! j* b- ^  3.577958485420786*^9, 3.577959026460929*^9, 3.5779622288195767`*^9, 3 w% f+ E: F" B" [* J7 b  E
      3.57801244275*^9}]+ O; h- K+ B' \! F9 {7 n
    }, Open  ]],* R5 _5 j" {- f7 u2 U

    3 w9 T0 Q" |  L! @+ cCell[CellGroupData[{6 P* F- P6 d4 u2 _

    : ?0 q* [3 z* q6 s9 C+ E8 S2 k6 yCell[BoxData[
    % \# u  c4 t. {8 Q5 s  _5 _, } RowBox[{"m60n21", "=", 7 x3 [, o4 l6 I% q" t* j! B# X) S
      RowBox[{"Table", "[",
    & p- I: x' Q: N/ y   RowBox[{6 @. y! o* t. |: T+ p7 ]2 ?
        RowBox[{"Table", "[", : c( x/ a) g: g: g: l9 p' A, L1 [
         RowBox[{"y", ",",
    / N" }2 d! m& L; ^. |      RowBox[{"{", ) {3 h: B5 j& \# ~1 L6 K7 n. a, g: c
           RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
    1 f/ H7 C4 V% l& R6 [. U! ^8 l8 p    RowBox[{"{",
    * O/ T+ ]' b- }. \( Z     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",- F4 q6 U8 A& {
    CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {! u& |6 X  t$ V6 ~) d% N
      3.577924052828125*^9, 3.577924101671875*^9}, {3.577962237961193*^9, . s7 z# f  a% T4 E
      3.577962240082796*^9}}],& V9 K! g4 W- Z$ ^; g' s
    * }2 i6 ~3 W0 ]4 t
    Cell[BoxData[5 j$ @. N/ E( ~; R$ U. S
    RowBox[{"{",
    * [8 e, T, l) U& j& P) a  RowBox[{
    : R6 [+ A3 K. y" M7 F: p   RowBox[{"{", & {5 w7 p1 i. N- Z: |# @& J  A( u0 G2 D
        RowBox[{
    ; ^5 Y9 V! Z* k0 Z( f7 |9 [+ p8 x7 k    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 h( I4 F! Z2 W
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 z# T* m$ t( `& L
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; _$ `2 i) r/ T1 j( e     "}"}], ",",
    ; N7 {1 V. O0 q0 p' r! a2 T   RowBox[{"{",
    % _! b* o+ z- l* V    RowBox[{* O8 B% p& ]( x- n: n* q/ S/ e2 I
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 c& n# w. t% s" @& ?
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    - J/ w/ }  i/ N+ W: _     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    $ b6 y0 n( B' @! C! P$ @     "}"}], ",",
    8 y8 {# t% f' M   RowBox[{"{", 4 |9 h/ V% g: S9 ~) I# g
        RowBox[{
    0 q" T! N5 u/ z' |- J  C    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; t2 o3 |9 g- x$ g% T2 ~7 B      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    $ t7 |- f" s) r+ S- W: o; i     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% C, T/ A1 d7 {
         "}"}], ",",
    % k' Q" _( i4 b% J7 L3 X   RowBox[{"{", 3 X0 k0 S, O$ g9 [
        RowBox[{. r1 B* J" E" u3 h+ P- S
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ' {. Q/ I3 V% d2 z8 B: b      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " l  ?% l6 Z; C. E* F; ?0 N     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 P6 }; M4 Z0 b. v+ y     "}"}], ",", + E( X# L: h. \+ q$ w+ O8 I3 R
       RowBox[{"{",
    8 J, J; |, Q6 ^1 f7 X    RowBox[{
    4 _( }, F( T  w0 V9 _* E    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ u+ X4 q( {/ x8 n
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , d5 m8 k' l% H# [9 ?2 ~     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 Q3 ]; D& [" u( G8 n# \) b
         "}"}], ",",
    / b4 m" y) U# N- j! I: q" M. a7 T   RowBox[{"{",
    # r- C, T( D2 J2 d    RowBox[{0 J" L, N2 q' R. b% A/ [! w# n
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 ^$ U7 R- ^' k$ ~
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 w6 @, M2 U9 }. [& D- F- G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    " B2 F( {+ h- x# j* I     "}"}], ",",
    - u! E  ^* @2 g% t   RowBox[{"{", & R. g. I+ R$ r9 C3 R* m9 @$ p
        RowBox[{. z% n) x/ N2 c7 ?9 ~6 o7 a
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    % i) h4 G! [5 M: `: ^0 U* _/ w      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ( {# Z% k  p( P) J2 f     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 s) ]7 D+ `' _. L0 W2 ]     "}"}], ",",
    6 c  q& C* o( v4 n/ R. P" ~+ O( e   RowBox[{"{",
    8 c( C4 o2 ?6 P: ^7 w3 ?    RowBox[{
    - X7 H& F6 C' T$ X* g4 H' d    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) D/ p" L0 e' q2 J# ]$ n. a" }3 G      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 |# ]& e* m# t' o; _+ {4 H
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ T+ B& e$ k" H% ?
         "}"}], ",",
    ( z2 q' L3 X* }. \" L6 g. g   RowBox[{"{",
    0 i" p& [4 q  {- w9 F0 f    RowBox[{% P" D9 f" i2 ]& K4 J
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 p* M* J* x- Q( s: ^6 j, D      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + }' g7 H' h7 N- Y7 h' k  W
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; [* s5 U: Z  Z3 K$ v
         "}"}], ",",   |) A$ g; x' a# _# r) j9 ]
       RowBox[{"{", 5 g# V' z9 ^: e# g# `0 S
        RowBox[{
    & J. a# W  L) I' g8 X    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) A: c0 n* u0 @2 ?9 N6 S- d! ]
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    # ?/ d, A/ O, u- b2 P8 X     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' P% n# |7 ]4 }: c  O- u. {
         "}"}], ",", 5 m! N, }+ b  z- j, l$ C3 |) y$ t
       RowBox[{"{",
    6 u+ a* U8 _; ?  E    RowBox[{; c; G/ R  W/ ^$ a7 w
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 K% c; K3 i1 U! e/ a; ]
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 g8 f# ]+ _$ v0 s     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& J' y. \% P7 p- X5 b$ V
         "}"}], ",",
    ( J* L. Y; z  v4 n+ O   RowBox[{"{",
    5 g7 N! k' K) g6 Q$ O2 H6 i. ?* `2 {3 x' e    RowBox[{% W1 t: l2 H3 \6 Z5 p
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) N0 @5 H/ Z4 k9 Z& }9 z
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & T4 J, U; g, J! r* X; w3 p( `
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    & j6 Y- N5 `, m' G     "}"}], ",", 0 o. I& H- f$ K! M/ [( K
       RowBox[{"{",
    ; `4 B0 ~- r& Y7 l    RowBox[{0 B- r# [; u3 V) B! `, D8 w! i
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ Y& z0 Y. u* T0 q
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    # \: s, X9 n% n" S  i8 m     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ! a4 b3 R, D1 F" P0 l$ ]: a     "}"}], ",", " K) J  h) H+ A6 w
       RowBox[{"{", 9 g) m# M* C7 `# Q$ Q
        RowBox[{
    $ t% Y6 w7 q8 U+ X    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 U2 A8 `0 M8 W/ w9 j' S: l
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " u. s) n$ G" R' B
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' X. e& o  p6 ]
         "}"}], ",", 2 u. V6 I! }( D# E+ X) E9 D5 t
       RowBox[{"{",
      f- A% Q5 k& A    RowBox[{7 }5 F' b, c8 h% d+ W7 E' I3 Y
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ L" K8 d( X, R4 J
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    $ b4 U0 h9 x9 S0 ]* {     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," y) Z& E8 b7 i+ J# K
         "}"}], ",",
    8 C: S/ c0 z3 q3 M6 _9 Y   RowBox[{"{", 4 Z$ g- [' y$ v4 ]
        RowBox[{
    0 @& p5 u2 @( F& z: Z3 U& ^; E    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( v& Q; Q/ d  N, ^) ?
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' _: R4 a0 Z" l
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; _1 f4 C: Z+ n     "}"}], ",",
    ( `! L: o5 e, ~+ n- N% @, h   RowBox[{"{",
    * S& P" k# |5 `3 _. O' O" S    RowBox[{
    % ~# d) b4 u0 j& c' v/ A    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ Z2 ~/ u( ~( Z" L9 A
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 y/ T' r6 }2 \/ Q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% T+ @# H3 p( O1 u+ v% R
         "}"}], ",", 6 R4 l/ @( _7 V) R" J
       RowBox[{"{", 2 Y) s, i  ^4 Y7 m6 K
        RowBox[{1 o2 j* N8 e8 s/ Y
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) [$ A; B) l  d$ Y1 K      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      w  d9 \* d8 {7 F4 a& N     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    $ M7 _4 K5 X8 _/ }! F, P3 P6 }     "}"}], ",", + Z. _* ~3 [+ e  y3 F) h1 O0 X
       RowBox[{"{", 2 @& R/ E$ U) O3 }$ p1 s& D. A* @
        RowBox[{
    ( D/ i; L7 Z* A( C    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ u' Q  L" `' q2 `% u  ]
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & a) V! e4 h3 g- u) [7 w- L5 T     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," E) w  _" P; l: t$ \
         "}"}], ",", 6 z* i4 k! E! T  t* Q7 Q' Z  G; ]- E
       RowBox[{"{", ) c2 W+ M5 z% h% L1 J
        RowBox[{8 B$ x: Q- i$ ~5 t1 B* P5 M# B
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 E8 y5 p0 n) u4 s      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , j6 ^! p& W4 G$ }: }' C7 y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # K! S1 ^& x6 o  P/ d1 Q* X7 S6 j5 |     "}"}], ",", " r: k. R/ Y. |. w" C% @9 ~$ j. V$ g
       RowBox[{"{", ) l* D3 P4 X0 V' r
        RowBox[{) x4 @8 _3 _2 c1 q+ u4 A5 A" G+ I% s( L
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      v; |% ^" |4 F/ ]      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . N+ o- X' ^! ^* g" f0 o2 s1 d. ~" _
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  c* S) k- @! O+ J: z1 {* P. Q1 R( w
         "}"}], ",",
    6 q! q/ y+ ?' w) N( ^: I( J0 B   RowBox[{"{",
    $ |5 d9 z8 a$ E% K9 j    RowBox[{
    $ S! t* N2 W3 c2 p& D% Z: y) i( h    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) P' j* I+ f2 v( Z0 X      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    # C% [; N" s  }: j     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' ^) J1 g/ l5 d- R2 E3 ]
         "}"}], ",", 5 r# ?1 J9 m. \& x2 }! J, K
       RowBox[{"{",
    . e. k; G  m1 o  V7 k% |9 x3 O: L    RowBox[{
    ) X& H+ R; s- s9 F# F' h* Q    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! v/ b& s; w$ g; G, l, ]
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 K; N" U  s  Y) ^     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 e5 n, a! d$ {* @! E     "}"}], ",",   r* Z% e; v" A8 E. R- Y$ x
       RowBox[{"{", # d% ^; ]& _1 o# w& i6 A
        RowBox[{
    # C+ K4 Z* G( _8 b    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 Q/ p! f8 a1 L7 A2 j$ Q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 X. ^' Q9 {+ @9 p     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 V+ Y( J; p9 N- x. `; P
         "}"}], ",",
    $ n# ^5 m9 o, V, L4 c8 T. {2 J   RowBox[{"{", / r9 s" z% G% a* r# ]9 {
        RowBox[{& I3 m4 [' ~/ Q4 o
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' c! U* x; ]' s
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' l1 T9 D6 B! _! S3 d3 U0 {; l1 n2 C
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. g7 x5 ~( i* L
         "}"}], ",",
    : k) @1 C" l8 G( d# G   RowBox[{"{", $ g4 L9 l- I9 l" g) B
        RowBox[{  s9 r# t" F8 \9 e- h$ q6 A
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 A- H% f1 }7 x2 }4 d3 [
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 a/ @) h) ]6 f2 E3 I- w
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    / U9 _  D; M1 p     "}"}], ",",
    8 s. }: K! I4 }8 a! r1 d   RowBox[{"{", 4 h) K4 X8 _9 S, |
        RowBox[{
    9 c+ F+ U, o4 j0 s) X1 _    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / U2 J$ D% G) T2 ?# d9 u( `7 r      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 b$ Q9 s( V) J# f* ^, }2 }2 S
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    7 [9 [* c: o- s  a& `     "}"}], ",", ! j! X  F( s: ~" b$ N8 r; ]4 m
       RowBox[{"{",
    / x, F2 F, j0 [* x    RowBox[{
    6 a% M2 B( X5 _* m  k    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," t7 R/ e# w9 C" @6 x+ ]3 n; Z( Y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",   i- y/ z/ Y* L- R
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) C3 i% ?5 c) m: J9 k
         "}"}], ",",
      T4 c# ?/ ?6 o, `) E' p0 T1 n   RowBox[{"{",
    9 w2 c6 ^3 c# `0 ~: l1 Y8 `    RowBox[{! Q8 ]3 |' Q, @
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ \! h$ N+ C, f
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & _0 X) f; J) [/ l     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    & z$ H/ V& w% }/ F     "}"}], ",", ' F* H; ]% k% f, }
       RowBox[{"{",
    2 W* f9 {) G& ~  Q8 P) A) x" K    RowBox[{! N3 O" x' P  n: P
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ' g3 n& c& Q0 L  n9 M6 j" a9 c0 B      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    + t7 L& j1 H" {* G+ Q, U/ m     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      w' a! K! l( z" X5 h# j     "}"}], ",", 2 t/ K1 P' `/ h
       RowBox[{"{", 4 ?$ |9 n' x, y) k; J5 s" z
        RowBox[{; y" @* ?6 X. @( E  z6 m- a
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ Y2 K% q5 ^6 W
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 R6 }& n- Z4 t. k( I3 U     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! h) D" C1 X) _9 j# ^% j* q
         "}"}], ",",
    7 m- c  v6 B4 U- z   RowBox[{"{", 7 c' {' L4 T  b
        RowBox[{$ ^) F, ?5 P# t2 n( i
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : E% @/ y& \; H& u1 @* f      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : Q5 e' @- F% @, Y4 y# [9 N" H" p
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . G9 o1 y( F. b, n' g5 {     "}"}], ",",
    ! M5 o  p, V  y# p) t/ A: _+ s, M2 x   RowBox[{"{",
    , r7 o; X  e. m, q3 A1 \$ s    RowBox[{3 e. W% M% E2 i# B2 |
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: Q- O* |0 A+ _# i; x
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    8 h: O1 i  M! s* X& B" ?  N     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ R+ Q9 L) u! K& f
         "}"}], ",", ; ~9 d* k  N" R) D
       RowBox[{"{",
    % |+ ]# @. s* |% E    RowBox[{
    7 V! m  d2 N2 Q  c( g( I# ^" X7 I    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 @% o, [8 X3 A' q# m      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    . h* {: O! M# w# v6 c1 Q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ! h0 J; R* O, z$ Z7 D) T* N     "}"}], ",",
    # K* J) c) {6 ^! @  b" R   RowBox[{"{", , z9 b: Z9 R% _& y) X  ~4 S/ }( J
        RowBox[{6 V* }2 z2 C0 U0 c4 |$ t
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 R% r' {5 B, i# f8 X      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    - H! y- P. q3 Z& j3 q! e' E! [     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 p1 G7 ~6 @0 e6 e     "}"}], ",", # w* i+ }! q0 s: ]& u9 C/ y
       RowBox[{"{",
    . l5 F* L% b0 n( z    RowBox[{6 x) O. U5 }8 S. U% ^2 }
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; j( ?5 N. A  K0 r: }' U' h; s7 ?9 t
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 T( O& A* ?; ?% v/ E+ d" z9 {; g
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: t) k8 R, Z# u
         "}"}], ",", 8 m+ y0 ]; G2 X) Y/ ^) `+ c
       RowBox[{"{", 3 W% v  G  B# A) G5 d; T
        RowBox[{
    " }" N6 v  h) w  P2 |( w# }    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",0 U* J1 o- B# m1 q& W$ A
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 A& S0 P6 j1 z/ q2 H. u5 J7 {+ U     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : S; v' H9 }% C     "}"}], ",",
    1 l* \- V* M& g2 @0 @9 n   RowBox[{"{", , J& m8 \" `. y" o) z' F/ a
        RowBox[{
    # v5 D7 [" W3 {1 ?' p  |: d/ ?    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    % V. a, a" g  L, J$ z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    $ t) {& s# T. Z. h     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: t: R% A% B* a# Q  ?9 [1 v
         "}"}], ",",
    9 O6 y2 U7 w# d* N   RowBox[{"{", + D* N9 l( N* r  U) W. n
        RowBox[{& a6 o! M( d7 X0 B4 F& b8 n
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! Z0 [4 ?# r0 G      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 V2 e: M0 P9 {7 K! N/ k# N  m; A     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 u! `! A" [, h8 q. q% t     "}"}], ",",
    . y; G2 p% u% W- y   RowBox[{"{", ! b( t9 X$ A* \4 U
        RowBox[{
    - u& E8 d4 e$ `& H    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% h- h1 W# c; I
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; ^( b; w0 p: a
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# ]9 w  C% u0 u3 ~% z$ ]) L& y
         "}"}], ",", 4 L% k  b  w' \# s& B4 C% g8 U' D
       RowBox[{"{", " O; c; d* O: Y% k: L. d7 ]2 C
        RowBox[{
    , W/ M; l/ V  j5 `5 H' B  p) J    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: ^. U& R) t+ E8 x. U/ e+ |6 P# a
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 X; c* P% i8 s; c! g1 q7 E0 J) l
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ) z: k# n1 p9 ]6 n( j0 t% q9 `     "}"}], ",", ! ?* G; L4 l: [$ U. i
       RowBox[{"{",
    ! r3 n2 e0 E$ F7 ]    RowBox[{8 ]8 `# N" I5 ~' ~( W: R
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ' W& ?" S$ _* H& l, J$ I- u% s      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " \. _  z4 o& l2 p4 A  U2 E6 f
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    / `/ J1 y6 u- |0 f1 u. {, ^( w- W- P     "}"}], ",",
    ) O2 [% |4 S% K   RowBox[{"{",
    1 c4 A) b! p1 o4 I* N3 O& B9 _    RowBox[{
    0 \1 c6 g+ T2 b  i& M8 R    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    . P( ~9 B+ G$ z# u      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % c) U8 J: K5 o. a# I. A
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," Z' @& M  T! T, O' w
         "}"}], ",", ( `& m  M% d, E% Y! r
       RowBox[{"{", ( W9 K  Z! k: z( ^  ^( p( h5 g
        RowBox[{" O9 k& d6 ~# \9 `4 J- t' \
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 d/ V  E+ [% y      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 `  H/ T4 C9 @' {0 }) Q1 l/ }: Z
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, ^$ k4 y; F' X/ t$ y
         "}"}], ",",
    8 y" f6 b$ y  ?& |- R1 {   RowBox[{"{",
    ! Y: K* ?6 [0 Y4 a1 L/ z    RowBox[{
    ! l+ F. K1 q/ Z0 T4 ?9 o( L# {    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 x4 j5 {+ I: ^9 I      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : U# t; H8 m& e% R
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , a4 E" ^' Q; O3 z5 g( t* F     "}"}], ",",
    & D( }/ a3 k" R4 G' g$ v   RowBox[{"{",
      [- `+ g- S" E0 I' G% A5 A0 L    RowBox[{9 D. w8 ~3 S& [% Z- g2 ^4 u+ @
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- Y5 R; [/ \9 M2 \
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' N: f, K7 A  Z& R
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    % I! R9 B4 B! q) Y     "}"}], ",", ) q& T( b8 Q& T* H
       RowBox[{"{",
    ; e* D) U, y$ u- |7 i% j. a    RowBox[{
    0 u: e" |" M' y) a; W    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. I6 l1 h9 W' s4 _8 b, E' W
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    / Y2 N- d( ?* t/ Q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    - ^5 c) a% `4 q2 r% F3 ]     "}"}], ",", ; M) W. Q* K( L2 h' r
       RowBox[{"{", : t% v& c! L6 X" t* F# C* [5 c
        RowBox[{' _; \) t% A1 z6 k! r* W
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 H5 c0 _; N/ Z# f2 v7 H! C7 _% F      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      w4 c5 p: [8 ?) b/ {* q9 }     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],: @5 k( c# r) f. L" n# O2 I9 C
         "}"}], ",", 8 c! C% T4 Z9 B: W' ?: ^9 T; u* M$ V
       RowBox[{"{",
    % u# k. e3 h$ q+ L& q6 G+ ?8 Z1 Q    RowBox[{3 b2 w5 Q' J$ u8 I& f# @3 C  a
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; e4 z$ X* U$ H8 _      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    + B4 O; L! V' `  b" g: ]; Q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    * F9 b, P2 W% Y- Z7 n     "}"}], ",", : A6 }: p$ Q+ D: t: h" S! F
       RowBox[{"{",
    / m/ k$ W+ `: h  \1 M" N) p    RowBox[{' z% _) f& s( h3 d
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 f" h) P- v, x  ~6 I/ V      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 X  q" ^1 s* R8 T( ^: }
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      S: W, b4 A( p! G     "}"}], ",",
    2 ^, K# _% e% R% R1 f6 u   RowBox[{"{",
    ' a2 {2 o  l7 i$ P+ _/ W    RowBox[{' ^7 W/ n" q3 [: p
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : v* ^, @2 T; X! l      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    / T: [6 v7 v- A     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 W- V3 |  O& r4 ^     "}"}], ",", 4 n& a; A1 f+ @; @; T0 s
       RowBox[{"{",
    3 m8 h& z) u! L& b2 C7 m1 a    RowBox[{
    6 P' U; v: j& S8 u1 E/ a: r    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," I# M% ]. P8 U. m0 m# J& t- R& O
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 ?( }& H5 R- S2 Z* K" W
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 d( ?2 u# g" x/ X+ L% v" W% I0 p  v) E
         "}"}], ",",
    / W$ L* }$ a) f( |1 z+ ^   RowBox[{"{",
    # {$ Z( s$ M5 n; _  I7 o- X  X    RowBox[{
    0 h: h8 q/ H5 q    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) h! r" s' F: ~0 r" G% O% e* m      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 Y# e% \+ b: S& a     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 N+ f% R6 ?+ c5 }' C5 D     "}"}], ",", , Q, A8 ~* E; ?3 \# r$ B3 s
       RowBox[{"{",
    ! {( b  w+ Q- b% k; n    RowBox[{3 _- Y7 l& M. ]8 v, q% n; P+ F
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / |% q+ O/ J( h) p7 }7 j. g      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 L, _1 Q- w/ c. R9 L/ _2 h3 @
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 `4 n$ p0 ^5 c' N. S' ^+ O6 p, U
         "}"}], ",",
    * }3 R( W/ @9 O, y. f3 S  m   RowBox[{"{", . c0 \8 ~2 ?, {9 Y
        RowBox[{* r" c' S) F1 n- v" O( ?
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # X! ]- R6 u9 [9 K- K" g      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 m0 U: [- m' o( i, j* F
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, R+ ^  ?$ g; n, r
         "}"}], ",",
    , c. z6 |: y3 E8 k6 \' I3 E+ ~1 N   RowBox[{"{",
    . y) p* p# `* U" n    RowBox[{: J6 I4 ?# W2 U9 S
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",9 X& o! o7 B* v2 J1 E
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ' S% M' b9 Y) f! l% m     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% I7 O1 e; k8 }$ y% ~7 V
         "}"}], ",", ; s/ o. y" z$ u% X/ \7 V' U* H
       RowBox[{"{", 6 g4 r9 \  m% J. t* N
        RowBox[{
    # B, ?3 M! H& K/ I  a    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," F! c' f& U, D- y& h5 G0 |
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; P) f- M( }9 K. @7 L% }. t
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 v& l  G! l# O  \+ y+ n
         "}"}], ",",   U$ Y9 c0 ^  d2 Y5 E6 o
       RowBox[{"{", 6 [0 T$ \  L# {6 ~5 c7 `. f% Y
        RowBox[{# s6 B( g$ o8 |  r
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    " e/ }9 ?1 M2 ^+ P# C( I      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ( p. A6 n4 l+ I  e9 w     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    % P" p$ q- }9 J, Z5 o     "}"}], ",", ; b! m( _/ Q0 u5 Z' C% w4 \, F
       RowBox[{"{",
    7 L- X& }8 B$ S# S    RowBox[{
    ( R( v) j2 _, t5 V1 Y6 U' L    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 X$ O' G* o2 U& j) ~" y0 l      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - Q4 h* `- D, r# O# k
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],/ ]  V: T. I5 g
         "}"}], ",",
    ( ^# L1 ]$ X2 g5 f0 m2 V7 d# X   RowBox[{"{",
    * F5 @5 L0 l" ~* v! a) q- s    RowBox[{  C  l$ W5 T8 l8 p, Z  J  c' J/ w
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% D' ^5 H4 c7 l7 M! {
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + U/ c! c2 ]( h1 [5 S% b
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    * ^- ]9 T6 Y. m- c) y' p$ a6 A; Z     "}"}]}], "}"}]], "Output",
    + }9 @% \* T  n' e CellChangeTimes->{" b$ r$ D5 J' u  F  G+ Q, a/ i
      3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9}, $ o& Y0 l: X; x9 B2 o% b- Z% ?
       3.5779582609987946`*^9, 3.577958492393998*^9, 3.5779590297369347`*^9, 9 s9 R( B9 }; h# ^2 f/ S
       3.5779622422980003`*^9, 3.578012443890625*^9}]
    $ i! \( M; P5 U* \  C}, Open  ]],$ X4 L+ a) J% M" i

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

    ' k. l( Z" S  p  x( u' bCell[CellGroupData[{
    ; E+ k: D- P- Y' l% d/ P0 `* E% T2 q, w
    Cell[BoxData[
    . P/ P/ o/ f  @+ }7 G& `( C5 g RowBox[{"w1b", "=", . w4 M! O, }/ v$ [0 k
      RowBox[{"LeastSquares", "[", 9 M1 E- n4 L0 e* h0 m' c2 ^. A
       RowBox[{"m60n21", ",", "y1b"}], "]"}]}]], "Input",$ F9 A6 {9 x) E. g+ [' z
    CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {  {1 l2 Z. x% i7 m
      3.577924662765625*^9, 3.57792466596875*^9}, {3.5779582865360394`*^9, 4 |9 T- @7 P1 P; r2 L
      3.5779582963172565`*^9}, {3.5779622900808835`*^9, 3.577962290377284*^9}}],
    * X. ^; {* F$ d  a. d! g( F! J3 Z6 @, ~$ ?7 H0 |# q) m
    Cell[BoxData[
    " t5 |6 Z* q% }' _ RowBox[{"{", ( {/ U) e4 Q! i) O6 \) ?; |/ g
      RowBox[{. i  E2 m, R# \7 g. m5 ]5 ]  x* X
      "0.48228184971363947`", ",", "0.16041393254115022`", ",", " ~4 M2 a0 k" g4 ^0 l
       "0.3741982811661129`", ",", 6 X5 {& j. l+ c
       RowBox[{"-", "0.12620581913715245`"}], ",", "0.28831860112966734`", ",", 0 D- H1 A6 U( B
       RowBox[{"-", "0.2282993884666894`"}], ",", "0.3207174990295839`", ",",
    # d  X+ A& S) ]+ q. D( G   RowBox[{"-", "0.4666313851213302`"}], ",", "0.27551257162880227`", ",", 7 U$ ~' |. Q# g6 x$ v
       RowBox[{"-", "0.025873988843993667`"}], ",", + h" P5 W+ D8 ]& F# I/ e" @4 f* _3 n' ~
       RowBox[{"-", "0.1339854044819916`"}], ",",
    $ t8 D) X* P. O# V) M   RowBox[{"-", "0.15852708848338315`"}], ",", "0.3129687276967983`", ",", / Y7 K' m. K$ R9 s( T; i% b0 Q
       "0.45723850991134063`", ",", "0.2954923840077215`", ",", 6 j/ n6 \2 k' E& L4 {! M
       "0.9125798890455868`", ",", "0.21159052285983104`", ",", / p) {  `; Y6 l2 D2 u. {- j
       "0.5575503376854456`", ",", "0.6019775648968265`", ",", * m0 T6 e' _8 X. G! k6 y
       "0.2361524780938108`", ",", "0.12782130225993923`"}], "}"}]], "Output",$ C) Q: p( J1 G0 c
    CellChangeTimes->{1 m" G* Q2 b9 b6 e% Z; `
      3.577924621953125*^9, 3.5779246688125*^9, {3.5779582894220443`*^9,
    5 N6 O" D" z4 p. o& ?2 U( c1 @   3.5779582992968616`*^9}, 3.5779584995700107`*^9, 3.577959040157753*^9,
    2 L1 o8 n0 y! _- j, ^- f   3.5779622919996867`*^9, 3.578012447734375*^9}]8 A" Z/ ?- n( F) E" H4 V
    }, Open  ]],1 p8 ?( E# l2 _, Z; g3 u- E/ S1 A

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

    2 C% V" t! s% R) ?1 T1 v! ?3 ^Cell[BoxData[2 C0 [9 b' i5 x$ ~/ q! A, L
    RowBox[{"{", 2 v4 B( Q3 M; b" m/ ?' _
      RowBox[{
    9 G# k& w2 M+ k9 ~: |1 l3 G/ @  "0.4853171132859182`", ",", "0.4508635216665074`", ",",
    0 W( l. T# Y" N" S! s1 K: b2 Q   "0.3642119241752518`", ",", "0.42852077425595436`", ",", + Q5 D3 C- `: ~  R' u: i, N. z
       "0.4712694272667798`", ",", "0.5257533056184774`", ",", # W4 b5 P- B! e6 v8 F; g
       "0.48620658140716133`", ",", "0.41106838915591876`", ",",
    1 Z, U. f# x" J+ w7 k1 u( T& G   "0.5486894206610674`", ",", "0.007731168540073459`", ",",
    , r, M& A; ~8 O   "0.013872406140339109`", ",", "0.3956995051659558`", ",", & Y5 L0 Q# r* J, l/ N7 g, c
       "0.3663118256142708`", ",", "0.29094217358055163`", ",", 7 G1 j: t2 T. @3 B0 b( K
       "0.5453093690736555`", ",", "0.44138898880777927`", ",",
    1 w+ R4 p5 |, X   "0.42944922031163496`", ",", "0.43092890556748836`", ",",
    8 i% S7 E1 G% L3 `, O  [   "0.5942402821739969`", ",", "0.330046090785457`", ",", ; ~! l' h3 \  M6 v* F
       "0.18938658036630585`", ",", "0.4263720292858679`", ",", 4 z) d9 t+ ~3 b5 T7 n: ^
       "0.23377136184738775`", ",", "0.02232858193309988`", ",", 3 w8 {: j5 \& S8 I* ^  m& n- d8 _4 X  s
       "0.244364200084268`", ",", "0.5562383565309971`", ",", , f4 h3 ]; _7 J4 E! U$ E  |
       "0.13114103402954333`", ",", "0.5815052048989465`", ",",
    0 n! C6 ?- z& [; I. z% a' w- c: i8 F   "0.4253455966293501`"}], "}"}]], "Output",; R% T0 x# k3 s% u: h
    CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
    3 c& a# b$ A( |3 x: x4 ]& h' E3 z3 e  3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9,
    9 F) ^3 m% Y$ `5 B5 e! v  3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}]& o& F2 D' Y7 s$ J  g
    }, Open  ]],9 ?. _. K" B9 t# T; G1 [( o0 S8 }

    3 c9 l% _2 Q; \  M) b* T7 ZCell[CellGroupData[{" b3 u& n; n" L2 @  J! G/ c: e2 T8 d- k
    ( ~: R8 M. t/ z
    Cell[BoxData[7 `% b9 Q% U2 O# E
    RowBox[{"y2fit", "=", 6 D9 M3 }% W8 ~' Y
      RowBox[{"{", , S& V6 N. c4 u" \0 ~8 M
       RowBox[{
    5 l- i; W# W; _   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    3 f9 @* m/ t0 ^. r0 H    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 D+ [9 J- c" k: K" A1 D    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", 1 Y- O. Z/ Y0 g
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", # B! j' Q& J. G" d; w9 |
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    $ z- M1 t/ A' d$ }    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    ' C* j. w$ X1 y1 D. P    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", 0 I/ V0 R, E1 h- T
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    9 X2 A1 d- `3 ]  }7 K- j& r& @    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", . ~8 V3 _$ ]2 ?+ X' @+ O6 P' a
        "0.48531711328591953", ",", "0.48531711328591953`", ",",
    : ~7 Q- ]6 s' E* G  ~' U# k    "0.45086352166650845`", ",", "0.36421192417525217`", ",",
    - J9 k' M; O4 r7 M, a    "0.4285207742559556`", ",", "0.4712694272667811`", ",",
    : u; H4 _, H# ~6 W& A8 o, m    "0.5257533056184786`", ",", "0.4862065814071623`", ",", * \1 n4 M: E! w+ ]: e
        "0.41106838915592014`", ",", "0.5486894206610683`", ",", 6 j# n9 o+ o! n/ I1 g7 \
        "0.007731168540073532`", ",", "0.013872406140339166`", ",",
    9 Y: p7 F9 Y0 a( H8 P    "0.3956995051659565`", ",", "0.3663118256142717`", ",",   o/ c( l3 [% Y& j  h( q
        "0.29094217358055185`", ",", "0.5453093690736568`", ",",
      j! u( O- o5 |# ?) j  c    "0.4413889888077799`", ",", "0.42944922031163585`", ",", , g8 q2 t* y+ H4 H) R
        "0.4309289055674891`", ",", "0.5942402821739983`", ",",
    3 u- b$ M3 e: i6 v  @0 B+ |) w7 J" I    "0.33004609078545805`", ",", "0.18938658036630632`", ",", 6 Z* K* Z, B# v, E  j( R
        "0.4263720292858688`", ",", "0.23377136184738778`", ",", 3 Q. h9 \! i% m2 O; x1 c: |/ o( ?3 {
        "0.022328581933099827`", ",", "0.24436420008426807`", ",",
    / A+ F' r5 N: t  Z1 S; v    "0.5562383565309981`", ",", "0.13114103402954314`", ",", 7 a% o/ L: r" Z( Z$ J( u( l
        "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",+ p; Y* a, b: c  \2 _, J8 A1 A7 J# e
    CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {% U6 C( q" D& e* t
      3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9,
    9 a$ I, _2 x, L/ _+ ?  3.57796233957977*^9}}],
    7 J+ Z- H4 F! a  c( f1 C' G" P  }/ S
    Cell[BoxData[. H% S& A* P* I
    RowBox[{"{",
    6 z1 G$ U$ g1 r  RowBox[{3 v3 d: n% D" `6 T  `- Y3 t
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 s% ]. v; B' O! U% [  L: c4 `   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    , B* X7 f" o1 k& o    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    0 Z% g# g! C0 u' E; C4 R* O   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ) M( T  W7 B* |7 F2 X5 T
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 6 n. m+ `1 W8 m' u* ~
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    $ J% c# j. X% ]- Q   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    2 \' X  r& J' }+ ?- U3 @  j% D   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", + s4 q0 \5 Q7 {3 N$ g" @( A, N
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    5 C1 L3 Q$ z% }; U. [0 j( S; I2 r) |   "0.48531711328591953`", ",", "0.48531711328591953`", ",", 7 K+ `1 a' u5 W. j: j
       "0.45086352166650845`", ",", "0.36421192417525217`", ",",
    * l; _8 Z8 K' c/ X0 P: {: W   "0.4285207742559556`", ",", "0.4712694272667811`", ",", " ?0 `7 Z- j# D
       "0.5257533056184786`", ",", "0.4862065814071623`", ",", : Y! H1 M8 i9 V5 s8 O3 v
       "0.41106838915592014`", ",", "0.5486894206610683`", ",",
    ! ^( R2 h6 R* _2 @   "0.007731168540073532`", ",", "0.013872406140339166`", ",",
    8 _* ~$ Y. ^" R1 }9 E   "0.3956995051659565`", ",", "0.3663118256142717`", ",",
      y+ t, |/ N9 Z8 \$ {2 z; g, D2 U2 D   "0.29094217358055185`", ",", "0.5453093690736568`", ",",
    7 d8 z# u' k- V( u3 Y9 {2 L   "0.4413889888077799`", ",", "0.42944922031163585`", ",",   D6 [6 |) F7 F  c
       "0.4309289055674891`", ",", "0.5942402821739983`", ",", 5 [: H$ v0 y! r; q8 d
       "0.33004609078545805`", ",", "0.18938658036630632`", ",", 5 {- w; L, P: q# {& n+ |
       "0.4263720292858688`", ",", "0.23377136184738778`", ",", 5 b4 }  G* n3 P2 J4 C
       "0.022328581933099827`", ",", "0.24436420008426807`", ",", ! k6 [+ C1 N1 y5 v7 w' G9 }2 b* V
       "0.5562383565309981`", ",", "0.13114103402954314`", ",",
    & \7 E4 H5 }; Q& R   "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",- ?* M; O1 t- v, b1 j
    CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9,
    $ f" c& `1 U9 J: X  3.577962342060174*^9, 3.57801245340625*^9}]; d3 {, A+ _' c4 q, w4 J
    }, Open  ]],. K2 r1 o: _0 }1 x4 Y& Q
    % E. L$ l* G! t3 V2 i6 v6 t
    Cell[CellGroupData[{0 z4 U6 G; r2 n0 y4 l+ {9 \
    - D# G, A+ _5 R- T
    Cell[BoxData[, l" i" \6 @1 B+ N: w, t, j2 x
    RowBox[{"y20", "=",
    5 J5 ~' c4 q3 x1 ^  k( P  RowBox[{"Table", "[",
    3 h) M0 A" S/ k+ U0 W* A/ F   RowBox[{"x", ",",
    & Q6 }* s# k8 t: Y1 ?    RowBox[{"{",
    5 j: N' {; h9 J  x2 p0 k! S     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",; ?$ S, l; \6 J" \
    CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],
    " f; c# d% V5 }+ S2 t
    : P: e6 \( B8 {8 h7 gCell[BoxData[$ c/ k. r! [. X& b7 A; I5 Z
    RowBox[{"{", 7 O8 N5 Y6 f( H; k. s
      RowBox[{
    7 d7 E* d4 ]- U3 o7 h  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 8 E* E2 d1 J# {! g7 G: b
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",- H6 L" y8 I" E/ g
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 7 X9 L6 l3 d' j' v9 r' y; |
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    7 l% C, M1 _$ `  ?' C   ",", "29"}], "}"}]], "Output",
    3 a4 \/ d+ a  D* A8 M CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9,
    5 M# i7 P; o# U( _, `: `8 L3 |  3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9,
    & J# L0 a; o- K- I) F$ d$ h2 o  3.578012454875*^9}]
    % Y+ j( m  F5 Q& B( o}, Open  ]],6 R' S, W9 H& O6 R! V: ^% F/ v

    . c1 b+ B  M! _: u1 DCell[BoxData[
    : _; i+ z+ y1 Y; j+ g: D. s& k$ d RowBox[{"For", "[",
    ' h7 U7 w! V# W+ F  RowBox[{9 q7 n" D3 J+ t0 z8 o7 I
       RowBox[{"i", "=", "61"}], ",",
      k; P; Y/ D8 X" s* k  Y2 D   RowBox[{"i", "\[LessEqual]", "89"}], ",",
    4 ?0 }# C. ?9 ~  B, M+ _/ c* H   RowBox[{"i", "++"}], ",", 2 k4 h) o: g! U0 T) O( w: ^  |
       RowBox[{" O, {; C( S# o4 p! d- M- f$ I/ g# f' y
        RowBox[{"y20", "[",
    1 F4 l9 H8 v# }9 L) O8 [3 B     RowBox[{"[", " {3 O( d! [0 ?$ Q
          RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
    5 @" u# Q% \/ e2 `    RowBox[{"Data", "[", $ I1 ]0 }% {( @1 K; \
         RowBox[{"[", 5 R2 g8 p! J/ g/ L% _) X3 r
          RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
    1 I  B# |1 C$ l. t CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    ( ?$ d1 j6 X- K5 X& y  3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    - C2 u$ X; s. E! O  3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {) _4 \% V; @- b1 l
      3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9,
    ) |* q* c2 ?, v; N  3.577959058690585*^9}}],' d; w, n3 x1 y% I

    $ W7 ]7 y" j4 OCell[CellGroupData[{9 h) s2 _2 q! s  M2 n
    # N- ]$ Y" Z; L; ?, D0 i- x
    Cell[BoxData["y20"], "Input",' d7 ]( M% E4 d; I& X
    CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {2 ^% W( K$ `. _8 ?7 F
       3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9, ' N" p; z* G2 @! y5 v$ J6 X7 |
       3.5779583657841773`*^9}],, F1 x( O: |  o! D  h$ P8 i4 w

    7 q  ?  q1 _7 DCell[BoxData[
    $ x% |2 y5 @" k2 a) t RowBox[{"{", / Q  x. B' o; I7 M/ {' U$ y
      RowBox[{1 `2 c9 ^% ?8 `% U# ~
      "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",",
      B9 u. B- I6 {4 h& g0 g4 c   "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",", 3 x5 p. i* |" T* v3 ]0 U. Y
       "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", 4 b8 s5 N3 }) R+ K: Z) J9 A9 G
       "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
    7 X" j& [% Q( m9 I6 f5 [: W1 |8 {   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",", . d& y/ b. N0 f4 E% A. M; n
       "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
    # e. p; a9 K0 n   "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
    . @$ E2 x7 j: P: B   "0.323944`"}], "}"}]], "Output",
    0 }/ h9 I1 Z1 t CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, $ V2 K- q* P) I' T6 |3 D; V% e
      3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9,
    ) u* @1 J' A6 G3 |% Q  3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]
    . E7 n+ L+ n! J0 D2 A$ O$ F}, Open  ]],
    ( d8 n1 B) Q) y* T2 U) A
    2 v1 J' r- ?+ Q9 B1 `Cell[CellGroupData[{
    " b- r) T, h  T% v% o9 t" X* j: E4 o1 _$ a" R: n
    Cell[BoxData[
    5 k! Q( o: j0 i+ e& K2 T3 W. C RowBox[{"y20", "=",
    $ X5 c7 R# ?% r9 ]4 Q& P' A4 n  RowBox[{"{", 2 F- [' N, O6 I1 \+ ]
       RowBox[{, x  y  b; d* C9 U* [
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    * L/ u. v: a0 h- m- `3 C9 p    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 5 |/ Q$ j1 a* L# p3 J8 M
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", 7 V2 t1 u" ]% f
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    8 X' p, s# q% l, W    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",   F$ [( E+ u1 t3 H8 @5 {# ~
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", 0 ^7 g2 d$ S) I. I' _, x
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    ; k0 z* Y* M6 [# E    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    : ^: Y$ q- G! e- L6 g    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", ; e8 Q/ W; e5 j3 Z3 Y" \
        "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", ( ]* r8 a2 f( {) k) f9 a; a5 w+ G7 h
        "0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",",
      N- y1 z- P' A0 `3 v9 f    "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",",
    : a3 A( ]. q. x! }& W$ ?' l    "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", 4 ?! h9 w. u: t& V( i
        "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", . {# |/ |, P  ^, \
        "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", # D6 A0 e+ K. y7 q
        "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", 8 V# {$ ?5 P. ?
        "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",
    ! k+ \+ I! Q/ w1 p8 z, b1 f5 \ CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],0 J  o% z: ]0 F

    / ~4 H: J; W+ s- mCell[BoxData[5 A" n; v2 O. x+ D5 }* C' i* L& L
    RowBox[{"{", 9 T% J$ D, t; c0 ?* d! R* V
      RowBox[{- L/ m* G  G1 p3 W9 T( z/ |# H* e
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 i: Q$ G4 k: L# j+ n   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    2 X* t$ K% X6 i, X& t    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    3 z3 F, ?& l( y2 r' F6 b   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ' d/ o3 `. U/ m$ [& j
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", / C& L& i' S( d% {/ M
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    " q5 l4 w# f, i   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    % G7 P: D- ?7 k  ]* J+ u/ P   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    # H! ^8 _1 Q) y5 u" m   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`", 2 w; d. V% K, E) u
       ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`",
    , T4 r, s# {4 v2 B7 i   ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
    # j, i3 z- R6 f6 `  Q/ b    "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
    # Y8 }. J. ~4 [$ |* b8 H   "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
    2 i7 W6 p5 R* f0 d& N9 D- b! H   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",", : \; I! T$ N6 y
       "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
    ' t7 q" F9 g7 m  F$ k; J   "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", " e0 {3 s; `' O$ M/ B
       "0.323944`"}], "}"}]], "Output",
    , D& y$ v6 K( H. E, @5 j: i CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9, 2 e, z) R1 q/ _/ ^- H
      3.578012457234375*^9}]
    * l# a% ?  _6 v! W9 O# _0 L1 Z}, Open  ]],. e7 k: W; A+ F( T4 c

    5 y. x, F/ |0 U3 YCell[CellGroupData[{
    6 u' a( j) `( ]( N  E) Z5 J- X/ K9 ?9 X8 g4 j
    Cell[BoxData[
    7 Z1 h* f5 m7 b2 w4 {/ _) P  B RowBox[{"p2a", "=", 5 q: E4 k* t8 m0 `
      RowBox[{"ListPlot", "[",
    6 J& l8 c4 O& T) d) ?& P  h& x   RowBox[{"y2fit", ",", 1 F! U" y% t- D' G/ d
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    7 p  D- c; l: q: B    RowBox[{"PlotStyle", "\[Rule]",
    % Y$ a3 I* q( B- o3 Z$ A& _+ u     RowBox[{"{",
    ! o# Z; x) O. x2 r      RowBox[{"RGBColor", "[",   l: @$ o$ v% U4 t
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
    ( c- S4 k* o* V; q    RowBox[{"PlotRange", "\[Rule]", + s9 c2 P/ @5 P) {
         RowBox[{"{",
    1 p  l  w! Z% _. J      RowBox[{) j" m7 _- l* j: R* k) [* x
           RowBox[{"{",
    9 ?: Q! q0 ~. m) x6 h! A3 V        RowBox[{"61", ",", "89"}], "}"}], ",",
    " w" J- X( n8 ?. S       RowBox[{"{",
      o5 S- d% }% F# \        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    + e9 g: K6 p6 O& F    RowBox[{"AxesOrigin", "\[Rule]",
    $ {2 Z( [3 w3 ?6 H2 F  w# q% x: d  H) L     RowBox[{"{", , L& W( Q* ?  i
          RowBox[{"61", ",", "0"}], "}"}]}], ",", ; z( X, H. {7 B* C4 Z, t
        RowBox[{"Frame", "\[Rule]", "True"}], ",",
    2 ^) p  R7 F. \9 R! B; F( a    RowBox[{"FrameLabel", "\[Rule]",
    ) _2 [( j; X" X+ y  @" N4 V     RowBox[{"{",
    1 n! r/ U. d' N; m! o# H      RowBox[{
    * H) t+ u! M( q7 H. [! e; `8 ]# i      "\"\<\:7089\:6b21\>\"", ",", ( Q+ \, X' J3 d* w7 L3 v+ v
           "\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\
    / f" Z3 C8 F  d\>\""}], "}"}]}]}], "]"}]}]], "Input",
    4 O% P7 S1 E2 l$ e& N0 o CellChangeTimes->{( _7 z8 [# E1 n: c* l# U. c
      3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {4 e# F) D2 ]3 e6 e+ X
       3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9, 0 S) a- O! r$ G4 Q* N
       3.5779585491624975`*^9}, {3.5779592802577715`*^9,
    5 {- m$ y0 t1 V) Y   3.5779593014270086`*^9}, {3.5779594039971876`*^9,
    & d8 m- H' r% t* U9 t   3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {: d" L* `( j1 v" U3 E4 c* K
       3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9,
    ; h" J) `# i9 z/ G: k" f   3.578012920859375*^9}],
    8 Y7 D* d# o9 B- Y, ?* F% G. j2 X) A( X6 T1 B6 x
    Cell[BoxData[2 O4 E8 X& {2 c1 N) ^# G
    GraphicsBox[{{}, {},
    , l' o7 Q, N+ Q; ^2 ?" N   {RGBColor[0, 0, 0], LineBox[CompressedData["
    8 h# v) {, \, ^7 j  G6 ~$ E1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
    1 w2 t/ g/ Q" y& J( \3 W* D1 G8 V/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
    6 a& r" `7 i* s& A9 J6 i$ o" e9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
    , w3 n; E6 l* u7 h# T1 RofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC$ D3 U. k6 G: Q: T
    qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK/ }9 ?7 c; E' N/ S# y2 C
    1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx; Q0 E1 I: g) f" S0 ?  L, G
    0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
    3 n/ T+ }: ^! l4 a& s- y9 ^3 usPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
      d% N; G1 D7 F. _99yxuG0PAHw7nyU=
    ! K' b' k$ B$ [4 N5 Z. E1 r     "]]}},3 [; y- t, J" l% A: X$ s: \
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    ( Q; {$ u6 C3 m/ R9 J  Axes->True,
    3 R& h8 E( s4 F1 g; ~, @  AxesOrigin->{61, 0},: ]. ~+ V3 W' b1 t& R+ f" j' ]' I
      Frame->True,) L# i+ t( {; V3 A$ u
      FrameLabel->{
    6 M& }& c7 x4 z3 R' ^    FormBox["\"\:7089\:6b21\"", TraditionalForm], . o" e- g& c( ^/ _: P
        FormBox[7 N9 n  o! Y/ V# R- ~- Z+ o# |% m' S
        "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", 4 F$ b4 w* x! z3 z# s
         TraditionalForm]},* s2 v+ Q: v3 d2 Z- H" _9 U
      PlotRange->{{61, 89}, {0, 1}},9 C0 M2 u" M3 n% g! X3 ^
      PlotRangeClipping->True,
    ' \6 F, i$ x9 s  PlotRangePadding->{Automatic, Automatic}]], "Output",
    $ {8 ?* J9 H6 \8 A4 O/ ^% a CellChangeTimes->{/ a6 Q# ^: @8 k+ _
      3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9, 0 |* i  @4 Q) v% d
       3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9,
    4 x# G( Z# H  X$ [   3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9}, / W) H$ T' E2 \& i+ p9 n7 K
       3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9,
    7 N' T" _- u$ j: d   3.57801247209375*^9, 3.5780129225625*^9}]+ ~; G. c' m! e7 P* Y
    }, Open  ]],6 |3 V! `9 W3 ]5 Q" s# t. y3 s

    6 Y1 z) D$ p& W% u& \/ D8 o8 PCell[CellGroupData[{' }# w$ v" }  Y2 H6 w5 I

    . u2 v2 H4 K; j# E: {Cell[BoxData[
    " R  S. l, O9 a/ u6 U$ q& v& V RowBox[{"p2b", "=",
    ' p' @+ S8 K2 @8 E. |9 A3 F: A  RowBox[{"ListPlot", "[", ) ]& m, ^! I6 e# i; i. Q
       RowBox[{"y20", ",", ' `% x9 L: B" ?8 p+ ~
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", $ X/ w4 A2 e! T9 \* R5 \; x7 T
        RowBox[{"PlotStyle", "\[Rule]", - R  y6 {6 G' M5 P* f4 Z# ~
         RowBox[{"{",
    5 w( n! W( }* B/ ]" P7 H$ E. i) }5 f# ~      RowBox[{8 Q0 p- v/ b! \8 y/ w0 R
           RowBox[{"RGBColor", "[",
      {; Z0 H4 y1 t, C2 ]        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}], & y( k# f' t9 @) z: }' y: @# \7 s
        ",",
    2 k. z2 L4 f  B, ^9 Y. E    RowBox[{"PlotRange", "\[Rule]", 0 P8 d" {* ^, v2 e0 h: g
         RowBox[{"{",
    ( h' H! [9 [1 u! c, j! K      RowBox[{: E3 J, I/ m- R: {
           RowBox[{"{", . ]! d" `* p. R% q! y" ]
            RowBox[{"61", ",", "89"}], "}"}], ",", 1 g1 O8 x4 [1 c! S8 _1 j
           RowBox[{"{",
    , D( I) Y  S( @1 }# W9 Q        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    # T8 N( u" S' s# ?$ f9 x    RowBox[{"AxesOrigin", "\[Rule]",
    ' m0 `" }" f+ B. k0 J* U     RowBox[{"{",
    : n% c8 O5 O7 E      RowBox[{"61", ",", "0"}], "}"}]}], ",",
    ! D9 m% _1 ]3 r! u; z+ `    RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    : \3 u( x  z& l, ^ CellChangeTimes->{
    ! ?% F* }6 j1 q3 D1 m% ]  3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9},
    2 Z4 L9 R- }; q, d  N   3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],# Y' L7 k) I  u
    ( T/ u- A0 I3 n3 ^+ A
    Cell[BoxData[% H# q) X; e# H% a
    GraphicsBox[{{}, {}, 8 k; p2 h" B3 R4 i( h/ P4 C) o3 f; w
       {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    % F7 B, V2 M4 t$ ?: e* k; `! r1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn6 y6 b  X- Q% O9 X  d6 a. i3 ^
    8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
    + g+ |$ |3 g: \; ]- {: l5 B0 dc/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc+ c$ Q9 u+ x3 L& _* l
    iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
    - ~/ W  S% S" o0 m! f7 ]! q( bTZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
    ) l& f. a! W# J1 G0 lfzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB  W+ U; l, v' w- m# I! \+ i6 {
    TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG# A! Z7 X4 W4 e* S+ B
    p0OYg4Fg/tz63VfsAdsCnzU=, x, ~3 Q. n( m6 @
         "]]}},
    ! I1 K' f$ l4 O) a& N  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],2 x1 d1 l, ^/ S4 v5 G- U% N
      Axes->True,
    * N# c2 r2 c  I$ M/ p  AxesOrigin->{61, 0},- C( ^' T  k+ X- A9 j' C' E
      Frame->True,( o# y- }& P3 o# b  M7 P) y
      PlotRange->{{61, 89}, {0, 1}},9 j8 G+ U* R0 r, }* R
      PlotRangeClipping->True," e% z, y* x4 M0 D( F
      PlotRangePadding->{Automatic, Automatic}]], "Output",; }# K4 @' B7 C) G
    CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
    # f# Y% @: p: r% T9 A0 g  3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9, " r+ z4 s: J7 z& l3 A$ _
      3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9,
    , s0 F; [/ x5 ]5 V  _  3.578012484703125*^9, 3.578012925875*^9}]2 z$ N9 j# D2 }1 m3 B3 Y
    }, Open  ]],
    9 r% w3 [3 v) m& k$ y9 v2 ]8 R0 M
    6 u0 I" V/ E; i! ^Cell[CellGroupData[{, Q5 f* X: \9 u' c' v5 H  \) S
    / o* O; e& G4 ^  N; B; V
    Cell[BoxData[' X; K3 \4 N& I9 W- v) R( a: D
    RowBox[{"Show", "[",
    4 S5 y' N1 [# |" a+ m/ }% f% W+ }/ V  RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],: o3 l3 W% s# f, g

    2 v1 K3 L& ~5 t8 R7 {' xCell[BoxData[
    ) W5 B5 |4 C. p0 k! R$ U" j GraphicsBox[{{{}, {}, 1 Z: M6 \, W" z5 ?% d& A2 h% t
        {RGBColor[0, 0, 0], LineBox[CompressedData["9 v8 t* D6 Y8 O; u  J# x
    1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
    # x& F6 D3 S7 i; b' b/ [' }; W/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
    # m  n- i: q' H( X( Q& t& q( ]9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P& @8 z( J7 i/ v8 Z
    ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC4 Z8 s7 P4 r! X
    qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK& g9 C# b* D& d" Y" p8 b+ P
    1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx, ^$ W) L/ c/ Z8 q- q8 U8 _" U
    0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
    % x1 u' e8 ]1 M: jsPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
    - E* u! z% g% C5 ^6 Q9 |, Y+ a99yxuG0PAHw7nyU=
    # k& B9 V2 g9 l" t      "]]}}, {{}, {},
    # t9 N1 s# k, _# J. ]    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    ; Y5 o8 o; |5 @* `1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
    - E; p8 s/ b1 \8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV7 l& f* e* w) ?5 ^5 p7 n0 \
    c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc8 y3 |- w6 a7 }0 j. z
    iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
    9 E6 ]6 B! {, Q0 C. }  @2 `: l" uTZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO) ]& {. J! r; y' \+ q! M1 V; h  W" J
    fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB1 u! N( {/ N! s3 C/ w% {8 o
    TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
    : }( F! Y! v- u' a- r9 }p0OYg4Fg/tz63VfsAdsCnzU=
    5 `/ h+ J5 D) C9 F      "]]}}},
    7 ]3 g9 C, q& Y% O- V  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    ) `" ]. w& O2 V3 x: h  Axes->True,) a8 `6 h! Y; B4 V  E
      AxesOrigin->{61, 0},
    $ N3 O6 O( r7 ?9 L  Frame->True,5 `+ @' E/ `0 N* p" U) |) N" P' {
      FrameLabel->{
    ! O: C8 ~/ z" c) [$ N5 g) X    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    ! y4 d  x. v4 \& T+ A    FormBox[# K! W$ O( o0 W6 v- I8 `
        "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", , R0 y, R$ {5 o# b: G! j
         TraditionalForm]},
    ! O8 W4 S0 }. F. \  PlotRange->{{61, 89}, {0, 1}},
    1 ~; b1 C+ n2 D( z6 L  PlotRangeClipping->True,, m7 ]" v  T% ~4 S" S) X0 L+ T# {" X4 [
      PlotRangePadding->{Automatic, Automatic}]], "Output",
    2 {( [' ~8 l4 [4 u% Z0 i5 g CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9,
    * @8 t; r8 Y, s/ W0 D; B  3.578012927734375*^9}]
    : K2 x* X) w$ i# X/ k; I}, Open  ]],9 e( u: B! Y/ Q4 o4 O

    & a) I0 b. H- eCell[BoxData[1 Y4 v- W' s/ }
    RowBox[{"\:ff08", # c: c7 X  m7 ?' {
      RowBox[{
    ) Q& I9 q9 x9 t! [  W  "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406", % g9 \/ w9 g! H- w7 O) f
       "\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621", $ u+ F+ ~6 ?+ a- m9 L) X
       "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208",
    1 z8 M0 P" d' s   "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0", 7 h% U; W* T2 e% U) Z+ @$ q* s
       ".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\
    - a: w/ }' i/ w\:4e3a0", ".6224",
    ' c1 ]  J$ R# r( c: Z  ~! a# n   "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],& S: w" `% z) u% G) B8 n# Y
       "\:ff09"}]], "Input"],$ q" R4 W' G3 I6 J# M6 }# |, z. z( _

    + w: A" I+ y7 ECell[BoxData[8 a( i, R9 S- Y9 E1 y/ K
    RowBox[{"{", : q6 I3 @  M. [+ x1 m. S
      RowBox[{
    + C3 |' a" ]5 W# k8 [# ~' U  "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",", , j6 B: ^: z9 F2 ?2 `2 t4 S
       "\:5439\:6c27\:91cf", ",",
    4 y" i6 L& [% n   "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",",
    / @6 c5 T. k* G; E' X) ]6 b" C8 X, s9 l   "\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",", , a5 H5 r2 t# O* Q3 z
       "\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",", 0 z& b4 }9 L2 @7 S' i9 v% z3 a7 M
       "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",", ' H5 R- z) ?6 u* I: K2 a. b* d
       "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",",
    4 ?% s( R7 U2 X( e" f4 ^' ?8 Y3 |   "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],
    . h/ Q- U# a% ~& P$ N, @& q2 |$ {
    ' r6 z; D  h2 C3 a; |1 k4 [- SCell[BoxData[" "], "Input",
    ; G& V) r% t# C CellChangeTimes->{3.577962834553033*^9}],
    1 y' w* l4 v  c! T8 l: `
    ' ~% _% D3 O" Z3 q- T- x% c6 D! j0 QCell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],
    & v" h  Z5 B" j5 q3 O% }4 s: v: h" ]; p! V) V" q) P+ u8 \
    Cell[CellGroupData[{  N  p0 U, f3 I( ]9 G1 `
    ) Y" ?/ j% n0 q! u/ d+ V
    Cell[BoxData[
    + U& C7 C' Y: b7 Q3 `& d RowBox[{"y1", "/.", " K- A2 \' x% X% b
      RowBox[{"{",
    ! }) c! m4 _; R1 i" a4 z5 ]   RowBox[{
    ( T* u3 r4 Y! m6 w# V9 G' G    RowBox[{"x1", "->", "0.7406"}], ",", $ I7 ]& z, ^+ l' D
        RowBox[{"x2", "->", "0.4621"}], ",",
    ' z( ~+ r. H% G6 e5 ~    RowBox[{"x4", "->", "0.2221"}], ",",
    ' X. L3 G% u$ w8 B    RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",
    . ~$ R' w/ G2 N1 e* Q7 W* f" X CellChangeTimes->{{3.57796267209435*^9, 3.5779627224200373`*^9}, {
    2 v, }. Y/ z# @  3.5779627663029137`*^9, 3.577962774820529*^9}}],3 E7 k, Q1 \9 G& M- y% m

      T2 g/ p, c  d, H7 q- RCell[BoxData[( F4 I5 x: f3 j% ~8 ~- K7 l
    RowBox[{
    & a2 }, e* f7 y  Y  RowBox[{"0.2286149508637297`", " ",
    + h' _/ {, Q* r' E   SuperscriptBox["\[ExponentialE]",
    ' `- h& `; @- G% J    RowBox[{"3.1415926535897936`", " ", 9 y8 t+ [% {9 W" D) D) ?. B- Q
         RowBox[{"(",
    ( F- W$ D: u) Z# B+ L# W# ~      RowBox[{5 G  L3 `8 i; h2 D: @1 [/ |
           RowBox[{"-", "0.17911224641499998`"}], "-",
    0 D+ b' f5 m9 a# B) A/ `! s+ N3 I       SuperscriptBox[
    9 q3 m  b. w. B' c, F6 {, N        RowBox[{"(",
    5 u9 G: u" `" l* m* a! u  c5 e         RowBox[{, n: F7 n) q" Q- A: B- [) O! T
              RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
      ~6 U( X$ p5 E       SuperscriptBox[
    0 W% [4 d( T0 d* U5 }2 [5 ?# y        RowBox[{"(",
    7 l$ `. p6 m& {% d& _8 O9 v0 p         RowBox[{
    & K0 L# U. w" B6 {/ \% c          RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
    ! J- _8 p3 E' H5 k# e       SuperscriptBox[% Y0 |& C) @" T5 V" N
            RowBox[{"(",
    6 ^, i) N7 ~+ S4 b* Y  J5 Q% O         RowBox[{
    % s$ ~9 |5 j: |. E" {% P6 S0 i          RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", 9 r0 O4 v4 I1 g; R- U7 H
           SuperscriptBox["x8", "2"], "-", 1 g7 w/ D- `: f' j$ `6 h8 T
           SuperscriptBox[* ^; j9 C* R0 I$ D1 M% \
            RowBox[{"(",
    0 o0 q- o. Z8 w( \3 |/ g. A1 U3 P         RowBox[{
    ) l2 u0 O% ~5 t+ [8 J) L) E3 Y$ K          RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
      k! i% H. [9 F2 s$ m2 X  RowBox[{"0.020180806675835994`", " ", 7 D; i6 M& s4 {; V, L& S7 O" |
       SuperscriptBox["\[ExponentialE]", + O& a+ b& }3 w2 s3 u0 J$ E: C
        RowBox[{"3.1415926535897936`", " ", " i/ E2 q; H- D7 h6 q
         RowBox[{"(",
    , O: s- L+ P- V/ S% Y      RowBox[{# u# N& d' f) ^& E1 D3 b
           RowBox[{"-", "0.105619387859`"}], "-",
    1 l& O2 M+ S4 L- _+ H2 [       SuperscriptBox[' k: `( B& w1 G9 _5 P% D% o
            RowBox[{"(",
    . Z# m' P# {8 o% W& ?         RowBox[{
    * {) A+ w& o. l! f          RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
    9 _" p9 g9 U) f4 e2 v" Z1 L$ Q2 `: g       SuperscriptBox["x6", "2"], "-",
    & u) D$ u( e# ?: {( |9 e: v: ~       SuperscriptBox[
    6 F$ q) ^$ H( p0 @0 F        RowBox[{"(", 3 V* q4 Z" j# w$ M, B! a: h
             RowBox[{
    . N; H' e- t1 G% c% H1 m  t          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    0 {% r  R6 T: D" |       SuperscriptBox["x8", "2"], "-",
    4 K0 {' Z9 A" t9 E       SuperscriptBox[
    1 d' {, J) j* L& v( j3 A        RowBox[{"(", : C8 H6 ^* p( _0 X, A2 p7 x8 g
             RowBox[{" t2 C1 {% v$ s& \7 ]( a6 n% H
              RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 2 g+ a% y0 a$ L2 m# q- ]( l
      "+",
    , [8 \$ f) Y" q/ S( m4 z, U' t8 X9 @( J  RowBox[{"0.13092706311748437`", " ", 5 M) {$ v& U$ I5 i6 s
       SuperscriptBox["\[ExponentialE]", ) s0 q& W. g# p  E1 K; u
        RowBox[{"3.1415926535897936`", " ",
    1 N# S. J+ Q5 o     RowBox[{"(",
    ! E, j, V& a) `      RowBox[{2 A/ k9 p2 y( U2 b+ z
           RowBox[{"-", "0.236605670085`"}], "-",
    ' e) W( D6 d; R, B" A2 }       SuperscriptBox[
      A+ r+ f; s9 g        RowBox[{"(",
    9 f5 u% l5 k, b+ v# v         RowBox[{
    0 D. n1 i) U8 G          RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
    ( ^9 B( K1 X. a% l       SuperscriptBox["x6", "2"], "-",
    0 h! R: i. q1 p7 k/ M1 t2 h( q       SuperscriptBox["x7", "2"], "-",
    6 M. M; |5 ]! x- Y1 \3 T% o% N       SuperscriptBox["x8", "2"], "-",
    6 t- W- o3 `3 h5 X% y       SuperscriptBox[6 j) S4 o9 ]" }) j' {: B% k. ^! [
            RowBox[{"(",
    2 q$ p5 }* X. r# K1 f8 C, p         RowBox[{3 z7 A4 C! u& L. Q
              RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    * C7 N6 g7 F% U  }3 J  "-",
    6 c0 l4 Y- |) p* g  M6 v+ a) O7 [  RowBox[{"0.033459349088924784`", " ",
    , |! ^& R! N- t, M2 g   SuperscriptBox["\[ExponentialE]",
    : z- k8 V2 C( F1 Q    RowBox[{"3.1415926535897936`", " ",
    9 d% v" S. M+ c0 ]     RowBox[{"(", : E6 N( P4 R6 ?
          RowBox[{
    9 C' U- J( A. w; D9 W, y       RowBox[{"-", "0.46221081830200006`"}], "-",
    0 ?/ n/ p9 @+ p( h# S- @( e- {       SuperscriptBox[3 H( y# s! j" ~/ g
            RowBox[{"(",
    * P! [! ^! E& ?$ s; Z         RowBox[{$ |: U7 L, k: j3 Y8 p( s5 \+ t
              RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", 6 h) A1 v' l4 d* j
           SuperscriptBox[
    9 l3 w& ?. u! j  Q. S2 T+ E0 X        RowBox[{"(",
    0 U: Q' e5 t6 R0 j5 [4 @" A$ ~         RowBox[{1 Z( m- b( d4 p
              RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", 2 _" f/ \, D0 K* P* i  y+ h
           SuperscriptBox[
    6 q4 ^5 q" ?" k% s. q' |/ c3 f        RowBox[{"(", 5 D/ W  {7 M+ `; S
             RowBox[{! r; L+ V3 e; e, H2 v! j
              RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    0 U6 }8 T2 f0 g0 }7 `2 O1 y       SuperscriptBox["x8", "2"], "-",
    8 G1 H9 l2 t1 C& Y& b/ Q       SuperscriptBox[" X6 M: E5 j! g: Z: X0 D
            RowBox[{"(",
      b+ `- s- T8 L$ |, }         RowBox[{  ]4 r+ O4 O, B1 ~& C9 t
              RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ' e4 [; U3 Z- ~
      "+", + [" |& _; M& k  E, h
      RowBox[{"0.39611806709006653`", " ",
    7 W' J& }8 T0 a4 f; t   SuperscriptBox["\[ExponentialE]",
    ' {5 `# C! `6 r* j0 |) o1 J& o9 K7 z    RowBox[{"3.1415926535897936`", " ", , @, E6 |8 v- q- c5 {/ |. T
         RowBox[{"(", # ?7 c/ {! Y* {8 {+ Q6 ?
          RowBox[{) O& \3 K" W9 R4 c: W
           RowBox[{"-", "0.5837889295140001`"}], "-",
    9 N  U6 t  {+ d! N  ]       SuperscriptBox[
    0 u" E' q' m# j" j* p- t1 s/ x. c        RowBox[{"(", * o% H+ s0 }. B
             RowBox[{
    3 `! P$ v! ]6 X/ U          RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", : ~. C3 k! n( O8 z
           SuperscriptBox["x6", "2"], "-", & R9 C/ A. k( f* w
           SuperscriptBox[* v, d7 U" d) C3 E: Q, z  T
            RowBox[{"(",
    3 R0 a/ Y9 p- _5 `4 z         RowBox[{, W4 l4 ~, T$ ?, X( f8 _5 D; `
              RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    ( O" u8 u+ A: l8 [) W; p9 Q. L7 j/ t       SuperscriptBox["x8", "2"], "-",
    8 B0 R8 z& Y: G% r       SuperscriptBox[- G8 u* r* [4 c$ H2 ]' L
            RowBox[{"(",
    ! {* y. i1 z5 {         RowBox[{
    . N2 }8 R" }0 @' R. a# j" K0 \" m          RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    2 F! S- H* L/ p4 X" Q( p  "-", - Z: p) H# c4 a$ X
      RowBox[{"0.19996885877792045`", " ",
    ' i) t/ W7 k# t/ l/ n3 {0 k) d8 H   SuperscriptBox["\[ExponentialE]",
    + E) r1 ?& L  m6 p: n9 E    RowBox[{"3.1415926535897936`", " ",
    + L4 I5 [6 Z" j; |, R+ _     RowBox[{"(", $ J1 ~  |. Q" o
          RowBox[{' @$ }) c9 ]: |/ Z: Q! V9 B& W. R( p( {) J
           RowBox[{"-", "0.19030188470200005`"}], "-", ! |9 R6 b1 o8 q
           SuperscriptBox[+ D+ k4 B4 F6 G! x$ p6 n
            RowBox[{"(",
    . ^1 v. @1 |' O6 V: N         RowBox[{
    * y, B( w4 E0 H          RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    5 B! b% ~; C* ~6 J       SuperscriptBox[
    , C: W2 R+ _# d0 h        RowBox[{"(",
    2 `0 F* l# V6 m" q# V: v& \         RowBox[{9 B, K, i4 l3 H
              RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 8 B4 f2 W' `( f' e( y$ {' t
           SuperscriptBox["x7", "2"], "-", : x+ _9 s& T2 N) Z% c$ `
           SuperscriptBox["x8", "2"], "-", 6 F9 T9 x& z# Z# A# W
           SuperscriptBox[1 M: V! g0 p( O) b$ i7 }
            RowBox[{"(", 6 t( u4 D+ p3 M) V& U& d
             RowBox[{) M8 s+ j1 u! h! l- t
              RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], + r, Z/ g3 i- z8 x+ `
      "+",
    4 ^4 @' I$ W9 D  u; e  RowBox[{"0.23580523388620744`", " ", . v, c/ r5 U/ {
       SuperscriptBox["\[ExponentialE]",
    6 Z  l# v. @5 E& V: u5 W  f: w    RowBox[{"3.1415926535897936`", " ", " p: [* b) B2 B8 j% g
         RowBox[{"(",
    5 V; _- d3 w$ v9 @9 n% B1 V( \      RowBox[{, }. _0 V9 E0 V7 \/ l
           RowBox[{"-", "0.28518780882`"}], "-",
    3 p; h# N# H- @3 S- x3 {; @- e       SuperscriptBox[
    / J1 Y2 \9 h$ n  x1 w+ L' F  M$ z        RowBox[{"(", ' O' B6 @$ G: ?6 v' r
             RowBox[{! t0 L  y3 b: d* s
              RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", - t, r3 P6 O% T+ m( |  Q* P
           SuperscriptBox[) X, R' V: f$ O
            RowBox[{"(",
    ' w/ f. c* a0 `% a: d2 |( u# n         RowBox[{
    8 g# \+ O& b1 M" H: |; r# d          RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    ; D' ]3 B; ^; ^) ]       SuperscriptBox[0 K1 w# n% J& J9 G0 R& a7 d/ B
            RowBox[{"(",
    . z$ b# M4 T, i         RowBox[{  l; m' S/ M! x! }7 j# q7 ^' L
              RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
    " K! ]( x; N' ^1 s) \8 y       SuperscriptBox["x8", "2"], "-",
    ' h$ a) f) A$ f7 u& }1 Q5 q4 _       SuperscriptBox[8 f! |: H% y5 O, _& A' k  g
            RowBox[{"(", % j* v; F1 k) I1 L
             RowBox[{
    : R7 E+ X0 Z1 z5 w3 r          RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 2 H% d) U" n+ t; Y8 l; L' y
      "+", / }0 }  d4 z& O  t: i6 P  A) u' }
      RowBox[{"0.667027259367853`", " ", " i' @, V, \& M
       SuperscriptBox["\[ExponentialE]", # J/ A- h; i8 y0 v
        RowBox[{"3.1415926535897936`", " ", 9 `0 O% d1 S2 w8 K
         RowBox[{"(", 5 ?" i% s# W9 t9 \1 y) i
          RowBox[{; d* N7 d2 P& `+ O7 b( s
           RowBox[{"-", "0.11387365200400001`"}], "-", ' Q4 U8 _/ {! @/ d( s3 T* C
           SuperscriptBox[
    / _) [" _3 H& T! K; N        RowBox[{"(", . T& U1 U; t* |, I+ |3 k
             RowBox[{
    2 w( L6 \* j! z8 i2 C          RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", & n7 r, C5 v7 _1 W5 @, y# b
           SuperscriptBox[
    ) l# ~3 W& ^* O6 W9 K        RowBox[{"(",
    7 x: F# [1 a' F1 V         RowBox[{! U$ S9 M! w- U% b2 i! t8 M
              RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    . w% m, Q' A/ X7 H& }+ z       SuperscriptBox["x7", "2"], "-", 0 I- y- f/ F1 [) D( @
           SuperscriptBox["x8", "2"], "-",
    / `- l# @8 p1 S; ^4 g       SuperscriptBox[
    ! L* t8 l' N" w/ W, C        RowBox[{"(",
    8 J8 c0 k2 i" q         RowBox[{
    8 W8 p0 }8 s- Q6 v* N. K: X) P0 C          RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    : K5 o) r1 n% m3 M. L  "+", " v3 T$ b5 R' j! P* [! E
      RowBox[{"0.25282438852646905`", " ", 4 M& b1 ]8 s- V: Q1 x7 @3 U
       SuperscriptBox["\[ExponentialE]",
    & K4 S( ~/ T* c    RowBox[{"3.1415926535897936`", " ", 1 e& C! l/ o4 V
         RowBox[{"(",
    8 w, r( N, B0 b0 C" X' E3 N      RowBox[{- \/ S  W/ z8 ~, n2 j; E
           RowBox[{"-", "0.11442644782500001`"}], "-", . M( y+ h& u1 k
           SuperscriptBox[
    ) T  V! N6 d3 e% i! q: j; p        RowBox[{"(",
    1 L  |9 [( O" w- g2 C* e         RowBox[{+ K: A3 R% s+ e8 w( L
              RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", ! h" z3 s  w" r" }! ^3 X1 n
           SuperscriptBox["x6", "2"], "-",
    . Q/ ~+ p6 ^" [  C8 Y       SuperscriptBox[
    $ Q2 @! F( y2 q+ s9 n, Y        RowBox[{"(",
    - x9 t) Q' J' y0 p) H, n         RowBox[{  e/ }& K  _/ P. p0 k
              RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 2 W9 y. A8 X, k# _4 h. @
           SuperscriptBox[6 H# P! y: O3 z  Z  W7 C1 G
            RowBox[{"(", 0 V8 Q. t% [% ~
             RowBox[{
    # v* Y0 @' O& d0 J9 A0 S8 l0 G          RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
    : U! k- w9 Z; q       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    : `  A$ f3 G1 i* B9 l" ]  RowBox[{"0.07581214474544536`", " ",
    6 o4 h' `+ K' J  Y$ ]! K9 K   SuperscriptBox["\[ExponentialE]",
    3 V( R  T7 ?: A7 b    RowBox[{"3.1415926535897936`", " ", # g; o" y2 \$ P6 l( W
         RowBox[{"(",
    + V: e6 Q3 K: B( Q      RowBox[{; k1 w' k- `$ W6 m+ D- Z* _6 F: w
           RowBox[{"-", "0.21008576609800003`"}], "-", ( t2 x( m3 U% x/ S
           SuperscriptBox["x3", "2"], "-",
    ) g1 H2 l( u% @       SuperscriptBox["x6", "2"], "-", 5 D& _4 Y6 P5 t+ o
           SuperscriptBox["x7", "2"], "-",
    ( M- B! n  |2 [1 z! G       SuperscriptBox[: o1 k5 X  V) \
            RowBox[{"(",
    % f  j, T; r  B9 K. ~1 S, O         RowBox[{
    1 A' a6 @! y+ p: T, c; j' |! G' Z          RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
    ) y5 r( g1 g4 G6 ]       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", : j, P- E; ^8 A; i4 ~2 n# P2 k
      RowBox[{"0.10599338351843121`", " ", ! o' n9 ]) F) h; V' v. Z
       SuperscriptBox["\[ExponentialE]", ( a- P: }1 |& ]5 C/ R0 m
        RowBox[{"3.1415926535897936`", " ",
    ( Z! D' D7 J% {3 m' B  K     RowBox[{"(",
    ; ]* V9 K8 t, r' y( A      RowBox[{
    ' [& u2 H  A6 E2 R       RowBox[{"-", "0.4481471925460001`"}], "-", - q$ k) [/ m- ~9 Q: }
           SuperscriptBox[2 h. Z  X' g1 G1 M
            RowBox[{"(", 1 Z, }4 ], G+ F2 C$ x2 k
             RowBox[{
    3 }, Z5 S5 q8 s$ ]1 S          RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", ! a) H' N% o: }) q- h! @$ Q: R
           SuperscriptBox[
    $ [" c( S" b0 u9 p9 a6 b& B        RowBox[{"(", % G# w: u- |+ H1 m' J
             RowBox[{7 T% L, b4 g# v
              RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    & j* n8 i2 l6 _5 [* o       SuperscriptBox["x7", "2"], "-",
    , J& |4 b: S1 N, L       SuperscriptBox[
    1 N3 v' V  _2 v) ]2 h+ D        RowBox[{"(",
    , ~" Y0 p5 ?& m         RowBox[{$ C8 v4 K5 H$ N, m
              RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", / }3 P) s6 q; x
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", $ L- l  j- J; r3 b8 w) I
      RowBox[{"0.5008208386064421`", " ",
    0 b+ M) @8 N3 R* l   SuperscriptBox["\[ExponentialE]",
    : R- g3 R' Z! s) B    RowBox[{"3.1415926535897936`", " ",
    ; T) i/ }& P; Q" U# D0 j2 \     RowBox[{"(",
    / T5 q; Z, I9 R# }/ z% l% K# G      RowBox[{
    + S( S0 y5 M2 Q8 n       RowBox[{"-", "0.08722659614000003`"}], "-",
    * _2 D5 T: h# e$ E4 X       SuperscriptBox[: ~9 O1 p! `+ W, i+ p" }
            RowBox[{"(", " R, E7 r  ?' Y! i
             RowBox[{
    / D# p# d6 p9 ~          RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
    $ f/ J! {7 ]) h0 a/ s       SuperscriptBox[$ P8 ^3 G# w) l
            RowBox[{"(",
    - J: O* H, Z( v0 x         RowBox[{& [. B, a: [& c) f8 Q/ l1 v
              RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", 7 X! b  k/ m. q9 m# D% C6 ~  a  g
           SuperscriptBox["x7", "2"], "-", : g0 D5 F/ Y# L9 [# d
           SuperscriptBox[
    ( l3 A9 N7 n4 u1 m( F/ e, y( Q        RowBox[{"(",
    5 ?! H8 x! Y$ H- ?         RowBox[{
    5 W' ~) @9 z- ~1 V          RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", ) a4 b% H, b+ j0 u$ A
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    $ H& y& U; w. g2 `1 b5 x  RowBox[{"0.32564305572552343`", " ",
    4 E( _' z! r5 t4 D! q9 M; S% I   SuperscriptBox["\[ExponentialE]", $ e- {$ E% n, |* I
        RowBox[{"3.1415926535897936`", " ",
    ( U5 o% F: Y* Y& O" u: C7 e5 I     RowBox[{"(",
    ) [( k6 v9 l. Y      RowBox[{
    1 W, U3 N! Y2 S8 m, n       RowBox[{"-", "0.23738217000100004`"}], "-", ! G' ]" e( U( u. K" N8 Y
           SuperscriptBox[$ p5 h7 Q5 P: J( v$ h2 N- M0 x
            RowBox[{"(",
    ! b0 q9 F, B; l& J+ b         RowBox[{* |1 e/ \* V: {, s. C/ ^5 c6 x
              RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", ' v& @+ p6 H  [& ]
           SuperscriptBox[& _/ S$ x$ T! u9 O9 {; i2 h
            RowBox[{"(",
    . a7 k! H# M& v2 w; _% Y         RowBox[{
    1 W& Y! N' m7 G* K/ ?* O          RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", ; F  z* G3 P+ q' |% _  R9 G4 _
           SuperscriptBox[
    * {3 ?! {" \0 i; m% w: h% o3 ]        RowBox[{"(", ' \; b8 [& p  P. g* G
             RowBox[{
    / g- H3 x6 Y5 X          RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", 9 _! C2 H: r5 u: n0 f$ Z) z
           SuperscriptBox[5 j9 k; x+ R% E- B
            RowBox[{"(", ) K1 R8 x- @7 C+ T" R0 R( e
             RowBox[{
    ! k' n( |) a- |6 A          RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", ; X5 z+ t, t: L' a* H# Z
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    * a8 a% U+ n5 ~: Z/ U2 N8 S( Q  RowBox[{"0.6665374509702793`", " ", ) O& m; v, e% s4 e* @# g: ~- n1 V
       SuperscriptBox["\[ExponentialE]",
    2 @' [6 w" o8 D; ?/ N    RowBox[{"3.1415926535897936`", " ",
    6 f  q/ o+ w( U) j3 i     RowBox[{"(", & }# x2 e  s  ^8 [" \2 |) M
          RowBox[{( l* v  x1 v3 C  p% k0 J# f! ?6 u
           RowBox[{"-", "0.19162171876400003`"}], "-",
    # F' d' f+ {& w* U, Q" |. ]+ b' S( x       SuperscriptBox[; e. ^' k7 O& N; t
            RowBox[{"(",
    : T) j. H$ I( ?* L( R1 P) g         RowBox[{& B6 A, B. ]6 I( W4 I
              RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
    5 f$ Y. q0 K( Z- w4 t  W. [. Z       SuperscriptBox[% \' \! r' A+ k: N
            RowBox[{"(",
    . E" q) B+ M& T5 N& a5 ?2 k5 z9 B/ D" ?         RowBox[{$ S  H, `" e0 ]2 |8 d: r
              RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    ' l- v( {2 A; r2 P9 L1 [# h5 O7 @       SuperscriptBox[8 T, O5 v% G6 y6 ~
            RowBox[{"(",
    " O+ l; q0 ^" I3 u0 T         RowBox[{$ Y; |" \/ g( c8 n; E5 l* y
              RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    ; @, j, D4 c1 [; N& _- H       SuperscriptBox["x8", "2"], "-", + ?! Z& X& J4 D: ?& S9 A
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    0 r  _- r: A# I9 @& {  RowBox[{"0.4812237524557293`", " ", ; {  \9 R, u# D6 @+ I
       SuperscriptBox["\[ExponentialE]",
    7 T  ^% N, t8 K    RowBox[{"3.1415926535897936`", " ", $ d! A* B! x( s
         RowBox[{"(",
    7 ^6 j* N/ m4 R6 X  I; @8 k      RowBox[{
    7 m' o1 U- x* p: R2 ~; y       RowBox[{"-", "0.109748954594`"}], "-",
    + O$ I. Q' {6 f       SuperscriptBox[
    5 E& F7 X0 G! B. }, E$ N        RowBox[{"(",
    - |  v; c. {9 ?7 |8 {; y         RowBox[{
    - N' D/ m% [. I# x9 H          RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
      [' M3 i- ?% G1 `0 X6 C5 |       SuperscriptBox["x6", "2"], "-", + ^. x: e3 J8 f* w
           SuperscriptBox[" c5 N% D+ \, C; Y& R8 z9 S
            RowBox[{"(", 0 b/ z( N# @" _& D2 l$ A
             RowBox[{
    / q' P0 O) L5 S/ ^6 I          RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", 5 B9 f  j0 Z  f& x1 @) n* ?  n
           SuperscriptBox["x8", "2"], "-",
    , Q. D0 h$ X4 X9 W! s       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",   I/ `" B8 _; \, u
      RowBox[{"0.176024676254045`", " ", ) ~0 d( G+ d& k
       SuperscriptBox["\[ExponentialE]",   u; S1 B0 u$ z! S6 t: q* w6 R- h! t
        RowBox[{"3.1415926535897936`", " ", ; h+ F* ]1 x8 J$ ?
         RowBox[{"(",
    , l: v. R0 B6 n' z* g. ]0 p; @* t9 Z      RowBox[{
    . O+ K/ Z9 I; m+ I, `# O: V- w       RowBox[{"-", "0.14616677062500003`"}], "-",
    9 y# ^) t4 Y* Q/ v7 L$ V       SuperscriptBox[
    : J5 a( T: {6 I" u% B        RowBox[{"(",
    3 p( I) E# ?  u/ |  b! |         RowBox[{
    - U- P3 C* N4 d6 I  i: M' B          RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
    7 W4 s2 S6 `# K: Q/ \+ A       SuperscriptBox["x6", "2"], "-", 8 d9 i8 ?5 M  [" S, Q8 m
           SuperscriptBox[7 O& E! K5 W/ G! p
            RowBox[{"(",
    5 @# ?9 C2 s, k2 a         RowBox[{
    6 t* R1 U- r* M          RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", 3 m' m1 f6 e) A, P! o9 C
           SuperscriptBox["x8", "2"], "-", & z& L2 p6 e: Y, i
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 6 Z  w6 X# R' e5 D+ S& @* ~8 c" n+ T2 J
      RowBox[{"0.5945873894818965`", " ",
    * S% x1 _  h5 l( g0 F" B  B   SuperscriptBox["\[ExponentialE]",
    * x" G7 a! `; M2 c4 j    RowBox[{"3.1415926535897936`", " ",
    8 S2 [7 Y  A* }, T     RowBox[{"(",
    ' q& w" i5 w: X1 C" k  P4 {9 ]      RowBox[{
    $ F4 n: f- M4 L% y8 l2 I# |- e       RowBox[{"-", "0.10407011464100005`"}], "-",
    " M1 Z; n- P  @$ K       SuperscriptBox[
    1 f( U8 [3 q; D, G6 V" D+ U        RowBox[{"(",
    % M0 _3 p! P; K$ u$ g5 K. P         RowBox[{
    3 n) v! D( k' z! ?; [! X7 l          RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
      O) v1 H, e/ f4 z- ]       SuperscriptBox[3 q) {0 k2 S( @4 S1 }" D/ r
            RowBox[{"(",
    + D; L7 K' k( @# c% s4 k+ l0 n         RowBox[{/ t2 `" o* Q7 c% [( Y- F7 U
              RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", 0 Y3 |- V; r0 B# s* z6 B, a6 A
           SuperscriptBox[
    8 M, S( P1 T  E# a5 Q9 G4 A        RowBox[{"(",
    ; c/ W" L+ ^5 e. z: R         RowBox[{7 k/ p6 S# R/ j( L0 B: N* F2 d2 C
              RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
    . B( D6 G, w2 J" V7 ?$ v8 J: ^- r) S       SuperscriptBox["x8", "2"], "-",
    % \$ y( a, f. U$ H" J) ~       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    . W3 [" `* H3 q& S, z! p0 F0 Z  RowBox[{"0.027591936509660075`", " ", : l, o1 U$ K; c2 _
       SuperscriptBox["\[ExponentialE]",
    " V+ `$ L2 I" `1 {    RowBox[{"3.1415926535897936`", " ", 9 @5 @% @* H5 J. h; {7 b
         RowBox[{"(",
    , [! F. |' g: }; |& O      RowBox[{) w# ^9 E3 W7 `! u
           RowBox[{"-", "0.31770463544200006`"}], "-", 5 ?) _  z! `6 v
           SuperscriptBox[
    ) r" X$ o, H% g6 B        RowBox[{"(", 3 }3 P: v* b( Y2 f" {+ }9 g8 A
             RowBox[{: M' M7 K5 V% n1 d( [& e4 n- v
              RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    9 x( k: G$ b0 Q6 L& T7 P       SuperscriptBox["x6", "2"], "-", ! `: ~. m; A% `$ q! J8 r. F
           SuperscriptBox["x7", "2"], "-", 1 f2 `) d" ]# r; h# v, m- [9 r
           SuperscriptBox["x8", "2"], "-",
    . `) l. }; q- j$ U       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    $ z" s  D, T1 h  Q- f& T  RowBox[{"0.5252475961933536`", " ",
    $ F5 X6 h( N' N9 c, M   SuperscriptBox["\[ExponentialE]",
    ; w8 H* [0 O4 y# t9 I    RowBox[{"3.1415926535897936`", " ", " s9 M" g- F, i! j1 y4 C
         RowBox[{"(", - @: t1 j* r1 _+ k, x  F8 c
          RowBox[{
    & U8 S: D2 w: z# q$ H9 V# f       RowBox[{"-", "0.6410867660730001`"}], "-",
    ; P! T' ]  s2 a0 u5 N       SuperscriptBox[
    4 x! |; s" q9 U* ]; T6 ~; C, i        RowBox[{"(", 3 z5 x) v3 U. R/ z; q
             RowBox[{
    9 U$ S% Y2 q+ j4 Y9 f          RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    4 S- k( Q/ u* A8 ~# e       SuperscriptBox["x6", "2"], "-", ; d3 c$ Z' q/ j3 e' p0 L, J
           SuperscriptBox["x7", "2"], "-", " k: i. G8 n2 G$ K4 ^3 x8 E% I1 N
           SuperscriptBox["x8", "2"], "-",
    - O. Q3 a4 w2 G' m       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", $ o( H" q7 f% _5 @6 _% ~
      RowBox[{"0.32047284779644936`", " ",
    : M! \) B2 O# }6 |' z7 m+ \   SuperscriptBox["\[ExponentialE]",
    $ Q5 L: ~7 ?8 }- F9 W* P    RowBox[{"3.1415926535897936`", " ",
    & Z; A' N2 w$ H     RowBox[{"(", / `" H8 A3 b4 r, ]
          RowBox[{% d3 f, N2 r) c/ q) x  Z( y: m
           RowBox[{"-", "0.155663887074`"}], "-",
    & \+ S% N4 u! p4 U% |  U6 Q       SuperscriptBox[
    $ t0 l0 c! b- y( B        RowBox[{"(",
    9 {: @, A. ?1 Q/ [2 {7 J         RowBox[{& X  X( F& Z3 W
              RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", % T# p; E* L* l; j; l
           SuperscriptBox["x6", "2"], "-", ) M' Z7 g" C8 V8 f- C% Z
           SuperscriptBox["x7", "2"], "-",
    8 H4 r; C% b6 Y1 e: t       SuperscriptBox["x8", "2"], "-", 5 i+ F( q# Q' p
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    , j) A% d/ }4 c$ |8 Q9 h$ t  RowBox[{"0.7528674241482847`", " ",
    * s2 e( C( N. U% V& N   SuperscriptBox["\[ExponentialE]", " T/ |4 m# L: C( f- x6 y) L( i
        RowBox[{"3.1415926535897936`", " ", 2 z% p/ y, L9 @7 n
         RowBox[{"(",
    ; M7 o. M2 K: D& c      RowBox[{
    4 c) R/ L: |$ r) R+ E2 V5 C       RowBox[{"-", "0.14151232428600002`"}], "-",
    + n$ l0 |5 O% h1 ~3 k* j       SuperscriptBox[
    - N! s2 F7 R2 U        RowBox[{"(", 3 u3 ]6 f% i: C1 w0 p
             RowBox[{
    , \) A( n; x: ~5 A4 V- f          RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", 5 @+ C8 b2 r; G, I+ |+ F! Y9 p' p, H5 M
           SuperscriptBox["x6", "2"], "-",
    5 W8 c5 Q' h2 H0 Q) e0 }       SuperscriptBox["x7", "2"], "-", " g- Y( P* H2 P. ?6 ^: x
           SuperscriptBox["x8", "2"], "-",
    9 }. r* Y% F( y       SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",6 Y3 _/ C; [3 ], t
    CellChangeTimes->{3.5779628386090403`*^9}]* |0 @! O# g$ l" i7 K
    }, Open  ]],
    8 }( S" y' Z/ }: M9 ^  T: A
    + D- n5 n  H7 `5 N3 m6 t: eCell[BoxData[" "], "Input",
    1 J/ q; o8 Y7 U8 M+ ~ CellChangeTimes->{3.577962835879035*^9}],
    9 ^( y. D* e' j# u) ~; q* w
    2 _7 m' n: t$ D  o2 s  \Cell[BoxData["\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\:4e3a"], "Input"],
    - Z/ k! @# Q, p8 [  d5 p& Z- [# s- J- N. D
    Cell[CellGroupData[{8 v; V/ D: @/ m3 x$ K* v& A

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

    使用道具 举报

    569646632        

    0

    主题

    7

    听众

    46

    积分

    升级  43.16%

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

    • 签到天数: 9 天

    [LV.3]偶尔看看II

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

    使用道具 举报

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

    0

    主题

    8

    听众

    44

    积分

    升级  41.05%

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

    • 签到天数: 12 天

    [LV.3]偶尔看看II

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

    使用道具 举报

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

    qq
    收缩

    • 电话咨询

    • 04714969085

    fastpost

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

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

    蒙公网安备 15010502000194号

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

    GMT+8, 2026-10-10 03:30 , Processed in 3.435639 second(s), 105 queries .

    回顶部