快捷通道

QQ登录

只需要一步，快速开始

  注册地址  找回密码

数学建模社区-数学中国

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

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

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

1

主题

10

听众

296

积分

升级  98%

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

    • 签到天数: 75 天

    [LV.6]常住居民II

    自我介绍
    无

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

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

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

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

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

    相关帖子
    回复

    使用道具 举报

    兰秋小沫        

    0

    主题

    7

    听众

    31

    积分

    升级  27.37%

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

    • 签到天数: 7 天

    [LV.3]偶尔看看II

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

    使用道具 举报

    涳夢        

    0

    主题

    0

    听众

    1

    积分

    升级  20%

    该用户从未签到

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

    使用道具 举报

    冰E柠檬        

    10

    主题

    43

    听众

    1434

    积分

    升级  43.4%

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

    • 签到天数: 278 天

    [LV.8]以坛为家I

    自我介绍
    冰E柠檬

    社区QQ达人

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

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

    群组: 数学建摸协会

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

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

    使用道具 举报

    百年孤独 实名认证       

    3503

    主题

    538

    听众

    5990

    积分

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

    • 签到天数: 691 天

    [LV.9]以坛为家II

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

    群组: 2013年国赛赛前培训

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

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

    群组: 物联网工程师考试

    群组: 2013年美赛优秀论文解
    5#
    发表于 2013-7-30 20:56 |只看该作者 |招呼Ta 关注Ta
    问题完善一下！或者把代码贴上！
    - |  _0 H/ s' F" N2 r% ]
    回复

    使用道具 举报

    琳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
    2 s4 |2 l* n( C) S' K2 z神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗

    ; Y" x2 q+ f/ S. f+ \(* Content-type: application/mathematica *)
    # u( O6 [# |; P0 T: S7 d8 d- |
    . H- B" N  p8 L$ h$ i(*** Wolfram Notebook File ***)
    8 b/ T, P/ G( {/ t% l(* http://www.wolfram.com/nb *)3 w, n, ]9 t( ?" p7 Y% X
    1 m" B! B! N' t9 ~1 x( B0 m
    (* CreatedBy='Mathematica 7.0' *)
    . i# J9 A% Z: r' j3 ~
    1 N$ s* F9 Z8 _& u1 m$ o(*CacheID: 234*)8 R5 L* C5 S" C8 Y$ x
    (* Internal cache information:
    % h+ v- @' p+ ?" v: s5 k$ y$ ]- VNotebookFileLineBreakTest' z+ m5 x- p( y. @
    NotebookFileLineBreakTest/ c9 B; e- D* c3 c% V
    NotebookDataPosition[       145,          7]
    $ N2 w/ k$ x# x2 NNotebookDataLength[    423629,      11534]
    6 W: E, S7 J+ j# W5 a; H9 D; QNotebookOptionsPosition[    412607,      11173]" ^- J5 E6 h" J6 E
    NotebookOutlinePosition[    412953,      11188]
    - `3 f6 `9 N6 D  ]% {: u% ]0 tCellTagsIndexPosition[    412910,      11185]
    % C5 O6 W# I' G6 O  PWindowFrame->Normal*)% w( M: A5 L% e

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

    5 u3 C# T9 y" s& D  _Cell[BoxData["1"], "Output",
    8 r( F3 b" ^+ c' b- B& Y; g% c CellChangeTimes->{
    3 A! G9 r: K6 m" i) }4 m  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, 1 Y& O  [$ ]" d. R4 Y. m
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    ; u( y2 e, {. C; d4 I   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, : Z1 T3 A7 Z5 A1 z' A3 N6 J8 n2 T5 ?
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
    ) u8 c1 e, m2 `: F9 n3 {4 o   3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, # Y3 p- K5 g% p
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
    7 P; L! ]1 i* s/ q$ T9 `/ {2 K" R. \5 u1 n   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, 3 Y/ d! g. m0 e
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    : t: n) p; K$ d2 K   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, 8 g: J$ v% S0 @) w
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, # g& }2 J; [. B6 J) ]
       3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, 6 |& J1 @) T( p4 j* z7 h1 @
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, + {4 l" L, F. g+ m( |
       3.577960510686717*^9, 3.578012149296875*^9}]! e0 L$ L; I- |8 p. d% i2 h- ^: F
    }, Open  ]],
    6 c# Q3 ]$ E# D' }2 h* ~4 s; h2 T0 a+ B* l; y9 ?# I# u8 v
    Cell[BoxData[9 R8 s1 R; z" X* R2 Q' g& E" X
    RowBox[{"For", "[", . J& J4 j6 ~$ h" s0 C$ b6 }$ ?/ c5 u
      RowBox[{* ^6 \- t: |, j3 t' }1 R/ U
       RowBox[{"k", "=", "2"}], ",",
    8 c" N4 C5 g' H( {   RowBox[{"k", "\[LessEqual]", "60"}], ",", ( Z# ~: l1 o. ~2 b
       RowBox[{"k", "++"}], ",",
    + P: [) _- O. ]6 ~4 ~   RowBox[{"{", "\[IndentingNewLine]", % k% ^" E2 p! t! [8 Z& ]" d; D& v& a
        RowBox[{
    : k& u/ ]8 M9 |, L) T0 z     RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]", 5 t' j5 ]8 }( S1 a7 ?4 M7 |+ J
         RowBox[{"For", "[", 2 ~$ p1 L7 j) |" o& s8 m8 N
          RowBox[{
    5 R' T: F7 N9 w8 P       RowBox[{"j", "=", "1"}], ",",
    . w! Z) Q7 B% C/ E) Q       RowBox[{"j", "\[LessEqual]", 1 y$ o5 K8 g5 }9 E% J
            RowBox[{"k", "-", "1"}]}], ",",
    : T% _  O( I8 m6 O- i       RowBox[{"j", "++"}], ",", " P0 a' Q6 c: R# r9 l1 r
           RowBox[{"{", "\[IndentingNewLine]",
    * r* b7 ~+ W( r1 X' U; K1 C        RowBox[{3 D; x: b, Z) Q. I$ `/ J1 ^5 }+ U0 H, w
             RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]", 4 k1 k2 b6 P9 b- i* P
             RowBox[{"For", "[", 2 p$ m, M8 U: [6 l: i, `; s5 s
              RowBox[{- f# f! J7 i/ ~% ]; j  U
               RowBox[{"i", "=", "1"}], ",", 2 l4 ]- s7 ~# N  K$ h
               RowBox[{"i", "\[LessEqual]", "9"}], ",", 5 P- c4 m  \4 K
               RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    " B% Y7 g% l# Q           RowBox[{- J1 k1 B3 t. x+ V
                RowBox[{"r1", "+=",
    ' H: X2 p* f2 N0 w& h             RowBox[{) m7 U3 r% \4 H. b2 {
                  RowBox[{"(", 3 {1 r) X% ]$ A9 D
                   RowBox[{
    ! {7 i3 @& o; ^6 D  Y+ W, r" k3 S; ^                RowBox[{"CM", "[",
    ) y; f$ Z6 p5 J. E8 v" J! V                 RowBox[{"j", ",", "i"}], "]"}], "-", 5 V: P6 J8 ]8 H: L# ]( l
                    RowBox[{"Data", "[",
    % m8 h3 o% K9 k8 p                 RowBox[{"[",
    8 p2 Z! U$ C4 [* |                  RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*", * S/ w; T1 l3 a
                  RowBox[{"(",
    / p% B5 R0 O( D3 ]( j. b1 B               RowBox[{8 j5 b+ \) a: s, a- N% J6 _
                    RowBox[{"CM", "[", 1 u- Y1 R& J, ]
                     RowBox[{"j", ",", "i"}], "]"}], "-", # z5 @% n, f& B  R0 r- y3 m% f
                    RowBox[{"Data", "[",
    * G5 y7 S8 P& ]                 RowBox[{"[", . Y/ D$ b$ D2 d$ N/ @; r
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
      O* N' F% x3 l% ~9 {" }           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 4 ?' `9 N- A; I: x. k6 U
             RowBox[{"r1", "=",
    % K% l6 z6 m: f) x4 d0 l- ^          RowBox[{"Sqrt", "[",
    : P; s/ c: `! h) }8 n. G           RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]", $ ?8 v/ x# x2 r! j
             RowBox[{"If", "[", " ", ! g1 @7 \: `# `
              RowBox[{$ k) g& p7 o8 g. W* R( b
               RowBox[{"j", "\[Equal]", "1"}], ",",
    1 u/ R/ o- i. d+ [/ z/ ^( y           RowBox[{"rmin", "=", "r1"}], ",",
    3 Z6 Z2 {6 [8 a) d& W           RowBox[{"If", "[", - @# W9 o: K5 l3 V$ k9 F
                RowBox[{
    ; H+ o. i% S' z1 m2 v  k             RowBox[{"r1", "<", "rmin"}], ",", 4 a* y; D3 ?5 ]0 H# J
                 RowBox[{"rmin", "=", "r1"}], ",", # S: h* ^+ {7 Z3 I5 Y5 S% `
                 RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
    % J, Q: k; C* }3 c1 z  A/ |/ @- v% C        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
    3 a' U; S: H% J     "\[IndentingNewLine]", 2 E8 t; W; ~  ~9 V5 W7 B
         RowBox[{"If", "[", * G' _' ]' h; r
          RowBox[{; s4 Q# h# a6 s% n
           RowBox[{"rmin", ">", "r0"}], ",",
    + s1 }; F6 Y, b+ E$ h' e       RowBox[{"{", "\[IndentingNewLine]", # G; G) r; |: t
            RowBox[{
    : [0 @* A/ \! H3 s0 t; C  z: d4 M         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]",
    6 i( t! ^  j; V2 \+ C4 M0 O" b         RowBox[{"For", "[",
    / ]! N- `2 X' D: \. n2 j  P# @          RowBox[{. Q( x, C& ]$ u% ]6 I4 d( n, p* Z
               RowBox[{"i1", "=", "1"}], ",", # Q- q, G% G2 I
               RowBox[{"i1", "\[LessEqual]", "9"}], ",", & [2 [! l" A4 g9 Q6 P  \& p5 ]% z
               RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]", 7 F0 D, L2 e1 ~  q+ I( n- h
               RowBox[{+ _6 j( j; L$ k  |; K
                RowBox[{& x2 e$ f3 x3 y
                 RowBox[{"CM", "[", & H3 p  x, q1 N0 G% `
                  RowBox[{"M1", ",", "i1"}], "]"}], "=", $ B$ n/ e9 Z1 ^" {; X1 c- w
                 RowBox[{"Data", "[",
    ' ~5 E9 N, Z& ?" t( h3 B              RowBox[{"[", % }$ q- t5 R5 @# H$ g; {/ t5 U
                   RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}], 6 ^+ h5 B* b9 ?) s( m8 }
              "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",",
    4 D  Z+ S0 u! B- y/ u( }       RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}], 3 _% P1 M: X5 D; ?. E* {: ]
        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",  \: h; r: |9 W6 {# G0 i! L
    CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {+ k2 o$ I. M( z) f3 W( Q# F' ?5 ^
       3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
    ) m, e! }, _$ K! ]% j! [   3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {& o0 w& {# v/ D
       3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9,
    & r: k6 k- Y& W( Z   3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
      w; |8 v& p) a3 v7 B: f% J1 ^0 T   3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,
    / W; M2 k+ S) ]! D5 j. ?5 ~. G( h   3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
    1 r; F) y) w& n4 A3 S: e' B3 Q/ F2 w   3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
      _3 \8 n; ]2 @4 L8 g/ f+ p7 U   3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {9 w! d2 }% |' o5 z* b. y% M
       3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
    9 Z3 t; O: e- U$ `   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
    " U+ D. g& H6 c   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9,
    1 c' U, o  O/ W4 c1 H. {4 C   3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {
    ! e9 y% \. ?3 O, T) i: F   3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9, * W( @) c& l0 h7 u
       3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {
    $ j9 J3 g: z  _9 V1 v   3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9,
    3 c5 }( {9 o" l+ l% Z" m   3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9,
    " b# c' P0 G7 r   3.577958821991373*^9}}],& a& \4 d: j  |: ?4 j
    6 A( ]. [9 D% d1 |) S& @
    Cell[CellGroupData[{
    / B5 W, Q# d/ @, c
    1 V4 B+ I( S4 VCell[BoxData["M1"], "Input",4 K2 C  n' S. e" @; X
    CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],7 Z" _0 T; z$ l( ~% f1 M' S. L
    ! c& x+ E4 k2 f- {4 }( ]
    Cell[BoxData["21"], "Output",' t8 d2 i6 w- I4 L* d# c- Y; h
    CellChangeTimes->{
    8 _* Q% |. b) e+ I3 r+ K4 j1 A  C  3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {1 s* O* G, v. I. s/ J1 H
       3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9, ; Q8 n2 X+ u( d4 f- F* U
       3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
    ; ^9 m7 o! ~& S! S, \* }% _   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9, 1 _' x. V1 @1 c8 D- r
       3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
    * I5 X4 [" S" p5 b5 A) P* P   3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9, % U" m! o# Q5 H( X, u" e) q% v
       3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
    # a, O) k& o3 n8 N; _1 w  I  ?9 {   3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9, - a# m3 \) J4 P: j  d6 l; ]# p
       3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
    * e/ W, n. X; f. c   3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9, ( a$ v  E( |+ u- Y- n) G; r
       3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9, 1 u  K  s( q, x& y( j
       3.577960515600726*^9, 3.5780121541875*^9}]
    ) \7 c; u- ]8 t, Y! H}, Open  ]],
    $ q* B3 \( z  s1 H3 ?3 z  i& e- p
    Cell[BoxData[6 d8 {/ a! Q! Q
    RowBox[{( c+ w5 S. O* n# E8 |% |
      RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[", : h2 d& s1 I1 q  z
       RowBox[{"1", ",", "i"}], "]"}], + Z2 D8 {, p/ f3 _# k; k
      RowBox[{"\:5230CM", "[",
    1 d6 s/ H, F6 _9 }+ k   RowBox[{"21", ",", "i"}], "]"}], 6 j: M2 Q9 i0 G: h$ Z, f, W
      "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\! O( f  {: y, F/ C: d. y7 o! y1 J
    \:51fd\:6570u1\:5230u21"}]], "Input",$ |+ X2 g6 A; d) P# D5 Z
    CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {  Q; U% R- N9 }! v5 V4 ]
      3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9, ! H  ~- _3 Q+ ]% s+ i+ J
      3.577960526583145*^9}}],
    # O4 ~# ^% Y6 y/ e$ o  x9 H, V. b4 ]9 v9 ]" M# H
    Cell[BoxData[
    4 R6 m" s8 j# Z$ J% n- T5 k RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
    + q6 X; f/ ~8 z( R CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],8 v- K5 D* f. t2 D  O2 q
    ) t4 _% }& g0 m! w
    Cell[CellGroupData[{4 Z- L, j* p. S0 T
    . ~4 q/ Q' B1 }. m
    Cell[BoxData[
    $ @. s6 ]9 W, P: l5 [/ } RowBox[{"Xa", "=",
    0 B* o- {$ H9 y5 y8 r! V  RowBox[{"{", 8 }( i2 d3 e) i/ P$ d4 V
       RowBox[{8 C0 v* K4 y$ g5 ]0 l# m
       "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", # n% j* _, T0 @: p2 `/ ~& t! B" E
        ",", "x8", ",", "x9"}], "}"}]}]], "Input",
    9 x7 |* o; X( u% y1 t: N6 B CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],7 x) y4 @# I: \8 _4 T0 N9 a
    # ^- Z3 G2 p2 r4 g% k( q5 X' P1 w
    Cell[BoxData[
    ' B" A2 K) X$ e# M RowBox[{"{",
    ! A' M- U! O2 G  RowBox[{4 w# K, `- Z" g% n8 f' c
      "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
    4 k% e% ~0 O! C0 j4 f% R/ W1 u- e    "x8", ",", "x9"}], "}"}]], "Output",! `) @4 O, b$ D" B
    CellChangeTimes->{/ ?2 t6 F$ Z  H+ A* j
      3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9, $ \0 A& F( O2 B9 f( j
       3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9, ' d7 ^& m+ l) e, L' C# E
       3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
    0 w! X$ _8 v$ U9 R2 B8 f1 X& `   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, ( f7 O: k- c. Q! k3 z9 D
       3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
    . L; K7 D2 P# P, W4 A) e! t, Z   3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9, & u; z! t5 `; n
       3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, 1 @' g3 a0 H# N  `2 a, `5 J
       3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
    ) j( \9 J1 O8 X, d   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
    , A$ S4 f7 n- K% U0 }( Z   3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
    0 U; h) Q4 F; W5 `$ {2 z* l   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9}, , f0 Z( {& e( o( D4 {
       3.57801215725*^9}]
    6 x) u. A$ g! T2 r2 ~}, Open  ]],
    : B5 G9 b3 E8 s# E/ l+ U
    1 A% D, \! ?; a* TCell[CellGroupData[{
    5 }( ~! k- o$ k; a6 X) {$ Q7 [
      A8 e9 W" w# I; A& i0 h0 F( l9 aCell[BoxData[$ ^& q: h6 B. p- O
    RowBox[{"Ca", "=", / u: e% Z% n! z, T6 h
      RowBox[{"{",
    8 b1 M2 c% l" v4 ?. j   RowBox[{
    ' L' T" P4 T% i3 _8 z/ Y9 q: [   "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
    $ i; a! V3 t5 |* P+ Z' s; I    ",", "c8", ",", "c9"}], "}"}]}]], "Input",3 h' S( g& {& ~
    CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
    # ]% {  q( E8 `% W/ I$ F9 R% h
    # P% m3 |8 U" @) pCell[BoxData[
    ) X6 M$ k  J. d- E RowBox[{"{", 8 p2 Z/ O8 ^5 }9 ~+ A
      RowBox[{" @6 W# A9 Y& F: G5 v' o5 X: z& C
      "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
    1 n( _- s: h8 {* v. [# t3 O    "c8", ",", "c9"}], "}"}]], "Output",& y+ \" z4 j9 W
    CellChangeTimes->{# m- V6 B; }! w) ~  H- s% J
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
    - G; F/ y6 M0 Q   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
    3 q* B' d0 q# C+ X   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9, 6 R' W# O( O' R2 g& L
       3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {0 t* P( X5 \& E1 s1 m- o5 G+ S
       3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,
    * e: {% ~' W8 x3 Z6 i  x   3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
    8 W+ H: u; V) D$ ]# i& L% C   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
    , Q$ j# L& A( c+ Z   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9,
    * m: h9 I: b, L2 N  G! z, r   3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9}, ! p9 `3 ?% x2 y( B/ {0 t6 j
       3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {! b$ P- Z# _' o' k# E
       3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9, + i5 A- f) ]6 U7 T
       3.577961904604212*^9}, 3.578012158671875*^9}]" l1 y1 c; Z3 o6 Q$ o
    }, Open  ]],5 P5 n$ z" c. r- P5 }

    : c! c% E7 g# d" WCell[BoxData[2 Z9 r4 T8 ?/ p# i3 ?
    RowBox[{"For", "[",
    8 l# }& q6 z5 q+ L* X" v  RowBox[{
    ! G/ ?$ X. Q; x" G; S/ h4 U* f   RowBox[{"i", "=", "1"}], ",",
    - G: G. P- Z7 J   RowBox[{"i", "\[LessEqual]", "9"}], ",",
    $ J3 m3 P6 I0 ^  u% l   RowBox[{"i", "++"}], ",",
    ; X% s: R( X: P  W2 y3 y$ Y. Y   RowBox[{
    ; o5 j: d2 j( e, I& {5 D! |6 L    RowBox[{"Ca", "[", - r7 c) }3 U$ w6 [! }
         RowBox[{"[", "i", "]"}], "]"}], "=", # ~. i) U; J+ w$ F# M4 g
        RowBox[{"CM", "[", 4 C: H0 O/ Q- X! k  r
         RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",7 o5 }" r. \3 F  @  y
    CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9}, 7 R% H. V7 [/ _; u; y
       3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
    ( J  J+ K" y* _) [% b+ F   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
    6 E/ S1 @% w) `! p   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9, 8 D" n7 ]( @+ W% x3 O
       3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9, - n/ F/ G- C! ?8 F
       3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
    . W7 V8 C" p: \, v8 q   3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
    + Z* U' c2 H; a* @( p& ^   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
    / R1 c) ?$ f( f- _   3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
    ' q2 a) k9 C. s; \   3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9}, 7 f1 X: }# I3 Q- r- H
       3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
    : B. [, r; z2 Z- V   3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
    8 C7 N9 x/ y8 V) W" t" S' F% b2 R   3.577961906897415*^9}, 3.578012176296875*^9}],3 E* q9 l6 [: e
    ; s: @$ o1 @6 f' \- q
    Cell[CellGroupData[{
    : }$ m/ A; Q, q- Q! |( |
    2 T8 [0 U2 D+ c: WCell[BoxData[
    ! S! o& d2 k! W  {! G4 f& t+ T RowBox[{
      D- h$ o  [3 g  RowBox[{"(",
    0 l8 F5 x3 k( w) S/ ]1 y   RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ' C" v7 l% T7 M4 |0 s
      RowBox[{"(",
    " f$ b- c/ G0 x$ Y   RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],$ Q' }3 M! P; n& ^" H

    : ]  U9 ^; I4 \' vCell[BoxData[
    1 h/ f) F8 t$ _2 A8 K  r8 X, T+ L8 g RowBox[{
    1 x+ @! g* O; V) r) b  SuperscriptBox[- S( p  h! _1 M* U' M
       RowBox[{"(", ) t* z3 p  J0 i# L$ t  [
        RowBox[{
      H. v% l" [4 {# b/ x! e     RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+", . c( V; U, _* s) L0 w, k' c8 C$ c
      SuperscriptBox[' F) `0 y# J* [" A
       RowBox[{"(",
    1 g1 P8 f3 s! P; Y! k! w    RowBox[{$ `, M1 q3 b7 b8 ?/ r9 n
         RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+", / m: r$ W; E1 l: G- h
      SuperscriptBox[
    % T/ `, d5 A. A4 R6 J  G! @8 _8 A   RowBox[{"(",
    2 m3 ^3 V5 h7 M7 ~  b( Q. R    RowBox[{  b0 }) s! h5 O( k, q
         RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+",
    % O& x. B0 X$ Q' Y  SuperscriptBox[, W/ n8 n4 i+ {' W4 |6 {7 b
       RowBox[{"(", % B) t$ E7 q: M; J
        RowBox[{
    * \0 f3 U3 O# d  R5 T$ }& j     RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
    3 v9 K% c: E- R5 f6 ?1 ~  SuperscriptBox[7 {* S) i  q) X$ S  o- _
       RowBox[{"(", ! u' r3 ]! n1 h0 J! ]+ O
        RowBox[{
    " a! E4 a% M5 _$ [$ X     RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+",
    $ Q9 M, ]( s$ `& J- ~. v; e  SuperscriptBox[
    ' F8 g- d+ F: v) V  h; ^  `   RowBox[{"(", 5 p! T% z2 \) `( u
        RowBox[{, H1 J$ g! r9 [, v0 K& z
         RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
    ) R. H" H0 @8 ?$ B7 M/ C+ `  SuperscriptBox[
    " W8 U7 x4 T# ?% @  @8 E. F, t7 ]1 u   RowBox[{"(", * O/ _+ g7 R8 m8 l, |+ ]
        RowBox[{
    - Q  B7 \) A) G" s2 T5 [     RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
    ( T: n3 M6 j+ k( k4 E  SuperscriptBox[+ t2 P0 y; \4 i( j( W
       RowBox[{"(", ! h' Z: l+ u- h5 v+ z% q* Y
        RowBox[{# U8 v1 i% t* i$ i% B" U) w
         RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+", 4 s# }$ X+ c: P7 }
      SuperscriptBox[
    ; h- L2 s2 I) x# H   RowBox[{"(",
    ; I, R8 H( r. V; r9 i    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",
    ! W8 R! u, V6 `; O CellChangeTimes->{% X. y: M" [5 a7 \
      3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9},
    * O- ]5 d+ D/ ], r( @' V, m; d/ P   3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
    9 e! E  X& o4 e# `$ N( Y* L( D   3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, 4 y2 N3 \/ G# h8 D0 U4 t4 J& _
       3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
    ; n2 e* c! u* B! Q+ Q- U; _   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, ; ^' P  n( E, R% [
       3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
    ; q4 n' |+ K. M" y4 o* z9 c8 Z8 m   3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {" N( t' n3 Z- B
       3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9, ! }9 [" R9 b0 F/ A2 R
       3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
    7 k- Q6 F! ?3 ^* q; L2 b! _7 o% v/ X   3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
    8 W! X( T" ~# f   3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
    - Q3 i2 O7 k$ g5 u9 S4 e* @   3.5779618537169228`*^9}, {3.5779618846049767`*^9,
    * c- ]; i0 C, ~; G* T; ^# V. Z   3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]/ s  Y0 N. K- w% e# a& l
    }, Open  ]],
    $ O7 {0 H, h( N7 v( q0 h1 M
    * Q4 i* [* m# [' WCell[CellGroupData[{2 W% @2 \7 p) b( T, M

    & C# t5 V- }( w8 ?$ O7 i' w% {& wCell[BoxData[4 k1 d$ h2 v6 B3 c
    RowBox[{
    " t1 X; |2 X8 ^+ X, a. ^( B  RowBox[{"Ca", "[", 8 \% [5 s& M+ m
       RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",! C& f! h1 p; a% D7 u9 T
    CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
    , B+ C4 O1 Y. [4 f, Q* g  3.5779616465173616`*^9}],
    ) N/ Z2 ?7 c  t6 T+ O' X2 J( O2 {3 A$ l. O
    Cell[BoxData["0"], "Output",
    ! D% Y( J& v6 C, f7 N CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9, ' n' o- }/ I6 V, V0 i* W& Q  d9 T
      3.5779616484049644`*^9}]
    5 h, K. @: q0 C, V. T* |- O}, Open  ]],
    7 B9 q" G& Y% j) a, c- K
    ' _/ A5 c$ y( R7 B: i3 s9 mCell[CellGroupData[{9 h9 Z0 B6 c, G" N$ W9 _
    , t. _( R, u7 q0 ]& r) u. g$ e
    Cell[BoxData[5 @% R$ g$ g7 x
    RowBox[{
    . e. R. t; h4 c4 b0 g8 c  RowBox[{"Ca", "[", 7 G) d+ ~) }4 y( {" a; Y
       RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",, Y# e1 y) P3 L3 V$ m4 d5 K
    CellChangeTimes->{3.577957376235614*^9}],+ x5 A; ?# p" h
    % x8 r$ n; i, O9 p% \1 M
    Cell[BoxData["0"], "Output",
    " M0 E3 h6 `4 E: M+ ]5 p CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]% \* t/ z+ y; R" v0 o  c# V
    }, Open  ]],
    # s+ f$ J0 k1 x5 c9 x2 V4 h) E
    + P7 F/ R" r) T8 \9 C" {Cell[CellGroupData[{
    ( v! `3 s# v( b' [
    - N- m" L) l5 V6 n; cCell[BoxData[  ?; X+ [6 r0 n8 Q; V
    RowBox[{
    5 B! B2 C' S4 D! c; P4 c  RowBox[{"Ca", "[", : [% C- h7 l, F" Y& f! g
       RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",+ ?# ?+ ?: \4 x' r
    CellChangeTimes->{3.5779573112927003`*^9}],) d9 q: J* i( Q) I. Q) m

    6 ^  j# v8 p8 A+ O  }/ M; s3 F4 mCell[BoxData["0"], "Output",
    ( @$ O! u2 V' t: P9 T8 I CellChangeTimes->{
    4 j1 z# o: U* Z, P  3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
    * L9 C- D! v/ N  @- A   3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
    8 d5 R% @1 D3 S9 s6 ?- M8 Y- K9 V   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
    ! r/ q: A8 F! ]3 L# v. X   3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9, 0 @; w; V, h' }
       3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
      R5 f* U0 A1 {, K' o   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]0 k9 r, X# a1 V+ f
    }, Open  ]],3 ?$ B8 C0 B7 ^0 b/ A
    ' k2 z8 k3 F  S5 h
    Cell[CellGroupData[{
    8 _: E0 }  |& c# i1 b* i5 D2 X4 w" _+ Q% [  d! J/ E
    Cell[BoxData[
    / V! `) \7 B: n7 P/ X RowBox[{' j# f$ n! t+ w- a: A5 w8 R
      RowBox[{"Ca", "[", / |% z, E1 b$ _9 r! g9 ?% s
       RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",  R! t7 M8 a0 Z( A# s' G. [) k7 d
    CellChangeTimes->{3.577921461734375*^9}],9 j$ O1 `/ g: |0 _; i. M7 X

    : r! f0 K) O, O% |; M4 f; r* vCell[BoxData["0"], "Output",
    6 [. [$ T8 U3 x2 t; J* Q CellChangeTimes->{' y) f* ^0 ~* f; d9 o
      3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, 3 ^1 ^' V9 g" W1 J$ H8 D, k4 m
       3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
    4 c! A+ E: n0 H$ o$ P   3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
    6 G3 ]2 v! h, `  b   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
    * k8 \" i0 G5 l2 m' N   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]1 z* L8 S, e$ G4 \
    }, Open  ]],
    8 m( Z/ c5 e2 k0 N1 s7 V6 ?/ R: {2 i4 E9 a0 C2 x
    Cell[CellGroupData[{
    4 Y4 p: P/ h) I/ [* e# \
    " z7 v6 J* P  {+ l7 F7 X* w' hCell[BoxData[; f- K) V* T/ h6 ]& B+ w1 A* A! y
    RowBox[{
    6 ]5 Z% b$ a9 N  RowBox[{"Ca", "[", 2 N, D: l, Z& O  J3 y5 W' v. A% `
       RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
    % q6 T! A3 A  f% N) E7 ?5 ^# ~! [ CellChangeTimes->{3.577957303118286*^9}],1 {/ y$ e5 \( L7 G" K1 }7 \7 W1 ^

    ) p" e% K. t8 NCell[BoxData["0"], "Output",
    % A1 q* D. l2 k) N9 d8 ~ CellChangeTimes->{
    # d, D) _$ ~. {7 Z  3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
    " Q% v4 r, p, y$ n$ X$ b/ ^   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
    & b" }" X0 ?6 p0 m( F   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
    $ \' d) }2 J% G   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9, 1 a7 ~) e& R! D- X* l7 G
       3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9, % r! [7 g/ P; T: u3 y# q' r+ o. Z6 w7 C: B
       3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {8 I, F6 \- y) [0 R* `# Z3 c( n+ E
       3.577961889378585*^9, 3.577961912965826*^9}}]+ u' P' a9 \8 x( F9 m$ p
    }, Open  ]],( e% v$ G* X% S- }. U% y. ^
    / q, Q' j3 @, d+ [, l
    Cell[CellGroupData[{$ _) w0 F  V5 E7 i
    + H; z" u2 n/ X0 I/ i# @9 V0 X" {
    Cell[BoxData[
    ) T, ~0 ^/ Z, R7 g% [- p7 I RowBox[{
    ) d3 p9 Z7 N# G) S. Y. O7 b& N  RowBox[{"Ca", "[", + `4 z) P9 T/ T( f8 U, f" P  j
       RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",- }( @/ {/ [* \% r  B4 @; f
    CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {9 }( f' u% D: g. R" R; _
      3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9, - d$ |8 F# N# W1 Y6 ^; `
      3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {, \( L- E! s6 V# Y
      3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
    - |1 ~# J: h2 R9 D  ^9 m& k. u( d  3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
    % u. O  C9 [/ M2 T5 p. e6 v  3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9, 2 a8 I7 ]. a6 Q" ]  k
      3.577921435703125*^9}}],
    : e- D, x( `% Z2 J
    - z+ S2 M8 j2 [' S1 V8 mCell[BoxData["0"], "Output",# \+ H& Q! W0 V
    CellChangeTimes->{
    * g7 k! {4 ^  n, q  3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {
    " p3 X) }' ~/ Z5 a; P$ u   3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
    6 X" K# v( e& T7 c- n   3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
    / ]  r9 w  C4 ?* [# }9 G2 ?& b   3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9, % T$ G+ b8 r( N8 }( L1 n
       3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
    " |( H( P! j# U- C9 d5 c   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
    * P. y( u: V6 I- S) |   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9, 6 N$ m/ k2 S: H9 X7 D4 {+ I
       3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
    3 w: c  T: |* J$ ]* T, W   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
      P5 r3 }  Q# K* y   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
    . o7 m& x. h8 ~! x+ C   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
    7 Q  [$ x) S5 x# V1 t) ?   3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9, # b  r6 W! X8 s, I' r7 j
       3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]6 {; U0 }5 i5 [- |$ |. B  w: S0 E
    }, Open  ]],
    : M2 Y3 Y; |; o9 ]
    2 B& f2 Q* O0 _1 q: X$ ECell[CellGroupData[{& f* Z, r& @" y/ v5 o0 v: ]7 ]
    5 ^/ n3 m* k# O* O+ f$ \+ F
    Cell[BoxData[8 O4 J! `' `6 H+ J8 K7 D+ }6 j% f
    RowBox[{"Delta1", "=",
    ( M" [& ~5 r( c  o3 ^; b  RowBox[{
    / r0 @7 D# o# B# u   SubsuperscriptBox["\[Integral]",
    4 S1 i1 p4 l& g  E- [) R. O    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ) d  a8 g  G+ ~, c   RowBox[{/ k- P1 d6 h) S: }
        SubsuperscriptBox["\[Integral]", 8 ^+ U  Q% ~6 [3 y
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 7 B0 s" g0 [& b, ?8 q' K
        RowBox[{
    $ Z% M; ?2 K. W- F2 s, A& b' `! ~     SubsuperscriptBox["\[Integral]",
    - @) x8 w( u7 N  Q# f' v" [      RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 3 Y. H. N) S& |
         RowBox[{
    # s" z! c5 G" F5 I' P      SubsuperscriptBox["\[Integral]",
    8 J* g6 A8 v6 z, b) {# X3 @       RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    1 G( c5 F; S3 q0 p; _  t1 v      RowBox[{
    : C) f& b( `& @: B       SubsuperscriptBox["\[Integral]", # K3 I+ c9 S* {0 b) E3 W
            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ( B) R% I7 [6 {/ ]8 F       RowBox[{! C, T& E  `3 V9 A5 H
            SubsuperscriptBox["\[Integral]",
    7 w; L6 ]3 i  V9 S         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ! W) {2 s' g8 S6 [  W3 M        RowBox[{
    2 l- ?, e5 d" X; K" n         SubsuperscriptBox["\[Integral]",   \5 U, X0 ^! r) b1 @$ W
              RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    3 L. o9 R) M. k5 h4 ^/ b5 l& h         RowBox[{6 l: R' j5 V1 O" @0 a
              SubsuperscriptBox["\[Integral]",
    . u+ J. |6 t5 ^8 T/ u           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    & g7 ]: \8 P2 A1 z3 K          RowBox[{
    $ k+ A) K0 S6 }! B# |  J           SubsuperscriptBox["\[Integral]",
    2 p) D5 X# a9 h            RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], + g9 Y* x! K7 m8 d( d4 e/ z
               RowBox[{8 a" O$ f; {$ z" `) Q$ a& _
                RowBox[{"Exp", "[",
    - T0 T6 M% m1 o5 \             RowBox[{7 }$ N8 F- j" T6 x# t1 i7 k
                  RowBox[{
    $ k: `: k' T, j2 c9 O* X; v               RowBox[{"-",
    & S$ [' U6 a- ~                RowBox[{! o- g: _7 i  r4 C4 O  v- s
                     RowBox[{"(",
    , [, u; D! g' b. J" U                  RowBox[{"Xa", "-", "Ca"}], ")"}], ".", & d- o# n, M1 O4 J
                     RowBox[{"(", 7 S) F: V/ d6 d
                      RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", + d1 D9 O+ G; Z5 g
                  "Delta"}], "]"}],
    4 T6 b' t2 g& J            RowBox[{"\[DifferentialD]", "x1"}],
    2 [0 O) ~, N: ~            RowBox[{"\[DifferentialD]", "x2"}], $ k4 K9 J- ^; W6 f0 H& c' z& K
                RowBox[{"\[DifferentialD]", "x3"}], 8 ~  X5 {# S5 d8 g/ }' C. Y
                RowBox[{"\[DifferentialD]", "x4"}], 4 C2 z) F5 F+ Q  v  ?; t
                RowBox[{"\[DifferentialD]", "x5"}],
    / r; P; l; f4 J# S            RowBox[{"\[DifferentialD]", "x6"}], + S! P: t1 J7 Z
                RowBox[{"\[DifferentialD]", "x7"}],
    1 o% i5 b% c4 u3 _            RowBox[{"\[DifferentialD]", "x8"}], ! m2 J* F  v; R4 }  N
                RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
    7 t& m" q6 f# f# |* q3 k CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
    2 y  s) s, B2 P  b) N9 Q0 |6 ~( I2 F   3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9, . c7 t" P1 s3 {
       3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {5 r& |, r. Y$ e. _) M
       3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
    ( j' u9 E7 t8 J5 [. G   3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {7 U$ j6 n' G% F9 I) C( `
       3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9, 6 p  L9 ~/ M5 d# K+ u% n
       3.577918964453125*^9}}],
    ( ]* L( g! X' ?3 z8 c
    : h- u+ m5 t# R) nCell[BoxData[4 a. Q5 P; @( e& y& O. s
    RowBox[{"97.40909103400237`", " ",
    & q8 k1 `$ h+ c7 ~7 `, u, n- @  SuperscriptBox["Delta", "8"], " ", % n5 L& X: l' ?8 ~8 x
      RowBox[{"If", "[",
    $ Z8 h/ z9 V, c1 P0 J   RowBox[{$ J/ ^& w) R& Q( ^- X
        RowBox[{
    % g0 g0 z1 t/ a6 U. s     RowBox[{"Re", "[",
    + A& }# _6 S6 B) e      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",", 5 r% e3 I$ @! {! y  x7 X
        FractionBox[0 u) Y9 O0 n8 j
         RowBox[{"1.7724538509055159`", " ", $ w/ V$ d% c- j! Y" I
          SuperscriptBox["\[ExponentialE]", & C3 |6 f% U' B1 D6 b7 ?+ V
           FractionBox["1.1102230246251565`*^-16",
    - P* V5 P' M. D* K        SuperscriptBox["Delta", "2"]]]}], / [" z  }) z) Y! a
         SqrtBox[
      t5 Y' [8 s9 |3 o; I  v7 F9 F4 H      FractionBox["1",
    0 Z5 }$ m2 F5 X5 q' m/ x* w. |" t       SuperscriptBox["Delta", "2"]]]], ",", - S( I) b0 l% U; w$ g
        RowBox[{"Integrate", "[", . v( Y2 T$ X  G0 |6 K
         RowBox[{
    ( y2 f' L5 D( T2 b% v  M      SuperscriptBox["\[ExponentialE]", 8 C5 }" V2 t  p/ s3 {
           FractionBox[
    ! |+ K) H8 R; o2 L5 V) W( h        RowBox[{"1.1102230246251565`*^-16", "-",
    0 y, y0 ]& m3 T/ H( l         RowBox[{"1.`", " ", 9 q. Z; F% r6 d; _! K% V' r* \
              SuperscriptBox["x9", "2"]}]}], ( ?, k- |0 @6 Y+ q2 z  {
            SuperscriptBox["Delta", "2"]]], ",", # g8 z" C# f9 O) B1 ?+ p
          RowBox[{"{", : J+ W! |* }1 ~+ ]. u+ M8 z( x# U
           RowBox[{"x9", ",", # U5 n/ ^* B4 X: v1 y; y2 k1 p6 G
            RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", 1 w8 r2 \" b7 E* [3 I* r
          RowBox[{"Assumptions", "\[Rule]", 9 I% u  \5 E/ @! R- I4 v
           RowBox[{8 q  W. r1 I9 o) P$ f
            RowBox[{"Re", "[", 5 \( b) L6 F7 W$ F6 d- u9 ^  Y
             SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
    $ U% i2 ^: f" g! d9 ?8 |7 ^     "]"}]}], "]"}]}]], "Output",% r5 [8 M* |/ s' A. o1 ^) q
    CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9, ) U0 _" r: J$ A0 |2 }
      3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9, + \  V/ K" `3 V' F' d
      3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
    # R" C" J$ r9 }8 A4 |7 ~6 k; x  3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9, 1 }( r0 j: |; q5 w7 n6 Z  [* u
      3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
    ! a, r, U4 U( q# _3 _  3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9, . j7 Z) C9 e' w, e, W
      3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]* v7 e" Q( s0 h5 ^* e
    }, Open  ]],
    * d; ^4 \3 y: b, ^/ X9 P
    9 ^5 ~! }( c3 G) F6 V: cCell[CellGroupData[{: y3 {" h0 I; Q1 x, T3 g3 T
    * t, D5 n1 v7 p3 [; x3 E# W) B- Z
    Cell[BoxData[
    5 M, k1 b  `, N: F- c RowBox[{"Delta1", "=",
    0 N4 _; W, }# n' S  StyleBox[
    ! `3 y1 c8 D2 E1 q   RowBox[{"97.40909103400237`", " ", % Q( U( v, Z' q) `# L
        SuperscriptBox["Delta", "8"], "  ", # g* l  G' r8 O% K9 ^8 H% D( [" e
        FractionBox[% a- ?6 W# U( b$ _7 k: {
         RowBox[{"1.7724538509055159`", " ",
    ) h' _. g' |: d      SuperscriptBox["\[ExponentialE]",
    7 F: c1 V. m$ }. `$ I       FractionBox["1.1102230246251565`*^-16",
    ) Z, B# x( K" Q0 r2 P& C. @        SuperscriptBox["Delta", "2"]]]}], " r' S) U; a/ b
         SqrtBox[
    + i1 B2 C: \: K% a. N( z      FractionBox["1", 5 U7 B1 z! D5 @5 t/ e' y) G6 Y
           SuperscriptBox["Delta", "2"]]]]}],
    $ h8 e+ c" q9 W   FontWeight->"Plain"]}]], "Input",
    " [1 w) o6 k; M0 } CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {( X0 q1 q' [5 N. q+ T: ~
       3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9, . C" [+ I. S/ t$ l
       3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {% X( @2 c& b0 ?" t
       3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9, - z$ n5 O' e; O6 t& n
       3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9}, ; O( H& _' Q% X3 K% q3 F
       3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],5 K6 T# M1 }  b3 n; u
    + ^" f. m/ s$ s8 G' `
    Cell[BoxData[
    4 b9 d* T6 G2 E; X8 D FractionBox[
    , b! g2 e# e; ?8 v  }  RowBox[{"172.65311851642346`", " ", * G+ t, ~+ T+ a( j& w8 k. u
       SuperscriptBox["Delta", "8"], " ",
    9 x8 x/ \8 n! \   SuperscriptBox["\[ExponentialE]",
    7 {* O' S* @  W7 a) s3 Q    FractionBox["1.1102230246251565`*^-16", 8 s: ^6 Z, g6 l6 y; H" s
         SuperscriptBox["Delta", "2"]]]}], ; K2 ~1 K! ]2 Z5 h5 i
      SqrtBox[
    1 }9 `" \4 d2 l- O8 E. I, H   FractionBox["1", ( L+ r/ Q" o; V, s0 b2 H4 H& l
        SuperscriptBox["Delta", "2"]]]]], "Output",
    ' u' Y' M" e( N) z$ C3 y! { CellChangeTimes->{# z- h2 C/ Z: g3 I
      3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, . ]+ F: G4 D3 M0 b9 z* o
       3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
    : y5 Z9 ~) ~; u0 B9 \   3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9, 9 g1 {4 v7 b  C  g2 F- n$ q4 `
       3.578012166234375*^9}]
    0 ]1 A6 U# W1 L/ o}, Open  ]],
    + Q& R; F5 L# q
    ) D) t( l7 a: B7 k: ?1 Q  R$ TCell[CellGroupData[{0 P5 ^) m: e1 F/ g
    ) Y3 R" N1 T8 Q- e; F. D/ f
    Cell[BoxData[7 E! z" }) Q% n* S* g8 Q# j
    RowBox[{"DeltaX", "=",
    : f' D3 K( E- i5 _" H! b  RowBox[{"FindRoot", "[",
    2 N: G8 z: \7 W, y$ Z; A5 E   RowBox[{  J8 H2 }0 o& G& G
        RowBox[{"Delta1", "\[Equal]", "1"}], ",", 5 _9 A" K8 Z  s5 u" Q# v
        RowBox[{"{", * @* H8 E* c7 s. u6 @0 L  U
         RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",& Y5 `5 o% a, e8 v6 \
    CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
    - ?: K$ Z, A& R4 @, Z$ r   3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9, % {9 T& K3 r& h9 y4 A
       3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
    / L5 O6 e9 M/ ~+ Y   3.57791921584375*^9}}],+ g' Y0 i# M1 m" g

    9 V  l$ y' J4 a& a  JCell[BoxData[* a3 w5 [* a6 y2 A5 x% Z! F) M5 W
    RowBox[{"{",
    & e1 n- Q4 ?- J$ y3 {, u* U+ S/ }  RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
    3 l/ e% t% d$ Z# k CellChangeTimes->{
    + V0 Y1 C3 }: ~' t9 i  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9}, 6 Q* W+ \2 d; |- H; z' Q' Q
       3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, + v, L( x) @5 g0 u# _& ^. Y
       3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9, $ ^" {- s3 i* b' I8 ?
       3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9, ; [2 E, @/ M7 g8 t( W0 {" ^& y9 C
       3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {# e# f2 x, B: X) V* _% g5 n6 h
       3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9, , c9 D+ |3 i5 i1 Q
       3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,   G% D0 @0 G/ h, R* U
       3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,   S( a6 j9 c2 J: m8 k: @
       3.57796070150625*^9, 3.578012167703125*^9}]: M( y  `( l1 n- s! ~
    }, Open  ]],
    9 X* M3 J4 T) A- B/ y
    9 x! m' z+ ^) xCell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\$ x: V2 T- J4 J8 C) Q* s
    \:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",- d+ X0 g% p: v/ L4 b# L
    CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {2 W6 ^& k% @4 }+ F1 R3 S
      3.577960705312657*^9, 3.577960707621461*^9}}],
    # G" }' [: D5 ]2 z% R, Q
    $ j3 x) Y7 T2 b/ n. lCell[CellGroupData[{$ j7 m+ C. I, J1 f% ], L
    2 Y. Z. y5 J% W& J6 d
    Cell[BoxData[5 l% T# w: Z, ~9 L: X$ [# w
    RowBox[{"C1", "=", "Ca"}]], "Input",
    : p3 W5 [+ ~8 `9 u- z: ^% o2 z CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],2 I& S9 ^5 G. a* U, O5 ]
    $ D* ]- m" p2 F' e; T
    Cell[BoxData[
    ' y8 |: ]) E7 V& }7 K: r RowBox[{"{",
    - b: x) h1 t0 H6 |  RowBox[{/ m+ M- E' A2 \
      "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",", : |$ p  I* k1 Z/ r% v# {
       "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",", ; p3 {' F- Z3 G1 s# l+ X! L  J
       "0.`"}], "}"}]], "Output",& i$ p4 r  l  j
    CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, & Z/ ~" @6 X6 m  I* F* W, B1 K
      3.577960710273465*^9, 3.5780121855*^9}], Z* i# q9 m5 p# @
    }, Open  ]],0 D$ s' X6 ^# s0 J0 P$ b+ ?

    ( z* I; f+ Z: ICell[CellGroupData[{, f4 E/ H, B1 e( b" W
    + c1 Z* M  \$ e' F/ z2 t
    Cell[BoxData[
    6 E( F4 ]% S& L RowBox[{"u1", "=", ' R, F+ M) @; k1 [
      RowBox[{) u4 w' j. g- p0 @* @* w$ x/ U
       RowBox[{"Exp", "[",   v5 v6 B( Q' [1 u
        RowBox[{& y$ f0 a$ ~: D: F
         RowBox[{& N# f7 j$ \- s7 ^+ J
          RowBox[{"-", 5 D/ t1 K/ a) p% ^- v. ?, G: ^
           RowBox[{- S+ l3 Z) s9 T5 `" Q0 T
            RowBox[{"(",
    2 r) R( Q) W8 z         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ' S8 D) p  @4 B8 v
            RowBox[{"(",
    5 K6 j5 r. }8 R" o7 n. z3 D4 d         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    1 y2 N+ k" x5 K% }: v1 s     "]"}], "/.", "DeltaX"}]}]], "Input",! }+ i2 W" I! I
    CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {* t% g5 Q0 `) B- G/ Y
       3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {9 s# L5 G; ?3 y) X" _8 `, M
       3.577919193484375*^9, 3.5779192326875*^9}}],
    . T( ?8 J5 h4 I- f6 y8 [/ z* ~
    - T8 h  d, z; |) M1 I. A; Q+ dCell[BoxData[
    $ `2 p6 f  K( r0 m' t SuperscriptBox["\[ExponentialE]",
    * m. T: w$ I0 m% O5 g2 w. s  RowBox[{"3.141592653589793`", " ",
    ' g8 y' b/ T( v7 y6 W" L   RowBox[{"(",
    $ x- u3 W5 @+ ?: y% }* m    RowBox[{$ Y: W* F; B/ J' ?  [
         RowBox[{"-",
    0 W- C% ]& }: d3 Q  w9 i, B      SuperscriptBox[
    7 O6 j; [8 o4 M7 d1 z       RowBox[{"(",
    / `. u& W: ?- m% K4 m        RowBox[{
    + ^( W% @# n  [) L         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
    9 g3 n0 U7 t8 u8 ~$ N/ ^3 \     SuperscriptBox[4 t4 D" ]; V( Q. A- x5 J) w
          RowBox[{"(", ' y. @9 t2 r" v# O) O
           RowBox[{
    $ O( a, K5 T  q# d' ]        RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
    ! y/ S" l6 ~4 J     SuperscriptBox[4 C. `7 s3 p6 s) |$ a
          RowBox[{"(",
    " _7 P( A1 ~5 L" j) P       RowBox[{6 e- ~% y/ Z- Z' o6 ?
            RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
    * q6 Y% ]0 k% S     SuperscriptBox[
    3 I* c0 Q! s& e) @5 c$ w      RowBox[{"(",
    9 e+ U$ z) j: R% X       RowBox[{3 o; f( G( n. L) r! o
            RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", 5 [6 Y2 O6 r. I
         SuperscriptBox[* K& V' R3 ]. y! @/ R  h
          RowBox[{"(",
    & x6 x! c" [& i' {  o: j       RowBox[{! h* [$ {4 h1 W- A7 D- z
            RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-", - a( [9 t8 N' l
         SuperscriptBox[
    / Q3 y" ?" }& ]' d      RowBox[{"(",
    7 l2 K6 L( N+ T! W# T. X       RowBox[{
    . [' b) g7 u/ V. J. g6 s- w        RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", 7 @1 y5 g# c, R$ [# [. U2 \
         SuperscriptBox[) ~! ~+ j' P4 e
          RowBox[{"(", 3 e; c( B# v; F
           RowBox[{
    . G' y& Q- t( s# r% h2 A; {& s        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", ! ^8 L& \7 F  @0 x
         SuperscriptBox[. Z* u6 U0 {/ i
          RowBox[{"(", 9 E8 p9 p; C8 b) L' n; S7 ^
           RowBox[{
    6 E' _0 {* c" n        RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    * i: y* j- e0 Z/ E     SuperscriptBox[
    6 L5 o4 e0 `: I* s      RowBox[{"(", 4 g- H! Z, a+ @3 ?6 M/ Z6 L
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    " ?# |' K" M" C8 _2 R9 B" D    ")"}]}]]], "Output",
    0 E0 C( U7 ~, |/ c% t, \ CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
    # S8 b- {( i5 o7 o/ ~& T7 z9 C  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
    / ]1 y. A, j3 m  _  3.578012187078125*^9}]! {) o& G  O# S* A% D
    }, Open  ]],
    . w0 ]7 Y( ]% C; w& p0 |& [& A
    7 b0 c/ g- A) Z+ c" j- Y: m% Y$ @% qCell[CellGroupData[{. f: R1 T- [$ B, ]0 b2 y! {
    + p6 r1 v( T. y% m
    Cell[BoxData[
    & y2 q6 G1 x! _9 Z' e- X RowBox[{"C2", "=", "Ca"}]], "Input",
    $ f# o+ F" @+ g1 q& R3 r CellChangeTimes->{3.57792047321875*^9}],- L1 a% Q- q& h* z/ F

    ! M4 S% g9 q9 ]; b( I3 X4 xCell[BoxData[- K/ ?; f9 I0 o; L# I: R$ e4 o* d& [
    RowBox[{"{",
    4 q7 J5 d4 h. X, {0 ^  RowBox[{
    $ _% h5 q0 b2 c& q/ k+ a2 _; ~  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
    9 s! g, J+ k/ K: G( u! D   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], ' U4 _/ j! [% w0 F
      "}"}]], "Output",% i4 }1 b* `! m1 Q/ }3 E, o, \
    CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
    , [- I! j" b' J8 {! R6 ?( u+ X  C  3.5779607401163173`*^9, 3.578012204671875*^9}]
    # d- f" h0 W0 c; }2 m}, Open  ]],4 y1 s+ z7 U. k8 P  y
    . q# Y' Z4 B1 h% W
    Cell[CellGroupData[{
    ! N% Y3 f: i' J- @# O
    # Z/ H0 P" p/ r0 i9 B2 F6 M* ECell[BoxData[/ u4 N& ?7 x" v. o1 A# o
    RowBox[{"u2", "=", / h! p* R2 k. r/ a+ X# {+ k% @
      RowBox[{
    0 {; X4 x5 g  A, f; q) I+ w! p9 R   RowBox[{"Exp", "[", $ R5 j3 s  d4 ~, I1 q. M% h& v4 ?
        RowBox[{. S7 z1 u, U+ ?& C) ]8 Q
         RowBox[{
      V; Z8 s/ D/ i: Q      RowBox[{"-", 3 U6 j5 u8 }8 \! o6 b+ c
           RowBox[{
    4 Q0 _! b" A$ v5 h        RowBox[{"(", + g: @; `/ ~$ a8 w5 z
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    4 j0 O9 ]2 I+ l1 O0 m; D        RowBox[{"(",
    0 ~$ N7 c" X$ t# C5 [         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ) r' M1 B5 k3 ?: I+ R4 R# t     "]"}], "/.", "DeltaX"}]}]], "Input",: H  e8 z5 ?4 C
    CellChangeTimes->{3.577920484109375*^9}],  h" U& A$ u' L% X# }
      X" v# a+ x( W2 Y" f6 v
    Cell[BoxData[
    3 w0 x) T& Q. b( A SuperscriptBox["\[ExponentialE]", / k. }3 Q$ ]6 m. D0 G$ _7 _+ u
      RowBox[{"3.141592653589793`", " ",
    6 r( F* h: J$ ?6 K9 _- j   RowBox[{"(", 2 b& e# X. `9 h/ p: y
        RowBox[{6 w8 Z; c, ?; k, [* h
         RowBox[{"-", 3 w4 w% g- Y& B
          SuperscriptBox[$ n% d* d% L8 k0 C. {8 z
           RowBox[{"(",
    . ]; s% J* n# }3 V% [        RowBox[{
    * m, X- a& @) A9 W7 E         RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", 6 J5 o" Q4 U+ z* M5 ~
         SuperscriptBox[3 J' ?- s6 F0 g* j; D& |
          RowBox[{"(", , E; d7 c6 D& K* a, e( h
           RowBox[{, ~# f5 Y* Z. G9 N
            RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",   K8 {8 @) P" O% M, s2 v; a2 `/ v
         SuperscriptBox[
    " D! w" L, U& J8 m      RowBox[{"(", % G! x; e+ @" o, v! G: _
           RowBox[{
    . M! w. K! n! p        RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", 5 s$ U0 u( G; b, R/ I
         SuperscriptBox[2 b" o) j& k) x5 ~- O+ X
          RowBox[{"(", 3 y1 t6 G& U! f- Z) w) {$ G
           RowBox[{! Z4 @3 Q* z  e
            RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
    3 \3 L) w* ?& R7 I     SuperscriptBox[
    - e$ W% q$ r7 K' A% V      RowBox[{"(",
    3 m' ^: K* D( r1 R- h5 I/ w9 b       RowBox[{- |1 M; R0 K: Q' \/ _1 Z
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    0 Z0 k3 S( K: c# F: d0 M4 K     SuperscriptBox[
    2 K; D7 N/ R, E# w      RowBox[{"(", $ G! @. x. P4 d. l; o9 \* d' L
           RowBox[{" J" N  N0 Q* T& Y* b! E& p# h
            RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
    + \/ [) u7 `( J5 t4 f     SuperscriptBox[3 f0 M1 J' G: s( Y+ z* k
          RowBox[{"(", 0 y" @2 }$ X/ k  Z  B2 M( ]
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 2 K' @9 o( p$ P. s9 |! A6 A
         SuperscriptBox[
    & G- F# K# E! I      RowBox[{"(",
    8 g+ [$ \- c0 K" t2 m% f       RowBox[{* A. m$ ?9 f  p- }( `, R% O
            RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
    / ~# B8 R, P5 g- c% B$ q     SuperscriptBox[; B+ o+ w( `1 F. ]3 j+ O
          RowBox[{"(", 9 f+ x4 R. X# F; X. p3 ?, Z
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    1 U0 [4 F7 s% J' ^; y5 L, a& X: s8 R    ")"}]}]]], "Output",
    3 ]" n+ U- W8 G1 F8 E2 ^ CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9, 1 u: e, d% S  o5 P
      3.5779607413955193`*^9, 3.578012205484375*^9}]9 s  L1 [) B3 O$ h2 z
    }, Open  ]],
    " d. U/ }% j% g9 ^
    - U  ?; o! d: q9 Y' D. }6 cCell[CellGroupData[{: C0 ^. h4 `, Q2 ?, S" i

    - m/ T& B, ]+ U# r; f" aCell[BoxData[) y; t: f5 ^! p# K1 X, ^( C
    RowBox[{"C3", "=", "Ca"}]], "Input",
    2 \4 E9 j& f; K) e  T" `3 M CellChangeTimes->{3.57792064125*^9}],+ `% \& Z1 p1 \' r& [- M9 F  J

    9 `& G' \" @6 J; f. |, nCell[BoxData[
    & r* a# I; m! {( r4 p" e RowBox[{"{",
    ! g, {8 P: {0 M+ g% b  RowBox[{
    * f$ y5 b; p% }) S  "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",", 0 S' e+ \, ?6 S& u
       "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
    5 g0 j/ P7 |; z5 f. ]5 l  ~  "}"}]], "Output",. |+ }  X1 q5 j1 O0 Q6 k1 @
    CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9, ' v; j3 `+ a9 u
      3.5779607642027593`*^9, 3.5780122103125*^9}]
    : m+ z3 l8 z+ s. l- t) [5 w7 u! @}, Open  ]],+ Z( i0 Z; e9 `% m

    # R7 V% M; D2 U: M# yCell[CellGroupData[{
    . T! M" r: j  E5 ]; @. b$ j7 I% g: K$ |9 j$ s
    Cell[BoxData[3 @& E9 K% w, I" ]" a9 J
    RowBox[{"u3", "=",
    ) f- H# B& K! N1 `5 u" c  RowBox[{* v. n7 j4 u( O$ H% l
       RowBox[{"Exp", "[", 9 L' L, T. q/ _# Z- ?
        RowBox[{
    3 O8 j: I: B' V     RowBox[{
    ) b2 ?2 q- V2 H0 \4 @0 p      RowBox[{"-",
    % J, a& M# g1 |  I: }# d/ G       RowBox[{% i0 d* t$ Q4 H6 M
            RowBox[{"(",
    ! p% f" K8 _9 J- Y7 z/ p         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ( O* r0 g1 |& r) |( _
            RowBox[{"(", $ e  ~4 j* u- i' }1 v
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],: x( v) A7 F) o0 k
         "]"}], "/.", "DeltaX"}]}]], "Input",! t: o+ }0 y+ x7 W
    CellChangeTimes->{3.57792064921875*^9}],
    : f0 k; v$ K; ]+ m' t
    & Y. Y9 x( e8 qCell[BoxData[! M" b+ w& w- o
    SuperscriptBox["\[ExponentialE]", - n( b& O7 y3 Y% m, p
      RowBox[{"3.141592653589793`", " ", % B5 Q1 b' O8 ?. V
       RowBox[{"(", / `& I; c7 B) {6 c/ V9 Z
        RowBox[{5 b7 m* z2 Y+ T1 ?: ^% _( D
         RowBox[{"-", - n  J# d6 a9 v. i/ `8 Q, U; B( A
          SuperscriptBox[6 `: ]2 Q$ ^9 K# @
           RowBox[{"(",   R+ k8 S) i$ _9 `+ Z
            RowBox[{
    7 {) ~7 _+ q" H  |         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
    * O) y1 A! U5 A+ D3 `' {" z     SuperscriptBox[  Z9 F3 `5 x8 y+ u  }
          RowBox[{"(",
      }) ?. g; }& Z3 l       RowBox[{
    9 R3 t3 D! m, j7 i1 b" `* B9 \, F        RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
    3 r" f; D7 T( w( |3 y3 N     SuperscriptBox[
    2 b2 M1 D4 W! z+ u1 _% H      RowBox[{"(", , `; t% u$ J  K% ]& m
           RowBox[{( ^! k3 m& C" [
            RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    : y8 p- q/ T/ m* H6 Y) U" s     SuperscriptBox[$ Y: L0 H! s' R) y' h
          RowBox[{"(", ( P* h# ?- G5 J
           RowBox[{. N9 z& v3 M: Z. Z
            RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-", ' O. H/ R5 K# i. D2 \  N
         SuperscriptBox[
    ' l7 z7 M8 R% P  ~9 a0 s      RowBox[{"(", " N8 r: Q6 U  B; F
           RowBox[{8 g' D4 t  p9 H% P& p
            RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-", & T/ g2 U* y; Z; m$ O
         SuperscriptBox[
    ( L" h6 d6 s; J      RowBox[{"(",
    & Y' u# v" d# t0 B       RowBox[{* o% I: E  _, u1 X9 x
            RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", ' A& y0 y1 \+ f. w1 I7 P
         SuperscriptBox[
    * n6 r/ u  J3 W2 j7 Q7 [      RowBox[{"(",
    / m" Y% H. b. n# C- A4 b       RowBox[{# @8 M: E4 I' Y* W" k, ]0 N0 W
            RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", ' v  e: }6 {8 S
         SuperscriptBox[
    * g. s) m" G; O1 V0 C2 S2 [      RowBox[{"(", - A3 i8 X4 _* [; p. \; Q) e
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", & X" x, v" R$ t6 K7 j: q" T
         SuperscriptBox[
    * m  s' n' j6 }$ n+ L8 Y/ s; R6 d      RowBox[{"(", " B, i+ L/ d- f
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 5 {% F) w- |/ C$ e
        ")"}]}]]], "Output",
    * `! b; r( Z9 C CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
    7 I6 q6 }8 E4 d- F  3.5779607654819613`*^9, 3.578012211515625*^9}]
    " T: y5 Q" V$ G# Q! N}, Open  ]],
    + [; F' ?1 b/ F# n  \
    6 T* s. w, J* }" rCell[CellGroupData[{
    1 e" F& i( i9 A& |5 w) H0 ?, P
    , {; Z& Z1 O3 o7 V1 M2 x- T1 j( `Cell[BoxData[
    & ?+ C! p( o3 {1 w RowBox[{"C4", "=", "Ca"}]], "Input",% s) M% y# R( u- \1 |) `
    CellChangeTimes->{3.5779207559375*^9}],8 X8 [% B7 X+ T+ k* j0 |
    + X6 j  r8 A' y# N
    Cell[BoxData[
    & g1 H1 X. p; l9 {+ E RowBox[{"{", / h: q- c3 e. f+ I
      RowBox[{; d" b1 u5 V" h; Z7 v3 @
      "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",", 1 o8 [$ m0 T5 D% o: q5 Y
       "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}],
    : r* \) c# U7 ]  d( f" r" X  "}"}]], "Output",
    * {) b4 G: L' ?6 o CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
    - r7 E3 t+ H' q: \* z) z% p  3.5779607861363974`*^9, 3.578012216171875*^9}]
    " y5 h! Y1 O+ A& m. h4 f' Z. P}, Open  ]],% B; T5 ~+ l! i& {- t( p9 k3 e# e: \7 e

    + b3 X  x3 F7 [  w- {8 NCell[CellGroupData[{
    ! }- j7 p# f* t9 ?' G+ y- |
    ) Q: b/ B6 h) L7 c* OCell[BoxData[. P4 D4 A* ]6 @
    RowBox[{"u4", "=",
    1 S8 R  l8 f/ ]' ~5 ]  RowBox[{" o. ~: B7 o& |4 w
       RowBox[{"Exp", "[", % [9 b2 ?$ n% ^3 z4 S3 h4 m" G& |8 j
        RowBox[{) q% `" [. O# c3 n
         RowBox[{- B( r. A; y$ R2 `" c
          RowBox[{"-",
    - o( Z% A4 m$ N1 ~! H9 v       RowBox[{
    6 J' @7 Y9 f. J- C        RowBox[{"(",
      e3 i7 U1 B- ^. Q, z7 {         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    * v" }1 B' z1 `% \9 d0 E! t- U( e        RowBox[{"(", 0 W. J; V) W6 E4 y4 _) k
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    4 @. o; C9 Z7 F8 |3 u4 R     "]"}], "/.", "DeltaX"}]}]], "Input",
    3 N: l- c* i0 z1 Z/ n CellChangeTimes->{3.57792076325*^9}],
    , d3 |. Q0 o; k% R; p* i, l: d1 G  Q8 A5 l& n. M' k9 m
    Cell[BoxData[5 v+ k4 V9 p4 }5 ~% i
    SuperscriptBox["\[ExponentialE]", ) W) ?" w& S) E( A
      RowBox[{"3.141592653589793`", " ",   V+ a( z, S8 |$ c
       RowBox[{"(", 7 Q4 Q# O& x# Z, u; ]  |. W
        RowBox[{
    ' k+ m5 T) P9 Y     RowBox[{"-",
    : F! E& }* B( b+ m  y      SuperscriptBox[
    " g: o7 E+ H# J: Z) m7 R/ S       RowBox[{"(",   u9 F, O0 M5 r: i1 r
            RowBox[{# D- L: g* L  L3 \6 n; V
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 7 w; l! L# L# i; @- s" a
         SuperscriptBox[! `6 e; m, O8 ]. o$ X+ B/ t
          RowBox[{"(",
    6 R' p8 E1 d1 ]* D# I6 o7 F       RowBox[{' Z% p$ s! y) K, d; d  W' e$ I
            RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
    * k. u4 d) W' S- R2 e2 P     SuperscriptBox[' M! O6 B) @6 t& u; ~
          RowBox[{"(", + ~9 x4 S4 J* ~; ]! N
           RowBox[{1 N" A8 m  w8 t' q/ R) h. @# J" G
            RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    9 j# @/ @# w) [6 V$ Y     SuperscriptBox[& a* E: ?( J$ T. W1 Z6 [9 J
          RowBox[{"(", ( w- z* R6 X  e2 m; m4 a: _3 j
           RowBox[{- C% a3 R! N& p' o8 W& R
            RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-", & _7 B6 J" `. l: Q
         SuperscriptBox[+ p$ D* g* N9 a# ?
          RowBox[{"(", ! m' q6 E& ~4 h8 e" ~
           RowBox[{
    + a3 B$ D4 M; ?, o9 N( f5 P$ a) L        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    * u# T6 W1 ^7 g: \. V. L     SuperscriptBox[* e' a& Z1 w/ |! I, a9 X
          RowBox[{"(",
    7 y: Z1 ~; n1 Z) k* X       RowBox[{6 S- Z6 J& }( {  Q' [7 b
            RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-", 0 H& ?" y# ~. {/ ~& V7 ?* O0 D
         SuperscriptBox[
    5 d0 t  `. j2 D. Q6 {5 X7 {      RowBox[{"(",
    4 I4 Q/ I$ S  C% b5 e: X6 _. z' R       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    ' n& Y0 `. K& h     SuperscriptBox[
    ' o, c4 P/ O# l; I& M      RowBox[{"(",
    7 I. ?, T$ x+ H, ^6 |       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ! o6 I8 t6 f% `     SuperscriptBox[9 |: n% f! d3 I6 r
          RowBox[{"(",
    2 l9 x& q  B. t# u       RowBox[{
    & a3 |4 j- Q* d        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], 5 n9 h+ T4 e! }* }
        ")"}]}]]], "Output",
    0 ?! y* H9 p8 D3 D! B" F CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9, ! [, A$ E% b2 m1 M* l1 A+ y; y2 @
      3.5779607873531995`*^9, 3.5780122169375*^9}]
    6 f2 ?7 h8 }3 s) z* O3 u3 |* R3 P}, Open  ]],
    4 e! |7 A; [4 }  a  |1 c3 d1 O4 S+ x3 X- H/ f
    Cell[CellGroupData[{: o0 g4 J: X6 j7 j) ?

    - |1 \- P( t* {/ Q* ^% B8 L# ACell[BoxData[
    $ O2 R) S5 V$ r5 F RowBox[{"C5", "=", "Ca"}]], "Input",0 H6 ~& x; q" {) {
    CellChangeTimes->{3.577920860671875*^9}],# ?5 l+ @6 b( R- c# g3 J6 }! [0 u
    * T' a. j  c1 z2 `4 v
    Cell[BoxData[
    , ?9 ?2 q' w( a0 f% K RowBox[{"{",
    ) d3 J) s( \! j9 _# h  RowBox[{
    0 _% m- {% _' z7 m! _  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",", ! m# a9 B0 ~) o- C
       "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
    - c" I" I/ m3 B1 B  "}"}]], "Output",
    % w! c# X2 d6 z" ?+ v CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
    / t' F& S( T: E& y) R2 h( _  3.5779608137328453`*^9, 3.5780122209375*^9}]
    " b) u* n% t& X: V3 K7 K" d}, Open  ]],
    1 o2 a8 |0 r+ y) ?' H( k( v
    8 Q8 r6 o, j+ A* p1 U, }Cell[CellGroupData[{$ ?' r5 _4 q" [+ P+ ?

    % z/ i/ h9 K# Z. E3 D' |Cell[BoxData[; Q- }) A* h0 u6 \& p
    RowBox[{"u5", "=",
    3 f! A/ Q- c( j6 i9 f0 L* x# P, M3 H0 S  RowBox[{* O8 d6 X; z) E  c2 }) }
       RowBox[{"Exp", "[",
    4 B: a8 z' c+ h3 c2 E    RowBox[{
    6 ]( V3 c- h0 i     RowBox[{
    / V. q' b* E% O/ |      RowBox[{"-",
    % s# Y% t* L1 j  h  \( e' z+ ]       RowBox[{* {4 w1 G5 U; R1 j/ M& h
            RowBox[{"(",
    ' A3 @+ T' V) O& d         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ' R* o/ A: t& Q
            RowBox[{"(",
    * }% C# Q8 |( E+ J$ z9 P4 w, y         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    ( X4 y! A; b: N% S) U     "]"}], "/.", "DeltaX"}]}]], "Input",
    ' p* k8 E2 E  ^' j6 p1 m" S CellChangeTimes->{3.577920869375*^9}],
    ) S( N. l# U9 z( R
    $ k6 c! v+ D" U9 M, [Cell[BoxData[& N" }; C: }; n3 t
    SuperscriptBox["\[ExponentialE]",
    4 n+ h" M! P+ l6 T# [  RowBox[{"3.141592653589793`", " ", & m2 ?  @/ {( ^1 d( k1 K( y
       RowBox[{"(",
    8 w9 l! f  E6 Y9 N3 G    RowBox[{1 s. Y" D2 n3 s! u) n" s* I
         RowBox[{"-",
    * H0 `% H0 l4 _3 J      SuperscriptBox[) f0 L& q2 s- p6 }' L' v/ L
           RowBox[{"(",
    ) U( c# t5 S( J4 Z6 A% [5 g        RowBox[{
    6 b3 V) n. I0 ^0 J/ m: k         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    $ J: Y; h; G& |. {" R8 b5 J     SuperscriptBox[( X5 K# F* I' j
          RowBox[{"(",
    ' K+ P. w8 a6 a" [       RowBox[{* B6 C( O: q! p) Y: ], h# [
            RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
    : ^5 ?  h- w+ A, T# d" a     SuperscriptBox[
    " R' t, G: y) R8 J8 ?  D      RowBox[{"(", 2 |% c* F/ U. N, z0 a
           RowBox[{4 J" j# E* V$ ]) R8 g
            RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
    8 j' |! w3 V  F     SuperscriptBox[9 H/ R3 Y, I7 n' X! I* m' _/ c* `
          RowBox[{"(", ) u  V7 w' |- ?
           RowBox[{9 x- N$ V7 f2 {1 W2 `! t* Y' t! {
            RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
    ; b* F# `& q- k( ^- N1 |* W     SuperscriptBox[# h+ f) b: O4 W; G; k4 N3 x
          RowBox[{"(", 5 ?, E( W% b( X
           RowBox[{
      V2 f; o6 C" e$ W        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
    $ N) I1 S  |, }$ r     SuperscriptBox[0 ]: ?; g6 l7 O( u5 N) x
          RowBox[{"(", * K  N) @6 [, E8 \. U5 Y2 ?" m( e
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    2 U5 K! _4 i! ]& o. j' J3 A# I2 `     SuperscriptBox[- L9 c3 Z$ A2 |& ^2 o& m& X  z
          RowBox[{"(",
    " u; z# ^) J) ]       RowBox[{
    3 A' H1 [2 N. y- P        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 2 J* C2 ~3 s8 `0 h3 t+ x
         SuperscriptBox[
    * |  H; J1 m, t; t; D      RowBox[{"(", ! L3 g: E  s. c
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    - a# s$ x# ~$ I+ S& [9 T, N' s     SuperscriptBox[3 d+ {$ e6 z, a: Q) e& q/ y4 i- u: J
          RowBox[{"(", 4 s8 l# n* B! |) u
           RowBox[{& i0 N" g5 g7 i7 ^7 e( s3 z
            RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], # E2 k6 m! z& t* C& ^% A
        ")"}]}]]], "Output",# f3 z& w$ }3 Z8 [: P+ G6 Z
    CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9, , e. R6 u3 ]; O% B. R3 E! O
      3.577960815043248*^9, 3.578012221953125*^9}]
    ; G# X9 ]" M- ~: F; |}, Open  ]],
    8 ?" Q. Q% C: l# w0 U4 Y0 ^6 |
    & g1 q) X" O$ A1 e2 J2 t2 v1 k  Z# g( KCell[CellGroupData[{; v! B8 L. \: \2 b) g8 o% u- W" r

    6 V* M/ Y+ j* W* |$ Q' G9 qCell[BoxData[6 Y. w8 ?+ @& F* H" v$ i3 O
    RowBox[{"C6", "=", "Ca"}]], "Input",5 t0 d9 [( f+ {% o6 D
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],! e' ^& [- ]% n& c. Y% P$ V! ~

    # ?5 i" V: a5 S7 dCell[BoxData[8 K5 G) [+ N& O& w3 K2 c
    RowBox[{"{",
    , D9 k; L: }; ]2 Z+ K! ~  RowBox[{
    * N& C! G# M4 p9 Y* ^2 f* D$ k5 @  "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
    . l7 ^" u& J4 r8 p8 \/ L: U3 S   "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",", + P3 [; C7 Y4 }, |; h$ s
       "0.494866`"}], "}"}]], "Output",
    ) n8 @  }5 N) R9 Z( U, d. E3 P6 ` CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,  {' g; `8 m5 p
       3.5779608373044868`*^9, 3.578012227359375*^9}]
    0 a* r. u" v$ B- y. U}, Open  ]],' W) m$ [+ ]) i) r' e# W

    # s6 J. O7 e8 H& q; E' [7 [Cell[CellGroupData[{
    + {! a- a. ]+ Q* \
      h7 z1 N& o* F: h  [Cell[BoxData[! j/ h: b! G" @7 K
    RowBox[{"u6", "=", ( v# p6 B0 ]4 z: D8 U5 g9 g
      RowBox[{  b) f# J- T0 ^7 l: S) A- E
       RowBox[{"Exp", "[",
    5 R% P" e& p5 ]2 k4 [    RowBox[{. g7 ?& k. r% _1 [
         RowBox[{8 l4 N( w! D3 ^, A. \4 n0 X
          RowBox[{"-", 0 k* N  I7 k0 S* l) l8 U0 a' |
           RowBox[{
    / d& e" @& T% @7 T9 [0 n. m        RowBox[{"(",
    ( B5 J. k5 R( p% d$ |6 l; w         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    + z3 N$ m5 \3 p; w; u        RowBox[{"(",
    / b( {: k% q# A  _         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    2 y6 w5 U9 d8 `     "]"}], "/.", "DeltaX"}]}]], "Input",0 N% g5 v- ?; t) h+ A+ u% v
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
    ( R, c1 Z1 A" L3 k; B4 H* D- P3 g( X' }+ o9 g- Y. @
    Cell[BoxData[
    ' O0 L) r6 V6 [# Q% ], V SuperscriptBox["\[ExponentialE]", - j$ h1 l; z0 @" q! @; V2 h) |- D1 S
      RowBox[{"3.141592653589793`", " ",
    ( Y# {. m& F" w. C- _   RowBox[{"(", " {( a9 n0 u! p! e8 }6 [; S( c
        RowBox[{+ \+ k# v8 [2 C: ?
         RowBox[{"-",
    5 n+ R1 x1 p8 G1 Q1 C' j* f7 L      SuperscriptBox[  u3 F! F! X+ x0 d. ]9 P7 T
           RowBox[{"(", / w7 F4 t' S$ H9 C8 `
            RowBox[{" `& L( e/ j& v8 H- J& r
             RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
    0 l! N% n  P1 k* c8 F0 w  L2 C' E/ I6 J     SuperscriptBox[
    4 R% j& O, U" i8 ?5 H4 q" y  I: i      RowBox[{"(",   `0 y0 _3 g# |! y
           RowBox[{
    8 b0 g& S, P% \5 o3 C( j2 w/ [        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
    , g: a( g+ q: f, H/ f) g     SuperscriptBox[
    4 |7 A( o- D1 n9 p; h      RowBox[{"(", $ f5 Q' B3 b& {) ~
           RowBox[{2 D. J9 @% P3 C9 m/ `* T$ ?
            RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-", ! @, ^/ U4 @7 C) q6 Z7 V
         SuperscriptBox[. G/ p/ G! C+ m7 [
          RowBox[{"(",
    + P( S# N$ X& W" S4 m# n. g# ]       RowBox[{8 S2 z6 U- _, T* e9 [# k- H
            RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", 4 D$ w. |( Y# R" H' q# b
         SuperscriptBox[! B* d( v" F- @
          RowBox[{"(", 2 u* y) b  X2 K! D) Z
           RowBox[{5 u' m& R$ X# C; N) g
            RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
    % [$ b5 X# @! G( d( b7 ?, z     SuperscriptBox[
    1 s1 B5 H/ t9 M9 Y! H, ?      RowBox[{"(",
    6 U  Y6 L) ^0 R5 e+ x2 `       RowBox[{
    & E2 E+ Q" D5 `1 p9 b4 t        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
    7 i, N) ]& o2 z4 L: l     SuperscriptBox[
    6 ?7 m2 E0 g) T5 E  s      RowBox[{"(", 8 f% r8 Q; f) Q6 S: x  _. S  h; q/ l
           RowBox[{7 e! |3 P8 i% I; P& j( T' I
            RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", / |, z& m/ Z# R6 N) G# X% S6 y
         SuperscriptBox[
    ; h& R7 C- B1 ^/ T( q. ], }+ k$ K9 K      RowBox[{"(", - n: t% n, p1 r% P/ ?, l, I
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", % ?% ?7 l- T- n" D& ?) R: w7 d: O0 T
         SuperscriptBox[' e$ d7 q% ?! q( ]
          RowBox[{"(",
      J) h- \- ^+ B  [* k       RowBox[{
    / W$ B: t! L3 V2 a+ t& J% I7 F        RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
    * R! p4 U' B+ i7 J2 z    ")"}]}]]], "Output",0 O" M1 `# p0 f! i0 J8 W) u' X4 P
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    ! E/ ?3 z  K" q0 R6 I6 S0 Z6 a  3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]& f" K) J' a/ R9 r) L
    }, Open  ]],
    * z- `7 A* n4 N
    $ I+ l6 Y: ]+ H+ Z" F" TCell[CellGroupData[{, u4 H" _5 S. G
    # `# z. M- w3 c1 l6 o) _$ i
    Cell[BoxData[, z6 s- o  ~% l( C% ?0 ~9 K' _
    RowBox[{"C7", "=", "Ca"}]], "Input",
    : x' s+ X3 O1 \; e6 q& @ CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, ' v$ a* ]8 P( c" h6 u
      3.577921316125*^9}],1 H: H0 m6 C3 P! V8 X' K( H

    / F& x+ ?7 M, \2 x: M! zCell[BoxData[7 Q" ~5 ?0 R) @2 f8 h
    RowBox[{"{",
    & \; e; l- Y4 m* F, o  RowBox[{1 O# u$ l9 X! ^
      "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",", 6 z: T3 a; Y7 {: ]
       "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
    0 p. Z; H  m9 [, v; \: W* M  "}"}]], "Output",7 t% D7 ~: f# R) M8 W+ Z( h( A3 m( ]
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, , q3 M1 p& b  |- |1 {# F- U4 n- H
      3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]9 g+ w& N* s8 x) w! j
    }, Open  ]],
    : A" T  E9 y  p5 ]1 O  ^% Y  Z9 B( M0 G; c5 k( ], G
    Cell[CellGroupData[{
    + `! t- j3 h4 ^" n% p* ?: A# d0 C0 m9 {
    Cell[BoxData[
    7 n  I& A8 u( q9 w- r/ |  Y& i# N RowBox[{"u7", "=", 2 ?; D2 T2 x* j0 [/ \
      RowBox[{
    ; i4 F& @$ ?) S; [   RowBox[{"Exp", "[", - m: R1 k7 q* [: G3 W
        RowBox[{
    3 |" d, {( t3 @' k; S) V$ O+ {     RowBox[{
    ! G1 n" w  l* a6 {3 h2 {      RowBox[{"-", . k8 I; T3 Q& }& I
           RowBox[{' C5 Y5 V; `6 C% f+ s8 B- I* s* @
            RowBox[{"(", ; J+ H. Z% D9 h  k- k7 J
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 5 C$ V/ a! u" ^, y
            RowBox[{"(", 8 v. _, d* L3 f9 M, ?; k) [
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    # q- c6 k& }* W) }! R     "]"}], "/.", "DeltaX"}]}]], "Input",
    # `5 t# u. `7 l% X- I; S/ r, [ CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    4 g* A! g! f3 E$ c7 P4 c  B  3.57792132028125*^9}],
    7 ~8 m) Q8 M5 ~: O- M. A3 c8 U4 v1 y" T
    Cell[BoxData[
    . Y' u; N: B8 u0 a3 q9 A; x SuperscriptBox["\[ExponentialE]", # K: F( ^3 F* Q# |& u) G
      RowBox[{"3.141592653589793`", " ",
    2 ^) v" a) _, n   RowBox[{"(", 5 }0 h1 v1 P& l1 q' l8 H" t! m! M0 r
        RowBox[{
    & c# n; s5 e  h+ H  w     RowBox[{"-",
    * M8 o3 Z' b3 m$ f      SuperscriptBox[
    ; p8 z7 u# z: z" k       RowBox[{"(", . H9 n+ R4 A2 p& P2 k
            RowBox[{
    5 v9 t0 O! h: H8 K$ S. ^3 w         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ; a! L3 H- q: F2 e9 @# m     SuperscriptBox[  W2 g/ O' s2 k  K7 f2 j
          RowBox[{"(", , V1 M7 D9 g, P, C- A3 v: v2 K
           RowBox[{9 M+ [$ Y7 V  N
            RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", ( ]: ~8 S& ~3 L$ L
         SuperscriptBox[; F( b0 P. j! s
          RowBox[{"(", 7 N5 y' H0 Y* `1 K1 A
           RowBox[{
    6 \8 m5 _2 d, l1 T8 p" z, _& I        RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    " u: ?9 L  m3 l) A! C     SuperscriptBox[
    ) B/ E5 S) Z. n( S$ j. |      RowBox[{"(",
    / |  ]. m, B! X9 C; F       RowBox[{- b0 G& m0 C' P5 M1 z5 }
            RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
    . v  H4 Z6 r) l- B4 x; ^     SuperscriptBox[
    , [! f7 l8 T' M0 `$ w" g& p      RowBox[{"(", 9 X/ ]- A4 J% k1 o
           RowBox[{5 H" x- {- a3 h3 v; K5 l: A1 P
            RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    ) R& @0 F* \+ f* C     SuperscriptBox[/ n0 U" G! h; \+ _; C6 E
          RowBox[{"(", ) N! j) K1 m8 c. q3 G  P! }  Q" r
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    8 T! ?# Z. I5 ^' r/ K" l( o. ^     SuperscriptBox[
    ' Q* i- P# A! y3 Q      RowBox[{"(",
    ) k( t- I- w: \5 t2 h$ V       RowBox[{7 m* v3 Z. s4 _0 y: P) l
            RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", 3 U% i0 G# k% D/ z+ v  f
         SuperscriptBox[7 f9 i# U) g& A' B4 r
          RowBox[{"(",
    * b$ r+ R# R# q1 e1 V       RowBox[{
    1 F+ r$ k: I* c, d        RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", + `6 Q" w8 `, E
         SuperscriptBox[) l/ L5 F" N" b" w% i( o3 T# [
          RowBox[{"(",
    & ~2 _& J" U( k8 m       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    5 l  S" E; ]/ O$ t7 G, g    ")"}]}]]], "Output",5 t! E- g1 {3 e( ?1 I, g
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    & O, C6 e5 u. c8 d! [: }; w4 T  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, ; r2 w9 J4 {- d, a* b/ @
      3.578012251359375*^9}]
    5 K/ B" G; a5 e}, Open  ]],1 `, X$ G  h& O9 ~9 ~

    5 T' M3 o$ y9 B  z1 k' }Cell[CellGroupData[{
    * n6 F" T1 \5 L" d, C# H6 N3 k) V9 ^0 M0 X# \
    Cell[BoxData[5 ?2 s' B; `4 k6 R
    RowBox[{"C8", "=", "Ca"}]], "Input",, K! |6 l- `5 w+ N* A
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    * [0 G  C& B+ _* o8 U  3.577921316125*^9, 3.57792141421875*^9}],
    ; I) M8 R2 d' G, y% _# S  p6 ]0 t* q0 c" Q/ Q' C: \* M) i8 C
    Cell[BoxData[
    ! x0 C3 B: ]) _/ Z. c, ] RowBox[{"{",
    2 Y4 R" P2 G( H1 C% q9 L" D  RowBox[{7 z/ G! X, Z0 g, ^
      "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",", & O3 U1 |; w- @4 X# [
       "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
    # w; B6 ?' {* w- o. F  "}"}]], "Output",
    . {, s3 L9 q. j1 Z8 N* D CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    ; N) d' }( N* T5 a1 i% P1 O  @  R  3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
      l" @1 d+ @# e/ m; n5 }+ @  3.578012260515625*^9}]
    ! A5 i3 H+ v# @/ |5 X) T) H4 n}, Open  ]],3 x, P: T" B) ^
    1 ?3 x* @0 f/ x& W; O0 E8 Y
    Cell[CellGroupData[{9 J7 i$ U& e# E6 P9 s8 x7 J0 @
    : G4 U7 W! T5 E; }: D& Q- i2 @. I0 F
    Cell[BoxData[
    : a$ ?$ H+ I9 E) Q+ [& a6 E RowBox[{"u8", "=",
    " ?- F. h* e8 d7 @4 j  RowBox[{& }+ A! w3 K% @! M
       RowBox[{"Exp", "[", / p: D& }( p; ]; A: d) m
        RowBox[{( Z/ a- L# h  n. ?* a: P
         RowBox[{. X; ~# W) d% F# D. e* m# d
          RowBox[{"-", 1 ~1 \! k8 u$ z
           RowBox[{
    8 |. i: z& s" I3 `# h        RowBox[{"(", / U" u# A$ f* v5 a$ a/ Q( ]+ J
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ( w# i! Z% F* e) I5 l        RowBox[{"(",
    0 t5 C) z: o1 v         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    2 w% V; j( H5 ]) d' C     "]"}], "/.", "DeltaX"}]}]], "Input",
    + T' O! g) J' l( x! I2 I: R( O CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, : u! S: x' y; G: q+ P
      3.57792132028125*^9, 3.577921416921875*^9}],  V0 h8 {% q+ G- }
    3 N& V: R$ }: s# i
    Cell[BoxData[
    ) b& Q- Z, h# v3 A- q3 } SuperscriptBox["\[ExponentialE]", - T' V5 J8 Z6 H$ j, o7 v
      RowBox[{"3.141592653589793`", " ",
    5 V" D/ U  j0 c" M/ N0 k   RowBox[{"(", , c3 y0 d5 }+ q) c
        RowBox[{
    9 H; f. E6 R& C) X" d     RowBox[{"-", 1 N1 ~1 m5 Q; S! H
          SuperscriptBox[
    " M& K4 Q3 f6 H& @% _" b' V. C       RowBox[{"(",
    6 T3 S2 l" {! E+ @. Q$ s4 `  x        RowBox[{$ }5 K% V7 u5 N0 R' W
             RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-", 0 y# O; G& ^: J
         SuperscriptBox[
    & w2 Z1 u$ a9 s  e& |      RowBox[{"(", : U" j% x/ z3 U& w' b/ K
           RowBox[{
    : ~$ T! N# _' j4 q+ R        RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", $ V, B3 E6 t, `! }! K6 l
         SuperscriptBox[/ o( R0 U4 f3 _& o; `& K
          RowBox[{"(",
    + T+ Z: Z, N8 ~0 U0 \; x( B$ M/ X& P       RowBox[{
    : s- L+ Y) m7 Y4 v3 O! w) @        RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-", 0 y1 z3 a8 B- n6 S0 Y4 O
         SuperscriptBox[
    + l) w2 i2 |3 L! N9 D$ R      RowBox[{"(", % M( m" j2 n% I/ W# ?
           RowBox[{4 m* J9 J6 Y' e0 w; e
            RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
    6 n( i  M0 d* e  J- s     SuperscriptBox[
    2 ]) b; x, h" Y, t, I      RowBox[{"(", # |9 n3 v: U' [; Y4 c
           RowBox[{
    4 I& B1 Q  g/ v' _8 l% x8 x' ?        RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", 9 K" g5 v, U- K2 s6 f5 c0 D
         SuperscriptBox[$ J1 g4 w( E3 a6 r. t1 h
          RowBox[{"(",
    0 p# |* j9 i5 s% C- a, I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 1 n, u; i) V6 R! D" y
         SuperscriptBox[& n) Z$ h' a! O5 B
          RowBox[{"(", 3 n9 v' _+ B0 h0 C; @8 s
           RowBox[{
    ' u/ N0 L) {7 c  h+ C        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", 7 f5 y% K% W* b1 U
         SuperscriptBox[
      w' h; C% V  F" L! y      RowBox[{"(", $ }7 \, e, _5 S) V8 M% e" _- C
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    # `7 I) Y" [. A7 f     SuperscriptBox[6 @& c5 ~" F' Z$ g' Y# R9 L
          RowBox[{"(",   V3 `* }( j/ D. b
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ( [+ N$ q: W+ V$ R( l0 u
        ")"}]}]]], "Output",8 N" N0 u2 j7 u
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    ' v  i4 m# Y5 \# k/ b, l  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
      A  b0 }$ p/ p, [  3.5779608945565863`*^9, 3.57801226165625*^9}]
    % f5 p: }" C9 X1 {4 ?9 s8 h}, Open  ]],
    + G# m  y9 O/ y$ ~, I6 S, C& B9 b; v* ?: G; x. t& T+ i- v; ~5 @
    Cell[CellGroupData[{
    & `. f0 ~5 f& M3 F7 V7 x. S" w2 O, m9 x) A7 n1 n! Q% a. Y" k
    Cell[BoxData[
    ! \  w! m* T0 F: j RowBox[{"C9", "=", "Ca"}]], "Input",
    / ^; F! n% n6 B, ]8 Y* ?8 c* l CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    3 n- E7 G: p- x  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],
    . C$ l$ |  j% Q0 l9 @( f% }, F6 x6 |) r2 G' ~6 f) E. y) Y- k
    Cell[BoxData[- l5 k  o, B1 L" u- X( \8 [  X( g
    RowBox[{"{",
    ) g. Z; S( U4 i2 ?4 x  RowBox[{. R/ f/ u/ C4 M+ l
      "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",", 0 P( s* o4 l) {6 P; g# g- Y9 d
       "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
    ; d' K  L/ r  d- w  "}"}]], "Output",4 ^& R4 g3 d5 S, _
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 3 H7 U' v. ?5 T' ^) L: ?
      3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
    4 p% z5 z  r% k* K  3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
    7 H1 n2 K( L9 G- I. t  3.578012268234375*^9}]
    , u$ k) o' J/ s  Q! O, K}, Open  ]],9 x! |& t/ F5 p; a# }

    5 @  v) a" X+ g  T" SCell[CellGroupData[{
    # J3 p/ q1 q, b  E8 e4 u& H
    / A9 q* l  ^7 t( V$ QCell[BoxData[
    2 F6 q7 M8 N; u4 ] RowBox[{"u9", "=",
    5 [: P9 @1 Q/ c) b  RowBox[{4 G3 Y- b. D5 b# y6 q! A
       RowBox[{"Exp", "[",
    8 i2 h; P5 q0 m: ~/ z) P    RowBox[{
    # }$ }0 {! H  t. T     RowBox[{
    3 @6 L! P4 X# i      RowBox[{"-", / |4 H# x3 p" O5 T, M' ]
           RowBox[{- ^3 K3 g! H: A, R4 s" K, @
            RowBox[{"(", " t% ~; Z, K# e% \9 A
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 9 B, I! y. R# z8 o! E; p' j8 E
            RowBox[{"(", : g& ?& y5 f1 Q7 p
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    * t3 O. c  g' [* O4 |     "]"}], "/.", "DeltaX"}]}]], "Input",  ]# ?$ ^# b  Z/ h
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, 7 M3 ]! j9 m- A! v, R/ a6 z) Y
      3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],7 ]+ D9 b# \4 O% x, i3 ^' Y

    : y) o9 f; o$ V# d: m1 |Cell[BoxData[
    ) Y+ n( i, H+ q7 J0 \ SuperscriptBox["\[ExponentialE]",
    - A* _: @5 r$ a8 I  RowBox[{"3.141592653589793`", " ", . U; e5 n& [9 q, C* Y
       RowBox[{"(", + w1 F9 ], x* q3 g7 {" M
        RowBox[{
    ' S1 P3 \2 t9 C6 w  h; `% }     RowBox[{"-",
    7 Q0 [9 ?1 F  z6 c1 v$ s% ~      SuperscriptBox[
    : p4 _7 G& g! a" l4 w1 C       RowBox[{"(",
    8 N$ e8 t4 `6 i4 p+ L        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", $ E% z3 M' ~0 ?2 A
         SuperscriptBox[4 B4 Y3 ~; u* y$ y/ O' M- B
          RowBox[{"(",
    8 a3 |- _- k- G) ]- U9 a4 n       RowBox[{# j# Y1 @; x1 w
            RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
    * x% B/ C& F$ E% e: ]) l4 V( k     SuperscriptBox[
    4 T* N3 X( _% R" s- B      RowBox[{"(",
    3 F* D$ t/ c- \: E, |# e2 L       RowBox[{
    * _& E# v- Y" x0 Y6 n2 ?        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-", ! S8 X) H9 d5 A  B8 W& }# `
         SuperscriptBox[
    / r  l7 B1 I5 _# K4 T      RowBox[{"(", . a* y) b8 |6 t* M8 U7 l: n
           RowBox[{
    . w9 l9 U  ?& n& k/ w        RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-", $ C7 B# t/ D! E# |
         SuperscriptBox[
    + Q! `- e+ v3 w6 A- M      RowBox[{"(", ' s5 m; _& \. ~+ m1 a( n  a0 F& i8 F
           RowBox[{
    4 F0 ]6 d( N0 L        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", & @1 Z7 Z" ?; r, K* L# {9 o8 |
         SuperscriptBox[
    ) g) ^: `) G: N, h      RowBox[{"(", ; D# \2 X, _8 D% d' I  u! e
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ' y5 z! L: f: F$ o6 o, {
         SuperscriptBox[1 Z- L: `8 A& g* g% K, Z
          RowBox[{"(",   `9 G; M8 f# N0 F  _; E0 ^' F4 ^
           RowBox[{
    9 m- E7 g8 a% k0 `$ |- E        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    2 p- G1 d! I) @. ?& C- G4 u2 {     SuperscriptBox[9 u8 e5 s2 l+ Z% s8 H5 }( {
          RowBox[{"(",
    4 d+ X, Y9 ]( W% {3 {       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    1 h) B2 l' M) Y9 \5 ^8 {     SuperscriptBox[5 L+ e3 K# H" k
          RowBox[{"(", $ `' g, r7 G9 l, y
           RowBox[{1 k# @7 j+ q! E; ?  W
            RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], / t3 i5 ^! e% s% f
        ")"}]}]]], "Output",
    0 w7 H& g! T1 o$ R& r$ l4 d2 n6 d CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, & e; }5 {- S* q  O* Q1 m
      3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9, 7 b5 p6 H1 e0 q2 s3 j0 l+ j
      3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, , L) T6 J7 {- a  `" E/ I% u5 c
      3.577961530421959*^9, 3.578012269125*^9}]9 J# s- m2 }+ M1 {3 a* z
    }, Open  ]],0 Z/ \" w( G( \0 W% D! I
    / I% E5 L$ b) u( O' y
    Cell[CellGroupData[{
    2 I- `2 v5 _: e
    + E% J  l+ y" }) w- V  e8 dCell[BoxData[{
    / L1 W* z; F; S: B RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]", 8 z6 I4 N' K2 K+ v: T5 H* G/ B$ K
    RowBox[{"u10", "=",
    ( Q" H! F' b$ T4 ?( |  RowBox[{, P: m8 g0 h1 J( q
       RowBox[{"Exp", "[",
    $ h' a2 V; X4 F/ }6 }9 E' z0 ]    RowBox[{
    4 @  e1 v5 i: {) e% j& ^     RowBox[{
    8 H8 U1 N& R: O  R' N      RowBox[{"-", $ B# [4 ?& e0 ?/ L# G( e
           RowBox[{+ Q, e+ {" [1 a2 c& v
            RowBox[{"(",
    1 P  J5 y9 \' ?! z         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    6 y' u2 g& ~" q+ R$ S        RowBox[{"(",
    ; {/ p# s; f5 _8 X         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    5 ]  A; J8 Y0 Q0 u. v     "]"}], "/.", "DeltaX"}]}]}], "Input",/ V# ^  b1 p! ^( m/ j
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
    5 E2 t: l9 p, j+ I  K' C6 p
    : {# m$ \1 K6 c" ^1 T  ~% i: @Cell[BoxData[* G+ E3 o( x' a" v
    RowBox[{"{", ' U  {1 R: ]0 |" c
      RowBox[{
    : N; l2 `/ Y( a7 f  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",", 7 `; J- ^- l$ i5 \- Q
       "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",1 W  }% D  D! t( P" k0 b; |6 a
    CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
    & S( E0 x( d& a
    8 T  Q0 r1 A4 z% C0 S. {Cell[BoxData[! k0 h, o6 c; n- D+ @
    SuperscriptBox["\[ExponentialE]",
    # t& `+ ^, G# p% B" p) _+ [  RowBox[{"3.141592653589793`", " ",
    ' c: t% \. N8 I+ g3 F   RowBox[{"(", ' R; L! i" [6 }% D1 A( ~
        RowBox[{' y- s: w2 T5 r+ [4 a
         RowBox[{"-",
    0 Y+ Q8 \" r, Y. w! ?, V8 ~( c      SuperscriptBox[* y9 ^# x( G  S! B
           RowBox[{"(",
    3 K/ ^& a4 w! u" D0 u/ Q        RowBox[{2 e+ w7 w' g9 q0 K* S9 y! C0 e1 K
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-", 1 Y0 p4 K! N4 ~- L% H: h
         SuperscriptBox[
    ) F2 q! p* F; t# f      RowBox[{"(",
    ' z) K4 O8 E/ x& v       RowBox[{
    1 F* V  @* f' Q- U        RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", . c# K7 h9 k8 k5 a( r& E4 H  S3 q: e
         SuperscriptBox[
    , V/ o& I) f: K3 A# d  x      RowBox[{"(", * h! q2 ]0 X% r0 q2 a" ^
           RowBox[{
    # S! ~$ _+ L, ^        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
    9 x6 @7 O- v7 z: {) C" o     SuperscriptBox[
      B" s; P6 k2 A  _: G9 I, N      RowBox[{"(", 8 Y8 P8 v6 @# B  I
           RowBox[{
    5 G5 o$ m6 y# |4 d$ o9 P        RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
    6 B2 I& q1 T% p& C. n' g     SuperscriptBox[
    , Y: k, i4 v% N; H$ }9 b( ~      RowBox[{"(",
    0 ?& g9 f9 c7 d- E+ N       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-",
    . d! Y# C& R  B* y) P     SuperscriptBox[/ x7 ]' J) F( v3 K& H* L" P( E
          RowBox[{"(",
    $ m: F( ~5 n- s, ~0 M       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    3 ]* _8 R& U" @# N     SuperscriptBox[
    , [( f+ i5 L: E* x/ l6 z3 }      RowBox[{"(",
    3 h8 ?, l* |4 V! a6 P/ W       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 6 P7 A' q" w9 }/ h- O& P% Z
         SuperscriptBox[$ R2 m/ d& h- n. L0 p& ^) l! K
          RowBox[{"(", 9 _: t) Z0 |1 |+ F
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", : H* b1 J4 ^* d+ @2 n
         SuperscriptBox[
    2 k- i+ d% t8 M      RowBox[{"(",
    ' v8 U# y8 h. F; {+ l2 W       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    9 W, x6 z  ~& h8 S& ^0 R8 U    ")"}]}]]], "Output",
      L6 M8 I5 g" s4 \# V7 ~; u. x CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
    * Z. j2 [1 z, a/ `: C- I8 j1 J$ I}, Open  ]],1 s8 W! Q' F2 R
    # Z+ X" K0 N0 V( o, }
    Cell[CellGroupData[{0 K$ F; n/ c5 ]/ X( l

    ; k7 @6 M; g9 w$ i2 nCell[BoxData[{% X+ w# U; w' j: p; z$ y
    RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]", ! @2 _9 W- |4 i' k. U( W
    RowBox[{"u11", "=", ) g, M  ~- {! k! y% h5 |
      RowBox[{
    * o! z4 O6 u" N3 k4 l) w" g   RowBox[{"Exp", "[",
    ( y4 a9 q9 ?7 K7 |. Y7 B    RowBox[{
    % r+ E) |8 h" l/ c     RowBox[{7 n5 _' J. P3 Y) Z* G$ p
          RowBox[{"-",
    8 _9 G! {4 d6 k# ^" ?4 r0 J       RowBox[{7 E) |( Y0 \9 u7 Y3 L" X+ S
            RowBox[{"(",
    4 Z) Z3 ]8 g5 t/ s: q: Y5 J         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", + u5 L; K8 q7 m9 K" I
            RowBox[{"(", # o! u3 U$ K$ M
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    4 R3 H1 n+ k$ }4 T0 k$ n/ x# l     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ; T. _% A" f  S: H CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ) ~8 ~8 r/ N) c/ n1 V  3.57796154237158*^9, 3.5779615434011817`*^9}}],
    7 a+ X7 ]$ t$ Z
    , O+ @+ A7 m( rCell[BoxData[
    6 k$ X- A8 P4 O3 Y1 u RowBox[{"{", - o7 U! \2 B- q7 b
      RowBox[{
    6 w+ y  L# y4 k6 c+ p& s8 N  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
    # [$ P5 M' {# V2 d; D   "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 1 ^3 `' n, x, J$ E6 @2 {
      "}"}]], "Output",% Q# T6 s+ ]! N: G
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, % S) |$ G4 Z/ w' k5 K' |! ~
      3.57801228203125*^9}],' _1 B6 E5 E% m3 c1 z* S

    # b; {; @% i9 ?& r* \Cell[BoxData[
    2 o% u2 Y4 U3 P* a SuperscriptBox["\[ExponentialE]", 9 {( a7 [$ g+ x5 R$ D6 X; w- j) r5 U
      RowBox[{"3.141592653589793`", " ", ) ]# q/ _- e$ v8 e: d
       RowBox[{"(",
    2 g, w' L: R0 v6 B    RowBox[{
    7 |3 t8 T" r$ R& }     RowBox[{"-", 9 n$ ^2 R0 o! Z9 Z0 ^& G8 @& B
          SuperscriptBox[
      ~( ^1 N: X, P# g$ T0 I       RowBox[{"(", . f+ A) c+ ?' F8 t4 z1 P: h
            RowBox[{
    6 V7 L+ N2 ^0 \0 q& \+ h% Y         RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", + l0 A& j9 M0 a! b- i( W  l
         SuperscriptBox[
    ) @' f5 L: X! {  ^) x: ]) F+ }) b      RowBox[{"(",
    , q- X/ o  r- H. o) ?9 n. D4 I* j       RowBox[{1 E; |* H( J& |" M  U# D( a
            RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", 3 f) `) }' b. T  B0 B/ d  A- ]6 D
         SuperscriptBox[
    . ?# ~: o2 ?' ]2 X$ r+ {6 [      RowBox[{"(",
      m! {' F9 w" n9 C# E3 {       RowBox[{
    + ^7 B& C/ R- s( q3 o        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
    8 q6 \9 F: t9 Y; i2 U     SuperscriptBox[
    / X+ d6 t/ k0 F) O3 B2 H      RowBox[{"(",
    ( C% N/ z9 R( b% x       RowBox[{' w9 `$ ~5 Q& _! A2 ]
            RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
    & a* u5 z; Y; ], i     SuperscriptBox[
    8 E: I2 n) l# B' t      RowBox[{"(",
    6 ~! `# N2 C0 ^4 H8 k- f+ Y       RowBox[{/ t. V- f6 m& Q8 F6 @7 g0 F
            RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-", & }$ h/ z0 h9 x% D2 I
         SuperscriptBox[) b! E( d+ ^+ R: o/ j
          RowBox[{"(", 9 m6 b) C5 F: e6 k5 U1 ]+ X. S( q6 Q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ! U  j) Q" ]/ V$ M2 |     SuperscriptBox[
    0 x" K& v: Z5 E! R: ~! A% {      RowBox[{"(", : T' W* M& y: e6 ?! b+ Y9 R: C$ C: g
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 8 r& X  s3 I0 Z: Q% s
         SuperscriptBox[3 a# t- N: }' E. w% g- A$ T
          RowBox[{"(",
    + s" P  k: T7 Z) g7 h( J; k  ]; A       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    6 @( D( j6 m* R     SuperscriptBox[
    : _! c% x3 N  ]      RowBox[{"(", - v* z! j- f$ O) L4 s
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    8 U0 R9 F6 A1 `    ")"}]}]]], "Output",9 q- b; C+ L& t% j
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9, ( X6 o' g# d4 O
      3.57801228203125*^9}]
    0 U' A: t2 ]6 [- V}, Open  ]],  Z' ], W# ^& g4 A0 z

      J* Z( S% `4 B' g7 {) fCell[CellGroupData[{
    . P# e) z- o0 m( j/ i. N+ r: V+ Z' w1 X! f0 @' i" J$ M9 }. M
    Cell[BoxData[{$ r& j) Y6 ^) T, h. r$ {
    RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]",
    ' F3 x7 q, |% [# k RowBox[{"u12", "=",
    % v9 z% v2 Z& p. \  RowBox[{% q  j+ f# J  L6 w
       RowBox[{"Exp", "[", . L4 B( O! x. i& ^
        RowBox[{7 {1 Y# ^% {1 W% |' B8 V
         RowBox[{+ a- k. b. q9 T: l# n6 N
          RowBox[{"-", * q% v) o1 P& V3 p* v. w) n- h9 I
           RowBox[{
    , w- e0 _, \7 V" A3 K. {  c        RowBox[{"(",
    + x8 K9 \: f& u* b         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", + q' g6 V  d; N# u4 B
            RowBox[{"(", 0 d( |7 b& M2 [+ a2 Y
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],3 h6 Z" k6 `6 h; @5 |
         "]"}], "/.", "DeltaX"}]}]}], "Input",+ W; \+ r- P1 v% h0 w
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {$ h% [, S- n4 h6 [, A. s3 p
      3.57796154237158*^9, 3.5779615576284065`*^9}}],% _- f  ]- i% z! A' H) v  a* }4 Z

    " T' D* \1 j2 C# n- |6 @; bCell[BoxData[
    $ r1 P, }4 e9 X( k7 ? RowBox[{"{",
    , E3 v9 u/ I1 D5 ~4 O9 u  RowBox[{' L* a( _  |& v0 O; |; }
      "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", , A) J  h! v8 z+ m  W
       "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}], " I- R8 q7 ^% D  @3 E- s6 n) a2 K. T8 T
      "}"}]], "Output",
    ' W) g* {4 b  U+ n6 y CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],9 p6 k+ p4 Y" C- `& L$ k) q

    - U1 W) Z( m- S6 s7 YCell[BoxData[
    7 N# E7 G) [! ~ SuperscriptBox["\[ExponentialE]",
    ! h0 b( z) y- Q0 h" S4 e$ g$ k/ ?  RowBox[{"3.141592653589793`", " ",   H" h. a& F! K1 `' Y
       RowBox[{"(",
    # m( N& R1 h! Y5 e. d+ t    RowBox[{
    ; B3 F, T( Q3 {# V; F) W6 q     RowBox[{"-", 0 q) J5 S& Z3 ?: e# w9 P, _
          SuperscriptBox[
    % `1 L% q1 \; j0 H7 Y       RowBox[{"(", . N( ?$ V' v5 F) \8 i4 T
            RowBox[{
    # T% ~1 m# I) N! n" P: u         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", * O/ p- g$ ^; ^( R% d
         SuperscriptBox[
    % d) M" e) R6 o8 M3 L0 {  c      RowBox[{"(",
    % j1 P" ^3 ~! s       RowBox[{1 v) T4 V, V4 R) P
            RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-", 9 i7 {; v# i( F5 F
         SuperscriptBox[+ A( H( F; L/ j) d$ ?
          RowBox[{"(", 8 L- n1 z- U# N& O7 {! P
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", 0 \4 K9 ?: x8 I8 r% x& ^8 Y
         SuperscriptBox[  ^$ v" z3 M6 H4 E/ j* x3 H6 o
          RowBox[{"(", ) z; T3 c( ^9 u$ V0 |
           RowBox[{
    ; W4 e; s7 i( _; w8 m$ N        RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
    / Q/ J0 H7 \' z5 t( u7 N     SuperscriptBox[
    - y5 D8 L; {$ ]- k      RowBox[{"(", ! `; [1 d% C% \. C3 [2 F  t. n4 u
           RowBox[{, ~' L; u, k5 f; p. t+ M
            RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
    ' r; k+ o8 l  h) V. v     SuperscriptBox[7 t" F: P5 V) N
          RowBox[{"(", 4 G: C! Z1 ?5 _  T) I
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    % L/ l: R' {; p' F$ z9 s     SuperscriptBox[
    # p1 d2 z3 l' d4 N6 h+ q1 f7 C      RowBox[{"(", , z! I/ }% _; m- |% _1 q) z( x
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", % z6 l/ `( Y# l( f$ |9 O# X/ v/ p
         SuperscriptBox[
    6 D# H( e3 v5 `+ v( e3 i6 A      RowBox[{"(", ' `  x! W+ w9 T  S8 M$ S% ?4 j
           RowBox[{* T: O7 t) r$ M+ I+ o
            RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", ( }6 h6 A3 q8 m' Q- B& f
         SuperscriptBox[% R. T7 G* M1 U" q
          RowBox[{"(",
    ( w* ]4 k0 @; |# a, E* }+ v       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    " O% l) O( W( l5 G+ u    ")"}]}]]], "Output",
    # S% N4 F! }" u2 O' l, N4 X/ x) N CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]# d, m; P5 O1 D+ X  Z
    }, Open  ]]," W, R+ I1 m2 z! {1 f! M
    / D5 y8 ^) D2 E. y* J) O
    Cell[CellGroupData[{
    # T: Y  C" T% S6 W8 W/ g7 S' ?
    5 z) G( m6 J# f: y$ j/ o7 p' R6 {Cell[BoxData[{
    " X8 K' o( z$ G7 x; U6 ?/ b RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]", 1 w0 k" j  D1 h7 S! Z; I
    RowBox[{"u13", "=",
    - l+ Q% }0 p% u2 k0 I  RowBox[{
    , x; e" N& W. _: Z   RowBox[{"Exp", "[", 8 J" H+ d8 M2 V1 F
        RowBox[{
    2 c7 w2 K5 g# `3 F: F     RowBox[{
    # }. ~- e& @5 U) }. t6 w; t      RowBox[{"-", 5 T0 k" }% u/ K9 A6 e) K0 B
           RowBox[{5 x' h( H: I+ k0 H. H0 t9 y
            RowBox[{"(", - a! h. ~$ z* z% _# [5 \+ D6 U% q& b9 Q
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ! A: S  B) ?& K: q) [. {        RowBox[{"(", - `+ M% _& L. K8 A
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],4 `+ V- R- h" v, d" d
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    ! K- q/ H6 V0 W5 W& J7 U, C CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {' F( j* E3 q. H+ e0 ^
      3.57796154237158*^9, 3.5779615599684105`*^9}}],
    " _. I$ \% M* U) H5 ^# d6 Z: K4 q6 w( r& \
    Cell[BoxData[
    ) t# A2 O- H: v1 a4 D' O RowBox[{"{", ! K" g* X  D/ o/ Q
      RowBox[{
    * V4 V/ Z4 e# a/ U" i) u; W+ v; L  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",", & j6 r$ q2 M2 w
       "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}], - K+ s" w; A+ u7 z  [  |" M0 e
      "}"}]], "Output",
    9 d' \' H: E" h CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
    " {9 N  J2 P2 s) ~( z0 m6 \4 n$ ]1 e% ~' A
    Cell[BoxData[5 P: w5 Z, t9 F& B# h
    SuperscriptBox["\[ExponentialE]", 7 M# x( c! t8 U- s' x, Y6 D
      RowBox[{"3.141592653589793`", " ",
    # g; {5 I3 {2 m! g4 X; K   RowBox[{"(",
    - V# ^4 [4 d0 C    RowBox[{+ C( `" B: G/ v! \8 t$ y
         RowBox[{"-",
    4 d3 u" @3 H2 n/ o. T      SuperscriptBox[
    0 |, j6 n  q( `+ U8 C. ^/ M       RowBox[{"(", $ Z9 y1 C# }# P7 N. H
            RowBox[{
      r  Z9 U3 o; v  a7 Y4 u/ y         RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    1 H9 o6 A% {0 R1 v     SuperscriptBox[4 H: b% \. a5 `% i# s4 q
          RowBox[{"(", 5 h% l, l' b) r' S( }8 A
           RowBox[{7 \; V7 G1 t4 }4 o, o
            RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
    9 m* ]& P  t& R% C7 ]* T' n     SuperscriptBox[
    ! @. G  r9 `6 s7 M' T      RowBox[{"(", ; f& |, t; h( M
           RowBox[{& z0 Y- p  p7 }0 t+ h7 D
            RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    / w- |7 ~/ Z3 j; d3 u8 [, k6 I* o# ~     SuperscriptBox[% E5 z1 A7 w5 A) s" \0 l$ [9 r
          RowBox[{"(", 1 [" N. P0 k5 O
           RowBox[{
    ( n& p7 W) U( [: Z. M' z* {        RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-", 3 M, h+ b7 m) B) g- K, T" N% ]
         SuperscriptBox[
    . N9 A6 ^: e% G! C* B      RowBox[{"(",
    1 Z1 }: ]$ t0 y- y9 r/ j       RowBox[{) K0 i" U( n8 B1 h' C* ?( W- D) {
            RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", 8 }+ m; x* h/ s6 t
         SuperscriptBox[
    3 a) H" c  ^0 l! D, H$ q      RowBox[{"(", / K3 v* s& J6 u2 A4 D4 a6 t6 h
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", # }' g* c, m3 G' S
         SuperscriptBox[
    3 R. m/ L* O  k  S      RowBox[{"(", / \- R9 H+ D6 Z* y- y( z; {- J
           RowBox[{
    - J+ t  V# U& g2 {% R( O5 u        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", 3 ?* R) R/ N2 O  @" p7 F
         SuperscriptBox[6 x/ G. Z) J8 U/ p3 j
          RowBox[{"(",
    2 S8 z+ F8 h+ L4 M3 a/ U5 j# I& a       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    + k$ x: n, Z- U" B  |5 n% S; A     SuperscriptBox[* O) O) }3 I& v$ ~6 U4 G
          RowBox[{"(", ) n6 L8 l) W) [, p# |1 w0 r9 T4 D
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    $ }6 ~% x+ o. f; o, Y4 j( t( q    ")"}]}]]], "Output",
    / n8 R" g& Q  R CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]% E" a  U% z0 ^# Z5 x, `; ]
    }, Open  ]]," o5 m5 i4 w5 t8 _
    % K1 q0 `$ n8 R( }
    Cell[CellGroupData[{/ P" u' j9 O3 [& t) S

    + h3 S% l# F' \4 }; R: W; HCell[BoxData[{/ i: C( C# q& c7 e& \5 D& S
    RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
    + j7 w7 A( x; ]1 P1 G+ T RowBox[{"u14", "=", 7 Q- _8 f& m9 y; V1 e
      RowBox[{
    9 Y/ i& I' k. h+ L1 D/ V   RowBox[{"Exp", "[",
    : e2 v# z: ?7 \0 M, i( ^    RowBox[{
    $ I8 {; U8 ?0 C. R4 i     RowBox[{
    6 z" O5 Y7 Y& V( ^: H# u( c      RowBox[{"-",
    - @- I3 n: P5 I- O       RowBox[{2 l2 x' o# |+ v1 `+ b2 e+ U# Q
            RowBox[{"(",
    + K& D* ]/ \# O1 A         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 2 @( X. o2 [- P' X& W
            RowBox[{"(", 3 I  J, x, k6 J
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    8 h& B. U. Q# [2 o1 P+ {- p     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ) W+ Z0 J5 N7 ]) J, O4 L+ o7 O CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {5 f* X9 F) A" T- N4 U8 J0 a
      3.57796154237158*^9, 3.5779615663176217`*^9}}],2 k! i% V3 @0 b6 {" H5 z

    + S, [6 e2 @9 q7 e* nCell[BoxData[4 M; z. s4 N- }+ d! K
    RowBox[{"{", 2 x- H) s, V9 V+ H) l! e
      RowBox[{" {& l  V; j5 U# _
      "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
    4 s5 j- V9 q" Y& @5 v# S* K( |   "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], 4 X1 Y& u3 @5 v+ N; ~" L) Z
      "}"}]], "Output",1 }& r8 S9 W% D. V, i4 S6 ~
    CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],
    + e* v& W( O, J1 n( u$ s
    ! s) y& W) M" a( DCell[BoxData[
    ! Q% L& {/ Y1 Y/ K. g SuperscriptBox["\[ExponentialE]", 1 u; o3 `7 D! g6 d: J6 n
      RowBox[{"3.141592653589793`", " ", ! ~( \- A1 l7 C$ m
       RowBox[{"(",
    ; ?/ l- w) c$ {' K, k# q    RowBox[{2 B* |% H  o# N& p" U' ?* J3 l
         RowBox[{"-",
    + C- B& h; R- ^8 J5 M  Q% |      SuperscriptBox[
    $ V! t9 M1 e, Q       RowBox[{"(",
    $ Q6 N! F8 R% Q5 u. @, O. a        RowBox[{7 m0 H  l+ z3 R8 V. r
             RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
    9 V/ N- Q! W% N6 j( {; }) w     SuperscriptBox[6 i" S' J$ d" n' z  @
          RowBox[{"(",
    & j. s; y# O* K* g1 i       RowBox[{
    4 ?2 m' a, o' |* u9 f        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
    8 O0 E; ?* q& g: e8 E% [     SuperscriptBox[
    4 W! ?& v( [: a- C5 D. d8 I' ^      RowBox[{"(",
    . ?/ R4 i( Q) d       RowBox[{& \3 [8 K7 Y% _! ?! P, ^
            RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-", 5 Z5 z/ t1 o0 j  }/ M
         SuperscriptBox[
    5 y: j3 b5 G. n& H9 C) y$ H      RowBox[{"(",
    8 r/ a( W$ J4 [) S1 H       RowBox[{
    7 x) L) J: i; r1 M& [        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
    , l. x- k# h7 [/ x: `     SuperscriptBox[( I( U; `& T; I# ?0 Y/ p" U: g
          RowBox[{"(", - n5 A  V: R+ }3 K: Z+ f0 {
           RowBox[{( `- ~& P$ y0 u# r) R9 d
            RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-", * G0 \$ p# ]4 H0 Z2 w, i
         SuperscriptBox[5 t2 A- @& m8 J( B/ v9 b
          RowBox[{"(",
    8 U8 x1 L- v) P+ N       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", + }- ~8 s2 f9 C1 H4 g1 u" I
         SuperscriptBox[" F# C% {4 {) k" e  c5 n
          RowBox[{"(",
    ! T4 Y6 F/ s: ?0 f: C       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ' q7 v1 c$ J" ]- b1 b" y; ^7 p
         SuperscriptBox[
    " }/ }) c: h; ~: ?5 t      RowBox[{"(",
    + P. B" n% R" ^! I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", & x) G( D+ G5 Q3 e0 e$ ]
         SuperscriptBox[6 w) X. v! Q  W3 \5 L
          RowBox[{"(",
    7 F1 N8 p% A/ F" v, r( r+ y1 V       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    ) s* H" `( ]) H: \. X    ")"}]}]]], "Output",
    & n6 G# F# n$ i+ ] CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
    - ^0 b' d0 X, n& K$ G, `0 v}, Open  ]],; n  H1 j0 X" L& t; R' c  K+ [) E
    8 D5 ~, d: S0 Y( U4 h
    Cell[CellGroupData[{
    ' {$ I' U- y% M8 U8 w. R
    ! H5 N, h0 e$ H+ _+ N$ u& [Cell[BoxData[{  q  ^, ~4 |' }' T$ |% v: ]
    RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
    4 q3 ?5 x  M2 V" x" }: V RowBox[{"u15", "=", ) I" l0 u, p9 V! ~+ ~9 ^
      RowBox[{, r9 d4 B2 O6 g) d
       RowBox[{"Exp", "[",
    ' g8 ~" ]. A$ @! Z    RowBox[{) o0 z: _% F6 ~, @6 @- `
         RowBox[{, o  N! ?$ ?+ c0 Y# ^
          RowBox[{"-", - r" H( G/ i6 a( j. Y
           RowBox[{
    9 t# l) t3 v6 U; e' g2 Z        RowBox[{"(",
    " ^' {$ Z  ], D) C- q+ }' p         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    $ d/ j8 s* s/ y1 f% T: @        RowBox[{"(", 3 \, j6 R- n# ]7 l/ a
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],, ]$ C  s5 G# d) q! x
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    & D' H( g! l! w  E CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {) J2 o8 _* s/ N7 u8 d/ [0 ?! l
      3.57796154237158*^9, 3.57796157098203*^9}}],) M* ~! n# `( r

    + i, n5 h7 Y5 Z. O% l+ rCell[BoxData[
    * y1 _4 V0 X: W# e RowBox[{"{",
    : m+ y0 r5 }6 y+ R+ X  RowBox[{
    ' F0 R0 W7 r0 N6 |. B  "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
      @. U4 i# A' x! H) _+ K   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}], 7 x; N) E' ~, Z/ P: }
      "}"}]], "Output",
    / Z) D& ^" j2 E) D CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
    5 h8 G' H" E4 l$ p9 O  s6 B
    # X9 k7 e$ E# d. s5 ?Cell[BoxData[
    3 D% T& k) \# ? SuperscriptBox["\[ExponentialE]", * P3 f3 ]' e. m% P5 `
      RowBox[{"3.141592653589793`", " ", 8 f! s8 S0 J! c( O
       RowBox[{"(", ; Q1 U+ }) K& _& G5 v& M
        RowBox[{
    7 @$ A8 I* U( z. {     RowBox[{"-", ' Z$ L' u9 c2 A1 ?: Y, ~
          SuperscriptBox[0 ^8 C' Z7 g3 |9 a4 X" {. F
           RowBox[{"(",
    ) ^0 U5 s8 h: L  c+ M8 E        RowBox[{, V9 x  r8 a/ N+ n# o  g6 Y0 P% H
             RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
    * H5 Z/ R) B) ]  T. K" [  K     SuperscriptBox[6 F3 I- y1 s% Q5 S5 b- y0 B$ i6 x
          RowBox[{"(",
    0 h2 J0 ~3 ~# }       RowBox[{$ S: \0 n! I% l
            RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", + L, x. M: x7 j* ]
         SuperscriptBox[2 G3 Y/ v) x/ p: ]
          RowBox[{"(",
    & R1 w- \6 ?: H* W9 [" D' o       RowBox[{+ U! Z  \3 x) U2 ?
            RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
    4 I  K: A: v* X3 w     SuperscriptBox[+ }9 T6 o8 g8 D3 a2 h
          RowBox[{"(",
    5 U  K) q1 S2 ^       RowBox[{
    6 Q- W  J/ P. ^0 u( g% x0 z6 T        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
    ( z2 r4 y8 t+ C# A     SuperscriptBox[/ i# a4 Q2 U! O- x0 L3 V- z
          RowBox[{"(", ( y/ R1 b, }: _2 p  ~
           RowBox[{1 a3 _3 h6 z2 r+ c6 g% ?" z
            RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-", 0 f' e& I9 N5 c- b9 V
         SuperscriptBox[% @* E. A( A* {  m" B8 ^- a* t
          RowBox[{"(",
    3 N2 \* @; t6 m       RowBox[{
    " n0 f8 m9 ?- {        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    7 }) y# i( T: |( P) b     SuperscriptBox[" J/ w0 ?9 L6 H7 y1 z! {/ k
          RowBox[{"(", ( \" e, A9 \$ m0 V
           RowBox[{8 i% S/ c' L8 {% ?+ f: f
            RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    , b/ p# b# V! g$ k( g1 j# A  z, ]     SuperscriptBox[
    - L4 e8 E- P5 n/ b      RowBox[{"(",
    ; f& V" z8 }5 A+ C. A; \0 ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    $ g$ [3 r. D/ W. v, [" A! L: P$ v2 F     SuperscriptBox[
    7 ?1 _  L7 u0 Y6 J& |! g( P: v6 H      RowBox[{"(",
    2 E% H' x  A% Q# r* I       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], ( {5 @. z; Z2 m5 f6 K- v  T
        ")"}]}]]], "Output",
    0 Z8 X0 q# l0 [, f1 l# y CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]! H" |/ `) z6 x) I
    }, Open  ]],: p% w* k) G' s" O
    6 N1 p. K$ q/ b) e# P7 q
    Cell[BoxData[) C0 p( \. B; ?/ }
    RowBox[{"For", "[", % I, {( K/ A* q( C$ {) e. Q+ B/ B
      RowBox[{
    1 |' Q2 [0 a; X6 W. }  n% ?   RowBox[{"i", "=", "1"}], ",", 4 w3 _0 z% Q4 i6 Q" @9 a: W' x9 w
       RowBox[{"i", "\[LessEqual]", "9"}], ",", ( m- N+ X4 H8 s, Q9 \3 b2 @. t5 R
       RowBox[{"i", "++"}], ",", % p  Y: ~. a8 b
       RowBox[{
    ; X" o8 x+ L: |) j2 F& ?6 R    RowBox[{"Ca", "[", 4 q2 M' K+ @# {
         RowBox[{"[", "i", "]"}], "]"}], "=",
    $ o) w' s% c, W% L" B, u* h: n5 G( w' t    RowBox[{"CM", "[",
      h, o. l+ }" u5 M. ]3 h     RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",  s. Q- }1 K4 _$ E3 E; e
    CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
    3 w8 }6 z1 v: |. d! V) n3 F0 X( n8 N
    Cell[CellGroupData[{
    1 A4 O6 e' m" i& @/ g5 c8 @! [' k6 d7 O5 k; ?4 h
    Cell[BoxData[{5 I* G! e* Z5 ^% c" I$ ?
    RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]", 3 z2 f; O6 a& P8 I2 D9 }1 U3 [8 S
    RowBox[{"u16", "=", ( o& h( I- ^! @; V
      RowBox[{. k2 ?9 }( w0 k+ y, l' N' F
       RowBox[{"Exp", "[",
    * Q3 }; i& D7 M4 @7 g$ @7 C; E% @    RowBox[{
    ; L! o/ D1 m3 @3 d: e+ P: A     RowBox[{
    ! y. l! b2 k3 Z9 y/ N* o) b3 y      RowBox[{"-",
    % ?, Y. m- Z0 ?7 A       RowBox[{
    4 l) G; q$ {- m        RowBox[{"(", - g/ R% Q( x0 p5 d
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    - c6 C8 L( t- O1 `" _( t        RowBox[{"(",
    " p) W" i) e! H, L+ @         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    / z5 h4 s  T, g, W' M% I' ?     "]"}], "/.", "DeltaX"}]}]}], "Input",
    ' D: i- Q; _' X CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {* a. m6 e' e3 F5 y3 P1 N
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9, 6 o" u) @# O) g# F$ o
      3.5779615751004367`*^9}}]," e4 A1 W  W) i6 j7 e( C! s  Z
    8 N7 X) p* ?$ u
    Cell[BoxData[
    4 B0 {% A1 t6 c8 \ RowBox[{"{", , T7 a6 I9 Y4 m4 z: i# }' v
      RowBox[{- H6 T2 W- Z7 L. T
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",", : x8 f  d. t* I
       "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
    5 G4 h( n/ z  e/ Q# ~  "}"}]], "Output",& p9 Q! _1 t4 o7 w+ X
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
    3 \- R1 S& }3 j& L6 I7 W
      b& I- `! A' s9 U' P1 n4 vCell[BoxData[
    " a0 w5 A8 v  P0 F* D& s/ g# K SuperscriptBox["\[ExponentialE]",
    % v4 S0 ~* J* X, @$ i$ I  RowBox[{"3.141592653589793`", " ",
    $ K6 A: [% w/ X   RowBox[{"(",
    + ]& e. S# Y* m3 _& k$ \    RowBox[{0 }% I. _. Y; u. }
         RowBox[{"-", ' g* ^4 w# M0 N' b. j  d. i" e) \9 `
          SuperscriptBox[
    3 j2 q$ K- R$ T       RowBox[{"(", * B2 k; ?" D4 Y8 v
            RowBox[{4 |& u! D% n1 ?0 S
             RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-", , C- k! w, ]/ `
         SuperscriptBox[
    " @3 b9 P0 c- W, v/ ]% c      RowBox[{"(", 0 f5 n7 B/ _, }' O. f, l3 |
           RowBox[{' Z4 V/ c6 i! u
            RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
    8 {- }5 ~* p  K4 i+ q     SuperscriptBox[
    2 Y: G) T$ l8 F& u" }$ t& B      RowBox[{"(",
      }9 i9 P4 A, i       RowBox[{1 Z" u( f% l! V7 i
            RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
      K" `7 q4 \' ?" |8 d" r, Q     SuperscriptBox[* P) M3 L+ ], S: ]$ P2 @* M
          RowBox[{"(",
      ]3 a, l/ e. U, H       RowBox[{
    , j/ k* t- [9 u) j* c        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
    % u, ]( l$ a! I5 A9 O     SuperscriptBox[
    - N. c/ q$ t  o, ?      RowBox[{"(",
    ) y) K' N( ]3 \. }1 I* Q5 L! a       RowBox[{
    % V. }. d& P+ f3 u: X        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
    1 W% h2 Q- ?/ H7 S3 o7 x0 t     SuperscriptBox[
      T& Q4 `, i- V$ U* [* A- g- c      RowBox[{"(",   H8 C4 W3 O. j9 J: u. K% h# p, \
           RowBox[{5 ^' m" ~1 \8 l6 Y
            RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", ; ^+ B, B, v/ R  v* D
         SuperscriptBox[. |- \# z3 Z4 b+ i
          RowBox[{"(",
    " z( W! j( b6 [$ I* R) i' `       RowBox[{
    7 ^. D2 Q' N* Z        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    ( D7 D1 {) F" q  m     SuperscriptBox[9 z7 y( F  B& w& F+ t
          RowBox[{"(", . d! a0 l! a8 C2 @
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 8 a% N4 ^2 x/ b/ _
         SuperscriptBox[6 K$ S5 z2 G6 E" ^) u# ]( g
          RowBox[{"(", ! g$ r; C  Y5 R# o( a
           RowBox[{
    + C% k, a: j2 n4 b/ F" H7 b        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",* `. z2 L7 i/ ?2 H0 R. }& }3 s; {
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
    ) \8 z' }$ [; A4 r0 D4 F}, Open  ]],
    . k1 g' e/ ^2 N, q  a  w. b1 i
    Cell[CellGroupData[{6 p5 ~; e7 z! {+ d/ p6 P
    $ o* q2 M& x2 g
    Cell[BoxData[{
    8 C0 v) E, E% J) M3 m3 B RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]",
    5 i( j$ A/ a5 B9 P7 M) X# q6 e RowBox[{"u17", "=", 5 o( d5 q2 G  f7 P
      RowBox[{  X: |# M* J" j7 t
       RowBox[{"Exp", "[",
    6 v( ], z; Q6 ?( r/ ?' z    RowBox[{
    ' ~: H2 }7 w+ |     RowBox[{
    ( U8 X7 W$ i2 z/ u0 ]      RowBox[{"-",
    $ K- i# }8 R% V! y       RowBox[{+ P) A) \, R- C' }( p
            RowBox[{"(",
    3 j0 R* y: f/ J         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ) P: d2 Z3 P# i+ I' p
            RowBox[{"(", ) s: j4 _- D! [1 D
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],& ]& N4 J& }9 ^
         "]"}], "/.", "DeltaX"}]}]}], "Input",) H" O8 n) X$ }$ m4 l) c' P( [
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {% a7 I% R4 P" }4 W! E4 z6 P( M7 b
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9, ! j+ t2 K# ?* k4 L. j" N: @7 g% l: a$ c
      3.577961578953644*^9}}],) G2 J$ R+ m: j9 V( ~
    ( @# P4 K9 b& [# E4 l' V. _
    Cell[BoxData[9 @) h, T8 O7 B4 `
    RowBox[{"{", 9 Z( A+ D+ ^3 _# F0 D" _
      RowBox[{/ z8 C3 S, M5 a6 ^8 o
      "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
    & D. f! b: V) J, D. n   "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], . _7 f" }; ]3 S! Z
      "}"}]], "Output",9 J( D2 r' r8 m8 h0 r
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],) P& M( w  d% i: W, A5 h- w

    9 d4 O3 m6 z- T; ECell[BoxData[8 U9 d+ G1 w) ^3 H2 \
    SuperscriptBox["\[ExponentialE]",
    + n4 L4 D" M1 T# R9 f0 a7 b6 ?  RowBox[{"3.141592653589793`", " ", 0 d/ J* d, H( l+ X' v
       RowBox[{"(",
    . w4 r) d* s+ b- H2 v1 b( t4 p0 _    RowBox[{9 R+ B$ l% W' f: ~3 G! C
         RowBox[{"-", - I4 R5 U) f3 F* j+ N( G8 {* p
          SuperscriptBox[. k+ d+ X- @4 R5 V) z: q
           RowBox[{"(",
    % X( T9 s' }. O6 D2 _        RowBox[{
    8 [4 B* p! C8 W3 `5 l         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-", 6 j$ {, I- D4 F2 L0 J0 h
         SuperscriptBox[, z9 N; c/ A/ n, z2 m, h$ M7 j
          RowBox[{"(",
    & M! e% \" W8 q4 M/ C       RowBox[{$ J7 R) |5 T% F' r% P1 I7 |
            RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-", 6 x. K& b! H9 c# E9 Z
         SuperscriptBox[
    ) D- q# l/ `3 n4 \1 Q5 l9 [      RowBox[{"(", 6 z/ u* ~& Y. m% w( c8 D1 y7 P
           RowBox[{' F8 `9 ~; t2 P) |) ?
            RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-", 8 w- r$ ~( }( N! k. ~
         SuperscriptBox[
    9 Z$ X; v/ `, Y0 d+ |! P      RowBox[{"(",
    2 F! O* T7 f5 D) b/ _3 U/ m) l       RowBox[{
    9 O" V9 `& E% \* }2 S! ?        RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", 0 f) W. \( M7 u; R: E
         SuperscriptBox[1 D! B  I# ?* q" N: z0 Z
          RowBox[{"(", , W7 e4 k" ?$ N: z9 C
           RowBox[{; W2 _% X0 h5 U, p* r( L, N  Y  {, [
            RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", " G$ g2 n7 o, G$ Z% K/ J' D
         SuperscriptBox[2 H) F) `& h7 n, |2 w& U
          RowBox[{"(", ( j- q6 C- S, J' w# {8 J- \; ~
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    7 L' z  D" z$ L/ ^. `. H3 W$ Q     SuperscriptBox[
    : o, ^7 M! Z* ]5 |( G; s      RowBox[{"(",
    " g. g- y8 Y, F. m9 s       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", . m: ^( J9 [* }9 j2 D5 e& G& x
         SuperscriptBox[* S6 S+ k5 P! z- l3 D5 ~; ]: a
          RowBox[{"(", ' \* \' J) k3 I1 v5 r' b
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", , @: b4 N" ]9 R9 k
         SuperscriptBox[
    / X. J% T; |3 e' ?; m9 H* H2 O: ~- a3 t) M      RowBox[{"(", * ~% Q" `' }- [- h' {
           RowBox[{% u& p0 K* g9 r0 W9 \3 _
            RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
    1 l" X; {9 P9 k7 u' L, J0 B    ")"}]}]]], "Output",  d* D3 c) i; [2 E/ S
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]% v5 H0 k- O5 z5 Q# T2 ~
    }, Open  ]],+ {9 C6 Q5 A8 G7 u/ `  {4 }( I9 g

    # I+ C- k- [. `) wCell[CellGroupData[{! s# e2 J. ?: f# P' }

    5 i: k& d3 h# _Cell[BoxData[{
    1 K! k8 Q2 T( o! g2 n RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]", ! W% d" @2 F2 x7 q
    RowBox[{"u18", "=", 8 ]4 a4 h. F% Y( m9 L; A# G
      RowBox[{
    5 m* j$ B) z8 j+ O/ A. s   RowBox[{"Exp", "[", * g, G; t/ \& t- x: @$ X8 k
        RowBox[{
    % }& I1 V; U* X, I# ?     RowBox[{. U; V& f+ |$ ], G
          RowBox[{"-",
    ) Q/ c$ ^; \7 F3 I/ P       RowBox[{
    4 _! E$ Q2 J# L        RowBox[{"(", 7 ^* F$ B% `7 n) C. o% L5 R7 _
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    : W- b  Z) G" M5 Z/ O6 u        RowBox[{"(", 2 p( }( z5 _6 z8 W
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
      A5 n+ r  H6 D$ o# D     "]"}], "/.", "DeltaX"}]}]}], "Input",* e8 `4 o1 q; I' `) c1 Q: `  i5 g! [8 u8 C
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    4 {' V5 {& x8 W' x0 o. f  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
    ! [) b% |4 K, o! b  3.5779615828848505`*^9}}],# j/ `. I2 D) R* H# ^- M5 m

    ( o- i# l. a/ I! fCell[BoxData[
    ) H: B5 O) h: n  F6 m RowBox[{"{", : l. T" q& Y% C* g/ @  E8 J% Q
      RowBox[{
    7 k4 X. \  c6 a* P  "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", ; w% k& N, @; P
       "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    : c" E* R2 ^) p( }0 ?* u. i1 f: [  "}"}]], "Output",- r4 X- |- H, b, ^7 Z
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
    ' W2 a4 w1 N4 l
    % q. y$ W4 g+ V$ @: LCell[BoxData[3 u7 I! n2 H9 f. \' J3 |
    SuperscriptBox["\[ExponentialE]", ) Z0 j, W7 S& e3 ?
      RowBox[{"3.141592653589793`", " ",
    * U9 ?# M* L/ o+ F   RowBox[{"(", & m% R4 h# T3 f, ?& t- k
        RowBox[{3 Y7 C9 c) v( {, Z0 C: _
         RowBox[{"-",
    6 C+ f7 j4 B+ s# J      SuperscriptBox[! \- z, c' l, @! H" L
           RowBox[{"(",
    4 F0 }' ^! o4 y- W5 {. S6 E8 r        RowBox[{! _5 }2 f5 m6 m2 s
             RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-", ( D. j2 r5 _( y. t. x; x
         SuperscriptBox[2 k9 m& G7 O- [4 F, J/ a8 \
          RowBox[{"(", ( [9 g, o1 {& }" O  T
           RowBox[{
    6 F: S$ i8 x( \& c9 a( e9 J        RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-", + f  F6 S/ b" `' m. Z& F
         SuperscriptBox[
    ; j9 B3 b8 P* ?! a8 c      RowBox[{"(", 5 @$ K  E, s5 m( n& b
           RowBox[{8 K, P# y9 e, d; d; r
            RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    & M8 s2 g: U/ a6 Q8 h0 Q     SuperscriptBox[3 B1 f) e6 W) f
          RowBox[{"(",
    4 c6 X( @1 a: }       RowBox[{% F# A1 w( Y( p# G# R
            RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
    ( i! n* H, }2 J0 j! l     SuperscriptBox[
    ; z+ s/ ?4 S! S- {, U& G; X      RowBox[{"(",
    $ R( m2 K1 R5 B# k( U       RowBox[{+ z. w3 c; g' }& |6 e' W. o4 E8 I
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-", 4 B& a2 x' ]3 M* P& w& i
         SuperscriptBox[
    ( y& T/ r$ \  z      RowBox[{"(",
    : K0 f( S; d6 H  q' ]7 o- e9 E       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", : v. e0 f/ n* X; G6 R( r
         SuperscriptBox[+ l. [, u$ z) \2 E! i* V6 ~
          RowBox[{"(",
    ( M/ t! s0 {/ q7 t       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    $ k1 Z8 b$ @' j7 n  V7 a0 q     SuperscriptBox[* e  X# f/ B9 w; ~! o" I& `  J
          RowBox[{"(",
    * v5 @: g* e: V$ R7 v( F       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    9 C, d! _2 G+ q( L) ~. j, p* [     SuperscriptBox[% U7 q0 \$ T, X3 l- P" o
          RowBox[{"(", 0 e9 D4 w$ n+ N
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    + m4 T, B+ I4 h* M. S    ")"}]}]]], "Output",5 O' V3 Y/ g4 q
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]0 P4 n" l0 d1 {  J; T; M
    }, Open  ]],
    + Q, L3 m: b5 t: l
    & g" z( m; L, p! [Cell[CellGroupData[{
    7 w/ V1 S3 [$ D; X$ r
    1 @# D6 J& o/ QCell[BoxData[{' G' x) b( C. o, K; t. a& o/ N
    RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]", ( v3 y0 i7 M/ E$ K. c. i  y
    RowBox[{"u19", "=",
    0 P# K/ v. t- Y- G7 K6 }  RowBox[{
    8 Y* B9 X8 G: r  s! k- F5 _   RowBox[{"Exp", "[",
    : l# Z, N& u' E    RowBox[{
    " O0 V% \8 |" D: I     RowBox[{
    / W: I, B9 x  w' t      RowBox[{"-", 5 K; R: j0 b+ l: L
           RowBox[{  G: Z# I; _+ m1 K, t- e$ {5 t
            RowBox[{"(",
    , L! Z0 l; J/ Y' p# B7 J# S         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    : Z# S" P. Y6 T/ m* w        RowBox[{"(",
    8 V" E1 V3 R0 y+ e( q         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],- f: t. i: q5 a. {6 y- W. r
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    4 S) [7 q7 i3 Z# k CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {- ]( o! f0 [  c3 Y8 f
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9, 4 _" K+ J3 d* E
      3.577961588890861*^9}}],
    7 F. J2 e  R! C& A1 f* V
    7 L2 R& |. z) hCell[BoxData[
    ! h% M  y3 T- S" _' { RowBox[{"{", 0 n  p) G' ]( o0 |+ G& a- k
      RowBox[{- _+ D( e+ P' }4 D/ U$ A: x
      "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",", " T2 j3 n: s2 A
       "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],   h7 m1 i- _6 ?0 j
      "}"}]], "Output",7 I! s5 r3 \9 `! @' I
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
    $ Y6 G- `3 a8 N- E/ e7 Z6 ?1 m6 |# r) i' i' r' u# n  A' o5 J% S1 w9 h$ {
    Cell[BoxData[
    / g7 n2 Z. j4 j. r2 k4 E  } SuperscriptBox["\[ExponentialE]", 9 }* Y  J5 z. ~3 Q- F  }
      RowBox[{"3.141592653589793`", " ", ! x1 v) L! f; a/ T7 m) I
       RowBox[{"(",
    0 r6 b3 |1 {1 d0 M% `% V    RowBox[{
    % I; `+ d: G6 H. R% X$ U0 I& K( }0 V     RowBox[{"-", 7 N3 l5 Q& `* @! ]0 y/ n! _
          SuperscriptBox[1 i) l, a0 e# e# d9 v& A& |+ i
           RowBox[{"(",
    1 J  i3 R6 B  j$ C" P' u3 U( Q        RowBox[{
    * d! n& A6 ~/ d& Z         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
    1 T4 @+ u7 X$ R6 ]) V     SuperscriptBox[9 f, R" U+ V' t0 F* m& r/ a6 g$ ?
          RowBox[{"(", 4 k$ }& ~0 y/ @% g; ?% v2 }
           RowBox[{% |2 ~/ z8 O% l+ t0 w
            RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-", $ u$ G( |' @4 V8 Y2 m
         SuperscriptBox[& G1 k  K& j3 m
          RowBox[{"(", & a+ W( A7 ^; z8 P
           RowBox[{
    ; V" V6 s/ T3 ~7 F' h1 `        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-", 0 }6 `1 ]/ M7 C5 n% F
         SuperscriptBox[9 D" x, t/ ~  W, t
          RowBox[{"(",
    7 E7 E. s8 h0 y  i6 {" A- k7 F6 ?1 C       RowBox[{6 z. H1 @; ^3 [* H
            RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", ( S. O: w8 ]& R' b- _
         SuperscriptBox[
    " {, K) N/ C( @. k/ T      RowBox[{"(", - H, E, j( a. o/ M
           RowBox[{
    ' C" h% D6 ]& I, y        RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
    + h) l3 _, W# y  @$ {     SuperscriptBox[
    / V9 e/ U" m- L      RowBox[{"(", ; I0 ?& C% Q" _. ~( v2 Z/ s3 s
           RowBox[{& J, r7 g4 V5 p  A
            RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", : S3 z& v6 K0 U- {3 B' f
         SuperscriptBox[
    & m3 L+ H# P+ Y      RowBox[{"(",
    3 ^, i2 u( C; U% b& V0 h& Q* A9 O       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", : I; h/ s. a+ x4 E+ V* V! M  T0 x
         SuperscriptBox[
    ) v8 p3 S2 B; D, s. U2 T      RowBox[{"(",
    ) S! U. O$ r. g& y! l2 I" Q       RowBox[{6 G* y7 @9 Z$ R- U* e. p
            RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", % V+ J# f  X+ g! i
         SuperscriptBox[( ?( O5 r# s; v) \; i
          RowBox[{"(", 4 O5 m+ P& L, y; J2 u  Q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    2 I5 k4 r. `4 g( \    ")"}]}]]], "Output",
    2 A# D8 p, @3 a. j CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
    * C. P7 D2 w+ Z  V) U3 y: S) \}, Open  ]],
    ; Z4 g- L7 H0 y9 l  w' a! T3 V/ z5 H" a% G! Z- k2 w
    Cell[CellGroupData[{
    ) |3 a% p1 {4 e' i% ?5 y) L4 l8 x  p4 z, X& T% D
    Cell[BoxData[{
    + H! c6 C7 ^; E; U RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]", 3 \8 O# K. K, n: P) W. y3 E
    RowBox[{"u20", "=", - I% x! H% ~* ?1 t' z' P  L' i8 y
      RowBox[{
    5 s% D" b5 f) \: V" v   RowBox[{"Exp", "[", # ?& q  T. F8 f9 b
        RowBox[{
    0 b3 e' y3 j1 O$ M& }" y     RowBox[{+ L  k# ]$ Z+ _# o- G
          RowBox[{"-", ) E, J, N# W2 b6 r
           RowBox[{
    0 d3 X$ `9 T  x        RowBox[{"(", * ?# Z3 f  _3 K
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 9 z, m7 B# z5 T) S5 z, a. u
            RowBox[{"(", ' W' R1 h5 {: I; C
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    . [0 F9 r2 h. g+ \     "]"}], "/.", "DeltaX"}]}]}], "Input",! Z; o# N" C# g* H+ Y7 B
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    4 l2 l& P' j% Q( @6 ?6 B& d  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9, / o2 H6 ^0 D* K% l8 T3 y
      3.57796159382047*^9}}],
    ' z- q0 Y6 \) Q1 J% ^
    + ~% f8 Q  N; h4 i! b, u; Y/ ^Cell[BoxData[
    - B2 d8 B2 {0 L RowBox[{"{",
    . _7 |1 Y7 a6 j  RowBox[{5 t: f: C# C4 D& S( z& F
      "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
    , x  N0 N/ F! X3 \5 t$ U5 W1 E   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
    / l4 o0 z' t& D6 o& s+ F" }  "}"}]], "Output"," {9 ?. Y# ?% S  `3 o
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
    . m. Y1 P- L) y  ]" g8 x: u/ N0 `' A6 X. K1 B4 F* r
    Cell[BoxData[
    ; {+ r' e9 R% B SuperscriptBox["\[ExponentialE]", % p* N$ W8 k3 Y1 u! T
      RowBox[{"3.141592653589793`", " ",
    $ J. {% f2 O2 L1 \( N7 h2 [   RowBox[{"(", ' `+ b9 R6 @) S3 P4 C
        RowBox[{+ Y/ k% w7 S# P( q/ R# e
         RowBox[{"-",   J' c/ t. s: `. `  i
          SuperscriptBox[0 ]( H1 P% K" X% c9 K$ a
           RowBox[{"(",
    : Y- v* p8 U, X0 n8 G        RowBox[{1 E0 k8 T# H, |8 B. E
             RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ; K1 S# I$ L# b# `. S     SuperscriptBox[3 ~2 K9 O8 k# \+ E: E
          RowBox[{"(",
      G4 q0 s4 z' e1 L- \- Z, e       RowBox[{6 L. Q2 W6 z* }' Y: x0 W
            RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", " R) |. Y& [. S# Z. H0 \$ ~# }
         SuperscriptBox[4 a# q: M7 `6 g9 ^
          RowBox[{"(",
    ' P5 l! Z: }, @. s. T$ P       RowBox[{
      g/ Z, l( `/ K3 J% K! _        RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    , @. J2 X4 G" M7 D* m9 j7 b2 H     SuperscriptBox[, [0 b7 q0 h6 n8 [9 \7 P8 |/ S7 S, L
          RowBox[{"(",
    ( B) ?3 R7 ^* c+ X: m6 a, ]       RowBox[{
    / L' K8 p$ j; L        RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
    5 }( d" V9 U! K- r- K     SuperscriptBox[* z3 z! ^5 H9 v, {
          RowBox[{"(", : r9 b6 Y9 b) \4 f
           RowBox[{
    : f/ n! f" _# o8 B        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", 7 N( f, N# z) K1 O. r0 w7 T
         SuperscriptBox[
    + B* k: q/ T( ?$ x" S      RowBox[{"(", " G6 [& _5 Y3 y% d/ G: o
           RowBox[{
    , r5 b8 `: T* C! n5 V        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    . Z# i( A2 E( \% q0 t9 [, j3 g     SuperscriptBox[
    , Z2 [; ~( L% T' G7 e: c( F6 n      RowBox[{"(",
    : K5 G" r" [  q. Y; T       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ! c$ x' n1 T; p/ X
         SuperscriptBox[
    ( _. q. n$ Q2 r0 {# D) p/ z      RowBox[{"(",
    6 G7 M7 d8 Q* L' ]0 d: `       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
      J' {3 {3 H4 J7 A" E     SuperscriptBox[
    ! {0 P7 |- _- w- o3 t      RowBox[{"(", : C$ P: n' T, b- K
           RowBox[{
    ' v, P. Q. W7 X( G; Z/ p" E; u& e) K        RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
    ' T' ~2 ~# T8 Y6 E0 n0 W3 e) u9 s    ")"}]}]]], "Output",
    : l% _6 G$ S' l CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]: T3 o4 l! q' J& [- ?' m! g
    }, Open  ]],
    $ p1 ~6 {* o8 o/ D5 @, n! u" f
    & ~7 w( C! W( xCell[CellGroupData[{! J& h" z- b7 K9 P: ^$ X! |

    ) Z6 w7 B. i' ^" x! _5 Q2 OCell[BoxData[{- X4 M3 i8 |# z0 f* J- y# j
    RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
    3 z" e/ b3 e9 {8 b" I4 L$ O RowBox[{"u21", "=", " d$ R. k7 V  `) r& K( o* o
      RowBox[{
    ; K, }) a' B9 O% J   RowBox[{"Exp", "[",
    , ^! E2 l; E: ?3 a6 r    RowBox[{3 _7 p# J* G7 J2 s* L- h
         RowBox[{
    1 r5 g5 q- J1 e! z4 J1 Y      RowBox[{"-",
    4 A0 `0 J$ G$ g" m( d       RowBox[{
    " I- I/ p( ]4 }: v6 g( ?+ Y        RowBox[{"(", 5 G& \2 }! f& c% ]$ U! l0 }( Y
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ! H2 |) }# Y4 i3 O1 q        RowBox[{"(", 3 X, L; R  U- I7 k+ p3 K% _
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],% @6 F! E1 V9 [7 Z& S. e) u  H
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    , h: ~  c3 o. _* h CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {$ G! r' l9 w, v
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
    + `: ^$ [" M6 N" K1 W  3.5779615991556787`*^9}}],
    + n# a1 ~0 X! q; m; h2 d
    % K8 a" V6 Y# F% @. k5 G  xCell[BoxData[
    3 D2 H+ ]) F1 T3 z6 l* g4 x RowBox[{"{",
    ; R/ L+ f) ]: y6 R1 J! z$ q  RowBox[{
    2 }4 N  j8 Q. P6 i( S  "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    ( ?+ d3 a9 D( a- j: p3 O( \4 S) `+ h   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}], " z" k8 ^! f6 M3 u; \% ]2 a- y' k
      "}"}]], "Output",
    & `+ v5 W. a- i1 e- J CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
    7 _4 A1 l! m- y7 M. R" B9 Y
    ; n# |' d) F- U9 K, x( ACell[BoxData[) }" w( n/ H4 h: T. _
    SuperscriptBox["\[ExponentialE]",
    / p' t/ k6 N% k+ v& ]5 j) o/ k  RowBox[{"3.141592653589793`", " ", : E+ m, S& i* D* s
       RowBox[{"(",
    5 C! m1 A+ m5 L+ Y7 \$ a4 D$ B    RowBox[{
    ; d7 s) P% I' t1 _) t) N- N8 G4 V     RowBox[{"-",
      X" j: `  o  V! \$ m8 f  C2 F      SuperscriptBox[" ^7 z( e, @& N8 i
           RowBox[{"(",
    5 s$ M) `/ o0 K& C- d7 v9 g        RowBox[{& h3 N  P( Q. c) r
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
    1 W$ N  j2 ?! J' k: x7 w     SuperscriptBox[
    0 G9 F, e+ E  q" c. G. x      RowBox[{"(", 6 i& j: B# t8 M2 O5 K+ @. n
           RowBox[{+ O) U; w% Y" a- ^% S* `
            RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
    , [7 m; L7 ?/ w4 N# V, X     SuperscriptBox[
    / c7 Z- m) o9 D7 r  V      RowBox[{"(",
    ( ?: L  x; G, K7 }$ _7 Y1 H, T& d       RowBox[{
    # l# i2 o+ i, j( N3 |        RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
    # D! A; ?- z, p+ W     SuperscriptBox[- b" B9 ^' Y- @" e. ?6 R& {
          RowBox[{"(", # S* T/ G% j% p" t$ V5 J: A
           RowBox[{2 s% ^5 s9 p" K2 |% p; D, y& u2 J
            RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-", 2 J( m7 B  N) |& g
         SuperscriptBox[; Z* K& w# c/ D  q2 h7 j  ~4 Q
          RowBox[{"(", 7 g& Z5 A$ f$ y/ }) E! x6 j
           RowBox[{
    : ?$ ?$ ^4 I- T* S        RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-", & c, e2 K7 R: Z9 V
         SuperscriptBox[1 V* x$ n* ?' H, V9 p/ i8 O
          RowBox[{"(", ; v8 X/ {- R- y. h$ q
           RowBox[{
    # {1 D! e, [! A* w" \6 m: z* o        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", / a! v  J. k" g$ l
         SuperscriptBox[
    ( |. t, F% P% c" z" k      RowBox[{"(",
    8 _5 n: @# y; D& u       RowBox[{
    # \  ], o  ^. f/ ^        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",   K5 @. P$ ~: r9 ?
         SuperscriptBox[
    & E( g- ]9 i2 V2 c4 L1 I      RowBox[{"(", ( D2 j0 x$ h# D
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", , b7 S: j1 c$ w' e) \; s
         SuperscriptBox[! @% V2 U, T- z6 X0 K; O* ~$ J
          RowBox[{"(", 0 G6 t) I8 s/ N/ L5 W# l
           RowBox[{$ a6 {! ~3 ^0 I
            RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
    4 Q5 E% a9 C3 \9 C, W- o    ")"}]}]]], "Output",4 B. ?- r) H7 P/ Y0 s# Y' `6 h
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]7 J  X/ V# S0 l( |5 y
    }, Open  ]],! |0 v! Q7 G9 a4 U( l4 S1 q
    8 V& l# m! x( D3 r  t- G
    Cell[BoxData["\:62df\:5408wi"], "Input",. M8 o/ k0 d# i% q
    CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
    0 G. N  ]" Y: C, n/ B8 E7 L, L8 v- T; I" @+ T0 f
    Cell[CellGroupData[{7 G' o( c) F  v2 x# i6 X2 D' L7 g
    , x2 d" d: Q5 f8 D' G
    Cell[BoxData[$ ]+ D+ ^0 t6 s5 b1 A
    RowBox[{"y1a", "=", & Q2 S: v8 x) [2 C) C2 e3 D) q
      RowBox[{"Table", "[", * i' A% F( I7 e
       RowBox[{"x", ",", * O% a3 j- A1 F* V; H* S: V1 Q
        RowBox[{"{",
    + a( s2 Y& u! |5 N     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
    2 H% y2 A7 [+ x CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    3 t/ [% E  [2 ?; \4 o  3.5779226649375*^9, 3.5779226810625*^9}}],( u& v* W! }, w  S1 U" }7 G* {3 {
    5 A. Z# `2 O0 M3 @
    Cell[BoxData[
    " F& D$ f& ^8 G1 N' Y$ P( j- a- m RowBox[{"{",
    $ S. }- t" n% J) ~/ b$ \  RowBox[{
      h1 j0 F# C9 W4 Q; c1 a  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 8 b' ~2 Z$ @4 @" W, Q9 T" S/ D
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",$ W, h2 A  V6 @6 N+ B2 j& H
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", & e0 Z8 i9 g/ W3 |* J' S8 @( T# w
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    ; h. h9 p; ^3 R2 d   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 9 p4 @& \$ y2 ^2 _
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", : }' S: q. _  U& \9 O
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    * s% }, W7 ]- v8 I! h4 ^   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    , c. p6 p& v& J4 }3 B1 U5 t   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}], 3 a* \. ?  Y" Y9 V5 D2 X$ ~& w
      "}"}]], "Output",
    8 @5 Z! b/ }/ C) h, H0 U7 \( g CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
    & e, d5 {9 U$ |: b  {; N5 M  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
      _9 J8 L. R" ~/ p0 D; Z. a! H}, Open  ]],3 o1 x2 n+ a5 ~7 r$ D5 v

    7 F. Y9 s$ S4 s5 w. VCell[CellGroupData[{
    " e* l0 e! L$ G) ~* x. w( z/ r1 Q# _5 a
    Cell[BoxData[
    . Z2 B+ c% Y) X RowBox[{"Data", "[", ) W/ y8 |" F4 P' r
      RowBox[{"[",
    + N1 g4 m& G% L$ e; L+ X   RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
    ( v1 H6 h9 v7 {" e: } CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {* h) R6 X5 l! D% g
       3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],/ L. R1 [6 d# u" L/ b  _# s
    ' `* ]8 t3 m2 @, E
    Cell[BoxData["0.899882`"], "Output",/ x# u. |! H# ?' ~4 A
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},   g8 Y4 e4 a* K/ V9 i% X6 g
       3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
    5 {% x9 y. l: O7 Y# D( y   3.577961929080654*^9, 3.5780123419375*^9}]2 l! t8 d& M3 r- c& ]" X
    }, Open  ]],
    ) x6 V. q6 V. s1 K+ b
    " O  \6 _( T9 mCell[BoxData[# X5 h. b9 _9 ~) d3 {4 }, Z3 P+ w
    RowBox[{"For", "[", 0 @4 O# u. I, X/ N8 U7 H
      RowBox[{
    5 s; g+ ^+ X7 @# ?0 \4 W4 V   RowBox[{"i", "=", "1"}], ",",
    ; @9 l' A* K; Z   RowBox[{"i", "\[LessEqual]", "60"}], ",",
    7 d1 b4 K( ^: c: H1 {+ s/ a   RowBox[{"i", "++"}], ",", ! ~/ G$ D: J" O8 M$ b
       RowBox[{
    3 g  d( E% F: H/ H2 y    RowBox[{"y1a", "[", 6 {9 I+ i' M- A" v) ~
         RowBox[{"[", "i", "]"}], "]"}], "=",
    ' b& N6 g/ [8 N% V  W  W' `# k    RowBox[{"Data", "[",
      q8 U+ c) u/ Q% L     RowBox[{"[", & A" d/ |- ?( O$ K* ]- C
          RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",  K" x) s9 C, c) o, x, P( C+ h
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    2 k- C0 d! _- t! L6 j8 Z   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, 5 M  q$ X, ~5 R7 x9 _
       3.577922923203125*^9}, 3.5779588839702806`*^9}],' p' [0 V, z  M1 Y  |
    * g, ]: R" U5 Z- u
    Cell[CellGroupData[{
    4 [2 |3 b) j: w; |' ?6 s& _( ]' }. x( E, F  q0 \0 }9 s5 F
    Cell[BoxData["y1a"], "Input",6 `- b( a" ?8 U$ s4 @3 m
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],) w& X% R1 C. p- z8 ^
    9 v7 Q) p' n+ G& l7 s
    Cell[BoxData[
    ! |$ |  T) \) F3 \7 F; g RowBox[{"{",
    " G% j$ i- ^3 W2 V  RowBox[{
    ; T/ M' k; k& I6 U- F  "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
    6 G$ ~. L# ?- B6 w+ ]# G5 ~   "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",",
    - @: k5 p+ H4 M6 `0 \& M3 p! K   "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",", 9 V3 }! ?$ Z* {8 B0 O
       "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",", - V% o* N- g& \
       "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
    ; V( Y5 o* L; z) Y& I8 j; A5 l   "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",
    3 N( W  ~" N0 c; m9 s: s  m   "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",", 9 a) [8 O! O' \4 i
       "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
    1 ?. n# c# u7 U. b: T3 Z3 w' B1 F   "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", ) e3 L8 o8 T9 ~; ]9 z# Z8 ^- q" a" t, y
       "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
    8 k+ c" H& N/ i8 I   "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",", 0 h  r* C4 y  D4 k' @
       "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
    ; k8 a, W- {0 ~/ h+ d6 R8 G9 m   "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",", + ~1 j. ]/ m0 [9 h9 O4 [! h8 {
       "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",", . a7 V0 W, a2 B- \8 A# y
       "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}],
    % U& |/ ~; p& x  "}"}]], "Output",
    & G( M# D3 t- R# C9 s% J0 @3 ] CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
    9 E3 u- {; V0 G  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]  u, a2 a+ o) q: P5 A
    }, Open  ]],
    . [: v5 f+ z' f1 D8 r9 m  n) v
    " Z* u4 p+ y, ICell[CellGroupData[{/ X! g/ y% ?8 h. k: u

      _6 y) R- n6 z; u* f1 PCell[BoxData[
    , C: c, N) |6 l4 U$ ~' f9 U RowBox[{"m60n21", "=", / K: ^  l; T# t" _) w
      RowBox[{"Table", "[",
    3 s) {9 s. ~( f8 d/ W   RowBox[{# K$ p4 G, K& z8 q- Q- H0 b
        RowBox[{"Table", "[",
    $ q' |0 [/ ^$ y# a  ^$ w7 X     RowBox[{"y", ",",
    9 I# q7 H  v' x9 _3 f2 q5 i1 ]3 a      RowBox[{"{", ! a! l% a5 M. M2 {# ~
           RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
    7 d7 t7 `3 E. F) S    RowBox[{"{",
    - ^3 f* o7 |, D! K+ Q  s+ K$ [     RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",- T- z# x  r1 O, }$ U# L2 \/ `
    CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
    ( u# M1 h  g, Y# F4 J) L  3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,
    9 p, ]/ I, K# e* x  3.5779619706547265`*^9}}],  b! h& a8 z% m* Z) r) o$ P
    ! ]# _+ \! g: h: ]
    Cell[BoxData[9 K6 v9 a6 e* |9 O! k
    RowBox[{"{",
    3 I6 F, |- @6 B: d: E  RowBox[{
    7 l7 P6 t$ |; a* k9 v5 {   RowBox[{"{",
    ) x  U& H  N) }, j" l    RowBox[{( I' u4 Y1 ]5 k( S8 o9 [+ ?8 g! n) N
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 w/ x! A/ a5 H; G9 ^( L- a# ?* p      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 |; }5 v- R) q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ! p- I" o, j5 O- B) F$ z     "}"}], ",",
    % F" u, x. n* k   RowBox[{"{", ! o% b6 s/ n- V
        RowBox[{
    , q4 _( m- B* l" `    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",, N0 I) T! L; }& U( c/ {
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; i' F+ T* P4 T/ b     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 ~9 j; u- A+ ~% ~& A" E/ Q     "}"}], ",", . Z# o; j& Q3 p9 @) ^7 p  K
       RowBox[{"{", 2 @7 F/ K  X# i
        RowBox[{
    ; c/ r/ k& W/ ?+ \5 c5 h8 N0 M    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # q# L  i! x0 ]9 v      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & G1 U, q8 r" O$ f* u     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( b  z) d# G6 F# t0 r
         "}"}], ",",
    5 ]) b8 J1 C7 P   RowBox[{"{", ' N3 V& |" n7 K3 }4 S$ N
        RowBox[{
    " `- ]/ K3 p. Z2 L( \, f& Q    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 K; s: x2 y2 {      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 H) n3 f! J; P% `4 R
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      `  @8 w0 y/ W; u7 |: H7 q     "}"}], ",", ( h9 O+ ~  @  v1 I3 [# L: w& g& W
       RowBox[{"{", 2 k# D3 N$ `* J1 D, x' {
        RowBox[{: I( t- ~# h4 T% R9 t; E
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- L" |) S. O& B( v: H2 D3 C
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    & b+ h$ p2 q2 [( m     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ! z. q2 U# O3 Z( k     "}"}], ",",
    % O3 i* d. I4 G   RowBox[{"{",
    + t2 h" ?- ?* y" {$ y# n& W    RowBox[{
    % q0 z/ r/ j7 f    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( A! ]  o4 L- {
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 ^: l5 C- G1 s: J2 C" X! v     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ' R8 _" t/ r, {4 ~8 h0 N$ V) r     "}"}], ",",
    # q- ]' v* |% Q7 ?   RowBox[{"{",
    # H/ m2 X. l2 s6 L9 [$ h2 j8 t    RowBox[{
    " @# R2 r; i9 S: c    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & R( ]% n7 q! D. q1 h      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    " Q7 G" y& M9 G+ ]$ e) S3 ^     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],- V) \) h. {) y6 b
         "}"}], ",",
    6 D$ Z$ S4 S2 ^* ]+ f   RowBox[{"{",
    ! H5 i; Q4 X0 l% \. S    RowBox[{# [$ Y" Q4 r, H) c- @  O
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ' G9 g* y4 t0 D/ ]0 t9 W) W      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : n' M* f; _) r
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],$ c5 K4 _8 {9 w$ Z. L
         "}"}], ",",
    0 o8 I8 Q% J) R   RowBox[{"{",
    % j0 I' m6 c: c5 l* Z4 M    RowBox[{+ O' \) D% I4 _9 X' D7 @: h
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ; D, \4 a4 c& n$ u! n1 c4 I. z      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - E5 h. n! ^0 Z# }$ {7 ^) s
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 }1 {' o, V1 X) Q, [$ T  p' k
         "}"}], ",",
    , \2 ~; f+ Z3 N1 F- P0 F6 n/ F   RowBox[{"{",
    & f$ E. Y5 J* L' l' O7 W    RowBox[{
    1 u  C- U: E; N; j    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) |* J# B, Y( T
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 N& |7 p" ], l# n     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& u9 M3 r  R' \* i4 p' Z
         "}"}], ",",
    % j$ V8 o& G  W   RowBox[{"{",
    & `: K3 o3 r! @2 d* r5 a4 b; D! |    RowBox[{" H% ]7 j; [, `) h" `; K
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",' _% {  |, }5 U, b+ Q' \  h4 S- P
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; x( g' j4 u- j1 a; A9 Q     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 E0 T$ S5 E( O2 }3 O     "}"}], ",", 1 S) z3 ?/ C; j! u# a
       RowBox[{"{", 1 t; b! `6 z7 W- y) x
        RowBox[{  w: i+ `2 y: N3 _" B  a( m* Z1 M0 h
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    # h5 ?, [2 L& N# i6 ?- _: p      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    $ N. n! F6 g9 }1 C0 F; V  o     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    # R4 P# w8 V% W  `+ x' L" q( H     "}"}], ",", * m2 f, G, r8 I; Z$ a7 T6 [
       RowBox[{"{",
    " d% E, ]$ k' B/ D; x$ [    RowBox[{
    " a2 l8 u2 E  j2 [7 [    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! P" J( W3 P* D5 d* Y8 m' U- t) A0 [
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
      H2 n9 H9 e! ^9 |# R; W     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 f3 o' w" a: z5 u  P. a, w- W  f7 W     "}"}], ",",
    + F# Q3 L) I: F   RowBox[{"{", 5 Y% A: u$ W" W
        RowBox[{
    " A  l2 B* t" T3 \* }    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) a8 {* k( U/ v" M: ~1 y0 \      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 S5 x1 z$ R+ N7 o  P5 j
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 c* }1 D- m( t" c* ?3 N, ~     "}"}], ",", 7 `- f/ _, g; `' U" p& d
       RowBox[{"{", $ X4 `5 c# n7 Z' D, G* Q
        RowBox[{$ g5 f" b% ~7 I0 l+ b
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 K: L/ H* f. A, ]
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    * L3 p$ d" A% Q- A/ I5 y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    / l! k9 ]" n/ c* A7 ]# W& T# a( @     "}"}], ",",
    , @! u9 b% X5 d# y   RowBox[{"{", ' [# {  I7 T3 O! [( _9 F0 k
        RowBox[{& c  z) E4 ^" B) |
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 i, A4 Z' q% s6 Y+ W# i: r      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; e2 I" `# R  y     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 D, S* a8 {5 X2 a+ q6 g     "}"}], ",",
    5 r8 C2 q  X( z5 b4 ]' q   RowBox[{"{",
    1 }/ o7 L: M  V    RowBox[{
    & K. k' r# E& o  W$ ]# Z$ W" T+ P    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 N$ ^& b2 h* W) h; q      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; C1 b9 j% j. M) m
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 y5 g- S( e0 |% Y- U
         "}"}], ",", ; G0 p+ u+ z1 J  A, p/ n( f# C
       RowBox[{"{", 6 d  _, l% a. X& N2 q
        RowBox[{: y  P$ ~7 a4 x3 o" @
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : Q5 Q8 N& z; W/ ~      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ! N- f$ u2 ]% R  S# G+ [     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    0 f+ P! v$ P: {" S     "}"}], ",", 2 W1 r& M7 b3 B; W( N
       RowBox[{"{",
    - ?! f$ ]& Y: b* t    RowBox[{
    & P/ N. `( _5 E+ u0 H' s# \    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",( O) g/ {$ }1 o1 |1 ~
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; T: R8 G) _( b( l     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 ~# @: W# t. l! c     "}"}], ",",
    ' d, |3 h0 l2 F1 ]- @   RowBox[{"{", 8 m; N6 h/ u/ B  B" l8 b
        RowBox[{3 ~% e  v. `. ?
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) W" T& h1 z! ?
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", , w. P! w# R3 F; g
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      w4 k. x8 i* X; D     "}"}], ",", 9 `- X, W% Y: K) F+ d7 v4 V& P
       RowBox[{"{", 2 U+ r1 u8 @' L! n+ s* z5 _
        RowBox[{
    * Z$ K, {5 X! s2 d- I" S    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ G' N: ]- l! L) p: ^4 y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 k' O9 V5 o/ Y6 \: v! _
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    8 B* u( f. H6 y3 H     "}"}], ",", 5 I, r; H6 N) [! V4 _
       RowBox[{"{", . g0 G2 G- {" q% y
        RowBox[{- w+ j; T) N. V! @* Z
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: W2 G4 a4 e" X. J7 Q8 n, w
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 4 T4 I: i- C  c
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! g+ u. L. v$ M! Y
         "}"}], ",", , Q/ `+ l; F) L& [7 z
       RowBox[{"{", 3 w* ~3 Z- j- I$ r9 `
        RowBox[{4 |5 X4 T4 |) i6 `  U
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- \* v: i/ N) B5 y! M9 G
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 r8 M5 I: l) r$ q2 @+ i
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],2 I( @9 N- F- S1 X3 e" A
         "}"}], ",", . [/ B, M" [6 ^, H) x5 p6 U9 _" F
       RowBox[{"{", 8 u+ h, j  U. W# Y. n9 }
        RowBox[{
    / }1 @- n3 _; y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",$ B4 ~+ S! o: ?
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - \. \% z7 X: q& {
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    & \2 A1 ]% @9 k! E2 k, Q     "}"}], ",", 7 b2 J  \2 j% m
       RowBox[{"{", * G/ o2 X+ P/ n7 _, O! Z
        RowBox[{
    9 D8 t: G9 M0 U0 t2 y0 [    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    " L% E* ~& I! b) n: O      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    1 q9 E; I9 l) U3 q6 D     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    1 U- @% Y, ~5 t6 `# \+ A; o     "}"}], ",",
    " o% }2 e; U( Q3 U   RowBox[{"{",
    8 x9 L' w6 ^" {* ?  W    RowBox[{
    $ {" G( N1 V  C) G2 P! x    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    4 p0 C) O# I! v! J      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ' m8 t- K7 x( _0 _     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% |4 v: x# u& t5 v) j5 p
         "}"}], ",", 7 c' p: _7 K4 a
       RowBox[{"{",
    2 i8 }7 D; E) r7 `( i, ]6 _    RowBox[{+ X, c, N$ {  d$ }! e' `  U
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",& F( {# Y6 Q4 n& c8 P  S
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", $ E  F' }' S9 n4 e. p0 y4 n; n
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% T- p/ L* m5 t6 m1 I) ?
         "}"}], ",",
    ! o6 B8 q+ m0 `   RowBox[{"{",
    & {+ F! u0 z* g    RowBox[{9 j. Y! A8 X. ]9 I0 N! ?
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ) K* h. j9 p! w/ o% E6 B9 T; {      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ' n3 a3 T; ]1 W
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! M3 T0 x% t  k4 o
         "}"}], ",", - H) }  I& k. Q% T  [: B
       RowBox[{"{",
    ; d% n2 V3 g0 P1 M    RowBox[{* i+ C8 v4 s1 t7 {3 Q& ^
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    3 m! @) c" d" p3 e  |      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    : i8 a# U: w9 G+ S9 R# P     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , t- [. X, C' }- V1 i     "}"}], ",", $ j6 G# ?6 K/ D6 v2 {& C' I+ c
       RowBox[{"{",
    " H& v' a- }- W    RowBox[{7 c6 f0 c$ U9 s. i: I
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    ' @5 f, @: Q9 K* M      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", . m; |7 p. K2 F$ A
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],! _: R1 N! l! X" |! V& a- |* T
         "}"}], ",",
    6 X2 g* Z& R5 {9 V& K   RowBox[{"{", $ k9 O# n& t  m( ^1 x. i
        RowBox[{' k6 ~3 M1 p$ ~  i
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",6 d- Y" V) r  P5 I
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 9 G/ N! M9 w' {+ L8 W
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],( {3 [3 N8 c# w
         "}"}], ",",
    ; p5 Y( j$ P- n5 d" Q, ]  }* r, t   RowBox[{"{", 9 n9 k9 Q5 V! I; n* ]
        RowBox[{, K' L: V5 W- R
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    6 v8 \; C- }. s; v- F      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    # C. `4 f3 G$ `; q1 ~" l     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, g6 X$ _' n# V9 ?; Y* `
         "}"}], ",",
    $ L: n- V) U* K, S4 K6 ^. r8 O; A   RowBox[{"{",
    5 T* b* Z5 i) m7 |3 R    RowBox[{
    8 H& H' {! x0 T, B9 J6 {/ ^9 |    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    & x3 t  Q6 W. ~: q: N      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    4 U4 [& w2 i2 t     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    / q8 z& N' ]  U! g" U2 L* d     "}"}], ",",
    % Z- a  k: {5 [7 s   RowBox[{"{", 7 y2 X: r" l' G+ F) P* J
        RowBox[{, L* x6 T" P: D. n
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",) |/ q. j& i0 Y1 }
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , C( h3 x7 @2 D" T1 T! h8 l     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],, o$ D: E* B6 r( p
         "}"}], ",",
    : z. g! s1 d5 H6 @! R7 S4 a# @5 p" t0 ]   RowBox[{"{", 1 @# T9 @; I" I. j8 i) n
        RowBox[{
    + C8 v3 h0 O1 A. ~+ b4 ]    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* ?; L6 h. E" h- g& F: V$ y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : s- F& c/ ]* [, `. w. b
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],% r$ m% j4 U# _2 q( _- u2 z
         "}"}], ",", & d5 ~& X: u" }3 D- u3 R
       RowBox[{"{",
    3 s' k# a" z$ G+ h    RowBox[{8 e5 r/ H/ t' A& p
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , E+ f: M! L8 J1 b      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", / h; a2 I2 f1 W( X, `
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    * Z6 Y6 d+ `, P* C/ T     "}"}], ",", 7 x: }8 k- i& u4 d  a
       RowBox[{"{",
    5 p  m% g0 E7 @! m8 M: W% W    RowBox[{- |" \  x! t5 r1 c$ y! @& r
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    9 h& d' G! m' K5 W! P0 q+ v1 g      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ; |0 v- l! T& \6 ?. I     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    / I* C# t& W! b5 ^* T     "}"}], ",",
    / Q$ w8 ?. S$ ?0 v2 G6 C' g1 Q   RowBox[{"{", 3 e# C* L/ m- `0 v9 W7 h" w5 @: a# m
        RowBox[{" B. B! B, [- w9 ]0 V/ T9 V
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",5 f& k9 t5 J  `) O2 x
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    + l; z/ c! Y  @# K$ i4 P: c5 T9 }     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],# R( m6 O- U9 o1 @0 ^
         "}"}], ",", & n% u1 n9 T# C( A* o4 J2 g1 E" i
       RowBox[{"{", 1 D' F. Q0 j; v8 D0 N6 @+ B
        RowBox[{
    - K: G5 {7 K9 ]$ c( j    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    : E$ K* n7 ^$ n  n      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , t! p' H2 f5 @: Z     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    * M* ~0 {6 x0 X0 J; C. ~/ o' i- Q; e     "}"}], ",", / e9 X* T+ w- b/ Q+ m7 H/ W8 X
       RowBox[{"{",
    ) K! d3 a; R% ?3 C9 K    RowBox[{4 r3 E8 M4 ~9 H; m
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 ]  ^& y0 [; u3 j# d' ^; `$ Z$ I      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    + q) E. g2 y; ^' a     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
      a8 W6 m9 i$ y( n     "}"}], ",", 3 z7 J; ~" \6 S9 Q# M' l
       RowBox[{"{",   f+ p" i# x0 b% z, r* \& q
        RowBox[{1 o) M, b! M1 m5 J' x: v4 _
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    " }, P; @5 i9 }3 u; O) N# m& R      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    ' {: {) p( E  J$ ]8 _     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    * J) x  w) y3 i  @; t, X; q, T     "}"}], ",", 3 c3 I3 z2 E- X- L  o& P
       RowBox[{"{",
    # y4 d% W5 f: O* r    RowBox[{8 \& i( S2 G8 P7 T
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 D4 E7 `( [/ M- s" Y
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", % m. n: L. M1 E9 j" ?
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],5 {* B$ q5 D9 Z" F7 `, |
         "}"}], ",",
    4 G1 E$ Y! n# z   RowBox[{"{", 6 p9 }$ e# g' L$ T" T- C+ J
        RowBox[{7 n0 L' p$ S1 |  ]$ H
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",7 M' V) J  S- K+ ]( X- N2 j
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    7 u% u4 D) b( j0 X( o     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],0 r5 S: i: t) a. ?- _
         "}"}], ",", 1 |* l  |# I4 x* v, b; @  |: a
       RowBox[{"{",
    % z  L- ?! x0 g8 Y- l    RowBox[{
    2 x$ }0 P+ ]$ @' {, ]1 n5 }% }    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    * t: U: `" L/ P6 A5 ]  D4 \      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    9 k* G! d, L) f; S( C: d     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}]," M6 n! P! d, W  e, a- M
         "}"}], ",",
    ) W! x8 N! _" F8 M0 N- U   RowBox[{"{", ) U: P( ^8 k* F
        RowBox[{
    1 ]0 Y6 v0 u; l* q# C4 ^' ^    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",3 e! m5 N5 q* _1 R1 T* y6 Q
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    . g( `) e( Z( I# P     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],1 `. v! J* f1 a/ o" ~! ~+ t
         "}"}], ",",
    * X2 I8 d% M9 j6 J( k2 N   RowBox[{"{", / I, e$ J3 `8 @& A) C! m- u
        RowBox[{3 m. D# @% s- p) f( Z
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: u4 L9 h( O( W+ t/ x* R% M
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 a. d9 N) k. v     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],  M# T6 d, x% @8 ]- A5 Q
         "}"}], ",",
    4 w' F7 y& _1 V5 Z8 A   RowBox[{"{",
    $ _% A+ ^" a  P" e6 r' Z. y    RowBox[{
    " c, I$ S6 B: g. c/ W    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 V0 V0 r+ d7 c, }      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 8 ?1 A  b. o2 z2 t, ~
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' D" N6 y1 i. Q+ u, B- s
         "}"}], ",",
    * V/ n' V. Q+ R; C   RowBox[{"{",
    ; k8 n3 q3 ?# \* D8 {, F    RowBox[{: [6 E  w3 ]; c7 f9 m# J, |! N1 i
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    $ S) S2 P% {" d. m6 X5 \4 p2 a5 D      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 3 e% s& z. l0 _
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ' {9 P! j0 F  `0 z     "}"}], ",",
    6 y3 \6 q6 O) \. p& ~9 Q# F   RowBox[{"{",
    & q2 q2 K* ~/ u9 H    RowBox[{: W6 ^6 L% G: f( f" L1 S
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",8 G1 [$ z, R5 q/ a
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 o$ R2 v: w4 i# h; `     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],' O) O3 h& ~' `. M* K; v& f; I# ]
         "}"}], ",", " ?0 [. e% I4 I- U$ @5 ^
       RowBox[{"{", & a) r, L; f/ V& B3 N( s2 _/ h
        RowBox[{2 s. i) a" Y9 S. B. g. `) j0 @
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , C% o: Z4 a( Q/ b! |      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", - C5 _0 H0 L" m: Q
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],7 I  R/ K$ g. W4 G& ^0 V4 y
         "}"}], ",", 9 [; \6 m3 a" c: |# O
       RowBox[{"{", / Y  g& e3 ~. @; L* o# }& d
        RowBox[{& j2 m- }9 _6 w: L
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",  S1 z% v. h% b/ x  [! ?
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    , d6 H  ~8 H' k2 M4 W     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ( c) B% H5 B1 \     "}"}], ",", 1 g5 f4 K" R" U+ y7 m- v& Z
       RowBox[{"{",
    6 [4 `- t1 d# ~" z2 J) Z    RowBox[{
    ; M; B+ [! ]) Y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",! a3 x- B4 S7 B! p
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; k  a: c7 Y3 v8 g/ ^0 r+ f- X* b- E" v
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],. E6 U# C# M1 p( G- |
         "}"}], ",", 6 H! d" ^8 L, ^6 x* B; r
       RowBox[{"{", . B7 Z1 i: \! H! n
        RowBox[{% g  O! v) ^" A6 R( J  |: \/ I1 I
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , {- j$ Q. U7 u' ^( J' A/ h1 ^      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    $ {0 P! ^) N+ s* f     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    ; d! h6 W3 S  j7 ?$ U9 g     "}"}], ",",
    & ?# o" k* i7 S2 S* k  C   RowBox[{"{",
    8 L" M% n0 y/ ^1 J5 S4 }( L    RowBox[{: d" [4 j* a+ s9 i9 _" Y. U  M. g
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",- W9 d) b, }- _$ [* |
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", 0 }! A" D0 v; @8 [( ?5 N
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* b1 z; |2 [6 L! D# j. E0 r
         "}"}], ",", % l5 Z% l/ D2 G
       RowBox[{"{",
    4 U( \5 [  A( b5 m    RowBox[{% [$ o& [/ X" y1 h  p) D. a
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    2 p* N4 \) l: R      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! x$ K' a0 g6 o
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],* N8 G+ Z! ]% ^! k
         "}"}], ",", 7 _* @" D+ Q+ L8 P- d/ S0 w
       RowBox[{"{",
    5 |9 w' L+ p2 R1 d- ]    RowBox[{
    % n( P2 Q! {% a# o2 R, v! q4 M& |    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",% W$ }$ j3 h$ ^7 O/ |7 m
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    0 M, b  Q* I& r0 G     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    , A. Y+ m/ a* `. _& M( h9 \3 c     "}"}], ",", ; {9 c& N, G) j& `  d( k5 P9 W
       RowBox[{"{",
    % y  b% W* M: o( y" \6 ?" y7 I    RowBox[{! l/ r: r5 x% @6 K4 f6 O
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",: w) G( J  [* }1 M9 Y0 L: D
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", " B1 i0 L( G) [6 V* ^6 }
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],& a! C* }* [7 m
         "}"}], ",",
    8 `7 ^  N" j6 i% @: ^8 E   RowBox[{"{",
    7 G; N. q5 B; N    RowBox[{
    ! ]8 Z4 ]7 \8 \1 \9 z    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",* {! x" E% r% |! a
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; D  Y& b! v, |% @8 l
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    . j$ p0 d) {7 \4 B     "}"}], ",", 0 p# j, S) O% r6 m& R' e
       RowBox[{"{", / |0 f5 ^9 a$ U0 O2 o
        RowBox[{
    % @9 ~' ~% f( A# K0 f  d/ Y    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , F& B2 B( F* X8 i2 D6 e) ^      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ; r! Y9 ^# ?0 {9 A1 C- o0 {
         "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
    % O4 X* R  G5 K$ M3 f% v4 y     "}"}], ",", ( R6 K2 z* m$ t- T1 ~% x
       RowBox[{"{",
    ! E. a) D* P7 F/ e& |    RowBox[{: d; T/ K- e2 I, L2 J, T! Q
        "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",1 u" X% ]) [- M$ {0 E! Q, }
          ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    8 P9 l0 K% A+ A9 J     "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],3 C8 q. Z% V9 G+ f
         "}"}]}], "}"}]], "Output",
    8 ]" ?+ V8 |& `. g CellChangeTimes->{" u: K0 V/ A) Z
      3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
    ( x0 `, [  F, g3 W2 R  n   3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9,
    # w: E- W' P$ p9 S( z: K, e9 V   3.5779619748823338`*^9}, 3.578012345453125*^9}]2 n, p4 j4 F- m! z% y
    }, Open  ]],( t$ c% w0 [8 h( V; \5 j5 H
    ) W" z8 X' c3 w4 f
    Cell[BoxData[
    " }4 v! R9 M6 p6 ~ RowBox[{"For", "[",
    - k; Y9 O7 t4 P1 @/ x  RowBox[{/ F' d* v/ T0 D; j% E
       RowBox[{"i", "=", "1"}], ",", $ P/ `! O! }4 T6 ~$ K
       RowBox[{"i", "\[LessEqual]", "60"}], ",", - e: K; D: }0 d( P4 X
       RowBox[{"i", "++"}], ",",
    . U( C7 K7 n3 k$ N: e" j% B- P5 [& h   RowBox[{"{", "\[IndentingNewLine]",
    6 j! j5 A& e& T    RowBox[{" l; u5 ^- ?* B& L2 j
         RowBox[{* a6 T( f/ W/ n" V: x
          RowBox[{"m60n21", "[",
    " f$ i; U9 V/ {       RowBox[{"[", ' @5 B) i, r9 j5 k& q
            RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", - R/ {; H4 @0 r/ |8 J
          RowBox[{"u1", "/.",
    . g( d" B# E* s; r( N: {& X' w: A$ ^       RowBox[{"{",
    2 U; O1 Q! K4 y        RowBox[{% Z: m/ X4 g8 C( b
             RowBox[{"x1", "->", 1 V/ I" M2 K  q5 h
              RowBox[{"Data", "[",
    0 ~5 `3 K/ p1 Q: c, x5 \           RowBox[{"[", - a* a, f1 x0 [0 a. ]. Q
                RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    6 F  I3 Y2 _6 Y1 ]         RowBox[{"x2", "->", 0 X/ ?; ~5 b0 J
              RowBox[{"Data", "[",
    " s4 j9 k* F  Q. F           RowBox[{"[", ( ]5 E0 l3 d% m( R- d
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 8 l- O9 @: s, _5 J; |
             RowBox[{"x3", "->", 3 S  e* M% U; u* g; H% \& H
              RowBox[{"Data", "[",   K# d2 K0 q8 n* `- C$ @
               RowBox[{"[", $ w5 m; k4 ]. K0 Z
                RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    9 R/ i& H: K" s         RowBox[{"x4", "->",
    9 K" w$ T, f& Y# [0 Z          RowBox[{"Data", "[", ) o3 t" ~4 m: H5 O2 @* G" M# R7 X  d
               RowBox[{"[",
    $ L- ~6 |& N# W0 @+ s8 f2 a            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
    4 R* s  Q0 F: G         RowBox[{"x5", "->",
    $ O  z' @. E& i          RowBox[{"Data", "[", ' n- V0 \# [) k0 r+ a1 p" W/ a# `2 t8 b
               RowBox[{"[",
    ! j- W  _  O: A( b+ E3 m# o            RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    + o; z1 L- b$ G) P' f4 V1 x! x         RowBox[{"x6", "->", 7 d7 M9 B9 Q% Q5 p
              RowBox[{"Data", "[", : p+ |, }. {2 A5 A1 B' {
               RowBox[{"[", , s% k$ J( p. e
                RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
      k, o# q) }! {* V0 s/ o         RowBox[{"x7", "->",
    ' G( s% ]  a4 _0 k          RowBox[{"Data", "[", : G7 {' g% D. b, r1 [3 O
               RowBox[{"[",
    $ ^5 v4 }4 R4 s" w. p/ E            RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
    , R* }: w; |* f7 Y) T+ ^; t2 m3 I         RowBox[{"x8", "->",
    . V) b$ W! s% F8 W  ^          RowBox[{"Data", "[", : F$ x5 g; k8 N3 D- L9 m) L
               RowBox[{"[",
    / ]6 C5 t, P* v! v/ s2 y            RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    1 I+ u1 q3 k$ Z% I$ ~6 I* v3 |# X         RowBox[{"x9", "->", . L- ?; h) R# q) ]. k) L9 s
              RowBox[{"Data", "[",
    ; T: o' Y  H! _$ O: q/ a* `; M           RowBox[{"[",
    + i2 H) ?9 w! _; B  E            RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
    : S* I  r3 J+ F5 G( m9 N* g+ [+ ]     "\[IndentingNewLine]",
    8 O; h* W& |. \+ ]* }$ r( f     RowBox[{" A/ h+ T& q6 O2 \
          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
    ( o- o( ?6 F0 s% c$ z神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗

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

    : e  V1 p( E: ?+ Y: oCell[CellGroupData[{0 q% u, h$ t# s- J

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

    # S2 S( E4 X$ T" t( h/ k( gCell[CellGroupData[{$ H5 N/ b; w: j9 [5 w# s+ b4 ], g
    . j; V- R! U' w: M0 R
    Cell[BoxData[{
    % e" i/ X, e- q1 ^0 u RowBox[{"r0", "=", "0.2"}], "\[IndentingNewLine]",
    , b# P/ z7 q) ^) E2 V  t2 s" n5 g RowBox[{"M1", "=", "1"}]}], "Input",( V- p5 W6 ?  p& G, u$ M
    CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {% D, D7 j! g1 a7 D2 c. v$ O
       3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9, ! |5 v3 \5 |6 X* e6 |
       3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {
    ' |" q$ ~$ z$ W' i- T0 ^, f" d6 R   3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9, : M/ N% x' S8 o3 `1 t: h1 J
       3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {
    , O6 T% i  t. W, m# H4 l   3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {# I0 w: O3 c) m! {5 P
       3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9, 3 i3 C1 r8 r( I& j. p$ d9 @$ s
       3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {
    . _/ z: [- S8 }/ `% K: X  f   3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {- m5 O% |3 P/ V' t: @
       3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9,
    , ]5 P4 c3 f/ _# ^0 W/ R! W0 M- Z   3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],  S3 V9 F$ y1 C

    7 [: x+ m$ Q7 k6 kCell[BoxData["0.2`"], "Output",1 c& ?: z/ Z# E, \
    CellChangeTimes->{
    . J: p' w7 p0 w  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
    6 X9 A, X( x: A& d' v   3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {. w$ S% `' B8 b5 U, r  T' ^- {/ z
       3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
    2 K* y1 S1 x; q$ b4 {) r   3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {$ r4 i5 P. d0 K8 l) y8 G
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
    , I/ l! H2 l$ h' s; n. q   3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
      N6 |% R' e$ t+ g/ J   3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9, 3 ]& }$ d* T' {3 B8 m- O* I/ s* j
       3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
    ! s( ~. X) {# [- Q! I   3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, ; Q6 ?  B+ X' F7 I" x# P+ r
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
    . l. u% b+ G& P+ O. Z   3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
    * h& O$ o  S. X9 J   3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9, # W. y. Z6 ~% o: S, O/ c/ {) L
       3.577960510686717*^9, 3.578012149296875*^9}],% @' B1 `; r# y, ?4 [
    7 W/ ^* Y; ?2 p, h6 l5 O+ N% K
    Cell[BoxData["1"], "Output",6 |# T$ q/ U: A8 Z  |
    CellChangeTimes->{
    0 ^/ Q5 b' a) L  E9 I  3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9, . T3 L( x9 H' ^7 ~& Y5 u  S
       3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
    3 }* K: n& X7 o   3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9, 6 l, D9 a- k- f2 s# }; p
       3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {" u0 Y% p2 q- \3 n7 B
       3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9, ' v$ r/ A3 Q+ R8 H' x
       3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {+ _2 a+ t  X" m5 U3 |8 m7 |
       3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
    # b" m' z2 B- t/ o' Z! z; y   3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {- g9 V( b) t* u3 |5 E$ F
       3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9, - X5 I. b4 k& d3 v* b$ o) {8 c  U# P
       3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9, % _* e. F7 |! ^9 M' v/ X
       3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9, 9 N( \/ h, D" V+ G( b
       3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
    : I7 k0 J* E, l   3.577960510686717*^9, 3.578012149296875*^9}]7 R8 [* ?3 O; E0 o) g8 M
    }, Open  ]],
    5 t* ]& e& @; E
    3 d8 \# S) C* L  ]Cell[BoxData[+ S2 f9 ^# f" |, ?
    RowBox[{"For", "[",
    ) O8 K- M2 P* i+ g, y+ p  RowBox[{
    4 V) z: o) z6 F, n& r   RowBox[{"k", "=", "2"}], ",",
    + C; c% e, ~4 [" Z   RowBox[{"k", "\[LessEqual]", "60"}], ",",
    2 q/ d5 f; ~3 E" d+ g   RowBox[{"k", "++"}], ",",
    , R2 X8 j5 J( C! t$ q   RowBox[{"{", "\[IndentingNewLine]", 9 J5 u- W" ~7 U; t4 H3 F
        RowBox[{% X: u4 o: w. [- J' c6 u5 ^
         RowBox[{"rmin", "=", "0.0"}], ";", "\[IndentingNewLine]", / ^" a/ Q. v! N1 w! g
         RowBox[{"For", "[",
    ! W! z4 f, Y/ ~) F, h      RowBox[{& y% b3 l' s: m6 K  U
           RowBox[{"j", "=", "1"}], ",", * o1 ?; `7 a( l' i+ J
           RowBox[{"j", "\[LessEqual]", 2 L6 d0 D3 @* A- v
            RowBox[{"k", "-", "1"}]}], ",",
    & }+ C7 l! X3 M( p       RowBox[{"j", "++"}], ",", * `0 h9 F% Q3 Z* E
           RowBox[{"{", "\[IndentingNewLine]", 8 h, B8 I; ]5 B# ?' m/ K( o' P
            RowBox[{
    % ~5 u9 V3 Y$ V! x9 P         RowBox[{"r1", "=", "0.0"}], ";", "\[IndentingNewLine]", 0 h- q' t9 z% ^/ L/ a- Z0 l
             RowBox[{"For", "[",
    2 |7 c& i* `6 T          RowBox[{: P( V- C  A9 Z$ u6 G6 t! y5 z
               RowBox[{"i", "=", "1"}], ",", 6 C1 i8 R! U+ y/ p4 n9 L8 \
               RowBox[{"i", "\[LessEqual]", "9"}], ",", " C% ~4 m/ @! U( p0 [: B( X
               RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
    ' K3 f: J  c# `# T% {, |3 |( [           RowBox[{
    ! E4 I" N5 b( f# R4 @            RowBox[{"r1", "+=", # N* ]1 X6 i3 P( F6 L$ c
                 RowBox[{8 ^( G6 k+ s" k" a( X
                  RowBox[{"(",
    ( |4 t: M$ y; P, n% H               RowBox[{
    + h) Z$ v# h% U                RowBox[{"CM", "[",
    4 [* T. U7 u- @: W                 RowBox[{"j", ",", "i"}], "]"}], "-",
    - y/ Z, \5 n4 _                RowBox[{"Data", "[",
    : a% ~% E& c: r; x                 RowBox[{"[", ' M+ _' g7 U& e# m6 F
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
    8 O, x& z& X) I& N' l0 L+ e              RowBox[{"(", 0 O8 i% O0 E* |% g. T0 E
                   RowBox[{
    3 L7 Q! \4 L5 X9 I6 l$ E1 ?( H                RowBox[{"CM", "[",
    ; D9 |, L  N5 v7 b0 c                 RowBox[{"j", ",", "i"}], "]"}], "-",
      J( S  Q* s6 ?( A& P                RowBox[{"Data", "[",
    $ R2 ^% S" M: j; c7 Q% _% h                 RowBox[{"[", # j9 a# g: m( I: V! ~" f
                      RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
    " L4 Z2 O9 @7 ~! H" t8 o           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", ; x- @# }% z7 C' `- V& p
             RowBox[{"r1", "=", . v" T$ [% ^) _' f, J$ N, x( J
              RowBox[{"Sqrt", "[",
      C- U( T; x$ X; s( F/ O4 m           RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\[IndentingNewLine]",
    3 M7 b: d! G- m: h8 S, H         RowBox[{"If", "[", " ", 8 e& e$ J5 ~. t; V7 g7 }
              RowBox[{
    # R. ]+ d$ Y7 J6 v  ?           RowBox[{"j", "\[Equal]", "1"}], ",", 8 h3 ~) q: r" a
               RowBox[{"rmin", "=", "r1"}], ",",
    ( M$ e9 b- U2 A. b3 j+ f5 @/ \* m; }           RowBox[{"If", "[", # a4 [# C2 v7 L6 z4 I
                RowBox[{5 H% a6 a' `- v3 [  ]
                 RowBox[{"r1", "<", "rmin"}], ",",
    1 G( E% n% v1 H* N6 k6 s( q             RowBox[{"rmin", "=", "r1"}], ",",
    % z8 V- ~& W- R* i" ]             RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
      J0 \) Q, ^$ P. V) l' [        "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";",
    & s" O$ }) J3 S$ [$ r# h+ |& k; J     "\[IndentingNewLine]",
    ) u9 U* y/ _8 g! I) v     RowBox[{"If", "[",
    4 T  J( c! ?4 j2 e      RowBox[{
    ( _: @; ^4 j* _       RowBox[{"rmin", ">", "r0"}], ",",
    , Q5 c+ z. K- u* D3 k       RowBox[{"{", "\[IndentingNewLine]", 4 F; [, d$ z' N1 g3 O
            RowBox[{
    6 b* L. n- @7 R+ u/ x- q         RowBox[{"M1", "++"}], ";", "\[IndentingNewLine]",
    ; n: N6 g% j# v3 o$ ]6 L5 _0 o         RowBox[{"For", "[",   |) s, Z( u" B4 I. e0 W: z6 N
              RowBox[{/ w8 `, E: H0 _3 {4 W. L1 w
               RowBox[{"i1", "=", "1"}], ",",
    ( X& o  R/ N6 C: r           RowBox[{"i1", "\[LessEqual]", "9"}], ",",
    + {$ U4 a' p+ f1 n- s7 ]2 I, e           RowBox[{"i1", "++"}], ",", "\[IndentingNewLine]",
    0 h1 P: J! ]$ ?! S0 R) z$ ]           RowBox[{
    & Y2 W: W  }9 B            RowBox[{7 ~9 \2 F5 I5 k5 h# j) [
                 RowBox[{"CM", "[", / E2 ^6 V  k" \, l, r1 Y- V
                  RowBox[{"M1", ",", "i1"}], "]"}], "=", # X; _& d3 e+ N8 }' X" u
                 RowBox[{"Data", "[", 2 x; p1 ]7 k6 M+ R
                  RowBox[{"[",
    7 Q8 h. l% S; c8 Q$ v               RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}], % z$ P. B! R# h: z) B1 o
              "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",",
    , @5 A( C8 a# l2 V. J) J3 O       RowBox[{"i", "=", "i"}]}], "\[IndentingNewLine]", "]"}]}],
    7 o& ~% z9 p& B* w7 V    "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",& a7 C0 ~  ?1 a) O. c
    CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {8 w8 \) m! }  c: K
       3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9, & n  i- ]# W: ~# K
       3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {% n+ K) ]3 d8 d8 O$ W) C* ]" k8 [
       3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9, & q0 s$ s/ m8 B2 ~- }$ z0 Q
       3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {1 m8 J, @2 Z$ E+ P! u8 I1 n0 I
       3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,
    ' e# _/ Q9 D7 S! C- m   3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
    4 o$ E5 P7 a* I! S3 N$ E   3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9, * b4 r4 z7 B  a; _
       3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
    & x. b& U# Q# @  W  B& |0 f   3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
    . e& u; @$ _  I) A, s( S2 M! ^2 h   3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
    7 Z1 d" [; T4 v2 }9 U( c+ @   3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9,
    - B0 d; h& v6 h- M! g   3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {+ m# f+ q8 `8 E9 v
       3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9, 7 V% h$ W$ d( e4 ~! G: F+ r
       3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {+ o/ V$ P8 r9 M% a
       3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9,
    ( M6 `& q3 M8 u   3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9, 0 N1 U, x9 k& C' {; a/ M* M
       3.577958821991373*^9}}],* g4 l- j4 W; [8 A$ _3 l2 X

    * g# w1 _6 \% x+ B5 _+ O& Q  G* QCell[CellGroupData[{/ a* b$ T" R. r  V

    5 U/ D4 _- x6 l. y; WCell[BoxData["M1"], "Input",8 J$ b% _8 `# M  |5 S& X
    CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],  @1 T/ F" _) @1 G5 W! ^

    7 c& l, |; K* r) H5 cCell[BoxData["21"], "Output",' R7 i. U2 [- b2 G" n7 E5 A2 R
    CellChangeTimes->{( `8 Q  W, Z; a4 c
      3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {5 @% Z2 {+ d0 |0 b
       3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9, . p7 d" A/ e+ }$ R6 d* ], ~
       3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
    ' S4 s: {7 n. j" s1 x" R7 [8 ~8 s9 y   3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9, 1 B2 `# W! n+ N3 b7 l) v, o+ W9 }/ d
       3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {& n6 f- d8 h8 w2 k, p& M" j
       3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9,
    3 \" I6 `. \" b0 y   3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {& E2 j& q% W, m. k
       3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
    9 I; k& t/ b& w   3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9, , W& |, y& Y; L% ~% x
       3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9,
    , B$ v4 R: |! N8 a( S   3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9, % m0 W5 q: ~- ^: ?* V
       3.577960515600726*^9, 3.5780121541875*^9}]
    & n+ T1 u# a, e0 G- i6 F$ J}, Open  ]],2 H5 l5 L( X# D7 A4 {6 C

    ' J3 X% h5 T/ E1 S+ {0 ^8 C" l! dCell[BoxData[& E+ n# W; K& n
    RowBox[{
    ! Z4 x7 F5 G1 S* s2 M8 V9 c  RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[",
    1 h; b6 S. c; x+ A. a: \% I   RowBox[{"1", ",", "i"}], "]"}],
    ( |. D' J5 h2 g. s) |9 W! i  RowBox[{"\:5230CM", "[",
    & ]1 G  I% p) Y* D2 }   RowBox[{"21", ",", "i"}], "]"}],
    5 K& n' A- A. w) c" L2 @  "\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\$ L0 O9 {$ p1 u1 Y3 h4 r3 N3 n
    \:51fd\:6570u1\:5230u21"}]], "Input",
    & V0 g1 K# H7 D- ?# m CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
    $ T# P8 R  B& y3 ]/ a- Y% X  3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9, $ @. H  r2 i) M: j, }
      3.577960526583145*^9}}],
    5 N1 ?3 {% |% V" Q; ^
    0 b- u1 P- ^% b" O9 VCell[BoxData[2 Y9 g& A1 W5 f" \- T  h* s
    RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
    : s, p4 o+ p& Y1 z9 z+ b4 W( Q CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],5 x! X% S( j, j. d% t

    # K% c, u: }$ Y; [* x5 |Cell[CellGroupData[{
    $ e* f4 Y) C+ m& F* @! M5 Q3 ?1 ~" V8 `, h" _. \% Q5 |
    Cell[BoxData[* m2 W" z, s4 {# U
    RowBox[{"Xa", "=",
    * p# z) D4 V' o  u/ a8 z  y4 J  RowBox[{"{",
    4 Q+ b* N  Q# c$ n   RowBox[{8 W/ q5 e9 t3 ?0 K
       "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", 0 ?8 Q) F3 O7 j: @8 t' V! I* A
        ",", "x8", ",", "x9"}], "}"}]}]], "Input",
    / g- V/ j3 S2 ~  q8 _ CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
    - z6 t1 K* B5 Q( b, S) d# q6 q1 Y
    7 V& X  }; O" z/ I8 y  m, cCell[BoxData[
    & |1 C8 p4 C  H9 n4 L  j RowBox[{"{", 2 j8 s7 p# t8 g1 ^0 b2 p
      RowBox[{
    9 [1 A: C! g  c6 k; v  "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",% J# ~$ Y+ }* ^
        "x8", ",", "x9"}], "}"}]], "Output",
    - G. ^2 b$ w$ F; Y CellChangeTimes->{7 L+ a7 C+ O7 U0 _
      3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9, , C; z: c5 y3 ]; t( K
       3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9, ; f8 `! a' Q4 u& h1 e
       3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
    ) ~2 p, _# U8 h* x& D   3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9, 4 e  r- u$ k/ K) G) ^$ I5 M1 ^
       3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {$ l' D; o3 P. r' Z8 L
       3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
    # T) |7 r8 R$ @+ X" T$ L$ t& O& M   3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9}, 7 ?0 @9 l, g; H, }. |1 H8 i4 c7 v. T! B
       3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
    6 _, F6 L; ]) C3 l  K/ S! P   3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {- P0 }- S4 @7 d; h: y% X6 ]( _
       3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
      ^9 W4 q7 ~3 r6 U9 Y! K. k   3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
    6 ~! P, q/ K/ ~- J. J   3.57801215725*^9}]
    2 q4 U8 q, l; O1 f7 X& Q}, Open  ]],
    ) _7 @2 ^% k! m4 X, h; l6 g& ^$ v# e' ^3 Y
    Cell[CellGroupData[{
    5 W7 I& Z0 ~" }% y% @$ S1 L3 w# y5 K/ q9 z
    Cell[BoxData[
    : w* L1 c+ H8 Y  v RowBox[{"Ca", "=", , U: H  Q) j: o2 c- N" m1 B
      RowBox[{"{", ) V* U) c5 G; r% [: g+ b9 e, q) {
       RowBox[{8 ]+ @4 `& A1 g1 w: z, b4 {
       "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
    + H- l/ I3 {" A0 e4 A    ",", "c8", ",", "c9"}], "}"}]}]], "Input",. {& X8 D  m6 ]( Z
    CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],! M5 r( c8 ]) p/ h6 e6 @6 L

    5 Y$ z" P- I4 J& K3 PCell[BoxData[
    # F& v- L$ ?9 C" B RowBox[{"{",
    ( k2 D3 @1 W' r2 v: M8 C  RowBox[{
    / S4 R% w: z6 \. \  ~  "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
    % l) Q& u. Z! X- H5 E    "c8", ",", "c9"}], "}"}]], "Output",5 k6 J% d# }  n( q9 _) i# D0 q% x
    CellChangeTimes->{$ [2 T3 Y: D1 Z( W' y
      3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
    4 a5 n5 m/ H' @5 r4 g   3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
    ) z  z5 D" @& W; D+ e' B1 _" C   3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,   P3 w' `- B" k
       3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {* Z, Z9 {2 Y4 r  `2 X
       3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,   {- A3 h/ N0 h
       3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
    # v  ^( e( v  E' ~& Y   3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
    - Z/ J. J4 R  {/ o2 f5 b1 B0 E: z   3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9, ; h& e3 v$ y) E+ A
       3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
    4 z  I# L! w  N2 ?( \   3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {7 _5 ]* j8 J0 I7 p( L
       3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9, ! f7 n, C1 K, U9 ^3 d% ^
       3.577961904604212*^9}, 3.578012158671875*^9}]
    8 M! w" W6 e2 k/ T, J. s}, Open  ]],- |  _( c$ I7 q4 k3 c

    ' F+ J5 q  f$ p) v7 d% kCell[BoxData[$ f& e. c3 I* U0 V1 T- {4 y) d
    RowBox[{"For", "[", " t* I5 ?' f; }0 o6 I  e( X
      RowBox[{  [- J, y0 h% N7 k' x3 A' f* V
       RowBox[{"i", "=", "1"}], ",",
    % e+ q& f  C1 O' N   RowBox[{"i", "\[LessEqual]", "9"}], ",", : I3 D' F, D" |' K
       RowBox[{"i", "++"}], ",",
    8 b# D& `9 U4 z( S+ P$ v" ~   RowBox[{
    9 R8 _8 @9 z$ d# s# y: D9 q$ J    RowBox[{"Ca", "[", " ?( l6 U# W+ z( _+ _  t
         RowBox[{"[", "i", "]"}], "]"}], "=",
    3 n. b3 k0 F* X( O    RowBox[{"CM", "[",
    # S, s! x( ^+ A* q/ T( \* T+ k' r; o     RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",* _; X" O2 d4 K+ Z( _$ {
    CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
    4 T& u' k3 K% U3 t6 L2 i   3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
    ' j& E6 L: _" I  O" c9 Z9 C0 N   3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
    % [- K- C( Q8 W9 K* A! y: f   3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9, 0 V) A$ z+ j8 Z) K% |; m3 Z
       3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9,
    6 ^: j+ C% ~. D! t; G   3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9, % c! D  l, w* X, \/ O
       3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
    # [& ~. a- r- N! |! U) z   3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9, " k" d$ w$ b7 U! {' K1 @
       3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9, ( U# Q4 o- {3 Y- h" R9 P/ z
       3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
    3 g* J7 t7 Q$ B   3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {/ ]$ _6 {1 M  V& m2 P
       3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9, ) k' D2 i5 T$ _4 t9 T7 B4 I
       3.577961906897415*^9}, 3.578012176296875*^9}],
    ( a! l1 c& X5 Q: e; }
    2 r% \* d  r  K4 t/ \$ K- jCell[CellGroupData[{2 b. Y( p' |5 _* h
    ( F2 o; `0 }8 G* G7 R. p
    Cell[BoxData[
    * D! S2 m6 ~. V# @' H RowBox[{
    ) B9 s5 D* F& x! C  RowBox[{"(", ) _5 T, x. Z, L7 Z
       RowBox[{"Xa", "-", "Ca"}], ")"}], ".", . `6 V5 `. n8 ~+ C# z, O' `
      RowBox[{"(", , q1 W. l: ]* F$ p0 T5 E: N
       RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],) {5 K+ }" ?6 U* o; o' s
    2 g3 k6 y3 R) D3 L* x
    Cell[BoxData[3 s- o. l  O) f$ Q3 N, A: k
    RowBox[{
    & w5 `3 C% b9 p$ x" ~/ a  SuperscriptBox[
    ! |5 m5 Z( q8 T   RowBox[{"(", 7 _/ N( N3 ~' ~$ W' ]8 G
        RowBox[{7 ?& q3 K, M! m
         RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+", , ~$ [% d6 q$ i  B4 h. n
      SuperscriptBox[7 B' ~# u  C0 c& U% t9 ?
       RowBox[{"(", ) o# a* _1 e/ H2 p& i
        RowBox[{
    0 S' j% m, W& x* E     RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+", $ J" B* n0 w  S- _
      SuperscriptBox[! I, q8 M! I7 ~6 n) Z2 Z
       RowBox[{"(",
      A9 H: E" U* ]# b    RowBox[{
    9 X2 Q* x/ j6 P9 u( v5 N+ n     RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+", % O  {2 ?0 l- |9 L) ^: _0 m
      SuperscriptBox[
    " B4 m. a9 r$ C% k9 {   RowBox[{"(", " e% ]5 @. ^) P( ~
        RowBox[{8 F0 |$ ~( q7 C) @
         RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
    ' E: W5 `. x5 E7 w- c3 G) l3 \  SuperscriptBox[  j8 o" q0 I& I+ b' g8 k
       RowBox[{"(", ( Y4 G4 l% m" G; Q- R
        RowBox[{% E: g; g/ R. V+ H* R* a
         RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+", + c& ~3 r! Z7 l
      SuperscriptBox[1 P& ?# g7 @1 w
       RowBox[{"(", ; K' ^, J  R( \' M# p! j
        RowBox[{% v2 [; D- w# N2 o( b2 F, h' k
         RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+", 4 v: x1 p) g: C2 Z# L/ Z
      SuperscriptBox[9 T, \2 p' \! Y
       RowBox[{"(",
    5 T$ o1 `5 Y; ^) Z5 ~    RowBox[{+ e% L8 @* o. R7 t2 M6 `: t9 `6 i
         RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+", 2 P- v8 m) D1 @) t" {: {6 b5 C
      SuperscriptBox[
    * c. D3 r) Z0 \   RowBox[{"(", 5 n  C* V% r( l# B2 t) \8 v# J
        RowBox[{2 A8 E! z2 ^7 b$ i; Z  d
         RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
    # X7 l9 @  c" X5 f, n  a  SuperscriptBox[
    1 C0 r0 b, n" k6 _0 S' {  J   RowBox[{"(",
    4 h0 Q6 h+ ?' J3 W; |4 h' E    RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}]], "Output",# M, U9 i: R! y9 ~
    CellChangeTimes->{
    ! n8 @$ L# _" r  3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9},
    . |6 R4 G3 N( G* o% v7 g5 ]   3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
    ) i! |7 v7 o. z/ ~& a9 h3 m   3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9, ' ^6 v6 ]; }' P- z  N
       3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
    # I5 u1 N2 l3 Q1 t   3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9}, * ^& z# I2 ~9 }8 }$ |! B6 f# R
       3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9, % z5 q6 O8 z1 A8 s& i7 p
       3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
    & `* C' u% H- c- U( b6 [6 g6 L   3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
      x$ w0 G: e! u5 ]6 X" ~" Q! l   3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {5 j% O% U7 j, {; j& m( p
       3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {1 V; m$ r# O$ d. D, l4 b
       3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9, " H. ^- [; ]! z3 o* U3 f1 ~0 F) w1 m
       3.5779618537169228`*^9}, {3.5779618846049767`*^9, 6 u  ^( [* ~/ }& F) ]
       3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
    $ `0 h+ K4 H) K9 Z" E4 w0 W0 }4 A}, Open  ]],
    2 h7 j4 I) d$ l! a, v  L/ P# I/ l8 N' Z8 {" q
    Cell[CellGroupData[{
    $ Z4 T1 F: V/ q7 ], ^4 R, l0 n' m% |7 [% h2 u. k' C5 P
    Cell[BoxData[4 I, X- J+ n4 p. u9 ?
    RowBox[{8 Q& [5 x7 x0 g2 G; O( o7 A
      RowBox[{"Ca", "[", ) h0 d! O! c1 T! J
       RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",
    " O( s$ D% |4 T8 C9 [" z CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9, " u# @: d" n) [
      3.5779616465173616`*^9}],) U  h0 [1 J: t
      T& M, @; k* j% R* J
    Cell[BoxData["0"], "Output",5 {! |/ L1 Q: Z# C7 J; j
    CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
    $ k+ a5 F* r3 s: ?0 B2 j  3.5779616484049644`*^9}], u7 u  K* L# y1 K' e1 u
    }, Open  ]],2 g2 G) b' a/ x5 }

    ; R) ~7 y. K" L, Z8 cCell[CellGroupData[{
    1 M+ \7 I3 V* O- h* }( i) O' K1 b/ I, z( Y
    Cell[BoxData[
    2 b* W- T1 C( d5 S* M/ \  E RowBox[{. Q$ m3 [7 g2 K$ l  c! A
      RowBox[{"Ca", "[",
    + J+ E( _; o- k; s0 h: F   RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
    7 ]" P2 z" T/ M0 s CellChangeTimes->{3.577957376235614*^9}],( d+ I2 c$ y/ {# ?9 w1 ^
      U" `! v* w: g0 a& o! {
    Cell[BoxData["0"], "Output",  W; L/ m! B; H% M# v5 [
    CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]# S3 T$ p. U2 q
    }, Open  ]],
    $ O, J$ j# U0 K+ I. @. [( m$ f3 |7 ?# l! j
    Cell[CellGroupData[{& ]! j, @' d% o
    ) Q7 O4 }6 k4 b8 `7 k, a6 g1 l
    Cell[BoxData[* @, u. }  J3 b/ W+ D, T+ I* `
    RowBox[{
    ) I; J* O& [( _1 N) O  RowBox[{"Ca", "[", ; Y$ C) l8 u. v4 b  f
       RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",  |4 R& I& [5 @- [" G
    CellChangeTimes->{3.5779573112927003`*^9}],
    ) ?4 V/ z0 j3 l' W, d+ g" h7 d$ L3 m  B1 J# N. J+ p* L
    Cell[BoxData["0"], "Output",
    $ D- j/ C4 ~% Y. M$ u4 } CellChangeTimes->{8 h! C8 Q* c3 E$ e
      3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9, - O" v5 _. g# m; B$ i9 a* s
       3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
    * |" ?4 W4 j) d+ {   3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9}, * R( l" d/ x; L/ t
       3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
    3 j# \+ q  D( X, K. h, L1 O9 x   3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
    : l, i% D* _% {5 b# d4 t& b9 D   3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]$ Z5 I! n' I+ c
    }, Open  ]],
      e5 W$ X8 @. Y& U! N. s3 r' ^* g0 l( ~3 ~% J2 B1 Z
    Cell[CellGroupData[{  w9 g- o) H( O* M* G' r
    " ~% O9 D/ s% \' Y4 ~5 W4 x/ w
    Cell[BoxData[
    ! C' C5 C' Y" p3 ~: e/ Y RowBox[{
    - E7 B' l* G0 `; F: l  s: @; C0 `  RowBox[{"Ca", "[", ! l5 I: P; k, A
       RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",; G5 ~9 @; @6 x5 _/ ~
    CellChangeTimes->{3.577921461734375*^9}],
    8 }* N7 ~) @, B% w4 N# q( C7 ?
    1 k/ i3 V  X0 f( K' k8 gCell[BoxData["0"], "Output",
    8 H; A+ L/ |0 |+ W& h% o0 g! Y CellChangeTimes->{
    0 ]9 t$ G+ H8 d) m* ?  3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9, . G7 \, O- i2 o" J3 n# Z
       3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9}, " o' d/ ^- }3 N& w" S
       3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
    9 r  e2 f* f8 h* w: X$ g   3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
    $ J. D4 x) [2 u  r8 ?7 z   3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]: O9 }) m9 f. L
    }, Open  ]],6 S) m, s3 l8 W* t+ G

    1 h9 U% F& J& E4 gCell[CellGroupData[{
    3 [& s$ d  N  p) U6 u; _
    . G2 D; |% n) K0 l; y1 o+ KCell[BoxData[
    - Q$ ~  I3 O6 V9 S% X4 Q& b9 l RowBox[{
    0 G! {& y9 w9 d; L' o7 D  RowBox[{"Ca", "[", - x% v$ U4 h& B5 i( S4 c5 j" I! M' z
       RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",! ^/ M6 |" ~0 s/ K& k# F! q
    CellChangeTimes->{3.577957303118286*^9}],% J- l  |; N0 [& s

    + p, D* n+ K) N7 b4 u  N9 CCell[BoxData["0"], "Output",, ?$ N4 g* _% q2 R3 p5 O
    CellChangeTimes->{5 y% I+ [: S$ R
      3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
    0 d& O  q' w* d# a   3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
    $ l, S8 A& y, p8 C   3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
    * ]0 m* p- R! I  w7 I9 ], u   3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
    ! h4 B# N( z/ o1 B. H   3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
    ! Q9 s9 D" R7 p5 Q5 i, t   3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
    : q+ B( ?: a& c1 |. P   3.577961889378585*^9, 3.577961912965826*^9}}]# K1 O$ x) A7 k5 |' R2 J. X
    }, Open  ]],
    8 o2 w6 s( Y% Q* p. l* d0 P6 w0 H& A: W" F+ f" X
    Cell[CellGroupData[{5 P3 r! B4 s7 D; t
    . e7 R1 f! H* a* w. p# E
    Cell[BoxData[2 s7 V! p# y4 M0 ~) l
    RowBox[{
    , ?/ j/ S+ K4 U% [; S8 I, S  RowBox[{"Ca", "[", + k6 v! g1 S: f  [5 h
       RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
    6 t1 F4 V7 q! t) p8 @, p; u CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {4 ?( t! a8 R4 ]
      3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9, ' L9 n( s. o; B0 M0 X" S
      3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {" z' T" G5 K6 ~3 o
      3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9, ) R8 v1 Y4 b2 G# Z
      3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
    6 G% F8 i3 ]' l- N5 m) X  ~4 u3 a  3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9, . @$ Z8 B) ?1 y- @  N* u, y1 G
      3.577921435703125*^9}}],$ ]7 h( |$ D/ k; l7 I+ @
    7 P' b* F' L9 N% [  A5 h1 c4 U
    Cell[BoxData["0"], "Output",
    ! H6 f3 Q9 X" b CellChangeTimes->{5 M, Q7 q. J& M; ]( k
      3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {
    ) V) P, ?  t1 i1 ^6 K   3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9, 5 \5 e1 y& T, a+ @6 a/ Q
       3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {7 Z) v. g9 Y! |
       3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
    # L9 F& F0 f  D  D# [   3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
    + O+ C1 ^8 g0 R: ]* d- S; Q   3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
    ; T. Z, L# K5 l   3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
    # L. h( D9 P# u: @* l$ w: [   3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
    / x$ k. V5 q" t8 \, L$ H' `6 K   3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
    7 k7 M4 i$ j+ s8 n   3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
    3 [  q2 D* h8 o% _0 [   3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {4 Z$ S6 T; N' ]6 V' M
       3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
    - j! D  M7 K) ]* q, d7 q   3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
    ! _- \8 K# N: d* P' T, ]}, Open  ]],9 s4 z7 Q! T& a! d- }% g* N- w
    8 a8 i) J3 o& e
    Cell[CellGroupData[{( b+ i0 v6 k* s3 O& ?; _" R! a
    # o7 u1 Q5 a* s5 R# m; i
    Cell[BoxData[4 i( {. O6 p& z8 ?; A( D+ `
    RowBox[{"Delta1", "=",
    : a; d( v  w9 R- e3 }8 \  RowBox[{0 T1 i" d, r& y; U
       SubsuperscriptBox["\[Integral]",
    $ x3 U/ h3 d& W1 G+ p  K, V    RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], . c0 C& ^+ E; d& \' G
       RowBox[{0 L& C! |4 R7 E
        SubsuperscriptBox["\[Integral]", , Q* y. t( w7 m2 ?" O
         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 7 i7 l  [8 k6 R2 ?6 E$ o( p
        RowBox[{
    3 P# @$ x6 M9 K3 U     SubsuperscriptBox["\[Integral]", + c, ^0 H9 d0 X( [6 \, @- _
          RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
      @$ u" F+ j, c     RowBox[{" R" v. S, I8 T4 B. \
          SubsuperscriptBox["\[Integral]", 3 L2 ^7 @  M7 }
           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],   y& M& p' w' b$ \( ~. z
          RowBox[{
    , e) l1 F/ b: p8 K2 k  L: A       SubsuperscriptBox["\[Integral]",
    ' k/ B& u" l. |9 I1 l        RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
      s  p- g/ Y/ s5 }6 v0 }       RowBox[{
    4 \! }; q( H6 t& `        SubsuperscriptBox["\[Integral]",
    . f6 N1 a, a4 p& D  t         RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    ( Q+ x. b/ l# L' k3 O) E        RowBox[{
    ; j# W5 o5 {0 u/ b         SubsuperscriptBox["\[Integral]", 0 W: D3 h, A7 ?; P2 P
              RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
    , ?5 m6 w! r# w3 I, y/ O         RowBox[{
      {7 H& F7 R& G1 e0 j% f- H: \          SubsuperscriptBox["\[Integral]",
    ; T4 @& g: W) t% }8 @, H           RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 4 V. f! o0 ^) l6 B
              RowBox[{
    9 L+ @) d) M/ m& n) ~& t8 g1 j           SubsuperscriptBox["\[Integral]", , R" p- T7 G8 X) C1 E8 M8 a
                RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], " l3 O' J2 t7 k, |
               RowBox[{  Z8 C# X, f1 I  |8 f8 G9 F# B
                RowBox[{"Exp", "[", . C+ S. r# M* _) L4 v! @# B7 {
                 RowBox[{
    ; f( V1 U1 r2 e6 n4 e) m7 T) U              RowBox[{  b  |: [$ |/ ~' x5 x
                   RowBox[{"-",
    * O/ ?) z( _& g* L                RowBox[{
    1 e: b' b+ A& L. [+ y" Y                 RowBox[{"(", 1 g5 ]" x, r# I7 M: ~" n- Q
                      RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 5 }$ L% ]- D/ z9 y# _- H3 [  b
                     RowBox[{"(", 8 c! D# k* T4 f/ Q' f/ N; d
                      RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", . z6 x; p+ B# R" Q8 D
                  "Delta"}], "]"}], : ?1 v7 D, G( a% R1 j
                RowBox[{"\[DifferentialD]", "x1"}], ; Y: h4 L: a( z) C# k
                RowBox[{"\[DifferentialD]", "x2"}], 0 O  _) I, p. L- b/ ]
                RowBox[{"\[DifferentialD]", "x3"}],
    # ~4 P* c4 z( a! k9 D6 H6 H            RowBox[{"\[DifferentialD]", "x4"}],
    9 o5 e4 Y' q3 O% x$ {: h            RowBox[{"\[DifferentialD]", "x5"}],
    ) n# G8 }3 R1 ^; a, N' S. Y+ K2 x            RowBox[{"\[DifferentialD]", "x6"}], 5 J; a7 C. x8 T" y4 h8 }! g7 Q
                RowBox[{"\[DifferentialD]", "x7"}],
    ; d# I7 {4 Z; w: K' M+ M, Z7 O/ o- g            RowBox[{"\[DifferentialD]", "x8"}],
    / o* {) l5 h, s            RowBox[{"\[DifferentialD]", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
    5 K5 |7 z1 R1 a6 Q7 L" h  w, t CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {- Z0 I; X1 y  w  b4 k8 O
       3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
    # G; d2 ^2 j. q, @: `  W   3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
    , e% A, a" K3 W4 s, D   3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9, . V" t$ k9 o% d, f4 _" Z7 }% {3 M5 A
       3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {  `7 u4 o/ b) ~' A) @" J$ }: N
       3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
    - t6 B, t4 [7 m# ~" u: f   3.577918964453125*^9}}],
    2 U0 y) p/ [7 U' ~# g
    # H  s# A) {6 Q& T, JCell[BoxData[/ ^5 h* ^( V4 P3 t, i+ P
    RowBox[{"97.40909103400237`", " ", # {2 i/ M- O1 B, i& B: N4 w) X
      SuperscriptBox["Delta", "8"], " ",
    & q# ]3 P; b5 P* U5 y2 V  RowBox[{"If", "[",
    ' A( j  l* M  V+ ^   RowBox[{
    1 e/ U/ O$ G; N) D. L$ F5 W5 ?    RowBox[{/ K8 b. W5 v8 K7 v: `$ C
         RowBox[{"Re", "[",
    * U- d( d5 l' w1 U6 {- g9 y1 B      SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",", ; N7 }5 C8 G9 ~% s' s
        FractionBox[2 G- `. |: J) H! j# u
         RowBox[{"1.7724538509055159`", " ", * c0 S* w# S- P3 L$ E
          SuperscriptBox["\[ExponentialE]",
    - j) ]  Z- V" a8 X       FractionBox["1.1102230246251565`*^-16",
    / ?! H- a- {. w. o        SuperscriptBox["Delta", "2"]]]}],
    : Q  A5 \& S6 e  U7 o     SqrtBox[2 A' n/ ^3 ]; F5 {. x& W/ f
          FractionBox["1", ( l5 |( ~- \+ |& y
           SuperscriptBox["Delta", "2"]]]], ",", 2 L% S8 y2 T7 H
        RowBox[{"Integrate", "[",
    / o* c- t8 r. _' ~     RowBox[{
    / p5 `, p& ]' L8 R9 t3 l      SuperscriptBox["\[ExponentialE]", ' j) N( M0 Q' W
           FractionBox[
    - h+ r' ?/ Q" p5 u: W3 Y        RowBox[{"1.1102230246251565`*^-16", "-",
    3 z: ~8 d6 B2 Y         RowBox[{"1.`", " ", 2 X( E8 x! a) L- u- ?
              SuperscriptBox["x9", "2"]}]}], # j% n. q4 G) H/ l( M  f
            SuperscriptBox["Delta", "2"]]], ",",
    + v- q* g3 g4 P2 |( U& J0 o      RowBox[{"{",
    4 z9 t5 X6 f! J       RowBox[{"x9", ",", ) O0 D4 P6 h/ t0 }9 Z' @; E, W
            RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", ( {" `2 \: O/ G* k# b" K+ t
          RowBox[{"Assumptions", "\[Rule]",
    8 b( r7 X! [& Y4 H       RowBox[{- k2 O3 e4 t5 C2 ]- a
            RowBox[{"Re", "[", 4 R' I1 o9 I: W, |
             SuperscriptBox["Delta", "2"], "]"}], "\[LessEqual]", "0"}]}]}],
    # Y" ]6 K; }# i0 o. L  V9 E     "]"}]}], "]"}]}]], "Output",' @& L: P8 @5 A% T
    CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
    % I; |  T, W( A7 {; v  3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9, ! ]) t! E, x( y( U0 Q
      3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9, 2 h6 n  a/ @. L  ^. ^* L+ {
      3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9, ' z7 E% i( \* O3 h& D7 l  U7 E
      3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9, : ]. N6 R/ m. [0 a4 A3 {, K
      3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
    / H6 L7 v  B' I2 ]9 j  3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
    / B' S3 y) w( q}, Open  ]],
    0 |) C* l8 W0 R/ \- q- J& p8 C. F* l7 u
    Cell[CellGroupData[{: _& N4 a' A* g& \- S5 Y- X

    8 I3 O! Z7 K* Z- I" J* h% FCell[BoxData[
    8 A: Q; G+ p6 C, C. w* _ RowBox[{"Delta1", "=", # h. W! B4 {) {  |& E
      StyleBox[
    / g' c, H+ c+ i  j& K- x   RowBox[{"97.40909103400237`", " ",
    4 X6 F# _. B1 v5 i6 u3 ^$ z    SuperscriptBox["Delta", "8"], "  ",
    % T$ n2 _  e8 \" l% P    FractionBox[
    . I- p- g; S4 l$ U/ g     RowBox[{"1.7724538509055159`", " ",
    4 S9 f% K0 T3 z6 M! C6 [      SuperscriptBox["\[ExponentialE]", ! `  p2 b7 r; r4 c8 L( h
           FractionBox["1.1102230246251565`*^-16", 3 g/ l  s9 _8 T  p4 a4 `# ^, N
            SuperscriptBox["Delta", "2"]]]}], 1 w* J2 Z# h" a2 B2 S
         SqrtBox[0 Y: J" ^6 E. g# R& b, Z  o
          FractionBox["1", 5 _  O- @. f) E, D4 x% ]
           SuperscriptBox["Delta", "2"]]]]}],
    8 m/ Q" b: c3 w- @+ G* i( z3 J! [   FontWeight->"Plain"]}]], "Input",
    5 [2 l. Z9 g- B; T# ~ CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
    2 G5 n; a! W- J6 ^) J6 }8 ?2 e: }   3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9, 8 F' q, Q0 j; G. r/ S; Y
       3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {  C" M% \: F1 y- u: @
       3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9, 1 o, U( P8 }9 B" _7 B7 E+ {  M
       3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9}, 1 p% m' Y: |% H4 m& E, S% j
       3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],& Q- c" H" t& j) l# _- m3 n

    5 W# d" w2 \! L  I  v$ MCell[BoxData[
    ; C5 ~% {$ @: O! @ FractionBox[5 l* r# l( {9 v9 z- j9 c7 K( L
      RowBox[{"172.65311851642346`", " ", . ]! l) N* t' X9 V  K7 R* f
       SuperscriptBox["Delta", "8"], " ", + f+ I, ^4 Y( e; u6 S4 S
       SuperscriptBox["\[ExponentialE]", ; p8 j. C% ]  T2 |! M: Q& _
        FractionBox["1.1102230246251565`*^-16", 5 o" @* L8 x, {* c' b
         SuperscriptBox["Delta", "2"]]]}],
    4 ]5 `' E8 e# k( x3 x$ f  SqrtBox[9 j# C4 b7 _4 U* S
       FractionBox["1",
    ! s9 K6 R; [' l1 j# d  r8 c    SuperscriptBox["Delta", "2"]]]]], "Output",, U3 G, \+ Y/ R* U4 p
    CellChangeTimes->{
    * O9 n0 \' M! s3 u" f3 y  3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9, 6 O  w8 O1 g7 g+ `# V
       3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9, ( s7 L) u+ P/ Y4 i, W* F
       3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9, 8 Y- T9 O9 L$ S7 N
       3.578012166234375*^9}]" \2 f% I( i$ r, Z! E4 ~8 r
    }, Open  ]],# q2 j& @) F: a2 _

    $ L2 {3 t# g7 z9 g) WCell[CellGroupData[{0 Z/ W5 [& X" v3 l0 V0 F: U& y- o
    . ^( d6 ?( R# s$ J5 V3 i) q
    Cell[BoxData[
    9 y) u- ~; ^* Q+ e: t8 I; t RowBox[{"DeltaX", "=",
    2 i0 U9 e& Z+ o( }+ Q  RowBox[{"FindRoot", "[",
    ; Y) y2 A) x1 G, O) s" \   RowBox[{
    ! e9 b( ~( S" {! G    RowBox[{"Delta1", "\[Equal]", "1"}], ",",
    7 @" ]) O9 c# N" {! Z    RowBox[{"{",
    & m; K. ]& ]5 W/ Q. r9 |     RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input"," s! M, e$ x; j+ G7 Z: S
    CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {0 N! M# d; K- f3 p- d
       3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
    & w6 Z  K& F4 O. V   3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
    " K1 P5 z; Q. y9 Z5 j( T! T( t   3.57791921584375*^9}}],, _3 J  ^, T  t, M, h0 [" @
    ' w* I" P' i5 `$ w" Y6 m
    Cell[BoxData[
    9 ~+ F3 u5 X4 K0 e RowBox[{"{", 1 [3 V: C& T7 z' o0 B& L
      RowBox[{"Delta", "\[Rule]", "0.5641895835477563`"}], "}"}]], "Output",
    ( _" t5 i3 w- _8 s CellChangeTimes->{
    9 p; X1 W  r2 ]: a5 e  3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
    - \$ |' F: I2 q  D   3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9, ' w. F+ w8 v, y7 z3 F
       3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
    . t2 i# U$ ^0 p% R8 a/ u   3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9, * o# z3 d: j+ H
       3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {/ U6 ~2 \( N9 @/ k5 p
       3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
    ) K5 Y! {$ H/ ~4 t   3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9, 8 Q6 w! c" T- U9 f0 X9 z0 W+ }
       3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
    ) d! Z  f2 ?! _" T+ L   3.57796070150625*^9, 3.578012167703125*^9}]& T9 P. S7 ?) t2 L# R
    }, Open  ]],
    + A1 R. Z& C3 Y1 H3 m4 V
    . l, ?8 }6 s  q* ^( SCell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\/ ^& H' a, X0 q& i
    \:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
      D, @6 Q' x1 s% c; l% q1 i CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
    4 H2 h" u* l; ?8 e5 \  3.577960705312657*^9, 3.577960707621461*^9}}],; z% ~2 v& K: s8 p- ^

    5 o* }+ F3 g3 B/ M0 t  e$ gCell[CellGroupData[{
    . B+ U! z  M: m, }$ T
    5 A& L& H+ g  Q9 p' P7 M" K' KCell[BoxData[/ h2 `9 i" A8 u/ L$ S/ B2 ^4 Y
    RowBox[{"C1", "=", "Ca"}]], "Input",
    % P0 {0 j/ z: a- C2 {  y) f3 M CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
    $ a  w. T, A. O. f+ w4 V  x; V* d; q" v: J
    Cell[BoxData[3 W  e7 e9 V0 L4 ^& F% q
    RowBox[{"{",
    ' f+ d* P2 i1 w; c  RowBox[{- }' q8 X' {! w) {
      "0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
    + [( e$ x7 V5 f# H  k   "0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
    ( L4 t' U" `( x+ F3 ?4 a   "0.`"}], "}"}]], "Output",' q+ ]7 O* }1 j
    CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9, $ r  ]& c. Q" j( N6 S' Z( l
      3.577960710273465*^9, 3.5780121855*^9}]
    ! a# e- r, }# g# N1 m: e}, Open  ]],
    + R' p1 Q6 y) J8 ]/ E, `) V% S' _* ^1 X& d1 z/ E1 g
    Cell[CellGroupData[{
    / l4 Z# K; |, t% C& r7 K* d; p+ ~, L
    Cell[BoxData[
    4 ~2 G, B  m$ G5 z) `' t RowBox[{"u1", "=", $ @0 a( p8 F0 \
      RowBox[{
    ; K* v/ V9 T8 r4 d8 G( ]6 I/ n   RowBox[{"Exp", "[",
    / p! D2 w# R/ o/ [( Z    RowBox[{
    ) w$ G+ j! m7 \' `" }' y     RowBox[{
    % \  x# B9 t( R$ H/ K7 h      RowBox[{"-", 6 d0 l/ m: k: N, r3 ]7 j
           RowBox[{
    / E6 L) t, N& o9 r        RowBox[{"(", ; k3 }. U  _) a" s/ X/ R
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " E# |. Q4 n3 x: m        RowBox[{"(",
    ) P" ^# H, e9 }0 r& \* J) n         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],/ A4 w% F/ ?6 U8 R4 X
         "]"}], "/.", "DeltaX"}]}]], "Input",- o# C( D2 U- n
    CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
    & u8 V% I2 G6 b! m% c% Q# H$ y   3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
    9 T0 E: V1 m, k9 G8 O   3.577919193484375*^9, 3.5779192326875*^9}}],2 O: R8 B% E, Y! u

    ( n: L3 [+ E. n+ ~3 g3 o3 s% D# RCell[BoxData[8 ?3 z; O0 f4 v& U1 l3 b) l
    SuperscriptBox["\[ExponentialE]", " S6 f4 y' s$ L7 Y4 W3 X; p* i
      RowBox[{"3.141592653589793`", " ",
    ) k4 `' U, |$ \   RowBox[{"(",
    ( y/ C7 I' q* {0 K    RowBox[{+ y) n6 Y0 }/ {: |
         RowBox[{"-",
    8 o1 v. |- u( N& R. [      SuperscriptBox[: ?) y1 r7 o6 q' h6 u  x- B
           RowBox[{"(", 2 o3 W) k$ a3 x% a5 [3 b7 O0 Y& B: D
            RowBox[{" e! l6 Z- @1 |1 P7 \
             RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-", + L! \* p) Y$ F0 H
         SuperscriptBox[" M0 T) D( e4 p: ?' P
          RowBox[{"(",
    " g+ U* v7 U! C  d: n) x& x       RowBox[{3 Z! B- D) R6 f% F
            RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-", 7 @$ l  v# r5 L5 S$ v: C
         SuperscriptBox[
    . V( H. b* T+ c$ C; p& c2 @) D      RowBox[{"(",
    ) a2 A1 H8 N& R4 z9 L; ?       RowBox[{
    $ [) h, f- p( j$ U% {4 L( p        RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-", ! E& `( f3 k, E7 A" T
         SuperscriptBox[
    ' E+ {3 h3 \& \8 F6 g' }* L9 q. n      RowBox[{"(", ! ?2 ~& A  T- j4 i
           RowBox[{
    : H- J( ]' G9 U$ T        RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-", % i  `* j+ P# l9 V7 T8 k# G
         SuperscriptBox[
    4 f, E8 o& Q8 g      RowBox[{"(",
    1 _% |* Z0 k( O1 ~       RowBox[{$ X  ?: c- _" v, E
            RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
    % W& a/ X/ F- A" u* m) y     SuperscriptBox[  W/ {3 H% p' @# k+ o
          RowBox[{"(", 9 u* _$ w, q7 w& C8 |. Q3 ]6 X
           RowBox[{. A! k% c) l* r+ |! \) E
            RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", * L. |6 l- M' e: j7 G: L! {
         SuperscriptBox[) ^3 o7 ?& n$ u1 {& w7 ?& L
          RowBox[{"(",
    , n! K) N9 [7 f       RowBox[{
    ) `) K7 W1 m: z8 L6 ?4 c- F! `        RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
    : U# _4 t9 K+ @( [     SuperscriptBox[
    8 v" ], i; i0 ?& }& _" v4 P      RowBox[{"(",
    6 i2 S, t0 @- a" ]: y3 \6 V/ N       RowBox[{) }7 a, f# W& x( P$ z( ^
            RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    1 d) y- v- u% e     SuperscriptBox[2 d1 i7 g4 c5 h; \! Y
          RowBox[{"(",
    . \- T/ a( N2 g       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
      B" D1 E% Z3 X' i    ")"}]}]]], "Output",
    2 Y8 q7 ]7 {, E/ }1 j- f( u CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
    / R2 n) q; \; e, |( M8 s9 _  3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
    3 D. C: {2 y7 L  3.578012187078125*^9}]/ ^3 f# }0 K  c5 n$ D" g
    }, Open  ]],, J- b; Q3 D  i" D; u, j- M

    , ^9 g( k3 `) C! T( r  FCell[CellGroupData[{5 ~$ p- t. u1 r6 Q. [( _6 Z1 C  m

    0 U1 `7 m+ T3 ]5 d1 R, {Cell[BoxData[
    ( i) i9 l& c$ c' ?7 ] RowBox[{"C2", "=", "Ca"}]], "Input",6 j& B5 a' A- w! ~  h# C5 L( }6 m- j
    CellChangeTimes->{3.57792047321875*^9}],
    - O, Y5 O3 _1 C# [3 A* @$ R+ S. q3 A& z& h5 w
    Cell[BoxData[) {8 m5 I  R7 T8 k" w* f6 A
    RowBox[{"{",
    ) ]* c' B' k# Y; v# s  RowBox[{
    - x7 `9 P+ a" c( e  "0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
    # n0 q1 o  f5 l5 f2 I   "0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}], " a0 m7 C/ G% G( b3 o
      "}"}]], "Output",
    & D9 f8 }3 V; ^ CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
    5 w8 I  p1 ^3 t* r  3.5779607401163173`*^9, 3.578012204671875*^9}]4 l9 F" g' `' F7 |, [' r8 l
    }, Open  ]],% B2 u0 T! u6 q) n  z6 e
    " V0 U, o: f; V/ x" m8 U& e
    Cell[CellGroupData[{* U. Y9 {: R1 x% }( M! U# v

    ) ]0 r+ N5 M$ [& JCell[BoxData[
    % n$ F4 h/ q0 g0 B RowBox[{"u2", "=",
    , w8 E# d+ R* M% t; q* m  RowBox[{
    * m$ U8 L- f) I" t& B   RowBox[{"Exp", "[",
    6 h3 R# o. u2 z* P! m    RowBox[{
    5 C6 N( d) j: k6 r) s7 q; o5 ]0 O     RowBox[{
    " |5 V$ C9 W4 U7 y' u8 {      RowBox[{"-",
    " E5 \5 @  {7 h3 [' o       RowBox[{
    # j7 u" ?1 i% A, q5 r        RowBox[{"(",
    3 [% e0 |) r, e- Z7 [3 K; O, K         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", # h  h0 N5 Y3 g4 p$ I+ N) ~
            RowBox[{"(",
    : V8 F% p; q# U) W5 E         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    8 e1 ?! u1 N2 h1 t: d' B     "]"}], "/.", "DeltaX"}]}]], "Input",
    ! Y2 m; j7 l( Y) e0 X3 _1 X4 D; n CellChangeTimes->{3.577920484109375*^9}],
    6 k1 J; T9 h& n* s5 L2 i1 o3 N/ \  Z
    9 x; H  s3 ]/ m0 a! q; K$ ?Cell[BoxData[2 V8 D, i+ _' M" j+ X8 f
    SuperscriptBox["\[ExponentialE]", 7 [# B# l# _3 f6 S& u* A
      RowBox[{"3.141592653589793`", " ", 6 v0 W2 N) b- f- W: s2 r( t" R/ h* V
       RowBox[{"(",
    1 n& c/ k/ }; Y" x3 N0 j, e9 }* o    RowBox[{1 L6 {, M) z; ?% X" o
         RowBox[{"-",
    # I# K! W+ m' j3 x$ L      SuperscriptBox[% _) F/ v/ v* v3 D% U: Z5 A; u: p
           RowBox[{"(",
    5 p  {/ Z8 z1 h; W4 r  E, G        RowBox[{$ s" C) d, D* \
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", ! t0 V' `$ G: J+ y
         SuperscriptBox[
    5 j7 P+ O7 L9 C8 K. t2 w9 H      RowBox[{"(",
    + j! `8 ~  o2 u8 z. B$ i       RowBox[{% Z# M! o* |# e; X% N
            RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
    7 s6 o; ~$ O7 ~7 i( ~     SuperscriptBox[
    7 b5 P# v3 a+ L2 Y" d1 t      RowBox[{"(",
    ' c% |5 [% b% ^& q. \; F       RowBox[{6 w8 K; \3 X5 O' Y
            RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", ' b; \  z+ t, c5 A" Y" u
         SuperscriptBox[/ E) Q$ B, ]4 H4 `/ @( d6 X5 H
          RowBox[{"(",
    7 D' j) Y3 V3 m/ S4 X9 p* w6 i       RowBox[{
    6 a  Y* F( ?' G* \/ p        RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
    % \0 b, D, c& ?9 g- R     SuperscriptBox[
    4 ^$ j2 M0 w0 w      RowBox[{"(",
    ) y) p6 U; ?8 `: P. M% W       RowBox[{& N  ]2 J: l4 Z: }* Q( N; A
            RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    $ y) k, S& |+ [9 [( x     SuperscriptBox[
    & @! z4 W; k# U0 O/ ~+ R7 _# ~/ m/ [7 L      RowBox[{"(",
    6 T. o9 ?% z* c8 N' \       RowBox[{
    1 b1 c/ g$ q' J1 e( P& W0 Z        RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
    0 }+ d: E: g0 f, D3 p7 a/ t     SuperscriptBox[% ?( N& N& e- a& p
          RowBox[{"(", : g. A+ @& w% s) N' i& x5 E
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 9 y2 ]. u0 L6 o8 ~! q  E: M5 Y# x
         SuperscriptBox[  v5 ?% ~1 t1 [) N
          RowBox[{"(",
    & @! o; p9 B% s7 ]       RowBox[{
    9 w* l) V  l" M9 @4 F' A7 J        RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
    3 @. ]$ ?: F0 E# X- p4 T5 S     SuperscriptBox[
    4 i; k- |- V* o" P8 y      RowBox[{"(", ) S) Y2 T; C. `- r
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 5 I: x: l+ h; f4 y
        ")"}]}]]], "Output",, m0 V/ Q# K1 X
    CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
    2 f7 k2 H$ g2 @+ i$ G  3.5779607413955193`*^9, 3.578012205484375*^9}]1 [4 V/ W# L  I/ }' a* Z/ Y
    }, Open  ]],% @) m3 k2 ]9 g

      y: Y% f; e4 [Cell[CellGroupData[{9 ^- m6 Y1 {  b1 }# c2 m4 s2 r- B# g

    $ x- H1 N; B8 k+ G+ T! eCell[BoxData[8 `9 P# U' J/ \# n
    RowBox[{"C3", "=", "Ca"}]], "Input",
    ! X* Y6 }. l2 E- Z7 L CellChangeTimes->{3.57792064125*^9}],
    ) B1 {3 i& x. [
    9 i$ P9 {, y& r# i$ C$ x  T& ~  f& BCell[BoxData[
    9 a, K% U1 q7 K" W" n& k/ \' M RowBox[{"{",
    0 W' X  S! u6 H3 [  RowBox[{( X: Z! j$ V/ ~0 u( d( g3 @
      "0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
    : i6 m2 J/ l5 \, M4 p2 I. f   "0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
    7 ]; C0 \- K4 ]6 \, z+ d* a: q/ ?  "}"}]], "Output",- a2 n5 l9 H1 R5 P: j2 X
    CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
    : v/ B9 J( `/ q& O  3.5779607642027593`*^9, 3.5780122103125*^9}]
    " U/ M8 B* \& l}, Open  ]],
      G3 d7 K5 ^' L- }1 u) c
    4 H8 ~1 ~/ S1 E- |: ACell[CellGroupData[{
    % T  Z  K. M- u: c5 G9 X
    : q4 S! l) D# k7 LCell[BoxData[& ?/ E0 U, l$ ~" W$ `' ?& b4 m
    RowBox[{"u3", "=",   k' N+ \0 O* b% i
      RowBox[{
    5 p1 a! B/ u' \+ p# _% V$ l1 J   RowBox[{"Exp", "[",
    ; Q% x& j# L6 U6 q: D: r    RowBox[{$ J: X4 C. H: H/ ~0 V
         RowBox[{$ J$ p. ~! S; j# R0 B" x/ `2 Q
          RowBox[{"-", ( r9 w3 T: ]( ?* @9 \0 e7 U
           RowBox[{- s* N( p; L. y+ W" q2 M
            RowBox[{"(", % ?9 Z  j1 t+ Z9 e7 W/ s
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    # C- y0 T. d0 c, q: x/ j' @! f        RowBox[{"(", + \: X! C+ _* H
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],3 A. M& T. J' u" l+ F  x% r
         "]"}], "/.", "DeltaX"}]}]], "Input",; ^- S- {0 h% _1 M$ j. {8 J8 P/ T
    CellChangeTimes->{3.57792064921875*^9}],# I) G8 z8 g8 x4 a

    ) o  G9 _- V" r) I$ d6 TCell[BoxData[4 Y7 O7 l& u+ J* A# D
    SuperscriptBox["\[ExponentialE]",
    3 X$ |3 [# s8 N$ ^/ C- Z( _( I+ }8 P7 ?  RowBox[{"3.141592653589793`", " ", * a- ~: y0 f# H- m
       RowBox[{"(", " R: t) |4 q0 `! V/ P, w
        RowBox[{
    : V0 X4 D2 f& i- f4 h3 P     RowBox[{"-",
    2 ^' A& T) A0 Y8 t2 |  ^* L      SuperscriptBox[7 ?7 W4 J! Z% Q# {, D
           RowBox[{"(",
    : i: J8 Y* U, [% G; c        RowBox[{
    ; b+ w- `) C1 f+ R         RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
    4 c3 }! ^5 k# e  i- Q' s9 G; \9 I     SuperscriptBox[
    + e; d4 X) a( Z      RowBox[{"(", . y5 O" f) a' m* \, Z! s. E
           RowBox[{0 n- ~( n9 _( n+ U, k% k( i
            RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
    9 I  {+ |( c# W0 q8 A6 j( `     SuperscriptBox[0 k8 p& N0 z/ O  q' u, }
          RowBox[{"(", 2 U8 I6 v7 T( A" K* \2 z: [
           RowBox[{
    * A2 N6 n8 p4 Z+ A        RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    : N0 G& D7 c9 q" y/ W     SuperscriptBox[& i% I/ R5 U9 {: Z) u) `
          RowBox[{"(",
    4 n: N4 T) ]  S% W) ~/ c       RowBox[{- v9 L* p3 H' |4 F
            RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
    ! A0 ?% x9 R3 z8 r% y* x     SuperscriptBox[1 J, _1 B- \: k+ d4 `  G+ K
          RowBox[{"(", " c3 j- b& l5 d! w2 o
           RowBox[{. ^1 m1 _# X- ?' P0 Z
            RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
    % I$ @! A9 H) i; E2 }     SuperscriptBox[
    $ L) _9 u9 }8 t. B0 l3 }      RowBox[{"(", 8 d& d. S5 R8 L3 ]8 w$ Q' U
           RowBox[{8 s/ v: o4 {& l6 Q
            RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-", 8 g8 u' U- _1 Z3 r$ a- O
         SuperscriptBox[
    : e8 R+ v' z- K0 \  f, Q      RowBox[{"(", ! h2 h5 L- Q4 V  V$ O2 c
           RowBox[{
    ' N5 d: U. u% h9 A        RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", 5 U* k1 H, @$ w1 r7 h0 d$ Z4 b7 M
         SuperscriptBox[
    ( m2 {# W% a7 ~% I' A      RowBox[{"(",
    8 I' b5 i% ^( S       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    3 o, j1 |1 }' z# ^2 S3 d     SuperscriptBox[
    # x& Z6 {7 D. [# @" O8 y( }" ^      RowBox[{"(", " `3 z; h1 N! @4 n
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], , J; ~, A/ A- t' U' B! @
        ")"}]}]]], "Output",
    # u" P8 p% r* C8 i CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
    ( V( }, g1 Q. ]9 a6 |  3.5779607654819613`*^9, 3.578012211515625*^9}]9 }0 _! c) Z( k; ^0 z7 o9 r8 i* c
    }, Open  ]],
    : L  N2 D4 g9 P* d  j" m1 J/ D+ [" U2 ?, I- b
    Cell[CellGroupData[{7 ~/ o, Y7 E0 \1 ]& @/ W" z
    1 \2 Y' f( m: p- j
    Cell[BoxData[
    - }5 t6 W/ x+ @5 q: T+ A3 n1 @. _ RowBox[{"C4", "=", "Ca"}]], "Input",
    : {& J4 g0 G+ [# l0 c2 O) j CellChangeTimes->{3.5779207559375*^9}],
    5 U# \7 {' l7 H$ q, \
    0 O- b' ]7 z# x) bCell[BoxData[0 C( }6 c! S6 b+ Y% F
    RowBox[{"{", 2 P- }9 s7 V2 c, V5 }
      RowBox[{
    ' z4 e2 n. ]! d! ]% u; X" D+ B  "0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
    % ?) |3 w6 z* p  i6 O; y   "0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}], $ S6 H! v8 Z  t9 r6 J
      "}"}]], "Output",
    6 o( F/ p0 ^# s/ t CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9, 8 Q9 }8 L, }. E6 e! M1 [4 Q: n9 Z# Q
      3.5779607861363974`*^9, 3.578012216171875*^9}]5 `5 O% V1 u. @2 F* V
    }, Open  ]],
    " k$ A' s9 Z- C( E+ E# W% i
    , o: B% G5 ]7 B5 L: K7 r* a3 ^* B0 T" V, oCell[CellGroupData[{% I- n* d6 G5 N  a

    0 j$ Q" [( `$ Q4 I& n% PCell[BoxData[" P" S# i$ z" i2 f+ c
    RowBox[{"u4", "=",
    6 T/ m2 i  Z; M- y  X* C  RowBox[{; B7 p! f$ n2 z
       RowBox[{"Exp", "[", % h7 n9 b4 @, Y* N  j
        RowBox[{( v2 n: e5 \: K5 P
         RowBox[{: x( c4 e- }! l8 c+ y  V: f9 @
          RowBox[{"-", 1 R4 A; q  z' G8 u# `6 y4 U! W
           RowBox[{
    " x1 \4 t5 u# ~$ o; A2 c        RowBox[{"(", " j$ E  r8 H. m6 E
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", ! _& }/ Y! V5 v
            RowBox[{"(", * C! s$ O! t4 I6 x8 y$ t4 ]/ c
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],! k* O2 B; n) _0 |' J
         "]"}], "/.", "DeltaX"}]}]], "Input",! n8 Y3 V- c$ G6 p) K
    CellChangeTimes->{3.57792076325*^9}]," U$ E6 L* i$ l6 O( E) o5 d& n
    3 M) q8 Z" ~( W' Y! b$ z
    Cell[BoxData[3 M" U( t* D  Y0 U
    SuperscriptBox["\[ExponentialE]",
    ; k+ z6 ?; m" v) W0 ?  RowBox[{"3.141592653589793`", " ",
    # ]9 \* L% Q2 r  Y* U   RowBox[{"(",
    ; P; X; H% \1 a6 m; ?  c    RowBox[{
    ! P' k- J& g0 v) X1 J! {     RowBox[{"-",
    ' B) u, Q3 ~0 y6 E; _, ^/ w      SuperscriptBox[% G2 B- X9 j: l, c
           RowBox[{"(", 1 N2 B$ `- X% z. U
            RowBox[{
    9 d- ]# q/ P: G+ n         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    5 N- K3 K! y! s# r) a" G: _     SuperscriptBox[6 Q+ {! P  c& r: D7 a% s: E
          RowBox[{"(", 8 r8 t4 o% \0 E
           RowBox[{  G3 p' J$ v3 ?0 i' v3 F: O7 k( [
            RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
    $ X+ H# ]' L0 Z+ v# c     SuperscriptBox[" v2 p* s: S) w+ x
          RowBox[{"(", 5 L4 u1 q% z- U7 Z9 Q2 d, [
           RowBox[{
    6 x) w( g+ A7 {        RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-", 2 o7 s1 c& F) _5 _. M1 o+ f
         SuperscriptBox[  m* G( a  R; z8 w0 y# u3 P9 A6 q
          RowBox[{"(",
    3 u# u4 x! ~; h       RowBox[{. o. j: P+ S) c5 l. {$ A
            RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
    1 [$ R  b( L4 A' E. b# N" Y     SuperscriptBox[
    8 ~5 m* B7 u$ i      RowBox[{"(", * i! B7 h  [3 G1 k' Y, e) ^
           RowBox[{
    * C3 D9 g, \7 y6 @6 T        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    6 [6 Z# E4 u8 i     SuperscriptBox[' K5 O  l- ^2 [( e
          RowBox[{"(",
    $ K) v- U, v! n$ ?# m0 C# ~       RowBox[{; _: M6 K0 P) l2 k% {1 p( g
            RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
    8 R7 F$ @- o5 [4 ]% P6 F9 z     SuperscriptBox[
    - N) V! D- T  \* n) y  s      RowBox[{"(",
    5 {) Q+ N- j: w' t, K$ l6 S       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 3 y* @, }8 G& P+ x/ R
         SuperscriptBox[7 F0 l" V1 t# {" [3 f
          RowBox[{"(",
    2 y) s" p" J4 O& }: g/ ]       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", ; b5 _( @* b  z" E/ k
         SuperscriptBox[" Q% @: M: g, b' v/ y+ g
          RowBox[{"(", ) y6 T! u/ ]0 |
           RowBox[{
    * K. {/ u& n: a7 A4 M        RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], 6 `( f* t# ^3 }2 W- K2 |
        ")"}]}]]], "Output",
    6 U" G! n* P! Z4 k# b: Z CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9, 1 D; P3 y" `" `$ I% r+ ?
      3.5779607873531995`*^9, 3.5780122169375*^9}]
    7 ?. [& d+ [- p* x' G: D4 H) a; r1 i}, Open  ]],  ?. p* Y% j# a2 ~
    3 s$ K- T1 ^6 s, J$ L/ I, H  |
    Cell[CellGroupData[{
    0 f# y0 N. _4 ^( P
    9 J! i/ `, Z  R# A# _, nCell[BoxData[& L) W% R9 |& v! Z: c0 ~+ a* N, X
    RowBox[{"C5", "=", "Ca"}]], "Input",
    / f+ H4 }% O  K CellChangeTimes->{3.577920860671875*^9}],$ `: J3 L0 G: J3 \& z9 |; }( |

    + C  \# \. K: A2 S- H9 t8 eCell[BoxData[
    / {  o. q6 p2 p8 A3 @6 T9 H" F RowBox[{"{", 1 U4 {7 X4 E8 I3 L
      RowBox[{
    # @7 ?3 }2 y# o+ I: N  "0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
    : M" e3 m! Y% N2 D/ p7 P   "0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}], . ]8 \6 z5 h* `' l
      "}"}]], "Output",: U; c5 H, i9 ~/ c) e7 y
    CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9, , l/ }& J- R7 |, z5 @2 d8 e# v
      3.5779608137328453`*^9, 3.5780122209375*^9}]
    ) l* q- m( g+ f# f}, Open  ]],
    ; R6 Z2 x2 i7 D/ a" U
    " _& k2 e2 B5 R, X! G4 nCell[CellGroupData[{
    2 P, p" T  d# d7 f+ `1 i" W1 |! E9 t1 \
    Cell[BoxData[8 ~  |5 x4 M) Q. _
    RowBox[{"u5", "=",
    0 o6 D- i; U  P5 p5 }+ y4 I  C' I  RowBox[{2 t$ |* ^- @; l5 p" \+ [( b
       RowBox[{"Exp", "[", ) u" _' o* J) y" o  u. x6 v3 t/ |
        RowBox[{. q0 ^. t5 R9 [
         RowBox[{
    4 N/ f& P) _# P  ~$ j# w      RowBox[{"-",
    ( Z; t* Y! D, t       RowBox[{% b" [9 F* l% B/ K* F& k
            RowBox[{"(", 7 C: p0 x2 J% O/ f% O
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    7 Z$ Y7 n4 J( W( L        RowBox[{"(",
    1 G, i. L$ o( B3 @2 Y0 s: O2 [5 y, x         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],9 [3 X" n( c, c* k& L: ~" A
         "]"}], "/.", "DeltaX"}]}]], "Input",  U$ R" A9 h" o' x) a+ c
    CellChangeTimes->{3.577920869375*^9}],
    3 d5 ?+ B, M4 N# ?8 ?( [+ A" l% b8 J; b3 i% L4 O% K  A; G. \
    Cell[BoxData[
    2 l: W+ f" B" n* j. R SuperscriptBox["\[ExponentialE]", ) j9 G2 W2 q* y
      RowBox[{"3.141592653589793`", " ", $ @0 ?8 l0 ^" d* F: W
       RowBox[{"(", % Q0 X8 K: k% ]. B+ p8 _7 H1 n4 V/ ]
        RowBox[{
    $ e3 `) C" d' }* D; D& Y     RowBox[{"-",
    , j: Z  Y) C4 t% X      SuperscriptBox[
    : I6 G7 Q: v2 {3 B       RowBox[{"(",
      g/ G0 d5 s0 \# f" E3 R        RowBox[{
    * |! C+ p/ r- Q) i         RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    6 ?/ ^, _4 w: @0 `: M3 w9 B8 H2 }     SuperscriptBox[* Z4 E& U( T& M
          RowBox[{"(",
    1 [  D7 ?) l$ L3 J       RowBox[{" e1 L. n# \7 c5 C# P# h
            RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
    , K6 J1 c5 P( ^$ o: b! |     SuperscriptBox[
    ! J0 @, {7 W& u      RowBox[{"(",
    . x) F1 }% d! f$ x6 E  \       RowBox[{' w8 s! o1 R  a4 W9 b# V$ t
            RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", 8 Q+ I2 S2 ?: O
         SuperscriptBox[# Z0 D1 l3 t2 O8 Z/ i
          RowBox[{"(", 0 r4 s6 K/ M0 q) g% C
           RowBox[{
    ! l" M$ H8 M5 {1 {        RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-", 9 ?5 R! j. k- ]1 l
         SuperscriptBox[7 M. B" v" W; p9 n- F
          RowBox[{"(",
    8 z/ o+ y; j8 t       RowBox[{
    : p0 d# Q8 N- J; ~8 @3 j" e3 S        RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",   X, X+ |6 F! E1 e
         SuperscriptBox[. [5 x9 A- g, C* n7 }# t
          RowBox[{"(",
    3 R- y5 _  ]) K) k- b$ A0 I9 H( _       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", - E7 N% P; `$ A6 l
         SuperscriptBox[* n3 K. Q& m5 a4 D" r. A$ z- n
          RowBox[{"(",
    6 B5 l2 y) l& Q/ g! D1 T. K       RowBox[{
    $ o7 R6 N' C1 g3 T1 E. N& M        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-", ; s1 j! R+ ~4 `# `
         SuperscriptBox[
    ! L8 I$ ?6 E5 V- g5 ?1 }      RowBox[{"(", 4 D2 i. }& @  W" s
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 5 H$ s$ M9 q" c2 {5 d+ B7 ^
         SuperscriptBox[% n9 E( P/ d5 k4 h/ L; Z
          RowBox[{"(", * L" j, C/ t( F7 s# I
           RowBox[{) r- Q+ p) j/ z" p& m
            RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
    ; \/ M. j$ }- C3 W* P    ")"}]}]]], "Output",
    4 w" _" ?/ T; u. | CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9, 7 G5 u& z2 `& A' U
      3.577960815043248*^9, 3.578012221953125*^9}]" H' N; c$ n. S
    }, Open  ]],
    # m8 Y* p6 s0 j0 t# L( b, J( x- k& a* M3 q  d" J: Q
    Cell[CellGroupData[{- o, A. I+ _# {

    0 A; m+ |, {: u# g0 j- h4 yCell[BoxData[
    ! b2 S) I' q/ i" Z8 e RowBox[{"C6", "=", "Ca"}]], "Input",
    $ z( u+ `& N. O6 K CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
    5 l+ I! d) {! \& o, h  @! z
    ! C: p3 m, F; {" R! QCell[BoxData[, f5 i" m, O2 R4 H0 W* t2 H1 {
    RowBox[{"{",
    * {4 j8 m9 Z5 v, B3 l  RowBox[{' T: E9 n+ \7 j9 R% z: t
      "0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",", 9 `* P4 ~& z7 N: B5 u; ]# I; b
       "0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
    & y- _0 v1 B1 m* _   "0.494866`"}], "}"}]], "Output",
    ' K7 u% G& Q3 ~& z7 a) U. l% b CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,7 F8 h$ s8 H$ c7 Q2 _
       3.5779608373044868`*^9, 3.578012227359375*^9}]
    / [& d) {! @8 D. B4 @7 i- |}, Open  ]],
    0 e7 d4 h* ?: ?& F- N
    ) o2 A  C1 o% ?( n9 yCell[CellGroupData[{
    1 [1 ?! j$ C5 R4 S5 e: R) e& @1 B$ N# @, {0 i6 z
    Cell[BoxData[: d6 y2 l& I3 x+ K0 j0 @8 E
    RowBox[{"u6", "=",
    0 e2 |' X9 W0 I2 R+ ?/ ]8 S  RowBox[{; _) O8 {: k1 s; R0 I$ h
       RowBox[{"Exp", "[", , Y7 q+ D# T2 U+ `, r! T& M5 m
        RowBox[{
    0 I$ L7 o, l' q     RowBox[{
    3 U* m6 N4 W! t( m+ d( d      RowBox[{"-",
    0 K% S2 x4 w5 u- Q' X* z+ Z       RowBox[{6 M6 e# R& {1 E5 F: @6 T0 K5 X
            RowBox[{"(", ( Z* P3 k5 x6 ~9 j
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    0 g/ I/ c! u0 L, K        RowBox[{"(", . F; f  A6 `  X
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    5 C# J# c! h- ^3 F0 I- M( v     "]"}], "/.", "DeltaX"}]}]], "Input",. U: Z* ~, m7 u3 a. t- z7 C
    CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
    ' X9 H) B" N4 J: P
    4 U8 m) R- r" ?Cell[BoxData[0 }2 q, h8 ?9 J
    SuperscriptBox["\[ExponentialE]",
    % E, S" ?$ p1 x) z  RowBox[{"3.141592653589793`", " ", 4 C* Q1 C5 l1 }; ]9 y1 X
       RowBox[{"(", : X$ [9 d, `% C, N8 N9 f- j  L
        RowBox[{1 s1 S' X) H! R. G3 S
         RowBox[{"-",
    7 E7 @) {1 c, B$ I* Y      SuperscriptBox[9 N; L; k+ A7 v  e; \+ N! I+ E: J
           RowBox[{"(",
    ! k$ o! V6 M( `: x9 E9 U        RowBox[{
    6 E, _  W* u9 v8 j         RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-", $ y. r+ ~: L: o3 }, T5 O. O
         SuperscriptBox[3 ~+ O) x; V4 F; [7 T
          RowBox[{"(",
    & W. y# o0 ~* `4 d+ F) B# p$ ~+ y       RowBox[{
    2 ^1 Y; A1 e! k3 n+ r7 @' q* Y3 T$ w        RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-", , {3 p+ U- G, w# ?4 }
         SuperscriptBox[
    1 u7 N# O' [3 C7 H2 X      RowBox[{"(", 7 X- m. q1 x; k  P+ \! R. d0 ~
           RowBox[{
    / s8 J$ I3 B5 p2 j        RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
    7 e. k; l# e6 M9 c; M+ F7 _     SuperscriptBox[* s8 R  L) u: Q( P( X; `
          RowBox[{"(", & ]3 R$ r( t* R& F* {/ \' }# w
           RowBox[{7 E4 {4 |: ^3 P! k, n' O  U% I! r5 I
            RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-", ' H' i5 x4 S+ i$ L6 E8 m7 L
         SuperscriptBox[
    4 x6 z7 H: _+ I8 ^: Y7 C' G: e* B      RowBox[{"(", . b$ A+ R/ O$ K
           RowBox[{
    : |* W0 \+ L6 ?+ o" X" f        RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-", + y$ e2 C/ `" c& @) s! U
         SuperscriptBox[  m  B" D. q* z9 J5 o
          RowBox[{"(",
    , x8 @/ X5 O; ]: N/ e3 S       RowBox[{
    5 M# A" @2 k7 S6 l2 T! J        RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", 0 F' a8 s0 t# F+ c
         SuperscriptBox[$ [+ W% ^) G  E: g+ V! L( x* p
          RowBox[{"(", : K- X" S" w5 o
           RowBox[{
    , n8 U2 g5 O0 T9 \$ y7 g        RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
    ) ^- O4 o- c# g9 S6 }  Z     SuperscriptBox[
    ) S8 q2 m( E# a, x/ L      RowBox[{"(", 2 x8 }2 V6 ?  Y7 V8 i$ T
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", / a$ s* ~5 g6 A
         SuperscriptBox[: \7 g- H: {$ Q9 `- @( e' l9 k
          RowBox[{"(",
    - l9 j* S& ]" K' O6 D, d9 P       RowBox[{
    ! \; B$ r( k! w        RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], - A, R% I$ ~% D* O) }
        ")"}]}]]], "Output",
    ! s! `% L2 ~2 w  }" e3 } CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    & h! P$ P0 U( D6 A0 o  m- A* W  3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]$ o' Z, [8 s6 x: O2 Q' Q1 t; s8 `
    }, Open  ]],3 [- G2 R" U9 e% A; D0 P3 h3 T2 L
    ( p8 C$ C6 _0 C# C
    Cell[CellGroupData[{0 B0 ]1 s* j! b7 O

    ' S7 W9 d! x- `* b' F. xCell[BoxData[
    6 I6 M$ ^8 d, z3 d  ? RowBox[{"C7", "=", "Ca"}]], "Input",) I1 [' |# w2 ~
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    * C' a" C+ |& j9 H0 f8 w  3.577921316125*^9}],
    1 }2 y' s& B1 e7 z7 U' ^0 f0 L7 \
    6 a) w. l0 V/ t+ M5 ]  d4 E- DCell[BoxData[
    1 K/ e) K& O! {; i+ R& Z% _- j RowBox[{"{",
    4 P! s" n! `+ w. }) d  RowBox[{9 T# p. x6 n# c2 N: U* W
      "0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
    2 g! V, W/ d4 h2 K   "0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}], ( Y% F0 g0 f9 B, j  b+ c1 M2 R" \
      "}"}]], "Output",
    * [- a6 L$ a/ P9 K2 t+ q CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    " Q/ m" V# a- v. f/ n  3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
    1 X0 B& r9 W6 K/ U. Y( O( q' @}, Open  ]],+ y- M* F% U* H! S
    / v$ M, ~2 ?. t( g9 e
    Cell[CellGroupData[{
    / g$ R. _1 m$ o, A. a! _
    ' [7 i  i6 s  C. ?' ?, s6 @3 }" k$ ICell[BoxData[4 f6 ^" k2 z+ Q+ r
    RowBox[{"u7", "=",
    - w( r  I: G+ c, k1 p/ I$ {" |& ]  RowBox[{
    : W& v8 }5 x  |# f# x   RowBox[{"Exp", "[",
    ! I3 G# I6 P) I    RowBox[{5 o1 H1 {. D; E" T5 [* R, A* l# v- w
         RowBox[{- P& S7 K' C- B8 y* i) V
          RowBox[{"-",
    & ]0 f$ ^) u) B: A: w7 `  M5 `       RowBox[{/ h# [4 H; v' j: l2 Z4 I- `
            RowBox[{"(",
    3 s+ ?# D; O+ k' [2 J3 p         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 3 C- P+ g1 p) e6 F$ F5 \4 D
            RowBox[{"(",
      A: q+ ~7 u. `# s         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    8 V) S0 L% _; a     "]"}], "/.", "DeltaX"}]}]], "Input",
      {8 Y9 U* S. D8 A1 y CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9, ; k6 n; q. p; Q3 y+ y- |
      3.57792132028125*^9}],
    : T8 C$ e. ]$ D9 _& _9 }& F" l
    % P$ J. T2 D/ _) `. bCell[BoxData[# A9 u3 r1 f2 h  L
    SuperscriptBox["\[ExponentialE]",
    ; M% e  y+ W# ]. r$ H  d/ B$ R+ d  RowBox[{"3.141592653589793`", " ",
    8 G; W" S* z( Y   RowBox[{"(",
    $ g8 d1 T3 w; u! X  ?( C    RowBox[{
    2 c$ W. B& N: D6 s8 {7 F     RowBox[{"-", ! K' F! y! A% P2 L
          SuperscriptBox[" r, \# L' G. \! [
           RowBox[{"(",
    " J$ L5 R8 R; ?% |% Z0 l        RowBox[{
    ) J0 u, ]0 z0 _% H' H8 L: y+ ~         RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
    0 {- V$ |# w, m( t3 @     SuperscriptBox[
    % R0 s! R$ r/ S      RowBox[{"(",
    ( g- [. @& x$ C% s- V       RowBox[{
    / z* ^, P9 J2 I1 x7 c( ^        RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-", ; ^) U" b: D  P" C. T
         SuperscriptBox[: l7 u* q/ q3 x1 Q) f: h
          RowBox[{"(", . W' }, ~1 C# y! l5 `: @. d3 J; V
           RowBox[{2 z( r. X% X! P, L/ r! x4 a
            RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    + Y$ ?0 ?7 A* d6 d     SuperscriptBox[; W% S2 e# L3 f; Q9 W* y
          RowBox[{"(",   f/ ]# v: ?1 B- c( N7 x* v
           RowBox[{
    ! e- n! k5 p& |# S        RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
      k4 c9 x' ~+ M  h. \     SuperscriptBox[
    7 w+ j9 K- Q. i7 v  i* R' |      RowBox[{"(", . f: ^3 @. c6 ~6 S- G
           RowBox[{  d% ?0 s) I% z# q8 O
            RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
    2 M1 u* K2 }$ j7 j9 Y     SuperscriptBox[
    ( }$ F3 g3 z" E8 I# P      RowBox[{"(",
    2 }$ W5 Q5 y+ ~4 x' ?3 x       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    # ~7 K) p' ]$ u* _$ p     SuperscriptBox[+ R% {5 u& f; d+ {2 i
          RowBox[{"(",
    * j2 I% a# D$ b       RowBox[{
    ) z0 o" C7 M3 a  I; N3 Q. A0 o; e        RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    5 k/ }8 A/ \8 V! E     SuperscriptBox[
    $ i+ p, i# O& F- w& w      RowBox[{"(",
    % B+ ?7 X+ @, W       RowBox[{5 Q& Y1 F- q; ]2 {* R- N3 P
            RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", . ?# m$ H. {& |. C
         SuperscriptBox[
    $ U' k* o$ o, k/ k      RowBox[{"(",
    3 B2 J; T. f. A. f- O       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], * O+ G) ]1 w7 c2 C
        ")"}]}]]], "Output",
    1 [/ s  P* t/ {! n CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    4 i" v& ]5 B4 w5 W6 y5 o  3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9, 2 Z. _3 ^- l9 x( j; H+ B! r
      3.578012251359375*^9}]
    ) {7 W! j$ t% _0 r  {% L% [& I}, Open  ]],' Z) \, q5 B; i( h
    4 @4 M' G$ s* e' a
    Cell[CellGroupData[{
    7 C) B. E: n6 |7 W0 Q$ W3 H9 ]7 U( \  t
    Cell[BoxData[
    " J$ i" j7 q0 [  j+ M; ~ RowBox[{"C8", "=", "Ca"}]], "Input",
    ! t! [( L- @+ \0 G- z CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9, 6 K" A7 F* A: W7 ~: i: l; ~
      3.577921316125*^9, 3.57792141421875*^9}],4 {$ y6 X3 [+ j  b
    9 ]# q  x) H6 h! `4 j* R0 ]
    Cell[BoxData[( X1 Z! F" W" X- p+ l7 n
    RowBox[{"{", 0 g. F+ t+ }8 p2 r( W
      RowBox[{
    - f, J& L; i3 L& i# L3 M  "0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
      C" o1 I* w' s1 G+ {6 K! V   "0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
    9 L! \2 m& Y. R" A% a4 c0 G: [  "}"}]], "Output",; y/ d- O: N. [$ N; |! }% Y
    CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9, 6 I. {; i9 I# H% W! I" _
      3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
    0 W( N- ?, Q* g+ ]) y; C  3.578012260515625*^9}]5 v/ M+ n! G7 m! T! o0 A
    }, Open  ]],, j1 v2 o, N; @3 E, U

    * @- N$ G3 b. }! ?) q: OCell[CellGroupData[{  ]2 f7 {! W6 `$ d' k/ E* `/ p

    : q- V7 K$ |- f+ `% i8 K( s2 ICell[BoxData[/ n! s( Q- Z7 m
    RowBox[{"u8", "=", ' T. W% e; [( c
      RowBox[{' a. Z; O& C8 G3 _8 N' a- B
       RowBox[{"Exp", "[",
    5 V  d0 @4 ^; y0 f9 `    RowBox[{$ G+ l# c" o- c# W% d
         RowBox[{
    ; s: h9 t" M' H: T; ~      RowBox[{"-", 7 W" V4 U! K* e
           RowBox[{
    & y  \4 }" T% w. z8 M! F5 z, l, w$ p        RowBox[{"(", & ?% _6 I) ~; R4 b7 q0 B: l1 i6 o
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", + ]- I+ k  B& r( X' _5 ~- ?
            RowBox[{"(",
    9 E4 A( w) N8 P" M         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    2 t" y6 ?6 S8 I" E     "]"}], "/.", "DeltaX"}]}]], "Input",
    ! V" R' z$ [1 G% q$ O CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    6 h6 o2 q% l4 |/ @; K  3.57792132028125*^9, 3.577921416921875*^9}],) Y4 u% |! m+ G, k* E0 {
    ( M5 O( A0 ^, J. w1 `5 i  T% q
    Cell[BoxData[8 S8 M9 F4 o' L
    SuperscriptBox["\[ExponentialE]", ! H, f4 t& U: M& H! j0 U
      RowBox[{"3.141592653589793`", " ", 2 g( s6 a: I5 P
       RowBox[{"(",
    2 E0 V/ k' \) ~% j: ^/ d! I& M    RowBox[{0 |7 I1 `! B0 p. C, Z: H8 D
         RowBox[{"-", : Q0 [( s  N/ b8 \: y$ h5 b
          SuperscriptBox[' t# M' K$ }  L  Q3 |2 `
           RowBox[{"(",
    * U! t0 w- H  t/ ^. g" }6 Y        RowBox[{. S* Q" @) ?1 U1 L: |* G4 Q- `
             RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ( `. `& }2 _' h! A; \* j     SuperscriptBox[8 y6 I6 n8 S" A4 m. R# ?9 m
          RowBox[{"(",
    4 j. g. p6 X/ P. v; H7 u0 n       RowBox[{8 E3 h' `3 Q, ]
            RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-", ; Q# O1 P. s  ]# \
         SuperscriptBox[7 y1 e& b7 m, _% p; i$ G3 n& q
          RowBox[{"(", 6 G, \+ k( F6 w3 h* w) _
           RowBox[{; u. |+ F) s  z. N5 S4 Q. r6 ^
            RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
    2 z7 G$ v6 N5 M' Z     SuperscriptBox[3 x5 e2 d2 U0 E5 E* f
          RowBox[{"(", 5 F1 N; J+ P4 p" b5 M1 X( x
           RowBox[{; w; X$ k5 U4 b
            RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
    : h" ]: I  L* G; v     SuperscriptBox[
    . n. F- a$ N, p6 a8 ^8 ]      RowBox[{"(",
    8 A1 A  _7 I9 @       RowBox[{7 ?0 O6 O0 U0 f- W  e/ ?$ n1 y
            RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-", % n  I+ z6 [' e( ]. t; {
         SuperscriptBox[) h7 v$ U% r& o1 o% _% V8 j
          RowBox[{"(",
    ) G( T, o6 a6 G, {$ f6 F/ n0 B       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    7 C! e8 y2 i" c9 B     SuperscriptBox[( f- `4 a# Z  b
          RowBox[{"(",
    # e! a7 Y- l. N3 `       RowBox[{
    8 p# i/ y& L, E  T5 ^        RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", % j7 Y; c+ U( E7 Y+ ?9 j
         SuperscriptBox[+ X4 Z! p& q4 U, a
          RowBox[{"(", 7 u+ i/ B7 g  C# K* A
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    - c: d9 V, y& R( v7 {     SuperscriptBox[7 [( T& U! ]  W8 R0 |& S
          RowBox[{"(",
    ; d' v' n* M: l8 r, E       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], " I; j  b  z2 N1 Z
        ")"}]}]]], "Output",7 t  {( B$ F3 X: L' _' J+ e0 @  z
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
    ; d) _) a) o! C/ t4 |, V# U; B  3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9, + Z$ c+ [  M8 D! H" r
      3.5779608945565863`*^9, 3.57801226165625*^9}]
    $ v1 a0 y4 F+ X' C' o}, Open  ]],) j: K" k' }6 A4 b  R

    " w" v1 _/ C/ {* y- H  l) ?* OCell[CellGroupData[{
    2 Y; f4 a1 b1 ~6 z
    ; L  V2 {1 W- V3 `. ~4 M5 @# LCell[BoxData[  e# V$ T6 j) D4 K$ {
    RowBox[{"C9", "=", "Ca"}]], "Input",- p) F* Y# C! \7 v( \- `
    CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
    6 l7 _% d! p( F+ X# n/ J( O  3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],
    3 h$ `' g; p7 n9 @6 m
    3 l9 i/ ?$ v6 o$ rCell[BoxData[# I4 S: p0 g8 i& J- l2 ~
    RowBox[{"{",
    - x1 L; U1 O- u' w& s  RowBox[{
    0 E6 y  \/ J( Z7 @; V, ^5 n& ]' M  "0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
    0 f+ l' B. S  u9 O$ e  [6 Z* _   "0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
    : p, h1 V9 p4 L0 B: i  "}"}]], "Output",
    8 c. z1 J2 v* V# o9 z CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
    1 B) w( {# P* ~2 o$ `  3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9, - D( w: ~! J# \! _$ d
      3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9, - }8 S9 d" ^7 ^7 N- @8 Y" p
      3.578012268234375*^9}]
    / h& t- X# D$ |# E* d# Q}, Open  ]],/ y+ j, U1 F3 g  F0 l8 R

    % f4 w+ O5 U- g# m: |( A) G) `Cell[CellGroupData[{9 c. ?9 y& a8 k# K: J5 l( b
    * F) {: \% n6 T2 d1 p, Z
    Cell[BoxData[/ f, a' ?5 q1 d3 ^$ N
    RowBox[{"u9", "=", 5 L3 B$ b) j+ \4 j. }! I' H
      RowBox[{
    ! S1 \$ N' v$ u0 N; c  L  c   RowBox[{"Exp", "[",
    8 t6 ^# O$ y  c+ n" g1 z/ P$ D* N1 s    RowBox[{- y" c) x; F4 m1 X. L/ ~. K
         RowBox[{: t5 w& K. l" J" ?5 p) T5 U4 [
          RowBox[{"-", 2 G1 [1 }8 s$ o" }) Y* `
           RowBox[{
    * c8 f- E+ f2 v0 _$ d        RowBox[{"(", & q" J- S: R3 R, d7 y4 G( _3 H- z1 I
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ) \9 K: @% ?4 R& ^. [        RowBox[{"(",
    ( Y/ o4 k+ G7 [+ \' I9 F. r         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],& Y, O" C. C) M4 @9 I
         "]"}], "/.", "DeltaX"}]}]], "Input",
    9 \- B9 _8 H8 D/ b5 ]0 i CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
    9 R+ g$ ^$ v" e% Y9 R2 u  3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],
    - I5 _6 {; @# r# U" X$ [7 K( x; ], g! \
    Cell[BoxData[9 O! M6 X+ c$ T
    SuperscriptBox["\[ExponentialE]", ; c  S$ B3 ]5 M0 H% Y1 n2 Q
      RowBox[{"3.141592653589793`", " ",
    : W  w" G8 \/ |/ k" C   RowBox[{"(",
    - G: ?' l8 u  T2 y! M0 Y    RowBox[{* X% A* L' `& \- G0 F# F" o# x
         RowBox[{"-",
    % I% v* n! b3 A2 b6 k9 f. O      SuperscriptBox[
    , t) P$ l! {! U       RowBox[{"(",
    ! a2 u4 Y, ?% i* O1 J' j, \$ e        RowBox[{"0.`", "\[InvisibleSpace]", "+", "x1"}], ")"}], "2"]}], "-", , c) f% U& m( M& }7 S  M
         SuperscriptBox[
    ! x. }3 V! C4 J" v" M; b      RowBox[{"(", 7 I) f8 s# u6 i* s* [) a
           RowBox[{
    ' X! R3 p' g! W) _+ j/ w        RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-", 3 n9 U, M4 }/ e
         SuperscriptBox[
      a4 R% N1 n; y2 z. x3 M      RowBox[{"(",
    " ]6 e' A; b2 _3 l# \! b1 }: v( }       RowBox[{
    % ^3 Z4 j& I, c5 }& z! v        RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    . k) a' i! w, {, Q2 T2 i4 T     SuperscriptBox[, Q! Z& k: `( N+ F: }
          RowBox[{"(",
    % C: q  x+ ^1 _1 \- r9 w1 n' I       RowBox[{: ~/ e# u, o- B* X% y3 }. O* n5 G
            RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
    9 r8 d: {4 v: {5 T+ |9 z     SuperscriptBox[8 u- }$ C, V1 F) |& Z- j) a
          RowBox[{"(", & Z+ T- n# B3 a9 M8 i$ |3 h' f
           RowBox[{
    3 f$ K2 E3 V) s7 u5 l        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", 7 l8 s; g5 A5 Q
         SuperscriptBox[
    . D9 l( Y5 S4 k' p+ E7 `# o; F4 [      RowBox[{"(",
    ! G, V% q0 c! X0 }1 Y; w' N0 t# J       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", : ?2 K! ]! k0 z/ G6 W, i9 p1 G
         SuperscriptBox[" E% z+ r% m0 `: q. z3 d
          RowBox[{"(", - R2 P8 t* Y! E% x: g5 c' r
           RowBox[{
    2 ]# \! M5 G/ x" x        RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    5 c, R; l0 [6 d8 \0 M; C     SuperscriptBox[
    $ s( K! I3 l8 @) g; W; F      RowBox[{"(",
    6 @$ j2 |  }$ x  z2 \- F2 @$ u. F7 f       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
      ]0 E" x, j8 ^2 t1 y9 g     SuperscriptBox[
    # \$ g4 H( C4 }0 E' n" B) a& ^5 w4 s      RowBox[{"(",
    6 }/ s% s' A- {  {7 ?$ ?       RowBox[{
    8 E. }: g; b% I5 x8 A+ u2 P        RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
    / x8 Y0 y6 X: Q    ")"}]}]]], "Output",) ~+ K- e- O, V8 _: t. C
    CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9, 4 m) Q* s* q. q2 k& L
      3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
    6 N8 Z7 q/ y0 }: i* J  3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9, 2 n" I0 @, ~( P8 v5 z, L! G& p) ~
      3.577961530421959*^9, 3.578012269125*^9}]8 z% h* `% P+ u, {4 p; j
    }, Open  ]],/ A2 _7 ~) J  O+ w( P: q7 P0 x

    1 [3 [- S% l0 P, W4 Z) I# ZCell[CellGroupData[{
    * \! j, ^, H( C; C6 Z# X% z( r  E9 a3 R. T) P* ^/ n" R+ w* A4 q
    Cell[BoxData[{
    1 R) t2 a' i6 ~* E1 Q; v( V RowBox[{"C10", "=", "Ca"}], "\[IndentingNewLine]",
    % _6 e& ^6 Q2 V. T! Z RowBox[{"u10", "=",
    ( q- i* J4 J0 @# r  RowBox[{
    $ C  r) b9 o' b* x% D) _6 g: s   RowBox[{"Exp", "[", 1 ]: ]7 D5 R5 i2 Z8 \9 L' I
        RowBox[{
    ! f% H( n& v/ ?     RowBox[{
    ) E  n: C% k  }: b      RowBox[{"-", # z: d7 G5 Y- l. [; U
           RowBox[{! {; z/ E: r' ?9 `* Q4 \
            RowBox[{"(", 8 _+ I6 r0 ~+ `( J
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    % W6 J1 z& q8 L  g8 {# C  Z3 D  U3 W        RowBox[{"(",
    + l. S. S3 R1 Z3 ]- m+ b+ z) \         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    - ]/ E' b4 @, t     "]"}], "/.", "DeltaX"}]}]}], "Input",
    + Z" z" v. C+ r+ d6 f, f" q CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],* M! s* [# Y8 Z) K* o1 c
    % F+ y+ I) I: c0 C6 G! c
    Cell[BoxData[* W( L& K% w6 B' R# L+ W+ D. R
    RowBox[{"{",
    2 P# e9 E$ n3 ]5 Y  RowBox[{
    ) _) }! r1 k9 m9 z5 o1 C$ r  "0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
    : _5 q+ m6 o5 |* w# ~6 [   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",& `8 `/ x' s" L- d
    CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],6 V0 M6 g' {6 @3 B  w  T0 ]

    8 o/ a1 u) u# ]4 G9 k% }- DCell[BoxData[
    / T4 Y" ]8 e9 }, K! D( D SuperscriptBox["\[ExponentialE]",
    8 T+ e. [4 o% J( P  RowBox[{"3.141592653589793`", " ", ( }$ D1 ?3 m5 W5 E; m' m
       RowBox[{"(", - z7 y4 u6 N4 J% w) _  ]
        RowBox[{2 I4 Y5 J" e3 n' u' B) e# z
         RowBox[{"-", 0 ]4 P$ N0 q  Y% B( _
          SuperscriptBox[
    % g. x& m# P/ W. E  `       RowBox[{"(",
    7 q6 G2 w7 v& c9 w/ V6 O% v; R        RowBox[{8 `* `% G, Q9 f7 ]9 n, I
             RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
    9 q9 H: h' t; `3 B. `) X     SuperscriptBox[
    , k0 P6 u3 a# U3 c9 i4 q! n) {' R      RowBox[{"(",
    3 _& U; x9 x  L       RowBox[{  Y6 a' g! z7 l& v0 h- H. N
            RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-", ' t% W! [/ M+ }
         SuperscriptBox[
    ! _& g7 t, R( g# A      RowBox[{"(",
    / @& y% A( @/ I       RowBox[{
    * Q; r; Y. E& Z/ O9 p        RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", ! c) z$ _+ w* H. M4 s, b
         SuperscriptBox[8 H; U4 _  t* s8 a3 y- z" {3 t
          RowBox[{"(", / V4 r2 k! V% w2 z) Y
           RowBox[{* g4 g+ r1 d5 F) O* Q: ^# z
            RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-", . j$ V( x9 T9 K: r% g/ ]: _
         SuperscriptBox[6 U5 w" ?! U4 h, T0 X
          RowBox[{"(", $ p" d' V% ~8 h6 X
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x5"}], ")"}], "2"], "-", ! L6 k# _) k: Q9 m/ u  j
         SuperscriptBox[
    . t+ Y/ j5 ^- |0 K* ~& H& E! C      RowBox[{"(", 3 A# O( y3 @: V
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", $ Z7 Z- u6 i6 t# \- ]& a8 F1 P% J6 s
         SuperscriptBox[% }2 ~4 w5 `2 t) c2 s4 |5 c3 |
          RowBox[{"(",
    * i; N8 P  \1 V. m" B+ b       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    " ?- r' @5 z! E# x     SuperscriptBox[" D4 D8 H1 L* `" g
          RowBox[{"(",
    8 d' c; d  n9 f1 S$ m  [! B+ f       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    ( `" c6 p* E6 H+ N7 ?     SuperscriptBox[
    " g8 [/ k& Z) ]+ X; ~" F2 c) J      RowBox[{"(",
    ; q3 {- S) R6 ?8 a; {, _$ s' V       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    4 d4 S! x( J8 L  c, F4 Z' A    ")"}]}]]], "Output",' w, i# K! z* x, e9 y5 q  @  k
    CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
    $ }- y1 l' @4 A$ a7 i* r}, Open  ]],
    & m+ M; H4 o' E) E0 s! N& w, r; x, n8 P4 o% Q
    Cell[CellGroupData[{
    5 H- G. [; k) g  j
    # s  ]. A* i2 G% a6 ACell[BoxData[{
    & E8 M/ a! Z; s  \  M6 W. C RowBox[{"C11", "=", "Ca"}], "\[IndentingNewLine]",
    ! b3 `* o4 l8 J3 r# G RowBox[{"u11", "=", ) ?+ T- r" g4 Y3 U
      RowBox[{# `+ p) r5 I+ L/ C0 c: `( j: Q. R
       RowBox[{"Exp", "[", ! c, T' B4 |& Y3 d$ Z/ N
        RowBox[{( J$ d4 s5 s8 o* E6 i" x8 c
         RowBox[{; ~2 ?' N  N; \, j- o+ o# N! n
          RowBox[{"-", $ E6 M: m. p( V0 v+ G  j% P) x) G
           RowBox[{) _% m% Q3 g/ x* S8 \' N& W  x
            RowBox[{"(",
    9 ?' R# f" v4 p% J         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " S4 ?7 u( V% j4 k        RowBox[{"(", 2 Q4 T; Y+ ]2 e% p* y# G* q
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    4 X4 o/ {. S- l3 e     "]"}], "/.", "DeltaX"}]}]}], "Input",
    - D1 ~2 X# ]! R# z  ] CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {/ @* g! e5 a& ~) o
      3.57796154237158*^9, 3.5779615434011817`*^9}}],# Z8 S; G7 ~7 o# p2 R' q# S2 F
    $ `. R- J# f. B5 P2 k
    Cell[BoxData[5 S2 }1 m/ X( M/ `
    RowBox[{"{",
    2 [% N# H( t1 M* r% D3 k3 u  RowBox[{
    # d1 d! y2 p. @+ L8 [2 `  "0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",", 1 V% K# ~9 W3 ^3 ?
       "0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], - I9 C# B4 k; C
      "}"}]], "Output",
    ( D( O" ?7 |2 {) Y; N CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    . r2 S0 d( e4 w% M/ z  3.57801228203125*^9}],
    * J% f! z, y7 m- }" O+ R% c3 _1 ^! O6 r7 o1 Z4 E# e% V1 L6 s. }2 K" k1 q# l
    Cell[BoxData[
    + r8 D, s; E5 P8 i4 p SuperscriptBox["\[ExponentialE]", 6 _- ~5 |7 i, F3 ~
      RowBox[{"3.141592653589793`", " ",
    5 f' y! C" }% O2 g' d8 n   RowBox[{"(",
    / w- ~9 q+ H) F    RowBox[{
    7 L$ z% _/ b8 ^3 r: V     RowBox[{"-", 5 r7 P9 }6 E: _' H
          SuperscriptBox[
    * w7 u9 A- H6 r# c3 v7 U( p( D       RowBox[{"(",   t% i1 @( f# b1 J+ D! I% x3 I
            RowBox[{  e; |4 M% _/ `; \- m2 ?
             RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-", 8 a& s9 e5 Z9 h1 m6 c# y6 W
         SuperscriptBox[5 S& }6 f/ S2 }  J  q8 q
          RowBox[{"(",
    3 S% R- C3 V9 Y$ h$ q0 _) g       RowBox[{% x2 U" k6 D8 x* ]8 \% ~
            RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-", 8 _$ N' l9 f0 L! q# T! b
         SuperscriptBox[
    7 ^5 g1 e8 a7 z; p  c3 U% T      RowBox[{"(", , W/ \" i1 s+ q+ _9 c! c' V" G
           RowBox[{
    : ]4 A+ L. k. E# q4 H0 Z. n        RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
    ) _1 g! ~- p! Y* Y* E3 v     SuperscriptBox[
    : z* N; F, y5 |! }8 ]      RowBox[{"(", + p2 J( r# j- _( h+ j& {
           RowBox[{1 _5 H' N4 Q' N/ \9 ?
            RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
    $ u" l' i9 u; x* |2 c9 a( \     SuperscriptBox[. N7 m: p& E" U: k! Y/ `
          RowBox[{"(",
    , Z! ]9 }9 j3 G; M$ v& X. z6 @       RowBox[{
    * g2 I/ H; I0 I0 l: j( m% [! G        RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
      n4 C; I) N' ?6 E& v9 [     SuperscriptBox[, A! I; B! z7 k0 P5 v/ {" e& @
          RowBox[{"(",
    ( `7 b5 F( f' g/ v) H7 d" d6 H       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", $ {' V6 |# k+ h5 u3 N( I
         SuperscriptBox[
    $ T8 z6 m9 U8 K9 f4 {      RowBox[{"(", : c, h1 n% g4 z! m
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 1 w# F4 x& A: z1 z" J
         SuperscriptBox[
    5 v) r* j3 k7 ^! ]2 s      RowBox[{"(",
    1 T5 b8 {# N8 W' V, `       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", & M9 @3 F$ i* Y! v! X3 M* G
         SuperscriptBox[
    6 h4 z" [2 n5 y) `1 _6 F      RowBox[{"(",
    4 v1 E; |& U( s$ y: K       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], " \  D; p7 |. K( c3 O. U' u8 D: ~
        ")"}]}]]], "Output",6 v" A+ U- E5 o. j
    CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
    . b( b+ C  J8 ?) ]  3.57801228203125*^9}]
      `: P1 x) p+ g! T}, Open  ]],& H/ H# F# p$ ]; j* i. J

      A" |  a% r+ y* rCell[CellGroupData[{" d1 T0 o# q% S$ u( K, |: f* K! S
    # B8 Q9 y1 r+ e, S6 k
    Cell[BoxData[{
    2 u& B, R3 m  F% L% s. ` RowBox[{"C12", "=", "Ca"}], "\[IndentingNewLine]", 7 m/ i% g# N& }2 e3 \4 F* n
    RowBox[{"u12", "=", ' A& g& h8 x1 I4 N% g1 t' i% F
      RowBox[{
    4 ~  Q8 ]) j- A/ v   RowBox[{"Exp", "[", $ I. c- Q2 f1 ]0 ]+ }) y% M/ C
        RowBox[{
    0 I& ?. @0 j3 l  x. }3 @* l' o' y     RowBox[{5 A6 ?$ |; ]& i  A5 V
          RowBox[{"-", ! H/ s* [8 I2 o8 F
           RowBox[{, }, f. ]( g6 H  \8 X) h( u! U
            RowBox[{"(",
    " H9 s' E& j$ I( S8 h         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    . |) \9 K2 L" t        RowBox[{"(",
    & R) S1 }4 q1 I$ V- W! I, `2 h% p         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],1 \  M$ E3 r' U6 p; S" T1 b
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    + f2 a' N0 J1 z CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {( Z2 X5 L/ L% K  @3 f
      3.57796154237158*^9, 3.5779615576284065`*^9}}],
    2 p& k/ e! c9 s' F' D! E2 e: u! _! u2 T% U5 ^* t
    Cell[BoxData[
    % ?: g; m; L" k/ e/ a% r$ k. i RowBox[{"{",
    ( E1 Z. S6 U' J  RowBox[{
    / N  z8 g: ~  P5 g" {1 u" {2 G  "0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",", + k) A6 a( N% k
       "0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
    2 S- y/ @7 _6 K6 I  "}"}]], "Output",& X8 E0 ^" I4 w( b6 A2 h
    CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],+ }. t! B- h! w) W2 i

    5 `) t+ \7 \8 R% m: m2 kCell[BoxData[$ @5 K( b* D0 C
    SuperscriptBox["\[ExponentialE]", + \' g  H8 A& z( d8 M6 {
      RowBox[{"3.141592653589793`", " ",
    $ e6 A# U3 C9 S& ?: Y$ a9 R   RowBox[{"(", 4 U+ P4 g  m# |2 l; ]
        RowBox[{
    ) D) F9 l, e+ [) L8 F0 n     RowBox[{"-", 7 ?- _5 x* q3 @, q: R' g1 D
          SuperscriptBox[
    " D! X$ T" G; }/ M, E# ^6 c       RowBox[{"(", 1 v, q; }" v, i+ m& L
            RowBox[{
    : |; Y/ d5 i9 i! r! c+ e         RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-", 2 H8 I" V( ]) u$ S
         SuperscriptBox[1 B' h! w* ^2 q
          RowBox[{"(",
    4 ^5 `. c! d9 x3 y# `       RowBox[{' ~- [2 d% B" F1 ~6 Z7 v% i$ F2 |
            RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
    9 C8 a7 H3 m7 |- w- N' o; J& C3 S     SuperscriptBox[: r3 l- B" {5 t
          RowBox[{"(",
    8 g5 k# Y  q& M! }: W1 U9 {# F       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x3"}], ")"}], "2"], "-", 1 g' b/ z; T3 u* R2 T$ X0 \, o
         SuperscriptBox[: s2 ^6 _+ C: G4 U$ O
          RowBox[{"(",
    0 O9 R1 V, i4 H3 K& z+ h       RowBox[{) y+ Y* Z6 Z  L, Z
            RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
    4 |2 B5 f2 }: U  ]7 c: z     SuperscriptBox[% k' ~  Q1 N( n! C
          RowBox[{"(", 0 k& F4 C+ T* I4 W
           RowBox[{
    " h& A' m/ L) }# V. s' b        RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
    , j8 a2 _, L' R4 W     SuperscriptBox[" _$ n' j, L- T) }
          RowBox[{"(",
    * d( W3 u0 `2 M9 X2 h       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", / a1 f6 M2 C5 F. T- d$ `9 A& M
         SuperscriptBox[% d$ d, A6 c% M0 R3 {
          RowBox[{"(", + v4 f! H) p& D" N5 q
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ( q; J# h; N  p
         SuperscriptBox[
    1 T2 [2 f& u" w1 {. }/ r) {( F      RowBox[{"(",
    * Z4 S/ ?* ?! i; O# b8 o       RowBox[{3 Y1 p+ P# c* }+ e8 C% Q
            RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
    3 {; u  ^' v1 J4 ?9 V" `- A     SuperscriptBox[: b& H* H4 D6 X; X$ \9 d, n
          RowBox[{"(",
    6 {" _- A2 j0 R$ T1 F8 M+ a       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    3 x0 e4 a) b* C' {    ")"}]}]]], "Output",0 ~0 [8 j( q2 E4 d9 T& T
    CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
    0 @3 i8 o+ B; j}, Open  ]],
    7 l( {9 ^6 ?. n5 E' Z7 `1 b1 E7 x
    9 e6 g2 r* a, xCell[CellGroupData[{" ]) z, a2 X+ M
    2 g7 q" y2 j' l3 y4 E: J* c8 E
    Cell[BoxData[{
    6 Q2 R8 E* T$ M7 i0 P3 _, d2 Z RowBox[{"C13", "=", "Ca"}], "\[IndentingNewLine]", % L2 a5 ~: ~. A0 N) m
    RowBox[{"u13", "=",
    + w: r' I. V0 q0 e  RowBox[{0 x6 O0 X& R! Y6 o& e8 K, E6 _
       RowBox[{"Exp", "[", ; {$ x" ^/ J; n
        RowBox[{
    2 T  X6 v* t: c: I6 {# B     RowBox[{
    7 ?' R" D3 r4 ^8 ^5 b9 {! X# d& Y      RowBox[{"-", + H) u5 ~% X3 i6 Q. U! u( `
           RowBox[{
    , N" \- U- ]9 Q$ Q/ I# E2 r8 L        RowBox[{"(",
    - R2 r6 ]9 i+ ~' B         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    ' }% ?, b# S8 ~9 H        RowBox[{"(", ( W! g/ L: |3 z' ?. F" F
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],5 M( S9 z3 `6 l
         "]"}], "/.", "DeltaX"}]}]}], "Input",
      X8 X4 \5 }- o. B% K CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {( b3 E7 E* Z! c2 q; {; I6 i8 f, V
      3.57796154237158*^9, 3.5779615599684105`*^9}}],! j3 E* y7 E) p( M* J3 M
    ) F  g$ s; A/ m. Y1 ~
    Cell[BoxData[
    6 G: R- c+ L. d RowBox[{"{", ) {+ O1 {4 P8 C- Z- V/ l7 ~; u5 @) d
      RowBox[{
    7 u7 i, J. d9 b$ m  "0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
    9 T8 ~% L1 g' F   "0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
    ( g0 u# U8 K& V  "}"}]], "Output",$ R  a& L4 n( E  ^5 K
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]," B  L0 S; m) w. q1 R- p5 I7 g
    5 l$ E3 D/ V' p
    Cell[BoxData[$ W- H, S+ o$ t2 o/ Q( T' x
    SuperscriptBox["\[ExponentialE]",
    4 j$ e% E2 B2 \& q9 R8 u# ~5 `  RowBox[{"3.141592653589793`", " ", - y6 w* N" {  V6 |9 }! `
       RowBox[{"(", / I9 K7 B* G8 W
        RowBox[{
    & o/ V$ u: y  e* _: V     RowBox[{"-",
    $ ~  k  O1 b  O" U* T      SuperscriptBox[; K! g9 w2 D9 |1 s3 x5 C$ T) Q
           RowBox[{"(", 7 m: e7 M, v& }5 Q
            RowBox[{0 ]4 ^* c( Q6 g1 N8 }
             RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    # d0 F- M& w4 x$ m# \     SuperscriptBox[1 ], t9 T; W7 ^$ p: P, h  r
          RowBox[{"(",
    ( h. ]- x/ r+ N! V, q+ w       RowBox[{# z8 j3 D8 |. }5 @$ {9 d5 {
            RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
    2 T7 _& X1 M. p6 ?5 ^# B     SuperscriptBox[4 d0 b5 R+ T" X. T  ^
          RowBox[{"(", & r9 R; M0 m. Z7 {5 b/ N5 D
           RowBox[{6 D9 h& l( x" S9 ]& x( ~6 z9 N; }
            RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-", + s& {& p: i0 h& k8 ]' k: [7 f
         SuperscriptBox[
      x' C3 [2 S' m! i      RowBox[{"(", 4 o$ D+ G% a- O
           RowBox[{* w' y) ^6 }0 A6 u
            RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
    $ I) G7 W; y# e, ]     SuperscriptBox[
    ( c" D2 G8 D) e5 p* \& W      RowBox[{"(", ! q& W+ D5 N) {+ X
           RowBox[{+ V) V7 B) ~& D9 E; k2 ~) o
            RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-", 5 D- D- ^7 U' I. Z: D  C
         SuperscriptBox[
    * @% z0 |8 Z; I' I9 w      RowBox[{"(", & s. z' H2 I! P
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 8 p4 {7 B0 z& B& h* U6 Q
         SuperscriptBox[
    3 j0 p2 J  l% R      RowBox[{"(",
    8 N$ N' ~+ z) x8 l' u0 t* h       RowBox[{
    : y( O$ m( m; g        RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
    4 J4 |  N. c( }6 N6 U1 E( ?     SuperscriptBox[) L9 a$ j) x3 t
          RowBox[{"(", ( T/ C; d/ I$ l0 Y, |: S, ?1 V
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 2 B- e9 C9 a$ j1 w7 F6 L% A
         SuperscriptBox[
    " z8 X& Z% A* u      RowBox[{"(", % U# O( a* Z+ w' x( H
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], / P2 Y, x& @5 J3 s
        ")"}]}]]], "Output",% Z/ w9 `& b( c# l' V: C
    CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
    & I/ ~: d5 `& p7 C6 |* U7 s# V}, Open  ]],
    " ~  _7 k1 T1 @/ d' o, f) N) g# i- L" E( J8 k& d6 D
    Cell[CellGroupData[{1 k3 d5 ?- p0 N3 F3 b

    5 U7 d, l! z; M* WCell[BoxData[{
    & K' k' b/ B* g* Z% q0 ` RowBox[{"C14", "=", "Ca"}], "\[IndentingNewLine]",
    ; h# n/ o# ]5 b2 e$ y3 P; T0 }6 E RowBox[{"u14", "=", ) w- H5 O6 U" T8 {
      RowBox[{( ~& e$ z' ?$ S1 L- I6 v  f
       RowBox[{"Exp", "[", # K7 M* ]. t7 c6 W. q
        RowBox[{
    % m$ @+ B2 z' i" ?  [& n5 l     RowBox[{
    ; I1 D. `7 W! X      RowBox[{"-",
    & V$ n. s- C: f5 g0 |       RowBox[{8 z1 {2 r, o8 c, t9 @( r; z
            RowBox[{"(", 7 d; k! Q3 S6 r& F
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    " Z/ b% N% I% r( v7 s2 G3 f5 U5 e% `9 H, ~        RowBox[{"(",
    ! `4 C* P: c! ^* G         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    , F/ E3 h5 f9 e8 p1 T     "]"}], "/.", "DeltaX"}]}]}], "Input",
    7 T! a. _$ J: K5 ]0 b CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    # X5 N3 W9 T3 n$ x6 l; Y5 a  3.57796154237158*^9, 3.5779615663176217`*^9}}],! S9 x5 H8 @; ^9 T' ^
    ( p$ L& a9 D& z& l
    Cell[BoxData[
    8 n  b' x) O, s/ A2 L RowBox[{"{", 6 `: }# y$ e$ X0 L; C( \4 v
      RowBox[{
    4 h5 ]; C1 a' `: ^3 E2 P. C  "0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
    6 ?2 e# N& c! B" p2 O3 R   "0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    & C% L& ]9 s! u9 K. b6 X+ h- v2 n, c  "}"}]], "Output",9 C' }( p: @6 m0 Y% @  G* K
    CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],$ g, u) L1 H8 p' y! F* U/ Y
    % Q( P; Q* g6 n0 b+ z) O
    Cell[BoxData[, h  N+ R6 S: H; c. M" Q
    SuperscriptBox["\[ExponentialE]",
    1 R% `) G8 i+ ?+ l  c( O1 B  H  RowBox[{"3.141592653589793`", " ",
    " ~8 g& ?  F- A  X" j   RowBox[{"(", " v5 D. i% l# p& O* W+ f% k
        RowBox[{9 e# m$ q/ @( j; [
         RowBox[{"-", 9 [. j# ]( L* O5 q9 t3 y
          SuperscriptBox[5 J3 d- Y! @& ?9 {  y7 y
           RowBox[{"(",
    % w; q6 M7 z( w( E        RowBox[{. O- b; }7 T5 I) U* L5 I+ s+ ^4 ~
             RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-", " @$ A7 c6 ]3 T/ P1 s
         SuperscriptBox[0 J! g) s1 \2 X5 X
          RowBox[{"(",
    0 _" j, v/ t3 c; b- k- }+ I* D4 K       RowBox[{
    8 ]4 v3 C% n- ?2 a( D1 p# d        RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-", 3 L; X2 Q/ f- ^7 \3 ?/ `, s, P, [" [
         SuperscriptBox[( b9 Q" }! P+ R0 N) T
          RowBox[{"(", 7 i" O( W) X. v! b  d
           RowBox[{
    9 t  H% H/ U. I. s  T: X# W        RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
    1 d7 a+ A6 d: q( s+ I     SuperscriptBox[
    ! T, U2 C8 _9 v7 d7 ?6 o" v      RowBox[{"(",
    3 K3 \: K. [. B  Q       RowBox[{
    ! G3 o, t1 N$ W; H        RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
    : W- t" X6 }$ n$ g     SuperscriptBox[
    , c: v; p" B0 }      RowBox[{"(",
    : c) Z. ^7 b! k0 H* l7 s       RowBox[{! W; T# \2 Y. X$ |; I
            RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
    7 B! v% x: o. c- u$ j1 o6 t" H     SuperscriptBox[
    0 l! w4 {1 W% T      RowBox[{"(",
      M+ [: X/ F/ A7 H       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-",
    ( U8 e' Z4 Z4 |4 ]/ f     SuperscriptBox[- g' h& n+ M8 P! v" N/ w
          RowBox[{"(",
    + D* y2 n1 F0 ?8 L8 k       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 3 M) p" `/ S( R* D5 `$ ^* y
         SuperscriptBox[
    4 U3 E& E9 }) L) V8 ~      RowBox[{"(", ( q5 v* R  K/ M& w. ?9 k) f
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", - A7 o5 H! v* r* D7 {
         SuperscriptBox[- c: m' P) B! A+ {+ ^5 H
          RowBox[{"(",
    0 A% R& S/ `/ L: ~       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], 8 {. n0 M$ {. Y. X+ A
        ")"}]}]]], "Output",: x& R" h) ?" |1 q
    CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]& W3 L9 q. q( d% U
    }, Open  ]],
    , z+ G/ i! P, d
    ! y5 L" j; K* {7 }6 u! v( fCell[CellGroupData[{% X5 g6 w: v& U3 o
    ' ?( v. S% [; p3 J
    Cell[BoxData[{
    ) y9 \, q! a( H9 q RowBox[{"C15", "=", "Ca"}], "\[IndentingNewLine]",
    / Z( D, L/ A+ U  L8 V8 v RowBox[{"u15", "=",
    ! I4 _9 @) B8 F7 n  RowBox[{
    ! S( Z; L0 w) u/ C" Q' J& ]& x   RowBox[{"Exp", "[", 0 m- a* }3 P# @
        RowBox[{, q8 s! G: j7 f3 C" h! s4 P' p4 C
         RowBox[{1 ~! i% |4 c- O
          RowBox[{"-",
    / }. s' I4 E2 J       RowBox[{
    ! Z6 I) V* }0 m        RowBox[{"(",
    1 S1 c+ c) ]- W4 b/ N7 @  D0 g         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", $ [2 `. z* @  J
            RowBox[{"(",   N% u/ Q& g9 @' I
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],. E/ g! {( V6 j7 R  \  i8 E; Y/ k
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    1 x, r4 _& S. D6 @- J' J CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    ( ]6 b, y' O* u! [9 H- V6 X  3.57796154237158*^9, 3.57796157098203*^9}}],
    2 R3 k8 m" N$ C
    8 G3 H9 C* P& x  a4 Y. @- {0 sCell[BoxData[
    , K+ w! f# e3 F1 y! x6 x7 | RowBox[{"{",
    ; v. m1 y& H9 Q# N  RowBox[{; Q! R% c3 b' D+ O& Z" {6 `
      "0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
    " O( L5 ]; z+ Q# v. z, Q4 h% j2 o   "0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
    1 y1 t. J1 Y; v: k6 V& |  "}"}]], "Output",7 o. z" R7 E. l
    CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],0 n1 g) c9 V7 I$ D) c  q. u

    6 P& Z) c9 V7 M/ x" J0 Y7 XCell[BoxData[
    5 ?( A3 Q" _# }5 F SuperscriptBox["\[ExponentialE]",
    8 X1 s& ^3 a' W3 f  Z9 c) ?  RowBox[{"3.141592653589793`", " ",   n' |" d: r! K2 Q
       RowBox[{"(", 7 u  O) y. T5 W/ u$ ?7 E8 l
        RowBox[{
    0 c7 O% ^8 R2 V; A( W     RowBox[{"-",
    $ J0 _2 o6 j* c- M1 H3 s      SuperscriptBox[
    9 E: D  a* c' k: ^( A8 U6 q# E       RowBox[{"(",
    5 Z$ s# e; D: }        RowBox[{
    3 n) {7 h5 F) l5 Q, J& ?7 i1 ]9 O         RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-", ' d/ Z; R) k, n
         SuperscriptBox[# k" `+ `5 f) F! O0 W4 m
          RowBox[{"(", % t5 h; Z: ~" V8 m0 c0 z+ Y+ Q- A" @
           RowBox[{
    3 u" B4 |: P. X1 }9 i0 q) }: Y        RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-", + k; V& W+ t" @' ?) ?
         SuperscriptBox[
    " G& Z1 I& I1 R& x- k- R8 `      RowBox[{"(", 4 C3 R' g  w) ?4 {  Q" a
           RowBox[{
    9 E3 [. ~5 \: |4 B) V        RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-", , n( a$ k, `, h0 l/ z' ^
         SuperscriptBox[  H: _8 {6 |: q
          RowBox[{"(", ' F' M8 i% v/ N5 c- x
           RowBox[{
    " P& L: `* b6 c# q( y4 c* h        RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-", + B6 @% U6 a" d$ @5 S3 d  Q, G; k, p
         SuperscriptBox[
    8 U' |: t, q$ T: u/ _4 [; {" M) |      RowBox[{"(", + c3 Z* ]% L( o9 e+ A" `
           RowBox[{
    4 i  o, ~: E- V% Q! s        RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
    - O9 x9 t* o0 `+ y6 J( w     SuperscriptBox[
    / N7 @3 l8 i& K" \0 r8 \$ r  b      RowBox[{"(",
    2 S- [8 S. t1 r! A% b# y' F       RowBox[{
    + S% z3 `/ x. H* z0 t/ }. Y  Y1 `        RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    3 }  _6 `- A2 L( b     SuperscriptBox[/ ]6 j% P1 U# l. [) [" J3 H# K
          RowBox[{"(",
    3 F/ ~2 b, C4 v5 h/ z# W       RowBox[{
    8 {# m. m& r) e6 n2 w" O4 j        RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
    + I1 c$ Y! c1 d4 r( X+ Z     SuperscriptBox[
    5 q1 P! ?" V# d" \* y$ X  O      RowBox[{"(", : s$ Z( ]1 ^" c( s2 `- T  a: C& k
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", 3 t6 U- `  S  ^* d9 k; |) M
         SuperscriptBox[
    6 s/ q  g5 i& c      RowBox[{"(",
    ! F: y$ p1 y- I/ e  _9 Y$ Q; d: z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], & [4 B. n/ j) {& u* r; @
        ")"}]}]]], "Output",
      |+ B# U# W* h5 p! t CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
    2 d: i% R6 _7 I* @% ?* Y}, Open  ]],
    9 f( G) u8 r- E# _( l5 |( C5 c1 M7 ^
    Cell[BoxData[6 [: q! s6 l* g
    RowBox[{"For", "[",
    , X4 S3 v6 M3 S. p  RowBox[{
    ( t) h1 [- _/ Z: z8 ^9 T) `- r   RowBox[{"i", "=", "1"}], ",",
    + ~4 w) X' q6 |" g8 }* \( e+ W5 I   RowBox[{"i", "\[LessEqual]", "9"}], ",", 2 s. l$ H* Z. S) Y2 \
       RowBox[{"i", "++"}], ",", 7 U3 K$ P) u, f+ S: d
       RowBox[{
    ' Y' r% I! e, k2 K$ h    RowBox[{"Ca", "[", 1 Z4 i5 _2 A4 k6 }/ E9 t5 ~
         RowBox[{"[", "i", "]"}], "]"}], "=", ( j- x5 }' U/ Y3 Y7 b
        RowBox[{"CM", "[", $ ]8 c# h9 D! d7 l
         RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",6 X5 \5 x0 ]+ r
    CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
    - W/ f5 N; z, C4 S3 T
    " _/ S: z, z. o# M& t: aCell[CellGroupData[{' a' B' C- i+ s# d8 ^* D+ b
    ! R' \2 l" b( ]1 p5 W
    Cell[BoxData[{
    : |- M6 Q9 w2 L/ h RowBox[{"C16", "=", "Ca"}], "\[IndentingNewLine]", + ?; F$ k& W9 Y; Y  I  O2 j! U& n
    RowBox[{"u16", "=", ( ]9 \' v5 o, [: p
      RowBox[{* N, r' B0 D- L2 e
       RowBox[{"Exp", "[",
    ) D( V, j+ ~5 Q    RowBox[{
    + {; \  U' g7 H, m; K     RowBox[{  F3 C5 E6 ^2 j7 C! o/ u
          RowBox[{"-",
    % v5 w$ U% T) ~# S, Y8 B       RowBox[{
    ) k8 q) E. U' ^; |% h        RowBox[{"(", , D8 Q' e# G  O$ t- {2 t4 T5 ~
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    8 ?! R+ K4 ]- O8 H' E! e' }$ e        RowBox[{"(", ( o0 C4 M7 i, g
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    0 k$ C  r% M+ O6 w# G  C: a     "]"}], "/.", "DeltaX"}]}]}], "Input",
    , ^( l  e8 S/ A  O7 L9 Q4 t5 N CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    / Z& @% j% i! J- A- q& v4 q  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
    ' g" P; _! Q; f" I5 m  3.5779615751004367`*^9}}],# q+ y( [$ R1 l9 E& {6 L
    3 t9 j- g3 ?2 ?' G/ ~" i
    Cell[BoxData[! ?- _: k% K( G" C6 ~( ^6 ~
    RowBox[{"{", ' B  l" _9 G- S# }4 U8 x
      RowBox[{! \* Z$ e: q5 b
      "0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
    ' r$ G5 F. A, b! [   "0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}], & h6 d$ Z; f0 \8 O
      "}"}]], "Output",' {6 l# U& G3 V2 X, l& b
    CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
    9 n9 p) a' L& R2 |5 u. {5 z$ y
    2 {7 N7 t: x. j1 X& f; F" bCell[BoxData[
    2 T, i+ s% i3 I! `1 p SuperscriptBox["\[ExponentialE]",
    " b+ c- x5 v  S' w% Z6 c9 J  RowBox[{"3.141592653589793`", " ", ' c9 M6 v( Q: y# _' Y" b8 i
       RowBox[{"(",
    5 M: y& E$ ^1 D- d+ v7 O    RowBox[{( E7 u* Q+ r( y" z' S+ U' J1 f
         RowBox[{"-",
    ' [( x: z( |9 Y* B, f      SuperscriptBox[! E! j5 M. |# J1 w
           RowBox[{"(",
    . U+ ^* }: U& L  U4 J9 B        RowBox[{
    ' e7 O; C3 t6 ^0 J- x6 J) i% ?9 ?+ Y         RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
    0 ]0 f" K* s8 z) X+ n9 H. P     SuperscriptBox[
    * l5 v: Y- s* Z3 f; }7 u5 Q      RowBox[{"(", ) `$ M4 P: f9 h+ c& j& {: ?7 p
           RowBox[{. J# H: k# J3 }9 i2 [  Y7 G+ T$ D
            RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
    ! ?( b' ?9 M; W3 L     SuperscriptBox[
    , M) O' g, w6 y' |! ~: l* X4 j! @      RowBox[{"(",
    & t4 [% [0 [( e6 o6 y       RowBox[{
    $ R# r# j" v1 T7 E& d        RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-", 6 Q. H% Y! y' a% m
         SuperscriptBox[
    1 }5 n0 M3 B: i( I/ L      RowBox[{"(", 6 O0 |3 s% H4 d- l4 v- J% Y# d! f2 V
           RowBox[{
    " \' p4 X3 g* B- t        RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-", , W" _  `1 C; V( N7 E
         SuperscriptBox[
    : Q; Z6 E1 _& c1 u" r& u      RowBox[{"(", 6 I) ?' V4 ?5 k9 h+ m* M
           RowBox[{
    ) a3 c* L. q' n$ _/ j: ?& s        RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-", ; X3 V6 z, z8 L' F4 C! C
         SuperscriptBox[
    6 J+ S/ E+ Z# D- ]. ?" X6 V8 {3 ^7 B      RowBox[{"(",
    " |1 h3 H& e3 r' }1 V% f, X* |       RowBox[{/ _; m- Y& U9 @3 J) Y5 J4 ^
            RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", 9 J0 w9 l& X) m8 C1 R! B; m, ^
         SuperscriptBox[
    , L% E7 ?5 h3 c. {      RowBox[{"(", - K- }7 X2 T4 K* f0 e& {
           RowBox[{
    2 i5 }8 W+ ~$ |# f$ I! t        RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",   p, Y$ ]% r& b1 [* h
         SuperscriptBox[
    / N5 T9 T- M, }: j4 O, x& u      RowBox[{"(", / Z  ^+ m$ V" i5 g0 C, l1 v; i
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    - q1 ]5 Q7 B! l. G     SuperscriptBox[& e7 l7 ~* m, v. N/ B9 e
          RowBox[{"(",
    7 l# [$ d6 o1 Y; Y( [( S+ a       RowBox[{
    2 k" X% g  I8 V" S$ K0 S, \        RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
    ; p( E% p  r8 W0 n% z4 m5 ? CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]' O2 F0 C6 L, G9 F* j( m$ K; R
    }, Open  ]],+ ?  M3 S1 o5 u' y
    . A! l) ?1 w$ Z, E& o
    Cell[CellGroupData[{
      x* p# Q1 G" f
    2 R) r( d, o6 N! k& ZCell[BoxData[{
    ; b3 o4 X  @/ \' S+ C RowBox[{"C17", "=", "Ca"}], "\[IndentingNewLine]",
    2 S1 |4 |* {) C2 u8 Y RowBox[{"u17", "=",
    . _1 K8 i7 M5 g; p/ M  RowBox[{
    / S7 l. y) t- L% @/ N   RowBox[{"Exp", "[", 3 j2 Y6 C+ W+ S- ?
        RowBox[{
    8 ]7 j1 |- R0 {( l6 k) j3 v     RowBox[{; r+ d/ ]! m& `$ g$ D
          RowBox[{"-", 2 g9 s3 y' n; v; s& m/ L) z  _
           RowBox[{
    5 \5 l- @! U! H        RowBox[{"(",
    " b% V. M4 u# W& N1 M, x         RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    4 C! H! h. Q( ]) {4 d4 V  k        RowBox[{"(",
    + \: U( V0 ~; M" p$ D4 G! Y9 |         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],7 m; c2 x; W8 X( a. j% b2 e9 V  [- K( J+ [- o
         "]"}], "/.", "DeltaX"}]}]}], "Input",% M/ U/ o- f. O# d& Q
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {) F! H% N* v0 v8 s8 _  H) y3 j# @
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
    2 _. W  G  [( `' S3 A  3.577961578953644*^9}}],$ J; H" @; a* F0 x9 j6 |, m' A9 `5 i

    6 C; h% _  a1 Z' a8 X0 R3 GCell[BoxData[
    . J5 |) m& t8 b1 n RowBox[{"{", ( P9 i# P0 g1 @0 [
      RowBox[{
    ' B2 U( _5 F2 X% d' k$ [: F/ e  "0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",", 0 i6 A4 d; X0 B4 ]; t! |5 C
       "0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}], 4 L% f; h  E0 j: t! p
      "}"}]], "Output",
    1 \) o2 ]3 m- B CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
    ! C7 N: e9 _4 D) ^3 l; {& n0 `( c- P, c
    Cell[BoxData[
    3 r  I  s9 j8 Q0 K SuperscriptBox["\[ExponentialE]", ) h; l. P/ F4 c  t
      RowBox[{"3.141592653589793`", " ", 6 J# O6 ~9 y8 E3 x* e0 \/ E! w
       RowBox[{"(", 2 r9 f3 T' A/ W
        RowBox[{8 \5 a8 n* f. T0 b- O
         RowBox[{"-", ) h$ i, a) d0 t5 L7 z
          SuperscriptBox[
    7 V1 n9 a3 L- K" x. z4 D, l       RowBox[{"(", % A+ z2 w9 c4 S$ o  T, r( t
            RowBox[{
    0 q. i, L$ }, P  C8 H         RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ; c8 O/ t' F, O     SuperscriptBox[
    4 C) B8 U: d0 V2 ?' x( A' i9 c      RowBox[{"(",
    1 w( {& e* }4 ]       RowBox[{
      L* `% t4 N3 b1 e! x' P        RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
    " T/ @& R4 D4 H1 \4 H: {2 u) C+ o     SuperscriptBox[
    & t+ D/ s# B) m0 L/ S6 c      RowBox[{"(", ! J- _* C9 Q% t0 I1 }* i, T1 P
           RowBox[{
    9 _+ Y- f2 e6 }! E& I" W        RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",   ]6 @+ t$ |# f3 \+ o
         SuperscriptBox[; k+ w# O8 O- X3 A
          RowBox[{"(",
    , p0 {8 B2 P1 I5 m/ I! F       RowBox[{/ c: X1 T5 }& T" }2 b
            RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-", , _& e9 `: z% s' R. W
         SuperscriptBox[+ t6 D- Q8 n: F8 k8 |+ I* E
          RowBox[{"(",
    ( i* B, y8 M6 A7 z$ I5 R       RowBox[{
    0 B3 C& l7 H0 y- M( ~        RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-", ' S7 V* Z6 x+ F8 @
         SuperscriptBox[
    ' r+ _9 q9 b$ u      RowBox[{"(",
    / g- o/ u/ s! O2 X# d       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", 9 ~( u" g2 q- B- q, q; T
         SuperscriptBox[& n. Z7 z( I" W; Q9 t- x+ Z
          RowBox[{"(", & B1 c# g( o/ o5 I) V! H2 {
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    / M# M! _9 s7 I1 ^* s4 M5 H) e6 L     SuperscriptBox[) K" l$ p& t2 g
          RowBox[{"(", ; X" O" j+ d" R% ~) A! s
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    7 P4 M0 p& D! O     SuperscriptBox[
    * W6 M' d' w+ [6 f/ B( e7 _! W      RowBox[{"(",
    7 h4 X- Y2 P$ H1 G       RowBox[{" ~! Y4 O1 P3 p) _7 O
            RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
    * V; S% J' I7 \9 y8 \    ")"}]}]]], "Output",$ ~- g5 U( w$ E
    CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
    4 {5 O0 _( V) G+ G& m: u2 @}, Open  ]],
      s5 H- ~" k! n; V# t9 }  d/ t: ^# i, o, }
    Cell[CellGroupData[{! M* A0 _3 q. U: g; w! N$ H

    6 w3 \. z+ x5 v/ p3 y' wCell[BoxData[{
    3 A* I1 R0 K: T RowBox[{"C18", "=", "Ca"}], "\[IndentingNewLine]",
    & d  u& G* n% h6 J$ \# F" {7 x0 y RowBox[{"u18", "=",
    " x& \8 D* l7 {2 S. [  RowBox[{& y  t* ^) B9 F" m, M. d& o
       RowBox[{"Exp", "[", % m' c4 ^: U2 l# o  v6 ]/ B* o
        RowBox[{# g% \8 m& l5 Y' v
         RowBox[{/ S% K' |0 j4 _( |" Y0 B  x4 I* O
          RowBox[{"-", 3 E* S/ m( @' m, v) K
           RowBox[{
    ' W+ l  A$ l# W- j( `        RowBox[{"(", ; w8 f) H1 K5 J# p" ]) c
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 6 C  E. j4 O% V& s% ]
            RowBox[{"(", . J% q( Y- B) @3 `( m6 }
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],: O9 B1 p9 W# O9 o9 D8 u" r& R' m
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    * ]* h# j* B# F. Y CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {- {* c9 }3 p& g5 D
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9, $ W( L+ Q( |# S( V$ c
      3.5779615828848505`*^9}}],  E1 P0 H) A' i) ?

    6 R; C9 o0 C1 aCell[BoxData[7 B% F0 v2 N8 R+ g) r/ z/ D
    RowBox[{"{",
    9 M/ f8 V1 s. U; j  RowBox[{
    / B5 b8 l$ T3 w5 @2 r  "0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",", % E6 r; S3 {( e9 y  Z
       "0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
    8 d+ Y. N0 s: c  "}"}]], "Output",
    ! o. ?2 E. g1 N. d/ r/ B CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],) }& Z) S) F2 w3 V/ e$ v- E$ S

    . f! @9 \: Q( J% F" s( ICell[BoxData[
    . c4 `+ v0 Y5 Y3 N SuperscriptBox["\[ExponentialE]",
    - q0 B% m3 r: ]( x  RowBox[{"3.141592653589793`", " ",
    4 `: b0 ~& m. [8 a$ \7 J   RowBox[{"(", - }, R1 P+ ^+ v7 l
        RowBox[{, \( D* c- O0 |) S1 H8 y! \
         RowBox[{"-",
    # [2 r* p% t4 \: o( g- W2 w' I      SuperscriptBox[% B0 o! o8 |0 |2 B
           RowBox[{"(",
    - s# U% B) P# h/ }  M$ H        RowBox[{( K: b3 P+ m" r/ b) x0 G
             RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
    ! {5 z) R$ a3 E) i8 o     SuperscriptBox[7 C, t4 l( ^7 t. I9 [" c- D
          RowBox[{"(",
    ) G, z! r8 ?+ \0 d       RowBox[{& [4 o% i  ^; S% R- C3 I8 _0 M
            RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
    8 r7 P* m1 U7 Q6 G. X( f     SuperscriptBox[
    % T  M; ?( p  ?8 h# f+ x      RowBox[{"(",
    * c2 _2 v# A9 n) j3 R       RowBox[{( N9 u8 M/ I- x# k% q& _/ ?3 H
            RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-", % a) p% ~% B+ P1 Z" g+ Y# v
         SuperscriptBox[
    ' I3 F+ Z( l6 ^4 W; w- G3 F      RowBox[{"(",
    ! f' a7 s9 P6 b) e; W( \       RowBox[{7 I( ]- w3 N$ [7 U! K/ N  g
            RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-", 8 C( G( P+ G  [9 }7 ^! [
         SuperscriptBox[
    & R, B3 j  z1 Z; Z* q      RowBox[{"(",
    * X8 f) ?2 i# |; H# s4 i, O       RowBox[{
    ) f& r* L) ]9 M7 S        RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
    - X* k8 g3 y1 H! g  t9 U4 Z+ ]     SuperscriptBox[
    ; T2 M1 \2 \- ?) H6 P      RowBox[{"(",
    1 Z/ P. q; O* w6 g# \/ S/ E       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x6"}], ")"}], "2"], "-", ( h1 H) U2 t* z/ O* M7 o3 x
         SuperscriptBox[* B, {! a/ t2 b9 c0 o+ |' _0 R) ^5 a
          RowBox[{"(",
    3 U$ @8 B/ n5 Q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", ! k$ K0 e% I4 T& [
         SuperscriptBox[: ~! H& k4 f" n9 |+ h
          RowBox[{"(",
    ( E% J4 q9 U* Z       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-", - `9 ?  E  e4 S" F* V. j  U
         SuperscriptBox[+ z9 i5 D+ `: D9 `0 L" o& e
          RowBox[{"(",
    : e+ L  ~- m! a. ~9 k7 o       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}], / \! d  M, N) ^$ b+ g* L
        ")"}]}]]], "Output",- r. u( C( S  J% ~6 K! P
    CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]: J3 V5 L' P2 N1 V5 a
    }, Open  ]],! F* ^+ ]7 r; k& G/ i' P. o
    - k- ~) {1 s' m  [# U, s- L
    Cell[CellGroupData[{
    $ g+ M3 J2 T: k6 y) Y9 g3 {, Q6 Q/ j& r
    Cell[BoxData[{
    # f/ v- b! W! T6 Y/ M; S7 N$ s. k2 i RowBox[{"C19", "=", "Ca"}], "\[IndentingNewLine]", 4 ]  }, L) t; H! v6 {3 w& {
    RowBox[{"u19", "=", . z# ^- J+ u( F3 E  z( [1 j
      RowBox[{0 S6 d1 q2 a& H/ H* a! _
       RowBox[{"Exp", "[", & W; M& C: P( v7 J/ Y! a7 z
        RowBox[{
    ' a% ^) R/ Y" ?/ F4 ]3 g     RowBox[{
    9 X1 q" v$ W. T  k3 G) w% F      RowBox[{"-", - D  [' `, _- I" N1 e
           RowBox[{: o- b+ [. {% l4 |
            RowBox[{"(",
    9 X+ w2 ~% ^# l" T7 ?         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 8 T0 \7 {2 }! r- x+ N% G
            RowBox[{"(",
    2 n. L9 `# E/ w1 |% z, _, D         RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],# F& O0 D/ L- q/ v3 h
         "]"}], "/.", "DeltaX"}]}]}], "Input",
    7 i0 h$ v- M0 }1 K4 G. G, T/ O& j CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {3 G9 y" W0 O8 t9 `
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9,
    " Q" I, D- G8 Z  3.577961588890861*^9}}],
    + S% q2 C4 A0 B; {: ?
    + l- ~$ U& x2 OCell[BoxData[* D* j1 Z& n; t. `
    RowBox[{"{", 0 L, z5 F' d1 M8 ^7 b" K- l3 o
      RowBox[{
    # O  R( T4 B5 v2 N9 u0 ^  "0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
    1 @1 ~0 W0 ]% c% K+ Z   "0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
    , z9 T2 T0 X/ }  "}"}]], "Output",' F+ G; [$ J4 {2 M' \; E1 Y
    CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],; |8 l0 S9 f0 P2 F8 J0 @% f

    % }8 ~( g# g2 J% UCell[BoxData[
    2 R" q. ]$ A. ^ SuperscriptBox["\[ExponentialE]", $ w4 B( w; @1 n; a2 R+ M5 x4 N8 d
      RowBox[{"3.141592653589793`", " ", ( M8 q: W; Q) p9 I6 K9 d
       RowBox[{"(",
    / j: G. Z; a+ @    RowBox[{
    " M* p8 O6 E4 [& o1 `     RowBox[{"-", $ ?; l0 Q9 o6 c
          SuperscriptBox[
    8 W& S% S/ \- i6 n  y       RowBox[{"(", 9 `: }0 |5 a  l0 t2 G- N# e2 Z0 H
            RowBox[{
    9 N( z: ^" Q# P  v) P0 \  N5 N         RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-", & s' q' c1 p" m
         SuperscriptBox[
    9 A1 @6 \9 b) a( F6 a      RowBox[{"(",
    " ~, j% o8 F( c. d9 Q! G) B       RowBox[{
    ' l1 `8 n7 |" _. i! f        RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
    6 [5 o9 S+ m6 T5 z- {     SuperscriptBox[- f& }# n) {0 a0 x% H
          RowBox[{"(", " B5 `+ l' H  C9 ^6 ]
           RowBox[{
    1 V, Z/ J) S# w( e# t9 q        RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
      {) s( O# S( _     SuperscriptBox[
    . v. q+ o# S+ Q* K6 m      RowBox[{"(",
    7 m) H% A. d6 i2 Z       RowBox[{  e$ t6 u! l9 V" L" A7 R! g
            RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-", - V( x4 S( m" F- A* \3 S9 p  [: V
         SuperscriptBox[
    9 [: _3 ?; }, x/ y      RowBox[{"(",
    # R1 S/ @% z& G! u6 |7 H       RowBox[{) [/ x; Y  E* Q; N
            RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
    + p! t; O- S) U+ c: Y9 W3 n, K     SuperscriptBox[
    ( q, v) ~7 L% u, ^/ \      RowBox[{"(",
    ( M+ K3 }4 b3 k* \% O( k' u  Q) D$ @       RowBox[{
    ( H/ U; J  n; L4 F        RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-", ' z  [" Q7 w; |
         SuperscriptBox[
    * t2 q) P) U2 K7 S      RowBox[{"(", / a1 H8 |+ u$ B2 B! B+ t5 H7 y
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-",
    - i/ \8 l+ O. N0 |% C3 ^; Q     SuperscriptBox[/ W6 `2 M% r& B  \0 e
          RowBox[{"(", , e- o! q0 s/ X% Y4 E6 v4 z. s' ]! H
           RowBox[{
    7 \8 ?. l: ?9 s* Y; y  R        RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", % ]& u! P4 L; K
         SuperscriptBox[1 u2 f: J. x/ y/ B) u5 I* Y; L; L
          RowBox[{"(",
    1 q0 C1 D8 t' ^, ^& `/ e7 d* Q+ G, Q       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x9"}], ")"}], "2"]}],
    3 ^) ~0 H  @" s7 [1 |5 h    ")"}]}]]], "Output",
    - b+ W1 t, S9 y. { CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]' Y( Z# B6 D2 u
    }, Open  ]],
      {' l, Z4 X+ k/ z. b, u: \1 S1 E% h+ t7 G
    Cell[CellGroupData[{, |- S1 U& x' W, X& s* P
    ' h6 b! \8 v! P+ f8 P- J) I
    Cell[BoxData[{$ f& U3 S8 \: S7 i; W/ N7 y& U
    RowBox[{"C20", "=", "Ca"}], "\[IndentingNewLine]",   _* ~7 F0 Y  q
    RowBox[{"u20", "=",
    : w' P+ C3 S4 W+ T- @  RowBox[{$ ]. R9 h: X% T# d( W
       RowBox[{"Exp", "[", - ?( j5 O# T  |$ o1 k
        RowBox[{
    + U* H, y6 E) ?8 w! F% A     RowBox[{
    * }$ M. ]* R# p% n  j! a      RowBox[{"-",
      M7 c' u- P9 n% A3 U       RowBox[{
    5 n) Z6 {  g% [9 K# f% W. m        RowBox[{"(",
    6 a/ i; _, l4 f         RowBox[{"Xa", "-", "Ca"}], ")"}], ".", 9 ?" q) P6 L+ |7 @" {# b) |
            RowBox[{"(", . |! B. e% K% r1 h0 K
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],1 f! G) ]  N. B4 w/ r7 Q2 H
         "]"}], "/.", "DeltaX"}]}]}], "Input",# I* h2 P1 L( @$ Z' h8 V
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
    8 C- ~( t' u0 U, Q( O  3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
    6 m( m( Q; |$ \) K  3.57796159382047*^9}}],$ M& [0 f- V) W

    # |( m$ n& z, j4 s! W- f/ ?* |Cell[BoxData[) t; y% U3 K* O, q) M5 U
    RowBox[{"{",
    * a( O: y4 Z  o4 y7 s  x: c1 W& n& `  RowBox[{! D9 A& e8 `: @" l
      "0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
    8 I# W- a0 }/ h6 C2 X   "0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
    / \  e* C4 P# y& q  "}"}]], "Output",
    & Y/ \4 o/ u) S, y5 B' M1 \# u CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],- V9 O) O8 H. L  O+ N4 N

    ; _' W& d6 K: g( v) c& E' GCell[BoxData[
    ; I( r" x+ @. y SuperscriptBox["\[ExponentialE]", & q3 w  \5 x. ]. J- J
      RowBox[{"3.141592653589793`", " ", 3 S9 l$ p$ D9 e; F9 p1 A1 a# d
       RowBox[{"(", ! B; c0 K# D5 @+ L
        RowBox[{/ t8 V; Y# r6 T4 z0 M! w
         RowBox[{"-",
    8 B+ c! ]3 o. Y3 I( @5 M      SuperscriptBox[
    % c( a% D3 d8 y& y       RowBox[{"(", + K. w: z3 N0 h# t2 q
            RowBox[{
    4 P( C, u+ R0 W7 D+ M% Q8 e         RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-", ! k! c: l% R, r4 v
         SuperscriptBox[2 f, g9 Q' h- r6 t5 V" s* A% U
          RowBox[{"(",
    / V9 w8 X% I7 m6 E: r! Y& U& d       RowBox[{9 T' [! u& }, c7 _9 X! Z
            RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-", 6 Z2 d: \& J& ]
         SuperscriptBox[4 _* X$ W3 }8 S; h5 Z4 _# {
          RowBox[{"(",
    ; U" Q7 G9 w+ K; P       RowBox[{' C) F! s6 h! |7 Q2 l
            RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-", 5 C0 A' ?( ?) T
         SuperscriptBox[
    ! T6 k7 X% z  v. ]      RowBox[{"(", & q% l+ O0 K' _4 t$ y. V/ @
           RowBox[{1 V7 _3 ?/ o5 Q2 U2 d$ q
            RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
    2 e* I6 S1 r# |     SuperscriptBox[- q; n2 m0 m& Y: U' S! _
          RowBox[{"(", + d$ f1 ?/ d' h/ W+ E5 ]5 C
           RowBox[{
    ) X( |2 R* ~0 M* ^( N        RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-", + ?/ K6 K7 W; q: `* p! d
         SuperscriptBox[& z% m5 [+ b6 }3 b- ]. X2 [
          RowBox[{"(",
    7 f0 N; H) h: E7 Z- d3 e+ Q9 a       RowBox[{
    % T, R3 f& z5 I        RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
    ' ], B" f* {/ _8 z3 L2 {9 |     SuperscriptBox[
    8 A& N. ^- }0 @; \6 I7 _8 y3 o      RowBox[{"(",
    9 K. E* ^  g' F: P7 \/ x7 V/ T2 ~       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x7"}], ")"}], "2"], "-", 5 W2 s9 p) r, F  N4 b1 h* q6 j! b% y0 A
         SuperscriptBox[, m$ h, s" ?6 d$ R+ y. v
          RowBox[{"(",   W9 L2 v% g, N- t# y7 y
           RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    5 Z3 y$ s9 z; t* B8 d; ~- @     SuperscriptBox[
    1 e! e( j: d% B4 f1 o( ]      RowBox[{"(", $ B. a% O1 n* z5 n) `+ M
           RowBox[{0 h2 \* o$ u' E6 i! h
            RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], + G9 ]% \0 i1 L" C( L/ m+ b) x
        ")"}]}]]], "Output",( r  g. g- q% B7 N  c
    CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]1 A* @# C  O. T3 `
    }, Open  ]],3 }% a% y" o- E7 Q  g6 }

    6 H6 P6 n7 p) ^5 I% I2 @Cell[CellGroupData[{0 I4 u$ Q8 j  G1 u7 z- A" x

    & `& P+ |+ |* @8 u6 \" KCell[BoxData[{! E+ V: g4 B( F# R0 I1 u9 R* s
    RowBox[{"C21", "=", "Ca"}], "\[IndentingNewLine]",
    / r1 }' p: v3 d8 n; B* J RowBox[{"u21", "=",
    3 C2 e8 N" y8 S0 f  RowBox[{  ^0 H. o* }* Z4 b, p2 v
       RowBox[{"Exp", "[", : {5 {3 L" n6 l/ T+ Y* S( F3 j! O
        RowBox[{
    8 ~6 l8 p' j3 H2 K8 A- f. m0 n     RowBox[{+ {( j9 m# d. J! k5 X  O
          RowBox[{"-",   w) Q: h7 h' O- X" J" S/ ~, l( Z* F
           RowBox[{
    3 n4 x& v4 |- i* ?        RowBox[{"(", + d0 T) C. P# f
             RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
    / v  o- i. q" N! V7 U* [1 h        RowBox[{"(", 3 T1 m' N- x  f% u, ]
             RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
    " h# x" L0 F& o' \. D2 m0 i     "]"}], "/.", "DeltaX"}]}]}], "Input",! A  H: k! b6 M. O
    CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {& ]! y) M, ?3 s
      3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
    3 B4 @/ G  U. E6 K3 h3 `7 j0 F  3.5779615991556787`*^9}}],/ n+ }" L6 x; z1 E# F: V8 r: I
    " }3 c. t/ [; g$ b- Y
    Cell[BoxData[
    % q+ ?3 O6 Y+ Q% q3 G RowBox[{"{",
    5 b, F( N/ }0 y4 k  RowBox[{/ ?# W. n, g$ G' v0 z& [  m# B& v
      "0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
    - W& a3 A# Y- {5 H   "1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}], - C0 \1 K( w/ F( l2 O5 c
      "}"}]], "Output",* O: f$ z% ^( @
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],) _0 ]' a' q7 J( f

    ( J4 q) s( G+ `& LCell[BoxData[
    ' O5 v4 S; ^# x5 V$ _2 K SuperscriptBox["\[ExponentialE]", 2 h! l* d. u- \
      RowBox[{"3.141592653589793`", " ", 2 ?/ S  Z7 q" p
       RowBox[{"(",
    1 b6 ]+ M- C6 R: W) v- }( i    RowBox[{7 a; d0 |9 ?! C6 z( [7 `+ T2 r; D
         RowBox[{"-",
    : k# t% K8 Z, h- \5 o3 l- e& [2 J      SuperscriptBox[$ l- n( }- y2 E, }  A
           RowBox[{"(", $ O7 m/ m, v% G3 K  A
            RowBox[{! M3 Z+ p) w8 H1 G8 M
             RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-", ' Z9 s- [( |3 ?* g  m9 U
         SuperscriptBox[
    : _* q6 b! f7 e7 C2 K      RowBox[{"(",
    ! G* _- g, m7 E; V       RowBox[{
    1 p; \" p' a& T8 U1 t' |        RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-", / \3 `' b+ W! B" a- ]
         SuperscriptBox[$ q5 [4 b% W; e& P' o5 Q: w4 B, b
          RowBox[{"(",
    & l% I8 F5 X7 X; v       RowBox[{/ U% U' L5 x1 _$ H; {- F
            RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", 9 v' v6 r4 {0 `$ d
         SuperscriptBox[! }8 Z$ ]3 E+ x' X% t2 x( Q
          RowBox[{"(", 6 v# Z' D- n) h9 B7 [; t3 J  l
           RowBox[{3 o4 D# h9 J3 p; H( ]$ Y1 H4 G
            RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
      l6 V: M8 P/ ~! Y4 R0 ^7 q     SuperscriptBox[' p4 R" O( ^2 E8 L0 U' g: I
          RowBox[{"(", ! s- {. D5 R+ ]! p( J% X
           RowBox[{) Y% y7 x; k2 i* l
            RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
    % H+ Q- w& `6 L9 f0 n     SuperscriptBox[+ l8 {$ C+ P7 K; B+ g% E8 j
          RowBox[{"(",
    ! v+ X+ \- N" a: M       RowBox[{
    3 V8 R) k0 N0 E9 {$ n- q5 g6 Y        RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-", ) U) T' `& _2 E# G4 }( X( s% ]
         SuperscriptBox[
    - g6 |5 S- I$ W; X1 ]      RowBox[{"(",
    / K$ v% {9 p" h       RowBox[{
    $ X, S6 j1 N$ d* O; K2 B        RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
    9 T6 g) T, g' u9 q     SuperscriptBox[8 z8 M* \( B+ @+ H
          RowBox[{"(",
    - w/ d) Q9 ~# _+ D% E6 u$ T       RowBox[{"0.`", "\[InvisibleSpace]", "+", "x8"}], ")"}], "2"], "-",
    9 u' S3 ]* T) \+ _) b     SuperscriptBox[
    . A, i4 |1 c# L9 p      RowBox[{"(",
    ) \& a6 ?, u+ W. A; d5 V       RowBox[{
    & c' U% ~% M' ^# R        RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
    * \; R3 M4 c. F8 T& B    ")"}]}]]], "Output",4 ?  u6 \* `! P& o" Z* Q' d( K
    CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]
    1 n$ n0 \2 T9 m, U3 M9 A}, Open  ]],/ D) S9 u2 j' E- K4 Y

    0 z+ W, H2 |0 N' M" c4 mCell[BoxData["\:62df\:5408wi"], "Input",
    4 `  Q# q' s: E4 B8 V: T CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
    ( e* ~- h, M( B' e6 t0 b8 b- q5 T0 {! S5 ?7 J
    Cell[CellGroupData[{+ L- c' ]2 C3 x9 {

    ' {$ ]' z1 o7 \# Q3 I9 A3 uCell[BoxData[
    ' b4 R5 ?3 ]$ y& Z! B RowBox[{"y1a", "=",
    % J9 c* f$ T. h% a( q  q2 j5 J  RowBox[{"Table", "[",
    / F% R  x% b! R2 ]+ {# x9 ~# [) U   RowBox[{"x", ",",
    - u( g0 h7 U6 x. |. z) y- I: H    RowBox[{"{", 9 U: n* S: G8 R
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",) T7 |6 t; j! f1 v* s$ N
    CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
    $ O' Y# h3 O* Q) j  3.5779226649375*^9, 3.5779226810625*^9}}],
    9 G: r; I0 T- c6 }7 I4 F# b# d& w# [' E( }* f/ d
    Cell[BoxData[
    : w4 C  u5 R: ]% r& h2 v RowBox[{"{",
    % F6 {" L: h) L7 l+ Q  RowBox[{8 d1 w3 @. [$ f6 V$ z4 }* [
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 3 V: a8 B5 ^1 D
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    3 J; Z$ C' V( n8 m( ~6 l" L4 ^! D    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    " V" I4 ?9 i9 h$ [+ [( U   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", / r8 B! t, z+ P+ F9 R
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", % \( H( R. ?4 m0 }/ o( p
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    / K9 ]2 A/ b$ ]* O# E   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", + Y2 L+ a/ k8 l8 p6 l) m  b
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    2 r+ J# x& z: Y: ]   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
    ( p' }1 L  `* D- m( j% q% M. v* S5 l  "}"}]], "Output",
    . {8 Q: r, p7 `" e% X1 r CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
    . P! T) \8 }7 b6 f  3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]+ ]1 G0 b! R. M
    }, Open  ]],8 {" ~% K( z( V5 O6 G

    ) o7 z& E/ q) N% SCell[CellGroupData[{
    2 \+ u$ p6 ~( B4 ]  u7 R: s
    6 Z, A0 F" K  p1 [- \+ [/ YCell[BoxData[1 a: M5 C1 o. u2 }- b2 \
    RowBox[{"Data", "[",
    8 O* m, W2 I: X- ]" y, w! [4 k0 |  RowBox[{"[", 5 i% R' c  x4 e! S9 P4 A( o& \
       RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",9 m# G+ _, S2 b* u
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
    8 v) X8 ]. j/ w' L   3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
    ) p2 g9 B5 ^; }! z1 f( X$ n; h; E/ f* F' ?; ~" I; S- U
    Cell[BoxData["0.899882`"], "Output",
    $ O8 _" ]: J( ~$ X& Q+ H CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    % G/ }8 T/ l; I. L   3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9, . j( l% m( W  g$ C, J( |
       3.577961929080654*^9, 3.5780123419375*^9}]' n3 r7 ~1 d$ O4 P+ X+ R& Z; L
    }, Open  ]],
    ' d1 e0 s) Q* D+ {6 w. ]) T& x0 }2 D
    Cell[BoxData[
    . B; c) B$ _3 d; t RowBox[{"For", "[",
    , m9 [5 Z2 U" ?3 L* E! L0 ^  RowBox[{
    % z  w* E4 b  F3 t+ {3 O   RowBox[{"i", "=", "1"}], ",",
    : Z6 |( ~5 v" [; `7 @+ r   RowBox[{"i", "\[LessEqual]", "60"}], ",", / z5 x! c& P$ ^/ A/ E9 K
       RowBox[{"i", "++"}], ",",
    * f, t: _' X) N, q4 p8 w   RowBox[{3 {& l. J2 D5 ~+ ?$ X# m: n
        RowBox[{"y1a", "[",
    1 A1 H* f+ t. S9 v; M     RowBox[{"[", "i", "]"}], "]"}], "=",
    2 C3 C5 W  Y) o6 p+ W0 ]3 n+ E* R    RowBox[{"Data", "[", 3 b! o/ o8 Y9 e) @6 _  `8 y
         RowBox[{"[", & o5 K& x7 W; N8 C9 T4 l& N: W* J: O
          RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",$ }# @3 r0 Z% k) ?3 k
    CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    " h5 K4 O7 u$ ~) f9 p3 ]! D   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    , J" P6 o5 e. }   3.577922923203125*^9}, 3.5779588839702806`*^9}],, _! ]1 m& K( J7 L: J

    ! X9 E3 [  v+ dCell[CellGroupData[{
    " w' r: g0 l& h% U* d9 \" ^% S$ O: C9 a4 |
    Cell[BoxData["y1a"], "Input",5 k' i; d4 X9 v9 ^
    CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],! h4 \+ ~. M: y4 i
    + J4 l7 u7 w1 v2 a  I( l" t1 X$ Q
    Cell[BoxData[, l: u( u/ K! m0 ^: u7 Q: z' r2 o
    RowBox[{"{",
    / E' l( ^' `$ j  RowBox[{
    , P1 S& R! v' k5 E* r2 b  "0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",", 2 R* S& t- u3 z; c3 n
       "0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",",
    - \/ z' B# i% {' y   "0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
    ( j8 V" \9 p2 l  N0 r4 P  K8 T   "0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",", + `8 F4 q. ~6 @# O3 o8 M0 M4 {
       "0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",", 9 c2 Z/ ^+ L0 }& V$ z6 Y3 @3 }
       "0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",
    / b; O- g' O! t   "0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
    2 {3 {+ h  S: C8 R   "0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",", ) k( C0 ?9 D' ~0 }1 L; Q  r- P6 @/ [
       "0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",", + b% C2 e$ E& M# }, I
       "0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",", , {2 W* T' k$ T* F! ?. M0 H
       "0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
    9 R& ~3 P- B0 u4 u! t) C   "0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",", 4 m/ E0 ^; M. w
       "0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
    % D+ W( V2 [4 {$ K  T- J  w6 o   "0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",", 9 X( a3 q9 t* E* }5 @+ |  N/ o; X
       "0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}],
    # G8 F! E2 z: k8 j/ e. P3 |  "}"}]], "Output",
    : z2 V8 y+ J: G; C CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
    , [- S  c3 k5 N  3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]( I* @  P4 [# O2 D
    }, Open  ]],( Z2 j# @! p0 Y' t( e9 r: g
    5 |: y. r; ^6 O+ O# m
    Cell[CellGroupData[{( I1 N) l3 k: ]" }. f# _) p

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

    4 t) M& H7 L0 C) i8 @7 k8 `. |2 }Cell[BoxData[
    3 ^% k' U- V# Q+ J! Y3 ~ RowBox[{"{", & S( N% K0 L& @, R5 h: ?
      RowBox[{"0.32564305572552416`", ",", "0.500820838606441`", ",",
    ) U& m6 {, a+ y, P' L" I+ b7 c+ {! }- a   RowBox[{"-", "0.5945873894818967`"}], ",",
    : q, }' L, @; M0 u5 x# _   RowBox[{"-", "0.1999688587779198`"}], ",", "0.020180806675835994`", ",", 2 N8 |3 B6 a5 X7 @0 [
       RowBox[{"-", "0.03345934908892623`"}], ",", "0.25282438852646905`", ",",
    7 }5 T3 w- h4 k0 a7 J: B3 B   RowBox[{"-", "0.17602467625404622`"}], ",", "0.3961180670900672`", ",",
    " s6 Y+ S3 U" S( O" i2 n+ _2 ?   "0.02759193650965952`", ",",
    : P$ I: l& t2 Q   RowBox[{"-", "0.320472847796449`"}], ",", : K  k  v5 Y- ~. x2 [% p# V- d# q
       RowBox[{"-", "0.07581214474544527`"}], ",", "0.4812237524557292`", ",",
    : C, [5 \) T: m2 g   "0.7528674241482847`", ",", "0.6665374509702799`", ",",
    ) }* g" S6 I) A3 Q: J7 s   "0.22861495086373018`", ",", "0.13092706311748484`", ",",   m5 q, \/ |/ H' Q/ u1 D& g
       "0.5252475961933538`", ",", 8 Q2 H4 {1 V, @- T* k6 D3 }
       RowBox[{"-", "0.10599338351843157`"}], ",", "0.6670272593678526`", ",", : [2 d5 d0 T/ U" M% h1 U
       "0.23580523388620733`"}], "}"}]], "Output",
    , S. t0 t! p7 I0 u' C! ~4 K CellChangeTimes->{3.577924621953125*^9, 3.5779246688125*^9,
    $ [5 B9 ?" r' ]! c* ?  3.5779575884583836`*^9, 3.577958952875601*^9, 3.5779620806661186`*^9, ( H  a% D% l2 Z# T6 _) S* n
      3.578012349875*^9}]& D# i" \8 B+ H7 n+ B
    }, Open  ]],$ t! C7 D: f+ G

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

    % W, s2 t. g9 [7 M; xCell[BoxData[* w- U: V& T+ F8 P0 X8 n6 y
    RowBox[{"y1fit", "=", 2 Q1 D+ ?* Y! E+ s. m% Q' w5 [
      RowBox[{"Table", "[", , j: K* r4 L- q. m& R1 R
       RowBox[{"x", ",",   e( q7 q  P7 }% }% x% B( @) |  _
        RowBox[{"{", ( I  j  r: x% f. v9 q
         RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",! Y3 @# u. D+ y# r4 g
    CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {
    4 L0 E" c$ J, b: X/ |1 J) v- ~0 U  3.5779252768125*^9, 3.577925277484375*^9}}],* h5 V( @  F# A. k6 t

    . }! O; [' D. `8 [4 ]: P- d! hCell[BoxData[
    4 ~: R2 M$ G; Y1 }) i* F RowBox[{"{",
      F* }7 e2 @. M, P) e  RowBox[{
    6 ~  E5 W0 [3 I' h' l* G/ R  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 7 @" u2 d! V( N. {. ?2 V
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    4 g$ n& D: M; U    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    : g! Z2 B4 a/ o% P1 o5 k$ H+ t   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    + k8 r  {+ B+ {9 v1 y7 W   ",", "29"}], "}"}]], "Output",) A, v) Y/ R  Z; }' j! r
    CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9, 1 O5 h+ s6 G; k3 R
      3.577957594916795*^9, 3.5779589579612093`*^9, 3.5779621294942036`*^9,
    4 F) [( H% C( N5 W/ V3 q' ?  3.57801235340625*^9}]# a7 A( }5 {, Y; I5 J
    }, Open  ]],
    " F5 f0 m+ e5 M: e
    & |! l. |7 H" a! iCell[BoxData[% O! I# O  X" B. E4 p
    RowBox[{"For", "[",
    8 m" \3 M" M2 p, U! ~# [  RowBox[{/ C! G4 ^! e1 r2 ^# ^' k
       RowBox[{"i", "=", "61"}], ",", " y6 d8 Q* \- D" ~8 D3 n: y! @
       RowBox[{"i", "\[LessEqual]", "89"}], ",", 9 c3 W* P' g7 p( X/ N
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
      H% M7 ^5 x$ m- T* \* X   RowBox[{1 {& A2 [' E2 m. F
        RowBox[{: G: F3 v4 L/ S) a
         RowBox[{"y1fit", "[",
    ' X% @. m  ]+ c* ~; y# `" G+ ^      RowBox[{"[",
    % j: l; S; d/ U       RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", 3 n4 A% x2 e9 [: l* I0 {5 |& R
         RowBox[{"y1", "/.",
    5 O3 ~* ]4 K7 k      RowBox[{"{",
    ( b) n" y! y9 W- [$ [% u7 }       RowBox[{
    ( D5 q! R7 i# P5 x7 Y1 P        RowBox[{"x1", "->",
    $ b/ H# x5 i; i7 v) T9 H         RowBox[{"Data", "[",
    / l) O. M9 n5 w' C0 ]          RowBox[{"[",
    ' @2 I! {6 p( P- |! c8 N3 t+ m( C           RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
    : ?- S) T9 P* d; w/ T: N$ C        RowBox[{"x2", "->",
    + b  `. ~: t5 X         RowBox[{"Data", "[",
    $ W9 D! U3 Q" `          RowBox[{"[",
    3 d( B" Y. Y4 T/ X8 B           RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    ' Z0 K# f3 G' ^        RowBox[{"x3", "->",
    " S, t; S; E9 n, L. E0 S, ?% j         RowBox[{"Data", "[", 1 D2 l2 i" v. `! _
              RowBox[{"[",
    ; U2 w4 k# E$ t8 }* k           RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 6 t0 ^4 o# S, ^" o6 \0 f
            RowBox[{"x4", "->", , S5 p+ R1 p! S4 W
             RowBox[{"Data", "[", 1 K- E* x6 D* H8 `4 ]0 A( y
              RowBox[{"[", ! V; G2 y0 W& v
               RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", . }: x6 \' y! R* C6 }$ M5 [
            RowBox[{"x5", "->",
    . w, r* z4 T  q         RowBox[{"Data", "[",
    ! A% p% Z( k. `$ y- Z# y% V          RowBox[{"[", # k2 p' G) T6 l. x8 i
               RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
    $ U5 v6 T! P, i/ V0 k7 ]        RowBox[{"x6", "->", 5 m. Y; X0 K/ \# J
             RowBox[{"Data", "[", ( c% U4 G8 `& {% z# r
              RowBox[{"[", 0 _$ z; t" p4 V7 J% P
               RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    ' f8 j- y2 q( f2 I1 s        RowBox[{"x7", "->", 7 C' J' {3 E/ x4 V6 o( t0 O2 k( `
             RowBox[{"Data", "[",
    1 Z6 U6 S6 m$ D2 e          RowBox[{"[",
    + k! S1 [: N, g2 q( B           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", ; P$ \2 L3 \, u. S+ [
            RowBox[{"x8", "->", $ U6 I( I$ S, ~6 u
             RowBox[{"Data", "[",
    + }4 i% y; I* G/ t) M          RowBox[{"[", 0 K: e, [, g5 @3 M9 |5 @% o* w
               RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",", ' k/ ^( t0 {  C
            RowBox[{"x9", "->", : s8 ]" B4 Q/ S- ^- c
             RowBox[{"Data", "[",
    0 O3 \$ A& t; d/ i$ M% X0 G( O) H          RowBox[{"[",
    * N2 r" X0 V: R. z9 z           RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
    ( ~$ b  w1 y5 X  "\[IndentingNewLine]", "]"}]], "Input",4 A# V1 {' q- R
    CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {5 C: I1 U* B. V
      3.577925286140625*^9, 3.577925306765625*^9}, {3.577958922517948*^9, ) \0 [% J5 U; M* ~/ g4 q, I
      3.577958922549148*^9}}],
    / l% T4 m* L- \  h5 P3 F- ^
    , _: o  H, O* nCell[CellGroupData[{
    $ l4 j6 j9 ]# X" x- v& l, l& V+ |/ N5 X4 N  C+ ]7 x
    Cell[BoxData["y1fit"], "Input",
    4 f" h" N" Y) N2 N# u CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {. n) R. `$ B+ v
      3.577925040484375*^9, 3.5779250440625*^9}}],
    , w) i# M) O* A0 y# E- t) u2 O" C3 g# M) y4 _
    Cell[BoxData[; P- `/ ^* F! v( Q
    RowBox[{"{",
      I8 m0 V) V! N  RowBox[{
    " h8 f# ?, L  Z; L! \  "0.43193416525930517`", ",", "0.4501634853493982`", ",", ' x" ?$ C1 y1 q2 Y$ x# W4 l0 Z5 a$ t
       "0.33336034768525247`", ",", "0.4418609896858925`", ",", ( C& N( o3 C6 v! v0 \% _
       "0.41030378932283024`", ",", "0.516814798191575`", ",",
    % h8 o4 {$ g$ E: P! |, n   "0.4476631213729994`", ",", "0.3016552978696669`", ",",
    ' v: s) C! k3 b8 G3 _* o# ^( m9 j   "0.378122167437847`", ",", "0.020339844919720733`", ",", + o; w; y3 s2 j) k: W, E
       "0.018745375782087376`", ",", "0.2919925992695025`", ",",
    & P. x7 w  M& `" G: U' k* i   "0.2649067959681263`", ",", "0.16343444284525593`", ",",
    6 o# D" m% `4 A0 J+ P& n5 C   "0.4182466778551563`", ",", "0.27347752211364934`", ",",
    " T* `3 _- u& j, h/ p   "0.38554057386385654`", ",", "0.35253160453718047`", ",", 1 W& N' i6 @0 d1 }6 f& E( E
       "0.2054745841100774`", ",", "0.45504377112716676`", ",", # a3 n( M7 d7 A$ o* c% _
       "0.1598805094678612`", ",", "0.18662509982279485`", ",",
    + t. L+ d1 z" p* V0 i! o! ^# ~* K   "0.10684797493248213`", ",", "0.013349212673286828`", ",",
    " R  g6 ]' }* a) [) G- \   "0.08215836003004297`", ",", "0.2979041599362813`", ",",
    ( {  Y* X" T+ h. o$ [' y' _% \   "0.05995976512343641`", ",", "0.3884793499104568`", ",", & ]/ V* H, r. N  A: Y% P
       "0.5361889337034293`"}], "}"}]], "Output",: H1 u# q  d, Q1 a2 F
    CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
    7 d# K1 W1 M! N& r, a. h  3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9, 6 N. m# e: O. \( u% h
      3.5779621416934247`*^9, 3.578012355546875*^9}]
    ! {* L9 I  s, j: D+ ]# v  `}, Open  ]],
    7 f1 R5 d6 w' z4 q3 @  C! m4 k7 z5 R6 R& q  Y- I1 X6 }
    Cell[CellGroupData[{
    : ^* H" k3 @* P0 g' I7 A2 z8 U3 Y4 a! i
    Cell[BoxData[
    ' S) {$ ?; C: q; u% u RowBox[{"y1fit", "=", 6 y4 E6 ]+ L! A6 j! @
      RowBox[{"{",
    # M4 P- P) {/ K! z0 e9 a$ x- n/ B   RowBox[{
    # k% Z6 ?$ Z5 a. q   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ! p- k- w: M: A$ m5 w" h& N9 ^  V
        ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
    2 N- {( B: k5 p3 G" D    "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", 2 [2 J: H; D* Y* s; N3 G) B" V
        ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", / Y/ i7 p: w1 ~1 z, N
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", 1 |5 j) b& V6 g& D6 I, V" T
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", 4 A: A2 @8 q7 y& ^8 y& A$ F% L# {2 `7 p
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ; \9 Y4 D7 {" |$ R. g  d2 q
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", & _* B- e; @2 C9 F$ i3 g" z, W
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",   J  A* i7 X) j- B
        "0.4319341652593058", ",", "0.4319341652593058`", ",", & u! f, X! C# X* X  s7 M, x7 O9 S: N. `
        "0.45016348534939865`", ",", "0.3333603476852527`", ",", 9 |% T3 l( q3 ?7 j7 G) b' ?
        "0.44186098968589294`", ",", "0.41030378932283074`", ",", & w' J1 z* F4 Q% ]8 t  F* v
        "0.5168147981915754`", ",", "0.4476631213729997`", ",", 1 `3 Q+ o; C6 c" V( w2 L) E
        "0.30165529786966755`", ",", "0.3781221674378473`", ",",
    - N* N2 f' [! \    "0.020339844919720775`", ",", "0.018745375782087393`", ",", # X. a, b1 q9 r  s
        "0.2919925992695026`", ",", "0.26490679596812655`", ",", % t; }' a  \3 B
        "0.16343444284525593`", ",", "0.4182466778551567`", ",",
    ' }. j! A4 {* R3 S    "0.27347752211364945`", ",", "0.385540573863857`", ",",
    8 a8 ]" l$ f" w# S7 S' F. z- r    "0.3525316045371807`", ",", "0.20547458411007796`", ",", ; @1 A/ @+ K9 v4 E9 `3 q- o4 K6 F
        "0.4550437711271672`", ",", "0.1598805094678611`", ",", & x" v& _6 H/ `$ u9 r) p
        "0.18662509982279502`", ",", "0.10684797493248224`", ",",
    * i6 ]8 C7 c3 N0 M* C0 R    "0.013349212673286806`", ",", "0.08215836003004302`", ",", / h9 }6 a% R6 W+ K: G' w
        "0.2979041599362817`", ",", "0.05995976512343637`", ",",
    1 _8 ~3 a' Z( n$ y1 n3 I& S    "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",
    8 C0 O) {9 k5 \ CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {" j# C0 `# W+ [. \$ _# U
      3.5779621548286476`*^9, 3.5779621618642597`*^9}}],7 [9 x( k) a+ S# B% L+ ]$ J, I

    * W$ \0 o2 f" {9 W2 HCell[BoxData[
    , J7 y3 V' t6 f: g* T; i$ F! } RowBox[{"{",
    1 Q7 b3 u2 j3 C+ i9 D% m- j3 ^  RowBox[{1 I" I/ M# ?" F7 m8 t7 A
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 7 ^# m- V! b! J6 r0 L
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",4 P1 O; g% K: M% N7 b# S
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 9 S- `/ t" u1 p! ]: P* n+ @2 Q
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ) g5 K# W  _9 |2 h
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    " M$ w7 X# ^; _4 h% @   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", + \5 G+ X6 o; _- A0 H( K
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    * O7 C+ l9 O/ `& l: I   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", 3 D0 l# t1 e" K
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", , O. b6 C) E5 `- {( W: p
       "0.4319341652593058`", ",", "0.4319341652593058`", ",", " a) V$ i/ j' n+ y& v0 |
       "0.45016348534939865`", ",", "0.3333603476852527`", ",", ( p, Z  s  L3 t! o
       "0.44186098968589294`", ",", "0.41030378932283074`", ",", 0 g" i* ?: n- d3 ?
       "0.5168147981915754`", ",", "0.4476631213729997`", ",",
    $ a) ?  N9 |5 [" D   "0.30165529786966755`", ",", "0.3781221674378473`", ",",
    + l- ^9 p+ h! U- y; v   "0.020339844919720775`", ",", "0.018745375782087393`", ",",
    : a5 v/ k' y! M1 `( v; d* g  ]   "0.2919925992695026`", ",", "0.26490679596812655`", ",", ; b( N) \% a0 W6 c7 M7 ~
       "0.16343444284525593`", ",", "0.4182466778551567`", ",", " T6 L* n' N: Y7 ~* H8 y. g' P9 t
       "0.27347752211364945`", ",", "0.385540573863857`", ",", 4 j0 f+ R: s. a2 s( z' T
       "0.3525316045371807`", ",", "0.20547458411007796`", ",", - h; g% n/ J3 z9 c
       "0.4550437711271672`", ",", "0.1598805094678611`", ",", / u! J2 \$ l% v% w  N
       "0.18662509982279502`", ",", "0.10684797493248224`", ",", # A& |7 S( ^+ p' j; K" S* Q
       "0.013349212673286806`", ",", "0.08215836003004302`", ",", $ E$ ^  C- M/ h$ Z$ I; t$ ~7 P
       "0.2979041599362817`", ",", "0.05995976512343637`", ",", 1 H9 j& e  ]* C1 e4 h/ D
       "0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",: S6 G, p% A1 ^( D! s6 J: f
    CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9, 3 z) c( b- V- A' ?, u
      3.5780123569375*^9}]1 o- W8 Y" j4 k
    }, Open  ]],
    $ c7 ]9 m6 N6 U. o5 ?* R9 X: d& s# x6 M( c9 m, K
    Cell[CellGroupData[{3 l5 [  c% @9 @% Y, r) h

    ) ^# q; D  A$ wCell[BoxData[
    2 S/ L* m) D( H. |5 o RowBox[{"y10", "=",
    1 z; A6 [) r; s, u7 c& m  RowBox[{"Table", "[", , a) l7 y8 O, s- }  j% j
       RowBox[{"x", ",", ; T0 Y3 z7 [& e2 J& y- t$ ?
        RowBox[{"{", 6 d; p4 s( i: H/ Q# u: f
         RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",& _6 j1 d) `) D7 x
    CellChangeTimes->{3.5779253628125*^9}],$ h$ O3 d- M# ~, g! o* H

    8 v% _# m2 l; b* i, B, ^Cell[BoxData[
    / S- t& }* ?2 y- r& S, ^ RowBox[{"{", 1 g: O. A, X3 L/ |
      RowBox[{
    ; R/ O0 T$ m: d' n" n; a- Z  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    , a: v. f5 i* a& |1 B6 B5 _& J" K) N' P. r   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    6 e, |" b/ d. o6 @: K    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    ; E6 W- Y3 x: U' P' Q   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    ; |; f" N: Z. o, S* M$ Z; e   ",", "29"}], "}"}]], "Output",
    - G& L+ u2 i0 Y& W4 y; ~+ \4 N CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9,
    ; I) v7 m: f0 `7 ]  3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]7 Z) u* z# q. e; v' E* U5 a6 A1 E( p* D
    }, Open  ]],
    # B" Z2 Y8 d( Y2 Q4 C3 l  c# N! e* E! E( S% Q9 h! ~8 _% _$ T
    Cell[BoxData[+ u% G7 Z- s6 J- ~) n- ^( F
    RowBox[{"For", "[", . w6 ]2 z/ ^( \( o3 U2 ]3 {/ B
      RowBox[{. e% Z$ N" p& ^0 y; h% b* C, n) P) U2 W
       RowBox[{"i", "=", "61"}], ",", ' O  b* y  j3 |2 d0 S
       RowBox[{"i", "\[LessEqual]", "89"}], ",",
    ( o. }) z7 }% r6 B) N) {   RowBox[{"i", "++"}], ",",
      Z# C! T( a# t) a% o1 l2 m* E+ `   RowBox[{
    ' E* A1 [" S/ }$ W9 C    RowBox[{"y10", "[",
      B1 W5 t; [* a- R. m$ l, ~$ I2 ~     RowBox[{"[",
    9 \2 q1 X; s3 s& H  E      RowBox[{"i", "-", "60"}], "]"}], "]"}], "=", 0 M$ U. H7 a* {! i" y
        RowBox[{"Data", "[", & i/ C: X8 u( E/ `1 ~* I) _3 M9 A" g& V
         RowBox[{"[", % A, a( j3 r5 d
          RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
    / F7 g# K: Q( R CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    & u9 u+ {, H3 `  j$ f8 @4 `! R   3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, : j% V; a, W' n- _
       3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, , ~: T8 x- R: x' O) w; Y
       3.577958922549148*^9}],+ j" Y- v' f/ m2 D

    ( C, N! ?/ l2 h$ u  RCell[CellGroupData[{: [8 B2 s( _. f/ O
    5 {* u% A% n% F- ^; r
    Cell[BoxData["y10"], "Input",
    6 I! O! U' D% O CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {& a, a2 I+ m! G& `; a0 k
       3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],7 J/ ~, U5 Q5 j" w! Z. t

    ( h2 r5 i6 u" {$ HCell[BoxData[2 q1 J1 d. I! F/ |
    RowBox[{"{", 4 d4 [2 _' d, N$ y
      RowBox[{7 K+ ?$ F8 C: _; I
      "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",",
    ; g) o% r; ?0 I' [7 I   "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",",
    : W7 o) ~+ r; S& q6 q  a# y: H   "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
    * P& A" u: C- d% o+ {: q% [   "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",", $ O. r. G- l1 d. }2 ]
       "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
    1 l! m- o* ^. I. J4 D# I1 d   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",", " W1 G! ~* n4 ]. s9 f
       "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",", 1 p: D! l0 M  \( `5 F% N& a( r
       "0.694935`"}], "}"}]], "Output",0 q1 P: |7 z" c" N: z
    CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, 6 r, k7 l/ T5 o' X
      3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9,
    0 l3 [% C; S3 c; B+ {$ O, W  3.5779621736734805`*^9, 3.57801236071875*^9}]/ F- J6 ?& |' R4 R6 K% P5 S
    }, Open  ]]," u( g" s% E3 T1 y

    , r, N: x6 d9 Z. a! D2 {Cell[CellGroupData[{
    5 ]( P1 Y% L+ ^. h3 Q# d7 Z: ~0 U7 f2 g" T9 }: R$ I
    Cell[BoxData[
    / R5 g5 }2 j- Y" J8 O0 x) B RowBox[{"y10", "=", % G5 L1 A8 g& s& C2 ~: o
      RowBox[{"{",
    ( d  Q) P5 M( x: f* v4 r1 \* s   RowBox[{7 i9 R0 R" C' L9 }
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    " \2 L% @0 T/ n2 s    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ! P7 t2 i8 f6 a% X, `4 q( _
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    . Y6 C( A+ A& S% z6 S    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", % `1 Z7 L/ D; R  N
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    ( C2 ]3 U# \+ H! F. b4 X# y    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    8 {/ I& v; ^* x3 }1 I; ?    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", & ^$ ~. m% K- H
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    * D0 g% O* P2 Z  z" G    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", : {! R4 n! f7 l  e1 x) s
        "0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",",
    & F3 I& `9 T! D# t( }1 A    "0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",",
    ) S, y' ^6 v% S3 A    "0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", 1 J6 ~$ `3 s8 F. o, e5 x! r$ @
        "0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",",
    , _* N- I4 l/ ^+ [% e# a* F    "0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",", 4 i: j1 l( p) a4 v
        "0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", % O+ E! ?- Y4 A" k0 ?
        "0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", 9 H+ R+ g$ z5 s: H6 G. O) P6 _
        "0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",) l- [' t$ N* J4 M! F
    CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],
    3 W5 a3 j" z$ v6 z& `3 }
    ( _* i$ [) r4 G2 qCell[BoxData[
    + v7 [$ E- x& k. {4 L RowBox[{"{",
    * S3 A) L" Y4 ^# ~+ K2 I, L( U  RowBox[{
    2 _8 `* f8 m5 i3 K5 f& K" Y  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    1 i% r- ]3 @5 J8 [$ Z   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",% [1 p* r  b# d3 [% e
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    " w. W9 f0 d7 L' y) t   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",   r1 N- v& D* ^4 b" g' p, j( g7 y$ g
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 2 D2 v5 Z/ a7 [
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    + r& R( m0 G' u6 A   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    - u5 i0 A4 N3 w5 ~. s; l# m7 w5 Y   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", ) t  J" ?/ E* R4 d$ N6 [0 t* d
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`", 1 H, l8 l3 ]/ E; ^' J  Q& v9 d1 {% \; b
       ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", : ^/ ^! B- p/ l
       ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", " S+ W1 L0 Y2 h
       ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",7 l8 x$ X, ]% Q# S1 T5 H9 h
        "0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",   [2 @3 E' {( V* r4 T% I
       "0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
    . e$ y* X$ F6 i   "0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
    & a6 C  S3 b' G2 m8 @) v   "0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
    # k1 ?/ w! l8 F/ N' i   "0.694935`"}], "}"}]], "Output",; {- C8 e" M8 a8 G& J1 @
    CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9, 1 @% a& p( R0 X' ^* X0 q- S7 i% I
      3.578012361734375*^9}]
    , M9 |, ]7 X) e* o  O$ L6 G}, Open  ]],8 H% i/ h) v7 j# s/ v1 `1 b

    " w" n* @- a3 H5 oCell[CellGroupData[{
    % N- J  B3 [1 ?  n9 @
    , m- y+ J* A. `) v* B. k' o: SCell[BoxData[4 T- M% U. P. p5 F% M8 g3 v% F& ]6 \1 H
    RowBox[{"p1a", "=", 5 o; h7 `9 b% p; X: ^
      RowBox[{"ListPlot", "[", ' r9 c: i( J- m- C
       RowBox[{"y1fit", ",",
    " J" G- j6 q" u5 o    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    + J& q7 P* S0 ?/ T$ T    RowBox[{"PlotStyle", "\[Rule]",
    5 c# O# t$ D1 o5 L+ ^: {; |% z) U     RowBox[{"{",
    ' J2 V1 ^7 t: x& |+ c      RowBox[{"RGBColor", "[", , A3 T# t% \& P* |$ g/ ?
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",", 1 `) r' E9 _0 e/ X8 d( t
        RowBox[{"PlotRange", "\[Rule]",
    - x- f1 ?0 n, O% O: u  m5 Q     RowBox[{"{", 4 x! H7 S" X" m* p0 G
          RowBox[{
    4 U7 X9 P8 o2 A6 f       RowBox[{"{", , o3 D  [! Y6 I! y: R6 e- L
            RowBox[{"61", ",", "89"}], "}"}], ",", . ^3 g1 M) h$ e2 E  c1 `/ v) f
           RowBox[{"{", , [5 M3 d: b& l6 W* `
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 1 Z7 h: N: {! K- q% V9 i2 \
        RowBox[{"AxesOrigin", "\[Rule]", " m6 V5 U) R9 j
         RowBox[{"{",
    # T5 Q' |5 q& U: A4 T      RowBox[{"61", ",", "0"}], "}"}]}], ",", 9 |% w0 I+ V4 W
        RowBox[{"Frame", "\[Rule]", "True"}], ",", 2 _/ U  M: C$ [% q/ N9 D" x8 y
        RowBox[{"FrameLabel", "\[Rule]",
    3 z, \8 J2 C. C2 q+ j     RowBox[{"{",
      H( s. }8 m8 `$ N: k. V3 j$ F. k; L8 N      RowBox[{$ q$ N" g! l0 h9 Z: e. d( m8 a
          "\"\<\:7089\:6b21\>\"", ",",
    # R0 K/ j- h# ?* R  J0 |1 m       "\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\: ]( x0 Z  B. c, t- h6 M
    \:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",# ~0 k/ A  P; r8 }$ L; `# B
    CellChangeTimes->{
      ~0 c8 u8 t. o+ g( e  H  3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {9 J$ l$ m  l, T
       3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9, + S( E, Z. a% o) y7 O
       3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {
    & e' O3 K  x7 q4 O8 c   3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],
    ! l" v! K# [' f
    & U- S7 M) P; `$ Y/ T4 ?Cell[BoxData[
    / P# \8 b6 z- D GraphicsBox[{{}, {}, # M: \0 R) \6 l( N/ X; \
       {RGBColor[0, 0, 0], LineBox[CompressedData["
    % i4 W) _, f- ^8 z1 x1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
    5 N* k% @1 P& u0 {1 S6 s+ [1 m+ H# h8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq& b  M% ]2 v$ x+ K; r& ?! \
    D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B" Y3 g1 U  A( O% S
    1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX6 A; u  u7 ^4 B# s4 I" Z! I
    C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN+ T+ B$ ]) H7 n. i
    a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff; @" b; [% R# V& V
    yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
      ?4 K6 K7 T: F( [& b7 xwrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
    - r/ D8 \, a; ~- y' QY6nGQ3sAieueIw==
    4 C4 w& l  N5 K9 }5 o     "]]}},
    ! z( _, U6 b9 a: J  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],8 _, p0 [, x# N' P& x1 h
      Axes->True,
    # ^( |8 A: Z" W; M% B, {  AxesOrigin->{61, 0},  t# `, ~8 ?- x8 `# [  N
      Frame->True,
    2 ]" J' A4 y+ o5 q0 V' F' {! O  FrameLabel->{) v' \! X2 M6 \/ c2 z0 ]2 }1 D2 d, \
        FormBox["\"\:7089\:6b21\"", TraditionalForm],
    6 e1 i+ `, T# s% E2 H9 b    FormBox[( p9 a/ z4 x! V/ T% P  B$ j
        "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
    4 V+ O1 H1 `' F- N\:ff09\"", TraditionalForm]},
    7 K/ M8 c; `1 L  Q  PlotRange->{{61, 89}, {0, 1}},/ v$ L- [2 U6 H( z
      PlotRangeClipping->True,/ N4 G5 X. `5 C- H( e  B/ D
      PlotRangePadding->{Automatic, Automatic}]], "Output",, c1 D- u" w2 O
    CellChangeTimes->{
    ) [8 I  j, d1 r9 j  3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9,
    - n9 M: j( w. x9 p3 T6 b% j   3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9,
    # e% p' f2 D% t0 s, W6 v3 ]+ z   3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9},
    - w1 b; P# t$ ]" \4 c+ \/ b   3.577962187510705*^9, 3.578012396921875*^9}]& j7 Z: B2 U7 T% [* m
    }, Open  ]],1 f5 }' j3 h2 O" Z

    5 ?8 v* V9 t  ~: @# bCell[CellGroupData[{# ]# t5 Q% O, d  c0 j
    ' x# f2 L: D& {  A/ @
    Cell[BoxData[
    1 f4 q' Z/ P' g4 D1 Q7 A. B RowBox[{"p1b", "=", 8 K: t5 u# m9 l' L! B4 C* l4 \- C( v
      RowBox[{"ListPlot", "[", 4 W$ Z: S4 x% i3 D% p
       RowBox[{"y10", ",",
    7 R  x; N) K# p! `! {    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    % `, W7 q$ \/ V7 L7 O: e+ R    RowBox[{"PlotStyle", "\[Rule]",
    % f. ^; c; |% B     RowBox[{"{",
    0 L6 b; t8 W: j" ]/ E- q      RowBox[{0 \0 z, O8 ^: n  ~' y; F( i
           RowBox[{"RGBColor", "[", 6 ]8 L% s+ a1 a& m# p
            RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}], " a0 h& @* Z2 B0 N* m
        ",",
    + R% z6 S# u8 ^+ M4 `    RowBox[{"PlotRange", "\[Rule]", / J8 T  |+ K3 X! R
         RowBox[{"{", ; l* r2 C  E% s) J: L
          RowBox[{
    0 k# m* T; H2 h4 B& p( c       RowBox[{"{", 9 ^5 J6 F5 t6 U; \! l
            RowBox[{"61", ",", "89"}], "}"}], ",", 4 D7 T; S3 z6 k- U1 Y# ]3 q
           RowBox[{"{", # t7 N! Q$ U' x5 L2 y2 K
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 3 q4 m+ f! A& u- q( g
        RowBox[{"AxesOrigin", "\[Rule]",
    1 B+ u$ K, F2 {: J! p. S     RowBox[{"{", ! j  @9 F2 r& |9 r
          RowBox[{"61", ",", "0"}], "}"}]}], ",", $ D* l8 ^" ^) _; Q
        RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",
    & u* n8 \5 v, a CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9, ; u: r. w+ j: @3 p- y* O
      3.5779597764166365`*^9, 3.578012409265625*^9}],
    ! a- }& i6 h& ]% e' v# w' p& W. J& ]% |+ F. Z- I2 S. r7 C; K
    Cell[BoxData[
    3 O. t) v# }7 p  A" e, P GraphicsBox[{{}, {}, ) K; p/ r5 X2 m, r) A
       {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData[": M) g7 {2 S4 h2 P9 j
    1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ- P8 p8 i# U2 s2 v8 v
    /B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy8 N$ p( B0 L. V0 R
    GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy  U$ m: y0 z( O; X1 Y5 B9 R
    GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy% d- O' a$ J& D
    7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
    0 A1 M, O, m$ \% O1 aQu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri0 \( Q5 e/ I4 _2 \8 s4 S) v
    H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV- E# }+ a+ ~) D" j' [4 c
    rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T& a5 C3 I6 G+ S! m2 v
    vA==
    5 s/ r6 y6 q+ \6 y1 [. t2 t     "]]}},* `( Z, k0 I7 f0 C
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    1 F( H. S4 F: `- {, S5 j' X/ x  Axes->True,4 u( \' M/ q, |4 R" l9 y
      AxesOrigin->{61, 0},
    , A, ~% _+ x4 O" [+ z/ D6 ~  Frame->True,
      c% \0 C" R% o6 c  PlotRange->{{61, 89}, {0, 1}},
    - r5 j) b7 ?4 ]9 y  PlotRangeClipping->True,$ }* X  T( C$ {7 \; E# Q
      PlotRangePadding->{Automatic, Automatic}]], "Output",, k; q: ~# |* U
    CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, * k! x  ]9 d8 r! P0 W1 z9 G1 l# `& J
      3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9, 4 w8 H  C. X1 }% H+ C
      3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]
    0 {7 r" ]$ a* v3 M2 T" ~/ d}, Open  ]]," p4 B3 [3 |8 A  _: J/ u
    ' Z3 `9 s7 e6 \' Y: T
    Cell[CellGroupData[{& v+ J+ P* d" O3 V& k
    * k1 m0 v$ O* M7 Q7 R
    Cell[BoxData[
    ! S# F0 `  v: B' [* I RowBox[{"Show", "[", % S- {5 _. ]5 ?9 @6 V
      RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],
    % ~4 @* f# u/ A
    % k" S6 N5 X! S! C5 f* u& }' R  DCell[BoxData[
    : B& W5 m% G' t+ ^7 F GraphicsBox[{{{}, {}, 3 [. E' {; V  F0 C
        {RGBColor[0, 0, 0], LineBox[CompressedData["
      F# {; k' f" n+ O! @# _1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn+ B$ y. A% B. L' ?# ?
    8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq8 d' F; w1 @  x( o# B# ]" N' k
    D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B' |' N$ \0 Z! e+ n# K. ~* h* W
    1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX" g& d0 L: i- s  w: J# l% ~
    C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
    ' V, L1 L' U1 d% ka2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
    8 h3 w3 A, R/ f, z! s1 AyqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
    4 o3 ?5 Y; K/ h+ y5 A% PwrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
    ; \9 `/ S8 u! P. Z2 Z0 ]+ Z, F- jY6nGQ3sAieueIw==( a, n2 A/ q! V( O: a
          "]]}}, {{}, {},
    : O4 T) ?# m& p! f    {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
    5 `" C8 \/ g4 B1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
    ! K( h  L$ b0 w: M9 m0 {/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy9 j0 i1 c/ N# v, P5 b2 I3 z& L
    GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy1 i- f. c, S0 a4 a$ p
    GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
    ' i* Q9 T' a7 u3 d7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
    - D' ]- P, U( Z- ^1 k" g2 ~: @Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
    7 d/ O7 K3 G" I3 o. h& L7 Y0 ]' GH+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV, J8 a9 |- _$ M" h1 G/ X
    rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
    6 _/ q. _& ?% E# n" M/ ^3 k1 f* `vA==
    7 Y8 g9 A  G$ x# B      "]]}}},& @7 t3 g9 }( `* R* s3 D5 C
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],6 e3 T2 X, H7 F6 \
      Axes->True," B9 V+ {% I/ W9 X, U! I4 P
      AxesOrigin->{61, 0},7 g* E$ [& V: Q; T, n; g
      Frame->True,
    1 i% G7 ^; x0 d7 g; O  FrameLabel->{
    2 F0 ]: z8 b) ^$ p, A( w+ J    FormBox["\"\:7089\:6b21\"", TraditionalForm],
    " X4 s% B1 y* `- j' h/ D0 z: A3 z    FormBox[5 Q  r4 k2 G2 E% \# m/ r
        "\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\) N* ]2 A- t: q. [3 S9 l; m2 k
    \:ff09\"", TraditionalForm]},5 H& T- g1 V* {
      PlotRange->{{61, 89}, {0, 1}},
    9 x- A8 a$ x" ]  PlotRangeClipping->True,. l+ I5 }. A7 \$ c
      PlotRangePadding->{Automatic, Automatic}]], "Output",7 R  I9 c" @+ f+ ^# R
    CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]
    1 J/ ^6 o  B# w}, Open  ]],
    4 F8 u6 \6 q, t. ^6 F9 F$ V5 }- X" M
    Cell[BoxData["\:62df\:5408wi1"], "Input",
    % f. Y# [$ J8 j5 c; ]: K CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9},
    , K$ a/ V+ l* b& @  I/ @8 L' Y2 z   3.577959662349238*^9}],
    - `2 M$ f. v: Z) P; k
    ( H" h) \: H& xCell[CellGroupData[{
    0 m4 h2 o1 z" Q* ?1 z+ x. k  M/ j- j8 |+ ^2 I
    Cell[BoxData[
    , Q/ F, L  F# L RowBox[{"y1b", "=", 7 D/ ^! U- _  s+ E
      RowBox[{"Table", "[",
    / f6 ]: `& k2 P# k# ]   RowBox[{"x", ",",
    / r; H3 d1 `+ R. i# Y7 p    RowBox[{"{", ( W, i! `! t* n+ |8 u! S- W! ]% {' M4 b* W
         RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",1 Z3 \, @0 l1 d: a+ A: Y1 T1 \
    CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {9 c6 \* \" D( c8 x* w6 H0 ]
       3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],
    , ?" R0 k/ |  W( K, f
    : i% n2 ~/ Q2 p5 ?" BCell[BoxData[7 N3 F4 I3 e0 z9 L. f1 j
    RowBox[{"{", . h1 k1 x9 k, q5 k: w
      RowBox[{
    2 [  V& c  M1 e) z4 o  Z, @% A  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ) \0 C, g0 g6 w4 q- Y
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",( i; Q# F; o8 ]! ]9 ?: M. e8 u; O
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    # m. i# a& n. y$ a- X3 w1 I- A: S   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 6 n; P9 i1 z3 L" l" h+ @
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 5 T& N4 o% z: _4 C: I1 ~
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", 0 u7 A' C0 b2 K" S% e
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    9 ~' {9 h4 a/ ]6 d9 m& `$ H   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    : k% ]9 R, @9 ]5 s7 |   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
    8 r* e$ L* s' x4 {' g- ~  "}"}]], "Output",! `, n/ B) w& @' i( _3 J5 p+ B0 [; c
    CellChangeTimes->{  ?) C! o( @9 w  ~; O3 Z
      3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9}, ; B4 \0 V3 d% |0 V1 W) k+ M
       3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9, 2 L, |* _1 L8 x9 j+ N
       3.578012438953125*^9}]
    . s' @' o7 D; F" E5 ^5 c}, Open  ]],
    1 {+ n" ?; u0 n7 |, |* {4 s' R
    4 ]! @  u  `1 O+ |( wCell[CellGroupData[{) v+ F& m5 q, v; h3 n# D- G5 {
    5 [* x  L  \, m* I& i
    Cell[BoxData[
    ' L) X' f: Z' D0 @1 I4 U1 t RowBox[{"Data", "[", 5 o( Y% i1 t9 e' I2 c$ h
      RowBox[{"[", * L# e& G- W, \9 C2 U
       RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",* k# O. \; h2 S/ {8 x
    CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {! D# C  `  F3 q8 Z
       3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {
    ' U! s* V4 G5 x   3.577959014090108*^9, 3.577959016040111*^9}}],9 I1 L+ ^: G) a" U4 B* @
    5 [0 U- c* w2 _) f$ c& ^
    Cell[BoxData["0.492958`"], "Output",& y; y7 ?7 @8 X2 \
    CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
    . X% C+ l- Z, j$ ~& Z8 t" u5 f: p   3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9, ( p9 K5 d* J+ h
       3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]
    : ]: r& G3 A9 m' ?: a6 ]}, Open  ]],3 q6 g* }+ i8 {0 d( m) h9 V
    ' _+ ~# |  y- w+ k0 D" n/ d0 A
    Cell[BoxData[; P) [% q$ ~6 C! A/ V
    RowBox[{"For", "[", # t+ K8 h9 C7 W* f
      RowBox[{
    3 M9 q# n8 i6 x   RowBox[{"i", "=", "1"}], ",", ' ?5 a' X7 ~% Z  N- h
       RowBox[{"i", "\[LessEqual]", "60"}], ",", " W! J% j* L' q
       RowBox[{"i", "++"}], ",", + A( l& {6 S. j; }. V. M
       RowBox[{
    # Q% D! r5 [2 [( I' t* \7 n1 D' b$ w( {    RowBox[{"y1b", "[",
    0 ~; w! \+ U# Z; b6 k6 r. t) u* ^     RowBox[{"[", "i", "]"}], "]"}], "=",
    # @! U( Z' F$ o5 u    RowBox[{"Data", "[", 5 d6 c2 L, M$ r! L  E0 v* n
         RowBox[{"[",
    # q6 _4 g  }5 D1 ~" w- m" s      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
    $ y; S6 Z+ {& Z+ k0 {/ m CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {# D. |  g5 X# m0 T# z
       3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9, ! m, j, o" ^+ A  I, G& g" [1 p
       3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {
    * |) [6 R' ]4 M6 ]) W   3.57795902089172*^9, 3.5779590227793226`*^9}}],* T7 L$ h% Z! y( i) `

    ) V1 q8 b, l* N5 S4 QCell[CellGroupData[{% y/ V3 V' J8 C9 n0 B: @

    7 ?# {$ t% X: Z& q5 N# XCell[BoxData["y1b"], "Input",
    , v! J+ j& U8 Z  l! X$ ?. K CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9},
    7 ]! s2 r! t; t- f9 S' r/ e8 F7 w   3.577958484172784*^9}],% Q7 B; c3 Q! b$ x( n

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

    2 v. G  J+ r! D, U0 p# }8 p3 uCell[BoxData[
    # F5 q4 d! a- I3 w4 K RowBox[{"w1b", "=",
    + u5 Z( `: Q4 R% x  W) q  RowBox[{"LeastSquares", "[", 8 @. K" Z# [7 {! R. }( o! ^2 ^
       RowBox[{"m60n21", ",", "y1b"}], "]"}]}]], "Input",
    1 f2 u1 n, u+ |" w CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {2 X# E! }: l7 H7 I5 g/ I
      3.577924662765625*^9, 3.57792466596875*^9}, {3.5779582865360394`*^9, * C$ s0 R1 B, N; Z+ {: W' k
      3.5779582963172565`*^9}, {3.5779622900808835`*^9, 3.577962290377284*^9}}],
    * [: C2 R# {6 t- d1 I- Z6 z1 I9 k" s. n
    Cell[BoxData[
    + A3 e% f+ V, m- G RowBox[{"{", 0 c3 e, m1 ]3 }$ k
      RowBox[{
    + a0 r* M" m( g6 X. ^' c7 w  "0.48228184971363947`", ",", "0.16041393254115022`", ",",
      c' Q4 j/ q' Q   "0.3741982811661129`", ",",
    9 n" s/ X( w6 N   RowBox[{"-", "0.12620581913715245`"}], ",", "0.28831860112966734`", ",",
    + p) U/ F+ u' k% \8 v   RowBox[{"-", "0.2282993884666894`"}], ",", "0.3207174990295839`", ",",
    0 P4 b1 _# g* c7 }   RowBox[{"-", "0.4666313851213302`"}], ",", "0.27551257162880227`", ",", : k0 F& g/ R3 M
       RowBox[{"-", "0.025873988843993667`"}], ",", 4 ?. w' O: O" `
       RowBox[{"-", "0.1339854044819916`"}], ",",
    & B0 N# r3 K( c" L   RowBox[{"-", "0.15852708848338315`"}], ",", "0.3129687276967983`", ",",
    / \5 n) z8 }. ]$ F, @. i1 Q. n/ d/ t   "0.45723850991134063`", ",", "0.2954923840077215`", ",", 9 X3 K; e: @+ U+ A4 L& z& I. ?
       "0.9125798890455868`", ",", "0.21159052285983104`", ",",
      z$ H0 n+ ?9 ?" W; z* S   "0.5575503376854456`", ",", "0.6019775648968265`", ",",
    , G% s: L" `4 R9 [9 V   "0.2361524780938108`", ",", "0.12782130225993923`"}], "}"}]], "Output",
    7 G& U" V! y) E) C' k/ U* S CellChangeTimes->{! b, C& X4 n/ K
      3.577924621953125*^9, 3.5779246688125*^9, {3.5779582894220443`*^9, * b% T+ U% l. r: o$ b( M
       3.5779582992968616`*^9}, 3.5779584995700107`*^9, 3.577959040157753*^9,
    " I8 y, ?6 |0 g" |; A   3.5779622919996867`*^9, 3.578012447734375*^9}]6 \6 w" S+ I9 E8 U  C! f" R
    }, Open  ]],3 F9 a1 ~6 j2 L: \7 M" F- A
    % ^# ]3 _/ P2 e3 |' j6 l0 g8 Z: y5 f# [
    Cell[CellGroupData[{5 A! _# o) K9 K

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

    - G$ Z; ~9 ~4 B1 iCell[CellGroupData[{
    # I; @9 l. R& Y7 J2 ^3 n5 L7 S$ \. k- A  y; z# u+ O: [
    Cell[BoxData[$ c6 L  d/ ?! C0 P8 [: Q; B( }
    RowBox[{"y2fit", "=",
    9 K$ o" q, @3 C# u& r8 A$ G  RowBox[{"Table", "[", 2 P& R5 v+ ?- \9 I
       RowBox[{"x", ",", & D4 K3 j% `/ D0 }' N
        RowBox[{"{",
    ) k: F. ]( Y( |$ _, |' ~* T     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",2 J$ r! L$ s, K% @+ O  c, l
    CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {* O- n+ W" W6 q4 N) _8 U8 x
       3.5779252768125*^9, 3.577925277484375*^9}, 3.5779583246625056`*^9}]," G: z- _; K2 z% `1 W
    . L5 z5 F; j5 c8 F( C/ E
    Cell[BoxData[
    6 M) _( E! Y; A9 C9 C! D: m5 ` RowBox[{"{",
    . S/ `* k! w8 g# }" Y7 d  RowBox[{
    " R+ |- [7 I0 P) @- r  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    3 @/ j! ]5 a' z8 q   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",5 y0 H: `( z1 u" \2 e% z* }
        ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", ' `( f4 |% x8 ]2 @
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", $ ~, v: I1 {. N% c5 j! ~/ N! I
       ",", "29"}], "}"}]], "Output",
    8 {. ]6 h9 g7 F3 i2 X% g8 f9 ]4 a CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9, , X0 ~. [+ [6 x" ?7 O1 J
      3.5779583268153095`*^9, 3.577958508118826*^9, 3.5779590470685654`*^9, + R9 K" N4 k4 r$ [, ~
      3.577962320173336*^9, 3.57801245028125*^9}]2 c7 V! Y$ h. B7 \) O, j9 ]8 v
    }, Open  ]],
    + _, [; n$ C/ q9 f- I+ U( L3 y! E0 P  r% U/ v; X. V4 O* P
    Cell[BoxData[% I4 b0 f6 E0 O; Q1 L; D) P. ]
    RowBox[{"For", "[",
      u, S- f9 F, J4 j7 g  RowBox[{
    6 ]9 h! }9 r' p) f& ]9 ?7 h' a   RowBox[{"i", "=", "61"}], ",",
    # o0 B: n; [% q$ \- F1 C6 M2 x   RowBox[{"i", "\[LessEqual]", "89"}], ",", 2 M6 y9 Z9 j, V0 N( a1 v" V
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 0 s% s) L4 T% N
       RowBox[{( o; C) q7 x* U4 b  ^5 z
        RowBox[{
    2 S* _) b6 {: g     RowBox[{"y2fit", "[", 7 n& a8 I4 }) s" Z' Y) }
          RowBox[{"[",
    2 ~. R+ s6 o" g+ u0 |, t       RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
    $ |$ c" G* y0 h- R4 r( _6 N% U     RowBox[{"y2", "/.", ! Z; g4 j4 C1 l2 c
          RowBox[{"{",
    3 m* I1 b. L3 c5 B       RowBox[{
    1 D7 b4 q8 ]% G6 K        RowBox[{"x1", "->", 9 E, u/ R8 u( }) s
             RowBox[{"Data", "[", 4 X! c5 I6 K8 ~9 u& J9 J/ F8 M# u
              RowBox[{"[", ' _% S. d% o6 q# Y$ C6 d; b  `
               RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 1 x9 y3 E3 E2 g& q) `
            RowBox[{"x2", "->", 7 ]( y  p/ b9 H: y) t; b
             RowBox[{"Data", "[",
    " O" s  I8 Y5 l) r: [          RowBox[{"[", 2 g; |5 f" P# [% c
               RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
    5 ~+ s1 [& m/ F$ H        RowBox[{"x3", "->",
    1 V- F& P# Y6 g# i         RowBox[{"Data", "[",
    % Q. n% _( N  ~9 U1 O5 z          RowBox[{"[", # U3 i3 w8 {$ ~9 V1 r
               RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
    0 K' d  Z# }# {/ p        RowBox[{"x4", "->", & F6 U- G7 \% c4 ]! ]( K) b
             RowBox[{"Data", "[",
    $ E8 ]" {. p9 Y  ?, F) w2 F3 o5 ?$ s          RowBox[{"[", 7 C7 v7 _" t1 m4 ~7 U; W6 H
               RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", . w( G% r' x# t' G* t& |1 M
            RowBox[{"x5", "->", 1 Y# ?2 i" y  k
             RowBox[{"Data", "[",
    ' a- n) _+ V& `  D          RowBox[{"[", ( q7 \# j$ J* e$ ~3 N
               RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",", ( Q4 |" r$ T" c# F8 c  m* T) O) ~
            RowBox[{"x6", "->",
    ) z+ u" D. }' o4 Z( m8 o         RowBox[{"Data", "[", 0 c) a8 o, b% U2 r- @: J4 @) r
              RowBox[{"[", 2 y+ u4 }, J8 n
               RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
    3 E/ x( x, o& S( R7 R9 T1 B1 l        RowBox[{"x7", "->", ; h$ @0 P+ _! A- q3 E) d
             RowBox[{"Data", "[", # [* G% F" F0 q
              RowBox[{"[",
    * y% E3 c% D* P           RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",", 7 ~( \, }$ ?" H0 E" L9 a% C  @
            RowBox[{"x8", "->",
    % {5 l; N3 v$ i' ^         RowBox[{"Data", "[", , Y* F$ q9 s3 x" v" c, s8 Z3 s( C
              RowBox[{"[", 3 g" u$ o7 P0 `: Z3 D& c
               RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
    1 o9 ^# s2 i# e. k1 {/ y; D1 N        RowBox[{"x9", "->",
    ; m1 N; l. }3 D         RowBox[{"Data", "[",
    " q( a3 s8 j7 E          RowBox[{"[",
    . i( U& u" [, @+ M% W           RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
    . S  y7 Z- {" H% y& C' s3 m  "\[IndentingNewLine]", "]"}]], "Input",
    6 F" D5 u; ]: H  Z" I CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {
    / i7 ]0 O# y  x, Z  3.577925286140625*^9, 3.577925306765625*^9}, {3.577958329919715*^9,
    * \7 @, d" R. o& ^  3.5779583326341195`*^9}, {3.57795892351635*^9, 3.57795892354755*^9}}],6 Y$ V$ W- D4 g3 W

    . q2 t1 ~9 a& S1 z/ ]Cell[CellGroupData[{
    / Y* O' ~( t' K" S8 T8 H3 r, S" g! O, Y+ b6 L
    Cell[BoxData["y2fit"], "Input",% q& U. v. o3 b# K% _) @( b9 `
    CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {/ S; b4 J4 u: c' A
       3.577925040484375*^9, 3.5779250440625*^9}, 3.5779583419785357`*^9}],
    / T6 U: C$ a1 i; r: a9 z4 a& e3 h) X+ D* Y2 G
    Cell[BoxData[
    1 c8 v, u" r" S RowBox[{"{", 7 ^- ~0 t- Q- {/ u) {3 B/ Y
      RowBox[{; j- I3 X4 y4 g: b: g
      "0.4853171132859182`", ",", "0.4508635216665074`", ",", 3 x: s) [2 S1 b- a& w( K
       "0.3642119241752518`", ",", "0.42852077425595436`", ",", $ S$ J3 [" M9 V, n1 ]0 Q5 `
       "0.4712694272667798`", ",", "0.5257533056184774`", ",",
    - Y( M. ]  f! p. h. k" V- z& y4 L   "0.48620658140716133`", ",", "0.41106838915591876`", ",", 5 a( K. v: \& [0 V0 \4 c
       "0.5486894206610674`", ",", "0.007731168540073459`", ",",
    9 n- C$ a& c1 M: N; ^7 `   "0.013872406140339109`", ",", "0.3956995051659558`", ",", 2 t3 B$ A4 Z# J; W2 h
       "0.3663118256142708`", ",", "0.29094217358055163`", ",", , k# r+ g1 g1 ]7 J" P: T* r$ j4 l
       "0.5453093690736555`", ",", "0.44138898880777927`", ",", & @# Z) E# X7 Z: q
       "0.42944922031163496`", ",", "0.43092890556748836`", ",",
    3 c$ [+ |# ~9 z+ L& P# z   "0.5942402821739969`", ",", "0.330046090785457`", ",",
    3 o& J* B" `! }" k   "0.18938658036630585`", ",", "0.4263720292858679`", ",", 8 X) l8 s2 G6 v3 a& _  W
       "0.23377136184738775`", ",", "0.02232858193309988`", ",",
    ( n  `8 h/ h9 L9 d$ i9 o8 r6 i   "0.244364200084268`", ",", "0.5562383565309971`", ",", 9 I) r1 X9 u6 {; U
       "0.13114103402954333`", ",", "0.5815052048989465`", ",",
    1 ?( m8 x/ U- t: @# S5 x9 b   "0.4253455966293501`"}], "}"}]], "Output",5 G+ E- G: n, H, P
    CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
      _8 j+ l9 J- l  3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9, & u- C4 p5 W2 Z; M* a
      3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}]
    . N9 v, l! O3 |/ \, Y% @, D}, Open  ]],/ X1 d- a* e- m& v
    ) T6 g' q) ~7 h
    Cell[CellGroupData[{* m4 u, p8 k) G- P# U1 B

    / J& |# n" S+ m" RCell[BoxData[
    ; }! X8 k+ S3 h" |; q5 s) M' q RowBox[{"y2fit", "=", & k& w8 Y6 F/ Z+ @, y
      RowBox[{"{", ; Q! J9 Y+ Q- B: D6 F$ v' v
       RowBox[{- l. E, l+ u0 r9 P/ `- \" K
       "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    8 x9 j2 ?: `0 B" u% B    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", ( \6 Q& y2 n8 p9 v; f9 Z8 Y
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
      T5 u0 V. I6 u, C) c4 `" }0 h4 c# W    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", 1 j* q0 c5 y8 I6 z8 e# l
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
    + r# A/ Y3 w3 M! {0 I. y    ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
    + C$ h$ e" n9 j3 Z4 w7 _    "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", 2 C* F: M5 u, z/ v, |- t3 ]6 Z1 `" ~
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", ; r2 M0 m9 ]2 @( d' ?! z$ g6 f( h! N
        "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    # |( V: s  u5 n" i. i1 q: G4 {. S    "0.48531711328591953", ",", "0.48531711328591953`", ",",
    & U6 l3 r% \/ w- T    "0.45086352166650845`", ",", "0.36421192417525217`", ",",
    7 t# `- N4 ?3 c3 q7 I    "0.4285207742559556`", ",", "0.4712694272667811`", ",",
    # f# l0 d. `! k9 Z: I! Q" g    "0.5257533056184786`", ",", "0.4862065814071623`", ",",
    3 a  M+ ]/ r4 ?7 _( T    "0.41106838915592014`", ",", "0.5486894206610683`", ",",
    % d' k; C$ h3 m2 l    "0.007731168540073532`", ",", "0.013872406140339166`", ",", $ ^' l  U+ ~* L
        "0.3956995051659565`", ",", "0.3663118256142717`", ",",
    2 ~- e0 Y, g. y; L: q0 A    "0.29094217358055185`", ",", "0.5453093690736568`", ",",   s4 M$ G5 D; Q
        "0.4413889888077799`", ",", "0.42944922031163585`", ",",
    0 Q6 @7 y4 y* w' |' _8 a    "0.4309289055674891`", ",", "0.5942402821739983`", ",", 9 P8 o6 }9 C( b* R; {( Y0 K0 \  b
        "0.33004609078545805`", ",", "0.18938658036630632`", ",", * N- D6 M% l9 u& z2 ~$ x( ]) J, X
        "0.4263720292858688`", ",", "0.23377136184738778`", ",", + x% S( t5 K1 l& @' l: a
        "0.022328581933099827`", ",", "0.24436420008426807`", ",",
    6 _: d1 m, ]1 q+ j    "0.5562383565309981`", ",", "0.13114103402954314`", ",",
    ) A5 r3 I* q8 v) s    "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",* o8 v1 e5 S. Y; Y
    CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {9 h$ g, u0 h6 M6 m  x2 @
      3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9,
    7 \1 d( W( a$ p' n! l& \  3.57796233957977*^9}}],
    + E4 |. c8 s& A* x1 M) S( H9 k0 S" R. Y3 T7 C0 a) X- m
    Cell[BoxData[- E, v5 Z$ w2 _5 l6 s
    RowBox[{"{",
    : _* K* [2 f7 @+ t! j2 t  RowBox[{  O: J! {0 @$ e. ^+ d- j& E
      "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 5 @$ ?' G3 n) Q1 g! d
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    % |3 O  v8 a$ k2 e    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", ! d0 W" \; ~6 i# @1 N0 v
       "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", # z, G* ~- `* v( Q" R  L
       ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
    ) U. k0 n+ ~( V) K) J   "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
    : o4 p4 ~# _* R5 m   ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
    * c8 R* W- b+ f: R/ F   "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
    ! c$ y' u9 e( D   ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", # g  K# K- _* v1 t
       "0.48531711328591953`", ",", "0.48531711328591953`", ",", 8 F2 F, F; Q, s1 p/ A0 o
       "0.45086352166650845`", ",", "0.36421192417525217`", ",",
    4 W/ u! z, ]* l$ Q   "0.4285207742559556`", ",", "0.4712694272667811`", ",", # ~  k7 d0 M' J) I3 {; k2 E
       "0.5257533056184786`", ",", "0.4862065814071623`", ",",
    ( \4 s' H1 q. a9 R* s7 A   "0.41106838915592014`", ",", "0.5486894206610683`", ",",
    + ]# n* j7 i) M# O2 x   "0.007731168540073532`", ",", "0.013872406140339166`", ",",
    ! X3 V9 x) n6 p/ |. |' y3 E   "0.3956995051659565`", ",", "0.3663118256142717`", ",",
    ) d" t7 j6 g# f0 I   "0.29094217358055185`", ",", "0.5453093690736568`", ",",
    % u7 J1 G2 [& P9 K: p. R7 z: Q9 R   "0.4413889888077799`", ",", "0.42944922031163585`", ",", & j6 R5 I# L1 r1 h' N4 T
       "0.4309289055674891`", ",", "0.5942402821739983`", ",",
    ; I, P3 I& s6 q8 H% l, v   "0.33004609078545805`", ",", "0.18938658036630632`", ",",
    4 H  N& {  I# V/ z   "0.4263720292858688`", ",", "0.23377136184738778`", ",", 1 g+ U( z  F) j3 X* E2 W. ?
       "0.022328581933099827`", ",", "0.24436420008426807`", ",",
    2 J$ y. \% Y' c, p( H, a- H  Z   "0.5562383565309981`", ",", "0.13114103402954314`", ",", 6 M- Z1 m8 g# i
       "0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",) O7 s& Y) k7 A! B5 x% b& A
    CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9,
    1 |, O! e! h9 n0 X& t3 A  3.577962342060174*^9, 3.57801245340625*^9}]
    7 z. s+ S- n! m. {}, Open  ]],
    4 _9 f- E& M/ ?% E. R& A  E7 I# F9 S
    Cell[CellGroupData[{# h& N& y. Y- r* q  ^2 s
      i% u% r: K8 l; Y5 G
    Cell[BoxData[
    , x  |6 p# u* i  R9 D RowBox[{"y20", "=",
    & J6 a. G0 _! r# l# v  O! S) N  RowBox[{"Table", "[", 3 h7 R$ m3 z& E" L
       RowBox[{"x", ",", : z  t) a) J, _1 D# k/ T7 B- h# H, G
        RowBox[{"{",
    ! u! A; m" ?7 v     RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",  |7 r! h( c0 k. y, K7 E) V
    CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],
    $ ]( |/ f1 r+ N! [8 H
    5 u. J$ ]. B0 d% S  o0 |- tCell[BoxData[
    ) U" ~; C! q/ ` RowBox[{"{",   P9 L! p7 ~7 C9 b! S
      RowBox[{
    5 h3 d! p; e/ _! j# N+ U4 R  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", & p5 l/ u, H  h0 ^5 h; h
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    3 [7 D* ?+ T7 s# G9 H" M7 I" R    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    $ X- F$ z  C/ r4 q# R" u# l   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    4 o; ]7 Q3 i2 f9 @# `   ",", "29"}], "}"}]], "Output",
    . p" ~' y( t, {" p' s* h9 @ CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9,
    9 x0 B  }4 v7 `/ \) j  3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9,
    , V( r5 D4 I, w  3.578012454875*^9}]2 R3 }5 ^; g1 G1 K2 Z/ n
    }, Open  ]],
    7 e9 h' S8 D# K9 O$ C5 |5 O/ u. M  ~* B3 C3 M# q: c
    Cell[BoxData[
    0 b% v6 |, }- h. y RowBox[{"For", "[",
    # f6 {( m- y* t- _" n0 u  RowBox[{
    1 G, z; y2 Q8 P" z8 J% Z  g   RowBox[{"i", "=", "61"}], ",", . r' `( |" P' C: s) S, y$ P
       RowBox[{"i", "\[LessEqual]", "89"}], ",", ( L+ f! U3 w6 X  t
       RowBox[{"i", "++"}], ",", # _0 `# E* D0 L3 o/ H  r
       RowBox[{  L" ]4 \  B6 l! Z9 f
        RowBox[{"y20", "[",
    " q1 s0 {# I( ^, L6 U& l, H     RowBox[{"[", 8 G* P9 G% q9 Z8 l
          RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
    2 ~! G: o# h  n2 ?4 T- ?    RowBox[{"Data", "[",
    * M' X* C4 L3 B+ h( H     RowBox[{"[",
    * G# \( i5 f2 y4 \+ A8 X5 K3 P      RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
    ; c) s- s4 o  ~, d: T" s CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
    6 L, U3 q' u" F5 x7 h: [: }  3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
    $ j" B# o3 j9 F( V* E2 T5 a  3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {3 {  }' ]( Y% d+ j; m/ ~6 Z
      3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9,
    : U. V+ e1 @# B+ t  3.577959058690585*^9}}],6 j; R6 X, }8 b& [
    / N7 x2 U4 B9 o5 Z4 r% }
    Cell[CellGroupData[{$ H0 S# d* Q  d# r; U* E! T4 Z

    ! `1 O- ]$ l  v, L$ l) I7 v* ~Cell[BoxData["y20"], "Input",
    6 X% q; g6 F, v9 o  A: c CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
    ' X% Z0 ?2 R' x3 N& h+ c# t   3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9,
    8 N: b! w$ a9 k! P6 g$ H   3.5779583657841773`*^9}],
    ; L, E  L8 u+ X: c4 f& n& w! C3 P& L! A9 S0 ^
    Cell[BoxData[
    5 a+ [; U! [& K1 h& W8 f- U$ t0 ` RowBox[{"{",
    ) K/ h! K* O5 r: k  RowBox[{( z4 h3 A* t0 h0 o
      "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",", ' w, c3 ~4 N1 }5 ]/ T, @% P& s
       "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
    - e2 N2 u$ u+ x1 E( ~5 A% u# m2 N   "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
    $ w4 `( n, ^5 F: r   "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
    ( s. v/ l7 Z; v+ m3 J8 }# S3 l   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
    , |) e: J* m3 Q5 S9 C; S% M) e, {   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
    ! c. J  i( H! J( v+ T   "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", ; n9 Y5 P4 X  a; m1 \9 b+ J. P
       "0.323944`"}], "}"}]], "Output",
    , G3 k/ G% _( N: ~( } CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9, 4 o% X5 ^3 |7 [; M6 E
      3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9, ( C% B4 I( s$ ~
      3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]
    7 |, A/ l# [+ o}, Open  ]],
    . v) r# o9 F8 F$ ^. o
    + w! J* f0 V% b! eCell[CellGroupData[{; [0 K( h) S2 L/ l+ B2 n2 h) `- z6 q, e

    ! ~" }6 p& o, |: B9 P$ I0 U% ^Cell[BoxData[7 v( _) ?2 K+ {- R
    RowBox[{"y20", "=",
    + N6 |2 a5 r8 m& W0 b9 ?  E: v  RowBox[{"{",
      T; l9 u! f1 h" m, e- V   RowBox[{
    " E- ~4 z4 f5 x. Q   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
    % T( g) ^  f$ J9 K    ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", : |4 o7 k5 c( O( _
        "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
    8 N* U" g! \: _! g1 R* @/ R8 u    ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", $ T! H0 S$ r. R: {
        "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", % S) X' j) j3 y1 u# B! p: o" H
        ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", $ l% x0 [1 g, _- H
        "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", , k- B& G; G7 O- a5 C
        ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
    % h1 K  x& @5 N( {    "54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
    + L! }; _( y0 W5 k" z6 _    "0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",",
    % ?9 X/ Q9 {& b- k1 k: n& y    "0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", ( J/ o1 _2 Z( r7 t# s
        "0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",",
    6 G: F( S' c, P' E    "0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", 9 {" ]( b: ^/ D) i( o4 v% n
        "0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",",
    - f* x# m! P% ]$ m. y4 H- [    "0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",",
    - o2 V8 }" w. A* ?$ J& b    "0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", / @2 H; U1 \: s# C% D  |
        "0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",4 m* y' \: N  |9 K1 J: P$ ?+ t8 u
    CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],% Y9 ~5 I9 y4 q3 u$ ^0 Y
    ' G8 b+ E/ D8 Y0 T4 ^/ b. P$ C0 C
    Cell[BoxData[+ C2 w( r* w" f
    RowBox[{"{",
    ( B; Q- K# f6 q* S8 Y  RowBox[{
    ! Y) Y. q& _+ J& L( O  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", $ Y2 b+ [6 F' @1 T5 m3 @7 F
       ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    - |+ F5 |) z7 Q9 J  k    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
    % f* ^" e7 c) T5 L   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
    + _0 O$ f& ^  G7 p9 D1 U! f   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 9 p8 C9 w$ [: S
       "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", + K. N" z6 f* X$ u& \/ j% d
       ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", ; z# ~9 }8 j2 g2 v3 R9 W
       "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54", * I! D6 g& Q4 L$ z
       ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`", 7 A1 k" Q* A% C8 x1 {* q
       ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", 0 o# p6 V9 @: m! L3 |6 H
       ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",& A0 E. ?; Y6 [! T
        "0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",", 7 t& O. Y6 ^* D
       "0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
    * n7 [; H- p7 F- t/ R; t  O: j   "0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
    , t" |1 `8 Q" p  v! f! m   "0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",", : H8 m0 |" y# ^; I; P# |
       "0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",", , P# p" Z. R2 {$ D; \
       "0.323944`"}], "}"}]], "Output",
    / }; H. q  a" s7 O) h6 I+ P CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9,
    5 {( K: c! I1 G: o  3.578012457234375*^9}]- l  G+ Z+ {5 y, j0 v  p8 S1 }; Y- `3 N
    }, Open  ]],
    2 n8 i0 e* ?( n1 @" r6 ~1 ~/ F, J3 D  c; T
    Cell[CellGroupData[{
    ) k8 H- E5 A3 Q8 D  z& z" d5 D& }$ x0 x3 p  I
    Cell[BoxData[& L. @# q" C0 d2 u' r
    RowBox[{"p2a", "=",
    3 {& H8 L0 F; j$ n* w6 Z  RowBox[{"ListPlot", "[",
    - m  B5 K' d6 h' A% ^   RowBox[{"y2fit", ",",
    0 ]0 U7 q8 s3 |7 v* v7 z. g    RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    4 e5 m7 K/ L8 Z; F0 h% L    RowBox[{"PlotStyle", "\[Rule]",
    8 _' c# y0 Y9 z3 g8 K& I) y9 ?6 h     RowBox[{"{", 8 ]% G- {# k! Q5 F  @0 y& ]4 Q9 ]" n0 w9 A
          RowBox[{"RGBColor", "[", 4 Y4 K( }$ x7 L( k3 M
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
    0 }9 p/ R2 {+ D7 `9 N% Z    RowBox[{"PlotRange", "\[Rule]",
    + k; O: G7 ~! Y     RowBox[{"{",   m7 n2 G5 _+ }7 R( H: q
          RowBox[{6 ?/ S/ E7 N1 ?/ v
           RowBox[{"{", 3 d! S. ~+ \: r* L* O$ w$ A! u* O
            RowBox[{"61", ",", "89"}], "}"}], ",", + h. k1 h. d+ }1 O4 k5 L: ~  B1 i
           RowBox[{"{", " ^! M* |( H4 N! _' H
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    ! [$ m% j. P# ^* k4 O" I" J. S    RowBox[{"AxesOrigin", "\[Rule]",
    4 [! C& i, z4 e5 ~3 j) {. H5 b     RowBox[{"{",
      p% l5 S' x2 O      RowBox[{"61", ",", "0"}], "}"}]}], ",", 3 S/ z- x( A. f
        RowBox[{"Frame", "\[Rule]", "True"}], ",",
    + i1 n% W: k' j; l2 @" `4 z& b    RowBox[{"FrameLabel", "\[Rule]",
    9 Z) _$ i1 }$ \* s3 L     RowBox[{"{",
    6 ^+ W4 k3 n" Q9 W% E      RowBox[{
    + V8 V% r5 \/ H" g( b9 l      "\"\<\:7089\:6b21\>\"", ",",
    , r$ X& s* c1 o: a       "\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\
    9 o% K2 c! r7 X* T. [) @/ |4 H4 r' `7 z& F\>\""}], "}"}]}]}], "]"}]}]], "Input",- F* G6 s, S% L5 @2 Z6 P' T# D
    CellChangeTimes->{9 T% Z1 a7 I3 w6 f, g: Q/ p
      3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {/ O2 c5 W' [# S9 s+ X1 W: g+ u
       3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9,
    + a" v+ Y" v, F   3.5779585491624975`*^9}, {3.5779592802577715`*^9, , }3 i& L, _, J$ v
       3.5779593014270086`*^9}, {3.5779594039971876`*^9, 4 v/ Z5 i! G/ [. [. r
       3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {
    % C2 ]( L. R2 A5 P; B/ u   3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9, $ A) H! ]9 a& P0 `
       3.578012920859375*^9}],
    - J* ]! D6 y3 z7 G. l( e  I& b7 e
    Cell[BoxData[4 U9 K" c6 ]6 P; \. j
    GraphicsBox[{{}, {},
    # B6 j" B3 c  W% L! l* w   {RGBColor[0, 0, 0], LineBox[CompressedData["
    - ~# p8 E0 d& j- i3 \" ?4 x* }# @1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM+ A% w7 M. }, g6 @- M/ E
    /g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ; Z5 [$ h6 o) N  i: w: w
    9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
      c" t' k; x' Q* KofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC" K6 \  _& ^) c3 b! w
    qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
    8 I& T) k# f; u; ^! N5 J) A/ Q! m0 \1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx2 V9 i3 W' J, u5 o0 c" b# e: T
    0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1/ g/ T3 \# y8 j2 S; L* s& D
    sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH7 X3 G5 _( K2 U5 p8 m" @1 i
    99yxuG0PAHw7nyU=
    3 k$ f3 i: ^$ U     "]]}},
    ( W- R# W  F' x9 K5 F8 i  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    % m/ X9 E0 m$ {$ e+ s* c$ @  s' A  Axes->True,
    & _6 S, W  J+ a- o  AxesOrigin->{61, 0},
    / q& I5 m9 q" ~3 Z5 E  Frame->True,; c  h% Y4 P" t  @; @0 Y$ p' B) P
      FrameLabel->{
    ; I0 b9 q. f- j8 R6 Y, y: o    FormBox["\"\:7089\:6b21\"", TraditionalForm], * W$ h" n- K1 D: k% o' C3 d
        FormBox[5 m5 S# q, D& F. I" Y
        "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", 9 P: f8 L) l- t2 B, G# C
         TraditionalForm]},3 [* a6 V+ B' {- M  O$ N; v
      PlotRange->{{61, 89}, {0, 1}},
    7 j4 P- m8 n+ D  Y+ M  PlotRangeClipping->True,
    ( ~8 Y# O3 J- e! o  v, M) Q  PlotRangePadding->{Automatic, Automatic}]], "Output",1 q/ o" H, _) M) ?/ B
    CellChangeTimes->{$ K$ `) ~  Y1 v, {8 ]  T8 j* L
      3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9, 8 H8 j) i2 l6 W5 i7 v2 L% z# w; B) s
       3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9,
    $ A( p" h  l. g) x7 q6 B   3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9},
    2 H  o% |+ z8 P+ \   3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9,
    ; f; s- K! B* x5 Y8 h1 P# `   3.57801247209375*^9, 3.5780129225625*^9}]  p2 \* K. M9 {
    }, Open  ]],
    8 B8 n" \2 ]' C. f7 w! _6 T1 {( t
    Cell[CellGroupData[{# {* Z! S' b9 L9 K

    3 _$ f& M  ~: gCell[BoxData[
    $ x' T6 j4 V& v* E$ H RowBox[{"p2b", "=",
    + ?/ J/ @" M5 d1 S) x  c; o  RowBox[{"ListPlot", "[",   a* |0 {  g% t/ V: H7 s% Q
       RowBox[{"y20", ",", # ^& H* V6 x" B7 D" ]
        RowBox[{"PlotJoined", "\[Rule]", "True"}], ",",
    2 \, Z9 E  `& M" M    RowBox[{"PlotStyle", "\[Rule]", & V+ s  y2 X! J' ]( {2 O4 B; c( {
         RowBox[{"{", " _# P3 k* f: |7 q
          RowBox[{& ^6 z9 L8 m! j. g
           RowBox[{"RGBColor", "[", - p( J% ?  u  y+ h
            RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}], $ n7 e* Q0 A/ l) w- T: w6 n. c
        ",", ) V; W  r+ Q, E9 w- n
        RowBox[{"PlotRange", "\[Rule]", ' P2 ?. }5 v, V$ Q" z0 X2 L
         RowBox[{"{", 9 a2 m$ S% q2 u( Y: A+ D" Z
          RowBox[{2 Q2 ~1 [& g/ \/ b$ \, v
           RowBox[{"{",
    5 B+ S6 T- m# a5 m: M# J" O        RowBox[{"61", ",", "89"}], "}"}], ",",
    4 ?, x1 h, I- w# j4 |8 }6 O! C+ W1 f       RowBox[{"{",
    ) h6 E/ S9 _* _0 L  a- {: X        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
    , `+ K5 T" a: W' h) M. t8 g    RowBox[{"AxesOrigin", "\[Rule]",
    ( Y' [& }3 W+ o( v# H: Y# I     RowBox[{"{",
    * A7 I2 |! _1 @. k9 U* Z      RowBox[{"61", ",", "0"}], "}"}]}], ",", " c% p+ h( S: [8 d4 _
        RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]], "Input",0 c. |; i' B, U! c
    CellChangeTimes->{
    6 m& u; [5 v$ @9 I: f+ ?  3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9}, 1 R. c/ i- ~  Q" {
       3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],+ k8 l* M) q0 s3 k" _5 q$ \4 s  M
    % g+ h9 u6 x/ r5 k
    Cell[BoxData[
    4 B5 V6 d3 V( _# B. c' q2 T GraphicsBox[{{}, {},
    ; F7 u" Y! |& q% E, J! v: x% o   {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData[". Y- G0 _! \& a) F5 {" H
    1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn! O* U6 i. K8 B4 p/ a
    8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
    : K: o$ e$ m* E( [( M4 fc/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc& P5 Q0 |# A% `
    iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
    1 N% O3 K" D8 j7 X' O! mTZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO0 I+ i- N) h/ H9 c* a4 \5 X
    fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB7 v. h: S' H7 i
    TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG/ ]$ P. c  W6 X4 S' a, K
    p0OYg4Fg/tz63VfsAdsCnzU=
    : |+ p$ h1 C* M( q     "]]}},, A- S( }! ^4 A& i0 Q' h
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],6 n4 ]2 \; u8 P/ Z6 G: C2 i
      Axes->True,4 y& U$ g- @: k6 ]3 J
      AxesOrigin->{61, 0},
    3 E( U* V! [' Y  o+ X# C. ~: c  Frame->True,. o$ w2 A) E' N$ ^4 X
      PlotRange->{{61, 89}, {0, 1}},
    ' J3 F8 f* y3 j3 f' f  PlotRangeClipping->True,, m0 w' c3 ^0 X  F
      PlotRangePadding->{Automatic, Automatic}]], "Output",' q. |2 d; Z: ~, w) P
    CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9, 9 e5 Q) y9 F! Z: E2 O9 U
      3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9,
    6 l: B2 o5 O) v) |, R  3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9, , {9 d$ T3 U, K/ q; ]* ^% [/ C: y0 f1 }
      3.578012484703125*^9, 3.578012925875*^9}]' B4 y" A4 P5 J) d8 V$ b7 u" i
    }, Open  ]],
    2 n( U; ~( g$ B! R/ d
    , d6 D) e, A* \; tCell[CellGroupData[{
    ' v2 \; a7 c- U( R: M2 k; M0 v# `9 }6 T
    Cell[BoxData[
      I; g# J: M* U) Q RowBox[{"Show", "[",
    . Y6 Y! _: y' I3 W& D  RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],
    1 ?* k, @# ]& [. ~- B& P: U
    & ^* u1 j6 e7 V; r2 r1 zCell[BoxData[
    4 w/ ]& D- L3 ^ GraphicsBox[{{{}, {},
    : e8 X5 g4 v# S$ r) V/ d$ Y# f    {RGBColor[0, 0, 0], LineBox[CompressedData["
    ) \6 _% q2 W* P# t, `, v) f5 B7 ]5 `1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM3 f) }6 C. A+ |/ n. b+ M
    /g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
    + q. A6 j" V) \+ [. d% O9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
    ; c: V) c0 U" q7 kofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
    ! U( G3 A* f/ b: l! _: AqPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
    ( }3 B; g+ U; z4 T' l- x/ N1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
    # Q+ D; I) g: j. K2 U0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
    / z( T( V. }* W2 _; csPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH+ `" l2 d$ x- S( Q) _3 w
    99yxuG0PAHw7nyU=
    ( x$ q* |- W# f3 w      "]]}}, {{}, {}, " [! @0 I1 k4 I1 A
        {RGBColor[0, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["( }( W( g+ s- v2 V6 w$ |) l' H
    1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
    5 {2 |' S# X$ x6 r% y9 F! Q) Q8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV5 W$ q- O2 `/ t, k" @% z% e. y
    c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc3 \" R: B$ c) r4 q: r
    iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
    , N5 n! W3 R  D' B( ?TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO- ^, q; U/ E* E# M/ k3 r
    fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
    2 }: X$ E0 [' T+ p: dTWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
    $ c  Q/ h' |1 v7 S7 e6 ]p0OYg4Fg/tz63VfsAdsCnzU=
    # Y- k. F. c6 o- L6 L' _      "]]}}},
    . P; m& D+ c/ l+ F  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    - I9 T/ i) B3 t+ S4 o  Axes->True,1 o( a0 U0 z5 y+ M3 N
      AxesOrigin->{61, 0},
    ' c/ W% Q  ]1 L9 c' e0 P  Frame->True,6 {: I% M  K+ P9 W# |) B  K3 [
      FrameLabel->{& x$ Z. w" Y/ H6 v
        FormBox["\"\:7089\:6b21\"", TraditionalForm], 1 h9 C& J; E5 n
        FormBox[
    * ^9 }. Q/ H- f( c3 ]    "\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"", & x9 B& g1 k; X; i2 k# z
         TraditionalForm]},8 `9 ^8 W* F) _& x- \; ]
      PlotRange->{{61, 89}, {0, 1}},2 l% k( z$ E& D' D& L
      PlotRangeClipping->True,
    : i( y6 F6 V$ v8 O: O  PlotRangePadding->{Automatic, Automatic}]], "Output",
    3 }  w# m1 t  F. s CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9,
    / ?- W4 P8 R% n. R/ m" ^# d  3.578012927734375*^9}]  A3 h. E7 S, S* }! E; a. G
    }, Open  ]],1 }4 g- A. x& D

    $ |" S# M! E  \3 g4 s8 ?Cell[BoxData[, V6 m+ y  K2 |+ Z/ r
    RowBox[{"\:ff08", 0 |$ I3 i, o$ w. e  m$ d4 {
      RowBox[{
    2 q8 C" Z5 `0 J. H7 y5 U  "\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406",
    # F) v& t- w  F! ~; ]' D   "\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621", * `% ^8 g" l6 Q/ H7 ]
       "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208", $ q* _6 X7 F1 d/ g) [: v0 `6 u
       "\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0",
    - ?1 `' `8 T# P* u   ".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\
      [- E" ^. H  R  f' K\:4e3a0", ".6224", ) t( j  ^+ A! x. T; Q
       "\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],
    ; Z2 S9 N% @7 R2 x6 j   "\:ff09"}]], "Input"],
    ! ], [4 Q+ a" |% _3 ^  k8 i+ J5 @6 L* Y, S( Y, C. [) n
    Cell[BoxData[1 }) F( w/ b4 [% @
    RowBox[{"{",
    ) [8 `9 u& u2 f4 e" J5 W; R* r1 `  RowBox[{' ?$ ~1 s7 {7 ~- e$ z
      "\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",",
    ( \( ^/ Y$ G/ Z6 `# r   "\:5439\:6c27\:91cf", ",",
    0 E: O" R2 x- e1 W   "\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",", ( L- J: H+ b8 u, I0 X* ~
       "\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",",
    % q4 l$ g4 {2 V& V; M! M- Y   "\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",", ; i1 D  V0 n) W, P0 `
       "\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",", 2 Y6 l" \/ z; q3 r& @" H7 c
       "\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",",
    7 p! D9 `. t& e   "\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],
    " k  a! S  z2 W" u0 [7 `( O& b
    . Z8 U1 a& u- w4 g2 @Cell[BoxData[" "], "Input",
    8 s5 w+ F3 u+ s CellChangeTimes->{3.577962834553033*^9}],
    " x' z$ x, M) D5 f2 f
    6 m" R8 N/ \! C7 ~/ \$ PCell[BoxData["\:94a2\:6c34\:7684\:78b3\:542b\:91cf"], "Input"],
    , R) s% O8 V# Q4 L3 e' h, Q7 W, ?. q# S9 U7 j5 u' U5 f
    Cell[CellGroupData[{: T% [  z8 Z; B/ @6 W! \% F
    ! y& F1 P+ n2 y3 ]
    Cell[BoxData[
    5 n5 Q: E, f+ v! q% G RowBox[{"y1", "/.",
    / y5 Z$ u0 r3 Q- R  RowBox[{"{",
    * g# X' p( O) {6 l! \   RowBox[{  H& ?6 u$ R0 C0 T* s; ~
        RowBox[{"x1", "->", "0.7406"}], ",", + e9 H1 j8 m. o! ?- G0 ^: V) L3 b
        RowBox[{"x2", "->", "0.4621"}], ",",
    * A: D1 o. S. S  a* t+ q% s    RowBox[{"x4", "->", "0.2221"}], ",",
    1 @2 T$ K: a$ \  O    RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",: p: r. G" N  ^* Z& G: N1 l
    CellChangeTimes->{{3.57796267209435*^9, 3.5779627224200373`*^9}, {
    8 e# u  Y$ V# j# L  3.5779627663029137`*^9, 3.577962774820529*^9}}],
    : p1 W. W7 I* z# |8 i) \
    $ w  R7 ]6 w) {, U5 z, @, }7 W( oCell[BoxData[1 y$ ~7 S6 L/ A( l4 c
    RowBox[{
    6 r3 H8 ^7 T# K/ f: F* h# x! Q  RowBox[{"0.2286149508637297`", " ",
    / x/ Q3 E$ B% m# p   SuperscriptBox["\[ExponentialE]", # }, c& P  [) k/ ^
        RowBox[{"3.1415926535897936`", " ",
    ! t0 i6 i% t: i/ Z, q     RowBox[{"(",
    & x3 X5 q: M+ X      RowBox[{0 c+ |4 Z. I( c  k5 S
           RowBox[{"-", "0.17911224641499998`"}], "-", ! [0 G( @$ E* Y# E+ o
           SuperscriptBox[& u; f1 |5 x# ~5 y: R
            RowBox[{"(", ) |' N2 Z) T3 Y3 A. v! t
             RowBox[{4 F5 b  r9 X) I$ ?& w; W9 |  i4 M% h
              RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
    $ A. Z% W: w$ L! W6 ]" \( W" e       SuperscriptBox[+ N, _( o# u2 X( e& a& ~5 F
            RowBox[{"(",
    % {1 U0 [1 I5 N2 ~         RowBox[{; W; ~- F) ?6 X% ^! D* C  O
              RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-", % T- A' o8 W7 z3 D1 X- X1 z) g
           SuperscriptBox[
    9 s5 j  z. Q0 ?        RowBox[{"(",
    $ x5 k" P6 Y2 i9 Q6 X5 ?6 w8 P         RowBox[{, H  \# q5 r; X
              RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
    # z5 i# c" l9 h2 g: _& @/ G       SuperscriptBox["x8", "2"], "-", - h3 Q# T+ x# @7 P
           SuperscriptBox[
    * j5 q$ u* W/ t        RowBox[{"(", * w7 j) Y  \& z1 R' k0 w1 X
             RowBox[{, S! v2 V3 g9 _8 V
              RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
    ) ?3 v. ~$ |$ G" v  RowBox[{"0.020180806675835994`", " ", 2 K" E/ ]' Q. c/ ^! \9 Q/ l% ]
       SuperscriptBox["\[ExponentialE]",
    , e: |: {' ~$ i4 j  [8 ^    RowBox[{"3.1415926535897936`", " ", 3 d" ^! v( I# M! ^" F/ p
         RowBox[{"(",
    ( E6 P$ {$ H4 F$ E# {+ h' J5 O. ?      RowBox[{
    # {/ a) f0 Z8 z; n       RowBox[{"-", "0.105619387859`"}], "-", * x' \/ |3 e, ^0 |' x: A+ o
           SuperscriptBox[
    0 J) }4 h' x0 W$ a2 I8 m        RowBox[{"(", 8 s$ N& l/ |) o9 d; p
             RowBox[{! }6 C& X5 Q& \
              RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-", $ A5 {8 \- u: c4 \4 i
           SuperscriptBox["x6", "2"], "-",
    / k. G. P5 `) H1 w5 ?       SuperscriptBox[
    & r& Y6 B7 B. y; I        RowBox[{"(", 9 E; u% p4 M* H- n$ D4 j
             RowBox[{
    4 V7 k+ T' c5 Y. V/ ?' w, R; Y6 m          RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    # F! r2 x/ p1 r0 ?7 L       SuperscriptBox["x8", "2"], "-",
    % i  @, B# Q4 D% S, F8 r9 B( Q       SuperscriptBox[+ K* V" n% V5 Y( Z2 a1 P. V
            RowBox[{"(",
    6 R( f/ V" w8 g7 X- w/ G9 _7 g3 G, K         RowBox[{
    6 j) ?. W4 J/ l          RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    " N* m, u7 t; I" y0 w  "+", 7 G1 U' W2 r% Z( T( [' C" f
      RowBox[{"0.13092706311748437`", " ",
    & `% p& G5 ?" U: W* s   SuperscriptBox["\[ExponentialE]", , a& z4 ?$ U2 \, {
        RowBox[{"3.1415926535897936`", " ", 6 g4 x, i5 |* a8 y. b
         RowBox[{"(", 3 @( K) \7 z! G# S5 w! I  D2 Y/ X
          RowBox[{
    * \; U3 L$ Y# r" O! @; Y. f       RowBox[{"-", "0.236605670085`"}], "-",   w6 v: ^/ R/ P7 J* Z
           SuperscriptBox[9 k4 l: X7 U* j2 j( Z! n' Q
            RowBox[{"(", 4 D) x' e/ W( f# F; ~* R7 |
             RowBox[{
    ' j" c& f. n+ v. v5 f6 L6 A          RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
    5 M& C9 x* R" J( W1 I       SuperscriptBox["x6", "2"], "-", 5 y% Z2 z& @8 K9 w6 W
           SuperscriptBox["x7", "2"], "-",
    ! S4 d9 W5 r2 W$ a4 p       SuperscriptBox["x8", "2"], "-",
    2 t9 K& B' B1 g5 ~: I       SuperscriptBox[. o& ^, L: e! F% `4 v3 |) N9 P! P1 o
            RowBox[{"(",
    9 q* B) ?" P% ~* \9 r* v1 U         RowBox[{
    " x$ d% C9 ]4 @) _          RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    ( E+ }) t2 g& V5 F$ P+ Z  "-",
    3 p5 s8 K1 f6 `. Y, N( N  f0 z  RowBox[{"0.033459349088924784`", " ",
    ( s8 D* f4 a* }9 o7 s* O   SuperscriptBox["\[ExponentialE]",
    ) w( k  Y( {8 |. U    RowBox[{"3.1415926535897936`", " ", ' @% p! W( U( M" X
         RowBox[{"(", 3 F; L9 k% I/ A, ]: C
          RowBox[{
    : |" P7 M! Q) j# m* u* L. i       RowBox[{"-", "0.46221081830200006`"}], "-",
    3 G1 ], L, P3 E  K6 a# |! [       SuperscriptBox[6 g% U$ z" d" W3 V& B& b" D
            RowBox[{"(",
    # C: T5 q$ e. O# @9 c         RowBox[{
    ( V# w- u( F% U) \0 G          RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
    " I- g! ^2 H7 x$ J( P7 q, T       SuperscriptBox[
    7 f5 a# v- s# M8 u, _, u" [1 q+ n. n        RowBox[{"(", 0 f1 A8 ~/ f" y- Q4 R: p* L
             RowBox[{
    : Y% c* z3 X- ~  V          RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-", 5 [& I- L# T3 G  B& p
           SuperscriptBox[/ b& V( Y  w9 E! \9 L
            RowBox[{"(",
    5 Z( H4 S8 ?# ?         RowBox[{
    & ~; G5 c7 l8 s* Q          RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-", , X) G6 r9 W5 T8 E9 l, `7 W
           SuperscriptBox["x8", "2"], "-",
    . n: Y+ u" d$ }: d& X& o1 z% q       SuperscriptBox[
    : [3 C) V. s5 R8 A! e        RowBox[{"(",
    0 w  e$ {0 q% a4 V& h6 {         RowBox[{
    " L9 J" s6 r( H1 @8 ~7 _) j* I3 K. T  r6 r( D          RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], ( [8 z4 ]$ I4 l
      "+", & F' Z1 y* N/ k5 `! k8 }
      RowBox[{"0.39611806709006653`", " ",
    " |7 O& D1 T7 c; u3 z   SuperscriptBox["\[ExponentialE]",
    ! O) C3 h' N# Y* k  Y8 k. q    RowBox[{"3.1415926535897936`", " ",
    ; a( A( c, `" _+ e. `$ h     RowBox[{"(", 3 N5 K  |, F, o- T4 G
          RowBox[{+ c' _$ L# j5 |
           RowBox[{"-", "0.5837889295140001`"}], "-", ' I- R6 x: F1 i$ ~) O' k9 d
           SuperscriptBox[7 {; a4 `- i; n0 `: U6 W7 s1 `( q
            RowBox[{"(",
    ' p0 P. q+ Q! z         RowBox[{2 l6 Q  H5 f% }! t
              RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
    ! S7 _/ }- Y0 A. o4 y' V& O- G8 |+ R       SuperscriptBox["x6", "2"], "-", % a7 l2 ?: O, u  N, x9 m2 R
           SuperscriptBox[
    # n* B9 ?" ^4 O  ^% k3 m& @' |9 |        RowBox[{"(",
    - p- ^  Q/ r& v% O' f         RowBox[{  O- ]+ o" I  w& J1 a. n
              RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
    0 @% W8 C$ _7 i       SuperscriptBox["x8", "2"], "-", - D% P; }. k) ?
           SuperscriptBox[
    0 b* w. E) ?$ u4 [" F9 w. ~        RowBox[{"(", 5 F4 j+ j( G* o1 C" S3 c) s, ]
             RowBox[{
    - H8 D" b3 _7 x( ?          RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    1 c* _1 V$ {( E- b9 g8 E. }* O1 b' w  "-", 1 X2 V+ s  H0 a# F2 }- ?& [
      RowBox[{"0.19996885877792045`", " ",
    & Y( ^" A3 D9 i   SuperscriptBox["\[ExponentialE]", 1 y+ h( @3 ]- r7 x4 s% C" Y
        RowBox[{"3.1415926535897936`", " ", & f' }4 V7 {! h4 `, t
         RowBox[{"(",
    % d  H9 w+ C) e) K' a* H% _$ r3 [      RowBox[{
    2 A, F8 V, D+ G/ i5 T       RowBox[{"-", "0.19030188470200005`"}], "-", * d$ v6 M& c; g1 o6 a$ u
           SuperscriptBox[! [* u8 k. M  ?+ L6 J& M2 R! Q
            RowBox[{"(",
      L* J6 e( X" F2 `         RowBox[{
    & E) w! w' E3 l+ d) S) ~, K          RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
    7 R5 P& o6 O/ t  X+ K, L5 S8 X6 F       SuperscriptBox[
    4 J8 d4 z- Q2 I$ x+ R* R& d% d        RowBox[{"(",
    & g  _, g7 U" H6 n         RowBox[{- J2 @! v' m+ q: Z4 B$ @; F# S0 \, I
              RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
    " X. B  R' ?, r; `% H       SuperscriptBox["x7", "2"], "-",
    & J2 P6 u. |3 v! x' v& r       SuperscriptBox["x8", "2"], "-",
    2 f7 ]1 a; a6 q  q! x( }       SuperscriptBox[! ~- Q/ O& h% P7 T; R( D
            RowBox[{"(",
    8 E1 m' |5 n% R4 f$ P5 v5 P$ C         RowBox[{
    6 m  o/ [1 Y- g( U+ F" W          RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    ' ~* e5 I+ E+ K6 l/ y6 C" g  "+",
    . U1 P4 Z) a/ P! l  RowBox[{"0.23580523388620744`", " ",
    ! |& x6 l  l- C: g4 }   SuperscriptBox["\[ExponentialE]", % N1 U! l7 @; k2 c6 W
        RowBox[{"3.1415926535897936`", " ", 3 B! o$ p0 J* c0 y& H
         RowBox[{"(",
    ) ?# c% q. P* M# N      RowBox[{4 K/ L4 a" Q  Z' w
           RowBox[{"-", "0.28518780882`"}], "-", * L/ q* O( Q2 O5 X
           SuperscriptBox[  `5 {1 F& ?2 S; J( `
            RowBox[{"(",
    * r% j" a4 S) C1 L, t         RowBox[{
    9 S! [' ^: @( E8 P% B8 Z          RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-", + E9 W; {, R4 F, F/ \! s: J0 r
           SuperscriptBox[
    0 P6 ?* l$ D' Y4 [6 @        RowBox[{"(",
    4 K7 X, L, ?, l         RowBox[{
    * W( |& [8 \' p0 V6 C6 M& Q5 w          RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
    5 F, d1 _! P" b: Q% p       SuperscriptBox[
      k1 p- W- J# C8 S! O0 P+ g) w        RowBox[{"(", 9 v: Y- ?( Q: ?8 Q% R5 @
             RowBox[{& Y* e5 [- L+ ^
              RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
    4 f0 r0 `/ {0 p& U# o9 ]7 {0 \+ n       SuperscriptBox["x8", "2"], "-",
      c; v9 i. [5 R8 _: M6 ]       SuperscriptBox[9 ^+ |$ N3 P7 w: G$ _+ k- j" z
            RowBox[{"(",
    & z  S: X1 t- O7 ?2 M! ~7 ?         RowBox[{  `0 Q/ M' h. T" V, Q
              RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    ! E* ?" ]) i8 _6 a, ]0 B  "+",
    5 K0 `3 K/ X7 b& n( R5 `  RowBox[{"0.667027259367853`", " ",
    3 A/ Y( B# A0 U! u   SuperscriptBox["\[ExponentialE]", ; F! E8 n5 G( f$ p
        RowBox[{"3.1415926535897936`", " ", 4 |  b9 w7 v+ [; O
         RowBox[{"(", 3 N" }4 w9 v* O# O
          RowBox[{
    3 k. k( V2 ]8 ]) a' ]       RowBox[{"-", "0.11387365200400001`"}], "-", ; j2 e% D8 }9 T6 f/ u& B1 C
           SuperscriptBox[
    9 R/ i, f4 ?: c( r* |        RowBox[{"(",
    7 {: r* N* @9 S- f         RowBox[{: I7 l+ K6 R# d6 m. O9 {
              RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
    ! Y' x& ?5 w/ `  [& C0 b7 ]3 C       SuperscriptBox[" Z7 ^" b% q( V( C
            RowBox[{"(",
    3 E5 y3 X/ `' h; u' Z7 w, P" f         RowBox[{0 o6 Z' M- b  y- s6 }
              RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-", 1 [& k; J/ L# f7 J' q* G% v
           SuperscriptBox["x7", "2"], "-", 4 K8 Y+ T4 E$ X3 d: E
           SuperscriptBox["x8", "2"], "-",
    ) x6 r( l/ s" w9 B0 q1 J0 S       SuperscriptBox[  n  f" O  a2 c
            RowBox[{"(",
    6 f  @" D0 i1 F5 v4 D. ^- r         RowBox[{
    " U  E. e1 p1 k6 X! S+ c          RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
    $ [% g; |, W! E1 v6 X) u; l- j  "+",
    ! o6 X& \) d) v0 e* [# Z( C4 N* ]  RowBox[{"0.25282438852646905`", " ", : X- J5 F8 s1 d  E
       SuperscriptBox["\[ExponentialE]", 8 f1 D" T+ Y: ^
        RowBox[{"3.1415926535897936`", " ",
    ( H/ e/ }6 b+ v- `& n$ f     RowBox[{"(",
    + E8 Q9 {# p# `& p' {. e      RowBox[{9 P; d- @$ q) {6 f
           RowBox[{"-", "0.11442644782500001`"}], "-",
    # \" B- z: n" h0 j0 m" |. |; _       SuperscriptBox[9 \# r7 Q& Q  A# B8 |! {5 B# ~
            RowBox[{"(", + @6 d( a% p% u
             RowBox[{
    / @7 `4 }' p# v) A, a4 L& i          RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
    1 E4 [* e9 A6 \5 N7 O( G& Z% D7 p       SuperscriptBox["x6", "2"], "-",
    - b2 |* K' W$ d4 x5 R, z5 l! ?       SuperscriptBox[* d  m0 V. X# |8 W' z- j7 q7 K. A
            RowBox[{"(",
    9 f$ S1 a2 W$ S/ r* b         RowBox[{) j7 d% r( t# n4 t
              RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
    $ F$ _/ u4 S9 F8 X6 n4 i: P2 _       SuperscriptBox[  J' o! [3 N3 x& S
            RowBox[{"(", 7 l8 E: [  P3 _
             RowBox[{2 M7 o, V* F6 s6 m$ p5 k
              RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-", $ {5 p0 e7 }# v+ t/ g9 S8 I
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
    & _# k7 k& G$ A7 K. Z  RowBox[{"0.07581214474544536`", " ", ) R6 s1 K* F: M) X. d+ `
       SuperscriptBox["\[ExponentialE]",
    , p, O( S3 }2 o; d; M3 x$ `! y    RowBox[{"3.1415926535897936`", " ", ) t# G: w" @- v; r4 r( _9 e
         RowBox[{"(", 4 _% n' }9 c0 h, E; _
          RowBox[{% _7 T6 q: E+ |$ Z9 O7 B$ \" D
           RowBox[{"-", "0.21008576609800003`"}], "-",
    & V7 `' V' {* L0 `1 k$ {+ G       SuperscriptBox["x3", "2"], "-",
    " E+ p- U7 `3 H# ?  G, J% O6 c+ ?. C       SuperscriptBox["x6", "2"], "-", $ O& z; g9 X) w4 U7 l
           SuperscriptBox["x7", "2"], "-", . D% w' G6 V% S: x& ^. D( d, H
           SuperscriptBox[
    2 i2 E0 U+ |  g8 I  Z        RowBox[{"(",
    % b* t1 F! ?: B3 \         RowBox[{% u# `) B6 Z9 q7 B" q/ M" o, w
              RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-", * N7 k: g0 V5 [8 e
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", : j) q2 R: Y- e: u7 [: `
      RowBox[{"0.10599338351843121`", " ",
    ! @* B5 k4 t' c# ?   SuperscriptBox["\[ExponentialE]", ) |8 h5 `* _) ]( D5 V. {. H- Q
        RowBox[{"3.1415926535897936`", " ",
    % D. s% j- _) I( `: e! I* B4 |$ f: B     RowBox[{"(", 3 x4 i4 Y; s& V3 Z; Z
          RowBox[{2 }# V+ N5 F0 L. N+ U7 e1 D: `
           RowBox[{"-", "0.4481471925460001`"}], "-", $ M+ ^  h, ^7 S  p+ u" G* G
           SuperscriptBox[
    ) u2 S: F" t% p/ ^        RowBox[{"(", * F7 k/ z( u  {  F5 x
             RowBox[{
    3 y5 X, c3 H4 |" |% g7 r& b. \% o5 O9 D          RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
    ! s2 g; E6 b0 S: u       SuperscriptBox[5 A5 U$ S- l" \. f* M* F
            RowBox[{"(",
    & g6 ~' _, M* }" L2 g2 V* A         RowBox[{
    # m3 ]! T. L) W          RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
    & P% t, Q. N6 T       SuperscriptBox["x7", "2"], "-",
    , l+ {& c3 y( ^' C       SuperscriptBox[# W$ O8 g1 F  G0 F: L
            RowBox[{"(", 1 W; J; C# o; `1 ?- u1 D4 p" d
             RowBox[{. c3 z0 X7 I( v1 k) R: Q; V. \
              RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-", ) T' c# Q( w2 \1 B
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", & q' H- f: ]! y* {- d
      RowBox[{"0.5008208386064421`", " ",
    & n' C: B# x5 q1 f0 U2 R   SuperscriptBox["\[ExponentialE]", ; b: g* Z' ^" w; }+ L8 P
        RowBox[{"3.1415926535897936`", " ",
    3 a: o1 |- ~1 v- t, e     RowBox[{"(", % _. z4 X5 c: @: n, ^7 W4 D/ t. k
          RowBox[{
    - ^5 w0 P! d4 E- f       RowBox[{"-", "0.08722659614000003`"}], "-", . A. \: I: l( p2 G2 F! Y
           SuperscriptBox[
    + l$ O5 `2 |: o4 x' @        RowBox[{"(",
    3 P& W' w. Y7 Q8 C+ J) _         RowBox[{
    4 r, ?/ w1 E1 p          RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-", 5 s& u7 N5 R' v0 S9 ]
           SuperscriptBox[
    ) J6 H/ ]0 A: h( m5 _        RowBox[{"(", # \# i# y0 g' F- i8 a$ ?
             RowBox[{
    - N$ c  _7 f4 w0 G" t2 r          RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
    8 \, z* y0 e, S2 g" N+ L1 i       SuperscriptBox["x7", "2"], "-", 2 [% h: Z3 [' o
           SuperscriptBox[
    ( E* X$ `3 y% m6 y: }        RowBox[{"(", : m" |$ z- L% N  ?+ S
             RowBox[{9 ^9 b9 m. c, l
              RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-", " Z$ t: s4 B2 M4 v0 ^) [' b9 m
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", + K9 @; w; U! ]4 d5 J, D
      RowBox[{"0.32564305572552343`", " ", / }, F% @9 [  m3 |! L2 S' \
       SuperscriptBox["\[ExponentialE]",
    ( k( o1 ~  y" ]8 Q- V    RowBox[{"3.1415926535897936`", " ",
      [, n  ?! i) t6 G5 a/ s2 |     RowBox[{"(",
    ; U9 Q" W/ s5 Y1 `      RowBox[{
    1 e2 I- I) C% ~! x+ [; l* ?9 s7 u% t( P       RowBox[{"-", "0.23738217000100004`"}], "-",
    9 K3 w$ ~3 V: o$ X" Z5 P$ ~" V- a       SuperscriptBox[) q5 f' H  `. y: l/ p, v6 l
            RowBox[{"(",
    9 d. @9 N  x$ {  ?! f! G4 f" j- T  ~         RowBox[{- r& p. O. b: _' D) ]3 S0 G) F
              RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
    5 f( e  g: O' o5 M" Y       SuperscriptBox[8 |1 o; Q9 q% r( ^& H# r5 [4 L
            RowBox[{"(", & ?, i1 o0 @* h( }! k
             RowBox[{0 [8 G7 _: x! d. R0 [" v& h- T- y
              RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-", * V' R/ ^" p: K  i5 a* |2 M
           SuperscriptBox[
    ( `6 i: W1 b2 ~% c+ c0 ]' ~        RowBox[{"(", , `* O+ B5 l& `9 G, W
             RowBox[{. @- M& d# n! a7 n8 j# h; [
              RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-", " V4 K$ E" \5 ]) N' v1 f: K
           SuperscriptBox[+ ]% s3 T! e1 J0 a8 b) R
            RowBox[{"(",
    + @: [4 ~; J+ B8 w& U" n         RowBox[{, C$ W- K  g- D) A% O
              RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
    ( }1 m( ^- d0 [. `$ S# Q       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    1 ^! g' G& B+ v9 J; F! ^* H! _  RowBox[{"0.6665374509702793`", " ", 9 q, v2 l. w' T) ~& t
       SuperscriptBox["\[ExponentialE]", 3 U* {+ M/ E3 u* a  f/ M
        RowBox[{"3.1415926535897936`", " ",
    * a0 H; l- S1 F7 q2 q     RowBox[{"(",
    - f1 j9 l: R: z; z/ V( q      RowBox[{
    3 `' ]5 h, m5 m" ^2 M" |1 p       RowBox[{"-", "0.19162171876400003`"}], "-", " l: p$ v8 o/ R; P+ _3 k
           SuperscriptBox[
    / V: {$ y3 ?% M  m% [! |3 J. X4 }) {        RowBox[{"(",
    9 n9 R" {# n* z+ R' \+ X         RowBox[{9 S( Q) z2 m& s+ a
              RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
    2 ?. F4 _. J( Q7 k% C, S9 f       SuperscriptBox[
    ; ]3 W' w) _6 s' q        RowBox[{"(",
    " q5 r: p1 k' t7 D' H         RowBox[{
    9 \% g4 m# `& V          RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
    . ^' g+ y7 s9 h: @2 e       SuperscriptBox[) v( U8 F! b- k/ r. c; A$ ]5 }
            RowBox[{"(", + n2 @4 T' e1 P
             RowBox[{$ v, C* r- e9 }) ?) u
              RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-", $ T& O9 k0 P( s1 c
           SuperscriptBox["x8", "2"], "-",
    ' N6 w* z& u" B( Y$ D0 e       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    ; j: N3 M& B- I$ j2 J* w1 W1 \  RowBox[{"0.4812237524557293`", " ",
    8 e% k7 o) y7 R; @# ]   SuperscriptBox["\[ExponentialE]", + U; z5 L- ~3 \; c* d
        RowBox[{"3.1415926535897936`", " ",
    - G  `. K$ z& o) u     RowBox[{"(",
    ( e) r& o2 X, ]$ }      RowBox[{/ t3 w2 n* M% I6 ]2 f
           RowBox[{"-", "0.109748954594`"}], "-",
      I1 }0 n% z, C3 O1 o       SuperscriptBox[
    % j0 P* y$ z3 y$ W$ S; Z6 ^, a        RowBox[{"(",
    3 C5 W! v9 u8 m! s2 Q         RowBox[{8 V+ o" U1 {( I' k
              RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
    9 U4 H! i" w# j: |1 s0 z       SuperscriptBox["x6", "2"], "-",
    2 |7 r' L  Q8 d% h9 Y       SuperscriptBox[% Z. ?2 D) N& Z( Z
            RowBox[{"(", " q& s2 W& S2 [. l7 |( D+ }
             RowBox[{
    ! q6 V' A+ q5 ?9 g( H6 \          RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-", 4 m/ d, R5 s5 O2 t  U" K
           SuperscriptBox["x8", "2"], "-",
    3 V/ w! [6 f6 _. Q5 H1 y. h- E7 g       SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", * y0 l: `' I& x% k" d+ ]
      RowBox[{"0.176024676254045`", " ", 4 ^' V9 z# W* f' ~/ t( Y5 e
       SuperscriptBox["\[ExponentialE]", 8 o2 k% k( r% }6 U( l$ D9 ~; F$ i
        RowBox[{"3.1415926535897936`", " ",
    6 ~1 b# {; q+ o; t+ ?     RowBox[{"(", + [8 m' r! I8 Q5 E; u
          RowBox[{
    + b4 j: o' Z& Y7 k       RowBox[{"-", "0.14616677062500003`"}], "-",
    3 Q6 _, e- Q" A6 p% E' O       SuperscriptBox[) p, S- j- ]7 I' L" j, [
            RowBox[{"(", . q- X1 x7 H6 W$ \7 [, y
             RowBox[{4 A2 F2 ?6 x" Y
              RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
    ! o7 e: J& Q) x% Z) q) B: }       SuperscriptBox["x6", "2"], "-", 5 k- S0 B  z. F" @# k5 ~- m
           SuperscriptBox[
    0 ?) ^8 e' L' n. o: X8 [        RowBox[{"(", + h4 A5 q  i- x; U6 I+ O
             RowBox[{8 z- G+ c' `) f9 F4 |0 O0 |
              RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-", 3 Y; j2 F! j, S0 m9 d8 m" j
           SuperscriptBox["x8", "2"], "-", 6 P3 e* {" ^" ~5 f
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", $ D! j6 |. W: N/ |6 v9 |# B/ y
      RowBox[{"0.5945873894818965`", " ", 5 ]* L# z& v$ ]+ c: n1 R& M
       SuperscriptBox["\[ExponentialE]", 8 j3 @7 ]; ^. A8 T. K1 G
        RowBox[{"3.1415926535897936`", " ", ' S! k* y) R0 ^2 ]) i4 ^
         RowBox[{"(",
    1 x" @. q5 b4 J5 z      RowBox[{6 I4 h3 W2 g: G; y9 _# Y/ {
           RowBox[{"-", "0.10407011464100005`"}], "-",
    6 D; Y, Z; Z' G+ x7 c6 P  C- F0 S& S       SuperscriptBox[; C9 E; l" M5 L/ P
            RowBox[{"(",
    3 T- p* ^( {9 I         RowBox[{
    # i4 ^) a/ s$ e) W) D, a9 X. l4 d          RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
    / K, h* n% j, {1 C" Z       SuperscriptBox[
    2 c: T3 H6 X3 D8 C        RowBox[{"(",
    ) A  e) g6 s; K0 T! A         RowBox[{
    1 ^0 ~* F5 ^4 `4 b4 `$ X$ S' I          RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
    & o8 m1 ~8 e7 _: Y- n4 Y% N       SuperscriptBox[; k. @$ R6 Q$ F! p9 p! t
            RowBox[{"(", 0 u, z$ Q$ d  D$ H. h
             RowBox[{
    ) P) O8 J1 Z  ?( z& I  h' {' i* ^5 D          RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-", 7 R. F- J2 x: n4 W2 e8 p4 H- h
           SuperscriptBox["x8", "2"], "-", ! ?$ k" Q- @* x
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
    ( n, D( @; {% V, ]  RowBox[{"0.027591936509660075`", " ",
    + S% _; I4 o7 p4 _   SuperscriptBox["\[ExponentialE]", ( U* g( S0 C1 R; @( ?
        RowBox[{"3.1415926535897936`", " ", / T5 g# B# U  i2 [2 b/ Z0 N
         RowBox[{"(", ( a, |6 R: z; g- D% G0 y/ D5 X, Z
          RowBox[{. }. V+ t4 a1 U& i3 l4 g
           RowBox[{"-", "0.31770463544200006`"}], "-",
    " z9 K! [; u% \$ e  g3 F       SuperscriptBox[6 q3 F4 r. y) L! z/ B. ]* T0 d
            RowBox[{"(", ' g/ ~4 M4 N" Q6 U
             RowBox[{" r$ c" ^# ~4 a  d
              RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-", 9 y$ B  P/ e9 d- ]
           SuperscriptBox["x6", "2"], "-", 7 |# U) a1 m# G. ^- `* I+ G
           SuperscriptBox["x7", "2"], "-",
    9 ]& S7 m/ q( y' d( S       SuperscriptBox["x8", "2"], "-", 8 P% u6 B. W* O2 K: n- I+ e6 Q
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",   D. X" N3 p9 @$ ^
      RowBox[{"0.5252475961933536`", " ",
      W$ U, I" u- s+ Q' X/ t   SuperscriptBox["\[ExponentialE]", 1 J/ w- o! W, a; z
        RowBox[{"3.1415926535897936`", " ",
    / S8 \: T- {5 h5 d     RowBox[{"(",
    ( o& u. }/ j7 c3 ?2 y1 O      RowBox[{
      M- c; k# X6 B       RowBox[{"-", "0.6410867660730001`"}], "-",
    ! L4 W3 H3 P& ~# O6 ^$ g3 g" r       SuperscriptBox[& p' A5 }- ^+ u) u; \( R# z+ I
            RowBox[{"(",
    ) |4 m( ?, b, i         RowBox[{
    & O8 O' i% x) R1 l) Y          RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
    : M! c: y: ^- v1 @3 W- l4 s       SuperscriptBox["x6", "2"], "-", : o! y, K  y6 i1 Z# L  P- j* y4 T
           SuperscriptBox["x7", "2"], "-",
    / \+ j/ L- @8 A7 z5 O! Q       SuperscriptBox["x8", "2"], "-", 5 ^8 p7 z& B  E+ y- ^
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-", 7 E) Z1 C' l$ w5 T5 J- D% t
      RowBox[{"0.32047284779644936`", " ", ( V% |- k' p8 r+ L8 m. m
       SuperscriptBox["\[ExponentialE]",
    7 X  ?3 _* ~. m. U! f. ?    RowBox[{"3.1415926535897936`", " ", 3 ^  {1 y+ |9 }
         RowBox[{"(", / c. O& l. ?0 B5 |
          RowBox[{5 b3 k# u) j; S' d4 D( e
           RowBox[{"-", "0.155663887074`"}], "-",
    5 F+ Y  o0 O: F       SuperscriptBox[( [# p. a. C8 S3 c
            RowBox[{"(", * e- D) [5 x; D& v/ o
             RowBox[{
    ( z7 b, J- s6 o: K          RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
    4 h3 r, H9 w' ?, C- ?; b       SuperscriptBox["x6", "2"], "-",
    " I' n7 a2 d7 s( s* K, i) W       SuperscriptBox["x7", "2"], "-",
    - g+ @  A8 ?  w. G7 E       SuperscriptBox["x8", "2"], "-", * A, C4 W$ E+ y8 o* A* k& p
           SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+", ! Y3 T" a. b6 T* }
      RowBox[{"0.7528674241482847`", " ",
    6 l/ ]1 U; A$ x2 o' }" C. A& T   SuperscriptBox["\[ExponentialE]",
    . E3 @& m- S& h    RowBox[{"3.1415926535897936`", " ", $ K2 @* `- k+ V& h, J* U1 C9 P
         RowBox[{"(", ' F! ~1 G5 U' O- a4 y% E+ ?& a
          RowBox[{% p6 l# O2 a( ?7 c  Z6 N& j
           RowBox[{"-", "0.14151232428600002`"}], "-",
    4 B9 f3 Z/ _1 D  D/ U( s       SuperscriptBox[
    3 y" F) w  v7 R2 ?4 U) f$ k        RowBox[{"(",
    - `6 @# D; W% Q) Q8 |7 K         RowBox[{
    2 {3 C. S) Y% y8 a  c* R          RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
    7 H" y* i$ F# ^& E8 ]6 d+ H       SuperscriptBox["x6", "2"], "-",
    7 f% Y6 J# D( U! O       SuperscriptBox["x7", "2"], "-",
    2 @- Z: P1 `0 A+ F) C       SuperscriptBox["x8", "2"], "-",
    / g0 Y) G# ?3 B' t" G9 t' e* Z  _       SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",$ ^& L8 b0 A; W5 o
    CellChangeTimes->{3.5779628386090403`*^9}]& n# ]2 `  L( @% o: Y/ s
    }, Open  ]],! C" F+ e6 \6 i3 P4 Z" e  F
    " p4 n# J0 K1 G) l: u
    Cell[BoxData[" "], "Input",
    0 z8 x6 c, @# W: H. U0 W! N5 e CellChangeTimes->{3.577962835879035*^9}],$ z' y- `& B4 o

    : r, T, g% q0 A# YCell[BoxData["\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\:4e3a"], "Input"],
    - C) F+ P1 V4 p2 ^5 b- n
    $ Y0 u' f. P& N  YCell[CellGroupData[{1 u6 L% k: C& O" ?

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

    ; k% O1 G1 c& y; s9 q这个是用mathmatic做的神经网络，能导出最后的权值，就是可以写出表达式，我想用matlab做，却不知道怎么做
    回复

    使用道具 举报

    569646632        

    0

    主题

    7

    听众

    46

    积分

    升级  43.16%

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

    • 签到天数: 9 天

    [LV.3]偶尔看看II

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

    使用道具 举报

    -___        

    0

    主题

    8

    听众

    44

    积分

    升级  41.05%

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

    • 签到天数: 12 天

    [LV.3]偶尔看看II

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

    使用道具 举报

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

    fastpost qq
    收缩

    • 电话咨询

    • 04714969085

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

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

    蒙公网安备 15010502000194号

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

    GMT+8, 2026-10-31 18:59 , Processed in 1.475747 second(s), 101 queries .

    回顶部