快捷通道

QQ登录

只需要一步，快速开始

  注册地址  找回密码

数学建模社区-数学中国

留学>>
返回列表 发新帖
查看: 10632|回复: 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
    问题完善一下！或者把代码贴上！& m3 i  L+ v, F6 T; L
    回复

    使用道具 举报

    琳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 ; e' ~4 e2 @8 F9 Q0 P
    神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗

    / ?! q4 `1 v1 {; L(* Content-type: application/mathematica *)- `: Z9 t4 b' e$ C% l- j- n
    % L: h/ w" S2 @# C
    (*** Wolfram Notebook File ***)
    # g$ p- z4 l/ K. G(* http://www.wolfram.com/nb *)  }$ x# Y5 }( M$ U$ g7 _$ S! \

    ! y2 ?1 E/ H$ y* x4 E(* CreatedBy='Mathematica 7.0' *)! b9 n( Q1 h; G" @' L  {# ^

    " D+ }" b) e/ L+ L# }2 s0 l  J(*CacheID: 234*): R! H1 @" X! D, K' W- }) u
    (* Internal cache information:# R% K) B. x, e* g# B
    NotebookFileLineBreakTest7 n# T* x3 B! X- P/ E
    NotebookFileLineBreakTest
    5 e  j+ b: W, s6 ]2 rNotebookDataPosition[       145,          7]
    * o% M4 t# ?7 b" ?* NNotebookDataLength[    423629,      11534]0 L+ n, B# l8 i; f) D  U5 I
    NotebookOptionsPosition[    412607,      11173]8 z" ]; k: ?: [2 H5 R; K* R
    NotebookOutlinePosition[    412953,      11188]
    2 h2 C; o) b1 P' O. p; UCellTagsIndexPosition[    412910,      11185]9 w/ G2 {4 K4 D& X
    WindowFrame->Normal*)8 U7 k) M1 `2 M; l+ ^

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

    ( h! F8 J+ H! C! a: ]$ G8 ]3 ~Cell[BoxData["0.2`"], "Output",
    * p# ^. R+ ?/ ?3 b7 ?1 Z3 E CellChangeTimes->{% Z0 y9 ~8 X2 l% f- x
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, ; Z& P: w' N( S0 D4 M/ k1 A
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    : }& E( C" ^$ r  W. l4 \   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, ; r- B! h  r/ s; _
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
    $ u. f+ `5 |$ n3 s3 P4 ]. B   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    ' |; ?4 K+ j9 X8 v7 ~9 _   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    . W( g% ?2 V3 S0 E   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, ' f5 i, Q5 q9 x, D
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    6 I) G6 t9 v) q3 c5 l   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, * G- v5 G' @% Q8 `8 P/ z; S$ g- D& ?
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, $ ?; {8 u' u+ q: ^& L$ E8 U: |
       3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    2 q2 H0 D  V4 D% \6 m$ ~4 w   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,   L9 @3 g# b9 w0 d2 q
       3.577960510686717*^9, 3.578012149296875*^9}],
    ; \* K7 x' G" l) {) O1 n  |  E: ]( Q& m
    Cell[BoxData["1"], "Output",
    ' Z) t8 T! d. {7 ?& q CellChangeTimes->{0 H. U/ \3 S! K
      3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, , ]3 f% K$ a6 R% Q1 g- F
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    # O2 z1 b* M, X& l+ u  d   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    ! c3 X0 l  S' b( @8 n   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {. |, F3 r' m: T/ P1 n+ Q
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, 7 p9 |$ E- B) o) @# E4 B' O, m
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {$ V1 I* \& m# t1 d
       3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, 9 _' [6 p% A1 b
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    ) G! O! X; {8 W7 V1 \2 b/ A9 N, c( s   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
    $ Y5 e% ^( Q! s: q" h4 F   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    2 m) ^( R. w% K; \9 X' n( K; l& Y2 B   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, / s) o6 s) {8 U, _, V
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, - s3 K) D) L2 F3 |6 `% L* U
       3.577960510686717*^9, 3.578012149296875*^9}]4 Y4 F) ?, w( q! o
    }, Open  ]],$ j. u$ I* `8 f7 [

    3 y! o, [/ K% B9 @" H9 l3 X% ]4 }; lCell[BoxData[
    6 a* y: a- N( e& S2 Z' Z RowBox[{"For", "[",
    # \, w+ F' `( M" q1 I  RowBox[{
    3 f1 ~! z+ d/ f7 ~, P0 _/ F; \   RowBox[{"k", "=", "2"}], ",", * ]2 r9 X; [8 a5 t$ d% \
       RowBox[{"k", "\[LessEqual]", "60"}], ",", ' E0 A8 ]) R5 H: b/ ]2 v
       RowBox[{"k", "++"}], ",",
    / \; T9 O  @3 x: N: r' Z8 k; ?9 X   RowBox[{"{", "\[IndentingNewLine]", . I' b7 q5 y7 X
        RowBox[{
    ' j0 v$ B( S" E! N     RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]", ! S% |0 M: W  _3 y1 N1 x
         RowBox[{"For", "[",   c- ?% C3 y+ X9 Y
          RowBox[{
    " K$ N' J: H6 v5 n8 v  S$ B6 k! m       RowBox[{"j", "=", "1"}], ",", % }& j; {% P8 @( t
           RowBox[{"j", "\[LessEqual]",
    # H5 U+ Y: k5 U2 B" q% g$ D        RowBox[{"k", "-", "1"}]}], ",",
    ; L4 P# ^, n# @       RowBox[{"j", "++"}], ",",
    4 Y, d1 ~7 I4 B# B4 O9 s' X       RowBox[{"{", "\[IndentingNewLine]",
    6 q2 K1 u8 n) a) `        RowBox[{8 b! N  H7 F6 }7 A0 q) G) W. d
             RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]",
      X6 ^# U7 I  `# a" u. I         RowBox[{"For", "[", + q" b. T- \/ n# P; F! h
              RowBox[{6 m4 h( X% b  \
               RowBox[{"i", "=", "1"}], ",",
    8 m; N! V/ F, F! B! r           RowBox[{"i", "\[LessEqual]", "9"}], ",", / ~7 g( j3 t3 N
               RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
      `  X+ L; \* p. C5 l8 F           RowBox[{) v6 z' g* j( [% C. W/ N  X
                RowBox[{"r1", "+=",
    - B4 c& B2 R' N4 Y- p             RowBox[{* W8 q5 w3 I' r2 l( K
                  RowBox[{"(", $ i' E; Z5 q5 w1 ], Y* B
                   RowBox[{: }  p3 f+ L: w9 }
                    RowBox[{"CM", "[", # J; M" f. u% U5 x/ c* H/ o
                     RowBox[{"j", ",", "i"}], "]"}], "-", ' l8 ]3 Y: A% |9 T4 Q5 w3 U
                    RowBox[{"Data", "[", ( Y: i$ p) o# t% h
                     RowBox[{"[", ! a" N: M. x5 h' w
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
    ! n7 l( l: }0 ]% e) U9 Q6 ~              RowBox[{"(",
    # B( n8 E( ]$ {% V               RowBox[{
    / Z7 k5 u0 @" l' k9 y, }                RowBox[{"CM", "[",
    # E" d! L' W- b8 l                 RowBox[{"j", ",", "i"}], "]"}], "-",
    " E8 Y5 _  K1 R                RowBox[{"Data", "[", 8 e& r1 M$ v* o$ s* @- J4 S
                     RowBox[{"[",
    8 `2 |$ X4 v* C% a: K6 }( j2 S- b                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
    2 T$ `$ Z2 v6 {$ C5 E3 P           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", & j* b* d7 J* L- g
             RowBox[{"r1", "=", 9 b. S% g0 b6 R+ i8 T3 p
              RowBox[{"Sqrt", "[", , h& o$ u. Y! _6 m
               RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
    % v) `, e8 E! _. \5 j% \         RowBox[{"If", "[", " ",
    $ Z5 {5 Q1 `( g, `& ]- r7 d          RowBox[{# W% }3 L/ Z' s0 `
               RowBox[{"j", "\[Equal]", "1"}], ",", " b0 v; M- K* B' ?  j! _  }' q
               RowBox[{"rmin", "=", "r1"}], ",",
    4 @; V8 X8 S0 b5 D           RowBox[{"If", "[",
    9 h4 s; ~* C  ^            RowBox[{
    - t! \  X: w8 j+ [+ h             RowBox[{"r1", "<", "rmin"}], ",", 0 Q$ l2 A$ F! q* D6 I
                 RowBox[{"rmin", "=", "r1"}], ",",
    : A7 U; n6 f3 `" Y: g' Y7 F( {             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
    " V4 @1 Y! W$ y) F! c8 U( _; G        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";", ; ]5 s* U3 ^& K7 `* [
         "\[IndentingNewLine]", ! B6 ^4 B! L. l0 ]( R( o- a, P
         RowBox[{"If", "[", ! s8 l( e' U2 ]* j3 S. V4 t* ~
          RowBox[{5 G% S3 s5 [8 b3 Y
           RowBox[{"rmin", ">", "r0"}], ",",
    , f3 ^& ?# t( [0 p# g4 b3 p! `/ D       RowBox[{"{", "\[IndentingNewLine]",
    / f! Z2 Q1 ~0 c9 I1 {( |        RowBox[{* U- j  C! S1 V$ f1 _
             RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]",
    : x5 L$ u+ R/ z" _9 I9 U- F         RowBox[{"For", "[", 2 i+ g( ^3 Z  j! `0 z
              RowBox[{
    1 q9 K* [' `4 m( a+ S           RowBox[{"i1", "=", "1"}], ",", 6 I0 e% o5 @" ^2 b, T3 b
               RowBox[{"i1", "\[LessEqual]", "9"}], ",",
    ! I  n5 x" T6 n- o: Z) n           RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
    8 r+ f3 w4 g, Z2 U5 p           RowBox[{9 ~, s! F* A! j3 j
                RowBox[{, I" N% b8 T; T+ l  L4 W
                 RowBox[{"CM", "[", * @2 p* m, R4 Y* e5 }
                  RowBox[{"M1", ",", "i1"}], "]"}], "=",
    / A5 A$ B0 U' ^- S             RowBox[{"Data", "[",
    $ r7 ]' ?3 I, R3 ]# d; ?+ f              RowBox[{"[", ' i6 H  @. L. i. w% C3 b: P2 V. j
                   RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}], 9 d: l: A* A8 s" ?" E# ^
              "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", 1 k! ~: F% D" \1 i0 C9 @
           RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], ) |& u( H  R" f7 n$ z( {8 B" W
        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
    8 n" Y* ?  S, j. f CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {! O4 k4 D8 _, \- \
       3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
    ! e! B$ [* g* L4 ^   3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {, P& q/ y9 r8 l# X. a) g% v$ {
       3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9, 1 n5 }# J+ x3 |& A( g
       3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
    0 b2 V. t4 T4 A4 V0 z   3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,
    * p0 Y) y; u4 W: C   3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
    " g& D5 ?1 g- W& J) y   3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9, 3 I- E3 _( B" I" i
       3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {2 \  s! D5 [3 D; b% [& K
       3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9, / R7 j5 j; ?+ k& b$ c" L) u
       3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
    3 X8 L8 U( z6 E! f) X   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9, 1 H; X4 r( s- N: A
       3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {4 @- h9 |4 I+ k0 ]9 Z
       3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9, 3 |3 H$ U3 I5 T2 \
       3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {* d1 n, u7 N, T+ S
       3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9, ; K# y; u, N/ M# j
       3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9, 0 ?, d$ o7 V, E! a  h" u$ e5 n
       3.577958821991373*^9}}],; i# P! ?0 v5 ]/ U- ^- o* i

    # y. B: H+ e% `+ i4 p0 M, Z- v% HCell[CellGroupData[{
    & G/ L/ ^. C% n/ Z6 F5 _0 q5 \# B0 i) I: i8 _
    Cell[BoxData["M1"], "Input",
    9 o* p- n1 B4 F) c  U' a, w CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],  Q) f0 Y  T( I5 B

    # K5 t3 C( Q) [Cell[BoxData["21"], "Output",
    : W& ^' M& x+ k( F/ `# R7 O& B CellChangeTimes->{
    9 J3 L( ]' G8 l3 m3 f  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
    ( @. v) d. [1 o: o# {   3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9, , n4 v! D* {* h" _+ m
       3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
    & d+ r5 P4 P3 ?; V' l( f7 i5 {- r+ X   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9, ' F5 @1 ?; H: l. I' {
       3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
    ! Z1 V& M1 d5 H+ O: k$ Z   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, " k# ~& B4 d! J3 l5 d: X
       3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
    . v0 `- S' |& N& I/ X! W   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
    3 |- H/ `6 m( r1 ~! O   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
    1 p; H$ o% y2 l* P: N   3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, 4 k1 F& R# s) l) T
       3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9, ) S: p1 d: ?( l% U" M! [8 S
       3.577960515600726*^9, 3.5780121541875*^9}]
    % G% H3 X1 l6 H: q}, Open  ]],7 [" g& ?4 P0 J) ?( Z( R( A9 z1 b6 l
    # z& r) x' j3 ~# V% V% G
    Cell[BoxData[
    8 ]3 U- W5 E  @ RowBox[{. \& g+ d9 |; [# j# f, @
      RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[",
      w1 M. w3 V6 N5 U4 _   RowBox[{"1", ",", "i"}], "]"}],
    ' k1 ]9 P( [9 q# [& k( Y  RowBox[{"\:5230CM", "[",
    - w( P# e4 f4 K0 k- h8 M   RowBox[{"21", ",", "i"}], "]"}], # ~( E% G6 i) _' t6 U; Q
      "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
    0 d1 F. A/ f3 ~1 C4 A\:51fd\:6570u1\:5230u21"}]], "Input",5 U0 g$ L6 S, ^" I0 u7 k
    CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {3 z. k: q6 j; k# h- M) y9 z
      3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9, . E( Y% W/ q" k5 f- t( u
      3.577960526583145*^9}}],
    0 G/ V; v1 [" E7 J( m2 @) V! s9 \9 H5 T" \6 P3 F3 O1 E% G
    Cell[BoxData[
    ) e" O8 O5 n" [: Z& p3 Y& W. r+ z RowBox[{"Clear", "[", "Delta", "]"}]], "Input",7 W+ w0 c) d/ P$ @/ V; n, r
    CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],; p! H# M" d- g+ x1 W% z, ?
    ; ?6 n# D% }& z" c* L  X" j
    Cell[CellGroupData[{+ O) h3 |' a4 ^% e) k
    7 u2 ~; j$ d- r* p% i
    Cell[BoxData[3 M$ c" _4 W, a& B. v* u4 u
    RowBox[{"Xa", "=", % c* r, x1 B6 i7 O6 q
      RowBox[{"{",
    / \, g! x9 S1 m  U   RowBox[{0 o# u+ Y3 Q5 ~/ K% m7 z0 j  K# T
       "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
    * U, ]: h9 K1 [+ M4 z    ",", "x8", ",", "x9"}], "}"}]}]], "Input",
    , f. W) ^' a$ s CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
    - t% O' g+ ?% m/ V5 z% Z6 S
    3 n2 n4 `% [6 B' lCell[BoxData[; D6 o3 c# F+ c/ _7 L# j4 R# @
    RowBox[{"{", 1 w1 J, M, o0 f; z* z* C2 ?
      RowBox[{7 u% ~' J: d9 k3 z
      "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
    2 W' S' V6 P, g    "x8", ",", "x9"}], "}"}]], "Output",
    2 X8 K- I. B* ~; t0 C/ y CellChangeTimes->{8 X; a: m# ~5 v( \  ?0 f8 P
      3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
    5 u  M& V9 h; ~4 n   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
    8 }9 g# X7 E, ^. D: G7 A. x+ q   3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
      }2 P9 q% _0 E8 ?1 M1 A; ~6 o% v   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, + t  }7 T% Z7 u( n) e; t
       3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
    6 m( f' M1 f! D2 Z2 v) P# }: M   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
    7 V( q1 P6 Q$ \( G* x' `   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
    ) ~0 W: {* _# f3 W0 p6 ?   3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
    3 j4 z9 r1 s4 g( @, H, ?0 }   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {7 G# V( S0 v, S1 V4 z! T6 `. [$ V
       3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
    ' d) [% U" C( B2 u  S3 a% Q5 \   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
    3 O9 _# t, X  Z   3.57801215725*^9}]
    0 e$ `2 u0 R* k' J1 q+ A3 e}, Open  ]],
    7 V% ~9 ?8 X  S- x& x/ ?' Q% {4 i, n( H2 }5 |7 A1 M+ Y3 [
    Cell[CellGroupData[{+ X  k. k9 \' r

      C- w: W. w% R5 B; |/ g7 m0 ACell[BoxData[
    0 M0 m; A. H( i& C$ i) f$ ~9 P8 q RowBox[{"Ca", "=", % N8 L3 y3 Z- b. L8 M  F" U( `
      RowBox[{"{",
    0 D% H. A4 m: Y8 @1 P   RowBox[{
    8 `) H. _; x2 j/ v/ }/ I/ n   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
    ' h4 P! w+ Z, ^- ^7 {5 `* E    ",", "c8", ",", "c9"}], "}"}]}]], "Input",6 {0 B* x: m* e0 f. L, o  \/ s+ {1 d
    CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],! T2 Y* J7 i. |

    ( E' m- z* Q+ w2 `Cell[BoxData[
    / ^# ]# w4 S9 G# ? RowBox[{"{", 5 l8 V) ?- V5 v; i. W- @
      RowBox[{
    , \4 Q. M+ Z+ S# n! U1 b  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
    # a. K2 }  g* l( S7 F: T    "c8", ",", "c9"}], "}"}]], "Output",
    ; j8 [1 L+ X" J  i! ] CellChangeTimes->{* {) c, _6 O* E; H
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
    . C7 _- S& B' d1 o* }% g   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9, # D+ o+ t' y( L$ h5 Z$ R
       3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
    / l2 z( ^% E  O% A8 s   3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {0 ]2 i" a6 ]* J
       3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,
    # I9 p5 K, T1 H8 ?/ s+ b   3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9}, 1 M$ V+ l1 ?& V3 O" [8 e
       3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
    + z7 V3 {1 [2 V! S& L   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, 4 ^6 H5 i! e9 I% Q
       3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
    % Y& S& I4 b! w& C, r   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
    % b5 Y$ G4 J9 k0 P* _+ p   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,   g2 I+ I8 g$ h* L4 z  o
       3.577961904604212*^9}, 3.578012158671875*^9}]# C. j6 N5 R# R' H2 X+ k
    }, Open  ]],5 P/ B1 G2 v% g0 X, q0 z$ x% ?: I- P

    , s% Y2 x; b& u4 A' ^6 wCell[BoxData[
    ) U- C6 S! w7 J/ }) X0 B& h8 I RowBox[{"For", "[", - U( z! M6 _5 t  y9 A
      RowBox[{
    9 U3 ?* `8 B% \' M+ v& B# x   RowBox[{"i", "=", "1"}], ",", 0 R% k$ A  ~) a+ s8 J  @+ D
       RowBox[{"i", "\[LessEqual]", "9"}], ",",
    ; m, r0 q! o  i  r/ q1 V   RowBox[{"i", "++"}], ",",
    ! [8 U/ Y, }# d' r) X# I) K0 m   RowBox[{: y2 Y) s, ^2 X  x; Q( H
        RowBox[{"Ca", "[",
    / H  u2 d$ z" b5 ^2 }6 s     RowBox[{"[", "i", "]"}], "]"}], "=",
    : y+ Q  Y: R/ z1 h4 Y. {& ~* g    RowBox[{"CM", "[",
    6 F6 o9 i9 k* D5 u7 R& y     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",% r: \; c4 l' B: d0 @* K
    CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9}, 1 V7 s# Y7 a, A0 E5 o
       3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
    - G* V' G6 c. F* ^* [   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
    ; J" R9 A# K! ?1 G9 W4 A+ U   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9, 1 d& Z9 Z8 }" U- L
       3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, / ]2 }  ]: K. f8 ]& O
       3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, 7 \+ W  J" i% [7 {
       3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
    ' s, M; Y, @/ O( ?: g   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
    7 H: s$ _# e  i   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
    & U- R2 E4 U) E! }- w" S   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
    6 z6 O- {& q1 L$ x7 k   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {' u% O" `0 ~' W" h5 d% ~
       3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9, ) V6 v/ i2 s4 o( K' P2 q; k
       3.577961906897415*^9}, 3.578012176296875*^9}],) J7 A- i7 F3 M$ ]

    7 ^) q& O+ h8 }% f1 g* q$ ACell[CellGroupData[{
    3 V3 e' ~0 a: e7 K* o" B  D; R
    ! t& K  n/ G1 J9 I# ZCell[BoxData[
    9 D* E! F+ L3 Y/ }1 V RowBox[{: E% L& h! |; A9 ^
      RowBox[{"(", + t) A! [6 n& t
       RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ( T+ J) y: ~5 w
      RowBox[{"(", - c! _9 ?- B6 Z  Y" L8 d9 L
       RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
    ( [, E7 ?# P" a# e9 r4 W; e, F) u- i4 O8 S3 E& V
    Cell[BoxData[
    1 [- l. X  {1 J: J6 g: H RowBox[{
    8 l7 N0 K9 C: d* p  SuperscriptBox[
    ' k3 R8 T/ s) ], [( x7 W, f" s" m   RowBox[{"(",
    7 ^$ `2 c/ w6 l/ _" m$ x. l" I    RowBox[{
    & k( H# ]* F" C7 m6 z     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
    0 m- [% }* P" J  SuperscriptBox[4 \- ?/ ?' t. Y% o
       RowBox[{"(",   [0 ~% Q" K1 W
        RowBox[{
    % n0 h  e, y: ?' y; ?     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",   U7 g) L3 I0 F4 `3 I! a
      SuperscriptBox[& a3 c+ w% ]7 I1 o1 ^1 n" N! u1 Q
       RowBox[{"(",
    ; c, E5 X! j0 z8 a- u    RowBox[{# c5 P' [( ~8 {- I) W& e
         RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+",
      [) r( B+ c( W# x  SuperscriptBox[+ C5 k2 M8 ^" ]& ?& C& I) i' d
       RowBox[{"(",
    ! O3 k% f0 H0 W$ L; f4 n, J    RowBox[{
    # r; X$ p# Q) f" h     RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
    + {. D9 S) }" T- _' b! r. D  SuperscriptBox[
    0 Y; b+ Q' p0 m; o& M- c' r# Y$ v   RowBox[{"(", 7 j6 ~( i, a) h/ [
        RowBox[{
    ' `% y1 T. q7 |     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+",
    4 O$ l& P8 |- z1 H  x4 `+ b  Q& ^  SuperscriptBox[1 e: g9 u5 p  X# }% k2 s! l
       RowBox[{"(",
    $ b0 ?2 Z! N$ E9 M! S. R) k    RowBox[{' w2 Y  O. B8 {
         RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+", % M  f/ ^, w4 S
      SuperscriptBox[
    ; r$ D9 f- r1 D" h   RowBox[{"(",
    - |+ p0 E) V  O    RowBox[{0 F8 L  I2 I  z6 P& A4 n* {$ B
         RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
    0 j2 Q: \; G# u8 I( {  SuperscriptBox[/ a( U& k$ z9 Z' s# l' W4 a4 B
       RowBox[{"(", : {+ {4 r- R+ A1 g6 L) e  O
        RowBox[{
    ( E; \: Q# g1 G8 H" M% _% v1 \) z     RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
    , C+ v/ W& k) T& u, Q1 j- _  SuperscriptBox[( y% ~6 r, r$ H
       RowBox[{"(", & W# s/ n/ G- W1 q: y- p& r
        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
    ( g3 B& P- w: ^) F CellChangeTimes->{5 D0 T2 M9 ?4 k0 g8 g
      3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9},
    / H4 Z8 _' m9 W: u. Y& M  b) e) T4 o   3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9, 7 I) |! T2 b+ ~5 S. w: W
       3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,
    # p  H4 o0 [8 ^+ M  g$ d   3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9, % f; r# V: S6 y7 h# P
       3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
    / R: U. S2 T7 W   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
    / u& ?" |, c6 Z' p5 ?+ g   3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
    / Q& d0 I. K2 f8 Y   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
    6 E% I" F2 w$ H- D8 q/ U   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {1 [1 b8 p+ ?' d. s0 D, I6 z0 d; \
       3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {6 Y8 R9 S0 U- c4 O; b. ?* X$ W8 p
       3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, ' E9 _% @& N' t6 u* {) m+ D
       3.5779618537169228`*^9}, {3.5779618846049767`*^9,
    8 x3 V% ~' O/ v$ C% ^  G5 D   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
    - ~5 t4 `  T) u- T/ p% T}, Open  ]],/ F; [, V2 L6 i4 n

    " ^6 h0 W9 ]0 G+ f' `Cell[CellGroupData[{
    ( X9 n" x& L, t5 Y) a, Q- ^$ B& @- b0 q4 }) j- ]6 h0 g
    Cell[BoxData[9 w" d) K4 U. B5 P
    RowBox[{* G' r1 T$ a6 N' W0 R
      RowBox[{"Ca", "[",
    ( ]/ G0 N0 n8 e+ L4 o( b  X1 `   RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",
    ! p  x, ?% H6 p* ^3 B; d8 ` CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9, + t$ I% T$ p" h, h
      3.5779616465173616`*^9}],6 f/ N' Q/ H- n6 p8 x% J

    2 s) C% v" n- o; X. S5 B, `Cell[BoxData["0"], "Output",
    / R2 R- ^" A1 T6 G CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
    * r9 y1 \% c$ ^/ u  3.5779616484049644`*^9}]
    " ]  G9 F5 y  \9 F}, Open  ]],
    + ~6 K( D; [- i! k# f  q. U
    6 ?5 i; r% `& ]7 t- D" W! kCell[CellGroupData[{
    ! k6 D% c$ N. X7 M( r
    % K* V, T- N! L( t& o4 bCell[BoxData[( ^" W; M" E4 t) |- v/ i
    RowBox[{
    ( e! q  z2 ?) w0 S  RowBox[{"Ca", "[", 0 z1 o; p8 `' z3 K" t/ [
       RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",0 k8 r% Q; ^* X5 m; ]
    CellChangeTimes->{3.577957376235614*^9}],' u! o% ?& p7 \& f: H/ d$ r
    ( a3 G0 {/ Y! R+ t! I8 ]; O
    Cell[BoxData["0"], "Output",
    ; g. o9 T1 j7 E0 b* l" I CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
    3 g8 O/ B; q* T4 |2 S- c: p}, Open  ]],
    / L; ^( s9 y0 K% o! N7 R
    * _* ?7 A- [. v/ C* ~  g2 ZCell[CellGroupData[{
    1 N/ w; K- W8 {* ?7 j
    ; Z+ R" P" e3 r+ }# |2 S8 tCell[BoxData[# U1 ^! [) q. T1 v  U
    RowBox[{3 M! y0 f$ V* P: @1 I& q
      RowBox[{"Ca", "[",
    # a% E# M9 D- W# ~3 A) K- q   RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
    + C5 c& ^; \& m& k/ y CellChangeTimes->{3.5779573112927003`*^9}],
    9 Z/ z0 k% G- H8 P* z8 N
    . F: `( g/ b$ U7 t: RCell[BoxData["0"], "Output",
    , s/ K6 Z! c4 i" W5 h/ i9 { CellChangeTimes->{
    3 i- U$ U4 B/ z0 {' m1 I  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
    . j# c- j" X9 }5 |$ E9 m2 j   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9, % n. h9 t6 j$ x0 {. y
       3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
    9 t3 m& W" |3 A1 S# a1 M. @   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9, 3 C* }; {  z6 w
       3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, 8 \* P/ z7 I! j8 `
       3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]; _6 ?; U" O! F
    }, Open  ]],. T# }: ~/ Y$ o( O' g
    ; t5 u. q* L: E; A* ^) R
    Cell[CellGroupData[{
    . x0 x# c: ?  q7 ]
    4 M6 c: F; d+ @7 }. x' cCell[BoxData[. q2 n* t5 i0 `  z1 T1 v
    RowBox[{
    % w6 V1 y' e. i; l( N  RowBox[{"Ca", "[", 1 J/ O+ s8 C: [2 v) o" W+ Q
       RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
    % n: @) G- c/ w7 N/ H! ?  \# ~ CellChangeTimes->{3.577921461734375*^9}],, Y7 N+ L$ Z/ N/ Q5 n& s

    $ b9 Z  i3 X6 C2 R/ p2 n/ @9 aCell[BoxData["0"], "Output",8 t) r4 M' H+ b) ?
    CellChangeTimes->{9 j: z+ }! G( B% `3 R
      3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
      d3 @' ~4 `. @( [+ q  @5 k   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
    + r! v. j% G- Y* S$ S% g   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
    2 I; K2 I; M3 m/ N% I3 y  E   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,   C1 {. W, d1 a1 Q6 z$ p
       3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]- `+ d4 L/ Q" i3 n3 E& @5 d
    }, Open  ]],, X4 p# ^! p. {. j4 I  n
    * I* l! z+ D7 |& ?! n9 A4 N
    Cell[CellGroupData[{
    1 D2 K" m9 D' `4 ~  k1 q. w& }# I. R- ?& }" J2 P- x! T
    Cell[BoxData[1 t2 M9 H% Q" M
    RowBox[{
    8 ^6 N3 f3 v$ F( T  RowBox[{"Ca", "[", ! a4 r" ^  t. C3 L7 B4 T, ^0 l& _2 D
       RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
    0 _& `% n) e8 ~ CellChangeTimes->{3.577957303118286*^9}],
      K$ G/ J6 ?, |1 ]( z* o
    0 _1 T4 L! S; b# u" c; VCell[BoxData["0"], "Output",
    & q% g( H+ U: Y1 ~+ e CellChangeTimes->{
    & G% O2 h2 i8 I, O) j) q  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {& p) P% d$ V5 ]; o! q
       3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
    * o* e1 E3 S% z# c   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
    " l. v" L. I; A- b% l( M# v% \   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
    ; i! D5 C# ?* X9 w- y% Q4 u2 `9 K, V   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
    ; G2 _3 b8 R' V   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
    5 J, w% g) Z1 [' B# ?) ]   3.577961889378585*^9, 3.577961912965826*^9}}]$ b% j$ d2 ^4 A( n  }; ~
    }, Open  ]],
    6 o$ }0 I$ V4 H6 q/ L! N9 P3 j) B6 c( ~4 w
    Cell[CellGroupData[{
    ; }2 B7 f) f8 O3 s+ g  F3 Y0 a1 j: e0 {. X) Z
    Cell[BoxData[
    3 R7 c2 }) ~9 k4 r! L/ [8 T. H  A RowBox[{! f: q1 K6 X3 {8 @
      RowBox[{"Ca", "[", 3 b7 d  v, C9 ^  ~
       RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
    8 D& L7 ?. ~) ^4 H/ T+ r2 U CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {% x  }7 A  n3 v) _9 j
      3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9, - j, d1 V4 x4 [2 Y
      3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
    3 z# `, ^3 [/ E+ b1 Z8 r  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
    & A: h: Z, A/ x* F  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {1 G* v* V& \8 W! O; L( |% ^
      3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
    ( j: k4 E! m1 i  3.577921435703125*^9}}]," M  s# Z0 Z3 C
    # ?) K- Q5 P! d" u
    Cell[BoxData["0"], "Output",
    1 I2 l4 E3 E8 i" p! k CellChangeTimes->{0 w0 T5 Z. w$ K+ ^  G) G
      3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {
    ! q4 l1 u$ U3 q1 l5 N5 c# u   3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, / u% h- C, s1 t9 p
       3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {$ G3 H" J0 l: ?' w
       3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
    ! [  l/ G- ]# E1 S   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {0 ?% D7 w) P( y3 r
       3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
    0 t( `: j, m2 g4 Y   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9, ! l- [" V3 N) }5 e$ }8 O% }
       3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9, 2 M6 x6 t9 F, N
       3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
    : [. f1 I9 g; i% W* e1 a   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9, # F- U% r3 r; \6 I$ x, o
       3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {0 q4 s  H- v; ~; u+ _4 D4 \5 n6 }* z
       3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
    & F$ W; i0 o& c9 n6 {( ?   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]; c' ]3 t$ i* d# j* A- f' @. r+ l
    }, Open  ]],. p/ j5 w, ?) d& R/ z

    3 `3 c( \5 t: }/ xCell[CellGroupData[{
    & Q5 z6 {9 X! e0 P2 @' z. A# B" r/ ?% [, d1 K% ]' Y7 [
    Cell[BoxData[
    5 U6 ]; b4 U' z' P  p RowBox[{"Delta1", "=", ' U; m3 X+ v9 b+ N3 U4 d( \
      RowBox[{) D4 V& P! ^6 Q
       SubsuperscriptBox["\[Integral]", / a( W+ A; ^5 K
        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    4 r+ P* v, `* v7 d2 \   RowBox[{4 o' |. ]3 \% q; ]% c, k
        SubsuperscriptBox["\[Integral]", ( m) l  C, d! `4 E" D( h7 H
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], , C3 U  s; |# A+ g9 {0 S
        RowBox[{( b. X* w) F. y7 a" |" s
         SubsuperscriptBox["\[Integral]",
    0 c  @. Y! j4 O2 R& J; ]7 h2 k      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 1 I. C: l5 w4 s! u* ?8 d
         RowBox[{
    ! p. z5 ^6 f9 ^: l7 L7 Q( u' @0 e      SubsuperscriptBox["\[Integral]", / j0 t" s) v+ J: P9 D" X- j
           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], . c; j9 J, f$ h, e* p5 n) v3 V
          RowBox[{
    ) c6 I: Z% c) M( p0 K       SubsuperscriptBox["\[Integral]",
    ' @7 |5 e1 e4 V3 i  d! h        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    - G+ C$ }+ _# f6 H" j$ V% N       RowBox[{& t5 c( m/ d1 p$ T; l
            SubsuperscriptBox["\[Integral]",
    : ^% G  d. T  ?4 C! J2 c         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 5 y% u2 r3 l* }. ]
            RowBox[{+ ?: E0 ^3 Z! o+ t' i* {2 `4 p! q' f2 h7 R% y
             SubsuperscriptBox["\[Integral]",
    8 h  u# I' u* q$ f" b          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], $ p% I/ Z1 A0 x* d2 B! g2 ?* @
             RowBox[{
    * l% Q/ r0 w' g" |% h( a$ v          SubsuperscriptBox["\[Integral]",
    9 w% R. \7 \: T2 P           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    , P: C6 w+ |/ @" P2 p          RowBox[{
    9 l2 x  ~9 c% q" q, U7 ?; Q           SubsuperscriptBox["\[Integral]", 9 X+ o( A* \% Z6 U' g7 I
                RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ; C. b0 U( v+ M0 |" V+ i( V           RowBox[{
    $ h( i3 ?3 M3 a! p- }            RowBox[{"Exp", "[",
      F* L! r5 M( ?* q! W& L             RowBox[{: y! r+ l" a! [
                  RowBox[{
    4 X$ e# ?) A0 x: D" y7 c; M               RowBox[{"-", - }8 K: u1 p, }; R+ W* q
                    RowBox[{
    & Z$ t" e* v/ H# l3 f8 Q                 RowBox[{"(", " X  B2 ?% F* p" P1 E4 O
                      RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    : W3 k0 x) P# K: }/ f4 ~                 RowBox[{"(",
    7 I: I# z: f' Q. X8 i- T/ M; R                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
    / t2 \5 h1 v; v2 K/ r2 I              "Delta"}], "]"}], 8 V2 \/ F4 T# h
                RowBox[{"\[DifferentialD]", "x1"}], 0 V) P9 K9 o) @
                RowBox[{"\[DifferentialD]", "x2"}],
    ( F! v! F( x  Z# p% p; a            RowBox[{"\[DifferentialD]", "x3"}],
    - N( p' V: b% q: f7 R; t! d            RowBox[{"\[DifferentialD]", "x4"}],
    8 t7 C- r8 Y% R1 J. `5 k  H7 M2 T            RowBox[{"\[DifferentialD]", "x5"}], 9 j) ]. |- I8 N! [+ W# z; T: l
                RowBox[{"\[DifferentialD]", "x6"}], 3 _& |# |; v2 S- W: Z% N  c, g
                RowBox[{"\[DifferentialD]", "x7"}],
    3 I0 f* D) U  J" ^; T            RowBox[{"\[DifferentialD]", "x8"}], 2 Z, O4 @# _/ z( z4 E
                RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
    # [% U) h7 b, k; m CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {0 ^# R. M! [$ e7 {+ X& w6 I
       3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
    $ e) f" t/ m, z" w7 O3 E   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {* B  X5 `. D, r* w4 k/ q
       3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9, + s2 j7 m0 P3 ?, d
       3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {1 A3 c' [, Z. e  r+ t8 P5 t$ L. p7 c
       3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, 5 x3 d4 z0 v1 o$ l% k
       3.577918964453125*^9}}],
    - }* S: d1 n6 z: s: @2 Z- k- g. G5 U" }1 |. I6 J5 p
    Cell[BoxData[$ y1 z& ?& h9 t2 a, O) Z4 Y
    RowBox[{"97.40909103400237`", " ",
    + [% m3 c6 B( }* B/ t* ]* p  SuperscriptBox["Delta", "8"], " ", + M2 N  {  N- d9 z  R$ h
      RowBox[{"If", "[", + h9 z/ [2 D0 k" P
       RowBox[{
    $ c, K2 E; P2 J1 @- c6 `' y    RowBox[{# h; ~% k3 e7 b1 z. T" Z4 S
         RowBox[{"Re", "[",
    ; D* D: p2 n3 z. h( x! B, p      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
    3 E- ^/ n1 ~+ k  m/ U! ]8 l: _$ `    FractionBox[
    ' e, G% K; K5 [, [     RowBox[{"1.7724538509055159`", " ", 7 Y* o; C4 W* ]$ [) }, @
          SuperscriptBox["\[ExponentialE]",
    8 G9 z7 `# C" a' P# v       FractionBox["1.1102230246251565`*^-16",
    ( R, F& ?, ^3 ?6 j        SuperscriptBox["Delta", "2"]]]}],
    + C9 m$ a  _- ]     SqrtBox[
    3 N: d% v, d; p. [7 i% o      FractionBox["1",
    ; @- y! a4 u; D0 E3 A       SuperscriptBox["Delta", "2"]]]], ",",
    / [0 G( Y# y7 E7 a    RowBox[{"Integrate", "[", - Z+ ]  A9 a$ m# u
         RowBox[{. Y& X9 ~  m- ~2 x
          SuperscriptBox["\[ExponentialE]", ( B# L5 r/ Q' |7 l$ ?- Z( ?
           FractionBox[2 N- W  T. T8 Z8 |6 {! i8 F% L
            RowBox[{"1.1102230246251565`*^-16", "-", 9 p6 q) B5 M) R8 T9 F) U
             RowBox[{"1.`", " ", / W7 v" V% a4 x1 F8 C  M6 I
              SuperscriptBox["x9", "2"]}]}], $ ~" G- Q* O" Y4 a8 {
            SuperscriptBox["Delta", "2"]]], ",", : e8 `, }( p$ q2 _
          RowBox[{"{", 2 a" F0 I4 m4 {; J2 |9 v
           RowBox[{"x9", ",", / d) q9 u8 G  R5 q2 u5 F; l
            RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", . F4 W9 T' \4 G8 l3 [  l( A' ^
          RowBox[{"Assumptions", "\[Rule]",
    * v- j& b: x/ y8 a3 [! A       RowBox[{2 f$ ~( I- _8 |$ r3 s
            RowBox[{"Re", "[", / T  ~0 z" B. g6 V7 S
             SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}], ' l' H: ^$ b$ T" l$ @& O# {$ X3 A
         "]"}]}], "]"}]}]], "Output",
    0 [# H( j. K5 { CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
    ' A. [, i7 \- X" S' y' M  k  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9, ! P  M$ y3 ?1 {$ B
      3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
    " [; U) P) D5 Z$ R+ [) o) n  u  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
    # ^/ Y. N$ W7 m* {8 \  3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9, $ t. O, [* a4 Y
      3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,   w6 w5 i3 I1 y9 J  p
      3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
    & G% a, H+ @( A$ i% a}, Open  ]],5 x- T+ n9 q$ R5 z4 ?
    6 b, u' r; S0 C# B, g7 K
    Cell[CellGroupData[{
    * ]; |) Y' a* ?  d" N. t7 S/ {
    $ V4 o9 T, Z" U5 b. lCell[BoxData[) C2 h. B8 X$ d, l2 D
    RowBox[{"Delta1", "=", * I7 d$ l2 Y5 ?# R5 x
      StyleBox[3 Y* ?) s, o# ?' F# L# P3 F3 t
       RowBox[{"97.40909103400237`", " ", 4 O& Q* {+ }! [& Z' o8 q4 [% n! G
        SuperscriptBox["Delta", "8"], "  ",
    # q9 j* `- k& }1 k/ X. _    FractionBox[: x4 g& \: ]2 Q0 D2 S# N
         RowBox[{"1.7724538509055159`", " ",
    1 x- U& W/ {& r! m+ k      SuperscriptBox["\[ExponentialE]", 8 f( {- m) @  s
           FractionBox["1.1102230246251565`*^-16", $ O% f& z) x2 w" z! n
            SuperscriptBox["Delta", "2"]]]}],
      v- m$ b9 b2 ?+ v     SqrtBox[
    0 Q# h0 J. N& Q: V/ B' |: \9 Z+ }      FractionBox["1", / l( W+ A1 Y) f5 f) w9 k7 W$ U/ G) b1 ?
           SuperscriptBox["Delta", "2"]]]]}],1 G4 Y; V' \! C/ t4 |
       FontWeight->"Plain"]}]], "Input",( ]* |. k7 |; f$ ]7 I
    CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
    & j4 S$ p$ n( T: t   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
    4 A* {& S: i3 j, t   3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
    0 N  U8 `2 C: D- U   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
    1 X& x; c% ?- Z7 z& e   3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9}, * u) A2 Y* T/ G$ G
       3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
    6 E  J7 f. u; u( f3 \0 C; n4 T% a. X/ ^2 Y5 G/ T. ?2 E+ |+ ^
    Cell[BoxData[8 R7 p9 }3 F' [2 ]  P
    FractionBox[
    . T/ E- f) I% O. V3 K% L/ _( {3 y2 B  RowBox[{"172.65311851642346`", " ", $ w2 R7 Q7 \: y" v. n2 x8 m
       SuperscriptBox["Delta", "8"], " ", $ r" w8 i- O0 I. n/ t$ ^
       SuperscriptBox["\[ExponentialE]", - Q  F# r9 j& r' ~7 R) A
        FractionBox["1.1102230246251565`*^-16", 1 g; c# M: i: p/ f3 B, t
         SuperscriptBox["Delta", "2"]]]}],
    * j# t% Z8 U, I2 a7 s4 Q  SqrtBox[2 K( ?$ E/ o8 c% m
       FractionBox["1",
    9 q6 y& {6 _- ?, `% i% E- }    SuperscriptBox["Delta", "2"]]]]], "Output",; l( O/ M3 q5 }% W
    CellChangeTimes->{
    + U) w. s4 B( S' [' s  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, . X4 m* v# w) V+ X/ \# N7 G
       3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
    0 L6 I+ Z4 R- _" G   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
      _: e2 Y  M% ]) a   3.578012166234375*^9}]
    # @/ U3 G% s" s8 {1 x}, Open  ]],3 g1 Z2 v' }( C  m' J

    ) H5 `* C2 o8 J. PCell[CellGroupData[{( H5 h/ s0 K9 p
    * A8 y9 L" U. k+ d& f3 P! G' ^
    Cell[BoxData[4 R2 w$ Z/ N" B7 ^! ~4 i5 B
    RowBox[{"DeltaX", "=",
    5 p$ s3 A: L/ g* x( K  RowBox[{"FindRoot", "[",
    " \0 s9 _% w3 m& g: ^* w% D$ I   RowBox[{: O+ M: G% m1 n8 B% A# `
        RowBox[{"Delta1", "\[Equal]", "1"}], ",",
    , |: k. i5 e) B    RowBox[{"{",
    , a$ [) L& S6 `: G2 x  e* e7 Y     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",4 D! |7 o7 p) h( Z3 ~/ q
    CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {2 h) Q$ Z" G+ `2 S
       3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, $ q; Q& Q; p- \, Y$ Y# w6 f( M: D& V
       3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
    : A8 z; N& a$ |$ q; i8 `   3.57791921584375*^9}}],% V3 P$ ?/ u: c6 |3 _4 c

    ( N7 }% R" v8 b( b0 BCell[BoxData[: c! m7 z; N  c6 A/ @
    RowBox[{"{", " v# a, m5 @& i  C$ R6 d
      RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
    , |) |% J3 V/ ~ CellChangeTimes->{
    3 E$ i: b' N" u& f+ y5 [1 v  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    . R+ s" w! |1 k3 [+ x) W   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
    , o' r1 L# v5 h. e. a% X6 p) {   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
    ! y. s/ ^) G- E1 z   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9, + ?9 `: w) W! @) }
       3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {, G4 W0 F: g$ H
       3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
    ! E: G) X8 e! }4 _& M# l2 F+ k   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9, # g6 A  I; d1 l& F( D; V9 m0 Z
       3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
    & B" \7 {7 b4 u# S. e   3.57796070150625*^9, 3.578012167703125*^9}]
    ! j3 y9 P: S, B/ v8 F+ B3 s+ O8 j}, Open  ]],
    5 ~; @7 G6 N6 M( ]. U7 t% A5 y% W) c' g/ m1 Y$ c; ~0 w+ w8 l5 h
    Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\0 f# @+ x( s) r2 W  j; C- \5 Y% o
    \:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input"," P5 n3 q0 `; S" h% F0 _5 E% V( H
    CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
    ( d; f3 \! p' r  3.577960705312657*^9, 3.577960707621461*^9}}],3 o# l9 e8 s  ~9 n

    . z; i0 l2 L( l0 z1 U: h  pCell[CellGroupData[{+ }) m1 `/ Q. l9 v" M0 P  h
    " f- Z/ e3 s* F! a- A5 M3 Y, ~
    Cell[BoxData[" `3 M/ c: u6 {$ w
    RowBox[{"C1", "=", "Ca"}]], "Input",3 d% C: t; o, L
    CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],1 u3 K0 w' h7 d+ m

    ( S: {8 L4 Z, N  ^" j9 LCell[BoxData[
    7 v6 }) H6 @1 @3 B RowBox[{"{", % u- D1 I! C5 e
      RowBox[{
    7 J2 K' ~% w: r( y0 U  "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
    / x- h, r* t4 j$ S   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
    6 W/ b0 q  r( ^6 N2 A0 Y   "0.`"}], "}"}]], "Output",
    $ X4 v6 t6 \$ Z9 t& j. J: p) N- o% m CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, % \: v5 v% J4 {( I9 R  R
      3.577960710273465*^9, 3.5780121855*^9}]$ _9 E1 p! E) @# P: O  ?  |' j
    }, Open  ]],7 x6 p. S; |" {$ X8 J

    + J+ A1 }3 Y0 Y; }. RCell[CellGroupData[{
    & u: g8 B0 t; d3 i4 j8 {9 D- f, i1 P7 w# \5 h3 ]! T; T4 d2 M
    Cell[BoxData[5 t( B% l8 K; G/ f( L. m' g
    RowBox[{"u1", "=", ' \3 e. P2 q( K! F
      RowBox[{
    # C: [6 }7 }" h# W# W   RowBox[{"Exp", "[", ( w% A# R: M, V0 M# K
        RowBox[{
    + L' Z' i; D) a0 o; R) G( V, I     RowBox[{
    3 h5 K7 G$ N% ]4 c3 V9 f      RowBox[{"-",
    * q1 o8 [7 @) p7 I( O1 E       RowBox[{
      ~! E2 I7 j% T; A; d        RowBox[{"(",
    3 F, p7 o7 v3 I- q         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 8 ~0 r8 B$ B/ w( p5 W" N
            RowBox[{"(",
    9 k. S1 g, Y: P; s" z% e         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    3 a, v2 J' ]# ^5 r' ?1 F     "]"}], "/.", "DeltaX"}]}]], "Input",
    8 D1 p9 f3 |& r1 ]0 l; ^8 Q4 U CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {$ a1 f7 A! _& _5 Y
       3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {* F. \9 r" T3 L9 _# m# u) @  l- x
       3.577919193484375*^9, 3.5779192326875*^9}}],
    + r' X1 g' m) P4 r, ^. ?9 h. H, H1 W1 y3 U- i; l0 B5 o6 p, f
    Cell[BoxData[' Z' F4 `0 s" \( V. z
    SuperscriptBox["\[ExponentialE]",
    . O+ x# a6 V6 `' K( q  RowBox[{"3.141592653589793`", " ", 8 H; \7 T0 V8 L( \" j; J, W
       RowBox[{"(", , F, E7 w. H/ Q1 H3 y# a: Z6 L( d
        RowBox[{
    4 n9 l, F7 o8 K6 t( U: l     RowBox[{"-", + `$ S. ~+ O( A# F9 W7 x, {% w
          SuperscriptBox[
    1 ?' G) K/ g+ V# G* y7 |2 n" S9 V       RowBox[{"(", & G$ H( _1 Z2 G: z9 W, i0 Q  ~
            RowBox[{7 B: O: n" I: v* G+ g( n0 o
             RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", ( i& [9 F) ?; t, g! T, V+ N0 `( {. Q9 @
         SuperscriptBox[
    % l( p9 x# g6 d. E; F% P8 K5 p      RowBox[{"(",
    0 s0 q0 J$ ?# N3 L2 Y3 T       RowBox[{" Z/ B$ C0 x# u3 B" d$ t/ j
            RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", ' `: T  o* f. m% m0 w
         SuperscriptBox[
    ! D) u5 k# E; w; ~      RowBox[{"(",
    7 b# X. A8 j) G0 g$ X  R# R       RowBox[{7 s) m: U+ L; e; X/ p+ i) i9 Y9 w
            RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
    2 P3 k' @" q1 x$ g* U. X8 `" g) F+ _     SuperscriptBox[8 F1 z$ A$ i3 _' t
          RowBox[{"(",
    ; s3 s4 B, ?/ [5 x8 {2 I9 U, d       RowBox[{5 u3 t) k9 |' t1 A
            RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
    . @: Y: p8 B. ^& c3 s     SuperscriptBox[) Q. I9 Z  |0 X& {9 V
          RowBox[{"(", 2 |' v! s6 r* p) u; ?, _4 J' J
           RowBox[{5 S% ?3 s0 h: l- x8 A% l8 E
            RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", 3 S1 [8 e- r% y' `8 T
         SuperscriptBox[* E0 a& b4 ~* f, H/ A* @
          RowBox[{"(", . e! y- R. r& e) C
           RowBox[{
    * h9 T( v0 q/ L% O0 g        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", , O# [: a  K. n# V
         SuperscriptBox[
    " ]2 o+ c( V. Z/ U9 h/ C! \  D7 ]- {      RowBox[{"(", * w- _+ `7 B" ^+ z7 t
           RowBox[{1 e$ p' G- Q  }- T/ S; A3 a
            RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    ; w6 K! A% R7 z- X5 I0 H' O     SuperscriptBox[
    $ X: o+ Q. I' F! P( N      RowBox[{"(", 4 Y2 g* R* o$ S
           RowBox[{3 S6 k) z! Z! F; m
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    9 R% E# Y' x+ s( y- s     SuperscriptBox[
    2 r4 m  J) P; u0 L      RowBox[{"(", 6 r6 h6 g/ p0 Y! p3 E0 }; Y3 \
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], - U# o  S- p9 H) a, z( }
        ")"}]}]]], "Output",
    2 Q. H9 R; m2 Q1 A: ] CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
    3 N: e- T! P. c  l  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, $ L& o1 R2 B4 @9 h- I) e( I$ G
      3.578012187078125*^9}], f% S% v$ }. f" `- Z
    }, Open  ]],
    + T, T: l* x5 D( A
    " I% J( x! U- O* h9 b5 TCell[CellGroupData[{
    - E) F/ V) Z( V! x4 B# V( a8 x( L2 W1 V$ t3 o3 ]# y
    Cell[BoxData[1 P/ U& L3 H5 r9 y% G/ Z( r
    RowBox[{"C2", "=", "Ca"}]], "Input",; H; K; W% H0 d$ h! d% U( p
    CellChangeTimes->{3.57792047321875*^9}],
    4 ^+ e4 r1 N( t8 h0 q. Y  {* `0 H$ [& x) {  \4 {4 @
    Cell[BoxData[
    " Y; I; v! J, u* N RowBox[{"{", ' I( i& g- [! V6 l1 \3 b6 D
      RowBox[{
    ! x  v: k- q) D4 l8 G  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",", - O3 e+ R' J1 z$ h1 S+ O
       "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
    5 t2 B; i9 A. s/ M9 y1 {" ?3 T  "}"}]], "Output",6 Y. I- H8 i  _9 ~7 o" c
    CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
    / x$ H1 l% E! _( f1 @  [  3.5779607401163173`*^9, 3.578012204671875*^9}]
    ' X* J  g5 w; M9 F3 e}, Open  ]],
    1 T, U/ H% l) d' Y$ q5 J1 I) J% t6 C5 G- x* d. N4 G; d
    Cell[CellGroupData[{+ |% z: ]# A, }, Q, v% N+ X/ R
    ' z  |$ p& C  `, w+ I* }
    Cell[BoxData[
    & C/ V7 g* g+ w" c$ k RowBox[{"u2", "=",
    & F2 s3 f4 t$ p1 _  RowBox[{- e; R( u! z" b( {" `" z) Y4 d7 r" A
       RowBox[{"Exp", "[",
    # X, C; f9 E9 W4 r$ i" A( }) Q    RowBox[{. D# |) x4 x. x: L1 w' W1 p* n
         RowBox[{
    . [/ n. m' y! ^9 _+ e$ m      RowBox[{"-", - y" Q& e$ P0 _6 E  w2 y
           RowBox[{
    3 x6 v3 z; ]4 g0 z        RowBox[{"(",
    / E$ b1 [7 G$ y3 G8 c* T% x         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " `+ a- N3 H; h( D        RowBox[{"(",
    ) U& X* o) W% `% W1 ~         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],6 X" d+ S" n" c# e" H- w' d
         "]"}], "/.", "DeltaX"}]}]], "Input",  N3 u% C/ x* w# E+ y0 i; k) y) U) C- V
    CellChangeTimes->{3.577920484109375*^9}],3 l1 W& F' A2 y" j

    - c2 a& E, E' F& Z) sCell[BoxData[# @$ \, s$ X( w8 o$ T0 h) Y! p
    SuperscriptBox["\[ExponentialE]", : ]# s, r* m2 O9 ^7 D
      RowBox[{"3.141592653589793`", " ",
    ( g- @5 n' Q* ?: k6 I3 X8 Q   RowBox[{"(",
    7 `" e2 |' d* L# _+ y& O% b    RowBox[{
    & k4 l$ R! {( \. F+ [+ |     RowBox[{"-",
    ) W9 f9 _  B" s2 q. R$ @; \* O$ \      SuperscriptBox[9 \: C& C% T0 U$ f
           RowBox[{"(",
    ' _; O- z- u6 p3 A3 C) w; G& I        RowBox[{, x& f* P: K- w0 r% H
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", 3 T$ f! S7 ?, u& K. b
         SuperscriptBox[% T9 z2 G9 ]/ ?( M6 Q
          RowBox[{"(",
    1 s' a8 E* ]/ W2 S       RowBox[{
      t* P. Y6 Q* Y; X" T6 M        RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
    9 |# p6 J6 u7 w8 ]     SuperscriptBox[/ _5 j1 ^: C: f+ I/ ~
          RowBox[{"(", $ A7 ]7 D8 Q5 c8 |/ F% g( V
           RowBox[{# [  T4 I& g0 Q% ~- w0 `' J2 j& n
            RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",   d' Y) V' v3 X, \+ q$ |4 }) A
         SuperscriptBox[' {6 S% r  f9 G7 l6 i/ y  {( V3 `8 X
          RowBox[{"(", 2 H  W2 j- L0 b) z! J. L, U
           RowBox[{
    ! L, P5 q) X  r  c7 m8 Z, Q0 h- {        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
    ) S* m5 T, \( h- T' o3 j3 A9 ~     SuperscriptBox[
    . n0 ?/ O& x4 C6 S; Y; K      RowBox[{"(",
    & e7 x/ z5 H/ k8 ~# p* ?9 i7 v2 B       RowBox[{5 s: o0 ]4 v1 y: z
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", 7 V+ ?* d2 m6 M2 t6 w
         SuperscriptBox[& E/ ~) t4 {  d6 c+ o6 _: V
          RowBox[{"(",
    ) u" |" `# A5 C/ `/ a; u/ t       RowBox[{
    : ^2 r( K( X1 j0 X! f        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
    8 D) d6 S- Y/ h8 Y) ~: M+ T; c     SuperscriptBox[
    " Q5 X2 W! _; y- R" @9 [. c      RowBox[{"(",
    $ b) x6 l7 y+ E6 I- a( d$ p8 X; ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    1 l; F( z+ P: x1 N, K. ?. [     SuperscriptBox[; v5 y$ U( t6 p( g0 Q0 e$ f5 L1 i
          RowBox[{"(",
    1 q5 U9 n; a- ?1 V) Q       RowBox[{
    8 S6 r! i" j3 h8 J        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
    ( w5 o- y! W1 h3 G% C: |! q0 e     SuperscriptBox[, U5 F$ @6 J2 c, F: ^
          RowBox[{"(",
    $ E: {; `& S) `" x       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 6 A4 o2 s2 W: R1 F( R; z1 V
        ")"}]}]]], "Output",
    1 J  N  b( o" w2 p2 ~" k CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
    5 `" V: w2 R6 k' u' [  3.5779607413955193`*^9, 3.578012205484375*^9}]
    0 P) y" O, L9 D0 _( A}, Open  ]],9 g6 B$ v9 ]; K9 k: y  B- P

    ! O4 C1 U/ y& y  y# z& y: JCell[CellGroupData[{
    * H8 C, o- [- ?, E4 t" x; R! ~1 a$ g5 E" m1 P. R8 f0 `
    Cell[BoxData[: {/ N1 _9 V& h6 o
    RowBox[{"C3", "=", "Ca"}]], "Input",
    ; s; Y. w" t  ^' H* ~ CellChangeTimes->{3.57792064125*^9}],% K# n; r) i* |( G
    6 a" R4 p& a6 q5 M! h
    Cell[BoxData[: {$ T8 z: k7 ~4 G, [
    RowBox[{"{", ' N2 \. S6 j, i- L* H
      RowBox[{
    7 j- ]) V6 t" `0 Y  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",", ! w; E' _/ [- H, v4 Y
       "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}], $ q. {- V# X- z1 s
      "}"}]], "Output",' q2 {4 r$ m. }* M
    CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
    , x$ |4 p+ [! F5 h: l8 D7 ^; \# D  3.5779607642027593`*^9, 3.5780122103125*^9}]
    " d1 u- ^( {- H; b  m}, Open  ]],1 e0 O! [& c2 i' v3 B8 K

    : r5 _0 m# i" E. _5 L3 x5 xCell[CellGroupData[{
    - J% u+ F) a) |& Q
    4 d% ^3 f" @; \7 PCell[BoxData[1 a) o0 M" v1 q+ h0 _2 n
    RowBox[{"u3", "=",
    , z! l! i: o* u- ^' V7 O  RowBox[{
    7 |& z3 _7 f2 {* G- p   RowBox[{"Exp", "[",
    3 N+ J# {+ F# P/ c    RowBox[{: ?5 ]! k' h- F  b1 {
         RowBox[{; W- h+ T% G+ O6 c( y/ e
          RowBox[{"-",
    ; Y4 v. l' Z3 `5 q+ d       RowBox[{
    : L; n" p) N- J. X+ P; Q1 u$ J7 O8 m        RowBox[{"(",
    , j' `( i, M% Y4 o  q         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    0 j2 k8 t+ Y3 }; F- |9 L        RowBox[{"(", & B" k" D2 i1 r* k/ v
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    3 M8 p$ _" Q. x* q     "]"}], "/.", "DeltaX"}]}]], "Input",# t: b0 R& h; k7 Q  }
    CellChangeTimes->{3.57792064921875*^9}],- k* p2 b% P  m- u: {" S" o. f

    ! Z6 `, Z8 L6 ]/ g6 u# [Cell[BoxData[
    8 W7 T# C5 e8 @7 N SuperscriptBox["\[ExponentialE]", * m) P2 q% a, ~& e2 |$ z5 }7 c
      RowBox[{"3.141592653589793`", " ", % s  o5 S1 {8 [: I6 H/ h. P
       RowBox[{"(", 5 X$ w  z1 ~: R" u$ F& u+ N# N
        RowBox[{
    $ Y. u' v& A$ |; l: `     RowBox[{"-",
    + K9 B4 Z9 z. x! |. W      SuperscriptBox[  ^& U1 ^, {' S9 l: k' H
           RowBox[{"(",
    ) i9 }/ I+ e) E2 n9 |- i. W        RowBox[{% B8 ]0 b# u3 {/ l) o2 H/ V" G8 l
             RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-", 4 O  ?# H7 _( [; {! Y- p" N
         SuperscriptBox[
    - X) Q( a5 f* [. S. z  A7 E      RowBox[{"(", " l; \) l6 J! K7 \  P
           RowBox[{
    0 z, w8 l2 B; x' {9 ^7 R, @        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
    ) k0 `* ~( w9 R0 u     SuperscriptBox[0 P$ R7 B# c, U" G
          RowBox[{"(", . h' Y5 B1 p2 L
           RowBox[{9 D& [5 R% ~2 }& N! u/ K
            RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    ; l3 E0 P) L7 T; y: H: c$ B     SuperscriptBox[, x9 f8 n' l, i6 s$ z* P: ?
          RowBox[{"(",
    ) b. r  ?1 z) T4 N* ^       RowBox[{* {- P4 s0 q7 p1 V' D2 u$ _
            RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
    / m/ v4 Y+ o6 g4 G, B5 m" f# P     SuperscriptBox[
    ) R  D4 o/ y4 ^6 K      RowBox[{"(", 7 W* ]& Z$ e* G. d8 C8 m4 c! [3 i) ]
           RowBox[{: h1 Y2 c- g& g) L2 _
            RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", " f$ E  z8 |3 a8 o+ C
         SuperscriptBox[' n7 |- M- [" f0 u8 x& L8 ]! i- |, H
          RowBox[{"(", 3 S" u* ?6 J# s6 n, K) @
           RowBox[{
    / e# f# X+ B. `1 |0 t  t. C& P' f        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
    4 [! G, i; S0 l2 G" X1 Z5 j/ f     SuperscriptBox[! {4 x7 V* l" l% z# Q7 O7 d
          RowBox[{"(", 7 ]: X" K. ]) ^! u7 e) z
           RowBox[{
    0 Z& i2 `! G8 ^) [3 j# a        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
    0 |8 o# Z# x: J) h- B* i2 R" w     SuperscriptBox[
    ! a6 B6 d- m; V9 t0 I: \; W      RowBox[{"(", ) T- ]0 r6 ^8 \
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", * Z* ^- x5 t% w# k
         SuperscriptBox[  I4 R& a+ I  A0 w
          RowBox[{"(", 9 l3 r" g/ E0 w& a. i8 I  S9 [
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], : H5 i: j$ H* E8 n! d* E9 \
        ")"}]}]]], "Output",/ }2 ^/ W7 |3 T, |+ t5 K# ?% ^* G
    CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
    ! d$ X  ~" d) r' f  3.5779607654819613`*^9, 3.578012211515625*^9}]
    , Y1 o( D. _7 X}, Open  ]],
    1 L) E' b: D& n: J8 U4 Y3 g
    2 X4 Y2 r% d3 ~: {) N4 j+ {Cell[CellGroupData[{; x, Y) D6 j) `1 x% m1 D: u

    . l  {4 @0 G1 j& cCell[BoxData[6 l% l3 z; f& H$ W' T. [+ Z/ m
    RowBox[{"C4", "=", "Ca"}]], "Input",
    & O  @0 B$ A1 M CellChangeTimes->{3.5779207559375*^9}],
    7 s) r- |2 \  v$ x9 |% Y' t/ d2 b' ^9 c0 @0 g
    Cell[BoxData[1 l* Y: b  d) R
    RowBox[{"{",
    % s* n  u$ [/ Z  H  RowBox[{
    9 _7 S$ `5 \( C+ o1 d* K: v  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", 0 r! L5 f5 h/ ?" q0 n
       "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}],
    % ]5 _8 N8 d. c: T% w" z$ r5 g  "}"}]], "Output",2 c" g' V1 C# P, E. H" W  Y
    CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9, ( M; A1 [; ]) J9 i; s$ M
      3.5779607861363974`*^9, 3.578012216171875*^9}]
    4 r) ^* }) [3 }. a5 b0 @* ~}, Open  ]],+ u* t3 H1 V# q6 u9 o1 l
    8 U$ _7 i; c( }& e* J: C
    Cell[CellGroupData[{
    % Y: i- M+ s7 y" y; `) D3 j: y* v
    / Z/ t' }5 L  r6 f( ^& |6 }Cell[BoxData[3 Z+ _. f, P' \, \2 a! |" J$ [
    RowBox[{"u4", "=", : h7 Q& {! u7 W, m$ e& b# S
      RowBox[{
    1 J' P9 C& v# t+ P, ]8 v( A   RowBox[{"Exp", "[", # C* ^; x9 N. \' c
        RowBox[{/ l8 c: f, W- y3 e' n6 l
         RowBox[{
    & I; ~* f2 V2 G; u% B7 s6 G      RowBox[{"-",
    3 j7 Z, O; T) U6 u3 {/ H4 E6 X6 N" v       RowBox[{
    ) f4 K4 b) e; a0 N; E        RowBox[{"(",
    5 q; ~. `- p" _( d$ H$ C- N8 X         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    2 o9 q6 k9 R! K1 N# |        RowBox[{"(", ; g, @$ c, C- M# R3 p
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    - m! J  f+ P. _     "]"}], "/.", "DeltaX"}]}]], "Input",# [9 _9 q; [! e
    CellChangeTimes->{3.57792076325*^9}],$ g- c: A, Z9 o+ s8 D9 O4 X' a

    $ w! M+ d. J' r, Q( TCell[BoxData[
    - ?  C8 x( ^3 \4 Z7 \- F: p1 V( J SuperscriptBox["\[ExponentialE]",
    0 `) j) ?2 }7 A  RowBox[{"3.141592653589793`", " ", 6 Z! a  [# F( \1 C, F7 G" o6 _
       RowBox[{"(", 6 k- C4 M# K0 i; F$ m
        RowBox[{
    " h/ Z, f4 L& D4 D) K& ^     RowBox[{"-",
    % U5 B* W1 x- w+ B      SuperscriptBox[
    4 G: E5 R; I0 I/ O6 ]6 E       RowBox[{"(",
    $ M( I" @; x1 h6 |1 e' L1 w9 v' w        RowBox[{/ X; @4 s. t5 R" e& a9 F1 W. k
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ; B+ L2 K; J( a& Y, c
         SuperscriptBox[9 Q; Q8 w5 o3 b- v1 M  h
          RowBox[{"(",
    + V* q, S' x" S  I% Z0 S       RowBox[{6 B3 ~: h0 h) [% y
            RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
    & x3 L* M2 c4 }     SuperscriptBox[, @; e% Y3 N9 N
          RowBox[{"(", - g2 k$ Z% n3 Z0 s
           RowBox[{" @8 @* o1 h) I# E9 p$ m2 W
            RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    , N  ?9 I$ Z# s  {7 E     SuperscriptBox[
    . u5 [" s; U8 k- n" s  C      RowBox[{"(", 8 L& i2 _% K0 @
           RowBox[{
    ) Y% D) `  d* n+ J        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
    & L! i/ E0 \# |# s     SuperscriptBox[) G0 w% @4 E: w: f8 S% |* i$ G+ o( |
          RowBox[{"(",
    $ Q7 c& y+ L: e9 d7 k- ^, |6 h       RowBox[{
    4 ?3 L. C* {3 @# Q1 b        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    4 e. D: c, ]9 N# l: V     SuperscriptBox[9 e: w+ e3 y% N( Z" ^+ f0 ~1 @
          RowBox[{"(", " {% o" v- e. T
           RowBox[{
    $ M8 p2 Z0 I4 v        RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", + j; A4 L8 w7 ^- T0 z# O/ C* \
         SuperscriptBox[
    7 a5 s% q5 }8 ]$ F+ u      RowBox[{"(", " R  Y1 S5 \  c3 W; Z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ( A* [; C2 y& q! z
         SuperscriptBox[
    9 S% I0 _/ Q! x: b8 @      RowBox[{"(", ' d& ^' r) I. m" |
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 3 n1 O* w4 Y  N- I0 i; M/ h" ?+ q
         SuperscriptBox[% c0 f& ?, |3 C$ e$ Y- P2 J' A9 E
          RowBox[{"(", ; \+ d( ~7 t0 D5 M1 g
           RowBox[{/ q: n. E% S* C$ ~$ G0 y/ N
            RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
    2 ?1 r8 B2 p. C! Q. ?- d    ")"}]}]]], "Output",6 {" s$ j' U1 l% ?, O# v! l* j; s
    CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9, & |3 p! R6 C9 q% c
      3.5779607873531995`*^9, 3.5780122169375*^9}]
    4 {4 O5 [1 b; c: U}, Open  ]],& R- B9 c0 t5 Z$ O
    . d7 }- _* f$ ?6 G, K' V
    Cell[CellGroupData[{3 Y4 n; K4 j/ i9 q  R7 d

    ( }* O) E1 \8 U& ~; l. F4 ^' Z: XCell[BoxData[
    " P1 C4 O9 u" D+ G/ F& q9 | RowBox[{"C5", "=", "Ca"}]], "Input",( \# R( C+ J' y, S. ?
    CellChangeTimes->{3.577920860671875*^9}],3 q2 {+ o0 z) M8 {# ]+ g2 ?9 b
    2 ^: L0 v! U, t& E
    Cell[BoxData[
    , R6 R0 k8 U7 n RowBox[{"{",
    & W3 {' t( I' K7 u6 j# e  RowBox[{2 e8 Q& M& U- b9 ?
      "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",", % B! ~8 i! h0 l) g% \% z
       "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}], 4 \7 M' `6 K$ y9 H8 ~* g
      "}"}]], "Output",
    7 Q6 @' w: s% I) N( p; A4 D CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9, ; _2 L" \" b' L( j
      3.5779608137328453`*^9, 3.5780122209375*^9}]+ [3 m9 v) `- d( D9 k$ d
    }, Open  ]],$ z) N; R; _+ c3 L5 F4 g4 I5 M
    5 _& S$ Z* y( L$ L. r( U) j
    Cell[CellGroupData[{! J$ ~8 Z4 T; t0 X. n7 w3 |  F% l; S
    3 i* Q: K5 j1 K" G
    Cell[BoxData[8 p2 [/ i# J0 c
    RowBox[{"u5", "=", ; o  @- y  y0 s  P9 J: S3 @
      RowBox[{
    2 w% w; G/ \: H/ Q+ ?; d+ H/ Z8 n7 q   RowBox[{"Exp", "[",
    ' p6 A+ Q! s8 q( Z; x) }* p% N    RowBox[{( p2 H) b# C1 I
         RowBox[{  G: a  J9 {, Z% t; i+ w5 b3 N5 e
          RowBox[{"-", " |( |- X+ s! L$ e" N
           RowBox[{2 i7 P0 [+ j0 a$ k. H( c# q
            RowBox[{"(",
    - M0 y  V! V( Z# C; k         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " ?2 a* X; Q# v5 R3 |4 f        RowBox[{"(", % U5 q  c) o9 F" U
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],( I* G$ m- q+ e+ @
         "]"}], "/.", "DeltaX"}]}]], "Input",
    6 _5 n& c8 ^8 p CellChangeTimes->{3.577920869375*^9}],
    ' v! v, n; d( b0 u+ t/ {9 X' j  T0 i, {* I/ ]7 [
    Cell[BoxData[
    - n0 T3 B( }7 V" T* W SuperscriptBox["\[ExponentialE]",
    7 z  E/ z: a1 k5 W; X; L: {  RowBox[{"3.141592653589793`", " ",
    . Q% r$ m2 c) p3 `( {+ t3 D   RowBox[{"(",
    ) {& ?5 [' t5 D! H) [    RowBox[{
    9 o# C2 E, c; p- F     RowBox[{"-",
    # q- z( F. A4 m6 f7 ?: T9 x      SuperscriptBox[1 p, M; p2 y3 }/ ?
           RowBox[{"(",
    7 b  _0 b: s! e. M4 _( H        RowBox[{
    ( J/ a0 s9 ^5 Y$ |# |8 a& A* |# X         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", . V/ f" Q. w3 H: G4 Z0 P
         SuperscriptBox[7 R9 B& _: }8 r8 N5 P, P
          RowBox[{"(", : T3 p; w6 ]  Y! W% [2 `$ j5 K5 S
           RowBox[{* P& t3 \5 x8 b  i2 [1 m
            RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
    7 c( \) S( {) E8 s6 u# ~     SuperscriptBox[8 X; e9 I" j+ W4 F
          RowBox[{"(",
    + S/ E1 @6 N- u  j  B/ @       RowBox[{
    ( X) m7 |: h2 X& ^+ p        RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
    8 y% R2 }' y; h4 @     SuperscriptBox[! C0 B5 L. a: x3 E, g" [7 t
          RowBox[{"(", 3 C) N6 o3 `! y# ^
           RowBox[{' W7 g9 M" l2 E5 O* q+ z* Y" Z  {
            RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", - p- @$ o  x  D( w
         SuperscriptBox[/ F0 E0 u2 n* C, n# t6 f2 Z5 l4 X9 L
          RowBox[{"(", 9 n; W6 W4 t! l
           RowBox[{
    3 \3 V% g$ I+ a- t) @! ?        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",   b% g9 m/ A' O, O& Z! M4 H
         SuperscriptBox[$ w' J. J' }5 G3 V
          RowBox[{"(",
    , u0 r* ]+ F3 X1 ?0 a: m. n       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    " `. N: U6 k! p# G3 _+ Y  m     SuperscriptBox[) T3 j# Y2 \; e$ t
          RowBox[{"(", % b8 U) M0 j: W2 `: l  q
           RowBox[{
    4 |4 G. p% m1 P9 v4 V  j        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    7 n! s9 {$ q) j8 A' w" ]     SuperscriptBox[7 n8 j: t& p: m6 I# i6 F; w9 i
          RowBox[{"(", $ F4 b# v) [6 _# G" j# [
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    . N/ I$ m3 m& Y3 {( B$ s  O9 n' Y     SuperscriptBox[) w  z# z1 `* G2 X
          RowBox[{"(",
    ) v9 ~- P) V$ [) b       RowBox[{
    7 {" w. |; g  m( @7 Q        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
    " Y( _! _+ i. s+ P5 e    ")"}]}]]], "Output",
    0 \6 R2 ~4 c/ p% y. a CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
    " p. a4 S% u! H  3.577960815043248*^9, 3.578012221953125*^9}]: x( S. L; G3 `/ O( _! `: F, ]
    }, Open  ]],
    : C4 e/ y  M9 E# P& x* U' q
    0 x1 ]" c4 E& h( L! GCell[CellGroupData[{1 e/ e, y1 ?- @5 L4 u& b) j* u. d
    ( c6 b$ J0 t2 c+ s( B: \! `
    Cell[BoxData[+ l' a( e* g+ i; X2 v
    RowBox[{"C6", "=", "Ca"}]], "Input",
    3 d) H: U8 L4 _- p4 O CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],  E  s$ \! u/ K, }- R+ ~! N3 m, H3 Z
      k4 U0 C0 I6 W* ?" ]
    Cell[BoxData[1 M! R; }, S' N8 b% }3 S: ]
    RowBox[{"{",
    5 D9 d! l! A6 k1 K# z' m  RowBox[{& `7 m, J& K# b4 t
      "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
    2 y# \: I3 D7 _" M' m   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
    * L: M( L# {3 u   "0.494866`"}], "}"}]], "Output",, j2 C3 a2 g4 y, f
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,
    . }" j( N- p( {! }( v& O3 G   3.5779608373044868`*^9, 3.578012227359375*^9}]
    8 L! N' r3 K3 k! e- j: j}, Open  ]],
    # c" V7 e+ J; [4 U5 H. w+ n9 F6 n/ m/ k* K
    Cell[CellGroupData[{
    " c7 o9 e" R# |7 z* n  R- I0 u6 ]) A# l  U
    Cell[BoxData[
    5 p& Q; D. r% @/ A0 q4 L% V6 f RowBox[{"u6", "=",
    6 A! ^5 @+ `) M/ S7 m6 ]  RowBox[{# I% I3 C1 C2 V: l  J1 x  t
       RowBox[{"Exp", "[",
    ) b  \; h: J, t; d3 s    RowBox[{
    + m1 }) Q$ @9 E2 V     RowBox[{+ x7 K3 i* l7 d8 D  A
          RowBox[{"-", 9 }/ S5 O- R. z) Y5 ]
           RowBox[{% V+ R* e# u5 a- ^0 s+ ~
            RowBox[{"(",
    # z% x8 i0 g# @  D9 u1 g6 R5 ?         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 1 a3 E& `+ n/ y% t3 [
            RowBox[{"(", 9 M3 g3 |& l( ]" R
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],1 ]6 B; ^3 M  S8 ^; ?" z1 O/ W. [" N
         "]"}], "/.", "DeltaX"}]}]], "Input",. J; R7 N7 L1 \$ K9 R
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
    1 l% k  I: A# z0 E: N/ k0 _" N
    0 t/ K7 q+ n7 x) sCell[BoxData[
    : O! U$ K9 z" }: q+ S" d$ S/ y SuperscriptBox["\[ExponentialE]",
    0 g, V; e, X; R+ t8 k- K; _" ~) m  RowBox[{"3.141592653589793`", " ", ( I' z  W- y3 {1 W4 Z
       RowBox[{"(", % L" V; C) M$ Q- c' j1 J
        RowBox[{  p1 P# L* m- w( |% ?
         RowBox[{"-",
    % T! H' W" [) p4 U2 v      SuperscriptBox[
    0 W( h4 x8 H- ^! n: `5 w3 o" t3 B) L; H       RowBox[{"(", 8 s/ O/ X* Z& l
            RowBox[{  ]1 H7 Z% x: q6 |
             RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 I7 C) b/ I4 e* p4 W+ t" B4 l
         SuperscriptBox[
    - a- }6 S2 c* j( Q! _6 ]: ]4 w# P      RowBox[{"(",
    9 [: n$ m+ A) O8 I       RowBox[{2 T) x6 T0 O; w+ ?3 Y  C8 d2 g" X
            RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", - }7 G% K. U8 S: H1 |; m- S
         SuperscriptBox[$ u  {* I/ y# j( B) |5 k
          RowBox[{"(", ( W4 X: i+ v- `- x) L) s* n  h- [
           RowBox[{
    # d, Q* [* ^+ s8 \* C4 ^        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", ' u( w9 k, S% z0 ]3 K, i6 |
         SuperscriptBox[+ i3 q5 s2 z0 ?6 N5 i9 I2 @# `
          RowBox[{"(",
    ! y' D6 x" o! |& t" K       RowBox[{. u2 o9 I0 e; R1 `5 J9 c
            RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
    9 S' n' m1 K( `     SuperscriptBox[: S  ?! B) X! Q: c  A
          RowBox[{"(", 9 p9 d: h: q+ [" _2 T
           RowBox[{& l6 p/ t( ~' \$ F5 n# i
            RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", $ ?8 k  X9 T$ a
         SuperscriptBox[
    & U' t# [( J8 X+ l& [- S      RowBox[{"(", 2 o! d/ Q0 t% y! o
           RowBox[{# P+ H4 y, F" M4 E7 E. C
            RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", 8 d, j1 e3 S( U2 t
         SuperscriptBox[
      U0 Q" _2 L* [$ @% r& E! s4 i+ U      RowBox[{"(",
    ) ^9 N% L/ G( V$ i       RowBox[{
      A2 g  }" w3 K% c2 P4 s) h( v        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    6 f# {& @4 L) ^     SuperscriptBox[7 B' Y/ c; `6 q5 P/ z
          RowBox[{"(",
    0 e7 Y$ \  ^9 g" G3 P( X9 `       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", : q* r( c- T% S0 I9 F
         SuperscriptBox[
    , ]& C( H0 |* J, s0 R- {% S! W      RowBox[{"(",
    5 a+ ?5 F1 d8 k# z% A- z       RowBox[{: K, V, }2 Q' X. _) q
            RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], & a% h% t7 j# f# S* ^- C
        ")"}]}]]], "Output",
    , q- s$ c2 R8 d$ | CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,   d' C# a2 l  Z, P& F
      3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
    : m: s8 j3 ]% c8 F}, Open  ]],
      o1 A. |1 M& s1 `& t" h! o4 Z' H( [
    Cell[CellGroupData[{
    7 L. z* B6 d1 J- _: M
    7 q0 R2 _  R4 n; wCell[BoxData[2 Q6 n: _# \7 T" q, S" U8 o! }
    RowBox[{"C7", "=", "Ca"}]], "Input",% F+ ]  ^  H6 ~$ Z, k6 H
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    & o- }) `7 y4 Y9 d8 Q" W& ]) v  3.577921316125*^9}],# D; J1 C  B4 ~2 \1 d& c7 \
    * W' A8 Q4 O' h, l5 {$ `
    Cell[BoxData[
    % t9 |' u7 a: Q  c; R RowBox[{"{",
    ! S3 ?! L% t) @( ]- l; x1 ?  RowBox[{& t. c( \2 e, I
      "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
    / j( z# ?2 r) d9 T   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}], 8 x* H$ s$ M: {2 m2 O' K
      "}"}]], "Output",
    ; _% r$ r: s, q* _ CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    % |: |7 s' A. U) K/ {) e' K( |  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
    6 f! H& e" W0 J( q- s" Y}, Open  ]],
    " D- a8 `% ~. Z/ [6 O3 m' t1 g
    # v. J  C1 R! Y4 O5 l' ICell[CellGroupData[{% F# G3 {9 K' V6 y
    # [1 V8 x  F3 r, J5 k
    Cell[BoxData[
    % l1 ]% r7 j+ j, s4 Q4 _ RowBox[{"u7", "=", % E8 e* _  U0 {- @' N
      RowBox[{
    7 Q$ Q0 I2 \" P% W" ~   RowBox[{"Exp", "[", / m) B1 h8 ?9 j) `* _0 e
        RowBox[{+ c9 I  D: I! H( ?1 i
         RowBox[{0 |% Y* {/ u* S
          RowBox[{"-",   T0 L0 ^; H$ Q3 z" b7 s7 U
           RowBox[{
    " _  s; ?- R- s4 Z( U$ r        RowBox[{"(",
    5 t) U* H& n: p: [! P         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ' ~0 Y% F9 G" `, ?; R( Q: A0 j
            RowBox[{"(",
    : Y( }" l& J. T& s6 A         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    " o7 Z: ]! Z) e  m     "]"}], "/.", "DeltaX"}]}]], "Input",( e* N" T2 H: W/ N
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, / ]0 A6 t* `  R$ H& H
      3.57792132028125*^9}],9 P3 r) S! ^) G

    & X( L) V4 E* p- e$ MCell[BoxData[
    ; k/ B3 U* P# R4 d0 q SuperscriptBox["\[ExponentialE]", ) z; d3 ^$ Y! {9 h# w. v
      RowBox[{"3.141592653589793`", " ", & q6 I' \5 d4 H
       RowBox[{"(",
    ' F7 X# z/ h; Z' c    RowBox[{
    5 o0 |' b( E6 u) d2 M( o/ l     RowBox[{"-", 0 I8 y6 z) n4 \9 y$ @! g! b( q$ i# E' ?
          SuperscriptBox[
    " M+ Q! {# N! d       RowBox[{"(",
    2 f2 J, G; f" c2 W2 I        RowBox[{
    % c: }9 R/ A: ]         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-", * c* ^3 s& `5 B9 H! u3 i
         SuperscriptBox[
    ! M; ?, w+ j0 q      RowBox[{"(",
    2 \& p& |  F7 J: K9 Y       RowBox[{
    " w4 @3 y% o5 o; p$ @, \/ [        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", - D# `1 k; X7 j; R& C. r6 [! J
         SuperscriptBox[
    1 C1 Y' W" v1 s# G0 Z: \1 v5 C3 U      RowBox[{"(", $ S( Y4 q+ r% S0 x- B
           RowBox[{" v" V: Z* Z5 \+ o2 l
            RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    ) J! a  |5 d& F9 v2 q     SuperscriptBox[# K' i# y& ?) ^& L2 F) v) }# l
          RowBox[{"(", # e( R4 Y: m# P9 W; i
           RowBox[{3 M5 b% x. j' o+ }# _
            RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
    % I# B) ?- C) g     SuperscriptBox[
      y4 f3 H" L) k$ N( T) Z9 U, G      RowBox[{"(", 1 T! y) w) O$ c- K0 {7 ~+ {! ~
           RowBox[{7 Y6 G! g4 L* y- U% ~, D
            RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-", + v' G( H& v  G% `3 M
         SuperscriptBox[
    1 K  L2 ^1 M2 D      RowBox[{"(", ' H7 w* U/ @) B, `
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
      C8 G3 i$ M! y  T$ D$ u, G     SuperscriptBox[
    / \3 D- w/ F+ h$ S3 O; L# [5 N8 z      RowBox[{"(",
    ( c' z- `" I2 o       RowBox[{# k" x4 j2 a( L. w2 O1 }
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    - f- u3 e- v& Q3 m, f     SuperscriptBox[; Q- a- J8 j! a
          RowBox[{"(",
    8 {& ^% h, V" @       RowBox[{4 U- T' H" {$ f
            RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", # ~  s" |7 B7 n* D
         SuperscriptBox[5 I" {) [  m% @
          RowBox[{"(", , m8 l/ t3 h3 F( F6 U# G8 }* t1 c
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    / M. t9 E( E8 o2 I/ [2 E    ")"}]}]]], "Output",
    * b% A5 E7 H/ w+ _) ^ CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    : T, R2 `# i( d* B  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, " V7 Y; |5 N  r
      3.578012251359375*^9}]1 B# F! ~2 o; z! i5 y6 w
    }, Open  ]],
    ; j8 _1 h' l) B. u( g. @8 s
    : i: p, b6 {! p$ A! T2 _Cell[CellGroupData[{
      h- G  C* M  `0 q' p7 w
    $ Z: h; F; I) S7 Y+ `; R1 K* K& LCell[BoxData[1 K, F% z2 m3 d6 x. J5 {" G# N1 N
    RowBox[{"C8", "=", "Ca"}]], "Input",
    ( ]1 Q/ W$ ^5 O' Z3 \ CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, $ r7 g0 w+ }' R! _
      3.577921316125*^9, 3.57792141421875*^9}],
    ' a+ j1 P6 G  e  S6 w2 g, i" v! _7 o5 a/ t7 H
    Cell[BoxData[% J( E' B' E: P
    RowBox[{"{",
    " l5 `8 w* M4 F7 t0 s  RowBox[{
    . C% ?: j% Z: _  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
    8 F. {: V5 `/ U9 T$ d8 r' z& [& i   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}], & P0 r1 k3 o4 o6 y# X4 C2 J
      "}"}]], "Output",
    # i4 U- ?  B5 C7 E3 i" T/ H0 x CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    # A2 _; A8 W6 f/ K' t, `  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9, 2 @! c8 S$ F5 m
      3.578012260515625*^9}]) H1 o9 `. c  O9 i8 l4 f
    }, Open  ]],
    7 e* g4 c8 w5 q5 e# ~
    5 b0 S9 f3 d) f! B4 u' G( gCell[CellGroupData[{/ N  S. u1 L0 {. F! Q

    6 |3 k& P% f: o. JCell[BoxData[1 k4 [  E1 q# m: C2 y0 r
    RowBox[{"u8", "=",
    : u7 D2 n6 r) v- I  RowBox[{- \2 q8 `  Z; K6 F9 ~6 B/ ?
       RowBox[{"Exp", "[", + Z. e8 N, g+ S8 P" o/ s. M0 |2 d
        RowBox[{& `- D8 F1 \* D: {- _( O  E+ f
         RowBox[{( H0 k) p8 b$ H
          RowBox[{"-",
    3 [: e- e1 @8 a       RowBox[{
    $ x& k' \9 x5 X- ]! U; k* s& F        RowBox[{"(", / @$ E. ?. }7 I
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",   W# P7 J9 R4 R$ R
            RowBox[{"(",
    / a0 W! J2 I! e% M0 _; o  P- w         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    4 Q- L; P. y9 o) ]- K     "]"}], "/.", "DeltaX"}]}]], "Input",
    0 W( m0 r1 G* J% U CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    * r' S. u( o. S  q0 L  3.57792132028125*^9, 3.577921416921875*^9}],# v. ~2 `' x) x& y* C

    9 i  Z& W' U$ `% \" V7 N: ICell[BoxData[
    ) J6 w- |, x+ B SuperscriptBox["\[ExponentialE]", $ f, M6 v: q# x, G
      RowBox[{"3.141592653589793`", " ", $ r7 ^* Q9 Q" O* u+ r6 g
       RowBox[{"(", 8 {$ B7 V; w) Z- {  [- k! F7 |
        RowBox[{! I! l# ?0 E$ ?" n" h. ?3 q2 L8 Q. b) v
         RowBox[{"-", / `5 t* r" I0 x! P- i0 X
          SuperscriptBox[
    4 p7 ~' P: h' y* ^       RowBox[{"(", ! d/ D: ]- p: h% L% G0 g
            RowBox[{
    / K& ]0 q# a9 i! i/ v. u         RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", ! A6 \2 ]% x0 X; H
         SuperscriptBox[* ]% U* _) o- I' g6 K
          RowBox[{"(", - L3 B) B& Z  l6 C2 A
           RowBox[{* v3 I5 s# v0 ^2 v9 ]- T
            RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
    - E- O7 i5 [. m6 s     SuperscriptBox[5 k9 W2 R& x5 y
          RowBox[{"(", , h* c/ \) `( }5 @! f2 f
           RowBox[{
    + P3 }! @7 D) |5 M        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
    / }$ ~: C1 K6 j1 H; ]     SuperscriptBox[
    7 Q; A( p6 c' a, N% l- S; d* G; x      RowBox[{"(",
    # W: O) W, h& E9 @5 ^# c1 I0 b, o       RowBox[{
    ; v% m. e3 D' @8 n7 h" ]" H- G% T        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
    - {4 `' W% R" J- _+ ]- Z     SuperscriptBox[
    2 ^2 i  O- B  c9 q6 g' p% o5 m. ]      RowBox[{"(",
    0 E7 ~; a& D+ R       RowBox[{8 ~0 a. w+ H# h" e7 G3 {0 ]  q
            RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
    2 b$ A3 y, G" F  S0 i     SuperscriptBox[; w( r% R1 a. B, x+ }4 m8 X
          RowBox[{"(", * A8 m9 J7 y- t5 S! X" Y) q, n
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", " g  [* z2 `- [6 A1 V, A
         SuperscriptBox[" `# t  @; T: {/ O9 ^! K: P% X: n
          RowBox[{"(",
    5 _0 z6 u6 O+ G  O' W       RowBox[{
    8 ^4 B) ]' x2 R        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
    8 [0 A* N7 g% j8 i     SuperscriptBox[
    0 U) s6 o7 K5 l7 W4 p, Q7 N- U      RowBox[{"(", / _$ `) W2 `: A; {
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 2 a% p1 @& p7 S4 Q' D/ o0 Y; E
         SuperscriptBox[
    ; U0 h8 }+ w) D" L      RowBox[{"(", ) ^( U! n1 r. x4 S9 H4 h
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 3 x. i- z8 c) Z  ]  j
        ")"}]}]]], "Output",
      k" P+ H8 u+ L8 L3 M$ Z4 n# a# @. D CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    " ?* h$ e( ?7 G8 P+ |/ ~" n  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
    ( ^0 R+ G5 D1 Q* l9 j+ `2 e  3.5779608945565863`*^9, 3.57801226165625*^9}]
    1 d9 x9 v7 i. G3 f}, Open  ]],
    3 I6 {: O2 L0 G# N* V8 n2 @$ z/ \) P
    - L$ D) w0 O+ @" C& yCell[CellGroupData[{- S; `0 R) F. R1 p
    ' R" o2 z7 n( r5 K4 y3 S
    Cell[BoxData[
    2 Z( p) @8 B& {! Q8 H; O& i+ y RowBox[{"C9", "=", "Ca"}]], "Input",
    7 k' M' T6 y4 | CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, . _5 ~- V- Y: M7 ?1 \# l; q
      3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],
    " f  A6 w3 I3 v% }0 b" D" x# R1 B, k/ f$ V) y% H  M
    Cell[BoxData[+ Y$ m6 z; c( W0 \  ^& M2 J; j
    RowBox[{"{",
    2 C* |$ v2 w- {; Z; a  RowBox[{8 V+ l2 o4 n! F( u( U! i: ?- V/ a
      "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
    6 A/ V9 E: [4 G   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
    4 `% f, I; d% c# V  "}"}]], "Output",% H( R: \2 f( J; y# o
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, , {+ \& U0 ?% G- w( v$ i: c
      3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, ) w( H6 V) K) o# u- Z0 a) Q$ Z
      3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
    ' |& o4 B4 {5 D. y7 ~& F8 r  3.578012268234375*^9}]) b& o" R* n% l# B2 s: e  A
    }, Open  ]],
    & m  m  {6 D. n- w7 U) d+ Q1 m. c7 ]3 `, J) U- C' Z
    Cell[CellGroupData[{; q4 A+ E- y6 d
    3 `3 I# H8 ?! [& Y7 X
    Cell[BoxData[
    : {9 i" r4 N4 V; p* X1 J( x. _ RowBox[{"u9", "=", ! F- R  m* O  C
      RowBox[{
    9 n$ ]$ q# T/ o' [8 D# ]1 Y   RowBox[{"Exp", "[",
    0 x; J& l9 y: \5 C1 S2 D) e    RowBox[{- p% h& \3 u) g- H4 O0 @
         RowBox[{
    - l: Q$ `, K' ]) `* [; F0 Z6 {      RowBox[{"-", ! ]! ]2 g7 e0 b1 m+ Z1 [
           RowBox[{/ z4 b* r' G1 }4 w+ l
            RowBox[{"(",
    9 o+ S* }7 {; P7 U$ r         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    , `) \0 |3 T+ V2 ~+ \        RowBox[{"(", & d2 t/ Y# F3 ^! \& Q
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],; s; L) G" W% D- |) q. Q! p/ z
         "]"}], "/.", "DeltaX"}]}]], "Input",2 j0 {" M# m. I: C; b( @% f
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, : s; `9 ^% k0 s; H' {( w
      3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],5 b' p, [4 }* t# p- ^9 W6 w

    8 O  ]" D: U' D3 G, f3 o8 PCell[BoxData[
    ' [5 c- t0 m* c5 p+ A/ g4 B# [ SuperscriptBox["\[ExponentialE]", 2 X. F, O- V. v
      RowBox[{"3.141592653589793`", " ",
    , {: U& G- j$ q+ u% t5 e, E   RowBox[{"(", ( I, t& u. S; k; G
        RowBox[{
    / E7 C" K4 b8 H* E3 B! h     RowBox[{"-", " |2 x5 B' E0 `  e4 A: Q* h3 r& N
          SuperscriptBox[
    0 o7 g( I$ N$ F( _) i8 m2 C, O       RowBox[{"(",
    + G# d: E6 b( [        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", / B# c! }% I4 @7 R
         SuperscriptBox[
    6 U# s3 U$ Z2 p' D  H      RowBox[{"(",
    1 b4 m( r8 O; |, |, t6 Z! R% Y       RowBox[{6 l; J- z8 W+ W; u8 ~, i1 e1 M* }. b
            RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
    5 C8 ^3 s8 E9 i. H7 [     SuperscriptBox[
    ' b; G8 T2 }( H( Q0 u      RowBox[{"(",   N6 g* a6 G4 [  A% M5 o
           RowBox[{
    9 q) D$ N0 g" ^8 H$ d0 g        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",   W" }3 c/ {# d" t6 t
         SuperscriptBox[
    % @; X9 t5 d3 k1 a4 K      RowBox[{"(",
    ! x) x& P0 p2 D0 e4 |; w* Q1 _       RowBox[{: O) Y" j9 C+ e3 K9 q
            RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", $ d9 q7 N1 f4 R( Z+ e" J( o  K: A( r
         SuperscriptBox[
    1 m# H6 O) K- r0 x4 _) H7 y      RowBox[{"(",
    * ~8 ?3 {8 f7 l4 t4 x       RowBox[{
    & k7 [8 b, t' X; H        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    + u9 b3 G# c/ T     SuperscriptBox[3 b; h3 {$ i- u
          RowBox[{"(", 5 t: h* i$ t8 `" ^; J# k) q  _' s( i
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", , G% k" h# _0 i( ~& @' S# L
         SuperscriptBox[
    ' k& l9 a8 b8 i& r- M  a      RowBox[{"(", ; t0 a6 H" l8 R* _" D# S
           RowBox[{; |$ _6 ?1 X, r
            RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", * v4 B$ d4 \! C8 h& b
         SuperscriptBox[# h$ v$ P- J! a  `, j; W( `) J
          RowBox[{"(", 9 |: X- u; [/ V7 C+ c2 s0 U9 b
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", % \' ]& l/ ?( y' _' r% t# e
         SuperscriptBox[
    + W3 t* F7 }9 \# v$ K2 ^      RowBox[{"(", 9 N# m7 F9 P$ |, F
           RowBox[{4 n( x, f( l* C0 n# d4 V
            RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
    + r' n; j- `+ l; W" @; v% a    ")"}]}]]], "Output",$ ]* a8 {. {, d4 y3 |1 b
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    2 d' K+ r) z$ G; {* e7 I; Y/ O  3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
    & ?, n, Q4 R' s' H9 V! |  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, % C2 |) m4 S* ]) }
      3.577961530421959*^9, 3.578012269125*^9}]
    3 `5 }# W% i  I+ M+ ?}, Open  ]],9 b8 P4 S$ \% @" A& n5 @$ G

    3 u4 q7 d& c4 O* m0 g5 i# JCell[CellGroupData[{8 Y* C  n5 s, f9 K* e1 D5 L

    5 E; T: ~/ n  qCell[BoxData[{$ Z4 l: v: h5 `
    RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",   p% J: D5 G+ k
    RowBox[{"u10", "=",
    / F. }. G" e% l: e' U: v  RowBox[{8 e9 G% _) [2 b1 Q; t1 {
       RowBox[{"Exp", "[",
    - H7 b; I$ N" T. \$ M: F& B    RowBox[{
    - H* V& K* g9 ^1 j  a; ?     RowBox[{
      n( @( F: n& @, W# R; B; Y/ \      RowBox[{"-",
    * K: i& e; [* Y" s( S- F       RowBox[{% `7 @/ Z* k" A# T% J  j
            RowBox[{"(", & v1 u- |, u8 L
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ! U% C, T! f8 ]3 R1 U4 W        RowBox[{"(",
    9 e. m/ n2 d( Y# T* Y         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    + O+ j$ b; x( V     "]"}], "/.", "DeltaX"}]}]}], "Input",/ w' J6 h8 Y6 J* Q) v3 a( L
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],0 l' \( d7 F& t

    : g$ s8 O4 h* X7 W$ }8 O6 ?" UCell[BoxData[
    7 e1 f4 c/ _4 K5 N RowBox[{"{", 7 K" t4 ]6 G: p" f
      RowBox[{
    . c# k+ Y2 ?1 h5 W0 z  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", $ x' o8 p0 `) @2 ~
       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
    : ^+ b; H0 ?3 E* S CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],7 C* D& d, G) D
    8 }& u4 Q0 y1 b
    Cell[BoxData[, s9 Z& D1 I3 L) s' r( m
    SuperscriptBox["\[ExponentialE]", 1 K- Y7 d" m! u1 ^* L
      RowBox[{"3.141592653589793`", " ", " v2 S- F- [, p
       RowBox[{"(", 4 r6 z- e3 \& u+ J+ h8 `
        RowBox[{6 Q6 J8 A# t+ Y& f- P
         RowBox[{"-",
    3 p3 B4 Y( B1 n, n: ?      SuperscriptBox[5 z8 C. B3 B+ h/ I
           RowBox[{"(",
    % @% B! W( o% o, m3 M- s7 i) F        RowBox[{. c* i1 V$ U& A- j# z
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    3 R- o# T' D3 R2 J6 Q8 s+ q     SuperscriptBox[
    + a/ G0 x3 G& ~: z1 l" C      RowBox[{"(",
    7 E% w7 F9 e: q2 e. G       RowBox[{4 d/ P7 l# M: ]/ l7 m# r; O2 i
            RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
    ( N5 @7 Q% ]8 t( n     SuperscriptBox[. `* U/ j* M3 O. s+ x! Q7 y' {9 {
          RowBox[{"(",
    % D) [5 V4 F  D1 S' B( `& x( r; C       RowBox[{0 ]( V. t8 Y* u# K
            RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", & ~  n5 d0 K2 f3 T" Z+ _$ U0 T1 ^
         SuperscriptBox[9 N! V/ }; U" U; f% p" p- `
          RowBox[{"(",
    ! x1 y5 J% G1 G" |       RowBox[{8 c: w$ [: r: K, c0 g. y
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", 3 o7 d0 q2 D9 s# Q9 R4 Y5 `
         SuperscriptBox[: q6 q) `$ c8 B) t. g5 ~
          RowBox[{"(",
    & H# [; b6 h; x. Z7 O6 P: E4 p- W% Z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
    2 _& K+ E) f& p1 W5 b& n5 C     SuperscriptBox[
    ( u' T9 a8 x' t9 H% A6 }      RowBox[{"(",
    1 n. |5 f4 u9 n- h       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ' ~% V: z* a2 _- X
         SuperscriptBox[
    3 j5 h% \0 `8 A% |      RowBox[{"(", ' d  K4 `- O" S$ M& O& Y! X, P
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    . S* o1 _- q1 P& B2 K, A- u3 s. ]     SuperscriptBox[
    ) J( l  Z1 y6 `      RowBox[{"(",
    2 C% N! Q3 e* [5 P# h8 j9 \: D       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ' U4 B! A9 \. D1 y# A. W     SuperscriptBox[& P0 w" [. C* w( L- u6 ]0 K* M! `; \
          RowBox[{"(", 0 ~1 b2 G: Q# G" H% [1 z3 t
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 1 ?6 x, y, D1 x% J9 p$ P6 D# }
        ")"}]}]]], "Output",
    # t- B$ \. S- a+ y) d+ m CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
    , `6 X( ^' t+ @$ \7 w1 n8 G}, Open  ]],5 O: s9 [/ P. t& o

    / B3 L% L& m! ~2 Q! ~1 N6 }Cell[CellGroupData[{3 b4 d* V" E; W. S
    4 I# M) G; K" Z
    Cell[BoxData[{
    8 {% q( l2 V; ~+ W- C RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
    8 y: B7 U4 y, @4 H6 R2 c2 r+ e: y) @! h RowBox[{"u11", "=",
      \1 u" {  n! b. S6 j3 Z  RowBox[{
    * i2 ?3 W0 d. {& Z' |4 s5 a; K   RowBox[{"Exp", "[", ' ~2 ~3 `0 U) A% Z5 a
        RowBox[{
    ; n, k5 q  v, H8 y7 `     RowBox[{
    4 v- H+ U" ?. L# R3 c      RowBox[{"-", 2 y9 r- N( a+ [* _
           RowBox[{
    & M. K3 r- m- H- z* B        RowBox[{"(",
      w7 ^( U* W, ?, Y         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", . I2 ?" K( K, h( T6 \: X: @
            RowBox[{"(",
    4 A5 w( D2 ?1 ]2 ?9 Z         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],& ~  h, l8 W: ?4 J8 h& G  D
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    ! V( j% b; E% L7 P/ H8 c CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {8 m2 A& y' ?/ A5 p4 z/ \+ U
      3.57796154237158*^9, 3.5779615434011817`*^9}}],
    ( Q1 F/ V8 s  M' z- G# Q( I9 h8 s$ p6 u' B0 i
    Cell[BoxData[
    ) Y; C- i2 d2 l3 P! m RowBox[{"{",   y6 I7 \5 y: n% ~
      RowBox[{
    7 t  z5 i+ K# P$ q* [( a3 |  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", 9 J7 D( n+ i5 g* r$ [
       "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    ; k9 U1 g9 i" M  "}"}]], "Output",' y6 C+ J7 C9 Q  D
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, 8 K+ }6 `/ p+ f, ]( o
      3.57801228203125*^9}],
    8 a1 C# a! I) p) [# W4 \! w
    & h1 A) m) n& ~; R3 gCell[BoxData[
    . w, R9 R; L6 r" s SuperscriptBox["\[ExponentialE]",
    ) i, l6 y' e7 @$ G% d  RowBox[{"3.141592653589793`", " ",
    0 ^, F) w2 B: n' W& K6 a   RowBox[{"(", % h  ~" `2 ^9 I0 X6 U
        RowBox[{
    ! _  B; a- \, d* C* t     RowBox[{"-", ) g2 L4 h$ x+ ?
          SuperscriptBox[6 c3 x1 ]" i* b( L
           RowBox[{"(", + I: V/ q/ k0 {
            RowBox[{
    : L5 F$ m! O5 L8 i         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
    5 ?6 T9 W2 i6 q( q     SuperscriptBox[6 f8 q" g5 t  E
          RowBox[{"(",
    5 `7 z4 d, l. t2 A; X3 b7 o       RowBox[{( C  k0 @6 P. l5 e7 h- z
            RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
    ! `) m8 n4 b# E+ L1 E, B: J: j     SuperscriptBox[6 K. C6 Z& M* U& w
          RowBox[{"(", $ \" d; `2 M9 q/ C2 Q$ L
           RowBox[{1 _, O4 {- i# v3 }& W% a6 z0 u
            RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", + P  {2 o+ O( X1 ?( T
         SuperscriptBox[
    ( i; M2 X7 ]- _( I' f6 b" v      RowBox[{"(",
    & s. |# c/ m2 E7 [+ o& n       RowBox[{9 T' R( _' K0 ]( t" `
            RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
      H7 c. {: v4 o! a4 p3 ?     SuperscriptBox[
    & j' O' a6 @5 j$ U$ }- O  j7 x4 l      RowBox[{"(",
    - q5 q; F# z- f       RowBox[{& M3 ?9 z) w: V8 U+ |/ n
            RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
    8 X9 m+ }. h7 e" B/ |' v     SuperscriptBox[
    9 L8 f. A: r' d, C) }7 E% w- h      RowBox[{"(", $ R6 @% m, K6 |
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", * X7 W- E- `) n
         SuperscriptBox[1 N0 K# P, T/ T8 d
          RowBox[{"(", # h1 B  ^5 F5 H- t& v/ U
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ( H9 C$ {7 O& f5 O
         SuperscriptBox[
    5 K9 _. I8 ?' v, A) R      RowBox[{"(",
    - E" l& N; f. g4 m- I7 d! W: I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    4 F1 K4 u1 J0 j1 J' ?     SuperscriptBox[
    6 \; w  \, k9 o  H- l      RowBox[{"(", 6 ]- v0 p" Y7 c  S( A8 _/ U; t
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], * w& s8 @8 m1 z) J5 Q
        ")"}]}]]], "Output",
    : B$ f6 C$ \" ?3 r( Q( d  m. K4 { CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, ) f) s- T% C- k' w0 T$ }
      3.57801228203125*^9}], q6 P% P* d! |* R: _: s( K
    }, Open  ]],9 w* m, v9 z: g; b
    4 o# J6 p3 C' r+ D
    Cell[CellGroupData[{  q* t$ D8 Z* t  B) M' I

    6 l' N4 P" ]- u. e# E6 }4 y& qCell[BoxData[{
    - P# H% W9 Z: X2 g6 T& v, a8 { RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
    # p' u1 v% M3 H: ?, b' m- P+ s: R RowBox[{"u12", "=",
    ' I" c% i( \) Y* N  RowBox[{0 ^5 L- p/ {& Q, u, z) v
       RowBox[{"Exp", "[", % s$ g, D- t/ |4 f' L9 A
        RowBox[{3 C/ f5 A  n9 d9 R* ~
         RowBox[{' e# o/ o% z4 g
          RowBox[{"-", 6 H- O) \7 X# N0 i' b
           RowBox[{
    8 F$ Z: L+ P4 u. ?/ X' U) z' g        RowBox[{"(", , n; g( R8 x3 m" t) C/ {
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 2 g$ y1 s, I. ]8 L% W$ x; ^
            RowBox[{"(",
      B; o! Q# \' v         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    % j2 Z# [" k1 k- w     "]"}], "/.", "DeltaX"}]}]}], "Input",
    # e# t& |! e& H. I- @5 b CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    . M- H7 b& N/ o; v/ u5 Q  3.57796154237158*^9, 3.5779615576284065`*^9}}],
    8 X6 f5 X2 ^$ U3 P( M" ]7 ~% \- [3 n1 F! ]& y; P" A: o) p6 g
    Cell[BoxData[9 u$ P: d; I. ~( T
    RowBox[{"{",
    , b6 N  p  b! k5 N  RowBox[{( S6 \( R' U$ }9 c$ y' E
      "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
    - `% E2 \6 R4 F. c  z   "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}], 8 y. m4 ?* g, q& ~) Q8 k0 C
      "}"}]], "Output",
    . P; L5 {* v: Z/ E* I. H8 z' q- ] CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],
    . ^5 L. N* }% d8 I$ e# T* l& y+ ]7 R- S# i8 u  N
    Cell[BoxData[
    ! u3 Y2 X" J" D8 c SuperscriptBox["\[ExponentialE]",
    ( o$ t! t: U+ s* M6 g0 H  RowBox[{"3.141592653589793`", " ", , g# l  l5 H8 N$ {  A' [/ o
       RowBox[{"(",
    , ^- \) S* f9 G  m9 j    RowBox[{
    6 O0 c: S5 J. k5 Y     RowBox[{"-", , d4 S5 W/ M; n- C: Q
          SuperscriptBox[. ]4 q# b& s; H6 `! G, ?' I8 M
           RowBox[{"(", ( _+ v8 B$ L! z! W
            RowBox[{+ N7 n5 V1 H4 u3 ~% s* ^5 V' s
             RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", " @/ I* B0 ]- j. T6 m
         SuperscriptBox[
    : Y$ d: O  k+ b. Y: z5 t0 d      RowBox[{"(", & L) }0 U+ }' K! T
           RowBox[{
    4 ?& H- @$ R( v) T+ p) L        RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
      w0 {5 l$ M4 ^% B% _7 g     SuperscriptBox[
    $ ^1 X$ K- A5 g4 N$ R      RowBox[{"(", ) [3 l4 S7 g# K; m: f7 ?
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-",
    + `# _( j4 n( a     SuperscriptBox[
    . d. m* T4 Q- B# ^6 N: H      RowBox[{"(",
    1 `$ f" x# F  [7 v! M7 \; o! [+ E       RowBox[{
    1 V# ~7 O; {+ E        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-", ' \7 n# {1 b* X  C1 s& w" f2 F8 [
         SuperscriptBox[
    0 l4 T. e5 `8 {: I      RowBox[{"(", 4 D% f8 L* W, r8 u0 Y3 Y3 x
           RowBox[{; o7 K8 J* J' W4 C0 g
            RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", , {3 H* w3 T7 F2 ^
         SuperscriptBox[; d% [6 T0 k% V1 Z
          RowBox[{"(",   N# t$ ?; k# K: x0 z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", + X6 T) n9 G; o% U4 Q" P
         SuperscriptBox[
    4 b- D1 L  R% a- W7 x1 N, O- j      RowBox[{"(",
    ; _0 s0 U$ h  ]  t! R       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 7 S$ F& h. ?! L; V+ l+ t% D
         SuperscriptBox[
    . ?0 l& ]6 N: @- [' A" }& _      RowBox[{"(",
    ; S" \* ~& u: r* y1 Q' m       RowBox[{: n2 y* N3 ]- ~( Y
            RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
      N0 g% N5 q3 _) l4 F     SuperscriptBox[
    ! e# E  Y! @! u+ S6 J1 S      RowBox[{"(", 4 I* D4 S8 v1 ~/ q8 m- f7 j& ?
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    3 v/ @8 B  v9 s6 k) o+ P; e* C    ")"}]}]]], "Output",
    1 ]6 w+ ?3 M$ l; E; ]% }' { CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]% d$ s+ F. f. [
    }, Open  ]],7 T( g6 M- V, p
    7 k! G. ^5 M7 {# d( W" a- Q
    Cell[CellGroupData[{7 E* ~( k  [( Y) \

    , R+ ], y& a: @! M0 H0 \0 Z; SCell[BoxData[{: x; `+ s' O+ {" M" y
    RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
    . ]8 Y2 h/ B+ [ RowBox[{"u13", "=", ' v' h/ z* P. U' O. I! c: ~# \7 y
      RowBox[{6 Y2 y, r2 U1 H4 h) ~
       RowBox[{"Exp", "[", * F4 E3 A, d" R# Y; F; k. `0 |" `5 ?
        RowBox[{" S1 D/ V# ]6 ]8 j- C
         RowBox[{, Y; ]* f  Q* h$ V/ k; F- @
          RowBox[{"-",
    / l) J+ X# b& u       RowBox[{
    ) L$ M# N  O( ~  f7 |. G" L        RowBox[{"(",
    - F# [  q$ \$ c- _1 F0 i         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    - }, K* d, t8 T6 Z- h        RowBox[{"(", # v" Z6 A% Z& D# Y6 |. F" d9 a
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],3 q7 S. N# l$ q2 ~/ X( w% M
         "]"}], "/.", "DeltaX"}]}]}], "Input"," P; k  o- x) K
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {  f! L& V% T1 l3 X) m
      3.57796154237158*^9, 3.5779615599684105`*^9}}],
    8 S6 a# l; l, x: `% I, E6 F* W+ B8 v, I# ^$ w$ i
    Cell[BoxData[, n4 C, s$ u5 ]$ D3 x  O9 x
    RowBox[{"{", " v6 ]. x( `' {& V7 H
      RowBox[{
    7 c7 B( E* |& @" i: I  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
    + I/ N* B& l/ C* q/ U6 T   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
    % C5 n$ u2 W9 ~  "}"}]], "Output",- M( M. M% O  d+ s. S
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
    5 A6 A$ v6 ^/ l9 _& m6 }, ]& J7 d3 q9 b5 U* U: E2 \" b
    Cell[BoxData[
    . R' B5 J+ _: ?3 Z) r SuperscriptBox["\[ExponentialE]",
    * ~9 c5 L/ F* `3 V7 y9 ^; q  RowBox[{"3.141592653589793`", " ",
    * @4 s! V( K% c0 v   RowBox[{"(",
    - E+ K  d8 F) y) R" {    RowBox[{( ?" B: E, Z: T
         RowBox[{"-", . Q( g6 c2 u- x% W+ U  |, f! Q5 E
          SuperscriptBox[6 P+ |3 f7 h# L9 a1 v- b
           RowBox[{"(",
    ' @/ }) K( J% g! @0 C/ ]        RowBox[{- a) ^; I: Z; E8 G: d$ f" T
             RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 O2 U# |- B/ C( |% `& G! P0 G
         SuperscriptBox[
    : A9 H- \3 `8 f% \$ D      RowBox[{"(", 7 o4 b* Z+ l* k! x' L$ }' L
           RowBox[{, }/ y% G' O. D$ U
            RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
    8 L3 v$ c: ?7 Q/ [     SuperscriptBox[
    , w4 a5 L: k( j7 ?' L0 Z      RowBox[{"(",
    0 m( E: Z1 v; f* t: Q' J& F% C5 K       RowBox[{
    ! D8 @6 u9 J1 V3 W8 z        RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    5 C4 X! H5 `3 I$ b     SuperscriptBox[, B+ o) _1 j* T
          RowBox[{"(", ! |: S1 b3 ^, G, c
           RowBox[{! e. \8 n7 e" \4 N: ]! z
            RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", " z3 w9 Y  i  e/ m' k
         SuperscriptBox[
    : L4 V1 `* K. S5 ~      RowBox[{"(",
    0 x$ j* ?1 ~' B2 t  t! j, \# |. l6 }       RowBox[{
    5 t: Q+ H6 ~. e4 Z3 j        RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", + h' Z# O) z/ v1 [& E4 C3 V% ~8 Q
         SuperscriptBox[/ T7 a4 X3 a* u0 K
          RowBox[{"(",
    6 f& |3 n1 _6 I% F3 m( p# L       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 0 ^  D0 v! P/ u+ Y! H. D, J0 p
         SuperscriptBox[
    5 \1 H4 K( t7 p* ?6 q      RowBox[{"(",
    0 q& q$ j0 b( [7 i- V5 n3 l4 i       RowBox[{" `0 @* ?' V. p: J0 k2 L! |
            RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    2 t0 l8 L* W) ?/ L     SuperscriptBox[1 X6 f3 {0 G8 ~$ ?8 K$ S
          RowBox[{"(", / v/ T' E9 d4 t
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 5 v# i8 r/ g1 e( t
         SuperscriptBox[
    8 v/ L, G5 ]% M      RowBox[{"(",
    8 ]: g2 _" r( F& N1 q* X. V) H3 W. o7 R       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    0 X( e" g  u: t+ q; }    ")"}]}]]], "Output",- Z8 _  k- q$ A
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]  O9 g4 l; p3 r; g( f& W* h& }
    }, Open  ]],1 D0 U9 S7 n7 W  u
    8 }/ ?, H: t/ w" i! v
    Cell[CellGroupData[{
    4 @9 v8 O8 A6 }
    & d) r: q4 U! \4 T$ D1 dCell[BoxData[{
    4 a& W- t5 G6 @, ` RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]", " N4 E- Y2 o9 e
    RowBox[{"u14", "=", # C1 ?% y( y/ W
      RowBox[{
    * O+ z# J2 b( b   RowBox[{"Exp", "[", ) f& Z7 d6 |+ b) o! [3 z4 e
        RowBox[{
    4 f3 ?& {; J: e4 p     RowBox[{
    ; y# F& P- E7 M7 U; K- O, s      RowBox[{"-",
    + t  N4 o& \; Y+ C       RowBox[{
    1 w! T  d3 x: f4 I        RowBox[{"(",   }, e) H$ R4 ?# _0 Y. c
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ! _& Z5 c4 l# J1 V" N        RowBox[{"(",
    * S) M0 i0 S# ?; b         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    1 T9 Y* A  w: _( x7 P$ ]' K4 f( y/ i# V     "]"}], "/.", "DeltaX"}]}]}], "Input",
    / N' |, T- K  {' B CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {7 y4 Q/ @, g) y# Y" a2 g* c+ O
      3.57796154237158*^9, 3.5779615663176217`*^9}}],3 v/ T. S7 l5 ~* U/ X! Y0 X6 I2 t$ `

    , c" O( a' r& i: _% x' f7 S' Z  KCell[BoxData[" T2 c2 [" {7 c! @* @
    RowBox[{"{",
    * y4 S8 i) e. o/ o5 }: p. `  RowBox[{( Q- B0 E  ~9 k7 U3 h" a/ i+ k
      "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", - H& m0 h7 t* \) J% u8 |
       "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], " V# Y5 x: f4 E! E& q: T2 d
      "}"}]], "Output",
    7 z- R1 B0 g; l, x) G" f CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],
    & f. J. ^  ~* w$ W% W, _8 j' {
    % c+ u' D% @3 mCell[BoxData[
    4 p. Y7 t( b" C( y: `' b' x# L SuperscriptBox["\[ExponentialE]",
    2 I1 b1 ]3 A( t6 D* p1 X( S0 g  RowBox[{"3.141592653589793`", " ",
    + j9 Z* B6 ?  p# Y3 ]0 u# M   RowBox[{"(",
    + R: q( R4 B6 Y, |3 F: [. V    RowBox[{+ A, G5 G6 a& c
         RowBox[{"-", 3 T6 r8 b# f3 m* c1 b2 _
          SuperscriptBox[. v( h1 a3 J1 Z+ z! m2 h" Y+ c
           RowBox[{"(", ; r  w- n9 J$ w+ W
            RowBox[{: e4 M2 I8 R) a' K$ Z# [9 H
             RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
    & `6 w. w6 W4 A; A! ^- C8 Y3 ]     SuperscriptBox[
    ( b- U2 ~0 F' _. i9 o' X! G" W2 z      RowBox[{"(", * d( T, h. ~2 n
           RowBox[{+ H0 ?* \9 U7 U3 b7 O' b# v
            RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", & F( k8 p" G" O/ S2 ]( R
         SuperscriptBox[. R7 Q) U) y  C' C% }+ h; }) \
          RowBox[{"(",
    5 ^6 E: o7 O4 D4 u- V1 L- C       RowBox[{
    % P- ]$ ~5 L0 R  k        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", . @; ?+ c  ?0 d! B% y/ A' Z
         SuperscriptBox[3 U: ~9 V+ V: Y4 }
          RowBox[{"(",
    6 j( D, x2 Q3 x: f" Z$ ]8 F4 C& S# a       RowBox[{
    , I8 v6 Q6 K; b( g$ N        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-", 2 q6 s# y% C' l3 u5 g# t# @) ]
         SuperscriptBox[# C: J: l7 ?2 w0 \" ?' ~9 \
          RowBox[{"(",
    8 H' C& W3 j+ o       RowBox[{
    / }+ a  `: [1 F( a2 W        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
    ' U4 m8 H' g* b8 ]" |     SuperscriptBox[
    # D$ u, W5 q$ f      RowBox[{"(",
    & X9 X- @+ U4 P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ( C; a4 p8 ^. n. B/ B  f, U4 K% k     SuperscriptBox[
    - F+ ?1 }% H% O3 i. a      RowBox[{"(", # Z; _$ p) k2 m+ o. U9 x
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ! W0 O# N9 V; ?/ `7 [, V
         SuperscriptBox[
    5 @7 k; c! d0 q+ w' t: E0 m      RowBox[{"(",
    ' T( d0 j  H1 B( e+ b/ {9 c% F       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    + Z& E8 v3 ?4 d5 r& f8 n: ~/ w     SuperscriptBox[
    7 u/ d% ^5 k2 g$ I3 Q1 ~      RowBox[{"(",
    # [1 E, m6 B8 h3 N& o, {7 P       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    , I0 _. C3 a" G& ~    ")"}]}]]], "Output",
    7 K8 n# ^8 |9 J) l* C' S CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    , Y, T. ~. y. w$ Y/ X7 {}, Open  ]],
    " Z+ Z+ h) r9 T# E8 |! `( R$ o9 {+ P4 b4 O4 k! W# @
    Cell[CellGroupData[{8 [( k0 ?5 b' `' H+ K6 W  {
    $ V* r$ T" j! _: C! m7 d) b& S
    Cell[BoxData[{
    ( J$ ~# H3 Y; Y: k9 m& c7 v3 ] RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]", 3 q% N6 e/ U8 T  }
    RowBox[{"u15", "=",
    2 [. u8 F' f3 E- }5 M; _) C. ]  RowBox[{' T8 Y+ c; {$ c# ^: O; ?( R
       RowBox[{"Exp", "[", / i  @- x7 F4 J
        RowBox[{, e& S/ s; G  S9 o& v$ h  S7 q
         RowBox[{
    , A' I( P* y5 \* o6 [" Q      RowBox[{"-", ! e0 T* _) c% R4 ?4 d3 y
           RowBox[{0 `6 Q5 m5 b3 \( ?
            RowBox[{"(",
    ! s0 ~* L6 z0 m, D& z' U         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ; [* j. f8 b! j1 u4 v% R
            RowBox[{"(",
    3 k: p9 b% L5 Q( U( F         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    : z- _8 u2 c" E     "]"}], "/.", "DeltaX"}]}]}], "Input",
    " j: z$ B: ^, T! Y2 G CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {& E6 d. F0 }) c0 t4 R* g$ l
      3.57796154237158*^9, 3.57796157098203*^9}}],
    8 _0 t# d8 L' k9 `! X3 j
    " d/ G/ i0 d! J' n+ e' TCell[BoxData[
    . T% _- \8 k; m/ j" ^: o- q RowBox[{"{",
    $ C# N* _& U/ i; L) z  RowBox[{
    " h/ x1 b8 D8 n. B' O1 _  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", : {* e& a/ i4 J& d
       "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
    3 P' z- F/ V) a4 T( G; I  "}"}]], "Output",6 S  v, {* g0 G2 c5 O9 L) L
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
    4 R& u5 q9 O# r8 a9 i
      U( m) r. ?3 X  dCell[BoxData[
    + C& g* i: O7 \- L3 k$ H- m SuperscriptBox["\[ExponentialE]", . x+ ]4 P2 }8 _( }1 m- V
      RowBox[{"3.141592653589793`", " ",
    % |1 t# \7 Y2 c1 d  m   RowBox[{"(",
    5 j& O4 C/ _$ @& u( q( n    RowBox[{4 g/ ?( y9 a( A4 b# [3 {, b. R
         RowBox[{"-",
      [; Q0 y6 _! ?1 l% F0 {# H      SuperscriptBox[0 T$ I9 c; m8 o8 l; D
           RowBox[{"(", 7 a" t: j3 g1 x) E0 C3 o. i; D1 g
            RowBox[{: p# {( e0 Q5 W! W) W6 Q9 j
             RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 w. x! y1 d0 M
         SuperscriptBox[2 M& k8 H, E- j2 Q% @/ J
          RowBox[{"(",
    " ~: H5 H! `2 D, N       RowBox[{! i2 O0 ]. Y% B! t
            RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
    $ n1 H+ y+ \3 N" c* E     SuperscriptBox[
    5 i) x- i. h% _2 t9 A' }      RowBox[{"(", + x; H4 j& m. n/ Q9 _
           RowBox[{
    + _# b3 c0 P: z        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
    5 c6 p! {6 q6 a' ^8 w. E; O     SuperscriptBox[
    # I+ ]% N2 z/ d' s( h6 h2 @8 k      RowBox[{"(", 1 y0 h9 w3 ]$ }: ~3 c$ Y
           RowBox[{
    + c& W5 Q& N  V, B. b1 X        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
    / L. V, a* V# i- Y- d) L: t7 X1 v     SuperscriptBox[
      w( }; `. R, l+ V& }! G% C      RowBox[{"(",
    3 y+ L: `& Q6 m4 K6 N6 H" c       RowBox[{
    & [8 a0 l; n4 j. i" V7 s: U        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    9 C8 q5 J6 `; p7 y3 n4 S     SuperscriptBox[9 L" M/ E% g1 N" m
          RowBox[{"(", 4 L; w1 f& F: r$ h: C0 ]
           RowBox[{; C) N7 u& \. @0 u) q
            RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    $ @2 i5 A) V& H     SuperscriptBox[
    5 W) f0 ~' G0 F/ F' X      RowBox[{"(",
    5 u7 E/ v' b+ X  F% k9 X  h       RowBox[{
    6 t  P4 b: e. \        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    9 Z6 Q* i. A/ ]- ^     SuperscriptBox[7 Y% \# z% ^8 H9 l+ v
          RowBox[{"(", 3 `( @# z( D1 N5 N6 U. q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    - s. W3 m) P7 ~' s) r     SuperscriptBox[* O+ ^% q& Y; b4 T8 t2 H' n: @2 Z: h
          RowBox[{"(",
    ' C9 ]. `  Q  @! R" t3 a! W2 n1 h       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    1 w9 J+ _1 n# Y    ")"}]}]]], "Output",
    % G2 d+ Y( w  ]% N CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
    * E6 M: [( Y7 H; C* o$ {}, Open  ]],4 y8 _9 e' e3 L- Q: ~
      o* {$ I, G3 X1 ^$ p9 T3 V) V8 T. c1 o
    Cell[BoxData[
      h$ q0 `1 M- E. R RowBox[{"For", "[", - o6 H4 ^+ w1 J
      RowBox[{# @9 n/ j( K7 T+ [" F$ T
       RowBox[{"i", "=", "1"}], ",", / r+ c& |9 J2 X4 \* ]4 _& I
       RowBox[{"i", "\[LessEqual]", "9"}], ",", ( b# j! Z2 A& P( m& T
       RowBox[{"i", "++"}], ",",
    0 Y3 @7 ?# F; y- a0 R! j; X   RowBox[{0 O5 T: |8 G; h! \: s$ f  G
        RowBox[{"Ca", "[", ; [* G) O7 ~1 g9 f, c) R! t
         RowBox[{"[", "i", "]"}], "]"}], "=", - I. V/ b. D* Q4 r
        RowBox[{"CM", "[",
    " W$ {0 j9 _" E. @& F$ f5 m- _0 j     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",- d+ `5 D8 i! ]9 j, [
    CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],' h+ M- ^) {% w9 N
    * A% |' m. i4 I9 P( Q  K& M
    Cell[CellGroupData[{
    8 V: a6 ^! i, Q4 Y8 O  C: o- I: {0 M: b* S! p4 |
    Cell[BoxData[{3 b( w" I1 [9 z
    RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]",
    * b, ~: W; m' A* A RowBox[{"u16", "=",
    5 {, k! H# Z+ I# f+ ?* T% \  RowBox[{
    5 Z$ U4 y9 P7 E$ n; y   RowBox[{"Exp", "[",
    5 a, V/ d9 i' m) e% z' C: U    RowBox[{0 a1 x5 F  J' s- M( ]4 a
         RowBox[{
    ; |; P, S8 n6 x& x3 O! |! ~      RowBox[{"-", % `+ d! v. G$ R1 j8 ?/ f/ Z
           RowBox[{
    : t5 T9 d& Y. j        RowBox[{"(",
    . n- m! i8 ~( A: e         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    % v$ V* Z& A+ ^1 I! Q* {7 b$ z        RowBox[{"(", 4 c/ A; y  g/ Q
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ; h6 V: p$ N* Q7 m: d$ ~     "]"}], "/.", "DeltaX"}]}]}], "Input",5 [1 \1 G0 i, F+ F
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {( q+ t1 ]' w( q' M' O
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9, * i# v) j9 c) C0 O# n
      3.5779615751004367`*^9}}],. k6 W/ g& W$ {6 T+ G& m
    " T1 l5 T9 g/ W, n: ?. V1 M2 d
    Cell[BoxData[4 T; B' ~1 B" i+ u
    RowBox[{"{",
    9 b  P* W! v! g( h+ B( b4 _3 W; t  RowBox[{; R  F3 T0 g) W( ~
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", . S* r1 z# e5 u+ `; K: `% {4 d
       "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
    6 [& \* V8 m5 `7 g. J( d' F* A  "}"}]], "Output",( K. q- Z7 Z/ Z3 G4 Y2 R
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
    + o- V/ U% z# Y# _( }  P& l7 B1 j# p# B7 A' |4 ?2 V1 @6 h
    Cell[BoxData[; s# _. m, F+ [; ~) Q
    SuperscriptBox["\[ExponentialE]",
    5 ?& q4 D, N" d" G  RowBox[{"3.141592653589793`", " ",
    5 P" y: ]7 V7 r3 j2 D0 N   RowBox[{"(",
    / K0 U8 Y0 a7 p: u& e    RowBox[{; ~5 P$ E/ z  @) k
         RowBox[{"-", , ?  K( c# k8 a
          SuperscriptBox[0 X; ~6 o6 u# J% B& H
           RowBox[{"(",
    0 z( k6 j) M9 o. `5 y        RowBox[{# x9 \! Z3 d4 o1 O1 E' ?
             RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
    1 Y0 b5 E. W& ?  {     SuperscriptBox[
    , b8 V4 x3 {2 n' c0 T      RowBox[{"(", * o& N  K* C* s$ O8 U5 l
           RowBox[{
    / t- n( Q3 Y' N9 s/ r: F        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-", ; {2 Z2 v$ J& S9 c9 t, P, R+ J
         SuperscriptBox[
    5 {  @! w9 P1 q9 R      RowBox[{"(",
    & F3 l# Q! |+ c( ^6 o0 L% [0 N" P       RowBox[{+ _6 o% V7 u3 N4 Z" i" T
            RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", % |3 j+ a; p  S; p" B2 F
         SuperscriptBox[, K8 N8 B) T, W/ W
          RowBox[{"(",
    - [0 a8 F  P* h# w4 c! r8 ~% c       RowBox[{
    7 W) p1 _/ \# p+ \        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", : C7 \1 J) Q$ ]6 j! _
         SuperscriptBox[/ }5 L4 d0 B7 y4 x
          RowBox[{"(",
    3 P( Z' G6 N+ n       RowBox[{
    " u2 ~9 }2 O! @2 r5 {6 H- \        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
    % w3 \6 z8 F7 V1 V# A' z9 }     SuperscriptBox[
      _" p3 d4 M& S* t+ l# j      RowBox[{"(",
    # {+ }5 {) v# O) ]/ o       RowBox[{
    % `! W3 f6 P4 X0 e' E        RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", 9 R  S) G0 S$ u: Y/ a0 y
         SuperscriptBox[
    * X. P$ t/ f' O" ]4 |8 W      RowBox[{"(", # @4 s( b* e$ c
           RowBox[{
    + D5 _0 D. d) o; x+ @1 q3 z        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    3 Z6 b- C7 o2 |; N( h' o6 T. z     SuperscriptBox[8 `) L1 ?, A- t0 A) G. l
          RowBox[{"(", : y" O# w, o) [
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", & ^$ T* b) u: B+ l% t% ?
         SuperscriptBox[- ?/ ?! ]3 s! R: _9 X
          RowBox[{"(",
    $ _- h0 `. o! u7 z% ?7 _' f       RowBox[{# L; P4 U. t' A; S' z
            RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",) H1 |7 W7 [9 b5 Y6 ~( i$ C
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
      N( k" W! G  f' U! t. D5 i}, Open  ]],
    6 k- G; q3 W: _9 m) t3 h. T3 I" Q. t+ f7 E+ s! l& _
    Cell[CellGroupData[{
    & p5 ~" ~6 W# L( v% ]4 q+ N% c" C1 f
    Cell[BoxData[{
    ( P2 V& c. Q" ^, S RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", 4 O6 L. ~* {* Y/ P$ ^  L
    RowBox[{"u17", "=",
    2 f! [# w& _* J% U  RowBox[{
    , j- q1 G1 C8 S2 N6 S   RowBox[{"Exp", "[",
    ; T5 }+ {3 \$ l0 P    RowBox[{2 N" R% C* H  Y
         RowBox[{/ d* [- P+ l: o5 `8 g# l
          RowBox[{"-", - X$ t- t& x, Q; o
           RowBox[{; I; f; j( J$ g
            RowBox[{"(",
    " }) Y$ Z8 U" f! E8 E% y1 r& D         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    0 M" g  m( a, i6 A3 r; k& m1 F        RowBox[{"(",
    6 y8 T0 \& H: _$ a1 X         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],, a, N, Z: @! q/ D6 \: ~
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    ' j# p" L1 t9 E9 x( `" s, q6 W5 \5 l CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    4 l7 s3 W1 X6 |4 ]" N% i3 ]  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
    $ J) {2 Q: V8 l" u8 i' n3 l  3.577961578953644*^9}}],+ ~3 K0 p9 A' A# J5 Y. c% P
    . P6 r( q% {! D6 u8 P
    Cell[BoxData[7 [. I! d, f8 C$ J- ^; D
    RowBox[{"{", ; u! \# q6 K# h& I, Y4 n, Z. Y
      RowBox[{
    , Z) y7 u4 B3 d# |) A' X  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
    6 C) |0 N  B' k& b' k( M2 ?   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], ; a! B, |/ H$ k
      "}"}]], "Output",
    $ ?# q+ i" C7 a CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],2 o3 x- u* L- C! d* }

    * s4 Y5 N( ~2 f( ^+ v2 f0 BCell[BoxData[
    1 i8 v5 a' ^% I SuperscriptBox["\[ExponentialE]",
    9 y5 U, {" w4 A/ J2 ~6 ^  RowBox[{"3.141592653589793`", " ",
    4 s' d3 J" a! Q( c1 m6 S   RowBox[{"(", : A( \* A  T  |, @; m# P- F# j
        RowBox[{/ X' k/ r' f. ?# ]  ^$ m( b
         RowBox[{"-",
    : b- y( Z8 J4 c2 v& `9 C. I3 ^      SuperscriptBox[/ `1 U/ H4 @. M) y  l
           RowBox[{"(",
    , L( K6 [3 W* D, F* v' Z        RowBox[{6 H3 h  e% L! s( f( d* ^
             RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
    4 l- _6 k* B' _! E/ ~8 n, r     SuperscriptBox[7 I0 p% Y& l! I4 H  x5 v
          RowBox[{"(",
    ; ^3 e- n: ~. s* `, y, K       RowBox[{
    ; o% Z4 _6 I  c- w2 C9 D- e( ~        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
    & d$ q2 t$ L, @' k' P0 w# y3 D) m! [- c     SuperscriptBox[# c& G, f( w, O7 O) F
          RowBox[{"(", 5 s% v3 k7 @& t" x) j6 _- Y
           RowBox[{8 B6 M$ i+ G- A2 H
            RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
      j. ^# B3 z' J0 u; s3 `     SuperscriptBox[5 I/ _2 I/ [* K
          RowBox[{"(", # ~3 `. R" K" r7 ]; H, J, }& i0 q# p
           RowBox[{5 S8 u8 e* t9 ^: V
            RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
    - Z3 @5 w6 \4 ~     SuperscriptBox[
    * f0 P9 z. x, U. O# x, z+ C      RowBox[{"(",
    4 b4 w  A2 t* R% f) H1 q       RowBox[{
    % ~+ T1 y5 M% u% |        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    7 A- G5 r2 a& b* c9 I9 a5 N1 S     SuperscriptBox[( x5 T/ F. k* H0 n( v
          RowBox[{"(", 6 u& ], q; I8 c0 K! H3 V
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", . B  T/ v$ n4 L- k" B
         SuperscriptBox[; B" R! x* N- G' n# h
          RowBox[{"(", - p+ z0 b, r/ h" X; g4 ~
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    % a' L# O9 r% J, z     SuperscriptBox[
    ) E% c6 Q% {6 y* _      RowBox[{"(",
    3 z/ l' @0 N% d) U6 E+ w$ A4 x       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    # p; ^8 C1 Q% B1 A  d. V     SuperscriptBox[2 S" \# X* a$ M& v; `# m
          RowBox[{"(",
    , d; ?, w* c2 o* ?+ [       RowBox[{
    : g# u  S  I( C2 N4 n        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], , h* x2 `; j: C% P, b- D
        ")"}]}]]], "Output",+ T# h* g/ r, x) j8 r! ~
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]. U8 ~3 q6 S  Q( m+ O
    }, Open  ]],
    5 r2 u0 }. r* m4 C- Z2 l; V; b& o% U' M
    Cell[CellGroupData[{
    1 P1 I" q* b4 F0 }" p" F
    : T- w+ F" p6 q. cCell[BoxData[{
    % W3 t5 K: C0 {6 _. J RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", 8 K3 x; L% k" X8 C" Z6 _
    RowBox[{"u18", "=", - w  c$ \- M( t" U% B& T9 s. m. D
      RowBox[{
    5 F! b5 ~" f. p! g7 @; k& d   RowBox[{"Exp", "[", + u6 C/ U% {3 `. S3 }
        RowBox[{
    " k$ b& W2 ^) j' W! F     RowBox[{
    ! U. O4 J3 n) P" R$ H      RowBox[{"-", * x# e4 h# t( W6 ?" S; N0 }) b7 N
           RowBox[{& `; l* V3 p1 Z5 ^/ W
            RowBox[{"(",
    ! o. E7 U1 ^+ _3 q$ P; K/ G" X1 h# \  `         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ! ~4 L+ {: h. K' V
            RowBox[{"(", 8 K' p/ v0 a8 H) ^5 n4 P5 S( I
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    2 t1 x* |0 G+ R) k     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ; U2 {$ g& X' Z  b7 d7 p CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
      D, E( e! [0 L" J+ ?2 U  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
    5 v; S1 x7 W" {9 E0 j6 s" P  3.5779615828848505`*^9}}],6 K3 O" }2 o* z$ z

    7 ]% `0 O) k; S& ?# T9 s$ cCell[BoxData[* y8 E/ ~2 a) K- y+ G
    RowBox[{"{",
    & B& E* \) @; s) e! {  RowBox[{2 _. i6 G+ s: x7 `
      "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", 8 V+ H5 @  A6 d, F- [- K
       "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 4 Y; R: g+ p; r. _# Q4 H' j
      "}"}]], "Output",
    4 R  T$ G0 @- L3 {- J; I3 n* r6 E" \" k CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
    - l: ^. ~) r; y  E1 I+ R
    * D/ m7 m$ y% _: C( l& TCell[BoxData[* ]' M$ }+ U( }0 Y
    SuperscriptBox["\[ExponentialE]", : l$ r) Q2 r' O! p
      RowBox[{"3.141592653589793`", " ", * L4 b3 N3 W; Q: G* d& X
       RowBox[{"(", 4 c' E- I# p+ t: a1 M5 j4 x! n
        RowBox[{( ?" z* V' T; Z/ r
         RowBox[{"-", 1 X' {* Q. s  t
          SuperscriptBox[
    , C4 H, |' I) l3 G0 \       RowBox[{"(", 9 T9 `+ W5 c( G) p
            RowBox[{
    $ F( V1 c7 t$ K. q' P2 j, W         RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    $ {+ z& v6 y' A# w; B' c& K     SuperscriptBox[" G, L- h7 f7 D! G7 J
          RowBox[{"(",
    : a* i! j. v# l4 W0 u       RowBox[{
    8 ?- c5 P: e7 u! w+ T; m7 z        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", : Y! ^- n1 g7 I2 s/ D! z, e+ v; ?2 `
         SuperscriptBox[, u: u. N6 D7 H, y) |  q
          RowBox[{"(",   e! S/ H& C* `6 |: Z: P( Y# X/ A
           RowBox[{
    # I2 Z# {0 f( `' D: a        RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",   o7 |( _4 E8 v" Z
         SuperscriptBox[
    # Y2 f. y* r4 T      RowBox[{"(",
    5 R4 @, N7 \1 L% y' {       RowBox[{
    & ]3 V9 _; l$ U' o. H) I4 E3 G        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
    + [6 K( ?: u- _. B# I" [     SuperscriptBox[
    / _* n. e" C$ r* a9 l! \* V. {4 M. q      RowBox[{"(",
    6 L# s. h* F6 n, T3 ?- I5 j       RowBox[{
    5 W& `+ X: n( v! ?7 T        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    - w6 x4 E: n  Y7 R1 P     SuperscriptBox[
    ( f1 Y: ^: H2 i4 l      RowBox[{"(", 1 G" P+ K  x6 [4 m) D: B
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", * S7 ~7 m0 d+ B9 j
         SuperscriptBox[% {! e. ?+ N9 [+ J+ ~/ {* L) u
          RowBox[{"(", $ ?! _" V* H& O+ I8 O$ G- X
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", & ^% A4 N" T' R) U2 H
         SuperscriptBox[. c% X) R* W' X# ^4 e
          RowBox[{"(", # X% J8 A3 A9 \0 q* P1 F# J
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 4 K/ x) E! @8 c
         SuperscriptBox[
    - o; P* Q$ q* L* g. o      RowBox[{"(",
    6 n2 i/ s" O7 D& N       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    0 a# I! F- I4 E* O5 i4 M! |* ^    ")"}]}]]], "Output",
    & K5 I  |& d1 n' j4 f) }' @ CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
    ! f# f  G! a! _4 N}, Open  ]],0 m) N) d3 d0 t4 e5 d/ d4 R5 {5 N
    7 F5 A, p. a  p' n8 x7 ~
    Cell[CellGroupData[{
    ( |3 ?. w! N, \3 |: {6 U" X- |6 [5 Q) Y- \% V' L$ h3 n6 _
    Cell[BoxData[{4 \8 Z" q' V  ^) q& ~
    RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
    . k1 I" u# ?" \2 g6 i) _) s RowBox[{"u19", "=",
    - z! M. h" j/ f) @* q) l' _" V2 P8 I  RowBox[{& L0 _, H4 E8 K+ W9 a+ {
       RowBox[{"Exp", "[",
    3 E* V+ G3 {* ?4 W+ U    RowBox[{
    + |8 u9 O; ]/ z, Z1 w' z7 C" r! }1 z     RowBox[{0 a7 o- y: q. G1 ^4 e$ j
          RowBox[{"-", 3 f: m; U: P* ~* w' h* r: `
           RowBox[{
    + k7 p+ G7 n2 p        RowBox[{"(", ) W% C6 Q4 X- b
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    3 q3 ?7 h7 p" @$ n; K) t% q/ P        RowBox[{"(", : e3 r1 O% a) @) m$ J
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    5 n: f0 y3 R- f     "]"}], "/.", "DeltaX"}]}]}], "Input",
    + u  ?# x1 t) n1 o5 K6 L CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ; l1 p( q1 ^& ?7 {6 f; m+ A  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9,
    7 j, K. ?; H: r  h1 T  3.577961588890861*^9}}],' Y: A! ?! X' D$ R- F" g

    ; f4 d2 n; }: l# YCell[BoxData[  x+ P% V6 [2 F7 [$ G
    RowBox[{"{", 0 r& `5 n; l! v+ \' S# k
      RowBox[{# |. |4 }/ Y0 S( h# k
      "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", % ]+ S3 ?* K0 y0 o1 h7 ~
       "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}], & y$ k  M1 E; \( ^+ _
      "}"}]], "Output",) o& y4 S- X4 c$ X- h' ~
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
    . B' ^& z5 b# G" T9 W3 d0 E; G
    7 b% J4 M; E( D- O7 ?/ Y0 ZCell[BoxData[
    5 J; _$ f# c0 j' b( z4 i SuperscriptBox["\[ExponentialE]", . E/ _0 B. C% `! o$ P, T
      RowBox[{"3.141592653589793`", " ", , c( W& F" c9 ~8 d$ u- B  ?$ O# s
       RowBox[{"(", / _8 J$ ]. {( C( ^
        RowBox[{: s1 W9 O9 P7 Y9 z- Y# n* L
         RowBox[{"-",
    ! [  a. B$ t- |& w' O5 \9 N      SuperscriptBox[
    ! T0 \/ c) N- O/ B( R& q       RowBox[{"(", 6 _% e* T/ c. F$ Y
            RowBox[{
    5 N6 q1 V7 H& R& ~         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 G8 l8 w4 G! Q8 F# r
         SuperscriptBox[
    . Q2 H0 z9 f9 }+ h' X: P3 y$ _      RowBox[{"(",
    6 Z' z9 u9 |( F) l2 h1 S, y       RowBox[{: ^( v8 P- _( o  {4 u# K  J' o
            RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
    & B# o) n7 t( H# f     SuperscriptBox[
    6 e9 G8 d. f; b1 q8 B8 U; Z; J      RowBox[{"(", ! s$ |! [; H6 Z6 _, T4 S% J
           RowBox[{
    3 a  t2 \9 S/ S, N        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", 6 _7 @. _/ x% m# k
         SuperscriptBox[0 ]; E  Z5 @2 O
          RowBox[{"(",
    ) H% I0 r- f0 Z7 N       RowBox[{: R* X* _  a" y, N0 X, N, ?; e5 ?, ]: W
            RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
    4 i  ^) v" _$ Q' L2 I     SuperscriptBox[8 n, m& X+ p/ r5 W$ H
          RowBox[{"(",
    * r+ X0 A0 o5 c4 \3 Q       RowBox[{
    ! K& j, t! \4 C" x. o9 b5 S        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", / y( R& B5 m* {* d. B3 i6 L1 E
         SuperscriptBox[
    % ]: v/ o, r$ m2 G/ r2 j) P      RowBox[{"(", 3 d  w5 n" A' h+ F
           RowBox[{( z! M* L0 o. @% J5 v# h
            RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    + A0 k8 a9 s( L2 k+ U( D     SuperscriptBox[
    / X& {! D. g& k      RowBox[{"(", , U+ |# X) {; @8 P: U3 C0 t
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", , c1 `" k: Z2 Q& S( e6 ~
         SuperscriptBox[9 [/ Q: i0 t  q$ f- h
          RowBox[{"(",
    9 U# [! X* f$ X$ s+ C  N4 I1 k; c       RowBox[{
    * ?  H& @. h7 v; k        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", * _- u! s' z0 E2 Y# L  H
         SuperscriptBox[
      c* e1 B0 k  P9 S      RowBox[{"(",
    ; Q4 r- u. v/ G; B4 r; x' F: p       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], % f' x  s6 G7 O
        ")"}]}]]], "Output",
    * _# g; K+ d0 `5 P9 e CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]+ e$ P3 r6 r5 D7 z
    }, Open  ]],
    ! Z. w# j) }$ O+ c3 H: ^
    - C0 P% K  y' ^/ LCell[CellGroupData[{0 `9 V) S' i( [& t, c' |
    2 m5 n5 Z1 v" e; f( F5 i
    Cell[BoxData[{5 B9 {6 T! {7 m# }/ W) ^
    RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", " \7 ]3 K* E8 \. _. @! _8 R
    RowBox[{"u20", "=", & i( n  F& E; b6 P+ o
      RowBox[{4 K7 q+ u6 c- B1 j! V! d
       RowBox[{"Exp", "[", 6 k  [  d' ?2 }' B# b
        RowBox[{0 R+ C9 ~1 @; f, V' a5 N7 }
         RowBox[{* m+ j( k) t  G5 \1 Y
          RowBox[{"-",   q! n  R' Q6 w- U0 f/ }
           RowBox[{- s# I* q5 C& j# i3 d
            RowBox[{"(",
    # f2 l( S' G, ?1 r1 m# Y* O         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 ]: J8 v  L- _2 X7 W5 }
            RowBox[{"(",
    8 N6 ~! a) T: |1 S; W         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}]," F' S2 l+ K( t: M* {
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    1 X- p2 y6 _- |8 j CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    % R0 \1 M' c" ]. i( \# |+ q  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
    ; k7 A4 f( y. O) [+ n% x  3.57796159382047*^9}}],3 U6 \# _3 e( K# O  j# N+ d: ?5 f# i
    8 d" X' C! B5 p: ^' ~1 @6 w
    Cell[BoxData[' u( |' C. @% ?9 O
    RowBox[{"{",
    4 ?1 ?( t5 o3 Z1 ^; z9 ^+ Y) i  RowBox[{
    4 Y# Q7 ]% p! i1 j; Z' x% P% o  "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
    9 O" k% `3 z1 g: S4 {   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
    $ Y! J  Z9 k3 \+ d* w5 ?; t  "}"}]], "Output",% y1 d0 E. Z# e& A
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],# Q; X0 \1 V, C# G  H8 P
    2 f, \9 N& a+ a. P" M) m1 J( J( C
    Cell[BoxData[
    ) L# e/ T+ o6 Z2 G9 N& m2 N SuperscriptBox["\[ExponentialE]", 3 @* M, `" F" C9 e1 D
      RowBox[{"3.141592653589793`", " ", ; M2 _! w) Q$ a% O9 v2 N
       RowBox[{"(",
    & |* u. p  J5 x    RowBox[{4 m6 K& s3 J$ T3 }# H
         RowBox[{"-",
    1 K2 ]" w0 P0 I. r5 z      SuperscriptBox[
    $ z  H5 Q) ?* N! w# O       RowBox[{"(",
    5 W  P. E# Q5 Z2 B, P8 Z2 d% C        RowBox[{
    " g* u1 m( D, T, I" s$ K         RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
    , g- u* _5 }2 J8 g+ p     SuperscriptBox[" ?6 N  g3 V7 g0 a
          RowBox[{"(", $ o" E. q  V; d* I
           RowBox[{' l0 r6 p5 v) [4 Q8 F
            RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", / ^# @/ D! }  ?9 j6 m" T5 o
         SuperscriptBox[
    % t2 y- z# K) ^3 u, E1 W1 D      RowBox[{"(", $ x% h% s' _$ u0 @: C
           RowBox[{2 t" J9 x9 O  _% v
            RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    9 o- z3 D# }" Y. M     SuperscriptBox[
    % E8 w6 g% k/ q4 e0 @+ m      RowBox[{"(",
    6 @3 Y% H4 r/ o6 O       RowBox[{$ \8 L4 c4 s9 n
            RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
    ' k6 S) r4 X% v& Z! F( x     SuperscriptBox[
    8 q8 A& ^, p, L      RowBox[{"(",
      J# y3 M9 P3 j. S       RowBox[{
    2 e% b- H9 M8 Y# J) o3 @6 L        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
    4 q; M+ L; o% l% K: ]5 V     SuperscriptBox[
    ' `8 p2 I' B9 l& j" e$ J0 r3 |      RowBox[{"(",
    9 ~0 g1 p$ e4 m( l$ J% \; ?# [6 c       RowBox[{
    0 w7 r/ a  T# z5 I' c6 D/ g        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    1 ?) O+ u& Z! {9 u  e; G6 c     SuperscriptBox[
    0 W$ M- v3 `4 p; @3 p5 ~  y; ~      RowBox[{"(", $ f: p, V/ Y' K' w0 G& ^; {  c+ ?
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    4 R6 _2 }$ y2 a7 F     SuperscriptBox[. Y8 j+ K( |9 U5 m) ]* D6 Y
          RowBox[{"(", - B+ o- e$ Z9 q! t
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ( R' j0 C: B7 M  S' c2 f7 T     SuperscriptBox[
    % x2 B- h) p6 t+ J      RowBox[{"(", 2 R; C% v- f" K& y
           RowBox[{$ j* Z, X* U' f4 J) ^: ], b9 k
            RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
    7 I0 S& E# s7 |, [- n! t: T4 x1 ]    ")"}]}]]], "Output",, n3 ]1 W# _7 a
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]. w8 A% Y6 a2 u) o- `6 F
    }, Open  ]],
    3 U3 @: j$ C- J& Y
    + b  A# L- m7 qCell[CellGroupData[{
    7 e+ d1 K8 K+ x  F5 y" `
    - e) ^  i8 Y- h( u, uCell[BoxData[{+ H* w, e( M: p8 u" s
    RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]", ! o+ a8 K! P5 n) [' W/ q9 S& \
    RowBox[{"u21", "=", ' b& K! S7 m0 T/ P9 q
      RowBox[{, p) y& X5 n* i" \' \. c
       RowBox[{"Exp", "[",
    7 t: L9 U+ g( |  T    RowBox[{5 ]1 f8 }" e4 l" F& W3 _- Y# |
         RowBox[{- I' u' o+ O  m- `2 \7 ?
          RowBox[{"-", , V- u/ [3 |  P: d/ O2 Z
           RowBox[{
    . Y0 W/ z& P3 F6 f        RowBox[{"(", 7 B/ N/ G2 M2 J, P. y
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 8 t& B/ A* Y$ Q% {8 G
            RowBox[{"(",
    ) S% P2 Z9 L+ g* d         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ! L! ~; p- C1 B# C' M, B     "]"}], "/.", "DeltaX"}]}]}], "Input",) b" a/ ?2 f* h2 p2 b
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {  s6 O7 F# N: o% E) s: @7 {) [7 G, H
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
    1 X4 p) P* p7 E% u$ w  3.5779615991556787`*^9}}],
    2 f# W8 h( _5 C  N& U4 N+ D9 O$ A2 z$ ]7 p# A, K' a7 T7 T
    Cell[BoxData[
    0 k, u9 w- @4 v/ I; ] RowBox[{"{", ) {1 i8 G* X" _8 B1 K
      RowBox[{$ b) ^8 l( }: ^7 I1 x; X+ U! E
      "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    ) k- P: B( t# g! F0 y1 Z) q   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}], ( k- y4 s; v. |
      "}"}]], "Output",
    0 @$ W) A0 D0 O' V9 v CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],0 s  e2 z7 j7 a  F7 I) j

    7 w" O+ I0 l8 z( d5 @. N: C4 c* |& uCell[BoxData[9 N6 ~' O/ O; `# G0 U, J6 s
    SuperscriptBox["\[ExponentialE]", # X% p7 A: w' f/ u
      RowBox[{"3.141592653589793`", " ",
    : m7 z# Q1 U5 b$ N7 k' H   RowBox[{"(", ; i2 m- j" W2 ^: j9 r- q
        RowBox[{: n! j- }. `( f( C
         RowBox[{"-", ) {2 ?$ {$ d% E: v3 A! O
          SuperscriptBox[
    , F( Q$ B; r4 N       RowBox[{"(", 4 \4 b9 z4 V; g1 |" i
            RowBox[{1 F4 t' I( e1 u# @8 Q
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", % |6 M, j' v% p* P- r. Q& L1 n
         SuperscriptBox[: G# @* ~5 a- o4 `- i
          RowBox[{"(",
    1 w9 a" x8 B& Z- O- }       RowBox[{" o8 p8 q6 a& {, z& J. }5 U
            RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", , K; ?+ _: j# m7 @" l
         SuperscriptBox[; @/ ^0 x# q* H
          RowBox[{"(",
    7 W& R2 x$ w  [% u  |8 U       RowBox[{
    + l5 y  v* u( s- t0 Y3 g5 i( |        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    $ ^/ b& S- q  ~6 K+ }/ g$ C9 }# ^     SuperscriptBox[
    % i8 k2 y0 I- J; L- }: @      RowBox[{"(",
    4 d. F1 J3 b3 e6 B; ^       RowBox[{
    5 |$ H5 `6 l5 o3 o. T  W, n        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", ; P( u  F: T1 v" }4 m
         SuperscriptBox[
    2 |: P5 U* @: ~' }# f0 X  J      RowBox[{"(",
    & M1 {$ i# y: s% F( i, [       RowBox[{
    5 F( d0 X, r3 O, E/ k/ Z& y! }( `        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", ; h" S6 |9 B% D0 c( [4 K) E
         SuperscriptBox[
    + v8 b1 g1 y( r1 }. R      RowBox[{"(", ) a# @9 e% k$ w8 Z8 ^
           RowBox[{
    ' O4 w$ i- _& u. p        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", 3 @: X% O2 @/ Z( F( a- v
         SuperscriptBox[
    7 N2 A  i; S0 ~  e( S8 e      RowBox[{"(", 0 X3 V" K8 R/ p3 g# J) m/ Z5 t
           RowBox[{
    5 s. A# W, M  E7 c        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", " e! P, B8 L3 E
         SuperscriptBox[+ E6 k) f1 x9 L8 Q1 F1 B  ~3 x
          RowBox[{"(",
    % Y' i% n, K) }# {* p5 g       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    & V7 A( z7 X  B. k% j. L     SuperscriptBox[" P" \1 G! `: X, t
          RowBox[{"(",
    8 F; K; A. o6 F8 U' q       RowBox[{
    ) J) r  C1 `' @        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], , o+ p8 Y. G2 N: P( X7 d% f$ u0 N
        ")"}]}]]], "Output",' L6 g3 x* [$ e- `- ?
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]
    % x$ F: y8 ^7 H% M, ?9 A$ C}, Open  ]],) {" c4 s6 }0 S, E( i: f( \
    ' q; e2 A  b. K2 s
    Cell[BoxData["\:62df\:5408wi"], "Input",
    4 D- J, l8 ?2 M0 ` CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],, c; ^6 {0 o' Q5 V

    - H- e7 n+ d3 v' c) J  [+ JCell[CellGroupData[{  c3 {, R* j6 f7 d; K
    5 M9 q/ C! g1 U$ y+ A
    Cell[BoxData[% o( @# T( u: A/ k5 J/ {: l: @
    RowBox[{"y1a", "=",
    $ _, p: h, S$ W9 p  RowBox[{"Table", "[", ; q4 v' i6 Y6 v8 L) k, b
       RowBox[{"x", ",", % I- ^  a' t1 g' V" O- D. s
        RowBox[{"{", * }+ f( D% e  I
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",8 p0 d; M' s2 Q
    CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    $ o# F! l7 m: q  3.5779226649375*^9, 3.5779226810625*^9}}],# d, V$ \! y& i; I
    . `2 |. L5 m5 U
    Cell[BoxData[) d5 O9 q$ r8 y/ e& u: }# k
    RowBox[{"{",
    + N- g  D9 ^3 ?  RowBox[{
    ) ~5 H/ r; m) d. }! Z  I# O  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; O( X8 y% ~' X, N$ s7 z   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    ( r* x% G/ V; V    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", + w% V4 @' U% {0 p9 H; T) I( T
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", / D, ^, Q% X. G) D: l+ x
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    + c8 N; \% }7 H* B3 X   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", / }4 V8 E6 b) t1 L  |! K
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    " F5 e% E* W8 r4 m. F   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 7 P& o5 z4 h0 y: M, {/ b
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], ( z5 w( s/ Z7 N. J1 f1 `& H
      "}"}]], "Output",' E0 n& n% g  z
    CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
    , |( a) P# e% q. }9 \  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]4 ~2 ~* d) ?; @: \
    }, Open  ]],+ b' U9 P2 q0 g* r  S5 X
    1 Y* o3 t  U0 t4 K1 g! w
    Cell[CellGroupData[{
    . L2 ]& V3 b- K0 G7 W: d' U! \9 M: h/ H1 ^6 b  \
    Cell[BoxData[
    3 b, m  j  i8 [$ V* \' h1 d; I RowBox[{"Data", "[",
    * J5 T& d- N" u4 z. H  ^  RowBox[{"[", 7 B8 C5 G9 g$ N1 D7 m
       RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
    ( V6 i1 ~) @& _# [) l CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    2 d# g5 I4 `4 v+ k( P0 ]; t   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
    ; A4 V4 y4 d# n9 a! K0 P* f. v% p8 t* I# ?
    Cell[BoxData["0.899882`"], "Output",/ I( }. j- i, C. R: A
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    : O2 G( B. E+ o/ W7 \3 a- x: t( u* K   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9, 9 B, s5 F/ o' K& l# {: D; v
       3.577961929080654*^9, 3.5780123419375*^9}]
    3 s& X, H, ]* }! \. y; \! j# |& ^6 |5 [}, Open  ]],
    , w( U& x% V! U# O. y7 u* N. X; f* [" H+ f7 t
    Cell[BoxData[3 ~9 ?! ?/ A7 a: Y' s" N
    RowBox[{"For", "[",
    % T" n: t5 m* U  RowBox[{
    - ]  O3 \4 V; W6 d8 Y   RowBox[{"i", "=", "1"}], ",", - e) u  g" g6 L1 F9 J# e- S" l
       RowBox[{"i", "\[LessEqual]", "60"}], ",", ( G% O- u1 G& u" i6 W
       RowBox[{"i", "++"}], ",",
    ( ~6 r, ^; \& u2 M# Y1 S& z   RowBox[{
    7 t2 ^* P* ?8 j3 a& L; S    RowBox[{"y1a", "[", * z) l; v- C5 C: v, E
         RowBox[{"[", "i", "]"}], "]"}], "=",
    2 J: n8 n4 W/ x, b( o* E    RowBox[{"Data", "[",
    4 m! v/ W# l/ B" w( ^3 W$ w3 k9 n     RowBox[{"[", ; \2 k; L  a) G' n, s
          RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",4 k: b0 q: I  R: ~
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {1 n, |" j7 W" |) f
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    1 l; p+ Z+ ?+ g4 s! q! |9 M" E   3.577922923203125*^9}, 3.5779588839702806`*^9}],
    3 g9 N/ {5 X6 q$ ~* q/ h; |/ z: s* }
    9 [$ F* B, L7 z+ n# n2 ACell[CellGroupData[{
    7 C! }# b$ Y  Y( t6 G( r0 I8 n' v# N7 P3 h2 m2 j
    Cell[BoxData["y1a"], "Input",
    $ p6 v$ W# e) d6 r' \: O CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],
    . ?" R/ }' r6 _# g  @, @; F. B0 g" s' m7 ~. i/ e4 b) p" t
    Cell[BoxData[' V+ J  W/ w  T/ J/ ?1 W
    RowBox[{"{",   V8 B& j4 i' a4 N( ^
      RowBox[{& y" X' Q5 X* d( H' I
      "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
    4 ?8 A. s9 f; H0 P0 Q2 b   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",",
      Q: L5 `1 v! p1 J$ m2 h   "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",", $ w1 r! G( S5 b8 r9 ?  \& W& B+ F
       "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",", ' x- u+ J* d4 E( M
       "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
    * ~( v1 Y% R* l$ B$ ~   "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",", 3 _+ e3 I0 j; n1 ^
       "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
    $ v9 B) j# _! T7 J/ T) v5 h0 d( k   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",", / f1 _6 i  u7 x' K
       "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",",
    7 C4 @* l) M4 W' n. Q   "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
    9 W: [+ J' t" j( A1 Z5 l   "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
      q; B5 @/ y$ f5 v) m; k   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",", / W: o( P/ z# i
       "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
    8 S  V0 q! t2 F3 e7 N) t5 R   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",", - @& @7 z3 i, q
       "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}],
    3 T, ?- G  K/ J& _) W9 X5 d/ f2 g  "}"}]], "Output",
    # x, b9 G, |7 l8 c, ?1 \ CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
    ! C) c1 C7 c2 x$ ^  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
    & R4 V. k6 U3 V- Q}, Open  ]],: W9 `9 I+ R7 @
    9 t. g9 @9 e0 z9 j4 g0 ]" A' t
    Cell[CellGroupData[{. \. f) o- e3 r5 m; F0 }% k7 Y

    " H% S1 [* J2 ^7 D& kCell[BoxData[0 D$ D  J# z" \6 ?! M
    RowBox[{"m60n21", "=", " z5 G$ f- B" T+ E6 T& ]% U
      RowBox[{"Table", "[",
    % J& J0 t$ ~9 \/ S9 O+ _8 Z   RowBox[{, F/ \4 e& [- e+ u
        RowBox[{"Table", "[",
    0 h- ^: Q; c( h7 `9 O* z4 N) ~     RowBox[{"y", ",", 2 p2 z; M8 v9 s$ T8 w
          RowBox[{"{", $ K$ V& Q# ~* Q: d7 @3 a8 e
           RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",", & Z* P/ j) T6 q7 U& ^6 g, R
        RowBox[{"{", ! z8 c2 q0 \3 K3 x# ~
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    ) S' ?  _* {0 L2 o  p CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {) s) k& F. Q- d9 e3 o2 |5 J  T& {
      3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,
    3 v4 K+ g+ B# F7 \9 D  3.5779619706547265`*^9}}],: S) A; G7 E: Z" j% c

    ' e6 L5 d+ q5 B7 HCell[BoxData[
    . f: ^% s2 t8 I; {+ t4 z RowBox[{"{", 3 @& k2 Z; D& c5 Z6 `7 ^
      RowBox[{5 U. [# q( j4 y$ n: p/ `
       RowBox[{"{", ( q; j) m) Y. U7 W: e# E3 {
        RowBox[{* p3 l  s# x6 G# w2 }  \
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",4 u/ o, h3 ^$ Q- a( @
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    6 L  j8 R2 ^3 x# L     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! e, M5 I% l1 y, N* \, I
         "}"}], ",",
    / E& J. A4 X1 Q8 q   RowBox[{"{",
    - x8 F0 e, I) X( {$ p/ _    RowBox[{
    / G7 X+ L8 [0 b; V2 ?    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ! m  Q( d9 s1 _& O      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 E& v9 Y: k6 G$ H
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],8 r  K" j* j" {6 L
         "}"}], ",", 2 y0 Z* {1 i8 Z4 j
       RowBox[{"{",
    1 o/ x" z0 J, r4 a5 S    RowBox[{
    4 p: i7 \6 F8 ^' q- y3 u    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ' J. S4 `+ c8 D- ?* i8 }; K      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    + u) Z0 Q+ @# q0 U; \0 d4 ~; M     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , j2 D: G+ l' ~6 E( @% I# K     "}"}], ",", ; I( z8 t/ {; R' w: l
       RowBox[{"{",
    : c5 s3 u$ t0 w) {3 L1 M" r    RowBox[{
    # {* a& |! j% t# W: Z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 E6 T+ r  x5 A
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 s+ }9 u# D) G" N
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    / ~' n0 f' j' T/ t  _& f* K     "}"}], ",", " S+ r3 F, W# p/ f
       RowBox[{"{",
    6 b, ?; s3 F1 k) T6 ?    RowBox[{7 j# M! t  ]. u
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* ^* C! ^; F" \6 @1 i3 g
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 c4 t- |: r$ R  Q$ I     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% a3 R) {6 y9 d7 o" o/ d2 k
         "}"}], ",", / B/ Z9 f0 |8 {% y5 W% p+ v, N
       RowBox[{"{", 9 S( v$ a9 m) o. f+ v+ |( Y6 f" u/ v
        RowBox[{
    % j+ D) A  B' f( F& P" J2 w: M    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( ]* X2 d* p0 _5 o
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! L9 \. |( W0 Y  l/ s
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ) ?% w  W# ~' f3 S6 H, J     "}"}], ",",
      Y( i" \$ B4 ~" w! U/ ^3 v4 A   RowBox[{"{",
    9 Z0 p; s- O* F5 G& G    RowBox[{" f8 @. s. R/ L% Y" z( @
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; c- S; M- r9 h, R! r) ^
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! p# K' ?* ~0 F, Q7 t
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ) |( g  B2 v" n. W# w     "}"}], ",", & _% I$ N. j# D2 _: c2 F
       RowBox[{"{", 8 W  P# i' K" J& a# t) k" D
        RowBox[{2 h3 u) d. h: f  Y5 S4 W
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% V/ b; ]4 ]( d+ O: [+ _+ ?% |2 J& y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    / E: p& n/ y! l+ ]# G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) X: G) A7 |) {! f
         "}"}], ",", / n- ~9 [! R8 X
       RowBox[{"{",
    " w8 |/ B( f2 H* F: y$ G' I" y* Q    RowBox[{0 c  o% n) A8 j
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    5 c3 Z& B$ ~, ^7 L      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 U+ K' ]2 ~7 y3 w; H+ L4 W8 I
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; p5 t# D* P7 t
         "}"}], ",",
    ; w8 ~( @2 `  Y* `   RowBox[{"{",
    8 d0 w9 s8 G3 G6 u2 E& P    RowBox[{+ H4 [* ^+ t. X; H! w) s
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 Y$ _& {+ }9 q% [6 N7 a2 P      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 S/ I1 C& y7 N3 ?& ]; m
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 Y/ t/ h) }2 Q( ]
         "}"}], ",", ! s/ L& u4 O. R  D& E* m( S0 w
       RowBox[{"{",
    8 _( z2 f/ M! |, l" Y    RowBox[{1 E3 C% C& |6 X' d
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& p3 t, }$ g$ W
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    6 N' ]" V6 e6 Y! ]( @     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 M$ Z6 F. g+ @
         "}"}], ",",
    " y. [+ i# J1 J. w: @6 ]. D4 s  S   RowBox[{"{", 2 G+ U; g$ g  e7 I
        RowBox[{
    . T0 v& ?. w+ }: L% J8 _9 x    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 A% p6 V. J4 j$ M5 U4 V& K- p8 K      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 j# C5 z% T1 s; @2 b# ^) r
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% c9 N% u& I+ z
         "}"}], ",",
    7 Q) i% F0 v7 Y8 [0 a4 t   RowBox[{"{",
    5 A1 R% a* M, T! m: e: B    RowBox[{
    - C. ]0 ]5 |& `    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    . A2 e3 I0 X% ?) P9 Q0 i      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % w1 [2 x7 C, a- L     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 Y# @! [1 R8 F. o- {
         "}"}], ",", ' {. P4 z2 B3 h* X% A
       RowBox[{"{",
    % L5 x2 R  A* v1 S+ b1 E2 W3 D    RowBox[{8 z! u, z# T; ]+ j! m5 i/ B1 w# H
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; ~) Z/ n9 N. q6 F% `4 h
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 W7 z: p/ G+ Q( E' c
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  d5 X; \) Y% k3 R, n
         "}"}], ",",
    3 w" o* M# W0 u+ s% |   RowBox[{"{",
    ! o8 F6 U1 T/ F( h  f0 b    RowBox[{
    # M" S0 ^$ B- ^  d& M    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & Y/ f( v# S8 L      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / \8 |/ {8 y& V9 _* e
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    9 q1 J& M/ ~% y/ Y     "}"}], ",",
    4 f4 c4 U6 D- D   RowBox[{"{",
    ) v: h- i+ C3 k. H. h; U    RowBox[{$ y& V5 ^1 U1 d
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",# X% _. U# r1 u, }( Y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ Z/ u* v/ k5 W  Z& I% n+ P
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],4 @" L& {* Y' R. m( ]
         "}"}], ",", ) q* k8 [( [) k! I+ o. i5 v
       RowBox[{"{",
    6 M3 O; {  t# D- T6 |/ e% }    RowBox[{- u7 W& b: M% ?8 c. r$ e
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + z2 R3 R" M& S" Y: m$ U% B      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; r1 ]' o6 Z: F0 Z( u0 K9 }
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , W# }9 {1 S  v     "}"}], ",", 2 Y: z5 c0 n5 u4 _4 }3 w
       RowBox[{"{",
    5 q) j. f) V; W, @    RowBox[{8 t( b& ]( W/ T* u  T
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",; e2 B: M) s& ^+ [
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % [+ a6 ]+ C; H' B' a! i
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' X. A. f9 s" `6 l% X& U) e
         "}"}], ",", 5 ^; C# p) U- ?  U* Y  }
       RowBox[{"{",
    8 b, {& i) U+ k2 M8 b  z    RowBox[{
    $ f3 d) s0 ~1 b% i) m4 Y( W    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( a, B/ y) H) l. [
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % g% }4 S, y' M
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 c+ f; L3 U$ ], {
         "}"}], ",",
    1 @$ T- P+ f, d/ K   RowBox[{"{",
    - a( l: N" ?, \+ u2 m% ^    RowBox[{
    3 R# c+ K# D1 g/ ^    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 I( N  V0 \, J8 c! N$ B6 v% v4 L4 {
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! G  M( N4 |" }8 F3 i: m
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 T( W1 x+ U6 T     "}"}], ",", & a( w2 d- N" i1 P0 B6 r0 J
       RowBox[{"{", 4 G. f$ F7 Q) X" ^# p) A9 \4 O
        RowBox[{
    5 I  G4 M. @" c# X; B: [$ s    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' t5 _, l! l. I  v$ @8 V/ O; A8 W
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - J2 E) }, d; q. j1 F
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],; E8 P8 W; e. B$ c/ N" b
         "}"}], ",", & j# ^, G7 j1 \3 _8 c* e. E' B) A
       RowBox[{"{",
    0 r7 y' s- v* y* p  f    RowBox[{3 v  d. e5 m6 m% E; f1 h( Z
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    5 V) c4 w1 P7 |      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 O, d+ `  M; ^1 d     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],9 Y( e+ Q& y+ Z+ }* _% G; \
         "}"}], ",", + T% d& f4 J( s5 N0 T0 ~& D' l. K
       RowBox[{"{",
    * B& a2 }% J7 m- ^    RowBox[{
    3 r: \# e# M8 z& k2 O    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 }) f/ S: G9 F/ Z/ |
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 R4 B) N2 Y0 ?: F! l/ w3 W
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . C; `* U( x/ O; r5 ^3 P     "}"}], ",", 3 B$ o# ]9 X( ?# g
       RowBox[{"{",
    . Y7 Q) S3 ]" a    RowBox[{
    9 y! c3 b" \. ^  n4 U1 ?4 M    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    0 H! l5 r- _2 s1 b      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & D( J2 k7 L4 D0 o' o     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    + x& u9 `& p! [( }     "}"}], ",", ' O. X3 g, Y3 ~: h
       RowBox[{"{",
    * S* n7 |0 ?  V. F; ]; C6 _    RowBox[{
    ( G& z# S( A( [! f) n+ \4 O    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # y3 U+ ]- }1 e5 d      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 P$ g# j$ C% F# W8 t( [
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    2 F6 R9 k& r4 M/ g     "}"}], ",", 8 y3 f$ U4 v# {
       RowBox[{"{", / h+ U) s- h5 X1 R# k3 k" ?. n
        RowBox[{
    & K2 E8 F$ L, C) F, V    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' P, s6 K' ^/ V2 g
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " \/ l. S' ]* A! O     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& E, g& l3 l# _
         "}"}], ",",
    ; Y9 Y( u8 D! S0 T- c" r   RowBox[{"{",
    & a; y; @& W9 R8 O4 s1 v$ v# V+ W    RowBox[{
    ' R/ c+ L6 h# T5 b) t    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 J$ o* W6 }5 b( N  E, Z7 P) e6 {      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    / G, k: x5 l! J6 Y1 _+ l     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , f! h. q0 E; ~) A9 H& Q     "}"}], ",",
    9 T+ K' u; Z. S1 S   RowBox[{"{", 2 q& W$ G# `4 ~6 d7 p7 d- p: d
        RowBox[{
    8 |) ^. u* Q* N, g2 q) I3 }    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) O' B/ [& |! I
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 ~6 v% U$ y% {" C, k1 c
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 K+ R# e- e9 q/ y. H) x
         "}"}], ",", 7 A, N# F5 Z8 R0 q* F- E' ?
       RowBox[{"{",
    " P  A) v8 M9 g    RowBox[{4 C3 E$ ?+ q: H, G" l3 ?, i
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 q) x4 N- l) g! _& R8 Q+ t! O: {
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; D& y  V8 E( G9 V  U     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- G2 W8 o! ]4 d
         "}"}], ",", $ \0 r$ y& L' c1 O" ~/ ^
       RowBox[{"{", $ U# Q" t, ]- ~2 {, C: L
        RowBox[{
    7 p8 v& S2 o2 b6 {" I    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    * i4 N& S1 }9 X; w' N- l" S      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    $ O/ S( B3 j' d$ ?% o* }     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    % u) I! a& U4 z6 @0 Z* ]* U     "}"}], ",", 8 u! o, N) E/ ?6 |+ b" c
       RowBox[{"{",
    - G3 f; L' O' n$ t* y/ i    RowBox[{8 o8 P8 o1 `0 Y8 l* j9 X& d
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",. k1 Q* {, l& M1 U
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", & h( M3 Q, {- V! `5 g! x8 r
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    $ D0 P6 \0 v# F, k     "}"}], ",",
    . B) W0 b3 A2 q& z0 W8 A   RowBox[{"{",
    1 a/ \) C( O& L2 [    RowBox[{
    3 f* w) z" L3 f! x) R+ q( X& D9 u    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! G  A4 B: d* b/ T: |
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 L- b/ K# M& o; T8 P     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    + Z- Q" {9 J/ v2 I% M& }- s     "}"}], ",", * m- u; f4 D  L$ E% n$ s
       RowBox[{"{", 4 @; l/ D3 s+ J) W# q3 }" J+ M
        RowBox[{- N7 h! \0 w1 H$ R4 q% @) b
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; f5 z: F4 w' ~$ w; r3 d$ w      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    % a, f- R8 U$ [& V1 \     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    / @/ w6 F* x5 m     "}"}], ",", 1 `  Q3 @8 S+ K1 F+ f6 {0 U& q
       RowBox[{"{",
    # O4 l$ t8 J5 E, C    RowBox[{$ }! I6 C& D9 J4 W' }2 w: C
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) E( K2 I/ P) s' M6 ^
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 6 F5 Y9 c! n- B0 v$ u
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  f; Q1 f: o2 w0 o2 Y8 n
         "}"}], ",", 0 Z* B1 ?1 K- h6 z7 D( b
       RowBox[{"{", - J4 t( I* g  a( S6 y
        RowBox[{
    ' q" `8 H4 w3 B9 F+ z' q3 b$ d* P    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) g4 d( z) ~& {+ e( c; O: @
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( e9 i3 e- `3 m8 t- f  B9 O$ P
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 p0 I: y1 F  a  i8 `/ i
         "}"}], ",",
    2 ?5 b$ U8 L6 m5 ?4 q   RowBox[{"{",
    - @& H, r. x7 W    RowBox[{: {9 o* O" M9 Z/ T# S- \0 z1 x( A# Z- \
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    - h# K: d5 C2 n# K8 P, {1 s& t6 C      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    : ?) P& \0 l2 e5 @+ z. ~1 }     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 C- g9 n2 p1 ~+ f
         "}"}], ",",
    4 p% p+ q' X7 T3 D7 m3 y   RowBox[{"{",
    & q( {- n1 y6 H! W, I: X    RowBox[{& |' k( M1 ]3 i4 K2 C+ K
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"," _/ f5 T: F- _9 B) `  y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 C$ N3 d8 I' B0 U8 W$ Z% L     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    : J; \$ \  S/ {9 I6 ^% g     "}"}], ",", 3 {2 s6 h) S6 h8 q3 G
       RowBox[{"{", 4 i5 ?8 B( z# v+ M
        RowBox[{! V( s( F2 r1 C  V5 t1 {' ?
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 Z9 A4 y5 h) o- h$ F
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ u, l7 ^$ L( x6 Y6 G; q" V, T9 Z8 c
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; w/ z' c1 j  ]1 U     "}"}], ",", ) {8 y* Y* W. g8 t. o
       RowBox[{"{", 2 P+ R# s! }# r( ^
        RowBox[{
    . R) ?" E9 {& @& ]/ k    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    3 K9 K5 |9 q6 w$ m5 M* r# G8 }& G      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 ^1 h  m3 g+ P% t1 f     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    - W/ y1 [* @: p     "}"}], ",", " b% c0 [9 k% [2 k' A3 O  |
       RowBox[{"{",
    ) D' B6 x6 m% ^- W    RowBox[{
    - ?" _5 t0 |7 a0 b/ R4 u- I8 f    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , B) ~) B+ k3 c# \      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' k  ^4 ~. N2 j2 e
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," `" G5 H  K6 a, V4 L1 X& G( h
         "}"}], ",", # Y! k$ t' v2 t2 ]
       RowBox[{"{",
    : g8 M6 n3 B1 G1 ]" y$ x7 U    RowBox[{
    ( P# c- h/ ~7 f' y9 a    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    + V$ o; a1 P5 \, j5 c. _4 B      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 x6 j' x) D8 o' D     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . u( z3 y! ?1 o' q( C4 `     "}"}], ",", % Z4 T- n0 y# R# A+ X0 P) n
       RowBox[{"{",
    ( A: m- \- ]; E6 r9 ~  W% L    RowBox[{/ e, G- q+ p# c
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 j  w5 M1 D& N- S) l2 u
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - U% S4 b8 ]( O. D% X/ x& b$ Q9 b
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! G7 s5 v6 u  I1 T1 ^
         "}"}], ",", , D" t% q# l7 s# t9 Y4 c8 v1 E
       RowBox[{"{",
    * L; G, O" ~6 p8 A    RowBox[{
    . q8 o& o7 V# a7 F    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 |6 e0 p  X8 d! n4 u. r( U; E
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & J+ C& F: P4 W6 F     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ! f8 N& |5 n7 t1 |     "}"}], ",",
    1 D/ ?1 U8 t' t: M, N   RowBox[{"{", $ y/ z# `! P% D) H& o+ c1 x7 P
        RowBox[{3 c) L7 q8 X/ U8 O3 X, n9 R
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& t$ l5 K; V7 K8 P; t4 l% h4 D6 t
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * w) m+ t$ v0 M9 ^1 c9 R     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; U7 s: W6 R$ |     "}"}], ",",
      {3 @( x# R& R  \0 g0 T% u0 t6 m  m6 d   RowBox[{"{", 1 ~6 n& I3 N5 J) U, Q. n; H# C
        RowBox[{# D  b5 H" P9 O9 ?2 _
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    5 h9 A  ?  m' m      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; Q! R3 F% \+ [5 y0 B     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ @/ i7 W: Z5 x7 u
         "}"}], ",", ! L4 f, d3 O4 a! X# q) Q
       RowBox[{"{", 6 r' o" N; b: e8 i" _" ]  _/ s
        RowBox[{
    % m% K" X% q) s, M    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ( ?) P& w4 D" a* \      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) W, C+ |* R' `     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],+ C4 u5 G3 D0 v6 P
         "}"}], ",",
    " W. ^7 ]9 n- h   RowBox[{"{",
    ' C+ |- w  F+ z    RowBox[{
    $ f! i  P; Z% {$ e& q6 A- h+ D6 ?    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* r% C  J+ d$ T, g
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ( u6 j0 K7 u" e     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( K  p& [: _$ g% K+ r. b' a
         "}"}], ",",
    & t0 ]- H& Y- x8 ^/ a, [- V) s* J   RowBox[{"{",
    " C) c  ^0 E0 g. e    RowBox[{
    1 t, W- a% A  h    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' f- F- z4 l1 e+ G0 |" d/ [
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 W, P% W5 C4 K. K0 T& E7 \     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 X( k7 D/ Z/ P8 ?0 |
         "}"}], ",", & P- G9 ]# y6 k) h4 v: }# X
       RowBox[{"{",
    + M- G( A9 e, r+ X$ l    RowBox[{
    7 Y3 p: v/ }! [8 r5 A8 y5 k    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 D$ P" T" ]! M; z# X0 `, l; |4 ]9 N. V      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 d! p5 o/ X! m9 p     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],) o$ T& j& a  s/ s# T
         "}"}], ",", 5 S+ r/ p' b, Z$ t& |" M
       RowBox[{"{",
    1 c# s! d7 e3 U$ ?9 M0 C    RowBox[{- V: u% g5 m" a* C. t" ]2 ^& J
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    - w" r. s; S" G  c! h* @+ s      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * m( y2 B9 a8 N4 t! k2 @4 k5 ?     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 ?7 ?# d) g$ m" p9 u6 [% s     "}"}], ",",
    . L4 F1 v# f& d% q. x. _: J   RowBox[{"{", 3 _4 G& O4 D6 `6 B, k# o
        RowBox[{/ Z' a9 T/ s, w' N: L, I  F  ^
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",/ B) L; H4 E% s+ a8 W1 N! [( w
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 ^' Z! e1 e! J. e$ l* M" ~. L- w
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , T: ^8 {! S/ g' A! I     "}"}], ",",
    ' d. R( E! o6 s( i. y   RowBox[{"{", ! O7 r8 G" u2 ^5 T( _
        RowBox[{! l( |6 V) Z) `! y6 z" N! [1 \8 p
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # V7 V. C6 l/ H; [; h      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; M" v4 g+ S! S3 J' z$ f( M+ @
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    5 T4 Q9 u+ H, V; n3 }     "}"}], ",",
    9 Z- m8 Z! y$ y; e: s* L   RowBox[{"{", 8 o+ F- w' A" j
        RowBox[{
    % U, V. }/ Y) Z; ]    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 @, R/ Z2 ?  {1 Q$ @      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 k% Y, S9 e. ]9 R) J. `( G; T
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    3 O2 b) ~( _1 w     "}"}], ",", 8 t/ v4 @9 f* I! Q8 i& b
       RowBox[{"{",
    . l! u9 s! t1 y5 m    RowBox[{
    ! ^2 h7 E" X5 d8 d# i    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",2 ]) |& L* D0 a0 `' p! N
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " O' o4 d6 ~- r
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    & e5 n* w5 p8 B4 r: N+ V* t- V* D8 M     "}"}], ",",
    . Z0 N# p( s0 S4 q   RowBox[{"{",
    % h' y2 k( N: ]% t1 M* a8 u    RowBox[{
    " ~& J' I6 {8 V9 o1 m: U0 P    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , r: h" Z+ B& g/ C      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 ]5 v6 r' [& ]5 f9 _$ d- F$ x: G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    7 g. w. h* R* {     "}"}], ",", 9 n+ g) {$ B; Y
       RowBox[{"{", 4 I+ d# U3 r5 B, I+ b, A$ s
        RowBox[{
    * x4 F; D$ _0 ^, i$ `    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    / v+ p' P& h5 q2 }3 u* z$ T  x) s      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 2 M3 Z- t* u2 N3 ~  w* L
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , C9 n" f% N) P+ s     "}"}], ",",
    6 T: _/ W$ S4 C! H  Q, p. |7 i: V   RowBox[{"{", 0 d4 o" K4 O: [, Q8 x' W. R: w2 p
        RowBox[{
    " X$ u) e+ x0 c* K    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & C: \! q) j$ `& K      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! M8 \/ i) @' ^% f; S! K7 \2 R0 `     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],6 {4 C. }, Z7 q7 C" G4 t
         "}"}], ",",
    & ~3 c+ V3 k3 @$ [   RowBox[{"{", 6 T7 S. t9 q4 ]4 ]4 P
        RowBox[{
      B7 U2 r5 c  D  n    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' h' x0 P8 A: Q- [6 `2 d
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - f' X7 F/ C& n0 F+ `. U; j
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    & p( S+ M) Q- N5 R: n2 b     "}"}], ",",
    ' V2 t: ]& T1 P- i   RowBox[{"{",
    5 Y( ?  g/ a. S    RowBox[{
    7 |; \# x  m9 ^/ S8 e    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 ?+ V7 f2 a5 U* g
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 7 d5 W. [) u1 q" X9 Z# i; W
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ' m3 j& ~1 `/ q4 a2 v     "}"}], ",",
      x) M. ~4 X0 u   RowBox[{"{",
    ) _9 a- g+ k9 c# H7 B6 |    RowBox[{: U! B8 t" y, G9 r6 Q
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, X, W; r0 U2 w7 R: `+ {5 g0 e
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", + X' X" {: h% i5 `
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ( I( J; w* i+ D/ `9 E2 T$ d     "}"}]}], "}"}]], "Output",7 \& N0 x( H5 d/ a1 O5 k
    CellChangeTimes->{
    5 r1 C! t! q. Z2 x3 \' ?3 `  3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
    7 ]4 J! O* ~) E, ?+ b8 N) I$ I   3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9, : w  l/ ]9 y4 o0 r: E$ u5 ?+ y9 U$ s0 E
       3.5779619748823338`*^9}, 3.578012345453125*^9}]$ M' x3 I) n3 F
    }, Open  ]],
    ) F! j: w% K! z) w$ y0 A
    $ r5 G" ]  ?0 j+ F# A( M( BCell[BoxData[$ s$ m/ l. ?$ ?+ u8 L
    RowBox[{"For", "[", & f4 b4 G  d( R  `/ a
      RowBox[{- w7 [$ c$ K/ ^1 i% {( R1 d* @- R0 |6 K, v
       RowBox[{"i", "=", "1"}], ",",
    4 x1 P) G3 c$ \# [   RowBox[{"i", "\[LessEqual]", "60"}], ",", - V5 e, b/ M& T
       RowBox[{"i", "++"}], ",",
    # V+ E* ~( V0 B0 \4 r) S/ L   RowBox[{"{", "\[IndentingNewLine]",
    : N1 R0 b) v3 h; A2 \5 W' v    RowBox[{" M% t9 \  E" \0 ]0 q  H
         RowBox[{
    9 n6 m, ~2 s# g- d$ i      RowBox[{"m60n21", "[",
    2 i4 X5 ^; ~( i       RowBox[{"[",
      Q* g' B) ?$ R. E; |+ ?2 m1 r        RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", # [: Q' U9 E$ H) s3 N, \! p
          RowBox[{"u1", "/.",
    & \$ b2 L, @# q. _       RowBox[{"{", 0 @4 o: y0 h/ r" j' m' _! H
            RowBox[{! B* m8 ?9 r9 O1 a7 J; ]; O( f' {
             RowBox[{"x1", "->", : B2 @+ r$ z/ r
              RowBox[{"Data", "[", & b4 ~/ b: S% X/ S
               RowBox[{"[", 7 G5 W$ |# }) ~. @8 w: n
                RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    3 J1 {3 |0 K+ S  G. n; C         RowBox[{"x2", "->", + v9 L! b* y3 j2 d/ W6 E
              RowBox[{"Data", "[", % d# F& |$ y: R1 p
               RowBox[{"[", 4 d: l3 E( u  k5 E% L, u
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 7 s  p' e4 V7 i+ d& j& l
             RowBox[{"x3", "->", . D5 T/ F1 R# [+ R) k
              RowBox[{"Data", "[",
    $ b. B/ n- X. |( l- K9 a7 V8 A           RowBox[{"[", 1 [( l" f( }1 ]: v
                RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    - l0 \* i9 C/ j7 K- p         RowBox[{"x4", "->",
    0 k& N3 g  e0 Y. v" W% k          RowBox[{"Data", "[",
    0 @& \: o6 o6 ^- m: |  r           RowBox[{"[",
    . ]1 J0 W; o% @! y. J% ^4 S: B            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    % T/ ^% s  D" J         RowBox[{"x5", "->",
      L  p/ x  ^9 {8 F# t          RowBox[{"Data", "[", ' A9 k6 t& V$ I% s+ V8 E
               RowBox[{"[",
    % _5 E: {+ l9 z( @            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    $ c& X$ E5 ?3 E' J         RowBox[{"x6", "->",
    9 G2 I9 O4 }7 ~% F( S          RowBox[{"Data", "[",
    ' k! F  W, m: i9 e, F# t3 d4 a5 I, T           RowBox[{"[", ' l1 k, L' |: N" l
                RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",", : T1 Q& f2 o- x( b
             RowBox[{"x7", "->", 8 Z+ t+ F' f  N( y& A  [
              RowBox[{"Data", "[", 7 k; W- B! h: m1 M
               RowBox[{"[", 6 C& J& p0 z* w" n5 H6 G/ V
                RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", . u' |$ ~6 W: R6 p4 g) {- K' i
             RowBox[{"x8", "->", 6 V; l% V; [+ c7 R6 @
              RowBox[{"Data", "[", * Q; Z: A6 ^- n$ }9 A
               RowBox[{"[",
    0 d0 M8 ~( m# u            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    4 ?- c! }3 {, i- }8 o: U$ ~# H         RowBox[{"x9", "->",
    * D* o% b5 Y8 \3 q          RowBox[{"Data", "[",
    2 [$ D' {2 w) [. _- ]+ k           RowBox[{"[",
    ! n+ _/ U6 `3 Z1 Z, Z4 \: Q. }: z7 p5 o/ b            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
    - S$ z$ u/ l1 S0 c     "\[IndentingNewLine]",
    " g0 u# q/ ~4 \! v. W( u( c     RowBox[{/ B! A. ~$ [! ^2 ?
          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 ( K* M" S* h% c' a$ e0 K5 q. v) k
    神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗

    ! Y/ L3 n) C* n! g(* Content-type: application/mathematica *)
      Z9 i' ^& {& m$ j5 v2 ^" |$ j
    2 Z- d0 T9 d+ @0 x# a% d$ [(*** Wolfram Notebook File ***)! K. @9 L3 Z# y
    (* http://www.wolfram.com/nb *)  j( V( e2 {" l; y

    8 T. G- {3 E% q: P' w5 N& Z0 N" R(* CreatedBy='Mathematica 7.0' *)8 ~& w- }9 C- k: j, J+ n

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

    : m5 R9 i0 q9 H+ t8 E7 H4 W' mCell[CellGroupData[{
    # r8 A% H; V3 B) c8 D+ G4 y0 ~/ ~- _. B( k7 e( w
    Cell[BoxData[
    3 p6 E& B# X# C RowBox[{"Array", "[",
    ' D* ?7 l# B  e0 |3 O) K) ~& I  RowBox[{"CM", ",", 1 m) B% t, j( D% b
       RowBox[{"{", ! d/ g' O9 Z1 f1 `
        RowBox[{"80", ",", "9"}], "}"}]}], "]"}]], "Input",$ T; Y2 q2 f* a/ @6 Y: a
    CellChangeTimes->{{3.577844235859375*^9, 3.577844291953125*^9}}],1 G+ z/ M  c& f

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

    ! c- e  X2 l, O3 d+ N+ {; \Cell[BoxData[/ p$ j: |! n( K5 B  _* [9 ]$ y
    RowBox[{"For", "[", ' i+ b7 d" B: I! s9 g0 X: v2 J
      RowBox[{# D, m% G& K: N0 l8 v9 H
       RowBox[{"i", "=", "1"}], ",",
    4 a) @0 t, U! e9 q, a   RowBox[{"i", "\[LessEqual]", "9"}], ",", ! s$ N  u* K( Y3 i2 [% g- o
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    ( ^% X4 ?) t. |( v! B2 M* L  [# J   RowBox[{"For", "[", . ]: r) ^' X7 @" n
        RowBox[{$ Z# a3 L9 a1 }! l8 O  Y
         RowBox[{"j", "=", "1"}], ",", 9 |4 [, s3 e# _+ b6 V& }
         RowBox[{"j", "\[LessEqual]", "80"}], ",", - [+ M% w  ?" g! l6 D+ \
         RowBox[{"j", "++"}], ",", "\[IndentingNewLine]",
    ' }9 b6 `( X! d3 [     RowBox[{- Z: _: Y* Q2 l8 Y) w& L: y
          RowBox[{
    % G& W5 z' b! y+ E% S       RowBox[{"CM", "[",   s3 d: Y" E. H- s6 s9 `
            RowBox[{"j", ",", "i"}], "]"}], "=", "0.0"}], ";"}]}], * C- x# `4 A0 n% v
        "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",
    3 F1 o1 v- f  V# y3 z; X1 D( h' I( R% b+ j CellChangeTimes->{{3.5779132504375*^9, 3.577913285203125*^9}}],5 r& K- a; }/ a; |4 J  O9 q! ^

    ( q. q7 l0 e- NCell[BoxData[
    , O' F4 n; f  a$ T4 U RowBox[{"For", "[",
    + N! d* t  N1 \/ k7 Z7 ?8 m  RowBox[{
    8 }: y" a* g- x. C   RowBox[{"i", "=", "1"}], ",", $ B; @# Y$ T& Z- a4 X; \
       RowBox[{"i", "\[LessEqual]", "9"}], ",",
    2 k: `. Q. Y0 j- U7 ?   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 0 X5 J, k3 }' T4 W, y+ m
       RowBox[{
    ) k/ o1 a! d% u9 D9 Y    RowBox[{7 w1 ~/ ~: a2 G
         RowBox[{"CM", "[", 7 w, y9 L% @) M7 m( R8 W! ~
          RowBox[{"1", ",", "i"}], "]"}], "=", ! o* z: a' ]1 ~. @3 M& R) F) n
         RowBox[{"Data", "[",
    - H% N8 S3 q) M: g$ o& [      RowBox[{"[",
    " a' \- [8 ~* b       RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}], 4 ~$ A& v  y0 h
      "\[IndentingNewLine]", "]"}]], "Input",: \1 L7 q+ x( D( [- X0 n4 X4 P
    CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {
    : ?" ?" v2 [+ @$ N  Y1 U6 ~   3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9, 4 @8 X6 }1 ^1 T. g
       3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9, & m' H) L& F- E8 P( V7 {7 F/ b: D
       3.57791344209375*^9, 3.5779588070933466`*^9}],1 ?- l- `1 h; Y: e* f' d4 D

    ) M0 {$ z+ b; j% m# c7 [Cell[CellGroupData[{& q2 u: E1 }& h4 U: Y0 N
    ) G5 O/ E- Q* M9 y- |3 U& h
    Cell[BoxData[{
    " C) @) u) |1 E3 _7 f. E# N, B RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]", + G- d+ S6 L1 T
    RowBox[{"M1", "=", "1"}]}], "Input",
    2 H2 v# K0 V2 \8 f' ? CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {$ [3 e3 n/ A* w: ?8 ?
       3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9, - \9 x# A/ L4 h2 [7 a/ a
       3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {
    0 M' _3 t2 C3 c( t4 R2 L8 s7 H/ G0 {9 ?   3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9,
    - z- M9 u/ T, U& n  l7 M3 E- a   3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {- I! z, ]) T0 y$ g' F
       3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {  n' i2 H4 {  b* |9 l! s$ q
       3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9,
    ) P) X1 ]! F$ V* M, y. ~   3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {- g7 [- k) F  g! u! a
       3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {
    ( S0 \# B$ i5 Q5 W$ O   3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9, / e/ v/ b# z  S* \, n) l( J- i
       3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
    $ a  n% p  \# @! p5 D; W$ g
    9 t7 x  U2 f& D0 A+ {- h7 @4 TCell[BoxData["0.2`"], "Output",# P; f4 N6 ?7 `# r/ t2 Z1 k$ a+ N  I
    CellChangeTimes->{
    ( f( Z7 I& g3 q2 ~' A  C  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    ( ^7 d1 b- y  Q' F! N   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    3 H# F9 k0 ~+ ~5 S   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    5 k8 U* t! K( q0 d' O7 y   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
    9 c' }: Q* d# a5 S  O   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, / J7 v' m" ~# O+ A. {5 d
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {2 R0 Y  v4 E$ C
       3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
    ; U, V( K9 \% R" n   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {7 Q! y, N0 S9 k1 D0 b" H' H  ]1 n
       3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
    , S( q1 I$ @( J   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    0 U2 ~; D) z2 P3 q   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    ! M8 g* i" K, b   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    9 ?& j! U; e0 Y   3.577960510686717*^9, 3.578012149296875*^9}],5 P) K5 }! u  R; j) Q% N
    , }6 E& \) s3 I
    Cell[BoxData["1"], "Output",
    & }9 f: d5 z/ _( \* s/ {! }4 J CellChangeTimes->{
    ( O* X9 A+ Z$ P# t6 P, M  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    ; Y3 e7 b! E- ?: _- v   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {0 {3 {- J5 S" o" g( R' b
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, 6 [. F0 }9 O# G: ^" b1 b3 @! `9 c0 f, a
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {8 ^: g3 _. I" {% W  l) Q+ w2 V7 d% a$ n
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, " J- p/ W# G4 Y8 {% @
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    ) e& R& _; V! o   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, 6 r! N  e) X6 C
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    ( ^* ~/ U& v: H/ }4 W   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
    ; C) {0 U, \" i   3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    ! x9 w* @/ w' D% r   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    $ Y/ l7 @9 |3 i' K/ a; P' x- p   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, 6 p' e/ v$ V; f. d; ], X/ ^; W
       3.577960510686717*^9, 3.578012149296875*^9}]4 F6 ]1 c0 V: q1 N1 z
    }, Open  ]],4 }/ `/ i% S! b6 |) Z1 \
    6 k1 e# \! M: |" ~4 O* z! }, L3 m2 `  X5 y
    Cell[BoxData[
    3 s- [$ }: i# k! ?' [. B RowBox[{"For", "[",
    . r! z8 |$ S  q2 z) s  RowBox[{/ U* Q! p& h, k9 ~$ Q* k
       RowBox[{"k", "=", "2"}], ",", 4 t6 ~9 R) ^" y( X" t9 Z
       RowBox[{"k", "\[LessEqual]", "60"}], ",", 7 ~- F& ]# N4 ^) G
       RowBox[{"k", "++"}], ",",
    , o6 B* w7 I1 W: H9 l2 u; S2 [   RowBox[{"{", "\[IndentingNewLine]", . H. K4 a+ a5 ]9 M
        RowBox[{
    " @5 a* e0 J' X2 b% d- ?( r     RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]", ' g/ v2 I( D- ^9 s# f+ I
         RowBox[{"For", "[", - t* J& |( `* E# y9 _9 d
          RowBox[{
    * E0 ]2 b2 ~6 H6 m9 F+ x  X5 i       RowBox[{"j", "=", "1"}], ",", 6 i2 D- T3 l/ g8 Q) ]& l+ U( Z
           RowBox[{"j", "\[LessEqual]",
    9 \0 y6 g, }: x+ x- b# A0 q        RowBox[{"k", "-", "1"}]}], ",",
    & i- }% A( V/ w& k% l       RowBox[{"j", "++"}], ",", * W+ Y; ]' g8 q; M; @6 ~
           RowBox[{"{", "\[IndentingNewLine]",
    ! B( b0 l% t7 \; V' v2 A, g* y! A        RowBox[{5 F' q! g* L. }* l% t
             RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]",
    ! u' i7 j3 _- Q4 Z         RowBox[{"For", "[",
    3 g# d0 ^1 x' X1 P$ Q, h* p* U7 `1 Q          RowBox[{
    , q- c& n; d8 }  l5 Q           RowBox[{"i", "=", "1"}], ",", " Y- T& d" o8 C$ p+ Z3 j3 y" _; K
               RowBox[{"i", "\[LessEqual]", "9"}], ",", , b# g/ X4 m9 E. e
               RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    - {* [- n5 {1 T* ^7 j5 L           RowBox[{6 o, q# \6 a0 s. h8 r
                RowBox[{"r1", "+=",
    7 I- Z" t' {% O9 G2 G             RowBox[{
    % J) \# C* d- [              RowBox[{"(", + m1 n3 @6 m, ]2 D
                   RowBox[{
    4 S3 g7 w  i! n! Y: o                RowBox[{"CM", "[", 8 [3 V6 |, _# J# y8 G0 f! c
                     RowBox[{"j", ",", "i"}], "]"}], "-",
    3 |, _  E5 g4 ?                RowBox[{"Data", "[", ; J/ ^- p: o# \* j. f
                     RowBox[{"[", ! [1 a0 _- J# V( a
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*", 7 x5 g0 \4 Y: h4 O- B! i
                  RowBox[{"(",
    # o9 s) j2 a: K5 D* ~- `               RowBox[{/ A) F7 p9 O1 @: K. `; f
                    RowBox[{"CM", "[",
    1 R9 n( j& x$ y" y% K0 x                 RowBox[{"j", ",", "i"}], "]"}], "-", % T' T1 i' Q" Y0 Y: T6 n3 @
                    RowBox[{"Data", "[", ) ^' ^* O, \" B
                     RowBox[{"[",
    $ Z8 M, o% Q/ J* r) g  R                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
    7 e" t( ^1 l9 b) d3 Z           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", : c4 s# e  j1 q# s! a
             RowBox[{"r1", "=",
    & p0 a$ g1 H/ d0 b# U$ O0 `4 Q          RowBox[{"Sqrt", "[",
    9 Z+ e- {. P2 J           RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
    ; w8 a+ z& r- K1 f         RowBox[{"If", "[", " ",
    * }9 m2 O* l* I5 D3 c1 O6 ?! |: W          RowBox[{
    9 B( o4 b; X6 a8 \: p# U: h* {: z           RowBox[{"j", "\[Equal]", "1"}], ",", # ?' v& a- ^- B8 H
               RowBox[{"rmin", "=", "r1"}], ",",
    % E4 {4 P. f, u1 Z* |- ^5 u' x           RowBox[{"If", "[", 8 t5 [7 @% M8 w1 L* X3 q( d
                RowBox[{
    % W! t5 f) N! D( T0 h5 l             RowBox[{"r1", "<", "rmin"}], ",",   C, G( A, h, b! j  c* e* D
                 RowBox[{"rmin", "=", "r1"}], ",", $ U: F! N9 v/ i3 ]( M: {( F" j4 q
                 RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}], 6 H/ p% r! B1 b+ {) Q
            "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
    ; I" `+ E: x& A! M# z     "\[IndentingNewLine]",
    / f, l' p/ [* D: V     RowBox[{"If", "[",
    5 F( `, C1 _8 d9 }; Z      RowBox[{
    / L) p# L+ E# V- R! g' I: M/ o       RowBox[{"rmin", ">", "r0"}], ",", % I' c9 R9 v3 |0 {) {
           RowBox[{"{", "\[IndentingNewLine]", / i/ m  H5 p2 {- |4 x. e0 S
            RowBox[{
    + m8 U9 w0 g1 e         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]",
    1 `0 {$ f7 o( p7 Y$ q" e         RowBox[{"For", "[",
    " x, O7 {% k! a          RowBox[{
    0 a0 {6 t5 C) t           RowBox[{"i1", "=", "1"}], ",", 4 f! z5 Z$ C6 n  _( b0 u
               RowBox[{"i1", "\[LessEqual]", "9"}], ",", 9 z0 J" i6 A, }! V9 m9 {5 q
               RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]", ( I. B7 o+ B+ \3 S$ m! R
               RowBox[{) z6 W7 w: _8 s- U) P; \$ ^" U. F2 c
                RowBox[{0 J# e  U: t3 j" _/ [
                 RowBox[{"CM", "[", - t. G; [& m( {4 I
                  RowBox[{"M1", ",", "i1"}], "]"}], "=", ! i1 v2 m9 a- y1 e' X8 }$ ~
                 RowBox[{"Data", "[", % v% C" R' g8 i
                  RowBox[{"[",
    ; x$ v# `7 I- Q1 k- v               RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}], 5 n7 j; L# Y9 h+ s& h
              "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",",
    " R: U! \. V! Y$ s       RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}],
    # c  V+ T0 H+ a9 z    "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",  Q. }1 n' C. P& T# N
    CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {
    7 a' [4 b; V0 ^, V' o   3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
    7 Q& Q% T# j, k   3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {
    " f" a; T  s" l; |7 c' o$ B& j+ P   3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9,
    : C/ x; m, R" i6 j5 B0 U   3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
    ! M5 T. p* A$ |: B* e; P! W, S   3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,
    ; p6 r1 i- P. j* h6 h  v   3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
    ; {$ i$ d1 Q0 @( ?3 W  e   3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
    8 v9 g7 ?) h. x9 J) u( J   3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
    " d1 I# t- D) `  R, b   3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
    0 N0 l( O+ R" ?! Y! p+ w' F   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {  I9 w" R5 W) P! B5 M
       3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9, % `7 z# z1 C7 e' j+ o0 y2 F
       3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {
    * U  ?" d9 W. r$ A   3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9, - t! G8 F5 z8 {( e
       3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {8 h; g& S4 E: w
       3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9, ( ~) p* `: ?5 y4 W/ U0 @
       3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9,
    9 N2 y: B5 ]2 b" K   3.577958821991373*^9}}],% o) K1 n$ u' g& y8 g

    * Y: m: @0 O5 r9 N0 j/ N, sCell[CellGroupData[{
    . C6 i0 L1 G7 A- ~' p
    $ A: z7 s# z/ Z: \Cell[BoxData["M1"], "Input",
    6 O) k6 j, u$ y( Z CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],. s  O2 R6 p( S4 Q

    * u' L: V* P$ w# p" p3 I# UCell[BoxData["21"], "Output",
    & D' V: ^1 P$ |0 X' q CellChangeTimes->{1 ]! K% F  p. b; L
      3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {; k- p( y" X1 }4 p7 `
       3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9, ; O6 I; Y8 [& p* x3 i! w
       3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {( \, n5 j7 c1 a+ g5 M6 [3 I
       3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9, 2 k: S# \6 U' \; t" _" h* X
       3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
    / T$ H# g$ u* o" X: `   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, 6 L; T( o! `# b6 k, j" |. }! |
       3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
    0 H/ O$ F1 D: m6 s" g   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9, " S9 G" Q7 L) ^" ?; |! v
       3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9, 6 [; n" Q$ t$ Y# ~+ t
       3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9,
    6 p- q" u4 G4 b9 L0 \5 h   3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
    0 V% B: r: o$ l: C   3.577960515600726*^9, 3.5780121541875*^9}]# J/ z5 L1 F4 r& d- i
    }, Open  ]],
    4 {' Y1 O: ?% i
    + j9 }$ r8 P1 g) C$ d# O( jCell[BoxData[
    # y, h* {$ J9 S RowBox[{
    + X3 w; Z1 @$ Q6 J; p- {. [  RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", & d" ^8 R0 a% F3 u$ V: p
       RowBox[{"1", ",", "i"}], "]"}],
    ( b: o" _  r1 d  RowBox[{"\:5230CM", "[", ' {: n* x5 t( I: h
       RowBox[{"21", ",", "i"}], "]"}],
    ( N# ?9 D' O9 m1 l- r! h5 z* J  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
      y, u% Z8 H8 N0 s& _2 J\:51fd\:6570u1\:5230u21"}]], "Input",
    9 I& J3 o1 X: F& x# ]$ ` CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {% s6 t* A' q+ J1 b
      3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9, 6 d6 l& k$ K8 c( k. r' t1 x. \
      3.577960526583145*^9}}],
    3 [4 {" N" N! o3 O/ M2 B; L. N8 l9 Q
    Cell[BoxData[3 A7 ^$ E6 G2 u# ]/ r
    RowBox[{"Clear", "[", "Delta", "]"}]], "Input",+ T0 R/ J+ L# W: T! X: o4 r
    CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],7 D( O# Q& j, E
    * ?% P: d! _$ [* j
    Cell[CellGroupData[{
    0 _9 d2 |3 u5 C4 h+ s% i  V3 q! {
    Cell[BoxData[
    9 A( W) ]* o$ h9 P3 i RowBox[{"Xa", "=",
    % Q) H. |$ L. ~' j9 w6 _/ D: g9 T  RowBox[{"{",
    4 C4 g- O( M8 ~" A0 E0 C; w7 c( V   RowBox[{
    5 _9 w( r$ d5 a8 @) |   "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ' Y$ B1 N7 l! `
        ",", "x8", ",", "x9"}], "}"}]}]], "Input",/ k) m# q: e8 s- ~3 E3 {6 x7 E4 F
    CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
    & ~1 q$ U/ \: h- y1 O
    8 x( k: a, p4 [- R8 ACell[BoxData[2 Z6 x# Q; t/ S
    RowBox[{"{",
    - R  a, K( a7 ^" U2 g+ b- [  RowBox[{
    3 Y1 F7 U; L  M) X' f: K/ W  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
    ) @9 Y6 x1 @8 U$ i: ?1 Z$ Z    "x8", ",", "x9"}], "}"}]], "Output",
    , n8 x) Z0 U# p! u/ Y) T7 D CellChangeTimes->{
    & c4 K% D7 j- p4 Y5 y  3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
    ! a# V9 J7 F) a, Z: B. t5 w   3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9, 7 {* Z" U) Y$ l/ C
       3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9, 0 x! L# [. a5 r, N$ m1 |
       3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, 9 {; ~1 d' g( N# q
       3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
    - I6 }" S* E) o: ?# I& |7 n2 o. r   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9, * M1 G( G% e/ Z; R  y6 j, `
       3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
    ( z5 @+ Q. J* ^9 f   3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
    ! t& s- w' n, q5 K3 k, T4 i- T   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
    : P" e& }; \; {   3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9, ( i* M" N; d* l/ L* c- h4 E+ J9 U
       3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9}, ( s4 I, o4 v9 P
       3.57801215725*^9}]0 n' }* J; U' f5 O2 p
    }, Open  ]],
      J% h" |9 z; ?8 ~: g+ F4 o6 w; u$ a1 n7 |4 _- l
    Cell[CellGroupData[{
    , {( t1 Y+ O; x0 c/ e1 d* @6 o3 U7 |
    Cell[BoxData[
    . C9 ]4 x! {  G1 K+ t RowBox[{"Ca", "=", ! |: }; x. p8 {, q+ Y# ~2 M
      RowBox[{"{", 2 |- E. o& H; O* j; K( `, ^
       RowBox[{
    ' X0 g/ D" S  F; Y   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
    ; W3 w# n8 R( t    ",", "c8", ",", "c9"}], "}"}]}]], "Input",
    ' D& A% \. M7 c CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],' c0 h  `& q+ R4 @  {0 y( W+ w

    ; j# q/ G' _3 D4 KCell[BoxData[
    9 p' s( v+ z; h/ A RowBox[{"{", 8 j+ d6 K$ k% z1 R. V% @
      RowBox[{
    + d8 R1 n1 F0 E. p, `1 j  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",! c7 a. f( }6 j
        "c8", ",", "c9"}], "}"}]], "Output",
    . o( U$ o' R: L+ S CellChangeTimes->{; S2 I9 @3 e% m" F1 B+ }& K; u
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9, / k5 G8 q: L9 K" Y" h+ O8 K
       3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9, 8 k* |% V- ]3 c8 T# v! w' u
       3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
    2 j) {9 I% H1 |, c: E1 w   3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
    & ]' ]0 }, G! f5 R8 f' U- O   3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9, / v" W: Y% G# k- f
       3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
    + F3 s: [3 T3 c# |% @- ~7 ^   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9, 9 ]% A1 @  q! t  I( f$ i! X
       3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9,
    3 a; s+ y, j/ M& U8 H. R   3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9}, / D( z; }- I  w6 @8 P
       3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
    : J' E# S6 p5 ^" g8 _   3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9, : i) X! w0 K% H  M* U/ [
       3.577961904604212*^9}, 3.578012158671875*^9}]
    % }: G0 h0 v$ j}, Open  ]],' T9 T! ^. j, V4 @6 E; P7 [
    / F# ^  s+ r* S7 a' H& ?
    Cell[BoxData[
    0 L; b* `, k8 K  M# [4 a: B# C2 ? RowBox[{"For", "[", $ E& l. e" ~$ ^# d8 |1 N- u3 u
      RowBox[{
    8 }! D1 G- e. A+ h' `   RowBox[{"i", "=", "1"}], ",",
    0 h/ C; F: y, x. c9 ?: w9 n) M   RowBox[{"i", "\[LessEqual]", "9"}], ",", , {) {! [) t! G8 [2 J: I; D
       RowBox[{"i", "++"}], ",",
    ! b1 `. t( N8 D3 V$ ~   RowBox[{
    / f1 @4 m+ G. u8 |    RowBox[{"Ca", "[", 2 N% w0 D  C( M; k) e
         RowBox[{"[", "i", "]"}], "]"}], "=",
    * r" N9 P5 n! i( V5 {* S    RowBox[{"CM", "[", 0 r6 _. I4 V! E% Y0 V
         RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",: J) ^" s# s( Z6 j( `# U
    CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
    % R7 G- y; B& {/ ~$ |; C0 z   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
    5 G9 K+ J* P0 I; j' z9 e   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
    ! R, y: L4 ]4 {* E   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9, . p& Q1 C; r. @9 U
       3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9,
    4 M4 J% }7 @- _; ^, d% p9 W   3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
    ! b0 e8 [9 n4 Y0 v   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
    6 Z: W! ~* S' H$ O  _) H4 ~   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
    : z) @3 S2 p+ l   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9, ! v- v4 ~! T- m7 G7 l
       3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9}, 9 E7 r2 f& H; a# f" Q4 [$ z
       3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {! N" q1 f$ V& g9 ~# r$ \4 i
       3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,   b1 R' w* M" l  z. P$ ]+ ^/ a$ l
       3.577961906897415*^9}, 3.578012176296875*^9}],
    " B. Y/ Z8 J9 D2 P1 g
    . M- m3 Y# g; j- l' B7 D- GCell[CellGroupData[{3 b- Q# H; s' I3 ]4 `

    8 v. g- r# E* W; z( i0 ZCell[BoxData[
    5 _* I1 L! r, @; a9 B) L RowBox[{/ p8 V! Y! o/ H; |* j
      RowBox[{"(",
    ) u  D  `# l3 ]$ S" t  s   RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ! ~- {5 f  F! q$ v) n( u' f# o) Y  RowBox[{"(",
    : w5 E" ^$ o) p2 u' H6 V! v) O0 l0 e   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],9 c( j+ C! K" o2 ~, s
    1 N# {- ^) j! t9 Z% A) F) D: W' \
    Cell[BoxData[) [/ @, x9 ]/ {' |: _' I8 l
    RowBox[{! P1 s/ u. U  n" v% \& \( v
      SuperscriptBox[  o3 _$ D  i1 F3 m
       RowBox[{"(", % D8 T9 h/ O' q& P- L7 G
        RowBox[{2 _# X' b$ b. J. V& X) q. u
         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+", & u' B, u# n/ m0 ?9 D! Q
      SuperscriptBox[3 t2 \5 l/ f/ m7 K. z
       RowBox[{"(",
    9 j2 _- \3 B; a4 |    RowBox[{0 g5 A# E6 @6 {( k8 y+ L* k
         RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+", 1 V2 o% ?, T5 {; s  u
      SuperscriptBox[
    3 P3 j+ S# k4 T6 b9 O   RowBox[{"(", 4 b4 M3 j! u- D3 j
        RowBox[{
    , q' G$ q8 A* v& R/ f  a* P2 C     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+",
    - {$ J" r8 F+ ?( d9 g$ V  SuperscriptBox[
    , G8 K& A, r7 ?  J$ |   RowBox[{"(", * |4 L6 |, |! P1 Y" m4 g9 E( t4 Z
        RowBox[{
    % ^! [" D% `( C1 v( a% _     RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
    7 E; ?. @3 N# k  SuperscriptBox[
    " m+ J# K" ?5 O4 {8 x   RowBox[{"(", ' t: S: j7 G+ b, [8 v9 _' @
        RowBox[{
    7 V4 A8 A1 x* a. }; l4 a     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+",
      D4 S# K" z8 ]  SuperscriptBox[
    2 l6 T+ j9 F7 W( B& Q$ J7 ?. s   RowBox[{"(", - L. [8 v7 K3 \  V& b! Z, w4 v
        RowBox[{
    ; u( C) a  o( C! j4 }0 m) N3 K6 F* h     RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
    3 J/ Q  E3 g: M2 p/ \: s+ W  SuperscriptBox[
      o5 F, K$ g' B3 k   RowBox[{"(", 9 ?# S9 \' K  K5 B
        RowBox[{' f9 s2 b$ M! u7 n( f
         RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
    % Z1 s- s/ O( p' ]! ]7 q  SuperscriptBox[5 F+ `5 F$ J: A( w
       RowBox[{"(",   L9 _# u- m# v* p3 @% {/ O
        RowBox[{, F7 A5 i; p! S9 k$ h; H
         RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", $ S( x7 e$ U) R8 h. m
      SuperscriptBox[
    ( Y& P& j8 C& J: W% {( M) v   RowBox[{"(",
    4 S& _5 _) x/ I  m    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",2 r8 [) F5 j/ v/ G+ u/ s
    CellChangeTimes->{+ @( u: ~# k" R6 M- M! \# Z" N$ W
      3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9}, 4 J' F9 }3 X( e0 X' @
       3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9, 7 D- a9 B" a# W4 [6 I( ^" O
       3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,
    : |7 ]9 G" [" K+ N9 u- \8 I4 b   3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9, 8 C, S: [5 v6 w% L8 y
       3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
    8 t/ O+ T* p& O   3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9, / ~7 x# b7 P6 v8 Z" b/ X9 E
       3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {/ _4 ?1 J9 y$ ?
       3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
    2 y4 i+ X. g8 b   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {" C& f7 o( E, x* f  K! s7 L1 c
       3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
    7 \# U4 L9 H+ l0 U6 M/ p, i   3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, " p" o4 Q+ j% {$ V6 u" m
       3.5779618537169228`*^9}, {3.5779618846049767`*^9, % \, k' Z# k- K% L
       3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
    7 I5 p. W) y2 D& E}, Open  ]],4 @; ?( y( r2 }4 a1 h6 l

    ) l- Q' Y- x6 LCell[CellGroupData[{
    . R0 s7 y, q6 ~8 J! ]2 |  D% _9 X6 S( m* Y3 _7 }, x4 A
    Cell[BoxData[
    : o: d) t- W/ q' `% o* @, u RowBox[{
    5 g: D2 h* c7 o1 U+ \  RowBox[{"Ca", "[", ) A1 i3 w. b8 ~( x, X. X, a
       RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",, l( F. {5 o4 V9 z$ Q- x
    CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
    + e+ h, V* f; i+ E  3.5779616465173616`*^9}],3 Z; Z  i4 H1 o
    $ N; r7 d* o/ N  j5 G# t
    Cell[BoxData["0"], "Output",
    7 `$ v5 d, r) q, b9 O& p; q( K CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
    7 c$ n: P) ], @  3.5779616484049644`*^9}]
    2 Q5 g/ Y( B% [4 C- s4 E0 T}, Open  ]],& V  ]7 f. O/ M7 G+ F, ]3 G
    8 N) Q& \5 E! P3 i
    Cell[CellGroupData[{
    6 z, p$ o% l; X1 Y, J! }0 [8 m' T1 c3 `4 e( H: q
    Cell[BoxData[
      w. J" b' Z* Z8 S; @+ I RowBox[{
    5 U1 B2 ?% }+ E  RowBox[{"Ca", "[",
    ( v; D) b0 W" F; s4 M9 O$ i+ O   RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
    0 O* Z) g. e' f* e7 v  R CellChangeTimes->{3.577957376235614*^9}],
    : c8 y$ Z. l  x2 F5 L& j: `4 I+ T' p2 t; L5 n5 j) N) S0 v/ \9 r" J
    Cell[BoxData["0"], "Output",& w6 F0 H  [% z) S
    CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
    . [2 l% j. n4 s* A( `( d0 [0 r}, Open  ]],
    $ p) m- S& R* M/ K6 T0 j% y3 c5 e# ?* C* ~( M4 C
    Cell[CellGroupData[{
    5 E4 Q; e; R  n7 @6 T+ c/ n8 Z
    Cell[BoxData[
    ; F* N9 r* u& c( r# k( m RowBox[{* ^1 Z' u. u, t' r% Q
      RowBox[{"Ca", "[", 3 c$ D4 {; j( j8 x& D
       RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",( k4 [' S; s: U: s. @( n
    CellChangeTimes->{3.5779573112927003`*^9}],
    . h' X5 Y- L; K
      ~8 k8 U* T# L! P! ?4 Y0 oCell[BoxData["0"], "Output",7 Q5 g# e9 |3 Q1 `2 x
    CellChangeTimes->{
    ) ?- g- R# G: l9 @6 |  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
    ( w$ p; @! u9 s7 R0 ^% d; a   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
    ; P: q5 m$ M/ G7 l9 `: _   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
    * R8 v- y; Q$ z  ~  h   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
    * H3 f* P4 l5 p% N% y   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9}, 8 O8 h, X, r) R# P; O1 A
       3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]& t6 m  l0 l; u0 B  Q! U* n5 U: ?
    }, Open  ]],1 ~: J4 ^9 f; y2 X* L

    ) c3 b0 o! _/ q* D- L9 CCell[CellGroupData[{0 c5 m6 R/ \) A. X8 ]) d' b- _0 Y0 r

    / n. B/ X  I! j7 [Cell[BoxData[1 J' I5 F5 g& |5 `* o. m0 d+ K
    RowBox[{5 r7 ^4 ^! [! X& p( D0 Z& Y
      RowBox[{"Ca", "[",
    & r' t7 U+ f+ \% y: _   RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
    ; R6 D8 n8 O  l1 j0 j4 \ CellChangeTimes->{3.577921461734375*^9}],
    7 H+ s" F3 G5 ^) M- }0 g* i. s, y" u7 u- A. h! I
    Cell[BoxData["0"], "Output",
    9 l$ x! J) X5 e) | CellChangeTimes->{- C' t3 _8 [6 Z/ m
      3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
    5 b# f; q5 h. B6 {   3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9}, 0 @  i9 _) c, e$ o
       3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9, * C1 b* d$ m5 w7 X4 z
       3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9, 6 r3 |% f& _( a3 E& p' v
       3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]/ q' v& |$ z. s/ D  v
    }, Open  ]],
    1 n$ b/ x6 L9 u0 y! [& k7 R1 A% D6 v* a$ D( R1 H. j* m8 L- e
    Cell[CellGroupData[{
    5 m  ?% |4 u: d0 K0 X8 ^+ j8 w* w1 L0 ]8 j6 F+ @
    Cell[BoxData[
    5 l5 t- h  m9 s2 ` RowBox[{6 Y! t- r2 C* ?1 K9 O  u, R* ^
      RowBox[{"Ca", "[",
    " o6 M! z1 t+ h: _  K, n   RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",! \* g# Q# b/ M3 t$ b$ _
    CellChangeTimes->{3.577957303118286*^9}],
    " D8 ]/ C/ P' c; c# b: y5 [3 ?. h2 B4 d/ d, f  S& D
    Cell[BoxData["0"], "Output",: b( _( V# K) _2 F% \) x# h
    CellChangeTimes->{6 K1 _6 T  A' }* y  T! h9 N
      3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {5 ]/ E( s8 f* [, q' B# n; f, `
       3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
    8 n' o+ v: q( T4 Y. r   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9, , Y4 t6 q# [+ P" }
       3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9, + [' S) g4 p) ^0 ~
       3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
    ' ]# Q- ?* s* W7 ~   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {4 k; D5 z/ Y8 n. A: e
       3.577961889378585*^9, 3.577961912965826*^9}}]
    ) C! D2 o! M- T. |' Z/ v}, Open  ]],: U' ^4 B* t9 L9 |" Q

    : J; ?. P; ]! l# U# D! YCell[CellGroupData[{
    $ N4 F+ t) L" Y# \& Q
    ; A, c' h+ m5 oCell[BoxData[! S0 A7 r* A6 \/ m5 K
    RowBox[{# H2 S$ f! L' A& p; P
      RowBox[{"Ca", "[",
    2 R0 C7 N1 h& d1 J, e/ [4 X   RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",; x" T+ s* [  @3 q
    CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {& N- q, y+ F1 J1 v8 q1 K7 Y1 I
      3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
    - N8 J) U% y& Y0 o  3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
    1 o7 y' B( i' u9 u; B  3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9, - I8 Q% ~$ V; f! P
      3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {$ @. u6 B, u. h# c
      3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9, $ v  S5 W1 f' y4 U. L' R4 \0 t
      3.577921435703125*^9}}],) ~" a$ P0 w: j# L" }" i( H

    / \- I& [' j. m( `, S5 T# wCell[BoxData["0"], "Output",* `8 M) W& S$ P8 g, a
    CellChangeTimes->{8 p$ [) ~' p# [7 n8 P. D: e+ R' A
      3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {
    & i5 b  J* P/ {   3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
    2 b1 A0 V+ j9 t   3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
    7 j; V( f6 Z2 H& x6 g! Q9 Q   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, 8 D3 ?# D5 d* ^5 \  v3 Y
       3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
    4 ^5 }8 A3 ^0 i7 _% K) Z   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9, ( t' k: E, S" g! \7 i2 x
       3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
    ' L9 j/ S! z3 `+ {" o   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9, ) C9 t0 Y/ @0 a6 C) |' Y
       3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {' M  v- C; m3 M: O, u6 {
       3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9, 7 D2 N- r- @' \8 L7 D
       3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
    ; H# [1 [6 z! `4 u6 S; N: H2 e( j# p   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, 3 I% D" p8 z4 S, i9 r2 p
       3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
    7 e) E3 i1 _% t1 H# V- l}, Open  ]],7 b, y  G# `; C. P+ s& y, H

    ; X1 a# X( R" u! E- @- FCell[CellGroupData[{
    - R0 f9 r" M- C( v
    + ^' G5 N1 n# [, p+ N2 s: jCell[BoxData[
    & S6 J+ P( W$ C8 M3 U$ ^: y3 K RowBox[{"Delta1", "=", , u3 e% D0 X/ ]. J9 O' L6 g) ]
      RowBox[{
      z9 D& l' K8 ?3 u7 q   SubsuperscriptBox["\[Integral]",
    3 x3 e! R- i* x. P$ u2 z8 u) Q6 ^    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    4 E; h3 f. E* j9 P% ]   RowBox[{" P6 Y9 N7 I/ s5 ^' _
        SubsuperscriptBox["\[Integral]",
    , S) h* m1 A4 Z" j; T     RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    3 z. F, @$ c% ?    RowBox[{
    ! C. ]1 Y# v$ L' L4 t     SubsuperscriptBox["\[Integral]",
    + f! j5 X: n; {      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 0 {1 A1 C1 E- {) k3 L" Y9 F
         RowBox[{5 d" [  Y$ g5 A
          SubsuperscriptBox["\[Integral]", ) C2 ?3 t$ ?" M5 A
           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], , k! A8 h, W" I+ c* a1 _! M& H+ c0 l
          RowBox[{
    0 i/ k! T, E3 ~+ P; _8 o       SubsuperscriptBox["\[Integral]",
    ) L4 V# y3 _6 e, N        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    4 ~5 l2 Z: f( p% V( |       RowBox[{' x/ f& h" G7 e; `3 f% P
            SubsuperscriptBox["\[Integral]", 9 T) a+ P7 y* U, l6 B: f
             RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    & c8 D# e' J3 [4 D        RowBox[{
    3 v) Z5 I8 c( F% n: c! J3 x* D* h         SubsuperscriptBox["\[Integral]",
    " Z. w% b  S0 e9 o          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 1 ^4 L1 p5 o4 ~% K/ w
             RowBox[{
    ' X& x; H9 d7 I3 i6 c          SubsuperscriptBox["\[Integral]",
    3 s' b! X' s* Y           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    & D# v& P8 a1 h8 B          RowBox[{
    7 P6 \* h- S' r  B+ A( r. h0 H           SubsuperscriptBox["\[Integral]",
    7 e) H0 ^( _0 z- `( f: E" O! \            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    % E+ L. E: N5 D1 N( y! L0 B           RowBox[{) M* M& z1 k  r* a
                RowBox[{"Exp", "[",
    % l! W; M) L* f0 s3 [             RowBox[{1 X, q' t$ P; f1 Q' f& Z3 Y
                  RowBox[{8 [) t* h& t* c; _+ a: ^
                   RowBox[{"-", # k# u5 H2 E7 x' h; q1 P
                    RowBox[{9 X. g/ g6 J1 G! Y0 K; m
                     RowBox[{"(", 4 u1 |* L3 q& `* q
                      RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    7 E& b5 }" q4 f9 ]0 \4 \+ S                 RowBox[{"(",
    # G! s" _7 [& J" P                  RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
    7 @- L4 Z2 F1 I. y0 S! B! e- k9 \              "Delta"}], "]"}], : q9 H4 M1 I$ Z' O- d% {, G& \
                RowBox[{"\[DifferentialD]", "x1"}],
    : a, y6 j+ I, ^& f- d            RowBox[{"\[DifferentialD]", "x2"}], 4 s( }. K& [) Y. _3 X3 w/ e7 Y
                RowBox[{"\[DifferentialD]", "x3"}],
    $ m" ?& j! W  j3 `/ t7 n" u( G            RowBox[{"\[DifferentialD]", "x4"}],
    ; b$ y: R$ J8 t4 m            RowBox[{"\[DifferentialD]", "x5"}], - R6 M4 R: N% t1 j- k" ?/ [
                RowBox[{"\[DifferentialD]", "x6"}],
    ' _! w9 Y3 s% h6 k$ X9 @            RowBox[{"\[DifferentialD]", "x7"}], 7 R: n7 b/ i( l2 j
                RowBox[{"\[DifferentialD]", "x8"}],
    / K2 @4 d- r2 e% d: G0 t            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
    ! B) H7 ~! c2 t- c- K& U CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {8 T$ T; d3 e' ?
       3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, 1 P; i) y5 l% {/ {8 ?
       3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
    # L0 F- {: d  c- S& p   3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
    , y  {0 H9 A5 d1 d9 i, D  P5 m   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {9 _- t8 z7 m; \9 B1 _+ ?
       3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, 0 `" u/ t7 [9 J: H+ Y( w+ ?3 I0 e
       3.577918964453125*^9}}],% C, @! e; g" s8 x4 Y+ }
    - z# }' b, P3 E) i4 }9 Y1 S( P
    Cell[BoxData[7 B* V+ s# T/ u5 _" m" @1 A; I: u
    RowBox[{"97.40909103400237`", " ", 5 l; e6 i8 ~3 }( f
      SuperscriptBox["Delta", "8"], " ",
    2 b) x# H9 C9 t" ^- D  RowBox[{"If", "[",
    8 \! a2 H; W( F7 {" Q) ?   RowBox[{
    + b. f1 ^# Q; `6 o: J) o. ^    RowBox[{
    : {: u# _' j/ a$ ]     RowBox[{"Re", "[",
    2 c, ]& T& e- B0 t$ B      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",", 7 o/ y: m- ]0 S) B1 z6 f+ t
        FractionBox[
    : _% F# Y6 K) ~9 V; O     RowBox[{"1.7724538509055159`", " ", . e4 g( o1 j2 k3 j
          SuperscriptBox["\[ExponentialE]",
    ) x1 T6 ?4 k2 F2 U9 e0 d' ~; }       FractionBox["1.1102230246251565`*^-16", " x; O0 T* m' i. W% }& W
            SuperscriptBox["Delta", "2"]]]}],
    $ V  `7 w& v- q5 W# e     SqrtBox[/ x5 ?: L" T, E, q8 y$ g
          FractionBox["1", $ V9 P9 l: F3 _# C6 S; R
           SuperscriptBox["Delta", "2"]]]], ",", $ M! v8 O3 P3 Z
        RowBox[{"Integrate", "[",
    3 U2 @7 X9 R; Z. s& |$ O8 z     RowBox[{
    ' F2 Z* [/ [* k9 ~      SuperscriptBox["\[ExponentialE]", 1 \, e, N3 S, l) V, E8 Z
           FractionBox[, @' q: \. j* A# h
            RowBox[{"1.1102230246251565`*^-16", "-", 7 ?1 h4 g" g; @" ?, o7 w1 |
             RowBox[{"1.`", " ",
    ' @) S( h1 Q/ T  i# K          SuperscriptBox["x9", "2"]}]}],
    5 G; ^6 i- O- u" K        SuperscriptBox["Delta", "2"]]], ",",
    4 S/ N9 |* A# @3 Q      RowBox[{"{", ! [% ]+ v4 m' @7 O- o; ^
           RowBox[{"x9", ",", 3 q( x# D: t1 _
            RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", % o) z( t. H) a' _& U* G
          RowBox[{"Assumptions", "\[Rule]", " q/ x' D7 e% b
           RowBox[{: O8 J( _  c+ k* t! L( n: s
            RowBox[{"Re", "[", ! I5 J2 C/ p; t# n9 f- W% t" U
             SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
    9 o* j9 {% J4 [& k2 X9 }* J2 n     "]"}]}], "]"}]}]], "Output",
      _6 G0 X- |; E2 c" f CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, / s, q- r3 [: r; k  K- a
      3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
    1 D+ U$ Q6 U0 G) ]! D  3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
    * F% q) A) L( H  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9, ( l7 C2 }4 t0 V3 e
      3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
    0 w2 `( T' O# y' A5 U4 Y  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9, - n- P' x# R% h, c2 ?
      3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
    " ~9 u- F0 m  s- E, S( H}, Open  ]],
    , |2 d- @, I+ l! @4 t! X) u% |
    3 ~, t! x- k7 b" K* hCell[CellGroupData[{
    ! s% M8 y7 ^+ h3 a
    ' H( Z, c" {; t" ~  {" p" ]* u! }+ XCell[BoxData[2 i" y5 o; b- F! g9 M
    RowBox[{"Delta1", "=", . I8 m4 M5 O2 |, i1 o$ e" v# s$ Y
      StyleBox[  u. w$ `. c: H; s$ ~8 A
       RowBox[{"97.40909103400237`", " ", . V( a) [/ K4 b9 K2 ?  o" v
        SuperscriptBox["Delta", "8"], "  ",
    2 w- D6 p9 B( v    FractionBox[
    . ^  }0 r2 S# U5 x5 m5 w     RowBox[{"1.7724538509055159`", " ", - @) W: z  ?; B
          SuperscriptBox["\[ExponentialE]",
    : H& D- y, u" b) x! N       FractionBox["1.1102230246251565`*^-16",
    / v! U& a) F7 l( `6 a        SuperscriptBox["Delta", "2"]]]}], $ ^- R2 a/ H1 x1 _
         SqrtBox[& a( p8 G( ~+ ?, s& N! u
          FractionBox["1",
    ! ^6 {$ z* v0 w2 \: ?, ]       SuperscriptBox["Delta", "2"]]]]}],
    * @  X# Z* ~- ~% M$ w0 }- R   FontWeight->"Plain"]}]], "Input",
    0 B7 p: `  @# E3 ` CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
    7 q* U. T9 T" X8 T) r2 N  @   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9, 2 z3 [9 u# y. s7 t% O$ [; b! `- m
       3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
    # [6 S5 `1 m( x& g' ?2 S" y. ]% |   3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9, 8 P, d1 X1 e% k8 B5 c
       3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
    : w2 |4 r, Z- `+ D2 E   3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
    * R/ P, ]! r7 k/ G/ f
    8 _3 J4 F' i$ o) B, c# ~  OCell[BoxData[
      R6 a1 S( J8 e6 p! d. Y8 k* ^ FractionBox[
    ; T6 s8 _* M' n& B3 V( J  RowBox[{"172.65311851642346`", " ", ' v2 R/ F4 E% z; ?( B
       SuperscriptBox["Delta", "8"], " ",
    5 r5 [: P$ ^# m- d  f: R4 {4 _   SuperscriptBox["\[ExponentialE]", 0 F8 |3 {5 o% x% B6 H
        FractionBox["1.1102230246251565`*^-16", 2 Y! ?1 V( E' Z
         SuperscriptBox["Delta", "2"]]]}],
    ) U$ v8 S* \, E/ W6 Z  SqrtBox[; A+ w) c/ q2 ^) ~( z/ ~( j
       FractionBox["1",
    ! \7 a$ |1 |! H- R8 U/ ?    SuperscriptBox["Delta", "2"]]]]], "Output",: t2 ^) _% T3 o, s. h5 r5 j8 c
    CellChangeTimes->{/ A# V/ D- d6 p
      3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, + b' o1 T) _' `- m# N! |8 H
       3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
      {* b* j% K: P+ n$ r3 d- S7 N   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
    ( l( v- E0 B4 e& p, g/ \5 K% a   3.578012166234375*^9}], Z& ~' H3 H/ s/ v5 B' R4 [( l
    }, Open  ]],9 L+ m. A7 H% {; h: E

    9 B: p, j9 O9 c2 ^  ^. u2 NCell[CellGroupData[{
    - m1 w' I+ }; ^; }2 o( v
    0 \4 L) w+ ]4 x: _% _% _Cell[BoxData[
    ; P/ S0 |8 K' w+ x* y* i' F! w4 {2 u RowBox[{"DeltaX", "=",   p  ^% r/ ~* z
      RowBox[{"FindRoot", "[", 6 e) Q6 T/ h- B7 M3 c5 Q2 K$ R1 b
       RowBox[{
    . J6 p7 u& ?* K2 A    RowBox[{"Delta1", "\[Equal]", "1"}], ",",
    ) s6 u8 u* G2 d    RowBox[{"{", : |% M* S+ [/ G
         RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
    1 E$ Y: P+ T( @4 z/ c6 G" {* v' I' [ CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {/ }+ B6 V  i2 V
       3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
    4 F6 T1 o/ D% v  c/ f   3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
    2 E4 p  i* F' l$ I; R: @5 Z# Y   3.57791921584375*^9}}],
    + B2 X6 z& L7 ]) |5 l
    . a2 A& G" N' G& P' \+ JCell[BoxData[8 }9 `( b5 T" v6 X4 [$ j
    RowBox[{"{", $ }+ @8 B1 R! p
      RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",7 I0 n4 F1 z4 D5 k; h/ k
    CellChangeTimes->{/ h7 R; m0 ?# ^8 x- w
      3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    & ?. e- a- _" @1 X   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
    9 p  V- p$ ?7 [) n   3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
    * J0 V% b/ N* E1 e, v9 @) o   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9, " B7 j! \$ p6 d$ e
       3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
    + B$ d; L2 }# b" b. z: n& o  j1 O$ Y   3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, 1 M0 a3 ^" s- x2 O2 A4 v; _: R
       3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
    ; {' m* o7 |# j( [% D   3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,   X, n! O7 I5 w
       3.57796070150625*^9, 3.578012167703125*^9}]
    ; ], @6 _5 S2 Y5 [  k9 q}, Open  ]],2 Q% n: z) k: d* ~
      }1 {  ~$ r5 z- k3 S8 i2 n8 L! B
    Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\& b" }% {& K- N4 T* S- X7 U
    \:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
    : e% z8 o2 k& v" X& b+ Z6 f( E CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
      U* m, i, w2 Q+ \, O) p  3.577960705312657*^9, 3.577960707621461*^9}}],
    9 C. f% F  {# L7 z% H7 U
    6 |# P+ o, r1 k% Y- U3 jCell[CellGroupData[{
    / {  x1 ?- C8 ~
    ) i5 R$ w! b9 ?& _Cell[BoxData[
    ( ]) @' `9 Z9 D2 @* C/ ] RowBox[{"C1", "=", "Ca"}]], "Input",
    ; H3 S9 Z3 L) b$ |  J/ \" r CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}]," v: H; ]3 ~% V5 r
    $ R2 {. k6 ~2 {) O8 I( r' m
    Cell[BoxData[
    1 }. Q' z5 @! }, D7 p' ?6 \, v RowBox[{"{", 6 i) I+ r% J( z" x3 F
      RowBox[{
    + R" P. m+ ^) Z1 x2 t2 D1 x  "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", 6 q. z' f2 S  R3 R& a9 Y
       "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
    $ G. k8 X- c1 c/ T; a- }   "0.`"}], "}"}]], "Output",& K2 L& x5 N2 M3 A' O
    CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,
    0 Q9 w$ z1 \5 g  V! {! Q9 \  3.577960710273465*^9, 3.5780121855*^9}]
    , l3 ]" x, r( B}, Open  ]],' L; u) F* c4 g  |5 w  E% I' M) t( @7 [
    + D1 a5 L8 _  U6 q$ _6 }9 h
    Cell[CellGroupData[{; h, T1 w% d5 y! v% Y" i* B- g' |
    % G) D) J, ]: T1 W
    Cell[BoxData[# T! Q. r/ W# R' J7 k- v, z
    RowBox[{"u1", "=",
    4 c7 x4 h- N1 H* X/ C* s$ ?$ d& U! X  RowBox[{
    / B. Y& ^' [' Q  `+ ?" o5 ^   RowBox[{"Exp", "[", % @3 H& F& k: s( }. l1 g, O
        RowBox[{
      Q. h, _  V5 s% f: q) `     RowBox[{, c% v; v+ Z  }( ~+ ~
          RowBox[{"-", 2 h2 K6 j$ x" R
           RowBox[{
    ! b5 o& ^  ^+ S+ R9 H4 u        RowBox[{"(",
    $ s+ w# f- A4 ^$ j$ x         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    8 [/ g. h  \4 @" c% |& b        RowBox[{"(",   E$ m% \8 k1 Q. x! y) G
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],1 g3 E" k& W: `. U9 S& ?: a  I
         "]"}], "/.", "DeltaX"}]}]], "Input",% g& m9 U6 ~% c
    CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {" x4 ^! d. }$ G4 L
       3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {3 Z5 ]% `9 q# `* U0 Q& o8 ?+ A
       3.577919193484375*^9, 3.5779192326875*^9}}],
    : C' o* G2 f7 v; P1 P8 a( F4 J
    * x6 L) H" F' A( X+ X; D( dCell[BoxData[0 v1 C8 q! I, ?/ v& C, v$ M6 B
    SuperscriptBox["\[ExponentialE]", - a, i' {4 N1 @* a  h  }5 t
      RowBox[{"3.141592653589793`", " ", 1 N1 F6 Q0 U4 z, J6 }' p" Q
       RowBox[{"(",
    & Z& E0 j) n# D4 C+ \! |    RowBox[{
    0 Y% L# t% D1 b3 U     RowBox[{"-",
    , X' V+ k8 ?; k3 S- W9 ^/ n      SuperscriptBox[
    " Q( z) Y) a: D- o0 G( g0 n       RowBox[{"(", & X: T& V& [- E( L
            RowBox[{. i/ i$ e8 j. ~6 F
             RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", " a3 j4 s: N9 X% s$ H
         SuperscriptBox[, t! D4 g$ }/ @. E# Z# o
          RowBox[{"(", / V$ _0 e: H7 Z+ K- C# C5 ?% u
           RowBox[{: D3 x0 A5 `" y) Z# O. N) w3 k5 J2 d
            RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", 8 N8 X3 f  F9 Q; o& i1 v2 r% W
         SuperscriptBox[% M6 F0 b0 A( N' [
          RowBox[{"(",
    6 A6 h- \5 |5 T: ]: C3 a       RowBox[{2 I5 ]" H, K6 l+ j' H9 L
            RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", % N- l. z9 F" D: V
         SuperscriptBox[# _/ |, X0 {+ v8 T" I; P1 g* D/ ?
          RowBox[{"(", & O0 Q1 m0 D% S& j6 H8 P. p% j
           RowBox[{! n6 u: i: X& f* c5 f
            RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
    7 k1 o6 W8 n5 R7 n3 Q     SuperscriptBox[+ g2 e5 F. V. O# }3 f- h$ `
          RowBox[{"(",
    3 S/ m4 P5 V8 W       RowBox[{
    # D/ t5 W, N" ?        RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", 5 ]' l: ?' k2 y: A) ~7 M; x7 ?- g
         SuperscriptBox[
    0 Q1 z& J0 z& h; ?      RowBox[{"(",
    : }3 d3 ^. }. s9 ^2 Q( R# v       RowBox[{
    6 C3 g' |, O6 a" Q" U+ F# s8 m        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
    1 _% [0 ]+ Q3 g& @0 ]+ k7 i" z3 e5 i     SuperscriptBox[% A) e, i( b# x
          RowBox[{"(", 7 R. p7 c' |# ]
           RowBox[{2 {4 b7 ?3 }8 P0 w1 I) B: E
            RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    2 x5 l- h! y/ @2 @; K! o     SuperscriptBox[
    $ j8 F  ?+ N  D/ ]      RowBox[{"(",
    ; q! N) F. y$ X2 ^: o       RowBox[{
    # n2 |& Z; |% }3 o; k0 w& l7 V& E        RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    9 E! x2 O3 e! G+ k$ w& i     SuperscriptBox[% N6 E3 f4 B, g1 W
          RowBox[{"(", 6 ?: x# y6 G# c4 m2 P. U& [% |
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    0 O8 ^2 d, a$ k1 N! P    ")"}]}]]], "Output",* A* Q, N" ^' ?$ _. R
    CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9, 3 o/ D. t7 s1 t. L
      3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9, 5 H% o" @2 l! B! D- j
      3.578012187078125*^9}]
    / |* t, D: w7 t}, Open  ]],; z3 M; K5 ~# k' H2 U& f
    6 }5 F8 K( P' j+ T; I
    Cell[CellGroupData[{% C3 Q2 _* Z3 d  O# [  C

      T5 l, s3 R" E8 V9 e  C, D9 |Cell[BoxData[
    " w( ^6 k5 ~1 N* H, S RowBox[{"C2", "=", "Ca"}]], "Input",4 U* Z/ s6 R1 W! Y  Y, }9 Z
    CellChangeTimes->{3.57792047321875*^9}],0 R& C' ~) C* w" v  U$ t) o

    ! Y  L1 A9 W6 ~7 j# uCell[BoxData[$ a0 W2 y# t0 Y- j, ~5 @2 i0 W
    RowBox[{"{", * H: W: o7 i+ \6 o# ~. \
      RowBox[{
      {: S0 a- n/ c# M2 r; ?  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
      u  a: y3 [5 L, n" o* E   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], * Z4 _/ [5 ^/ ~$ S; |2 E
      "}"}]], "Output",
    , ?- C5 t: U# z+ f CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9, 8 k# R5 y' ?) V$ R( i
      3.5779607401163173`*^9, 3.578012204671875*^9}]
    : N  x) R# M. K$ z2 g6 E! _}, Open  ]],
    + [3 s$ ^# }+ V
    0 C  Z0 ]! m  l, l, eCell[CellGroupData[{0 Q* L, r( T% x+ h. U& P$ D1 r3 U
    ' j0 [! H9 M4 z+ Q4 O
    Cell[BoxData[6 I- u# W8 t6 [5 i- W
    RowBox[{"u2", "=", 2 K7 R9 u. P; B9 L( u
      RowBox[{
      p& g/ J& U1 I0 _' J  ]( s: r6 T# o   RowBox[{"Exp", "[",
    / M% ^/ O" m& e* a    RowBox[{
      O) Q0 g$ i  }3 S! h( V     RowBox[{
    : w3 G" K) e% n) z* {: O2 `; Y: Z* h7 N      RowBox[{"-",   H% Z( H" J$ X% o
           RowBox[{$ v. l7 r' y. U7 g5 j/ b+ K
            RowBox[{"(", , b) g( |" O- z( {# ]: c
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    # T* B) W7 p4 t. R        RowBox[{"(", , G0 e7 j4 \; a$ ?3 O) J" r
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    0 }, L5 ^* U) a5 F: X7 g2 e  X     "]"}], "/.", "DeltaX"}]}]], "Input",
    0 k* p. s2 g! s; g% G9 G" m% N CellChangeTimes->{3.577920484109375*^9}],) R' s1 ?' D0 P0 v' }

      p5 }( r+ i& H, B& k0 XCell[BoxData[
    8 ~" \2 n% `0 g SuperscriptBox["\[ExponentialE]", ! C1 Q4 |5 _' V* [$ i8 s$ h
      RowBox[{"3.141592653589793`", " ", * U3 l2 t7 k2 C) z
       RowBox[{"(", & c+ f2 L  {- |; e; x% a
        RowBox[{! e3 T! E) n# @
         RowBox[{"-",
    7 n+ V/ p8 i! m      SuperscriptBox[
    ! K3 o0 R8 Y  a+ y' C, B- }* T% P       RowBox[{"(", " `. L1 d" b/ D) f. P
            RowBox[{2 M& V5 j  D/ Y; q5 g2 l. w
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    * e  w0 L1 r- H7 @     SuperscriptBox[
    2 W: }" j; q4 j/ I      RowBox[{"(",
    9 r/ t; R0 C! V& t9 {  W       RowBox[{. a4 F9 P: W8 ]% p" @" t4 Y
            RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-", ) M* N3 ]( c& H2 R
         SuperscriptBox[( q0 P. b/ C' e' D0 T
          RowBox[{"(",
    2 c; N! ]4 t0 H7 ^% Y4 w* U2 [1 f3 N       RowBox[{
    * a4 [+ ]% F+ d8 G. K        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", $ n( R1 b3 x& X
         SuperscriptBox[0 O! o1 a4 {% H
          RowBox[{"(",
      ^) o% _) w. N- L# l( U3 I       RowBox[{
    . W4 `  c5 F; K6 Z* d) E+ Y        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
    ) r1 `: l; B; a: o% g     SuperscriptBox[
    1 i& u* t$ V: ]3 v      RowBox[{"(",
    7 j8 ?7 G+ ^$ N7 J# F       RowBox[{7 }6 N( M, O9 \; N" O1 T) R
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", 1 ~7 _+ h1 L0 ^) v8 w6 h* T
         SuperscriptBox[
    9 K, N% B' x) Z/ J+ Y      RowBox[{"(",
    5 T$ J5 H7 J. v; p6 p" _* d       RowBox[{
    ! x$ Q! Q: y2 B% W; e. k$ ]        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", & z3 ^5 j( ~! v0 o, n' B
         SuperscriptBox[
    & O* W2 S! H: t6 o+ R- E      RowBox[{"(",
    * |2 I: |1 |. K7 Z7 S- G/ h       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ' a, U4 j, K7 q1 ]1 N& P3 M
         SuperscriptBox[1 t5 \/ {5 w, y9 n# r, I
          RowBox[{"(",
    0 a" R5 j& o; o7 ?$ p0 T" z7 f       RowBox[{3 {, P7 L5 ~$ {( z. v: }  j/ m: B
            RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
    0 r, \6 l( z, c; c" v, y. U     SuperscriptBox[$ Y& t. F% F" F; C% O0 Y0 O8 N
          RowBox[{"(",
    + K7 Z& P% I  w# ]! E       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    5 a6 J5 e, x( U0 G# U' w% w0 q    ")"}]}]]], "Output",, D# ]& x: V+ R2 Q2 s7 ?
    CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
    $ |5 k2 ?$ I) t  P: [  3.5779607413955193`*^9, 3.578012205484375*^9}]. m3 _# Q2 e: L
    }, Open  ]],
    0 i& m* E0 {3 P& ~. f
    / X# M5 s. u( k" v! X. r6 b: \& dCell[CellGroupData[{
    ' R4 r) @: f+ G- j" c1 j1 k
    . B, P3 i+ \7 s9 ]. N) I9 n6 D  xCell[BoxData[* p) b. s* X- ^& ^$ l6 w
    RowBox[{"C3", "=", "Ca"}]], "Input",) R; f( r( P+ X, I  |
    CellChangeTimes->{3.57792064125*^9}],& q7 R5 h5 s/ S9 ~: V
    1 j& m$ u1 R$ z* E4 i, C7 t$ I( d
    Cell[BoxData[
    1 R; ]" S' G8 @" z: }; D RowBox[{"{",
    $ F3 c! _% l2 c! Z- H  RowBox[{; Z9 M( A5 @* c' W3 C
      "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",   g' r) E4 x* `+ Q1 N; p, z
       "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
    2 N! A- ~! i5 o9 F6 a  "}"}]], "Output",0 O( m* i' C4 o0 q  O: e4 {" E3 O7 N2 P
    CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
    . P* q; s( h/ [  3.5779607642027593`*^9, 3.5780122103125*^9}]! T- ]( U8 v4 `" a" M/ L
    }, Open  ]],
    # {8 X# j3 c. y: h! u# t- P# j: t& j% E3 d3 C
    Cell[CellGroupData[{
    ) {5 ^9 W5 ]5 Q( ^: S2 i: X. V6 S# l; x/ m
    Cell[BoxData[
    % i2 Y) H' j% m9 C6 x5 d RowBox[{"u3", "=", * k8 I% @, G. L! C8 m$ |3 x
      RowBox[{
    ; {& C: ^0 i$ C) Z   RowBox[{"Exp", "[",
    6 `: m4 ?, t- H' B+ e    RowBox[{& s8 R/ Z& f* i/ ~: ?% V5 c
         RowBox[{
    2 Q9 z6 [3 Z0 v2 m$ d3 N$ d      RowBox[{"-", 7 }# {3 H! \! h3 W8 I/ w! M
           RowBox[{, y% O* A* b3 d- H- i
            RowBox[{"(",
    + |! d4 ^' Z5 ]5 v7 x         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 3 e: p# v! x$ f
            RowBox[{"(", $ `/ M2 \5 F: P: u) j+ n0 Q. |
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    6 K- c! b# o2 h0 D% ]# ]     "]"}], "/.", "DeltaX"}]}]], "Input",- H0 Q% y' y1 l( R0 J4 y8 t
    CellChangeTimes->{3.57792064921875*^9}],! P7 t# [. N7 T2 E* q% \1 v
      F* i  n9 b# ~$ N* N' t4 l
    Cell[BoxData[
    * `( y. {) E1 s( x  b7 ~+ z7 Q SuperscriptBox["\[ExponentialE]",
    9 m) p2 y. B2 p+ F3 L7 E! p' [  RowBox[{"3.141592653589793`", " ",
    1 G: m6 h5 d* ?8 A5 c   RowBox[{"(", ; r8 }3 Z) s: S7 L7 }
        RowBox[{
    + {' b' n+ p; e, L. o# J. Q     RowBox[{"-",
    - ^( @9 Z# R. V2 {; b      SuperscriptBox[
    # G- Y% {6 e! J. g, K. }       RowBox[{"(", 0 b7 Z8 N& q) R: d
            RowBox[{
    2 A$ z/ P% s  _         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ; R- Q# b5 Z: I  ~& j9 E     SuperscriptBox[( j6 P5 C  ^5 p" D4 D3 J$ C
          RowBox[{"(", 8 M5 z0 b# S/ N5 ^1 p# C- U
           RowBox[{
    7 o  y/ X* ?7 w- B        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-", 8 m, v& Z. R% Y- o! z
         SuperscriptBox[
    , ~: m3 `4 o+ ]; S% q, J0 q      RowBox[{"(", ' Z/ a8 ?( y9 C5 Z1 A
           RowBox[{0 q0 [% h; \/ b( n6 F! L
            RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", - r+ ~) Y3 k$ T! b
         SuperscriptBox[3 o9 x+ q8 v* s
          RowBox[{"(", 9 a+ d9 P+ }1 M$ r. Y8 j
           RowBox[{0 n6 u2 C' I3 E1 s! N
            RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", & G1 u0 f  J0 m$ _$ h
         SuperscriptBox[
    9 [9 r' S8 e7 C      RowBox[{"(", 2 C5 |; O; m( k
           RowBox[{0 H( a* j+ q- U& \* B7 b0 S% n
            RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
    0 ]/ v  B  e3 Q5 m) \     SuperscriptBox[0 M; H1 h# X, r/ u) o
          RowBox[{"(",
    ( @6 u( _6 z2 C/ o  r7 v       RowBox[{
    . ]( U. G5 {+ G9 f8 n6 z3 h        RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
    # _( Z% d! A" R; o) {     SuperscriptBox[
    , {; ]! h+ r% r/ ~! e4 X  D3 Q/ p      RowBox[{"(",
    ) i9 n6 {& k( g+ `# h( A0 K       RowBox[{! _( ~5 z1 q. g! i- {4 D$ c
            RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
    / Q- T) P+ b. c  W" {  V4 }* Y     SuperscriptBox[
    6 ^% S. J" B( r3 f! B# Q3 e      RowBox[{"(", * r* Q6 E! B' C+ Q) \4 g% j) F% v
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    * W, o* n6 _' a2 ~     SuperscriptBox[
    , z2 h: i+ E$ v" \, n) A      RowBox[{"(", 4 ]  `( r; ^  s& C% Z! z+ h& [4 O7 U
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    & o" m* M% j% H5 a! I    ")"}]}]]], "Output",9 S. _/ A& G3 Y2 P& |4 I
    CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9, ; d: V) l3 f: v6 y% o2 n" J
      3.5779607654819613`*^9, 3.578012211515625*^9}]
    ! ~- U& s* |6 Y# A: v6 J( Q2 C# P" a}, Open  ]],: v! |$ m1 y! d& Y
    " Z1 J3 s8 O) D$ J* d5 A1 J! M
    Cell[CellGroupData[{* I6 u+ O) J2 ~7 z9 r  F# Y

    & C7 U8 b/ P: ?  e( OCell[BoxData[  i7 J2 }  u& }  r1 O+ M& e, P
    RowBox[{"C4", "=", "Ca"}]], "Input",
    1 e- Z, c' {* s CellChangeTimes->{3.5779207559375*^9}],
    $ n. S0 @5 ]/ f6 ~0 S5 W  f8 I+ w" j6 P! F9 I7 W
    Cell[BoxData[
    5 o7 X* K) a6 d6 X0 H RowBox[{"{", 0 k2 D# Z: F; {. a! M, {% m4 W
      RowBox[{- n" |. p8 s' k
      "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", . s! o3 ~8 m+ w% G# ^
       "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], 1 B' D' K7 h5 G. V- N5 Z
      "}"}]], "Output",
    1 l6 y$ C* A/ z+ Q1 D! t0 k! P CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9, ! A+ M' x8 \  i& b) W
      3.5779607861363974`*^9, 3.578012216171875*^9}]
    : z* g5 W$ |! a5 A" r) V8 S* J}, Open  ]],2 f8 n& R% m2 J8 E) R! m* r
    5 j9 K$ C# r5 l3 ~$ W: ^' m
    Cell[CellGroupData[{
    7 ?1 G- Q/ e: Q7 d6 N7 b3 F2 q
    - S6 [3 N5 ~5 B' c# G$ H4 M) z/ tCell[BoxData[
    ( a# ~8 D7 h0 p1 n RowBox[{"u4", "=",
      H$ m7 j. _/ ?' \+ h( i  RowBox[{
    * c! D; s. M( j- t9 m9 V   RowBox[{"Exp", "[",
    7 s" V* n, B3 t  n% K  S/ `    RowBox[{  P/ X8 ?$ \* ~. T0 r' L9 d' T
         RowBox[{% ~% J5 O9 s- j2 K8 r' F* k
          RowBox[{"-",
    3 p7 L8 g: x5 t0 m  L( J       RowBox[{0 Y/ [( b/ {4 ^0 ?  a
            RowBox[{"(",
    : R" B$ {+ \1 S( J$ ?5 g         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", + \" Q, E+ k% N2 Z; }+ h) [
            RowBox[{"(", ( l5 G& \7 W' K) x  `
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],/ J9 a2 E8 e3 t1 k% z. D5 g
         "]"}], "/.", "DeltaX"}]}]], "Input",
    6 `- T% c8 I% M) H! ~8 C+ ]+ u CellChangeTimes->{3.57792076325*^9}],' }+ y; z' q+ _6 b  K: L

    1 X) S0 d& [9 ~+ k& }Cell[BoxData[
    8 E5 }: T! K$ w5 w  o+ s SuperscriptBox["\[ExponentialE]", & P; _. c( d9 C" X4 e' ?) y' c0 H
      RowBox[{"3.141592653589793`", " ", ' S1 j$ e+ m5 J
       RowBox[{"(",
    ) T/ d, J: l: x    RowBox[{
    . o- |; R1 c" H- D     RowBox[{"-", 2 Z+ M9 t: K6 t1 m5 h# T
          SuperscriptBox[
    / O- n! H# u, H& h  L; _7 d  k       RowBox[{"(",
    4 {( L; R/ A1 I. S8 }        RowBox[{% M0 g8 [0 N. Y0 x1 _% q& }$ X/ V
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", ! j8 k& F- y; q9 j* K; w" b( |
         SuperscriptBox[
    + q: _5 n0 M$ v1 s* a9 y( N      RowBox[{"(", 5 B& H' [* F1 x8 w
           RowBox[{' |8 O- s- Q7 C; S7 _
            RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-", 5 ?4 H0 T( x/ p
         SuperscriptBox[
      ^9 f& t+ C  T" H7 M, R      RowBox[{"(",
    " _* C/ W& s! y2 j% P6 u       RowBox[{  t0 f0 n1 M& {# g, Y2 O) a
            RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    / v. i+ X0 z! |     SuperscriptBox[% e# O( R; W6 `
          RowBox[{"(",
    ( @: i$ a; @0 u( b: T2 ?+ U       RowBox[{
    + j4 g! e! V" D        RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
    % F5 X. v9 e4 N: v3 |) b0 A( O1 i     SuperscriptBox[
    # q4 I; _) t* H: S0 U0 S5 D1 M9 Y      RowBox[{"(", ! t$ Q; ~% D) f% t
           RowBox[{, _% ~: {$ L* C. z2 A2 F
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    8 x! p" h7 A( l     SuperscriptBox[
    6 B# _! v  W! a0 ?; H      RowBox[{"(",
    1 H1 T/ P7 N' }- O$ S# l2 U       RowBox[{: v. o% W( u1 Z# C
            RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
    + L( i8 u/ q3 `$ P7 g& v# Y5 L+ P     SuperscriptBox[
    + X% ]4 i$ z3 r      RowBox[{"(", ' [4 q$ w; }( R  H# f9 r
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", : Q) T4 l, \8 i: X
         SuperscriptBox[! [2 E8 D; Z, W: K' a' M8 U# c
          RowBox[{"(",
    $ ]! O1 N- }6 x# P8 b- ^       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    5 a6 ?! ^% |2 F( v+ d- D     SuperscriptBox[0 d$ [6 k9 o, q: L( Q9 q# Z
          RowBox[{"(", + N# D# v% v$ |1 Y% x  v0 c& i
           RowBox[{
    * u, b$ \" F/ J5 m% V# {        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], $ h# K" \& }; G
        ")"}]}]]], "Output",
    # }3 G2 U: @, k CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9, 0 g- e; i% T7 B  f# E6 g  |6 A
      3.5779607873531995`*^9, 3.5780122169375*^9}]
    8 e- L; v2 u) m5 o; X( J}, Open  ]],
    1 y- m+ e4 z/ R( j# h1 l+ ^" ~7 ^4 Q; X3 i+ I5 @" K$ F8 L6 q) J7 K
    Cell[CellGroupData[{
    2 t  w8 s3 [" I4 B" I- U
    8 w4 f8 Q+ k3 z- J" VCell[BoxData[
    ! H8 i3 X/ N2 T/ ?7 W6 Y: ~ RowBox[{"C5", "=", "Ca"}]], "Input",8 p6 @; x2 C, ?( ^$ h8 X& F
    CellChangeTimes->{3.577920860671875*^9}],
    6 s0 h4 J' E- G/ F9 _
    - ~$ W" L  y8 t9 _Cell[BoxData[
    % O; a( V3 x  W# Y& g RowBox[{"{",
    ' P! T' m4 B2 g- T1 A  [$ |  RowBox[{6 m5 f  f; ^4 w( p, ^# x$ L  ~, o
      "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",", , ?/ ]4 r4 D1 i2 ?6 d
       "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
    8 b$ `$ h1 O: R" e  "}"}]], "Output",
    $ Y; Z5 P4 V- ~7 V, n& g; p CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
    1 a: W) \7 |6 P) Q* ]9 Y2 O* R: y  3.5779608137328453`*^9, 3.5780122209375*^9}]
    * d7 E8 S0 k+ t# W  b# K8 v: }2 Y" a}, Open  ]],
    2 Z1 {' L/ a* T2 A0 C( \+ a! n. Y$ S3 d) T( X6 Z
    Cell[CellGroupData[{
    % E' K7 C" n8 \$ ^* f
    + c8 P! Z7 z$ f% n  N4 WCell[BoxData[
    ' v  J, |- M( X" ` RowBox[{"u5", "=",
    , N2 c# V- Y$ K& i* |9 D  RowBox[{
    8 o8 m: |$ X  N   RowBox[{"Exp", "[",
    4 A/ a" F- F9 v    RowBox[{4 w0 ]9 N$ [) ?! A/ t1 ^
         RowBox[{
    ( @7 d7 i$ }9 K) u. ~+ z7 b' L      RowBox[{"-", - O' U; x1 E$ ]" m& e0 _
           RowBox[{
    6 S6 b* o( l8 @* A        RowBox[{"(",
    ; R0 s( E, @: R( r! ^$ a+ e: {         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", # d' S+ J7 i1 M$ p
            RowBox[{"(",
    9 L- N+ D% i2 T( |         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    5 r! B8 T7 H$ i) M/ {! e* c     "]"}], "/.", "DeltaX"}]}]], "Input",0 J: X# q4 A1 M9 e) j" P1 |( A/ k
    CellChangeTimes->{3.577920869375*^9}],
    ) W0 Q5 S% ~8 j9 ?' R1 h+ Q+ q, v7 n! N/ ]8 |& m; ^
    Cell[BoxData[
    0 b. h! W8 Q2 {: Z SuperscriptBox["\[ExponentialE]",
    6 s! N3 ?7 P2 r" Q8 V4 I  RowBox[{"3.141592653589793`", " ", 3 [( h5 b8 t. ^+ j; v0 L. Q3 C
       RowBox[{"(",
    + F6 s0 o. O# }2 h8 r& w    RowBox[{: X9 {/ a0 [4 p
         RowBox[{"-", : ~- s6 q* M+ w. y
          SuperscriptBox[7 F9 r4 \1 s9 `) e% L) ]; p
           RowBox[{"(", 5 w/ Z" |6 y& c! v
            RowBox[{
    ( j& e# ~" b" u: R$ E2 ]5 P) ?' @         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    4 q4 H$ p# W. r9 r     SuperscriptBox[6 M3 W* q* m* A) p: [
          RowBox[{"(",
    + h% F+ C# ?! B       RowBox[{
    % i2 y# Q# Z4 U5 r/ h& m        RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-", . |* m# U- R" B5 N: R4 V( S4 v
         SuperscriptBox[  M$ A9 D0 J9 U5 I
          RowBox[{"(",
    4 ^6 r* Q3 {; T/ h       RowBox[{; g8 s  m! x8 l- x5 Z+ x
            RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
    ) K& P& B) g; [! K7 N     SuperscriptBox[0 w* {; ?6 h  U+ w3 G: B( A, H
          RowBox[{"(", * u# o5 p% c5 e5 K1 O# U
           RowBox[{
    / e) U6 V1 i/ k8 v2 Z$ t        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", 5 |+ \$ G0 s: [
         SuperscriptBox[# P# E" t3 S5 g* e$ n2 U7 x
          RowBox[{"(",
    4 ?- \# S& _) B0 Z8 F& [: h       RowBox[{
    ) e) |* J/ E' O8 p! z) {        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-", 9 F/ D( }5 Z0 |- V  r1 Y$ S
         SuperscriptBox[
    ( Z" h4 l) r1 j7 Y3 M7 |1 W      RowBox[{"(",
    " O  z( O2 \1 C       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", . _: g, @. x, ?, T, w* m- N& _4 y5 T, s
         SuperscriptBox[
    3 p, l; y2 N4 u9 u      RowBox[{"(",
    ' c& K5 ]  u  w0 f       RowBox[{
    $ ^  ~, `! L4 r0 \$ G5 p        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", ) l) G# x0 c" \+ E% E
         SuperscriptBox[
    . K3 Y9 ~4 R* o9 D# k      RowBox[{"(", 9 h/ s5 X& s7 p3 m4 g6 w
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", / c, _7 I7 x: ^+ h' p2 n
         SuperscriptBox[5 r9 _- e. D. P
          RowBox[{"(",
    9 g3 _* e) z" M/ i: T( V7 @' m+ `       RowBox[{
      e% d' ]) a4 w1 e: N        RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
    5 ^+ R; x, |! t' u! L  e    ")"}]}]]], "Output",
    4 U- c: {$ [& h3 C0 A CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
    - \7 y5 S9 }* l  3.577960815043248*^9, 3.578012221953125*^9}]
    8 [* B$ a: w; f: U}, Open  ]],% D8 J- o% F& a" a

    $ Y- y' Y6 w6 M8 vCell[CellGroupData[{3 C. a* t$ K# i- t) h4 A- Q

    $ G1 j6 U( ]3 `' j0 l, g& KCell[BoxData[
    - V: }/ }; G  L& M$ p; q RowBox[{"C6", "=", "Ca"}]], "Input",
    $ |% s* u4 r; e) P' K3 h/ j CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
    - r3 q+ J, Y6 V& L, A5 Y/ m/ {! N  ?* C$ R) U2 }
    Cell[BoxData[
    8 Q7 ?. |, h3 U5 h- [ RowBox[{"{", 6 p/ x3 Z3 g6 p' w0 X" L
      RowBox[{/ @/ F# S! B9 o3 @9 z
      "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
    8 Z2 f1 O/ D: a, e  d. ~3 [1 Y   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
      m7 G& A/ F6 ]4 g) z+ y: W% G   "0.494866`"}], "}"}]], "Output",
    . m1 {$ B0 Y( ^. A CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,
    0 [; G: y/ q3 B+ e, N   3.5779608373044868`*^9, 3.578012227359375*^9}]7 r# w& ?" @$ j5 A8 ]) x
    }, Open  ]],
    ' Y" f+ w# `: v/ ]+ s( x. Y
    , h. \: k3 M9 U" ]1 m! OCell[CellGroupData[{+ T( Z' R: l) A, U" L3 Z

    " i! b5 e) @2 d2 ?; W! j- D; yCell[BoxData[: p( d: x0 i- d0 K) Z, m! M
    RowBox[{"u6", "=",
    4 ~! T) c& \6 p  RowBox[{
    " H8 ?8 n& n( N+ D9 z0 f   RowBox[{"Exp", "[",
    1 C. l- Z. ^. Z4 I* E) M: _    RowBox[{( ]+ ]! B- X% J! ?$ [9 J7 E
         RowBox[{$ Q5 u4 t$ c0 u$ s- K
          RowBox[{"-", % x% L% g; n# p7 q7 k
           RowBox[{
    0 `. x" ?: M4 B9 J, x        RowBox[{"(", 5 z0 N1 F+ V8 K2 F. Z  {8 M
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    . E& F1 _2 L: K$ F8 F        RowBox[{"(", / i- f. C( |! t# A; J& Q- s' {  Q
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    0 n* L8 {3 j0 T% k' H1 a% i( ~     "]"}], "/.", "DeltaX"}]}]], "Input",
    $ H) G! G1 d0 | CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
    9 ~+ k3 n- Z7 w7 I0 Y/ w+ u, N5 K5 W5 o8 i9 a
    Cell[BoxData[3 y9 p) f; v  `' q
    SuperscriptBox["\[ExponentialE]",
    $ U7 o4 @$ Z# L' k4 q5 s6 L% J# F  RowBox[{"3.141592653589793`", " ",
    . ~+ h% G( y' h+ y2 P5 v( ^   RowBox[{"(", $ `: w: M1 u9 b6 C
        RowBox[{
    ( B* s4 f7 x- x( F     RowBox[{"-",
      E/ x2 O+ I& J+ U  ~      SuperscriptBox[8 n4 P/ ~. X! B) s6 {, [
           RowBox[{"(", ' }  f1 `0 N! r7 v
            RowBox[{& W# U7 X! y: I9 j" O
             RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ) \0 p  N! {% Z5 J1 u     SuperscriptBox[. }. I5 h1 O# i
          RowBox[{"(",
    6 }. q, K# R5 M$ k0 b       RowBox[{( A; G0 C1 W! K2 E* \
            RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", , S" l3 t" b) p' D2 C3 h) T
         SuperscriptBox[
    7 u3 L) e, j0 S) m: d0 Y      RowBox[{"(", 1 D8 [5 w" P8 W" J6 ^
           RowBox[{
    $ e2 p4 Z4 R' S$ a3 I' f  W' a        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
    - b6 j$ G  M* l  z  p  w- ~     SuperscriptBox[
    3 b4 ~8 ~7 T8 b- D/ i' H$ z) {2 Y8 |      RowBox[{"(", # a$ U& H8 b+ i( l  S# h
           RowBox[{" |8 c- O& @8 }7 i2 v0 `4 N
            RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
    ( o& j3 G7 G& B# A/ g# s9 Q     SuperscriptBox[% r8 q4 f* ^  W, n8 h& B, l  c4 c
          RowBox[{"(",
    & ?) X% |- l( O' F% C/ @7 N1 L! o' L       RowBox[{2 Z; |9 L2 h% u! v; x0 P
            RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", ' @& E, u) N$ {" ?
         SuperscriptBox[
    4 t$ @0 L0 J; m( ]3 H+ h/ V$ V) L7 K      RowBox[{"(",
    6 ~9 p; \! g' l0 h& F       RowBox[{
    ) P% B# Z9 i" S4 o3 [' c        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
    . d, M+ ?- t& a/ g5 ]9 E1 x' t     SuperscriptBox[
    ' O& `$ u$ t8 @( [$ M      RowBox[{"(", ; d) g, M2 m0 p5 u+ ^2 c" A5 c/ d
           RowBox[{
    % s  V) l& C# b: z        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    + L$ x0 k! M2 Y2 m     SuperscriptBox[- O* r8 S6 e6 C8 I; i" _8 R: S& b
          RowBox[{"(",
    , n1 v1 ?; |$ r$ ~1 ~0 P/ Y% F0 e       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", , f7 }. i! t1 N1 ?
         SuperscriptBox[" h& ~3 t3 D% L$ _7 i
          RowBox[{"(", ; V/ G# V& D* w! f
           RowBox[{
    ! K4 `& x3 y" q3 e3 G        RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], - j! K7 A! Q. n6 p2 {4 p6 m3 V
        ")"}]}]]], "Output",5 }9 y* P7 A- I  e+ j' }
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, ) P6 r6 Y( ?# A) S3 f5 B7 ^
      3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
    , Q" b2 c9 v8 N- s- Q}, Open  ]],: x' D* ]+ V7 P$ s4 R' X
    : Z( d1 b8 y" Y& f( l+ {8 I$ x- e
    Cell[CellGroupData[{4 S0 g& r8 S" C
    ( a, ^) j) K, Q* H& b2 n
    Cell[BoxData[
    ; |7 d' S& [& G4 }8 x2 h) H RowBox[{"C7", "=", "Ca"}]], "Input",% U5 X2 A7 D* a
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    : t) k4 Y& f$ Z" N  3.577921316125*^9}],4 h, V8 x, y% l. M) g

    ; ?* ]! X' `, D$ hCell[BoxData[
    " c6 m$ W9 Q' p2 f6 w: [ RowBox[{"{",
    1 _( k0 k) v9 ?1 F5 h$ |% G  RowBox[{
    2 Q: u* M2 {( C  \* D3 L  "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
    3 n4 q2 C+ @: _! M0 ~8 X   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}], # v8 A7 Z. V+ o% I9 N( }
      "}"}]], "Output",
    7 P( l$ W  H, ?& f/ o CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    9 J; ~: P' E( \0 s9 R  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
    6 ^* J$ a3 j6 I/ C# @}, Open  ]],
    6 c) g; p/ P; N: i/ |
    . m; Y+ q0 f. r# N' \7 k6 a+ mCell[CellGroupData[{- G* m/ Z2 Y8 G3 q0 Q/ W
      A: W% J. c* ?3 D6 g! _5 [
    Cell[BoxData[
    6 {+ E4 J7 l. Y# [3 K' _% |9 k& \  V5 R RowBox[{"u7", "=", 3 Q- D; Z' U% c9 N8 `: t' i! k: A
      RowBox[{4 [: N4 O$ [3 B
       RowBox[{"Exp", "[",
    9 X) }; U9 k* d: _% _7 A9 Z    RowBox[{2 b/ |1 X( [3 B" R/ M; z! _
         RowBox[{7 z8 G# K$ t# Z. G* u" p
          RowBox[{"-", # n3 d. n, g( I* m% E
           RowBox[{
    0 N" W3 i* W. ]4 w6 S/ ^        RowBox[{"(",
    + ?4 o' {  x+ |) \2 O         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ' x6 k0 e' l! T& r3 y# R
            RowBox[{"(", # L! I+ S3 B' \( @' I, q' C. W& d
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    7 C9 c# ?5 ~+ d! o' p1 d/ `) B     "]"}], "/.", "DeltaX"}]}]], "Input",5 q' `8 R8 V' k7 U! V
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, ( Y* K, w8 h4 ?6 A: x
      3.57792132028125*^9}],8 ]1 f4 J: d0 x* N

    + A2 H) \( a  ~' K0 fCell[BoxData[
    & J4 S7 ?0 N* R/ i# w6 ~ SuperscriptBox["\[ExponentialE]", 5 [/ c0 F  @' b, @' e
      RowBox[{"3.141592653589793`", " ",
    * p# D7 Z. @; h5 h   RowBox[{"(", 5 s/ e9 U( q6 V( Z% \. Y# E' I
        RowBox[{& c: R  `9 ^/ p# d
         RowBox[{"-", 5 K$ q7 g5 |* c: ?2 \: m; r
          SuperscriptBox[
    ' C, j* [5 W( V       RowBox[{"(", 3 b8 L9 y* I( X. j8 {: j. d: h
            RowBox[{$ I/ b: h& T) j6 @! _5 Y9 o% O1 }, s
             RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
    " R$ z7 \% z; a: T     SuperscriptBox[3 m& z$ s- @5 T7 [# m& P9 Z7 `
          RowBox[{"(",
    9 ~) d; P8 D1 o       RowBox[{
      {7 M, l# X% Z$ f: S        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", . h! g5 S4 O- v& \# p* `* L
         SuperscriptBox[% g$ D9 x- Y% e9 d* b% P: O# [- V
          RowBox[{"(",
    + P+ f8 n+ j: Z       RowBox[{) r4 j. k# f/ R& ^, _: l
            RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    ) j4 S0 c2 ?# O, R6 u     SuperscriptBox[( Y; Y- {3 y! n# M5 S9 _
          RowBox[{"(",
    $ n% n: ?' H! \; p1 a/ {       RowBox[{
    - a! S# _4 {7 H. Y        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-", $ _( d9 @# z4 e$ X2 [0 H
         SuperscriptBox[% P) o. H. A( e  V- j" F  ?
          RowBox[{"(", & r4 O7 J! o" T: C, E# w
           RowBox[{
      {/ [! n& U( ?# e2 R# l. r5 ~        RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    7 \4 \3 V5 t! v( l& n# y9 b( X     SuperscriptBox[
    4 R/ o9 i; d/ ~9 t4 t1 @# j! X      RowBox[{"(",
      ~- `; X  h  U& F. ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 5 r$ x: v- ]% J0 h
         SuperscriptBox[
    ( z8 o; q% A8 p* B* |" U) U: [" O8 v7 ?      RowBox[{"(",
    + e: a9 T& {& n       RowBox[{3 ~# M; D* y7 Y! D1 ?
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",   a% A& T/ a% g( q2 f! s) r" t
         SuperscriptBox[
    8 ~7 Z8 d8 A% F; _2 ~0 _5 D. g      RowBox[{"(", 0 n7 z. j8 i. f# Z8 B5 J
           RowBox[{& F" Y7 n  [! ^9 {9 [+ Z
            RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
    1 e1 z8 c8 r: Y* U% N; U2 _     SuperscriptBox[
    3 D' T! ?; Z3 E* i# G* G      RowBox[{"(", % F. Z2 U' D5 n- m: f. W' q; G
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], # P: _2 ?9 `4 H; d. U& q* a* Z
        ")"}]}]]], "Output",9 M7 v0 b6 W1 X  |
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, " x# T0 [% {: i* Y; m( T  m4 ~
      3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, & |5 |" L/ _1 C5 j) t8 q! w
      3.578012251359375*^9}]
    0 B( H% s6 d6 Q* y}, Open  ]],
    8 n0 M/ ^9 {  O$ S7 ]- h- U$ Z& X% I+ H6 f5 k8 a& P$ r; L
    Cell[CellGroupData[{
    & ^$ u# v0 z2 ?: [* Z- z: C; b* @) H/ P7 Y1 H3 Q! H" M9 D  I& p
    Cell[BoxData[
    " t5 ^3 U7 G3 {' u' G: h RowBox[{"C8", "=", "Ca"}]], "Input",- Z4 B" x1 r" W( D& X
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 2 b! Y* W; p4 @! [3 O5 |# F# c
      3.577921316125*^9, 3.57792141421875*^9}],
    7 d4 i1 {) d6 H* V' l2 O& O8 Y2 c1 l2 K
    Cell[BoxData[  B* k$ T  y& C- P7 A+ ]
    RowBox[{"{",
    ; P% N' W7 E5 E) B6 I" i  RowBox[{
    : K1 r" }% C) l! x* g! r7 s" |! C  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
    & \8 `7 s' |2 V+ b' Y   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
    9 g# P, ]/ y) V- |6 a  "}"}]], "Output",' a2 p$ d6 K+ e" _* Y1 j5 Y  D# C
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    - K% @/ Z' S4 O2 m' D; W. r4 h  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
    ; }7 `& u- o% P3 J! E  3.578012260515625*^9}]# P, I) m) ^$ u; _! d: ]- H
    }, Open  ]],
    8 p2 _! n+ o! A) e
    , B4 i1 Y% Q. ~" K1 YCell[CellGroupData[{) j5 m! l  k. x8 j( E

    # x5 q2 G! ]9 m; XCell[BoxData[
    9 O' ?! g- |, }- | RowBox[{"u8", "=",
    6 @5 J6 i- R* g2 Y, m( r/ ?$ Y' v  RowBox[{
      [' \" O6 z  p( p$ E5 o   RowBox[{"Exp", "[", . V3 J% ~+ H9 K8 {# }
        RowBox[{
    # v/ T( f  s4 M3 j     RowBox[{4 L; s* T% U  h* n% H* |
          RowBox[{"-", 6 c4 h9 V4 S! q4 K3 _
           RowBox[{( P5 y4 |+ O1 p
            RowBox[{"(",
    ) I/ q' j# l& j/ E  V" u9 E- {         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    + V. m9 B3 c: p6 |& R3 H2 u! l7 f        RowBox[{"(", ' W# [  z# L' K" |- |8 M# p1 u
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    $ E7 j+ b+ J/ y5 M% v; }6 _     "]"}], "/.", "DeltaX"}]}]], "Input",
    ' X% [0 V7 u/ s& @+ Y2 P1 _ CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, / x( w; ^% k4 d3 T$ V* q) ]
      3.57792132028125*^9, 3.577921416921875*^9}],
    % m# [" M$ z- O3 [' y3 X9 i, M
    . _4 P' s* o' y) ?! b* O. KCell[BoxData[( g# t8 @: }' E7 Z
    SuperscriptBox["\[ExponentialE]",
    ) T! U) R% {% u! [+ z8 U  RowBox[{"3.141592653589793`", " ", 4 Z5 y8 n  U$ h& y
       RowBox[{"(", 0 I" U' m" U! M
        RowBox[{
    5 R1 \0 K' j0 c9 b" ^- O- B; \; w: Y5 x     RowBox[{"-",
    1 z. H0 F9 ~# W      SuperscriptBox[' L, L3 O$ c% \3 a8 l
           RowBox[{"(", 5 Y+ @% @9 ^# H
            RowBox[{5 Z/ |& ~* t7 D, Z2 E
             RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
    * S' Q5 B6 l6 j5 Z$ d! Z, K     SuperscriptBox[' n* g4 D7 }# |8 c: c" y
          RowBox[{"(",
    * G* s( v. c1 F$ K) V0 o       RowBox[{
    ( u- L& U9 g/ B; X( J) L. S! e9 T        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",   s  S$ Q' P0 H' k6 g4 X4 W8 j
         SuperscriptBox[' o( H  F/ j0 u  L9 r
          RowBox[{"(",
    & @7 _- B. t# X$ o2 @       RowBox[{
    5 G  I5 I  \: v. r: ~$ R: Y        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
    % E1 j$ A! }: g/ f; R- p% t) I     SuperscriptBox[
    6 V" g4 n" A- z% Q( U3 a- w) Y      RowBox[{"(", * U0 R# ~' \$ \) P9 Y9 z# j
           RowBox[{
    . K) S6 T9 r, N. Y; F7 Y        RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-", + i8 ]: B* I7 j' L  n) z
         SuperscriptBox[' c4 @! i% ^' ~9 O/ k6 w) ^- U& L
          RowBox[{"(", # V  z) A# |9 o: l  o5 d& P; e
           RowBox[{
    . ~1 L' B2 U. w' N) W  q- e        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", / r# k$ U" N% A6 V# h
         SuperscriptBox[
      o: d) L9 a' Z- T/ n      RowBox[{"(", 5 D( x3 B* b1 M! i0 u' O5 R
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", $ l! p# U5 O  L; N
         SuperscriptBox[
    + N8 K( R) d: ]9 t/ s3 S+ D! A      RowBox[{"(", " p1 ^* I3 Z/ H7 c
           RowBox[{  I9 S" ~3 m- s9 B& f$ K) d. L
            RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", 0 l  ]. i; g  B2 p
         SuperscriptBox[
    3 Y+ G3 W3 X. Z5 f2 S1 G      RowBox[{"(", 3 \' q1 N9 a6 E+ |& B8 F% Z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", . c0 m3 L9 P0 O, _3 S
         SuperscriptBox[
    1 v# ?7 p7 y  F      RowBox[{"(",
    9 R8 u5 Z+ B; m! |; v1 U8 o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], , ~' Z! w9 J& O/ t( n% q" A3 f4 W) k
        ")"}]}]]], "Output",
    / q# q2 j9 K8 Q2 } CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    4 T: M) B& x6 C; `4 k  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
    6 ]# S: y7 w7 q; L# l" C0 \  3.5779608945565863`*^9, 3.57801226165625*^9}]
    0 i2 p5 t& z$ d( ]$ k' r}, Open  ]],2 g4 A; j, y& {9 n% ]0 p, e- l
    2 m$ R/ V. N  G* @9 L
    Cell[CellGroupData[{
    3 D9 I& Z6 P  z( f# T$ I; F' s3 ?( R+ C- }
    Cell[BoxData[
    8 E$ ]% t$ W; [) ~6 U: ?- o% p RowBox[{"C9", "=", "Ca"}]], "Input",
    : O& E) I. g3 F1 A: S1 x& c+ S CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, $ T* V: j" I; n! E1 M& v6 F* G0 v
      3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}]," _5 B1 v3 T# O% u: I- V! o  e
    * B1 f: I. m  \" y* W
    Cell[BoxData[
    8 X6 H! ^& Y! W" x& ?# u RowBox[{"{", : H$ Y$ A; x4 A8 O2 ~
      RowBox[{
    / _$ T4 v! {$ P: A" k  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
      U- @% f' @& e% b8 R& C   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
    1 n9 e' g, {" u4 p. M$ U  "}"}]], "Output",
    $ x4 D  C% P1 I* t' W CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    6 j, `7 z: B. ?$ h/ @& L  3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, ( r# J/ n6 a7 L: ~$ p5 T
      3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
    / `* s7 T) X: R& G/ M  3.578012268234375*^9}]2 h: P0 Q9 X" H) W
    }, Open  ]],
    0 ]6 ?( E. o2 n- U. V7 f7 ^, J4 R. y! P! \# P. ?+ c, |9 M7 B, Z
    Cell[CellGroupData[{
    8 c0 H+ a8 [5 P& e4 l- u- ~
    3 X5 c3 R' t9 U4 C1 M& C/ nCell[BoxData[" _6 |8 Q- Z* b9 n3 }
    RowBox[{"u9", "=", * o4 I" [* V! m" }6 f1 T0 N
      RowBox[{
      ?+ ?  S' v3 G# z2 M' |   RowBox[{"Exp", "[", 1 L# u8 S& O& u4 d  J
        RowBox[{7 Y: ^! J2 t- B, r% o0 ?
         RowBox[{; x2 x& q: ^- L- }8 @5 t
          RowBox[{"-", + t; `4 Y6 m4 a0 g& j
           RowBox[{7 m1 v3 I6 E! z) `
            RowBox[{"(",
    - P, R; Y: q+ j# q5 h) z1 y2 x         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",   z& _6 M8 G- u  j& v& ]
            RowBox[{"(",
      _' T6 R& U. n( P. H/ p* `         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],6 y) u: d  t# u6 P( c
         "]"}], "/.", "DeltaX"}]}]], "Input",6 p- R/ t$ h8 |2 z, i# v
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    . X4 P- }% p; ^- ^& H2 j+ ^  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],
    7 A  x! H- j' v
    ( m* S  h# l4 z/ ?Cell[BoxData[
    * s1 N" t8 `& g' w! {4 P  W- E: s SuperscriptBox["\[ExponentialE]",   N( O2 A- F* w6 Z, X# R% u) {8 B' K; x
      RowBox[{"3.141592653589793`", " ", / x7 V, A/ v6 Z1 f
       RowBox[{"(", ! t" b) B& W2 v& z
        RowBox[{
    . l% @5 L& ?, m9 Q" e1 J: J     RowBox[{"-",
    * H2 H- w" V( ]$ Y' B8 W* A: u1 h      SuperscriptBox[
    & d+ j  i' [! p       RowBox[{"(",
    0 t* J5 ?; A# L/ w$ d        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", 5 w$ |" `, E; ^  [9 J
         SuperscriptBox[2 B& _  e" O- R5 p! C6 t
          RowBox[{"(",
    , r2 m* M$ o6 d. [1 Y       RowBox[{
    / ~5 v1 c2 V( j0 p" Q" Q        RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", % ?$ r; u* H& f6 J! Y3 V* r
         SuperscriptBox[
    2 G% `4 g* P- q, I! R      RowBox[{"(",
    ' c' I( V( |3 o- m  B  A6 b       RowBox[{
    , j  o  ?$ [# }: w, B        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    6 ^4 L# u) z7 a& Y# B* R3 Z2 z( x     SuperscriptBox[
    ) p4 b$ U, ?2 ^. z* h6 _5 y      RowBox[{"(",
      i) Y: V5 p( n# z       RowBox[{' L+ L& N9 C) W- g$ j
            RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
    8 n- D8 l8 z& T) H. Z     SuperscriptBox[
    : ~7 {6 j+ l4 M" T4 {* X      RowBox[{"(", 5 S0 R9 r8 {: B* X- t$ |, n
           RowBox[{
    % P! ~2 R4 }0 i4 j: E        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", + `/ E2 z- Q9 y0 U& q) i6 W
         SuperscriptBox[9 d! O! m1 v( ^1 X
          RowBox[{"(",
    8 q4 l: N% u8 g+ ~2 H% E& f       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    1 S% g9 i+ D& l, K( G( K  K     SuperscriptBox[
    3 l: c  J4 `& p      RowBox[{"(", : o8 v9 P2 O, k' [$ @
           RowBox[{
    + ?5 k+ g( w- q) K7 ~; j        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
      a! g: a. K$ O' i! P' @) q     SuperscriptBox[
    + R$ _# o; X3 B6 ?      RowBox[{"(",
    1 [8 ~- _, `) u: \/ A2 b       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    / H3 k+ r/ [4 `5 t4 o% ?     SuperscriptBox[
    ' y; A# L! ]/ w0 W8 ]      RowBox[{"(", ! u1 G0 ?' U/ B$ u6 A$ N
           RowBox[{
    * X$ D( m) T7 e8 K6 t        RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], 8 ]% u3 c+ E& d+ N/ \$ Z
        ")"}]}]]], "Output",
    ' d: \& Q' h- u* N9 Q CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, : c) C7 Y' ]4 V
      3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9, 4 A! r6 \1 b+ s8 i2 i5 y
      3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
    # R1 A* G- W' c8 o, o: Q! N* k  3.577961530421959*^9, 3.578012269125*^9}]% b1 B" n% r) ^( `9 W
    }, Open  ]],
    + ?" z: e% R" u' _# L0 Y+ v: l# R8 ^1 U/ J5 K- _
    Cell[CellGroupData[{
    % o9 r' Z9 ?/ [3 u% L% |
    : j7 V6 S6 l- v5 o& @7 ]Cell[BoxData[{
    : q: j* ?) u! t RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
    . c7 k# q, O( b2 v% [) Y RowBox[{"u10", "=",
    ( `2 Z; h* q/ i, z  ^  RowBox[{
    3 d' g2 q. d! k# s8 }# Y- z   RowBox[{"Exp", "[",
    $ ^; H2 x1 v2 `- m# y' Q# j" S    RowBox[{
      Q  h& \* s: X# n+ t: q8 a     RowBox[{
    " f5 a& u4 U9 e$ n5 b      RowBox[{"-", & }7 }- u: \4 d3 k' Z/ A% q+ \
           RowBox[{
    ) {9 j# A7 X; _. c* p& g6 u        RowBox[{"(", 7 H2 v$ l4 F1 R, L
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ( s3 d$ t% F% h, B: ^. O- u, V        RowBox[{"(",
    ' h; D- f0 ~: k2 {         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ! h8 i- F: |/ D9 n' v' [     "]"}], "/.", "DeltaX"}]}]}], "Input",, o/ |: p/ g' H) b$ G) c2 O& }# a
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
    % S& _4 B* _6 b; M8 l8 x6 W( w1 U7 \. ^# e/ Q2 E
    Cell[BoxData[
    5 m( w) @# {* ~0 s( p/ [ RowBox[{"{", 8 b5 M  V% S' L
      RowBox[{
    8 d) b; i0 B7 A  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", , ?9 K: t# `0 u4 j: `+ ~
       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
    % {' L# u+ Q+ O+ g& V( Q+ ~4 a: A CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
    * I8 f% k2 f8 H/ Y/ ~4 c- h8 B' {* ]) j
      P% i+ y, a" b/ J: `% oCell[BoxData[
    ) G; D( C; S) _! p1 w7 C+ Q0 q& M SuperscriptBox["\[ExponentialE]", 7 K, m# Q, r& U# L# P/ R
      RowBox[{"3.141592653589793`", " ", ) x5 G( z7 p9 G; E
       RowBox[{"(", ' e+ D0 ~: ]! I3 Y$ ]5 Y& P
        RowBox[{
    ' t  i$ \3 t2 g5 t0 \     RowBox[{"-", 2 m) j8 v  o/ r& M, s9 e
          SuperscriptBox[
    ! s% p+ _; K1 F! X& v6 B7 W& U' s/ I       RowBox[{"(",
    ' M8 Z. n. [- b/ c3 T        RowBox[{4 q3 o- o# H5 v+ p- T9 i% S7 T! z3 |
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    , k/ w0 {6 h/ ~* _, Z     SuperscriptBox[
    / d7 f+ }; a) w" s      RowBox[{"(",
    - S* N5 t9 Y4 G* Y; L2 g+ q6 F- i       RowBox[{
    8 M4 T+ [/ ]0 w0 S  C; i        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", 0 e4 m. v6 W( k% O1 i
         SuperscriptBox[9 z% s$ I/ o/ P! G! W9 W
          RowBox[{"(", - g3 A1 F! O( y" j9 q2 L7 ~
           RowBox[{! W1 L$ s0 r: _7 W9 ~4 t' v
            RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", 2 a: N& Z1 k5 W9 L! o; {
         SuperscriptBox[) A- f7 D0 Z' P8 |
          RowBox[{"(", 1 N& r8 `1 i; h( h" T  M
           RowBox[{
    + V- v$ b5 S7 {! e2 y7 `        RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", & C( e; R8 f& A8 _
         SuperscriptBox[- c. @1 c3 b6 O- [: n
          RowBox[{"(", 6 A! W8 I( N: \: \; y
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", 2 l3 a/ N. T4 l" A1 i6 @; n
         SuperscriptBox[
    & J" I" z4 j, R4 d      RowBox[{"(",
    : _0 `0 |" w0 x- U       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 9 L4 g) k" V2 d  Q; V6 M
         SuperscriptBox[! E. ^+ h; z6 R0 c+ C3 i
          RowBox[{"(", ! W6 O; N, d6 o5 X6 r
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", , b3 p- @" C  Y+ R) h
         SuperscriptBox[" G: `1 R0 H0 Z
          RowBox[{"(", / S: |0 R2 n* ~  b- @
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 6 E) c8 z* H) `- l  X# S2 n: w: Z
         SuperscriptBox[0 I6 _& S+ t* d' S3 ]- o
          RowBox[{"(", 1 G+ s' \$ Y3 A' N0 B
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    / Z% O% x0 e' ~7 S. T    ")"}]}]]], "Output",
    ; f% `; x0 T% v9 X9 r CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]% c6 T/ F! q( m8 n' s% r+ W
    }, Open  ]],
    2 }; W; a+ w+ y7 p3 Q! u
    & w' L8 w8 M3 J, jCell[CellGroupData[{* L5 x+ k; f" Q% ?

    7 ?5 P% g, i$ S$ GCell[BoxData[{3 r: K) R' ~+ P0 M% [
    RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", % C5 F5 I; x- }9 j/ x& ^( B7 ~
    RowBox[{"u11", "=",
    4 v' P& O% [* f2 S  RowBox[{9 R! V( I4 G6 Q* ~) A/ C
       RowBox[{"Exp", "[", 1 }7 a' r, q6 X( K8 ]" K
        RowBox[{
    7 [1 {- Q, V6 J( E     RowBox[{- l; O+ Q# X& A$ q
          RowBox[{"-",
    . l8 Q* O4 T9 D: `/ d$ i       RowBox[{- k9 E: j1 [. Z5 e6 |: b: w
            RowBox[{"(",
    ' N" r5 E6 l1 Z  g) J* }         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    - K, }# `" v( W        RowBox[{"(",
    / j$ P5 b& H$ E         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],( i5 E: [5 Q2 P, F2 ~- L
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    $ ^3 N6 A- x5 x% D+ b7 M  Y) R7 w CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ; ?7 h7 Z8 V9 i% T  3.57796154237158*^9, 3.5779615434011817`*^9}}],
      ?: L* M1 t( Z* @. B% a5 H0 c  n& i# H% r: |
    Cell[BoxData[/ f7 s: A9 u% y& F8 ]
    RowBox[{"{",
    . M2 d$ G) @( M  RowBox[{
      H+ v4 f: O/ f  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
    % |* y; `. ~3 V- f   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], " \0 o; P* G* |% f0 P$ g
      "}"}]], "Output",
    3 B- y8 G$ o$ E, z+ W; p3 n CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,   d5 m' w9 f; T3 \
      3.57801228203125*^9}],% a" W" g7 X$ I

    / @1 y) m  {5 ?. iCell[BoxData[+ K$ Q1 Q3 `7 h  j" |
    SuperscriptBox["\[ExponentialE]",
    " C# e3 d/ Z* a, S5 a# t8 c# x  RowBox[{"3.141592653589793`", " ", , q4 [, ]0 f1 Q1 X7 {6 [$ Q+ X
       RowBox[{"(", - A1 y/ M, ~8 H9 f, ~' R5 ?
        RowBox[{% M3 U2 z  R8 G$ y" x) w
         RowBox[{"-", ! ?9 S) e* s$ Y. M7 g  s; b
          SuperscriptBox[
    3 a" e+ }+ Q, L2 _" D       RowBox[{"(",
    ( N2 H" L/ O* \5 k% T1 O# H        RowBox[{' y5 b, r- q1 U0 G1 @, {
             RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
    - e5 q  V0 R- B3 a9 Y! E' E8 x     SuperscriptBox[
    ) q* @: J/ k3 ~% f- M- @5 `      RowBox[{"(", & o' H: z, {8 @5 e6 M7 [& `) C* v
           RowBox[{
    . B2 V+ h/ G! r9 P) d        RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
    ) d# j! R& b  b     SuperscriptBox[
    & J* h8 l$ l7 I/ W2 l      RowBox[{"(", & T- Y- R# g  ]5 N. e9 ^. _
           RowBox[{
    5 q9 _4 p4 n2 D. S/ [! U5 A) j        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", 4 ^6 b1 U& Q' Z) @' p* @
         SuperscriptBox[
    2 L" a; ^) P5 F2 l; [9 S' x      RowBox[{"(",
    + H* {' t9 K0 k* r       RowBox[{+ n' I; S6 P7 a' n
            RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-", 4 ^0 A8 g4 D9 N! K. N
         SuperscriptBox[2 V' h+ x; m0 I  `1 v7 J
          RowBox[{"(", % j+ S9 J9 R% U7 m8 i) B
           RowBox[{7 P; J' H2 D, n. ~$ K
            RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", ' P( T5 o6 x( Q' L6 H
         SuperscriptBox[; A/ n0 {* ^. e. V
          RowBox[{"(",
    ! f2 h% P" p6 c2 i$ `       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    6 C2 I$ M" W5 {     SuperscriptBox[  t' p* S7 Z' I; N  E( _0 m
          RowBox[{"(", ; a* w# _' u+ a  d: ?  [# w9 ]7 i
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    $ a. S8 i* Q3 E  T3 s, c     SuperscriptBox[' j' x) }* \4 Y' ^" A
          RowBox[{"(",
    " Q5 t: P7 Z8 U9 }/ N# F       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 6 g% k! [" r; R+ F
         SuperscriptBox[' S, a7 G# B9 Z+ s
          RowBox[{"(", 3 |+ y; g/ E$ L9 n
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ' c; o) ]0 k5 M$ J1 V    ")"}]}]]], "Output",+ J+ o: M/ \5 K/ C
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    4 w+ ^, ^% y) O  v  3.57801228203125*^9}]
    # d$ g2 W& v, n: s) K4 ~- M}, Open  ]],6 r0 h! B, y% N( W- w( o

    + T- a* a% T* OCell[CellGroupData[{  D+ B5 b5 [; l/ `+ z% e

    + E2 G# l. L, {( `9 Y$ ~( ^Cell[BoxData[{9 z7 X' T' X7 _3 O- j# }1 ]
    RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
    # y" Q, C9 b8 |, ~5 s5 x RowBox[{"u12", "=",
    ' A$ Z0 @8 ?. T+ n! L  RowBox[{% \9 ~, _. h+ H% R, P, |; Y4 s
       RowBox[{"Exp", "[", & ~  J- b# I7 i" u! Y& F" ~, E' K
        RowBox[{
    % D3 n2 w2 t1 f6 w     RowBox[{+ S$ [1 A& `; L
          RowBox[{"-",   B3 c. _7 S4 N4 d
           RowBox[{7 m0 m8 Q) {7 `1 [4 X
            RowBox[{"(", . |. \3 s, Z* I2 N% H- D$ {! ~, o
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ' M; O  K- }1 m9 _3 U
            RowBox[{"(", 4 f7 F  d3 T0 U& u
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],; e+ W/ ?, F( ]$ z$ o
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    0 _+ p5 o. }, R, J8 H CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    / v$ v+ d' ~2 n* P  Q  3.57796154237158*^9, 3.5779615576284065`*^9}}],
    2 J! r: u" ~' u: U
    5 Y% B' ]) ~( }% \" s' fCell[BoxData[
    " @& c( J7 G; M1 n$ k" ? RowBox[{"{",
    % o+ c; c! ~8 P  RowBox[{- L' E  u8 u9 b5 }% J& j6 _
      "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", 1 s, e1 W# C+ G5 }2 _+ ]( t
       "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
    ' D0 }, {4 z7 T- u1 g- X7 X/ _  "}"}]], "Output",
    ! ~! Q  }; M; u0 M+ [  i CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],
    5 Q. V/ a5 d) H, ~7 X$ p0 ~8 b! F" u. O* L; d
    Cell[BoxData[5 x: U0 [' c  l- t5 g3 Y. I
    SuperscriptBox["\[ExponentialE]", " T6 O4 e+ ?. A$ j+ Q. K$ O
      RowBox[{"3.141592653589793`", " ",
    + U* E5 J. ?( g' N  }   RowBox[{"(", 7 @8 D1 T; X- w; y0 u  ?. P
        RowBox[{8 P$ {4 |, z0 ^- C# z# ?
         RowBox[{"-",
    & s7 ?) ^4 Z! [      SuperscriptBox[
    1 `. b& U6 I& F1 f# z3 m, i       RowBox[{"(",
    " ]. g1 G- y+ O$ S5 `0 f/ \        RowBox[{  H' i) V9 h/ @1 ~. A" g
             RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    : t: @: }. W0 Y0 v; b     SuperscriptBox[1 O7 A+ p3 \* i- O  l" e
          RowBox[{"(",
    6 m, a4 [" d5 U. B, }, j# m       RowBox[{8 M. G) b8 m" l- Z, {. O
            RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
    + M4 U% [5 B/ I' p0 J+ C     SuperscriptBox[
    ; E% ~0 N, Z5 Y  M9 r      RowBox[{"(", ( r  R9 s6 e0 n' }( f
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", : P3 R! o% W  c. O* `0 b
         SuperscriptBox[
    - i6 }  i* N, T8 c8 W4 N      RowBox[{"(",
    4 W4 H3 B/ I( P6 Z8 f5 s* O) Q" D6 E       RowBox[{+ J$ [; f$ G& I% h; d4 O/ h
            RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
    # N/ ?  o) ?! V: G5 H     SuperscriptBox[: X" [% D; s8 P# }/ Q0 o) Y
          RowBox[{"(", . H* J  o, h9 ]1 ^( {
           RowBox[{" ~9 k" R4 N+ n/ s- n/ B  K: i
            RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-", ; v7 X6 q; B" U0 e% s# _
         SuperscriptBox[
    3 x  ?7 ]! S8 {6 K+ G      RowBox[{"(", : j4 B7 q  Z/ j7 H( r( L
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    : ~% \* o9 G; _8 j; c     SuperscriptBox[3 a; }) S! H. ?+ e% {8 y5 E
          RowBox[{"(",
    2 o3 F2 ^* ?4 Y/ D       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", % ^$ y$ h" m" v8 V. z+ ?. f
         SuperscriptBox[; v7 d# p. ]  w$ @; h) n$ F/ P
          RowBox[{"(", 1 U! {7 _3 k6 T& d6 x( ]1 z
           RowBox[{
    + p( P! p% m* w0 v7 i        RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", 3 C+ F4 L$ ~4 A* y6 v$ N2 q5 s
         SuperscriptBox[9 K  Q; E3 |( i: q& Z+ `' ?, i: r( h& J
          RowBox[{"(",
    # r8 D/ t1 S; \# [6 v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], # F# R2 V. m" h' x' J9 H
        ")"}]}]]], "Output",
    : f4 \1 b9 R9 @7 S+ S3 L CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
    + M7 G& U8 y2 |4 e}, Open  ]],
    # o/ A: Y8 ]& i
    ) x7 |$ U/ f+ j9 E( T6 N, T- oCell[CellGroupData[{
    0 F) R) G# Z( P, }( r) o& }: C5 c, L# k' H7 c( t" p
    Cell[BoxData[{
    * {4 @. F8 n+ |' y9 A* y( H RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]",
    . l. D) T' {! U5 |! P7 I8 n- H RowBox[{"u13", "=", 0 z9 T) a2 Y9 a5 U6 o
      RowBox[{
    ! l8 Q9 Q) L8 |$ T   RowBox[{"Exp", "[",
    / D* l5 y) w4 E4 G. T3 H1 z    RowBox[{  i2 |( w+ k$ ^' i: p
         RowBox[{
    % z" t( ?" G8 U6 Q' o      RowBox[{"-",
    . r; n6 N* U4 {) Z6 H/ r  \' A       RowBox[{# J1 M: ]. N* ]6 f$ t# _
            RowBox[{"(", 7 [2 u: z. `- E1 Z  q6 {
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    , ]* ]( V2 O0 @+ z  F/ x" i        RowBox[{"(",
    $ K" ^& s% A& B: A. Y9 X         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ) g2 o' g8 E( A0 ^2 V     "]"}], "/.", "DeltaX"}]}]}], "Input",$ k; h; |  y4 u. W9 s! u  K
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    & i$ t8 M/ n0 c  H8 G& `  3.57796154237158*^9, 3.5779615599684105`*^9}}],6 Z8 M/ B5 N6 V# W

    % O( r, C' F3 ?Cell[BoxData[9 P4 C! R8 o6 m  \% \. j
    RowBox[{"{",
    % A1 u. S7 |4 p  RowBox[{' M5 n( ]+ @* Q2 T5 F; j
      "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
    3 G+ d7 i" d- h# M3 s6 E   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
    3 k  y+ P# j* T2 E  "}"}]], "Output",1 y% E7 O# A) t9 h0 V
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],+ b$ ~/ M: _- s* y5 d

    % ]9 R7 `7 M9 i/ p, D$ s2 A  BCell[BoxData[
    ! |' u3 u8 Y; _6 I2 L) ~8 n SuperscriptBox["\[ExponentialE]",
    ( O7 A6 N7 @$ T$ \5 H  RowBox[{"3.141592653589793`", " ",
    4 t+ C6 G" i7 R" x0 S   RowBox[{"(",
    9 a" O5 |! {- K( g$ {! G, R! X    RowBox[{) q( J8 C1 I3 k  y/ n' R
         RowBox[{"-",
    6 G9 S" x1 _( w& y% J      SuperscriptBox[
    , ~- _( k/ P( y7 a6 `1 [+ B- X# }+ y       RowBox[{"(", ) ~: q; I/ {' t' W3 R
            RowBox[{1 H+ V8 @+ @/ J: U" |! Y5 K4 k  j
             RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    0 o8 V" r) d7 K! ^     SuperscriptBox[
    ) U. M* X: n; i( ]1 v9 c0 i7 V7 r- X      RowBox[{"(", ) F+ k2 ^0 T9 ]5 j: m
           RowBox[{/ b, M, X- F" k
            RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
    8 E$ ~2 n' _3 s+ ~* C9 x- C- F     SuperscriptBox[
    1 _% p% A6 n- M7 f2 S" w      RowBox[{"(",
    : N; E5 i# Y7 ~. o. S# F9 P% c       RowBox[{6 G; C" V2 W, s* v  H8 V
            RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", $ T" a& x9 y3 C' e: r* t- G1 o
         SuperscriptBox[! Z; w4 }3 ?5 i
          RowBox[{"(",
    7 t4 s% f+ f$ J( N. K0 ]       RowBox[{
      h) Y& v  [0 g        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", # X9 R1 a8 T# r  r8 n% p. Q. R
         SuperscriptBox[( v% U, u3 ^2 }, P
          RowBox[{"(", 3 R" y# r4 H! f+ v- W" s
           RowBox[{: n3 F  e% Q  T' {1 c1 A) R2 T2 h( [# X
            RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", ( D# ^. }; o7 ^+ f$ j$ R
         SuperscriptBox[( V- I9 x5 `  s( [: M3 T& L
          RowBox[{"(",
    ( o* l% _4 D) q% Y) O; @       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 6 d# \% B! P% D) |0 U- g) L; |
         SuperscriptBox[4 ?- f8 K8 a: b2 ~) v
          RowBox[{"(",
    , A( `3 D6 W3 X       RowBox[{
    ' F9 w0 t/ q" |/ i7 X. ^( w        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", * l8 |0 Q' g) u: _% v
         SuperscriptBox[" L" H, C. F! ]- i4 Z
          RowBox[{"(",
    9 P. V! S* H2 x5 H' E2 [       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    9 N6 j; W+ T9 w0 }     SuperscriptBox[2 @4 P6 C: Z& F& {
          RowBox[{"(", + q- j& W/ Y, _5 i. Z2 \: `! R
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    2 v4 Y% h$ t- N% u. M    ")"}]}]]], "Output",
    : \! Z5 H9 W7 I CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]) e; W% p- n" J/ z; B
    }, Open  ]],
    % B) S3 L' T, {* W% ?  x3 R. ^! F* ]8 G% h: B+ t" j; S
    Cell[CellGroupData[{5 `$ f9 `" O! ?3 e+ W% C
    ( Z: T; k0 a, F" Z) i' Q
    Cell[BoxData[{+ y: X: z6 S- N$ A/ w3 V' ~# }1 `  _
    RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]", : P4 @, V; d9 e
    RowBox[{"u14", "=", 5 l4 K  {7 w9 y
      RowBox[{- i; P: P8 y: _, V# l' v
       RowBox[{"Exp", "[",
    " f0 B! _  C. y: e. O    RowBox[{
    . f  r; f# {/ }( x: p( a     RowBox[{6 V1 M6 o8 j2 K2 y  f( P! ?% N% O
          RowBox[{"-", - x! ]) m) W# K; \' r8 b
           RowBox[{7 b  H  u5 H3 o: I  ^$ i3 U1 `0 X
            RowBox[{"(",
    3 B. y  k. _6 o7 c1 W2 q1 r         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " c* w- C) `6 X; l: N$ |        RowBox[{"(",
    2 k) ?% m2 ^. L+ \; n         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    8 H3 ?4 y6 K3 S; Z     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ' P* O6 L3 [- ]$ K1 T% M" c8 u, f& C CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {) s  S) N4 h  _  M$ j5 v$ K, i2 E, W& K
      3.57796154237158*^9, 3.5779615663176217`*^9}}],8 l. k& r, S9 \" m; M0 g$ Z
    ! _* P/ {$ T0 N$ Y" ^1 @
    Cell[BoxData[6 E0 K- X  z2 n8 h
    RowBox[{"{",
    " u- W+ L8 f' u  RowBox[{
    8 R7 ], d: A& |2 }+ q  p  `  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",", % o$ V* c1 e! ]
       "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    4 f4 r& x' Y7 V  "}"}]], "Output",+ w0 ~  [4 Z( {
    CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],
    # I6 d; s- D! l2 n; G4 _7 @
    8 f) l8 s& {1 Z' [Cell[BoxData[
    % X% N# ~! ]; R: o" R4 S8 K SuperscriptBox["\[ExponentialE]", 2 m1 q8 q0 x! G. d% N3 y/ M; i3 X
      RowBox[{"3.141592653589793`", " ",
    : i9 |' l4 Q: G0 @! i   RowBox[{"(",
      _# x2 B3 h/ t  ~: s5 t. R( h6 b- I    RowBox[{
    " D' |) Z6 V9 ?. h     RowBox[{"-",
    . ?, `! x% H" Z$ g      SuperscriptBox[
    ( S1 V8 ^8 u- _8 D6 O& d       RowBox[{"(",
    ( U2 \% A- ~* G5 Z- k& \        RowBox[{
    . W/ b' q  N7 u7 |( y- s         RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ) D$ R- j( U0 Z1 Q) Y7 C$ l     SuperscriptBox[
    / C' j9 c/ t! r; \! z      RowBox[{"(", # O* `! P0 _7 |5 I6 U* r: q7 {
           RowBox[{; l# y7 d# c0 Z# B$ j8 J2 L: Z$ @0 W
            RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", 3 a" Q8 X( s' p  |' i1 V* ?9 H4 @
         SuperscriptBox[: T+ i% G+ e; R: Y! G2 d
          RowBox[{"(", ' ]9 k, A$ S4 h8 [) m
           RowBox[{
    - d) [0 k2 [/ O4 w# s  j2 j        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
    ( S3 D0 p& `+ ^$ P     SuperscriptBox[2 [& B2 a; k; a, j) g) B3 J4 [
          RowBox[{"(",
    5 R/ X$ H. J! h3 v: e8 r: w# o       RowBox[{1 P2 c$ n1 x6 d- t% q
            RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
    " v5 u! Y+ p# u* h: w* f     SuperscriptBox[
    ) ]9 G# s/ O8 v0 o0 K0 g0 c+ [2 o      RowBox[{"(", - e' S* E+ o$ ?
           RowBox[{
    : d- G/ [0 j7 d* u  b9 f% y        RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", % [+ K5 l% {) @9 Z- w# l, M
         SuperscriptBox[6 P& k6 m. l+ T$ P9 @
          RowBox[{"(",
    " n! ?* @% m: {; X2 b" o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", " ?) ~/ p6 K4 m4 W# g/ C. b) R
         SuperscriptBox[
    ' k& d/ t) M* q% L      RowBox[{"(",
    - Y  C& S+ ~1 @  |& m       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    . u2 B8 ?5 K) d2 O8 d     SuperscriptBox[! P. A" {& f6 G( G8 Q6 y( b7 d
          RowBox[{"(", , Q" P4 v. C3 r4 a+ g0 C
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ' h; q4 R* w: I* A* n3 G% X8 i     SuperscriptBox[
    ; a3 |2 g7 d: J" E8 J. Z8 N( E      RowBox[{"(", 0 y3 S6 [' O4 A3 R. q9 }9 W7 n; L/ S) t
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 1 [0 V" x& e* b
        ")"}]}]]], "Output",
    - t) Y/ L9 o- Z0 c( F9 S CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]  a, q. K2 J; q0 I2 D
    }, Open  ]],) K5 }3 D& S# L7 c; N4 f# N" Q8 q
    * m8 S. t. R5 s9 \2 f
    Cell[CellGroupData[{
    4 A" o0 z! i( m/ R' i
    8 k( F0 L* Z9 XCell[BoxData[{
    2 D, @( ~. J& Q: v0 a. E" l; N RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
    , w2 u' P4 Y( `% i2 J0 O. p RowBox[{"u15", "=", ( w+ ^2 p0 _; p- w* o0 d
      RowBox[{
    % e) p0 {" X6 B' C# u2 r( v3 L1 |5 u   RowBox[{"Exp", "[", ( a1 C' F9 e7 ^, b$ L) D
        RowBox[{% r% u3 y  X& ^6 h6 p9 J
         RowBox[{
    4 k. [7 o9 x0 t  P      RowBox[{"-", 7 [' ?2 e" Z1 b" h3 t: J0 J+ H# _
           RowBox[{( l" A. s: p7 l5 f, g/ N0 Q& R
            RowBox[{"(",
    9 s" y& ]4 i' i- ]+ D, v         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 0 W9 w  u; c9 Q) v) o& G
            RowBox[{"(", - q2 i0 A% Q5 t& R$ y% p/ w
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],2 y. x. N  m% L* N( Y
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    : \8 s6 e3 x. M1 C3 F CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    8 w# K) Z7 {6 y, ~- E. W  y( V0 F  3.57796154237158*^9, 3.57796157098203*^9}}],
    + A7 t4 o: Z8 l7 c; b+ v0 w" E+ |  J# X8 q9 E' z
    Cell[BoxData[
    . }. @% b. r4 ]/ d- x/ A RowBox[{"{",
    % t  d! a; K8 P( W. L$ g8 O6 l  RowBox[{3 H5 m: M' |0 Y6 L* Z) S/ ~- g
      "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",", & o8 Y. r- I# t0 k0 {
       "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
    . _' F5 v- L. `6 z7 i( x* ?  "}"}]], "Output",
    9 w( V3 O2 j1 P0 D7 t CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
    ( H+ [5 p! X4 w. B  Q4 t  E- n' o
    4 A" ~- F6 s% [, l! ]/ [Cell[BoxData[
    , y: S6 h2 h" o2 {% y SuperscriptBox["\[ExponentialE]", 6 f, X7 t! g! ]# A  Q) x
      RowBox[{"3.141592653589793`", " ", / v5 W7 @$ p- c1 R+ o
       RowBox[{"(",
    0 U$ e  n" @& t: Y5 F9 m/ J: Z  v    RowBox[{" X' _0 |- H, H, i4 L' s8 O. m
         RowBox[{"-", ( w/ ~( P% b0 s6 G1 _2 F" W( Q
          SuperscriptBox[
    4 A: U- m* o9 E       RowBox[{"(", / l6 u$ p' N5 w  k. C; @3 z7 f
            RowBox[{, q# C- n. h/ w0 ~% J' w
             RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", " v  Y+ i$ O9 V7 n) W. D
         SuperscriptBox[
    - s  c' N; [+ f$ c8 U1 f  H1 j4 b& C      RowBox[{"(", ; r5 i0 F* l0 j/ v& w+ _
           RowBox[{! P4 P7 C7 J6 H
            RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", 8 }& r7 G4 b7 P
         SuperscriptBox[
    % s( v  G5 {6 Q8 K- x- z      RowBox[{"(",
    ( ]  y  Z4 ^! R2 [/ k/ w- Z       RowBox[{
    $ B  n, [4 j9 m, \2 y        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", * ~) g4 J: h7 v1 e/ J8 q
         SuperscriptBox[
    ( b$ _- `: G% u- X. z- T" S; N      RowBox[{"(", / V; X, D1 J" o; _" @
           RowBox[{
    4 ~9 s; k& W6 G' l        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", # `# y" ^, T/ G5 v- L, {
         SuperscriptBox[
    0 z7 J6 T' w- z3 m( n. D4 T- K      RowBox[{"(",   Z" \- C  I: g) p7 U2 G* }0 _- ]5 s
           RowBox[{
    # O& [5 e' e% l" m6 Z        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    7 b5 w& B- _" O     SuperscriptBox[- U3 ?4 D+ C( p
          RowBox[{"(",   I, M5 \- [; R- y5 r
           RowBox[{9 H8 z2 b6 r; Q6 B2 d8 x, o5 z
            RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", * v5 F2 T7 E8 C: Z3 H  n
         SuperscriptBox[
    ) m0 g4 f1 t( d( A% ~/ V      RowBox[{"(", + s1 p& d; U- D. k2 \' n
           RowBox[{% H  h& T+ Z$ D1 y6 y4 d3 O. T* R
            RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    * H  x. G8 R* @1 ?0 ^4 a     SuperscriptBox[9 o+ k; m' u6 ]
          RowBox[{"(", 9 i. @* I0 H. V0 I/ i; C
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ! _* r, B5 _( m) ]1 I     SuperscriptBox[* E7 A6 ?, _3 y" J0 d
          RowBox[{"(",
    ( I& q- |6 n2 g* d       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    * d2 u6 S; Y/ \/ O4 N9 }    ")"}]}]]], "Output",
    1 {$ B0 j4 F: t4 s' B CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
    . C" ^; D# v* I; j6 K' E! P}, Open  ]],9 Q0 J- H+ _( @4 K) ~
    ; @' D4 J' D. V& r2 N/ g% `
    Cell[BoxData[7 Y* U; Z0 z# p# z- ~, F; W
    RowBox[{"For", "[",
    ( _) q. G$ v/ q6 g2 t5 p( r" ]  RowBox[{" X" o8 Y) B) E' y# h
       RowBox[{"i", "=", "1"}], ",", $ X. D- T7 t7 O
       RowBox[{"i", "\[LessEqual]", "9"}], ",",
    9 \# }) r# y7 e* j3 D  s* I   RowBox[{"i", "++"}], ",",
      C0 v/ e5 i0 V7 [   RowBox[{
      V& G8 Q8 B" U  R    RowBox[{"Ca", "[", ) ], B2 P8 ]; q7 X9 X% G
         RowBox[{"[", "i", "]"}], "]"}], "=", # M) R; \0 r  W  I
        RowBox[{"CM", "[", / \. _$ n5 j7 F% B  P
         RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",3 N; N6 q+ q1 U7 l# s) i
    CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],6 j, p1 T" C( F
    8 }# I7 W0 U4 t' @
    Cell[CellGroupData[{
    , X1 y* I7 H2 T1 ~3 u# h- T; J
    ; s5 Y6 T4 W, P- m! U3 ACell[BoxData[{3 q& _; V. t5 }
    RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]", 0 x6 C  a: M! B  A
    RowBox[{"u16", "=", # H% K. P1 O) y. Z) W- j
      RowBox[{7 I7 U' Q: }; V# v+ E
       RowBox[{"Exp", "[",
    % o4 \, s3 c9 G) X    RowBox[{
      I* S" t# x  o3 r     RowBox[{
    % M% E0 ~& d1 x6 v  ~& P      RowBox[{"-",
    : ^8 c$ v$ z! u4 @% h5 ~       RowBox[{
    1 Y5 d* a+ d9 a7 M  U3 }        RowBox[{"(",
    ' L( N/ C9 Q/ T         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ! N& e! ]- O0 d& \  h        RowBox[{"(", . h) F. D8 V" A! ^
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    3 G% d7 s8 ]7 E. |7 h     "]"}], "/.", "DeltaX"}]}]}], "Input",( k7 C1 \3 u% C" I+ X( }" i
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ; f7 C7 O* G# ~0 d  v/ C0 X  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
    ) {' A& a* a9 D& \! _" N  3.5779615751004367`*^9}}],
    # a. V; V+ T9 |) H: ^3 S0 X
    # m4 z3 @1 l2 z2 U2 GCell[BoxData[$ d+ b# ^4 B  Y/ U
    RowBox[{"{",
      X' X  r' \+ y/ Y$ q  RowBox[{6 ^- e  m- v; ]
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", ( B0 m6 q1 ]6 r6 w
       "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
    1 Y2 X: c5 N" ~  R. Z2 ?" h& t  "}"}]], "Output",
    , G" L" W+ T- y- K. e# m/ @" Q3 z CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],5 W+ I; i: f2 o2 ]" k0 e. A
    - C5 N2 `' _4 I7 C" F* j
    Cell[BoxData[1 V6 u$ B, K* ?. |1 e
    SuperscriptBox["\[ExponentialE]",
    ; |" g  j2 c' m  RowBox[{"3.141592653589793`", " ", & F; F7 ]! s' h4 b! G* M
       RowBox[{"(",   c- L. d' E1 X, k' h
        RowBox[{
    ) D" X  f) E/ q  e) ~     RowBox[{"-",
    - O  ?* W! Q) ?: q      SuperscriptBox[
    5 Z3 p8 H' s, y2 @       RowBox[{"(",
    % p" R( [: |, [! k% a4 P, u- @        RowBox[{
    8 V' z( k) k% E& F9 @/ q! P6 S9 V         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", 2 e4 C- L# l8 ?# S3 k- Z
         SuperscriptBox[
    6 C$ l9 q* b& h6 i6 i, A" z      RowBox[{"(",
    8 K/ C, u9 n! n1 X! k       RowBox[{
    " _1 i. `8 H/ B8 e        RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
    2 p5 D/ G+ I' F" {3 A     SuperscriptBox[( T) m5 x# W" X5 Z7 |( ?5 Z, e
          RowBox[{"(",
    3 @4 {- E* U4 L: |& L       RowBox[{
      P* K; L. |* O: R* r) K$ I2 R        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", ) o) X8 ^; J1 H# Q  \
         SuperscriptBox[
    " J9 X9 L( D& D      RowBox[{"(",
    & M; d1 D2 ]7 I8 f       RowBox[{
    7 R6 T. H# _7 r- m        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", ' e9 d: O" O) |( S, t
         SuperscriptBox[
    7 T* ~% j+ g3 {: c6 ?3 @: v3 U1 o; ~      RowBox[{"(", 6 e# z% P* t% H4 x5 K
           RowBox[{
    & o1 B( n1 c: B! _0 r        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", . ]7 M) o& B' M5 {4 v
         SuperscriptBox[
    8 i. {( A4 o: ~      RowBox[{"(",
    ( T" F3 K0 `4 w/ P4 y2 w       RowBox[{- O, ^& g0 m8 m+ Q9 h' L
            RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
    / m$ `6 ^; i" f     SuperscriptBox[
    4 X! p2 [- i- P& e2 O' b      RowBox[{"(", & c$ ?2 d; b# ?) j/ U
           RowBox[{& k3 t2 F$ a: ?9 E& T: e
            RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-", / z/ S) [" Y  [: P
         SuperscriptBox[2 A2 Q+ _9 P1 R; f8 y1 ~9 d; q1 h3 D
          RowBox[{"(", " h% S! G1 T7 {& |( T9 a  M" u
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ) ^; q# }& L6 Y/ x) l. W! l, Q     SuperscriptBox[/ F2 a& H+ R; d8 w6 O
          RowBox[{"(", + @" ^7 i7 L' G/ r% G# U
           RowBox[{* r: |4 w& Y1 @4 g* p% y
            RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",( x. x, F# t, {1 O$ r& A* b7 U5 K
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]) H) k8 R& U7 D5 P
    }, Open  ]],9 `: [* J: |/ ]) w) Y* o' {4 l
    $ m! l; M, v$ m  s% Q+ m& Z4 |
    Cell[CellGroupData[{
    / o( h5 S' r3 p9 ]! j  h
    : P& @' W9 w- |# \Cell[BoxData[{
    9 s  h# S1 M+ j) K9 R6 Z2 } RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]", 3 J6 z. M7 z* D1 v( Q
    RowBox[{"u17", "=", 9 s- G; X+ }& i6 U( y
      RowBox[{6 d' I3 k9 c$ g. Y, S
       RowBox[{"Exp", "[", ! R5 v, @! ]  Y0 l
        RowBox[{
    . C2 t, ^5 j2 W0 h6 h* v# E     RowBox[{0 P3 @- v& W. l3 Z5 {
          RowBox[{"-",
    4 K  ?3 t0 h! L* Z/ e       RowBox[{: e6 d4 p2 S6 W
            RowBox[{"(", , w9 g9 P8 [% L$ n5 |3 S4 K
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
      Y+ Y) U- G. f9 K1 P  y        RowBox[{"(", ) \5 S- V, K0 M! V% h
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    8 V/ k- n1 H1 M+ P3 s1 @     "]"}], "/.", "DeltaX"}]}]}], "Input",2 \0 l, V$ f( d6 r7 D
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {" \* t! d$ C/ o# i# P" X
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, : ?0 X" Z7 w" v0 M# p
      3.577961578953644*^9}}],  P) f* H* i1 r6 @3 b! g; f

    ! ^, t  R6 F# O9 ICell[BoxData[  i' H% L4 N+ D% |
    RowBox[{"{",
    . Q+ @9 R  h" d# ~  RowBox[{
    ! i$ R+ v0 D/ L9 y  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", ! `. Y6 `" a7 w5 u" K
       "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
    8 B; @/ N: t" ?0 g2 u  "}"}]], "Output",
    / i; ]' o# L6 z( L9 c# T3 G CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],0 H$ i6 X$ d& [" F% [7 T2 K; ~

      t0 R0 C/ P! B& q( h) D% [Cell[BoxData[
      k& O% v, H7 a) }& O  Z% c SuperscriptBox["\[ExponentialE]",
    ! T3 n2 r1 g3 T" Y: e! i  RowBox[{"3.141592653589793`", " ", * Q5 S# E' t- V& z7 B' B4 J3 C
       RowBox[{"(",
    - K) Y2 s9 E; F1 T  L    RowBox[{
    7 q" Z' F7 K& Q  E     RowBox[{"-", 6 v/ Q7 c# Y0 @7 f9 L
          SuperscriptBox[6 N  w4 Q0 o2 V( C% M. O) P& ^+ G
           RowBox[{"(",
    6 s; F) d0 ?. G( j' z        RowBox[{
    * C- _/ l" \7 k+ ^! y* D/ K         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
    6 d9 e, A0 B( b- M. D9 |     SuperscriptBox[0 z- h$ U; i  X0 X, x' A" N( n; c
          RowBox[{"(",
    # v. `( @" |4 N       RowBox[{
    8 L8 B  R( S( i1 h  L5 r0 ^        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
    ' Q' f6 s# e' l. L3 z     SuperscriptBox[) [9 d- ]! Y9 T8 f1 C& ^% Z
          RowBox[{"(", ' P( I; V* t0 }0 u
           RowBox[{- y1 O3 E  g0 k
            RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", . Y. R  ^# j$ F. ^8 t( ~$ G
         SuperscriptBox[
    7 A, A: H! [# y6 s2 L0 z4 X- o0 R      RowBox[{"(", # T. M3 R2 c' i4 [+ \
           RowBox[{
    & {7 E) q/ ~$ a3 P        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", - M* S6 {& S  r$ N
         SuperscriptBox[
    2 D5 e% ^. ~7 H& V( Z7 P1 ?! s& p      RowBox[{"(", 8 t% V. c7 h% f! T
           RowBox[{! d7 u* F" x2 p3 ]; W- Q
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
    2 ?: m, f& b3 N* f     SuperscriptBox[; ~; l: I: c9 }* z0 V
          RowBox[{"(",
    3 ~5 r8 K! I$ W1 @9 P+ c       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    # [5 F0 z) X$ \& E4 o) k     SuperscriptBox[
    $ y2 h) u* H2 Q1 b: i" V$ u      RowBox[{"(",
    9 v! U# b+ q8 K- ?! l) n3 H# X6 G       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    , J8 R* H. H  s; z6 y! u) v     SuperscriptBox[9 }* p: g2 o" c+ ^
          RowBox[{"(",
    0 k1 a5 L3 y9 A6 h( b9 ]; V       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ! R; f4 `: Y/ l     SuperscriptBox[5 r, y; d' F5 c  B( R
          RowBox[{"(",
    6 `, q( q! ~) V8 z0 b! _1 K: ]       RowBox[{
    6 v5 p) u) J% v5 i6 F- X        RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
    7 G" z8 t- L) u5 D* e    ")"}]}]]], "Output",
    ' }7 ^1 W( e, u6 Q CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
    % J9 d( t5 M7 R  j, C4 v1 o}, Open  ]],
    ( k% F2 A7 v; ?& [2 g" c* a
    1 W. |4 X6 @7 e* b' B7 Y1 E3 ICell[CellGroupData[{1 L: N7 `0 b) U3 W! c6 B( u6 S

    7 _2 R/ l5 f0 q2 \6 e/ G# eCell[BoxData[{
    1 C1 s/ H, H- }# s* f RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", : q; {8 F* s% _6 @+ h: i
    RowBox[{"u18", "=",
    / [6 b7 w8 t+ `) k* v  RowBox[{9 k. z+ \$ z0 S
       RowBox[{"Exp", "[",
    * S9 v) H3 K& ^    RowBox[{4 {' I, r/ V) o0 ]+ a, T' u8 i
         RowBox[{4 k3 O4 I+ Y: y! f+ Z4 h( A- e
          RowBox[{"-",
    7 B5 J+ u4 w8 J- `5 V       RowBox[{3 C% M& W  k5 b& q( O
            RowBox[{"(", ( C7 |# m" g% r/ o* _
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    8 q- U$ t8 b9 \9 g6 i, e6 l2 C' B        RowBox[{"(",
    ( S$ Q5 T, _( r+ J' n9 q- {         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    % j: }& A2 o/ u- M3 \/ k) }/ |     "]"}], "/.", "DeltaX"}]}]}], "Input",7 w! X/ P( i0 F  x- D  L2 }
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    " w" {% S5 c+ h- _  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
    * ^# W6 \' u! X& K3 |  3.5779615828848505`*^9}}]," s9 G2 h- W' o7 ], P# N
    $ \+ Y/ G) t& z# w; v
    Cell[BoxData[. C" p7 j# O' |" [- f4 G; u
    RowBox[{"{", 5 g" B4 y) N% G* j& D
      RowBox[{2 [/ F% K5 M, Z; f- ^5 C
      "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
    : X" q7 r2 ~; ~* F4 e   "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], ! s6 b/ u3 r; v0 m4 J1 c
      "}"}]], "Output",
    " }& P8 b3 c8 {; }2 @; f CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
    8 b8 W+ V% t- W/ w
    . F! T( N+ }) p! b0 R5 kCell[BoxData[
    ! |0 H; o7 \  C6 Y6 o SuperscriptBox["\[ExponentialE]",
      u! T5 S0 V5 Z, _" }0 ^$ e  RowBox[{"3.141592653589793`", " ",
    4 |: g, }1 X3 x2 m   RowBox[{"(", $ W1 i! \' r3 J, C; L
        RowBox[{: V* S. ^. W* S2 L
         RowBox[{"-",
    9 T# ?+ s" o" |1 L- I% G      SuperscriptBox[+ m+ e; E1 r6 K" z
           RowBox[{"(", : p( v/ M! w* z
            RowBox[{+ ?6 @( O7 Z1 j
             RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 v$ G7 J# C% F7 m
         SuperscriptBox[
    $ _- W& D9 p( B- G% q$ t4 W7 \      RowBox[{"(",
    2 G* Q: n0 ^' T8 a. q- m" Y       RowBox[{! R8 h! B6 }. Z6 |
            RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", 5 P5 J2 ?% E  k: l
         SuperscriptBox[
    8 p( T& q( ^! A) c" {# ^4 D( |7 ]      RowBox[{"(",
    8 S" V( g9 y) _' h+ p0 Z       RowBox[{  c( {! j$ @2 Q+ I
            RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    ( ~. {  U) |9 W$ r. H6 H     SuperscriptBox[; Z: k: S0 X5 R$ D8 w2 Y
          RowBox[{"(",
    / j8 W8 W! p5 q, p* X, C8 A4 U       RowBox[{
    ) @$ J! I% s5 ]3 ~/ D) F        RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
    . w' Q) m3 G9 w( ^     SuperscriptBox[
    ! V- N4 ]% j3 C3 A! ^& D2 g6 y      RowBox[{"(",
    : ^" b) i7 Z/ t8 ~6 s6 U       RowBox[{& w9 `  \0 e; T1 J  f5 y( f3 E' a
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", - S2 j! J( ^) D, Y9 f
         SuperscriptBox[
    6 V# H* _; p# j# U; g. i9 m      RowBox[{"(", ; g0 ^" U2 |5 Y9 c/ e9 f
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    , u& l  j+ u% q9 V+ \     SuperscriptBox[: ^8 w8 b5 q5 d8 A7 q; K: F- c
          RowBox[{"(",
    6 G0 g8 j4 o+ }) L1 W       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", # Q: @& k7 I8 D) V/ `: w
         SuperscriptBox[
    # ?: K) Z3 W# ~& g6 U! d. q0 c; t      RowBox[{"(", ' n# c: l, R+ `- K* Y! _) [
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    & b$ B9 v! X, ]  g4 _- R* P     SuperscriptBox[6 M! q5 `3 u! \" C6 l
          RowBox[{"(",
    ( I1 Z" g6 [* \  @4 s4 R: O       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ) X% k. K( a. S5 y4 i
        ")"}]}]]], "Output",
    7 A7 v, I( J7 q CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]$ o  B  M* l& a' w' ~1 w( H
    }, Open  ]],8 O+ V; R$ r0 l7 ^
    # M9 r7 h5 ]8 o. [( c( j  s; a
    Cell[CellGroupData[{' @6 V1 F3 s. E, F+ Z0 v; w- n

    + |; J# S6 G9 M% h. ]3 wCell[BoxData[{
    & D) r/ y4 O; e7 A) b; F9 Z" C  N! v RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]",
    9 C% B4 g! P* l1 N0 D8 O RowBox[{"u19", "=", 4 K, d3 E9 f$ z3 t3 a3 M" \
      RowBox[{8 L/ b& T1 I7 Z
       RowBox[{"Exp", "[", 2 t' p! W' f$ @# [
        RowBox[{- ]4 i# k7 u7 n( w& B
         RowBox[{! u7 D& L6 h. X/ `
          RowBox[{"-", . ?3 ^/ G$ _4 ?, {) B$ D6 L* D
           RowBox[{7 ~9 n2 s# z# g1 C6 ?2 e
            RowBox[{"(", ; q4 b6 y) A) O2 [- r5 D# g' V
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 3 {! r. W5 L( z% e3 @# G
            RowBox[{"(", & G% A) {6 h  s( C
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],% m( X9 L! U" N8 M. E+ Q" j- n
         "]"}], "/.", "DeltaX"}]}]}], "Input",. S8 b7 @. a6 L+ W( x- q+ v
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
      B: I8 e. F: m  R9 C# f! ^. J  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, 2 n7 w  _& Q; p( P- R
      3.577961588890861*^9}}],
    , C1 d+ g2 P: g5 c8 B3 z; i* n, c. k7 J4 a4 x3 \( g6 {
    Cell[BoxData[$ V" \' y" c' @
    RowBox[{"{", 7 [8 d: }6 {- F3 E! m
      RowBox[{
    / t5 V# {+ p5 f7 [# p+ }2 T  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", * G8 [+ u. {( V* N/ o( U
       "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
    & K, L# Q& P$ m% ^" `  "}"}]], "Output",1 t2 @5 }, J$ |  k) [2 |
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
    ' Z1 E+ f' k0 V% Z) B( Q
    6 k' |# F5 f$ z  l7 d* ECell[BoxData[
    ' o# @" M$ U5 m3 f SuperscriptBox["\[ExponentialE]", + N8 s8 w# N( l/ x* \
      RowBox[{"3.141592653589793`", " ", . H# _! P  W0 Q9 w, B
       RowBox[{"(",
    ) E+ y+ y' F' g# a2 i/ R    RowBox[{$ m! B; E4 I, g! Y5 k
         RowBox[{"-",
    : {: K+ y; w1 d- y, I/ ~6 J      SuperscriptBox[
    . H8 U6 c4 y! @( R       RowBox[{"(",
    " y) Y% y" R% Q3 g( @        RowBox[{* ^# M, y5 s# q/ @$ Q+ O
             RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ' `2 K/ i( R* }% B) p     SuperscriptBox[
    # }: n; A4 l* b2 L      RowBox[{"(",
    5 T' p2 C  Y8 D# T       RowBox[{7 L' U$ i) B' v0 m( s6 k! N
            RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
    ; c: D+ @9 S% E3 x     SuperscriptBox[
    ; }* E- M2 b& ~. v7 Z      RowBox[{"(",   T2 {9 `1 |  h2 \0 i
           RowBox[{
    * m* @) C7 I. D% i        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", + A! K+ z" M' Q$ I" T
         SuperscriptBox[
    6 n% p: W# o, r" a      RowBox[{"(", $ w2 j6 }3 k  D: i( U8 Q$ n3 N
           RowBox[{) m( c3 q8 u: _  [
            RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
    & O! X  b9 i4 ~. Y$ Q     SuperscriptBox[
    * V! p+ L7 v* ^      RowBox[{"(", & A% t8 J6 D8 l8 B' h0 p0 X1 T
           RowBox[{
    : y! o; `4 K  x/ A' |3 c        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-", 0 ^0 T/ H3 [1 j$ C: E& y0 E
         SuperscriptBox[& M4 a' L* O) w4 r
          RowBox[{"(", # A9 G/ |" j$ q1 T" I' ?
           RowBox[{
    0 H. D8 C  s! q. Y2 y        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", " h8 c7 W( G+ B7 q
         SuperscriptBox[
    8 k/ V# \: |( y' ?# q      RowBox[{"(",
    $ E: G, w4 o, l* t) G       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    1 N" e) p9 b% t2 n$ b     SuperscriptBox[+ |  L  _# M3 ~2 v
          RowBox[{"(",
    8 p* ^. b3 h% `! x, d8 w       RowBox[{
    ! N. \4 O% D( l$ [6 \        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    $ l4 P4 H4 i. W% Y; ?     SuperscriptBox[
    , n2 g9 D) ~- |      RowBox[{"(", / M! M, n) w7 ~0 i( N- d
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], " n" V' A6 K7 f6 N2 u' E
        ")"}]}]]], "Output",* Y) Z2 z3 d# k( Z2 O
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
    / F& _: y' h5 a9 j9 _. z}, Open  ]],6 W7 F/ Q# ^/ y" o1 V# ~

    0 _2 m7 @- a! Y$ l6 E$ M8 ~5 i" ]Cell[CellGroupData[{- q* i9 \! Y: p. G

    3 r0 n7 i& \+ x- m$ ?2 G7 jCell[BoxData[{( b- J8 }# h* i5 k: s; t0 k
    RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", 8 d5 V1 B% a, F1 y
    RowBox[{"u20", "=",
    , o7 c/ H+ L1 }' `' R+ |3 k/ l2 z6 o  R  RowBox[{
    : d3 p4 {4 |) w, D   RowBox[{"Exp", "[",
    6 G# G. K1 v3 R! N$ [$ o    RowBox[{$ G/ U, |* h  H% ?8 @
         RowBox[{9 p! M8 r& @6 ?* j  F, |& r
          RowBox[{"-",
    . ]. R6 y, G" W# Z       RowBox[{/ V$ d5 b1 L. E4 s
            RowBox[{"(",
    1 `6 g+ g* c/ Y         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    $ {" c( ~5 h* y& p  l  Z        RowBox[{"(", . u* k$ U& H' i2 O! U
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    : J, f( ?8 I. @5 k8 [/ i     "]"}], "/.", "DeltaX"}]}]}], "Input",
    * W) @( @  p4 b! v CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {, P3 E6 j6 x6 c* e
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9, 6 \5 X; F. a3 T1 G! D" N
      3.57796159382047*^9}}],% G* a; g. H. ~9 V6 ^4 |8 |- l8 h

    % s2 F2 I8 }- F# [1 o  gCell[BoxData[
    2 N' A3 @( ^; L9 @# z$ B5 c4 @+ I RowBox[{"{", ! r0 M# K# t; x5 j
      RowBox[{5 I. e4 m5 w2 E% B' \0 L
      "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",", ) z+ W6 @/ f9 {  Z
       "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
    - p1 v+ j3 M7 [" ~. A6 \  "}"}]], "Output",
    0 Q3 P9 S( d: H  g CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],5 f) ^# N; ^: F0 F% y6 L
    2 E' M+ A, W6 ^/ a* w. T% L3 S
    Cell[BoxData[1 }3 ^1 C& y' V8 S( s& Z3 Y
    SuperscriptBox["\[ExponentialE]",
    5 K0 W) b$ s  u8 a+ x( _0 H  RowBox[{"3.141592653589793`", " ", + |3 n7 ]9 q0 m
       RowBox[{"(",
    / i* \: s8 d8 `+ v7 @    RowBox[{
    6 s* y8 g% R; v/ g     RowBox[{"-",
    , T' Z5 K7 }+ E- I      SuperscriptBox[4 b$ {6 M, @. i  V: v: V
           RowBox[{"(",
    ; o: m0 Q; A8 ]! U2 `; Z1 `3 r        RowBox[{
    - J# r: ?/ O$ ]/ H0 W; J         RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", 5 U% c0 d" y4 K; x. {
         SuperscriptBox[
      S0 Q2 F) S0 C$ e1 [3 g" b1 x2 l' n      RowBox[{"(", & j) {. G; W& ]( v  Q
           RowBox[{! ?+ ?, E/ y! i! e
            RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
    - b' U- _! S  O! x, D) G& a7 w9 d     SuperscriptBox[- S' y, ]4 [, Y$ a. U
          RowBox[{"(", / E9 c- J. G( n0 ^0 u% k* d' o' E
           RowBox[{6 U! @0 o2 Q- n
            RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", , B0 H0 |! |; i% Q
         SuperscriptBox[9 ^8 _+ h  Q" G9 H# ]0 i* l
          RowBox[{"(", . u3 q8 y8 B+ s
           RowBox[{9 x( h2 u! l5 Y: y
            RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-", 4 j: Y9 C7 {* v, |# g
         SuperscriptBox[
    $ F8 a& C7 z9 z" Q: y# O      RowBox[{"(", + _$ ]2 ~' T: I& R# Q
           RowBox[{
      c1 ~8 j8 Q4 m( p' `% l! `        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
    0 k3 Q4 e. o. C# K- q+ f/ |. K0 B     SuperscriptBox[! F/ R4 L* S2 |) {/ [2 F) T$ F
          RowBox[{"(", % ?5 s; r8 u  @1 }
           RowBox[{& P8 N; A7 ~- }$ ]
            RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", ' |  X" d6 F2 \3 E3 s' B1 W' T
         SuperscriptBox[
      ?4 l( h  Q  B/ i4 _7 o7 Y      RowBox[{"(", - R$ R, F+ q  N0 L' o7 x% U* I' M
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    5 _/ S0 Q  J9 g% q' E; U& t- H     SuperscriptBox[9 G; e5 R% v9 G3 Z2 R: l% p
          RowBox[{"(",
    ! f. ?+ E' |5 R) i       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 4 g( }8 {2 e0 k6 W
         SuperscriptBox[7 W' A/ X% t* k/ _5 ~& z, O
          RowBox[{"(",
    6 ~# D4 O: E4 x. Q       RowBox[{7 U4 j+ V* t: W
            RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
    0 [) l; W4 P2 K/ E    ")"}]}]]], "Output",
    0 R7 c8 p2 `0 D. ^% ^ CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]4 w/ {( X9 y, N% h* E) @
    }, Open  ]],( A, H# A$ J! y( ?- j

    # N  i: L9 g# [6 f" TCell[CellGroupData[{
    + `6 r# P: a/ R! u
    . o5 k! V. t/ E9 ?Cell[BoxData[{
      f* `5 N7 h; G6 v! Z% m# Z RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
    0 W5 ?/ H; V1 \% B' V RowBox[{"u21", "=", 2 W$ i; R/ o) d' l0 v$ _/ X
      RowBox[{
    & g$ w% n0 ^  ^" G' a0 `* h   RowBox[{"Exp", "[", ; b+ y3 V% m, X6 V4 I
        RowBox[{+ d& |: x: M0 F
         RowBox[{
    2 q" O+ Z+ [3 Y" k: e; _% ~" X5 n      RowBox[{"-",
    7 L- a- B3 ]9 M1 y$ {! A% |       RowBox[{
    , h& w( O9 j, b9 `: O% |        RowBox[{"(",
    9 x4 l1 B" c* I! u7 o2 n$ C# s9 f         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ' G$ N2 i  r! f: \- J
            RowBox[{"(", $ N9 A1 f' r* Q
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],# {: L0 W7 l- ^, D9 f2 d8 n
         "]"}], "/.", "DeltaX"}]}]}], "Input",8 d+ V8 ?/ O1 B+ t9 \
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    & |8 v7 g3 O8 `* D) o  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
    ! g3 T, z* {8 N. E+ C  ~  3.5779615991556787`*^9}}],
    9 i! G* \, W0 |  w* \% j
    ; Y: N4 U/ f& }2 g6 Q0 i* eCell[BoxData[
    ; ?5 g$ q; L1 D2 N RowBox[{"{", 1 }/ Q3 _4 ^* q: l" o. W
      RowBox[{: l, f: \( s1 P; w# l
      "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    % ]& c! {! ?: p( Y   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}], $ I" Y6 L6 o0 O! l7 T  C- ^! |
      "}"}]], "Output",% N0 ~: y- [/ Y1 X, o
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],. `: [2 Y  q+ V: Y! Z

    $ S/ m' c/ J/ q2 c1 O; _% W* BCell[BoxData[
    ) E* ?, @, ]# t& f! d, Z1 Z SuperscriptBox["\[ExponentialE]", 6 f$ p7 p2 S# w5 u- V
      RowBox[{"3.141592653589793`", " ",
    . F% {  d* u+ b: s6 ]   RowBox[{"(",
    5 `6 p+ u& v- h2 s  W+ C1 J! w    RowBox[{
    + e/ ?& z# y4 t2 k) G8 T& L     RowBox[{"-", ( }) u# g; t: _% ?$ P* c% \3 x# [+ T
          SuperscriptBox[" C; ~" G; E6 p+ _6 K6 Z5 [
           RowBox[{"(", - V+ b" k: y  o7 p5 J
            RowBox[{
    % h3 V; |7 ^5 N+ A  [         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ! L/ \( Z8 X. K& B+ `     SuperscriptBox[  y1 J$ d% t& j. o& i
          RowBox[{"(",   J. B( ~; d$ f, o' ]. \% t
           RowBox[{1 V! z. N( Y7 C3 c
            RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
    9 m: z3 _3 ?1 k+ i9 ~7 i8 w3 [$ h     SuperscriptBox[" J% j8 _8 |' j9 Q( U
          RowBox[{"(",   d5 d/ F* n5 i4 Y0 p0 g
           RowBox[{2 L5 R! L  C* X* [; h7 x
            RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", - a. q/ s) j  w+ ^
         SuperscriptBox[* K& B0 X; A" Y; C
          RowBox[{"(",
    2 T6 e) {& b( g       RowBox[{
    7 G6 o( k* g! B, g5 k& y        RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", ' K5 O: \0 R1 A$ N
         SuperscriptBox[
    * x* n+ F+ E% x  P6 {1 q( r6 C% g      RowBox[{"(", . J3 ]9 ^# `' A1 D: m# Y2 @
           RowBox[{
    / R; Z; u" p5 n8 R: \! i0 ?* [  {, C        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
    ! o2 X: s: l' D) E1 c% d; ~     SuperscriptBox[
    ! A& H( [4 y) R$ A8 b/ t      RowBox[{"(",
    9 u' L% \9 n' r' Z0 i2 T7 ]+ X       RowBox[{! g" d: F8 I+ J4 v" y* }
            RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", 4 O7 q: @8 E# e2 v9 m9 `6 h
         SuperscriptBox[- a+ i; |" n) Z5 t! w7 p* b4 l1 R3 [4 _
          RowBox[{"(", - v) {- c/ W2 r, X! X  A( ~
           RowBox[{
    8 C! w% c) h3 ~+ e* v  L        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", & F+ s0 x! J2 f, E
         SuperscriptBox[
    * X  ?8 d, N/ d: E0 N      RowBox[{"(",
    4 y9 p& T" F4 g6 ?% K       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", * W$ B; p! G: e
         SuperscriptBox[
      ~4 e" ~: P3 o" T$ H6 f      RowBox[{"(", . |# T8 F9 X2 r' S
           RowBox[{
    ( o# A: `" ^& o1 i0 m7 v        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
    & t3 u" K7 h( `9 _3 `/ S, D    ")"}]}]]], "Output",
    1 d; g( E' {7 t- k! A4 c/ m+ k CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]
    2 i7 R4 e) R7 ]/ I; i' V$ C. m7 e! m}, Open  ]],9 s7 Y. y7 `7 Z5 t4 l
    & x6 X5 b+ Z* k* V, i
    Cell[BoxData["\:62df\:5408wi"], "Input",# V+ i6 y9 e, Q' U
    CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
    * Y) r8 u0 m5 V2 e  x" A1 V. l2 ~) v' j$ m4 h8 y* t7 ]: a
    Cell[CellGroupData[{
    5 @1 F% N; l5 x5 k% l/ K4 s5 Y3 ?0 a. d  E: J2 n" V+ L
    Cell[BoxData[6 M; a9 Z9 H, t6 _, U2 d
    RowBox[{"y1a", "=",
    - W- W  H$ M1 `9 H: o8 {9 w3 q  RowBox[{"Table", "[", 6 n5 J% e+ Y) |* _4 @# L
       RowBox[{"x", ",", ; G# c# p" ^: h4 u
        RowBox[{"{", 6 [6 D. v9 w4 M" I
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",6 B- z% t% u5 H3 h7 A0 D
    CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    ! ]6 z; E; C: r% f: y  3.5779226649375*^9, 3.5779226810625*^9}}],
    6 Q" _  f! s: g( h+ o; G) D/ Z! j/ R+ D
    Cell[BoxData[+ F6 s0 p- R1 F; S& {( K4 x8 A
    RowBox[{"{",
    7 r, W) P5 a1 y+ a, A; T3 L  RowBox[{  T7 U* X9 H5 z$ o
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ' `1 i7 [) t6 ?8 r' Q3 D% L9 o* S) D
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",- c/ Q1 [" m& B  K" i$ H1 K$ G
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", : X1 ~# I9 B8 o6 s7 d; m0 J# _
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",   S0 G6 @" Z. M9 y
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    " @: _2 c3 a. N8 U8 F9 x   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 4 f6 p" a' }5 `7 }' O
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    ; I; g$ E" A# e" P% }/ M" D( O   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 9 P1 l$ L; \' `/ u8 U* v
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], - K5 B9 F- H9 r3 J6 ]2 _
      "}"}]], "Output",6 a% ~$ ?% k. B! p$ o+ S/ x7 g/ u
    CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
    3 z7 p/ d& X0 k  p! I: p3 I  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]; [& c. |: H  T, F  ]
    }, Open  ]],+ N1 Q- |6 _1 w' F
    , A2 p# K3 ~/ a! S2 A- b
    Cell[CellGroupData[{
    " O+ z% {. @, L! l2 z+ X/ G! D
    0 b# R( U; {) C: E5 z9 ]) ~Cell[BoxData[
    6 u8 l0 S1 |1 v0 T7 ^9 a RowBox[{"Data", "[",
      \8 X' O2 |6 ?0 _; R9 D& S! Z" Z% Y  RowBox[{"[",
    7 i7 Y/ r0 s0 P  x   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
    9 B7 r: U+ E. \& N CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    1 B% a5 q; j1 g   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],. D& ^6 k( [0 M; a& R8 [  }! i

    * z: [. t5 y! r: e- K& gCell[BoxData["0.899882`"], "Output",4 m) R9 B$ [3 L+ Z" ?
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    3 B4 i$ n% F. c4 z: V   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
    - a" S6 {( `9 h4 A   3.577961929080654*^9, 3.5780123419375*^9}]
    # ^' z! v: a) y+ d0 f/ s}, Open  ]],
    : l; q- a, @4 `5 j6 ]
    ( Q( q: \9 n( x2 G' V: ZCell[BoxData[
    & U' S  X% ^8 R; {4 k RowBox[{"For", "[",
    ! G6 s! {, d7 ~' p2 O2 \% }9 i- _  RowBox[{) L6 M9 F6 j: o) q6 G
       RowBox[{"i", "=", "1"}], ",", 7 k2 J  D( ^7 F# |9 I$ X7 H/ o
       RowBox[{"i", "\[LessEqual]", "60"}], ",",
    " Y' _2 l# g: v. \" A+ V3 w   RowBox[{"i", "++"}], ",",
    # e" p, B6 C/ A; ^# X; q: B   RowBox[{
    & |; u: I0 @4 t+ h' \6 ]) s* t" U    RowBox[{"y1a", "[", # f/ Q; H; S" d2 b+ P! {
         RowBox[{"[", "i", "]"}], "]"}], "=",
    ! u) P: c7 ^9 S- B' y    RowBox[{"Data", "[", 4 B! A  \, R( s- C% Y8 j9 C
         RowBox[{"[",
    ) z3 e# l7 D* t- ^8 R' r/ r  q6 ?      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",5 p# L2 m" M' `- Y- K
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {) W1 x* W8 w/ ~: M; A! h+ j9 Z
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    & w5 |2 P/ C$ E- p  b1 h   3.577922923203125*^9}, 3.5779588839702806`*^9}],
    * |- z3 c3 n6 Z$ Q5 P6 r; |% @; s2 |8 A2 W4 d. M6 S8 A4 f
    Cell[CellGroupData[{
    ! W' A8 C, C6 ~) ]; n& D# p* T
    . D' w3 B# y7 p! hCell[BoxData["y1a"], "Input",
    3 r) C) L9 g1 H3 N- P6 Q7 Q1 N) n CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],# t4 q. V* [3 _) i8 [
    ; K9 z$ f% P$ k% S0 s8 n/ |
    Cell[BoxData[
    ) s+ v  c$ g$ g, J! |+ x+ y2 \ RowBox[{"{", ' j. c& I) v7 x( D7 o, ^
      RowBox[{: L/ d% l8 n# T2 P; N8 Y3 }% G7 E
      "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",", 2 O* F6 f9 }# D
       "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",", . ^0 O$ r  [4 g2 J6 C$ u9 Y
       "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
    ' m% x/ a+ G2 y( t- p4 H   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",", ! ~& F/ p/ ^: ]' v6 o( h" ?
       "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
    : l! m! f. A! D( P9 n   "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",   q% c3 e$ S! q
       "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",", & I  X2 ~7 ?8 B5 }7 @* ^
       "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",", , j: [3 k% S3 a+ y  x: F
       "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", - \' c# `: u% C) d& M* O
       "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",", * B7 V: W7 Q& b
       "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",", ) v3 V( Y' d# g' ~# x; {) H$ x
       "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
    6 h0 N9 p$ v$ o  e: @   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",", 8 E5 v3 Z" B. u; s9 w# {+ [  c
       "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",", 9 P$ A5 z" |; T
       "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}],
    " @: h7 W: O/ \! i- C  O9 o  "}"}]], "Output",: l. x. h" J3 j; O9 e
    CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
    " T8 S) \1 @$ k5 N  g  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
      i/ ^& i' E! [; ^5 j% A$ _$ _, d9 K' ^}, Open  ]],2 Y, k( r4 X. Z( \) h: r

    & Y* d1 @8 x- n8 xCell[CellGroupData[{
    4 ]4 B% @. _; o" V) }# p3 R5 _- h! U! b! {
    Cell[BoxData[
    : {9 g9 ?: C+ x" `, ^ RowBox[{"m60n21", "=",
    3 ^8 D% B4 ~+ ]- i  RowBox[{"Table", "[", 8 |( H/ X9 p" u, M$ Z! {
       RowBox[{* Y" E- H* r+ K, j2 a4 _
        RowBox[{"Table", "[", 6 D) s+ j; P% ~5 E( d. v6 j
         RowBox[{"y", ",", ( J' J3 T" @5 J8 {, V& v2 I
          RowBox[{"{",
    ! G8 e3 f, R6 s) g) R. I       RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",", 5 G/ f5 u2 b- U: t4 ~0 A
        RowBox[{"{",
    4 E% J- ~6 @7 R! q+ F# e     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    % o+ t& d& g, T# m' w3 q" h CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {& l6 v& o4 D+ e% n: q3 }# m
      3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9, ! v1 t( E6 r* _. q
      3.5779619706547265`*^9}}],% f  X$ G, c* s4 A( W

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

    / F& k) m+ b  ?Cell[CellGroupData[{' J7 t" T1 E+ e
    ) c+ m) r4 e2 k) H  q
    Cell[BoxData[' r. Q9 Z* g) K
    RowBox[{"w1a", "=",
    ) h9 l' G5 R  o  RowBox[{"LeastSquares", "[",
    . d( k2 _/ M& y9 A   RowBox[{"m60n21", ",", "y1a"}], "]"}]}]], "Input",
    7 d# l7 R- c/ B, U) h. P  n1 j. w$ l CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {
    7 j. @" S* y- q# U  3.577924662765625*^9, 3.57792466596875*^9}, {3.577962074644508*^9,
    9 a4 J+ R; L/ g+ H  3.5779620748317084`*^9}}],
    3 n/ k* T0 p) }1 a) [
    + ^; E8 n$ b1 x7 M; V3 ~Cell[BoxData[
    % c% K! X: J) }' N) Q RowBox[{"{",
    ' o; N+ r/ J; W' `2 \/ g  RowBox[{"0.32564305572552416`", ",", "0.500820838606441`", ",", * i5 N8 J  V, `0 x3 [$ {
       RowBox[{"-", "0.5945873894818967`"}], ",",
    4 V% W" _& a/ S$ o. o, T) g8 d   RowBox[{"-", "0.1999688587779198`"}], ",", "0.020180806675835994`", ",", , N  z  b) S5 v, T( c/ V/ _
       RowBox[{"-", "0.03345934908892623`"}], ",", "0.25282438852646905`", ",",
    9 o/ H# k3 J2 ]1 ^6 n: D0 y3 l   RowBox[{"-", "0.17602467625404622`"}], ",", "0.3961180670900672`", ",", 4 p1 ^! O* I9 Q" \0 [. u5 Y6 ~
       "0.02759193650965952`", ",", 8 b# W1 A) p* Y3 h4 p
       RowBox[{"-", "0.320472847796449`"}], ",", ! o) @7 M. h8 A( C  O- l) X
       RowBox[{"-", "0.07581214474544527`"}], ",", "0.4812237524557292`", ",", ! k( h2 o1 Q" J
       "0.7528674241482847`", ",", "0.6665374509702799`", ",", # S1 {" M9 M  @  ^
       "0.22861495086373018`", ",", "0.13092706311748484`", ",", & g  |% `9 h+ \" B: \  K
       "0.5252475961933538`", ",",
    ( u3 ]" J+ }8 q9 P- ~' y   RowBox[{"-", "0.10599338351843157`"}], ",", "0.6670272593678526`", ",",
    ! x9 y$ G' u% ?) r9 e- R   "0.23580523388620733`"}], "}"}]], "Output",
    4 \4 A! f+ a/ W7 |8 S+ A CellChangeTimes->{3.577924621953125*^9, 3.5779246688125*^9,
    / u/ |' P$ B$ P3 h# A  3.5779575884583836`*^9, 3.577958952875601*^9, 3.5779620806661186`*^9, & J+ f! A, K% J1 f, M0 O0 ?/ k* e
      3.578012349875*^9}]
    : o6 H/ O  H6 I- ?6 ?}, Open  ]],
    + d. h; k* j" q7 S1 ?) O4 X. G7 |; n9 d
    Cell[CellGroupData[{; U- {+ N% o+ n

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

    # X; G. C$ Q* K" S/ B6 i" {Cell[BoxData[
    % f% N* p& A4 t5 H% [* z" k RowBox[{"{",
    0 p& Z2 S% k- T$ a6 w  RowBox[{' D* ~* u0 c: H) I) ?  e
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 6 T& A& b1 H" \4 p1 J/ ~  J
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    # G8 }4 Q- F# v* ?8 V    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", & {- h8 ?) J0 o/ d
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    3 Y4 V  |- B7 s1 F- g/ Z" A) V3 q9 x2 Y   ",", "29"}], "}"}]], "Output",! ]5 q5 Q! [; l8 p# n5 K8 v
    CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9,
      z- a) d4 x$ r' `5 f* _3 ?  3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]
    , O% H, k( C7 H0 J* q}, Open  ]],
    + l: ~, i( m' p1 h
    ' r. t' V+ J9 ]3 w( HCell[BoxData[% y/ Y: V- X% c
    RowBox[{"For", "[", ) T* Q9 W( S* U% k( c  o& u/ v
      RowBox[{
    ) P8 S9 H+ K- I" V: j$ |   RowBox[{"i", "=", "61"}], ",", 8 Y/ J' `6 D$ H; c; n. ^
       RowBox[{"i", "\[LessEqual]", "89"}], ",",
    ; E2 Q$ W' B4 p' M: i* m7 y   RowBox[{"i", "++"}], ",",
    ( R5 z! z; k5 [% h   RowBox[{
    + O2 v1 B& M" s$ Q4 F    RowBox[{"y10", "[",   W, b: `/ r+ y" E2 |+ a# y
         RowBox[{"[",
    # w- ]5 J. F: J) t! ?( j# f      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
    : v4 h0 s0 r! O    RowBox[{"Data", "[", " b7 z; J6 L/ |7 }2 D5 Q4 B
         RowBox[{"[",
      x$ T8 L  V3 I6 ]8 _+ q      RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",3 Y8 ]' L7 p, u1 I- b" |
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {2 C2 D5 w7 h  _; V; q0 h
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, 2 b* Z, ?3 e4 J3 U
       3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9},
    # s6 ]' Y& o' l4 P   3.577958922549148*^9}],+ Y: z% n! @  F# K: x

    ' s  Q1 C6 |' C6 ?0 @; b% K. i; ^Cell[CellGroupData[{
    2 [+ `4 h  j9 e. a
    - W6 X0 ]0 A% _/ v4 p3 s5 p7 ^Cell[BoxData["y10"], "Input",& @* h% D* V: |# y3 y
    CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
    ( m! R& W+ l% K. q  s& L# ^   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],0 m4 W! q8 ]4 z( a- l( d6 O& l; P

    2 v3 m2 g* P- ]8 d) k4 R4 Y: D, \Cell[BoxData[
    % j7 H; y4 I) P4 ? RowBox[{"{", , g4 V. p5 U& x1 Z& j3 g
      RowBox[{, C, ?* @; X7 y% `) x
      "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",", 8 i6 A) P( u4 S
       "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",",
    % g& b: }0 H5 b$ n4 ?! x! K, q   "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
    ' ^! Q+ w1 Q6 _   "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", * c  T8 {4 L- v1 k' `9 ^' Z
       "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",", ' i# q. z. F1 d
       "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
    * i+ ]! l# v% m' |0 u3 b/ B   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
    ( `7 @# b$ |  N% a   "0.694935`"}], "}"}]], "Output",
    1 F3 s' y+ s! c5 Y; Z CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, 3 ~! _% @% z& m1 B& y+ o3 k/ q" @
      3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9,
    + f8 s  \- Q& Z3 J) L: y# ^6 o: a  3.5779621736734805`*^9, 3.57801236071875*^9}]$ ]; [( m  g) N7 w8 k
    }, Open  ]],$ e& q) |' |/ r& m; m

    : c8 ?* s- u5 p7 N% f3 y0 H- TCell[CellGroupData[{) n4 W" J' s4 z' ?9 D* D' k- U
    $ E9 w1 k+ N$ ^. y( d" L
    Cell[BoxData[% v, y& n! h9 f% q8 o; A7 |
    RowBox[{"y10", "=",
    ! ?' p5 Y2 R$ H' A  RowBox[{"{",
    ' ~# \9 I& ?' H6 o" j" z. q! F   RowBox[{# s1 _9 M* H% S2 i+ X
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 3 W5 I4 W9 ^2 G
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 T5 s. n% g$ t4 V9 N; z2 i    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    % Y) c3 c4 P4 u0 E, w; a& [    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", & K% B- P9 _. d; F# }- h. v
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    9 W" h9 V. n: z8 I( h, \& G: p+ L    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", : _/ ?: s: i( T
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    * D/ p9 k9 z0 X4 y    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", 7 X* X  z" D. F3 C2 e6 f) K, O( Z/ p
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", 9 {2 H" J4 x8 B$ o0 r
        "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", # T. x! b$ o! u5 Z9 `
        "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",",
    6 S, O/ i- j9 d; b( M/ s" s7 i  u    "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",",
    * b% ~# K5 ^# h    "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", 0 W  E4 i" V: J
        "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",", ( f) i# Y& c1 S" |7 g! z( ~: ^! N
        "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", , C: A8 i1 L* K" }: y5 }9 ]4 t" r
        "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", / m  o+ j, Z. H9 ?# |% Q5 N& `
        "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",
    9 U( L& q# b5 i8 i0 D" ^ CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],
    ( L9 h6 q) Z- O8 i
    ( S6 r1 v  [* W# K1 T1 x! j% eCell[BoxData[
    & Z5 A# K. y! y1 Q/ \3 r9 | RowBox[{"{",
    7 S4 P( m5 q4 |- k$ C% @: u  RowBox[{
    1 e- ]# y1 v: ]) h$ j% k" u+ j  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 0 Q. L& a9 `4 d% L9 r
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",' O, l. p* j! Q) F+ l$ s
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 7 j: N  w9 Q) \+ J
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 5 M2 d: }4 Y  R- U) U
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    7 {3 L1 p8 R# r- s4 j8 U   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 6 v8 w: X" T& |, c( G8 p
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    4 e  c9 c/ D/ _( e- E$ E" r   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    / |5 |# P* K; v) Y% V   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`",   ]/ o* p$ e' K3 {" Y( L* E# r; H* Z
       ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`",
    6 A/ v1 z$ K$ p   ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", 6 V* b1 Z. J4 y, ^1 z
       ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
    * k, k) B* K; q% ?    "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", ) j  V4 r8 V2 w* N
       "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
    1 U8 n8 k; r8 g2 {! A   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",", / m8 o, u" o1 P$ E
       "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",", - x$ C0 s7 Q, w* E
       "0.694935`"}], "}"}]], "Output",
    ; T4 F5 o  C. c CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9, . i0 N* Q7 [! Q6 T; a
      3.578012361734375*^9}]* N( y6 e8 k* n4 G  t' ]7 A% M" `
    }, Open  ]],; f4 A4 }# o' W! p9 D

    ; |) T6 m) q; w, _8 hCell[CellGroupData[{& U, p& X$ R( R& V3 u9 C9 ]8 m
    - J0 U5 g( l  F9 C( N, z
    Cell[BoxData[
    * _* C0 e7 p% ?3 G- B: ] RowBox[{"p1a", "=", " i, U9 z/ t% a/ B# E3 O/ p
      RowBox[{"ListPlot", "[", 9 g% d4 h4 [8 r" o/ D
       RowBox[{"y1fit", ",", " h* H3 q8 I9 \7 \5 r% f
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", ' D9 R8 j) c  |: ~2 H% Z5 s% W
        RowBox[{"PlotStyle", "\[Rule]", . v- ]4 a$ C$ _0 \( h& M( e+ F( \
         RowBox[{"{",
    ( t) q% O3 t- a+ |" S      RowBox[{"RGBColor", "[", 3 J5 @& p) L9 e# q) _
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
    , _! J. I/ ?1 A/ ~2 |& J" _- c3 ]    RowBox[{"PlotRange", "\[Rule]",
    0 ~( \. O2 P* v1 j# G* I0 u( ~     RowBox[{"{",   W* T4 F3 \. g2 ~  m# A3 H
          RowBox[{+ w, E1 z6 Q4 V7 d! t4 Q7 J
           RowBox[{"{", ) o* P4 L7 \) }' u8 z
            RowBox[{"61", ",", "89"}], "}"}], ",",
    6 p9 Y8 y( t6 v5 n       RowBox[{"{",
    5 I# h8 K. L- O: T5 w1 B        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", % R$ R) I0 p4 a. r/ H
        RowBox[{"AxesOrigin", "\[Rule]", % N' W6 t2 ]+ y, {$ M1 w
         RowBox[{"{", # m3 A/ x9 A. x1 Q
          RowBox[{"61", ",", "0"}], "}"}]}], ",",
      l0 F9 o; M, V    RowBox[{"Frame", "\[Rule]", "True"}], ",",
    * R. z' y2 O( O! S    RowBox[{"FrameLabel", "\[Rule]", 3 R- y$ L. U# `9 s
         RowBox[{"{", ( q* S9 }' H$ H- h% E5 c$ G' n
          RowBox[{
    # r- j/ a# I( ^3 i9 l( ]+ F      "\"\<\:7089\:6b21\>\"", ",",
    - U+ i! I/ g' I' r) _, U9 Q1 c       "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    1 j" q  I  ]" R4 W$ F: u0 y\:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",
    + ^& k: L5 l/ s8 J" {: n CellChangeTimes->{
    $ Q6 ^) f8 L* a- o  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
    : k* x% t% \  b! ?/ t, e* R  N   3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9, 1 a0 |) T" z5 y5 f2 R0 }6 Q) q3 m# }
       3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {$ F# c1 f! Z+ {" ~* \
       3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],
    6 G& M. d1 b1 x& T
    3 a. Y- a. k$ Y. T' mCell[BoxData[
    " A0 }/ M' L  n# ~- \8 Z8 s GraphicsBox[{{}, {}, 5 ?) V# H- {. c; P* Y! Q* d0 K
       {RGBColor[0, 0, 0], LineBox[CompressedData["3 ]# e0 w5 o# r/ i6 F9 W. \, l% A
    1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn$ }' z3 ^& b5 y9 _
    8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq, W$ ], S  c- R) m+ c
    D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
    5 t8 I3 _! J2 _" H1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX; A) j$ I& p! {' @/ y; K0 ?
    C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
    : X& _# I2 g9 L3 G& Ea2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff, U2 z/ j0 K0 m4 k6 t# U$ {
    yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb2 i2 D; k7 y( X5 m6 I- |" `- `# s
    wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
    ; ~/ w) s0 H" N$ QY6nGQ3sAieueIw==, d' ?6 h. v: Q8 _, K1 I% G
         "]]}},9 C# F2 B$ P! M/ O
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],/ w3 P7 i! H. Y; G  K7 g# K# Y
      Axes->True,
    3 l# b& W; a/ e* u- y% {% t  AxesOrigin->{61, 0},
    1 O: |, m0 d: K, t* V( o  Frame->True,# z4 t! I- a) Y( [9 s5 q* q
      FrameLabel->{. p8 s% R; y! L  B
        FormBox["\"\:7089\:6b21\"", TraditionalForm], % E: c( u4 m+ |% d' i
        FormBox[" Q5 o4 K( G' g& z( j, g: x! T$ O3 Q
        "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    / N3 B3 L- [1 U$ u5 W* \: Z0 _\:ff09\"", TraditionalForm]},# K: w& W8 T$ W1 h
      PlotRange->{{61, 89}, {0, 1}},  n, n* c6 q9 O, _# j8 z
      PlotRangeClipping->True,. h9 U( ?" l. t$ z' w( }# o/ b
      PlotRangePadding->{Automatic, Automatic}]], "Output",* D- ]6 k( i9 c6 ~; N
    CellChangeTimes->{
    , a# b2 L5 \# w$ L# S  3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9,
    " i; K; u9 V8 ^4 R   3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9,
    " ~! o$ D% j* }! ?: z. p   3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9},
    0 _  S1 j6 n5 I' p/ l2 `   3.577962187510705*^9, 3.578012396921875*^9}]" o- k1 L- y1 c+ G8 N2 g
    }, Open  ]],' _( J, K' _* J- K2 f% Q1 g
    ! u+ |) M1 V1 n7 W% T
    Cell[CellGroupData[{
    2 Q2 A0 j# n( C; I0 l
    + ]1 t) V% I% I- zCell[BoxData[7 f: C1 ?3 M& E9 [( @* K& s7 C
    RowBox[{"p1b", "=",
    # ]4 k) T+ I5 G3 Q  RowBox[{"ListPlot", "[",
    9 J# h0 a1 }. [: H' ^   RowBox[{"y10", ",", / q) O2 Z, v  r3 T& v! U. Q& K  _
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 1 R! o/ u, |4 B% F
        RowBox[{"PlotStyle", "\[Rule]", * d( F" @9 Y4 {* d. N' V) M/ b
         RowBox[{"{",
    , `0 }- I- ?! v      RowBox[{
    ' t/ S* G9 ?) D9 `       RowBox[{"RGBColor", "[",
      @* D3 x$ s' U) w        RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    0 }& [1 A4 u4 v) }6 b; w" ~9 o    ",", # ^0 k1 j* \" x4 r: |4 a5 o
        RowBox[{"PlotRange", "\[Rule]",
    ' N: d: E! B6 }1 F     RowBox[{"{",
    3 r; A& g9 f& _      RowBox[{+ v# H* d' Q/ Z+ ^; \4 S! _0 m5 S- K
           RowBox[{"{", ! |3 j- I* x  q, I. p, M* U
            RowBox[{"61", ",", "89"}], "}"}], ",", % W  V% P/ m6 _
           RowBox[{"{",
    + o, }+ C2 o5 `) G: _( t        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    4 @1 G3 h9 B/ J    RowBox[{"AxesOrigin", "\[Rule]", , z. n+ J  q% o5 p+ t( x
         RowBox[{"{", & l2 L6 S) A. v# R( |
          RowBox[{"61", ",", "0"}], "}"}]}], ",", ) j! |8 Z! B" R
        RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",$ |7 I; z5 J1 w( j4 ~5 d
    CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9, 4 h1 F8 g  }1 z5 p* K
      3.5779597764166365`*^9, 3.578012409265625*^9}],
    5 z: l- u: r( }# P( z; s9 |' C# w
    8 I% C" N- Y7 c9 p. R1 D6 \) BCell[BoxData[5 h& t% d4 ?! H
    GraphicsBox[{{}, {},
    : q1 Z5 _, B7 X8 K1 J! u   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    + L4 P0 ^& y6 O3 n* H1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ- V/ `3 a9 u/ w) j0 o* k  u  y
    /B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
    , P9 R3 b$ S) q1 s& h0 y% UGwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
    + D) ~9 g+ }3 l$ `GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy& \7 P8 w3 ^) ?( o
    7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ// D# Z" x% y- j+ H' [7 A+ z
    Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
    ( w6 [- {6 V2 f* ~1 b7 \7 e4 jH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
    / L8 I6 [% e* drQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
    4 M4 b) P( H! a/ P0 pvA==
    0 S/ B! i% F1 U$ ]9 d. U" I     "]]}},5 Z) t8 R* ]+ a& M. t+ Y9 {
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],- |* w; v, e5 Y* r4 ]
      Axes->True,
    , N: P$ n. p8 h+ D. L/ b6 {/ F5 M  AxesOrigin->{61, 0},) Z6 t6 S8 n5 h% X7 x+ L7 \: u5 w6 Y
      Frame->True,- h; \1 {7 o$ S: q
      PlotRange->{{61, 89}, {0, 1}},. M/ [$ ^: J) n& l8 n/ ^  d
      PlotRangeClipping->True,
    : v& T8 D0 e1 J$ H  PlotRangePadding->{Automatic, Automatic}]], "Output",  T3 d. d! }( |: k' M" M
    CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
    1 h1 p) S& I1 }  3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9,
    8 Q0 Y1 }6 U9 B2 a& Z6 l! X+ `  3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]# `, C8 A. f. Y2 g
    }, Open  ]],
    & q! l" U0 D( B4 C% q1 o. ~  ]1 e9 X+ H# W
    Cell[CellGroupData[{
    ; ^$ Y( W# d5 q; `0 n& c0 R7 `3 {: {& `* K1 V( i
    Cell[BoxData[
    2 t: Z/ ]; u, N* U( t6 {4 z  g RowBox[{"Show", "[", ( j1 }" H: w5 c( E( R: _1 T
      RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],0 W7 k6 F- B5 e- z, W

    . ~! [9 P0 ^8 Y, K$ `Cell[BoxData[: I! V; P" ?- S+ `5 {3 X, P$ J
    GraphicsBox[{{{}, {},
    ; y( \+ L2 w; s5 _* I    {RGBColor[0, 0, 0], LineBox[CompressedData["
    : y/ u. }# e# D8 ?+ r' C# G! @9 K2 F5 V1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
    $ B6 l* w9 M* v$ Q8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
    / F3 _, _) R5 u) eD3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B# f9 z. @+ k/ K. p
    1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
    ) n6 m) @( T& d' _, D) `4 [C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
    ! e4 H" \; k1 ^, J* p' O' R2 Ra2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
    ; n1 F- P9 r' B6 G* |* `yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb0 n2 m% j+ P; H' ~" C
    wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
    : g, X: O/ F! q2 @, x4 X' _Y6nGQ3sAieueIw==- n0 K2 _! S5 w. Z; o1 o* P4 ~3 n
          "]]}}, {{}, {},
    7 ^" x' m% V5 D    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    + j3 h# B- r6 R& o( O1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
    , w# y1 _& y# |  v# P& R; F/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
    8 }! L5 M' l; q5 I0 n% ]GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy& J/ ^8 _+ G- f1 \; H' j; {1 H$ p
    GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy9 y5 `, J) D/ a5 c( R; T
    7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/) M, J: M* C' u3 m
    Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri* [6 L& V3 ?6 R$ @3 T+ N
    H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
    5 J: O5 ^9 }1 @4 `9 E* crQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
      D8 t' o) B2 _vA==; y" m% k) A# Q$ a  d
          "]]}}}," q. j1 B6 F& J0 G7 Z
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],4 t+ _6 U0 c: Z( S4 s9 z
      Axes->True,
    " Q; u2 a) L% G* ?9 }  AxesOrigin->{61, 0},
    1 \9 o" q( F( e# G2 k) W( u# O0 p  G  Frame->True,- `* X! W2 n# }7 f# b
      FrameLabel->{; {/ J* f! x) n! l6 c0 Z, Q
        FormBox["\"\:7089\:6b21\"", TraditionalForm], 5 @" x6 N8 ]! _3 C3 J
        FormBox[1 B% i( L- y5 x7 M0 ]
        "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    $ i8 m1 g2 |1 Y- J; p2 G\:ff09\"", TraditionalForm]},
    # U# W9 _; ?+ T4 t4 Q  PlotRange->{{61, 89}, {0, 1}},
    5 E6 l" m" z6 Q) d& z* I! M  PlotRangeClipping->True,
    9 F# C4 G" N9 i  s  i  PlotRangePadding->{Automatic, Automatic}]], "Output",
    5 y( s) Z. g+ G3 ~% N& z! ^ CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]1 A5 c7 M3 H0 }
    }, Open  ]],
    ' t. R! `# m( @) c2 c! P+ Q
    ) A( g2 J* `: c: h, d8 eCell[BoxData["\:62df\:5408wi1"], "Input",$ M) H% @" c7 n- T# _, X; ~" q
    CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9},
    * R+ \! `# Z- m$ q% k3 A   3.577959662349238*^9}],
    : c, n' j3 Q; I  r# ]" B% m
    1 m% V3 o6 W8 q9 ^) \& BCell[CellGroupData[{& m- j& t) ?5 I" [) L

    $ c% Z8 [' h* x4 d: N. d4 nCell[BoxData[
    " m# f  F6 C! H) l2 f7 I; X RowBox[{"y1b", "=", ; \3 ~( M# b$ r; e( |$ r+ _. v! E
      RowBox[{"Table", "[",
    $ d0 S2 Z8 S4 t; r* G   RowBox[{"x", ",", 6 d7 C; K5 Y6 ^4 g5 X
        RowBox[{"{", * B7 w" Y4 j; Z  D
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    ) Z4 Z. L5 I/ D4 `* o/ R CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {' u- m' g' h4 W# K0 j; v- ~0 v
       3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],
    & x# Q4 Q* s( d
    7 ]. A- s  V* k4 Y( C8 ACell[BoxData[$ M9 s0 N) Y& }$ A
    RowBox[{"{", / u1 f7 d" n7 y" r8 B; s
      RowBox[{
    . K3 w( H$ B% U% P% [' g- h  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ; N: C5 `, J: Q5 V
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    9 `( M# G  ^, ^) b8 S    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    7 G6 G  Z# I6 J. e   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", - i- e# s1 A, F
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 9 E3 s$ ^, g, k4 |# w2 H$ i1 Q
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", ! t! y5 n  [* [7 g$ a7 W( p
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    3 h% D# g0 u2 }9 w" J   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", . {' b6 p( ?. t7 S5 {
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
    $ G. H. K( E! A) u3 a& B& t  "}"}]], "Output",
    ' g1 G: t. c! O1 g" c5 p# }7 C3 P2 C CellChangeTimes->{
    4 s/ @  r2 V8 f7 k8 q4 [4 n  3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9},
    : Y# R, |2 l& T6 E/ W, i   3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9,
    ' E. Y8 S2 j( d0 f/ `   3.578012438953125*^9}]  W% U* p! ~9 ?6 M. `
    }, Open  ]],1 b7 Q# R% _( d2 q

    + l+ ^, b6 E* `4 g" D% G+ MCell[CellGroupData[{
    0 \! Y  B$ n# v9 ~- ?( O6 G
    / S/ k$ e* m0 f9 c0 k2 `3 UCell[BoxData[7 b8 I/ h. t# h% n! n+ c
    RowBox[{"Data", "[",
    ; ?: C9 }! [7 e; k+ x  RowBox[{"[",
    , |+ l8 z! Z: m   RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",+ d+ a9 }1 f2 {* c4 v3 C" c( x
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    0 [( g5 S- t8 y. e6 s   3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {
    0 L. I6 m1 C5 l   3.577959014090108*^9, 3.577959016040111*^9}}],$ ^) W9 X, b1 r

    / n, ]5 ]  }& T5 t/ T5 B: V0 o( h7 YCell[BoxData["0.492958`"], "Output",
    ! r# Q; k! u& s: S! p CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9}, " o& M& q: `  W0 W& H8 m  K
       3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9, 2 x# B0 P, H' Q; t2 V" C0 x, e
       3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]
    # p( k, q' {0 r7 Z" f5 j}, Open  ]],8 J3 W# `+ A8 s/ Z- ^

    . B6 I) p! u  gCell[BoxData[  Y8 R: m* n4 \) ~7 u  N0 @0 H
    RowBox[{"For", "[", 3 h' H' t- D0 g/ [- M) u9 o* B
      RowBox[{
    4 o; E' q: r+ W1 Y   RowBox[{"i", "=", "1"}], ",", & u3 t. O; Q* p8 t; O% K6 B; H
       RowBox[{"i", "\[LessEqual]", "60"}], ",",
    ; m" S1 i3 `  W' d, S$ u. b   RowBox[{"i", "++"}], ",", ; E& g" y( b2 D) F- S( n& U
       RowBox[{
    3 P1 d8 ~7 U! J  V$ M. {    RowBox[{"y1b", "[",
    8 ?( y( D5 N0 N1 Z$ q     RowBox[{"[", "i", "]"}], "]"}], "=", ( \7 U: t; ^+ ^/ a
        RowBox[{"Data", "[", * k# P; ?4 J8 Y2 m/ Y$ P  H
         RowBox[{"[",
    % ?1 _% Z$ d9 m& G      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",# a; L: x( f9 O1 n
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    7 w- V& h, N! b( C7 R. Y' i   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    + T6 f* O8 V5 P- r" I   3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {7 z5 t/ \6 @; S( D/ W# m
       3.57795902089172*^9, 3.5779590227793226`*^9}}],
    ) U0 _% `0 `" n3 o+ A, a4 M6 {% d8 Y
    Cell[CellGroupData[{
      e# k/ I: T: Z/ t+ p( Y+ V8 w5 F2 W5 T/ y
    Cell[BoxData["y1b"], "Input",2 F4 Y# U/ u! }
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9},
    $ l- E: p& V( S6 Y" ?   3.577958484172784*^9}],8 i9 \0 l! n8 T

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

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

    ' T3 L! M1 k6 \! J0 A- qCell[BoxData[
    " s9 G: h0 i8 \* R2 _ RowBox[{"y2fit", "=", & N  `4 F2 X8 ]9 F1 ?
      RowBox[{"{", ' {6 X& _' ?+ C5 O" G! j  _* n
       RowBox[{, Q* T3 H: r9 M) Y; L$ D
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 4 N' \' p' w7 S1 ?% d% p
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 |6 i  @! Y' B; y4 B    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    + c" H1 T2 \, h# w    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", * C& M3 G) ]$ m" a4 n! M
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ) ~1 A* V: M% P! ^1 w# K1 N
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    3 ^& @0 E" |1 r! w8 o* e6 L    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    ! b- m  ^  |% c9 W2 B    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    . M" ?! r  }) L7 L4 x% y2 s9 h) ]    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", % @" U3 a4 s1 k2 e1 s: z1 M, h* Q9 D* r
        "0.48531711328591953", ",", "0.48531711328591953`", ",",
    0 \. n" K' U5 V    "0.45086352166650845`", ",", "0.36421192417525217`", ",", . U7 z* F  l" n/ z# q  a
        "0.4285207742559556`", ",", "0.4712694272667811`", ",",
    # @6 r& A( h7 w9 a  V& e$ i5 A7 z+ z2 D    "0.5257533056184786`", ",", "0.4862065814071623`", ",",
    3 [0 Y3 H. B, m$ m3 f3 P    "0.41106838915592014`", ",", "0.5486894206610683`", ",", 2 J" ^3 u* S- U% d4 H% I
        "0.007731168540073532`", ",", "0.013872406140339166`", ",",
    6 Q0 o4 I% _5 }! E    "0.3956995051659565`", ",", "0.3663118256142717`", ",",
    : W/ Z4 j, V: ~4 [    "0.29094217358055185`", ",", "0.5453093690736568`", ",", 3 `) u9 e: V2 D) s' z. n
        "0.4413889888077799`", ",", "0.42944922031163585`", ",", ' `9 \1 f$ ^5 I0 ~% U+ A3 B. M
        "0.4309289055674891`", ",", "0.5942402821739983`", ",",
    8 Q" r3 ^" u6 l! ?0 f8 ~    "0.33004609078545805`", ",", "0.18938658036630632`", ",",
    8 y" U6 n; H+ m0 @9 \+ a4 D    "0.4263720292858688`", ",", "0.23377136184738778`", ",",
    2 b5 m2 w/ ]# x0 Z/ v5 K$ T    "0.022328581933099827`", ",", "0.24436420008426807`", ",",
    6 U8 i; y2 F. Q  ]    "0.5562383565309981`", ",", "0.13114103402954314`", ",", / A. R1 D, L& r2 T$ l" ~2 w
        "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input"," v0 A" N" ^& D! g. }
    CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {
    9 }! ^8 y& Y$ H. S. ]9 S  c) ]  3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9, + j4 O# I% r" X! s5 T! @! k
      3.57796233957977*^9}}],
    : U  U5 B6 g* S. M
    9 Z% A# d: X$ f! \- t5 z* V# P( eCell[BoxData[' O0 s! L$ D0 Q' `
    RowBox[{"{", 4 O: P. s: J* F8 q' b# }1 D
      RowBox[{/ ]- ?- Q4 d. a' K5 f  \* M
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # U# I: l% ~# ]* g! T   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15"," W/ t. w$ n2 |# W1 i
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", ' k& l- b: k$ b
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", . y9 Z. w) g* |0 w: c" N
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    ' \! i& ]$ @& X5 ?/ y  D' o  w   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 9 N, |* s& P$ c. [- x) U; O! Y# L
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", " ?. y$ }, m/ e5 _
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    9 P6 ]8 D5 n3 H( Z- i$ X8 l   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    ) p8 O- c0 k3 o" l- J6 j   "0.48531711328591953`", ",", "0.48531711328591953`", ",", 4 z4 @7 x* a$ s  q% `
       "0.45086352166650845`", ",", "0.36421192417525217`", ",",
    5 B! @2 g/ N" |3 r; [6 i   "0.4285207742559556`", ",", "0.4712694272667811`", ",",
    % j' g6 H6 p0 W   "0.5257533056184786`", ",", "0.4862065814071623`", ",", / e  P4 f" i; G5 h. X3 M8 z& y% N
       "0.41106838915592014`", ",", "0.5486894206610683`", ",",
    - A& o( F5 `* }   "0.007731168540073532`", ",", "0.013872406140339166`", ",",
    7 p6 e7 I& B: |" [   "0.3956995051659565`", ",", "0.3663118256142717`", ",",
    2 T  z3 H! E7 D( n   "0.29094217358055185`", ",", "0.5453093690736568`", ",",
    " ]) ^6 i& e. ?8 r" e" V0 Q   "0.4413889888077799`", ",", "0.42944922031163585`", ",",
    ) L5 p; c" v( G# g% M$ @6 p1 \   "0.4309289055674891`", ",", "0.5942402821739983`", ",", & ^! @* D" A1 D/ G* }2 R
       "0.33004609078545805`", ",", "0.18938658036630632`", ",", - Z6 Z. E1 O4 O3 z$ J/ M4 M
       "0.4263720292858688`", ",", "0.23377136184738778`", ",",   j) G; R! U; j% R: I
       "0.022328581933099827`", ",", "0.24436420008426807`", ",",
    3 P- z6 n: _9 D: x( a) |# o& f   "0.5562383565309981`", ",", "0.13114103402954314`", ",", ' J) O8 o. d9 |# N' U& N: d7 D
       "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",
    6 @- D- |+ y* W3 a6 s CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9,
    4 a! t, H$ j, I3 a* T/ ?  3.577962342060174*^9, 3.57801245340625*^9}]
    + i; E3 p; a. C}, Open  ]],1 Z1 s2 F3 B: B6 q4 e+ F! `

    , O& T; n5 T0 c5 r- E( c% cCell[CellGroupData[{
    , t5 U# l9 e( W1 Q6 F8 X1 |$ }5 `. d2 p
    Cell[BoxData[
    & _' m2 F) ^$ B RowBox[{"y20", "=", / n* d1 {% a% w6 S0 W0 ~( X
      RowBox[{"Table", "[",
    ( s; W; D! I4 y. J% I   RowBox[{"x", ",", * @8 u3 x! N! m2 I& t, u
        RowBox[{"{",
      X( g0 C; C! X* V' {7 X; D     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",' j9 [6 j9 R: N
    CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],: e" C4 w/ w; c$ n4 y/ ?
    , D2 c" H1 q* G) n5 ^
    Cell[BoxData[) n6 p& R" Z" ^4 _
    RowBox[{"{",
    ( h6 h# @% s* X6 t  RowBox[{0 r9 k9 q6 C7 G. v4 T. P
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) F1 f: s2 a9 {. `2 E& X. d   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",2 Z' ~7 ]4 O( H4 V" g
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", " f# |6 u9 ]1 n) d* ]- s) m
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 4 @* D( P# k' I! ~& n2 D3 l% q) }
       ",", "29"}], "}"}]], "Output",
    & p& R0 J! K8 A/ b CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9, 4 t/ l4 m. l1 F
      3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9,
    ' ~  H: s4 w/ v- _9 F$ N3 g9 k  3.578012454875*^9}]
    * W+ l( t: t5 ?0 s! ^5 g' O}, Open  ]],' ~2 ?1 |7 T: x1 w) F; q

    4 s/ m4 g) c- _8 L  zCell[BoxData[) f! _& Q3 ~( b7 ~7 J! c
    RowBox[{"For", "[", ' U; v5 {6 W4 A$ ?# @" n+ }( h
      RowBox[{$ r! z# ]  K- N/ l- B1 {9 ~
       RowBox[{"i", "=", "61"}], ",",
    ) J# _6 y8 f7 c6 {6 M' w' t4 E   RowBox[{"i", "\[LessEqual]", "89"}], ",",
    7 _+ \- U' U, V" p. A2 C9 q. m   RowBox[{"i", "++"}], ",",
    . r6 k1 m# Z5 E% d0 E) A3 R   RowBox[{
    - N$ ^  L% f# w) D" {/ |3 V    RowBox[{"y20", "[",
    , o8 H: Q( _/ V+ a# h     RowBox[{"[", , U9 h0 L% c, U, m
          RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
    ; g0 D: C. L& b! f6 I( ?: }    RowBox[{"Data", "[", % J! l) T$ ]1 v6 O! Y2 h! H3 [4 n' h
         RowBox[{"[",
    . j$ _$ ]) q1 K* o$ m, w      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",( x3 ~) ?$ S' m- @2 I* a7 Z
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    / d/ i6 K' A7 \6 F% |: k  3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    8 o; v6 v' q7 ]6 z6 F+ s% {  3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {
    4 _8 L, G8 E& z8 D/ W, o# P0 `  3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9, $ t3 s' D) I8 v3 s/ b
      3.577959058690585*^9}}],) n* Y7 {* p( l( r- W) B1 {

    7 y3 g( u- H. T6 v) i3 X$ TCell[CellGroupData[{
    3 \  _1 y" k4 s: j
    # B5 J9 B9 I# a7 b! H$ bCell[BoxData["y20"], "Input",
    4 y2 m( P9 h) z& P CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {, Y- R* \" t8 M6 d$ g
       3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9,
    - p6 }3 z8 d2 {7 l- T   3.5779583657841773`*^9}],
    * K+ b/ u4 W" }; B/ u+ V
    # k! X2 w1 o% @Cell[BoxData[
    : r/ |7 \- ]. i  w4 J: M9 S RowBox[{"{",
    5 z0 {8 O$ `+ b3 T/ e' X  RowBox[{
    % V0 Q, ?& E* m  "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",", & e" t7 z. M0 \; }5 d: }5 \) g
       "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
    ; D  d: [- ~: R! u   "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", 5 D+ ^5 c8 J  i
       "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", ( Z; N$ d, N' d
       "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
    8 o1 d* {! G2 s4 T7 F* i$ g8 \' p   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", ( S/ n* ^& Z  S' V% x
       "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", . Z# C4 d7 G/ d' G* ]
       "0.323944`"}], "}"}]], "Output",
    4 [0 c# l, C6 o7 B3 @ CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, . l  D  ]# n$ f7 [8 Q9 r6 `/ D, a+ U
      3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9,
    ; m/ N* X7 n; s, t$ q6 A  3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]
    $ j% j% C/ q$ s1 X( b/ H}, Open  ]],
    ! q) I) h3 g* P0 W: n% [2 \
    3 B$ H6 H9 \/ @3 A6 m& _Cell[CellGroupData[{
    ; _  T2 m* |1 S* V7 U, G# A
    ' a! y, q- ]* Z9 L: u" ~Cell[BoxData[
    2 x9 _7 `' U3 }$ t RowBox[{"y20", "=", / y2 }3 U$ j8 ^+ F% E/ N) n
      RowBox[{"{",
    0 Q) z% V2 w# U0 N8 T1 G   RowBox[{
    9 v$ B) e! {1 X. o% {8 A   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & f' A# k- [: E  f( g7 n) l' h; {    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ) F6 ^0 D" K5 ~    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", / j' r3 d- n4 G$ [- D' D; G" P9 G
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
    . F; h  I+ i0 N" P8 m% W" `- K# G7 r    "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    " K4 M7 M6 c$ F  ^( f# n/ e- q0 F    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    - ^' _4 P3 h% U, y    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
    + L6 }$ z: S3 k$ }. B    ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    5 V# ^; r) Q  u/ v    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", . t. K% x9 i$ f( g+ _+ I
        "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",",
    / R* G9 p& W3 Y2 S' b    "0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",",
    ' f7 C! m4 Q* C9 t    "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",",
    3 Z$ ^/ U; G5 R! L" R5 {4 i    "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", - s) K3 E) Y2 X+ Q' O
        "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", " w: r1 t+ |1 j# j- a) x! R
        "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", 5 I; |* o+ r( X; Y2 U
        "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", ; w2 e( l7 c: H4 i( e
        "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",2 n  h2 X9 N3 S7 n; Z
    CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],4 P; a4 P7 C3 l9 q. E) r
    0 P+ I" X! q2 ]+ F/ e; M
    Cell[BoxData[
    6 l! W+ p! m+ s0 |8 G1 c$ z3 a RowBox[{"{", / [0 L( W4 \: Q
      RowBox[{5 h" v" f  V  W' t# l9 d& ?
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", " ]8 K0 H  g) ~
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",5 @" R; K& w, \3 E
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    : A$ z4 p6 e  B5 ]  d& R* u; J% L   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    0 x; C% Y7 Q3 ^& d$ j1 u   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    % B, ^( \7 f5 a/ }3 J. u7 q  G7 o   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", . q* y9 U. X: r" U
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", ) @3 K: d  Q5 k+ C) p* r
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    / ^  [0 X1 ^$ C) D, e2 `   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`",
    - y/ N  X+ A) n+ S; ^   ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", & o# @* h* Q) s! d! `8 R6 _
       ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",* U' w/ J( w6 @9 l2 O5 N- ]
        "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", 2 [; A% j1 N8 j3 m
       "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",", 9 L" n: g# h; Q& Z' P
       "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
    # H- F* c8 B6 I   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
    ! L9 s/ ^. ~0 x3 U* e% j/ V  F   "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", 4 S' V; t, G+ C
       "0.323944`"}], "}"}]], "Output",
    * p; h$ k: _5 L9 Z# i; S/ e* @: V( ? CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9, / R/ S7 [! l! D& J& w" y1 [: Y
      3.578012457234375*^9}]3 @. U/ c" ^6 K; J
    }, Open  ]],
    ( J- v/ E9 |( F+ {+ F, ^) r( {: e1 d8 x! p
    Cell[CellGroupData[{2 z9 ~# x$ b4 C" A+ ^$ r. ~$ i7 l

    0 E) p, O9 r( F7 dCell[BoxData[
    ) M8 K, ?/ _+ w/ b* S; b RowBox[{"p2a", "=", - ?+ k* D6 U- N) H; \! C- G: x
      RowBox[{"ListPlot", "[", : l0 I! m0 T0 c* S9 [9 ?) U0 I
       RowBox[{"y2fit", ",", 3 ~7 \6 c7 O" X+ g- ^
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", 2 P# F, y5 L/ C4 s5 m$ @
        RowBox[{"PlotStyle", "\[Rule]",
    / g; x9 _2 H$ e3 h+ Z2 e     RowBox[{"{", 0 i  w# z: ?+ i, T
          RowBox[{"RGBColor", "[", $ D' l2 O4 H+ v
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
    ' E( I& w  b: k: ]. j1 ?    RowBox[{"PlotRange", "\[Rule]", . `: x8 m3 R5 u9 ^6 C0 @) g
         RowBox[{"{", 4 e6 F9 U4 ~& P0 z1 `  t' z
          RowBox[{
    3 B8 J- `: x9 Y, y2 W       RowBox[{"{",
    & k, l, C+ K) p        RowBox[{"61", ",", "89"}], "}"}], ",",
    7 {6 K9 N6 |; S# Q2 h( ^. f       RowBox[{"{",
    ) C3 w& k) o8 s4 v3 s/ z  u        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 4 i- i3 L' N1 D( N
        RowBox[{"AxesOrigin", "\[Rule]",
    $ k' ]4 V3 u4 A& @     RowBox[{"{",
    / [) U4 h3 H! @7 [$ @: ?      RowBox[{"61", ",", "0"}], "}"}]}], ",",
    2 z7 j4 `4 |$ H  ?' C    RowBox[{"Frame", "\[Rule]", "True"}], ",", + Q$ T4 V5 ~+ e* T1 t- W2 O2 n9 Z
        RowBox[{"FrameLabel", "\[Rule]",
    7 M0 D5 z( W6 ^8 w     RowBox[{"{",
      f/ o% E9 A/ }  G5 S: a      RowBox[{
    % P' H3 g, m0 y0 A) F      "\"\<\:7089\:6b21\>\"", ",",
    , Y1 h! c" q! \       "\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\
    , z- N1 D* h9 t- P9 `\>\""}], "}"}]}]}], "]"}]}]], "Input",- C/ H6 j, }7 a4 r0 Q9 b* T
    CellChangeTimes->{- c: p, h" G4 t1 B% T
      3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {6 X0 V! X- j& z$ G: G& n: H# _" ^# I0 k
       3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9,
      {9 Z4 H8 Z& Y1 J: ]. g   3.5779585491624975`*^9}, {3.5779592802577715`*^9, * @) Y- J) k% P$ ^8 r6 d9 l$ C
       3.5779593014270086`*^9}, {3.5779594039971876`*^9, ) l  }9 O1 U3 u8 D: h
       3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {
    ; b" G' I9 e% `; ]( ]( A   3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9, 5 V: ]3 F  H8 y) U0 Q0 g8 l
       3.578012920859375*^9}],9 V  \' d5 v; g# |6 u: B5 b
    . t+ l- |6 n% K* }+ G+ V1 M
    Cell[BoxData[, E8 W+ X  v% C. d
    GraphicsBox[{{}, {},
    0 j  L1 `9 Y$ r% D# N3 _   {RGBColor[0, 0, 0], LineBox[CompressedData["
    # v, B; b- t$ d& e) [) i7 s+ O1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
    . @7 e. W' y$ e/ D( s! i' K8 h/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ6 f$ p" p& ]7 Z7 d- U+ N
    9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
    5 f' T( o2 q  n" F6 d" [; W4 v" IofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
    $ Q5 M- }/ ~  F$ \+ s& f# u, S) f9 PqPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
    6 o1 c7 P, A2 v% q1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
    # h$ P" W0 \1 R3 G  R0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
    % P4 j" m+ C7 ZsPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
    % k( j9 Y* e7 P+ }" z2 H99yxuG0PAHw7nyU=2 z, K' g& r$ U, P% n* c" ]7 T
         "]]}},8 \) V  c1 @  U! G
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],  L( x6 D6 V( _; Y6 k+ w
      Axes->True,+ b4 o$ m) I0 }5 q
      AxesOrigin->{61, 0},
    % j8 M5 F# w3 j. l  Frame->True,( }+ O5 |' f' Y# ]1 B
      FrameLabel->{: Z  G. {( a$ Y4 e6 n
        FormBox["\"\:7089\:6b21\"", TraditionalForm], " |8 S: a6 d" N1 l" _0 b
        FormBox[: y# U& A; N$ q0 x) b& z+ w/ j
        "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", - p. P! S* z% H5 V. |" q
         TraditionalForm]},
    1 m" K7 V5 ^6 `' O' R9 t  PlotRange->{{61, 89}, {0, 1}},8 N3 R3 g9 P& m0 h2 D! Q$ U( b
      PlotRangeClipping->True,
    ; W$ V1 M: D* N: Z8 ~  PlotRangePadding->{Automatic, Automatic}]], "Output",4 s# l& W8 F. [* r9 t1 @
    CellChangeTimes->{
    ! d4 t9 Y! b$ i. G8 p; l$ o  3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9, 8 ?4 T1 f7 `/ ^+ h5 b1 W
       3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9,
    - w7 `3 w& T3 `- V1 f   3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9},
    ' e/ C+ T0 c  {4 D: @8 D  D   3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9,
    ' j( l- e" I& s   3.57801247209375*^9, 3.5780129225625*^9}]& s- W# Q% ^, l3 E, ~# j1 y
    }, Open  ]],
      a" D$ x/ O0 e; i$ P& u8 t" o
    7 A- L, J  \( {# A* {Cell[CellGroupData[{, a0 F* [3 L! I

    , I1 m/ D1 B- V  [! q2 CCell[BoxData[
    9 ^( l; Y4 G! M RowBox[{"p2b", "=", ) L8 a9 V! z% D7 ], X
      RowBox[{"ListPlot", "[",
    1 V+ o0 o9 I  c1 S# J/ }   RowBox[{"y20", ",", ) v9 J' Q; i5 s9 S$ [- |- J
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    6 g' e; n7 h1 c, A! J0 M3 x    RowBox[{"PlotStyle", "\[Rule]",
    + V9 p2 \6 j" Q# W( f' {: f  U     RowBox[{"{", * w. }3 Y: W) W$ C( J
          RowBox[{4 j9 B- T8 S3 d  l
           RowBox[{"RGBColor", "[", & H/ \  Z; Q! n; _" Z* f
            RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
    # z) }/ G$ e! d- l  v    ",",   f( Z7 O) m. X- }
        RowBox[{"PlotRange", "\[Rule]", 3 \7 r5 E& l3 s9 {8 B! K
         RowBox[{"{",
    - {6 l- N2 q( x1 W" W. H) g8 q      RowBox[{
    6 ^7 i) ]+ D  s1 U* r7 Q% X       RowBox[{"{", 2 [- F* u, e+ |; s1 O. L
            RowBox[{"61", ",", "89"}], "}"}], ",",
    + a' ^! a/ W7 f! @6 W+ W3 J" ]9 n       RowBox[{"{", & k/ ^& A4 z: a' m9 X! Z
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    4 X7 n/ F& H+ s3 G" h2 w: F* p    RowBox[{"AxesOrigin", "\[Rule]",
    9 S6 z- e2 p% T/ R, Z     RowBox[{"{",
    - |7 R! l& f2 ]7 Y8 x$ T" @4 D      RowBox[{"61", ",", "0"}], "}"}]}], ",", 0 V7 F, K! ~3 ]
        RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    ; Z5 h. A( c! o1 F8 Y CellChangeTimes->{
    7 E  O6 P0 t$ y  3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9},
    6 h1 F5 ^1 z" w0 w$ f) M   3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],9 L5 h* d! o; E( T7 M

    # p' @- ]; P  u: ~& SCell[BoxData[
    9 A8 o4 p- y$ S: s9 `; G+ a& q GraphicsBox[{{}, {},
    + Y, s  n! v$ B8 C8 `   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    6 [" K% p: m/ Y9 @3 ?* d1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn8 z  V) V; R# f
    8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV5 j1 h/ y% Q, x3 t3 y2 F5 \
    c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc6 _" U" W2 d3 \, j( x& t
    iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk42 H9 G8 P( `* q% [5 f; L
    TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
    5 F- _+ b9 R& r' j$ NfzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
    , w/ c, r! f+ `' ]' `& KTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
    - u) |$ }+ ]5 f& u7 ip0OYg4Fg/tz63VfsAdsCnzU=
    6 H9 P0 N. N% a: a* t0 Z     "]]}},
    " i/ ~# H, O) Z! m0 N) ~  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948]," ?5 N  l5 F& U, u+ r! c& J0 e
      Axes->True,
    ( ^# T1 P' P6 ]5 |* j  AxesOrigin->{61, 0},0 c# X  [' F) X5 P: z5 T! q
      Frame->True,
    . m$ U  O: r! I' c+ [: A# J  PlotRange->{{61, 89}, {0, 1}},; @# T9 J* V# e2 V4 y
      PlotRangeClipping->True,( v! r9 Y& ~9 a1 g# u
      PlotRangePadding->{Automatic, Automatic}]], "Output",8 f+ f# P, P; s; ^, T+ n' i3 @: b
    CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
    ; U/ y! W1 K; t. q  3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9,
    , a7 j0 ~& l1 |* q8 h% d  3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9,
    - L0 `+ M5 \( s- w3 y/ P. Q, g9 d  3.578012484703125*^9, 3.578012925875*^9}]) @9 u. b* H' S' b, g; B2 j
    }, Open  ]],/ s0 ^; _" _* h; X; y" {) ^

    ) p( i; `* u9 m, z) fCell[CellGroupData[{
    * A6 c" k) I! v3 Q; q5 ]' B1 y" D4 ^$ ^
    Cell[BoxData[8 D6 h( [$ @2 c! N7 L, S. q
    RowBox[{"Show", "[",
    ' x$ P  e2 D8 |2 q  RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],
    ; B8 X7 s( I; \7 k& _* M5 g: g1 f
    Cell[BoxData[
    / V% C2 L& R4 l( e; I$ t; O GraphicsBox[{{{}, {}, ) d& {6 g* e( ~7 t- }. F- q% W
        {RGBColor[0, 0, 0], LineBox[CompressedData["
    " J3 b$ h, i2 A0 T6 S* m( f1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM7 L! ]& y( f1 E  j) }6 d5 F! K6 j
    /g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
    3 h! a" ]. X3 R2 k. Z1 s9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P* V  y* c6 _+ m" L: G
    ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC0 {5 \" z& @" A( e* `& H' e7 h! t
    qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
    ; _; o; i$ m. A+ ?! H1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx8 t  B# Q* \; z" O+ L- d' k* ^  l0 k
    0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1% p  b- d' u! D/ M: U
    sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH9 d9 D- Q5 ?9 Q$ {* ~( I4 u6 [
    99yxuG0PAHw7nyU=
    ) O7 c  ?: ]& {1 N, |      "]]}}, {{}, {},
    - u9 C% t) k' V9 x6 ?    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    ( R; a: y  w, i5 A; C5 {7 F7 p1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
    8 e! [% Q) N! q/ s# t8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV6 Y4 b! X  ?  |6 u- {7 O6 A3 n  ~
    c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
    , L8 x1 l& p  Q7 f3 M) AiX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
    # x* v2 W8 P+ y# G- nTZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO4 U1 G) d( e4 w+ w" K
    fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
    4 E4 _$ G3 |* n8 x1 NTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
    & k7 E/ H+ v' J, Op0OYg4Fg/tz63VfsAdsCnzU=- w5 Q4 y% @0 k3 m9 }
          "]]}}},
    . N5 h# L% ^* D+ g, d  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],/ ]) ?- G# n6 K! _# _5 t) u
      Axes->True,
    1 k1 B6 h; ]- n  AxesOrigin->{61, 0},
    ; P- F) j8 R5 y2 V  Frame->True,
    $ J8 m: Z2 m) t2 P& u7 Z* ^  FrameLabel->{& q+ T/ _) L/ j- i2 u6 f1 j
        FormBox["\"\:7089\:6b21\"", TraditionalForm], ' T' O$ e+ R( X+ |( r" F! e4 a
        FormBox[
    9 @" h$ M5 o: i/ ~7 S7 Z    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", - \4 _8 V2 n; W  n
         TraditionalForm]},8 f6 i2 Q" k, T
      PlotRange->{{61, 89}, {0, 1}},0 m; @; D  g2 w" x% P
      PlotRangeClipping->True,
    $ g. u5 y$ s, V, a9 n  PlotRangePadding->{Automatic, Automatic}]], "Output",
    ( k* _% P. D4 v6 p CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9, . E( `: }- ?- o) H! t% T( o
      3.578012927734375*^9}]3 `+ q3 M! f" M' ?+ j* K( B
    }, Open  ]],; [8 {) E+ t' p5 X

    4 }9 p# P- K5 O6 f4 V& gCell[BoxData[
    , E5 U  u) |# Y RowBox[{"\:ff08",
    / A6 A" v1 C2 V1 Q; Q  RowBox[{
    4 ?; V8 Z% F! g3 A  "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406",
    8 g4 C! ~( r3 C9 l   "\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621", 1 `9 H. m& Q% b- b5 w
       "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208", 8 H) r% }- o0 C5 R  R; F3 \9 [
       "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0",
    8 Z, y7 j, _) [/ \   ".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\
    + u* t  N# i- J# j\:4e3a0", ".6224", ) m/ G% H- z) }- i( g! B
       "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],
    * Y6 {) s& p+ e   "\:ff09"}]], "Input"],8 w0 R5 U, W5 O1 I2 {

      h: m7 W4 F4 X, l, m, D% E, |Cell[BoxData[
    - n# ^. h3 F0 L2 X8 }& o RowBox[{"{", 5 V7 \5 X- ]( D
      RowBox[{2 G6 E; g7 X3 ~& h/ Z; R
      "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",",
    6 ^) K% m4 [  |+ V   "\:5439\:6c27\:91cf", ",", ; X9 Z+ {' ?. N% A" r* _) e  k. D
       "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",",
    # X+ N, T* D5 d- w$ v! V1 K) M   "\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",", ( |; ^# ]9 |6 A' e7 F
       "\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",",
    ; f3 @# D' C6 b, ]   "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",",
    9 t  ~2 g+ ?4 P! R* u   "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",", 5 G# s, P9 Q5 |+ g2 |
       "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],
    0 _6 c. T: M3 E: [$ Q+ o6 _$ D5 j( W+ J1 h% r. A% C
    Cell[BoxData[" "], "Input",3 g/ N4 r9 [7 J" ]9 J6 Z0 T
    CellChangeTimes->{3.577962834553033*^9}],
    : Z1 i# R, f% Q; q
    9 Y3 c# R" x: `7 A2 g$ J! X/ nCell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],8 f3 |5 L: l* G- |6 R5 U' U! |

    7 D* Q# T% M  |0 @5 ^' ?Cell[CellGroupData[{$ B' I$ G" f, n& N+ }3 |$ o
    % \6 A. t; A8 M) n8 g% \
    Cell[BoxData[/ T! h/ A/ A' o7 ~5 O( T2 V2 }* c
    RowBox[{"y1", "/.",
    7 i. A  Y3 z! T  RowBox[{"{",
    + r$ `( t$ k4 z" ^3 {5 ]' ^   RowBox[{
    : n. N, F7 H/ j    RowBox[{"x1", "->", "0.7406"}], ",",
    ' \9 z7 T3 u2 @1 [9 u# f+ M5 S    RowBox[{"x2", "->", "0.4621"}], ",", $ O5 D' S: `, W% F
        RowBox[{"x4", "->", "0.2221"}], ",",
    ( O% v+ u! X9 ]- g* b6 Q    RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",
      I$ Z! n" O1 W3 I; z CellChangeTimes->{{3.57796267209435*^9, 3.5779627224200373`*^9}, {2 p' w8 h6 g' T# v3 Q8 H
      3.5779627663029137`*^9, 3.577962774820529*^9}}],! s6 n" A. G- m# j# H+ y7 z% I
    6 A4 j4 t$ [* c7 a9 I+ X
    Cell[BoxData[: n1 A. b6 b1 B( t9 u
    RowBox[{( x9 H5 g8 g* m: s* ?& L+ E
      RowBox[{"0.2286149508637297`", " ", 7 q$ V5 E# ~# K4 H# c9 L" c1 n
       SuperscriptBox["\[ExponentialE]",
    " `: j5 `9 q7 T( P+ @4 O    RowBox[{"3.1415926535897936`", " ", + {/ y2 r2 a, p% z
         RowBox[{"(",
    * y% r1 |$ x: Z3 M6 Z8 j* o% w+ y      RowBox[{
    . i' t$ u, y1 {9 O/ j, Y       RowBox[{"-", "0.17911224641499998`"}], "-", & ~, J1 _7 d3 g- K/ ~- M
           SuperscriptBox[# a; W: N* {8 u7 @6 l; O/ M* `
            RowBox[{"(", " L& f$ _% ?( J9 x7 u) U$ G
             RowBox[{# C7 l" [. Q  b
              RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", # n9 _) w( \0 {$ E$ f
           SuperscriptBox[
    9 d3 x9 o6 r5 |        RowBox[{"(",
    7 _+ `3 I- i) v) N% u  N. k         RowBox[{' ^" `4 ]1 @3 j9 O6 I3 o% u# Z
              RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
    6 S. _8 a2 t( _: e6 }2 C. G       SuperscriptBox[' l# C- g) N9 O- e* `
            RowBox[{"(", ( ^* N, |4 {& C) |; v0 p
             RowBox[{. z' f: b1 n- i) I
              RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    7 \$ X3 T/ k/ Y, T  @       SuperscriptBox["x8", "2"], "-", 0 y6 r6 O0 u  a1 Y* Y) `* c
           SuperscriptBox[2 D/ Q* K9 o% [; N4 w) t
            RowBox[{"(", 0 C. h5 ^  n# F. H! @& {
             RowBox[{
    7 q) c) C0 I7 X; b8 M  b( C          RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
    ) u4 p  @% r* h3 _8 x' O  RowBox[{"0.020180806675835994`", " ", 4 ~4 U! F- {, j; Z8 I7 K& i
       SuperscriptBox["\[ExponentialE]",
    ( Y% b8 L3 |) A7 R' S    RowBox[{"3.1415926535897936`", " ", ; Q* ]4 e* I* z, d1 ~: B- B+ }
         RowBox[{"(",
    + ~' [* ?$ M* H; |( k1 U      RowBox[{- T1 R) X# |) M  E2 s" l, `
           RowBox[{"-", "0.105619387859`"}], "-", 2 R: y' e7 t5 c. H/ X: o4 U
           SuperscriptBox[; M  T+ L  M' e4 B3 }" i& E( z
            RowBox[{"(",
    2 ]& ~0 {/ V, V' J; Y- Q         RowBox[{, d/ L! X# z' X0 O
              RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
    ' t; A3 P& ]! Y* J7 m       SuperscriptBox["x6", "2"], "-",
    7 `  Q+ A0 ?* u" S5 R7 M3 \       SuperscriptBox[4 R1 Z/ G2 N: G
            RowBox[{"(", ' a, x) ^4 f$ q- N2 `
             RowBox[{
    ! N1 X  d1 e% t) d          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    7 @3 O9 g% T( |5 t       SuperscriptBox["x8", "2"], "-",
    9 x! L6 @" Z2 I/ J) B! {3 Q       SuperscriptBox[9 d8 v% B  O& |
            RowBox[{"(",
    $ x; T/ |" _1 j, k' n4 X- K4 G         RowBox[{
    - ]! i) W4 e4 Q' D5 A7 Q  U; u4 b          RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    ( e! G. {7 n. T5 T! P- n$ n5 T  "+", 7 L- N7 d. f) H2 E% P, T
      RowBox[{"0.13092706311748437`", " ",
    " \6 K" e6 [( n! J   SuperscriptBox["\[ExponentialE]",
    ) l7 t! `2 w1 b( y    RowBox[{"3.1415926535897936`", " ",
    ; r' g2 U( l& L     RowBox[{"(", + Y6 ]* g$ L  V- m
          RowBox[{6 s- A: s5 w( L% l1 L* G; R1 c0 W
           RowBox[{"-", "0.236605670085`"}], "-",
    % W9 _, E5 |5 _  i% r: z% k       SuperscriptBox[' I; B0 ?: T0 K0 W& [- E# [) S
            RowBox[{"(", 1 H( q6 z4 S! s# P
             RowBox[{. Q  Q+ l! G3 f8 _# ^4 q
              RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", 9 M0 n. {' Q; t# K  m7 R) d2 d& U
           SuperscriptBox["x6", "2"], "-",
    ' H1 |, f+ P: t4 u/ q3 n. `3 ^       SuperscriptBox["x7", "2"], "-",
    7 G/ M! O- n* K) t: j4 J3 u       SuperscriptBox["x8", "2"], "-",
    ' D) z- E& ^4 m) n       SuperscriptBox[* {) B3 Y6 G! X" [
            RowBox[{"(", , S- `7 V# u* J8 P: z1 W4 k
             RowBox[{) r8 i- z' a" \$ |& o* ~7 C
              RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    5 G& [, Z( [9 E- G  "-", + V- h& _- C# U. Z/ Y+ \
      RowBox[{"0.033459349088924784`", " ",
    4 C5 M; ]% `6 s/ V   SuperscriptBox["\[ExponentialE]", , y0 U. r( x" q! Y0 [# O1 J
        RowBox[{"3.1415926535897936`", " ", 5 M% b/ H& d$ B& i8 i
         RowBox[{"(",
    ( \9 I( ]9 G6 J      RowBox[{" o7 ^5 e2 q6 ]' |2 `
           RowBox[{"-", "0.46221081830200006`"}], "-", 8 V* n9 A1 G8 }: ~
           SuperscriptBox[
    / F4 i9 P; v! |2 F$ f( A        RowBox[{"(", & k# I0 T8 c$ c, t9 n) z
             RowBox[{
    6 K, z, Z6 w7 E3 n/ _% g          RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
    : D. |5 ]! Q0 i1 H" I8 w       SuperscriptBox[
    ' q, F# v+ V4 Z- X0 g1 K        RowBox[{"(", # R. k/ U& |# q  c. q8 C2 E
             RowBox[{' W/ J9 l) N) x: r& G
              RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
    ! z' v( I' U4 w2 o3 ]       SuperscriptBox[
    + J4 A0 w, X3 ^% Y, U, T        RowBox[{"(", , F+ Y" k) G; d
             RowBox[{6 T+ y  k' L2 }, P  x& g* g+ k/ r$ q
              RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    , n$ J3 ], |# p4 O5 L       SuperscriptBox["x8", "2"], "-",
    ' j1 p* f5 U' c' K, @" e       SuperscriptBox[8 y& {- @! k& u' f. u
            RowBox[{"(", & l6 d3 E3 L5 `9 p1 g4 f" p
             RowBox[{1 _% S9 l4 C9 b/ L8 r+ C* n
              RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
      M. x, Q" n: z! p  ?2 M  G  "+", 6 n8 O& @  z, r+ q8 ]
      RowBox[{"0.39611806709006653`", " ",
    & i/ M! m2 G" Z. s5 O+ Y   SuperscriptBox["\[ExponentialE]", : w% C6 s3 a! _, p) x! _3 a( x' R
        RowBox[{"3.1415926535897936`", " ",
    " {* K6 X9 z. P, ]9 d- N+ c1 u     RowBox[{"(", 0 `( V1 ^' d5 h1 V- [0 o
          RowBox[{/ h4 }1 o$ b6 k/ |% S8 j5 w
           RowBox[{"-", "0.5837889295140001`"}], "-", % s, \8 l7 [/ ]& T* ^
           SuperscriptBox[
    : c( H& y' |% z        RowBox[{"(", % ?, F/ G, z. U3 N' A& i9 q
             RowBox[{
    7 B2 |: d% p1 v- ?$ P' z          RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    ) g1 M$ b# M; t  W4 n% a       SuperscriptBox["x6", "2"], "-",
    . E( U8 |; z" f8 q* m0 X3 e       SuperscriptBox[
    " \7 \+ H5 O6 g$ ^# Y        RowBox[{"(", 3 \5 q% i5 z+ `: ^, X# ~* R
             RowBox[{2 `& _# `; y5 A* `+ Y1 l
              RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-", ! B. l" S( }& f. f, X
           SuperscriptBox["x8", "2"], "-", 3 w# p6 E9 a9 X" u7 |8 e5 g
           SuperscriptBox[
    # z$ Y. ?0 m# ~7 z; O0 s2 L        RowBox[{"(", 3 O6 @( i8 A0 t' L
             RowBox[{8 v; n7 ]& C- a. s' J: B& Y
              RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], 9 f* }* C& ?( j  U2 U9 z$ V3 {" F
      "-",
    $ T3 @9 O- V6 d" L  RowBox[{"0.19996885877792045`", " ",
    & U0 K! \# f2 |6 j9 ~! t3 P- @   SuperscriptBox["\[ExponentialE]", ! H% w& O: m' d6 o
        RowBox[{"3.1415926535897936`", " ",
    + g% z' O3 b% t9 @     RowBox[{"(", 5 ]8 A3 R. K3 u
          RowBox[{/ Z0 H) B+ A2 V/ z; L1 C# K
           RowBox[{"-", "0.19030188470200005`"}], "-", : y5 u2 A0 N$ s1 c
           SuperscriptBox[7 o. @8 a) u# L; v9 E* ]' K
            RowBox[{"(", / L# [# E! v$ o8 H+ X" m- d) y
             RowBox[{9 _+ b; R- z" i, }+ [9 l
              RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", % @6 u- G2 A# Y! n* ?
           SuperscriptBox[
    ; o/ M  x* t+ a6 `3 g9 z        RowBox[{"(", $ }" d8 ?) n7 G3 m4 f/ k. ~& P
             RowBox[{3 N5 A! S2 p1 D% I0 q
              RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
    # ]8 d2 m  d) [" a       SuperscriptBox["x7", "2"], "-",
    : o" d6 e8 e3 J% \       SuperscriptBox["x8", "2"], "-", / _3 q& a& \2 V' b, H" j
           SuperscriptBox[' B! I( E$ B5 @* U! |
            RowBox[{"(",
    # A3 Z5 S! L: k" `9 l$ V         RowBox[{: P" C. F  s. o$ c5 I
              RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    7 S+ {. q' k% x; E  "+",
    * |, t+ P' k: u/ V( }  RowBox[{"0.23580523388620744`", " ", 2 l: g3 |# w. e! ]  m9 x$ r' ]
       SuperscriptBox["\[ExponentialE]",
      g' @0 H2 [1 p( {# j$ K! Q! l7 F    RowBox[{"3.1415926535897936`", " ", " r, f; s& W1 m1 r$ S* [8 S3 S
         RowBox[{"(", 5 w) s& P. L& ^. ]4 g
          RowBox[{
    1 O0 m+ |0 x. A. O- C, R       RowBox[{"-", "0.28518780882`"}], "-", " X) u. I# G) U% p6 }' E6 z
           SuperscriptBox[
    0 F! K& k& v3 x# }8 z        RowBox[{"(", 7 E$ w3 d* u; X
             RowBox[{+ k4 u6 U( g& B
              RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    # [3 Q3 @) s( e/ E! D& Q  a       SuperscriptBox[
    ! n- Z, x; [7 M2 f3 e+ A+ H5 }        RowBox[{"(",
    ) w, |( c& X3 x! _0 `. }  f. |0 q         RowBox[{
    7 o8 v. C1 l2 _, _6 b# j          RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    ! L6 M$ w; }; e! S6 w       SuperscriptBox[
    0 ]9 k7 B. M. r1 e4 E0 s- q( D        RowBox[{"(", / G+ h! L  t* Z* Y
             RowBox[{
    . q3 a& k6 a% a0 U5 J2 [          RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-", ; j' f" v3 [1 }* ]4 d; O
           SuperscriptBox["x8", "2"], "-",
    ) S3 W  O0 w* R# s& o/ {% L; F0 I       SuperscriptBox[
    ) g2 Q6 f! v$ ^0 E4 h, |        RowBox[{"(", $ `; v& C' p- E# Y" [/ K
             RowBox[{
    ( N* ?+ o& ^: p% Z% Y          RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ; M! P  v% C5 A4 F) |
      "+", 7 Q+ [8 F  u- o# U3 ?' K3 s# Q
      RowBox[{"0.667027259367853`", " ",
    7 X) q4 q' g/ d/ r   SuperscriptBox["\[ExponentialE]",
    ; X0 n4 \. g' G( I/ _  }4 ~    RowBox[{"3.1415926535897936`", " ", % m: D( |6 a9 {; V3 z$ z, a" c
         RowBox[{"(",
    & h% u" J. S* J" h! b      RowBox[{
    / w8 a9 S4 Q+ F: a" M4 Z( l5 T) V% z       RowBox[{"-", "0.11387365200400001`"}], "-",
    # E' K! E6 r' l; j( o' O  F       SuperscriptBox[% w) O; o) o4 \( x
            RowBox[{"(",
    * j! v; v/ h& Y9 i7 K         RowBox[{
    ; \( W$ y( {' u0 M3 q2 m          RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", ( l; p# p6 j' l9 O% o1 C
           SuperscriptBox[
    & \4 A0 V8 P" U6 d" ]# y        RowBox[{"(",
    * w! Z7 \5 d. e' Y2 |% O         RowBox[{) y9 C3 w" V6 f, j8 x) n
              RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    7 m& ]4 h7 [0 K1 C       SuperscriptBox["x7", "2"], "-", # T5 m" i& s$ w5 y
           SuperscriptBox["x8", "2"], "-",
    9 z; o5 G% u# n8 s: x' O       SuperscriptBox[
    . e6 C6 k1 E, t4 K/ }7 ^        RowBox[{"(", # K- ^( _% u9 D5 v9 ^
             RowBox[{
    2 p+ C& _2 ^8 b3 o! O          RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    2 m; X2 i/ R7 @0 L, I  "+", * m6 p7 N8 E% P9 G, J; w. V
      RowBox[{"0.25282438852646905`", " ", , V; |$ O* {( b% l
       SuperscriptBox["\[ExponentialE]", 3 K4 n! `, q! N3 B$ T5 v
        RowBox[{"3.1415926535897936`", " ", " u: _& c# C( ~8 H6 l
         RowBox[{"(",
    0 J& F; l5 x1 x$ l2 B& C! N      RowBox[{$ I2 x: O; z2 B
           RowBox[{"-", "0.11442644782500001`"}], "-",
    1 @7 j1 k; Y" C+ Z. B3 C       SuperscriptBox[* Y( f0 G) M/ w' h: d# n+ P
            RowBox[{"(", + z: u) p! Y$ V4 G
             RowBox[{- e2 x# B, `1 E% U8 Z
              RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-", 4 s% E/ h5 k6 t3 R5 Z  K. |
           SuperscriptBox["x6", "2"], "-",
    ) K# T0 n4 O8 U2 m       SuperscriptBox[
    % @! @% N$ D4 J( _, ]        RowBox[{"(", # j" F6 ~/ W- z3 Q. L" _
             RowBox[{
    ) q* |3 l0 B, M! \% b+ K          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", : s2 [7 ?4 S, G+ t# O
           SuperscriptBox[1 [4 h* n( {4 Y- G( T4 o
            RowBox[{"(", 0 H3 V% v8 C' K' n$ i
             RowBox[{
    5 j( b5 H6 k' u( H. |          RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
    5 C. N" {& O5 c, r: e% {       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 5 Q+ j9 v- z5 B4 p
      RowBox[{"0.07581214474544536`", " ", / c1 E) `- L' ?8 }0 K* |+ H- d
       SuperscriptBox["\[ExponentialE]",
    ' F9 l9 x! u& n8 H. x7 q& h    RowBox[{"3.1415926535897936`", " ", 9 V% G9 N+ N6 e  U/ `/ z4 {
         RowBox[{"(", & J+ m4 V  {9 `8 E9 R) a
          RowBox[{
    . P4 `( X7 [: N2 X# P1 }  o       RowBox[{"-", "0.21008576609800003`"}], "-", 9 a: p  k: j  K% W9 C8 w5 j  A
           SuperscriptBox["x3", "2"], "-",   W/ b& P; g0 k& U% o
           SuperscriptBox["x6", "2"], "-", 4 Z- w. ?1 d- ]! S
           SuperscriptBox["x7", "2"], "-",
      G) d' Z5 t7 U6 J6 D       SuperscriptBox[
    - f4 L6 G% W! t        RowBox[{"(", , j0 r1 t1 ]4 w( i; L) Z
             RowBox[{5 S# g' z( E1 H+ ?! ~+ s  I3 j
              RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", 8 F4 p" a+ U4 V! G4 V' W! C
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    ) K: j# c  C( J$ `: {! K  RowBox[{"0.10599338351843121`", " ",
    6 t+ ?7 `6 `' _8 J" r# _! T   SuperscriptBox["\[ExponentialE]", ' a+ @4 c8 j  l; L: k
        RowBox[{"3.1415926535897936`", " ", * H0 x6 C$ I2 h" z6 \1 ]  R6 d$ W* f
         RowBox[{"(",
    8 I6 I1 [. f: ^- j: @( W5 \      RowBox[{
    7 V" Q' S0 a* f  Y, d$ ]9 @       RowBox[{"-", "0.4481471925460001`"}], "-",
    # v& ~8 o5 v: T& X       SuperscriptBox[+ ^/ z' L$ Q% V4 F$ t8 D
            RowBox[{"(", # e$ }5 w% f* ^% R2 ?# R9 y6 \; t: p
             RowBox[{' Q9 s. m1 j* m8 L8 Z
              RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", % A- s6 T0 b* B6 _5 J. B) I% g2 Y
           SuperscriptBox[( o) `; _* }; }5 E
            RowBox[{"(",
      X# b) Q( b  a2 V         RowBox[{5 [8 z, {. B: B  z" {
              RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    ( p7 M& c  u/ a! |( p; _       SuperscriptBox["x7", "2"], "-",
    9 I: [, c2 O3 @- \7 D# {" f6 e5 x6 B       SuperscriptBox[
    % m! W% I& O- o" a& ]8 @        RowBox[{"(", 6 l( Q0 R& s/ U7 [7 Y+ o4 J$ P
             RowBox[{
    " D2 o% a8 w# j' }          RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
    ( `1 J9 l7 s1 J4 ?! E3 b       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    9 D7 ?. w9 O; j3 j/ G! x1 R% s  RowBox[{"0.5008208386064421`", " ",
    8 v3 F2 n$ e- J/ D   SuperscriptBox["\[ExponentialE]",
    $ }! g5 r. Z8 N    RowBox[{"3.1415926535897936`", " ",
    # C) Q4 t1 o. T, M' a     RowBox[{"(",
    2 W- f1 Q$ L9 ~6 L' g1 f7 m" Q      RowBox[{
    . Q5 }7 [/ v: C       RowBox[{"-", "0.08722659614000003`"}], "-", 1 y* E0 ?& m; h' N/ A
           SuperscriptBox[
    + i: F) B! h' o8 M3 j# _) p0 M        RowBox[{"(", : Y7 }; \2 _3 |$ W, I8 d/ a
             RowBox[{4 [2 @$ G( \) A- ]) l
              RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
      s0 L3 O3 H3 [" a       SuperscriptBox[1 ]1 `* {7 G8 L1 h
            RowBox[{"(",
    : [8 I, {: o! O         RowBox[{
    ! F; m. ~% V$ L! K$ i' f" H          RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-", 1 L+ e: ~, Q' q5 O+ P) t$ I
           SuperscriptBox["x7", "2"], "-",
    $ a( q* D9 j3 s) t* ^$ W       SuperscriptBox[  y# w4 T  _- @/ a5 ]
            RowBox[{"(", ! _6 X* t* V' t! v$ Q/ x
             RowBox[{$ m6 M+ }3 o: @  V! l2 p
              RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
    / x' E9 f1 {: l# m' v       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    ; h" P( Y# H& W8 ?% O  RowBox[{"0.32564305572552343`", " ",
    + z; {  K) o' F% ~5 B, c   SuperscriptBox["\[ExponentialE]", 2 q. W- b1 b# k# O
        RowBox[{"3.1415926535897936`", " ", 1 a) @  \! o6 q2 x
         RowBox[{"(",
    9 C: y6 m, v. w: Q# H2 Y3 ?2 s      RowBox[{
    0 {- n/ }" J  S, a       RowBox[{"-", "0.23738217000100004`"}], "-",
    5 ?0 |9 `, ^2 x# W$ T9 g, N       SuperscriptBox[
    , f% p! G0 b7 j        RowBox[{"(", 5 r3 u5 e9 I4 f$ d$ d! U. p6 {0 J7 g
             RowBox[{
    6 I9 ~( ]4 i1 N6 q. X. n/ |5 `          RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", / t" F5 e6 H' w( b- c1 }. \7 c" L) Z) S
           SuperscriptBox[  @2 `1 H7 O; E! j: e0 m
            RowBox[{"(", 2 p& s6 m( E" X  U  A
             RowBox[{
    $ L, D1 p$ C/ ~: l+ H          RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
    ) R; p* d/ y0 b       SuperscriptBox[
    ' F+ @1 k, ?) f) y% T3 Z6 K: K& o; Z        RowBox[{"(",
    ; \# v9 t8 t) G+ M. s! Z         RowBox[{6 j- i2 n5 n" R7 L
              RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    5 K( a& i2 h) l- \$ S, Q; \       SuperscriptBox[
    ! a/ N! l# F- U/ @# [7 Z! b        RowBox[{"(",
    ) S. e# i# M2 i         RowBox[{# v, h2 L/ i, ]0 r# g" l/ V5 u
              RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-", * p# K1 s  j! u
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    . D6 F8 r" w0 T7 g1 }  m  RowBox[{"0.6665374509702793`", " ",
    3 v7 R/ B0 ^% I6 A0 W; @) \   SuperscriptBox["\[ExponentialE]",
    . \' G  ^8 I1 g9 \5 S4 a" u    RowBox[{"3.1415926535897936`", " ",
    + z* ]; Z- d' {4 N9 N' b$ g     RowBox[{"(", / R' N  u( l! X% N; |1 V" s, W
          RowBox[{9 Y& ^* H- Y$ n& i! l1 s
           RowBox[{"-", "0.19162171876400003`"}], "-", 3 c+ U7 g' B: |$ h+ `4 ~- B: c
           SuperscriptBox[
    + X1 E/ ]/ z" R3 j        RowBox[{"(", * A! X" l/ Z3 K/ L: O/ }8 }
             RowBox[{1 B+ u- I! _0 X9 V3 V& ^
              RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", ( v( _( \- G' P  N. K1 n
           SuperscriptBox[
    9 f) ]- l! Q& k; T% {5 n( r        RowBox[{"(",
    6 V0 x$ w! E' i) _         RowBox[{9 h4 X9 J* Q' d  _. U1 m' l: D
              RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-", * a5 C* e! a/ z8 j  L
           SuperscriptBox[
    3 d% J# N' Q: ]+ Y' Y8 i/ ~) J        RowBox[{"(",
    , ~- t- Y) O1 m6 T         RowBox[{6 }3 l6 e" y6 J. b$ d
              RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", * N+ c3 C+ \/ b" O8 g
           SuperscriptBox["x8", "2"], "-", / C8 U' j( h; V3 U
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", ( _: ^1 x3 U8 T8 I/ f
      RowBox[{"0.4812237524557293`", " ", ! J: b4 G& O0 q  J- G
       SuperscriptBox["\[ExponentialE]",
    " u( P; c0 h$ A4 k  Z    RowBox[{"3.1415926535897936`", " ",
    , r2 K2 ~# I+ f" I$ C0 Y0 H- U     RowBox[{"(",
    2 s  J8 q0 D& o- y9 v0 s+ X; s      RowBox[{) h) b: W9 B/ ^
           RowBox[{"-", "0.109748954594`"}], "-",
    8 G' M1 N# f  z2 x* V# e       SuperscriptBox[
    + w% Q0 l* f' O6 o/ G6 t% D9 B$ [        RowBox[{"(",
    " K1 }3 A! X+ f: ]         RowBox[{
    ' A* S- t! F+ r, U) U1 O8 r          RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    + G8 O, M/ |2 e       SuperscriptBox["x6", "2"], "-",
    ) Z, _: Z5 N& N  I2 ^       SuperscriptBox[
    $ }# Z# X1 [" r% h" S# t6 e        RowBox[{"(",
    + ]5 ^+ @# p% ~2 h         RowBox[{
    . \4 ~! U" |$ e/ h7 _9 A6 H2 N          RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    1 N/ L- j) N4 u7 D3 I- ~/ l4 |: h       SuperscriptBox["x8", "2"], "-", 8 X! _" g# g5 G
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    & u4 ^" _- ?6 q; t: y  RowBox[{"0.176024676254045`", " ",
    6 g/ v/ ~) w8 w7 l4 p* x# o   SuperscriptBox["\[ExponentialE]", 9 n  N6 l1 C' \8 K' o0 K  p0 A9 y6 k
        RowBox[{"3.1415926535897936`", " ",
    ; |+ o: B' M: ^" q5 ]     RowBox[{"(",
    ! E: m2 d2 D1 K8 X; [      RowBox[{) }9 k% Z- h4 P+ h: ]& [3 K
           RowBox[{"-", "0.14616677062500003`"}], "-",
    0 z$ ?: O/ D4 Q: L& J$ {       SuperscriptBox[; v" ?( x' D1 r- p3 {/ J
            RowBox[{"(", * D0 f; Q2 b+ d& h( B/ o/ R
             RowBox[{2 E# c! T% ?( y5 \7 }, b
              RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", + @$ }  O4 x8 |( V; `* F  i) |# r
           SuperscriptBox["x6", "2"], "-", * W9 M+ W$ |$ u& v9 r' R
           SuperscriptBox[5 n' R! }0 Q$ z2 P* b2 q! S& _
            RowBox[{"(", $ ~" C6 w0 H! o7 J& M& d8 x% N+ H
             RowBox[{4 A" C% N) U, a' |0 J; ^
              RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
    : _0 V6 ^3 m& n/ [       SuperscriptBox["x8", "2"], "-",
    5 g8 q. P7 N) d# ^       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 0 B% T3 |" S% i
      RowBox[{"0.5945873894818965`", " ",
    " `$ z; A; x4 M* w& k( u3 A   SuperscriptBox["\[ExponentialE]", : d5 q" e" Y* b* ^1 p
        RowBox[{"3.1415926535897936`", " ", + f! h" P+ Y. s8 E7 i7 ~. \
         RowBox[{"(", ( g0 [7 P! R. S) |. U! e
          RowBox[{) _! C9 C/ n1 L/ D& F6 K- g2 K
           RowBox[{"-", "0.10407011464100005`"}], "-",
    * M! ^! I0 W! I* U8 {       SuperscriptBox[( I  w! N% m" W; P% `1 [, Y
            RowBox[{"(",
    4 O) F" |7 d: @- w         RowBox[{
      S4 c7 N: y1 m4 y% O/ J          RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-", ( ?# b0 p- [  A- x3 t, s
           SuperscriptBox[
    " U* H( }: O8 j$ z# s, s        RowBox[{"(", ( Q. [6 l% ?$ u1 ?9 D6 L5 T
             RowBox[{& x$ t, n& L: \% T) F  E5 T
              RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
      K* h0 z. d! C  n" I" g       SuperscriptBox[
    4 Y* u8 ?( e) F& R: w! P6 D8 @9 `$ {, r        RowBox[{"(", ; [8 z1 U  }9 }- Z$ p. Y
             RowBox[{" K" F4 }7 ~9 Y
              RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
    & `/ n) N+ T$ z; Z' @$ s       SuperscriptBox["x8", "2"], "-", # S$ z% |! |# `% X0 l- W$ S
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", " E6 ~: P& ~  N! r
      RowBox[{"0.027591936509660075`", " ",
    - v; V# L7 e" a6 X, o   SuperscriptBox["\[ExponentialE]", 2 N, x; W; O% F  ^3 o
        RowBox[{"3.1415926535897936`", " ",
    ( r# _. L! V1 h, }# W     RowBox[{"(",
    + e( m9 R& E6 E      RowBox[{
    / }) I4 D4 z$ F# Y       RowBox[{"-", "0.31770463544200006`"}], "-",
    , T; N0 m" k, H2 y& o% P       SuperscriptBox[; y4 C4 P- u, c( @+ ^7 h" O
            RowBox[{"(",
    ; Z# ]; T2 K8 k* [2 L+ G( ^1 t" G         RowBox[{  @, R$ l& a" O% ^/ ]# \# `( i
              RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    9 E& L9 [4 m. W7 K( @, p( W       SuperscriptBox["x6", "2"], "-",
    0 r; I5 Q; q6 d3 c# O       SuperscriptBox["x7", "2"], "-",
    ; }* u( t& n( w' T( i       SuperscriptBox["x8", "2"], "-",
    0 R" b' V+ I7 |! `$ v; t. b       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", , O" Z. x& U( w) _  M5 X# D6 Z
      RowBox[{"0.5252475961933536`", " ", ) }0 e# K9 r4 d
       SuperscriptBox["\[ExponentialE]",
    5 V& a2 o- \; n5 q    RowBox[{"3.1415926535897936`", " ",
    ; j/ H- |3 A+ U% N     RowBox[{"(",
    ( a; y6 ^9 t- f! i! j      RowBox[{
      q- X8 B" z, @# a9 w8 y! T       RowBox[{"-", "0.6410867660730001`"}], "-", + Y" G; h/ z  ?1 `2 ?9 B3 ?6 g
           SuperscriptBox[( k" J, Z; q1 v  ^8 ]. a" k
            RowBox[{"(",
    ; U2 z( j  r- |: F/ c8 q         RowBox[{! N' a8 i" ?" ^! f* O  q. u
              RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", ' ^0 r8 Y! O% z3 s* \( E
           SuperscriptBox["x6", "2"], "-", / s7 X; z9 P8 |) {5 j/ ?2 h$ e
           SuperscriptBox["x7", "2"], "-",
    ) e- S5 x0 |% v  |6 h0 n       SuperscriptBox["x8", "2"], "-",
    % j+ v% o2 V( o6 i1 c  i0 z) K0 g       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", - j( o7 H+ N# L, u' }" M
      RowBox[{"0.32047284779644936`", " ", 5 m+ X! H0 ^* |
       SuperscriptBox["\[ExponentialE]",
    / s. [7 h" P. B1 C7 B" R    RowBox[{"3.1415926535897936`", " ",
    ! z8 U7 w- z/ O: T# R     RowBox[{"(",   g+ e5 _1 n  h0 o3 H" I9 x
          RowBox[{
    & P/ j# A- O7 L" a% K9 Q       RowBox[{"-", "0.155663887074`"}], "-",
    + m# i0 [/ E; d" y. S* \       SuperscriptBox[* g+ l, c% K) X7 f
            RowBox[{"(", ( t' b& U7 J) N% m( r  G
             RowBox[{
    0 e2 {: [. e1 J9 C/ K: L0 p9 w          RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-", - ~7 u, w8 m9 }* @! i' Q
           SuperscriptBox["x6", "2"], "-", 2 {  o& x1 Q: a+ C
           SuperscriptBox["x7", "2"], "-",
    # Z) }' {1 h. W# q8 x; n+ w7 R: Q       SuperscriptBox["x8", "2"], "-",
    4 J4 ?' }  v* G- ^       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", . E6 ]9 S# N  W% j" w' c; v
      RowBox[{"0.7528674241482847`", " ", ' u! l- B& R* h( {$ D* `# a% X
       SuperscriptBox["\[ExponentialE]",
    4 \8 Z% `5 U; z    RowBox[{"3.1415926535897936`", " ", / `  j: R0 v) I: ~. q
         RowBox[{"(",
    / S, |9 Q& d+ m6 P      RowBox[{, a* J+ v, N2 e* C/ [
           RowBox[{"-", "0.14151232428600002`"}], "-", , z6 O5 B6 z. |' n0 {5 e
           SuperscriptBox[8 s4 b# N3 g* n( A
            RowBox[{"(", , `# b( A5 c/ W& }
             RowBox[{
    ! W( u2 V& x4 B7 q- }! ^9 c          RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", 8 J7 S$ j- D) N1 g9 V
           SuperscriptBox["x6", "2"], "-", - I$ j5 E* }+ i. [; Y$ l
           SuperscriptBox["x7", "2"], "-",
    4 H5 h/ ?9 f! L  `       SuperscriptBox["x8", "2"], "-", 3 p2 z' ?0 c9 H5 T. ^4 K2 `9 k# ^) f
           SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",
    ( D8 i# L& _. H; C1 i# L& }! V, _! \ CellChangeTimes->{3.5779628386090403`*^9}]2 `& v$ K& R4 J" b
    }, Open  ]],
    / N. |# I/ J! B& ^, F
    7 N' l. [$ G2 P& X: ~/ p( sCell[BoxData[" "], "Input",2 l( j8 p& r5 K/ G* f; B
    CellChangeTimes->{3.577962835879035*^9}],
    ( f; X0 Z. T- S) [4 T$ q$ v
    " v4 M5 D8 S6 O* |2 D! ECell[BoxData["\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\:4e3a"], "Input"],  r1 T1 }+ ^( Y( x

    ; K2 u: B! N) Q' I5 g) _4 YCell[CellGroupData[{9 `% M* p& D, U1 v2 b2 ^

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

    / t6 @# q& i! t这个是用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-4-16 23:57 , Processed in 1.776321 second(s), 106 queries .

    回顶部